diff --git a/CHANGELOG.md b/CHANGELOG.md --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -1,5 +1,43 @@ # Change Log +## 1.0 2025-11-07 + +TLDR: Loads of breaking changes, with good reasons. + +Overall this release is meant to serve the future, not the past. So this release has many +"bunched up" breaking changes which should reduce the need for breakng changes in the +future, and improve maintainability and thus release frequency dramatically. + +* Drop generated field prefixes, making usage of the library way more natural. Especially its + now possible to use this library just from the AWS provided cloudformation documentation + without having to lookup the field prefixes in a second tab. + +* Drop support for GHC < 9.2. This simplifies the generator significantly. If you need older + GHCs use the old versions of stratosphere. Dependency of dropping field prefixes. This library + relies now on `NoFieldSelectors` internally. + +* Fully re-written generator, which works directly on the raw, un-preprocessed AWS + specification, this should increase maintainabiltiy and release frequency. + +* Re-aligned generated module / builder function structure, removing all manual + overwrites for dismabiguation. + +* Drop of the lens dependency, replaced with the `set @"PropertyName" value` idiom. + +* Split to one package per AWS service. This induces a small overhead on the user to + select the packages the user needs, but reduces compilation time significantly. + Also this works around limitations on OSX linker issues on many modules. + Fixes: [#111](https://github.com/mbj/stratosphere/issues/184) [#102](https://github.com/mbj/stratosphere/issues/102) + +* Change `Val` to `Value`, its recommended to include stratosphere qualified where it clashes with + `aeson` imports. + +* Remove support for custom enum types stratosphere used to tag + on to the raw spec. Fixes: [#195](https://github.com/mbj/stratosphere/pull/195) + +* Update resource specification document to version 112.0.0 and re-generate all services. + Fixes: [#140](https://github.com/mbj/stratosphere/issues/140) + ## 0.60.0 * Add and require aeson-2 support diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -1,63 +1,69 @@ # Stratosphere: AWS CloudFormation in Haskell [![CI](https://github.com/mbj/stratosphere/actions/workflows/ci.yaml/badge.svg)](https://github.com/mbj/stratosphere/actions/workflows/ci.yaml) +[![sponsors](https://img.shields.io/github/sponsors/mbj)](https://github.com/sponsors/mbj) +[![hackage](https://img.shields.io/hackage/v/stratosphere)](https://hackage.haskell.org/package/stratosphere) AWS CloudFormation is a system that provisions and updates Amazon Web Services (AWS) resources based on declarative templates. Common criticisms of CloudFormation include the use of JSON as the template language and limited error-checking, often only available in the form of run-time errors and stack -rollbacks. By wrapping templates in Haskell, we are able to easily construct +rollbacks. By wrapping templates in Haskell, it is possible to easily construct them and help ensure correctness. The goals of stratosphere are to: + * Build a Haskell EDSL to specify CloudFormation templates. Since it is embedded in Haskell, it is type-checked and generally much easier to work - with than raw JSON. + with than raw JSON/YAML. * Have a simple checking/linting system outside of the types that can find common errors in templates. -* Be able to also read valid CloudFormation JSON templates so they can be - type-checked. This also gives us free integration tests by using the huge - amount of example templates available in the AWS docs. +## Funding / Sponsoring + +This library is maintained by [mbj](https://github.com/sponsors/mbj) and any pledge is greatly apprechiated. + ## Example +**THIS SHOWS UNRELEASED API, to use it use a git source while 1.0 is under development** [old readme](https://github.com/mbj/stratosphere/tree/v0.60.0#readme). + Here is an example of a `Template` that creates an EC2 instance, along with the JSON output: ```haskell -{-# LANGUAGE OverloadedLists #-} -{-# LANGUAGE OverloadedStrings #-} - module Main where -import qualified Data.ByteString.Lazy.Char8 as B import Stratosphere +import qualified Data.ByteString.Lazy.Char8 as B + main :: IO () -main = B.putStrLn $ encodeTemplate instanceTemplate +main = B.putStrLn $ encodeTemplate template -instanceTemplate :: Template -instanceTemplate = - template - [ resource "EC2Instance" ( - EC2InstanceProperties $ - ec2Instance - & eciImageId ?~ "ami-22111148" - & eciKeyName ?~ (Ref "KeyName") - ) - & resourceDeletionPolicy ?~ Retain - ] - & templateDescription ?~ "Sample template" - & templateParameters ?~ - [ parameter "KeyName" "AWS::EC2::KeyPair::KeyName" - & parameterDescription ?~ "Name of an existing EC2 KeyPair to enable SSH access to the instance" - & parameterConstraintDescription ?~ "Must be the name of an existing EC2 KeyPair." - ] +template :: Template +template + = mkTemplate [ec2Instance] + & set @"Description" "EC2 Example template" + & set @"Parameters" [keyName] + +keyName :: Parameter +keyName + = mkParameter "KeyName" "AWS::EC2::KeyPair::KeyName" + & set @"Description" "Name of an existing EC2 KeyPair to enable SSH access to the instance" + & set @"ConstraintDescription" "Must be the name of an existing EC2 KeyPair." + +ec2Instance :: Resource +ec2Instance + = set @"DeletionPolicy" Retain + . resource "EC2Instance" + $ EC2.mkInstance + & set @"ImageId" "ami-22111148" + & set @"KeyName" (toRef keyName) ``` ```json { - "Description": "Sample template", + "Description": "EC2 Example template", "Parameters": { "KeyName": { "Description": "Name of an existing EC2 KeyPair to enable SSH access to the instance", @@ -68,80 +74,79 @@ "Resources": { "EC2Instance": { "DeletionPolicy": "Retain", - "Type": "AWS::EC2::Instance", "Properties": { + "ImageId": "ami-22111148", "KeyName": { "Ref": "KeyName" - }, - "ImageId": "ami-22111148" - } + } + }, + "Type": "AWS::EC2::Instance" } } } ``` -Please see the [examples](examples/) directory for more in-depth examples. +Please see the [examples](examples/Stratosphere/Examples) directory for more in-depth +examples (including this one). The `stratosphere-example` package produces a same named +binary with a minimal CLI for exploration. +Its encouraged to use it as a playground while exploring this library. + +``` +STACK_YAML=stack-9.2.yaml stack build --copy-bins --test stratosphere-examples +``` + ## Value Types CloudFormation resource parameters can be literals (strings, integers, etc), references to another resource or a Parameter, or the result of some function -call. We encapsulate all of these possibilities in the `Val a` type. +call. We encapsulate all of these possibilities in the `Value a` type. -We recommend using the `OverloadedStrings` extension to reduce the number of -`Literal`s you have to use. +It is recommend using the `OverloadedStrings` and `OverloadedLists` extensions to reduce +the number of `Literal`s that have to be written. -## Lenses +## Optional and required properties Almost every CloudFormation resource has a handful of required arguments, and many more optional arguments. Each resource is represented as a record type with optional arguments wrapped in `Maybe`. Each resource also comes with a -constructor that accepts required resource parameters as arguments. This allows -the user to succinctly specify the resource parameters they actually use +builder that accepts required resource properties as arguments. This allows +the user to succinctly specify the resource properties they actually use without adding too much noise to their code. -To specify optional arguments, we recommend using the lens operators `&` and -`?~`. In the example above, the optional EC2 key name is specified using the -`&` and `?~` lens operators. - -This approach is very similar to the approach taken by the `amazonka` library. -See this -[blog post](http://brendanhay.nz/amazonka-comprehensive-haskell-aws-client#smart-constructors) -for an explanation. +To specify optional arguments, stratosphere exposes the `set` function that takes +the type level symbol of the property to set and the value as argument. Its recommended to use the +`&` function to chain these updates. See examples. ## Auto-generation All of the resources and resource properties are auto-generated from a [JSON schema file](http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/cfn-resource-specification.html) and -are placed in `library-gen/`. The `gen/` directory contains the auto-generator -code and the JSON model file. We include the `library-gen/` directory in git so -the build process is simplified. To build `library-gen` from scratch and then -build all of `stratosphere`, just run the very short `build.sh` script. You can -pass stack args to the script too, so run `./build.sh --fast` to build the -library without optimization. This is useful for development. - -In the future, it would be great to not have to include the auto-generated code -in git. +are placed in `services/`. The `generator/` directory contains the auto-generator package `stratosphere-generator` +code and the JSON model file. The `services/` directory is included in git so +the build process is simplified. To build `stratosphere-generator` from scratch and +then build all of `stratosphere`, build the `stratosphere-generator` package via `stack` and execute the `stratosphere-generator` binary from the project root. ## Contributing -Feel free to raise any issues, or even just make suggestions, by filing a -Github issue. +Feel free to raise any issues, or even just make suggestions, by filing a Github issue. ## Future Work * Implement basic checker for things like undefined Refs and duplicate field names. This stuff would be too unwieldy to do in types, and performing a checking pass over a template should be pretty straightforward. -* Use a custom JSON encoder so the templates look a little more idiomatic. We - also create a lot of empty whitespace and newlines using aeson-pretty. There - are limits on the size of CloudFormation templates, and we want readable - output without hitting the limits. Also, we have some newtypes that just - exist to override aeson instances, and we could get rid of those. ## Development Build ``` -STACK_YAML=stack-9.0.yaml stack build --test --flag stratosphere:-library-only +# Warning this takes a while ;) + +# Compile all packages +STACK_YAML=stack-9.12.yaml stack test + +# Run the generator +STACK_YAML=stack-9.12.yaml stack build stratosphere-manager +STACK_YAML=stack-9.12.yaml stack exec stratosphere-manager -- generate ``` diff --git a/examples/auto-scaling-group.hs b/examples/auto-scaling-group.hs deleted file mode 100644 --- a/examples/auto-scaling-group.hs +++ /dev/null @@ -1,72 +0,0 @@ -{-# LANGUAGE OverloadedLists #-} -{-# LANGUAGE OverloadedStrings #-} - -module Main where - --- | Example inspired from the CreationPolicy docs: --- http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-attribute-creationpolicy.html - -import Control.Lens -import qualified Data.ByteString.Lazy.Char8 as B - -import Stratosphere - -main :: IO () -main = B.putStrLn $ encodeTemplate myTemplate - -myTemplate :: Template -myTemplate = - template - [ asgResource - & resourceCreationPolicy ?~ asgCreationPolicy - & resourceUpdatePolicy ?~ asgUpdatePolicy - , launchConfigResource - ] - & templateParameters ?~ - [ parameter "AvailabilityZones" "List" - ] - & templateDescription ?~ "Auto scaling group example" - & templateFormatVersion ?~ "2010-09-09" - -asgResource :: Resource -asgResource = - resource "AutoScalingGroup" $ - autoScalingAutoScalingGroup - "1" - "4" - & asasgDesiredCapacity ?~ "3" - & asasgLaunchConfigurationName ?~ Ref "LaunchConfig" - & asasgAvailabilityZones ?~ RefList "AvailabilityZones" - & asasgTerminationPolicies ?~ - [ "OldestLaunchConfiguration" - , "ClosestToNextInstanceHour" - ] - -asgCreationPolicy :: CreationPolicy -asgCreationPolicy = - creationPolicy $ - resourceSignal - & rsCount ?~ Literal 3 - & rsTimeout ?~ "PT15M" - -asgUpdatePolicy :: UpdatePolicy -asgUpdatePolicy = - updatePolicy - & upAutoScalingScheduledAction ?~ ( - autoScalingScheduledActionPolicy - & assapIgnoreUnmodifiedGroupSizeProperties ?~ Literal True - ) - & upAutoScalingRollingUpdate ?~ ( - autoScalingRollingUpdatePolicy - & asrupMinInstancesInService ?~ Literal 1 - & asrupMaxBatchSize ?~ Literal 2 - & asrupPauseTime ?~ "PT15M" - & asrupWaitOnResourceSignals ?~ Literal True - ) - -launchConfigResource :: Resource -launchConfigResource = - resource "LaunchConfig" $ - autoScalingLaunchConfiguration - "ami-16d18a7e" - "t2.micro" diff --git a/examples/rds-master-replica.hs b/examples/rds-master-replica.hs deleted file mode 100644 --- a/examples/rds-master-replica.hs +++ /dev/null @@ -1,87 +0,0 @@ -{-# LANGUAGE OverloadedLists #-} -{-# LANGUAGE OverloadedStrings #-} - --- | This example creates a Postgres RDS master and slave with a parameter --- group. Also note the DeletionPolicy of Retain, which will keep the resource --- alive if you delete the stack. - -module Main where - -import Control.Lens -import qualified Data.ByteString.Lazy.Char8 as B - -import Stratosphere - -main :: IO () -main = B.putStrLn $ encodeTemplate dbTemplate - -dbTemplate :: Template -dbTemplate = - template - [ rdsParamGroup & resourceDeletionPolicy ?~ Retain - , rdsMaster & resourceDeletionPolicy ?~ Retain - , rdsReplica & resourceDeletionPolicy ?~ Retain - ] - & templateDescription ?~ "Stack for and RDS master and replica" - & templateParameters ?~ - [ parameter "RdsMasterPassword" "String" - , parameter "RdsSubnetGroup" "String" - , parameter "VpcId" "String" - ] - -rdsMaster :: Resource -rdsMaster = - resource "RDSMaster" $ - rdsdbInstance - "db.t2.micro" - -- DBInstanceIdentifier is not present in the new schema for some reason - -- & rdsdbiDBInstanceIdentifier ?~ Literal "db-master" - & rdsdbiStorageType ?~ "gp2" - & rdsdbiAllocatedStorage ?~ "20" - & rdsdbiDBParameterGroupName ?~ toRef rdsParamGroup - & rdsdbiEngine ?~ "postgres" - & rdsdbiEngineVersion ?~ "9.3.10" - & rdsdbiMasterUsername ?~ "postgres" - & rdsdbiMasterUserPassword ?~ Ref "RdsMasterPassword" - & rdsdbiDBName ?~ "the_database" - & rdsdbiPreferredMaintenanceWindow ?~ "Sun:01:00-Sun:02:00" - & rdsdbiBackupRetentionPeriod ?~ Literal 30 - & rdsdbiPreferredBackupWindow ?~ "08:00-09:00" - & rdsdbiPort ?~ "5432" - & rdsdbiTags ?~ - [ tag "Role" "rds-master" - ] - -rdsReplica :: Resource -rdsReplica = - resource "RDSReplica" $ - rdsdbInstance - "db.t2.micro" - -- DBInstanceIdentifier is not present in the new schema for some reason - -- & dbiDBInstanceIdentifier ?~ Literal "db-standby" - & rdsdbiSourceDBInstanceIdentifier ?~ toRef rdsMaster - & rdsdbiStorageType ?~ "gp2" - & rdsdbiTags ?~ - [ tag "Role" "rds-standby" - ] - -rdsParamGroup :: Resource -rdsParamGroup = - resource "RDSParamGroup" $ - rdsdbParameterGroup - "Parameter group for RDS instances" - "postgres9.3" - & rdsdbpgParameters ?~ - [ ("checkpoint_segments", "32") - , ("effective_cache_size", "5584716") - , ("hot_standby_feedback", "1") - , ("log_connections", "1") - , ("log_disconnections", "1") - , ("log_min_duration_statement", "0") - , ("maintenance_work_mem", "2000000") - , ("max_connections", "100") - , ("max_standby_archive_delay", "3600000") - , ("max_standby_streaming_delay", "3600000") - , ("wal_buffers", "2000") - , ("work_mem", "400000") - ] diff --git a/examples/s3-copy.hs b/examples/s3-copy.hs deleted file mode 100644 --- a/examples/s3-copy.hs +++ /dev/null @@ -1,137 +0,0 @@ -{-# LANGUAGE OverloadedLists #-} -{-# LANGUAGE OverloadedStrings #-} - -module Main where - -import Control.Lens -import Data.Aeson (Value (Array), object) -import qualified Data.ByteString.Lazy.Char8 as B -import Data.Text (Text) -import Stratosphere - -main :: IO () -main = B.putStrLn $ encodeTemplate myTemplate - -myTemplate :: Template -myTemplate = - template - [ role' - , lambda - , permission - , incomingS3Bucket - , outgoingS3Bucket - ] - & templateDescription ?~ "Simple event triggered S3 bucket to bucket copy example" - & templateFormatVersion ?~ "2010-09-09" - -lambda :: Resource -lambda = ( - resource "CopyS3ObjectLambda" $ - lambdaFunction - lambdaCode - "index.handler" - (GetAtt "IAMRole" "Arn") - (Literal NodeJS12x) - & lfFunctionName ?~ "copyS3Object" - ) - & resourceDependsOn ?~ [ role' ^. resourceName ] - - where - lambdaCode :: LambdaFunctionCode - lambdaCode = lambdaFunctionCode - & lfcZipFile ?~ code - - code :: Val Text - code = "\ - \ var AWS = require('aws-sdk'); \ - \ var s3 = new AWS.S3({apiVersion: '2006-03-01'}); \ - \ exports.handler = function(event, context, callback) { \ - \ console.log(JSON.stringify(event)); \ - \ var rec = event.Records[0]; \ - \ var bucket = rec.s3.bucket.name; \ - \ var key = rec.s3.object.key; \ - \ s3.copyObject({Bucket: \"stratosphere-s3-copy-outgoing\", Key: key, CopySource: \"stratosphere-s3-copy-incoming/\"+key}, function(err){ \ - \ callback(null, \"copied s3 object\"); \ - \ }); \ - \ } \ - \ " - -role' :: Resource -role' = - resource "IAMRole" $ - iamRole - rolePolicyDocumentObject - & iamrPolicies ?~ [ executePolicy ] - & iamrRoleName ?~ "MyLambdaBasicExecutionRole" - & iamrPath ?~ "/" - - where - executePolicy = - iamRolePolicy - [ ("Version", "2012-10-17") - , ("Statement", statement) - ] - "MyLambdaExecutionPolicy" - - where - statement = object - [ ("Effect", "Allow") - , ("Action", actions) - , ("Resource", "*") - ] - - actions = Array - [ "logs:CreateLogGroup" - , "logs:CreateLogStream" - , "logs:PutLogEvents" - - , "s3:PutObject" - , "s3:GetObject" - ] - - rolePolicyDocumentObject = - [ ("Version", "2012-10-17") - , ("Statement", statement) - ] - - where - statement = object - [ ("Effect", "Allow") - , ("Principal", principal) - , ("Action", "sts:AssumeRole") - ] - - principal = object - [ ("Service", "lambda.amazonaws.com") ] - -incomingS3Bucket :: Resource -incomingS3Bucket = ( - resource "IncomingBucket" $ - s3Bucket - & sbBucketName ?~ "stratosphere-s3-copy-incoming" - & sbNotificationConfiguration ?~ config - ) - & resourceDependsOn ?~ [ lambda ^. resourceName ] - - where - config = - s3BucketNotificationConfiguration - & sbncLambdaConfigurations ?~ [lambdaConfig] - - lambdaConfig = - s3BucketLambdaConfiguration - "s3:ObjectCreated:*" - (GetAtt "CopyS3ObjectLambda" "Arn") - -outgoingS3Bucket :: Resource -outgoingS3Bucket = - resource "OutgoingBucket" $ - s3Bucket - & sbBucketName ?~ "stratosphere-s3-copy-outgoing" - -permission :: Resource -permission = resource "LambdaPermission" $ - lambdaPermission - "lambda:*" - (GetAtt "CopyS3ObjectLambda" "Arn") - "s3.amazonaws.com" diff --git a/examples/simple-lambda.hs b/examples/simple-lambda.hs deleted file mode 100644 --- a/examples/simple-lambda.hs +++ /dev/null @@ -1,91 +0,0 @@ -{-# LANGUAGE OverloadedLists #-} -{-# LANGUAGE OverloadedStrings #-} - -module Main where - -import Control.Lens -import Data.Aeson (Value (Array), object) -import qualified Data.ByteString.Lazy.Char8 as B -import Data.Text (Text) -import Stratosphere - -main :: IO () -main = B.putStrLn $ encodeTemplate myTemplate - -myTemplate :: Template -myTemplate = - template - [ role', lambda ] - & templateDescription ?~ "Lambda example" - & templateFormatVersion ?~ "2010-09-09" - -lambda :: Resource -lambda = ( - resource "LambdaFunction" $ - lambdaFunction - lambdaCode - "index.handler" - (GetAtt "IAMRole" "Arn") - (Literal NodeJS12x) - ) - & resourceDependsOn ?~ [ role' ^. resourceName ] - -lambdaCode :: LambdaFunctionCode -lambdaCode = lambdaFunctionCode - & lfcZipFile ?~ code - -code :: Val Text -code = "\ -\ exports.handler = function(event, context, callback) { \ -\ console.log(\"value1 = \" + event.key1); \ -\ console.log(\"value2 = \" + event.key2); \ -\ callback(null, \"some success message\"); \ -\ } \ -\ " - - -role' :: Resource -role' = - resource "IAMRole" $ - iamRole - rolePolicyDocumentObject - & iamrPolicies ?~ [ executePolicy ] - & iamrRoleName ?~ "MyLambdaBasicExecutionRole" - & iamrPath ?~ "/" - - where - executePolicy = - iamRolePolicy - [ ("Version", "2012-10-17") - , ("Statement", statement) - ] - "MyLambdaExecutionPolicy" - - where - statement = object - [ ("Effect", "Allow") - , ("Action", actions) - , ("Resource", "*") - ] - - actions = Array - [ "logs:CreateLogGroup" - , "logs:CreateLogStream" - , "logs:PutLogEvents" - ] - - - rolePolicyDocumentObject = - [ ("Version", "2012-10-17") - , ("Statement", statement) - ] - - where - statement = object - [ ("Effect", "Allow") - , ("Principal", principal) - , ("Action", "sts:AssumeRole") - ] - - principal = object - [ ("Service", "lambda.amazonaws.com") ] diff --git a/gen/Stratosphere/Tag.hs b/gen/Stratosphere/Tag.hs new file mode 100644 --- /dev/null +++ b/gen/Stratosphere/Tag.hs @@ -0,0 +1,33 @@ +module Stratosphere.Tag ( + Tag(..), mkTag + ) where +import qualified Data.Aeson as JSON +import qualified Stratosphere.Prelude as Prelude +import Stratosphere.Property +import Stratosphere.ResourceProperties +import Stratosphere.Value +data Tag + = -- | See: + Tag {haddock_workaround_ :: (), + -- | See: + key :: (Value Prelude.Text), + -- | See: + value :: (Value Prelude.Text)} + deriving stock (Prelude.Eq, Prelude.Show) +mkTag :: Value Prelude.Text -> Value Prelude.Text -> Tag +mkTag key value + = Tag {haddock_workaround_ = (), key = key, value = value} +instance ToResourceProperties Tag where + toResourceProperties Tag {..} + = ResourceProperties + {awsType = "Tag", supportsTags = Prelude.False, + properties = ["Key" JSON..= key, "Value" JSON..= value]} +instance JSON.ToJSON Tag where + toJSON Tag {..} + = JSON.object ["Key" JSON..= key, "Value" JSON..= value] +instance Property "Key" Tag where + type PropertyType "Key" Tag = Value Prelude.Text + set newValue Tag {..} = Tag {key = newValue, ..} +instance Property "Value" Tag where + type PropertyType "Value" Tag = Value Prelude.Text + set newValue Tag {..} = Tag {value = newValue, ..} diff --git a/gen/Stratosphere/Tag.hs-boot b/gen/Stratosphere/Tag.hs-boot new file mode 100644 --- /dev/null +++ b/gen/Stratosphere/Tag.hs-boot @@ -0,0 +1,9 @@ +module Stratosphere.Tag where +import qualified Data.Aeson as JSON +import qualified Stratosphere.Prelude as Prelude +import Stratosphere.ResourceProperties +data Tag :: Prelude.Type +instance ToResourceProperties Tag +instance Prelude.Eq Tag +instance Prelude.Show Tag +instance JSON.ToJSON Tag diff --git a/library-gen/Stratosphere/ResourceProperties/ACMPCACertificateAuthorityCrlConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ACMPCACertificateAuthorityCrlConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ACMPCACertificateAuthorityCrlConfiguration.hs +++ /dev/null @@ -1,60 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-crlconfiguration.html - -module Stratosphere.ResourceProperties.ACMPCACertificateAuthorityCrlConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ACMPCACertificateAuthorityCrlConfiguration. --- See 'acmpcaCertificateAuthorityCrlConfiguration' for a more convenient --- constructor. -data ACMPCACertificateAuthorityCrlConfiguration = - ACMPCACertificateAuthorityCrlConfiguration - { _aCMPCACertificateAuthorityCrlConfigurationCustomCname :: Maybe (Val Text) - , _aCMPCACertificateAuthorityCrlConfigurationEnabled :: Maybe (Val Bool) - , _aCMPCACertificateAuthorityCrlConfigurationExpirationInDays :: Maybe (Val Integer) - , _aCMPCACertificateAuthorityCrlConfigurationS3BucketName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ACMPCACertificateAuthorityCrlConfiguration where - toJSON ACMPCACertificateAuthorityCrlConfiguration{..} = - object $ - catMaybes - [ fmap (("CustomCname",) . toJSON) _aCMPCACertificateAuthorityCrlConfigurationCustomCname - , fmap (("Enabled",) . toJSON) _aCMPCACertificateAuthorityCrlConfigurationEnabled - , fmap (("ExpirationInDays",) . toJSON) _aCMPCACertificateAuthorityCrlConfigurationExpirationInDays - , fmap (("S3BucketName",) . toJSON) _aCMPCACertificateAuthorityCrlConfigurationS3BucketName - ] - --- | Constructor for 'ACMPCACertificateAuthorityCrlConfiguration' containing --- required fields as arguments. -acmpcaCertificateAuthorityCrlConfiguration - :: ACMPCACertificateAuthorityCrlConfiguration -acmpcaCertificateAuthorityCrlConfiguration = - ACMPCACertificateAuthorityCrlConfiguration - { _aCMPCACertificateAuthorityCrlConfigurationCustomCname = Nothing - , _aCMPCACertificateAuthorityCrlConfigurationEnabled = Nothing - , _aCMPCACertificateAuthorityCrlConfigurationExpirationInDays = Nothing - , _aCMPCACertificateAuthorityCrlConfigurationS3BucketName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-crlconfiguration.html#cfn-acmpca-certificateauthority-crlconfiguration-customcname -acmpcacaccCustomCname :: Lens' ACMPCACertificateAuthorityCrlConfiguration (Maybe (Val Text)) -acmpcacaccCustomCname = lens _aCMPCACertificateAuthorityCrlConfigurationCustomCname (\s a -> s { _aCMPCACertificateAuthorityCrlConfigurationCustomCname = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-crlconfiguration.html#cfn-acmpca-certificateauthority-crlconfiguration-enabled -acmpcacaccEnabled :: Lens' ACMPCACertificateAuthorityCrlConfiguration (Maybe (Val Bool)) -acmpcacaccEnabled = lens _aCMPCACertificateAuthorityCrlConfigurationEnabled (\s a -> s { _aCMPCACertificateAuthorityCrlConfigurationEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-crlconfiguration.html#cfn-acmpca-certificateauthority-crlconfiguration-expirationindays -acmpcacaccExpirationInDays :: Lens' ACMPCACertificateAuthorityCrlConfiguration (Maybe (Val Integer)) -acmpcacaccExpirationInDays = lens _aCMPCACertificateAuthorityCrlConfigurationExpirationInDays (\s a -> s { _aCMPCACertificateAuthorityCrlConfigurationExpirationInDays = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-crlconfiguration.html#cfn-acmpca-certificateauthority-crlconfiguration-s3bucketname -acmpcacaccS3BucketName :: Lens' ACMPCACertificateAuthorityCrlConfiguration (Maybe (Val Text)) -acmpcacaccS3BucketName = lens _aCMPCACertificateAuthorityCrlConfigurationS3BucketName (\s a -> s { _aCMPCACertificateAuthorityCrlConfigurationS3BucketName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ACMPCACertificateAuthorityRevocationConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ACMPCACertificateAuthorityRevocationConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ACMPCACertificateAuthorityRevocationConfiguration.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-revocationconfiguration.html - -module Stratosphere.ResourceProperties.ACMPCACertificateAuthorityRevocationConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ACMPCACertificateAuthorityCrlConfiguration - --- | Full data type definition for --- ACMPCACertificateAuthorityRevocationConfiguration. See --- 'acmpcaCertificateAuthorityRevocationConfiguration' for a more convenient --- constructor. -data ACMPCACertificateAuthorityRevocationConfiguration = - ACMPCACertificateAuthorityRevocationConfiguration - { _aCMPCACertificateAuthorityRevocationConfigurationCrlConfiguration :: Maybe ACMPCACertificateAuthorityCrlConfiguration - } deriving (Show, Eq) - -instance ToJSON ACMPCACertificateAuthorityRevocationConfiguration where - toJSON ACMPCACertificateAuthorityRevocationConfiguration{..} = - object $ - catMaybes - [ fmap (("CrlConfiguration",) . toJSON) _aCMPCACertificateAuthorityRevocationConfigurationCrlConfiguration - ] - --- | Constructor for 'ACMPCACertificateAuthorityRevocationConfiguration' --- containing required fields as arguments. -acmpcaCertificateAuthorityRevocationConfiguration - :: ACMPCACertificateAuthorityRevocationConfiguration -acmpcaCertificateAuthorityRevocationConfiguration = - ACMPCACertificateAuthorityRevocationConfiguration - { _aCMPCACertificateAuthorityRevocationConfigurationCrlConfiguration = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-revocationconfiguration.html#cfn-acmpca-certificateauthority-revocationconfiguration-crlconfiguration -acmpcacarcCrlConfiguration :: Lens' ACMPCACertificateAuthorityRevocationConfiguration (Maybe ACMPCACertificateAuthorityCrlConfiguration) -acmpcacarcCrlConfiguration = lens _aCMPCACertificateAuthorityRevocationConfigurationCrlConfiguration (\s a -> s { _aCMPCACertificateAuthorityRevocationConfigurationCrlConfiguration = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ACMPCACertificateAuthoritySubject.hs b/library-gen/Stratosphere/ResourceProperties/ACMPCACertificateAuthoritySubject.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ACMPCACertificateAuthoritySubject.hs +++ /dev/null @@ -1,129 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-subject.html - -module Stratosphere.ResourceProperties.ACMPCACertificateAuthoritySubject where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ACMPCACertificateAuthoritySubject. See --- 'acmpcaCertificateAuthoritySubject' for a more convenient constructor. -data ACMPCACertificateAuthoritySubject = - ACMPCACertificateAuthoritySubject - { _aCMPCACertificateAuthoritySubjectCommonName :: Maybe (Val Text) - , _aCMPCACertificateAuthoritySubjectCountry :: Maybe (Val Text) - , _aCMPCACertificateAuthoritySubjectDistinguishedNameQualifier :: Maybe (Val Text) - , _aCMPCACertificateAuthoritySubjectGenerationQualifier :: Maybe (Val Text) - , _aCMPCACertificateAuthoritySubjectGivenName :: Maybe (Val Text) - , _aCMPCACertificateAuthoritySubjectInitials :: Maybe (Val Text) - , _aCMPCACertificateAuthoritySubjectLocality :: Maybe (Val Text) - , _aCMPCACertificateAuthoritySubjectOrganization :: Maybe (Val Text) - , _aCMPCACertificateAuthoritySubjectOrganizationalUnit :: Maybe (Val Text) - , _aCMPCACertificateAuthoritySubjectPseudonym :: Maybe (Val Text) - , _aCMPCACertificateAuthoritySubjectSerialNumber :: Maybe (Val Text) - , _aCMPCACertificateAuthoritySubjectState :: Maybe (Val Text) - , _aCMPCACertificateAuthoritySubjectSurname :: Maybe (Val Text) - , _aCMPCACertificateAuthoritySubjectTitle :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ACMPCACertificateAuthoritySubject where - toJSON ACMPCACertificateAuthoritySubject{..} = - object $ - catMaybes - [ fmap (("CommonName",) . toJSON) _aCMPCACertificateAuthoritySubjectCommonName - , fmap (("Country",) . toJSON) _aCMPCACertificateAuthoritySubjectCountry - , fmap (("DistinguishedNameQualifier",) . toJSON) _aCMPCACertificateAuthoritySubjectDistinguishedNameQualifier - , fmap (("GenerationQualifier",) . toJSON) _aCMPCACertificateAuthoritySubjectGenerationQualifier - , fmap (("GivenName",) . toJSON) _aCMPCACertificateAuthoritySubjectGivenName - , fmap (("Initials",) . toJSON) _aCMPCACertificateAuthoritySubjectInitials - , fmap (("Locality",) . toJSON) _aCMPCACertificateAuthoritySubjectLocality - , fmap (("Organization",) . toJSON) _aCMPCACertificateAuthoritySubjectOrganization - , fmap (("OrganizationalUnit",) . toJSON) _aCMPCACertificateAuthoritySubjectOrganizationalUnit - , fmap (("Pseudonym",) . toJSON) _aCMPCACertificateAuthoritySubjectPseudonym - , fmap (("SerialNumber",) . toJSON) _aCMPCACertificateAuthoritySubjectSerialNumber - , fmap (("State",) . toJSON) _aCMPCACertificateAuthoritySubjectState - , fmap (("Surname",) . toJSON) _aCMPCACertificateAuthoritySubjectSurname - , fmap (("Title",) . toJSON) _aCMPCACertificateAuthoritySubjectTitle - ] - --- | Constructor for 'ACMPCACertificateAuthoritySubject' containing required --- fields as arguments. -acmpcaCertificateAuthoritySubject - :: ACMPCACertificateAuthoritySubject -acmpcaCertificateAuthoritySubject = - ACMPCACertificateAuthoritySubject - { _aCMPCACertificateAuthoritySubjectCommonName = Nothing - , _aCMPCACertificateAuthoritySubjectCountry = Nothing - , _aCMPCACertificateAuthoritySubjectDistinguishedNameQualifier = Nothing - , _aCMPCACertificateAuthoritySubjectGenerationQualifier = Nothing - , _aCMPCACertificateAuthoritySubjectGivenName = Nothing - , _aCMPCACertificateAuthoritySubjectInitials = Nothing - , _aCMPCACertificateAuthoritySubjectLocality = Nothing - , _aCMPCACertificateAuthoritySubjectOrganization = Nothing - , _aCMPCACertificateAuthoritySubjectOrganizationalUnit = Nothing - , _aCMPCACertificateAuthoritySubjectPseudonym = Nothing - , _aCMPCACertificateAuthoritySubjectSerialNumber = Nothing - , _aCMPCACertificateAuthoritySubjectState = Nothing - , _aCMPCACertificateAuthoritySubjectSurname = Nothing - , _aCMPCACertificateAuthoritySubjectTitle = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-subject.html#cfn-acmpca-certificateauthority-subject-commonname -acmpcacasCommonName :: Lens' ACMPCACertificateAuthoritySubject (Maybe (Val Text)) -acmpcacasCommonName = lens _aCMPCACertificateAuthoritySubjectCommonName (\s a -> s { _aCMPCACertificateAuthoritySubjectCommonName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-subject.html#cfn-acmpca-certificateauthority-subject-country -acmpcacasCountry :: Lens' ACMPCACertificateAuthoritySubject (Maybe (Val Text)) -acmpcacasCountry = lens _aCMPCACertificateAuthoritySubjectCountry (\s a -> s { _aCMPCACertificateAuthoritySubjectCountry = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-subject.html#cfn-acmpca-certificateauthority-subject-distinguishednamequalifier -acmpcacasDistinguishedNameQualifier :: Lens' ACMPCACertificateAuthoritySubject (Maybe (Val Text)) -acmpcacasDistinguishedNameQualifier = lens _aCMPCACertificateAuthoritySubjectDistinguishedNameQualifier (\s a -> s { _aCMPCACertificateAuthoritySubjectDistinguishedNameQualifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-subject.html#cfn-acmpca-certificateauthority-subject-generationqualifier -acmpcacasGenerationQualifier :: Lens' ACMPCACertificateAuthoritySubject (Maybe (Val Text)) -acmpcacasGenerationQualifier = lens _aCMPCACertificateAuthoritySubjectGenerationQualifier (\s a -> s { _aCMPCACertificateAuthoritySubjectGenerationQualifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-subject.html#cfn-acmpca-certificateauthority-subject-givenname -acmpcacasGivenName :: Lens' ACMPCACertificateAuthoritySubject (Maybe (Val Text)) -acmpcacasGivenName = lens _aCMPCACertificateAuthoritySubjectGivenName (\s a -> s { _aCMPCACertificateAuthoritySubjectGivenName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-subject.html#cfn-acmpca-certificateauthority-subject-initials -acmpcacasInitials :: Lens' ACMPCACertificateAuthoritySubject (Maybe (Val Text)) -acmpcacasInitials = lens _aCMPCACertificateAuthoritySubjectInitials (\s a -> s { _aCMPCACertificateAuthoritySubjectInitials = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-subject.html#cfn-acmpca-certificateauthority-subject-locality -acmpcacasLocality :: Lens' ACMPCACertificateAuthoritySubject (Maybe (Val Text)) -acmpcacasLocality = lens _aCMPCACertificateAuthoritySubjectLocality (\s a -> s { _aCMPCACertificateAuthoritySubjectLocality = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-subject.html#cfn-acmpca-certificateauthority-subject-organization -acmpcacasOrganization :: Lens' ACMPCACertificateAuthoritySubject (Maybe (Val Text)) -acmpcacasOrganization = lens _aCMPCACertificateAuthoritySubjectOrganization (\s a -> s { _aCMPCACertificateAuthoritySubjectOrganization = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-subject.html#cfn-acmpca-certificateauthority-subject-organizationalunit -acmpcacasOrganizationalUnit :: Lens' ACMPCACertificateAuthoritySubject (Maybe (Val Text)) -acmpcacasOrganizationalUnit = lens _aCMPCACertificateAuthoritySubjectOrganizationalUnit (\s a -> s { _aCMPCACertificateAuthoritySubjectOrganizationalUnit = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-subject.html#cfn-acmpca-certificateauthority-subject-pseudonym -acmpcacasPseudonym :: Lens' ACMPCACertificateAuthoritySubject (Maybe (Val Text)) -acmpcacasPseudonym = lens _aCMPCACertificateAuthoritySubjectPseudonym (\s a -> s { _aCMPCACertificateAuthoritySubjectPseudonym = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-subject.html#cfn-acmpca-certificateauthority-subject-serialnumber -acmpcacasSerialNumber :: Lens' ACMPCACertificateAuthoritySubject (Maybe (Val Text)) -acmpcacasSerialNumber = lens _aCMPCACertificateAuthoritySubjectSerialNumber (\s a -> s { _aCMPCACertificateAuthoritySubjectSerialNumber = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-subject.html#cfn-acmpca-certificateauthority-subject-state -acmpcacasState :: Lens' ACMPCACertificateAuthoritySubject (Maybe (Val Text)) -acmpcacasState = lens _aCMPCACertificateAuthoritySubjectState (\s a -> s { _aCMPCACertificateAuthoritySubjectState = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-subject.html#cfn-acmpca-certificateauthority-subject-surname -acmpcacasSurname :: Lens' ACMPCACertificateAuthoritySubject (Maybe (Val Text)) -acmpcacasSurname = lens _aCMPCACertificateAuthoritySubjectSurname (\s a -> s { _aCMPCACertificateAuthoritySubjectSurname = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificateauthority-subject.html#cfn-acmpca-certificateauthority-subject-title -acmpcacasTitle :: Lens' ACMPCACertificateAuthoritySubject (Maybe (Val Text)) -acmpcacasTitle = lens _aCMPCACertificateAuthoritySubjectTitle (\s a -> s { _aCMPCACertificateAuthoritySubjectTitle = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ACMPCACertificateValidity.hs b/library-gen/Stratosphere/ResourceProperties/ACMPCACertificateValidity.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ACMPCACertificateValidity.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificate-validity.html - -module Stratosphere.ResourceProperties.ACMPCACertificateValidity where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ACMPCACertificateValidity. See --- 'acmpcaCertificateValidity' for a more convenient constructor. -data ACMPCACertificateValidity = - ACMPCACertificateValidity - { _aCMPCACertificateValidityType :: Val Text - , _aCMPCACertificateValidityValue :: Val Integer - } deriving (Show, Eq) - -instance ToJSON ACMPCACertificateValidity where - toJSON ACMPCACertificateValidity{..} = - object $ - catMaybes - [ (Just . ("Type",) . toJSON) _aCMPCACertificateValidityType - , (Just . ("Value",) . toJSON) _aCMPCACertificateValidityValue - ] - --- | Constructor for 'ACMPCACertificateValidity' containing required fields as --- arguments. -acmpcaCertificateValidity - :: Val Text -- ^ 'acmpcacvType' - -> Val Integer -- ^ 'acmpcacvValue' - -> ACMPCACertificateValidity -acmpcaCertificateValidity typearg valuearg = - ACMPCACertificateValidity - { _aCMPCACertificateValidityType = typearg - , _aCMPCACertificateValidityValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificate-validity.html#cfn-acmpca-certificate-validity-type -acmpcacvType :: Lens' ACMPCACertificateValidity (Val Text) -acmpcacvType = lens _aCMPCACertificateValidityType (\s a -> s { _aCMPCACertificateValidityType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-acmpca-certificate-validity.html#cfn-acmpca-certificate-validity-value -acmpcacvValue :: Lens' ACMPCACertificateValidity (Val Integer) -acmpcacvValue = lens _aCMPCACertificateValidityValue (\s a -> s { _aCMPCACertificateValidityValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ASKSkillAuthenticationConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ASKSkillAuthenticationConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ASKSkillAuthenticationConfiguration.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ask-skill-authenticationconfiguration.html - -module Stratosphere.ResourceProperties.ASKSkillAuthenticationConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ASKSkillAuthenticationConfiguration. See --- 'askSkillAuthenticationConfiguration' for a more convenient constructor. -data ASKSkillAuthenticationConfiguration = - ASKSkillAuthenticationConfiguration - { _aSKSkillAuthenticationConfigurationClientId :: Val Text - , _aSKSkillAuthenticationConfigurationClientSecret :: Val Text - , _aSKSkillAuthenticationConfigurationRefreshToken :: Val Text - } deriving (Show, Eq) - -instance ToJSON ASKSkillAuthenticationConfiguration where - toJSON ASKSkillAuthenticationConfiguration{..} = - object $ - catMaybes - [ (Just . ("ClientId",) . toJSON) _aSKSkillAuthenticationConfigurationClientId - , (Just . ("ClientSecret",) . toJSON) _aSKSkillAuthenticationConfigurationClientSecret - , (Just . ("RefreshToken",) . toJSON) _aSKSkillAuthenticationConfigurationRefreshToken - ] - --- | Constructor for 'ASKSkillAuthenticationConfiguration' containing required --- fields as arguments. -askSkillAuthenticationConfiguration - :: Val Text -- ^ 'asksacClientId' - -> Val Text -- ^ 'asksacClientSecret' - -> Val Text -- ^ 'asksacRefreshToken' - -> ASKSkillAuthenticationConfiguration -askSkillAuthenticationConfiguration clientIdarg clientSecretarg refreshTokenarg = - ASKSkillAuthenticationConfiguration - { _aSKSkillAuthenticationConfigurationClientId = clientIdarg - , _aSKSkillAuthenticationConfigurationClientSecret = clientSecretarg - , _aSKSkillAuthenticationConfigurationRefreshToken = refreshTokenarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ask-skill-authenticationconfiguration.html#cfn-ask-skill-authenticationconfiguration-clientid -asksacClientId :: Lens' ASKSkillAuthenticationConfiguration (Val Text) -asksacClientId = lens _aSKSkillAuthenticationConfigurationClientId (\s a -> s { _aSKSkillAuthenticationConfigurationClientId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ask-skill-authenticationconfiguration.html#cfn-ask-skill-authenticationconfiguration-clientsecret -asksacClientSecret :: Lens' ASKSkillAuthenticationConfiguration (Val Text) -asksacClientSecret = lens _aSKSkillAuthenticationConfigurationClientSecret (\s a -> s { _aSKSkillAuthenticationConfigurationClientSecret = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ask-skill-authenticationconfiguration.html#cfn-ask-skill-authenticationconfiguration-refreshtoken -asksacRefreshToken :: Lens' ASKSkillAuthenticationConfiguration (Val Text) -asksacRefreshToken = lens _aSKSkillAuthenticationConfigurationRefreshToken (\s a -> s { _aSKSkillAuthenticationConfigurationRefreshToken = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ASKSkillOverrides.hs b/library-gen/Stratosphere/ResourceProperties/ASKSkillOverrides.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ASKSkillOverrides.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ask-skill-overrides.html - -module Stratosphere.ResourceProperties.ASKSkillOverrides where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ASKSkillOverrides. See 'askSkillOverrides' --- for a more convenient constructor. -data ASKSkillOverrides = - ASKSkillOverrides - { _aSKSkillOverridesManifest :: Maybe Object - } deriving (Show, Eq) - -instance ToJSON ASKSkillOverrides where - toJSON ASKSkillOverrides{..} = - object $ - catMaybes - [ fmap (("Manifest",) . toJSON) _aSKSkillOverridesManifest - ] - --- | Constructor for 'ASKSkillOverrides' containing required fields as --- arguments. -askSkillOverrides - :: ASKSkillOverrides -askSkillOverrides = - ASKSkillOverrides - { _aSKSkillOverridesManifest = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ask-skill-overrides.html#cfn-ask-skill-overrides-manifest -asksoManifest :: Lens' ASKSkillOverrides (Maybe Object) -asksoManifest = lens _aSKSkillOverridesManifest (\s a -> s { _aSKSkillOverridesManifest = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ASKSkillSkillPackage.hs b/library-gen/Stratosphere/ResourceProperties/ASKSkillSkillPackage.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ASKSkillSkillPackage.hs +++ /dev/null @@ -1,68 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ask-skill-skillpackage.html - -module Stratosphere.ResourceProperties.ASKSkillSkillPackage where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ASKSkillOverrides - --- | Full data type definition for ASKSkillSkillPackage. See --- 'askSkillSkillPackage' for a more convenient constructor. -data ASKSkillSkillPackage = - ASKSkillSkillPackage - { _aSKSkillSkillPackageOverrides :: Maybe ASKSkillOverrides - , _aSKSkillSkillPackageS3Bucket :: Val Text - , _aSKSkillSkillPackageS3BucketRole :: Maybe (Val Text) - , _aSKSkillSkillPackageS3Key :: Val Text - , _aSKSkillSkillPackageS3ObjectVersion :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ASKSkillSkillPackage where - toJSON ASKSkillSkillPackage{..} = - object $ - catMaybes - [ fmap (("Overrides",) . toJSON) _aSKSkillSkillPackageOverrides - , (Just . ("S3Bucket",) . toJSON) _aSKSkillSkillPackageS3Bucket - , fmap (("S3BucketRole",) . toJSON) _aSKSkillSkillPackageS3BucketRole - , (Just . ("S3Key",) . toJSON) _aSKSkillSkillPackageS3Key - , fmap (("S3ObjectVersion",) . toJSON) _aSKSkillSkillPackageS3ObjectVersion - ] - --- | Constructor for 'ASKSkillSkillPackage' containing required fields as --- arguments. -askSkillSkillPackage - :: Val Text -- ^ 'asksspS3Bucket' - -> Val Text -- ^ 'asksspS3Key' - -> ASKSkillSkillPackage -askSkillSkillPackage s3Bucketarg s3Keyarg = - ASKSkillSkillPackage - { _aSKSkillSkillPackageOverrides = Nothing - , _aSKSkillSkillPackageS3Bucket = s3Bucketarg - , _aSKSkillSkillPackageS3BucketRole = Nothing - , _aSKSkillSkillPackageS3Key = s3Keyarg - , _aSKSkillSkillPackageS3ObjectVersion = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ask-skill-skillpackage.html#cfn-ask-skill-skillpackage-overrides -asksspOverrides :: Lens' ASKSkillSkillPackage (Maybe ASKSkillOverrides) -asksspOverrides = lens _aSKSkillSkillPackageOverrides (\s a -> s { _aSKSkillSkillPackageOverrides = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ask-skill-skillpackage.html#cfn-ask-skill-skillpackage-s3bucket -asksspS3Bucket :: Lens' ASKSkillSkillPackage (Val Text) -asksspS3Bucket = lens _aSKSkillSkillPackageS3Bucket (\s a -> s { _aSKSkillSkillPackageS3Bucket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ask-skill-skillpackage.html#cfn-ask-skill-skillpackage-s3bucketrole -asksspS3BucketRole :: Lens' ASKSkillSkillPackage (Maybe (Val Text)) -asksspS3BucketRole = lens _aSKSkillSkillPackageS3BucketRole (\s a -> s { _aSKSkillSkillPackageS3BucketRole = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ask-skill-skillpackage.html#cfn-ask-skill-skillpackage-s3key -asksspS3Key :: Lens' ASKSkillSkillPackage (Val Text) -asksspS3Key = lens _aSKSkillSkillPackageS3Key (\s a -> s { _aSKSkillSkillPackageS3Key = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ask-skill-skillpackage.html#cfn-ask-skill-skillpackage-s3objectversion -asksspS3ObjectVersion :: Lens' ASKSkillSkillPackage (Maybe (Val Text)) -asksspS3ObjectVersion = lens _aSKSkillSkillPackageS3ObjectVersion (\s a -> s { _aSKSkillSkillPackageS3ObjectVersion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AccessAnalyzerAnalyzerArchiveRule.hs b/library-gen/Stratosphere/ResourceProperties/AccessAnalyzerAnalyzerArchiveRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AccessAnalyzerAnalyzerArchiveRule.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-accessanalyzer-analyzer-archiverule.html - -module Stratosphere.ResourceProperties.AccessAnalyzerAnalyzerArchiveRule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AccessAnalyzerAnalyzerFilter - --- | Full data type definition for AccessAnalyzerAnalyzerArchiveRule. See --- 'accessAnalyzerAnalyzerArchiveRule' for a more convenient constructor. -data AccessAnalyzerAnalyzerArchiveRule = - AccessAnalyzerAnalyzerArchiveRule - { _accessAnalyzerAnalyzerArchiveRuleFilter :: [AccessAnalyzerAnalyzerFilter] - , _accessAnalyzerAnalyzerArchiveRuleRuleName :: Val Text - } deriving (Show, Eq) - -instance ToJSON AccessAnalyzerAnalyzerArchiveRule where - toJSON AccessAnalyzerAnalyzerArchiveRule{..} = - object $ - catMaybes - [ (Just . ("Filter",) . toJSON) _accessAnalyzerAnalyzerArchiveRuleFilter - , (Just . ("RuleName",) . toJSON) _accessAnalyzerAnalyzerArchiveRuleRuleName - ] - --- | Constructor for 'AccessAnalyzerAnalyzerArchiveRule' containing required --- fields as arguments. -accessAnalyzerAnalyzerArchiveRule - :: [AccessAnalyzerAnalyzerFilter] -- ^ 'aaaarFilter' - -> Val Text -- ^ 'aaaarRuleName' - -> AccessAnalyzerAnalyzerArchiveRule -accessAnalyzerAnalyzerArchiveRule filterarg ruleNamearg = - AccessAnalyzerAnalyzerArchiveRule - { _accessAnalyzerAnalyzerArchiveRuleFilter = filterarg - , _accessAnalyzerAnalyzerArchiveRuleRuleName = ruleNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-accessanalyzer-analyzer-archiverule.html#cfn-accessanalyzer-analyzer-archiverule-filter -aaaarFilter :: Lens' AccessAnalyzerAnalyzerArchiveRule [AccessAnalyzerAnalyzerFilter] -aaaarFilter = lens _accessAnalyzerAnalyzerArchiveRuleFilter (\s a -> s { _accessAnalyzerAnalyzerArchiveRuleFilter = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-accessanalyzer-analyzer-archiverule.html#cfn-accessanalyzer-analyzer-archiverule-rulename -aaaarRuleName :: Lens' AccessAnalyzerAnalyzerArchiveRule (Val Text) -aaaarRuleName = lens _accessAnalyzerAnalyzerArchiveRuleRuleName (\s a -> s { _accessAnalyzerAnalyzerArchiveRuleRuleName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AccessAnalyzerAnalyzerFilter.hs b/library-gen/Stratosphere/ResourceProperties/AccessAnalyzerAnalyzerFilter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AccessAnalyzerAnalyzerFilter.hs +++ /dev/null @@ -1,67 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-accessanalyzer-analyzer-filter.html - -module Stratosphere.ResourceProperties.AccessAnalyzerAnalyzerFilter where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AccessAnalyzerAnalyzerFilter. See --- 'accessAnalyzerAnalyzerFilter' for a more convenient constructor. -data AccessAnalyzerAnalyzerFilter = - AccessAnalyzerAnalyzerFilter - { _accessAnalyzerAnalyzerFilterContains :: Maybe (ValList Text) - , _accessAnalyzerAnalyzerFilterEq :: Maybe (ValList Text) - , _accessAnalyzerAnalyzerFilterExists :: Maybe (Val Bool) - , _accessAnalyzerAnalyzerFilterNeq :: Maybe (ValList Text) - , _accessAnalyzerAnalyzerFilterProperty :: Val Text - } deriving (Show, Eq) - -instance ToJSON AccessAnalyzerAnalyzerFilter where - toJSON AccessAnalyzerAnalyzerFilter{..} = - object $ - catMaybes - [ fmap (("Contains",) . toJSON) _accessAnalyzerAnalyzerFilterContains - , fmap (("Eq",) . toJSON) _accessAnalyzerAnalyzerFilterEq - , fmap (("Exists",) . toJSON) _accessAnalyzerAnalyzerFilterExists - , fmap (("Neq",) . toJSON) _accessAnalyzerAnalyzerFilterNeq - , (Just . ("Property",) . toJSON) _accessAnalyzerAnalyzerFilterProperty - ] - --- | Constructor for 'AccessAnalyzerAnalyzerFilter' containing required fields --- as arguments. -accessAnalyzerAnalyzerFilter - :: Val Text -- ^ 'aaafProperty' - -> AccessAnalyzerAnalyzerFilter -accessAnalyzerAnalyzerFilter propertyarg = - AccessAnalyzerAnalyzerFilter - { _accessAnalyzerAnalyzerFilterContains = Nothing - , _accessAnalyzerAnalyzerFilterEq = Nothing - , _accessAnalyzerAnalyzerFilterExists = Nothing - , _accessAnalyzerAnalyzerFilterNeq = Nothing - , _accessAnalyzerAnalyzerFilterProperty = propertyarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-accessanalyzer-analyzer-filter.html#cfn-accessanalyzer-analyzer-filter-contains -aaafContains :: Lens' AccessAnalyzerAnalyzerFilter (Maybe (ValList Text)) -aaafContains = lens _accessAnalyzerAnalyzerFilterContains (\s a -> s { _accessAnalyzerAnalyzerFilterContains = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-accessanalyzer-analyzer-filter.html#cfn-accessanalyzer-analyzer-filter-eq -aaafEq :: Lens' AccessAnalyzerAnalyzerFilter (Maybe (ValList Text)) -aaafEq = lens _accessAnalyzerAnalyzerFilterEq (\s a -> s { _accessAnalyzerAnalyzerFilterEq = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-accessanalyzer-analyzer-filter.html#cfn-accessanalyzer-analyzer-filter-exists -aaafExists :: Lens' AccessAnalyzerAnalyzerFilter (Maybe (Val Bool)) -aaafExists = lens _accessAnalyzerAnalyzerFilterExists (\s a -> s { _accessAnalyzerAnalyzerFilterExists = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-accessanalyzer-analyzer-filter.html#cfn-accessanalyzer-analyzer-filter-neq -aaafNeq :: Lens' AccessAnalyzerAnalyzerFilter (Maybe (ValList Text)) -aaafNeq = lens _accessAnalyzerAnalyzerFilterNeq (\s a -> s { _accessAnalyzerAnalyzerFilterNeq = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-accessanalyzer-analyzer-filter.html#cfn-accessanalyzer-analyzer-filter-property -aaafProperty :: Lens' AccessAnalyzerAnalyzerFilter (Val Text) -aaafProperty = lens _accessAnalyzerAnalyzerFilterProperty (\s a -> s { _accessAnalyzerAnalyzerFilterProperty = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerConfigurationId.hs b/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerConfigurationId.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerConfigurationId.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-configurationid.html - -module Stratosphere.ResourceProperties.AmazonMQBrokerConfigurationId where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AmazonMQBrokerConfigurationId. See --- 'amazonMQBrokerConfigurationId' for a more convenient constructor. -data AmazonMQBrokerConfigurationId = - AmazonMQBrokerConfigurationId - { _amazonMQBrokerConfigurationIdId :: Val Text - , _amazonMQBrokerConfigurationIdRevision :: Val Integer - } deriving (Show, Eq) - -instance ToJSON AmazonMQBrokerConfigurationId where - toJSON AmazonMQBrokerConfigurationId{..} = - object $ - catMaybes - [ (Just . ("Id",) . toJSON) _amazonMQBrokerConfigurationIdId - , (Just . ("Revision",) . toJSON) _amazonMQBrokerConfigurationIdRevision - ] - --- | Constructor for 'AmazonMQBrokerConfigurationId' containing required --- fields as arguments. -amazonMQBrokerConfigurationId - :: Val Text -- ^ 'amqbciId' - -> Val Integer -- ^ 'amqbciRevision' - -> AmazonMQBrokerConfigurationId -amazonMQBrokerConfigurationId idarg revisionarg = - AmazonMQBrokerConfigurationId - { _amazonMQBrokerConfigurationIdId = idarg - , _amazonMQBrokerConfigurationIdRevision = revisionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-configurationid.html#cfn-amazonmq-broker-configurationid-id -amqbciId :: Lens' AmazonMQBrokerConfigurationId (Val Text) -amqbciId = lens _amazonMQBrokerConfigurationIdId (\s a -> s { _amazonMQBrokerConfigurationIdId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-configurationid.html#cfn-amazonmq-broker-configurationid-revision -amqbciRevision :: Lens' AmazonMQBrokerConfigurationId (Val Integer) -amqbciRevision = lens _amazonMQBrokerConfigurationIdRevision (\s a -> s { _amazonMQBrokerConfigurationIdRevision = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerEncryptionOptions.hs b/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerEncryptionOptions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerEncryptionOptions.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-encryptionoptions.html - -module Stratosphere.ResourceProperties.AmazonMQBrokerEncryptionOptions where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AmazonMQBrokerEncryptionOptions. See --- 'amazonMQBrokerEncryptionOptions' for a more convenient constructor. -data AmazonMQBrokerEncryptionOptions = - AmazonMQBrokerEncryptionOptions - { _amazonMQBrokerEncryptionOptionsKmsKeyId :: Maybe (Val Text) - , _amazonMQBrokerEncryptionOptionsUseAwsOwnedKey :: Val Bool - } deriving (Show, Eq) - -instance ToJSON AmazonMQBrokerEncryptionOptions where - toJSON AmazonMQBrokerEncryptionOptions{..} = - object $ - catMaybes - [ fmap (("KmsKeyId",) . toJSON) _amazonMQBrokerEncryptionOptionsKmsKeyId - , (Just . ("UseAwsOwnedKey",) . toJSON) _amazonMQBrokerEncryptionOptionsUseAwsOwnedKey - ] - --- | Constructor for 'AmazonMQBrokerEncryptionOptions' containing required --- fields as arguments. -amazonMQBrokerEncryptionOptions - :: Val Bool -- ^ 'amqbeoUseAwsOwnedKey' - -> AmazonMQBrokerEncryptionOptions -amazonMQBrokerEncryptionOptions useAwsOwnedKeyarg = - AmazonMQBrokerEncryptionOptions - { _amazonMQBrokerEncryptionOptionsKmsKeyId = Nothing - , _amazonMQBrokerEncryptionOptionsUseAwsOwnedKey = useAwsOwnedKeyarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-encryptionoptions.html#cfn-amazonmq-broker-encryptionoptions-kmskeyid -amqbeoKmsKeyId :: Lens' AmazonMQBrokerEncryptionOptions (Maybe (Val Text)) -amqbeoKmsKeyId = lens _amazonMQBrokerEncryptionOptionsKmsKeyId (\s a -> s { _amazonMQBrokerEncryptionOptionsKmsKeyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-encryptionoptions.html#cfn-amazonmq-broker-encryptionoptions-useawsownedkey -amqbeoUseAwsOwnedKey :: Lens' AmazonMQBrokerEncryptionOptions (Val Bool) -amqbeoUseAwsOwnedKey = lens _amazonMQBrokerEncryptionOptionsUseAwsOwnedKey (\s a -> s { _amazonMQBrokerEncryptionOptionsUseAwsOwnedKey = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerInterBrokerCred.hs b/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerInterBrokerCred.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerInterBrokerCred.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-interbrokercred.html - -module Stratosphere.ResourceProperties.AmazonMQBrokerInterBrokerCred where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AmazonMQBrokerInterBrokerCred. See --- 'amazonMQBrokerInterBrokerCred' for a more convenient constructor. -data AmazonMQBrokerInterBrokerCred = - AmazonMQBrokerInterBrokerCred - { _amazonMQBrokerInterBrokerCredPassword :: Val Text - , _amazonMQBrokerInterBrokerCredUsername :: Val Text - } deriving (Show, Eq) - -instance ToJSON AmazonMQBrokerInterBrokerCred where - toJSON AmazonMQBrokerInterBrokerCred{..} = - object $ - catMaybes - [ (Just . ("Password",) . toJSON) _amazonMQBrokerInterBrokerCredPassword - , (Just . ("Username",) . toJSON) _amazonMQBrokerInterBrokerCredUsername - ] - --- | Constructor for 'AmazonMQBrokerInterBrokerCred' containing required --- fields as arguments. -amazonMQBrokerInterBrokerCred - :: Val Text -- ^ 'amqbibcPassword' - -> Val Text -- ^ 'amqbibcUsername' - -> AmazonMQBrokerInterBrokerCred -amazonMQBrokerInterBrokerCred passwordarg usernamearg = - AmazonMQBrokerInterBrokerCred - { _amazonMQBrokerInterBrokerCredPassword = passwordarg - , _amazonMQBrokerInterBrokerCredUsername = usernamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-interbrokercred.html#cfn-amazonmq-broker-interbrokercred-password -amqbibcPassword :: Lens' AmazonMQBrokerInterBrokerCred (Val Text) -amqbibcPassword = lens _amazonMQBrokerInterBrokerCredPassword (\s a -> s { _amazonMQBrokerInterBrokerCredPassword = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-interbrokercred.html#cfn-amazonmq-broker-interbrokercred-username -amqbibcUsername :: Lens' AmazonMQBrokerInterBrokerCred (Val Text) -amqbibcUsername = lens _amazonMQBrokerInterBrokerCredUsername (\s a -> s { _amazonMQBrokerInterBrokerCredUsername = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerLdapMetadata.hs b/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerLdapMetadata.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerLdapMetadata.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapmetadata.html - -module Stratosphere.ResourceProperties.AmazonMQBrokerLdapMetadata where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AmazonMQBrokerInterBrokerCred -import Stratosphere.ResourceProperties.AmazonMQBrokerServerMetadata - --- | Full data type definition for AmazonMQBrokerLdapMetadata. See --- 'amazonMQBrokerLdapMetadata' for a more convenient constructor. -data AmazonMQBrokerLdapMetadata = - AmazonMQBrokerLdapMetadata - { _amazonMQBrokerLdapMetadataInterBrokerCreds :: Maybe [AmazonMQBrokerInterBrokerCred] - , _amazonMQBrokerLdapMetadataServerMetadata :: AmazonMQBrokerServerMetadata - } deriving (Show, Eq) - -instance ToJSON AmazonMQBrokerLdapMetadata where - toJSON AmazonMQBrokerLdapMetadata{..} = - object $ - catMaybes - [ fmap (("InterBrokerCreds",) . toJSON) _amazonMQBrokerLdapMetadataInterBrokerCreds - , (Just . ("ServerMetadata",) . toJSON) _amazonMQBrokerLdapMetadataServerMetadata - ] - --- | Constructor for 'AmazonMQBrokerLdapMetadata' containing required fields --- as arguments. -amazonMQBrokerLdapMetadata - :: AmazonMQBrokerServerMetadata -- ^ 'amqblmServerMetadata' - -> AmazonMQBrokerLdapMetadata -amazonMQBrokerLdapMetadata serverMetadataarg = - AmazonMQBrokerLdapMetadata - { _amazonMQBrokerLdapMetadataInterBrokerCreds = Nothing - , _amazonMQBrokerLdapMetadataServerMetadata = serverMetadataarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapmetadata.html#cfn-amazonmq-broker-ldapmetadata-interbrokercreds -amqblmInterBrokerCreds :: Lens' AmazonMQBrokerLdapMetadata (Maybe [AmazonMQBrokerInterBrokerCred]) -amqblmInterBrokerCreds = lens _amazonMQBrokerLdapMetadataInterBrokerCreds (\s a -> s { _amazonMQBrokerLdapMetadataInterBrokerCreds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapmetadata.html#cfn-amazonmq-broker-ldapmetadata-servermetadata -amqblmServerMetadata :: Lens' AmazonMQBrokerLdapMetadata AmazonMQBrokerServerMetadata -amqblmServerMetadata = lens _amazonMQBrokerLdapMetadataServerMetadata (\s a -> s { _amazonMQBrokerLdapMetadataServerMetadata = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerLdapServerMetadata.hs b/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerLdapServerMetadata.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerLdapServerMetadata.hs +++ /dev/null @@ -1,115 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapservermetadata.html - -module Stratosphere.ResourceProperties.AmazonMQBrokerLdapServerMetadata where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AmazonMQBrokerLdapServerMetadata. See --- 'amazonMQBrokerLdapServerMetadata' for a more convenient constructor. -data AmazonMQBrokerLdapServerMetadata = - AmazonMQBrokerLdapServerMetadata - { _amazonMQBrokerLdapServerMetadataHosts :: ValList Text - , _amazonMQBrokerLdapServerMetadataRoleBase :: Val Text - , _amazonMQBrokerLdapServerMetadataRoleName :: Maybe (Val Text) - , _amazonMQBrokerLdapServerMetadataRoleSearchMatching :: Val Text - , _amazonMQBrokerLdapServerMetadataRoleSearchSubtree :: Maybe (Val Bool) - , _amazonMQBrokerLdapServerMetadataServiceAccountPassword :: Val Text - , _amazonMQBrokerLdapServerMetadataServiceAccountUsername :: Val Text - , _amazonMQBrokerLdapServerMetadataUserBase :: Val Text - , _amazonMQBrokerLdapServerMetadataUserRoleName :: Maybe (Val Text) - , _amazonMQBrokerLdapServerMetadataUserSearchMatching :: Val Text - , _amazonMQBrokerLdapServerMetadataUserSearchSubtree :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON AmazonMQBrokerLdapServerMetadata where - toJSON AmazonMQBrokerLdapServerMetadata{..} = - object $ - catMaybes - [ (Just . ("Hosts",) . toJSON) _amazonMQBrokerLdapServerMetadataHosts - , (Just . ("RoleBase",) . toJSON) _amazonMQBrokerLdapServerMetadataRoleBase - , fmap (("RoleName",) . toJSON) _amazonMQBrokerLdapServerMetadataRoleName - , (Just . ("RoleSearchMatching",) . toJSON) _amazonMQBrokerLdapServerMetadataRoleSearchMatching - , fmap (("RoleSearchSubtree",) . toJSON) _amazonMQBrokerLdapServerMetadataRoleSearchSubtree - , (Just . ("ServiceAccountPassword",) . toJSON) _amazonMQBrokerLdapServerMetadataServiceAccountPassword - , (Just . ("ServiceAccountUsername",) . toJSON) _amazonMQBrokerLdapServerMetadataServiceAccountUsername - , (Just . ("UserBase",) . toJSON) _amazonMQBrokerLdapServerMetadataUserBase - , fmap (("UserRoleName",) . toJSON) _amazonMQBrokerLdapServerMetadataUserRoleName - , (Just . ("UserSearchMatching",) . toJSON) _amazonMQBrokerLdapServerMetadataUserSearchMatching - , fmap (("UserSearchSubtree",) . toJSON) _amazonMQBrokerLdapServerMetadataUserSearchSubtree - ] - --- | Constructor for 'AmazonMQBrokerLdapServerMetadata' containing required --- fields as arguments. -amazonMQBrokerLdapServerMetadata - :: ValList Text -- ^ 'amqblsmHosts' - -> Val Text -- ^ 'amqblsmRoleBase' - -> Val Text -- ^ 'amqblsmRoleSearchMatching' - -> Val Text -- ^ 'amqblsmServiceAccountPassword' - -> Val Text -- ^ 'amqblsmServiceAccountUsername' - -> Val Text -- ^ 'amqblsmUserBase' - -> Val Text -- ^ 'amqblsmUserSearchMatching' - -> AmazonMQBrokerLdapServerMetadata -amazonMQBrokerLdapServerMetadata hostsarg roleBasearg roleSearchMatchingarg serviceAccountPasswordarg serviceAccountUsernamearg userBasearg userSearchMatchingarg = - AmazonMQBrokerLdapServerMetadata - { _amazonMQBrokerLdapServerMetadataHosts = hostsarg - , _amazonMQBrokerLdapServerMetadataRoleBase = roleBasearg - , _amazonMQBrokerLdapServerMetadataRoleName = Nothing - , _amazonMQBrokerLdapServerMetadataRoleSearchMatching = roleSearchMatchingarg - , _amazonMQBrokerLdapServerMetadataRoleSearchSubtree = Nothing - , _amazonMQBrokerLdapServerMetadataServiceAccountPassword = serviceAccountPasswordarg - , _amazonMQBrokerLdapServerMetadataServiceAccountUsername = serviceAccountUsernamearg - , _amazonMQBrokerLdapServerMetadataUserBase = userBasearg - , _amazonMQBrokerLdapServerMetadataUserRoleName = Nothing - , _amazonMQBrokerLdapServerMetadataUserSearchMatching = userSearchMatchingarg - , _amazonMQBrokerLdapServerMetadataUserSearchSubtree = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapservermetadata.html#cfn-amazonmq-broker-ldapservermetadata-hosts -amqblsmHosts :: Lens' AmazonMQBrokerLdapServerMetadata (ValList Text) -amqblsmHosts = lens _amazonMQBrokerLdapServerMetadataHosts (\s a -> s { _amazonMQBrokerLdapServerMetadataHosts = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapservermetadata.html#cfn-amazonmq-broker-ldapservermetadata-rolebase -amqblsmRoleBase :: Lens' AmazonMQBrokerLdapServerMetadata (Val Text) -amqblsmRoleBase = lens _amazonMQBrokerLdapServerMetadataRoleBase (\s a -> s { _amazonMQBrokerLdapServerMetadataRoleBase = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapservermetadata.html#cfn-amazonmq-broker-ldapservermetadata-rolename -amqblsmRoleName :: Lens' AmazonMQBrokerLdapServerMetadata (Maybe (Val Text)) -amqblsmRoleName = lens _amazonMQBrokerLdapServerMetadataRoleName (\s a -> s { _amazonMQBrokerLdapServerMetadataRoleName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapservermetadata.html#cfn-amazonmq-broker-ldapservermetadata-rolesearchmatching -amqblsmRoleSearchMatching :: Lens' AmazonMQBrokerLdapServerMetadata (Val Text) -amqblsmRoleSearchMatching = lens _amazonMQBrokerLdapServerMetadataRoleSearchMatching (\s a -> s { _amazonMQBrokerLdapServerMetadataRoleSearchMatching = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapservermetadata.html#cfn-amazonmq-broker-ldapservermetadata-rolesearchsubtree -amqblsmRoleSearchSubtree :: Lens' AmazonMQBrokerLdapServerMetadata (Maybe (Val Bool)) -amqblsmRoleSearchSubtree = lens _amazonMQBrokerLdapServerMetadataRoleSearchSubtree (\s a -> s { _amazonMQBrokerLdapServerMetadataRoleSearchSubtree = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapservermetadata.html#cfn-amazonmq-broker-ldapservermetadata-serviceaccountpassword -amqblsmServiceAccountPassword :: Lens' AmazonMQBrokerLdapServerMetadata (Val Text) -amqblsmServiceAccountPassword = lens _amazonMQBrokerLdapServerMetadataServiceAccountPassword (\s a -> s { _amazonMQBrokerLdapServerMetadataServiceAccountPassword = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapservermetadata.html#cfn-amazonmq-broker-ldapservermetadata-serviceaccountusername -amqblsmServiceAccountUsername :: Lens' AmazonMQBrokerLdapServerMetadata (Val Text) -amqblsmServiceAccountUsername = lens _amazonMQBrokerLdapServerMetadataServiceAccountUsername (\s a -> s { _amazonMQBrokerLdapServerMetadataServiceAccountUsername = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapservermetadata.html#cfn-amazonmq-broker-ldapservermetadata-userbase -amqblsmUserBase :: Lens' AmazonMQBrokerLdapServerMetadata (Val Text) -amqblsmUserBase = lens _amazonMQBrokerLdapServerMetadataUserBase (\s a -> s { _amazonMQBrokerLdapServerMetadataUserBase = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapservermetadata.html#cfn-amazonmq-broker-ldapservermetadata-userrolename -amqblsmUserRoleName :: Lens' AmazonMQBrokerLdapServerMetadata (Maybe (Val Text)) -amqblsmUserRoleName = lens _amazonMQBrokerLdapServerMetadataUserRoleName (\s a -> s { _amazonMQBrokerLdapServerMetadataUserRoleName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapservermetadata.html#cfn-amazonmq-broker-ldapservermetadata-usersearchmatching -amqblsmUserSearchMatching :: Lens' AmazonMQBrokerLdapServerMetadata (Val Text) -amqblsmUserSearchMatching = lens _amazonMQBrokerLdapServerMetadataUserSearchMatching (\s a -> s { _amazonMQBrokerLdapServerMetadataUserSearchMatching = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-ldapservermetadata.html#cfn-amazonmq-broker-ldapservermetadata-usersearchsubtree -amqblsmUserSearchSubtree :: Lens' AmazonMQBrokerLdapServerMetadata (Maybe (Val Bool)) -amqblsmUserSearchSubtree = lens _amazonMQBrokerLdapServerMetadataUserSearchSubtree (\s a -> s { _amazonMQBrokerLdapServerMetadataUserSearchSubtree = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerLogList.hs b/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerLogList.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerLogList.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-loglist.html - -module Stratosphere.ResourceProperties.AmazonMQBrokerLogList where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AmazonMQBrokerLogList. See --- 'amazonMQBrokerLogList' for a more convenient constructor. -data AmazonMQBrokerLogList = - AmazonMQBrokerLogList - { _amazonMQBrokerLogListAudit :: Maybe (Val Bool) - , _amazonMQBrokerLogListGeneral :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON AmazonMQBrokerLogList where - toJSON AmazonMQBrokerLogList{..} = - object $ - catMaybes - [ fmap (("Audit",) . toJSON) _amazonMQBrokerLogListAudit - , fmap (("General",) . toJSON) _amazonMQBrokerLogListGeneral - ] - --- | Constructor for 'AmazonMQBrokerLogList' containing required fields as --- arguments. -amazonMQBrokerLogList - :: AmazonMQBrokerLogList -amazonMQBrokerLogList = - AmazonMQBrokerLogList - { _amazonMQBrokerLogListAudit = Nothing - , _amazonMQBrokerLogListGeneral = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-loglist.html#cfn-amazonmq-broker-loglist-audit -amqbllAudit :: Lens' AmazonMQBrokerLogList (Maybe (Val Bool)) -amqbllAudit = lens _amazonMQBrokerLogListAudit (\s a -> s { _amazonMQBrokerLogListAudit = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-loglist.html#cfn-amazonmq-broker-loglist-general -amqbllGeneral :: Lens' AmazonMQBrokerLogList (Maybe (Val Bool)) -amqbllGeneral = lens _amazonMQBrokerLogListGeneral (\s a -> s { _amazonMQBrokerLogListGeneral = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerMaintenanceWindow.hs b/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerMaintenanceWindow.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerMaintenanceWindow.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-maintenancewindow.html - -module Stratosphere.ResourceProperties.AmazonMQBrokerMaintenanceWindow where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AmazonMQBrokerMaintenanceWindow. See --- 'amazonMQBrokerMaintenanceWindow' for a more convenient constructor. -data AmazonMQBrokerMaintenanceWindow = - AmazonMQBrokerMaintenanceWindow - { _amazonMQBrokerMaintenanceWindowDayOfWeek :: Val Text - , _amazonMQBrokerMaintenanceWindowTimeOfDay :: Val Text - , _amazonMQBrokerMaintenanceWindowTimeZone :: Val Text - } deriving (Show, Eq) - -instance ToJSON AmazonMQBrokerMaintenanceWindow where - toJSON AmazonMQBrokerMaintenanceWindow{..} = - object $ - catMaybes - [ (Just . ("DayOfWeek",) . toJSON) _amazonMQBrokerMaintenanceWindowDayOfWeek - , (Just . ("TimeOfDay",) . toJSON) _amazonMQBrokerMaintenanceWindowTimeOfDay - , (Just . ("TimeZone",) . toJSON) _amazonMQBrokerMaintenanceWindowTimeZone - ] - --- | Constructor for 'AmazonMQBrokerMaintenanceWindow' containing required --- fields as arguments. -amazonMQBrokerMaintenanceWindow - :: Val Text -- ^ 'amqbmwDayOfWeek' - -> Val Text -- ^ 'amqbmwTimeOfDay' - -> Val Text -- ^ 'amqbmwTimeZone' - -> AmazonMQBrokerMaintenanceWindow -amazonMQBrokerMaintenanceWindow dayOfWeekarg timeOfDayarg timeZonearg = - AmazonMQBrokerMaintenanceWindow - { _amazonMQBrokerMaintenanceWindowDayOfWeek = dayOfWeekarg - , _amazonMQBrokerMaintenanceWindowTimeOfDay = timeOfDayarg - , _amazonMQBrokerMaintenanceWindowTimeZone = timeZonearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-maintenancewindow.html#cfn-amazonmq-broker-maintenancewindow-dayofweek -amqbmwDayOfWeek :: Lens' AmazonMQBrokerMaintenanceWindow (Val Text) -amqbmwDayOfWeek = lens _amazonMQBrokerMaintenanceWindowDayOfWeek (\s a -> s { _amazonMQBrokerMaintenanceWindowDayOfWeek = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-maintenancewindow.html#cfn-amazonmq-broker-maintenancewindow-timeofday -amqbmwTimeOfDay :: Lens' AmazonMQBrokerMaintenanceWindow (Val Text) -amqbmwTimeOfDay = lens _amazonMQBrokerMaintenanceWindowTimeOfDay (\s a -> s { _amazonMQBrokerMaintenanceWindowTimeOfDay = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-maintenancewindow.html#cfn-amazonmq-broker-maintenancewindow-timezone -amqbmwTimeZone :: Lens' AmazonMQBrokerMaintenanceWindow (Val Text) -amqbmwTimeZone = lens _amazonMQBrokerMaintenanceWindowTimeZone (\s a -> s { _amazonMQBrokerMaintenanceWindowTimeZone = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerServerMetadata.hs b/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerServerMetadata.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerServerMetadata.hs +++ /dev/null @@ -1,115 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-servermetadata.html - -module Stratosphere.ResourceProperties.AmazonMQBrokerServerMetadata where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AmazonMQBrokerServerMetadata. See --- 'amazonMQBrokerServerMetadata' for a more convenient constructor. -data AmazonMQBrokerServerMetadata = - AmazonMQBrokerServerMetadata - { _amazonMQBrokerServerMetadataHosts :: ValList Text - , _amazonMQBrokerServerMetadataRoleBase :: Val Text - , _amazonMQBrokerServerMetadataRoleName :: Maybe (Val Text) - , _amazonMQBrokerServerMetadataRoleSearchMatching :: Val Text - , _amazonMQBrokerServerMetadataRoleSearchSubtree :: Maybe (Val Bool) - , _amazonMQBrokerServerMetadataServiceAccountPassword :: Val Text - , _amazonMQBrokerServerMetadataServiceAccountUsername :: Val Text - , _amazonMQBrokerServerMetadataUserBase :: Val Text - , _amazonMQBrokerServerMetadataUserRoleName :: Maybe (Val Text) - , _amazonMQBrokerServerMetadataUserSearchMatching :: Val Text - , _amazonMQBrokerServerMetadataUserSearchSubtree :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON AmazonMQBrokerServerMetadata where - toJSON AmazonMQBrokerServerMetadata{..} = - object $ - catMaybes - [ (Just . ("Hosts",) . toJSON) _amazonMQBrokerServerMetadataHosts - , (Just . ("RoleBase",) . toJSON) _amazonMQBrokerServerMetadataRoleBase - , fmap (("RoleName",) . toJSON) _amazonMQBrokerServerMetadataRoleName - , (Just . ("RoleSearchMatching",) . toJSON) _amazonMQBrokerServerMetadataRoleSearchMatching - , fmap (("RoleSearchSubtree",) . toJSON) _amazonMQBrokerServerMetadataRoleSearchSubtree - , (Just . ("ServiceAccountPassword",) . toJSON) _amazonMQBrokerServerMetadataServiceAccountPassword - , (Just . ("ServiceAccountUsername",) . toJSON) _amazonMQBrokerServerMetadataServiceAccountUsername - , (Just . ("UserBase",) . toJSON) _amazonMQBrokerServerMetadataUserBase - , fmap (("UserRoleName",) . toJSON) _amazonMQBrokerServerMetadataUserRoleName - , (Just . ("UserSearchMatching",) . toJSON) _amazonMQBrokerServerMetadataUserSearchMatching - , fmap (("UserSearchSubtree",) . toJSON) _amazonMQBrokerServerMetadataUserSearchSubtree - ] - --- | Constructor for 'AmazonMQBrokerServerMetadata' containing required fields --- as arguments. -amazonMQBrokerServerMetadata - :: ValList Text -- ^ 'amqbsmHosts' - -> Val Text -- ^ 'amqbsmRoleBase' - -> Val Text -- ^ 'amqbsmRoleSearchMatching' - -> Val Text -- ^ 'amqbsmServiceAccountPassword' - -> Val Text -- ^ 'amqbsmServiceAccountUsername' - -> Val Text -- ^ 'amqbsmUserBase' - -> Val Text -- ^ 'amqbsmUserSearchMatching' - -> AmazonMQBrokerServerMetadata -amazonMQBrokerServerMetadata hostsarg roleBasearg roleSearchMatchingarg serviceAccountPasswordarg serviceAccountUsernamearg userBasearg userSearchMatchingarg = - AmazonMQBrokerServerMetadata - { _amazonMQBrokerServerMetadataHosts = hostsarg - , _amazonMQBrokerServerMetadataRoleBase = roleBasearg - , _amazonMQBrokerServerMetadataRoleName = Nothing - , _amazonMQBrokerServerMetadataRoleSearchMatching = roleSearchMatchingarg - , _amazonMQBrokerServerMetadataRoleSearchSubtree = Nothing - , _amazonMQBrokerServerMetadataServiceAccountPassword = serviceAccountPasswordarg - , _amazonMQBrokerServerMetadataServiceAccountUsername = serviceAccountUsernamearg - , _amazonMQBrokerServerMetadataUserBase = userBasearg - , _amazonMQBrokerServerMetadataUserRoleName = Nothing - , _amazonMQBrokerServerMetadataUserSearchMatching = userSearchMatchingarg - , _amazonMQBrokerServerMetadataUserSearchSubtree = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-servermetadata.html#cfn-amazonmq-broker-servermetadata-hosts -amqbsmHosts :: Lens' AmazonMQBrokerServerMetadata (ValList Text) -amqbsmHosts = lens _amazonMQBrokerServerMetadataHosts (\s a -> s { _amazonMQBrokerServerMetadataHosts = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-servermetadata.html#cfn-amazonmq-broker-servermetadata-rolebase -amqbsmRoleBase :: Lens' AmazonMQBrokerServerMetadata (Val Text) -amqbsmRoleBase = lens _amazonMQBrokerServerMetadataRoleBase (\s a -> s { _amazonMQBrokerServerMetadataRoleBase = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-servermetadata.html#cfn-amazonmq-broker-servermetadata-rolename -amqbsmRoleName :: Lens' AmazonMQBrokerServerMetadata (Maybe (Val Text)) -amqbsmRoleName = lens _amazonMQBrokerServerMetadataRoleName (\s a -> s { _amazonMQBrokerServerMetadataRoleName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-servermetadata.html#cfn-amazonmq-broker-servermetadata-rolesearchmatching -amqbsmRoleSearchMatching :: Lens' AmazonMQBrokerServerMetadata (Val Text) -amqbsmRoleSearchMatching = lens _amazonMQBrokerServerMetadataRoleSearchMatching (\s a -> s { _amazonMQBrokerServerMetadataRoleSearchMatching = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-servermetadata.html#cfn-amazonmq-broker-servermetadata-rolesearchsubtree -amqbsmRoleSearchSubtree :: Lens' AmazonMQBrokerServerMetadata (Maybe (Val Bool)) -amqbsmRoleSearchSubtree = lens _amazonMQBrokerServerMetadataRoleSearchSubtree (\s a -> s { _amazonMQBrokerServerMetadataRoleSearchSubtree = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-servermetadata.html#cfn-amazonmq-broker-servermetadata-serviceaccountpassword -amqbsmServiceAccountPassword :: Lens' AmazonMQBrokerServerMetadata (Val Text) -amqbsmServiceAccountPassword = lens _amazonMQBrokerServerMetadataServiceAccountPassword (\s a -> s { _amazonMQBrokerServerMetadataServiceAccountPassword = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-servermetadata.html#cfn-amazonmq-broker-servermetadata-serviceaccountusername -amqbsmServiceAccountUsername :: Lens' AmazonMQBrokerServerMetadata (Val Text) -amqbsmServiceAccountUsername = lens _amazonMQBrokerServerMetadataServiceAccountUsername (\s a -> s { _amazonMQBrokerServerMetadataServiceAccountUsername = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-servermetadata.html#cfn-amazonmq-broker-servermetadata-userbase -amqbsmUserBase :: Lens' AmazonMQBrokerServerMetadata (Val Text) -amqbsmUserBase = lens _amazonMQBrokerServerMetadataUserBase (\s a -> s { _amazonMQBrokerServerMetadataUserBase = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-servermetadata.html#cfn-amazonmq-broker-servermetadata-userrolename -amqbsmUserRoleName :: Lens' AmazonMQBrokerServerMetadata (Maybe (Val Text)) -amqbsmUserRoleName = lens _amazonMQBrokerServerMetadataUserRoleName (\s a -> s { _amazonMQBrokerServerMetadataUserRoleName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-servermetadata.html#cfn-amazonmq-broker-servermetadata-usersearchmatching -amqbsmUserSearchMatching :: Lens' AmazonMQBrokerServerMetadata (Val Text) -amqbsmUserSearchMatching = lens _amazonMQBrokerServerMetadataUserSearchMatching (\s a -> s { _amazonMQBrokerServerMetadataUserSearchMatching = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-servermetadata.html#cfn-amazonmq-broker-servermetadata-usersearchsubtree -amqbsmUserSearchSubtree :: Lens' AmazonMQBrokerServerMetadata (Maybe (Val Bool)) -amqbsmUserSearchSubtree = lens _amazonMQBrokerServerMetadataUserSearchSubtree (\s a -> s { _amazonMQBrokerServerMetadataUserSearchSubtree = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerTagsEntry.hs b/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerTagsEntry.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerTagsEntry.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-tagsentry.html - -module Stratosphere.ResourceProperties.AmazonMQBrokerTagsEntry where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AmazonMQBrokerTagsEntry. See --- 'amazonMQBrokerTagsEntry' for a more convenient constructor. -data AmazonMQBrokerTagsEntry = - AmazonMQBrokerTagsEntry - { _amazonMQBrokerTagsEntryKey :: Val Text - , _amazonMQBrokerTagsEntryValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON AmazonMQBrokerTagsEntry where - toJSON AmazonMQBrokerTagsEntry{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _amazonMQBrokerTagsEntryKey - , (Just . ("Value",) . toJSON) _amazonMQBrokerTagsEntryValue - ] - --- | Constructor for 'AmazonMQBrokerTagsEntry' containing required fields as --- arguments. -amazonMQBrokerTagsEntry - :: Val Text -- ^ 'amqbteKey' - -> Val Text -- ^ 'amqbteValue' - -> AmazonMQBrokerTagsEntry -amazonMQBrokerTagsEntry keyarg valuearg = - AmazonMQBrokerTagsEntry - { _amazonMQBrokerTagsEntryKey = keyarg - , _amazonMQBrokerTagsEntryValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-tagsentry.html#cfn-amazonmq-broker-tagsentry-key -amqbteKey :: Lens' AmazonMQBrokerTagsEntry (Val Text) -amqbteKey = lens _amazonMQBrokerTagsEntryKey (\s a -> s { _amazonMQBrokerTagsEntryKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-tagsentry.html#cfn-amazonmq-broker-tagsentry-value -amqbteValue :: Lens' AmazonMQBrokerTagsEntry (Val Text) -amqbteValue = lens _amazonMQBrokerTagsEntryValue (\s a -> s { _amazonMQBrokerTagsEntryValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerUser.hs b/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerUser.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerUser.hs +++ /dev/null @@ -1,61 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-user.html - -module Stratosphere.ResourceProperties.AmazonMQBrokerUser where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AmazonMQBrokerUser. See --- 'amazonMQBrokerUser' for a more convenient constructor. -data AmazonMQBrokerUser = - AmazonMQBrokerUser - { _amazonMQBrokerUserConsoleAccess :: Maybe (Val Bool) - , _amazonMQBrokerUserGroups :: Maybe (ValList Text) - , _amazonMQBrokerUserPassword :: Val Text - , _amazonMQBrokerUserUsername :: Val Text - } deriving (Show, Eq) - -instance ToJSON AmazonMQBrokerUser where - toJSON AmazonMQBrokerUser{..} = - object $ - catMaybes - [ fmap (("ConsoleAccess",) . toJSON) _amazonMQBrokerUserConsoleAccess - , fmap (("Groups",) . toJSON) _amazonMQBrokerUserGroups - , (Just . ("Password",) . toJSON) _amazonMQBrokerUserPassword - , (Just . ("Username",) . toJSON) _amazonMQBrokerUserUsername - ] - --- | Constructor for 'AmazonMQBrokerUser' containing required fields as --- arguments. -amazonMQBrokerUser - :: Val Text -- ^ 'amqbuPassword' - -> Val Text -- ^ 'amqbuUsername' - -> AmazonMQBrokerUser -amazonMQBrokerUser passwordarg usernamearg = - AmazonMQBrokerUser - { _amazonMQBrokerUserConsoleAccess = Nothing - , _amazonMQBrokerUserGroups = Nothing - , _amazonMQBrokerUserPassword = passwordarg - , _amazonMQBrokerUserUsername = usernamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-user.html#cfn-amazonmq-broker-user-consoleaccess -amqbuConsoleAccess :: Lens' AmazonMQBrokerUser (Maybe (Val Bool)) -amqbuConsoleAccess = lens _amazonMQBrokerUserConsoleAccess (\s a -> s { _amazonMQBrokerUserConsoleAccess = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-user.html#cfn-amazonmq-broker-user-groups -amqbuGroups :: Lens' AmazonMQBrokerUser (Maybe (ValList Text)) -amqbuGroups = lens _amazonMQBrokerUserGroups (\s a -> s { _amazonMQBrokerUserGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-user.html#cfn-amazonmq-broker-user-password -amqbuPassword :: Lens' AmazonMQBrokerUser (Val Text) -amqbuPassword = lens _amazonMQBrokerUserPassword (\s a -> s { _amazonMQBrokerUserPassword = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-broker-user.html#cfn-amazonmq-broker-user-username -amqbuUsername :: Lens' AmazonMQBrokerUser (Val Text) -amqbuUsername = lens _amazonMQBrokerUserUsername (\s a -> s { _amazonMQBrokerUserUsername = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AmazonMQConfigurationAssociationConfigurationId.hs b/library-gen/Stratosphere/ResourceProperties/AmazonMQConfigurationAssociationConfigurationId.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AmazonMQConfigurationAssociationConfigurationId.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-configurationassociation-configurationid.html - -module Stratosphere.ResourceProperties.AmazonMQConfigurationAssociationConfigurationId where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- AmazonMQConfigurationAssociationConfigurationId. See --- 'amazonMQConfigurationAssociationConfigurationId' for a more convenient --- constructor. -data AmazonMQConfigurationAssociationConfigurationId = - AmazonMQConfigurationAssociationConfigurationId - { _amazonMQConfigurationAssociationConfigurationIdId :: Val Text - , _amazonMQConfigurationAssociationConfigurationIdRevision :: Val Integer - } deriving (Show, Eq) - -instance ToJSON AmazonMQConfigurationAssociationConfigurationId where - toJSON AmazonMQConfigurationAssociationConfigurationId{..} = - object $ - catMaybes - [ (Just . ("Id",) . toJSON) _amazonMQConfigurationAssociationConfigurationIdId - , (Just . ("Revision",) . toJSON) _amazonMQConfigurationAssociationConfigurationIdRevision - ] - --- | Constructor for 'AmazonMQConfigurationAssociationConfigurationId' --- containing required fields as arguments. -amazonMQConfigurationAssociationConfigurationId - :: Val Text -- ^ 'amqcaciId' - -> Val Integer -- ^ 'amqcaciRevision' - -> AmazonMQConfigurationAssociationConfigurationId -amazonMQConfigurationAssociationConfigurationId idarg revisionarg = - AmazonMQConfigurationAssociationConfigurationId - { _amazonMQConfigurationAssociationConfigurationIdId = idarg - , _amazonMQConfigurationAssociationConfigurationIdRevision = revisionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-configurationassociation-configurationid.html#cfn-amazonmq-configurationassociation-configurationid-id -amqcaciId :: Lens' AmazonMQConfigurationAssociationConfigurationId (Val Text) -amqcaciId = lens _amazonMQConfigurationAssociationConfigurationIdId (\s a -> s { _amazonMQConfigurationAssociationConfigurationIdId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-configurationassociation-configurationid.html#cfn-amazonmq-configurationassociation-configurationid-revision -amqcaciRevision :: Lens' AmazonMQConfigurationAssociationConfigurationId (Val Integer) -amqcaciRevision = lens _amazonMQConfigurationAssociationConfigurationIdRevision (\s a -> s { _amazonMQConfigurationAssociationConfigurationIdRevision = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AmazonMQConfigurationTagsEntry.hs b/library-gen/Stratosphere/ResourceProperties/AmazonMQConfigurationTagsEntry.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AmazonMQConfigurationTagsEntry.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-configuration-tagsentry.html - -module Stratosphere.ResourceProperties.AmazonMQConfigurationTagsEntry where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AmazonMQConfigurationTagsEntry. See --- 'amazonMQConfigurationTagsEntry' for a more convenient constructor. -data AmazonMQConfigurationTagsEntry = - AmazonMQConfigurationTagsEntry - { _amazonMQConfigurationTagsEntryKey :: Val Text - , _amazonMQConfigurationTagsEntryValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON AmazonMQConfigurationTagsEntry where - toJSON AmazonMQConfigurationTagsEntry{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _amazonMQConfigurationTagsEntryKey - , (Just . ("Value",) . toJSON) _amazonMQConfigurationTagsEntryValue - ] - --- | Constructor for 'AmazonMQConfigurationTagsEntry' containing required --- fields as arguments. -amazonMQConfigurationTagsEntry - :: Val Text -- ^ 'amqcteKey' - -> Val Text -- ^ 'amqcteValue' - -> AmazonMQConfigurationTagsEntry -amazonMQConfigurationTagsEntry keyarg valuearg = - AmazonMQConfigurationTagsEntry - { _amazonMQConfigurationTagsEntryKey = keyarg - , _amazonMQConfigurationTagsEntryValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-configuration-tagsentry.html#cfn-amazonmq-configuration-tagsentry-key -amqcteKey :: Lens' AmazonMQConfigurationTagsEntry (Val Text) -amqcteKey = lens _amazonMQConfigurationTagsEntryKey (\s a -> s { _amazonMQConfigurationTagsEntryKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amazonmq-configuration-tagsentry.html#cfn-amazonmq-configuration-tagsentry-value -amqcteValue :: Lens' AmazonMQConfigurationTagsEntry (Val Text) -amqcteValue = lens _amazonMQConfigurationTagsEntryValue (\s a -> s { _amazonMQConfigurationTagsEntryValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AmplifyAppAutoBranchCreationConfig.hs b/library-gen/Stratosphere/ResourceProperties/AmplifyAppAutoBranchCreationConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AmplifyAppAutoBranchCreationConfig.hs +++ /dev/null @@ -1,95 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-autobranchcreationconfig.html - -module Stratosphere.ResourceProperties.AmplifyAppAutoBranchCreationConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AmplifyAppBasicAuthConfig -import Stratosphere.ResourceProperties.AmplifyAppEnvironmentVariable - --- | Full data type definition for AmplifyAppAutoBranchCreationConfig. See --- 'amplifyAppAutoBranchCreationConfig' for a more convenient constructor. -data AmplifyAppAutoBranchCreationConfig = - AmplifyAppAutoBranchCreationConfig - { _amplifyAppAutoBranchCreationConfigAutoBranchCreationPatterns :: Maybe (ValList Text) - , _amplifyAppAutoBranchCreationConfigBasicAuthConfig :: Maybe AmplifyAppBasicAuthConfig - , _amplifyAppAutoBranchCreationConfigBuildSpec :: Maybe (Val Text) - , _amplifyAppAutoBranchCreationConfigEnableAutoBranchCreation :: Maybe (Val Bool) - , _amplifyAppAutoBranchCreationConfigEnableAutoBuild :: Maybe (Val Bool) - , _amplifyAppAutoBranchCreationConfigEnablePullRequestPreview :: Maybe (Val Bool) - , _amplifyAppAutoBranchCreationConfigEnvironmentVariables :: Maybe [AmplifyAppEnvironmentVariable] - , _amplifyAppAutoBranchCreationConfigPullRequestEnvironmentName :: Maybe (Val Text) - , _amplifyAppAutoBranchCreationConfigStage :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AmplifyAppAutoBranchCreationConfig where - toJSON AmplifyAppAutoBranchCreationConfig{..} = - object $ - catMaybes - [ fmap (("AutoBranchCreationPatterns",) . toJSON) _amplifyAppAutoBranchCreationConfigAutoBranchCreationPatterns - , fmap (("BasicAuthConfig",) . toJSON) _amplifyAppAutoBranchCreationConfigBasicAuthConfig - , fmap (("BuildSpec",) . toJSON) _amplifyAppAutoBranchCreationConfigBuildSpec - , fmap (("EnableAutoBranchCreation",) . toJSON) _amplifyAppAutoBranchCreationConfigEnableAutoBranchCreation - , fmap (("EnableAutoBuild",) . toJSON) _amplifyAppAutoBranchCreationConfigEnableAutoBuild - , fmap (("EnablePullRequestPreview",) . toJSON) _amplifyAppAutoBranchCreationConfigEnablePullRequestPreview - , fmap (("EnvironmentVariables",) . toJSON) _amplifyAppAutoBranchCreationConfigEnvironmentVariables - , fmap (("PullRequestEnvironmentName",) . toJSON) _amplifyAppAutoBranchCreationConfigPullRequestEnvironmentName - , fmap (("Stage",) . toJSON) _amplifyAppAutoBranchCreationConfigStage - ] - --- | Constructor for 'AmplifyAppAutoBranchCreationConfig' containing required --- fields as arguments. -amplifyAppAutoBranchCreationConfig - :: AmplifyAppAutoBranchCreationConfig -amplifyAppAutoBranchCreationConfig = - AmplifyAppAutoBranchCreationConfig - { _amplifyAppAutoBranchCreationConfigAutoBranchCreationPatterns = Nothing - , _amplifyAppAutoBranchCreationConfigBasicAuthConfig = Nothing - , _amplifyAppAutoBranchCreationConfigBuildSpec = Nothing - , _amplifyAppAutoBranchCreationConfigEnableAutoBranchCreation = Nothing - , _amplifyAppAutoBranchCreationConfigEnableAutoBuild = Nothing - , _amplifyAppAutoBranchCreationConfigEnablePullRequestPreview = Nothing - , _amplifyAppAutoBranchCreationConfigEnvironmentVariables = Nothing - , _amplifyAppAutoBranchCreationConfigPullRequestEnvironmentName = Nothing - , _amplifyAppAutoBranchCreationConfigStage = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-autobranchcreationconfig.html#cfn-amplify-app-autobranchcreationconfig-autobranchcreationpatterns -aaabccAutoBranchCreationPatterns :: Lens' AmplifyAppAutoBranchCreationConfig (Maybe (ValList Text)) -aaabccAutoBranchCreationPatterns = lens _amplifyAppAutoBranchCreationConfigAutoBranchCreationPatterns (\s a -> s { _amplifyAppAutoBranchCreationConfigAutoBranchCreationPatterns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-autobranchcreationconfig.html#cfn-amplify-app-autobranchcreationconfig-basicauthconfig -aaabccBasicAuthConfig :: Lens' AmplifyAppAutoBranchCreationConfig (Maybe AmplifyAppBasicAuthConfig) -aaabccBasicAuthConfig = lens _amplifyAppAutoBranchCreationConfigBasicAuthConfig (\s a -> s { _amplifyAppAutoBranchCreationConfigBasicAuthConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-autobranchcreationconfig.html#cfn-amplify-app-autobranchcreationconfig-buildspec -aaabccBuildSpec :: Lens' AmplifyAppAutoBranchCreationConfig (Maybe (Val Text)) -aaabccBuildSpec = lens _amplifyAppAutoBranchCreationConfigBuildSpec (\s a -> s { _amplifyAppAutoBranchCreationConfigBuildSpec = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-autobranchcreationconfig.html#cfn-amplify-app-autobranchcreationconfig-enableautobranchcreation -aaabccEnableAutoBranchCreation :: Lens' AmplifyAppAutoBranchCreationConfig (Maybe (Val Bool)) -aaabccEnableAutoBranchCreation = lens _amplifyAppAutoBranchCreationConfigEnableAutoBranchCreation (\s a -> s { _amplifyAppAutoBranchCreationConfigEnableAutoBranchCreation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-autobranchcreationconfig.html#cfn-amplify-app-autobranchcreationconfig-enableautobuild -aaabccEnableAutoBuild :: Lens' AmplifyAppAutoBranchCreationConfig (Maybe (Val Bool)) -aaabccEnableAutoBuild = lens _amplifyAppAutoBranchCreationConfigEnableAutoBuild (\s a -> s { _amplifyAppAutoBranchCreationConfigEnableAutoBuild = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-autobranchcreationconfig.html#cfn-amplify-app-autobranchcreationconfig-enablepullrequestpreview -aaabccEnablePullRequestPreview :: Lens' AmplifyAppAutoBranchCreationConfig (Maybe (Val Bool)) -aaabccEnablePullRequestPreview = lens _amplifyAppAutoBranchCreationConfigEnablePullRequestPreview (\s a -> s { _amplifyAppAutoBranchCreationConfigEnablePullRequestPreview = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-autobranchcreationconfig.html#cfn-amplify-app-autobranchcreationconfig-environmentvariables -aaabccEnvironmentVariables :: Lens' AmplifyAppAutoBranchCreationConfig (Maybe [AmplifyAppEnvironmentVariable]) -aaabccEnvironmentVariables = lens _amplifyAppAutoBranchCreationConfigEnvironmentVariables (\s a -> s { _amplifyAppAutoBranchCreationConfigEnvironmentVariables = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-autobranchcreationconfig.html#cfn-amplify-app-autobranchcreationconfig-pullrequestenvironmentname -aaabccPullRequestEnvironmentName :: Lens' AmplifyAppAutoBranchCreationConfig (Maybe (Val Text)) -aaabccPullRequestEnvironmentName = lens _amplifyAppAutoBranchCreationConfigPullRequestEnvironmentName (\s a -> s { _amplifyAppAutoBranchCreationConfigPullRequestEnvironmentName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-autobranchcreationconfig.html#cfn-amplify-app-autobranchcreationconfig-stage -aaabccStage :: Lens' AmplifyAppAutoBranchCreationConfig (Maybe (Val Text)) -aaabccStage = lens _amplifyAppAutoBranchCreationConfigStage (\s a -> s { _amplifyAppAutoBranchCreationConfigStage = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AmplifyAppBasicAuthConfig.hs b/library-gen/Stratosphere/ResourceProperties/AmplifyAppBasicAuthConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AmplifyAppBasicAuthConfig.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-basicauthconfig.html - -module Stratosphere.ResourceProperties.AmplifyAppBasicAuthConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AmplifyAppBasicAuthConfig. See --- 'amplifyAppBasicAuthConfig' for a more convenient constructor. -data AmplifyAppBasicAuthConfig = - AmplifyAppBasicAuthConfig - { _amplifyAppBasicAuthConfigEnableBasicAuth :: Maybe (Val Bool) - , _amplifyAppBasicAuthConfigPassword :: Maybe (Val Text) - , _amplifyAppBasicAuthConfigUsername :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AmplifyAppBasicAuthConfig where - toJSON AmplifyAppBasicAuthConfig{..} = - object $ - catMaybes - [ fmap (("EnableBasicAuth",) . toJSON) _amplifyAppBasicAuthConfigEnableBasicAuth - , fmap (("Password",) . toJSON) _amplifyAppBasicAuthConfigPassword - , fmap (("Username",) . toJSON) _amplifyAppBasicAuthConfigUsername - ] - --- | Constructor for 'AmplifyAppBasicAuthConfig' containing required fields as --- arguments. -amplifyAppBasicAuthConfig - :: AmplifyAppBasicAuthConfig -amplifyAppBasicAuthConfig = - AmplifyAppBasicAuthConfig - { _amplifyAppBasicAuthConfigEnableBasicAuth = Nothing - , _amplifyAppBasicAuthConfigPassword = Nothing - , _amplifyAppBasicAuthConfigUsername = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-basicauthconfig.html#cfn-amplify-app-basicauthconfig-enablebasicauth -aabacEnableBasicAuth :: Lens' AmplifyAppBasicAuthConfig (Maybe (Val Bool)) -aabacEnableBasicAuth = lens _amplifyAppBasicAuthConfigEnableBasicAuth (\s a -> s { _amplifyAppBasicAuthConfigEnableBasicAuth = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-basicauthconfig.html#cfn-amplify-app-basicauthconfig-password -aabacPassword :: Lens' AmplifyAppBasicAuthConfig (Maybe (Val Text)) -aabacPassword = lens _amplifyAppBasicAuthConfigPassword (\s a -> s { _amplifyAppBasicAuthConfigPassword = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-basicauthconfig.html#cfn-amplify-app-basicauthconfig-username -aabacUsername :: Lens' AmplifyAppBasicAuthConfig (Maybe (Val Text)) -aabacUsername = lens _amplifyAppBasicAuthConfigUsername (\s a -> s { _amplifyAppBasicAuthConfigUsername = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AmplifyAppCustomRule.hs b/library-gen/Stratosphere/ResourceProperties/AmplifyAppCustomRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AmplifyAppCustomRule.hs +++ /dev/null @@ -1,61 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-customrule.html - -module Stratosphere.ResourceProperties.AmplifyAppCustomRule where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AmplifyAppCustomRule. See --- 'amplifyAppCustomRule' for a more convenient constructor. -data AmplifyAppCustomRule = - AmplifyAppCustomRule - { _amplifyAppCustomRuleCondition :: Maybe (Val Text) - , _amplifyAppCustomRuleSource :: Val Text - , _amplifyAppCustomRuleStatus :: Maybe (Val Text) - , _amplifyAppCustomRuleTarget :: Val Text - } deriving (Show, Eq) - -instance ToJSON AmplifyAppCustomRule where - toJSON AmplifyAppCustomRule{..} = - object $ - catMaybes - [ fmap (("Condition",) . toJSON) _amplifyAppCustomRuleCondition - , (Just . ("Source",) . toJSON) _amplifyAppCustomRuleSource - , fmap (("Status",) . toJSON) _amplifyAppCustomRuleStatus - , (Just . ("Target",) . toJSON) _amplifyAppCustomRuleTarget - ] - --- | Constructor for 'AmplifyAppCustomRule' containing required fields as --- arguments. -amplifyAppCustomRule - :: Val Text -- ^ 'aacrSource' - -> Val Text -- ^ 'aacrTarget' - -> AmplifyAppCustomRule -amplifyAppCustomRule sourcearg targetarg = - AmplifyAppCustomRule - { _amplifyAppCustomRuleCondition = Nothing - , _amplifyAppCustomRuleSource = sourcearg - , _amplifyAppCustomRuleStatus = Nothing - , _amplifyAppCustomRuleTarget = targetarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-customrule.html#cfn-amplify-app-customrule-condition -aacrCondition :: Lens' AmplifyAppCustomRule (Maybe (Val Text)) -aacrCondition = lens _amplifyAppCustomRuleCondition (\s a -> s { _amplifyAppCustomRuleCondition = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-customrule.html#cfn-amplify-app-customrule-source -aacrSource :: Lens' AmplifyAppCustomRule (Val Text) -aacrSource = lens _amplifyAppCustomRuleSource (\s a -> s { _amplifyAppCustomRuleSource = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-customrule.html#cfn-amplify-app-customrule-status -aacrStatus :: Lens' AmplifyAppCustomRule (Maybe (Val Text)) -aacrStatus = lens _amplifyAppCustomRuleStatus (\s a -> s { _amplifyAppCustomRuleStatus = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-customrule.html#cfn-amplify-app-customrule-target -aacrTarget :: Lens' AmplifyAppCustomRule (Val Text) -aacrTarget = lens _amplifyAppCustomRuleTarget (\s a -> s { _amplifyAppCustomRuleTarget = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AmplifyAppEnvironmentVariable.hs b/library-gen/Stratosphere/ResourceProperties/AmplifyAppEnvironmentVariable.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AmplifyAppEnvironmentVariable.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-environmentvariable.html - -module Stratosphere.ResourceProperties.AmplifyAppEnvironmentVariable where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AmplifyAppEnvironmentVariable. See --- 'amplifyAppEnvironmentVariable' for a more convenient constructor. -data AmplifyAppEnvironmentVariable = - AmplifyAppEnvironmentVariable - { _amplifyAppEnvironmentVariableName :: Val Text - , _amplifyAppEnvironmentVariableValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON AmplifyAppEnvironmentVariable where - toJSON AmplifyAppEnvironmentVariable{..} = - object $ - catMaybes - [ (Just . ("Name",) . toJSON) _amplifyAppEnvironmentVariableName - , (Just . ("Value",) . toJSON) _amplifyAppEnvironmentVariableValue - ] - --- | Constructor for 'AmplifyAppEnvironmentVariable' containing required --- fields as arguments. -amplifyAppEnvironmentVariable - :: Val Text -- ^ 'aaevName' - -> Val Text -- ^ 'aaevValue' - -> AmplifyAppEnvironmentVariable -amplifyAppEnvironmentVariable namearg valuearg = - AmplifyAppEnvironmentVariable - { _amplifyAppEnvironmentVariableName = namearg - , _amplifyAppEnvironmentVariableValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-environmentvariable.html#cfn-amplify-app-environmentvariable-name -aaevName :: Lens' AmplifyAppEnvironmentVariable (Val Text) -aaevName = lens _amplifyAppEnvironmentVariableName (\s a -> s { _amplifyAppEnvironmentVariableName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-environmentvariable.html#cfn-amplify-app-environmentvariable-value -aaevValue :: Lens' AmplifyAppEnvironmentVariable (Val Text) -aaevValue = lens _amplifyAppEnvironmentVariableValue (\s a -> s { _amplifyAppEnvironmentVariableValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AmplifyBranchBasicAuthConfig.hs b/library-gen/Stratosphere/ResourceProperties/AmplifyBranchBasicAuthConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AmplifyBranchBasicAuthConfig.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-branch-basicauthconfig.html - -module Stratosphere.ResourceProperties.AmplifyBranchBasicAuthConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AmplifyBranchBasicAuthConfig. See --- 'amplifyBranchBasicAuthConfig' for a more convenient constructor. -data AmplifyBranchBasicAuthConfig = - AmplifyBranchBasicAuthConfig - { _amplifyBranchBasicAuthConfigEnableBasicAuth :: Maybe (Val Bool) - , _amplifyBranchBasicAuthConfigPassword :: Val Text - , _amplifyBranchBasicAuthConfigUsername :: Val Text - } deriving (Show, Eq) - -instance ToJSON AmplifyBranchBasicAuthConfig where - toJSON AmplifyBranchBasicAuthConfig{..} = - object $ - catMaybes - [ fmap (("EnableBasicAuth",) . toJSON) _amplifyBranchBasicAuthConfigEnableBasicAuth - , (Just . ("Password",) . toJSON) _amplifyBranchBasicAuthConfigPassword - , (Just . ("Username",) . toJSON) _amplifyBranchBasicAuthConfigUsername - ] - --- | Constructor for 'AmplifyBranchBasicAuthConfig' containing required fields --- as arguments. -amplifyBranchBasicAuthConfig - :: Val Text -- ^ 'abbacPassword' - -> Val Text -- ^ 'abbacUsername' - -> AmplifyBranchBasicAuthConfig -amplifyBranchBasicAuthConfig passwordarg usernamearg = - AmplifyBranchBasicAuthConfig - { _amplifyBranchBasicAuthConfigEnableBasicAuth = Nothing - , _amplifyBranchBasicAuthConfigPassword = passwordarg - , _amplifyBranchBasicAuthConfigUsername = usernamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-branch-basicauthconfig.html#cfn-amplify-branch-basicauthconfig-enablebasicauth -abbacEnableBasicAuth :: Lens' AmplifyBranchBasicAuthConfig (Maybe (Val Bool)) -abbacEnableBasicAuth = lens _amplifyBranchBasicAuthConfigEnableBasicAuth (\s a -> s { _amplifyBranchBasicAuthConfigEnableBasicAuth = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-branch-basicauthconfig.html#cfn-amplify-branch-basicauthconfig-password -abbacPassword :: Lens' AmplifyBranchBasicAuthConfig (Val Text) -abbacPassword = lens _amplifyBranchBasicAuthConfigPassword (\s a -> s { _amplifyBranchBasicAuthConfigPassword = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-branch-basicauthconfig.html#cfn-amplify-branch-basicauthconfig-username -abbacUsername :: Lens' AmplifyBranchBasicAuthConfig (Val Text) -abbacUsername = lens _amplifyBranchBasicAuthConfigUsername (\s a -> s { _amplifyBranchBasicAuthConfigUsername = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AmplifyBranchEnvironmentVariable.hs b/library-gen/Stratosphere/ResourceProperties/AmplifyBranchEnvironmentVariable.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AmplifyBranchEnvironmentVariable.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-branch-environmentvariable.html - -module Stratosphere.ResourceProperties.AmplifyBranchEnvironmentVariable where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AmplifyBranchEnvironmentVariable. See --- 'amplifyBranchEnvironmentVariable' for a more convenient constructor. -data AmplifyBranchEnvironmentVariable = - AmplifyBranchEnvironmentVariable - { _amplifyBranchEnvironmentVariableName :: Val Text - , _amplifyBranchEnvironmentVariableValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON AmplifyBranchEnvironmentVariable where - toJSON AmplifyBranchEnvironmentVariable{..} = - object $ - catMaybes - [ (Just . ("Name",) . toJSON) _amplifyBranchEnvironmentVariableName - , (Just . ("Value",) . toJSON) _amplifyBranchEnvironmentVariableValue - ] - --- | Constructor for 'AmplifyBranchEnvironmentVariable' containing required --- fields as arguments. -amplifyBranchEnvironmentVariable - :: Val Text -- ^ 'abevName' - -> Val Text -- ^ 'abevValue' - -> AmplifyBranchEnvironmentVariable -amplifyBranchEnvironmentVariable namearg valuearg = - AmplifyBranchEnvironmentVariable - { _amplifyBranchEnvironmentVariableName = namearg - , _amplifyBranchEnvironmentVariableValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-branch-environmentvariable.html#cfn-amplify-branch-environmentvariable-name -abevName :: Lens' AmplifyBranchEnvironmentVariable (Val Text) -abevName = lens _amplifyBranchEnvironmentVariableName (\s a -> s { _amplifyBranchEnvironmentVariableName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-branch-environmentvariable.html#cfn-amplify-branch-environmentvariable-value -abevValue :: Lens' AmplifyBranchEnvironmentVariable (Val Text) -abevValue = lens _amplifyBranchEnvironmentVariableValue (\s a -> s { _amplifyBranchEnvironmentVariableValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AmplifyDomainSubDomainSetting.hs b/library-gen/Stratosphere/ResourceProperties/AmplifyDomainSubDomainSetting.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AmplifyDomainSubDomainSetting.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-domain-subdomainsetting.html - -module Stratosphere.ResourceProperties.AmplifyDomainSubDomainSetting where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AmplifyDomainSubDomainSetting. See --- 'amplifyDomainSubDomainSetting' for a more convenient constructor. -data AmplifyDomainSubDomainSetting = - AmplifyDomainSubDomainSetting - { _amplifyDomainSubDomainSettingBranchName :: Val Text - , _amplifyDomainSubDomainSettingPrefix :: Val Text - } deriving (Show, Eq) - -instance ToJSON AmplifyDomainSubDomainSetting where - toJSON AmplifyDomainSubDomainSetting{..} = - object $ - catMaybes - [ (Just . ("BranchName",) . toJSON) _amplifyDomainSubDomainSettingBranchName - , (Just . ("Prefix",) . toJSON) _amplifyDomainSubDomainSettingPrefix - ] - --- | Constructor for 'AmplifyDomainSubDomainSetting' containing required --- fields as arguments. -amplifyDomainSubDomainSetting - :: Val Text -- ^ 'adsdsBranchName' - -> Val Text -- ^ 'adsdsPrefix' - -> AmplifyDomainSubDomainSetting -amplifyDomainSubDomainSetting branchNamearg prefixarg = - AmplifyDomainSubDomainSetting - { _amplifyDomainSubDomainSettingBranchName = branchNamearg - , _amplifyDomainSubDomainSettingPrefix = prefixarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-domain-subdomainsetting.html#cfn-amplify-domain-subdomainsetting-branchname -adsdsBranchName :: Lens' AmplifyDomainSubDomainSetting (Val Text) -adsdsBranchName = lens _amplifyDomainSubDomainSettingBranchName (\s a -> s { _amplifyDomainSubDomainSettingBranchName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-domain-subdomainsetting.html#cfn-amplify-domain-subdomainsetting-prefix -adsdsPrefix :: Lens' AmplifyDomainSubDomainSetting (Val Text) -adsdsPrefix = lens _amplifyDomainSubDomainSettingPrefix (\s a -> s { _amplifyDomainSubDomainSettingPrefix = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayApiKeyStageKey.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayApiKeyStageKey.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayApiKeyStageKey.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-apikey-stagekey.html - -module Stratosphere.ResourceProperties.ApiGatewayApiKeyStageKey where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayApiKeyStageKey. See --- 'apiGatewayApiKeyStageKey' for a more convenient constructor. -data ApiGatewayApiKeyStageKey = - ApiGatewayApiKeyStageKey - { _apiGatewayApiKeyStageKeyRestApiId :: Maybe (Val Text) - , _apiGatewayApiKeyStageKeyStageName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ApiGatewayApiKeyStageKey where - toJSON ApiGatewayApiKeyStageKey{..} = - object $ - catMaybes - [ fmap (("RestApiId",) . toJSON) _apiGatewayApiKeyStageKeyRestApiId - , fmap (("StageName",) . toJSON) _apiGatewayApiKeyStageKeyStageName - ] - --- | Constructor for 'ApiGatewayApiKeyStageKey' containing required fields as --- arguments. -apiGatewayApiKeyStageKey - :: ApiGatewayApiKeyStageKey -apiGatewayApiKeyStageKey = - ApiGatewayApiKeyStageKey - { _apiGatewayApiKeyStageKeyRestApiId = Nothing - , _apiGatewayApiKeyStageKeyStageName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-apikey-stagekey.html#cfn-apigateway-apikey-stagekey-restapiid -agakskRestApiId :: Lens' ApiGatewayApiKeyStageKey (Maybe (Val Text)) -agakskRestApiId = lens _apiGatewayApiKeyStageKeyRestApiId (\s a -> s { _apiGatewayApiKeyStageKeyRestApiId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-apikey-stagekey.html#cfn-apigateway-apikey-stagekey-stagename -agakskStageName :: Lens' ApiGatewayApiKeyStageKey (Maybe (Val Text)) -agakskStageName = lens _apiGatewayApiKeyStageKeyStageName (\s a -> s { _apiGatewayApiKeyStageKeyStageName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentAccessLogSetting.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentAccessLogSetting.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentAccessLogSetting.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-accesslogsetting.html - -module Stratosphere.ResourceProperties.ApiGatewayDeploymentAccessLogSetting where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayDeploymentAccessLogSetting. See --- 'apiGatewayDeploymentAccessLogSetting' for a more convenient constructor. -data ApiGatewayDeploymentAccessLogSetting = - ApiGatewayDeploymentAccessLogSetting - { _apiGatewayDeploymentAccessLogSettingDestinationArn :: Maybe (Val Text) - , _apiGatewayDeploymentAccessLogSettingFormat :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ApiGatewayDeploymentAccessLogSetting where - toJSON ApiGatewayDeploymentAccessLogSetting{..} = - object $ - catMaybes - [ fmap (("DestinationArn",) . toJSON) _apiGatewayDeploymentAccessLogSettingDestinationArn - , fmap (("Format",) . toJSON) _apiGatewayDeploymentAccessLogSettingFormat - ] - --- | Constructor for 'ApiGatewayDeploymentAccessLogSetting' containing --- required fields as arguments. -apiGatewayDeploymentAccessLogSetting - :: ApiGatewayDeploymentAccessLogSetting -apiGatewayDeploymentAccessLogSetting = - ApiGatewayDeploymentAccessLogSetting - { _apiGatewayDeploymentAccessLogSettingDestinationArn = Nothing - , _apiGatewayDeploymentAccessLogSettingFormat = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-accesslogsetting.html#cfn-apigateway-deployment-accesslogsetting-destinationarn -agdalsDestinationArn :: Lens' ApiGatewayDeploymentAccessLogSetting (Maybe (Val Text)) -agdalsDestinationArn = lens _apiGatewayDeploymentAccessLogSettingDestinationArn (\s a -> s { _apiGatewayDeploymentAccessLogSettingDestinationArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-accesslogsetting.html#cfn-apigateway-deployment-accesslogsetting-format -agdalsFormat :: Lens' ApiGatewayDeploymentAccessLogSetting (Maybe (Val Text)) -agdalsFormat = lens _apiGatewayDeploymentAccessLogSettingFormat (\s a -> s { _apiGatewayDeploymentAccessLogSettingFormat = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentCanarySetting.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentCanarySetting.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentCanarySetting.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-canarysetting.html - -module Stratosphere.ResourceProperties.ApiGatewayDeploymentCanarySetting where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayDeploymentCanarySetting. See --- 'apiGatewayDeploymentCanarySetting' for a more convenient constructor. -data ApiGatewayDeploymentCanarySetting = - ApiGatewayDeploymentCanarySetting - { _apiGatewayDeploymentCanarySettingPercentTraffic :: Maybe (Val Double) - , _apiGatewayDeploymentCanarySettingStageVariableOverrides :: Maybe Object - , _apiGatewayDeploymentCanarySettingUseStageCache :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON ApiGatewayDeploymentCanarySetting where - toJSON ApiGatewayDeploymentCanarySetting{..} = - object $ - catMaybes - [ fmap (("PercentTraffic",) . toJSON) _apiGatewayDeploymentCanarySettingPercentTraffic - , fmap (("StageVariableOverrides",) . toJSON) _apiGatewayDeploymentCanarySettingStageVariableOverrides - , fmap (("UseStageCache",) . toJSON) _apiGatewayDeploymentCanarySettingUseStageCache - ] - --- | Constructor for 'ApiGatewayDeploymentCanarySetting' containing required --- fields as arguments. -apiGatewayDeploymentCanarySetting - :: ApiGatewayDeploymentCanarySetting -apiGatewayDeploymentCanarySetting = - ApiGatewayDeploymentCanarySetting - { _apiGatewayDeploymentCanarySettingPercentTraffic = Nothing - , _apiGatewayDeploymentCanarySettingStageVariableOverrides = Nothing - , _apiGatewayDeploymentCanarySettingUseStageCache = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-canarysetting.html#cfn-apigateway-deployment-canarysetting-percenttraffic -agdcsPercentTraffic :: Lens' ApiGatewayDeploymentCanarySetting (Maybe (Val Double)) -agdcsPercentTraffic = lens _apiGatewayDeploymentCanarySettingPercentTraffic (\s a -> s { _apiGatewayDeploymentCanarySettingPercentTraffic = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-canarysetting.html#cfn-apigateway-deployment-canarysetting-stagevariableoverrides -agdcsStageVariableOverrides :: Lens' ApiGatewayDeploymentCanarySetting (Maybe Object) -agdcsStageVariableOverrides = lens _apiGatewayDeploymentCanarySettingStageVariableOverrides (\s a -> s { _apiGatewayDeploymentCanarySettingStageVariableOverrides = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-canarysetting.html#cfn-apigateway-deployment-canarysetting-usestagecache -agdcsUseStageCache :: Lens' ApiGatewayDeploymentCanarySetting (Maybe (Val Bool)) -agdcsUseStageCache = lens _apiGatewayDeploymentCanarySettingUseStageCache (\s a -> s { _apiGatewayDeploymentCanarySettingUseStageCache = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentDeploymentCanarySettings.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentDeploymentCanarySettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentDeploymentCanarySettings.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-deploymentcanarysettings.html - -module Stratosphere.ResourceProperties.ApiGatewayDeploymentDeploymentCanarySettings where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ApiGatewayDeploymentDeploymentCanarySettings. See --- 'apiGatewayDeploymentDeploymentCanarySettings' for a more convenient --- constructor. -data ApiGatewayDeploymentDeploymentCanarySettings = - ApiGatewayDeploymentDeploymentCanarySettings - { _apiGatewayDeploymentDeploymentCanarySettingsPercentTraffic :: Maybe (Val Double) - , _apiGatewayDeploymentDeploymentCanarySettingsStageVariableOverrides :: Maybe Object - , _apiGatewayDeploymentDeploymentCanarySettingsUseStageCache :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON ApiGatewayDeploymentDeploymentCanarySettings where - toJSON ApiGatewayDeploymentDeploymentCanarySettings{..} = - object $ - catMaybes - [ fmap (("PercentTraffic",) . toJSON) _apiGatewayDeploymentDeploymentCanarySettingsPercentTraffic - , fmap (("StageVariableOverrides",) . toJSON) _apiGatewayDeploymentDeploymentCanarySettingsStageVariableOverrides - , fmap (("UseStageCache",) . toJSON) _apiGatewayDeploymentDeploymentCanarySettingsUseStageCache - ] - --- | Constructor for 'ApiGatewayDeploymentDeploymentCanarySettings' containing --- required fields as arguments. -apiGatewayDeploymentDeploymentCanarySettings - :: ApiGatewayDeploymentDeploymentCanarySettings -apiGatewayDeploymentDeploymentCanarySettings = - ApiGatewayDeploymentDeploymentCanarySettings - { _apiGatewayDeploymentDeploymentCanarySettingsPercentTraffic = Nothing - , _apiGatewayDeploymentDeploymentCanarySettingsStageVariableOverrides = Nothing - , _apiGatewayDeploymentDeploymentCanarySettingsUseStageCache = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-deploymentcanarysettings.html#cfn-apigateway-deployment-deploymentcanarysettings-percenttraffic -agddcsPercentTraffic :: Lens' ApiGatewayDeploymentDeploymentCanarySettings (Maybe (Val Double)) -agddcsPercentTraffic = lens _apiGatewayDeploymentDeploymentCanarySettingsPercentTraffic (\s a -> s { _apiGatewayDeploymentDeploymentCanarySettingsPercentTraffic = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-deploymentcanarysettings.html#cfn-apigateway-deployment-deploymentcanarysettings-stagevariableoverrides -agddcsStageVariableOverrides :: Lens' ApiGatewayDeploymentDeploymentCanarySettings (Maybe Object) -agddcsStageVariableOverrides = lens _apiGatewayDeploymentDeploymentCanarySettingsStageVariableOverrides (\s a -> s { _apiGatewayDeploymentDeploymentCanarySettingsStageVariableOverrides = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-deploymentcanarysettings.html#cfn-apigateway-deployment-deploymentcanarysettings-usestagecache -agddcsUseStageCache :: Lens' ApiGatewayDeploymentDeploymentCanarySettings (Maybe (Val Bool)) -agddcsUseStageCache = lens _apiGatewayDeploymentDeploymentCanarySettingsUseStageCache (\s a -> s { _apiGatewayDeploymentDeploymentCanarySettingsUseStageCache = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentMethodSetting.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentMethodSetting.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentMethodSetting.hs +++ /dev/null @@ -1,101 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription-methodsetting.html - -module Stratosphere.ResourceProperties.ApiGatewayDeploymentMethodSetting where - -import Stratosphere.ResourceImports -import Stratosphere.Types - --- | Full data type definition for ApiGatewayDeploymentMethodSetting. See --- 'apiGatewayDeploymentMethodSetting' for a more convenient constructor. -data ApiGatewayDeploymentMethodSetting = - ApiGatewayDeploymentMethodSetting - { _apiGatewayDeploymentMethodSettingCacheDataEncrypted :: Maybe (Val Bool) - , _apiGatewayDeploymentMethodSettingCacheTtlInSeconds :: Maybe (Val Integer) - , _apiGatewayDeploymentMethodSettingCachingEnabled :: Maybe (Val Bool) - , _apiGatewayDeploymentMethodSettingDataTraceEnabled :: Maybe (Val Bool) - , _apiGatewayDeploymentMethodSettingHttpMethod :: Maybe (Val HttpMethod) - , _apiGatewayDeploymentMethodSettingLoggingLevel :: Maybe (Val LoggingLevel) - , _apiGatewayDeploymentMethodSettingMetricsEnabled :: Maybe (Val Bool) - , _apiGatewayDeploymentMethodSettingResourcePath :: Maybe (Val Text) - , _apiGatewayDeploymentMethodSettingThrottlingBurstLimit :: Maybe (Val Integer) - , _apiGatewayDeploymentMethodSettingThrottlingRateLimit :: Maybe (Val Double) - } deriving (Show, Eq) - -instance ToJSON ApiGatewayDeploymentMethodSetting where - toJSON ApiGatewayDeploymentMethodSetting{..} = - object $ - catMaybes - [ fmap (("CacheDataEncrypted",) . toJSON) _apiGatewayDeploymentMethodSettingCacheDataEncrypted - , fmap (("CacheTtlInSeconds",) . toJSON) _apiGatewayDeploymentMethodSettingCacheTtlInSeconds - , fmap (("CachingEnabled",) . toJSON) _apiGatewayDeploymentMethodSettingCachingEnabled - , fmap (("DataTraceEnabled",) . toJSON) _apiGatewayDeploymentMethodSettingDataTraceEnabled - , fmap (("HttpMethod",) . toJSON) _apiGatewayDeploymentMethodSettingHttpMethod - , fmap (("LoggingLevel",) . toJSON) _apiGatewayDeploymentMethodSettingLoggingLevel - , fmap (("MetricsEnabled",) . toJSON) _apiGatewayDeploymentMethodSettingMetricsEnabled - , fmap (("ResourcePath",) . toJSON) _apiGatewayDeploymentMethodSettingResourcePath - , fmap (("ThrottlingBurstLimit",) . toJSON) _apiGatewayDeploymentMethodSettingThrottlingBurstLimit - , fmap (("ThrottlingRateLimit",) . toJSON) _apiGatewayDeploymentMethodSettingThrottlingRateLimit - ] - --- | Constructor for 'ApiGatewayDeploymentMethodSetting' containing required --- fields as arguments. -apiGatewayDeploymentMethodSetting - :: ApiGatewayDeploymentMethodSetting -apiGatewayDeploymentMethodSetting = - ApiGatewayDeploymentMethodSetting - { _apiGatewayDeploymentMethodSettingCacheDataEncrypted = Nothing - , _apiGatewayDeploymentMethodSettingCacheTtlInSeconds = Nothing - , _apiGatewayDeploymentMethodSettingCachingEnabled = Nothing - , _apiGatewayDeploymentMethodSettingDataTraceEnabled = Nothing - , _apiGatewayDeploymentMethodSettingHttpMethod = Nothing - , _apiGatewayDeploymentMethodSettingLoggingLevel = Nothing - , _apiGatewayDeploymentMethodSettingMetricsEnabled = Nothing - , _apiGatewayDeploymentMethodSettingResourcePath = Nothing - , _apiGatewayDeploymentMethodSettingThrottlingBurstLimit = Nothing - , _apiGatewayDeploymentMethodSettingThrottlingRateLimit = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-cachedataencrypted -agdmsCacheDataEncrypted :: Lens' ApiGatewayDeploymentMethodSetting (Maybe (Val Bool)) -agdmsCacheDataEncrypted = lens _apiGatewayDeploymentMethodSettingCacheDataEncrypted (\s a -> s { _apiGatewayDeploymentMethodSettingCacheDataEncrypted = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-cachettlinseconds -agdmsCacheTtlInSeconds :: Lens' ApiGatewayDeploymentMethodSetting (Maybe (Val Integer)) -agdmsCacheTtlInSeconds = lens _apiGatewayDeploymentMethodSettingCacheTtlInSeconds (\s a -> s { _apiGatewayDeploymentMethodSettingCacheTtlInSeconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-cachingenabled -agdmsCachingEnabled :: Lens' ApiGatewayDeploymentMethodSetting (Maybe (Val Bool)) -agdmsCachingEnabled = lens _apiGatewayDeploymentMethodSettingCachingEnabled (\s a -> s { _apiGatewayDeploymentMethodSettingCachingEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-datatraceenabled -agdmsDataTraceEnabled :: Lens' ApiGatewayDeploymentMethodSetting (Maybe (Val Bool)) -agdmsDataTraceEnabled = lens _apiGatewayDeploymentMethodSettingDataTraceEnabled (\s a -> s { _apiGatewayDeploymentMethodSettingDataTraceEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-httpmethod -agdmsHttpMethod :: Lens' ApiGatewayDeploymentMethodSetting (Maybe (Val HttpMethod)) -agdmsHttpMethod = lens _apiGatewayDeploymentMethodSettingHttpMethod (\s a -> s { _apiGatewayDeploymentMethodSettingHttpMethod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-logginglevel -agdmsLoggingLevel :: Lens' ApiGatewayDeploymentMethodSetting (Maybe (Val LoggingLevel)) -agdmsLoggingLevel = lens _apiGatewayDeploymentMethodSettingLoggingLevel (\s a -> s { _apiGatewayDeploymentMethodSettingLoggingLevel = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-metricsenabled -agdmsMetricsEnabled :: Lens' ApiGatewayDeploymentMethodSetting (Maybe (Val Bool)) -agdmsMetricsEnabled = lens _apiGatewayDeploymentMethodSettingMetricsEnabled (\s a -> s { _apiGatewayDeploymentMethodSettingMetricsEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-resourcepath -agdmsResourcePath :: Lens' ApiGatewayDeploymentMethodSetting (Maybe (Val Text)) -agdmsResourcePath = lens _apiGatewayDeploymentMethodSettingResourcePath (\s a -> s { _apiGatewayDeploymentMethodSettingResourcePath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-throttlingburstlimit -agdmsThrottlingBurstLimit :: Lens' ApiGatewayDeploymentMethodSetting (Maybe (Val Integer)) -agdmsThrottlingBurstLimit = lens _apiGatewayDeploymentMethodSettingThrottlingBurstLimit (\s a -> s { _apiGatewayDeploymentMethodSettingThrottlingBurstLimit = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription-methodsetting.html#cfn-apigateway-deployment-stagedescription-methodsetting-throttlingratelimit -agdmsThrottlingRateLimit :: Lens' ApiGatewayDeploymentMethodSetting (Maybe (Val Double)) -agdmsThrottlingRateLimit = lens _apiGatewayDeploymentMethodSettingThrottlingRateLimit (\s a -> s { _apiGatewayDeploymentMethodSettingThrottlingRateLimit = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentStageDescription.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentStageDescription.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentStageDescription.hs +++ /dev/null @@ -1,168 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html - -module Stratosphere.ResourceProperties.ApiGatewayDeploymentStageDescription where - -import Stratosphere.ResourceImports -import Stratosphere.Types -import Stratosphere.ResourceProperties.ApiGatewayDeploymentAccessLogSetting -import Stratosphere.ResourceProperties.ApiGatewayDeploymentCanarySetting -import Stratosphere.ResourceProperties.ApiGatewayDeploymentMethodSetting -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for ApiGatewayDeploymentStageDescription. See --- 'apiGatewayDeploymentStageDescription' for a more convenient constructor. -data ApiGatewayDeploymentStageDescription = - ApiGatewayDeploymentStageDescription - { _apiGatewayDeploymentStageDescriptionAccessLogSetting :: Maybe ApiGatewayDeploymentAccessLogSetting - , _apiGatewayDeploymentStageDescriptionCacheClusterEnabled :: Maybe (Val Bool) - , _apiGatewayDeploymentStageDescriptionCacheClusterSize :: Maybe (Val Text) - , _apiGatewayDeploymentStageDescriptionCacheDataEncrypted :: Maybe (Val Bool) - , _apiGatewayDeploymentStageDescriptionCacheTtlInSeconds :: Maybe (Val Integer) - , _apiGatewayDeploymentStageDescriptionCachingEnabled :: Maybe (Val Bool) - , _apiGatewayDeploymentStageDescriptionCanarySetting :: Maybe ApiGatewayDeploymentCanarySetting - , _apiGatewayDeploymentStageDescriptionClientCertificateId :: Maybe (Val Text) - , _apiGatewayDeploymentStageDescriptionDataTraceEnabled :: Maybe (Val Bool) - , _apiGatewayDeploymentStageDescriptionDescription :: Maybe (Val Text) - , _apiGatewayDeploymentStageDescriptionDocumentationVersion :: Maybe (Val Text) - , _apiGatewayDeploymentStageDescriptionLoggingLevel :: Maybe (Val LoggingLevel) - , _apiGatewayDeploymentStageDescriptionMethodSettings :: Maybe [ApiGatewayDeploymentMethodSetting] - , _apiGatewayDeploymentStageDescriptionMetricsEnabled :: Maybe (Val Bool) - , _apiGatewayDeploymentStageDescriptionTags :: Maybe [Tag] - , _apiGatewayDeploymentStageDescriptionThrottlingBurstLimit :: Maybe (Val Integer) - , _apiGatewayDeploymentStageDescriptionThrottlingRateLimit :: Maybe (Val Double) - , _apiGatewayDeploymentStageDescriptionTracingEnabled :: Maybe (Val Bool) - , _apiGatewayDeploymentStageDescriptionVariables :: Maybe Object - } deriving (Show, Eq) - -instance ToJSON ApiGatewayDeploymentStageDescription where - toJSON ApiGatewayDeploymentStageDescription{..} = - object $ - catMaybes - [ fmap (("AccessLogSetting",) . toJSON) _apiGatewayDeploymentStageDescriptionAccessLogSetting - , fmap (("CacheClusterEnabled",) . toJSON) _apiGatewayDeploymentStageDescriptionCacheClusterEnabled - , fmap (("CacheClusterSize",) . toJSON) _apiGatewayDeploymentStageDescriptionCacheClusterSize - , fmap (("CacheDataEncrypted",) . toJSON) _apiGatewayDeploymentStageDescriptionCacheDataEncrypted - , fmap (("CacheTtlInSeconds",) . toJSON) _apiGatewayDeploymentStageDescriptionCacheTtlInSeconds - , fmap (("CachingEnabled",) . toJSON) _apiGatewayDeploymentStageDescriptionCachingEnabled - , fmap (("CanarySetting",) . toJSON) _apiGatewayDeploymentStageDescriptionCanarySetting - , fmap (("ClientCertificateId",) . toJSON) _apiGatewayDeploymentStageDescriptionClientCertificateId - , fmap (("DataTraceEnabled",) . toJSON) _apiGatewayDeploymentStageDescriptionDataTraceEnabled - , fmap (("Description",) . toJSON) _apiGatewayDeploymentStageDescriptionDescription - , fmap (("DocumentationVersion",) . toJSON) _apiGatewayDeploymentStageDescriptionDocumentationVersion - , fmap (("LoggingLevel",) . toJSON) _apiGatewayDeploymentStageDescriptionLoggingLevel - , fmap (("MethodSettings",) . toJSON) _apiGatewayDeploymentStageDescriptionMethodSettings - , fmap (("MetricsEnabled",) . toJSON) _apiGatewayDeploymentStageDescriptionMetricsEnabled - , fmap (("Tags",) . toJSON) _apiGatewayDeploymentStageDescriptionTags - , fmap (("ThrottlingBurstLimit",) . toJSON) _apiGatewayDeploymentStageDescriptionThrottlingBurstLimit - , fmap (("ThrottlingRateLimit",) . toJSON) _apiGatewayDeploymentStageDescriptionThrottlingRateLimit - , fmap (("TracingEnabled",) . toJSON) _apiGatewayDeploymentStageDescriptionTracingEnabled - , fmap (("Variables",) . toJSON) _apiGatewayDeploymentStageDescriptionVariables - ] - --- | Constructor for 'ApiGatewayDeploymentStageDescription' containing --- required fields as arguments. -apiGatewayDeploymentStageDescription - :: ApiGatewayDeploymentStageDescription -apiGatewayDeploymentStageDescription = - ApiGatewayDeploymentStageDescription - { _apiGatewayDeploymentStageDescriptionAccessLogSetting = Nothing - , _apiGatewayDeploymentStageDescriptionCacheClusterEnabled = Nothing - , _apiGatewayDeploymentStageDescriptionCacheClusterSize = Nothing - , _apiGatewayDeploymentStageDescriptionCacheDataEncrypted = Nothing - , _apiGatewayDeploymentStageDescriptionCacheTtlInSeconds = Nothing - , _apiGatewayDeploymentStageDescriptionCachingEnabled = Nothing - , _apiGatewayDeploymentStageDescriptionCanarySetting = Nothing - , _apiGatewayDeploymentStageDescriptionClientCertificateId = Nothing - , _apiGatewayDeploymentStageDescriptionDataTraceEnabled = Nothing - , _apiGatewayDeploymentStageDescriptionDescription = Nothing - , _apiGatewayDeploymentStageDescriptionDocumentationVersion = Nothing - , _apiGatewayDeploymentStageDescriptionLoggingLevel = Nothing - , _apiGatewayDeploymentStageDescriptionMethodSettings = Nothing - , _apiGatewayDeploymentStageDescriptionMetricsEnabled = Nothing - , _apiGatewayDeploymentStageDescriptionTags = Nothing - , _apiGatewayDeploymentStageDescriptionThrottlingBurstLimit = Nothing - , _apiGatewayDeploymentStageDescriptionThrottlingRateLimit = Nothing - , _apiGatewayDeploymentStageDescriptionTracingEnabled = Nothing - , _apiGatewayDeploymentStageDescriptionVariables = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-accesslogsetting -agdsdAccessLogSetting :: Lens' ApiGatewayDeploymentStageDescription (Maybe ApiGatewayDeploymentAccessLogSetting) -agdsdAccessLogSetting = lens _apiGatewayDeploymentStageDescriptionAccessLogSetting (\s a -> s { _apiGatewayDeploymentStageDescriptionAccessLogSetting = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-cacheclusterenabled -agdsdCacheClusterEnabled :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Bool)) -agdsdCacheClusterEnabled = lens _apiGatewayDeploymentStageDescriptionCacheClusterEnabled (\s a -> s { _apiGatewayDeploymentStageDescriptionCacheClusterEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-cacheclustersize -agdsdCacheClusterSize :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Text)) -agdsdCacheClusterSize = lens _apiGatewayDeploymentStageDescriptionCacheClusterSize (\s a -> s { _apiGatewayDeploymentStageDescriptionCacheClusterSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-cachedataencrypted -agdsdCacheDataEncrypted :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Bool)) -agdsdCacheDataEncrypted = lens _apiGatewayDeploymentStageDescriptionCacheDataEncrypted (\s a -> s { _apiGatewayDeploymentStageDescriptionCacheDataEncrypted = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-cachettlinseconds -agdsdCacheTtlInSeconds :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Integer)) -agdsdCacheTtlInSeconds = lens _apiGatewayDeploymentStageDescriptionCacheTtlInSeconds (\s a -> s { _apiGatewayDeploymentStageDescriptionCacheTtlInSeconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-cachingenabled -agdsdCachingEnabled :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Bool)) -agdsdCachingEnabled = lens _apiGatewayDeploymentStageDescriptionCachingEnabled (\s a -> s { _apiGatewayDeploymentStageDescriptionCachingEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-canarysetting -agdsdCanarySetting :: Lens' ApiGatewayDeploymentStageDescription (Maybe ApiGatewayDeploymentCanarySetting) -agdsdCanarySetting = lens _apiGatewayDeploymentStageDescriptionCanarySetting (\s a -> s { _apiGatewayDeploymentStageDescriptionCanarySetting = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-clientcertificateid -agdsdClientCertificateId :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Text)) -agdsdClientCertificateId = lens _apiGatewayDeploymentStageDescriptionClientCertificateId (\s a -> s { _apiGatewayDeploymentStageDescriptionClientCertificateId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-datatraceenabled -agdsdDataTraceEnabled :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Bool)) -agdsdDataTraceEnabled = lens _apiGatewayDeploymentStageDescriptionDataTraceEnabled (\s a -> s { _apiGatewayDeploymentStageDescriptionDataTraceEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-description -agdsdDescription :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Text)) -agdsdDescription = lens _apiGatewayDeploymentStageDescriptionDescription (\s a -> s { _apiGatewayDeploymentStageDescriptionDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-documentationversion -agdsdDocumentationVersion :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Text)) -agdsdDocumentationVersion = lens _apiGatewayDeploymentStageDescriptionDocumentationVersion (\s a -> s { _apiGatewayDeploymentStageDescriptionDocumentationVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-logginglevel -agdsdLoggingLevel :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val LoggingLevel)) -agdsdLoggingLevel = lens _apiGatewayDeploymentStageDescriptionLoggingLevel (\s a -> s { _apiGatewayDeploymentStageDescriptionLoggingLevel = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-methodsettings -agdsdMethodSettings :: Lens' ApiGatewayDeploymentStageDescription (Maybe [ApiGatewayDeploymentMethodSetting]) -agdsdMethodSettings = lens _apiGatewayDeploymentStageDescriptionMethodSettings (\s a -> s { _apiGatewayDeploymentStageDescriptionMethodSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-metricsenabled -agdsdMetricsEnabled :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Bool)) -agdsdMetricsEnabled = lens _apiGatewayDeploymentStageDescriptionMetricsEnabled (\s a -> s { _apiGatewayDeploymentStageDescriptionMetricsEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-tags -agdsdTags :: Lens' ApiGatewayDeploymentStageDescription (Maybe [Tag]) -agdsdTags = lens _apiGatewayDeploymentStageDescriptionTags (\s a -> s { _apiGatewayDeploymentStageDescriptionTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-throttlingburstlimit -agdsdThrottlingBurstLimit :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Integer)) -agdsdThrottlingBurstLimit = lens _apiGatewayDeploymentStageDescriptionThrottlingBurstLimit (\s a -> s { _apiGatewayDeploymentStageDescriptionThrottlingBurstLimit = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-throttlingratelimit -agdsdThrottlingRateLimit :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Double)) -agdsdThrottlingRateLimit = lens _apiGatewayDeploymentStageDescriptionThrottlingRateLimit (\s a -> s { _apiGatewayDeploymentStageDescriptionThrottlingRateLimit = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-tracingenabled -agdsdTracingEnabled :: Lens' ApiGatewayDeploymentStageDescription (Maybe (Val Bool)) -agdsdTracingEnabled = lens _apiGatewayDeploymentStageDescriptionTracingEnabled (\s a -> s { _apiGatewayDeploymentStageDescriptionTracingEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-deployment-stagedescription.html#cfn-apigateway-deployment-stagedescription-variables -agdsdVariables :: Lens' ApiGatewayDeploymentStageDescription (Maybe Object) -agdsdVariables = lens _apiGatewayDeploymentStageDescriptionVariables (\s a -> s { _apiGatewayDeploymentStageDescriptionVariables = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayDocumentationPartLocation.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayDocumentationPartLocation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayDocumentationPartLocation.hs +++ /dev/null @@ -1,66 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-documentationpart-location.html - -module Stratosphere.ResourceProperties.ApiGatewayDocumentationPartLocation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayDocumentationPartLocation. See --- 'apiGatewayDocumentationPartLocation' for a more convenient constructor. -data ApiGatewayDocumentationPartLocation = - ApiGatewayDocumentationPartLocation - { _apiGatewayDocumentationPartLocationMethod :: Maybe (Val Text) - , _apiGatewayDocumentationPartLocationName :: Maybe (Val Text) - , _apiGatewayDocumentationPartLocationPath :: Maybe (Val Text) - , _apiGatewayDocumentationPartLocationStatusCode :: Maybe (Val Text) - , _apiGatewayDocumentationPartLocationType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ApiGatewayDocumentationPartLocation where - toJSON ApiGatewayDocumentationPartLocation{..} = - object $ - catMaybes - [ fmap (("Method",) . toJSON) _apiGatewayDocumentationPartLocationMethod - , fmap (("Name",) . toJSON) _apiGatewayDocumentationPartLocationName - , fmap (("Path",) . toJSON) _apiGatewayDocumentationPartLocationPath - , fmap (("StatusCode",) . toJSON) _apiGatewayDocumentationPartLocationStatusCode - , fmap (("Type",) . toJSON) _apiGatewayDocumentationPartLocationType - ] - --- | Constructor for 'ApiGatewayDocumentationPartLocation' containing required --- fields as arguments. -apiGatewayDocumentationPartLocation - :: ApiGatewayDocumentationPartLocation -apiGatewayDocumentationPartLocation = - ApiGatewayDocumentationPartLocation - { _apiGatewayDocumentationPartLocationMethod = Nothing - , _apiGatewayDocumentationPartLocationName = Nothing - , _apiGatewayDocumentationPartLocationPath = Nothing - , _apiGatewayDocumentationPartLocationStatusCode = Nothing - , _apiGatewayDocumentationPartLocationType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-documentationpart-location.html#cfn-apigateway-documentationpart-location-method -agdplMethod :: Lens' ApiGatewayDocumentationPartLocation (Maybe (Val Text)) -agdplMethod = lens _apiGatewayDocumentationPartLocationMethod (\s a -> s { _apiGatewayDocumentationPartLocationMethod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-documentationpart-location.html#cfn-apigateway-documentationpart-location-name -agdplName :: Lens' ApiGatewayDocumentationPartLocation (Maybe (Val Text)) -agdplName = lens _apiGatewayDocumentationPartLocationName (\s a -> s { _apiGatewayDocumentationPartLocationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-documentationpart-location.html#cfn-apigateway-documentationpart-location-path -agdplPath :: Lens' ApiGatewayDocumentationPartLocation (Maybe (Val Text)) -agdplPath = lens _apiGatewayDocumentationPartLocationPath (\s a -> s { _apiGatewayDocumentationPartLocationPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-documentationpart-location.html#cfn-apigateway-documentationpart-location-statuscode -agdplStatusCode :: Lens' ApiGatewayDocumentationPartLocation (Maybe (Val Text)) -agdplStatusCode = lens _apiGatewayDocumentationPartLocationStatusCode (\s a -> s { _apiGatewayDocumentationPartLocationStatusCode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-documentationpart-location.html#cfn-apigateway-documentationpart-location-type -agdplType :: Lens' ApiGatewayDocumentationPartLocation (Maybe (Val Text)) -agdplType = lens _apiGatewayDocumentationPartLocationType (\s a -> s { _apiGatewayDocumentationPartLocationType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayDomainNameEndpointConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayDomainNameEndpointConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayDomainNameEndpointConfiguration.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-domainname-endpointconfiguration.html - -module Stratosphere.ResourceProperties.ApiGatewayDomainNameEndpointConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayDomainNameEndpointConfiguration. --- See 'apiGatewayDomainNameEndpointConfiguration' for a more convenient --- constructor. -data ApiGatewayDomainNameEndpointConfiguration = - ApiGatewayDomainNameEndpointConfiguration - { _apiGatewayDomainNameEndpointConfigurationTypes :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON ApiGatewayDomainNameEndpointConfiguration where - toJSON ApiGatewayDomainNameEndpointConfiguration{..} = - object $ - catMaybes - [ fmap (("Types",) . toJSON) _apiGatewayDomainNameEndpointConfigurationTypes - ] - --- | Constructor for 'ApiGatewayDomainNameEndpointConfiguration' containing --- required fields as arguments. -apiGatewayDomainNameEndpointConfiguration - :: ApiGatewayDomainNameEndpointConfiguration -apiGatewayDomainNameEndpointConfiguration = - ApiGatewayDomainNameEndpointConfiguration - { _apiGatewayDomainNameEndpointConfigurationTypes = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-domainname-endpointconfiguration.html#cfn-apigateway-domainname-endpointconfiguration-types -agdnecTypes :: Lens' ApiGatewayDomainNameEndpointConfiguration (Maybe (ValList Text)) -agdnecTypes = lens _apiGatewayDomainNameEndpointConfigurationTypes (\s a -> s { _apiGatewayDomainNameEndpointConfigurationTypes = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayMethodIntegration.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayMethodIntegration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayMethodIntegration.hs +++ /dev/null @@ -1,130 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration.html - -module Stratosphere.ResourceProperties.ApiGatewayMethodIntegration where - -import Stratosphere.ResourceImports -import Stratosphere.Types -import Stratosphere.ResourceProperties.ApiGatewayMethodIntegrationResponse - --- | Full data type definition for ApiGatewayMethodIntegration. See --- 'apiGatewayMethodIntegration' for a more convenient constructor. -data ApiGatewayMethodIntegration = - ApiGatewayMethodIntegration - { _apiGatewayMethodIntegrationCacheKeyParameters :: Maybe (ValList Text) - , _apiGatewayMethodIntegrationCacheNamespace :: Maybe (Val Text) - , _apiGatewayMethodIntegrationConnectionId :: Maybe (Val Text) - , _apiGatewayMethodIntegrationConnectionType :: Maybe (Val Text) - , _apiGatewayMethodIntegrationContentHandling :: Maybe (Val Text) - , _apiGatewayMethodIntegrationCredentials :: Maybe (Val Text) - , _apiGatewayMethodIntegrationIntegrationHttpMethod :: Maybe (Val HttpMethod) - , _apiGatewayMethodIntegrationIntegrationResponses :: Maybe [ApiGatewayMethodIntegrationResponse] - , _apiGatewayMethodIntegrationPassthroughBehavior :: Maybe (Val PassthroughBehavior) - , _apiGatewayMethodIntegrationRequestParameters :: Maybe Object - , _apiGatewayMethodIntegrationRequestTemplates :: Maybe Object - , _apiGatewayMethodIntegrationTimeoutInMillis :: Maybe (Val Integer) - , _apiGatewayMethodIntegrationType :: Maybe (Val ApiBackendType) - , _apiGatewayMethodIntegrationUri :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ApiGatewayMethodIntegration where - toJSON ApiGatewayMethodIntegration{..} = - object $ - catMaybes - [ fmap (("CacheKeyParameters",) . toJSON) _apiGatewayMethodIntegrationCacheKeyParameters - , fmap (("CacheNamespace",) . toJSON) _apiGatewayMethodIntegrationCacheNamespace - , fmap (("ConnectionId",) . toJSON) _apiGatewayMethodIntegrationConnectionId - , fmap (("ConnectionType",) . toJSON) _apiGatewayMethodIntegrationConnectionType - , fmap (("ContentHandling",) . toJSON) _apiGatewayMethodIntegrationContentHandling - , fmap (("Credentials",) . toJSON) _apiGatewayMethodIntegrationCredentials - , fmap (("IntegrationHttpMethod",) . toJSON) _apiGatewayMethodIntegrationIntegrationHttpMethod - , fmap (("IntegrationResponses",) . toJSON) _apiGatewayMethodIntegrationIntegrationResponses - , fmap (("PassthroughBehavior",) . toJSON) _apiGatewayMethodIntegrationPassthroughBehavior - , fmap (("RequestParameters",) . toJSON) _apiGatewayMethodIntegrationRequestParameters - , fmap (("RequestTemplates",) . toJSON) _apiGatewayMethodIntegrationRequestTemplates - , fmap (("TimeoutInMillis",) . toJSON) _apiGatewayMethodIntegrationTimeoutInMillis - , fmap (("Type",) . toJSON) _apiGatewayMethodIntegrationType - , fmap (("Uri",) . toJSON) _apiGatewayMethodIntegrationUri - ] - --- | Constructor for 'ApiGatewayMethodIntegration' containing required fields --- as arguments. -apiGatewayMethodIntegration - :: ApiGatewayMethodIntegration -apiGatewayMethodIntegration = - ApiGatewayMethodIntegration - { _apiGatewayMethodIntegrationCacheKeyParameters = Nothing - , _apiGatewayMethodIntegrationCacheNamespace = Nothing - , _apiGatewayMethodIntegrationConnectionId = Nothing - , _apiGatewayMethodIntegrationConnectionType = Nothing - , _apiGatewayMethodIntegrationContentHandling = Nothing - , _apiGatewayMethodIntegrationCredentials = Nothing - , _apiGatewayMethodIntegrationIntegrationHttpMethod = Nothing - , _apiGatewayMethodIntegrationIntegrationResponses = Nothing - , _apiGatewayMethodIntegrationPassthroughBehavior = Nothing - , _apiGatewayMethodIntegrationRequestParameters = Nothing - , _apiGatewayMethodIntegrationRequestTemplates = Nothing - , _apiGatewayMethodIntegrationTimeoutInMillis = Nothing - , _apiGatewayMethodIntegrationType = Nothing - , _apiGatewayMethodIntegrationUri = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration.html#cfn-apigateway-method-integration-cachekeyparameters -agmiCacheKeyParameters :: Lens' ApiGatewayMethodIntegration (Maybe (ValList Text)) -agmiCacheKeyParameters = lens _apiGatewayMethodIntegrationCacheKeyParameters (\s a -> s { _apiGatewayMethodIntegrationCacheKeyParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration.html#cfn-apigateway-method-integration-cachenamespace -agmiCacheNamespace :: Lens' ApiGatewayMethodIntegration (Maybe (Val Text)) -agmiCacheNamespace = lens _apiGatewayMethodIntegrationCacheNamespace (\s a -> s { _apiGatewayMethodIntegrationCacheNamespace = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration.html#cfn-apigateway-method-integration-connectionid -agmiConnectionId :: Lens' ApiGatewayMethodIntegration (Maybe (Val Text)) -agmiConnectionId = lens _apiGatewayMethodIntegrationConnectionId (\s a -> s { _apiGatewayMethodIntegrationConnectionId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration.html#cfn-apigateway-method-integration-connectiontype -agmiConnectionType :: Lens' ApiGatewayMethodIntegration (Maybe (Val Text)) -agmiConnectionType = lens _apiGatewayMethodIntegrationConnectionType (\s a -> s { _apiGatewayMethodIntegrationConnectionType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration.html#cfn-apigateway-method-integration-contenthandling -agmiContentHandling :: Lens' ApiGatewayMethodIntegration (Maybe (Val Text)) -agmiContentHandling = lens _apiGatewayMethodIntegrationContentHandling (\s a -> s { _apiGatewayMethodIntegrationContentHandling = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration.html#cfn-apigateway-method-integration-credentials -agmiCredentials :: Lens' ApiGatewayMethodIntegration (Maybe (Val Text)) -agmiCredentials = lens _apiGatewayMethodIntegrationCredentials (\s a -> s { _apiGatewayMethodIntegrationCredentials = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration.html#cfn-apigateway-method-integration-integrationhttpmethod -agmiIntegrationHttpMethod :: Lens' ApiGatewayMethodIntegration (Maybe (Val HttpMethod)) -agmiIntegrationHttpMethod = lens _apiGatewayMethodIntegrationIntegrationHttpMethod (\s a -> s { _apiGatewayMethodIntegrationIntegrationHttpMethod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration.html#cfn-apigateway-method-integration-integrationresponses -agmiIntegrationResponses :: Lens' ApiGatewayMethodIntegration (Maybe [ApiGatewayMethodIntegrationResponse]) -agmiIntegrationResponses = lens _apiGatewayMethodIntegrationIntegrationResponses (\s a -> s { _apiGatewayMethodIntegrationIntegrationResponses = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration.html#cfn-apigateway-method-integration-passthroughbehavior -agmiPassthroughBehavior :: Lens' ApiGatewayMethodIntegration (Maybe (Val PassthroughBehavior)) -agmiPassthroughBehavior = lens _apiGatewayMethodIntegrationPassthroughBehavior (\s a -> s { _apiGatewayMethodIntegrationPassthroughBehavior = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration.html#cfn-apigateway-method-integration-requestparameters -agmiRequestParameters :: Lens' ApiGatewayMethodIntegration (Maybe Object) -agmiRequestParameters = lens _apiGatewayMethodIntegrationRequestParameters (\s a -> s { _apiGatewayMethodIntegrationRequestParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration.html#cfn-apigateway-method-integration-requesttemplates -agmiRequestTemplates :: Lens' ApiGatewayMethodIntegration (Maybe Object) -agmiRequestTemplates = lens _apiGatewayMethodIntegrationRequestTemplates (\s a -> s { _apiGatewayMethodIntegrationRequestTemplates = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration.html#cfn-apigateway-method-integration-timeoutinmillis -agmiTimeoutInMillis :: Lens' ApiGatewayMethodIntegration (Maybe (Val Integer)) -agmiTimeoutInMillis = lens _apiGatewayMethodIntegrationTimeoutInMillis (\s a -> s { _apiGatewayMethodIntegrationTimeoutInMillis = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration.html#cfn-apigateway-method-integration-type -agmiType :: Lens' ApiGatewayMethodIntegration (Maybe (Val ApiBackendType)) -agmiType = lens _apiGatewayMethodIntegrationType (\s a -> s { _apiGatewayMethodIntegrationType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration.html#cfn-apigateway-method-integration-uri -agmiUri :: Lens' ApiGatewayMethodIntegration (Maybe (Val Text)) -agmiUri = lens _apiGatewayMethodIntegrationUri (\s a -> s { _apiGatewayMethodIntegrationUri = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayMethodIntegrationResponse.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayMethodIntegrationResponse.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayMethodIntegrationResponse.hs +++ /dev/null @@ -1,67 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration-integrationresponse.html - -module Stratosphere.ResourceProperties.ApiGatewayMethodIntegrationResponse where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayMethodIntegrationResponse. See --- 'apiGatewayMethodIntegrationResponse' for a more convenient constructor. -data ApiGatewayMethodIntegrationResponse = - ApiGatewayMethodIntegrationResponse - { _apiGatewayMethodIntegrationResponseContentHandling :: Maybe (Val Text) - , _apiGatewayMethodIntegrationResponseResponseParameters :: Maybe Object - , _apiGatewayMethodIntegrationResponseResponseTemplates :: Maybe Object - , _apiGatewayMethodIntegrationResponseSelectionPattern :: Maybe (Val Text) - , _apiGatewayMethodIntegrationResponseStatusCode :: Val Text - } deriving (Show, Eq) - -instance ToJSON ApiGatewayMethodIntegrationResponse where - toJSON ApiGatewayMethodIntegrationResponse{..} = - object $ - catMaybes - [ fmap (("ContentHandling",) . toJSON) _apiGatewayMethodIntegrationResponseContentHandling - , fmap (("ResponseParameters",) . toJSON) _apiGatewayMethodIntegrationResponseResponseParameters - , fmap (("ResponseTemplates",) . toJSON) _apiGatewayMethodIntegrationResponseResponseTemplates - , fmap (("SelectionPattern",) . toJSON) _apiGatewayMethodIntegrationResponseSelectionPattern - , (Just . ("StatusCode",) . toJSON) _apiGatewayMethodIntegrationResponseStatusCode - ] - --- | Constructor for 'ApiGatewayMethodIntegrationResponse' containing required --- fields as arguments. -apiGatewayMethodIntegrationResponse - :: Val Text -- ^ 'agmirStatusCode' - -> ApiGatewayMethodIntegrationResponse -apiGatewayMethodIntegrationResponse statusCodearg = - ApiGatewayMethodIntegrationResponse - { _apiGatewayMethodIntegrationResponseContentHandling = Nothing - , _apiGatewayMethodIntegrationResponseResponseParameters = Nothing - , _apiGatewayMethodIntegrationResponseResponseTemplates = Nothing - , _apiGatewayMethodIntegrationResponseSelectionPattern = Nothing - , _apiGatewayMethodIntegrationResponseStatusCode = statusCodearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration-integrationresponse.html#cfn-apigateway-method-integrationresponse-contenthandling -agmirContentHandling :: Lens' ApiGatewayMethodIntegrationResponse (Maybe (Val Text)) -agmirContentHandling = lens _apiGatewayMethodIntegrationResponseContentHandling (\s a -> s { _apiGatewayMethodIntegrationResponseContentHandling = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration-integrationresponse.html#cfn-apigateway-method-integration-integrationresponse-responseparameters -agmirResponseParameters :: Lens' ApiGatewayMethodIntegrationResponse (Maybe Object) -agmirResponseParameters = lens _apiGatewayMethodIntegrationResponseResponseParameters (\s a -> s { _apiGatewayMethodIntegrationResponseResponseParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration-integrationresponse.html#cfn-apigateway-method-integration-integrationresponse-responsetemplates -agmirResponseTemplates :: Lens' ApiGatewayMethodIntegrationResponse (Maybe Object) -agmirResponseTemplates = lens _apiGatewayMethodIntegrationResponseResponseTemplates (\s a -> s { _apiGatewayMethodIntegrationResponseResponseTemplates = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration-integrationresponse.html#cfn-apigateway-method-integration-integrationresponse-selectionpattern -agmirSelectionPattern :: Lens' ApiGatewayMethodIntegrationResponse (Maybe (Val Text)) -agmirSelectionPattern = lens _apiGatewayMethodIntegrationResponseSelectionPattern (\s a -> s { _apiGatewayMethodIntegrationResponseSelectionPattern = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-integration-integrationresponse.html#cfn-apigateway-method-integration-integrationresponse-statuscode -agmirStatusCode :: Lens' ApiGatewayMethodIntegrationResponse (Val Text) -agmirStatusCode = lens _apiGatewayMethodIntegrationResponseStatusCode (\s a -> s { _apiGatewayMethodIntegrationResponseStatusCode = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayMethodMethodResponse.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayMethodMethodResponse.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayMethodMethodResponse.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-methodresponse.html - -module Stratosphere.ResourceProperties.ApiGatewayMethodMethodResponse where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayMethodMethodResponse. See --- 'apiGatewayMethodMethodResponse' for a more convenient constructor. -data ApiGatewayMethodMethodResponse = - ApiGatewayMethodMethodResponse - { _apiGatewayMethodMethodResponseResponseModels :: Maybe Object - , _apiGatewayMethodMethodResponseResponseParameters :: Maybe Object - , _apiGatewayMethodMethodResponseStatusCode :: Val Text - } deriving (Show, Eq) - -instance ToJSON ApiGatewayMethodMethodResponse where - toJSON ApiGatewayMethodMethodResponse{..} = - object $ - catMaybes - [ fmap (("ResponseModels",) . toJSON) _apiGatewayMethodMethodResponseResponseModels - , fmap (("ResponseParameters",) . toJSON) _apiGatewayMethodMethodResponseResponseParameters - , (Just . ("StatusCode",) . toJSON) _apiGatewayMethodMethodResponseStatusCode - ] - --- | Constructor for 'ApiGatewayMethodMethodResponse' containing required --- fields as arguments. -apiGatewayMethodMethodResponse - :: Val Text -- ^ 'agmmrStatusCode' - -> ApiGatewayMethodMethodResponse -apiGatewayMethodMethodResponse statusCodearg = - ApiGatewayMethodMethodResponse - { _apiGatewayMethodMethodResponseResponseModels = Nothing - , _apiGatewayMethodMethodResponseResponseParameters = Nothing - , _apiGatewayMethodMethodResponseStatusCode = statusCodearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-methodresponse.html#cfn-apigateway-method-methodresponse-responsemodels -agmmrResponseModels :: Lens' ApiGatewayMethodMethodResponse (Maybe Object) -agmmrResponseModels = lens _apiGatewayMethodMethodResponseResponseModels (\s a -> s { _apiGatewayMethodMethodResponseResponseModels = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-methodresponse.html#cfn-apigateway-method-methodresponse-responseparameters -agmmrResponseParameters :: Lens' ApiGatewayMethodMethodResponse (Maybe Object) -agmmrResponseParameters = lens _apiGatewayMethodMethodResponseResponseParameters (\s a -> s { _apiGatewayMethodMethodResponseResponseParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-method-methodresponse.html#cfn-apigateway-method-methodresponse-statuscode -agmmrStatusCode :: Lens' ApiGatewayMethodMethodResponse (Val Text) -agmmrStatusCode = lens _apiGatewayMethodMethodResponseStatusCode (\s a -> s { _apiGatewayMethodMethodResponseStatusCode = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayRestApiEndpointConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayRestApiEndpointConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayRestApiEndpointConfiguration.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-restapi-endpointconfiguration.html - -module Stratosphere.ResourceProperties.ApiGatewayRestApiEndpointConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayRestApiEndpointConfiguration. See --- 'apiGatewayRestApiEndpointConfiguration' for a more convenient --- constructor. -data ApiGatewayRestApiEndpointConfiguration = - ApiGatewayRestApiEndpointConfiguration - { _apiGatewayRestApiEndpointConfigurationTypes :: Maybe (ValList Text) - , _apiGatewayRestApiEndpointConfigurationVpcEndpointIds :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON ApiGatewayRestApiEndpointConfiguration where - toJSON ApiGatewayRestApiEndpointConfiguration{..} = - object $ - catMaybes - [ fmap (("Types",) . toJSON) _apiGatewayRestApiEndpointConfigurationTypes - , fmap (("VpcEndpointIds",) . toJSON) _apiGatewayRestApiEndpointConfigurationVpcEndpointIds - ] - --- | Constructor for 'ApiGatewayRestApiEndpointConfiguration' containing --- required fields as arguments. -apiGatewayRestApiEndpointConfiguration - :: ApiGatewayRestApiEndpointConfiguration -apiGatewayRestApiEndpointConfiguration = - ApiGatewayRestApiEndpointConfiguration - { _apiGatewayRestApiEndpointConfigurationTypes = Nothing - , _apiGatewayRestApiEndpointConfigurationVpcEndpointIds = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-restapi-endpointconfiguration.html#cfn-apigateway-restapi-endpointconfiguration-types -agraecTypes :: Lens' ApiGatewayRestApiEndpointConfiguration (Maybe (ValList Text)) -agraecTypes = lens _apiGatewayRestApiEndpointConfigurationTypes (\s a -> s { _apiGatewayRestApiEndpointConfigurationTypes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-restapi-endpointconfiguration.html#cfn-apigateway-restapi-endpointconfiguration-vpcendpointids -agraecVpcEndpointIds :: Lens' ApiGatewayRestApiEndpointConfiguration (Maybe (ValList Text)) -agraecVpcEndpointIds = lens _apiGatewayRestApiEndpointConfigurationVpcEndpointIds (\s a -> s { _apiGatewayRestApiEndpointConfigurationVpcEndpointIds = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayRestApiS3Location.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayRestApiS3Location.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayRestApiS3Location.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-restapi-s3location.html - -module Stratosphere.ResourceProperties.ApiGatewayRestApiS3Location where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayRestApiS3Location. See --- 'apiGatewayRestApiS3Location' for a more convenient constructor. -data ApiGatewayRestApiS3Location = - ApiGatewayRestApiS3Location - { _apiGatewayRestApiS3LocationBucket :: Maybe (Val Text) - , _apiGatewayRestApiS3LocationETag :: Maybe (Val Text) - , _apiGatewayRestApiS3LocationKey :: Maybe (Val Text) - , _apiGatewayRestApiS3LocationVersion :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ApiGatewayRestApiS3Location where - toJSON ApiGatewayRestApiS3Location{..} = - object $ - catMaybes - [ fmap (("Bucket",) . toJSON) _apiGatewayRestApiS3LocationBucket - , fmap (("ETag",) . toJSON) _apiGatewayRestApiS3LocationETag - , fmap (("Key",) . toJSON) _apiGatewayRestApiS3LocationKey - , fmap (("Version",) . toJSON) _apiGatewayRestApiS3LocationVersion - ] - --- | Constructor for 'ApiGatewayRestApiS3Location' containing required fields --- as arguments. -apiGatewayRestApiS3Location - :: ApiGatewayRestApiS3Location -apiGatewayRestApiS3Location = - ApiGatewayRestApiS3Location - { _apiGatewayRestApiS3LocationBucket = Nothing - , _apiGatewayRestApiS3LocationETag = Nothing - , _apiGatewayRestApiS3LocationKey = Nothing - , _apiGatewayRestApiS3LocationVersion = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-restapi-s3location.html#cfn-apigateway-restapi-s3location-bucket -agraslBucket :: Lens' ApiGatewayRestApiS3Location (Maybe (Val Text)) -agraslBucket = lens _apiGatewayRestApiS3LocationBucket (\s a -> s { _apiGatewayRestApiS3LocationBucket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-restapi-s3location.html#cfn-apigateway-restapi-s3location-etag -agraslETag :: Lens' ApiGatewayRestApiS3Location (Maybe (Val Text)) -agraslETag = lens _apiGatewayRestApiS3LocationETag (\s a -> s { _apiGatewayRestApiS3LocationETag = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-restapi-s3location.html#cfn-apigateway-restapi-s3location-key -agraslKey :: Lens' ApiGatewayRestApiS3Location (Maybe (Val Text)) -agraslKey = lens _apiGatewayRestApiS3LocationKey (\s a -> s { _apiGatewayRestApiS3LocationKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-restapi-s3location.html#cfn-apigateway-restapi-s3location-version -agraslVersion :: Lens' ApiGatewayRestApiS3Location (Maybe (Val Text)) -agraslVersion = lens _apiGatewayRestApiS3LocationVersion (\s a -> s { _apiGatewayRestApiS3LocationVersion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayStageAccessLogSetting.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayStageAccessLogSetting.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayStageAccessLogSetting.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-stage-accesslogsetting.html - -module Stratosphere.ResourceProperties.ApiGatewayStageAccessLogSetting where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayStageAccessLogSetting. See --- 'apiGatewayStageAccessLogSetting' for a more convenient constructor. -data ApiGatewayStageAccessLogSetting = - ApiGatewayStageAccessLogSetting - { _apiGatewayStageAccessLogSettingDestinationArn :: Maybe (Val Text) - , _apiGatewayStageAccessLogSettingFormat :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ApiGatewayStageAccessLogSetting where - toJSON ApiGatewayStageAccessLogSetting{..} = - object $ - catMaybes - [ fmap (("DestinationArn",) . toJSON) _apiGatewayStageAccessLogSettingDestinationArn - , fmap (("Format",) . toJSON) _apiGatewayStageAccessLogSettingFormat - ] - --- | Constructor for 'ApiGatewayStageAccessLogSetting' containing required --- fields as arguments. -apiGatewayStageAccessLogSetting - :: ApiGatewayStageAccessLogSetting -apiGatewayStageAccessLogSetting = - ApiGatewayStageAccessLogSetting - { _apiGatewayStageAccessLogSettingDestinationArn = Nothing - , _apiGatewayStageAccessLogSettingFormat = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-stage-accesslogsetting.html#cfn-apigateway-stage-accesslogsetting-destinationarn -agsalsDestinationArn :: Lens' ApiGatewayStageAccessLogSetting (Maybe (Val Text)) -agsalsDestinationArn = lens _apiGatewayStageAccessLogSettingDestinationArn (\s a -> s { _apiGatewayStageAccessLogSettingDestinationArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-stage-accesslogsetting.html#cfn-apigateway-stage-accesslogsetting-format -agsalsFormat :: Lens' ApiGatewayStageAccessLogSetting (Maybe (Val Text)) -agsalsFormat = lens _apiGatewayStageAccessLogSettingFormat (\s a -> s { _apiGatewayStageAccessLogSettingFormat = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayStageCanarySetting.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayStageCanarySetting.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayStageCanarySetting.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-stage-canarysetting.html - -module Stratosphere.ResourceProperties.ApiGatewayStageCanarySetting where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayStageCanarySetting. See --- 'apiGatewayStageCanarySetting' for a more convenient constructor. -data ApiGatewayStageCanarySetting = - ApiGatewayStageCanarySetting - { _apiGatewayStageCanarySettingDeploymentId :: Maybe (Val Text) - , _apiGatewayStageCanarySettingPercentTraffic :: Maybe (Val Double) - , _apiGatewayStageCanarySettingStageVariableOverrides :: Maybe Object - , _apiGatewayStageCanarySettingUseStageCache :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON ApiGatewayStageCanarySetting where - toJSON ApiGatewayStageCanarySetting{..} = - object $ - catMaybes - [ fmap (("DeploymentId",) . toJSON) _apiGatewayStageCanarySettingDeploymentId - , fmap (("PercentTraffic",) . toJSON) _apiGatewayStageCanarySettingPercentTraffic - , fmap (("StageVariableOverrides",) . toJSON) _apiGatewayStageCanarySettingStageVariableOverrides - , fmap (("UseStageCache",) . toJSON) _apiGatewayStageCanarySettingUseStageCache - ] - --- | Constructor for 'ApiGatewayStageCanarySetting' containing required fields --- as arguments. -apiGatewayStageCanarySetting - :: ApiGatewayStageCanarySetting -apiGatewayStageCanarySetting = - ApiGatewayStageCanarySetting - { _apiGatewayStageCanarySettingDeploymentId = Nothing - , _apiGatewayStageCanarySettingPercentTraffic = Nothing - , _apiGatewayStageCanarySettingStageVariableOverrides = Nothing - , _apiGatewayStageCanarySettingUseStageCache = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-stage-canarysetting.html#cfn-apigateway-stage-canarysetting-deploymentid -agscsDeploymentId :: Lens' ApiGatewayStageCanarySetting (Maybe (Val Text)) -agscsDeploymentId = lens _apiGatewayStageCanarySettingDeploymentId (\s a -> s { _apiGatewayStageCanarySettingDeploymentId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-stage-canarysetting.html#cfn-apigateway-stage-canarysetting-percenttraffic -agscsPercentTraffic :: Lens' ApiGatewayStageCanarySetting (Maybe (Val Double)) -agscsPercentTraffic = lens _apiGatewayStageCanarySettingPercentTraffic (\s a -> s { _apiGatewayStageCanarySettingPercentTraffic = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-stage-canarysetting.html#cfn-apigateway-stage-canarysetting-stagevariableoverrides -agscsStageVariableOverrides :: Lens' ApiGatewayStageCanarySetting (Maybe Object) -agscsStageVariableOverrides = lens _apiGatewayStageCanarySettingStageVariableOverrides (\s a -> s { _apiGatewayStageCanarySettingStageVariableOverrides = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-stage-canarysetting.html#cfn-apigateway-stage-canarysetting-usestagecache -agscsUseStageCache :: Lens' ApiGatewayStageCanarySetting (Maybe (Val Bool)) -agscsUseStageCache = lens _apiGatewayStageCanarySettingUseStageCache (\s a -> s { _apiGatewayStageCanarySettingUseStageCache = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayStageMethodSetting.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayStageMethodSetting.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayStageMethodSetting.hs +++ /dev/null @@ -1,101 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-stage-methodsetting.html - -module Stratosphere.ResourceProperties.ApiGatewayStageMethodSetting where - -import Stratosphere.ResourceImports -import Stratosphere.Types - --- | Full data type definition for ApiGatewayStageMethodSetting. See --- 'apiGatewayStageMethodSetting' for a more convenient constructor. -data ApiGatewayStageMethodSetting = - ApiGatewayStageMethodSetting - { _apiGatewayStageMethodSettingCacheDataEncrypted :: Maybe (Val Bool) - , _apiGatewayStageMethodSettingCacheTtlInSeconds :: Maybe (Val Integer) - , _apiGatewayStageMethodSettingCachingEnabled :: Maybe (Val Bool) - , _apiGatewayStageMethodSettingDataTraceEnabled :: Maybe (Val Bool) - , _apiGatewayStageMethodSettingHttpMethod :: Maybe (Val HttpMethod) - , _apiGatewayStageMethodSettingLoggingLevel :: Maybe (Val LoggingLevel) - , _apiGatewayStageMethodSettingMetricsEnabled :: Maybe (Val Bool) - , _apiGatewayStageMethodSettingResourcePath :: Maybe (Val Text) - , _apiGatewayStageMethodSettingThrottlingBurstLimit :: Maybe (Val Integer) - , _apiGatewayStageMethodSettingThrottlingRateLimit :: Maybe (Val Double) - } deriving (Show, Eq) - -instance ToJSON ApiGatewayStageMethodSetting where - toJSON ApiGatewayStageMethodSetting{..} = - object $ - catMaybes - [ fmap (("CacheDataEncrypted",) . toJSON) _apiGatewayStageMethodSettingCacheDataEncrypted - , fmap (("CacheTtlInSeconds",) . toJSON) _apiGatewayStageMethodSettingCacheTtlInSeconds - , fmap (("CachingEnabled",) . toJSON) _apiGatewayStageMethodSettingCachingEnabled - , fmap (("DataTraceEnabled",) . toJSON) _apiGatewayStageMethodSettingDataTraceEnabled - , fmap (("HttpMethod",) . toJSON) _apiGatewayStageMethodSettingHttpMethod - , fmap (("LoggingLevel",) . toJSON) _apiGatewayStageMethodSettingLoggingLevel - , fmap (("MetricsEnabled",) . toJSON) _apiGatewayStageMethodSettingMetricsEnabled - , fmap (("ResourcePath",) . toJSON) _apiGatewayStageMethodSettingResourcePath - , fmap (("ThrottlingBurstLimit",) . toJSON) _apiGatewayStageMethodSettingThrottlingBurstLimit - , fmap (("ThrottlingRateLimit",) . toJSON) _apiGatewayStageMethodSettingThrottlingRateLimit - ] - --- | Constructor for 'ApiGatewayStageMethodSetting' containing required fields --- as arguments. -apiGatewayStageMethodSetting - :: ApiGatewayStageMethodSetting -apiGatewayStageMethodSetting = - ApiGatewayStageMethodSetting - { _apiGatewayStageMethodSettingCacheDataEncrypted = Nothing - , _apiGatewayStageMethodSettingCacheTtlInSeconds = Nothing - , _apiGatewayStageMethodSettingCachingEnabled = Nothing - , _apiGatewayStageMethodSettingDataTraceEnabled = Nothing - , _apiGatewayStageMethodSettingHttpMethod = Nothing - , _apiGatewayStageMethodSettingLoggingLevel = Nothing - , _apiGatewayStageMethodSettingMetricsEnabled = Nothing - , _apiGatewayStageMethodSettingResourcePath = Nothing - , _apiGatewayStageMethodSettingThrottlingBurstLimit = Nothing - , _apiGatewayStageMethodSettingThrottlingRateLimit = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-stage-methodsetting.html#cfn-apigateway-stage-methodsetting-cachedataencrypted -agsmsCacheDataEncrypted :: Lens' ApiGatewayStageMethodSetting (Maybe (Val Bool)) -agsmsCacheDataEncrypted = lens _apiGatewayStageMethodSettingCacheDataEncrypted (\s a -> s { _apiGatewayStageMethodSettingCacheDataEncrypted = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-stage-methodsetting.html#cfn-apigateway-stage-methodsetting-cachettlinseconds -agsmsCacheTtlInSeconds :: Lens' ApiGatewayStageMethodSetting (Maybe (Val Integer)) -agsmsCacheTtlInSeconds = lens _apiGatewayStageMethodSettingCacheTtlInSeconds (\s a -> s { _apiGatewayStageMethodSettingCacheTtlInSeconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-stage-methodsetting.html#cfn-apigateway-stage-methodsetting-cachingenabled -agsmsCachingEnabled :: Lens' ApiGatewayStageMethodSetting (Maybe (Val Bool)) -agsmsCachingEnabled = lens _apiGatewayStageMethodSettingCachingEnabled (\s a -> s { _apiGatewayStageMethodSettingCachingEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-stage-methodsetting.html#cfn-apigateway-stage-methodsetting-datatraceenabled -agsmsDataTraceEnabled :: Lens' ApiGatewayStageMethodSetting (Maybe (Val Bool)) -agsmsDataTraceEnabled = lens _apiGatewayStageMethodSettingDataTraceEnabled (\s a -> s { _apiGatewayStageMethodSettingDataTraceEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-stage-methodsetting.html#cfn-apigateway-stage-methodsetting-httpmethod -agsmsHttpMethod :: Lens' ApiGatewayStageMethodSetting (Maybe (Val HttpMethod)) -agsmsHttpMethod = lens _apiGatewayStageMethodSettingHttpMethod (\s a -> s { _apiGatewayStageMethodSettingHttpMethod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-stage-methodsetting.html#cfn-apigateway-stage-methodsetting-logginglevel -agsmsLoggingLevel :: Lens' ApiGatewayStageMethodSetting (Maybe (Val LoggingLevel)) -agsmsLoggingLevel = lens _apiGatewayStageMethodSettingLoggingLevel (\s a -> s { _apiGatewayStageMethodSettingLoggingLevel = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-stage-methodsetting.html#cfn-apigateway-stage-methodsetting-metricsenabled -agsmsMetricsEnabled :: Lens' ApiGatewayStageMethodSetting (Maybe (Val Bool)) -agsmsMetricsEnabled = lens _apiGatewayStageMethodSettingMetricsEnabled (\s a -> s { _apiGatewayStageMethodSettingMetricsEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-stage-methodsetting.html#cfn-apigateway-stage-methodsetting-resourcepath -agsmsResourcePath :: Lens' ApiGatewayStageMethodSetting (Maybe (Val Text)) -agsmsResourcePath = lens _apiGatewayStageMethodSettingResourcePath (\s a -> s { _apiGatewayStageMethodSettingResourcePath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-stage-methodsetting.html#cfn-apigateway-stage-methodsetting-throttlingburstlimit -agsmsThrottlingBurstLimit :: Lens' ApiGatewayStageMethodSetting (Maybe (Val Integer)) -agsmsThrottlingBurstLimit = lens _apiGatewayStageMethodSettingThrottlingBurstLimit (\s a -> s { _apiGatewayStageMethodSettingThrottlingBurstLimit = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apitgateway-stage-methodsetting.html#cfn-apigateway-stage-methodsetting-throttlingratelimit -agsmsThrottlingRateLimit :: Lens' ApiGatewayStageMethodSetting (Maybe (Val Double)) -agsmsThrottlingRateLimit = lens _apiGatewayStageMethodSettingThrottlingRateLimit (\s a -> s { _apiGatewayStageMethodSettingThrottlingRateLimit = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayUsagePlanApiStage.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayUsagePlanApiStage.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayUsagePlanApiStage.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-usageplan-apistage.html - -module Stratosphere.ResourceProperties.ApiGatewayUsagePlanApiStage where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ApiGatewayUsagePlanThrottleSettings - --- | Full data type definition for ApiGatewayUsagePlanApiStage. See --- 'apiGatewayUsagePlanApiStage' for a more convenient constructor. -data ApiGatewayUsagePlanApiStage = - ApiGatewayUsagePlanApiStage - { _apiGatewayUsagePlanApiStageApiId :: Maybe (Val Text) - , _apiGatewayUsagePlanApiStageStage :: Maybe (Val Text) - , _apiGatewayUsagePlanApiStageThrottle :: Maybe (Map Text ApiGatewayUsagePlanThrottleSettings) - } deriving (Show, Eq) - -instance ToJSON ApiGatewayUsagePlanApiStage where - toJSON ApiGatewayUsagePlanApiStage{..} = - object $ - catMaybes - [ fmap (("ApiId",) . toJSON) _apiGatewayUsagePlanApiStageApiId - , fmap (("Stage",) . toJSON) _apiGatewayUsagePlanApiStageStage - , fmap (("Throttle",) . toJSON) _apiGatewayUsagePlanApiStageThrottle - ] - --- | Constructor for 'ApiGatewayUsagePlanApiStage' containing required fields --- as arguments. -apiGatewayUsagePlanApiStage - :: ApiGatewayUsagePlanApiStage -apiGatewayUsagePlanApiStage = - ApiGatewayUsagePlanApiStage - { _apiGatewayUsagePlanApiStageApiId = Nothing - , _apiGatewayUsagePlanApiStageStage = Nothing - , _apiGatewayUsagePlanApiStageThrottle = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-usageplan-apistage.html#cfn-apigateway-usageplan-apistage-apiid -agupasApiId :: Lens' ApiGatewayUsagePlanApiStage (Maybe (Val Text)) -agupasApiId = lens _apiGatewayUsagePlanApiStageApiId (\s a -> s { _apiGatewayUsagePlanApiStageApiId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-usageplan-apistage.html#cfn-apigateway-usageplan-apistage-stage -agupasStage :: Lens' ApiGatewayUsagePlanApiStage (Maybe (Val Text)) -agupasStage = lens _apiGatewayUsagePlanApiStageStage (\s a -> s { _apiGatewayUsagePlanApiStageStage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-usageplan-apistage.html#cfn-apigateway-usageplan-apistage-throttle -agupasThrottle :: Lens' ApiGatewayUsagePlanApiStage (Maybe (Map Text ApiGatewayUsagePlanThrottleSettings)) -agupasThrottle = lens _apiGatewayUsagePlanApiStageThrottle (\s a -> s { _apiGatewayUsagePlanApiStageThrottle = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayUsagePlanQuotaSettings.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayUsagePlanQuotaSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayUsagePlanQuotaSettings.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-usageplan-quotasettings.html - -module Stratosphere.ResourceProperties.ApiGatewayUsagePlanQuotaSettings where - -import Stratosphere.ResourceImports -import Stratosphere.Types - --- | Full data type definition for ApiGatewayUsagePlanQuotaSettings. See --- 'apiGatewayUsagePlanQuotaSettings' for a more convenient constructor. -data ApiGatewayUsagePlanQuotaSettings = - ApiGatewayUsagePlanQuotaSettings - { _apiGatewayUsagePlanQuotaSettingsLimit :: Maybe (Val Integer) - , _apiGatewayUsagePlanQuotaSettingsOffset :: Maybe (Val Integer) - , _apiGatewayUsagePlanQuotaSettingsPeriod :: Maybe (Val Period) - } deriving (Show, Eq) - -instance ToJSON ApiGatewayUsagePlanQuotaSettings where - toJSON ApiGatewayUsagePlanQuotaSettings{..} = - object $ - catMaybes - [ fmap (("Limit",) . toJSON) _apiGatewayUsagePlanQuotaSettingsLimit - , fmap (("Offset",) . toJSON) _apiGatewayUsagePlanQuotaSettingsOffset - , fmap (("Period",) . toJSON) _apiGatewayUsagePlanQuotaSettingsPeriod - ] - --- | Constructor for 'ApiGatewayUsagePlanQuotaSettings' containing required --- fields as arguments. -apiGatewayUsagePlanQuotaSettings - :: ApiGatewayUsagePlanQuotaSettings -apiGatewayUsagePlanQuotaSettings = - ApiGatewayUsagePlanQuotaSettings - { _apiGatewayUsagePlanQuotaSettingsLimit = Nothing - , _apiGatewayUsagePlanQuotaSettingsOffset = Nothing - , _apiGatewayUsagePlanQuotaSettingsPeriod = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-usageplan-quotasettings.html#cfn-apigateway-usageplan-quotasettings-limit -agupqsLimit :: Lens' ApiGatewayUsagePlanQuotaSettings (Maybe (Val Integer)) -agupqsLimit = lens _apiGatewayUsagePlanQuotaSettingsLimit (\s a -> s { _apiGatewayUsagePlanQuotaSettingsLimit = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-usageplan-quotasettings.html#cfn-apigateway-usageplan-quotasettings-offset -agupqsOffset :: Lens' ApiGatewayUsagePlanQuotaSettings (Maybe (Val Integer)) -agupqsOffset = lens _apiGatewayUsagePlanQuotaSettingsOffset (\s a -> s { _apiGatewayUsagePlanQuotaSettingsOffset = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-usageplan-quotasettings.html#cfn-apigateway-usageplan-quotasettings-period -agupqsPeriod :: Lens' ApiGatewayUsagePlanQuotaSettings (Maybe (Val Period)) -agupqsPeriod = lens _apiGatewayUsagePlanQuotaSettingsPeriod (\s a -> s { _apiGatewayUsagePlanQuotaSettingsPeriod = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayUsagePlanThrottleSettings.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayUsagePlanThrottleSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayUsagePlanThrottleSettings.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-usageplan-throttlesettings.html - -module Stratosphere.ResourceProperties.ApiGatewayUsagePlanThrottleSettings where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayUsagePlanThrottleSettings. See --- 'apiGatewayUsagePlanThrottleSettings' for a more convenient constructor. -data ApiGatewayUsagePlanThrottleSettings = - ApiGatewayUsagePlanThrottleSettings - { _apiGatewayUsagePlanThrottleSettingsBurstLimit :: Maybe (Val Integer) - , _apiGatewayUsagePlanThrottleSettingsRateLimit :: Maybe (Val Double) - } deriving (Show, Eq) - -instance ToJSON ApiGatewayUsagePlanThrottleSettings where - toJSON ApiGatewayUsagePlanThrottleSettings{..} = - object $ - catMaybes - [ fmap (("BurstLimit",) . toJSON) _apiGatewayUsagePlanThrottleSettingsBurstLimit - , fmap (("RateLimit",) . toJSON) _apiGatewayUsagePlanThrottleSettingsRateLimit - ] - --- | Constructor for 'ApiGatewayUsagePlanThrottleSettings' containing required --- fields as arguments. -apiGatewayUsagePlanThrottleSettings - :: ApiGatewayUsagePlanThrottleSettings -apiGatewayUsagePlanThrottleSettings = - ApiGatewayUsagePlanThrottleSettings - { _apiGatewayUsagePlanThrottleSettingsBurstLimit = Nothing - , _apiGatewayUsagePlanThrottleSettingsRateLimit = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-usageplan-throttlesettings.html#cfn-apigateway-usageplan-throttlesettings-burstlimit -aguptsBurstLimit :: Lens' ApiGatewayUsagePlanThrottleSettings (Maybe (Val Integer)) -aguptsBurstLimit = lens _apiGatewayUsagePlanThrottleSettingsBurstLimit (\s a -> s { _apiGatewayUsagePlanThrottleSettingsBurstLimit = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigateway-usageplan-throttlesettings.html#cfn-apigateway-usageplan-throttlesettings-ratelimit -aguptsRateLimit :: Lens' ApiGatewayUsagePlanThrottleSettings (Maybe (Val Double)) -aguptsRateLimit = lens _apiGatewayUsagePlanThrottleSettingsRateLimit (\s a -> s { _apiGatewayUsagePlanThrottleSettingsRateLimit = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2ApiBodyS3Location.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2ApiBodyS3Location.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2ApiBodyS3Location.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-api-bodys3location.html - -module Stratosphere.ResourceProperties.ApiGatewayV2ApiBodyS3Location where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayV2ApiBodyS3Location. See --- 'apiGatewayV2ApiBodyS3Location' for a more convenient constructor. -data ApiGatewayV2ApiBodyS3Location = - ApiGatewayV2ApiBodyS3Location - { _apiGatewayV2ApiBodyS3LocationBucket :: Maybe (Val Text) - , _apiGatewayV2ApiBodyS3LocationEtag :: Maybe (Val Text) - , _apiGatewayV2ApiBodyS3LocationKey :: Maybe (Val Text) - , _apiGatewayV2ApiBodyS3LocationVersion :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ApiGatewayV2ApiBodyS3Location where - toJSON ApiGatewayV2ApiBodyS3Location{..} = - object $ - catMaybes - [ fmap (("Bucket",) . toJSON) _apiGatewayV2ApiBodyS3LocationBucket - , fmap (("Etag",) . toJSON) _apiGatewayV2ApiBodyS3LocationEtag - , fmap (("Key",) . toJSON) _apiGatewayV2ApiBodyS3LocationKey - , fmap (("Version",) . toJSON) _apiGatewayV2ApiBodyS3LocationVersion - ] - --- | Constructor for 'ApiGatewayV2ApiBodyS3Location' containing required --- fields as arguments. -apiGatewayV2ApiBodyS3Location - :: ApiGatewayV2ApiBodyS3Location -apiGatewayV2ApiBodyS3Location = - ApiGatewayV2ApiBodyS3Location - { _apiGatewayV2ApiBodyS3LocationBucket = Nothing - , _apiGatewayV2ApiBodyS3LocationEtag = Nothing - , _apiGatewayV2ApiBodyS3LocationKey = Nothing - , _apiGatewayV2ApiBodyS3LocationVersion = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-api-bodys3location.html#cfn-apigatewayv2-api-bodys3location-bucket -agvabslBucket :: Lens' ApiGatewayV2ApiBodyS3Location (Maybe (Val Text)) -agvabslBucket = lens _apiGatewayV2ApiBodyS3LocationBucket (\s a -> s { _apiGatewayV2ApiBodyS3LocationBucket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-api-bodys3location.html#cfn-apigatewayv2-api-bodys3location-etag -agvabslEtag :: Lens' ApiGatewayV2ApiBodyS3Location (Maybe (Val Text)) -agvabslEtag = lens _apiGatewayV2ApiBodyS3LocationEtag (\s a -> s { _apiGatewayV2ApiBodyS3LocationEtag = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-api-bodys3location.html#cfn-apigatewayv2-api-bodys3location-key -agvabslKey :: Lens' ApiGatewayV2ApiBodyS3Location (Maybe (Val Text)) -agvabslKey = lens _apiGatewayV2ApiBodyS3LocationKey (\s a -> s { _apiGatewayV2ApiBodyS3LocationKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-api-bodys3location.html#cfn-apigatewayv2-api-bodys3location-version -agvabslVersion :: Lens' ApiGatewayV2ApiBodyS3Location (Maybe (Val Text)) -agvabslVersion = lens _apiGatewayV2ApiBodyS3LocationVersion (\s a -> s { _apiGatewayV2ApiBodyS3LocationVersion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2ApiCors.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2ApiCors.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2ApiCors.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-api-cors.html - -module Stratosphere.ResourceProperties.ApiGatewayV2ApiCors where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayV2ApiCors. See --- 'apiGatewayV2ApiCors' for a more convenient constructor. -data ApiGatewayV2ApiCors = - ApiGatewayV2ApiCors - { _apiGatewayV2ApiCorsAllowCredentials :: Maybe (Val Bool) - , _apiGatewayV2ApiCorsAllowHeaders :: Maybe (ValList Text) - , _apiGatewayV2ApiCorsAllowMethods :: Maybe (ValList Text) - , _apiGatewayV2ApiCorsAllowOrigins :: Maybe (ValList Text) - , _apiGatewayV2ApiCorsExposeHeaders :: Maybe (ValList Text) - , _apiGatewayV2ApiCorsMaxAge :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON ApiGatewayV2ApiCors where - toJSON ApiGatewayV2ApiCors{..} = - object $ - catMaybes - [ fmap (("AllowCredentials",) . toJSON) _apiGatewayV2ApiCorsAllowCredentials - , fmap (("AllowHeaders",) . toJSON) _apiGatewayV2ApiCorsAllowHeaders - , fmap (("AllowMethods",) . toJSON) _apiGatewayV2ApiCorsAllowMethods - , fmap (("AllowOrigins",) . toJSON) _apiGatewayV2ApiCorsAllowOrigins - , fmap (("ExposeHeaders",) . toJSON) _apiGatewayV2ApiCorsExposeHeaders - , fmap (("MaxAge",) . toJSON) _apiGatewayV2ApiCorsMaxAge - ] - --- | Constructor for 'ApiGatewayV2ApiCors' containing required fields as --- arguments. -apiGatewayV2ApiCors - :: ApiGatewayV2ApiCors -apiGatewayV2ApiCors = - ApiGatewayV2ApiCors - { _apiGatewayV2ApiCorsAllowCredentials = Nothing - , _apiGatewayV2ApiCorsAllowHeaders = Nothing - , _apiGatewayV2ApiCorsAllowMethods = Nothing - , _apiGatewayV2ApiCorsAllowOrigins = Nothing - , _apiGatewayV2ApiCorsExposeHeaders = Nothing - , _apiGatewayV2ApiCorsMaxAge = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-api-cors.html#cfn-apigatewayv2-api-cors-allowcredentials -agvacAllowCredentials :: Lens' ApiGatewayV2ApiCors (Maybe (Val Bool)) -agvacAllowCredentials = lens _apiGatewayV2ApiCorsAllowCredentials (\s a -> s { _apiGatewayV2ApiCorsAllowCredentials = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-api-cors.html#cfn-apigatewayv2-api-cors-allowheaders -agvacAllowHeaders :: Lens' ApiGatewayV2ApiCors (Maybe (ValList Text)) -agvacAllowHeaders = lens _apiGatewayV2ApiCorsAllowHeaders (\s a -> s { _apiGatewayV2ApiCorsAllowHeaders = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-api-cors.html#cfn-apigatewayv2-api-cors-allowmethods -agvacAllowMethods :: Lens' ApiGatewayV2ApiCors (Maybe (ValList Text)) -agvacAllowMethods = lens _apiGatewayV2ApiCorsAllowMethods (\s a -> s { _apiGatewayV2ApiCorsAllowMethods = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-api-cors.html#cfn-apigatewayv2-api-cors-alloworigins -agvacAllowOrigins :: Lens' ApiGatewayV2ApiCors (Maybe (ValList Text)) -agvacAllowOrigins = lens _apiGatewayV2ApiCorsAllowOrigins (\s a -> s { _apiGatewayV2ApiCorsAllowOrigins = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-api-cors.html#cfn-apigatewayv2-api-cors-exposeheaders -agvacExposeHeaders :: Lens' ApiGatewayV2ApiCors (Maybe (ValList Text)) -agvacExposeHeaders = lens _apiGatewayV2ApiCorsExposeHeaders (\s a -> s { _apiGatewayV2ApiCorsExposeHeaders = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-api-cors.html#cfn-apigatewayv2-api-cors-maxage -agvacMaxAge :: Lens' ApiGatewayV2ApiCors (Maybe (Val Integer)) -agvacMaxAge = lens _apiGatewayV2ApiCorsMaxAge (\s a -> s { _apiGatewayV2ApiCorsMaxAge = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-accesslogsettings.html - -module Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings. See --- 'apiGatewayV2ApiGatewayManagedOverridesAccessLogSettings' for a more --- convenient constructor. -data ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings = - ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings - { _apiGatewayV2ApiGatewayManagedOverridesAccessLogSettingsDestinationArn :: Maybe (Val Text) - , _apiGatewayV2ApiGatewayManagedOverridesAccessLogSettingsFormat :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings where - toJSON ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings{..} = - object $ - catMaybes - [ fmap (("DestinationArn",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesAccessLogSettingsDestinationArn - , fmap (("Format",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesAccessLogSettingsFormat - ] - --- | Constructor for 'ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings' --- containing required fields as arguments. -apiGatewayV2ApiGatewayManagedOverridesAccessLogSettings - :: ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings -apiGatewayV2ApiGatewayManagedOverridesAccessLogSettings = - ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings - { _apiGatewayV2ApiGatewayManagedOverridesAccessLogSettingsDestinationArn = Nothing - , _apiGatewayV2ApiGatewayManagedOverridesAccessLogSettingsFormat = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-accesslogsettings.html#cfn-apigatewayv2-apigatewaymanagedoverrides-accesslogsettings-destinationarn -agvagmoalsDestinationArn :: Lens' ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings (Maybe (Val Text)) -agvagmoalsDestinationArn = lens _apiGatewayV2ApiGatewayManagedOverridesAccessLogSettingsDestinationArn (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesAccessLogSettingsDestinationArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-accesslogsettings.html#cfn-apigatewayv2-apigatewaymanagedoverrides-accesslogsettings-format -agvagmoalsFormat :: Lens' ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings (Maybe (Val Text)) -agvagmoalsFormat = lens _apiGatewayV2ApiGatewayManagedOverridesAccessLogSettingsFormat (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesAccessLogSettingsFormat = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-integrationoverrides.html - -module Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides. See --- 'apiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides' for a more --- convenient constructor. -data ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides = - ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides - { _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesDescription :: Maybe (Val Text) - , _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesIntegrationMethod :: Maybe (Val Text) - , _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesPayloadFormatVersion :: Maybe (Val Text) - , _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesTimeoutInMillis :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides where - toJSON ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides{..} = - object $ - catMaybes - [ fmap (("Description",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesDescription - , fmap (("IntegrationMethod",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesIntegrationMethod - , fmap (("PayloadFormatVersion",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesPayloadFormatVersion - , fmap (("TimeoutInMillis",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesTimeoutInMillis - ] - --- | Constructor for --- 'ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides' containing --- required fields as arguments. -apiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides - :: ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides -apiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides = - ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides - { _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesDescription = Nothing - , _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesIntegrationMethod = Nothing - , _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesPayloadFormatVersion = Nothing - , _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesTimeoutInMillis = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-integrationoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-integrationoverrides-description -agvagmoioDescription :: Lens' ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides (Maybe (Val Text)) -agvagmoioDescription = lens _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesDescription (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-integrationoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-integrationoverrides-integrationmethod -agvagmoioIntegrationMethod :: Lens' ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides (Maybe (Val Text)) -agvagmoioIntegrationMethod = lens _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesIntegrationMethod (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesIntegrationMethod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-integrationoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-integrationoverrides-payloadformatversion -agvagmoioPayloadFormatVersion :: Lens' ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides (Maybe (Val Text)) -agvagmoioPayloadFormatVersion = lens _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesPayloadFormatVersion (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesPayloadFormatVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-integrationoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-integrationoverrides-timeoutinmillis -agvagmoioTimeoutInMillis :: Lens' ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides (Maybe (Val Integer)) -agvagmoioTimeoutInMillis = lens _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesTimeoutInMillis (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesIntegrationOverridesTimeoutInMillis = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides.hs +++ /dev/null @@ -1,68 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-routeoverrides.html - -module Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides. See --- 'apiGatewayV2ApiGatewayManagedOverridesRouteOverrides' for a more --- convenient constructor. -data ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides = - ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides - { _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizationScopes :: Maybe (ValList Text) - , _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizationType :: Maybe (Val Text) - , _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizerId :: Maybe (Val Text) - , _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesOperationName :: Maybe (Val Text) - , _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesTarget :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides where - toJSON ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides{..} = - object $ - catMaybes - [ fmap (("AuthorizationScopes",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizationScopes - , fmap (("AuthorizationType",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizationType - , fmap (("AuthorizerId",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizerId - , fmap (("OperationName",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesOperationName - , fmap (("Target",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesTarget - ] - --- | Constructor for 'ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides' --- containing required fields as arguments. -apiGatewayV2ApiGatewayManagedOverridesRouteOverrides - :: ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides -apiGatewayV2ApiGatewayManagedOverridesRouteOverrides = - ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides - { _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizationScopes = Nothing - , _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizationType = Nothing - , _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizerId = Nothing - , _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesOperationName = Nothing - , _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesTarget = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-routeoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-routeoverrides-authorizationscopes -agvagmoroAuthorizationScopes :: Lens' ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides (Maybe (ValList Text)) -agvagmoroAuthorizationScopes = lens _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizationScopes (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizationScopes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-routeoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-routeoverrides-authorizationtype -agvagmoroAuthorizationType :: Lens' ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides (Maybe (Val Text)) -agvagmoroAuthorizationType = lens _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizationType (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizationType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-routeoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-routeoverrides-authorizerid -agvagmoroAuthorizerId :: Lens' ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides (Maybe (Val Text)) -agvagmoroAuthorizerId = lens _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizerId (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesAuthorizerId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-routeoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-routeoverrides-operationname -agvagmoroOperationName :: Lens' ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides (Maybe (Val Text)) -agvagmoroOperationName = lens _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesOperationName (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesOperationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-routeoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-routeoverrides-target -agvagmoroTarget :: Lens' ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides (Maybe (Val Text)) -agvagmoroTarget = lens _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesTarget (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesRouteOverridesTarget = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2ApiGatewayManagedOverridesRouteSettings.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2ApiGatewayManagedOverridesRouteSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2ApiGatewayManagedOverridesRouteSettings.hs +++ /dev/null @@ -1,68 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-routesettings.html - -module Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesRouteSettings where - -import Stratosphere.ResourceImports -import Stratosphere.Types - --- | Full data type definition for --- ApiGatewayV2ApiGatewayManagedOverridesRouteSettings. See --- 'apiGatewayV2ApiGatewayManagedOverridesRouteSettings' for a more --- convenient constructor. -data ApiGatewayV2ApiGatewayManagedOverridesRouteSettings = - ApiGatewayV2ApiGatewayManagedOverridesRouteSettings - { _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsDataTraceEnabled :: Maybe (Val Bool) - , _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsDetailedMetricsEnabled :: Maybe (Val Bool) - , _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsLoggingLevel :: Maybe (Val LoggingLevel) - , _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsThrottlingBurstLimit :: Maybe (Val Integer) - , _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsThrottlingRateLimit :: Maybe (Val Double) - } deriving (Show, Eq) - -instance ToJSON ApiGatewayV2ApiGatewayManagedOverridesRouteSettings where - toJSON ApiGatewayV2ApiGatewayManagedOverridesRouteSettings{..} = - object $ - catMaybes - [ fmap (("DataTraceEnabled",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsDataTraceEnabled - , fmap (("DetailedMetricsEnabled",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsDetailedMetricsEnabled - , fmap (("LoggingLevel",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsLoggingLevel - , fmap (("ThrottlingBurstLimit",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsThrottlingBurstLimit - , fmap (("ThrottlingRateLimit",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsThrottlingRateLimit - ] - --- | Constructor for 'ApiGatewayV2ApiGatewayManagedOverridesRouteSettings' --- containing required fields as arguments. -apiGatewayV2ApiGatewayManagedOverridesRouteSettings - :: ApiGatewayV2ApiGatewayManagedOverridesRouteSettings -apiGatewayV2ApiGatewayManagedOverridesRouteSettings = - ApiGatewayV2ApiGatewayManagedOverridesRouteSettings - { _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsDataTraceEnabled = Nothing - , _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsDetailedMetricsEnabled = Nothing - , _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsLoggingLevel = Nothing - , _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsThrottlingBurstLimit = Nothing - , _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsThrottlingRateLimit = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-routesettings.html#cfn-apigatewayv2-apigatewaymanagedoverrides-routesettings-datatraceenabled -agvagmorsDataTraceEnabled :: Lens' ApiGatewayV2ApiGatewayManagedOverridesRouteSettings (Maybe (Val Bool)) -agvagmorsDataTraceEnabled = lens _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsDataTraceEnabled (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsDataTraceEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-routesettings.html#cfn-apigatewayv2-apigatewaymanagedoverrides-routesettings-detailedmetricsenabled -agvagmorsDetailedMetricsEnabled :: Lens' ApiGatewayV2ApiGatewayManagedOverridesRouteSettings (Maybe (Val Bool)) -agvagmorsDetailedMetricsEnabled = lens _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsDetailedMetricsEnabled (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsDetailedMetricsEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-routesettings.html#cfn-apigatewayv2-apigatewaymanagedoverrides-routesettings-logginglevel -agvagmorsLoggingLevel :: Lens' ApiGatewayV2ApiGatewayManagedOverridesRouteSettings (Maybe (Val LoggingLevel)) -agvagmorsLoggingLevel = lens _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsLoggingLevel (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsLoggingLevel = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-routesettings.html#cfn-apigatewayv2-apigatewaymanagedoverrides-routesettings-throttlingburstlimit -agvagmorsThrottlingBurstLimit :: Lens' ApiGatewayV2ApiGatewayManagedOverridesRouteSettings (Maybe (Val Integer)) -agvagmorsThrottlingBurstLimit = lens _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsThrottlingBurstLimit (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsThrottlingBurstLimit = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-routesettings.html#cfn-apigatewayv2-apigatewaymanagedoverrides-routesettings-throttlingratelimit -agvagmorsThrottlingRateLimit :: Lens' ApiGatewayV2ApiGatewayManagedOverridesRouteSettings (Maybe (Val Double)) -agvagmorsThrottlingRateLimit = lens _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsThrottlingRateLimit (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesRouteSettingsThrottlingRateLimit = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2ApiGatewayManagedOverridesStageOverrides.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2ApiGatewayManagedOverridesStageOverrides.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2ApiGatewayManagedOverridesStageOverrides.hs +++ /dev/null @@ -1,76 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-stageoverrides.html - -module Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesStageOverrides where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings -import Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesRouteSettings - --- | Full data type definition for --- ApiGatewayV2ApiGatewayManagedOverridesStageOverrides. See --- 'apiGatewayV2ApiGatewayManagedOverridesStageOverrides' for a more --- convenient constructor. -data ApiGatewayV2ApiGatewayManagedOverridesStageOverrides = - ApiGatewayV2ApiGatewayManagedOverridesStageOverrides - { _apiGatewayV2ApiGatewayManagedOverridesStageOverridesAccessLogSettings :: Maybe ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings - , _apiGatewayV2ApiGatewayManagedOverridesStageOverridesAutoDeploy :: Maybe (Val Bool) - , _apiGatewayV2ApiGatewayManagedOverridesStageOverridesDefaultRouteSettings :: Maybe ApiGatewayV2ApiGatewayManagedOverridesRouteSettings - , _apiGatewayV2ApiGatewayManagedOverridesStageOverridesDescription :: Maybe (Val Text) - , _apiGatewayV2ApiGatewayManagedOverridesStageOverridesRouteSettings :: Maybe Object - , _apiGatewayV2ApiGatewayManagedOverridesStageOverridesStageVariables :: Maybe Object - } deriving (Show, Eq) - -instance ToJSON ApiGatewayV2ApiGatewayManagedOverridesStageOverrides where - toJSON ApiGatewayV2ApiGatewayManagedOverridesStageOverrides{..} = - object $ - catMaybes - [ fmap (("AccessLogSettings",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesStageOverridesAccessLogSettings - , fmap (("AutoDeploy",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesStageOverridesAutoDeploy - , fmap (("DefaultRouteSettings",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesStageOverridesDefaultRouteSettings - , fmap (("Description",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesStageOverridesDescription - , fmap (("RouteSettings",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesStageOverridesRouteSettings - , fmap (("StageVariables",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesStageOverridesStageVariables - ] - --- | Constructor for 'ApiGatewayV2ApiGatewayManagedOverridesStageOverrides' --- containing required fields as arguments. -apiGatewayV2ApiGatewayManagedOverridesStageOverrides - :: ApiGatewayV2ApiGatewayManagedOverridesStageOverrides -apiGatewayV2ApiGatewayManagedOverridesStageOverrides = - ApiGatewayV2ApiGatewayManagedOverridesStageOverrides - { _apiGatewayV2ApiGatewayManagedOverridesStageOverridesAccessLogSettings = Nothing - , _apiGatewayV2ApiGatewayManagedOverridesStageOverridesAutoDeploy = Nothing - , _apiGatewayV2ApiGatewayManagedOverridesStageOverridesDefaultRouteSettings = Nothing - , _apiGatewayV2ApiGatewayManagedOverridesStageOverridesDescription = Nothing - , _apiGatewayV2ApiGatewayManagedOverridesStageOverridesRouteSettings = Nothing - , _apiGatewayV2ApiGatewayManagedOverridesStageOverridesStageVariables = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-stageoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-stageoverrides-accesslogsettings -agvagmosoAccessLogSettings :: Lens' ApiGatewayV2ApiGatewayManagedOverridesStageOverrides (Maybe ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings) -agvagmosoAccessLogSettings = lens _apiGatewayV2ApiGatewayManagedOverridesStageOverridesAccessLogSettings (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesStageOverridesAccessLogSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-stageoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-stageoverrides-autodeploy -agvagmosoAutoDeploy :: Lens' ApiGatewayV2ApiGatewayManagedOverridesStageOverrides (Maybe (Val Bool)) -agvagmosoAutoDeploy = lens _apiGatewayV2ApiGatewayManagedOverridesStageOverridesAutoDeploy (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesStageOverridesAutoDeploy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-stageoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-stageoverrides-defaultroutesettings -agvagmosoDefaultRouteSettings :: Lens' ApiGatewayV2ApiGatewayManagedOverridesStageOverrides (Maybe ApiGatewayV2ApiGatewayManagedOverridesRouteSettings) -agvagmosoDefaultRouteSettings = lens _apiGatewayV2ApiGatewayManagedOverridesStageOverridesDefaultRouteSettings (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesStageOverridesDefaultRouteSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-stageoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-stageoverrides-description -agvagmosoDescription :: Lens' ApiGatewayV2ApiGatewayManagedOverridesStageOverrides (Maybe (Val Text)) -agvagmosoDescription = lens _apiGatewayV2ApiGatewayManagedOverridesStageOverridesDescription (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesStageOverridesDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-stageoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-stageoverrides-routesettings -agvagmosoRouteSettings :: Lens' ApiGatewayV2ApiGatewayManagedOverridesStageOverrides (Maybe Object) -agvagmosoRouteSettings = lens _apiGatewayV2ApiGatewayManagedOverridesStageOverridesRouteSettings (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesStageOverridesRouteSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-apigatewaymanagedoverrides-stageoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-stageoverrides-stagevariables -agvagmosoStageVariables :: Lens' ApiGatewayV2ApiGatewayManagedOverridesStageOverrides (Maybe Object) -agvagmosoStageVariables = lens _apiGatewayV2ApiGatewayManagedOverridesStageOverridesStageVariables (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesStageOverridesStageVariables = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2AuthorizerJWTConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2AuthorizerJWTConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2AuthorizerJWTConfiguration.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-authorizer-jwtconfiguration.html - -module Stratosphere.ResourceProperties.ApiGatewayV2AuthorizerJWTConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayV2AuthorizerJWTConfiguration. See --- 'apiGatewayV2AuthorizerJWTConfiguration' for a more convenient --- constructor. -data ApiGatewayV2AuthorizerJWTConfiguration = - ApiGatewayV2AuthorizerJWTConfiguration - { _apiGatewayV2AuthorizerJWTConfigurationAudience :: Maybe (ValList Text) - , _apiGatewayV2AuthorizerJWTConfigurationIssuer :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ApiGatewayV2AuthorizerJWTConfiguration where - toJSON ApiGatewayV2AuthorizerJWTConfiguration{..} = - object $ - catMaybes - [ fmap (("Audience",) . toJSON) _apiGatewayV2AuthorizerJWTConfigurationAudience - , fmap (("Issuer",) . toJSON) _apiGatewayV2AuthorizerJWTConfigurationIssuer - ] - --- | Constructor for 'ApiGatewayV2AuthorizerJWTConfiguration' containing --- required fields as arguments. -apiGatewayV2AuthorizerJWTConfiguration - :: ApiGatewayV2AuthorizerJWTConfiguration -apiGatewayV2AuthorizerJWTConfiguration = - ApiGatewayV2AuthorizerJWTConfiguration - { _apiGatewayV2AuthorizerJWTConfigurationAudience = Nothing - , _apiGatewayV2AuthorizerJWTConfigurationIssuer = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-authorizer-jwtconfiguration.html#cfn-apigatewayv2-authorizer-jwtconfiguration-audience -agvajwtcAudience :: Lens' ApiGatewayV2AuthorizerJWTConfiguration (Maybe (ValList Text)) -agvajwtcAudience = lens _apiGatewayV2AuthorizerJWTConfigurationAudience (\s a -> s { _apiGatewayV2AuthorizerJWTConfigurationAudience = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-authorizer-jwtconfiguration.html#cfn-apigatewayv2-authorizer-jwtconfiguration-issuer -agvajwtcIssuer :: Lens' ApiGatewayV2AuthorizerJWTConfiguration (Maybe (Val Text)) -agvajwtcIssuer = lens _apiGatewayV2AuthorizerJWTConfigurationIssuer (\s a -> s { _apiGatewayV2AuthorizerJWTConfigurationIssuer = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2DomainNameDomainNameConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2DomainNameDomainNameConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2DomainNameDomainNameConfiguration.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-domainname-domainnameconfiguration.html - -module Stratosphere.ResourceProperties.ApiGatewayV2DomainNameDomainNameConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ApiGatewayV2DomainNameDomainNameConfiguration. See --- 'apiGatewayV2DomainNameDomainNameConfiguration' for a more convenient --- constructor. -data ApiGatewayV2DomainNameDomainNameConfiguration = - ApiGatewayV2DomainNameDomainNameConfiguration - { _apiGatewayV2DomainNameDomainNameConfigurationCertificateArn :: Maybe (Val Text) - , _apiGatewayV2DomainNameDomainNameConfigurationCertificateName :: Maybe (Val Text) - , _apiGatewayV2DomainNameDomainNameConfigurationEndpointType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ApiGatewayV2DomainNameDomainNameConfiguration where - toJSON ApiGatewayV2DomainNameDomainNameConfiguration{..} = - object $ - catMaybes - [ fmap (("CertificateArn",) . toJSON) _apiGatewayV2DomainNameDomainNameConfigurationCertificateArn - , fmap (("CertificateName",) . toJSON) _apiGatewayV2DomainNameDomainNameConfigurationCertificateName - , fmap (("EndpointType",) . toJSON) _apiGatewayV2DomainNameDomainNameConfigurationEndpointType - ] - --- | Constructor for 'ApiGatewayV2DomainNameDomainNameConfiguration' --- containing required fields as arguments. -apiGatewayV2DomainNameDomainNameConfiguration - :: ApiGatewayV2DomainNameDomainNameConfiguration -apiGatewayV2DomainNameDomainNameConfiguration = - ApiGatewayV2DomainNameDomainNameConfiguration - { _apiGatewayV2DomainNameDomainNameConfigurationCertificateArn = Nothing - , _apiGatewayV2DomainNameDomainNameConfigurationCertificateName = Nothing - , _apiGatewayV2DomainNameDomainNameConfigurationEndpointType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-domainname-domainnameconfiguration.html#cfn-apigatewayv2-domainname-domainnameconfiguration-certificatearn -agvdndncCertificateArn :: Lens' ApiGatewayV2DomainNameDomainNameConfiguration (Maybe (Val Text)) -agvdndncCertificateArn = lens _apiGatewayV2DomainNameDomainNameConfigurationCertificateArn (\s a -> s { _apiGatewayV2DomainNameDomainNameConfigurationCertificateArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-domainname-domainnameconfiguration.html#cfn-apigatewayv2-domainname-domainnameconfiguration-certificatename -agvdndncCertificateName :: Lens' ApiGatewayV2DomainNameDomainNameConfiguration (Maybe (Val Text)) -agvdndncCertificateName = lens _apiGatewayV2DomainNameDomainNameConfigurationCertificateName (\s a -> s { _apiGatewayV2DomainNameDomainNameConfigurationCertificateName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-domainname-domainnameconfiguration.html#cfn-apigatewayv2-domainname-domainnameconfiguration-endpointtype -agvdndncEndpointType :: Lens' ApiGatewayV2DomainNameDomainNameConfiguration (Maybe (Val Text)) -agvdndncEndpointType = lens _apiGatewayV2DomainNameDomainNameConfigurationEndpointType (\s a -> s { _apiGatewayV2DomainNameDomainNameConfigurationEndpointType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2IntegrationTlsConfig.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2IntegrationTlsConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2IntegrationTlsConfig.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-integration-tlsconfig.html - -module Stratosphere.ResourceProperties.ApiGatewayV2IntegrationTlsConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayV2IntegrationTlsConfig. See --- 'apiGatewayV2IntegrationTlsConfig' for a more convenient constructor. -data ApiGatewayV2IntegrationTlsConfig = - ApiGatewayV2IntegrationTlsConfig - { _apiGatewayV2IntegrationTlsConfigServerNameToVerify :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ApiGatewayV2IntegrationTlsConfig where - toJSON ApiGatewayV2IntegrationTlsConfig{..} = - object $ - catMaybes - [ fmap (("ServerNameToVerify",) . toJSON) _apiGatewayV2IntegrationTlsConfigServerNameToVerify - ] - --- | Constructor for 'ApiGatewayV2IntegrationTlsConfig' containing required --- fields as arguments. -apiGatewayV2IntegrationTlsConfig - :: ApiGatewayV2IntegrationTlsConfig -apiGatewayV2IntegrationTlsConfig = - ApiGatewayV2IntegrationTlsConfig - { _apiGatewayV2IntegrationTlsConfigServerNameToVerify = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-integration-tlsconfig.html#cfn-apigatewayv2-integration-tlsconfig-servernametoverify -agvitcServerNameToVerify :: Lens' ApiGatewayV2IntegrationTlsConfig (Maybe (Val Text)) -agvitcServerNameToVerify = lens _apiGatewayV2IntegrationTlsConfigServerNameToVerify (\s a -> s { _apiGatewayV2IntegrationTlsConfigServerNameToVerify = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2RouteParameterConstraints.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2RouteParameterConstraints.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2RouteParameterConstraints.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-route-parameterconstraints.html - -module Stratosphere.ResourceProperties.ApiGatewayV2RouteParameterConstraints where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayV2RouteParameterConstraints. See --- 'apiGatewayV2RouteParameterConstraints' for a more convenient --- constructor. -data ApiGatewayV2RouteParameterConstraints = - ApiGatewayV2RouteParameterConstraints - { _apiGatewayV2RouteParameterConstraintsRequired :: Val Bool - } deriving (Show, Eq) - -instance ToJSON ApiGatewayV2RouteParameterConstraints where - toJSON ApiGatewayV2RouteParameterConstraints{..} = - object $ - catMaybes - [ (Just . ("Required",) . toJSON) _apiGatewayV2RouteParameterConstraintsRequired - ] - --- | Constructor for 'ApiGatewayV2RouteParameterConstraints' containing --- required fields as arguments. -apiGatewayV2RouteParameterConstraints - :: Val Bool -- ^ 'agvrpcRequired' - -> ApiGatewayV2RouteParameterConstraints -apiGatewayV2RouteParameterConstraints requiredarg = - ApiGatewayV2RouteParameterConstraints - { _apiGatewayV2RouteParameterConstraintsRequired = requiredarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-route-parameterconstraints.html#cfn-apigatewayv2-route-parameterconstraints-required -agvrpcRequired :: Lens' ApiGatewayV2RouteParameterConstraints (Val Bool) -agvrpcRequired = lens _apiGatewayV2RouteParameterConstraintsRequired (\s a -> s { _apiGatewayV2RouteParameterConstraintsRequired = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2RouteResponseParameterConstraints.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2RouteResponseParameterConstraints.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2RouteResponseParameterConstraints.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-routeresponse-parameterconstraints.html - -module Stratosphere.ResourceProperties.ApiGatewayV2RouteResponseParameterConstraints where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ApiGatewayV2RouteResponseParameterConstraints. See --- 'apiGatewayV2RouteResponseParameterConstraints' for a more convenient --- constructor. -data ApiGatewayV2RouteResponseParameterConstraints = - ApiGatewayV2RouteResponseParameterConstraints - { _apiGatewayV2RouteResponseParameterConstraintsRequired :: Val Bool - } deriving (Show, Eq) - -instance ToJSON ApiGatewayV2RouteResponseParameterConstraints where - toJSON ApiGatewayV2RouteResponseParameterConstraints{..} = - object $ - catMaybes - [ (Just . ("Required",) . toJSON) _apiGatewayV2RouteResponseParameterConstraintsRequired - ] - --- | Constructor for 'ApiGatewayV2RouteResponseParameterConstraints' --- containing required fields as arguments. -apiGatewayV2RouteResponseParameterConstraints - :: Val Bool -- ^ 'agvrrpcRequired' - -> ApiGatewayV2RouteResponseParameterConstraints -apiGatewayV2RouteResponseParameterConstraints requiredarg = - ApiGatewayV2RouteResponseParameterConstraints - { _apiGatewayV2RouteResponseParameterConstraintsRequired = requiredarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-routeresponse-parameterconstraints.html#cfn-apigatewayv2-routeresponse-parameterconstraints-required -agvrrpcRequired :: Lens' ApiGatewayV2RouteResponseParameterConstraints (Val Bool) -agvrrpcRequired = lens _apiGatewayV2RouteResponseParameterConstraintsRequired (\s a -> s { _apiGatewayV2RouteResponseParameterConstraintsRequired = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2StageAccessLogSettings.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2StageAccessLogSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2StageAccessLogSettings.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-stage-accesslogsettings.html - -module Stratosphere.ResourceProperties.ApiGatewayV2StageAccessLogSettings where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayV2StageAccessLogSettings. See --- 'apiGatewayV2StageAccessLogSettings' for a more convenient constructor. -data ApiGatewayV2StageAccessLogSettings = - ApiGatewayV2StageAccessLogSettings - { _apiGatewayV2StageAccessLogSettingsDestinationArn :: Maybe (Val Text) - , _apiGatewayV2StageAccessLogSettingsFormat :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ApiGatewayV2StageAccessLogSettings where - toJSON ApiGatewayV2StageAccessLogSettings{..} = - object $ - catMaybes - [ fmap (("DestinationArn",) . toJSON) _apiGatewayV2StageAccessLogSettingsDestinationArn - , fmap (("Format",) . toJSON) _apiGatewayV2StageAccessLogSettingsFormat - ] - --- | Constructor for 'ApiGatewayV2StageAccessLogSettings' containing required --- fields as arguments. -apiGatewayV2StageAccessLogSettings - :: ApiGatewayV2StageAccessLogSettings -apiGatewayV2StageAccessLogSettings = - ApiGatewayV2StageAccessLogSettings - { _apiGatewayV2StageAccessLogSettingsDestinationArn = Nothing - , _apiGatewayV2StageAccessLogSettingsFormat = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-stage-accesslogsettings.html#cfn-apigatewayv2-stage-accesslogsettings-destinationarn -agvsalsDestinationArn :: Lens' ApiGatewayV2StageAccessLogSettings (Maybe (Val Text)) -agvsalsDestinationArn = lens _apiGatewayV2StageAccessLogSettingsDestinationArn (\s a -> s { _apiGatewayV2StageAccessLogSettingsDestinationArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-stage-accesslogsettings.html#cfn-apigatewayv2-stage-accesslogsettings-format -agvsalsFormat :: Lens' ApiGatewayV2StageAccessLogSettings (Maybe (Val Text)) -agvsalsFormat = lens _apiGatewayV2StageAccessLogSettingsFormat (\s a -> s { _apiGatewayV2StageAccessLogSettingsFormat = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2StageRouteSettings.hs b/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2StageRouteSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApiGatewayV2StageRouteSettings.hs +++ /dev/null @@ -1,66 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-stage-routesettings.html - -module Stratosphere.ResourceProperties.ApiGatewayV2StageRouteSettings where - -import Stratosphere.ResourceImports -import Stratosphere.Types - --- | Full data type definition for ApiGatewayV2StageRouteSettings. See --- 'apiGatewayV2StageRouteSettings' for a more convenient constructor. -data ApiGatewayV2StageRouteSettings = - ApiGatewayV2StageRouteSettings - { _apiGatewayV2StageRouteSettingsDataTraceEnabled :: Maybe (Val Bool) - , _apiGatewayV2StageRouteSettingsDetailedMetricsEnabled :: Maybe (Val Bool) - , _apiGatewayV2StageRouteSettingsLoggingLevel :: Maybe (Val LoggingLevel) - , _apiGatewayV2StageRouteSettingsThrottlingBurstLimit :: Maybe (Val Integer) - , _apiGatewayV2StageRouteSettingsThrottlingRateLimit :: Maybe (Val Double) - } deriving (Show, Eq) - -instance ToJSON ApiGatewayV2StageRouteSettings where - toJSON ApiGatewayV2StageRouteSettings{..} = - object $ - catMaybes - [ fmap (("DataTraceEnabled",) . toJSON) _apiGatewayV2StageRouteSettingsDataTraceEnabled - , fmap (("DetailedMetricsEnabled",) . toJSON) _apiGatewayV2StageRouteSettingsDetailedMetricsEnabled - , fmap (("LoggingLevel",) . toJSON) _apiGatewayV2StageRouteSettingsLoggingLevel - , fmap (("ThrottlingBurstLimit",) . toJSON) _apiGatewayV2StageRouteSettingsThrottlingBurstLimit - , fmap (("ThrottlingRateLimit",) . toJSON) _apiGatewayV2StageRouteSettingsThrottlingRateLimit - ] - --- | Constructor for 'ApiGatewayV2StageRouteSettings' containing required --- fields as arguments. -apiGatewayV2StageRouteSettings - :: ApiGatewayV2StageRouteSettings -apiGatewayV2StageRouteSettings = - ApiGatewayV2StageRouteSettings - { _apiGatewayV2StageRouteSettingsDataTraceEnabled = Nothing - , _apiGatewayV2StageRouteSettingsDetailedMetricsEnabled = Nothing - , _apiGatewayV2StageRouteSettingsLoggingLevel = Nothing - , _apiGatewayV2StageRouteSettingsThrottlingBurstLimit = Nothing - , _apiGatewayV2StageRouteSettingsThrottlingRateLimit = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-stage-routesettings.html#cfn-apigatewayv2-stage-routesettings-datatraceenabled -agvsrsDataTraceEnabled :: Lens' ApiGatewayV2StageRouteSettings (Maybe (Val Bool)) -agvsrsDataTraceEnabled = lens _apiGatewayV2StageRouteSettingsDataTraceEnabled (\s a -> s { _apiGatewayV2StageRouteSettingsDataTraceEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-stage-routesettings.html#cfn-apigatewayv2-stage-routesettings-detailedmetricsenabled -agvsrsDetailedMetricsEnabled :: Lens' ApiGatewayV2StageRouteSettings (Maybe (Val Bool)) -agvsrsDetailedMetricsEnabled = lens _apiGatewayV2StageRouteSettingsDetailedMetricsEnabled (\s a -> s { _apiGatewayV2StageRouteSettingsDetailedMetricsEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-stage-routesettings.html#cfn-apigatewayv2-stage-routesettings-logginglevel -agvsrsLoggingLevel :: Lens' ApiGatewayV2StageRouteSettings (Maybe (Val LoggingLevel)) -agvsrsLoggingLevel = lens _apiGatewayV2StageRouteSettingsLoggingLevel (\s a -> s { _apiGatewayV2StageRouteSettingsLoggingLevel = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-stage-routesettings.html#cfn-apigatewayv2-stage-routesettings-throttlingburstlimit -agvsrsThrottlingBurstLimit :: Lens' ApiGatewayV2StageRouteSettings (Maybe (Val Integer)) -agvsrsThrottlingBurstLimit = lens _apiGatewayV2StageRouteSettingsThrottlingBurstLimit (\s a -> s { _apiGatewayV2StageRouteSettingsThrottlingBurstLimit = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-stage-routesettings.html#cfn-apigatewayv2-stage-routesettings-throttlingratelimit -agvsrsThrottlingRateLimit :: Lens' ApiGatewayV2StageRouteSettings (Maybe (Val Double)) -agvsrsThrottlingRateLimit = lens _apiGatewayV2StageRouteSettingsThrottlingRateLimit (\s a -> s { _apiGatewayV2StageRouteSettingsThrottlingRateLimit = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppConfigApplicationTags.hs b/library-gen/Stratosphere/ResourceProperties/AppConfigApplicationTags.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppConfigApplicationTags.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appconfig-application-tags.html - -module Stratosphere.ResourceProperties.AppConfigApplicationTags where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppConfigApplicationTags. See --- 'appConfigApplicationTags' for a more convenient constructor. -data AppConfigApplicationTags = - AppConfigApplicationTags - { _appConfigApplicationTagsKey :: Maybe (Val Text) - , _appConfigApplicationTagsValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AppConfigApplicationTags where - toJSON AppConfigApplicationTags{..} = - object $ - catMaybes - [ fmap (("Key",) . toJSON) _appConfigApplicationTagsKey - , fmap (("Value",) . toJSON) _appConfigApplicationTagsValue - ] - --- | Constructor for 'AppConfigApplicationTags' containing required fields as --- arguments. -appConfigApplicationTags - :: AppConfigApplicationTags -appConfigApplicationTags = - AppConfigApplicationTags - { _appConfigApplicationTagsKey = Nothing - , _appConfigApplicationTagsValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appconfig-application-tags.html#cfn-appconfig-application-tags-key -acatKey :: Lens' AppConfigApplicationTags (Maybe (Val Text)) -acatKey = lens _appConfigApplicationTagsKey (\s a -> s { _appConfigApplicationTagsKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appconfig-application-tags.html#cfn-appconfig-application-tags-value -acatValue :: Lens' AppConfigApplicationTags (Maybe (Val Text)) -acatValue = lens _appConfigApplicationTagsValue (\s a -> s { _appConfigApplicationTagsValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppConfigConfigurationProfileTags.hs b/library-gen/Stratosphere/ResourceProperties/AppConfigConfigurationProfileTags.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppConfigConfigurationProfileTags.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appconfig-configurationprofile-tags.html - -module Stratosphere.ResourceProperties.AppConfigConfigurationProfileTags where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppConfigConfigurationProfileTags. See --- 'appConfigConfigurationProfileTags' for a more convenient constructor. -data AppConfigConfigurationProfileTags = - AppConfigConfigurationProfileTags - { _appConfigConfigurationProfileTagsKey :: Maybe (Val Text) - , _appConfigConfigurationProfileTagsValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AppConfigConfigurationProfileTags where - toJSON AppConfigConfigurationProfileTags{..} = - object $ - catMaybes - [ fmap (("Key",) . toJSON) _appConfigConfigurationProfileTagsKey - , fmap (("Value",) . toJSON) _appConfigConfigurationProfileTagsValue - ] - --- | Constructor for 'AppConfigConfigurationProfileTags' containing required --- fields as arguments. -appConfigConfigurationProfileTags - :: AppConfigConfigurationProfileTags -appConfigConfigurationProfileTags = - AppConfigConfigurationProfileTags - { _appConfigConfigurationProfileTagsKey = Nothing - , _appConfigConfigurationProfileTagsValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appconfig-configurationprofile-tags.html#cfn-appconfig-configurationprofile-tags-key -accptKey :: Lens' AppConfigConfigurationProfileTags (Maybe (Val Text)) -accptKey = lens _appConfigConfigurationProfileTagsKey (\s a -> s { _appConfigConfigurationProfileTagsKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appconfig-configurationprofile-tags.html#cfn-appconfig-configurationprofile-tags-value -accptValue :: Lens' AppConfigConfigurationProfileTags (Maybe (Val Text)) -accptValue = lens _appConfigConfigurationProfileTagsValue (\s a -> s { _appConfigConfigurationProfileTagsValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppConfigConfigurationProfileValidators.hs b/library-gen/Stratosphere/ResourceProperties/AppConfigConfigurationProfileValidators.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppConfigConfigurationProfileValidators.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appconfig-configurationprofile-validators.html - -module Stratosphere.ResourceProperties.AppConfigConfigurationProfileValidators where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppConfigConfigurationProfileValidators. --- See 'appConfigConfigurationProfileValidators' for a more convenient --- constructor. -data AppConfigConfigurationProfileValidators = - AppConfigConfigurationProfileValidators - { _appConfigConfigurationProfileValidatorsContent :: Maybe (Val Text) - , _appConfigConfigurationProfileValidatorsType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AppConfigConfigurationProfileValidators where - toJSON AppConfigConfigurationProfileValidators{..} = - object $ - catMaybes - [ fmap (("Content",) . toJSON) _appConfigConfigurationProfileValidatorsContent - , fmap (("Type",) . toJSON) _appConfigConfigurationProfileValidatorsType - ] - --- | Constructor for 'AppConfigConfigurationProfileValidators' containing --- required fields as arguments. -appConfigConfigurationProfileValidators - :: AppConfigConfigurationProfileValidators -appConfigConfigurationProfileValidators = - AppConfigConfigurationProfileValidators - { _appConfigConfigurationProfileValidatorsContent = Nothing - , _appConfigConfigurationProfileValidatorsType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appconfig-configurationprofile-validators.html#cfn-appconfig-configurationprofile-validators-content -accpvContent :: Lens' AppConfigConfigurationProfileValidators (Maybe (Val Text)) -accpvContent = lens _appConfigConfigurationProfileValidatorsContent (\s a -> s { _appConfigConfigurationProfileValidatorsContent = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appconfig-configurationprofile-validators.html#cfn-appconfig-configurationprofile-validators-type -accpvType :: Lens' AppConfigConfigurationProfileValidators (Maybe (Val Text)) -accpvType = lens _appConfigConfigurationProfileValidatorsType (\s a -> s { _appConfigConfigurationProfileValidatorsType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppConfigDeploymentStrategyTags.hs b/library-gen/Stratosphere/ResourceProperties/AppConfigDeploymentStrategyTags.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppConfigDeploymentStrategyTags.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appconfig-deploymentstrategy-tags.html - -module Stratosphere.ResourceProperties.AppConfigDeploymentStrategyTags where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppConfigDeploymentStrategyTags. See --- 'appConfigDeploymentStrategyTags' for a more convenient constructor. -data AppConfigDeploymentStrategyTags = - AppConfigDeploymentStrategyTags - { _appConfigDeploymentStrategyTagsKey :: Maybe (Val Text) - , _appConfigDeploymentStrategyTagsValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AppConfigDeploymentStrategyTags where - toJSON AppConfigDeploymentStrategyTags{..} = - object $ - catMaybes - [ fmap (("Key",) . toJSON) _appConfigDeploymentStrategyTagsKey - , fmap (("Value",) . toJSON) _appConfigDeploymentStrategyTagsValue - ] - --- | Constructor for 'AppConfigDeploymentStrategyTags' containing required --- fields as arguments. -appConfigDeploymentStrategyTags - :: AppConfigDeploymentStrategyTags -appConfigDeploymentStrategyTags = - AppConfigDeploymentStrategyTags - { _appConfigDeploymentStrategyTagsKey = Nothing - , _appConfigDeploymentStrategyTagsValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appconfig-deploymentstrategy-tags.html#cfn-appconfig-deploymentstrategy-tags-key -acdstKey :: Lens' AppConfigDeploymentStrategyTags (Maybe (Val Text)) -acdstKey = lens _appConfigDeploymentStrategyTagsKey (\s a -> s { _appConfigDeploymentStrategyTagsKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appconfig-deploymentstrategy-tags.html#cfn-appconfig-deploymentstrategy-tags-value -acdstValue :: Lens' AppConfigDeploymentStrategyTags (Maybe (Val Text)) -acdstValue = lens _appConfigDeploymentStrategyTagsValue (\s a -> s { _appConfigDeploymentStrategyTagsValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppConfigDeploymentTags.hs b/library-gen/Stratosphere/ResourceProperties/AppConfigDeploymentTags.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppConfigDeploymentTags.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appconfig-deployment-tags.html - -module Stratosphere.ResourceProperties.AppConfigDeploymentTags where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppConfigDeploymentTags. See --- 'appConfigDeploymentTags' for a more convenient constructor. -data AppConfigDeploymentTags = - AppConfigDeploymentTags - { _appConfigDeploymentTagsKey :: Maybe (Val Text) - , _appConfigDeploymentTagsValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AppConfigDeploymentTags where - toJSON AppConfigDeploymentTags{..} = - object $ - catMaybes - [ fmap (("Key",) . toJSON) _appConfigDeploymentTagsKey - , fmap (("Value",) . toJSON) _appConfigDeploymentTagsValue - ] - --- | Constructor for 'AppConfigDeploymentTags' containing required fields as --- arguments. -appConfigDeploymentTags - :: AppConfigDeploymentTags -appConfigDeploymentTags = - AppConfigDeploymentTags - { _appConfigDeploymentTagsKey = Nothing - , _appConfigDeploymentTagsValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appconfig-deployment-tags.html#cfn-appconfig-deployment-tags-key -acdtKey :: Lens' AppConfigDeploymentTags (Maybe (Val Text)) -acdtKey = lens _appConfigDeploymentTagsKey (\s a -> s { _appConfigDeploymentTagsKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appconfig-deployment-tags.html#cfn-appconfig-deployment-tags-value -acdtValue :: Lens' AppConfigDeploymentTags (Maybe (Val Text)) -acdtValue = lens _appConfigDeploymentTagsValue (\s a -> s { _appConfigDeploymentTagsValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppConfigEnvironmentMonitors.hs b/library-gen/Stratosphere/ResourceProperties/AppConfigEnvironmentMonitors.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppConfigEnvironmentMonitors.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appconfig-environment-monitors.html - -module Stratosphere.ResourceProperties.AppConfigEnvironmentMonitors where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppConfigEnvironmentMonitors. See --- 'appConfigEnvironmentMonitors' for a more convenient constructor. -data AppConfigEnvironmentMonitors = - AppConfigEnvironmentMonitors - { _appConfigEnvironmentMonitorsAlarmArn :: Maybe (Val Text) - , _appConfigEnvironmentMonitorsAlarmRoleArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AppConfigEnvironmentMonitors where - toJSON AppConfigEnvironmentMonitors{..} = - object $ - catMaybes - [ fmap (("AlarmArn",) . toJSON) _appConfigEnvironmentMonitorsAlarmArn - , fmap (("AlarmRoleArn",) . toJSON) _appConfigEnvironmentMonitorsAlarmRoleArn - ] - --- | Constructor for 'AppConfigEnvironmentMonitors' containing required fields --- as arguments. -appConfigEnvironmentMonitors - :: AppConfigEnvironmentMonitors -appConfigEnvironmentMonitors = - AppConfigEnvironmentMonitors - { _appConfigEnvironmentMonitorsAlarmArn = Nothing - , _appConfigEnvironmentMonitorsAlarmRoleArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appconfig-environment-monitors.html#cfn-appconfig-environment-monitors-alarmarn -acemAlarmArn :: Lens' AppConfigEnvironmentMonitors (Maybe (Val Text)) -acemAlarmArn = lens _appConfigEnvironmentMonitorsAlarmArn (\s a -> s { _appConfigEnvironmentMonitorsAlarmArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appconfig-environment-monitors.html#cfn-appconfig-environment-monitors-alarmrolearn -acemAlarmRoleArn :: Lens' AppConfigEnvironmentMonitors (Maybe (Val Text)) -acemAlarmRoleArn = lens _appConfigEnvironmentMonitorsAlarmRoleArn (\s a -> s { _appConfigEnvironmentMonitorsAlarmRoleArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppConfigEnvironmentTags.hs b/library-gen/Stratosphere/ResourceProperties/AppConfigEnvironmentTags.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppConfigEnvironmentTags.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appconfig-environment-tags.html - -module Stratosphere.ResourceProperties.AppConfigEnvironmentTags where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppConfigEnvironmentTags. See --- 'appConfigEnvironmentTags' for a more convenient constructor. -data AppConfigEnvironmentTags = - AppConfigEnvironmentTags - { _appConfigEnvironmentTagsKey :: Maybe (Val Text) - , _appConfigEnvironmentTagsValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AppConfigEnvironmentTags where - toJSON AppConfigEnvironmentTags{..} = - object $ - catMaybes - [ fmap (("Key",) . toJSON) _appConfigEnvironmentTagsKey - , fmap (("Value",) . toJSON) _appConfigEnvironmentTagsValue - ] - --- | Constructor for 'AppConfigEnvironmentTags' containing required fields as --- arguments. -appConfigEnvironmentTags - :: AppConfigEnvironmentTags -appConfigEnvironmentTags = - AppConfigEnvironmentTags - { _appConfigEnvironmentTagsKey = Nothing - , _appConfigEnvironmentTagsValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appconfig-environment-tags.html#cfn-appconfig-environment-tags-key -acetKey :: Lens' AppConfigEnvironmentTags (Maybe (Val Text)) -acetKey = lens _appConfigEnvironmentTagsKey (\s a -> s { _appConfigEnvironmentTagsKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appconfig-environment-tags.html#cfn-appconfig-environment-tags-value -acetValue :: Lens' AppConfigEnvironmentTags (Maybe (Val Text)) -acetValue = lens _appConfigEnvironmentTagsValue (\s a -> s { _appConfigEnvironmentTagsValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshGatewayRouteGatewayRouteSpec.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshGatewayRouteGatewayRouteSpec.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshGatewayRouteGatewayRouteSpec.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-gatewayroutespec.html - -module Stratosphere.ResourceProperties.AppMeshGatewayRouteGatewayRouteSpec where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshGatewayRouteGrpcGatewayRoute -import Stratosphere.ResourceProperties.AppMeshGatewayRouteHttpGatewayRoute - --- | Full data type definition for AppMeshGatewayRouteGatewayRouteSpec. See --- 'appMeshGatewayRouteGatewayRouteSpec' for a more convenient constructor. -data AppMeshGatewayRouteGatewayRouteSpec = - AppMeshGatewayRouteGatewayRouteSpec - { _appMeshGatewayRouteGatewayRouteSpecGrpcRoute :: Maybe AppMeshGatewayRouteGrpcGatewayRoute - , _appMeshGatewayRouteGatewayRouteSpecHttp2Route :: Maybe AppMeshGatewayRouteHttpGatewayRoute - , _appMeshGatewayRouteGatewayRouteSpecHttpRoute :: Maybe AppMeshGatewayRouteHttpGatewayRoute - } deriving (Show, Eq) - -instance ToJSON AppMeshGatewayRouteGatewayRouteSpec where - toJSON AppMeshGatewayRouteGatewayRouteSpec{..} = - object $ - catMaybes - [ fmap (("GrpcRoute",) . toJSON) _appMeshGatewayRouteGatewayRouteSpecGrpcRoute - , fmap (("Http2Route",) . toJSON) _appMeshGatewayRouteGatewayRouteSpecHttp2Route - , fmap (("HttpRoute",) . toJSON) _appMeshGatewayRouteGatewayRouteSpecHttpRoute - ] - --- | Constructor for 'AppMeshGatewayRouteGatewayRouteSpec' containing required --- fields as arguments. -appMeshGatewayRouteGatewayRouteSpec - :: AppMeshGatewayRouteGatewayRouteSpec -appMeshGatewayRouteGatewayRouteSpec = - AppMeshGatewayRouteGatewayRouteSpec - { _appMeshGatewayRouteGatewayRouteSpecGrpcRoute = Nothing - , _appMeshGatewayRouteGatewayRouteSpecHttp2Route = Nothing - , _appMeshGatewayRouteGatewayRouteSpecHttpRoute = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-gatewayroutespec.html#cfn-appmesh-gatewayroute-gatewayroutespec-grpcroute -amgrgrsGrpcRoute :: Lens' AppMeshGatewayRouteGatewayRouteSpec (Maybe AppMeshGatewayRouteGrpcGatewayRoute) -amgrgrsGrpcRoute = lens _appMeshGatewayRouteGatewayRouteSpecGrpcRoute (\s a -> s { _appMeshGatewayRouteGatewayRouteSpecGrpcRoute = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-gatewayroutespec.html#cfn-appmesh-gatewayroute-gatewayroutespec-http2route -amgrgrsHttp2Route :: Lens' AppMeshGatewayRouteGatewayRouteSpec (Maybe AppMeshGatewayRouteHttpGatewayRoute) -amgrgrsHttp2Route = lens _appMeshGatewayRouteGatewayRouteSpecHttp2Route (\s a -> s { _appMeshGatewayRouteGatewayRouteSpecHttp2Route = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-gatewayroutespec.html#cfn-appmesh-gatewayroute-gatewayroutespec-httproute -amgrgrsHttpRoute :: Lens' AppMeshGatewayRouteGatewayRouteSpec (Maybe AppMeshGatewayRouteHttpGatewayRoute) -amgrgrsHttpRoute = lens _appMeshGatewayRouteGatewayRouteSpecHttpRoute (\s a -> s { _appMeshGatewayRouteGatewayRouteSpecHttpRoute = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshGatewayRouteGatewayRouteTarget.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshGatewayRouteGatewayRouteTarget.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshGatewayRouteGatewayRouteTarget.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-gatewayroutetarget.html - -module Stratosphere.ResourceProperties.AppMeshGatewayRouteGatewayRouteTarget where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshGatewayRouteGatewayRouteVirtualService - --- | Full data type definition for AppMeshGatewayRouteGatewayRouteTarget. See --- 'appMeshGatewayRouteGatewayRouteTarget' for a more convenient --- constructor. -data AppMeshGatewayRouteGatewayRouteTarget = - AppMeshGatewayRouteGatewayRouteTarget - { _appMeshGatewayRouteGatewayRouteTargetVirtualService :: AppMeshGatewayRouteGatewayRouteVirtualService - } deriving (Show, Eq) - -instance ToJSON AppMeshGatewayRouteGatewayRouteTarget where - toJSON AppMeshGatewayRouteGatewayRouteTarget{..} = - object $ - catMaybes - [ (Just . ("VirtualService",) . toJSON) _appMeshGatewayRouteGatewayRouteTargetVirtualService - ] - --- | Constructor for 'AppMeshGatewayRouteGatewayRouteTarget' containing --- required fields as arguments. -appMeshGatewayRouteGatewayRouteTarget - :: AppMeshGatewayRouteGatewayRouteVirtualService -- ^ 'amgrgrtVirtualService' - -> AppMeshGatewayRouteGatewayRouteTarget -appMeshGatewayRouteGatewayRouteTarget virtualServicearg = - AppMeshGatewayRouteGatewayRouteTarget - { _appMeshGatewayRouteGatewayRouteTargetVirtualService = virtualServicearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-gatewayroutetarget.html#cfn-appmesh-gatewayroute-gatewayroutetarget-virtualservice -amgrgrtVirtualService :: Lens' AppMeshGatewayRouteGatewayRouteTarget AppMeshGatewayRouteGatewayRouteVirtualService -amgrgrtVirtualService = lens _appMeshGatewayRouteGatewayRouteTargetVirtualService (\s a -> s { _appMeshGatewayRouteGatewayRouteTargetVirtualService = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshGatewayRouteGatewayRouteVirtualService.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshGatewayRouteGatewayRouteVirtualService.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshGatewayRouteGatewayRouteVirtualService.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-gatewayroutevirtualservice.html - -module Stratosphere.ResourceProperties.AppMeshGatewayRouteGatewayRouteVirtualService where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- AppMeshGatewayRouteGatewayRouteVirtualService. See --- 'appMeshGatewayRouteGatewayRouteVirtualService' for a more convenient --- constructor. -data AppMeshGatewayRouteGatewayRouteVirtualService = - AppMeshGatewayRouteGatewayRouteVirtualService - { _appMeshGatewayRouteGatewayRouteVirtualServiceVirtualServiceName :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppMeshGatewayRouteGatewayRouteVirtualService where - toJSON AppMeshGatewayRouteGatewayRouteVirtualService{..} = - object $ - catMaybes - [ (Just . ("VirtualServiceName",) . toJSON) _appMeshGatewayRouteGatewayRouteVirtualServiceVirtualServiceName - ] - --- | Constructor for 'AppMeshGatewayRouteGatewayRouteVirtualService' --- containing required fields as arguments. -appMeshGatewayRouteGatewayRouteVirtualService - :: Val Text -- ^ 'amgrgrvsVirtualServiceName' - -> AppMeshGatewayRouteGatewayRouteVirtualService -appMeshGatewayRouteGatewayRouteVirtualService virtualServiceNamearg = - AppMeshGatewayRouteGatewayRouteVirtualService - { _appMeshGatewayRouteGatewayRouteVirtualServiceVirtualServiceName = virtualServiceNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-gatewayroutevirtualservice.html#cfn-appmesh-gatewayroute-gatewayroutevirtualservice-virtualservicename -amgrgrvsVirtualServiceName :: Lens' AppMeshGatewayRouteGatewayRouteVirtualService (Val Text) -amgrgrvsVirtualServiceName = lens _appMeshGatewayRouteGatewayRouteVirtualServiceVirtualServiceName (\s a -> s { _appMeshGatewayRouteGatewayRouteVirtualServiceVirtualServiceName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshGatewayRouteGrpcGatewayRoute.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshGatewayRouteGrpcGatewayRoute.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshGatewayRouteGrpcGatewayRoute.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-grpcgatewayroute.html - -module Stratosphere.ResourceProperties.AppMeshGatewayRouteGrpcGatewayRoute where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshGatewayRouteGrpcGatewayRouteAction -import Stratosphere.ResourceProperties.AppMeshGatewayRouteGrpcGatewayRouteMatch - --- | Full data type definition for AppMeshGatewayRouteGrpcGatewayRoute. See --- 'appMeshGatewayRouteGrpcGatewayRoute' for a more convenient constructor. -data AppMeshGatewayRouteGrpcGatewayRoute = - AppMeshGatewayRouteGrpcGatewayRoute - { _appMeshGatewayRouteGrpcGatewayRouteAction :: AppMeshGatewayRouteGrpcGatewayRouteAction - , _appMeshGatewayRouteGrpcGatewayRouteMatch :: AppMeshGatewayRouteGrpcGatewayRouteMatch - } deriving (Show, Eq) - -instance ToJSON AppMeshGatewayRouteGrpcGatewayRoute where - toJSON AppMeshGatewayRouteGrpcGatewayRoute{..} = - object $ - catMaybes - [ (Just . ("Action",) . toJSON) _appMeshGatewayRouteGrpcGatewayRouteAction - , (Just . ("Match",) . toJSON) _appMeshGatewayRouteGrpcGatewayRouteMatch - ] - --- | Constructor for 'AppMeshGatewayRouteGrpcGatewayRoute' containing required --- fields as arguments. -appMeshGatewayRouteGrpcGatewayRoute - :: AppMeshGatewayRouteGrpcGatewayRouteAction -- ^ 'amgrggrAction' - -> AppMeshGatewayRouteGrpcGatewayRouteMatch -- ^ 'amgrggrMatch' - -> AppMeshGatewayRouteGrpcGatewayRoute -appMeshGatewayRouteGrpcGatewayRoute actionarg matcharg = - AppMeshGatewayRouteGrpcGatewayRoute - { _appMeshGatewayRouteGrpcGatewayRouteAction = actionarg - , _appMeshGatewayRouteGrpcGatewayRouteMatch = matcharg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-grpcgatewayroute.html#cfn-appmesh-gatewayroute-grpcgatewayroute-action -amgrggrAction :: Lens' AppMeshGatewayRouteGrpcGatewayRoute AppMeshGatewayRouteGrpcGatewayRouteAction -amgrggrAction = lens _appMeshGatewayRouteGrpcGatewayRouteAction (\s a -> s { _appMeshGatewayRouteGrpcGatewayRouteAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-grpcgatewayroute.html#cfn-appmesh-gatewayroute-grpcgatewayroute-match -amgrggrMatch :: Lens' AppMeshGatewayRouteGrpcGatewayRoute AppMeshGatewayRouteGrpcGatewayRouteMatch -amgrggrMatch = lens _appMeshGatewayRouteGrpcGatewayRouteMatch (\s a -> s { _appMeshGatewayRouteGrpcGatewayRouteMatch = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshGatewayRouteGrpcGatewayRouteAction.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshGatewayRouteGrpcGatewayRouteAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshGatewayRouteGrpcGatewayRouteAction.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-grpcgatewayrouteaction.html - -module Stratosphere.ResourceProperties.AppMeshGatewayRouteGrpcGatewayRouteAction where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshGatewayRouteGatewayRouteTarget - --- | Full data type definition for AppMeshGatewayRouteGrpcGatewayRouteAction. --- See 'appMeshGatewayRouteGrpcGatewayRouteAction' for a more convenient --- constructor. -data AppMeshGatewayRouteGrpcGatewayRouteAction = - AppMeshGatewayRouteGrpcGatewayRouteAction - { _appMeshGatewayRouteGrpcGatewayRouteActionTarget :: AppMeshGatewayRouteGatewayRouteTarget - } deriving (Show, Eq) - -instance ToJSON AppMeshGatewayRouteGrpcGatewayRouteAction where - toJSON AppMeshGatewayRouteGrpcGatewayRouteAction{..} = - object $ - catMaybes - [ (Just . ("Target",) . toJSON) _appMeshGatewayRouteGrpcGatewayRouteActionTarget - ] - --- | Constructor for 'AppMeshGatewayRouteGrpcGatewayRouteAction' containing --- required fields as arguments. -appMeshGatewayRouteGrpcGatewayRouteAction - :: AppMeshGatewayRouteGatewayRouteTarget -- ^ 'amgrggraTarget' - -> AppMeshGatewayRouteGrpcGatewayRouteAction -appMeshGatewayRouteGrpcGatewayRouteAction targetarg = - AppMeshGatewayRouteGrpcGatewayRouteAction - { _appMeshGatewayRouteGrpcGatewayRouteActionTarget = targetarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-grpcgatewayrouteaction.html#cfn-appmesh-gatewayroute-grpcgatewayrouteaction-target -amgrggraTarget :: Lens' AppMeshGatewayRouteGrpcGatewayRouteAction AppMeshGatewayRouteGatewayRouteTarget -amgrggraTarget = lens _appMeshGatewayRouteGrpcGatewayRouteActionTarget (\s a -> s { _appMeshGatewayRouteGrpcGatewayRouteActionTarget = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshGatewayRouteGrpcGatewayRouteMatch.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshGatewayRouteGrpcGatewayRouteMatch.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshGatewayRouteGrpcGatewayRouteMatch.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-grpcgatewayroutematch.html - -module Stratosphere.ResourceProperties.AppMeshGatewayRouteGrpcGatewayRouteMatch where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppMeshGatewayRouteGrpcGatewayRouteMatch. --- See 'appMeshGatewayRouteGrpcGatewayRouteMatch' for a more convenient --- constructor. -data AppMeshGatewayRouteGrpcGatewayRouteMatch = - AppMeshGatewayRouteGrpcGatewayRouteMatch - { _appMeshGatewayRouteGrpcGatewayRouteMatchServiceName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AppMeshGatewayRouteGrpcGatewayRouteMatch where - toJSON AppMeshGatewayRouteGrpcGatewayRouteMatch{..} = - object $ - catMaybes - [ fmap (("ServiceName",) . toJSON) _appMeshGatewayRouteGrpcGatewayRouteMatchServiceName - ] - --- | Constructor for 'AppMeshGatewayRouteGrpcGatewayRouteMatch' containing --- required fields as arguments. -appMeshGatewayRouteGrpcGatewayRouteMatch - :: AppMeshGatewayRouteGrpcGatewayRouteMatch -appMeshGatewayRouteGrpcGatewayRouteMatch = - AppMeshGatewayRouteGrpcGatewayRouteMatch - { _appMeshGatewayRouteGrpcGatewayRouteMatchServiceName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-grpcgatewayroutematch.html#cfn-appmesh-gatewayroute-grpcgatewayroutematch-servicename -amgrggrmServiceName :: Lens' AppMeshGatewayRouteGrpcGatewayRouteMatch (Maybe (Val Text)) -amgrggrmServiceName = lens _appMeshGatewayRouteGrpcGatewayRouteMatchServiceName (\s a -> s { _appMeshGatewayRouteGrpcGatewayRouteMatchServiceName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshGatewayRouteHttpGatewayRoute.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshGatewayRouteHttpGatewayRoute.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshGatewayRouteHttpGatewayRoute.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-httpgatewayroute.html - -module Stratosphere.ResourceProperties.AppMeshGatewayRouteHttpGatewayRoute where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshGatewayRouteHttpGatewayRouteAction -import Stratosphere.ResourceProperties.AppMeshGatewayRouteHttpGatewayRouteMatch - --- | Full data type definition for AppMeshGatewayRouteHttpGatewayRoute. See --- 'appMeshGatewayRouteHttpGatewayRoute' for a more convenient constructor. -data AppMeshGatewayRouteHttpGatewayRoute = - AppMeshGatewayRouteHttpGatewayRoute - { _appMeshGatewayRouteHttpGatewayRouteAction :: AppMeshGatewayRouteHttpGatewayRouteAction - , _appMeshGatewayRouteHttpGatewayRouteMatch :: AppMeshGatewayRouteHttpGatewayRouteMatch - } deriving (Show, Eq) - -instance ToJSON AppMeshGatewayRouteHttpGatewayRoute where - toJSON AppMeshGatewayRouteHttpGatewayRoute{..} = - object $ - catMaybes - [ (Just . ("Action",) . toJSON) _appMeshGatewayRouteHttpGatewayRouteAction - , (Just . ("Match",) . toJSON) _appMeshGatewayRouteHttpGatewayRouteMatch - ] - --- | Constructor for 'AppMeshGatewayRouteHttpGatewayRoute' containing required --- fields as arguments. -appMeshGatewayRouteHttpGatewayRoute - :: AppMeshGatewayRouteHttpGatewayRouteAction -- ^ 'amgrhgrAction' - -> AppMeshGatewayRouteHttpGatewayRouteMatch -- ^ 'amgrhgrMatch' - -> AppMeshGatewayRouteHttpGatewayRoute -appMeshGatewayRouteHttpGatewayRoute actionarg matcharg = - AppMeshGatewayRouteHttpGatewayRoute - { _appMeshGatewayRouteHttpGatewayRouteAction = actionarg - , _appMeshGatewayRouteHttpGatewayRouteMatch = matcharg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-httpgatewayroute.html#cfn-appmesh-gatewayroute-httpgatewayroute-action -amgrhgrAction :: Lens' AppMeshGatewayRouteHttpGatewayRoute AppMeshGatewayRouteHttpGatewayRouteAction -amgrhgrAction = lens _appMeshGatewayRouteHttpGatewayRouteAction (\s a -> s { _appMeshGatewayRouteHttpGatewayRouteAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-httpgatewayroute.html#cfn-appmesh-gatewayroute-httpgatewayroute-match -amgrhgrMatch :: Lens' AppMeshGatewayRouteHttpGatewayRoute AppMeshGatewayRouteHttpGatewayRouteMatch -amgrhgrMatch = lens _appMeshGatewayRouteHttpGatewayRouteMatch (\s a -> s { _appMeshGatewayRouteHttpGatewayRouteMatch = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshGatewayRouteHttpGatewayRouteAction.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshGatewayRouteHttpGatewayRouteAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshGatewayRouteHttpGatewayRouteAction.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-httpgatewayrouteaction.html - -module Stratosphere.ResourceProperties.AppMeshGatewayRouteHttpGatewayRouteAction where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshGatewayRouteGatewayRouteTarget - --- | Full data type definition for AppMeshGatewayRouteHttpGatewayRouteAction. --- See 'appMeshGatewayRouteHttpGatewayRouteAction' for a more convenient --- constructor. -data AppMeshGatewayRouteHttpGatewayRouteAction = - AppMeshGatewayRouteHttpGatewayRouteAction - { _appMeshGatewayRouteHttpGatewayRouteActionTarget :: AppMeshGatewayRouteGatewayRouteTarget - } deriving (Show, Eq) - -instance ToJSON AppMeshGatewayRouteHttpGatewayRouteAction where - toJSON AppMeshGatewayRouteHttpGatewayRouteAction{..} = - object $ - catMaybes - [ (Just . ("Target",) . toJSON) _appMeshGatewayRouteHttpGatewayRouteActionTarget - ] - --- | Constructor for 'AppMeshGatewayRouteHttpGatewayRouteAction' containing --- required fields as arguments. -appMeshGatewayRouteHttpGatewayRouteAction - :: AppMeshGatewayRouteGatewayRouteTarget -- ^ 'amgrhgraTarget' - -> AppMeshGatewayRouteHttpGatewayRouteAction -appMeshGatewayRouteHttpGatewayRouteAction targetarg = - AppMeshGatewayRouteHttpGatewayRouteAction - { _appMeshGatewayRouteHttpGatewayRouteActionTarget = targetarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-httpgatewayrouteaction.html#cfn-appmesh-gatewayroute-httpgatewayrouteaction-target -amgrhgraTarget :: Lens' AppMeshGatewayRouteHttpGatewayRouteAction AppMeshGatewayRouteGatewayRouteTarget -amgrhgraTarget = lens _appMeshGatewayRouteHttpGatewayRouteActionTarget (\s a -> s { _appMeshGatewayRouteHttpGatewayRouteActionTarget = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshGatewayRouteHttpGatewayRouteMatch.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshGatewayRouteHttpGatewayRouteMatch.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshGatewayRouteHttpGatewayRouteMatch.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-httpgatewayroutematch.html - -module Stratosphere.ResourceProperties.AppMeshGatewayRouteHttpGatewayRouteMatch where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppMeshGatewayRouteHttpGatewayRouteMatch. --- See 'appMeshGatewayRouteHttpGatewayRouteMatch' for a more convenient --- constructor. -data AppMeshGatewayRouteHttpGatewayRouteMatch = - AppMeshGatewayRouteHttpGatewayRouteMatch - { _appMeshGatewayRouteHttpGatewayRouteMatchPrefix :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppMeshGatewayRouteHttpGatewayRouteMatch where - toJSON AppMeshGatewayRouteHttpGatewayRouteMatch{..} = - object $ - catMaybes - [ (Just . ("Prefix",) . toJSON) _appMeshGatewayRouteHttpGatewayRouteMatchPrefix - ] - --- | Constructor for 'AppMeshGatewayRouteHttpGatewayRouteMatch' containing --- required fields as arguments. -appMeshGatewayRouteHttpGatewayRouteMatch - :: Val Text -- ^ 'amgrhgrmPrefix' - -> AppMeshGatewayRouteHttpGatewayRouteMatch -appMeshGatewayRouteHttpGatewayRouteMatch prefixarg = - AppMeshGatewayRouteHttpGatewayRouteMatch - { _appMeshGatewayRouteHttpGatewayRouteMatchPrefix = prefixarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-gatewayroute-httpgatewayroutematch.html#cfn-appmesh-gatewayroute-httpgatewayroutematch-prefix -amgrhgrmPrefix :: Lens' AppMeshGatewayRouteHttpGatewayRouteMatch (Val Text) -amgrhgrmPrefix = lens _appMeshGatewayRouteHttpGatewayRouteMatchPrefix (\s a -> s { _appMeshGatewayRouteHttpGatewayRouteMatchPrefix = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshMeshEgressFilter.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshMeshEgressFilter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshMeshEgressFilter.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-mesh-egressfilter.html - -module Stratosphere.ResourceProperties.AppMeshMeshEgressFilter where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppMeshMeshEgressFilter. See --- 'appMeshMeshEgressFilter' for a more convenient constructor. -data AppMeshMeshEgressFilter = - AppMeshMeshEgressFilter - { _appMeshMeshEgressFilterType :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppMeshMeshEgressFilter where - toJSON AppMeshMeshEgressFilter{..} = - object $ - catMaybes - [ (Just . ("Type",) . toJSON) _appMeshMeshEgressFilterType - ] - --- | Constructor for 'AppMeshMeshEgressFilter' containing required fields as --- arguments. -appMeshMeshEgressFilter - :: Val Text -- ^ 'ammefType' - -> AppMeshMeshEgressFilter -appMeshMeshEgressFilter typearg = - AppMeshMeshEgressFilter - { _appMeshMeshEgressFilterType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-mesh-egressfilter.html#cfn-appmesh-mesh-egressfilter-type -ammefType :: Lens' AppMeshMeshEgressFilter (Val Text) -ammefType = lens _appMeshMeshEgressFilterType (\s a -> s { _appMeshMeshEgressFilterType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshMeshMeshSpec.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshMeshMeshSpec.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshMeshMeshSpec.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-mesh-meshspec.html - -module Stratosphere.ResourceProperties.AppMeshMeshMeshSpec where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshMeshEgressFilter - --- | Full data type definition for AppMeshMeshMeshSpec. See --- 'appMeshMeshMeshSpec' for a more convenient constructor. -data AppMeshMeshMeshSpec = - AppMeshMeshMeshSpec - { _appMeshMeshMeshSpecEgressFilter :: Maybe AppMeshMeshEgressFilter - } deriving (Show, Eq) - -instance ToJSON AppMeshMeshMeshSpec where - toJSON AppMeshMeshMeshSpec{..} = - object $ - catMaybes - [ fmap (("EgressFilter",) . toJSON) _appMeshMeshMeshSpecEgressFilter - ] - --- | Constructor for 'AppMeshMeshMeshSpec' containing required fields as --- arguments. -appMeshMeshMeshSpec - :: AppMeshMeshMeshSpec -appMeshMeshMeshSpec = - AppMeshMeshMeshSpec - { _appMeshMeshMeshSpecEgressFilter = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-mesh-meshspec.html#cfn-appmesh-mesh-meshspec-egressfilter -ammmsEgressFilter :: Lens' AppMeshMeshMeshSpec (Maybe AppMeshMeshEgressFilter) -ammmsEgressFilter = lens _appMeshMeshMeshSpecEgressFilter (\s a -> s { _appMeshMeshMeshSpecEgressFilter = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteDuration.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshRouteDuration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteDuration.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-duration.html - -module Stratosphere.ResourceProperties.AppMeshRouteDuration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppMeshRouteDuration. See --- 'appMeshRouteDuration' for a more convenient constructor. -data AppMeshRouteDuration = - AppMeshRouteDuration - { _appMeshRouteDurationUnit :: Val Text - , _appMeshRouteDurationValue :: Val Integer - } deriving (Show, Eq) - -instance ToJSON AppMeshRouteDuration where - toJSON AppMeshRouteDuration{..} = - object $ - catMaybes - [ (Just . ("Unit",) . toJSON) _appMeshRouteDurationUnit - , (Just . ("Value",) . toJSON) _appMeshRouteDurationValue - ] - --- | Constructor for 'AppMeshRouteDuration' containing required fields as --- arguments. -appMeshRouteDuration - :: Val Text -- ^ 'amrdUnit' - -> Val Integer -- ^ 'amrdValue' - -> AppMeshRouteDuration -appMeshRouteDuration unitarg valuearg = - AppMeshRouteDuration - { _appMeshRouteDurationUnit = unitarg - , _appMeshRouteDurationValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-duration.html#cfn-appmesh-route-duration-unit -amrdUnit :: Lens' AppMeshRouteDuration (Val Text) -amrdUnit = lens _appMeshRouteDurationUnit (\s a -> s { _appMeshRouteDurationUnit = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-duration.html#cfn-appmesh-route-duration-value -amrdValue :: Lens' AppMeshRouteDuration (Val Integer) -amrdValue = lens _appMeshRouteDurationValue (\s a -> s { _appMeshRouteDurationValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteGrpcRetryPolicy.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshRouteGrpcRetryPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteGrpcRetryPolicy.hs +++ /dev/null @@ -1,68 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcretrypolicy.html - -module Stratosphere.ResourceProperties.AppMeshRouteGrpcRetryPolicy where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshRouteDuration - --- | Full data type definition for AppMeshRouteGrpcRetryPolicy. See --- 'appMeshRouteGrpcRetryPolicy' for a more convenient constructor. -data AppMeshRouteGrpcRetryPolicy = - AppMeshRouteGrpcRetryPolicy - { _appMeshRouteGrpcRetryPolicyGrpcRetryEvents :: Maybe (ValList Text) - , _appMeshRouteGrpcRetryPolicyHttpRetryEvents :: Maybe (ValList Text) - , _appMeshRouteGrpcRetryPolicyMaxRetries :: Val Integer - , _appMeshRouteGrpcRetryPolicyPerRetryTimeout :: AppMeshRouteDuration - , _appMeshRouteGrpcRetryPolicyTcpRetryEvents :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON AppMeshRouteGrpcRetryPolicy where - toJSON AppMeshRouteGrpcRetryPolicy{..} = - object $ - catMaybes - [ fmap (("GrpcRetryEvents",) . toJSON) _appMeshRouteGrpcRetryPolicyGrpcRetryEvents - , fmap (("HttpRetryEvents",) . toJSON) _appMeshRouteGrpcRetryPolicyHttpRetryEvents - , (Just . ("MaxRetries",) . toJSON) _appMeshRouteGrpcRetryPolicyMaxRetries - , (Just . ("PerRetryTimeout",) . toJSON) _appMeshRouteGrpcRetryPolicyPerRetryTimeout - , fmap (("TcpRetryEvents",) . toJSON) _appMeshRouteGrpcRetryPolicyTcpRetryEvents - ] - --- | Constructor for 'AppMeshRouteGrpcRetryPolicy' containing required fields --- as arguments. -appMeshRouteGrpcRetryPolicy - :: Val Integer -- ^ 'amrgrpMaxRetries' - -> AppMeshRouteDuration -- ^ 'amrgrpPerRetryTimeout' - -> AppMeshRouteGrpcRetryPolicy -appMeshRouteGrpcRetryPolicy maxRetriesarg perRetryTimeoutarg = - AppMeshRouteGrpcRetryPolicy - { _appMeshRouteGrpcRetryPolicyGrpcRetryEvents = Nothing - , _appMeshRouteGrpcRetryPolicyHttpRetryEvents = Nothing - , _appMeshRouteGrpcRetryPolicyMaxRetries = maxRetriesarg - , _appMeshRouteGrpcRetryPolicyPerRetryTimeout = perRetryTimeoutarg - , _appMeshRouteGrpcRetryPolicyTcpRetryEvents = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcretrypolicy.html#cfn-appmesh-route-grpcretrypolicy-grpcretryevents -amrgrpGrpcRetryEvents :: Lens' AppMeshRouteGrpcRetryPolicy (Maybe (ValList Text)) -amrgrpGrpcRetryEvents = lens _appMeshRouteGrpcRetryPolicyGrpcRetryEvents (\s a -> s { _appMeshRouteGrpcRetryPolicyGrpcRetryEvents = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcretrypolicy.html#cfn-appmesh-route-grpcretrypolicy-httpretryevents -amrgrpHttpRetryEvents :: Lens' AppMeshRouteGrpcRetryPolicy (Maybe (ValList Text)) -amrgrpHttpRetryEvents = lens _appMeshRouteGrpcRetryPolicyHttpRetryEvents (\s a -> s { _appMeshRouteGrpcRetryPolicyHttpRetryEvents = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcretrypolicy.html#cfn-appmesh-route-grpcretrypolicy-maxretries -amrgrpMaxRetries :: Lens' AppMeshRouteGrpcRetryPolicy (Val Integer) -amrgrpMaxRetries = lens _appMeshRouteGrpcRetryPolicyMaxRetries (\s a -> s { _appMeshRouteGrpcRetryPolicyMaxRetries = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcretrypolicy.html#cfn-appmesh-route-grpcretrypolicy-perretrytimeout -amrgrpPerRetryTimeout :: Lens' AppMeshRouteGrpcRetryPolicy AppMeshRouteDuration -amrgrpPerRetryTimeout = lens _appMeshRouteGrpcRetryPolicyPerRetryTimeout (\s a -> s { _appMeshRouteGrpcRetryPolicyPerRetryTimeout = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcretrypolicy.html#cfn-appmesh-route-grpcretrypolicy-tcpretryevents -amrgrpTcpRetryEvents :: Lens' AppMeshRouteGrpcRetryPolicy (Maybe (ValList Text)) -amrgrpTcpRetryEvents = lens _appMeshRouteGrpcRetryPolicyTcpRetryEvents (\s a -> s { _appMeshRouteGrpcRetryPolicyTcpRetryEvents = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteGrpcRoute.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshRouteGrpcRoute.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteGrpcRoute.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroute.html - -module Stratosphere.ResourceProperties.AppMeshRouteGrpcRoute where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteAction -import Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMatch -import Stratosphere.ResourceProperties.AppMeshRouteGrpcRetryPolicy -import Stratosphere.ResourceProperties.AppMeshRouteGrpcTimeout - --- | Full data type definition for AppMeshRouteGrpcRoute. See --- 'appMeshRouteGrpcRoute' for a more convenient constructor. -data AppMeshRouteGrpcRoute = - AppMeshRouteGrpcRoute - { _appMeshRouteGrpcRouteAction :: AppMeshRouteGrpcRouteAction - , _appMeshRouteGrpcRouteMatch :: AppMeshRouteGrpcRouteMatch - , _appMeshRouteGrpcRouteRetryPolicy :: Maybe AppMeshRouteGrpcRetryPolicy - , _appMeshRouteGrpcRouteTimeout :: Maybe AppMeshRouteGrpcTimeout - } deriving (Show, Eq) - -instance ToJSON AppMeshRouteGrpcRoute where - toJSON AppMeshRouteGrpcRoute{..} = - object $ - catMaybes - [ (Just . ("Action",) . toJSON) _appMeshRouteGrpcRouteAction - , (Just . ("Match",) . toJSON) _appMeshRouteGrpcRouteMatch - , fmap (("RetryPolicy",) . toJSON) _appMeshRouteGrpcRouteRetryPolicy - , fmap (("Timeout",) . toJSON) _appMeshRouteGrpcRouteTimeout - ] - --- | Constructor for 'AppMeshRouteGrpcRoute' containing required fields as --- arguments. -appMeshRouteGrpcRoute - :: AppMeshRouteGrpcRouteAction -- ^ 'amrgrAction' - -> AppMeshRouteGrpcRouteMatch -- ^ 'amrgrMatch' - -> AppMeshRouteGrpcRoute -appMeshRouteGrpcRoute actionarg matcharg = - AppMeshRouteGrpcRoute - { _appMeshRouteGrpcRouteAction = actionarg - , _appMeshRouteGrpcRouteMatch = matcharg - , _appMeshRouteGrpcRouteRetryPolicy = Nothing - , _appMeshRouteGrpcRouteTimeout = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroute.html#cfn-appmesh-route-grpcroute-action -amrgrAction :: Lens' AppMeshRouteGrpcRoute AppMeshRouteGrpcRouteAction -amrgrAction = lens _appMeshRouteGrpcRouteAction (\s a -> s { _appMeshRouteGrpcRouteAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroute.html#cfn-appmesh-route-grpcroute-match -amrgrMatch :: Lens' AppMeshRouteGrpcRoute AppMeshRouteGrpcRouteMatch -amrgrMatch = lens _appMeshRouteGrpcRouteMatch (\s a -> s { _appMeshRouteGrpcRouteMatch = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroute.html#cfn-appmesh-route-grpcroute-retrypolicy -amrgrRetryPolicy :: Lens' AppMeshRouteGrpcRoute (Maybe AppMeshRouteGrpcRetryPolicy) -amrgrRetryPolicy = lens _appMeshRouteGrpcRouteRetryPolicy (\s a -> s { _appMeshRouteGrpcRouteRetryPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroute.html#cfn-appmesh-route-grpcroute-timeout -amrgrTimeout :: Lens' AppMeshRouteGrpcRoute (Maybe AppMeshRouteGrpcTimeout) -amrgrTimeout = lens _appMeshRouteGrpcRouteTimeout (\s a -> s { _appMeshRouteGrpcRouteTimeout = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteGrpcRouteAction.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshRouteGrpcRouteAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteGrpcRouteAction.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcrouteaction.html - -module Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteAction where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshRouteWeightedTarget - --- | Full data type definition for AppMeshRouteGrpcRouteAction. See --- 'appMeshRouteGrpcRouteAction' for a more convenient constructor. -data AppMeshRouteGrpcRouteAction = - AppMeshRouteGrpcRouteAction - { _appMeshRouteGrpcRouteActionWeightedTargets :: [AppMeshRouteWeightedTarget] - } deriving (Show, Eq) - -instance ToJSON AppMeshRouteGrpcRouteAction where - toJSON AppMeshRouteGrpcRouteAction{..} = - object $ - catMaybes - [ (Just . ("WeightedTargets",) . toJSON) _appMeshRouteGrpcRouteActionWeightedTargets - ] - --- | Constructor for 'AppMeshRouteGrpcRouteAction' containing required fields --- as arguments. -appMeshRouteGrpcRouteAction - :: [AppMeshRouteWeightedTarget] -- ^ 'amrgraWeightedTargets' - -> AppMeshRouteGrpcRouteAction -appMeshRouteGrpcRouteAction weightedTargetsarg = - AppMeshRouteGrpcRouteAction - { _appMeshRouteGrpcRouteActionWeightedTargets = weightedTargetsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcrouteaction.html#cfn-appmesh-route-grpcrouteaction-weightedtargets -amrgraWeightedTargets :: Lens' AppMeshRouteGrpcRouteAction [AppMeshRouteWeightedTarget] -amrgraWeightedTargets = lens _appMeshRouteGrpcRouteActionWeightedTargets (\s a -> s { _appMeshRouteGrpcRouteActionWeightedTargets = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteGrpcRouteMatch.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshRouteGrpcRouteMatch.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteGrpcRouteMatch.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroutematch.html - -module Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMatch where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMetadata - --- | Full data type definition for AppMeshRouteGrpcRouteMatch. See --- 'appMeshRouteGrpcRouteMatch' for a more convenient constructor. -data AppMeshRouteGrpcRouteMatch = - AppMeshRouteGrpcRouteMatch - { _appMeshRouteGrpcRouteMatchMetadata :: Maybe [AppMeshRouteGrpcRouteMetadata] - , _appMeshRouteGrpcRouteMatchMethodName :: Maybe (Val Text) - , _appMeshRouteGrpcRouteMatchServiceName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AppMeshRouteGrpcRouteMatch where - toJSON AppMeshRouteGrpcRouteMatch{..} = - object $ - catMaybes - [ fmap (("Metadata",) . toJSON) _appMeshRouteGrpcRouteMatchMetadata - , fmap (("MethodName",) . toJSON) _appMeshRouteGrpcRouteMatchMethodName - , fmap (("ServiceName",) . toJSON) _appMeshRouteGrpcRouteMatchServiceName - ] - --- | Constructor for 'AppMeshRouteGrpcRouteMatch' containing required fields --- as arguments. -appMeshRouteGrpcRouteMatch - :: AppMeshRouteGrpcRouteMatch -appMeshRouteGrpcRouteMatch = - AppMeshRouteGrpcRouteMatch - { _appMeshRouteGrpcRouteMatchMetadata = Nothing - , _appMeshRouteGrpcRouteMatchMethodName = Nothing - , _appMeshRouteGrpcRouteMatchServiceName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroutematch.html#cfn-appmesh-route-grpcroutematch-metadata -amrgrmMetadata :: Lens' AppMeshRouteGrpcRouteMatch (Maybe [AppMeshRouteGrpcRouteMetadata]) -amrgrmMetadata = lens _appMeshRouteGrpcRouteMatchMetadata (\s a -> s { _appMeshRouteGrpcRouteMatchMetadata = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroutematch.html#cfn-appmesh-route-grpcroutematch-methodname -amrgrmMethodName :: Lens' AppMeshRouteGrpcRouteMatch (Maybe (Val Text)) -amrgrmMethodName = lens _appMeshRouteGrpcRouteMatchMethodName (\s a -> s { _appMeshRouteGrpcRouteMatchMethodName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroutematch.html#cfn-appmesh-route-grpcroutematch-servicename -amrgrmServiceName :: Lens' AppMeshRouteGrpcRouteMatch (Maybe (Val Text)) -amrgrmServiceName = lens _appMeshRouteGrpcRouteMatchServiceName (\s a -> s { _appMeshRouteGrpcRouteMatchServiceName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteGrpcRouteMetadata.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshRouteGrpcRouteMetadata.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteGrpcRouteMetadata.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroutemetadata.html - -module Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMetadata where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMetadataMatchMethod - --- | Full data type definition for AppMeshRouteGrpcRouteMetadata. See --- 'appMeshRouteGrpcRouteMetadata' for a more convenient constructor. -data AppMeshRouteGrpcRouteMetadata = - AppMeshRouteGrpcRouteMetadata - { _appMeshRouteGrpcRouteMetadataInvert :: Maybe (Val Bool) - , _appMeshRouteGrpcRouteMetadataMatch :: Maybe AppMeshRouteGrpcRouteMetadataMatchMethod - , _appMeshRouteGrpcRouteMetadataName :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppMeshRouteGrpcRouteMetadata where - toJSON AppMeshRouteGrpcRouteMetadata{..} = - object $ - catMaybes - [ fmap (("Invert",) . toJSON) _appMeshRouteGrpcRouteMetadataInvert - , fmap (("Match",) . toJSON) _appMeshRouteGrpcRouteMetadataMatch - , (Just . ("Name",) . toJSON) _appMeshRouteGrpcRouteMetadataName - ] - --- | Constructor for 'AppMeshRouteGrpcRouteMetadata' containing required --- fields as arguments. -appMeshRouteGrpcRouteMetadata - :: Val Text -- ^ 'amrgrmName' - -> AppMeshRouteGrpcRouteMetadata -appMeshRouteGrpcRouteMetadata namearg = - AppMeshRouteGrpcRouteMetadata - { _appMeshRouteGrpcRouteMetadataInvert = Nothing - , _appMeshRouteGrpcRouteMetadataMatch = Nothing - , _appMeshRouteGrpcRouteMetadataName = namearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroutemetadata.html#cfn-appmesh-route-grpcroutemetadata-invert -amrgrmInvert :: Lens' AppMeshRouteGrpcRouteMetadata (Maybe (Val Bool)) -amrgrmInvert = lens _appMeshRouteGrpcRouteMetadataInvert (\s a -> s { _appMeshRouteGrpcRouteMetadataInvert = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroutemetadata.html#cfn-appmesh-route-grpcroutemetadata-match -amrgrmMatch :: Lens' AppMeshRouteGrpcRouteMetadata (Maybe AppMeshRouteGrpcRouteMetadataMatchMethod) -amrgrmMatch = lens _appMeshRouteGrpcRouteMetadataMatch (\s a -> s { _appMeshRouteGrpcRouteMetadataMatch = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroutemetadata.html#cfn-appmesh-route-grpcroutemetadata-name -amrgrmName :: Lens' AppMeshRouteGrpcRouteMetadata (Val Text) -amrgrmName = lens _appMeshRouteGrpcRouteMetadataName (\s a -> s { _appMeshRouteGrpcRouteMetadataName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteGrpcRouteMetadataMatchMethod.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshRouteGrpcRouteMetadataMatchMethod.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteGrpcRouteMetadataMatchMethod.hs +++ /dev/null @@ -1,67 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroutemetadatamatchmethod.html - -module Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMetadataMatchMethod where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshRouteMatchRange - --- | Full data type definition for AppMeshRouteGrpcRouteMetadataMatchMethod. --- See 'appMeshRouteGrpcRouteMetadataMatchMethod' for a more convenient --- constructor. -data AppMeshRouteGrpcRouteMetadataMatchMethod = - AppMeshRouteGrpcRouteMetadataMatchMethod - { _appMeshRouteGrpcRouteMetadataMatchMethodExact :: Maybe (Val Text) - , _appMeshRouteGrpcRouteMetadataMatchMethodPrefix :: Maybe (Val Text) - , _appMeshRouteGrpcRouteMetadataMatchMethodRange :: Maybe AppMeshRouteMatchRange - , _appMeshRouteGrpcRouteMetadataMatchMethodRegex :: Maybe (Val Text) - , _appMeshRouteGrpcRouteMetadataMatchMethodSuffix :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AppMeshRouteGrpcRouteMetadataMatchMethod where - toJSON AppMeshRouteGrpcRouteMetadataMatchMethod{..} = - object $ - catMaybes - [ fmap (("Exact",) . toJSON) _appMeshRouteGrpcRouteMetadataMatchMethodExact - , fmap (("Prefix",) . toJSON) _appMeshRouteGrpcRouteMetadataMatchMethodPrefix - , fmap (("Range",) . toJSON) _appMeshRouteGrpcRouteMetadataMatchMethodRange - , fmap (("Regex",) . toJSON) _appMeshRouteGrpcRouteMetadataMatchMethodRegex - , fmap (("Suffix",) . toJSON) _appMeshRouteGrpcRouteMetadataMatchMethodSuffix - ] - --- | Constructor for 'AppMeshRouteGrpcRouteMetadataMatchMethod' containing --- required fields as arguments. -appMeshRouteGrpcRouteMetadataMatchMethod - :: AppMeshRouteGrpcRouteMetadataMatchMethod -appMeshRouteGrpcRouteMetadataMatchMethod = - AppMeshRouteGrpcRouteMetadataMatchMethod - { _appMeshRouteGrpcRouteMetadataMatchMethodExact = Nothing - , _appMeshRouteGrpcRouteMetadataMatchMethodPrefix = Nothing - , _appMeshRouteGrpcRouteMetadataMatchMethodRange = Nothing - , _appMeshRouteGrpcRouteMetadataMatchMethodRegex = Nothing - , _appMeshRouteGrpcRouteMetadataMatchMethodSuffix = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroutemetadatamatchmethod.html#cfn-appmesh-route-grpcroutemetadatamatchmethod-exact -amrgrmmmExact :: Lens' AppMeshRouteGrpcRouteMetadataMatchMethod (Maybe (Val Text)) -amrgrmmmExact = lens _appMeshRouteGrpcRouteMetadataMatchMethodExact (\s a -> s { _appMeshRouteGrpcRouteMetadataMatchMethodExact = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroutemetadatamatchmethod.html#cfn-appmesh-route-grpcroutemetadatamatchmethod-prefix -amrgrmmmPrefix :: Lens' AppMeshRouteGrpcRouteMetadataMatchMethod (Maybe (Val Text)) -amrgrmmmPrefix = lens _appMeshRouteGrpcRouteMetadataMatchMethodPrefix (\s a -> s { _appMeshRouteGrpcRouteMetadataMatchMethodPrefix = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroutemetadatamatchmethod.html#cfn-appmesh-route-grpcroutemetadatamatchmethod-range -amrgrmmmRange :: Lens' AppMeshRouteGrpcRouteMetadataMatchMethod (Maybe AppMeshRouteMatchRange) -amrgrmmmRange = lens _appMeshRouteGrpcRouteMetadataMatchMethodRange (\s a -> s { _appMeshRouteGrpcRouteMetadataMatchMethodRange = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroutemetadatamatchmethod.html#cfn-appmesh-route-grpcroutemetadatamatchmethod-regex -amrgrmmmRegex :: Lens' AppMeshRouteGrpcRouteMetadataMatchMethod (Maybe (Val Text)) -amrgrmmmRegex = lens _appMeshRouteGrpcRouteMetadataMatchMethodRegex (\s a -> s { _appMeshRouteGrpcRouteMetadataMatchMethodRegex = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpcroutemetadatamatchmethod.html#cfn-appmesh-route-grpcroutemetadatamatchmethod-suffix -amrgrmmmSuffix :: Lens' AppMeshRouteGrpcRouteMetadataMatchMethod (Maybe (Val Text)) -amrgrmmmSuffix = lens _appMeshRouteGrpcRouteMetadataMatchMethodSuffix (\s a -> s { _appMeshRouteGrpcRouteMetadataMatchMethodSuffix = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteGrpcTimeout.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshRouteGrpcTimeout.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteGrpcTimeout.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpctimeout.html - -module Stratosphere.ResourceProperties.AppMeshRouteGrpcTimeout where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshRouteDuration - --- | Full data type definition for AppMeshRouteGrpcTimeout. See --- 'appMeshRouteGrpcTimeout' for a more convenient constructor. -data AppMeshRouteGrpcTimeout = - AppMeshRouteGrpcTimeout - { _appMeshRouteGrpcTimeoutIdle :: Maybe AppMeshRouteDuration - , _appMeshRouteGrpcTimeoutPerRequest :: Maybe AppMeshRouteDuration - } deriving (Show, Eq) - -instance ToJSON AppMeshRouteGrpcTimeout where - toJSON AppMeshRouteGrpcTimeout{..} = - object $ - catMaybes - [ fmap (("Idle",) . toJSON) _appMeshRouteGrpcTimeoutIdle - , fmap (("PerRequest",) . toJSON) _appMeshRouteGrpcTimeoutPerRequest - ] - --- | Constructor for 'AppMeshRouteGrpcTimeout' containing required fields as --- arguments. -appMeshRouteGrpcTimeout - :: AppMeshRouteGrpcTimeout -appMeshRouteGrpcTimeout = - AppMeshRouteGrpcTimeout - { _appMeshRouteGrpcTimeoutIdle = Nothing - , _appMeshRouteGrpcTimeoutPerRequest = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpctimeout.html#cfn-appmesh-route-grpctimeout-idle -amrgtIdle :: Lens' AppMeshRouteGrpcTimeout (Maybe AppMeshRouteDuration) -amrgtIdle = lens _appMeshRouteGrpcTimeoutIdle (\s a -> s { _appMeshRouteGrpcTimeoutIdle = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-grpctimeout.html#cfn-appmesh-route-grpctimeout-perrequest -amrgtPerRequest :: Lens' AppMeshRouteGrpcTimeout (Maybe AppMeshRouteDuration) -amrgtPerRequest = lens _appMeshRouteGrpcTimeoutPerRequest (\s a -> s { _appMeshRouteGrpcTimeoutPerRequest = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteHeaderMatchMethod.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshRouteHeaderMatchMethod.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteHeaderMatchMethod.hs +++ /dev/null @@ -1,66 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-headermatchmethod.html - -module Stratosphere.ResourceProperties.AppMeshRouteHeaderMatchMethod where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshRouteMatchRange - --- | Full data type definition for AppMeshRouteHeaderMatchMethod. See --- 'appMeshRouteHeaderMatchMethod' for a more convenient constructor. -data AppMeshRouteHeaderMatchMethod = - AppMeshRouteHeaderMatchMethod - { _appMeshRouteHeaderMatchMethodExact :: Maybe (Val Text) - , _appMeshRouteHeaderMatchMethodPrefix :: Maybe (Val Text) - , _appMeshRouteHeaderMatchMethodRange :: Maybe AppMeshRouteMatchRange - , _appMeshRouteHeaderMatchMethodRegex :: Maybe (Val Text) - , _appMeshRouteHeaderMatchMethodSuffix :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AppMeshRouteHeaderMatchMethod where - toJSON AppMeshRouteHeaderMatchMethod{..} = - object $ - catMaybes - [ fmap (("Exact",) . toJSON) _appMeshRouteHeaderMatchMethodExact - , fmap (("Prefix",) . toJSON) _appMeshRouteHeaderMatchMethodPrefix - , fmap (("Range",) . toJSON) _appMeshRouteHeaderMatchMethodRange - , fmap (("Regex",) . toJSON) _appMeshRouteHeaderMatchMethodRegex - , fmap (("Suffix",) . toJSON) _appMeshRouteHeaderMatchMethodSuffix - ] - --- | Constructor for 'AppMeshRouteHeaderMatchMethod' containing required --- fields as arguments. -appMeshRouteHeaderMatchMethod - :: AppMeshRouteHeaderMatchMethod -appMeshRouteHeaderMatchMethod = - AppMeshRouteHeaderMatchMethod - { _appMeshRouteHeaderMatchMethodExact = Nothing - , _appMeshRouteHeaderMatchMethodPrefix = Nothing - , _appMeshRouteHeaderMatchMethodRange = Nothing - , _appMeshRouteHeaderMatchMethodRegex = Nothing - , _appMeshRouteHeaderMatchMethodSuffix = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-headermatchmethod.html#cfn-appmesh-route-headermatchmethod-exact -amrhmmExact :: Lens' AppMeshRouteHeaderMatchMethod (Maybe (Val Text)) -amrhmmExact = lens _appMeshRouteHeaderMatchMethodExact (\s a -> s { _appMeshRouteHeaderMatchMethodExact = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-headermatchmethod.html#cfn-appmesh-route-headermatchmethod-prefix -amrhmmPrefix :: Lens' AppMeshRouteHeaderMatchMethod (Maybe (Val Text)) -amrhmmPrefix = lens _appMeshRouteHeaderMatchMethodPrefix (\s a -> s { _appMeshRouteHeaderMatchMethodPrefix = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-headermatchmethod.html#cfn-appmesh-route-headermatchmethod-range -amrhmmRange :: Lens' AppMeshRouteHeaderMatchMethod (Maybe AppMeshRouteMatchRange) -amrhmmRange = lens _appMeshRouteHeaderMatchMethodRange (\s a -> s { _appMeshRouteHeaderMatchMethodRange = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-headermatchmethod.html#cfn-appmesh-route-headermatchmethod-regex -amrhmmRegex :: Lens' AppMeshRouteHeaderMatchMethod (Maybe (Val Text)) -amrhmmRegex = lens _appMeshRouteHeaderMatchMethodRegex (\s a -> s { _appMeshRouteHeaderMatchMethodRegex = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-headermatchmethod.html#cfn-appmesh-route-headermatchmethod-suffix -amrhmmSuffix :: Lens' AppMeshRouteHeaderMatchMethod (Maybe (Val Text)) -amrhmmSuffix = lens _appMeshRouteHeaderMatchMethodSuffix (\s a -> s { _appMeshRouteHeaderMatchMethodSuffix = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteHttpRetryPolicy.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshRouteHttpRetryPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteHttpRetryPolicy.hs +++ /dev/null @@ -1,61 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httpretrypolicy.html - -module Stratosphere.ResourceProperties.AppMeshRouteHttpRetryPolicy where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshRouteDuration - --- | Full data type definition for AppMeshRouteHttpRetryPolicy. See --- 'appMeshRouteHttpRetryPolicy' for a more convenient constructor. -data AppMeshRouteHttpRetryPolicy = - AppMeshRouteHttpRetryPolicy - { _appMeshRouteHttpRetryPolicyHttpRetryEvents :: Maybe (ValList Text) - , _appMeshRouteHttpRetryPolicyMaxRetries :: Val Integer - , _appMeshRouteHttpRetryPolicyPerRetryTimeout :: AppMeshRouteDuration - , _appMeshRouteHttpRetryPolicyTcpRetryEvents :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON AppMeshRouteHttpRetryPolicy where - toJSON AppMeshRouteHttpRetryPolicy{..} = - object $ - catMaybes - [ fmap (("HttpRetryEvents",) . toJSON) _appMeshRouteHttpRetryPolicyHttpRetryEvents - , (Just . ("MaxRetries",) . toJSON) _appMeshRouteHttpRetryPolicyMaxRetries - , (Just . ("PerRetryTimeout",) . toJSON) _appMeshRouteHttpRetryPolicyPerRetryTimeout - , fmap (("TcpRetryEvents",) . toJSON) _appMeshRouteHttpRetryPolicyTcpRetryEvents - ] - --- | Constructor for 'AppMeshRouteHttpRetryPolicy' containing required fields --- as arguments. -appMeshRouteHttpRetryPolicy - :: Val Integer -- ^ 'amrhrpMaxRetries' - -> AppMeshRouteDuration -- ^ 'amrhrpPerRetryTimeout' - -> AppMeshRouteHttpRetryPolicy -appMeshRouteHttpRetryPolicy maxRetriesarg perRetryTimeoutarg = - AppMeshRouteHttpRetryPolicy - { _appMeshRouteHttpRetryPolicyHttpRetryEvents = Nothing - , _appMeshRouteHttpRetryPolicyMaxRetries = maxRetriesarg - , _appMeshRouteHttpRetryPolicyPerRetryTimeout = perRetryTimeoutarg - , _appMeshRouteHttpRetryPolicyTcpRetryEvents = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httpretrypolicy.html#cfn-appmesh-route-httpretrypolicy-httpretryevents -amrhrpHttpRetryEvents :: Lens' AppMeshRouteHttpRetryPolicy (Maybe (ValList Text)) -amrhrpHttpRetryEvents = lens _appMeshRouteHttpRetryPolicyHttpRetryEvents (\s a -> s { _appMeshRouteHttpRetryPolicyHttpRetryEvents = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httpretrypolicy.html#cfn-appmesh-route-httpretrypolicy-maxretries -amrhrpMaxRetries :: Lens' AppMeshRouteHttpRetryPolicy (Val Integer) -amrhrpMaxRetries = lens _appMeshRouteHttpRetryPolicyMaxRetries (\s a -> s { _appMeshRouteHttpRetryPolicyMaxRetries = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httpretrypolicy.html#cfn-appmesh-route-httpretrypolicy-perretrytimeout -amrhrpPerRetryTimeout :: Lens' AppMeshRouteHttpRetryPolicy AppMeshRouteDuration -amrhrpPerRetryTimeout = lens _appMeshRouteHttpRetryPolicyPerRetryTimeout (\s a -> s { _appMeshRouteHttpRetryPolicyPerRetryTimeout = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httpretrypolicy.html#cfn-appmesh-route-httpretrypolicy-tcpretryevents -amrhrpTcpRetryEvents :: Lens' AppMeshRouteHttpRetryPolicy (Maybe (ValList Text)) -amrhrpTcpRetryEvents = lens _appMeshRouteHttpRetryPolicyTcpRetryEvents (\s a -> s { _appMeshRouteHttpRetryPolicyTcpRetryEvents = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteHttpRoute.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshRouteHttpRoute.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteHttpRoute.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproute.html - -module Stratosphere.ResourceProperties.AppMeshRouteHttpRoute where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshRouteHttpRouteAction -import Stratosphere.ResourceProperties.AppMeshRouteHttpRouteMatch -import Stratosphere.ResourceProperties.AppMeshRouteHttpRetryPolicy -import Stratosphere.ResourceProperties.AppMeshRouteHttpTimeout - --- | Full data type definition for AppMeshRouteHttpRoute. See --- 'appMeshRouteHttpRoute' for a more convenient constructor. -data AppMeshRouteHttpRoute = - AppMeshRouteHttpRoute - { _appMeshRouteHttpRouteAction :: AppMeshRouteHttpRouteAction - , _appMeshRouteHttpRouteMatch :: AppMeshRouteHttpRouteMatch - , _appMeshRouteHttpRouteRetryPolicy :: Maybe AppMeshRouteHttpRetryPolicy - , _appMeshRouteHttpRouteTimeout :: Maybe AppMeshRouteHttpTimeout - } deriving (Show, Eq) - -instance ToJSON AppMeshRouteHttpRoute where - toJSON AppMeshRouteHttpRoute{..} = - object $ - catMaybes - [ (Just . ("Action",) . toJSON) _appMeshRouteHttpRouteAction - , (Just . ("Match",) . toJSON) _appMeshRouteHttpRouteMatch - , fmap (("RetryPolicy",) . toJSON) _appMeshRouteHttpRouteRetryPolicy - , fmap (("Timeout",) . toJSON) _appMeshRouteHttpRouteTimeout - ] - --- | Constructor for 'AppMeshRouteHttpRoute' containing required fields as --- arguments. -appMeshRouteHttpRoute - :: AppMeshRouteHttpRouteAction -- ^ 'amrhrAction' - -> AppMeshRouteHttpRouteMatch -- ^ 'amrhrMatch' - -> AppMeshRouteHttpRoute -appMeshRouteHttpRoute actionarg matcharg = - AppMeshRouteHttpRoute - { _appMeshRouteHttpRouteAction = actionarg - , _appMeshRouteHttpRouteMatch = matcharg - , _appMeshRouteHttpRouteRetryPolicy = Nothing - , _appMeshRouteHttpRouteTimeout = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproute.html#cfn-appmesh-route-httproute-action -amrhrAction :: Lens' AppMeshRouteHttpRoute AppMeshRouteHttpRouteAction -amrhrAction = lens _appMeshRouteHttpRouteAction (\s a -> s { _appMeshRouteHttpRouteAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproute.html#cfn-appmesh-route-httproute-match -amrhrMatch :: Lens' AppMeshRouteHttpRoute AppMeshRouteHttpRouteMatch -amrhrMatch = lens _appMeshRouteHttpRouteMatch (\s a -> s { _appMeshRouteHttpRouteMatch = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproute.html#cfn-appmesh-route-httproute-retrypolicy -amrhrRetryPolicy :: Lens' AppMeshRouteHttpRoute (Maybe AppMeshRouteHttpRetryPolicy) -amrhrRetryPolicy = lens _appMeshRouteHttpRouteRetryPolicy (\s a -> s { _appMeshRouteHttpRouteRetryPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproute.html#cfn-appmesh-route-httproute-timeout -amrhrTimeout :: Lens' AppMeshRouteHttpRoute (Maybe AppMeshRouteHttpTimeout) -amrhrTimeout = lens _appMeshRouteHttpRouteTimeout (\s a -> s { _appMeshRouteHttpRouteTimeout = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteHttpRouteAction.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshRouteHttpRouteAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteHttpRouteAction.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httprouteaction.html - -module Stratosphere.ResourceProperties.AppMeshRouteHttpRouteAction where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshRouteWeightedTarget - --- | Full data type definition for AppMeshRouteHttpRouteAction. See --- 'appMeshRouteHttpRouteAction' for a more convenient constructor. -data AppMeshRouteHttpRouteAction = - AppMeshRouteHttpRouteAction - { _appMeshRouteHttpRouteActionWeightedTargets :: [AppMeshRouteWeightedTarget] - } deriving (Show, Eq) - -instance ToJSON AppMeshRouteHttpRouteAction where - toJSON AppMeshRouteHttpRouteAction{..} = - object $ - catMaybes - [ (Just . ("WeightedTargets",) . toJSON) _appMeshRouteHttpRouteActionWeightedTargets - ] - --- | Constructor for 'AppMeshRouteHttpRouteAction' containing required fields --- as arguments. -appMeshRouteHttpRouteAction - :: [AppMeshRouteWeightedTarget] -- ^ 'amrhraWeightedTargets' - -> AppMeshRouteHttpRouteAction -appMeshRouteHttpRouteAction weightedTargetsarg = - AppMeshRouteHttpRouteAction - { _appMeshRouteHttpRouteActionWeightedTargets = weightedTargetsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httprouteaction.html#cfn-appmesh-route-httprouteaction-weightedtargets -amrhraWeightedTargets :: Lens' AppMeshRouteHttpRouteAction [AppMeshRouteWeightedTarget] -amrhraWeightedTargets = lens _appMeshRouteHttpRouteActionWeightedTargets (\s a -> s { _appMeshRouteHttpRouteActionWeightedTargets = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteHttpRouteHeader.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshRouteHttpRouteHeader.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteHttpRouteHeader.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httprouteheader.html - -module Stratosphere.ResourceProperties.AppMeshRouteHttpRouteHeader where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshRouteHeaderMatchMethod - --- | Full data type definition for AppMeshRouteHttpRouteHeader. See --- 'appMeshRouteHttpRouteHeader' for a more convenient constructor. -data AppMeshRouteHttpRouteHeader = - AppMeshRouteHttpRouteHeader - { _appMeshRouteHttpRouteHeaderInvert :: Maybe (Val Bool) - , _appMeshRouteHttpRouteHeaderMatch :: Maybe AppMeshRouteHeaderMatchMethod - , _appMeshRouteHttpRouteHeaderName :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppMeshRouteHttpRouteHeader where - toJSON AppMeshRouteHttpRouteHeader{..} = - object $ - catMaybes - [ fmap (("Invert",) . toJSON) _appMeshRouteHttpRouteHeaderInvert - , fmap (("Match",) . toJSON) _appMeshRouteHttpRouteHeaderMatch - , (Just . ("Name",) . toJSON) _appMeshRouteHttpRouteHeaderName - ] - --- | Constructor for 'AppMeshRouteHttpRouteHeader' containing required fields --- as arguments. -appMeshRouteHttpRouteHeader - :: Val Text -- ^ 'amrhrhName' - -> AppMeshRouteHttpRouteHeader -appMeshRouteHttpRouteHeader namearg = - AppMeshRouteHttpRouteHeader - { _appMeshRouteHttpRouteHeaderInvert = Nothing - , _appMeshRouteHttpRouteHeaderMatch = Nothing - , _appMeshRouteHttpRouteHeaderName = namearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httprouteheader.html#cfn-appmesh-route-httprouteheader-invert -amrhrhInvert :: Lens' AppMeshRouteHttpRouteHeader (Maybe (Val Bool)) -amrhrhInvert = lens _appMeshRouteHttpRouteHeaderInvert (\s a -> s { _appMeshRouteHttpRouteHeaderInvert = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httprouteheader.html#cfn-appmesh-route-httprouteheader-match -amrhrhMatch :: Lens' AppMeshRouteHttpRouteHeader (Maybe AppMeshRouteHeaderMatchMethod) -amrhrhMatch = lens _appMeshRouteHttpRouteHeaderMatch (\s a -> s { _appMeshRouteHttpRouteHeaderMatch = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httprouteheader.html#cfn-appmesh-route-httprouteheader-name -amrhrhName :: Lens' AppMeshRouteHttpRouteHeader (Val Text) -amrhrhName = lens _appMeshRouteHttpRouteHeaderName (\s a -> s { _appMeshRouteHttpRouteHeaderName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteHttpRouteMatch.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshRouteHttpRouteMatch.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteHttpRouteMatch.hs +++ /dev/null @@ -1,60 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproutematch.html - -module Stratosphere.ResourceProperties.AppMeshRouteHttpRouteMatch where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshRouteHttpRouteHeader - --- | Full data type definition for AppMeshRouteHttpRouteMatch. See --- 'appMeshRouteHttpRouteMatch' for a more convenient constructor. -data AppMeshRouteHttpRouteMatch = - AppMeshRouteHttpRouteMatch - { _appMeshRouteHttpRouteMatchHeaders :: Maybe [AppMeshRouteHttpRouteHeader] - , _appMeshRouteHttpRouteMatchMethod :: Maybe (Val Text) - , _appMeshRouteHttpRouteMatchPrefix :: Val Text - , _appMeshRouteHttpRouteMatchScheme :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AppMeshRouteHttpRouteMatch where - toJSON AppMeshRouteHttpRouteMatch{..} = - object $ - catMaybes - [ fmap (("Headers",) . toJSON) _appMeshRouteHttpRouteMatchHeaders - , fmap (("Method",) . toJSON) _appMeshRouteHttpRouteMatchMethod - , (Just . ("Prefix",) . toJSON) _appMeshRouteHttpRouteMatchPrefix - , fmap (("Scheme",) . toJSON) _appMeshRouteHttpRouteMatchScheme - ] - --- | Constructor for 'AppMeshRouteHttpRouteMatch' containing required fields --- as arguments. -appMeshRouteHttpRouteMatch - :: Val Text -- ^ 'amrhrmPrefix' - -> AppMeshRouteHttpRouteMatch -appMeshRouteHttpRouteMatch prefixarg = - AppMeshRouteHttpRouteMatch - { _appMeshRouteHttpRouteMatchHeaders = Nothing - , _appMeshRouteHttpRouteMatchMethod = Nothing - , _appMeshRouteHttpRouteMatchPrefix = prefixarg - , _appMeshRouteHttpRouteMatchScheme = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproutematch.html#cfn-appmesh-route-httproutematch-headers -amrhrmHeaders :: Lens' AppMeshRouteHttpRouteMatch (Maybe [AppMeshRouteHttpRouteHeader]) -amrhrmHeaders = lens _appMeshRouteHttpRouteMatchHeaders (\s a -> s { _appMeshRouteHttpRouteMatchHeaders = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproutematch.html#cfn-appmesh-route-httproutematch-method -amrhrmMethod :: Lens' AppMeshRouteHttpRouteMatch (Maybe (Val Text)) -amrhrmMethod = lens _appMeshRouteHttpRouteMatchMethod (\s a -> s { _appMeshRouteHttpRouteMatchMethod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproutematch.html#cfn-appmesh-route-httproutematch-prefix -amrhrmPrefix :: Lens' AppMeshRouteHttpRouteMatch (Val Text) -amrhrmPrefix = lens _appMeshRouteHttpRouteMatchPrefix (\s a -> s { _appMeshRouteHttpRouteMatchPrefix = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproutematch.html#cfn-appmesh-route-httproutematch-scheme -amrhrmScheme :: Lens' AppMeshRouteHttpRouteMatch (Maybe (Val Text)) -amrhrmScheme = lens _appMeshRouteHttpRouteMatchScheme (\s a -> s { _appMeshRouteHttpRouteMatchScheme = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteHttpTimeout.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshRouteHttpTimeout.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteHttpTimeout.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httptimeout.html - -module Stratosphere.ResourceProperties.AppMeshRouteHttpTimeout where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshRouteDuration - --- | Full data type definition for AppMeshRouteHttpTimeout. See --- 'appMeshRouteHttpTimeout' for a more convenient constructor. -data AppMeshRouteHttpTimeout = - AppMeshRouteHttpTimeout - { _appMeshRouteHttpTimeoutIdle :: Maybe AppMeshRouteDuration - , _appMeshRouteHttpTimeoutPerRequest :: Maybe AppMeshRouteDuration - } deriving (Show, Eq) - -instance ToJSON AppMeshRouteHttpTimeout where - toJSON AppMeshRouteHttpTimeout{..} = - object $ - catMaybes - [ fmap (("Idle",) . toJSON) _appMeshRouteHttpTimeoutIdle - , fmap (("PerRequest",) . toJSON) _appMeshRouteHttpTimeoutPerRequest - ] - --- | Constructor for 'AppMeshRouteHttpTimeout' containing required fields as --- arguments. -appMeshRouteHttpTimeout - :: AppMeshRouteHttpTimeout -appMeshRouteHttpTimeout = - AppMeshRouteHttpTimeout - { _appMeshRouteHttpTimeoutIdle = Nothing - , _appMeshRouteHttpTimeoutPerRequest = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httptimeout.html#cfn-appmesh-route-httptimeout-idle -amrhtIdle :: Lens' AppMeshRouteHttpTimeout (Maybe AppMeshRouteDuration) -amrhtIdle = lens _appMeshRouteHttpTimeoutIdle (\s a -> s { _appMeshRouteHttpTimeoutIdle = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httptimeout.html#cfn-appmesh-route-httptimeout-perrequest -amrhtPerRequest :: Lens' AppMeshRouteHttpTimeout (Maybe AppMeshRouteDuration) -amrhtPerRequest = lens _appMeshRouteHttpTimeoutPerRequest (\s a -> s { _appMeshRouteHttpTimeoutPerRequest = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteMatchRange.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshRouteMatchRange.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteMatchRange.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-matchrange.html - -module Stratosphere.ResourceProperties.AppMeshRouteMatchRange where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppMeshRouteMatchRange. See --- 'appMeshRouteMatchRange' for a more convenient constructor. -data AppMeshRouteMatchRange = - AppMeshRouteMatchRange - { _appMeshRouteMatchRangeEnd :: Val Integer - , _appMeshRouteMatchRangeStart :: Val Integer - } deriving (Show, Eq) - -instance ToJSON AppMeshRouteMatchRange where - toJSON AppMeshRouteMatchRange{..} = - object $ - catMaybes - [ (Just . ("End",) . toJSON) _appMeshRouteMatchRangeEnd - , (Just . ("Start",) . toJSON) _appMeshRouteMatchRangeStart - ] - --- | Constructor for 'AppMeshRouteMatchRange' containing required fields as --- arguments. -appMeshRouteMatchRange - :: Val Integer -- ^ 'amrmrEnd' - -> Val Integer -- ^ 'amrmrStart' - -> AppMeshRouteMatchRange -appMeshRouteMatchRange endarg startarg = - AppMeshRouteMatchRange - { _appMeshRouteMatchRangeEnd = endarg - , _appMeshRouteMatchRangeStart = startarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-matchrange.html#cfn-appmesh-route-matchrange-end -amrmrEnd :: Lens' AppMeshRouteMatchRange (Val Integer) -amrmrEnd = lens _appMeshRouteMatchRangeEnd (\s a -> s { _appMeshRouteMatchRangeEnd = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-matchrange.html#cfn-appmesh-route-matchrange-start -amrmrStart :: Lens' AppMeshRouteMatchRange (Val Integer) -amrmrStart = lens _appMeshRouteMatchRangeStart (\s a -> s { _appMeshRouteMatchRangeStart = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteRouteSpec.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshRouteRouteSpec.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteRouteSpec.hs +++ /dev/null @@ -1,68 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-routespec.html - -module Stratosphere.ResourceProperties.AppMeshRouteRouteSpec where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshRouteGrpcRoute -import Stratosphere.ResourceProperties.AppMeshRouteHttpRoute -import Stratosphere.ResourceProperties.AppMeshRouteTcpRoute - --- | Full data type definition for AppMeshRouteRouteSpec. See --- 'appMeshRouteRouteSpec' for a more convenient constructor. -data AppMeshRouteRouteSpec = - AppMeshRouteRouteSpec - { _appMeshRouteRouteSpecGrpcRoute :: Maybe AppMeshRouteGrpcRoute - , _appMeshRouteRouteSpecHttp2Route :: Maybe AppMeshRouteHttpRoute - , _appMeshRouteRouteSpecHttpRoute :: Maybe AppMeshRouteHttpRoute - , _appMeshRouteRouteSpecPriority :: Maybe (Val Integer) - , _appMeshRouteRouteSpecTcpRoute :: Maybe AppMeshRouteTcpRoute - } deriving (Show, Eq) - -instance ToJSON AppMeshRouteRouteSpec where - toJSON AppMeshRouteRouteSpec{..} = - object $ - catMaybes - [ fmap (("GrpcRoute",) . toJSON) _appMeshRouteRouteSpecGrpcRoute - , fmap (("Http2Route",) . toJSON) _appMeshRouteRouteSpecHttp2Route - , fmap (("HttpRoute",) . toJSON) _appMeshRouteRouteSpecHttpRoute - , fmap (("Priority",) . toJSON) _appMeshRouteRouteSpecPriority - , fmap (("TcpRoute",) . toJSON) _appMeshRouteRouteSpecTcpRoute - ] - --- | Constructor for 'AppMeshRouteRouteSpec' containing required fields as --- arguments. -appMeshRouteRouteSpec - :: AppMeshRouteRouteSpec -appMeshRouteRouteSpec = - AppMeshRouteRouteSpec - { _appMeshRouteRouteSpecGrpcRoute = Nothing - , _appMeshRouteRouteSpecHttp2Route = Nothing - , _appMeshRouteRouteSpecHttpRoute = Nothing - , _appMeshRouteRouteSpecPriority = Nothing - , _appMeshRouteRouteSpecTcpRoute = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-routespec.html#cfn-appmesh-route-routespec-grpcroute -amrrsGrpcRoute :: Lens' AppMeshRouteRouteSpec (Maybe AppMeshRouteGrpcRoute) -amrrsGrpcRoute = lens _appMeshRouteRouteSpecGrpcRoute (\s a -> s { _appMeshRouteRouteSpecGrpcRoute = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-routespec.html#cfn-appmesh-route-routespec-http2route -amrrsHttp2Route :: Lens' AppMeshRouteRouteSpec (Maybe AppMeshRouteHttpRoute) -amrrsHttp2Route = lens _appMeshRouteRouteSpecHttp2Route (\s a -> s { _appMeshRouteRouteSpecHttp2Route = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-routespec.html#cfn-appmesh-route-routespec-httproute -amrrsHttpRoute :: Lens' AppMeshRouteRouteSpec (Maybe AppMeshRouteHttpRoute) -amrrsHttpRoute = lens _appMeshRouteRouteSpecHttpRoute (\s a -> s { _appMeshRouteRouteSpecHttpRoute = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-routespec.html#cfn-appmesh-route-routespec-priority -amrrsPriority :: Lens' AppMeshRouteRouteSpec (Maybe (Val Integer)) -amrrsPriority = lens _appMeshRouteRouteSpecPriority (\s a -> s { _appMeshRouteRouteSpecPriority = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-routespec.html#cfn-appmesh-route-routespec-tcproute -amrrsTcpRoute :: Lens' AppMeshRouteRouteSpec (Maybe AppMeshRouteTcpRoute) -amrrsTcpRoute = lens _appMeshRouteRouteSpecTcpRoute (\s a -> s { _appMeshRouteRouteSpecTcpRoute = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteTcpRoute.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshRouteTcpRoute.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteTcpRoute.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-tcproute.html - -module Stratosphere.ResourceProperties.AppMeshRouteTcpRoute where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshRouteTcpRouteAction -import Stratosphere.ResourceProperties.AppMeshRouteTcpTimeout - --- | Full data type definition for AppMeshRouteTcpRoute. See --- 'appMeshRouteTcpRoute' for a more convenient constructor. -data AppMeshRouteTcpRoute = - AppMeshRouteTcpRoute - { _appMeshRouteTcpRouteAction :: AppMeshRouteTcpRouteAction - , _appMeshRouteTcpRouteTimeout :: Maybe AppMeshRouteTcpTimeout - } deriving (Show, Eq) - -instance ToJSON AppMeshRouteTcpRoute where - toJSON AppMeshRouteTcpRoute{..} = - object $ - catMaybes - [ (Just . ("Action",) . toJSON) _appMeshRouteTcpRouteAction - , fmap (("Timeout",) . toJSON) _appMeshRouteTcpRouteTimeout - ] - --- | Constructor for 'AppMeshRouteTcpRoute' containing required fields as --- arguments. -appMeshRouteTcpRoute - :: AppMeshRouteTcpRouteAction -- ^ 'amrtrAction' - -> AppMeshRouteTcpRoute -appMeshRouteTcpRoute actionarg = - AppMeshRouteTcpRoute - { _appMeshRouteTcpRouteAction = actionarg - , _appMeshRouteTcpRouteTimeout = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-tcproute.html#cfn-appmesh-route-tcproute-action -amrtrAction :: Lens' AppMeshRouteTcpRoute AppMeshRouteTcpRouteAction -amrtrAction = lens _appMeshRouteTcpRouteAction (\s a -> s { _appMeshRouteTcpRouteAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-tcproute.html#cfn-appmesh-route-tcproute-timeout -amrtrTimeout :: Lens' AppMeshRouteTcpRoute (Maybe AppMeshRouteTcpTimeout) -amrtrTimeout = lens _appMeshRouteTcpRouteTimeout (\s a -> s { _appMeshRouteTcpRouteTimeout = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteTcpRouteAction.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshRouteTcpRouteAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteTcpRouteAction.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-tcprouteaction.html - -module Stratosphere.ResourceProperties.AppMeshRouteTcpRouteAction where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshRouteWeightedTarget - --- | Full data type definition for AppMeshRouteTcpRouteAction. See --- 'appMeshRouteTcpRouteAction' for a more convenient constructor. -data AppMeshRouteTcpRouteAction = - AppMeshRouteTcpRouteAction - { _appMeshRouteTcpRouteActionWeightedTargets :: [AppMeshRouteWeightedTarget] - } deriving (Show, Eq) - -instance ToJSON AppMeshRouteTcpRouteAction where - toJSON AppMeshRouteTcpRouteAction{..} = - object $ - catMaybes - [ (Just . ("WeightedTargets",) . toJSON) _appMeshRouteTcpRouteActionWeightedTargets - ] - --- | Constructor for 'AppMeshRouteTcpRouteAction' containing required fields --- as arguments. -appMeshRouteTcpRouteAction - :: [AppMeshRouteWeightedTarget] -- ^ 'amrtraWeightedTargets' - -> AppMeshRouteTcpRouteAction -appMeshRouteTcpRouteAction weightedTargetsarg = - AppMeshRouteTcpRouteAction - { _appMeshRouteTcpRouteActionWeightedTargets = weightedTargetsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-tcprouteaction.html#cfn-appmesh-route-tcprouteaction-weightedtargets -amrtraWeightedTargets :: Lens' AppMeshRouteTcpRouteAction [AppMeshRouteWeightedTarget] -amrtraWeightedTargets = lens _appMeshRouteTcpRouteActionWeightedTargets (\s a -> s { _appMeshRouteTcpRouteActionWeightedTargets = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteTcpTimeout.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshRouteTcpTimeout.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteTcpTimeout.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-tcptimeout.html - -module Stratosphere.ResourceProperties.AppMeshRouteTcpTimeout where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshRouteDuration - --- | Full data type definition for AppMeshRouteTcpTimeout. See --- 'appMeshRouteTcpTimeout' for a more convenient constructor. -data AppMeshRouteTcpTimeout = - AppMeshRouteTcpTimeout - { _appMeshRouteTcpTimeoutIdle :: Maybe AppMeshRouteDuration - } deriving (Show, Eq) - -instance ToJSON AppMeshRouteTcpTimeout where - toJSON AppMeshRouteTcpTimeout{..} = - object $ - catMaybes - [ fmap (("Idle",) . toJSON) _appMeshRouteTcpTimeoutIdle - ] - --- | Constructor for 'AppMeshRouteTcpTimeout' containing required fields as --- arguments. -appMeshRouteTcpTimeout - :: AppMeshRouteTcpTimeout -appMeshRouteTcpTimeout = - AppMeshRouteTcpTimeout - { _appMeshRouteTcpTimeoutIdle = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-tcptimeout.html#cfn-appmesh-route-tcptimeout-idle -amrttIdle :: Lens' AppMeshRouteTcpTimeout (Maybe AppMeshRouteDuration) -amrttIdle = lens _appMeshRouteTcpTimeoutIdle (\s a -> s { _appMeshRouteTcpTimeoutIdle = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteWeightedTarget.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshRouteWeightedTarget.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshRouteWeightedTarget.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-weightedtarget.html - -module Stratosphere.ResourceProperties.AppMeshRouteWeightedTarget where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppMeshRouteWeightedTarget. See --- 'appMeshRouteWeightedTarget' for a more convenient constructor. -data AppMeshRouteWeightedTarget = - AppMeshRouteWeightedTarget - { _appMeshRouteWeightedTargetVirtualNode :: Val Text - , _appMeshRouteWeightedTargetWeight :: Val Integer - } deriving (Show, Eq) - -instance ToJSON AppMeshRouteWeightedTarget where - toJSON AppMeshRouteWeightedTarget{..} = - object $ - catMaybes - [ (Just . ("VirtualNode",) . toJSON) _appMeshRouteWeightedTargetVirtualNode - , (Just . ("Weight",) . toJSON) _appMeshRouteWeightedTargetWeight - ] - --- | Constructor for 'AppMeshRouteWeightedTarget' containing required fields --- as arguments. -appMeshRouteWeightedTarget - :: Val Text -- ^ 'amrwtVirtualNode' - -> Val Integer -- ^ 'amrwtWeight' - -> AppMeshRouteWeightedTarget -appMeshRouteWeightedTarget virtualNodearg weightarg = - AppMeshRouteWeightedTarget - { _appMeshRouteWeightedTargetVirtualNode = virtualNodearg - , _appMeshRouteWeightedTargetWeight = weightarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-weightedtarget.html#cfn-appmesh-route-weightedtarget-virtualnode -amrwtVirtualNode :: Lens' AppMeshRouteWeightedTarget (Val Text) -amrwtVirtualNode = lens _appMeshRouteWeightedTargetVirtualNode (\s a -> s { _appMeshRouteWeightedTargetVirtualNode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-weightedtarget.html#cfn-appmesh-route-weightedtarget-weight -amrwtWeight :: Lens' AppMeshRouteWeightedTarget (Val Integer) -amrwtWeight = lens _appMeshRouteWeightedTargetWeight (\s a -> s { _appMeshRouteWeightedTargetWeight = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayAccessLog.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayAccessLog.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayAccessLog.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewayaccesslog.html - -module Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayAccessLog where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayFileAccessLog - --- | Full data type definition for --- AppMeshVirtualGatewayVirtualGatewayAccessLog. See --- 'appMeshVirtualGatewayVirtualGatewayAccessLog' for a more convenient --- constructor. -data AppMeshVirtualGatewayVirtualGatewayAccessLog = - AppMeshVirtualGatewayVirtualGatewayAccessLog - { _appMeshVirtualGatewayVirtualGatewayAccessLogFile :: Maybe AppMeshVirtualGatewayVirtualGatewayFileAccessLog - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualGatewayVirtualGatewayAccessLog where - toJSON AppMeshVirtualGatewayVirtualGatewayAccessLog{..} = - object $ - catMaybes - [ fmap (("File",) . toJSON) _appMeshVirtualGatewayVirtualGatewayAccessLogFile - ] - --- | Constructor for 'AppMeshVirtualGatewayVirtualGatewayAccessLog' containing --- required fields as arguments. -appMeshVirtualGatewayVirtualGatewayAccessLog - :: AppMeshVirtualGatewayVirtualGatewayAccessLog -appMeshVirtualGatewayVirtualGatewayAccessLog = - AppMeshVirtualGatewayVirtualGatewayAccessLog - { _appMeshVirtualGatewayVirtualGatewayAccessLogFile = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewayaccesslog.html#cfn-appmesh-virtualgateway-virtualgatewayaccesslog-file -amvgvgalFile :: Lens' AppMeshVirtualGatewayVirtualGatewayAccessLog (Maybe AppMeshVirtualGatewayVirtualGatewayFileAccessLog) -amvgvgalFile = lens _appMeshVirtualGatewayVirtualGatewayAccessLogFile (\s a -> s { _appMeshVirtualGatewayVirtualGatewayAccessLogFile = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayBackendDefaults.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayBackendDefaults.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayBackendDefaults.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaybackenddefaults.html - -module Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayBackendDefaults where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayClientPolicy - --- | Full data type definition for --- AppMeshVirtualGatewayVirtualGatewayBackendDefaults. See --- 'appMeshVirtualGatewayVirtualGatewayBackendDefaults' for a more --- convenient constructor. -data AppMeshVirtualGatewayVirtualGatewayBackendDefaults = - AppMeshVirtualGatewayVirtualGatewayBackendDefaults - { _appMeshVirtualGatewayVirtualGatewayBackendDefaultsClientPolicy :: Maybe AppMeshVirtualGatewayVirtualGatewayClientPolicy - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualGatewayVirtualGatewayBackendDefaults where - toJSON AppMeshVirtualGatewayVirtualGatewayBackendDefaults{..} = - object $ - catMaybes - [ fmap (("ClientPolicy",) . toJSON) _appMeshVirtualGatewayVirtualGatewayBackendDefaultsClientPolicy - ] - --- | Constructor for 'AppMeshVirtualGatewayVirtualGatewayBackendDefaults' --- containing required fields as arguments. -appMeshVirtualGatewayVirtualGatewayBackendDefaults - :: AppMeshVirtualGatewayVirtualGatewayBackendDefaults -appMeshVirtualGatewayVirtualGatewayBackendDefaults = - AppMeshVirtualGatewayVirtualGatewayBackendDefaults - { _appMeshVirtualGatewayVirtualGatewayBackendDefaultsClientPolicy = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaybackenddefaults.html#cfn-appmesh-virtualgateway-virtualgatewaybackenddefaults-clientpolicy -amvgvgbdClientPolicy :: Lens' AppMeshVirtualGatewayVirtualGatewayBackendDefaults (Maybe AppMeshVirtualGatewayVirtualGatewayClientPolicy) -amvgvgbdClientPolicy = lens _appMeshVirtualGatewayVirtualGatewayBackendDefaultsClientPolicy (\s a -> s { _appMeshVirtualGatewayVirtualGatewayBackendDefaultsClientPolicy = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayClientPolicy.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayClientPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayClientPolicy.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewayclientpolicy.html - -module Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayClientPolicy where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayClientPolicyTls - --- | Full data type definition for --- AppMeshVirtualGatewayVirtualGatewayClientPolicy. See --- 'appMeshVirtualGatewayVirtualGatewayClientPolicy' for a more convenient --- constructor. -data AppMeshVirtualGatewayVirtualGatewayClientPolicy = - AppMeshVirtualGatewayVirtualGatewayClientPolicy - { _appMeshVirtualGatewayVirtualGatewayClientPolicyTLS :: Maybe AppMeshVirtualGatewayVirtualGatewayClientPolicyTls - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualGatewayVirtualGatewayClientPolicy where - toJSON AppMeshVirtualGatewayVirtualGatewayClientPolicy{..} = - object $ - catMaybes - [ fmap (("TLS",) . toJSON) _appMeshVirtualGatewayVirtualGatewayClientPolicyTLS - ] - --- | Constructor for 'AppMeshVirtualGatewayVirtualGatewayClientPolicy' --- containing required fields as arguments. -appMeshVirtualGatewayVirtualGatewayClientPolicy - :: AppMeshVirtualGatewayVirtualGatewayClientPolicy -appMeshVirtualGatewayVirtualGatewayClientPolicy = - AppMeshVirtualGatewayVirtualGatewayClientPolicy - { _appMeshVirtualGatewayVirtualGatewayClientPolicyTLS = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewayclientpolicy.html#cfn-appmesh-virtualgateway-virtualgatewayclientpolicy-tls -amvgvgcpTLS :: Lens' AppMeshVirtualGatewayVirtualGatewayClientPolicy (Maybe AppMeshVirtualGatewayVirtualGatewayClientPolicyTls) -amvgvgcpTLS = lens _appMeshVirtualGatewayVirtualGatewayClientPolicyTLS (\s a -> s { _appMeshVirtualGatewayVirtualGatewayClientPolicyTLS = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayClientPolicyTls.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayClientPolicyTls.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayClientPolicyTls.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewayclientpolicytls.html - -module Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayClientPolicyTls where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayTlsValidationContext - --- | Full data type definition for --- AppMeshVirtualGatewayVirtualGatewayClientPolicyTls. See --- 'appMeshVirtualGatewayVirtualGatewayClientPolicyTls' for a more --- convenient constructor. -data AppMeshVirtualGatewayVirtualGatewayClientPolicyTls = - AppMeshVirtualGatewayVirtualGatewayClientPolicyTls - { _appMeshVirtualGatewayVirtualGatewayClientPolicyTlsEnforce :: Maybe (Val Bool) - , _appMeshVirtualGatewayVirtualGatewayClientPolicyTlsPorts :: Maybe (ValList Integer) - , _appMeshVirtualGatewayVirtualGatewayClientPolicyTlsValidation :: AppMeshVirtualGatewayVirtualGatewayTlsValidationContext - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualGatewayVirtualGatewayClientPolicyTls where - toJSON AppMeshVirtualGatewayVirtualGatewayClientPolicyTls{..} = - object $ - catMaybes - [ fmap (("Enforce",) . toJSON) _appMeshVirtualGatewayVirtualGatewayClientPolicyTlsEnforce - , fmap (("Ports",) . toJSON) _appMeshVirtualGatewayVirtualGatewayClientPolicyTlsPorts - , (Just . ("Validation",) . toJSON) _appMeshVirtualGatewayVirtualGatewayClientPolicyTlsValidation - ] - --- | Constructor for 'AppMeshVirtualGatewayVirtualGatewayClientPolicyTls' --- containing required fields as arguments. -appMeshVirtualGatewayVirtualGatewayClientPolicyTls - :: AppMeshVirtualGatewayVirtualGatewayTlsValidationContext -- ^ 'amvgvgcptValidation' - -> AppMeshVirtualGatewayVirtualGatewayClientPolicyTls -appMeshVirtualGatewayVirtualGatewayClientPolicyTls validationarg = - AppMeshVirtualGatewayVirtualGatewayClientPolicyTls - { _appMeshVirtualGatewayVirtualGatewayClientPolicyTlsEnforce = Nothing - , _appMeshVirtualGatewayVirtualGatewayClientPolicyTlsPorts = Nothing - , _appMeshVirtualGatewayVirtualGatewayClientPolicyTlsValidation = validationarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewayclientpolicytls.html#cfn-appmesh-virtualgateway-virtualgatewayclientpolicytls-enforce -amvgvgcptEnforce :: Lens' AppMeshVirtualGatewayVirtualGatewayClientPolicyTls (Maybe (Val Bool)) -amvgvgcptEnforce = lens _appMeshVirtualGatewayVirtualGatewayClientPolicyTlsEnforce (\s a -> s { _appMeshVirtualGatewayVirtualGatewayClientPolicyTlsEnforce = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewayclientpolicytls.html#cfn-appmesh-virtualgateway-virtualgatewayclientpolicytls-ports -amvgvgcptPorts :: Lens' AppMeshVirtualGatewayVirtualGatewayClientPolicyTls (Maybe (ValList Integer)) -amvgvgcptPorts = lens _appMeshVirtualGatewayVirtualGatewayClientPolicyTlsPorts (\s a -> s { _appMeshVirtualGatewayVirtualGatewayClientPolicyTlsPorts = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewayclientpolicytls.html#cfn-appmesh-virtualgateway-virtualgatewayclientpolicytls-validation -amvgvgcptValidation :: Lens' AppMeshVirtualGatewayVirtualGatewayClientPolicyTls AppMeshVirtualGatewayVirtualGatewayTlsValidationContext -amvgvgcptValidation = lens _appMeshVirtualGatewayVirtualGatewayClientPolicyTlsValidation (\s a -> s { _appMeshVirtualGatewayVirtualGatewayClientPolicyTlsValidation = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayFileAccessLog.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayFileAccessLog.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayFileAccessLog.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewayfileaccesslog.html - -module Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayFileAccessLog where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- AppMeshVirtualGatewayVirtualGatewayFileAccessLog. See --- 'appMeshVirtualGatewayVirtualGatewayFileAccessLog' for a more convenient --- constructor. -data AppMeshVirtualGatewayVirtualGatewayFileAccessLog = - AppMeshVirtualGatewayVirtualGatewayFileAccessLog - { _appMeshVirtualGatewayVirtualGatewayFileAccessLogPath :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualGatewayVirtualGatewayFileAccessLog where - toJSON AppMeshVirtualGatewayVirtualGatewayFileAccessLog{..} = - object $ - catMaybes - [ (Just . ("Path",) . toJSON) _appMeshVirtualGatewayVirtualGatewayFileAccessLogPath - ] - --- | Constructor for 'AppMeshVirtualGatewayVirtualGatewayFileAccessLog' --- containing required fields as arguments. -appMeshVirtualGatewayVirtualGatewayFileAccessLog - :: Val Text -- ^ 'amvgvgfalPath' - -> AppMeshVirtualGatewayVirtualGatewayFileAccessLog -appMeshVirtualGatewayVirtualGatewayFileAccessLog patharg = - AppMeshVirtualGatewayVirtualGatewayFileAccessLog - { _appMeshVirtualGatewayVirtualGatewayFileAccessLogPath = patharg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewayfileaccesslog.html#cfn-appmesh-virtualgateway-virtualgatewayfileaccesslog-path -amvgvgfalPath :: Lens' AppMeshVirtualGatewayVirtualGatewayFileAccessLog (Val Text) -amvgvgfalPath = lens _appMeshVirtualGatewayVirtualGatewayFileAccessLogPath (\s a -> s { _appMeshVirtualGatewayVirtualGatewayFileAccessLogPath = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayHealthCheckPolicy.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayHealthCheckPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayHealthCheckPolicy.hs +++ /dev/null @@ -1,87 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewayhealthcheckpolicy.html - -module Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayHealthCheckPolicy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- AppMeshVirtualGatewayVirtualGatewayHealthCheckPolicy. See --- 'appMeshVirtualGatewayVirtualGatewayHealthCheckPolicy' for a more --- convenient constructor. -data AppMeshVirtualGatewayVirtualGatewayHealthCheckPolicy = - AppMeshVirtualGatewayVirtualGatewayHealthCheckPolicy - { _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyHealthyThreshold :: Val Integer - , _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyIntervalMillis :: Val Integer - , _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyPath :: Maybe (Val Text) - , _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyPort :: Maybe (Val Integer) - , _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyProtocol :: Val Text - , _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyTimeoutMillis :: Val Integer - , _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyUnhealthyThreshold :: Val Integer - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualGatewayVirtualGatewayHealthCheckPolicy where - toJSON AppMeshVirtualGatewayVirtualGatewayHealthCheckPolicy{..} = - object $ - catMaybes - [ (Just . ("HealthyThreshold",) . toJSON) _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyHealthyThreshold - , (Just . ("IntervalMillis",) . toJSON) _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyIntervalMillis - , fmap (("Path",) . toJSON) _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyPath - , fmap (("Port",) . toJSON) _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyPort - , (Just . ("Protocol",) . toJSON) _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyProtocol - , (Just . ("TimeoutMillis",) . toJSON) _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyTimeoutMillis - , (Just . ("UnhealthyThreshold",) . toJSON) _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyUnhealthyThreshold - ] - --- | Constructor for 'AppMeshVirtualGatewayVirtualGatewayHealthCheckPolicy' --- containing required fields as arguments. -appMeshVirtualGatewayVirtualGatewayHealthCheckPolicy - :: Val Integer -- ^ 'amvgvghcpHealthyThreshold' - -> Val Integer -- ^ 'amvgvghcpIntervalMillis' - -> Val Text -- ^ 'amvgvghcpProtocol' - -> Val Integer -- ^ 'amvgvghcpTimeoutMillis' - -> Val Integer -- ^ 'amvgvghcpUnhealthyThreshold' - -> AppMeshVirtualGatewayVirtualGatewayHealthCheckPolicy -appMeshVirtualGatewayVirtualGatewayHealthCheckPolicy healthyThresholdarg intervalMillisarg protocolarg timeoutMillisarg unhealthyThresholdarg = - AppMeshVirtualGatewayVirtualGatewayHealthCheckPolicy - { _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyHealthyThreshold = healthyThresholdarg - , _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyIntervalMillis = intervalMillisarg - , _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyPath = Nothing - , _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyPort = Nothing - , _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyProtocol = protocolarg - , _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyTimeoutMillis = timeoutMillisarg - , _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyUnhealthyThreshold = unhealthyThresholdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewayhealthcheckpolicy.html#cfn-appmesh-virtualgateway-virtualgatewayhealthcheckpolicy-healthythreshold -amvgvghcpHealthyThreshold :: Lens' AppMeshVirtualGatewayVirtualGatewayHealthCheckPolicy (Val Integer) -amvgvghcpHealthyThreshold = lens _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyHealthyThreshold (\s a -> s { _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyHealthyThreshold = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewayhealthcheckpolicy.html#cfn-appmesh-virtualgateway-virtualgatewayhealthcheckpolicy-intervalmillis -amvgvghcpIntervalMillis :: Lens' AppMeshVirtualGatewayVirtualGatewayHealthCheckPolicy (Val Integer) -amvgvghcpIntervalMillis = lens _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyIntervalMillis (\s a -> s { _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyIntervalMillis = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewayhealthcheckpolicy.html#cfn-appmesh-virtualgateway-virtualgatewayhealthcheckpolicy-path -amvgvghcpPath :: Lens' AppMeshVirtualGatewayVirtualGatewayHealthCheckPolicy (Maybe (Val Text)) -amvgvghcpPath = lens _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyPath (\s a -> s { _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewayhealthcheckpolicy.html#cfn-appmesh-virtualgateway-virtualgatewayhealthcheckpolicy-port -amvgvghcpPort :: Lens' AppMeshVirtualGatewayVirtualGatewayHealthCheckPolicy (Maybe (Val Integer)) -amvgvghcpPort = lens _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyPort (\s a -> s { _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewayhealthcheckpolicy.html#cfn-appmesh-virtualgateway-virtualgatewayhealthcheckpolicy-protocol -amvgvghcpProtocol :: Lens' AppMeshVirtualGatewayVirtualGatewayHealthCheckPolicy (Val Text) -amvgvghcpProtocol = lens _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyProtocol (\s a -> s { _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyProtocol = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewayhealthcheckpolicy.html#cfn-appmesh-virtualgateway-virtualgatewayhealthcheckpolicy-timeoutmillis -amvgvghcpTimeoutMillis :: Lens' AppMeshVirtualGatewayVirtualGatewayHealthCheckPolicy (Val Integer) -amvgvghcpTimeoutMillis = lens _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyTimeoutMillis (\s a -> s { _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyTimeoutMillis = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewayhealthcheckpolicy.html#cfn-appmesh-virtualgateway-virtualgatewayhealthcheckpolicy-unhealthythreshold -amvgvghcpUnhealthyThreshold :: Lens' AppMeshVirtualGatewayVirtualGatewayHealthCheckPolicy (Val Integer) -amvgvghcpUnhealthyThreshold = lens _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyUnhealthyThreshold (\s a -> s { _appMeshVirtualGatewayVirtualGatewayHealthCheckPolicyUnhealthyThreshold = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayListener.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayListener.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayListener.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaylistener.html - -module Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayListener where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayHealthCheckPolicy -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayPortMapping -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayListenerTls - --- | Full data type definition for --- AppMeshVirtualGatewayVirtualGatewayListener. See --- 'appMeshVirtualGatewayVirtualGatewayListener' for a more convenient --- constructor. -data AppMeshVirtualGatewayVirtualGatewayListener = - AppMeshVirtualGatewayVirtualGatewayListener - { _appMeshVirtualGatewayVirtualGatewayListenerHealthCheck :: Maybe AppMeshVirtualGatewayVirtualGatewayHealthCheckPolicy - , _appMeshVirtualGatewayVirtualGatewayListenerPortMapping :: AppMeshVirtualGatewayVirtualGatewayPortMapping - , _appMeshVirtualGatewayVirtualGatewayListenerTLS :: Maybe AppMeshVirtualGatewayVirtualGatewayListenerTls - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualGatewayVirtualGatewayListener where - toJSON AppMeshVirtualGatewayVirtualGatewayListener{..} = - object $ - catMaybes - [ fmap (("HealthCheck",) . toJSON) _appMeshVirtualGatewayVirtualGatewayListenerHealthCheck - , (Just . ("PortMapping",) . toJSON) _appMeshVirtualGatewayVirtualGatewayListenerPortMapping - , fmap (("TLS",) . toJSON) _appMeshVirtualGatewayVirtualGatewayListenerTLS - ] - --- | Constructor for 'AppMeshVirtualGatewayVirtualGatewayListener' containing --- required fields as arguments. -appMeshVirtualGatewayVirtualGatewayListener - :: AppMeshVirtualGatewayVirtualGatewayPortMapping -- ^ 'amvgvglPortMapping' - -> AppMeshVirtualGatewayVirtualGatewayListener -appMeshVirtualGatewayVirtualGatewayListener portMappingarg = - AppMeshVirtualGatewayVirtualGatewayListener - { _appMeshVirtualGatewayVirtualGatewayListenerHealthCheck = Nothing - , _appMeshVirtualGatewayVirtualGatewayListenerPortMapping = portMappingarg - , _appMeshVirtualGatewayVirtualGatewayListenerTLS = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaylistener.html#cfn-appmesh-virtualgateway-virtualgatewaylistener-healthcheck -amvgvglHealthCheck :: Lens' AppMeshVirtualGatewayVirtualGatewayListener (Maybe AppMeshVirtualGatewayVirtualGatewayHealthCheckPolicy) -amvgvglHealthCheck = lens _appMeshVirtualGatewayVirtualGatewayListenerHealthCheck (\s a -> s { _appMeshVirtualGatewayVirtualGatewayListenerHealthCheck = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaylistener.html#cfn-appmesh-virtualgateway-virtualgatewaylistener-portmapping -amvgvglPortMapping :: Lens' AppMeshVirtualGatewayVirtualGatewayListener AppMeshVirtualGatewayVirtualGatewayPortMapping -amvgvglPortMapping = lens _appMeshVirtualGatewayVirtualGatewayListenerPortMapping (\s a -> s { _appMeshVirtualGatewayVirtualGatewayListenerPortMapping = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaylistener.html#cfn-appmesh-virtualgateway-virtualgatewaylistener-tls -amvgvglTLS :: Lens' AppMeshVirtualGatewayVirtualGatewayListener (Maybe AppMeshVirtualGatewayVirtualGatewayListenerTls) -amvgvglTLS = lens _appMeshVirtualGatewayVirtualGatewayListenerTLS (\s a -> s { _appMeshVirtualGatewayVirtualGatewayListenerTLS = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayListenerTls.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayListenerTls.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayListenerTls.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaylistenertls.html - -module Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayListenerTls where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayListenerTlsCertificate - --- | Full data type definition for --- AppMeshVirtualGatewayVirtualGatewayListenerTls. See --- 'appMeshVirtualGatewayVirtualGatewayListenerTls' for a more convenient --- constructor. -data AppMeshVirtualGatewayVirtualGatewayListenerTls = - AppMeshVirtualGatewayVirtualGatewayListenerTls - { _appMeshVirtualGatewayVirtualGatewayListenerTlsCertificate :: AppMeshVirtualGatewayVirtualGatewayListenerTlsCertificate - , _appMeshVirtualGatewayVirtualGatewayListenerTlsMode :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualGatewayVirtualGatewayListenerTls where - toJSON AppMeshVirtualGatewayVirtualGatewayListenerTls{..} = - object $ - catMaybes - [ (Just . ("Certificate",) . toJSON) _appMeshVirtualGatewayVirtualGatewayListenerTlsCertificate - , (Just . ("Mode",) . toJSON) _appMeshVirtualGatewayVirtualGatewayListenerTlsMode - ] - --- | Constructor for 'AppMeshVirtualGatewayVirtualGatewayListenerTls' --- containing required fields as arguments. -appMeshVirtualGatewayVirtualGatewayListenerTls - :: AppMeshVirtualGatewayVirtualGatewayListenerTlsCertificate -- ^ 'amvgvgltCertificate' - -> Val Text -- ^ 'amvgvgltMode' - -> AppMeshVirtualGatewayVirtualGatewayListenerTls -appMeshVirtualGatewayVirtualGatewayListenerTls certificatearg modearg = - AppMeshVirtualGatewayVirtualGatewayListenerTls - { _appMeshVirtualGatewayVirtualGatewayListenerTlsCertificate = certificatearg - , _appMeshVirtualGatewayVirtualGatewayListenerTlsMode = modearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaylistenertls.html#cfn-appmesh-virtualgateway-virtualgatewaylistenertls-certificate -amvgvgltCertificate :: Lens' AppMeshVirtualGatewayVirtualGatewayListenerTls AppMeshVirtualGatewayVirtualGatewayListenerTlsCertificate -amvgvgltCertificate = lens _appMeshVirtualGatewayVirtualGatewayListenerTlsCertificate (\s a -> s { _appMeshVirtualGatewayVirtualGatewayListenerTlsCertificate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaylistenertls.html#cfn-appmesh-virtualgateway-virtualgatewaylistenertls-mode -amvgvgltMode :: Lens' AppMeshVirtualGatewayVirtualGatewayListenerTls (Val Text) -amvgvgltMode = lens _appMeshVirtualGatewayVirtualGatewayListenerTlsMode (\s a -> s { _appMeshVirtualGatewayVirtualGatewayListenerTlsMode = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayListenerTlsAcmCertificate.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayListenerTlsAcmCertificate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayListenerTlsAcmCertificate.hs +++ /dev/null @@ -1,42 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaylistenertlsacmcertificate.html - -module Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayListenerTlsAcmCertificate where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- AppMeshVirtualGatewayVirtualGatewayListenerTlsAcmCertificate. See --- 'appMeshVirtualGatewayVirtualGatewayListenerTlsAcmCertificate' for a more --- convenient constructor. -data AppMeshVirtualGatewayVirtualGatewayListenerTlsAcmCertificate = - AppMeshVirtualGatewayVirtualGatewayListenerTlsAcmCertificate - { _appMeshVirtualGatewayVirtualGatewayListenerTlsAcmCertificateCertificateArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualGatewayVirtualGatewayListenerTlsAcmCertificate where - toJSON AppMeshVirtualGatewayVirtualGatewayListenerTlsAcmCertificate{..} = - object $ - catMaybes - [ (Just . ("CertificateArn",) . toJSON) _appMeshVirtualGatewayVirtualGatewayListenerTlsAcmCertificateCertificateArn - ] - --- | Constructor for --- 'AppMeshVirtualGatewayVirtualGatewayListenerTlsAcmCertificate' containing --- required fields as arguments. -appMeshVirtualGatewayVirtualGatewayListenerTlsAcmCertificate - :: Val Text -- ^ 'amvgvgltacCertificateArn' - -> AppMeshVirtualGatewayVirtualGatewayListenerTlsAcmCertificate -appMeshVirtualGatewayVirtualGatewayListenerTlsAcmCertificate certificateArnarg = - AppMeshVirtualGatewayVirtualGatewayListenerTlsAcmCertificate - { _appMeshVirtualGatewayVirtualGatewayListenerTlsAcmCertificateCertificateArn = certificateArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaylistenertlsacmcertificate.html#cfn-appmesh-virtualgateway-virtualgatewaylistenertlsacmcertificate-certificatearn -amvgvgltacCertificateArn :: Lens' AppMeshVirtualGatewayVirtualGatewayListenerTlsAcmCertificate (Val Text) -amvgvgltacCertificateArn = lens _appMeshVirtualGatewayVirtualGatewayListenerTlsAcmCertificateCertificateArn (\s a -> s { _appMeshVirtualGatewayVirtualGatewayListenerTlsAcmCertificateCertificateArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayListenerTlsCertificate.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayListenerTlsCertificate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayListenerTlsCertificate.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaylistenertlscertificate.html - -module Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayListenerTlsCertificate where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayListenerTlsAcmCertificate -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificate - --- | Full data type definition for --- AppMeshVirtualGatewayVirtualGatewayListenerTlsCertificate. See --- 'appMeshVirtualGatewayVirtualGatewayListenerTlsCertificate' for a more --- convenient constructor. -data AppMeshVirtualGatewayVirtualGatewayListenerTlsCertificate = - AppMeshVirtualGatewayVirtualGatewayListenerTlsCertificate - { _appMeshVirtualGatewayVirtualGatewayListenerTlsCertificateACM :: Maybe AppMeshVirtualGatewayVirtualGatewayListenerTlsAcmCertificate - , _appMeshVirtualGatewayVirtualGatewayListenerTlsCertificateFile :: Maybe AppMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificate - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualGatewayVirtualGatewayListenerTlsCertificate where - toJSON AppMeshVirtualGatewayVirtualGatewayListenerTlsCertificate{..} = - object $ - catMaybes - [ fmap (("ACM",) . toJSON) _appMeshVirtualGatewayVirtualGatewayListenerTlsCertificateACM - , fmap (("File",) . toJSON) _appMeshVirtualGatewayVirtualGatewayListenerTlsCertificateFile - ] - --- | Constructor for --- 'AppMeshVirtualGatewayVirtualGatewayListenerTlsCertificate' containing --- required fields as arguments. -appMeshVirtualGatewayVirtualGatewayListenerTlsCertificate - :: AppMeshVirtualGatewayVirtualGatewayListenerTlsCertificate -appMeshVirtualGatewayVirtualGatewayListenerTlsCertificate = - AppMeshVirtualGatewayVirtualGatewayListenerTlsCertificate - { _appMeshVirtualGatewayVirtualGatewayListenerTlsCertificateACM = Nothing - , _appMeshVirtualGatewayVirtualGatewayListenerTlsCertificateFile = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaylistenertlscertificate.html#cfn-appmesh-virtualgateway-virtualgatewaylistenertlscertificate-acm -amvgvgltcACM :: Lens' AppMeshVirtualGatewayVirtualGatewayListenerTlsCertificate (Maybe AppMeshVirtualGatewayVirtualGatewayListenerTlsAcmCertificate) -amvgvgltcACM = lens _appMeshVirtualGatewayVirtualGatewayListenerTlsCertificateACM (\s a -> s { _appMeshVirtualGatewayVirtualGatewayListenerTlsCertificateACM = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaylistenertlscertificate.html#cfn-appmesh-virtualgateway-virtualgatewaylistenertlscertificate-file -amvgvgltcFile :: Lens' AppMeshVirtualGatewayVirtualGatewayListenerTlsCertificate (Maybe AppMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificate) -amvgvgltcFile = lens _appMeshVirtualGatewayVirtualGatewayListenerTlsCertificateFile (\s a -> s { _appMeshVirtualGatewayVirtualGatewayListenerTlsCertificateFile = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificate.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificate.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaylistenertlsfilecertificate.html - -module Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificate where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- AppMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificate. See --- 'appMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificate' for a --- more convenient constructor. -data AppMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificate = - AppMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificate - { _appMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificateCertificateChain :: Val Text - , _appMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificatePrivateKey :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificate where - toJSON AppMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificate{..} = - object $ - catMaybes - [ (Just . ("CertificateChain",) . toJSON) _appMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificateCertificateChain - , (Just . ("PrivateKey",) . toJSON) _appMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificatePrivateKey - ] - --- | Constructor for --- 'AppMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificate' --- containing required fields as arguments. -appMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificate - :: Val Text -- ^ 'amvgvgltfcCertificateChain' - -> Val Text -- ^ 'amvgvgltfcPrivateKey' - -> AppMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificate -appMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificate certificateChainarg privateKeyarg = - AppMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificate - { _appMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificateCertificateChain = certificateChainarg - , _appMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificatePrivateKey = privateKeyarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaylistenertlsfilecertificate.html#cfn-appmesh-virtualgateway-virtualgatewaylistenertlsfilecertificate-certificatechain -amvgvgltfcCertificateChain :: Lens' AppMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificate (Val Text) -amvgvgltfcCertificateChain = lens _appMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificateCertificateChain (\s a -> s { _appMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificateCertificateChain = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaylistenertlsfilecertificate.html#cfn-appmesh-virtualgateway-virtualgatewaylistenertlsfilecertificate-privatekey -amvgvgltfcPrivateKey :: Lens' AppMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificate (Val Text) -amvgvgltfcPrivateKey = lens _appMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificatePrivateKey (\s a -> s { _appMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificatePrivateKey = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayLogging.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayLogging.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayLogging.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaylogging.html - -module Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayLogging where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayAccessLog - --- | Full data type definition for AppMeshVirtualGatewayVirtualGatewayLogging. --- See 'appMeshVirtualGatewayVirtualGatewayLogging' for a more convenient --- constructor. -data AppMeshVirtualGatewayVirtualGatewayLogging = - AppMeshVirtualGatewayVirtualGatewayLogging - { _appMeshVirtualGatewayVirtualGatewayLoggingAccessLog :: Maybe AppMeshVirtualGatewayVirtualGatewayAccessLog - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualGatewayVirtualGatewayLogging where - toJSON AppMeshVirtualGatewayVirtualGatewayLogging{..} = - object $ - catMaybes - [ fmap (("AccessLog",) . toJSON) _appMeshVirtualGatewayVirtualGatewayLoggingAccessLog - ] - --- | Constructor for 'AppMeshVirtualGatewayVirtualGatewayLogging' containing --- required fields as arguments. -appMeshVirtualGatewayVirtualGatewayLogging - :: AppMeshVirtualGatewayVirtualGatewayLogging -appMeshVirtualGatewayVirtualGatewayLogging = - AppMeshVirtualGatewayVirtualGatewayLogging - { _appMeshVirtualGatewayVirtualGatewayLoggingAccessLog = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaylogging.html#cfn-appmesh-virtualgateway-virtualgatewaylogging-accesslog -amvgvglAccessLog :: Lens' AppMeshVirtualGatewayVirtualGatewayLogging (Maybe AppMeshVirtualGatewayVirtualGatewayAccessLog) -amvgvglAccessLog = lens _appMeshVirtualGatewayVirtualGatewayLoggingAccessLog (\s a -> s { _appMeshVirtualGatewayVirtualGatewayLoggingAccessLog = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayPortMapping.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayPortMapping.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayPortMapping.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewayportmapping.html - -module Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayPortMapping where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- AppMeshVirtualGatewayVirtualGatewayPortMapping. See --- 'appMeshVirtualGatewayVirtualGatewayPortMapping' for a more convenient --- constructor. -data AppMeshVirtualGatewayVirtualGatewayPortMapping = - AppMeshVirtualGatewayVirtualGatewayPortMapping - { _appMeshVirtualGatewayVirtualGatewayPortMappingPort :: Val Integer - , _appMeshVirtualGatewayVirtualGatewayPortMappingProtocol :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualGatewayVirtualGatewayPortMapping where - toJSON AppMeshVirtualGatewayVirtualGatewayPortMapping{..} = - object $ - catMaybes - [ (Just . ("Port",) . toJSON) _appMeshVirtualGatewayVirtualGatewayPortMappingPort - , (Just . ("Protocol",) . toJSON) _appMeshVirtualGatewayVirtualGatewayPortMappingProtocol - ] - --- | Constructor for 'AppMeshVirtualGatewayVirtualGatewayPortMapping' --- containing required fields as arguments. -appMeshVirtualGatewayVirtualGatewayPortMapping - :: Val Integer -- ^ 'amvgvgpmPort' - -> Val Text -- ^ 'amvgvgpmProtocol' - -> AppMeshVirtualGatewayVirtualGatewayPortMapping -appMeshVirtualGatewayVirtualGatewayPortMapping portarg protocolarg = - AppMeshVirtualGatewayVirtualGatewayPortMapping - { _appMeshVirtualGatewayVirtualGatewayPortMappingPort = portarg - , _appMeshVirtualGatewayVirtualGatewayPortMappingProtocol = protocolarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewayportmapping.html#cfn-appmesh-virtualgateway-virtualgatewayportmapping-port -amvgvgpmPort :: Lens' AppMeshVirtualGatewayVirtualGatewayPortMapping (Val Integer) -amvgvgpmPort = lens _appMeshVirtualGatewayVirtualGatewayPortMappingPort (\s a -> s { _appMeshVirtualGatewayVirtualGatewayPortMappingPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewayportmapping.html#cfn-appmesh-virtualgateway-virtualgatewayportmapping-protocol -amvgvgpmProtocol :: Lens' AppMeshVirtualGatewayVirtualGatewayPortMapping (Val Text) -amvgvgpmProtocol = lens _appMeshVirtualGatewayVirtualGatewayPortMappingProtocol (\s a -> s { _appMeshVirtualGatewayVirtualGatewayPortMappingProtocol = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewaySpec.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewaySpec.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewaySpec.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewayspec.html - -module Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewaySpec where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayBackendDefaults -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayListener -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayLogging - --- | Full data type definition for AppMeshVirtualGatewayVirtualGatewaySpec. --- See 'appMeshVirtualGatewayVirtualGatewaySpec' for a more convenient --- constructor. -data AppMeshVirtualGatewayVirtualGatewaySpec = - AppMeshVirtualGatewayVirtualGatewaySpec - { _appMeshVirtualGatewayVirtualGatewaySpecBackendDefaults :: Maybe AppMeshVirtualGatewayVirtualGatewayBackendDefaults - , _appMeshVirtualGatewayVirtualGatewaySpecListeners :: [AppMeshVirtualGatewayVirtualGatewayListener] - , _appMeshVirtualGatewayVirtualGatewaySpecLogging :: Maybe AppMeshVirtualGatewayVirtualGatewayLogging - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualGatewayVirtualGatewaySpec where - toJSON AppMeshVirtualGatewayVirtualGatewaySpec{..} = - object $ - catMaybes - [ fmap (("BackendDefaults",) . toJSON) _appMeshVirtualGatewayVirtualGatewaySpecBackendDefaults - , (Just . ("Listeners",) . toJSON) _appMeshVirtualGatewayVirtualGatewaySpecListeners - , fmap (("Logging",) . toJSON) _appMeshVirtualGatewayVirtualGatewaySpecLogging - ] - --- | Constructor for 'AppMeshVirtualGatewayVirtualGatewaySpec' containing --- required fields as arguments. -appMeshVirtualGatewayVirtualGatewaySpec - :: [AppMeshVirtualGatewayVirtualGatewayListener] -- ^ 'amvgvgsListeners' - -> AppMeshVirtualGatewayVirtualGatewaySpec -appMeshVirtualGatewayVirtualGatewaySpec listenersarg = - AppMeshVirtualGatewayVirtualGatewaySpec - { _appMeshVirtualGatewayVirtualGatewaySpecBackendDefaults = Nothing - , _appMeshVirtualGatewayVirtualGatewaySpecListeners = listenersarg - , _appMeshVirtualGatewayVirtualGatewaySpecLogging = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewayspec.html#cfn-appmesh-virtualgateway-virtualgatewayspec-backenddefaults -amvgvgsBackendDefaults :: Lens' AppMeshVirtualGatewayVirtualGatewaySpec (Maybe AppMeshVirtualGatewayVirtualGatewayBackendDefaults) -amvgvgsBackendDefaults = lens _appMeshVirtualGatewayVirtualGatewaySpecBackendDefaults (\s a -> s { _appMeshVirtualGatewayVirtualGatewaySpecBackendDefaults = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewayspec.html#cfn-appmesh-virtualgateway-virtualgatewayspec-listeners -amvgvgsListeners :: Lens' AppMeshVirtualGatewayVirtualGatewaySpec [AppMeshVirtualGatewayVirtualGatewayListener] -amvgvgsListeners = lens _appMeshVirtualGatewayVirtualGatewaySpecListeners (\s a -> s { _appMeshVirtualGatewayVirtualGatewaySpecListeners = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewayspec.html#cfn-appmesh-virtualgateway-virtualgatewayspec-logging -amvgvgsLogging :: Lens' AppMeshVirtualGatewayVirtualGatewaySpec (Maybe AppMeshVirtualGatewayVirtualGatewayLogging) -amvgvgsLogging = lens _appMeshVirtualGatewayVirtualGatewaySpecLogging (\s a -> s { _appMeshVirtualGatewayVirtualGatewaySpecLogging = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayTlsValidationContext.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayTlsValidationContext.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayTlsValidationContext.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaytlsvalidationcontext.html - -module Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayTlsValidationContext where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayTlsValidationContextTrust - --- | Full data type definition for --- AppMeshVirtualGatewayVirtualGatewayTlsValidationContext. See --- 'appMeshVirtualGatewayVirtualGatewayTlsValidationContext' for a more --- convenient constructor. -data AppMeshVirtualGatewayVirtualGatewayTlsValidationContext = - AppMeshVirtualGatewayVirtualGatewayTlsValidationContext - { _appMeshVirtualGatewayVirtualGatewayTlsValidationContextTrust :: AppMeshVirtualGatewayVirtualGatewayTlsValidationContextTrust - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualGatewayVirtualGatewayTlsValidationContext where - toJSON AppMeshVirtualGatewayVirtualGatewayTlsValidationContext{..} = - object $ - catMaybes - [ (Just . ("Trust",) . toJSON) _appMeshVirtualGatewayVirtualGatewayTlsValidationContextTrust - ] - --- | Constructor for 'AppMeshVirtualGatewayVirtualGatewayTlsValidationContext' --- containing required fields as arguments. -appMeshVirtualGatewayVirtualGatewayTlsValidationContext - :: AppMeshVirtualGatewayVirtualGatewayTlsValidationContextTrust -- ^ 'amvgvgtvcTrust' - -> AppMeshVirtualGatewayVirtualGatewayTlsValidationContext -appMeshVirtualGatewayVirtualGatewayTlsValidationContext trustarg = - AppMeshVirtualGatewayVirtualGatewayTlsValidationContext - { _appMeshVirtualGatewayVirtualGatewayTlsValidationContextTrust = trustarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaytlsvalidationcontext.html#cfn-appmesh-virtualgateway-virtualgatewaytlsvalidationcontext-trust -amvgvgtvcTrust :: Lens' AppMeshVirtualGatewayVirtualGatewayTlsValidationContext AppMeshVirtualGatewayVirtualGatewayTlsValidationContextTrust -amvgvgtvcTrust = lens _appMeshVirtualGatewayVirtualGatewayTlsValidationContextTrust (\s a -> s { _appMeshVirtualGatewayVirtualGatewayTlsValidationContextTrust = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayTlsValidationContextAcmTrust.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayTlsValidationContextAcmTrust.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayTlsValidationContextAcmTrust.hs +++ /dev/null @@ -1,42 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaytlsvalidationcontextacmtrust.html - -module Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayTlsValidationContextAcmTrust where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- AppMeshVirtualGatewayVirtualGatewayTlsValidationContextAcmTrust. See --- 'appMeshVirtualGatewayVirtualGatewayTlsValidationContextAcmTrust' for a --- more convenient constructor. -data AppMeshVirtualGatewayVirtualGatewayTlsValidationContextAcmTrust = - AppMeshVirtualGatewayVirtualGatewayTlsValidationContextAcmTrust - { _appMeshVirtualGatewayVirtualGatewayTlsValidationContextAcmTrustCertificateAuthorityArns :: ValList Text - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualGatewayVirtualGatewayTlsValidationContextAcmTrust where - toJSON AppMeshVirtualGatewayVirtualGatewayTlsValidationContextAcmTrust{..} = - object $ - catMaybes - [ (Just . ("CertificateAuthorityArns",) . toJSON) _appMeshVirtualGatewayVirtualGatewayTlsValidationContextAcmTrustCertificateAuthorityArns - ] - --- | Constructor for --- 'AppMeshVirtualGatewayVirtualGatewayTlsValidationContextAcmTrust' --- containing required fields as arguments. -appMeshVirtualGatewayVirtualGatewayTlsValidationContextAcmTrust - :: ValList Text -- ^ 'amvgvgtvcatCertificateAuthorityArns' - -> AppMeshVirtualGatewayVirtualGatewayTlsValidationContextAcmTrust -appMeshVirtualGatewayVirtualGatewayTlsValidationContextAcmTrust certificateAuthorityArnsarg = - AppMeshVirtualGatewayVirtualGatewayTlsValidationContextAcmTrust - { _appMeshVirtualGatewayVirtualGatewayTlsValidationContextAcmTrustCertificateAuthorityArns = certificateAuthorityArnsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaytlsvalidationcontextacmtrust.html#cfn-appmesh-virtualgateway-virtualgatewaytlsvalidationcontextacmtrust-certificateauthorityarns -amvgvgtvcatCertificateAuthorityArns :: Lens' AppMeshVirtualGatewayVirtualGatewayTlsValidationContextAcmTrust (ValList Text) -amvgvgtvcatCertificateAuthorityArns = lens _appMeshVirtualGatewayVirtualGatewayTlsValidationContextAcmTrustCertificateAuthorityArns (\s a -> s { _appMeshVirtualGatewayVirtualGatewayTlsValidationContextAcmTrustCertificateAuthorityArns = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayTlsValidationContextFileTrust.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayTlsValidationContextFileTrust.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayTlsValidationContextFileTrust.hs +++ /dev/null @@ -1,42 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaytlsvalidationcontextfiletrust.html - -module Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayTlsValidationContextFileTrust where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- AppMeshVirtualGatewayVirtualGatewayTlsValidationContextFileTrust. See --- 'appMeshVirtualGatewayVirtualGatewayTlsValidationContextFileTrust' for a --- more convenient constructor. -data AppMeshVirtualGatewayVirtualGatewayTlsValidationContextFileTrust = - AppMeshVirtualGatewayVirtualGatewayTlsValidationContextFileTrust - { _appMeshVirtualGatewayVirtualGatewayTlsValidationContextFileTrustCertificateChain :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualGatewayVirtualGatewayTlsValidationContextFileTrust where - toJSON AppMeshVirtualGatewayVirtualGatewayTlsValidationContextFileTrust{..} = - object $ - catMaybes - [ (Just . ("CertificateChain",) . toJSON) _appMeshVirtualGatewayVirtualGatewayTlsValidationContextFileTrustCertificateChain - ] - --- | Constructor for --- 'AppMeshVirtualGatewayVirtualGatewayTlsValidationContextFileTrust' --- containing required fields as arguments. -appMeshVirtualGatewayVirtualGatewayTlsValidationContextFileTrust - :: Val Text -- ^ 'amvgvgtvcftCertificateChain' - -> AppMeshVirtualGatewayVirtualGatewayTlsValidationContextFileTrust -appMeshVirtualGatewayVirtualGatewayTlsValidationContextFileTrust certificateChainarg = - AppMeshVirtualGatewayVirtualGatewayTlsValidationContextFileTrust - { _appMeshVirtualGatewayVirtualGatewayTlsValidationContextFileTrustCertificateChain = certificateChainarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaytlsvalidationcontextfiletrust.html#cfn-appmesh-virtualgateway-virtualgatewaytlsvalidationcontextfiletrust-certificatechain -amvgvgtvcftCertificateChain :: Lens' AppMeshVirtualGatewayVirtualGatewayTlsValidationContextFileTrust (Val Text) -amvgvgtvcftCertificateChain = lens _appMeshVirtualGatewayVirtualGatewayTlsValidationContextFileTrustCertificateChain (\s a -> s { _appMeshVirtualGatewayVirtualGatewayTlsValidationContextFileTrustCertificateChain = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayTlsValidationContextTrust.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayTlsValidationContextTrust.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualGatewayVirtualGatewayTlsValidationContextTrust.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaytlsvalidationcontexttrust.html - -module Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayTlsValidationContextTrust where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayTlsValidationContextAcmTrust -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayTlsValidationContextFileTrust - --- | Full data type definition for --- AppMeshVirtualGatewayVirtualGatewayTlsValidationContextTrust. See --- 'appMeshVirtualGatewayVirtualGatewayTlsValidationContextTrust' for a more --- convenient constructor. -data AppMeshVirtualGatewayVirtualGatewayTlsValidationContextTrust = - AppMeshVirtualGatewayVirtualGatewayTlsValidationContextTrust - { _appMeshVirtualGatewayVirtualGatewayTlsValidationContextTrustACM :: Maybe AppMeshVirtualGatewayVirtualGatewayTlsValidationContextAcmTrust - , _appMeshVirtualGatewayVirtualGatewayTlsValidationContextTrustFile :: Maybe AppMeshVirtualGatewayVirtualGatewayTlsValidationContextFileTrust - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualGatewayVirtualGatewayTlsValidationContextTrust where - toJSON AppMeshVirtualGatewayVirtualGatewayTlsValidationContextTrust{..} = - object $ - catMaybes - [ fmap (("ACM",) . toJSON) _appMeshVirtualGatewayVirtualGatewayTlsValidationContextTrustACM - , fmap (("File",) . toJSON) _appMeshVirtualGatewayVirtualGatewayTlsValidationContextTrustFile - ] - --- | Constructor for --- 'AppMeshVirtualGatewayVirtualGatewayTlsValidationContextTrust' containing --- required fields as arguments. -appMeshVirtualGatewayVirtualGatewayTlsValidationContextTrust - :: AppMeshVirtualGatewayVirtualGatewayTlsValidationContextTrust -appMeshVirtualGatewayVirtualGatewayTlsValidationContextTrust = - AppMeshVirtualGatewayVirtualGatewayTlsValidationContextTrust - { _appMeshVirtualGatewayVirtualGatewayTlsValidationContextTrustACM = Nothing - , _appMeshVirtualGatewayVirtualGatewayTlsValidationContextTrustFile = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaytlsvalidationcontexttrust.html#cfn-appmesh-virtualgateway-virtualgatewaytlsvalidationcontexttrust-acm -amvgvgtvctACM :: Lens' AppMeshVirtualGatewayVirtualGatewayTlsValidationContextTrust (Maybe AppMeshVirtualGatewayVirtualGatewayTlsValidationContextAcmTrust) -amvgvgtvctACM = lens _appMeshVirtualGatewayVirtualGatewayTlsValidationContextTrustACM (\s a -> s { _appMeshVirtualGatewayVirtualGatewayTlsValidationContextTrustACM = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualgateway-virtualgatewaytlsvalidationcontexttrust.html#cfn-appmesh-virtualgateway-virtualgatewaytlsvalidationcontexttrust-file -amvgvgtvctFile :: Lens' AppMeshVirtualGatewayVirtualGatewayTlsValidationContextTrust (Maybe AppMeshVirtualGatewayVirtualGatewayTlsValidationContextFileTrust) -amvgvgtvctFile = lens _appMeshVirtualGatewayVirtualGatewayTlsValidationContextTrustFile (\s a -> s { _appMeshVirtualGatewayVirtualGatewayTlsValidationContextTrustFile = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeAccessLog.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeAccessLog.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeAccessLog.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-accesslog.html - -module Stratosphere.ResourceProperties.AppMeshVirtualNodeAccessLog where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualNodeFileAccessLog - --- | Full data type definition for AppMeshVirtualNodeAccessLog. See --- 'appMeshVirtualNodeAccessLog' for a more convenient constructor. -data AppMeshVirtualNodeAccessLog = - AppMeshVirtualNodeAccessLog - { _appMeshVirtualNodeAccessLogFile :: Maybe AppMeshVirtualNodeFileAccessLog - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualNodeAccessLog where - toJSON AppMeshVirtualNodeAccessLog{..} = - object $ - catMaybes - [ fmap (("File",) . toJSON) _appMeshVirtualNodeAccessLogFile - ] - --- | Constructor for 'AppMeshVirtualNodeAccessLog' containing required fields --- as arguments. -appMeshVirtualNodeAccessLog - :: AppMeshVirtualNodeAccessLog -appMeshVirtualNodeAccessLog = - AppMeshVirtualNodeAccessLog - { _appMeshVirtualNodeAccessLogFile = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-accesslog.html#cfn-appmesh-virtualnode-accesslog-file -amvnalFile :: Lens' AppMeshVirtualNodeAccessLog (Maybe AppMeshVirtualNodeFileAccessLog) -amvnalFile = lens _appMeshVirtualNodeAccessLogFile (\s a -> s { _appMeshVirtualNodeAccessLogFile = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeAwsCloudMapInstanceAttribute.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeAwsCloudMapInstanceAttribute.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeAwsCloudMapInstanceAttribute.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-awscloudmapinstanceattribute.html - -module Stratosphere.ResourceProperties.AppMeshVirtualNodeAwsCloudMapInstanceAttribute where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- AppMeshVirtualNodeAwsCloudMapInstanceAttribute. See --- 'appMeshVirtualNodeAwsCloudMapInstanceAttribute' for a more convenient --- constructor. -data AppMeshVirtualNodeAwsCloudMapInstanceAttribute = - AppMeshVirtualNodeAwsCloudMapInstanceAttribute - { _appMeshVirtualNodeAwsCloudMapInstanceAttributeKey :: Val Text - , _appMeshVirtualNodeAwsCloudMapInstanceAttributeValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualNodeAwsCloudMapInstanceAttribute where - toJSON AppMeshVirtualNodeAwsCloudMapInstanceAttribute{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _appMeshVirtualNodeAwsCloudMapInstanceAttributeKey - , (Just . ("Value",) . toJSON) _appMeshVirtualNodeAwsCloudMapInstanceAttributeValue - ] - --- | Constructor for 'AppMeshVirtualNodeAwsCloudMapInstanceAttribute' --- containing required fields as arguments. -appMeshVirtualNodeAwsCloudMapInstanceAttribute - :: Val Text -- ^ 'amvnacmiaKey' - -> Val Text -- ^ 'amvnacmiaValue' - -> AppMeshVirtualNodeAwsCloudMapInstanceAttribute -appMeshVirtualNodeAwsCloudMapInstanceAttribute keyarg valuearg = - AppMeshVirtualNodeAwsCloudMapInstanceAttribute - { _appMeshVirtualNodeAwsCloudMapInstanceAttributeKey = keyarg - , _appMeshVirtualNodeAwsCloudMapInstanceAttributeValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-awscloudmapinstanceattribute.html#cfn-appmesh-virtualnode-awscloudmapinstanceattribute-key -amvnacmiaKey :: Lens' AppMeshVirtualNodeAwsCloudMapInstanceAttribute (Val Text) -amvnacmiaKey = lens _appMeshVirtualNodeAwsCloudMapInstanceAttributeKey (\s a -> s { _appMeshVirtualNodeAwsCloudMapInstanceAttributeKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-awscloudmapinstanceattribute.html#cfn-appmesh-virtualnode-awscloudmapinstanceattribute-value -amvnacmiaValue :: Lens' AppMeshVirtualNodeAwsCloudMapInstanceAttribute (Val Text) -amvnacmiaValue = lens _appMeshVirtualNodeAwsCloudMapInstanceAttributeValue (\s a -> s { _appMeshVirtualNodeAwsCloudMapInstanceAttributeValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeAwsCloudMapServiceDiscovery.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeAwsCloudMapServiceDiscovery.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeAwsCloudMapServiceDiscovery.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-awscloudmapservicediscovery.html - -module Stratosphere.ResourceProperties.AppMeshVirtualNodeAwsCloudMapServiceDiscovery where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualNodeAwsCloudMapInstanceAttribute - --- | Full data type definition for --- AppMeshVirtualNodeAwsCloudMapServiceDiscovery. See --- 'appMeshVirtualNodeAwsCloudMapServiceDiscovery' for a more convenient --- constructor. -data AppMeshVirtualNodeAwsCloudMapServiceDiscovery = - AppMeshVirtualNodeAwsCloudMapServiceDiscovery - { _appMeshVirtualNodeAwsCloudMapServiceDiscoveryAttributes :: Maybe [AppMeshVirtualNodeAwsCloudMapInstanceAttribute] - , _appMeshVirtualNodeAwsCloudMapServiceDiscoveryNamespaceName :: Val Text - , _appMeshVirtualNodeAwsCloudMapServiceDiscoveryServiceName :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualNodeAwsCloudMapServiceDiscovery where - toJSON AppMeshVirtualNodeAwsCloudMapServiceDiscovery{..} = - object $ - catMaybes - [ fmap (("Attributes",) . toJSON) _appMeshVirtualNodeAwsCloudMapServiceDiscoveryAttributes - , (Just . ("NamespaceName",) . toJSON) _appMeshVirtualNodeAwsCloudMapServiceDiscoveryNamespaceName - , (Just . ("ServiceName",) . toJSON) _appMeshVirtualNodeAwsCloudMapServiceDiscoveryServiceName - ] - --- | Constructor for 'AppMeshVirtualNodeAwsCloudMapServiceDiscovery' --- containing required fields as arguments. -appMeshVirtualNodeAwsCloudMapServiceDiscovery - :: Val Text -- ^ 'amvnacmsdNamespaceName' - -> Val Text -- ^ 'amvnacmsdServiceName' - -> AppMeshVirtualNodeAwsCloudMapServiceDiscovery -appMeshVirtualNodeAwsCloudMapServiceDiscovery namespaceNamearg serviceNamearg = - AppMeshVirtualNodeAwsCloudMapServiceDiscovery - { _appMeshVirtualNodeAwsCloudMapServiceDiscoveryAttributes = Nothing - , _appMeshVirtualNodeAwsCloudMapServiceDiscoveryNamespaceName = namespaceNamearg - , _appMeshVirtualNodeAwsCloudMapServiceDiscoveryServiceName = serviceNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-awscloudmapservicediscovery.html#cfn-appmesh-virtualnode-awscloudmapservicediscovery-attributes -amvnacmsdAttributes :: Lens' AppMeshVirtualNodeAwsCloudMapServiceDiscovery (Maybe [AppMeshVirtualNodeAwsCloudMapInstanceAttribute]) -amvnacmsdAttributes = lens _appMeshVirtualNodeAwsCloudMapServiceDiscoveryAttributes (\s a -> s { _appMeshVirtualNodeAwsCloudMapServiceDiscoveryAttributes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-awscloudmapservicediscovery.html#cfn-appmesh-virtualnode-awscloudmapservicediscovery-namespacename -amvnacmsdNamespaceName :: Lens' AppMeshVirtualNodeAwsCloudMapServiceDiscovery (Val Text) -amvnacmsdNamespaceName = lens _appMeshVirtualNodeAwsCloudMapServiceDiscoveryNamespaceName (\s a -> s { _appMeshVirtualNodeAwsCloudMapServiceDiscoveryNamespaceName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-awscloudmapservicediscovery.html#cfn-appmesh-virtualnode-awscloudmapservicediscovery-servicename -amvnacmsdServiceName :: Lens' AppMeshVirtualNodeAwsCloudMapServiceDiscovery (Val Text) -amvnacmsdServiceName = lens _appMeshVirtualNodeAwsCloudMapServiceDiscoveryServiceName (\s a -> s { _appMeshVirtualNodeAwsCloudMapServiceDiscoveryServiceName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeBackend.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeBackend.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeBackend.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-backend.html - -module Stratosphere.ResourceProperties.AppMeshVirtualNodeBackend where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualNodeVirtualServiceBackend - --- | Full data type definition for AppMeshVirtualNodeBackend. See --- 'appMeshVirtualNodeBackend' for a more convenient constructor. -data AppMeshVirtualNodeBackend = - AppMeshVirtualNodeBackend - { _appMeshVirtualNodeBackendVirtualService :: Maybe AppMeshVirtualNodeVirtualServiceBackend - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualNodeBackend where - toJSON AppMeshVirtualNodeBackend{..} = - object $ - catMaybes - [ fmap (("VirtualService",) . toJSON) _appMeshVirtualNodeBackendVirtualService - ] - --- | Constructor for 'AppMeshVirtualNodeBackend' containing required fields as --- arguments. -appMeshVirtualNodeBackend - :: AppMeshVirtualNodeBackend -appMeshVirtualNodeBackend = - AppMeshVirtualNodeBackend - { _appMeshVirtualNodeBackendVirtualService = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-backend.html#cfn-appmesh-virtualnode-backend-virtualservice -amvnbVirtualService :: Lens' AppMeshVirtualNodeBackend (Maybe AppMeshVirtualNodeVirtualServiceBackend) -amvnbVirtualService = lens _appMeshVirtualNodeBackendVirtualService (\s a -> s { _appMeshVirtualNodeBackendVirtualService = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeBackendDefaults.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeBackendDefaults.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeBackendDefaults.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-backenddefaults.html - -module Stratosphere.ResourceProperties.AppMeshVirtualNodeBackendDefaults where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualNodeClientPolicy - --- | Full data type definition for AppMeshVirtualNodeBackendDefaults. See --- 'appMeshVirtualNodeBackendDefaults' for a more convenient constructor. -data AppMeshVirtualNodeBackendDefaults = - AppMeshVirtualNodeBackendDefaults - { _appMeshVirtualNodeBackendDefaultsClientPolicy :: Maybe AppMeshVirtualNodeClientPolicy - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualNodeBackendDefaults where - toJSON AppMeshVirtualNodeBackendDefaults{..} = - object $ - catMaybes - [ fmap (("ClientPolicy",) . toJSON) _appMeshVirtualNodeBackendDefaultsClientPolicy - ] - --- | Constructor for 'AppMeshVirtualNodeBackendDefaults' containing required --- fields as arguments. -appMeshVirtualNodeBackendDefaults - :: AppMeshVirtualNodeBackendDefaults -appMeshVirtualNodeBackendDefaults = - AppMeshVirtualNodeBackendDefaults - { _appMeshVirtualNodeBackendDefaultsClientPolicy = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-backenddefaults.html#cfn-appmesh-virtualnode-backenddefaults-clientpolicy -amvnbdClientPolicy :: Lens' AppMeshVirtualNodeBackendDefaults (Maybe AppMeshVirtualNodeClientPolicy) -amvnbdClientPolicy = lens _appMeshVirtualNodeBackendDefaultsClientPolicy (\s a -> s { _appMeshVirtualNodeBackendDefaultsClientPolicy = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeClientPolicy.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeClientPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeClientPolicy.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-clientpolicy.html - -module Stratosphere.ResourceProperties.AppMeshVirtualNodeClientPolicy where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualNodeClientPolicyTls - --- | Full data type definition for AppMeshVirtualNodeClientPolicy. See --- 'appMeshVirtualNodeClientPolicy' for a more convenient constructor. -data AppMeshVirtualNodeClientPolicy = - AppMeshVirtualNodeClientPolicy - { _appMeshVirtualNodeClientPolicyTLS :: Maybe AppMeshVirtualNodeClientPolicyTls - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualNodeClientPolicy where - toJSON AppMeshVirtualNodeClientPolicy{..} = - object $ - catMaybes - [ fmap (("TLS",) . toJSON) _appMeshVirtualNodeClientPolicyTLS - ] - --- | Constructor for 'AppMeshVirtualNodeClientPolicy' containing required --- fields as arguments. -appMeshVirtualNodeClientPolicy - :: AppMeshVirtualNodeClientPolicy -appMeshVirtualNodeClientPolicy = - AppMeshVirtualNodeClientPolicy - { _appMeshVirtualNodeClientPolicyTLS = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-clientpolicy.html#cfn-appmesh-virtualnode-clientpolicy-tls -amvncpTLS :: Lens' AppMeshVirtualNodeClientPolicy (Maybe AppMeshVirtualNodeClientPolicyTls) -amvncpTLS = lens _appMeshVirtualNodeClientPolicyTLS (\s a -> s { _appMeshVirtualNodeClientPolicyTLS = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeClientPolicyTls.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeClientPolicyTls.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeClientPolicyTls.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-clientpolicytls.html - -module Stratosphere.ResourceProperties.AppMeshVirtualNodeClientPolicyTls where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualNodeTlsValidationContext - --- | Full data type definition for AppMeshVirtualNodeClientPolicyTls. See --- 'appMeshVirtualNodeClientPolicyTls' for a more convenient constructor. -data AppMeshVirtualNodeClientPolicyTls = - AppMeshVirtualNodeClientPolicyTls - { _appMeshVirtualNodeClientPolicyTlsEnforce :: Maybe (Val Bool) - , _appMeshVirtualNodeClientPolicyTlsPorts :: Maybe (ValList Integer) - , _appMeshVirtualNodeClientPolicyTlsValidation :: AppMeshVirtualNodeTlsValidationContext - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualNodeClientPolicyTls where - toJSON AppMeshVirtualNodeClientPolicyTls{..} = - object $ - catMaybes - [ fmap (("Enforce",) . toJSON) _appMeshVirtualNodeClientPolicyTlsEnforce - , fmap (("Ports",) . toJSON) _appMeshVirtualNodeClientPolicyTlsPorts - , (Just . ("Validation",) . toJSON) _appMeshVirtualNodeClientPolicyTlsValidation - ] - --- | Constructor for 'AppMeshVirtualNodeClientPolicyTls' containing required --- fields as arguments. -appMeshVirtualNodeClientPolicyTls - :: AppMeshVirtualNodeTlsValidationContext -- ^ 'amvncptValidation' - -> AppMeshVirtualNodeClientPolicyTls -appMeshVirtualNodeClientPolicyTls validationarg = - AppMeshVirtualNodeClientPolicyTls - { _appMeshVirtualNodeClientPolicyTlsEnforce = Nothing - , _appMeshVirtualNodeClientPolicyTlsPorts = Nothing - , _appMeshVirtualNodeClientPolicyTlsValidation = validationarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-clientpolicytls.html#cfn-appmesh-virtualnode-clientpolicytls-enforce -amvncptEnforce :: Lens' AppMeshVirtualNodeClientPolicyTls (Maybe (Val Bool)) -amvncptEnforce = lens _appMeshVirtualNodeClientPolicyTlsEnforce (\s a -> s { _appMeshVirtualNodeClientPolicyTlsEnforce = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-clientpolicytls.html#cfn-appmesh-virtualnode-clientpolicytls-ports -amvncptPorts :: Lens' AppMeshVirtualNodeClientPolicyTls (Maybe (ValList Integer)) -amvncptPorts = lens _appMeshVirtualNodeClientPolicyTlsPorts (\s a -> s { _appMeshVirtualNodeClientPolicyTlsPorts = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-clientpolicytls.html#cfn-appmesh-virtualnode-clientpolicytls-validation -amvncptValidation :: Lens' AppMeshVirtualNodeClientPolicyTls AppMeshVirtualNodeTlsValidationContext -amvncptValidation = lens _appMeshVirtualNodeClientPolicyTlsValidation (\s a -> s { _appMeshVirtualNodeClientPolicyTlsValidation = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeDnsServiceDiscovery.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeDnsServiceDiscovery.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeDnsServiceDiscovery.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-dnsservicediscovery.html - -module Stratosphere.ResourceProperties.AppMeshVirtualNodeDnsServiceDiscovery where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppMeshVirtualNodeDnsServiceDiscovery. See --- 'appMeshVirtualNodeDnsServiceDiscovery' for a more convenient --- constructor. -data AppMeshVirtualNodeDnsServiceDiscovery = - AppMeshVirtualNodeDnsServiceDiscovery - { _appMeshVirtualNodeDnsServiceDiscoveryHostname :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualNodeDnsServiceDiscovery where - toJSON AppMeshVirtualNodeDnsServiceDiscovery{..} = - object $ - catMaybes - [ (Just . ("Hostname",) . toJSON) _appMeshVirtualNodeDnsServiceDiscoveryHostname - ] - --- | Constructor for 'AppMeshVirtualNodeDnsServiceDiscovery' containing --- required fields as arguments. -appMeshVirtualNodeDnsServiceDiscovery - :: Val Text -- ^ 'amvndsdHostname' - -> AppMeshVirtualNodeDnsServiceDiscovery -appMeshVirtualNodeDnsServiceDiscovery hostnamearg = - AppMeshVirtualNodeDnsServiceDiscovery - { _appMeshVirtualNodeDnsServiceDiscoveryHostname = hostnamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-dnsservicediscovery.html#cfn-appmesh-virtualnode-dnsservicediscovery-hostname -amvndsdHostname :: Lens' AppMeshVirtualNodeDnsServiceDiscovery (Val Text) -amvndsdHostname = lens _appMeshVirtualNodeDnsServiceDiscoveryHostname (\s a -> s { _appMeshVirtualNodeDnsServiceDiscoveryHostname = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeDuration.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeDuration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeDuration.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-duration.html - -module Stratosphere.ResourceProperties.AppMeshVirtualNodeDuration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppMeshVirtualNodeDuration. See --- 'appMeshVirtualNodeDuration' for a more convenient constructor. -data AppMeshVirtualNodeDuration = - AppMeshVirtualNodeDuration - { _appMeshVirtualNodeDurationUnit :: Val Text - , _appMeshVirtualNodeDurationValue :: Val Integer - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualNodeDuration where - toJSON AppMeshVirtualNodeDuration{..} = - object $ - catMaybes - [ (Just . ("Unit",) . toJSON) _appMeshVirtualNodeDurationUnit - , (Just . ("Value",) . toJSON) _appMeshVirtualNodeDurationValue - ] - --- | Constructor for 'AppMeshVirtualNodeDuration' containing required fields --- as arguments. -appMeshVirtualNodeDuration - :: Val Text -- ^ 'amvndUnit' - -> Val Integer -- ^ 'amvndValue' - -> AppMeshVirtualNodeDuration -appMeshVirtualNodeDuration unitarg valuearg = - AppMeshVirtualNodeDuration - { _appMeshVirtualNodeDurationUnit = unitarg - , _appMeshVirtualNodeDurationValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-duration.html#cfn-appmesh-virtualnode-duration-unit -amvndUnit :: Lens' AppMeshVirtualNodeDuration (Val Text) -amvndUnit = lens _appMeshVirtualNodeDurationUnit (\s a -> s { _appMeshVirtualNodeDurationUnit = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-duration.html#cfn-appmesh-virtualnode-duration-value -amvndValue :: Lens' AppMeshVirtualNodeDuration (Val Integer) -amvndValue = lens _appMeshVirtualNodeDurationValue (\s a -> s { _appMeshVirtualNodeDurationValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeFileAccessLog.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeFileAccessLog.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeFileAccessLog.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-fileaccesslog.html - -module Stratosphere.ResourceProperties.AppMeshVirtualNodeFileAccessLog where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppMeshVirtualNodeFileAccessLog. See --- 'appMeshVirtualNodeFileAccessLog' for a more convenient constructor. -data AppMeshVirtualNodeFileAccessLog = - AppMeshVirtualNodeFileAccessLog - { _appMeshVirtualNodeFileAccessLogPath :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualNodeFileAccessLog where - toJSON AppMeshVirtualNodeFileAccessLog{..} = - object $ - catMaybes - [ (Just . ("Path",) . toJSON) _appMeshVirtualNodeFileAccessLogPath - ] - --- | Constructor for 'AppMeshVirtualNodeFileAccessLog' containing required --- fields as arguments. -appMeshVirtualNodeFileAccessLog - :: Val Text -- ^ 'amvnfalPath' - -> AppMeshVirtualNodeFileAccessLog -appMeshVirtualNodeFileAccessLog patharg = - AppMeshVirtualNodeFileAccessLog - { _appMeshVirtualNodeFileAccessLogPath = patharg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-fileaccesslog.html#cfn-appmesh-virtualnode-fileaccesslog-path -amvnfalPath :: Lens' AppMeshVirtualNodeFileAccessLog (Val Text) -amvnfalPath = lens _appMeshVirtualNodeFileAccessLogPath (\s a -> s { _appMeshVirtualNodeFileAccessLogPath = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeGrpcTimeout.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeGrpcTimeout.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeGrpcTimeout.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-grpctimeout.html - -module Stratosphere.ResourceProperties.AppMeshVirtualNodeGrpcTimeout where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualNodeDuration - --- | Full data type definition for AppMeshVirtualNodeGrpcTimeout. See --- 'appMeshVirtualNodeGrpcTimeout' for a more convenient constructor. -data AppMeshVirtualNodeGrpcTimeout = - AppMeshVirtualNodeGrpcTimeout - { _appMeshVirtualNodeGrpcTimeoutIdle :: Maybe AppMeshVirtualNodeDuration - , _appMeshVirtualNodeGrpcTimeoutPerRequest :: Maybe AppMeshVirtualNodeDuration - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualNodeGrpcTimeout where - toJSON AppMeshVirtualNodeGrpcTimeout{..} = - object $ - catMaybes - [ fmap (("Idle",) . toJSON) _appMeshVirtualNodeGrpcTimeoutIdle - , fmap (("PerRequest",) . toJSON) _appMeshVirtualNodeGrpcTimeoutPerRequest - ] - --- | Constructor for 'AppMeshVirtualNodeGrpcTimeout' containing required --- fields as arguments. -appMeshVirtualNodeGrpcTimeout - :: AppMeshVirtualNodeGrpcTimeout -appMeshVirtualNodeGrpcTimeout = - AppMeshVirtualNodeGrpcTimeout - { _appMeshVirtualNodeGrpcTimeoutIdle = Nothing - , _appMeshVirtualNodeGrpcTimeoutPerRequest = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-grpctimeout.html#cfn-appmesh-virtualnode-grpctimeout-idle -amvngtIdle :: Lens' AppMeshVirtualNodeGrpcTimeout (Maybe AppMeshVirtualNodeDuration) -amvngtIdle = lens _appMeshVirtualNodeGrpcTimeoutIdle (\s a -> s { _appMeshVirtualNodeGrpcTimeoutIdle = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-grpctimeout.html#cfn-appmesh-virtualnode-grpctimeout-perrequest -amvngtPerRequest :: Lens' AppMeshVirtualNodeGrpcTimeout (Maybe AppMeshVirtualNodeDuration) -amvngtPerRequest = lens _appMeshVirtualNodeGrpcTimeoutPerRequest (\s a -> s { _appMeshVirtualNodeGrpcTimeoutPerRequest = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeHealthCheck.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeHealthCheck.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeHealthCheck.hs +++ /dev/null @@ -1,85 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-healthcheck.html - -module Stratosphere.ResourceProperties.AppMeshVirtualNodeHealthCheck where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppMeshVirtualNodeHealthCheck. See --- 'appMeshVirtualNodeHealthCheck' for a more convenient constructor. -data AppMeshVirtualNodeHealthCheck = - AppMeshVirtualNodeHealthCheck - { _appMeshVirtualNodeHealthCheckHealthyThreshold :: Val Integer - , _appMeshVirtualNodeHealthCheckIntervalMillis :: Val Integer - , _appMeshVirtualNodeHealthCheckPath :: Maybe (Val Text) - , _appMeshVirtualNodeHealthCheckPort :: Maybe (Val Integer) - , _appMeshVirtualNodeHealthCheckProtocol :: Val Text - , _appMeshVirtualNodeHealthCheckTimeoutMillis :: Val Integer - , _appMeshVirtualNodeHealthCheckUnhealthyThreshold :: Val Integer - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualNodeHealthCheck where - toJSON AppMeshVirtualNodeHealthCheck{..} = - object $ - catMaybes - [ (Just . ("HealthyThreshold",) . toJSON) _appMeshVirtualNodeHealthCheckHealthyThreshold - , (Just . ("IntervalMillis",) . toJSON) _appMeshVirtualNodeHealthCheckIntervalMillis - , fmap (("Path",) . toJSON) _appMeshVirtualNodeHealthCheckPath - , fmap (("Port",) . toJSON) _appMeshVirtualNodeHealthCheckPort - , (Just . ("Protocol",) . toJSON) _appMeshVirtualNodeHealthCheckProtocol - , (Just . ("TimeoutMillis",) . toJSON) _appMeshVirtualNodeHealthCheckTimeoutMillis - , (Just . ("UnhealthyThreshold",) . toJSON) _appMeshVirtualNodeHealthCheckUnhealthyThreshold - ] - --- | Constructor for 'AppMeshVirtualNodeHealthCheck' containing required --- fields as arguments. -appMeshVirtualNodeHealthCheck - :: Val Integer -- ^ 'amvnhcHealthyThreshold' - -> Val Integer -- ^ 'amvnhcIntervalMillis' - -> Val Text -- ^ 'amvnhcProtocol' - -> Val Integer -- ^ 'amvnhcTimeoutMillis' - -> Val Integer -- ^ 'amvnhcUnhealthyThreshold' - -> AppMeshVirtualNodeHealthCheck -appMeshVirtualNodeHealthCheck healthyThresholdarg intervalMillisarg protocolarg timeoutMillisarg unhealthyThresholdarg = - AppMeshVirtualNodeHealthCheck - { _appMeshVirtualNodeHealthCheckHealthyThreshold = healthyThresholdarg - , _appMeshVirtualNodeHealthCheckIntervalMillis = intervalMillisarg - , _appMeshVirtualNodeHealthCheckPath = Nothing - , _appMeshVirtualNodeHealthCheckPort = Nothing - , _appMeshVirtualNodeHealthCheckProtocol = protocolarg - , _appMeshVirtualNodeHealthCheckTimeoutMillis = timeoutMillisarg - , _appMeshVirtualNodeHealthCheckUnhealthyThreshold = unhealthyThresholdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-healthcheck.html#cfn-appmesh-virtualnode-healthcheck-healthythreshold -amvnhcHealthyThreshold :: Lens' AppMeshVirtualNodeHealthCheck (Val Integer) -amvnhcHealthyThreshold = lens _appMeshVirtualNodeHealthCheckHealthyThreshold (\s a -> s { _appMeshVirtualNodeHealthCheckHealthyThreshold = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-healthcheck.html#cfn-appmesh-virtualnode-healthcheck-intervalmillis -amvnhcIntervalMillis :: Lens' AppMeshVirtualNodeHealthCheck (Val Integer) -amvnhcIntervalMillis = lens _appMeshVirtualNodeHealthCheckIntervalMillis (\s a -> s { _appMeshVirtualNodeHealthCheckIntervalMillis = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-healthcheck.html#cfn-appmesh-virtualnode-healthcheck-path -amvnhcPath :: Lens' AppMeshVirtualNodeHealthCheck (Maybe (Val Text)) -amvnhcPath = lens _appMeshVirtualNodeHealthCheckPath (\s a -> s { _appMeshVirtualNodeHealthCheckPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-healthcheck.html#cfn-appmesh-virtualnode-healthcheck-port -amvnhcPort :: Lens' AppMeshVirtualNodeHealthCheck (Maybe (Val Integer)) -amvnhcPort = lens _appMeshVirtualNodeHealthCheckPort (\s a -> s { _appMeshVirtualNodeHealthCheckPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-healthcheck.html#cfn-appmesh-virtualnode-healthcheck-protocol -amvnhcProtocol :: Lens' AppMeshVirtualNodeHealthCheck (Val Text) -amvnhcProtocol = lens _appMeshVirtualNodeHealthCheckProtocol (\s a -> s { _appMeshVirtualNodeHealthCheckProtocol = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-healthcheck.html#cfn-appmesh-virtualnode-healthcheck-timeoutmillis -amvnhcTimeoutMillis :: Lens' AppMeshVirtualNodeHealthCheck (Val Integer) -amvnhcTimeoutMillis = lens _appMeshVirtualNodeHealthCheckTimeoutMillis (\s a -> s { _appMeshVirtualNodeHealthCheckTimeoutMillis = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-healthcheck.html#cfn-appmesh-virtualnode-healthcheck-unhealthythreshold -amvnhcUnhealthyThreshold :: Lens' AppMeshVirtualNodeHealthCheck (Val Integer) -amvnhcUnhealthyThreshold = lens _appMeshVirtualNodeHealthCheckUnhealthyThreshold (\s a -> s { _appMeshVirtualNodeHealthCheckUnhealthyThreshold = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeHttpTimeout.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeHttpTimeout.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeHttpTimeout.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-httptimeout.html - -module Stratosphere.ResourceProperties.AppMeshVirtualNodeHttpTimeout where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualNodeDuration - --- | Full data type definition for AppMeshVirtualNodeHttpTimeout. See --- 'appMeshVirtualNodeHttpTimeout' for a more convenient constructor. -data AppMeshVirtualNodeHttpTimeout = - AppMeshVirtualNodeHttpTimeout - { _appMeshVirtualNodeHttpTimeoutIdle :: Maybe AppMeshVirtualNodeDuration - , _appMeshVirtualNodeHttpTimeoutPerRequest :: Maybe AppMeshVirtualNodeDuration - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualNodeHttpTimeout where - toJSON AppMeshVirtualNodeHttpTimeout{..} = - object $ - catMaybes - [ fmap (("Idle",) . toJSON) _appMeshVirtualNodeHttpTimeoutIdle - , fmap (("PerRequest",) . toJSON) _appMeshVirtualNodeHttpTimeoutPerRequest - ] - --- | Constructor for 'AppMeshVirtualNodeHttpTimeout' containing required --- fields as arguments. -appMeshVirtualNodeHttpTimeout - :: AppMeshVirtualNodeHttpTimeout -appMeshVirtualNodeHttpTimeout = - AppMeshVirtualNodeHttpTimeout - { _appMeshVirtualNodeHttpTimeoutIdle = Nothing - , _appMeshVirtualNodeHttpTimeoutPerRequest = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-httptimeout.html#cfn-appmesh-virtualnode-httptimeout-idle -amvnhtIdle :: Lens' AppMeshVirtualNodeHttpTimeout (Maybe AppMeshVirtualNodeDuration) -amvnhtIdle = lens _appMeshVirtualNodeHttpTimeoutIdle (\s a -> s { _appMeshVirtualNodeHttpTimeoutIdle = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-httptimeout.html#cfn-appmesh-virtualnode-httptimeout-perrequest -amvnhtPerRequest :: Lens' AppMeshVirtualNodeHttpTimeout (Maybe AppMeshVirtualNodeDuration) -amvnhtPerRequest = lens _appMeshVirtualNodeHttpTimeoutPerRequest (\s a -> s { _appMeshVirtualNodeHttpTimeoutPerRequest = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeListener.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeListener.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeListener.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listener.html - -module Stratosphere.ResourceProperties.AppMeshVirtualNodeListener where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualNodeHealthCheck -import Stratosphere.ResourceProperties.AppMeshVirtualNodePortMapping -import Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTls -import Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTimeout - --- | Full data type definition for AppMeshVirtualNodeListener. See --- 'appMeshVirtualNodeListener' for a more convenient constructor. -data AppMeshVirtualNodeListener = - AppMeshVirtualNodeListener - { _appMeshVirtualNodeListenerHealthCheck :: Maybe AppMeshVirtualNodeHealthCheck - , _appMeshVirtualNodeListenerPortMapping :: AppMeshVirtualNodePortMapping - , _appMeshVirtualNodeListenerTLS :: Maybe AppMeshVirtualNodeListenerTls - , _appMeshVirtualNodeListenerTimeout :: Maybe AppMeshVirtualNodeListenerTimeout - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualNodeListener where - toJSON AppMeshVirtualNodeListener{..} = - object $ - catMaybes - [ fmap (("HealthCheck",) . toJSON) _appMeshVirtualNodeListenerHealthCheck - , (Just . ("PortMapping",) . toJSON) _appMeshVirtualNodeListenerPortMapping - , fmap (("TLS",) . toJSON) _appMeshVirtualNodeListenerTLS - , fmap (("Timeout",) . toJSON) _appMeshVirtualNodeListenerTimeout - ] - --- | Constructor for 'AppMeshVirtualNodeListener' containing required fields --- as arguments. -appMeshVirtualNodeListener - :: AppMeshVirtualNodePortMapping -- ^ 'amvnlPortMapping' - -> AppMeshVirtualNodeListener -appMeshVirtualNodeListener portMappingarg = - AppMeshVirtualNodeListener - { _appMeshVirtualNodeListenerHealthCheck = Nothing - , _appMeshVirtualNodeListenerPortMapping = portMappingarg - , _appMeshVirtualNodeListenerTLS = Nothing - , _appMeshVirtualNodeListenerTimeout = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listener.html#cfn-appmesh-virtualnode-listener-healthcheck -amvnlHealthCheck :: Lens' AppMeshVirtualNodeListener (Maybe AppMeshVirtualNodeHealthCheck) -amvnlHealthCheck = lens _appMeshVirtualNodeListenerHealthCheck (\s a -> s { _appMeshVirtualNodeListenerHealthCheck = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listener.html#cfn-appmesh-virtualnode-listener-portmapping -amvnlPortMapping :: Lens' AppMeshVirtualNodeListener AppMeshVirtualNodePortMapping -amvnlPortMapping = lens _appMeshVirtualNodeListenerPortMapping (\s a -> s { _appMeshVirtualNodeListenerPortMapping = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listener.html#cfn-appmesh-virtualnode-listener-tls -amvnlTLS :: Lens' AppMeshVirtualNodeListener (Maybe AppMeshVirtualNodeListenerTls) -amvnlTLS = lens _appMeshVirtualNodeListenerTLS (\s a -> s { _appMeshVirtualNodeListenerTLS = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listener.html#cfn-appmesh-virtualnode-listener-timeout -amvnlTimeout :: Lens' AppMeshVirtualNodeListener (Maybe AppMeshVirtualNodeListenerTimeout) -amvnlTimeout = lens _appMeshVirtualNodeListenerTimeout (\s a -> s { _appMeshVirtualNodeListenerTimeout = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeListenerTimeout.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeListenerTimeout.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeListenerTimeout.hs +++ /dev/null @@ -1,61 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listenertimeout.html - -module Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTimeout where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualNodeGrpcTimeout -import Stratosphere.ResourceProperties.AppMeshVirtualNodeHttpTimeout -import Stratosphere.ResourceProperties.AppMeshVirtualNodeTcpTimeout - --- | Full data type definition for AppMeshVirtualNodeListenerTimeout. See --- 'appMeshVirtualNodeListenerTimeout' for a more convenient constructor. -data AppMeshVirtualNodeListenerTimeout = - AppMeshVirtualNodeListenerTimeout - { _appMeshVirtualNodeListenerTimeoutGRPC :: Maybe AppMeshVirtualNodeGrpcTimeout - , _appMeshVirtualNodeListenerTimeoutHTTP :: Maybe AppMeshVirtualNodeHttpTimeout - , _appMeshVirtualNodeListenerTimeoutHTTP2 :: Maybe AppMeshVirtualNodeHttpTimeout - , _appMeshVirtualNodeListenerTimeoutTCP :: Maybe AppMeshVirtualNodeTcpTimeout - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualNodeListenerTimeout where - toJSON AppMeshVirtualNodeListenerTimeout{..} = - object $ - catMaybes - [ fmap (("GRPC",) . toJSON) _appMeshVirtualNodeListenerTimeoutGRPC - , fmap (("HTTP",) . toJSON) _appMeshVirtualNodeListenerTimeoutHTTP - , fmap (("HTTP2",) . toJSON) _appMeshVirtualNodeListenerTimeoutHTTP2 - , fmap (("TCP",) . toJSON) _appMeshVirtualNodeListenerTimeoutTCP - ] - --- | Constructor for 'AppMeshVirtualNodeListenerTimeout' containing required --- fields as arguments. -appMeshVirtualNodeListenerTimeout - :: AppMeshVirtualNodeListenerTimeout -appMeshVirtualNodeListenerTimeout = - AppMeshVirtualNodeListenerTimeout - { _appMeshVirtualNodeListenerTimeoutGRPC = Nothing - , _appMeshVirtualNodeListenerTimeoutHTTP = Nothing - , _appMeshVirtualNodeListenerTimeoutHTTP2 = Nothing - , _appMeshVirtualNodeListenerTimeoutTCP = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listenertimeout.html#cfn-appmesh-virtualnode-listenertimeout-grpc -amvnltGRPC :: Lens' AppMeshVirtualNodeListenerTimeout (Maybe AppMeshVirtualNodeGrpcTimeout) -amvnltGRPC = lens _appMeshVirtualNodeListenerTimeoutGRPC (\s a -> s { _appMeshVirtualNodeListenerTimeoutGRPC = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listenertimeout.html#cfn-appmesh-virtualnode-listenertimeout-http -amvnltHTTP :: Lens' AppMeshVirtualNodeListenerTimeout (Maybe AppMeshVirtualNodeHttpTimeout) -amvnltHTTP = lens _appMeshVirtualNodeListenerTimeoutHTTP (\s a -> s { _appMeshVirtualNodeListenerTimeoutHTTP = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listenertimeout.html#cfn-appmesh-virtualnode-listenertimeout-http2 -amvnltHTTP2 :: Lens' AppMeshVirtualNodeListenerTimeout (Maybe AppMeshVirtualNodeHttpTimeout) -amvnltHTTP2 = lens _appMeshVirtualNodeListenerTimeoutHTTP2 (\s a -> s { _appMeshVirtualNodeListenerTimeoutHTTP2 = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listenertimeout.html#cfn-appmesh-virtualnode-listenertimeout-tcp -amvnltTCP :: Lens' AppMeshVirtualNodeListenerTimeout (Maybe AppMeshVirtualNodeTcpTimeout) -amvnltTCP = lens _appMeshVirtualNodeListenerTimeoutTCP (\s a -> s { _appMeshVirtualNodeListenerTimeoutTCP = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeListenerTls.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeListenerTls.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeListenerTls.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listenertls.html - -module Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTls where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTlsCertificate - --- | Full data type definition for AppMeshVirtualNodeListenerTls. See --- 'appMeshVirtualNodeListenerTls' for a more convenient constructor. -data AppMeshVirtualNodeListenerTls = - AppMeshVirtualNodeListenerTls - { _appMeshVirtualNodeListenerTlsCertificate :: AppMeshVirtualNodeListenerTlsCertificate - , _appMeshVirtualNodeListenerTlsMode :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualNodeListenerTls where - toJSON AppMeshVirtualNodeListenerTls{..} = - object $ - catMaybes - [ (Just . ("Certificate",) . toJSON) _appMeshVirtualNodeListenerTlsCertificate - , (Just . ("Mode",) . toJSON) _appMeshVirtualNodeListenerTlsMode - ] - --- | Constructor for 'AppMeshVirtualNodeListenerTls' containing required --- fields as arguments. -appMeshVirtualNodeListenerTls - :: AppMeshVirtualNodeListenerTlsCertificate -- ^ 'amvnltCertificate' - -> Val Text -- ^ 'amvnltMode' - -> AppMeshVirtualNodeListenerTls -appMeshVirtualNodeListenerTls certificatearg modearg = - AppMeshVirtualNodeListenerTls - { _appMeshVirtualNodeListenerTlsCertificate = certificatearg - , _appMeshVirtualNodeListenerTlsMode = modearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listenertls.html#cfn-appmesh-virtualnode-listenertls-certificate -amvnltCertificate :: Lens' AppMeshVirtualNodeListenerTls AppMeshVirtualNodeListenerTlsCertificate -amvnltCertificate = lens _appMeshVirtualNodeListenerTlsCertificate (\s a -> s { _appMeshVirtualNodeListenerTlsCertificate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listenertls.html#cfn-appmesh-virtualnode-listenertls-mode -amvnltMode :: Lens' AppMeshVirtualNodeListenerTls (Val Text) -amvnltMode = lens _appMeshVirtualNodeListenerTlsMode (\s a -> s { _appMeshVirtualNodeListenerTlsMode = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeListenerTlsAcmCertificate.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeListenerTlsAcmCertificate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeListenerTlsAcmCertificate.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listenertlsacmcertificate.html - -module Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTlsAcmCertificate where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- AppMeshVirtualNodeListenerTlsAcmCertificate. See --- 'appMeshVirtualNodeListenerTlsAcmCertificate' for a more convenient --- constructor. -data AppMeshVirtualNodeListenerTlsAcmCertificate = - AppMeshVirtualNodeListenerTlsAcmCertificate - { _appMeshVirtualNodeListenerTlsAcmCertificateCertificateArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualNodeListenerTlsAcmCertificate where - toJSON AppMeshVirtualNodeListenerTlsAcmCertificate{..} = - object $ - catMaybes - [ (Just . ("CertificateArn",) . toJSON) _appMeshVirtualNodeListenerTlsAcmCertificateCertificateArn - ] - --- | Constructor for 'AppMeshVirtualNodeListenerTlsAcmCertificate' containing --- required fields as arguments. -appMeshVirtualNodeListenerTlsAcmCertificate - :: Val Text -- ^ 'amvnltacCertificateArn' - -> AppMeshVirtualNodeListenerTlsAcmCertificate -appMeshVirtualNodeListenerTlsAcmCertificate certificateArnarg = - AppMeshVirtualNodeListenerTlsAcmCertificate - { _appMeshVirtualNodeListenerTlsAcmCertificateCertificateArn = certificateArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listenertlsacmcertificate.html#cfn-appmesh-virtualnode-listenertlsacmcertificate-certificatearn -amvnltacCertificateArn :: Lens' AppMeshVirtualNodeListenerTlsAcmCertificate (Val Text) -amvnltacCertificateArn = lens _appMeshVirtualNodeListenerTlsAcmCertificateCertificateArn (\s a -> s { _appMeshVirtualNodeListenerTlsAcmCertificateCertificateArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeListenerTlsCertificate.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeListenerTlsCertificate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeListenerTlsCertificate.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listenertlscertificate.html - -module Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTlsCertificate where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTlsAcmCertificate -import Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTlsFileCertificate - --- | Full data type definition for AppMeshVirtualNodeListenerTlsCertificate. --- See 'appMeshVirtualNodeListenerTlsCertificate' for a more convenient --- constructor. -data AppMeshVirtualNodeListenerTlsCertificate = - AppMeshVirtualNodeListenerTlsCertificate - { _appMeshVirtualNodeListenerTlsCertificateACM :: Maybe AppMeshVirtualNodeListenerTlsAcmCertificate - , _appMeshVirtualNodeListenerTlsCertificateFile :: Maybe AppMeshVirtualNodeListenerTlsFileCertificate - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualNodeListenerTlsCertificate where - toJSON AppMeshVirtualNodeListenerTlsCertificate{..} = - object $ - catMaybes - [ fmap (("ACM",) . toJSON) _appMeshVirtualNodeListenerTlsCertificateACM - , fmap (("File",) . toJSON) _appMeshVirtualNodeListenerTlsCertificateFile - ] - --- | Constructor for 'AppMeshVirtualNodeListenerTlsCertificate' containing --- required fields as arguments. -appMeshVirtualNodeListenerTlsCertificate - :: AppMeshVirtualNodeListenerTlsCertificate -appMeshVirtualNodeListenerTlsCertificate = - AppMeshVirtualNodeListenerTlsCertificate - { _appMeshVirtualNodeListenerTlsCertificateACM = Nothing - , _appMeshVirtualNodeListenerTlsCertificateFile = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listenertlscertificate.html#cfn-appmesh-virtualnode-listenertlscertificate-acm -amvnltcACM :: Lens' AppMeshVirtualNodeListenerTlsCertificate (Maybe AppMeshVirtualNodeListenerTlsAcmCertificate) -amvnltcACM = lens _appMeshVirtualNodeListenerTlsCertificateACM (\s a -> s { _appMeshVirtualNodeListenerTlsCertificateACM = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listenertlscertificate.html#cfn-appmesh-virtualnode-listenertlscertificate-file -amvnltcFile :: Lens' AppMeshVirtualNodeListenerTlsCertificate (Maybe AppMeshVirtualNodeListenerTlsFileCertificate) -amvnltcFile = lens _appMeshVirtualNodeListenerTlsCertificateFile (\s a -> s { _appMeshVirtualNodeListenerTlsCertificateFile = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeListenerTlsFileCertificate.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeListenerTlsFileCertificate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeListenerTlsFileCertificate.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listenertlsfilecertificate.html - -module Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTlsFileCertificate where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- AppMeshVirtualNodeListenerTlsFileCertificate. See --- 'appMeshVirtualNodeListenerTlsFileCertificate' for a more convenient --- constructor. -data AppMeshVirtualNodeListenerTlsFileCertificate = - AppMeshVirtualNodeListenerTlsFileCertificate - { _appMeshVirtualNodeListenerTlsFileCertificateCertificateChain :: Val Text - , _appMeshVirtualNodeListenerTlsFileCertificatePrivateKey :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualNodeListenerTlsFileCertificate where - toJSON AppMeshVirtualNodeListenerTlsFileCertificate{..} = - object $ - catMaybes - [ (Just . ("CertificateChain",) . toJSON) _appMeshVirtualNodeListenerTlsFileCertificateCertificateChain - , (Just . ("PrivateKey",) . toJSON) _appMeshVirtualNodeListenerTlsFileCertificatePrivateKey - ] - --- | Constructor for 'AppMeshVirtualNodeListenerTlsFileCertificate' containing --- required fields as arguments. -appMeshVirtualNodeListenerTlsFileCertificate - :: Val Text -- ^ 'amvnltfcCertificateChain' - -> Val Text -- ^ 'amvnltfcPrivateKey' - -> AppMeshVirtualNodeListenerTlsFileCertificate -appMeshVirtualNodeListenerTlsFileCertificate certificateChainarg privateKeyarg = - AppMeshVirtualNodeListenerTlsFileCertificate - { _appMeshVirtualNodeListenerTlsFileCertificateCertificateChain = certificateChainarg - , _appMeshVirtualNodeListenerTlsFileCertificatePrivateKey = privateKeyarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listenertlsfilecertificate.html#cfn-appmesh-virtualnode-listenertlsfilecertificate-certificatechain -amvnltfcCertificateChain :: Lens' AppMeshVirtualNodeListenerTlsFileCertificate (Val Text) -amvnltfcCertificateChain = lens _appMeshVirtualNodeListenerTlsFileCertificateCertificateChain (\s a -> s { _appMeshVirtualNodeListenerTlsFileCertificateCertificateChain = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listenertlsfilecertificate.html#cfn-appmesh-virtualnode-listenertlsfilecertificate-privatekey -amvnltfcPrivateKey :: Lens' AppMeshVirtualNodeListenerTlsFileCertificate (Val Text) -amvnltfcPrivateKey = lens _appMeshVirtualNodeListenerTlsFileCertificatePrivateKey (\s a -> s { _appMeshVirtualNodeListenerTlsFileCertificatePrivateKey = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeLogging.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeLogging.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeLogging.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-logging.html - -module Stratosphere.ResourceProperties.AppMeshVirtualNodeLogging where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualNodeAccessLog - --- | Full data type definition for AppMeshVirtualNodeLogging. See --- 'appMeshVirtualNodeLogging' for a more convenient constructor. -data AppMeshVirtualNodeLogging = - AppMeshVirtualNodeLogging - { _appMeshVirtualNodeLoggingAccessLog :: Maybe AppMeshVirtualNodeAccessLog - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualNodeLogging where - toJSON AppMeshVirtualNodeLogging{..} = - object $ - catMaybes - [ fmap (("AccessLog",) . toJSON) _appMeshVirtualNodeLoggingAccessLog - ] - --- | Constructor for 'AppMeshVirtualNodeLogging' containing required fields as --- arguments. -appMeshVirtualNodeLogging - :: AppMeshVirtualNodeLogging -appMeshVirtualNodeLogging = - AppMeshVirtualNodeLogging - { _appMeshVirtualNodeLoggingAccessLog = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-logging.html#cfn-appmesh-virtualnode-logging-accesslog -amvnlAccessLog :: Lens' AppMeshVirtualNodeLogging (Maybe AppMeshVirtualNodeAccessLog) -amvnlAccessLog = lens _appMeshVirtualNodeLoggingAccessLog (\s a -> s { _appMeshVirtualNodeLoggingAccessLog = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodePortMapping.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodePortMapping.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodePortMapping.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-portmapping.html - -module Stratosphere.ResourceProperties.AppMeshVirtualNodePortMapping where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppMeshVirtualNodePortMapping. See --- 'appMeshVirtualNodePortMapping' for a more convenient constructor. -data AppMeshVirtualNodePortMapping = - AppMeshVirtualNodePortMapping - { _appMeshVirtualNodePortMappingPort :: Val Integer - , _appMeshVirtualNodePortMappingProtocol :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualNodePortMapping where - toJSON AppMeshVirtualNodePortMapping{..} = - object $ - catMaybes - [ (Just . ("Port",) . toJSON) _appMeshVirtualNodePortMappingPort - , (Just . ("Protocol",) . toJSON) _appMeshVirtualNodePortMappingProtocol - ] - --- | Constructor for 'AppMeshVirtualNodePortMapping' containing required --- fields as arguments. -appMeshVirtualNodePortMapping - :: Val Integer -- ^ 'amvnpmPort' - -> Val Text -- ^ 'amvnpmProtocol' - -> AppMeshVirtualNodePortMapping -appMeshVirtualNodePortMapping portarg protocolarg = - AppMeshVirtualNodePortMapping - { _appMeshVirtualNodePortMappingPort = portarg - , _appMeshVirtualNodePortMappingProtocol = protocolarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-portmapping.html#cfn-appmesh-virtualnode-portmapping-port -amvnpmPort :: Lens' AppMeshVirtualNodePortMapping (Val Integer) -amvnpmPort = lens _appMeshVirtualNodePortMappingPort (\s a -> s { _appMeshVirtualNodePortMappingPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-portmapping.html#cfn-appmesh-virtualnode-portmapping-protocol -amvnpmProtocol :: Lens' AppMeshVirtualNodePortMapping (Val Text) -amvnpmProtocol = lens _appMeshVirtualNodePortMappingProtocol (\s a -> s { _appMeshVirtualNodePortMappingProtocol = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeServiceDiscovery.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeServiceDiscovery.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeServiceDiscovery.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-servicediscovery.html - -module Stratosphere.ResourceProperties.AppMeshVirtualNodeServiceDiscovery where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualNodeAwsCloudMapServiceDiscovery -import Stratosphere.ResourceProperties.AppMeshVirtualNodeDnsServiceDiscovery - --- | Full data type definition for AppMeshVirtualNodeServiceDiscovery. See --- 'appMeshVirtualNodeServiceDiscovery' for a more convenient constructor. -data AppMeshVirtualNodeServiceDiscovery = - AppMeshVirtualNodeServiceDiscovery - { _appMeshVirtualNodeServiceDiscoveryAWSCloudMap :: Maybe AppMeshVirtualNodeAwsCloudMapServiceDiscovery - , _appMeshVirtualNodeServiceDiscoveryDNS :: Maybe AppMeshVirtualNodeDnsServiceDiscovery - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualNodeServiceDiscovery where - toJSON AppMeshVirtualNodeServiceDiscovery{..} = - object $ - catMaybes - [ fmap (("AWSCloudMap",) . toJSON) _appMeshVirtualNodeServiceDiscoveryAWSCloudMap - , fmap (("DNS",) . toJSON) _appMeshVirtualNodeServiceDiscoveryDNS - ] - --- | Constructor for 'AppMeshVirtualNodeServiceDiscovery' containing required --- fields as arguments. -appMeshVirtualNodeServiceDiscovery - :: AppMeshVirtualNodeServiceDiscovery -appMeshVirtualNodeServiceDiscovery = - AppMeshVirtualNodeServiceDiscovery - { _appMeshVirtualNodeServiceDiscoveryAWSCloudMap = Nothing - , _appMeshVirtualNodeServiceDiscoveryDNS = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-servicediscovery.html#cfn-appmesh-virtualnode-servicediscovery-awscloudmap -amvnsdAWSCloudMap :: Lens' AppMeshVirtualNodeServiceDiscovery (Maybe AppMeshVirtualNodeAwsCloudMapServiceDiscovery) -amvnsdAWSCloudMap = lens _appMeshVirtualNodeServiceDiscoveryAWSCloudMap (\s a -> s { _appMeshVirtualNodeServiceDiscoveryAWSCloudMap = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-servicediscovery.html#cfn-appmesh-virtualnode-servicediscovery-dns -amvnsdDNS :: Lens' AppMeshVirtualNodeServiceDiscovery (Maybe AppMeshVirtualNodeDnsServiceDiscovery) -amvnsdDNS = lens _appMeshVirtualNodeServiceDiscoveryDNS (\s a -> s { _appMeshVirtualNodeServiceDiscoveryDNS = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeTcpTimeout.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeTcpTimeout.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeTcpTimeout.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-tcptimeout.html - -module Stratosphere.ResourceProperties.AppMeshVirtualNodeTcpTimeout where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualNodeDuration - --- | Full data type definition for AppMeshVirtualNodeTcpTimeout. See --- 'appMeshVirtualNodeTcpTimeout' for a more convenient constructor. -data AppMeshVirtualNodeTcpTimeout = - AppMeshVirtualNodeTcpTimeout - { _appMeshVirtualNodeTcpTimeoutIdle :: Maybe AppMeshVirtualNodeDuration - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualNodeTcpTimeout where - toJSON AppMeshVirtualNodeTcpTimeout{..} = - object $ - catMaybes - [ fmap (("Idle",) . toJSON) _appMeshVirtualNodeTcpTimeoutIdle - ] - --- | Constructor for 'AppMeshVirtualNodeTcpTimeout' containing required fields --- as arguments. -appMeshVirtualNodeTcpTimeout - :: AppMeshVirtualNodeTcpTimeout -appMeshVirtualNodeTcpTimeout = - AppMeshVirtualNodeTcpTimeout - { _appMeshVirtualNodeTcpTimeoutIdle = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-tcptimeout.html#cfn-appmesh-virtualnode-tcptimeout-idle -amvnttIdle :: Lens' AppMeshVirtualNodeTcpTimeout (Maybe AppMeshVirtualNodeDuration) -amvnttIdle = lens _appMeshVirtualNodeTcpTimeoutIdle (\s a -> s { _appMeshVirtualNodeTcpTimeoutIdle = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeTlsValidationContext.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeTlsValidationContext.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeTlsValidationContext.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-tlsvalidationcontext.html - -module Stratosphere.ResourceProperties.AppMeshVirtualNodeTlsValidationContext where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualNodeTlsValidationContextTrust - --- | Full data type definition for AppMeshVirtualNodeTlsValidationContext. See --- 'appMeshVirtualNodeTlsValidationContext' for a more convenient --- constructor. -data AppMeshVirtualNodeTlsValidationContext = - AppMeshVirtualNodeTlsValidationContext - { _appMeshVirtualNodeTlsValidationContextTrust :: AppMeshVirtualNodeTlsValidationContextTrust - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualNodeTlsValidationContext where - toJSON AppMeshVirtualNodeTlsValidationContext{..} = - object $ - catMaybes - [ (Just . ("Trust",) . toJSON) _appMeshVirtualNodeTlsValidationContextTrust - ] - --- | Constructor for 'AppMeshVirtualNodeTlsValidationContext' containing --- required fields as arguments. -appMeshVirtualNodeTlsValidationContext - :: AppMeshVirtualNodeTlsValidationContextTrust -- ^ 'amvntvcTrust' - -> AppMeshVirtualNodeTlsValidationContext -appMeshVirtualNodeTlsValidationContext trustarg = - AppMeshVirtualNodeTlsValidationContext - { _appMeshVirtualNodeTlsValidationContextTrust = trustarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-tlsvalidationcontext.html#cfn-appmesh-virtualnode-tlsvalidationcontext-trust -amvntvcTrust :: Lens' AppMeshVirtualNodeTlsValidationContext AppMeshVirtualNodeTlsValidationContextTrust -amvntvcTrust = lens _appMeshVirtualNodeTlsValidationContextTrust (\s a -> s { _appMeshVirtualNodeTlsValidationContextTrust = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeTlsValidationContextAcmTrust.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeTlsValidationContextAcmTrust.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeTlsValidationContextAcmTrust.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-tlsvalidationcontextacmtrust.html - -module Stratosphere.ResourceProperties.AppMeshVirtualNodeTlsValidationContextAcmTrust where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- AppMeshVirtualNodeTlsValidationContextAcmTrust. See --- 'appMeshVirtualNodeTlsValidationContextAcmTrust' for a more convenient --- constructor. -data AppMeshVirtualNodeTlsValidationContextAcmTrust = - AppMeshVirtualNodeTlsValidationContextAcmTrust - { _appMeshVirtualNodeTlsValidationContextAcmTrustCertificateAuthorityArns :: ValList Text - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualNodeTlsValidationContextAcmTrust where - toJSON AppMeshVirtualNodeTlsValidationContextAcmTrust{..} = - object $ - catMaybes - [ (Just . ("CertificateAuthorityArns",) . toJSON) _appMeshVirtualNodeTlsValidationContextAcmTrustCertificateAuthorityArns - ] - --- | Constructor for 'AppMeshVirtualNodeTlsValidationContextAcmTrust' --- containing required fields as arguments. -appMeshVirtualNodeTlsValidationContextAcmTrust - :: ValList Text -- ^ 'amvntvcatCertificateAuthorityArns' - -> AppMeshVirtualNodeTlsValidationContextAcmTrust -appMeshVirtualNodeTlsValidationContextAcmTrust certificateAuthorityArnsarg = - AppMeshVirtualNodeTlsValidationContextAcmTrust - { _appMeshVirtualNodeTlsValidationContextAcmTrustCertificateAuthorityArns = certificateAuthorityArnsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-tlsvalidationcontextacmtrust.html#cfn-appmesh-virtualnode-tlsvalidationcontextacmtrust-certificateauthorityarns -amvntvcatCertificateAuthorityArns :: Lens' AppMeshVirtualNodeTlsValidationContextAcmTrust (ValList Text) -amvntvcatCertificateAuthorityArns = lens _appMeshVirtualNodeTlsValidationContextAcmTrustCertificateAuthorityArns (\s a -> s { _appMeshVirtualNodeTlsValidationContextAcmTrustCertificateAuthorityArns = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeTlsValidationContextFileTrust.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeTlsValidationContextFileTrust.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeTlsValidationContextFileTrust.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-tlsvalidationcontextfiletrust.html - -module Stratosphere.ResourceProperties.AppMeshVirtualNodeTlsValidationContextFileTrust where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- AppMeshVirtualNodeTlsValidationContextFileTrust. See --- 'appMeshVirtualNodeTlsValidationContextFileTrust' for a more convenient --- constructor. -data AppMeshVirtualNodeTlsValidationContextFileTrust = - AppMeshVirtualNodeTlsValidationContextFileTrust - { _appMeshVirtualNodeTlsValidationContextFileTrustCertificateChain :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualNodeTlsValidationContextFileTrust where - toJSON AppMeshVirtualNodeTlsValidationContextFileTrust{..} = - object $ - catMaybes - [ (Just . ("CertificateChain",) . toJSON) _appMeshVirtualNodeTlsValidationContextFileTrustCertificateChain - ] - --- | Constructor for 'AppMeshVirtualNodeTlsValidationContextFileTrust' --- containing required fields as arguments. -appMeshVirtualNodeTlsValidationContextFileTrust - :: Val Text -- ^ 'amvntvcftCertificateChain' - -> AppMeshVirtualNodeTlsValidationContextFileTrust -appMeshVirtualNodeTlsValidationContextFileTrust certificateChainarg = - AppMeshVirtualNodeTlsValidationContextFileTrust - { _appMeshVirtualNodeTlsValidationContextFileTrustCertificateChain = certificateChainarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-tlsvalidationcontextfiletrust.html#cfn-appmesh-virtualnode-tlsvalidationcontextfiletrust-certificatechain -amvntvcftCertificateChain :: Lens' AppMeshVirtualNodeTlsValidationContextFileTrust (Val Text) -amvntvcftCertificateChain = lens _appMeshVirtualNodeTlsValidationContextFileTrustCertificateChain (\s a -> s { _appMeshVirtualNodeTlsValidationContextFileTrustCertificateChain = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeTlsValidationContextTrust.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeTlsValidationContextTrust.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeTlsValidationContextTrust.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-tlsvalidationcontexttrust.html - -module Stratosphere.ResourceProperties.AppMeshVirtualNodeTlsValidationContextTrust where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualNodeTlsValidationContextAcmTrust -import Stratosphere.ResourceProperties.AppMeshVirtualNodeTlsValidationContextFileTrust - --- | Full data type definition for --- AppMeshVirtualNodeTlsValidationContextTrust. See --- 'appMeshVirtualNodeTlsValidationContextTrust' for a more convenient --- constructor. -data AppMeshVirtualNodeTlsValidationContextTrust = - AppMeshVirtualNodeTlsValidationContextTrust - { _appMeshVirtualNodeTlsValidationContextTrustACM :: Maybe AppMeshVirtualNodeTlsValidationContextAcmTrust - , _appMeshVirtualNodeTlsValidationContextTrustFile :: Maybe AppMeshVirtualNodeTlsValidationContextFileTrust - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualNodeTlsValidationContextTrust where - toJSON AppMeshVirtualNodeTlsValidationContextTrust{..} = - object $ - catMaybes - [ fmap (("ACM",) . toJSON) _appMeshVirtualNodeTlsValidationContextTrustACM - , fmap (("File",) . toJSON) _appMeshVirtualNodeTlsValidationContextTrustFile - ] - --- | Constructor for 'AppMeshVirtualNodeTlsValidationContextTrust' containing --- required fields as arguments. -appMeshVirtualNodeTlsValidationContextTrust - :: AppMeshVirtualNodeTlsValidationContextTrust -appMeshVirtualNodeTlsValidationContextTrust = - AppMeshVirtualNodeTlsValidationContextTrust - { _appMeshVirtualNodeTlsValidationContextTrustACM = Nothing - , _appMeshVirtualNodeTlsValidationContextTrustFile = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-tlsvalidationcontexttrust.html#cfn-appmesh-virtualnode-tlsvalidationcontexttrust-acm -amvntvctACM :: Lens' AppMeshVirtualNodeTlsValidationContextTrust (Maybe AppMeshVirtualNodeTlsValidationContextAcmTrust) -amvntvctACM = lens _appMeshVirtualNodeTlsValidationContextTrustACM (\s a -> s { _appMeshVirtualNodeTlsValidationContextTrustACM = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-tlsvalidationcontexttrust.html#cfn-appmesh-virtualnode-tlsvalidationcontexttrust-file -amvntvctFile :: Lens' AppMeshVirtualNodeTlsValidationContextTrust (Maybe AppMeshVirtualNodeTlsValidationContextFileTrust) -amvntvctFile = lens _appMeshVirtualNodeTlsValidationContextTrustFile (\s a -> s { _appMeshVirtualNodeTlsValidationContextTrustFile = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeVirtualNodeSpec.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeVirtualNodeSpec.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeVirtualNodeSpec.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-virtualnodespec.html - -module Stratosphere.ResourceProperties.AppMeshVirtualNodeVirtualNodeSpec where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualNodeBackendDefaults -import Stratosphere.ResourceProperties.AppMeshVirtualNodeBackend -import Stratosphere.ResourceProperties.AppMeshVirtualNodeListener -import Stratosphere.ResourceProperties.AppMeshVirtualNodeLogging -import Stratosphere.ResourceProperties.AppMeshVirtualNodeServiceDiscovery - --- | Full data type definition for AppMeshVirtualNodeVirtualNodeSpec. See --- 'appMeshVirtualNodeVirtualNodeSpec' for a more convenient constructor. -data AppMeshVirtualNodeVirtualNodeSpec = - AppMeshVirtualNodeVirtualNodeSpec - { _appMeshVirtualNodeVirtualNodeSpecBackendDefaults :: Maybe AppMeshVirtualNodeBackendDefaults - , _appMeshVirtualNodeVirtualNodeSpecBackends :: Maybe [AppMeshVirtualNodeBackend] - , _appMeshVirtualNodeVirtualNodeSpecListeners :: Maybe [AppMeshVirtualNodeListener] - , _appMeshVirtualNodeVirtualNodeSpecLogging :: Maybe AppMeshVirtualNodeLogging - , _appMeshVirtualNodeVirtualNodeSpecServiceDiscovery :: Maybe AppMeshVirtualNodeServiceDiscovery - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualNodeVirtualNodeSpec where - toJSON AppMeshVirtualNodeVirtualNodeSpec{..} = - object $ - catMaybes - [ fmap (("BackendDefaults",) . toJSON) _appMeshVirtualNodeVirtualNodeSpecBackendDefaults - , fmap (("Backends",) . toJSON) _appMeshVirtualNodeVirtualNodeSpecBackends - , fmap (("Listeners",) . toJSON) _appMeshVirtualNodeVirtualNodeSpecListeners - , fmap (("Logging",) . toJSON) _appMeshVirtualNodeVirtualNodeSpecLogging - , fmap (("ServiceDiscovery",) . toJSON) _appMeshVirtualNodeVirtualNodeSpecServiceDiscovery - ] - --- | Constructor for 'AppMeshVirtualNodeVirtualNodeSpec' containing required --- fields as arguments. -appMeshVirtualNodeVirtualNodeSpec - :: AppMeshVirtualNodeVirtualNodeSpec -appMeshVirtualNodeVirtualNodeSpec = - AppMeshVirtualNodeVirtualNodeSpec - { _appMeshVirtualNodeVirtualNodeSpecBackendDefaults = Nothing - , _appMeshVirtualNodeVirtualNodeSpecBackends = Nothing - , _appMeshVirtualNodeVirtualNodeSpecListeners = Nothing - , _appMeshVirtualNodeVirtualNodeSpecLogging = Nothing - , _appMeshVirtualNodeVirtualNodeSpecServiceDiscovery = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-virtualnodespec.html#cfn-appmesh-virtualnode-virtualnodespec-backenddefaults -amvnvnsBackendDefaults :: Lens' AppMeshVirtualNodeVirtualNodeSpec (Maybe AppMeshVirtualNodeBackendDefaults) -amvnvnsBackendDefaults = lens _appMeshVirtualNodeVirtualNodeSpecBackendDefaults (\s a -> s { _appMeshVirtualNodeVirtualNodeSpecBackendDefaults = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-virtualnodespec.html#cfn-appmesh-virtualnode-virtualnodespec-backends -amvnvnsBackends :: Lens' AppMeshVirtualNodeVirtualNodeSpec (Maybe [AppMeshVirtualNodeBackend]) -amvnvnsBackends = lens _appMeshVirtualNodeVirtualNodeSpecBackends (\s a -> s { _appMeshVirtualNodeVirtualNodeSpecBackends = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-virtualnodespec.html#cfn-appmesh-virtualnode-virtualnodespec-listeners -amvnvnsListeners :: Lens' AppMeshVirtualNodeVirtualNodeSpec (Maybe [AppMeshVirtualNodeListener]) -amvnvnsListeners = lens _appMeshVirtualNodeVirtualNodeSpecListeners (\s a -> s { _appMeshVirtualNodeVirtualNodeSpecListeners = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-virtualnodespec.html#cfn-appmesh-virtualnode-virtualnodespec-logging -amvnvnsLogging :: Lens' AppMeshVirtualNodeVirtualNodeSpec (Maybe AppMeshVirtualNodeLogging) -amvnvnsLogging = lens _appMeshVirtualNodeVirtualNodeSpecLogging (\s a -> s { _appMeshVirtualNodeVirtualNodeSpecLogging = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-virtualnodespec.html#cfn-appmesh-virtualnode-virtualnodespec-servicediscovery -amvnvnsServiceDiscovery :: Lens' AppMeshVirtualNodeVirtualNodeSpec (Maybe AppMeshVirtualNodeServiceDiscovery) -amvnvnsServiceDiscovery = lens _appMeshVirtualNodeVirtualNodeSpecServiceDiscovery (\s a -> s { _appMeshVirtualNodeVirtualNodeSpecServiceDiscovery = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeVirtualServiceBackend.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeVirtualServiceBackend.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeVirtualServiceBackend.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-virtualservicebackend.html - -module Stratosphere.ResourceProperties.AppMeshVirtualNodeVirtualServiceBackend where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualNodeClientPolicy - --- | Full data type definition for AppMeshVirtualNodeVirtualServiceBackend. --- See 'appMeshVirtualNodeVirtualServiceBackend' for a more convenient --- constructor. -data AppMeshVirtualNodeVirtualServiceBackend = - AppMeshVirtualNodeVirtualServiceBackend - { _appMeshVirtualNodeVirtualServiceBackendClientPolicy :: Maybe AppMeshVirtualNodeClientPolicy - , _appMeshVirtualNodeVirtualServiceBackendVirtualServiceName :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualNodeVirtualServiceBackend where - toJSON AppMeshVirtualNodeVirtualServiceBackend{..} = - object $ - catMaybes - [ fmap (("ClientPolicy",) . toJSON) _appMeshVirtualNodeVirtualServiceBackendClientPolicy - , (Just . ("VirtualServiceName",) . toJSON) _appMeshVirtualNodeVirtualServiceBackendVirtualServiceName - ] - --- | Constructor for 'AppMeshVirtualNodeVirtualServiceBackend' containing --- required fields as arguments. -appMeshVirtualNodeVirtualServiceBackend - :: Val Text -- ^ 'amvnvsbVirtualServiceName' - -> AppMeshVirtualNodeVirtualServiceBackend -appMeshVirtualNodeVirtualServiceBackend virtualServiceNamearg = - AppMeshVirtualNodeVirtualServiceBackend - { _appMeshVirtualNodeVirtualServiceBackendClientPolicy = Nothing - , _appMeshVirtualNodeVirtualServiceBackendVirtualServiceName = virtualServiceNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-virtualservicebackend.html#cfn-appmesh-virtualnode-virtualservicebackend-clientpolicy -amvnvsbClientPolicy :: Lens' AppMeshVirtualNodeVirtualServiceBackend (Maybe AppMeshVirtualNodeClientPolicy) -amvnvsbClientPolicy = lens _appMeshVirtualNodeVirtualServiceBackendClientPolicy (\s a -> s { _appMeshVirtualNodeVirtualServiceBackendClientPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-virtualservicebackend.html#cfn-appmesh-virtualnode-virtualservicebackend-virtualservicename -amvnvsbVirtualServiceName :: Lens' AppMeshVirtualNodeVirtualServiceBackend (Val Text) -amvnvsbVirtualServiceName = lens _appMeshVirtualNodeVirtualServiceBackendVirtualServiceName (\s a -> s { _appMeshVirtualNodeVirtualServiceBackendVirtualServiceName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualRouterPortMapping.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualRouterPortMapping.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualRouterPortMapping.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualrouter-portmapping.html - -module Stratosphere.ResourceProperties.AppMeshVirtualRouterPortMapping where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppMeshVirtualRouterPortMapping. See --- 'appMeshVirtualRouterPortMapping' for a more convenient constructor. -data AppMeshVirtualRouterPortMapping = - AppMeshVirtualRouterPortMapping - { _appMeshVirtualRouterPortMappingPort :: Val Integer - , _appMeshVirtualRouterPortMappingProtocol :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualRouterPortMapping where - toJSON AppMeshVirtualRouterPortMapping{..} = - object $ - catMaybes - [ (Just . ("Port",) . toJSON) _appMeshVirtualRouterPortMappingPort - , (Just . ("Protocol",) . toJSON) _appMeshVirtualRouterPortMappingProtocol - ] - --- | Constructor for 'AppMeshVirtualRouterPortMapping' containing required --- fields as arguments. -appMeshVirtualRouterPortMapping - :: Val Integer -- ^ 'amvrpmPort' - -> Val Text -- ^ 'amvrpmProtocol' - -> AppMeshVirtualRouterPortMapping -appMeshVirtualRouterPortMapping portarg protocolarg = - AppMeshVirtualRouterPortMapping - { _appMeshVirtualRouterPortMappingPort = portarg - , _appMeshVirtualRouterPortMappingProtocol = protocolarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualrouter-portmapping.html#cfn-appmesh-virtualrouter-portmapping-port -amvrpmPort :: Lens' AppMeshVirtualRouterPortMapping (Val Integer) -amvrpmPort = lens _appMeshVirtualRouterPortMappingPort (\s a -> s { _appMeshVirtualRouterPortMappingPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualrouter-portmapping.html#cfn-appmesh-virtualrouter-portmapping-protocol -amvrpmProtocol :: Lens' AppMeshVirtualRouterPortMapping (Val Text) -amvrpmProtocol = lens _appMeshVirtualRouterPortMappingProtocol (\s a -> s { _appMeshVirtualRouterPortMappingProtocol = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualRouterVirtualRouterListener.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualRouterVirtualRouterListener.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualRouterVirtualRouterListener.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualrouter-virtualrouterlistener.html - -module Stratosphere.ResourceProperties.AppMeshVirtualRouterVirtualRouterListener where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualRouterPortMapping - --- | Full data type definition for AppMeshVirtualRouterVirtualRouterListener. --- See 'appMeshVirtualRouterVirtualRouterListener' for a more convenient --- constructor. -data AppMeshVirtualRouterVirtualRouterListener = - AppMeshVirtualRouterVirtualRouterListener - { _appMeshVirtualRouterVirtualRouterListenerPortMapping :: AppMeshVirtualRouterPortMapping - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualRouterVirtualRouterListener where - toJSON AppMeshVirtualRouterVirtualRouterListener{..} = - object $ - catMaybes - [ (Just . ("PortMapping",) . toJSON) _appMeshVirtualRouterVirtualRouterListenerPortMapping - ] - --- | Constructor for 'AppMeshVirtualRouterVirtualRouterListener' containing --- required fields as arguments. -appMeshVirtualRouterVirtualRouterListener - :: AppMeshVirtualRouterPortMapping -- ^ 'amvrvrlPortMapping' - -> AppMeshVirtualRouterVirtualRouterListener -appMeshVirtualRouterVirtualRouterListener portMappingarg = - AppMeshVirtualRouterVirtualRouterListener - { _appMeshVirtualRouterVirtualRouterListenerPortMapping = portMappingarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualrouter-virtualrouterlistener.html#cfn-appmesh-virtualrouter-virtualrouterlistener-portmapping -amvrvrlPortMapping :: Lens' AppMeshVirtualRouterVirtualRouterListener AppMeshVirtualRouterPortMapping -amvrvrlPortMapping = lens _appMeshVirtualRouterVirtualRouterListenerPortMapping (\s a -> s { _appMeshVirtualRouterVirtualRouterListenerPortMapping = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualRouterVirtualRouterSpec.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualRouterVirtualRouterSpec.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualRouterVirtualRouterSpec.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualrouter-virtualrouterspec.html - -module Stratosphere.ResourceProperties.AppMeshVirtualRouterVirtualRouterSpec where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualRouterVirtualRouterListener - --- | Full data type definition for AppMeshVirtualRouterVirtualRouterSpec. See --- 'appMeshVirtualRouterVirtualRouterSpec' for a more convenient --- constructor. -data AppMeshVirtualRouterVirtualRouterSpec = - AppMeshVirtualRouterVirtualRouterSpec - { _appMeshVirtualRouterVirtualRouterSpecListeners :: [AppMeshVirtualRouterVirtualRouterListener] - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualRouterVirtualRouterSpec where - toJSON AppMeshVirtualRouterVirtualRouterSpec{..} = - object $ - catMaybes - [ (Just . ("Listeners",) . toJSON) _appMeshVirtualRouterVirtualRouterSpecListeners - ] - --- | Constructor for 'AppMeshVirtualRouterVirtualRouterSpec' containing --- required fields as arguments. -appMeshVirtualRouterVirtualRouterSpec - :: [AppMeshVirtualRouterVirtualRouterListener] -- ^ 'amvrvrsListeners' - -> AppMeshVirtualRouterVirtualRouterSpec -appMeshVirtualRouterVirtualRouterSpec listenersarg = - AppMeshVirtualRouterVirtualRouterSpec - { _appMeshVirtualRouterVirtualRouterSpecListeners = listenersarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualrouter-virtualrouterspec.html#cfn-appmesh-virtualrouter-virtualrouterspec-listeners -amvrvrsListeners :: Lens' AppMeshVirtualRouterVirtualRouterSpec [AppMeshVirtualRouterVirtualRouterListener] -amvrvrsListeners = lens _appMeshVirtualRouterVirtualRouterSpecListeners (\s a -> s { _appMeshVirtualRouterVirtualRouterSpecListeners = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualServiceVirtualNodeServiceProvider.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualServiceVirtualNodeServiceProvider.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualServiceVirtualNodeServiceProvider.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualservice-virtualnodeserviceprovider.html - -module Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualNodeServiceProvider where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- AppMeshVirtualServiceVirtualNodeServiceProvider. See --- 'appMeshVirtualServiceVirtualNodeServiceProvider' for a more convenient --- constructor. -data AppMeshVirtualServiceVirtualNodeServiceProvider = - AppMeshVirtualServiceVirtualNodeServiceProvider - { _appMeshVirtualServiceVirtualNodeServiceProviderVirtualNodeName :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualServiceVirtualNodeServiceProvider where - toJSON AppMeshVirtualServiceVirtualNodeServiceProvider{..} = - object $ - catMaybes - [ (Just . ("VirtualNodeName",) . toJSON) _appMeshVirtualServiceVirtualNodeServiceProviderVirtualNodeName - ] - --- | Constructor for 'AppMeshVirtualServiceVirtualNodeServiceProvider' --- containing required fields as arguments. -appMeshVirtualServiceVirtualNodeServiceProvider - :: Val Text -- ^ 'amvsvnspVirtualNodeName' - -> AppMeshVirtualServiceVirtualNodeServiceProvider -appMeshVirtualServiceVirtualNodeServiceProvider virtualNodeNamearg = - AppMeshVirtualServiceVirtualNodeServiceProvider - { _appMeshVirtualServiceVirtualNodeServiceProviderVirtualNodeName = virtualNodeNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualservice-virtualnodeserviceprovider.html#cfn-appmesh-virtualservice-virtualnodeserviceprovider-virtualnodename -amvsvnspVirtualNodeName :: Lens' AppMeshVirtualServiceVirtualNodeServiceProvider (Val Text) -amvsvnspVirtualNodeName = lens _appMeshVirtualServiceVirtualNodeServiceProviderVirtualNodeName (\s a -> s { _appMeshVirtualServiceVirtualNodeServiceProviderVirtualNodeName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualServiceVirtualRouterServiceProvider.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualServiceVirtualRouterServiceProvider.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualServiceVirtualRouterServiceProvider.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualservice-virtualrouterserviceprovider.html - -module Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualRouterServiceProvider where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- AppMeshVirtualServiceVirtualRouterServiceProvider. See --- 'appMeshVirtualServiceVirtualRouterServiceProvider' for a more convenient --- constructor. -data AppMeshVirtualServiceVirtualRouterServiceProvider = - AppMeshVirtualServiceVirtualRouterServiceProvider - { _appMeshVirtualServiceVirtualRouterServiceProviderVirtualRouterName :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualServiceVirtualRouterServiceProvider where - toJSON AppMeshVirtualServiceVirtualRouterServiceProvider{..} = - object $ - catMaybes - [ (Just . ("VirtualRouterName",) . toJSON) _appMeshVirtualServiceVirtualRouterServiceProviderVirtualRouterName - ] - --- | Constructor for 'AppMeshVirtualServiceVirtualRouterServiceProvider' --- containing required fields as arguments. -appMeshVirtualServiceVirtualRouterServiceProvider - :: Val Text -- ^ 'amvsvrspVirtualRouterName' - -> AppMeshVirtualServiceVirtualRouterServiceProvider -appMeshVirtualServiceVirtualRouterServiceProvider virtualRouterNamearg = - AppMeshVirtualServiceVirtualRouterServiceProvider - { _appMeshVirtualServiceVirtualRouterServiceProviderVirtualRouterName = virtualRouterNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualservice-virtualrouterserviceprovider.html#cfn-appmesh-virtualservice-virtualrouterserviceprovider-virtualroutername -amvsvrspVirtualRouterName :: Lens' AppMeshVirtualServiceVirtualRouterServiceProvider (Val Text) -amvsvrspVirtualRouterName = lens _appMeshVirtualServiceVirtualRouterServiceProviderVirtualRouterName (\s a -> s { _appMeshVirtualServiceVirtualRouterServiceProviderVirtualRouterName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualServiceVirtualServiceProvider.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualServiceVirtualServiceProvider.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualServiceVirtualServiceProvider.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualservice-virtualserviceprovider.html - -module Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualServiceProvider where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualNodeServiceProvider -import Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualRouterServiceProvider - --- | Full data type definition for --- AppMeshVirtualServiceVirtualServiceProvider. See --- 'appMeshVirtualServiceVirtualServiceProvider' for a more convenient --- constructor. -data AppMeshVirtualServiceVirtualServiceProvider = - AppMeshVirtualServiceVirtualServiceProvider - { _appMeshVirtualServiceVirtualServiceProviderVirtualNode :: Maybe AppMeshVirtualServiceVirtualNodeServiceProvider - , _appMeshVirtualServiceVirtualServiceProviderVirtualRouter :: Maybe AppMeshVirtualServiceVirtualRouterServiceProvider - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualServiceVirtualServiceProvider where - toJSON AppMeshVirtualServiceVirtualServiceProvider{..} = - object $ - catMaybes - [ fmap (("VirtualNode",) . toJSON) _appMeshVirtualServiceVirtualServiceProviderVirtualNode - , fmap (("VirtualRouter",) . toJSON) _appMeshVirtualServiceVirtualServiceProviderVirtualRouter - ] - --- | Constructor for 'AppMeshVirtualServiceVirtualServiceProvider' containing --- required fields as arguments. -appMeshVirtualServiceVirtualServiceProvider - :: AppMeshVirtualServiceVirtualServiceProvider -appMeshVirtualServiceVirtualServiceProvider = - AppMeshVirtualServiceVirtualServiceProvider - { _appMeshVirtualServiceVirtualServiceProviderVirtualNode = Nothing - , _appMeshVirtualServiceVirtualServiceProviderVirtualRouter = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualservice-virtualserviceprovider.html#cfn-appmesh-virtualservice-virtualserviceprovider-virtualnode -amvsvspVirtualNode :: Lens' AppMeshVirtualServiceVirtualServiceProvider (Maybe AppMeshVirtualServiceVirtualNodeServiceProvider) -amvsvspVirtualNode = lens _appMeshVirtualServiceVirtualServiceProviderVirtualNode (\s a -> s { _appMeshVirtualServiceVirtualServiceProviderVirtualNode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualservice-virtualserviceprovider.html#cfn-appmesh-virtualservice-virtualserviceprovider-virtualrouter -amvsvspVirtualRouter :: Lens' AppMeshVirtualServiceVirtualServiceProvider (Maybe AppMeshVirtualServiceVirtualRouterServiceProvider) -amvsvspVirtualRouter = lens _appMeshVirtualServiceVirtualServiceProviderVirtualRouter (\s a -> s { _appMeshVirtualServiceVirtualServiceProviderVirtualRouter = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualServiceVirtualServiceSpec.hs b/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualServiceVirtualServiceSpec.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppMeshVirtualServiceVirtualServiceSpec.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualservice-virtualservicespec.html - -module Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualServiceSpec where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualServiceProvider - --- | Full data type definition for AppMeshVirtualServiceVirtualServiceSpec. --- See 'appMeshVirtualServiceVirtualServiceSpec' for a more convenient --- constructor. -data AppMeshVirtualServiceVirtualServiceSpec = - AppMeshVirtualServiceVirtualServiceSpec - { _appMeshVirtualServiceVirtualServiceSpecProvider :: Maybe AppMeshVirtualServiceVirtualServiceProvider - } deriving (Show, Eq) - -instance ToJSON AppMeshVirtualServiceVirtualServiceSpec where - toJSON AppMeshVirtualServiceVirtualServiceSpec{..} = - object $ - catMaybes - [ fmap (("Provider",) . toJSON) _appMeshVirtualServiceVirtualServiceSpecProvider - ] - --- | Constructor for 'AppMeshVirtualServiceVirtualServiceSpec' containing --- required fields as arguments. -appMeshVirtualServiceVirtualServiceSpec - :: AppMeshVirtualServiceVirtualServiceSpec -appMeshVirtualServiceVirtualServiceSpec = - AppMeshVirtualServiceVirtualServiceSpec - { _appMeshVirtualServiceVirtualServiceSpecProvider = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualservice-virtualservicespec.html#cfn-appmesh-virtualservice-virtualservicespec-provider -amvsvssProvider :: Lens' AppMeshVirtualServiceVirtualServiceSpec (Maybe AppMeshVirtualServiceVirtualServiceProvider) -amvsvssProvider = lens _appMeshVirtualServiceVirtualServiceSpecProvider (\s a -> s { _appMeshVirtualServiceVirtualServiceSpecProvider = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppStreamDirectoryConfigServiceAccountCredentials.hs b/library-gen/Stratosphere/ResourceProperties/AppStreamDirectoryConfigServiceAccountCredentials.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppStreamDirectoryConfigServiceAccountCredentials.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-directoryconfig-serviceaccountcredentials.html - -module Stratosphere.ResourceProperties.AppStreamDirectoryConfigServiceAccountCredentials where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- AppStreamDirectoryConfigServiceAccountCredentials. See --- 'appStreamDirectoryConfigServiceAccountCredentials' for a more convenient --- constructor. -data AppStreamDirectoryConfigServiceAccountCredentials = - AppStreamDirectoryConfigServiceAccountCredentials - { _appStreamDirectoryConfigServiceAccountCredentialsAccountName :: Val Text - , _appStreamDirectoryConfigServiceAccountCredentialsAccountPassword :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppStreamDirectoryConfigServiceAccountCredentials where - toJSON AppStreamDirectoryConfigServiceAccountCredentials{..} = - object $ - catMaybes - [ (Just . ("AccountName",) . toJSON) _appStreamDirectoryConfigServiceAccountCredentialsAccountName - , (Just . ("AccountPassword",) . toJSON) _appStreamDirectoryConfigServiceAccountCredentialsAccountPassword - ] - --- | Constructor for 'AppStreamDirectoryConfigServiceAccountCredentials' --- containing required fields as arguments. -appStreamDirectoryConfigServiceAccountCredentials - :: Val Text -- ^ 'asdcsacAccountName' - -> Val Text -- ^ 'asdcsacAccountPassword' - -> AppStreamDirectoryConfigServiceAccountCredentials -appStreamDirectoryConfigServiceAccountCredentials accountNamearg accountPasswordarg = - AppStreamDirectoryConfigServiceAccountCredentials - { _appStreamDirectoryConfigServiceAccountCredentialsAccountName = accountNamearg - , _appStreamDirectoryConfigServiceAccountCredentialsAccountPassword = accountPasswordarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-directoryconfig-serviceaccountcredentials.html#cfn-appstream-directoryconfig-serviceaccountcredentials-accountname -asdcsacAccountName :: Lens' AppStreamDirectoryConfigServiceAccountCredentials (Val Text) -asdcsacAccountName = lens _appStreamDirectoryConfigServiceAccountCredentialsAccountName (\s a -> s { _appStreamDirectoryConfigServiceAccountCredentialsAccountName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-directoryconfig-serviceaccountcredentials.html#cfn-appstream-directoryconfig-serviceaccountcredentials-accountpassword -asdcsacAccountPassword :: Lens' AppStreamDirectoryConfigServiceAccountCredentials (Val Text) -asdcsacAccountPassword = lens _appStreamDirectoryConfigServiceAccountCredentialsAccountPassword (\s a -> s { _appStreamDirectoryConfigServiceAccountCredentialsAccountPassword = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppStreamFleetComputeCapacity.hs b/library-gen/Stratosphere/ResourceProperties/AppStreamFleetComputeCapacity.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppStreamFleetComputeCapacity.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-fleet-computecapacity.html - -module Stratosphere.ResourceProperties.AppStreamFleetComputeCapacity where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppStreamFleetComputeCapacity. See --- 'appStreamFleetComputeCapacity' for a more convenient constructor. -data AppStreamFleetComputeCapacity = - AppStreamFleetComputeCapacity - { _appStreamFleetComputeCapacityDesiredInstances :: Val Integer - } deriving (Show, Eq) - -instance ToJSON AppStreamFleetComputeCapacity where - toJSON AppStreamFleetComputeCapacity{..} = - object $ - catMaybes - [ (Just . ("DesiredInstances",) . toJSON) _appStreamFleetComputeCapacityDesiredInstances - ] - --- | Constructor for 'AppStreamFleetComputeCapacity' containing required --- fields as arguments. -appStreamFleetComputeCapacity - :: Val Integer -- ^ 'asfccDesiredInstances' - -> AppStreamFleetComputeCapacity -appStreamFleetComputeCapacity desiredInstancesarg = - AppStreamFleetComputeCapacity - { _appStreamFleetComputeCapacityDesiredInstances = desiredInstancesarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-fleet-computecapacity.html#cfn-appstream-fleet-computecapacity-desiredinstances -asfccDesiredInstances :: Lens' AppStreamFleetComputeCapacity (Val Integer) -asfccDesiredInstances = lens _appStreamFleetComputeCapacityDesiredInstances (\s a -> s { _appStreamFleetComputeCapacityDesiredInstances = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppStreamFleetDomainJoinInfo.hs b/library-gen/Stratosphere/ResourceProperties/AppStreamFleetDomainJoinInfo.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppStreamFleetDomainJoinInfo.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-fleet-domainjoininfo.html - -module Stratosphere.ResourceProperties.AppStreamFleetDomainJoinInfo where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppStreamFleetDomainJoinInfo. See --- 'appStreamFleetDomainJoinInfo' for a more convenient constructor. -data AppStreamFleetDomainJoinInfo = - AppStreamFleetDomainJoinInfo - { _appStreamFleetDomainJoinInfoDirectoryName :: Maybe (Val Text) - , _appStreamFleetDomainJoinInfoOrganizationalUnitDistinguishedName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AppStreamFleetDomainJoinInfo where - toJSON AppStreamFleetDomainJoinInfo{..} = - object $ - catMaybes - [ fmap (("DirectoryName",) . toJSON) _appStreamFleetDomainJoinInfoDirectoryName - , fmap (("OrganizationalUnitDistinguishedName",) . toJSON) _appStreamFleetDomainJoinInfoOrganizationalUnitDistinguishedName - ] - --- | Constructor for 'AppStreamFleetDomainJoinInfo' containing required fields --- as arguments. -appStreamFleetDomainJoinInfo - :: AppStreamFleetDomainJoinInfo -appStreamFleetDomainJoinInfo = - AppStreamFleetDomainJoinInfo - { _appStreamFleetDomainJoinInfoDirectoryName = Nothing - , _appStreamFleetDomainJoinInfoOrganizationalUnitDistinguishedName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-fleet-domainjoininfo.html#cfn-appstream-fleet-domainjoininfo-directoryname -asfdjiDirectoryName :: Lens' AppStreamFleetDomainJoinInfo (Maybe (Val Text)) -asfdjiDirectoryName = lens _appStreamFleetDomainJoinInfoDirectoryName (\s a -> s { _appStreamFleetDomainJoinInfoDirectoryName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-fleet-domainjoininfo.html#cfn-appstream-fleet-domainjoininfo-organizationalunitdistinguishedname -asfdjiOrganizationalUnitDistinguishedName :: Lens' AppStreamFleetDomainJoinInfo (Maybe (Val Text)) -asfdjiOrganizationalUnitDistinguishedName = lens _appStreamFleetDomainJoinInfoOrganizationalUnitDistinguishedName (\s a -> s { _appStreamFleetDomainJoinInfoOrganizationalUnitDistinguishedName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppStreamFleetVpcConfig.hs b/library-gen/Stratosphere/ResourceProperties/AppStreamFleetVpcConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppStreamFleetVpcConfig.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-fleet-vpcconfig.html - -module Stratosphere.ResourceProperties.AppStreamFleetVpcConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppStreamFleetVpcConfig. See --- 'appStreamFleetVpcConfig' for a more convenient constructor. -data AppStreamFleetVpcConfig = - AppStreamFleetVpcConfig - { _appStreamFleetVpcConfigSecurityGroupIds :: Maybe (ValList Text) - , _appStreamFleetVpcConfigSubnetIds :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON AppStreamFleetVpcConfig where - toJSON AppStreamFleetVpcConfig{..} = - object $ - catMaybes - [ fmap (("SecurityGroupIds",) . toJSON) _appStreamFleetVpcConfigSecurityGroupIds - , fmap (("SubnetIds",) . toJSON) _appStreamFleetVpcConfigSubnetIds - ] - --- | Constructor for 'AppStreamFleetVpcConfig' containing required fields as --- arguments. -appStreamFleetVpcConfig - :: AppStreamFleetVpcConfig -appStreamFleetVpcConfig = - AppStreamFleetVpcConfig - { _appStreamFleetVpcConfigSecurityGroupIds = Nothing - , _appStreamFleetVpcConfigSubnetIds = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-fleet-vpcconfig.html#cfn-appstream-fleet-vpcconfig-securitygroupids -asfvcSecurityGroupIds :: Lens' AppStreamFleetVpcConfig (Maybe (ValList Text)) -asfvcSecurityGroupIds = lens _appStreamFleetVpcConfigSecurityGroupIds (\s a -> s { _appStreamFleetVpcConfigSecurityGroupIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-fleet-vpcconfig.html#cfn-appstream-fleet-vpcconfig-subnetids -asfvcSubnetIds :: Lens' AppStreamFleetVpcConfig (Maybe (ValList Text)) -asfvcSubnetIds = lens _appStreamFleetVpcConfigSubnetIds (\s a -> s { _appStreamFleetVpcConfigSubnetIds = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppStreamImageBuilderAccessEndpoint.hs b/library-gen/Stratosphere/ResourceProperties/AppStreamImageBuilderAccessEndpoint.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppStreamImageBuilderAccessEndpoint.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-imagebuilder-accessendpoint.html - -module Stratosphere.ResourceProperties.AppStreamImageBuilderAccessEndpoint where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppStreamImageBuilderAccessEndpoint. See --- 'appStreamImageBuilderAccessEndpoint' for a more convenient constructor. -data AppStreamImageBuilderAccessEndpoint = - AppStreamImageBuilderAccessEndpoint - { _appStreamImageBuilderAccessEndpointEndpointType :: Val Text - , _appStreamImageBuilderAccessEndpointVpceId :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppStreamImageBuilderAccessEndpoint where - toJSON AppStreamImageBuilderAccessEndpoint{..} = - object $ - catMaybes - [ (Just . ("EndpointType",) . toJSON) _appStreamImageBuilderAccessEndpointEndpointType - , (Just . ("VpceId",) . toJSON) _appStreamImageBuilderAccessEndpointVpceId - ] - --- | Constructor for 'AppStreamImageBuilderAccessEndpoint' containing required --- fields as arguments. -appStreamImageBuilderAccessEndpoint - :: Val Text -- ^ 'asibaeEndpointType' - -> Val Text -- ^ 'asibaeVpceId' - -> AppStreamImageBuilderAccessEndpoint -appStreamImageBuilderAccessEndpoint endpointTypearg vpceIdarg = - AppStreamImageBuilderAccessEndpoint - { _appStreamImageBuilderAccessEndpointEndpointType = endpointTypearg - , _appStreamImageBuilderAccessEndpointVpceId = vpceIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-imagebuilder-accessendpoint.html#cfn-appstream-imagebuilder-accessendpoint-endpointtype -asibaeEndpointType :: Lens' AppStreamImageBuilderAccessEndpoint (Val Text) -asibaeEndpointType = lens _appStreamImageBuilderAccessEndpointEndpointType (\s a -> s { _appStreamImageBuilderAccessEndpointEndpointType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-imagebuilder-accessendpoint.html#cfn-appstream-imagebuilder-accessendpoint-vpceid -asibaeVpceId :: Lens' AppStreamImageBuilderAccessEndpoint (Val Text) -asibaeVpceId = lens _appStreamImageBuilderAccessEndpointVpceId (\s a -> s { _appStreamImageBuilderAccessEndpointVpceId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppStreamImageBuilderDomainJoinInfo.hs b/library-gen/Stratosphere/ResourceProperties/AppStreamImageBuilderDomainJoinInfo.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppStreamImageBuilderDomainJoinInfo.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-imagebuilder-domainjoininfo.html - -module Stratosphere.ResourceProperties.AppStreamImageBuilderDomainJoinInfo where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppStreamImageBuilderDomainJoinInfo. See --- 'appStreamImageBuilderDomainJoinInfo' for a more convenient constructor. -data AppStreamImageBuilderDomainJoinInfo = - AppStreamImageBuilderDomainJoinInfo - { _appStreamImageBuilderDomainJoinInfoDirectoryName :: Maybe (Val Text) - , _appStreamImageBuilderDomainJoinInfoOrganizationalUnitDistinguishedName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AppStreamImageBuilderDomainJoinInfo where - toJSON AppStreamImageBuilderDomainJoinInfo{..} = - object $ - catMaybes - [ fmap (("DirectoryName",) . toJSON) _appStreamImageBuilderDomainJoinInfoDirectoryName - , fmap (("OrganizationalUnitDistinguishedName",) . toJSON) _appStreamImageBuilderDomainJoinInfoOrganizationalUnitDistinguishedName - ] - --- | Constructor for 'AppStreamImageBuilderDomainJoinInfo' containing required --- fields as arguments. -appStreamImageBuilderDomainJoinInfo - :: AppStreamImageBuilderDomainJoinInfo -appStreamImageBuilderDomainJoinInfo = - AppStreamImageBuilderDomainJoinInfo - { _appStreamImageBuilderDomainJoinInfoDirectoryName = Nothing - , _appStreamImageBuilderDomainJoinInfoOrganizationalUnitDistinguishedName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-imagebuilder-domainjoininfo.html#cfn-appstream-imagebuilder-domainjoininfo-directoryname -asibdjiDirectoryName :: Lens' AppStreamImageBuilderDomainJoinInfo (Maybe (Val Text)) -asibdjiDirectoryName = lens _appStreamImageBuilderDomainJoinInfoDirectoryName (\s a -> s { _appStreamImageBuilderDomainJoinInfoDirectoryName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-imagebuilder-domainjoininfo.html#cfn-appstream-imagebuilder-domainjoininfo-organizationalunitdistinguishedname -asibdjiOrganizationalUnitDistinguishedName :: Lens' AppStreamImageBuilderDomainJoinInfo (Maybe (Val Text)) -asibdjiOrganizationalUnitDistinguishedName = lens _appStreamImageBuilderDomainJoinInfoOrganizationalUnitDistinguishedName (\s a -> s { _appStreamImageBuilderDomainJoinInfoOrganizationalUnitDistinguishedName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppStreamImageBuilderVpcConfig.hs b/library-gen/Stratosphere/ResourceProperties/AppStreamImageBuilderVpcConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppStreamImageBuilderVpcConfig.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-imagebuilder-vpcconfig.html - -module Stratosphere.ResourceProperties.AppStreamImageBuilderVpcConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppStreamImageBuilderVpcConfig. See --- 'appStreamImageBuilderVpcConfig' for a more convenient constructor. -data AppStreamImageBuilderVpcConfig = - AppStreamImageBuilderVpcConfig - { _appStreamImageBuilderVpcConfigSecurityGroupIds :: Maybe (ValList Text) - , _appStreamImageBuilderVpcConfigSubnetIds :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON AppStreamImageBuilderVpcConfig where - toJSON AppStreamImageBuilderVpcConfig{..} = - object $ - catMaybes - [ fmap (("SecurityGroupIds",) . toJSON) _appStreamImageBuilderVpcConfigSecurityGroupIds - , fmap (("SubnetIds",) . toJSON) _appStreamImageBuilderVpcConfigSubnetIds - ] - --- | Constructor for 'AppStreamImageBuilderVpcConfig' containing required --- fields as arguments. -appStreamImageBuilderVpcConfig - :: AppStreamImageBuilderVpcConfig -appStreamImageBuilderVpcConfig = - AppStreamImageBuilderVpcConfig - { _appStreamImageBuilderVpcConfigSecurityGroupIds = Nothing - , _appStreamImageBuilderVpcConfigSubnetIds = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-imagebuilder-vpcconfig.html#cfn-appstream-imagebuilder-vpcconfig-securitygroupids -asibvcSecurityGroupIds :: Lens' AppStreamImageBuilderVpcConfig (Maybe (ValList Text)) -asibvcSecurityGroupIds = lens _appStreamImageBuilderVpcConfigSecurityGroupIds (\s a -> s { _appStreamImageBuilderVpcConfigSecurityGroupIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-imagebuilder-vpcconfig.html#cfn-appstream-imagebuilder-vpcconfig-subnetids -asibvcSubnetIds :: Lens' AppStreamImageBuilderVpcConfig (Maybe (ValList Text)) -asibvcSubnetIds = lens _appStreamImageBuilderVpcConfigSubnetIds (\s a -> s { _appStreamImageBuilderVpcConfigSubnetIds = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppStreamStackAccessEndpoint.hs b/library-gen/Stratosphere/ResourceProperties/AppStreamStackAccessEndpoint.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppStreamStackAccessEndpoint.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-stack-accessendpoint.html - -module Stratosphere.ResourceProperties.AppStreamStackAccessEndpoint where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppStreamStackAccessEndpoint. See --- 'appStreamStackAccessEndpoint' for a more convenient constructor. -data AppStreamStackAccessEndpoint = - AppStreamStackAccessEndpoint - { _appStreamStackAccessEndpointEndpointType :: Val Text - , _appStreamStackAccessEndpointVpceId :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppStreamStackAccessEndpoint where - toJSON AppStreamStackAccessEndpoint{..} = - object $ - catMaybes - [ (Just . ("EndpointType",) . toJSON) _appStreamStackAccessEndpointEndpointType - , (Just . ("VpceId",) . toJSON) _appStreamStackAccessEndpointVpceId - ] - --- | Constructor for 'AppStreamStackAccessEndpoint' containing required fields --- as arguments. -appStreamStackAccessEndpoint - :: Val Text -- ^ 'assaeEndpointType' - -> Val Text -- ^ 'assaeVpceId' - -> AppStreamStackAccessEndpoint -appStreamStackAccessEndpoint endpointTypearg vpceIdarg = - AppStreamStackAccessEndpoint - { _appStreamStackAccessEndpointEndpointType = endpointTypearg - , _appStreamStackAccessEndpointVpceId = vpceIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-stack-accessendpoint.html#cfn-appstream-stack-accessendpoint-endpointtype -assaeEndpointType :: Lens' AppStreamStackAccessEndpoint (Val Text) -assaeEndpointType = lens _appStreamStackAccessEndpointEndpointType (\s a -> s { _appStreamStackAccessEndpointEndpointType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-stack-accessendpoint.html#cfn-appstream-stack-accessendpoint-vpceid -assaeVpceId :: Lens' AppStreamStackAccessEndpoint (Val Text) -assaeVpceId = lens _appStreamStackAccessEndpointVpceId (\s a -> s { _appStreamStackAccessEndpointVpceId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppStreamStackApplicationSettings.hs b/library-gen/Stratosphere/ResourceProperties/AppStreamStackApplicationSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppStreamStackApplicationSettings.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-stack-applicationsettings.html - -module Stratosphere.ResourceProperties.AppStreamStackApplicationSettings where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppStreamStackApplicationSettings. See --- 'appStreamStackApplicationSettings' for a more convenient constructor. -data AppStreamStackApplicationSettings = - AppStreamStackApplicationSettings - { _appStreamStackApplicationSettingsEnabled :: Val Bool - , _appStreamStackApplicationSettingsSettingsGroup :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AppStreamStackApplicationSettings where - toJSON AppStreamStackApplicationSettings{..} = - object $ - catMaybes - [ (Just . ("Enabled",) . toJSON) _appStreamStackApplicationSettingsEnabled - , fmap (("SettingsGroup",) . toJSON) _appStreamStackApplicationSettingsSettingsGroup - ] - --- | Constructor for 'AppStreamStackApplicationSettings' containing required --- fields as arguments. -appStreamStackApplicationSettings - :: Val Bool -- ^ 'assasEnabled' - -> AppStreamStackApplicationSettings -appStreamStackApplicationSettings enabledarg = - AppStreamStackApplicationSettings - { _appStreamStackApplicationSettingsEnabled = enabledarg - , _appStreamStackApplicationSettingsSettingsGroup = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-stack-applicationsettings.html#cfn-appstream-stack-applicationsettings-enabled -assasEnabled :: Lens' AppStreamStackApplicationSettings (Val Bool) -assasEnabled = lens _appStreamStackApplicationSettingsEnabled (\s a -> s { _appStreamStackApplicationSettingsEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-stack-applicationsettings.html#cfn-appstream-stack-applicationsettings-settingsgroup -assasSettingsGroup :: Lens' AppStreamStackApplicationSettings (Maybe (Val Text)) -assasSettingsGroup = lens _appStreamStackApplicationSettingsSettingsGroup (\s a -> s { _appStreamStackApplicationSettingsSettingsGroup = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppStreamStackStorageConnector.hs b/library-gen/Stratosphere/ResourceProperties/AppStreamStackStorageConnector.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppStreamStackStorageConnector.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-stack-storageconnector.html - -module Stratosphere.ResourceProperties.AppStreamStackStorageConnector where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppStreamStackStorageConnector. See --- 'appStreamStackStorageConnector' for a more convenient constructor. -data AppStreamStackStorageConnector = - AppStreamStackStorageConnector - { _appStreamStackStorageConnectorConnectorType :: Val Text - , _appStreamStackStorageConnectorDomains :: Maybe (ValList Text) - , _appStreamStackStorageConnectorResourceIdentifier :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AppStreamStackStorageConnector where - toJSON AppStreamStackStorageConnector{..} = - object $ - catMaybes - [ (Just . ("ConnectorType",) . toJSON) _appStreamStackStorageConnectorConnectorType - , fmap (("Domains",) . toJSON) _appStreamStackStorageConnectorDomains - , fmap (("ResourceIdentifier",) . toJSON) _appStreamStackStorageConnectorResourceIdentifier - ] - --- | Constructor for 'AppStreamStackStorageConnector' containing required --- fields as arguments. -appStreamStackStorageConnector - :: Val Text -- ^ 'assscConnectorType' - -> AppStreamStackStorageConnector -appStreamStackStorageConnector connectorTypearg = - AppStreamStackStorageConnector - { _appStreamStackStorageConnectorConnectorType = connectorTypearg - , _appStreamStackStorageConnectorDomains = Nothing - , _appStreamStackStorageConnectorResourceIdentifier = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-stack-storageconnector.html#cfn-appstream-stack-storageconnector-connectortype -assscConnectorType :: Lens' AppStreamStackStorageConnector (Val Text) -assscConnectorType = lens _appStreamStackStorageConnectorConnectorType (\s a -> s { _appStreamStackStorageConnectorConnectorType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-stack-storageconnector.html#cfn-appstream-stack-storageconnector-domains -assscDomains :: Lens' AppStreamStackStorageConnector (Maybe (ValList Text)) -assscDomains = lens _appStreamStackStorageConnectorDomains (\s a -> s { _appStreamStackStorageConnectorDomains = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-stack-storageconnector.html#cfn-appstream-stack-storageconnector-resourceidentifier -assscResourceIdentifier :: Lens' AppStreamStackStorageConnector (Maybe (Val Text)) -assscResourceIdentifier = lens _appStreamStackStorageConnectorResourceIdentifier (\s a -> s { _appStreamStackStorageConnectorResourceIdentifier = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppStreamStackUserSetting.hs b/library-gen/Stratosphere/ResourceProperties/AppStreamStackUserSetting.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppStreamStackUserSetting.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-stack-usersetting.html - -module Stratosphere.ResourceProperties.AppStreamStackUserSetting where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppStreamStackUserSetting. See --- 'appStreamStackUserSetting' for a more convenient constructor. -data AppStreamStackUserSetting = - AppStreamStackUserSetting - { _appStreamStackUserSettingAction :: Val Text - , _appStreamStackUserSettingPermission :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppStreamStackUserSetting where - toJSON AppStreamStackUserSetting{..} = - object $ - catMaybes - [ (Just . ("Action",) . toJSON) _appStreamStackUserSettingAction - , (Just . ("Permission",) . toJSON) _appStreamStackUserSettingPermission - ] - --- | Constructor for 'AppStreamStackUserSetting' containing required fields as --- arguments. -appStreamStackUserSetting - :: Val Text -- ^ 'assusAction' - -> Val Text -- ^ 'assusPermission' - -> AppStreamStackUserSetting -appStreamStackUserSetting actionarg permissionarg = - AppStreamStackUserSetting - { _appStreamStackUserSettingAction = actionarg - , _appStreamStackUserSettingPermission = permissionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-stack-usersetting.html#cfn-appstream-stack-usersetting-action -assusAction :: Lens' AppStreamStackUserSetting (Val Text) -assusAction = lens _appStreamStackUserSettingAction (\s a -> s { _appStreamStackUserSettingAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appstream-stack-usersetting.html#cfn-appstream-stack-usersetting-permission -assusPermission :: Lens' AppStreamStackUserSetting (Val Text) -assusPermission = lens _appStreamStackUserSettingPermission (\s a -> s { _appStreamStackUserSettingPermission = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceAuthorizationConfig.hs b/library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceAuthorizationConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceAuthorizationConfig.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-authorizationconfig.html - -module Stratosphere.ResourceProperties.AppSyncDataSourceAuthorizationConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppSyncDataSourceAwsIamConfig - --- | Full data type definition for AppSyncDataSourceAuthorizationConfig. See --- 'appSyncDataSourceAuthorizationConfig' for a more convenient constructor. -data AppSyncDataSourceAuthorizationConfig = - AppSyncDataSourceAuthorizationConfig - { _appSyncDataSourceAuthorizationConfigAuthorizationType :: Val Text - , _appSyncDataSourceAuthorizationConfigAwsIamConfig :: Maybe AppSyncDataSourceAwsIamConfig - } deriving (Show, Eq) - -instance ToJSON AppSyncDataSourceAuthorizationConfig where - toJSON AppSyncDataSourceAuthorizationConfig{..} = - object $ - catMaybes - [ (Just . ("AuthorizationType",) . toJSON) _appSyncDataSourceAuthorizationConfigAuthorizationType - , fmap (("AwsIamConfig",) . toJSON) _appSyncDataSourceAuthorizationConfigAwsIamConfig - ] - --- | Constructor for 'AppSyncDataSourceAuthorizationConfig' containing --- required fields as arguments. -appSyncDataSourceAuthorizationConfig - :: Val Text -- ^ 'asdsacAuthorizationType' - -> AppSyncDataSourceAuthorizationConfig -appSyncDataSourceAuthorizationConfig authorizationTypearg = - AppSyncDataSourceAuthorizationConfig - { _appSyncDataSourceAuthorizationConfigAuthorizationType = authorizationTypearg - , _appSyncDataSourceAuthorizationConfigAwsIamConfig = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-authorizationconfig.html#cfn-appsync-datasource-authorizationconfig-authorizationtype -asdsacAuthorizationType :: Lens' AppSyncDataSourceAuthorizationConfig (Val Text) -asdsacAuthorizationType = lens _appSyncDataSourceAuthorizationConfigAuthorizationType (\s a -> s { _appSyncDataSourceAuthorizationConfigAuthorizationType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-authorizationconfig.html#cfn-appsync-datasource-authorizationconfig-awsiamconfig -asdsacAwsIamConfig :: Lens' AppSyncDataSourceAuthorizationConfig (Maybe AppSyncDataSourceAwsIamConfig) -asdsacAwsIamConfig = lens _appSyncDataSourceAuthorizationConfigAwsIamConfig (\s a -> s { _appSyncDataSourceAuthorizationConfigAwsIamConfig = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceAwsIamConfig.hs b/library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceAwsIamConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceAwsIamConfig.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-awsiamconfig.html - -module Stratosphere.ResourceProperties.AppSyncDataSourceAwsIamConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppSyncDataSourceAwsIamConfig. See --- 'appSyncDataSourceAwsIamConfig' for a more convenient constructor. -data AppSyncDataSourceAwsIamConfig = - AppSyncDataSourceAwsIamConfig - { _appSyncDataSourceAwsIamConfigSigningRegion :: Maybe (Val Text) - , _appSyncDataSourceAwsIamConfigSigningServiceName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AppSyncDataSourceAwsIamConfig where - toJSON AppSyncDataSourceAwsIamConfig{..} = - object $ - catMaybes - [ fmap (("SigningRegion",) . toJSON) _appSyncDataSourceAwsIamConfigSigningRegion - , fmap (("SigningServiceName",) . toJSON) _appSyncDataSourceAwsIamConfigSigningServiceName - ] - --- | Constructor for 'AppSyncDataSourceAwsIamConfig' containing required --- fields as arguments. -appSyncDataSourceAwsIamConfig - :: AppSyncDataSourceAwsIamConfig -appSyncDataSourceAwsIamConfig = - AppSyncDataSourceAwsIamConfig - { _appSyncDataSourceAwsIamConfigSigningRegion = Nothing - , _appSyncDataSourceAwsIamConfigSigningServiceName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-awsiamconfig.html#cfn-appsync-datasource-awsiamconfig-signingregion -asdsaicSigningRegion :: Lens' AppSyncDataSourceAwsIamConfig (Maybe (Val Text)) -asdsaicSigningRegion = lens _appSyncDataSourceAwsIamConfigSigningRegion (\s a -> s { _appSyncDataSourceAwsIamConfigSigningRegion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-awsiamconfig.html#cfn-appsync-datasource-awsiamconfig-signingservicename -asdsaicSigningServiceName :: Lens' AppSyncDataSourceAwsIamConfig (Maybe (Val Text)) -asdsaicSigningServiceName = lens _appSyncDataSourceAwsIamConfigSigningServiceName (\s a -> s { _appSyncDataSourceAwsIamConfigSigningServiceName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceDeltaSyncConfig.hs b/library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceDeltaSyncConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceDeltaSyncConfig.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-deltasyncconfig.html - -module Stratosphere.ResourceProperties.AppSyncDataSourceDeltaSyncConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppSyncDataSourceDeltaSyncConfig. See --- 'appSyncDataSourceDeltaSyncConfig' for a more convenient constructor. -data AppSyncDataSourceDeltaSyncConfig = - AppSyncDataSourceDeltaSyncConfig - { _appSyncDataSourceDeltaSyncConfigBaseTableTTL :: Val Text - , _appSyncDataSourceDeltaSyncConfigDeltaSyncTableName :: Val Text - , _appSyncDataSourceDeltaSyncConfigDeltaSyncTableTTL :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppSyncDataSourceDeltaSyncConfig where - toJSON AppSyncDataSourceDeltaSyncConfig{..} = - object $ - catMaybes - [ (Just . ("BaseTableTTL",) . toJSON) _appSyncDataSourceDeltaSyncConfigBaseTableTTL - , (Just . ("DeltaSyncTableName",) . toJSON) _appSyncDataSourceDeltaSyncConfigDeltaSyncTableName - , (Just . ("DeltaSyncTableTTL",) . toJSON) _appSyncDataSourceDeltaSyncConfigDeltaSyncTableTTL - ] - --- | Constructor for 'AppSyncDataSourceDeltaSyncConfig' containing required --- fields as arguments. -appSyncDataSourceDeltaSyncConfig - :: Val Text -- ^ 'asdsdscBaseTableTTL' - -> Val Text -- ^ 'asdsdscDeltaSyncTableName' - -> Val Text -- ^ 'asdsdscDeltaSyncTableTTL' - -> AppSyncDataSourceDeltaSyncConfig -appSyncDataSourceDeltaSyncConfig baseTableTTLarg deltaSyncTableNamearg deltaSyncTableTTLarg = - AppSyncDataSourceDeltaSyncConfig - { _appSyncDataSourceDeltaSyncConfigBaseTableTTL = baseTableTTLarg - , _appSyncDataSourceDeltaSyncConfigDeltaSyncTableName = deltaSyncTableNamearg - , _appSyncDataSourceDeltaSyncConfigDeltaSyncTableTTL = deltaSyncTableTTLarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-deltasyncconfig.html#cfn-appsync-datasource-deltasyncconfig-basetablettl -asdsdscBaseTableTTL :: Lens' AppSyncDataSourceDeltaSyncConfig (Val Text) -asdsdscBaseTableTTL = lens _appSyncDataSourceDeltaSyncConfigBaseTableTTL (\s a -> s { _appSyncDataSourceDeltaSyncConfigBaseTableTTL = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-deltasyncconfig.html#cfn-appsync-datasource-deltasyncconfig-deltasynctablename -asdsdscDeltaSyncTableName :: Lens' AppSyncDataSourceDeltaSyncConfig (Val Text) -asdsdscDeltaSyncTableName = lens _appSyncDataSourceDeltaSyncConfigDeltaSyncTableName (\s a -> s { _appSyncDataSourceDeltaSyncConfigDeltaSyncTableName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-deltasyncconfig.html#cfn-appsync-datasource-deltasyncconfig-deltasynctablettl -asdsdscDeltaSyncTableTTL :: Lens' AppSyncDataSourceDeltaSyncConfig (Val Text) -asdsdscDeltaSyncTableTTL = lens _appSyncDataSourceDeltaSyncConfigDeltaSyncTableTTL (\s a -> s { _appSyncDataSourceDeltaSyncConfigDeltaSyncTableTTL = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceDynamoDBConfig.hs b/library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceDynamoDBConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceDynamoDBConfig.hs +++ /dev/null @@ -1,68 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-dynamodbconfig.html - -module Stratosphere.ResourceProperties.AppSyncDataSourceDynamoDBConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppSyncDataSourceDeltaSyncConfig - --- | Full data type definition for AppSyncDataSourceDynamoDBConfig. See --- 'appSyncDataSourceDynamoDBConfig' for a more convenient constructor. -data AppSyncDataSourceDynamoDBConfig = - AppSyncDataSourceDynamoDBConfig - { _appSyncDataSourceDynamoDBConfigAwsRegion :: Val Text - , _appSyncDataSourceDynamoDBConfigDeltaSyncConfig :: Maybe AppSyncDataSourceDeltaSyncConfig - , _appSyncDataSourceDynamoDBConfigTableName :: Val Text - , _appSyncDataSourceDynamoDBConfigUseCallerCredentials :: Maybe (Val Bool) - , _appSyncDataSourceDynamoDBConfigVersioned :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON AppSyncDataSourceDynamoDBConfig where - toJSON AppSyncDataSourceDynamoDBConfig{..} = - object $ - catMaybes - [ (Just . ("AwsRegion",) . toJSON) _appSyncDataSourceDynamoDBConfigAwsRegion - , fmap (("DeltaSyncConfig",) . toJSON) _appSyncDataSourceDynamoDBConfigDeltaSyncConfig - , (Just . ("TableName",) . toJSON) _appSyncDataSourceDynamoDBConfigTableName - , fmap (("UseCallerCredentials",) . toJSON) _appSyncDataSourceDynamoDBConfigUseCallerCredentials - , fmap (("Versioned",) . toJSON) _appSyncDataSourceDynamoDBConfigVersioned - ] - --- | Constructor for 'AppSyncDataSourceDynamoDBConfig' containing required --- fields as arguments. -appSyncDataSourceDynamoDBConfig - :: Val Text -- ^ 'asdsddbcAwsRegion' - -> Val Text -- ^ 'asdsddbcTableName' - -> AppSyncDataSourceDynamoDBConfig -appSyncDataSourceDynamoDBConfig awsRegionarg tableNamearg = - AppSyncDataSourceDynamoDBConfig - { _appSyncDataSourceDynamoDBConfigAwsRegion = awsRegionarg - , _appSyncDataSourceDynamoDBConfigDeltaSyncConfig = Nothing - , _appSyncDataSourceDynamoDBConfigTableName = tableNamearg - , _appSyncDataSourceDynamoDBConfigUseCallerCredentials = Nothing - , _appSyncDataSourceDynamoDBConfigVersioned = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-dynamodbconfig.html#cfn-appsync-datasource-dynamodbconfig-awsregion -asdsddbcAwsRegion :: Lens' AppSyncDataSourceDynamoDBConfig (Val Text) -asdsddbcAwsRegion = lens _appSyncDataSourceDynamoDBConfigAwsRegion (\s a -> s { _appSyncDataSourceDynamoDBConfigAwsRegion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-dynamodbconfig.html#cfn-appsync-datasource-dynamodbconfig-deltasyncconfig -asdsddbcDeltaSyncConfig :: Lens' AppSyncDataSourceDynamoDBConfig (Maybe AppSyncDataSourceDeltaSyncConfig) -asdsddbcDeltaSyncConfig = lens _appSyncDataSourceDynamoDBConfigDeltaSyncConfig (\s a -> s { _appSyncDataSourceDynamoDBConfigDeltaSyncConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-dynamodbconfig.html#cfn-appsync-datasource-dynamodbconfig-tablename -asdsddbcTableName :: Lens' AppSyncDataSourceDynamoDBConfig (Val Text) -asdsddbcTableName = lens _appSyncDataSourceDynamoDBConfigTableName (\s a -> s { _appSyncDataSourceDynamoDBConfigTableName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-dynamodbconfig.html#cfn-appsync-datasource-dynamodbconfig-usecallercredentials -asdsddbcUseCallerCredentials :: Lens' AppSyncDataSourceDynamoDBConfig (Maybe (Val Bool)) -asdsddbcUseCallerCredentials = lens _appSyncDataSourceDynamoDBConfigUseCallerCredentials (\s a -> s { _appSyncDataSourceDynamoDBConfigUseCallerCredentials = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-dynamodbconfig.html#cfn-appsync-datasource-dynamodbconfig-versioned -asdsddbcVersioned :: Lens' AppSyncDataSourceDynamoDBConfig (Maybe (Val Bool)) -asdsddbcVersioned = lens _appSyncDataSourceDynamoDBConfigVersioned (\s a -> s { _appSyncDataSourceDynamoDBConfigVersioned = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceElasticsearchConfig.hs b/library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceElasticsearchConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceElasticsearchConfig.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-elasticsearchconfig.html - -module Stratosphere.ResourceProperties.AppSyncDataSourceElasticsearchConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppSyncDataSourceElasticsearchConfig. See --- 'appSyncDataSourceElasticsearchConfig' for a more convenient constructor. -data AppSyncDataSourceElasticsearchConfig = - AppSyncDataSourceElasticsearchConfig - { _appSyncDataSourceElasticsearchConfigAwsRegion :: Val Text - , _appSyncDataSourceElasticsearchConfigEndpoint :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppSyncDataSourceElasticsearchConfig where - toJSON AppSyncDataSourceElasticsearchConfig{..} = - object $ - catMaybes - [ (Just . ("AwsRegion",) . toJSON) _appSyncDataSourceElasticsearchConfigAwsRegion - , (Just . ("Endpoint",) . toJSON) _appSyncDataSourceElasticsearchConfigEndpoint - ] - --- | Constructor for 'AppSyncDataSourceElasticsearchConfig' containing --- required fields as arguments. -appSyncDataSourceElasticsearchConfig - :: Val Text -- ^ 'asdsecAwsRegion' - -> Val Text -- ^ 'asdsecEndpoint' - -> AppSyncDataSourceElasticsearchConfig -appSyncDataSourceElasticsearchConfig awsRegionarg endpointarg = - AppSyncDataSourceElasticsearchConfig - { _appSyncDataSourceElasticsearchConfigAwsRegion = awsRegionarg - , _appSyncDataSourceElasticsearchConfigEndpoint = endpointarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-elasticsearchconfig.html#cfn-appsync-datasource-elasticsearchconfig-awsregion -asdsecAwsRegion :: Lens' AppSyncDataSourceElasticsearchConfig (Val Text) -asdsecAwsRegion = lens _appSyncDataSourceElasticsearchConfigAwsRegion (\s a -> s { _appSyncDataSourceElasticsearchConfigAwsRegion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-elasticsearchconfig.html#cfn-appsync-datasource-elasticsearchconfig-endpoint -asdsecEndpoint :: Lens' AppSyncDataSourceElasticsearchConfig (Val Text) -asdsecEndpoint = lens _appSyncDataSourceElasticsearchConfigEndpoint (\s a -> s { _appSyncDataSourceElasticsearchConfigEndpoint = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceHttpConfig.hs b/library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceHttpConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceHttpConfig.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-httpconfig.html - -module Stratosphere.ResourceProperties.AppSyncDataSourceHttpConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppSyncDataSourceAuthorizationConfig - --- | Full data type definition for AppSyncDataSourceHttpConfig. See --- 'appSyncDataSourceHttpConfig' for a more convenient constructor. -data AppSyncDataSourceHttpConfig = - AppSyncDataSourceHttpConfig - { _appSyncDataSourceHttpConfigAuthorizationConfig :: Maybe AppSyncDataSourceAuthorizationConfig - , _appSyncDataSourceHttpConfigEndpoint :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppSyncDataSourceHttpConfig where - toJSON AppSyncDataSourceHttpConfig{..} = - object $ - catMaybes - [ fmap (("AuthorizationConfig",) . toJSON) _appSyncDataSourceHttpConfigAuthorizationConfig - , (Just . ("Endpoint",) . toJSON) _appSyncDataSourceHttpConfigEndpoint - ] - --- | Constructor for 'AppSyncDataSourceHttpConfig' containing required fields --- as arguments. -appSyncDataSourceHttpConfig - :: Val Text -- ^ 'asdshcEndpoint' - -> AppSyncDataSourceHttpConfig -appSyncDataSourceHttpConfig endpointarg = - AppSyncDataSourceHttpConfig - { _appSyncDataSourceHttpConfigAuthorizationConfig = Nothing - , _appSyncDataSourceHttpConfigEndpoint = endpointarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-httpconfig.html#cfn-appsync-datasource-httpconfig-authorizationconfig -asdshcAuthorizationConfig :: Lens' AppSyncDataSourceHttpConfig (Maybe AppSyncDataSourceAuthorizationConfig) -asdshcAuthorizationConfig = lens _appSyncDataSourceHttpConfigAuthorizationConfig (\s a -> s { _appSyncDataSourceHttpConfigAuthorizationConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-httpconfig.html#cfn-appsync-datasource-httpconfig-endpoint -asdshcEndpoint :: Lens' AppSyncDataSourceHttpConfig (Val Text) -asdshcEndpoint = lens _appSyncDataSourceHttpConfigEndpoint (\s a -> s { _appSyncDataSourceHttpConfigEndpoint = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceLambdaConfig.hs b/library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceLambdaConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceLambdaConfig.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-lambdaconfig.html - -module Stratosphere.ResourceProperties.AppSyncDataSourceLambdaConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppSyncDataSourceLambdaConfig. See --- 'appSyncDataSourceLambdaConfig' for a more convenient constructor. -data AppSyncDataSourceLambdaConfig = - AppSyncDataSourceLambdaConfig - { _appSyncDataSourceLambdaConfigLambdaFunctionArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppSyncDataSourceLambdaConfig where - toJSON AppSyncDataSourceLambdaConfig{..} = - object $ - catMaybes - [ (Just . ("LambdaFunctionArn",) . toJSON) _appSyncDataSourceLambdaConfigLambdaFunctionArn - ] - --- | Constructor for 'AppSyncDataSourceLambdaConfig' containing required --- fields as arguments. -appSyncDataSourceLambdaConfig - :: Val Text -- ^ 'asdslcLambdaFunctionArn' - -> AppSyncDataSourceLambdaConfig -appSyncDataSourceLambdaConfig lambdaFunctionArnarg = - AppSyncDataSourceLambdaConfig - { _appSyncDataSourceLambdaConfigLambdaFunctionArn = lambdaFunctionArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-lambdaconfig.html#cfn-appsync-datasource-lambdaconfig-lambdafunctionarn -asdslcLambdaFunctionArn :: Lens' AppSyncDataSourceLambdaConfig (Val Text) -asdslcLambdaFunctionArn = lens _appSyncDataSourceLambdaConfigLambdaFunctionArn (\s a -> s { _appSyncDataSourceLambdaConfigLambdaFunctionArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceRdsHttpEndpointConfig.hs b/library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceRdsHttpEndpointConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceRdsHttpEndpointConfig.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-rdshttpendpointconfig.html - -module Stratosphere.ResourceProperties.AppSyncDataSourceRdsHttpEndpointConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppSyncDataSourceRdsHttpEndpointConfig. See --- 'appSyncDataSourceRdsHttpEndpointConfig' for a more convenient --- constructor. -data AppSyncDataSourceRdsHttpEndpointConfig = - AppSyncDataSourceRdsHttpEndpointConfig - { _appSyncDataSourceRdsHttpEndpointConfigAwsRegion :: Val Text - , _appSyncDataSourceRdsHttpEndpointConfigAwsSecretStoreArn :: Val Text - , _appSyncDataSourceRdsHttpEndpointConfigDatabaseName :: Maybe (Val Text) - , _appSyncDataSourceRdsHttpEndpointConfigDbClusterIdentifier :: Val Text - , _appSyncDataSourceRdsHttpEndpointConfigSchema :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AppSyncDataSourceRdsHttpEndpointConfig where - toJSON AppSyncDataSourceRdsHttpEndpointConfig{..} = - object $ - catMaybes - [ (Just . ("AwsRegion",) . toJSON) _appSyncDataSourceRdsHttpEndpointConfigAwsRegion - , (Just . ("AwsSecretStoreArn",) . toJSON) _appSyncDataSourceRdsHttpEndpointConfigAwsSecretStoreArn - , fmap (("DatabaseName",) . toJSON) _appSyncDataSourceRdsHttpEndpointConfigDatabaseName - , (Just . ("DbClusterIdentifier",) . toJSON) _appSyncDataSourceRdsHttpEndpointConfigDbClusterIdentifier - , fmap (("Schema",) . toJSON) _appSyncDataSourceRdsHttpEndpointConfigSchema - ] - --- | Constructor for 'AppSyncDataSourceRdsHttpEndpointConfig' containing --- required fields as arguments. -appSyncDataSourceRdsHttpEndpointConfig - :: Val Text -- ^ 'asdsrhecAwsRegion' - -> Val Text -- ^ 'asdsrhecAwsSecretStoreArn' - -> Val Text -- ^ 'asdsrhecDbClusterIdentifier' - -> AppSyncDataSourceRdsHttpEndpointConfig -appSyncDataSourceRdsHttpEndpointConfig awsRegionarg awsSecretStoreArnarg dbClusterIdentifierarg = - AppSyncDataSourceRdsHttpEndpointConfig - { _appSyncDataSourceRdsHttpEndpointConfigAwsRegion = awsRegionarg - , _appSyncDataSourceRdsHttpEndpointConfigAwsSecretStoreArn = awsSecretStoreArnarg - , _appSyncDataSourceRdsHttpEndpointConfigDatabaseName = Nothing - , _appSyncDataSourceRdsHttpEndpointConfigDbClusterIdentifier = dbClusterIdentifierarg - , _appSyncDataSourceRdsHttpEndpointConfigSchema = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-rdshttpendpointconfig.html#cfn-appsync-datasource-rdshttpendpointconfig-awsregion -asdsrhecAwsRegion :: Lens' AppSyncDataSourceRdsHttpEndpointConfig (Val Text) -asdsrhecAwsRegion = lens _appSyncDataSourceRdsHttpEndpointConfigAwsRegion (\s a -> s { _appSyncDataSourceRdsHttpEndpointConfigAwsRegion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-rdshttpendpointconfig.html#cfn-appsync-datasource-rdshttpendpointconfig-awssecretstorearn -asdsrhecAwsSecretStoreArn :: Lens' AppSyncDataSourceRdsHttpEndpointConfig (Val Text) -asdsrhecAwsSecretStoreArn = lens _appSyncDataSourceRdsHttpEndpointConfigAwsSecretStoreArn (\s a -> s { _appSyncDataSourceRdsHttpEndpointConfigAwsSecretStoreArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-rdshttpendpointconfig.html#cfn-appsync-datasource-rdshttpendpointconfig-databasename -asdsrhecDatabaseName :: Lens' AppSyncDataSourceRdsHttpEndpointConfig (Maybe (Val Text)) -asdsrhecDatabaseName = lens _appSyncDataSourceRdsHttpEndpointConfigDatabaseName (\s a -> s { _appSyncDataSourceRdsHttpEndpointConfigDatabaseName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-rdshttpendpointconfig.html#cfn-appsync-datasource-rdshttpendpointconfig-dbclusteridentifier -asdsrhecDbClusterIdentifier :: Lens' AppSyncDataSourceRdsHttpEndpointConfig (Val Text) -asdsrhecDbClusterIdentifier = lens _appSyncDataSourceRdsHttpEndpointConfigDbClusterIdentifier (\s a -> s { _appSyncDataSourceRdsHttpEndpointConfigDbClusterIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-rdshttpendpointconfig.html#cfn-appsync-datasource-rdshttpendpointconfig-schema -asdsrhecSchema :: Lens' AppSyncDataSourceRdsHttpEndpointConfig (Maybe (Val Text)) -asdsrhecSchema = lens _appSyncDataSourceRdsHttpEndpointConfigSchema (\s a -> s { _appSyncDataSourceRdsHttpEndpointConfigSchema = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceRelationalDatabaseConfig.hs b/library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceRelationalDatabaseConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceRelationalDatabaseConfig.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-relationaldatabaseconfig.html - -module Stratosphere.ResourceProperties.AppSyncDataSourceRelationalDatabaseConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppSyncDataSourceRdsHttpEndpointConfig - --- | Full data type definition for AppSyncDataSourceRelationalDatabaseConfig. --- See 'appSyncDataSourceRelationalDatabaseConfig' for a more convenient --- constructor. -data AppSyncDataSourceRelationalDatabaseConfig = - AppSyncDataSourceRelationalDatabaseConfig - { _appSyncDataSourceRelationalDatabaseConfigRdsHttpEndpointConfig :: Maybe AppSyncDataSourceRdsHttpEndpointConfig - , _appSyncDataSourceRelationalDatabaseConfigRelationalDatabaseSourceType :: Val Text - } deriving (Show, Eq) - -instance ToJSON AppSyncDataSourceRelationalDatabaseConfig where - toJSON AppSyncDataSourceRelationalDatabaseConfig{..} = - object $ - catMaybes - [ fmap (("RdsHttpEndpointConfig",) . toJSON) _appSyncDataSourceRelationalDatabaseConfigRdsHttpEndpointConfig - , (Just . ("RelationalDatabaseSourceType",) . toJSON) _appSyncDataSourceRelationalDatabaseConfigRelationalDatabaseSourceType - ] - --- | Constructor for 'AppSyncDataSourceRelationalDatabaseConfig' containing --- required fields as arguments. -appSyncDataSourceRelationalDatabaseConfig - :: Val Text -- ^ 'asdsrdcRelationalDatabaseSourceType' - -> AppSyncDataSourceRelationalDatabaseConfig -appSyncDataSourceRelationalDatabaseConfig relationalDatabaseSourceTypearg = - AppSyncDataSourceRelationalDatabaseConfig - { _appSyncDataSourceRelationalDatabaseConfigRdsHttpEndpointConfig = Nothing - , _appSyncDataSourceRelationalDatabaseConfigRelationalDatabaseSourceType = relationalDatabaseSourceTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-relationaldatabaseconfig.html#cfn-appsync-datasource-relationaldatabaseconfig-rdshttpendpointconfig -asdsrdcRdsHttpEndpointConfig :: Lens' AppSyncDataSourceRelationalDatabaseConfig (Maybe AppSyncDataSourceRdsHttpEndpointConfig) -asdsrdcRdsHttpEndpointConfig = lens _appSyncDataSourceRelationalDatabaseConfigRdsHttpEndpointConfig (\s a -> s { _appSyncDataSourceRelationalDatabaseConfigRdsHttpEndpointConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-datasource-relationaldatabaseconfig.html#cfn-appsync-datasource-relationaldatabaseconfig-relationaldatabasesourcetype -asdsrdcRelationalDatabaseSourceType :: Lens' AppSyncDataSourceRelationalDatabaseConfig (Val Text) -asdsrdcRelationalDatabaseSourceType = lens _appSyncDataSourceRelationalDatabaseConfigRelationalDatabaseSourceType (\s a -> s { _appSyncDataSourceRelationalDatabaseConfigRelationalDatabaseSourceType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppSyncGraphQLApiAdditionalAuthenticationProvider.hs b/library-gen/Stratosphere/ResourceProperties/AppSyncGraphQLApiAdditionalAuthenticationProvider.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppSyncGraphQLApiAdditionalAuthenticationProvider.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-graphqlapi-additionalauthenticationprovider.html - -module Stratosphere.ResourceProperties.AppSyncGraphQLApiAdditionalAuthenticationProvider where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppSyncGraphQLApiOpenIDConnectConfig -import Stratosphere.ResourceProperties.AppSyncGraphQLApiCognitoUserPoolConfig - --- | Full data type definition for --- AppSyncGraphQLApiAdditionalAuthenticationProvider. See --- 'appSyncGraphQLApiAdditionalAuthenticationProvider' for a more convenient --- constructor. -data AppSyncGraphQLApiAdditionalAuthenticationProvider = - AppSyncGraphQLApiAdditionalAuthenticationProvider - { _appSyncGraphQLApiAdditionalAuthenticationProviderAuthenticationType :: Val Text - , _appSyncGraphQLApiAdditionalAuthenticationProviderOpenIDConnectConfig :: Maybe AppSyncGraphQLApiOpenIDConnectConfig - , _appSyncGraphQLApiAdditionalAuthenticationProviderUserPoolConfig :: Maybe AppSyncGraphQLApiCognitoUserPoolConfig - } deriving (Show, Eq) - -instance ToJSON AppSyncGraphQLApiAdditionalAuthenticationProvider where - toJSON AppSyncGraphQLApiAdditionalAuthenticationProvider{..} = - object $ - catMaybes - [ (Just . ("AuthenticationType",) . toJSON) _appSyncGraphQLApiAdditionalAuthenticationProviderAuthenticationType - , fmap (("OpenIDConnectConfig",) . toJSON) _appSyncGraphQLApiAdditionalAuthenticationProviderOpenIDConnectConfig - , fmap (("UserPoolConfig",) . toJSON) _appSyncGraphQLApiAdditionalAuthenticationProviderUserPoolConfig - ] - --- | Constructor for 'AppSyncGraphQLApiAdditionalAuthenticationProvider' --- containing required fields as arguments. -appSyncGraphQLApiAdditionalAuthenticationProvider - :: Val Text -- ^ 'asgqlaaapAuthenticationType' - -> AppSyncGraphQLApiAdditionalAuthenticationProvider -appSyncGraphQLApiAdditionalAuthenticationProvider authenticationTypearg = - AppSyncGraphQLApiAdditionalAuthenticationProvider - { _appSyncGraphQLApiAdditionalAuthenticationProviderAuthenticationType = authenticationTypearg - , _appSyncGraphQLApiAdditionalAuthenticationProviderOpenIDConnectConfig = Nothing - , _appSyncGraphQLApiAdditionalAuthenticationProviderUserPoolConfig = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-graphqlapi-additionalauthenticationprovider.html#cfn-appsync-graphqlapi-additionalauthenticationprovider-authenticationtype -asgqlaaapAuthenticationType :: Lens' AppSyncGraphQLApiAdditionalAuthenticationProvider (Val Text) -asgqlaaapAuthenticationType = lens _appSyncGraphQLApiAdditionalAuthenticationProviderAuthenticationType (\s a -> s { _appSyncGraphQLApiAdditionalAuthenticationProviderAuthenticationType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-graphqlapi-additionalauthenticationprovider.html#cfn-appsync-graphqlapi-additionalauthenticationprovider-openidconnectconfig -asgqlaaapOpenIDConnectConfig :: Lens' AppSyncGraphQLApiAdditionalAuthenticationProvider (Maybe AppSyncGraphQLApiOpenIDConnectConfig) -asgqlaaapOpenIDConnectConfig = lens _appSyncGraphQLApiAdditionalAuthenticationProviderOpenIDConnectConfig (\s a -> s { _appSyncGraphQLApiAdditionalAuthenticationProviderOpenIDConnectConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-graphqlapi-additionalauthenticationprovider.html#cfn-appsync-graphqlapi-additionalauthenticationprovider-userpoolconfig -asgqlaaapUserPoolConfig :: Lens' AppSyncGraphQLApiAdditionalAuthenticationProvider (Maybe AppSyncGraphQLApiCognitoUserPoolConfig) -asgqlaaapUserPoolConfig = lens _appSyncGraphQLApiAdditionalAuthenticationProviderUserPoolConfig (\s a -> s { _appSyncGraphQLApiAdditionalAuthenticationProviderUserPoolConfig = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppSyncGraphQLApiCognitoUserPoolConfig.hs b/library-gen/Stratosphere/ResourceProperties/AppSyncGraphQLApiCognitoUserPoolConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppSyncGraphQLApiCognitoUserPoolConfig.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-graphqlapi-cognitouserpoolconfig.html - -module Stratosphere.ResourceProperties.AppSyncGraphQLApiCognitoUserPoolConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppSyncGraphQLApiCognitoUserPoolConfig. See --- 'appSyncGraphQLApiCognitoUserPoolConfig' for a more convenient --- constructor. -data AppSyncGraphQLApiCognitoUserPoolConfig = - AppSyncGraphQLApiCognitoUserPoolConfig - { _appSyncGraphQLApiCognitoUserPoolConfigAppIdClientRegex :: Maybe (Val Text) - , _appSyncGraphQLApiCognitoUserPoolConfigAwsRegion :: Maybe (Val Text) - , _appSyncGraphQLApiCognitoUserPoolConfigUserPoolId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AppSyncGraphQLApiCognitoUserPoolConfig where - toJSON AppSyncGraphQLApiCognitoUserPoolConfig{..} = - object $ - catMaybes - [ fmap (("AppIdClientRegex",) . toJSON) _appSyncGraphQLApiCognitoUserPoolConfigAppIdClientRegex - , fmap (("AwsRegion",) . toJSON) _appSyncGraphQLApiCognitoUserPoolConfigAwsRegion - , fmap (("UserPoolId",) . toJSON) _appSyncGraphQLApiCognitoUserPoolConfigUserPoolId - ] - --- | Constructor for 'AppSyncGraphQLApiCognitoUserPoolConfig' containing --- required fields as arguments. -appSyncGraphQLApiCognitoUserPoolConfig - :: AppSyncGraphQLApiCognitoUserPoolConfig -appSyncGraphQLApiCognitoUserPoolConfig = - AppSyncGraphQLApiCognitoUserPoolConfig - { _appSyncGraphQLApiCognitoUserPoolConfigAppIdClientRegex = Nothing - , _appSyncGraphQLApiCognitoUserPoolConfigAwsRegion = Nothing - , _appSyncGraphQLApiCognitoUserPoolConfigUserPoolId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-graphqlapi-cognitouserpoolconfig.html#cfn-appsync-graphqlapi-cognitouserpoolconfig-appidclientregex -asgqlacupcAppIdClientRegex :: Lens' AppSyncGraphQLApiCognitoUserPoolConfig (Maybe (Val Text)) -asgqlacupcAppIdClientRegex = lens _appSyncGraphQLApiCognitoUserPoolConfigAppIdClientRegex (\s a -> s { _appSyncGraphQLApiCognitoUserPoolConfigAppIdClientRegex = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-graphqlapi-cognitouserpoolconfig.html#cfn-appsync-graphqlapi-cognitouserpoolconfig-awsregion -asgqlacupcAwsRegion :: Lens' AppSyncGraphQLApiCognitoUserPoolConfig (Maybe (Val Text)) -asgqlacupcAwsRegion = lens _appSyncGraphQLApiCognitoUserPoolConfigAwsRegion (\s a -> s { _appSyncGraphQLApiCognitoUserPoolConfigAwsRegion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-graphqlapi-cognitouserpoolconfig.html#cfn-appsync-graphqlapi-cognitouserpoolconfig-userpoolid -asgqlacupcUserPoolId :: Lens' AppSyncGraphQLApiCognitoUserPoolConfig (Maybe (Val Text)) -asgqlacupcUserPoolId = lens _appSyncGraphQLApiCognitoUserPoolConfigUserPoolId (\s a -> s { _appSyncGraphQLApiCognitoUserPoolConfigUserPoolId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppSyncGraphQLApiLogConfig.hs b/library-gen/Stratosphere/ResourceProperties/AppSyncGraphQLApiLogConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppSyncGraphQLApiLogConfig.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-graphqlapi-logconfig.html - -module Stratosphere.ResourceProperties.AppSyncGraphQLApiLogConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppSyncGraphQLApiLogConfig. See --- 'appSyncGraphQLApiLogConfig' for a more convenient constructor. -data AppSyncGraphQLApiLogConfig = - AppSyncGraphQLApiLogConfig - { _appSyncGraphQLApiLogConfigCloudWatchLogsRoleArn :: Maybe (Val Text) - , _appSyncGraphQLApiLogConfigExcludeVerboseContent :: Maybe (Val Bool) - , _appSyncGraphQLApiLogConfigFieldLogLevel :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AppSyncGraphQLApiLogConfig where - toJSON AppSyncGraphQLApiLogConfig{..} = - object $ - catMaybes - [ fmap (("CloudWatchLogsRoleArn",) . toJSON) _appSyncGraphQLApiLogConfigCloudWatchLogsRoleArn - , fmap (("ExcludeVerboseContent",) . toJSON) _appSyncGraphQLApiLogConfigExcludeVerboseContent - , fmap (("FieldLogLevel",) . toJSON) _appSyncGraphQLApiLogConfigFieldLogLevel - ] - --- | Constructor for 'AppSyncGraphQLApiLogConfig' containing required fields --- as arguments. -appSyncGraphQLApiLogConfig - :: AppSyncGraphQLApiLogConfig -appSyncGraphQLApiLogConfig = - AppSyncGraphQLApiLogConfig - { _appSyncGraphQLApiLogConfigCloudWatchLogsRoleArn = Nothing - , _appSyncGraphQLApiLogConfigExcludeVerboseContent = Nothing - , _appSyncGraphQLApiLogConfigFieldLogLevel = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-graphqlapi-logconfig.html#cfn-appsync-graphqlapi-logconfig-cloudwatchlogsrolearn -asgqlalcCloudWatchLogsRoleArn :: Lens' AppSyncGraphQLApiLogConfig (Maybe (Val Text)) -asgqlalcCloudWatchLogsRoleArn = lens _appSyncGraphQLApiLogConfigCloudWatchLogsRoleArn (\s a -> s { _appSyncGraphQLApiLogConfigCloudWatchLogsRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-graphqlapi-logconfig.html#cfn-appsync-graphqlapi-logconfig-excludeverbosecontent -asgqlalcExcludeVerboseContent :: Lens' AppSyncGraphQLApiLogConfig (Maybe (Val Bool)) -asgqlalcExcludeVerboseContent = lens _appSyncGraphQLApiLogConfigExcludeVerboseContent (\s a -> s { _appSyncGraphQLApiLogConfigExcludeVerboseContent = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-graphqlapi-logconfig.html#cfn-appsync-graphqlapi-logconfig-fieldloglevel -asgqlalcFieldLogLevel :: Lens' AppSyncGraphQLApiLogConfig (Maybe (Val Text)) -asgqlalcFieldLogLevel = lens _appSyncGraphQLApiLogConfigFieldLogLevel (\s a -> s { _appSyncGraphQLApiLogConfigFieldLogLevel = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppSyncGraphQLApiOpenIDConnectConfig.hs b/library-gen/Stratosphere/ResourceProperties/AppSyncGraphQLApiOpenIDConnectConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppSyncGraphQLApiOpenIDConnectConfig.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-graphqlapi-openidconnectconfig.html - -module Stratosphere.ResourceProperties.AppSyncGraphQLApiOpenIDConnectConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppSyncGraphQLApiOpenIDConnectConfig. See --- 'appSyncGraphQLApiOpenIDConnectConfig' for a more convenient constructor. -data AppSyncGraphQLApiOpenIDConnectConfig = - AppSyncGraphQLApiOpenIDConnectConfig - { _appSyncGraphQLApiOpenIDConnectConfigAuthTTL :: Maybe (Val Double) - , _appSyncGraphQLApiOpenIDConnectConfigClientId :: Maybe (Val Text) - , _appSyncGraphQLApiOpenIDConnectConfigIatTTL :: Maybe (Val Double) - , _appSyncGraphQLApiOpenIDConnectConfigIssuer :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AppSyncGraphQLApiOpenIDConnectConfig where - toJSON AppSyncGraphQLApiOpenIDConnectConfig{..} = - object $ - catMaybes - [ fmap (("AuthTTL",) . toJSON) _appSyncGraphQLApiOpenIDConnectConfigAuthTTL - , fmap (("ClientId",) . toJSON) _appSyncGraphQLApiOpenIDConnectConfigClientId - , fmap (("IatTTL",) . toJSON) _appSyncGraphQLApiOpenIDConnectConfigIatTTL - , fmap (("Issuer",) . toJSON) _appSyncGraphQLApiOpenIDConnectConfigIssuer - ] - --- | Constructor for 'AppSyncGraphQLApiOpenIDConnectConfig' containing --- required fields as arguments. -appSyncGraphQLApiOpenIDConnectConfig - :: AppSyncGraphQLApiOpenIDConnectConfig -appSyncGraphQLApiOpenIDConnectConfig = - AppSyncGraphQLApiOpenIDConnectConfig - { _appSyncGraphQLApiOpenIDConnectConfigAuthTTL = Nothing - , _appSyncGraphQLApiOpenIDConnectConfigClientId = Nothing - , _appSyncGraphQLApiOpenIDConnectConfigIatTTL = Nothing - , _appSyncGraphQLApiOpenIDConnectConfigIssuer = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-graphqlapi-openidconnectconfig.html#cfn-appsync-graphqlapi-openidconnectconfig-authttl -asgqlaoidccAuthTTL :: Lens' AppSyncGraphQLApiOpenIDConnectConfig (Maybe (Val Double)) -asgqlaoidccAuthTTL = lens _appSyncGraphQLApiOpenIDConnectConfigAuthTTL (\s a -> s { _appSyncGraphQLApiOpenIDConnectConfigAuthTTL = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-graphqlapi-openidconnectconfig.html#cfn-appsync-graphqlapi-openidconnectconfig-clientid -asgqlaoidccClientId :: Lens' AppSyncGraphQLApiOpenIDConnectConfig (Maybe (Val Text)) -asgqlaoidccClientId = lens _appSyncGraphQLApiOpenIDConnectConfigClientId (\s a -> s { _appSyncGraphQLApiOpenIDConnectConfigClientId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-graphqlapi-openidconnectconfig.html#cfn-appsync-graphqlapi-openidconnectconfig-iatttl -asgqlaoidccIatTTL :: Lens' AppSyncGraphQLApiOpenIDConnectConfig (Maybe (Val Double)) -asgqlaoidccIatTTL = lens _appSyncGraphQLApiOpenIDConnectConfigIatTTL (\s a -> s { _appSyncGraphQLApiOpenIDConnectConfigIatTTL = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-graphqlapi-openidconnectconfig.html#cfn-appsync-graphqlapi-openidconnectconfig-issuer -asgqlaoidccIssuer :: Lens' AppSyncGraphQLApiOpenIDConnectConfig (Maybe (Val Text)) -asgqlaoidccIssuer = lens _appSyncGraphQLApiOpenIDConnectConfigIssuer (\s a -> s { _appSyncGraphQLApiOpenIDConnectConfigIssuer = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppSyncGraphQLApiUserPoolConfig.hs b/library-gen/Stratosphere/ResourceProperties/AppSyncGraphQLApiUserPoolConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppSyncGraphQLApiUserPoolConfig.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-graphqlapi-userpoolconfig.html - -module Stratosphere.ResourceProperties.AppSyncGraphQLApiUserPoolConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppSyncGraphQLApiUserPoolConfig. See --- 'appSyncGraphQLApiUserPoolConfig' for a more convenient constructor. -data AppSyncGraphQLApiUserPoolConfig = - AppSyncGraphQLApiUserPoolConfig - { _appSyncGraphQLApiUserPoolConfigAppIdClientRegex :: Maybe (Val Text) - , _appSyncGraphQLApiUserPoolConfigAwsRegion :: Maybe (Val Text) - , _appSyncGraphQLApiUserPoolConfigDefaultAction :: Maybe (Val Text) - , _appSyncGraphQLApiUserPoolConfigUserPoolId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AppSyncGraphQLApiUserPoolConfig where - toJSON AppSyncGraphQLApiUserPoolConfig{..} = - object $ - catMaybes - [ fmap (("AppIdClientRegex",) . toJSON) _appSyncGraphQLApiUserPoolConfigAppIdClientRegex - , fmap (("AwsRegion",) . toJSON) _appSyncGraphQLApiUserPoolConfigAwsRegion - , fmap (("DefaultAction",) . toJSON) _appSyncGraphQLApiUserPoolConfigDefaultAction - , fmap (("UserPoolId",) . toJSON) _appSyncGraphQLApiUserPoolConfigUserPoolId - ] - --- | Constructor for 'AppSyncGraphQLApiUserPoolConfig' containing required --- fields as arguments. -appSyncGraphQLApiUserPoolConfig - :: AppSyncGraphQLApiUserPoolConfig -appSyncGraphQLApiUserPoolConfig = - AppSyncGraphQLApiUserPoolConfig - { _appSyncGraphQLApiUserPoolConfigAppIdClientRegex = Nothing - , _appSyncGraphQLApiUserPoolConfigAwsRegion = Nothing - , _appSyncGraphQLApiUserPoolConfigDefaultAction = Nothing - , _appSyncGraphQLApiUserPoolConfigUserPoolId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-graphqlapi-userpoolconfig.html#cfn-appsync-graphqlapi-userpoolconfig-appidclientregex -asgqlaupcAppIdClientRegex :: Lens' AppSyncGraphQLApiUserPoolConfig (Maybe (Val Text)) -asgqlaupcAppIdClientRegex = lens _appSyncGraphQLApiUserPoolConfigAppIdClientRegex (\s a -> s { _appSyncGraphQLApiUserPoolConfigAppIdClientRegex = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-graphqlapi-userpoolconfig.html#cfn-appsync-graphqlapi-userpoolconfig-awsregion -asgqlaupcAwsRegion :: Lens' AppSyncGraphQLApiUserPoolConfig (Maybe (Val Text)) -asgqlaupcAwsRegion = lens _appSyncGraphQLApiUserPoolConfigAwsRegion (\s a -> s { _appSyncGraphQLApiUserPoolConfigAwsRegion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-graphqlapi-userpoolconfig.html#cfn-appsync-graphqlapi-userpoolconfig-defaultaction -asgqlaupcDefaultAction :: Lens' AppSyncGraphQLApiUserPoolConfig (Maybe (Val Text)) -asgqlaupcDefaultAction = lens _appSyncGraphQLApiUserPoolConfigDefaultAction (\s a -> s { _appSyncGraphQLApiUserPoolConfigDefaultAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-graphqlapi-userpoolconfig.html#cfn-appsync-graphqlapi-userpoolconfig-userpoolid -asgqlaupcUserPoolId :: Lens' AppSyncGraphQLApiUserPoolConfig (Maybe (Val Text)) -asgqlaupcUserPoolId = lens _appSyncGraphQLApiUserPoolConfigUserPoolId (\s a -> s { _appSyncGraphQLApiUserPoolConfigUserPoolId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppSyncResolverCachingConfig.hs b/library-gen/Stratosphere/ResourceProperties/AppSyncResolverCachingConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppSyncResolverCachingConfig.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-resolver-cachingconfig.html - -module Stratosphere.ResourceProperties.AppSyncResolverCachingConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppSyncResolverCachingConfig. See --- 'appSyncResolverCachingConfig' for a more convenient constructor. -data AppSyncResolverCachingConfig = - AppSyncResolverCachingConfig - { _appSyncResolverCachingConfigCachingKeys :: Maybe (ValList Text) - , _appSyncResolverCachingConfigTtl :: Maybe (Val Double) - } deriving (Show, Eq) - -instance ToJSON AppSyncResolverCachingConfig where - toJSON AppSyncResolverCachingConfig{..} = - object $ - catMaybes - [ fmap (("CachingKeys",) . toJSON) _appSyncResolverCachingConfigCachingKeys - , fmap (("Ttl",) . toJSON) _appSyncResolverCachingConfigTtl - ] - --- | Constructor for 'AppSyncResolverCachingConfig' containing required fields --- as arguments. -appSyncResolverCachingConfig - :: AppSyncResolverCachingConfig -appSyncResolverCachingConfig = - AppSyncResolverCachingConfig - { _appSyncResolverCachingConfigCachingKeys = Nothing - , _appSyncResolverCachingConfigTtl = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-resolver-cachingconfig.html#cfn-appsync-resolver-cachingconfig-cachingkeys -asrccCachingKeys :: Lens' AppSyncResolverCachingConfig (Maybe (ValList Text)) -asrccCachingKeys = lens _appSyncResolverCachingConfigCachingKeys (\s a -> s { _appSyncResolverCachingConfigCachingKeys = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-resolver-cachingconfig.html#cfn-appsync-resolver-cachingconfig-ttl -asrccTtl :: Lens' AppSyncResolverCachingConfig (Maybe (Val Double)) -asrccTtl = lens _appSyncResolverCachingConfigTtl (\s a -> s { _appSyncResolverCachingConfigTtl = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppSyncResolverLambdaConflictHandlerConfig.hs b/library-gen/Stratosphere/ResourceProperties/AppSyncResolverLambdaConflictHandlerConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppSyncResolverLambdaConflictHandlerConfig.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-resolver-lambdaconflicthandlerconfig.html - -module Stratosphere.ResourceProperties.AppSyncResolverLambdaConflictHandlerConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppSyncResolverLambdaConflictHandlerConfig. --- See 'appSyncResolverLambdaConflictHandlerConfig' for a more convenient --- constructor. -data AppSyncResolverLambdaConflictHandlerConfig = - AppSyncResolverLambdaConflictHandlerConfig - { _appSyncResolverLambdaConflictHandlerConfigLambdaConflictHandlerArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AppSyncResolverLambdaConflictHandlerConfig where - toJSON AppSyncResolverLambdaConflictHandlerConfig{..} = - object $ - catMaybes - [ fmap (("LambdaConflictHandlerArn",) . toJSON) _appSyncResolverLambdaConflictHandlerConfigLambdaConflictHandlerArn - ] - --- | Constructor for 'AppSyncResolverLambdaConflictHandlerConfig' containing --- required fields as arguments. -appSyncResolverLambdaConflictHandlerConfig - :: AppSyncResolverLambdaConflictHandlerConfig -appSyncResolverLambdaConflictHandlerConfig = - AppSyncResolverLambdaConflictHandlerConfig - { _appSyncResolverLambdaConflictHandlerConfigLambdaConflictHandlerArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-resolver-lambdaconflicthandlerconfig.html#cfn-appsync-resolver-lambdaconflicthandlerconfig-lambdaconflicthandlerarn -asrlchcLambdaConflictHandlerArn :: Lens' AppSyncResolverLambdaConflictHandlerConfig (Maybe (Val Text)) -asrlchcLambdaConflictHandlerArn = lens _appSyncResolverLambdaConflictHandlerConfigLambdaConflictHandlerArn (\s a -> s { _appSyncResolverLambdaConflictHandlerConfigLambdaConflictHandlerArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppSyncResolverPipelineConfig.hs b/library-gen/Stratosphere/ResourceProperties/AppSyncResolverPipelineConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppSyncResolverPipelineConfig.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-resolver-pipelineconfig.html - -module Stratosphere.ResourceProperties.AppSyncResolverPipelineConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppSyncResolverPipelineConfig. See --- 'appSyncResolverPipelineConfig' for a more convenient constructor. -data AppSyncResolverPipelineConfig = - AppSyncResolverPipelineConfig - { _appSyncResolverPipelineConfigFunctions :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON AppSyncResolverPipelineConfig where - toJSON AppSyncResolverPipelineConfig{..} = - object $ - catMaybes - [ fmap (("Functions",) . toJSON) _appSyncResolverPipelineConfigFunctions - ] - --- | Constructor for 'AppSyncResolverPipelineConfig' containing required --- fields as arguments. -appSyncResolverPipelineConfig - :: AppSyncResolverPipelineConfig -appSyncResolverPipelineConfig = - AppSyncResolverPipelineConfig - { _appSyncResolverPipelineConfigFunctions = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-resolver-pipelineconfig.html#cfn-appsync-resolver-pipelineconfig-functions -asrpcFunctions :: Lens' AppSyncResolverPipelineConfig (Maybe (ValList Text)) -asrpcFunctions = lens _appSyncResolverPipelineConfigFunctions (\s a -> s { _appSyncResolverPipelineConfigFunctions = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AppSyncResolverSyncConfig.hs b/library-gen/Stratosphere/ResourceProperties/AppSyncResolverSyncConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AppSyncResolverSyncConfig.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-resolver-syncconfig.html - -module Stratosphere.ResourceProperties.AppSyncResolverSyncConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppSyncResolverLambdaConflictHandlerConfig - --- | Full data type definition for AppSyncResolverSyncConfig. See --- 'appSyncResolverSyncConfig' for a more convenient constructor. -data AppSyncResolverSyncConfig = - AppSyncResolverSyncConfig - { _appSyncResolverSyncConfigConflictDetection :: Val Text - , _appSyncResolverSyncConfigConflictHandler :: Maybe (Val Text) - , _appSyncResolverSyncConfigLambdaConflictHandlerConfig :: Maybe AppSyncResolverLambdaConflictHandlerConfig - } deriving (Show, Eq) - -instance ToJSON AppSyncResolverSyncConfig where - toJSON AppSyncResolverSyncConfig{..} = - object $ - catMaybes - [ (Just . ("ConflictDetection",) . toJSON) _appSyncResolverSyncConfigConflictDetection - , fmap (("ConflictHandler",) . toJSON) _appSyncResolverSyncConfigConflictHandler - , fmap (("LambdaConflictHandlerConfig",) . toJSON) _appSyncResolverSyncConfigLambdaConflictHandlerConfig - ] - --- | Constructor for 'AppSyncResolverSyncConfig' containing required fields as --- arguments. -appSyncResolverSyncConfig - :: Val Text -- ^ 'asrscConflictDetection' - -> AppSyncResolverSyncConfig -appSyncResolverSyncConfig conflictDetectionarg = - AppSyncResolverSyncConfig - { _appSyncResolverSyncConfigConflictDetection = conflictDetectionarg - , _appSyncResolverSyncConfigConflictHandler = Nothing - , _appSyncResolverSyncConfigLambdaConflictHandlerConfig = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-resolver-syncconfig.html#cfn-appsync-resolver-syncconfig-conflictdetection -asrscConflictDetection :: Lens' AppSyncResolverSyncConfig (Val Text) -asrscConflictDetection = lens _appSyncResolverSyncConfigConflictDetection (\s a -> s { _appSyncResolverSyncConfigConflictDetection = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-resolver-syncconfig.html#cfn-appsync-resolver-syncconfig-conflicthandler -asrscConflictHandler :: Lens' AppSyncResolverSyncConfig (Maybe (Val Text)) -asrscConflictHandler = lens _appSyncResolverSyncConfigConflictHandler (\s a -> s { _appSyncResolverSyncConfigConflictHandler = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-resolver-syncconfig.html#cfn-appsync-resolver-syncconfig-lambdaconflicthandlerconfig -asrscLambdaConflictHandlerConfig :: Lens' AppSyncResolverSyncConfig (Maybe AppSyncResolverLambdaConflictHandlerConfig) -asrscLambdaConflictHandlerConfig = lens _appSyncResolverSyncConfigLambdaConflictHandlerConfig (\s a -> s { _appSyncResolverSyncConfigLambdaConflictHandlerConfig = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalableTargetScalableTargetAction.hs b/library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalableTargetScalableTargetAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalableTargetScalableTargetAction.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalabletarget-scalabletargetaction.html - -module Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetScalableTargetAction where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ApplicationAutoScalingScalableTargetScalableTargetAction. See --- 'applicationAutoScalingScalableTargetScalableTargetAction' for a more --- convenient constructor. -data ApplicationAutoScalingScalableTargetScalableTargetAction = - ApplicationAutoScalingScalableTargetScalableTargetAction - { _applicationAutoScalingScalableTargetScalableTargetActionMaxCapacity :: Maybe (Val Integer) - , _applicationAutoScalingScalableTargetScalableTargetActionMinCapacity :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON ApplicationAutoScalingScalableTargetScalableTargetAction where - toJSON ApplicationAutoScalingScalableTargetScalableTargetAction{..} = - object $ - catMaybes - [ fmap (("MaxCapacity",) . toJSON) _applicationAutoScalingScalableTargetScalableTargetActionMaxCapacity - , fmap (("MinCapacity",) . toJSON) _applicationAutoScalingScalableTargetScalableTargetActionMinCapacity - ] - --- | Constructor for --- 'ApplicationAutoScalingScalableTargetScalableTargetAction' containing --- required fields as arguments. -applicationAutoScalingScalableTargetScalableTargetAction - :: ApplicationAutoScalingScalableTargetScalableTargetAction -applicationAutoScalingScalableTargetScalableTargetAction = - ApplicationAutoScalingScalableTargetScalableTargetAction - { _applicationAutoScalingScalableTargetScalableTargetActionMaxCapacity = Nothing - , _applicationAutoScalingScalableTargetScalableTargetActionMinCapacity = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalabletarget-scalabletargetaction.html#cfn-applicationautoscaling-scalabletarget-scalabletargetaction-maxcapacity -aasststaMaxCapacity :: Lens' ApplicationAutoScalingScalableTargetScalableTargetAction (Maybe (Val Integer)) -aasststaMaxCapacity = lens _applicationAutoScalingScalableTargetScalableTargetActionMaxCapacity (\s a -> s { _applicationAutoScalingScalableTargetScalableTargetActionMaxCapacity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalabletarget-scalabletargetaction.html#cfn-applicationautoscaling-scalabletarget-scalabletargetaction-mincapacity -aasststaMinCapacity :: Lens' ApplicationAutoScalingScalableTargetScalableTargetAction (Maybe (Val Integer)) -aasststaMinCapacity = lens _applicationAutoScalingScalableTargetScalableTargetActionMinCapacity (\s a -> s { _applicationAutoScalingScalableTargetScalableTargetActionMinCapacity = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalableTargetScheduledAction.hs b/library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalableTargetScheduledAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalableTargetScheduledAction.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalabletarget-scheduledaction.html - -module Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetScheduledAction where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetScalableTargetAction - --- | Full data type definition for --- ApplicationAutoScalingScalableTargetScheduledAction. See --- 'applicationAutoScalingScalableTargetScheduledAction' for a more --- convenient constructor. -data ApplicationAutoScalingScalableTargetScheduledAction = - ApplicationAutoScalingScalableTargetScheduledAction - { _applicationAutoScalingScalableTargetScheduledActionEndTime :: Maybe (Val Text) - , _applicationAutoScalingScalableTargetScheduledActionScalableTargetAction :: Maybe ApplicationAutoScalingScalableTargetScalableTargetAction - , _applicationAutoScalingScalableTargetScheduledActionSchedule :: Val Text - , _applicationAutoScalingScalableTargetScheduledActionScheduledActionName :: Val Text - , _applicationAutoScalingScalableTargetScheduledActionStartTime :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ApplicationAutoScalingScalableTargetScheduledAction where - toJSON ApplicationAutoScalingScalableTargetScheduledAction{..} = - object $ - catMaybes - [ fmap (("EndTime",) . toJSON) _applicationAutoScalingScalableTargetScheduledActionEndTime - , fmap (("ScalableTargetAction",) . toJSON) _applicationAutoScalingScalableTargetScheduledActionScalableTargetAction - , (Just . ("Schedule",) . toJSON) _applicationAutoScalingScalableTargetScheduledActionSchedule - , (Just . ("ScheduledActionName",) . toJSON) _applicationAutoScalingScalableTargetScheduledActionScheduledActionName - , fmap (("StartTime",) . toJSON) _applicationAutoScalingScalableTargetScheduledActionStartTime - ] - --- | Constructor for 'ApplicationAutoScalingScalableTargetScheduledAction' --- containing required fields as arguments. -applicationAutoScalingScalableTargetScheduledAction - :: Val Text -- ^ 'aasstsaSchedule' - -> Val Text -- ^ 'aasstsaScheduledActionName' - -> ApplicationAutoScalingScalableTargetScheduledAction -applicationAutoScalingScalableTargetScheduledAction schedulearg scheduledActionNamearg = - ApplicationAutoScalingScalableTargetScheduledAction - { _applicationAutoScalingScalableTargetScheduledActionEndTime = Nothing - , _applicationAutoScalingScalableTargetScheduledActionScalableTargetAction = Nothing - , _applicationAutoScalingScalableTargetScheduledActionSchedule = schedulearg - , _applicationAutoScalingScalableTargetScheduledActionScheduledActionName = scheduledActionNamearg - , _applicationAutoScalingScalableTargetScheduledActionStartTime = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalabletarget-scheduledaction.html#cfn-applicationautoscaling-scalabletarget-scheduledaction-endtime -aasstsaEndTime :: Lens' ApplicationAutoScalingScalableTargetScheduledAction (Maybe (Val Text)) -aasstsaEndTime = lens _applicationAutoScalingScalableTargetScheduledActionEndTime (\s a -> s { _applicationAutoScalingScalableTargetScheduledActionEndTime = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalabletarget-scheduledaction.html#cfn-applicationautoscaling-scalabletarget-scheduledaction-scalabletargetaction -aasstsaScalableTargetAction :: Lens' ApplicationAutoScalingScalableTargetScheduledAction (Maybe ApplicationAutoScalingScalableTargetScalableTargetAction) -aasstsaScalableTargetAction = lens _applicationAutoScalingScalableTargetScheduledActionScalableTargetAction (\s a -> s { _applicationAutoScalingScalableTargetScheduledActionScalableTargetAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalabletarget-scheduledaction.html#cfn-applicationautoscaling-scalabletarget-scheduledaction-schedule -aasstsaSchedule :: Lens' ApplicationAutoScalingScalableTargetScheduledAction (Val Text) -aasstsaSchedule = lens _applicationAutoScalingScalableTargetScheduledActionSchedule (\s a -> s { _applicationAutoScalingScalableTargetScheduledActionSchedule = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalabletarget-scheduledaction.html#cfn-applicationautoscaling-scalabletarget-scheduledaction-scheduledactionname -aasstsaScheduledActionName :: Lens' ApplicationAutoScalingScalableTargetScheduledAction (Val Text) -aasstsaScheduledActionName = lens _applicationAutoScalingScalableTargetScheduledActionScheduledActionName (\s a -> s { _applicationAutoScalingScalableTargetScheduledActionScheduledActionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalabletarget-scheduledaction.html#cfn-applicationautoscaling-scalabletarget-scheduledaction-starttime -aasstsaStartTime :: Lens' ApplicationAutoScalingScalableTargetScheduledAction (Maybe (Val Text)) -aasstsaStartTime = lens _applicationAutoScalingScalableTargetScheduledActionStartTime (\s a -> s { _applicationAutoScalingScalableTargetScheduledActionStartTime = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalableTargetSuspendedState.hs b/library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalableTargetSuspendedState.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalableTargetSuspendedState.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalabletarget-suspendedstate.html - -module Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetSuspendedState where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ApplicationAutoScalingScalableTargetSuspendedState. See --- 'applicationAutoScalingScalableTargetSuspendedState' for a more --- convenient constructor. -data ApplicationAutoScalingScalableTargetSuspendedState = - ApplicationAutoScalingScalableTargetSuspendedState - { _applicationAutoScalingScalableTargetSuspendedStateDynamicScalingInSuspended :: Maybe (Val Bool) - , _applicationAutoScalingScalableTargetSuspendedStateDynamicScalingOutSuspended :: Maybe (Val Bool) - , _applicationAutoScalingScalableTargetSuspendedStateScheduledScalingSuspended :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON ApplicationAutoScalingScalableTargetSuspendedState where - toJSON ApplicationAutoScalingScalableTargetSuspendedState{..} = - object $ - catMaybes - [ fmap (("DynamicScalingInSuspended",) . toJSON) _applicationAutoScalingScalableTargetSuspendedStateDynamicScalingInSuspended - , fmap (("DynamicScalingOutSuspended",) . toJSON) _applicationAutoScalingScalableTargetSuspendedStateDynamicScalingOutSuspended - , fmap (("ScheduledScalingSuspended",) . toJSON) _applicationAutoScalingScalableTargetSuspendedStateScheduledScalingSuspended - ] - --- | Constructor for 'ApplicationAutoScalingScalableTargetSuspendedState' --- containing required fields as arguments. -applicationAutoScalingScalableTargetSuspendedState - :: ApplicationAutoScalingScalableTargetSuspendedState -applicationAutoScalingScalableTargetSuspendedState = - ApplicationAutoScalingScalableTargetSuspendedState - { _applicationAutoScalingScalableTargetSuspendedStateDynamicScalingInSuspended = Nothing - , _applicationAutoScalingScalableTargetSuspendedStateDynamicScalingOutSuspended = Nothing - , _applicationAutoScalingScalableTargetSuspendedStateScheduledScalingSuspended = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalabletarget-suspendedstate.html#cfn-applicationautoscaling-scalabletarget-suspendedstate-dynamicscalinginsuspended -aasstssDynamicScalingInSuspended :: Lens' ApplicationAutoScalingScalableTargetSuspendedState (Maybe (Val Bool)) -aasstssDynamicScalingInSuspended = lens _applicationAutoScalingScalableTargetSuspendedStateDynamicScalingInSuspended (\s a -> s { _applicationAutoScalingScalableTargetSuspendedStateDynamicScalingInSuspended = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalabletarget-suspendedstate.html#cfn-applicationautoscaling-scalabletarget-suspendedstate-dynamicscalingoutsuspended -aasstssDynamicScalingOutSuspended :: Lens' ApplicationAutoScalingScalableTargetSuspendedState (Maybe (Val Bool)) -aasstssDynamicScalingOutSuspended = lens _applicationAutoScalingScalableTargetSuspendedStateDynamicScalingOutSuspended (\s a -> s { _applicationAutoScalingScalableTargetSuspendedStateDynamicScalingOutSuspended = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalabletarget-suspendedstate.html#cfn-applicationautoscaling-scalabletarget-suspendedstate-scheduledscalingsuspended -aasstssScheduledScalingSuspended :: Lens' ApplicationAutoScalingScalableTargetSuspendedState (Maybe (Val Bool)) -aasstssScheduledScalingSuspended = lens _applicationAutoScalingScalableTargetSuspendedStateScheduledScalingSuspended (\s a -> s { _applicationAutoScalingScalableTargetSuspendedStateScheduledScalingSuspended = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification.hs b/library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification.hs +++ /dev/null @@ -1,72 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalingpolicy-customizedmetricspecification.html - -module Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyMetricDimension - --- | Full data type definition for --- ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification. See --- 'applicationAutoScalingScalingPolicyCustomizedMetricSpecification' for a --- more convenient constructor. -data ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification = - ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification - { _applicationAutoScalingScalingPolicyCustomizedMetricSpecificationDimensions :: Maybe [ApplicationAutoScalingScalingPolicyMetricDimension] - , _applicationAutoScalingScalingPolicyCustomizedMetricSpecificationMetricName :: Val Text - , _applicationAutoScalingScalingPolicyCustomizedMetricSpecificationNamespace :: Val Text - , _applicationAutoScalingScalingPolicyCustomizedMetricSpecificationStatistic :: Val Text - , _applicationAutoScalingScalingPolicyCustomizedMetricSpecificationUnit :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification where - toJSON ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification{..} = - object $ - catMaybes - [ fmap (("Dimensions",) . toJSON) _applicationAutoScalingScalingPolicyCustomizedMetricSpecificationDimensions - , (Just . ("MetricName",) . toJSON) _applicationAutoScalingScalingPolicyCustomizedMetricSpecificationMetricName - , (Just . ("Namespace",) . toJSON) _applicationAutoScalingScalingPolicyCustomizedMetricSpecificationNamespace - , (Just . ("Statistic",) . toJSON) _applicationAutoScalingScalingPolicyCustomizedMetricSpecificationStatistic - , fmap (("Unit",) . toJSON) _applicationAutoScalingScalingPolicyCustomizedMetricSpecificationUnit - ] - --- | Constructor for --- 'ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification' --- containing required fields as arguments. -applicationAutoScalingScalingPolicyCustomizedMetricSpecification - :: Val Text -- ^ 'aasspcmsMetricName' - -> Val Text -- ^ 'aasspcmsNamespace' - -> Val Text -- ^ 'aasspcmsStatistic' - -> ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification -applicationAutoScalingScalingPolicyCustomizedMetricSpecification metricNamearg namespacearg statisticarg = - ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification - { _applicationAutoScalingScalingPolicyCustomizedMetricSpecificationDimensions = Nothing - , _applicationAutoScalingScalingPolicyCustomizedMetricSpecificationMetricName = metricNamearg - , _applicationAutoScalingScalingPolicyCustomizedMetricSpecificationNamespace = namespacearg - , _applicationAutoScalingScalingPolicyCustomizedMetricSpecificationStatistic = statisticarg - , _applicationAutoScalingScalingPolicyCustomizedMetricSpecificationUnit = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalingpolicy-customizedmetricspecification.html#cfn-applicationautoscaling-scalingpolicy-customizedmetricspecification-dimensions -aasspcmsDimensions :: Lens' ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification (Maybe [ApplicationAutoScalingScalingPolicyMetricDimension]) -aasspcmsDimensions = lens _applicationAutoScalingScalingPolicyCustomizedMetricSpecificationDimensions (\s a -> s { _applicationAutoScalingScalingPolicyCustomizedMetricSpecificationDimensions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalingpolicy-customizedmetricspecification.html#cfn-applicationautoscaling-scalingpolicy-customizedmetricspecification-metricname -aasspcmsMetricName :: Lens' ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification (Val Text) -aasspcmsMetricName = lens _applicationAutoScalingScalingPolicyCustomizedMetricSpecificationMetricName (\s a -> s { _applicationAutoScalingScalingPolicyCustomizedMetricSpecificationMetricName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalingpolicy-customizedmetricspecification.html#cfn-applicationautoscaling-scalingpolicy-customizedmetricspecification-namespace -aasspcmsNamespace :: Lens' ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification (Val Text) -aasspcmsNamespace = lens _applicationAutoScalingScalingPolicyCustomizedMetricSpecificationNamespace (\s a -> s { _applicationAutoScalingScalingPolicyCustomizedMetricSpecificationNamespace = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalingpolicy-customizedmetricspecification.html#cfn-applicationautoscaling-scalingpolicy-customizedmetricspecification-statistic -aasspcmsStatistic :: Lens' ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification (Val Text) -aasspcmsStatistic = lens _applicationAutoScalingScalingPolicyCustomizedMetricSpecificationStatistic (\s a -> s { _applicationAutoScalingScalingPolicyCustomizedMetricSpecificationStatistic = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalingpolicy-customizedmetricspecification.html#cfn-applicationautoscaling-scalingpolicy-customizedmetricspecification-unit -aasspcmsUnit :: Lens' ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification (Maybe (Val Text)) -aasspcmsUnit = lens _applicationAutoScalingScalingPolicyCustomizedMetricSpecificationUnit (\s a -> s { _applicationAutoScalingScalingPolicyCustomizedMetricSpecificationUnit = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalingPolicyMetricDimension.hs b/library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalingPolicyMetricDimension.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalingPolicyMetricDimension.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalingpolicy-metricdimension.html - -module Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyMetricDimension where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ApplicationAutoScalingScalingPolicyMetricDimension. See --- 'applicationAutoScalingScalingPolicyMetricDimension' for a more --- convenient constructor. -data ApplicationAutoScalingScalingPolicyMetricDimension = - ApplicationAutoScalingScalingPolicyMetricDimension - { _applicationAutoScalingScalingPolicyMetricDimensionName :: Val Text - , _applicationAutoScalingScalingPolicyMetricDimensionValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON ApplicationAutoScalingScalingPolicyMetricDimension where - toJSON ApplicationAutoScalingScalingPolicyMetricDimension{..} = - object $ - catMaybes - [ (Just . ("Name",) . toJSON) _applicationAutoScalingScalingPolicyMetricDimensionName - , (Just . ("Value",) . toJSON) _applicationAutoScalingScalingPolicyMetricDimensionValue - ] - --- | Constructor for 'ApplicationAutoScalingScalingPolicyMetricDimension' --- containing required fields as arguments. -applicationAutoScalingScalingPolicyMetricDimension - :: Val Text -- ^ 'aasspmdName' - -> Val Text -- ^ 'aasspmdValue' - -> ApplicationAutoScalingScalingPolicyMetricDimension -applicationAutoScalingScalingPolicyMetricDimension namearg valuearg = - ApplicationAutoScalingScalingPolicyMetricDimension - { _applicationAutoScalingScalingPolicyMetricDimensionName = namearg - , _applicationAutoScalingScalingPolicyMetricDimensionValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalingpolicy-metricdimension.html#cfn-applicationautoscaling-scalingpolicy-metricdimension-name -aasspmdName :: Lens' ApplicationAutoScalingScalingPolicyMetricDimension (Val Text) -aasspmdName = lens _applicationAutoScalingScalingPolicyMetricDimensionName (\s a -> s { _applicationAutoScalingScalingPolicyMetricDimensionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalingpolicy-metricdimension.html#cfn-applicationautoscaling-scalingpolicy-metricdimension-value -aasspmdValue :: Lens' ApplicationAutoScalingScalingPolicyMetricDimension (Val Text) -aasspmdValue = lens _applicationAutoScalingScalingPolicyMetricDimensionValue (\s a -> s { _applicationAutoScalingScalingPolicyMetricDimensionValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalingPolicyPredefinedMetricSpecification.hs b/library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalingPolicyPredefinedMetricSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalingPolicyPredefinedMetricSpecification.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalingpolicy-predefinedmetricspecification.html - -module Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyPredefinedMetricSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ApplicationAutoScalingScalingPolicyPredefinedMetricSpecification. See --- 'applicationAutoScalingScalingPolicyPredefinedMetricSpecification' for a --- more convenient constructor. -data ApplicationAutoScalingScalingPolicyPredefinedMetricSpecification = - ApplicationAutoScalingScalingPolicyPredefinedMetricSpecification - { _applicationAutoScalingScalingPolicyPredefinedMetricSpecificationPredefinedMetricType :: Val Text - , _applicationAutoScalingScalingPolicyPredefinedMetricSpecificationResourceLabel :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ApplicationAutoScalingScalingPolicyPredefinedMetricSpecification where - toJSON ApplicationAutoScalingScalingPolicyPredefinedMetricSpecification{..} = - object $ - catMaybes - [ (Just . ("PredefinedMetricType",) . toJSON) _applicationAutoScalingScalingPolicyPredefinedMetricSpecificationPredefinedMetricType - , fmap (("ResourceLabel",) . toJSON) _applicationAutoScalingScalingPolicyPredefinedMetricSpecificationResourceLabel - ] - --- | Constructor for --- 'ApplicationAutoScalingScalingPolicyPredefinedMetricSpecification' --- containing required fields as arguments. -applicationAutoScalingScalingPolicyPredefinedMetricSpecification - :: Val Text -- ^ 'aassppmsPredefinedMetricType' - -> ApplicationAutoScalingScalingPolicyPredefinedMetricSpecification -applicationAutoScalingScalingPolicyPredefinedMetricSpecification predefinedMetricTypearg = - ApplicationAutoScalingScalingPolicyPredefinedMetricSpecification - { _applicationAutoScalingScalingPolicyPredefinedMetricSpecificationPredefinedMetricType = predefinedMetricTypearg - , _applicationAutoScalingScalingPolicyPredefinedMetricSpecificationResourceLabel = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalingpolicy-predefinedmetricspecification.html#cfn-applicationautoscaling-scalingpolicy-predefinedmetricspecification-predefinedmetrictype -aassppmsPredefinedMetricType :: Lens' ApplicationAutoScalingScalingPolicyPredefinedMetricSpecification (Val Text) -aassppmsPredefinedMetricType = lens _applicationAutoScalingScalingPolicyPredefinedMetricSpecificationPredefinedMetricType (\s a -> s { _applicationAutoScalingScalingPolicyPredefinedMetricSpecificationPredefinedMetricType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalingpolicy-predefinedmetricspecification.html#cfn-applicationautoscaling-scalingpolicy-predefinedmetricspecification-resourcelabel -aassppmsResourceLabel :: Lens' ApplicationAutoScalingScalingPolicyPredefinedMetricSpecification (Maybe (Val Text)) -aassppmsResourceLabel = lens _applicationAutoScalingScalingPolicyPredefinedMetricSpecificationResourceLabel (\s a -> s { _applicationAutoScalingScalingPolicyPredefinedMetricSpecificationResourceLabel = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalingPolicyStepAdjustment.hs b/library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalingPolicyStepAdjustment.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalingPolicyStepAdjustment.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalingpolicy-stepscalingpolicyconfiguration-stepadjustment.html - -module Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyStepAdjustment where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ApplicationAutoScalingScalingPolicyStepAdjustment. See --- 'applicationAutoScalingScalingPolicyStepAdjustment' for a more convenient --- constructor. -data ApplicationAutoScalingScalingPolicyStepAdjustment = - ApplicationAutoScalingScalingPolicyStepAdjustment - { _applicationAutoScalingScalingPolicyStepAdjustmentMetricIntervalLowerBound :: Maybe (Val Double) - , _applicationAutoScalingScalingPolicyStepAdjustmentMetricIntervalUpperBound :: Maybe (Val Double) - , _applicationAutoScalingScalingPolicyStepAdjustmentScalingAdjustment :: Val Integer - } deriving (Show, Eq) - -instance ToJSON ApplicationAutoScalingScalingPolicyStepAdjustment where - toJSON ApplicationAutoScalingScalingPolicyStepAdjustment{..} = - object $ - catMaybes - [ fmap (("MetricIntervalLowerBound",) . toJSON) _applicationAutoScalingScalingPolicyStepAdjustmentMetricIntervalLowerBound - , fmap (("MetricIntervalUpperBound",) . toJSON) _applicationAutoScalingScalingPolicyStepAdjustmentMetricIntervalUpperBound - , (Just . ("ScalingAdjustment",) . toJSON) _applicationAutoScalingScalingPolicyStepAdjustmentScalingAdjustment - ] - --- | Constructor for 'ApplicationAutoScalingScalingPolicyStepAdjustment' --- containing required fields as arguments. -applicationAutoScalingScalingPolicyStepAdjustment - :: Val Integer -- ^ 'aasspsaScalingAdjustment' - -> ApplicationAutoScalingScalingPolicyStepAdjustment -applicationAutoScalingScalingPolicyStepAdjustment scalingAdjustmentarg = - ApplicationAutoScalingScalingPolicyStepAdjustment - { _applicationAutoScalingScalingPolicyStepAdjustmentMetricIntervalLowerBound = Nothing - , _applicationAutoScalingScalingPolicyStepAdjustmentMetricIntervalUpperBound = Nothing - , _applicationAutoScalingScalingPolicyStepAdjustmentScalingAdjustment = scalingAdjustmentarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalingpolicy-stepscalingpolicyconfiguration-stepadjustment.html#cfn-applicationautoscaling-scalingpolicy-stepscalingpolicyconfiguration-stepadjustment-metricintervallowerbound -aasspsaMetricIntervalLowerBound :: Lens' ApplicationAutoScalingScalingPolicyStepAdjustment (Maybe (Val Double)) -aasspsaMetricIntervalLowerBound = lens _applicationAutoScalingScalingPolicyStepAdjustmentMetricIntervalLowerBound (\s a -> s { _applicationAutoScalingScalingPolicyStepAdjustmentMetricIntervalLowerBound = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalingpolicy-stepscalingpolicyconfiguration-stepadjustment.html#cfn-applicationautoscaling-scalingpolicy-stepscalingpolicyconfiguration-stepadjustment-metricintervalupperbound -aasspsaMetricIntervalUpperBound :: Lens' ApplicationAutoScalingScalingPolicyStepAdjustment (Maybe (Val Double)) -aasspsaMetricIntervalUpperBound = lens _applicationAutoScalingScalingPolicyStepAdjustmentMetricIntervalUpperBound (\s a -> s { _applicationAutoScalingScalingPolicyStepAdjustmentMetricIntervalUpperBound = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalingpolicy-stepscalingpolicyconfiguration-stepadjustment.html#cfn-applicationautoscaling-scalingpolicy-stepscalingpolicyconfiguration-stepadjustment-scalingadjustment -aasspsaScalingAdjustment :: Lens' ApplicationAutoScalingScalingPolicyStepAdjustment (Val Integer) -aasspsaScalingAdjustment = lens _applicationAutoScalingScalingPolicyStepAdjustmentScalingAdjustment (\s a -> s { _applicationAutoScalingScalingPolicyStepAdjustmentScalingAdjustment = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration.hs +++ /dev/null @@ -1,69 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalingpolicy-stepscalingpolicyconfiguration.html - -module Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyStepAdjustment - --- | Full data type definition for --- ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration. See --- 'applicationAutoScalingScalingPolicyStepScalingPolicyConfiguration' for a --- more convenient constructor. -data ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration = - ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration - { _applicationAutoScalingScalingPolicyStepScalingPolicyConfigurationAdjustmentType :: Maybe (Val Text) - , _applicationAutoScalingScalingPolicyStepScalingPolicyConfigurationCooldown :: Maybe (Val Integer) - , _applicationAutoScalingScalingPolicyStepScalingPolicyConfigurationMetricAggregationType :: Maybe (Val Text) - , _applicationAutoScalingScalingPolicyStepScalingPolicyConfigurationMinAdjustmentMagnitude :: Maybe (Val Integer) - , _applicationAutoScalingScalingPolicyStepScalingPolicyConfigurationStepAdjustments :: Maybe [ApplicationAutoScalingScalingPolicyStepAdjustment] - } deriving (Show, Eq) - -instance ToJSON ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration where - toJSON ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration{..} = - object $ - catMaybes - [ fmap (("AdjustmentType",) . toJSON) _applicationAutoScalingScalingPolicyStepScalingPolicyConfigurationAdjustmentType - , fmap (("Cooldown",) . toJSON) _applicationAutoScalingScalingPolicyStepScalingPolicyConfigurationCooldown - , fmap (("MetricAggregationType",) . toJSON) _applicationAutoScalingScalingPolicyStepScalingPolicyConfigurationMetricAggregationType - , fmap (("MinAdjustmentMagnitude",) . toJSON) _applicationAutoScalingScalingPolicyStepScalingPolicyConfigurationMinAdjustmentMagnitude - , fmap (("StepAdjustments",) . toJSON) _applicationAutoScalingScalingPolicyStepScalingPolicyConfigurationStepAdjustments - ] - --- | Constructor for --- 'ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration' --- containing required fields as arguments. -applicationAutoScalingScalingPolicyStepScalingPolicyConfiguration - :: ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration -applicationAutoScalingScalingPolicyStepScalingPolicyConfiguration = - ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration - { _applicationAutoScalingScalingPolicyStepScalingPolicyConfigurationAdjustmentType = Nothing - , _applicationAutoScalingScalingPolicyStepScalingPolicyConfigurationCooldown = Nothing - , _applicationAutoScalingScalingPolicyStepScalingPolicyConfigurationMetricAggregationType = Nothing - , _applicationAutoScalingScalingPolicyStepScalingPolicyConfigurationMinAdjustmentMagnitude = Nothing - , _applicationAutoScalingScalingPolicyStepScalingPolicyConfigurationStepAdjustments = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalingpolicy-stepscalingpolicyconfiguration.html#cfn-applicationautoscaling-scalingpolicy-stepscalingpolicyconfiguration-adjustmenttype -aasspsspcAdjustmentType :: Lens' ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration (Maybe (Val Text)) -aasspsspcAdjustmentType = lens _applicationAutoScalingScalingPolicyStepScalingPolicyConfigurationAdjustmentType (\s a -> s { _applicationAutoScalingScalingPolicyStepScalingPolicyConfigurationAdjustmentType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalingpolicy-stepscalingpolicyconfiguration.html#cfn-applicationautoscaling-scalingpolicy-stepscalingpolicyconfiguration-cooldown -aasspsspcCooldown :: Lens' ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration (Maybe (Val Integer)) -aasspsspcCooldown = lens _applicationAutoScalingScalingPolicyStepScalingPolicyConfigurationCooldown (\s a -> s { _applicationAutoScalingScalingPolicyStepScalingPolicyConfigurationCooldown = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalingpolicy-stepscalingpolicyconfiguration.html#cfn-applicationautoscaling-scalingpolicy-stepscalingpolicyconfiguration-metricaggregationtype -aasspsspcMetricAggregationType :: Lens' ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration (Maybe (Val Text)) -aasspsspcMetricAggregationType = lens _applicationAutoScalingScalingPolicyStepScalingPolicyConfigurationMetricAggregationType (\s a -> s { _applicationAutoScalingScalingPolicyStepScalingPolicyConfigurationMetricAggregationType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalingpolicy-stepscalingpolicyconfiguration.html#cfn-applicationautoscaling-scalingpolicy-stepscalingpolicyconfiguration-minadjustmentmagnitude -aasspsspcMinAdjustmentMagnitude :: Lens' ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration (Maybe (Val Integer)) -aasspsspcMinAdjustmentMagnitude = lens _applicationAutoScalingScalingPolicyStepScalingPolicyConfigurationMinAdjustmentMagnitude (\s a -> s { _applicationAutoScalingScalingPolicyStepScalingPolicyConfigurationMinAdjustmentMagnitude = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalingpolicy-stepscalingpolicyconfiguration.html#cfn-applicationautoscaling-scalingpolicy-stepscalingpolicyconfiguration-stepadjustments -aasspsspcStepAdjustments :: Lens' ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration (Maybe [ApplicationAutoScalingScalingPolicyStepAdjustment]) -aasspsspcStepAdjustments = lens _applicationAutoScalingScalingPolicyStepScalingPolicyConfigurationStepAdjustments (\s a -> s { _applicationAutoScalingScalingPolicyStepScalingPolicyConfigurationStepAdjustments = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration.hs +++ /dev/null @@ -1,79 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalingpolicy-targettrackingscalingpolicyconfiguration.html - -module Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification -import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyPredefinedMetricSpecification - --- | Full data type definition for --- ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration. --- See --- 'applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration' --- for a more convenient constructor. -data ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration = - ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration - { _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationCustomizedMetricSpecification :: Maybe ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification - , _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationDisableScaleIn :: Maybe (Val Bool) - , _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationPredefinedMetricSpecification :: Maybe ApplicationAutoScalingScalingPolicyPredefinedMetricSpecification - , _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationScaleInCooldown :: Maybe (Val Integer) - , _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationScaleOutCooldown :: Maybe (Val Integer) - , _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationTargetValue :: Val Double - } deriving (Show, Eq) - -instance ToJSON ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration where - toJSON ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration{..} = - object $ - catMaybes - [ fmap (("CustomizedMetricSpecification",) . toJSON) _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationCustomizedMetricSpecification - , fmap (("DisableScaleIn",) . toJSON) _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationDisableScaleIn - , fmap (("PredefinedMetricSpecification",) . toJSON) _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationPredefinedMetricSpecification - , fmap (("ScaleInCooldown",) . toJSON) _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationScaleInCooldown - , fmap (("ScaleOutCooldown",) . toJSON) _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationScaleOutCooldown - , (Just . ("TargetValue",) . toJSON) _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationTargetValue - ] - --- | Constructor for --- 'ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration' --- containing required fields as arguments. -applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration - :: Val Double -- ^ 'aasspttspcTargetValue' - -> ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration -applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration targetValuearg = - ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration - { _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationCustomizedMetricSpecification = Nothing - , _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationDisableScaleIn = Nothing - , _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationPredefinedMetricSpecification = Nothing - , _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationScaleInCooldown = Nothing - , _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationScaleOutCooldown = Nothing - , _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationTargetValue = targetValuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalingpolicy-targettrackingscalingpolicyconfiguration.html#cfn-applicationautoscaling-scalingpolicy-targettrackingscalingpolicyconfiguration-customizedmetricspecification -aasspttspcCustomizedMetricSpecification :: Lens' ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration (Maybe ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification) -aasspttspcCustomizedMetricSpecification = lens _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationCustomizedMetricSpecification (\s a -> s { _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationCustomizedMetricSpecification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalingpolicy-targettrackingscalingpolicyconfiguration.html#cfn-applicationautoscaling-scalingpolicy-targettrackingscalingpolicyconfiguration-disablescalein -aasspttspcDisableScaleIn :: Lens' ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration (Maybe (Val Bool)) -aasspttspcDisableScaleIn = lens _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationDisableScaleIn (\s a -> s { _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationDisableScaleIn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalingpolicy-targettrackingscalingpolicyconfiguration.html#cfn-applicationautoscaling-scalingpolicy-targettrackingscalingpolicyconfiguration-predefinedmetricspecification -aasspttspcPredefinedMetricSpecification :: Lens' ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration (Maybe ApplicationAutoScalingScalingPolicyPredefinedMetricSpecification) -aasspttspcPredefinedMetricSpecification = lens _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationPredefinedMetricSpecification (\s a -> s { _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationPredefinedMetricSpecification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalingpolicy-targettrackingscalingpolicyconfiguration.html#cfn-applicationautoscaling-scalingpolicy-targettrackingscalingpolicyconfiguration-scaleincooldown -aasspttspcScaleInCooldown :: Lens' ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration (Maybe (Val Integer)) -aasspttspcScaleInCooldown = lens _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationScaleInCooldown (\s a -> s { _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationScaleInCooldown = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalingpolicy-targettrackingscalingpolicyconfiguration.html#cfn-applicationautoscaling-scalingpolicy-targettrackingscalingpolicyconfiguration-scaleoutcooldown -aasspttspcScaleOutCooldown :: Lens' ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration (Maybe (Val Integer)) -aasspttspcScaleOutCooldown = lens _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationScaleOutCooldown (\s a -> s { _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationScaleOutCooldown = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationautoscaling-scalingpolicy-targettrackingscalingpolicyconfiguration.html#cfn-applicationautoscaling-scalingpolicy-targettrackingscalingpolicyconfiguration-targetvalue -aasspttspcTargetValue :: Lens' ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration (Val Double) -aasspttspcTargetValue = lens _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationTargetValue (\s a -> s { _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationTargetValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationAlarm.hs b/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationAlarm.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationAlarm.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-alarm.html - -module Stratosphere.ResourceProperties.ApplicationInsightsApplicationAlarm where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApplicationInsightsApplicationAlarm. See --- 'applicationInsightsApplicationAlarm' for a more convenient constructor. -data ApplicationInsightsApplicationAlarm = - ApplicationInsightsApplicationAlarm - { _applicationInsightsApplicationAlarmAlarmName :: Val Text - , _applicationInsightsApplicationAlarmSeverity :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ApplicationInsightsApplicationAlarm where - toJSON ApplicationInsightsApplicationAlarm{..} = - object $ - catMaybes - [ (Just . ("AlarmName",) . toJSON) _applicationInsightsApplicationAlarmAlarmName - , fmap (("Severity",) . toJSON) _applicationInsightsApplicationAlarmSeverity - ] - --- | Constructor for 'ApplicationInsightsApplicationAlarm' containing required --- fields as arguments. -applicationInsightsApplicationAlarm - :: Val Text -- ^ 'aiaaAlarmName' - -> ApplicationInsightsApplicationAlarm -applicationInsightsApplicationAlarm alarmNamearg = - ApplicationInsightsApplicationAlarm - { _applicationInsightsApplicationAlarmAlarmName = alarmNamearg - , _applicationInsightsApplicationAlarmSeverity = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-alarm.html#cfn-applicationinsights-application-alarm-alarmname -aiaaAlarmName :: Lens' ApplicationInsightsApplicationAlarm (Val Text) -aiaaAlarmName = lens _applicationInsightsApplicationAlarmAlarmName (\s a -> s { _applicationInsightsApplicationAlarmAlarmName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-alarm.html#cfn-applicationinsights-application-alarm-severity -aiaaSeverity :: Lens' ApplicationInsightsApplicationAlarm (Maybe (Val Text)) -aiaaSeverity = lens _applicationInsightsApplicationAlarmSeverity (\s a -> s { _applicationInsightsApplicationAlarmSeverity = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationAlarmMetric.hs b/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationAlarmMetric.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationAlarmMetric.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-alarmmetric.html - -module Stratosphere.ResourceProperties.ApplicationInsightsApplicationAlarmMetric where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApplicationInsightsApplicationAlarmMetric. --- See 'applicationInsightsApplicationAlarmMetric' for a more convenient --- constructor. -data ApplicationInsightsApplicationAlarmMetric = - ApplicationInsightsApplicationAlarmMetric - { _applicationInsightsApplicationAlarmMetricAlarmMetricName :: Val Text - } deriving (Show, Eq) - -instance ToJSON ApplicationInsightsApplicationAlarmMetric where - toJSON ApplicationInsightsApplicationAlarmMetric{..} = - object $ - catMaybes - [ (Just . ("AlarmMetricName",) . toJSON) _applicationInsightsApplicationAlarmMetricAlarmMetricName - ] - --- | Constructor for 'ApplicationInsightsApplicationAlarmMetric' containing --- required fields as arguments. -applicationInsightsApplicationAlarmMetric - :: Val Text -- ^ 'aiaamAlarmMetricName' - -> ApplicationInsightsApplicationAlarmMetric -applicationInsightsApplicationAlarmMetric alarmMetricNamearg = - ApplicationInsightsApplicationAlarmMetric - { _applicationInsightsApplicationAlarmMetricAlarmMetricName = alarmMetricNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-alarmmetric.html#cfn-applicationinsights-application-alarmmetric-alarmmetricname -aiaamAlarmMetricName :: Lens' ApplicationInsightsApplicationAlarmMetric (Val Text) -aiaamAlarmMetricName = lens _applicationInsightsApplicationAlarmMetricAlarmMetricName (\s a -> s { _applicationInsightsApplicationAlarmMetricAlarmMetricName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationComponentConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationComponentConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationComponentConfiguration.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-componentconfiguration.html - -module Stratosphere.ResourceProperties.ApplicationInsightsApplicationComponentConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ApplicationInsightsApplicationConfigurationDetails -import Stratosphere.ResourceProperties.ApplicationInsightsApplicationSubComponentTypeConfiguration - --- | Full data type definition for --- ApplicationInsightsApplicationComponentConfiguration. See --- 'applicationInsightsApplicationComponentConfiguration' for a more --- convenient constructor. -data ApplicationInsightsApplicationComponentConfiguration = - ApplicationInsightsApplicationComponentConfiguration - { _applicationInsightsApplicationComponentConfigurationConfigurationDetails :: Maybe ApplicationInsightsApplicationConfigurationDetails - , _applicationInsightsApplicationComponentConfigurationSubComponentTypeConfigurations :: Maybe [ApplicationInsightsApplicationSubComponentTypeConfiguration] - } deriving (Show, Eq) - -instance ToJSON ApplicationInsightsApplicationComponentConfiguration where - toJSON ApplicationInsightsApplicationComponentConfiguration{..} = - object $ - catMaybes - [ fmap (("ConfigurationDetails",) . toJSON) _applicationInsightsApplicationComponentConfigurationConfigurationDetails - , fmap (("SubComponentTypeConfigurations",) . toJSON) _applicationInsightsApplicationComponentConfigurationSubComponentTypeConfigurations - ] - --- | Constructor for 'ApplicationInsightsApplicationComponentConfiguration' --- containing required fields as arguments. -applicationInsightsApplicationComponentConfiguration - :: ApplicationInsightsApplicationComponentConfiguration -applicationInsightsApplicationComponentConfiguration = - ApplicationInsightsApplicationComponentConfiguration - { _applicationInsightsApplicationComponentConfigurationConfigurationDetails = Nothing - , _applicationInsightsApplicationComponentConfigurationSubComponentTypeConfigurations = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-componentconfiguration.html#cfn-applicationinsights-application-componentconfiguration-configurationdetails -aiaccConfigurationDetails :: Lens' ApplicationInsightsApplicationComponentConfiguration (Maybe ApplicationInsightsApplicationConfigurationDetails) -aiaccConfigurationDetails = lens _applicationInsightsApplicationComponentConfigurationConfigurationDetails (\s a -> s { _applicationInsightsApplicationComponentConfigurationConfigurationDetails = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-componentconfiguration.html#cfn-applicationinsights-application-componentconfiguration-subcomponenttypeconfigurations -aiaccSubComponentTypeConfigurations :: Lens' ApplicationInsightsApplicationComponentConfiguration (Maybe [ApplicationInsightsApplicationSubComponentTypeConfiguration]) -aiaccSubComponentTypeConfigurations = lens _applicationInsightsApplicationComponentConfigurationSubComponentTypeConfigurations (\s a -> s { _applicationInsightsApplicationComponentConfigurationSubComponentTypeConfigurations = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationComponentMonitoringSetting.hs b/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationComponentMonitoringSetting.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationComponentMonitoringSetting.hs +++ /dev/null @@ -1,76 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-componentmonitoringsetting.html - -module Stratosphere.ResourceProperties.ApplicationInsightsApplicationComponentMonitoringSetting where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ApplicationInsightsApplicationComponentConfiguration - --- | Full data type definition for --- ApplicationInsightsApplicationComponentMonitoringSetting. See --- 'applicationInsightsApplicationComponentMonitoringSetting' for a more --- convenient constructor. -data ApplicationInsightsApplicationComponentMonitoringSetting = - ApplicationInsightsApplicationComponentMonitoringSetting - { _applicationInsightsApplicationComponentMonitoringSettingComponentARN :: Maybe (Val Text) - , _applicationInsightsApplicationComponentMonitoringSettingComponentConfigurationMode :: Maybe (Val Text) - , _applicationInsightsApplicationComponentMonitoringSettingComponentName :: Maybe (Val Text) - , _applicationInsightsApplicationComponentMonitoringSettingCustomComponentConfiguration :: Maybe ApplicationInsightsApplicationComponentConfiguration - , _applicationInsightsApplicationComponentMonitoringSettingDefaultOverwriteComponentConfiguration :: Maybe ApplicationInsightsApplicationComponentConfiguration - , _applicationInsightsApplicationComponentMonitoringSettingTier :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ApplicationInsightsApplicationComponentMonitoringSetting where - toJSON ApplicationInsightsApplicationComponentMonitoringSetting{..} = - object $ - catMaybes - [ fmap (("ComponentARN",) . toJSON) _applicationInsightsApplicationComponentMonitoringSettingComponentARN - , fmap (("ComponentConfigurationMode",) . toJSON) _applicationInsightsApplicationComponentMonitoringSettingComponentConfigurationMode - , fmap (("ComponentName",) . toJSON) _applicationInsightsApplicationComponentMonitoringSettingComponentName - , fmap (("CustomComponentConfiguration",) . toJSON) _applicationInsightsApplicationComponentMonitoringSettingCustomComponentConfiguration - , fmap (("DefaultOverwriteComponentConfiguration",) . toJSON) _applicationInsightsApplicationComponentMonitoringSettingDefaultOverwriteComponentConfiguration - , fmap (("Tier",) . toJSON) _applicationInsightsApplicationComponentMonitoringSettingTier - ] - --- | Constructor for --- 'ApplicationInsightsApplicationComponentMonitoringSetting' containing --- required fields as arguments. -applicationInsightsApplicationComponentMonitoringSetting - :: ApplicationInsightsApplicationComponentMonitoringSetting -applicationInsightsApplicationComponentMonitoringSetting = - ApplicationInsightsApplicationComponentMonitoringSetting - { _applicationInsightsApplicationComponentMonitoringSettingComponentARN = Nothing - , _applicationInsightsApplicationComponentMonitoringSettingComponentConfigurationMode = Nothing - , _applicationInsightsApplicationComponentMonitoringSettingComponentName = Nothing - , _applicationInsightsApplicationComponentMonitoringSettingCustomComponentConfiguration = Nothing - , _applicationInsightsApplicationComponentMonitoringSettingDefaultOverwriteComponentConfiguration = Nothing - , _applicationInsightsApplicationComponentMonitoringSettingTier = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-componentmonitoringsetting.html#cfn-applicationinsights-application-componentmonitoringsetting-componentarn -aiacmsComponentARN :: Lens' ApplicationInsightsApplicationComponentMonitoringSetting (Maybe (Val Text)) -aiacmsComponentARN = lens _applicationInsightsApplicationComponentMonitoringSettingComponentARN (\s a -> s { _applicationInsightsApplicationComponentMonitoringSettingComponentARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-componentmonitoringsetting.html#cfn-applicationinsights-application-componentmonitoringsetting-componentconfigurationmode -aiacmsComponentConfigurationMode :: Lens' ApplicationInsightsApplicationComponentMonitoringSetting (Maybe (Val Text)) -aiacmsComponentConfigurationMode = lens _applicationInsightsApplicationComponentMonitoringSettingComponentConfigurationMode (\s a -> s { _applicationInsightsApplicationComponentMonitoringSettingComponentConfigurationMode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-componentmonitoringsetting.html#cfn-applicationinsights-application-componentmonitoringsetting-componentname -aiacmsComponentName :: Lens' ApplicationInsightsApplicationComponentMonitoringSetting (Maybe (Val Text)) -aiacmsComponentName = lens _applicationInsightsApplicationComponentMonitoringSettingComponentName (\s a -> s { _applicationInsightsApplicationComponentMonitoringSettingComponentName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-componentmonitoringsetting.html#cfn-applicationinsights-application-componentmonitoringsetting-customcomponentconfiguration -aiacmsCustomComponentConfiguration :: Lens' ApplicationInsightsApplicationComponentMonitoringSetting (Maybe ApplicationInsightsApplicationComponentConfiguration) -aiacmsCustomComponentConfiguration = lens _applicationInsightsApplicationComponentMonitoringSettingCustomComponentConfiguration (\s a -> s { _applicationInsightsApplicationComponentMonitoringSettingCustomComponentConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-componentmonitoringsetting.html#cfn-applicationinsights-application-componentmonitoringsetting-defaultoverwritecomponentconfiguration -aiacmsDefaultOverwriteComponentConfiguration :: Lens' ApplicationInsightsApplicationComponentMonitoringSetting (Maybe ApplicationInsightsApplicationComponentConfiguration) -aiacmsDefaultOverwriteComponentConfiguration = lens _applicationInsightsApplicationComponentMonitoringSettingDefaultOverwriteComponentConfiguration (\s a -> s { _applicationInsightsApplicationComponentMonitoringSettingDefaultOverwriteComponentConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-componentmonitoringsetting.html#cfn-applicationinsights-application-componentmonitoringsetting-tier -aiacmsTier :: Lens' ApplicationInsightsApplicationComponentMonitoringSetting (Maybe (Val Text)) -aiacmsTier = lens _applicationInsightsApplicationComponentMonitoringSettingTier (\s a -> s { _applicationInsightsApplicationComponentMonitoringSettingTier = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationConfigurationDetails.hs b/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationConfigurationDetails.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationConfigurationDetails.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-configurationdetails.html - -module Stratosphere.ResourceProperties.ApplicationInsightsApplicationConfigurationDetails where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ApplicationInsightsApplicationAlarmMetric -import Stratosphere.ResourceProperties.ApplicationInsightsApplicationAlarm -import Stratosphere.ResourceProperties.ApplicationInsightsApplicationLog -import Stratosphere.ResourceProperties.ApplicationInsightsApplicationWindowsEvent - --- | Full data type definition for --- ApplicationInsightsApplicationConfigurationDetails. See --- 'applicationInsightsApplicationConfigurationDetails' for a more --- convenient constructor. -data ApplicationInsightsApplicationConfigurationDetails = - ApplicationInsightsApplicationConfigurationDetails - { _applicationInsightsApplicationConfigurationDetailsAlarmMetrics :: Maybe [ApplicationInsightsApplicationAlarmMetric] - , _applicationInsightsApplicationConfigurationDetailsAlarms :: Maybe [ApplicationInsightsApplicationAlarm] - , _applicationInsightsApplicationConfigurationDetailsLogs :: Maybe [ApplicationInsightsApplicationLog] - , _applicationInsightsApplicationConfigurationDetailsWindowsEvents :: Maybe [ApplicationInsightsApplicationWindowsEvent] - } deriving (Show, Eq) - -instance ToJSON ApplicationInsightsApplicationConfigurationDetails where - toJSON ApplicationInsightsApplicationConfigurationDetails{..} = - object $ - catMaybes - [ fmap (("AlarmMetrics",) . toJSON) _applicationInsightsApplicationConfigurationDetailsAlarmMetrics - , fmap (("Alarms",) . toJSON) _applicationInsightsApplicationConfigurationDetailsAlarms - , fmap (("Logs",) . toJSON) _applicationInsightsApplicationConfigurationDetailsLogs - , fmap (("WindowsEvents",) . toJSON) _applicationInsightsApplicationConfigurationDetailsWindowsEvents - ] - --- | Constructor for 'ApplicationInsightsApplicationConfigurationDetails' --- containing required fields as arguments. -applicationInsightsApplicationConfigurationDetails - :: ApplicationInsightsApplicationConfigurationDetails -applicationInsightsApplicationConfigurationDetails = - ApplicationInsightsApplicationConfigurationDetails - { _applicationInsightsApplicationConfigurationDetailsAlarmMetrics = Nothing - , _applicationInsightsApplicationConfigurationDetailsAlarms = Nothing - , _applicationInsightsApplicationConfigurationDetailsLogs = Nothing - , _applicationInsightsApplicationConfigurationDetailsWindowsEvents = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-configurationdetails.html#cfn-applicationinsights-application-configurationdetails-alarmmetrics -aiacdAlarmMetrics :: Lens' ApplicationInsightsApplicationConfigurationDetails (Maybe [ApplicationInsightsApplicationAlarmMetric]) -aiacdAlarmMetrics = lens _applicationInsightsApplicationConfigurationDetailsAlarmMetrics (\s a -> s { _applicationInsightsApplicationConfigurationDetailsAlarmMetrics = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-configurationdetails.html#cfn-applicationinsights-application-configurationdetails-alarms -aiacdAlarms :: Lens' ApplicationInsightsApplicationConfigurationDetails (Maybe [ApplicationInsightsApplicationAlarm]) -aiacdAlarms = lens _applicationInsightsApplicationConfigurationDetailsAlarms (\s a -> s { _applicationInsightsApplicationConfigurationDetailsAlarms = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-configurationdetails.html#cfn-applicationinsights-application-configurationdetails-logs -aiacdLogs :: Lens' ApplicationInsightsApplicationConfigurationDetails (Maybe [ApplicationInsightsApplicationLog]) -aiacdLogs = lens _applicationInsightsApplicationConfigurationDetailsLogs (\s a -> s { _applicationInsightsApplicationConfigurationDetailsLogs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-configurationdetails.html#cfn-applicationinsights-application-configurationdetails-windowsevents -aiacdWindowsEvents :: Lens' ApplicationInsightsApplicationConfigurationDetails (Maybe [ApplicationInsightsApplicationWindowsEvent]) -aiacdWindowsEvents = lens _applicationInsightsApplicationConfigurationDetailsWindowsEvents (\s a -> s { _applicationInsightsApplicationConfigurationDetailsWindowsEvents = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationCustomComponent.hs b/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationCustomComponent.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationCustomComponent.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-customcomponent.html - -module Stratosphere.ResourceProperties.ApplicationInsightsApplicationCustomComponent where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ApplicationInsightsApplicationCustomComponent. See --- 'applicationInsightsApplicationCustomComponent' for a more convenient --- constructor. -data ApplicationInsightsApplicationCustomComponent = - ApplicationInsightsApplicationCustomComponent - { _applicationInsightsApplicationCustomComponentComponentName :: Val Text - , _applicationInsightsApplicationCustomComponentResourceList :: ValList Text - } deriving (Show, Eq) - -instance ToJSON ApplicationInsightsApplicationCustomComponent where - toJSON ApplicationInsightsApplicationCustomComponent{..} = - object $ - catMaybes - [ (Just . ("ComponentName",) . toJSON) _applicationInsightsApplicationCustomComponentComponentName - , (Just . ("ResourceList",) . toJSON) _applicationInsightsApplicationCustomComponentResourceList - ] - --- | Constructor for 'ApplicationInsightsApplicationCustomComponent' --- containing required fields as arguments. -applicationInsightsApplicationCustomComponent - :: Val Text -- ^ 'aiaccComponentName' - -> ValList Text -- ^ 'aiaccResourceList' - -> ApplicationInsightsApplicationCustomComponent -applicationInsightsApplicationCustomComponent componentNamearg resourceListarg = - ApplicationInsightsApplicationCustomComponent - { _applicationInsightsApplicationCustomComponentComponentName = componentNamearg - , _applicationInsightsApplicationCustomComponentResourceList = resourceListarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-customcomponent.html#cfn-applicationinsights-application-customcomponent-componentname -aiaccComponentName :: Lens' ApplicationInsightsApplicationCustomComponent (Val Text) -aiaccComponentName = lens _applicationInsightsApplicationCustomComponentComponentName (\s a -> s { _applicationInsightsApplicationCustomComponentComponentName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-customcomponent.html#cfn-applicationinsights-application-customcomponent-resourcelist -aiaccResourceList :: Lens' ApplicationInsightsApplicationCustomComponent (ValList Text) -aiaccResourceList = lens _applicationInsightsApplicationCustomComponentResourceList (\s a -> s { _applicationInsightsApplicationCustomComponentResourceList = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationLog.hs b/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationLog.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationLog.hs +++ /dev/null @@ -1,67 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-log.html - -module Stratosphere.ResourceProperties.ApplicationInsightsApplicationLog where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApplicationInsightsApplicationLog. See --- 'applicationInsightsApplicationLog' for a more convenient constructor. -data ApplicationInsightsApplicationLog = - ApplicationInsightsApplicationLog - { _applicationInsightsApplicationLogEncoding :: Maybe (Val Text) - , _applicationInsightsApplicationLogLogGroupName :: Maybe (Val Text) - , _applicationInsightsApplicationLogLogPath :: Maybe (Val Text) - , _applicationInsightsApplicationLogLogType :: Val Text - , _applicationInsightsApplicationLogPatternSet :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ApplicationInsightsApplicationLog where - toJSON ApplicationInsightsApplicationLog{..} = - object $ - catMaybes - [ fmap (("Encoding",) . toJSON) _applicationInsightsApplicationLogEncoding - , fmap (("LogGroupName",) . toJSON) _applicationInsightsApplicationLogLogGroupName - , fmap (("LogPath",) . toJSON) _applicationInsightsApplicationLogLogPath - , (Just . ("LogType",) . toJSON) _applicationInsightsApplicationLogLogType - , fmap (("PatternSet",) . toJSON) _applicationInsightsApplicationLogPatternSet - ] - --- | Constructor for 'ApplicationInsightsApplicationLog' containing required --- fields as arguments. -applicationInsightsApplicationLog - :: Val Text -- ^ 'aialLogType' - -> ApplicationInsightsApplicationLog -applicationInsightsApplicationLog logTypearg = - ApplicationInsightsApplicationLog - { _applicationInsightsApplicationLogEncoding = Nothing - , _applicationInsightsApplicationLogLogGroupName = Nothing - , _applicationInsightsApplicationLogLogPath = Nothing - , _applicationInsightsApplicationLogLogType = logTypearg - , _applicationInsightsApplicationLogPatternSet = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-log.html#cfn-applicationinsights-application-log-encoding -aialEncoding :: Lens' ApplicationInsightsApplicationLog (Maybe (Val Text)) -aialEncoding = lens _applicationInsightsApplicationLogEncoding (\s a -> s { _applicationInsightsApplicationLogEncoding = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-log.html#cfn-applicationinsights-application-log-loggroupname -aialLogGroupName :: Lens' ApplicationInsightsApplicationLog (Maybe (Val Text)) -aialLogGroupName = lens _applicationInsightsApplicationLogLogGroupName (\s a -> s { _applicationInsightsApplicationLogLogGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-log.html#cfn-applicationinsights-application-log-logpath -aialLogPath :: Lens' ApplicationInsightsApplicationLog (Maybe (Val Text)) -aialLogPath = lens _applicationInsightsApplicationLogLogPath (\s a -> s { _applicationInsightsApplicationLogLogPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-log.html#cfn-applicationinsights-application-log-logtype -aialLogType :: Lens' ApplicationInsightsApplicationLog (Val Text) -aialLogType = lens _applicationInsightsApplicationLogLogType (\s a -> s { _applicationInsightsApplicationLogLogType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-log.html#cfn-applicationinsights-application-log-patternset -aialPatternSet :: Lens' ApplicationInsightsApplicationLog (Maybe (Val Text)) -aialPatternSet = lens _applicationInsightsApplicationLogPatternSet (\s a -> s { _applicationInsightsApplicationLogPatternSet = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationLogPattern.hs b/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationLogPattern.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationLogPattern.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-logpattern.html - -module Stratosphere.ResourceProperties.ApplicationInsightsApplicationLogPattern where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApplicationInsightsApplicationLogPattern. --- See 'applicationInsightsApplicationLogPattern' for a more convenient --- constructor. -data ApplicationInsightsApplicationLogPattern = - ApplicationInsightsApplicationLogPattern - { _applicationInsightsApplicationLogPatternPattern :: Val Text - , _applicationInsightsApplicationLogPatternPatternName :: Val Text - , _applicationInsightsApplicationLogPatternRank :: Val Integer - } deriving (Show, Eq) - -instance ToJSON ApplicationInsightsApplicationLogPattern where - toJSON ApplicationInsightsApplicationLogPattern{..} = - object $ - catMaybes - [ (Just . ("Pattern",) . toJSON) _applicationInsightsApplicationLogPatternPattern - , (Just . ("PatternName",) . toJSON) _applicationInsightsApplicationLogPatternPatternName - , (Just . ("Rank",) . toJSON) _applicationInsightsApplicationLogPatternRank - ] - --- | Constructor for 'ApplicationInsightsApplicationLogPattern' containing --- required fields as arguments. -applicationInsightsApplicationLogPattern - :: Val Text -- ^ 'aialpPattern' - -> Val Text -- ^ 'aialpPatternName' - -> Val Integer -- ^ 'aialpRank' - -> ApplicationInsightsApplicationLogPattern -applicationInsightsApplicationLogPattern patternarg patternNamearg rankarg = - ApplicationInsightsApplicationLogPattern - { _applicationInsightsApplicationLogPatternPattern = patternarg - , _applicationInsightsApplicationLogPatternPatternName = patternNamearg - , _applicationInsightsApplicationLogPatternRank = rankarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-logpattern.html#cfn-applicationinsights-application-logpattern-pattern -aialpPattern :: Lens' ApplicationInsightsApplicationLogPattern (Val Text) -aialpPattern = lens _applicationInsightsApplicationLogPatternPattern (\s a -> s { _applicationInsightsApplicationLogPatternPattern = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-logpattern.html#cfn-applicationinsights-application-logpattern-patternname -aialpPatternName :: Lens' ApplicationInsightsApplicationLogPattern (Val Text) -aialpPatternName = lens _applicationInsightsApplicationLogPatternPatternName (\s a -> s { _applicationInsightsApplicationLogPatternPatternName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-logpattern.html#cfn-applicationinsights-application-logpattern-rank -aialpRank :: Lens' ApplicationInsightsApplicationLogPattern (Val Integer) -aialpRank = lens _applicationInsightsApplicationLogPatternRank (\s a -> s { _applicationInsightsApplicationLogPatternRank = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationLogPatternSet.hs b/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationLogPatternSet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationLogPatternSet.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-logpatternset.html - -module Stratosphere.ResourceProperties.ApplicationInsightsApplicationLogPatternSet where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ApplicationInsightsApplicationLogPattern - --- | Full data type definition for --- ApplicationInsightsApplicationLogPatternSet. See --- 'applicationInsightsApplicationLogPatternSet' for a more convenient --- constructor. -data ApplicationInsightsApplicationLogPatternSet = - ApplicationInsightsApplicationLogPatternSet - { _applicationInsightsApplicationLogPatternSetLogPatterns :: [ApplicationInsightsApplicationLogPattern] - , _applicationInsightsApplicationLogPatternSetPatternSetName :: Val Text - } deriving (Show, Eq) - -instance ToJSON ApplicationInsightsApplicationLogPatternSet where - toJSON ApplicationInsightsApplicationLogPatternSet{..} = - object $ - catMaybes - [ (Just . ("LogPatterns",) . toJSON) _applicationInsightsApplicationLogPatternSetLogPatterns - , (Just . ("PatternSetName",) . toJSON) _applicationInsightsApplicationLogPatternSetPatternSetName - ] - --- | Constructor for 'ApplicationInsightsApplicationLogPatternSet' containing --- required fields as arguments. -applicationInsightsApplicationLogPatternSet - :: [ApplicationInsightsApplicationLogPattern] -- ^ 'aialpsLogPatterns' - -> Val Text -- ^ 'aialpsPatternSetName' - -> ApplicationInsightsApplicationLogPatternSet -applicationInsightsApplicationLogPatternSet logPatternsarg patternSetNamearg = - ApplicationInsightsApplicationLogPatternSet - { _applicationInsightsApplicationLogPatternSetLogPatterns = logPatternsarg - , _applicationInsightsApplicationLogPatternSetPatternSetName = patternSetNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-logpatternset.html#cfn-applicationinsights-application-logpatternset-logpatterns -aialpsLogPatterns :: Lens' ApplicationInsightsApplicationLogPatternSet [ApplicationInsightsApplicationLogPattern] -aialpsLogPatterns = lens _applicationInsightsApplicationLogPatternSetLogPatterns (\s a -> s { _applicationInsightsApplicationLogPatternSetLogPatterns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-logpatternset.html#cfn-applicationinsights-application-logpatternset-patternsetname -aialpsPatternSetName :: Lens' ApplicationInsightsApplicationLogPatternSet (Val Text) -aialpsPatternSetName = lens _applicationInsightsApplicationLogPatternSetPatternSetName (\s a -> s { _applicationInsightsApplicationLogPatternSetPatternSetName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationSubComponentConfigurationDetails.hs b/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationSubComponentConfigurationDetails.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationSubComponentConfigurationDetails.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-subcomponentconfigurationdetails.html - -module Stratosphere.ResourceProperties.ApplicationInsightsApplicationSubComponentConfigurationDetails where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ApplicationInsightsApplicationAlarmMetric -import Stratosphere.ResourceProperties.ApplicationInsightsApplicationLog -import Stratosphere.ResourceProperties.ApplicationInsightsApplicationWindowsEvent - --- | Full data type definition for --- ApplicationInsightsApplicationSubComponentConfigurationDetails. See --- 'applicationInsightsApplicationSubComponentConfigurationDetails' for a --- more convenient constructor. -data ApplicationInsightsApplicationSubComponentConfigurationDetails = - ApplicationInsightsApplicationSubComponentConfigurationDetails - { _applicationInsightsApplicationSubComponentConfigurationDetailsAlarmMetrics :: Maybe [ApplicationInsightsApplicationAlarmMetric] - , _applicationInsightsApplicationSubComponentConfigurationDetailsLogs :: Maybe [ApplicationInsightsApplicationLog] - , _applicationInsightsApplicationSubComponentConfigurationDetailsWindowsEvents :: Maybe [ApplicationInsightsApplicationWindowsEvent] - } deriving (Show, Eq) - -instance ToJSON ApplicationInsightsApplicationSubComponentConfigurationDetails where - toJSON ApplicationInsightsApplicationSubComponentConfigurationDetails{..} = - object $ - catMaybes - [ fmap (("AlarmMetrics",) . toJSON) _applicationInsightsApplicationSubComponentConfigurationDetailsAlarmMetrics - , fmap (("Logs",) . toJSON) _applicationInsightsApplicationSubComponentConfigurationDetailsLogs - , fmap (("WindowsEvents",) . toJSON) _applicationInsightsApplicationSubComponentConfigurationDetailsWindowsEvents - ] - --- | Constructor for --- 'ApplicationInsightsApplicationSubComponentConfigurationDetails' --- containing required fields as arguments. -applicationInsightsApplicationSubComponentConfigurationDetails - :: ApplicationInsightsApplicationSubComponentConfigurationDetails -applicationInsightsApplicationSubComponentConfigurationDetails = - ApplicationInsightsApplicationSubComponentConfigurationDetails - { _applicationInsightsApplicationSubComponentConfigurationDetailsAlarmMetrics = Nothing - , _applicationInsightsApplicationSubComponentConfigurationDetailsLogs = Nothing - , _applicationInsightsApplicationSubComponentConfigurationDetailsWindowsEvents = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-subcomponentconfigurationdetails.html#cfn-applicationinsights-application-subcomponentconfigurationdetails-alarmmetrics -aiasccdAlarmMetrics :: Lens' ApplicationInsightsApplicationSubComponentConfigurationDetails (Maybe [ApplicationInsightsApplicationAlarmMetric]) -aiasccdAlarmMetrics = lens _applicationInsightsApplicationSubComponentConfigurationDetailsAlarmMetrics (\s a -> s { _applicationInsightsApplicationSubComponentConfigurationDetailsAlarmMetrics = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-subcomponentconfigurationdetails.html#cfn-applicationinsights-application-subcomponentconfigurationdetails-logs -aiasccdLogs :: Lens' ApplicationInsightsApplicationSubComponentConfigurationDetails (Maybe [ApplicationInsightsApplicationLog]) -aiasccdLogs = lens _applicationInsightsApplicationSubComponentConfigurationDetailsLogs (\s a -> s { _applicationInsightsApplicationSubComponentConfigurationDetailsLogs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-subcomponentconfigurationdetails.html#cfn-applicationinsights-application-subcomponentconfigurationdetails-windowsevents -aiasccdWindowsEvents :: Lens' ApplicationInsightsApplicationSubComponentConfigurationDetails (Maybe [ApplicationInsightsApplicationWindowsEvent]) -aiasccdWindowsEvents = lens _applicationInsightsApplicationSubComponentConfigurationDetailsWindowsEvents (\s a -> s { _applicationInsightsApplicationSubComponentConfigurationDetailsWindowsEvents = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationSubComponentTypeConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationSubComponentTypeConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationSubComponentTypeConfiguration.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-subcomponenttypeconfiguration.html - -module Stratosphere.ResourceProperties.ApplicationInsightsApplicationSubComponentTypeConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ApplicationInsightsApplicationSubComponentConfigurationDetails - --- | Full data type definition for --- ApplicationInsightsApplicationSubComponentTypeConfiguration. See --- 'applicationInsightsApplicationSubComponentTypeConfiguration' for a more --- convenient constructor. -data ApplicationInsightsApplicationSubComponentTypeConfiguration = - ApplicationInsightsApplicationSubComponentTypeConfiguration - { _applicationInsightsApplicationSubComponentTypeConfigurationSubComponentConfigurationDetails :: ApplicationInsightsApplicationSubComponentConfigurationDetails - , _applicationInsightsApplicationSubComponentTypeConfigurationSubComponentType :: Val Text - } deriving (Show, Eq) - -instance ToJSON ApplicationInsightsApplicationSubComponentTypeConfiguration where - toJSON ApplicationInsightsApplicationSubComponentTypeConfiguration{..} = - object $ - catMaybes - [ (Just . ("SubComponentConfigurationDetails",) . toJSON) _applicationInsightsApplicationSubComponentTypeConfigurationSubComponentConfigurationDetails - , (Just . ("SubComponentType",) . toJSON) _applicationInsightsApplicationSubComponentTypeConfigurationSubComponentType - ] - --- | Constructor for --- 'ApplicationInsightsApplicationSubComponentTypeConfiguration' containing --- required fields as arguments. -applicationInsightsApplicationSubComponentTypeConfiguration - :: ApplicationInsightsApplicationSubComponentConfigurationDetails -- ^ 'aiasctcSubComponentConfigurationDetails' - -> Val Text -- ^ 'aiasctcSubComponentType' - -> ApplicationInsightsApplicationSubComponentTypeConfiguration -applicationInsightsApplicationSubComponentTypeConfiguration subComponentConfigurationDetailsarg subComponentTypearg = - ApplicationInsightsApplicationSubComponentTypeConfiguration - { _applicationInsightsApplicationSubComponentTypeConfigurationSubComponentConfigurationDetails = subComponentConfigurationDetailsarg - , _applicationInsightsApplicationSubComponentTypeConfigurationSubComponentType = subComponentTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-subcomponenttypeconfiguration.html#cfn-applicationinsights-application-subcomponenttypeconfiguration-subcomponentconfigurationdetails -aiasctcSubComponentConfigurationDetails :: Lens' ApplicationInsightsApplicationSubComponentTypeConfiguration ApplicationInsightsApplicationSubComponentConfigurationDetails -aiasctcSubComponentConfigurationDetails = lens _applicationInsightsApplicationSubComponentTypeConfigurationSubComponentConfigurationDetails (\s a -> s { _applicationInsightsApplicationSubComponentTypeConfigurationSubComponentConfigurationDetails = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-subcomponenttypeconfiguration.html#cfn-applicationinsights-application-subcomponenttypeconfiguration-subcomponenttype -aiasctcSubComponentType :: Lens' ApplicationInsightsApplicationSubComponentTypeConfiguration (Val Text) -aiasctcSubComponentType = lens _applicationInsightsApplicationSubComponentTypeConfigurationSubComponentType (\s a -> s { _applicationInsightsApplicationSubComponentTypeConfigurationSubComponentType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationWindowsEvent.hs b/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationWindowsEvent.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ApplicationInsightsApplicationWindowsEvent.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-windowsevent.html - -module Stratosphere.ResourceProperties.ApplicationInsightsApplicationWindowsEvent where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApplicationInsightsApplicationWindowsEvent. --- See 'applicationInsightsApplicationWindowsEvent' for a more convenient --- constructor. -data ApplicationInsightsApplicationWindowsEvent = - ApplicationInsightsApplicationWindowsEvent - { _applicationInsightsApplicationWindowsEventEventLevels :: ValList Text - , _applicationInsightsApplicationWindowsEventEventName :: Val Text - , _applicationInsightsApplicationWindowsEventLogGroupName :: Val Text - , _applicationInsightsApplicationWindowsEventPatternSet :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ApplicationInsightsApplicationWindowsEvent where - toJSON ApplicationInsightsApplicationWindowsEvent{..} = - object $ - catMaybes - [ (Just . ("EventLevels",) . toJSON) _applicationInsightsApplicationWindowsEventEventLevels - , (Just . ("EventName",) . toJSON) _applicationInsightsApplicationWindowsEventEventName - , (Just . ("LogGroupName",) . toJSON) _applicationInsightsApplicationWindowsEventLogGroupName - , fmap (("PatternSet",) . toJSON) _applicationInsightsApplicationWindowsEventPatternSet - ] - --- | Constructor for 'ApplicationInsightsApplicationWindowsEvent' containing --- required fields as arguments. -applicationInsightsApplicationWindowsEvent - :: ValList Text -- ^ 'aiaweEventLevels' - -> Val Text -- ^ 'aiaweEventName' - -> Val Text -- ^ 'aiaweLogGroupName' - -> ApplicationInsightsApplicationWindowsEvent -applicationInsightsApplicationWindowsEvent eventLevelsarg eventNamearg logGroupNamearg = - ApplicationInsightsApplicationWindowsEvent - { _applicationInsightsApplicationWindowsEventEventLevels = eventLevelsarg - , _applicationInsightsApplicationWindowsEventEventName = eventNamearg - , _applicationInsightsApplicationWindowsEventLogGroupName = logGroupNamearg - , _applicationInsightsApplicationWindowsEventPatternSet = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-windowsevent.html#cfn-applicationinsights-application-windowsevent-eventlevels -aiaweEventLevels :: Lens' ApplicationInsightsApplicationWindowsEvent (ValList Text) -aiaweEventLevels = lens _applicationInsightsApplicationWindowsEventEventLevels (\s a -> s { _applicationInsightsApplicationWindowsEventEventLevels = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-windowsevent.html#cfn-applicationinsights-application-windowsevent-eventname -aiaweEventName :: Lens' ApplicationInsightsApplicationWindowsEvent (Val Text) -aiaweEventName = lens _applicationInsightsApplicationWindowsEventEventName (\s a -> s { _applicationInsightsApplicationWindowsEventEventName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-windowsevent.html#cfn-applicationinsights-application-windowsevent-loggroupname -aiaweLogGroupName :: Lens' ApplicationInsightsApplicationWindowsEvent (Val Text) -aiaweLogGroupName = lens _applicationInsightsApplicationWindowsEventLogGroupName (\s a -> s { _applicationInsightsApplicationWindowsEventLogGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-applicationinsights-application-windowsevent.html#cfn-applicationinsights-application-windowsevent-patternset -aiawePatternSet :: Lens' ApplicationInsightsApplicationWindowsEvent (Maybe (Val Text)) -aiawePatternSet = lens _applicationInsightsApplicationWindowsEventPatternSet (\s a -> s { _applicationInsightsApplicationWindowsEventPatternSet = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AthenaDataCatalogTags.hs b/library-gen/Stratosphere/ResourceProperties/AthenaDataCatalogTags.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AthenaDataCatalogTags.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-athena-datacatalog-tags.html - -module Stratosphere.ResourceProperties.AthenaDataCatalogTags where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for AthenaDataCatalogTags. See --- 'athenaDataCatalogTags' for a more convenient constructor. -data AthenaDataCatalogTags = - AthenaDataCatalogTags - { _athenaDataCatalogTagsTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToJSON AthenaDataCatalogTags where - toJSON AthenaDataCatalogTags{..} = - object $ - catMaybes - [ fmap (("Tags",) . toJSON) _athenaDataCatalogTagsTags - ] - --- | Constructor for 'AthenaDataCatalogTags' containing required fields as --- arguments. -athenaDataCatalogTags - :: AthenaDataCatalogTags -athenaDataCatalogTags = - AthenaDataCatalogTags - { _athenaDataCatalogTagsTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-athena-datacatalog-tags.html#cfn-athena-datacatalog-tags-tags -adctTags :: Lens' AthenaDataCatalogTags (Maybe [Tag]) -adctTags = lens _athenaDataCatalogTagsTags (\s a -> s { _athenaDataCatalogTagsTags = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AthenaWorkGroupEncryptionConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/AthenaWorkGroupEncryptionConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AthenaWorkGroupEncryptionConfiguration.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-athena-workgroup-encryptionconfiguration.html - -module Stratosphere.ResourceProperties.AthenaWorkGroupEncryptionConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AthenaWorkGroupEncryptionConfiguration. See --- 'athenaWorkGroupEncryptionConfiguration' for a more convenient --- constructor. -data AthenaWorkGroupEncryptionConfiguration = - AthenaWorkGroupEncryptionConfiguration - { _athenaWorkGroupEncryptionConfigurationEncryptionOption :: Val Text - , _athenaWorkGroupEncryptionConfigurationKmsKey :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AthenaWorkGroupEncryptionConfiguration where - toJSON AthenaWorkGroupEncryptionConfiguration{..} = - object $ - catMaybes - [ (Just . ("EncryptionOption",) . toJSON) _athenaWorkGroupEncryptionConfigurationEncryptionOption - , fmap (("KmsKey",) . toJSON) _athenaWorkGroupEncryptionConfigurationKmsKey - ] - --- | Constructor for 'AthenaWorkGroupEncryptionConfiguration' containing --- required fields as arguments. -athenaWorkGroupEncryptionConfiguration - :: Val Text -- ^ 'awgecEncryptionOption' - -> AthenaWorkGroupEncryptionConfiguration -athenaWorkGroupEncryptionConfiguration encryptionOptionarg = - AthenaWorkGroupEncryptionConfiguration - { _athenaWorkGroupEncryptionConfigurationEncryptionOption = encryptionOptionarg - , _athenaWorkGroupEncryptionConfigurationKmsKey = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-athena-workgroup-encryptionconfiguration.html#cfn-athena-workgroup-encryptionconfiguration-encryptionoption -awgecEncryptionOption :: Lens' AthenaWorkGroupEncryptionConfiguration (Val Text) -awgecEncryptionOption = lens _athenaWorkGroupEncryptionConfigurationEncryptionOption (\s a -> s { _athenaWorkGroupEncryptionConfigurationEncryptionOption = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-athena-workgroup-encryptionconfiguration.html#cfn-athena-workgroup-encryptionconfiguration-kmskey -awgecKmsKey :: Lens' AthenaWorkGroupEncryptionConfiguration (Maybe (Val Text)) -awgecKmsKey = lens _athenaWorkGroupEncryptionConfigurationKmsKey (\s a -> s { _athenaWorkGroupEncryptionConfigurationKmsKey = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AthenaWorkGroupResultConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/AthenaWorkGroupResultConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AthenaWorkGroupResultConfiguration.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-athena-workgroup-resultconfiguration.html - -module Stratosphere.ResourceProperties.AthenaWorkGroupResultConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AthenaWorkGroupEncryptionConfiguration - --- | Full data type definition for AthenaWorkGroupResultConfiguration. See --- 'athenaWorkGroupResultConfiguration' for a more convenient constructor. -data AthenaWorkGroupResultConfiguration = - AthenaWorkGroupResultConfiguration - { _athenaWorkGroupResultConfigurationEncryptionConfiguration :: Maybe AthenaWorkGroupEncryptionConfiguration - , _athenaWorkGroupResultConfigurationOutputLocation :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AthenaWorkGroupResultConfiguration where - toJSON AthenaWorkGroupResultConfiguration{..} = - object $ - catMaybes - [ fmap (("EncryptionConfiguration",) . toJSON) _athenaWorkGroupResultConfigurationEncryptionConfiguration - , fmap (("OutputLocation",) . toJSON) _athenaWorkGroupResultConfigurationOutputLocation - ] - --- | Constructor for 'AthenaWorkGroupResultConfiguration' containing required --- fields as arguments. -athenaWorkGroupResultConfiguration - :: AthenaWorkGroupResultConfiguration -athenaWorkGroupResultConfiguration = - AthenaWorkGroupResultConfiguration - { _athenaWorkGroupResultConfigurationEncryptionConfiguration = Nothing - , _athenaWorkGroupResultConfigurationOutputLocation = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-athena-workgroup-resultconfiguration.html#cfn-athena-workgroup-resultconfiguration-encryptionconfiguration -awgrcEncryptionConfiguration :: Lens' AthenaWorkGroupResultConfiguration (Maybe AthenaWorkGroupEncryptionConfiguration) -awgrcEncryptionConfiguration = lens _athenaWorkGroupResultConfigurationEncryptionConfiguration (\s a -> s { _athenaWorkGroupResultConfigurationEncryptionConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-athena-workgroup-resultconfiguration.html#cfn-athena-workgroup-resultconfiguration-outputlocation -awgrcOutputLocation :: Lens' AthenaWorkGroupResultConfiguration (Maybe (Val Text)) -awgrcOutputLocation = lens _athenaWorkGroupResultConfigurationOutputLocation (\s a -> s { _athenaWorkGroupResultConfigurationOutputLocation = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AthenaWorkGroupResultConfigurationUpdates.hs b/library-gen/Stratosphere/ResourceProperties/AthenaWorkGroupResultConfigurationUpdates.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AthenaWorkGroupResultConfigurationUpdates.hs +++ /dev/null @@ -1,60 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-athena-workgroup-resultconfigurationupdates.html - -module Stratosphere.ResourceProperties.AthenaWorkGroupResultConfigurationUpdates where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AthenaWorkGroupEncryptionConfiguration - --- | Full data type definition for AthenaWorkGroupResultConfigurationUpdates. --- See 'athenaWorkGroupResultConfigurationUpdates' for a more convenient --- constructor. -data AthenaWorkGroupResultConfigurationUpdates = - AthenaWorkGroupResultConfigurationUpdates - { _athenaWorkGroupResultConfigurationUpdatesEncryptionConfiguration :: Maybe AthenaWorkGroupEncryptionConfiguration - , _athenaWorkGroupResultConfigurationUpdatesOutputLocation :: Maybe (Val Text) - , _athenaWorkGroupResultConfigurationUpdatesRemoveEncryptionConfiguration :: Maybe (Val Bool) - , _athenaWorkGroupResultConfigurationUpdatesRemoveOutputLocation :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON AthenaWorkGroupResultConfigurationUpdates where - toJSON AthenaWorkGroupResultConfigurationUpdates{..} = - object $ - catMaybes - [ fmap (("EncryptionConfiguration",) . toJSON) _athenaWorkGroupResultConfigurationUpdatesEncryptionConfiguration - , fmap (("OutputLocation",) . toJSON) _athenaWorkGroupResultConfigurationUpdatesOutputLocation - , fmap (("RemoveEncryptionConfiguration",) . toJSON) _athenaWorkGroupResultConfigurationUpdatesRemoveEncryptionConfiguration - , fmap (("RemoveOutputLocation",) . toJSON) _athenaWorkGroupResultConfigurationUpdatesRemoveOutputLocation - ] - --- | Constructor for 'AthenaWorkGroupResultConfigurationUpdates' containing --- required fields as arguments. -athenaWorkGroupResultConfigurationUpdates - :: AthenaWorkGroupResultConfigurationUpdates -athenaWorkGroupResultConfigurationUpdates = - AthenaWorkGroupResultConfigurationUpdates - { _athenaWorkGroupResultConfigurationUpdatesEncryptionConfiguration = Nothing - , _athenaWorkGroupResultConfigurationUpdatesOutputLocation = Nothing - , _athenaWorkGroupResultConfigurationUpdatesRemoveEncryptionConfiguration = Nothing - , _athenaWorkGroupResultConfigurationUpdatesRemoveOutputLocation = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-athena-workgroup-resultconfigurationupdates.html#cfn-athena-workgroup-resultconfigurationupdates-encryptionconfiguration -awgrcuEncryptionConfiguration :: Lens' AthenaWorkGroupResultConfigurationUpdates (Maybe AthenaWorkGroupEncryptionConfiguration) -awgrcuEncryptionConfiguration = lens _athenaWorkGroupResultConfigurationUpdatesEncryptionConfiguration (\s a -> s { _athenaWorkGroupResultConfigurationUpdatesEncryptionConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-athena-workgroup-resultconfigurationupdates.html#cfn-athena-workgroup-resultconfigurationupdates-outputlocation -awgrcuOutputLocation :: Lens' AthenaWorkGroupResultConfigurationUpdates (Maybe (Val Text)) -awgrcuOutputLocation = lens _athenaWorkGroupResultConfigurationUpdatesOutputLocation (\s a -> s { _athenaWorkGroupResultConfigurationUpdatesOutputLocation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-athena-workgroup-resultconfigurationupdates.html#cfn-athena-workgroup-resultconfigurationupdates-removeencryptionconfiguration -awgrcuRemoveEncryptionConfiguration :: Lens' AthenaWorkGroupResultConfigurationUpdates (Maybe (Val Bool)) -awgrcuRemoveEncryptionConfiguration = lens _athenaWorkGroupResultConfigurationUpdatesRemoveEncryptionConfiguration (\s a -> s { _athenaWorkGroupResultConfigurationUpdatesRemoveEncryptionConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-athena-workgroup-resultconfigurationupdates.html#cfn-athena-workgroup-resultconfigurationupdates-removeoutputlocation -awgrcuRemoveOutputLocation :: Lens' AthenaWorkGroupResultConfigurationUpdates (Maybe (Val Bool)) -awgrcuRemoveOutputLocation = lens _athenaWorkGroupResultConfigurationUpdatesRemoveOutputLocation (\s a -> s { _athenaWorkGroupResultConfigurationUpdatesRemoveOutputLocation = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AthenaWorkGroupTags.hs b/library-gen/Stratosphere/ResourceProperties/AthenaWorkGroupTags.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AthenaWorkGroupTags.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-athena-workgroup-tags.html - -module Stratosphere.ResourceProperties.AthenaWorkGroupTags where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for AthenaWorkGroupTags. See --- 'athenaWorkGroupTags' for a more convenient constructor. -data AthenaWorkGroupTags = - AthenaWorkGroupTags - { _athenaWorkGroupTagsTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToJSON AthenaWorkGroupTags where - toJSON AthenaWorkGroupTags{..} = - object $ - catMaybes - [ fmap (("Tags",) . toJSON) _athenaWorkGroupTagsTags - ] - --- | Constructor for 'AthenaWorkGroupTags' containing required fields as --- arguments. -athenaWorkGroupTags - :: AthenaWorkGroupTags -athenaWorkGroupTags = - AthenaWorkGroupTags - { _athenaWorkGroupTagsTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-athena-workgroup-tags.html#cfn-athena-workgroup-tags-tags -awgtTags :: Lens' AthenaWorkGroupTags (Maybe [Tag]) -awgtTags = lens _athenaWorkGroupTagsTags (\s a -> s { _athenaWorkGroupTagsTags = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AthenaWorkGroupWorkGroupConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/AthenaWorkGroupWorkGroupConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AthenaWorkGroupWorkGroupConfiguration.hs +++ /dev/null @@ -1,67 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-athena-workgroup-workgroupconfiguration.html - -module Stratosphere.ResourceProperties.AthenaWorkGroupWorkGroupConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AthenaWorkGroupResultConfiguration - --- | Full data type definition for AthenaWorkGroupWorkGroupConfiguration. See --- 'athenaWorkGroupWorkGroupConfiguration' for a more convenient --- constructor. -data AthenaWorkGroupWorkGroupConfiguration = - AthenaWorkGroupWorkGroupConfiguration - { _athenaWorkGroupWorkGroupConfigurationBytesScannedCutoffPerQuery :: Maybe (Val Integer) - , _athenaWorkGroupWorkGroupConfigurationEnforceWorkGroupConfiguration :: Maybe (Val Bool) - , _athenaWorkGroupWorkGroupConfigurationPublishCloudWatchMetricsEnabled :: Maybe (Val Bool) - , _athenaWorkGroupWorkGroupConfigurationRequesterPaysEnabled :: Maybe (Val Bool) - , _athenaWorkGroupWorkGroupConfigurationResultConfiguration :: Maybe AthenaWorkGroupResultConfiguration - } deriving (Show, Eq) - -instance ToJSON AthenaWorkGroupWorkGroupConfiguration where - toJSON AthenaWorkGroupWorkGroupConfiguration{..} = - object $ - catMaybes - [ fmap (("BytesScannedCutoffPerQuery",) . toJSON) _athenaWorkGroupWorkGroupConfigurationBytesScannedCutoffPerQuery - , fmap (("EnforceWorkGroupConfiguration",) . toJSON) _athenaWorkGroupWorkGroupConfigurationEnforceWorkGroupConfiguration - , fmap (("PublishCloudWatchMetricsEnabled",) . toJSON) _athenaWorkGroupWorkGroupConfigurationPublishCloudWatchMetricsEnabled - , fmap (("RequesterPaysEnabled",) . toJSON) _athenaWorkGroupWorkGroupConfigurationRequesterPaysEnabled - , fmap (("ResultConfiguration",) . toJSON) _athenaWorkGroupWorkGroupConfigurationResultConfiguration - ] - --- | Constructor for 'AthenaWorkGroupWorkGroupConfiguration' containing --- required fields as arguments. -athenaWorkGroupWorkGroupConfiguration - :: AthenaWorkGroupWorkGroupConfiguration -athenaWorkGroupWorkGroupConfiguration = - AthenaWorkGroupWorkGroupConfiguration - { _athenaWorkGroupWorkGroupConfigurationBytesScannedCutoffPerQuery = Nothing - , _athenaWorkGroupWorkGroupConfigurationEnforceWorkGroupConfiguration = Nothing - , _athenaWorkGroupWorkGroupConfigurationPublishCloudWatchMetricsEnabled = Nothing - , _athenaWorkGroupWorkGroupConfigurationRequesterPaysEnabled = Nothing - , _athenaWorkGroupWorkGroupConfigurationResultConfiguration = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-athena-workgroup-workgroupconfiguration.html#cfn-athena-workgroup-workgroupconfiguration-bytesscannedcutoffperquery -awgwgcBytesScannedCutoffPerQuery :: Lens' AthenaWorkGroupWorkGroupConfiguration (Maybe (Val Integer)) -awgwgcBytesScannedCutoffPerQuery = lens _athenaWorkGroupWorkGroupConfigurationBytesScannedCutoffPerQuery (\s a -> s { _athenaWorkGroupWorkGroupConfigurationBytesScannedCutoffPerQuery = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-athena-workgroup-workgroupconfiguration.html#cfn-athena-workgroup-workgroupconfiguration-enforceworkgroupconfiguration -awgwgcEnforceWorkGroupConfiguration :: Lens' AthenaWorkGroupWorkGroupConfiguration (Maybe (Val Bool)) -awgwgcEnforceWorkGroupConfiguration = lens _athenaWorkGroupWorkGroupConfigurationEnforceWorkGroupConfiguration (\s a -> s { _athenaWorkGroupWorkGroupConfigurationEnforceWorkGroupConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-athena-workgroup-workgroupconfiguration.html#cfn-athena-workgroup-workgroupconfiguration-publishcloudwatchmetricsenabled -awgwgcPublishCloudWatchMetricsEnabled :: Lens' AthenaWorkGroupWorkGroupConfiguration (Maybe (Val Bool)) -awgwgcPublishCloudWatchMetricsEnabled = lens _athenaWorkGroupWorkGroupConfigurationPublishCloudWatchMetricsEnabled (\s a -> s { _athenaWorkGroupWorkGroupConfigurationPublishCloudWatchMetricsEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-athena-workgroup-workgroupconfiguration.html#cfn-athena-workgroup-workgroupconfiguration-requesterpaysenabled -awgwgcRequesterPaysEnabled :: Lens' AthenaWorkGroupWorkGroupConfiguration (Maybe (Val Bool)) -awgwgcRequesterPaysEnabled = lens _athenaWorkGroupWorkGroupConfigurationRequesterPaysEnabled (\s a -> s { _athenaWorkGroupWorkGroupConfigurationRequesterPaysEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-athena-workgroup-workgroupconfiguration.html#cfn-athena-workgroup-workgroupconfiguration-resultconfiguration -awgwgcResultConfiguration :: Lens' AthenaWorkGroupWorkGroupConfiguration (Maybe AthenaWorkGroupResultConfiguration) -awgwgcResultConfiguration = lens _athenaWorkGroupWorkGroupConfigurationResultConfiguration (\s a -> s { _athenaWorkGroupWorkGroupConfigurationResultConfiguration = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AthenaWorkGroupWorkGroupConfigurationUpdates.hs b/library-gen/Stratosphere/ResourceProperties/AthenaWorkGroupWorkGroupConfigurationUpdates.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AthenaWorkGroupWorkGroupConfigurationUpdates.hs +++ /dev/null @@ -1,75 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-athena-workgroup-workgroupconfigurationupdates.html - -module Stratosphere.ResourceProperties.AthenaWorkGroupWorkGroupConfigurationUpdates where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AthenaWorkGroupResultConfigurationUpdates - --- | Full data type definition for --- AthenaWorkGroupWorkGroupConfigurationUpdates. See --- 'athenaWorkGroupWorkGroupConfigurationUpdates' for a more convenient --- constructor. -data AthenaWorkGroupWorkGroupConfigurationUpdates = - AthenaWorkGroupWorkGroupConfigurationUpdates - { _athenaWorkGroupWorkGroupConfigurationUpdatesBytesScannedCutoffPerQuery :: Maybe (Val Integer) - , _athenaWorkGroupWorkGroupConfigurationUpdatesEnforceWorkGroupConfiguration :: Maybe (Val Bool) - , _athenaWorkGroupWorkGroupConfigurationUpdatesPublishCloudWatchMetricsEnabled :: Maybe (Val Bool) - , _athenaWorkGroupWorkGroupConfigurationUpdatesRemoveBytesScannedCutoffPerQuery :: Maybe (Val Bool) - , _athenaWorkGroupWorkGroupConfigurationUpdatesRequesterPaysEnabled :: Maybe (Val Bool) - , _athenaWorkGroupWorkGroupConfigurationUpdatesResultConfigurationUpdates :: Maybe AthenaWorkGroupResultConfigurationUpdates - } deriving (Show, Eq) - -instance ToJSON AthenaWorkGroupWorkGroupConfigurationUpdates where - toJSON AthenaWorkGroupWorkGroupConfigurationUpdates{..} = - object $ - catMaybes - [ fmap (("BytesScannedCutoffPerQuery",) . toJSON) _athenaWorkGroupWorkGroupConfigurationUpdatesBytesScannedCutoffPerQuery - , fmap (("EnforceWorkGroupConfiguration",) . toJSON) _athenaWorkGroupWorkGroupConfigurationUpdatesEnforceWorkGroupConfiguration - , fmap (("PublishCloudWatchMetricsEnabled",) . toJSON) _athenaWorkGroupWorkGroupConfigurationUpdatesPublishCloudWatchMetricsEnabled - , fmap (("RemoveBytesScannedCutoffPerQuery",) . toJSON) _athenaWorkGroupWorkGroupConfigurationUpdatesRemoveBytesScannedCutoffPerQuery - , fmap (("RequesterPaysEnabled",) . toJSON) _athenaWorkGroupWorkGroupConfigurationUpdatesRequesterPaysEnabled - , fmap (("ResultConfigurationUpdates",) . toJSON) _athenaWorkGroupWorkGroupConfigurationUpdatesResultConfigurationUpdates - ] - --- | Constructor for 'AthenaWorkGroupWorkGroupConfigurationUpdates' containing --- required fields as arguments. -athenaWorkGroupWorkGroupConfigurationUpdates - :: AthenaWorkGroupWorkGroupConfigurationUpdates -athenaWorkGroupWorkGroupConfigurationUpdates = - AthenaWorkGroupWorkGroupConfigurationUpdates - { _athenaWorkGroupWorkGroupConfigurationUpdatesBytesScannedCutoffPerQuery = Nothing - , _athenaWorkGroupWorkGroupConfigurationUpdatesEnforceWorkGroupConfiguration = Nothing - , _athenaWorkGroupWorkGroupConfigurationUpdatesPublishCloudWatchMetricsEnabled = Nothing - , _athenaWorkGroupWorkGroupConfigurationUpdatesRemoveBytesScannedCutoffPerQuery = Nothing - , _athenaWorkGroupWorkGroupConfigurationUpdatesRequesterPaysEnabled = Nothing - , _athenaWorkGroupWorkGroupConfigurationUpdatesResultConfigurationUpdates = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-athena-workgroup-workgroupconfigurationupdates.html#cfn-athena-workgroup-workgroupconfigurationupdates-bytesscannedcutoffperquery -awgwgcuBytesScannedCutoffPerQuery :: Lens' AthenaWorkGroupWorkGroupConfigurationUpdates (Maybe (Val Integer)) -awgwgcuBytesScannedCutoffPerQuery = lens _athenaWorkGroupWorkGroupConfigurationUpdatesBytesScannedCutoffPerQuery (\s a -> s { _athenaWorkGroupWorkGroupConfigurationUpdatesBytesScannedCutoffPerQuery = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-athena-workgroup-workgroupconfigurationupdates.html#cfn-athena-workgroup-workgroupconfigurationupdates-enforceworkgroupconfiguration -awgwgcuEnforceWorkGroupConfiguration :: Lens' AthenaWorkGroupWorkGroupConfigurationUpdates (Maybe (Val Bool)) -awgwgcuEnforceWorkGroupConfiguration = lens _athenaWorkGroupWorkGroupConfigurationUpdatesEnforceWorkGroupConfiguration (\s a -> s { _athenaWorkGroupWorkGroupConfigurationUpdatesEnforceWorkGroupConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-athena-workgroup-workgroupconfigurationupdates.html#cfn-athena-workgroup-workgroupconfigurationupdates-publishcloudwatchmetricsenabled -awgwgcuPublishCloudWatchMetricsEnabled :: Lens' AthenaWorkGroupWorkGroupConfigurationUpdates (Maybe (Val Bool)) -awgwgcuPublishCloudWatchMetricsEnabled = lens _athenaWorkGroupWorkGroupConfigurationUpdatesPublishCloudWatchMetricsEnabled (\s a -> s { _athenaWorkGroupWorkGroupConfigurationUpdatesPublishCloudWatchMetricsEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-athena-workgroup-workgroupconfigurationupdates.html#cfn-athena-workgroup-workgroupconfigurationupdates-removebytesscannedcutoffperquery -awgwgcuRemoveBytesScannedCutoffPerQuery :: Lens' AthenaWorkGroupWorkGroupConfigurationUpdates (Maybe (Val Bool)) -awgwgcuRemoveBytesScannedCutoffPerQuery = lens _athenaWorkGroupWorkGroupConfigurationUpdatesRemoveBytesScannedCutoffPerQuery (\s a -> s { _athenaWorkGroupWorkGroupConfigurationUpdatesRemoveBytesScannedCutoffPerQuery = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-athena-workgroup-workgroupconfigurationupdates.html#cfn-athena-workgroup-workgroupconfigurationupdates-requesterpaysenabled -awgwgcuRequesterPaysEnabled :: Lens' AthenaWorkGroupWorkGroupConfigurationUpdates (Maybe (Val Bool)) -awgwgcuRequesterPaysEnabled = lens _athenaWorkGroupWorkGroupConfigurationUpdatesRequesterPaysEnabled (\s a -> s { _athenaWorkGroupWorkGroupConfigurationUpdatesRequesterPaysEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-athena-workgroup-workgroupconfigurationupdates.html#cfn-athena-workgroup-workgroupconfigurationupdates-resultconfigurationupdates -awgwgcuResultConfigurationUpdates :: Lens' AthenaWorkGroupWorkGroupConfigurationUpdates (Maybe AthenaWorkGroupResultConfigurationUpdates) -awgwgcuResultConfigurationUpdates = lens _athenaWorkGroupWorkGroupConfigurationUpdatesResultConfigurationUpdates (\s a -> s { _athenaWorkGroupWorkGroupConfigurationUpdatesResultConfigurationUpdates = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupInstancesDistribution.hs b/library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupInstancesDistribution.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupInstancesDistribution.hs +++ /dev/null @@ -1,75 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/cfn-as-mixedinstancespolicy-instancesdistribution.html - -module Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupInstancesDistribution where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- AutoScalingAutoScalingGroupInstancesDistribution. See --- 'autoScalingAutoScalingGroupInstancesDistribution' for a more convenient --- constructor. -data AutoScalingAutoScalingGroupInstancesDistribution = - AutoScalingAutoScalingGroupInstancesDistribution - { _autoScalingAutoScalingGroupInstancesDistributionOnDemandAllocationStrategy :: Maybe (Val Text) - , _autoScalingAutoScalingGroupInstancesDistributionOnDemandBaseCapacity :: Maybe (Val Integer) - , _autoScalingAutoScalingGroupInstancesDistributionOnDemandPercentageAboveBaseCapacity :: Maybe (Val Integer) - , _autoScalingAutoScalingGroupInstancesDistributionSpotAllocationStrategy :: Maybe (Val Text) - , _autoScalingAutoScalingGroupInstancesDistributionSpotInstancePools :: Maybe (Val Integer) - , _autoScalingAutoScalingGroupInstancesDistributionSpotMaxPrice :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AutoScalingAutoScalingGroupInstancesDistribution where - toJSON AutoScalingAutoScalingGroupInstancesDistribution{..} = - object $ - catMaybes - [ fmap (("OnDemandAllocationStrategy",) . toJSON) _autoScalingAutoScalingGroupInstancesDistributionOnDemandAllocationStrategy - , fmap (("OnDemandBaseCapacity",) . toJSON) _autoScalingAutoScalingGroupInstancesDistributionOnDemandBaseCapacity - , fmap (("OnDemandPercentageAboveBaseCapacity",) . toJSON) _autoScalingAutoScalingGroupInstancesDistributionOnDemandPercentageAboveBaseCapacity - , fmap (("SpotAllocationStrategy",) . toJSON) _autoScalingAutoScalingGroupInstancesDistributionSpotAllocationStrategy - , fmap (("SpotInstancePools",) . toJSON) _autoScalingAutoScalingGroupInstancesDistributionSpotInstancePools - , fmap (("SpotMaxPrice",) . toJSON) _autoScalingAutoScalingGroupInstancesDistributionSpotMaxPrice - ] - --- | Constructor for 'AutoScalingAutoScalingGroupInstancesDistribution' --- containing required fields as arguments. -autoScalingAutoScalingGroupInstancesDistribution - :: AutoScalingAutoScalingGroupInstancesDistribution -autoScalingAutoScalingGroupInstancesDistribution = - AutoScalingAutoScalingGroupInstancesDistribution - { _autoScalingAutoScalingGroupInstancesDistributionOnDemandAllocationStrategy = Nothing - , _autoScalingAutoScalingGroupInstancesDistributionOnDemandBaseCapacity = Nothing - , _autoScalingAutoScalingGroupInstancesDistributionOnDemandPercentageAboveBaseCapacity = Nothing - , _autoScalingAutoScalingGroupInstancesDistributionSpotAllocationStrategy = Nothing - , _autoScalingAutoScalingGroupInstancesDistributionSpotInstancePools = Nothing - , _autoScalingAutoScalingGroupInstancesDistributionSpotMaxPrice = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/cfn-as-mixedinstancespolicy-instancesdistribution.html#cfn-autoscaling-autoscalinggroup-instancesdistribution-ondemandallocationstrategy -asasgidOnDemandAllocationStrategy :: Lens' AutoScalingAutoScalingGroupInstancesDistribution (Maybe (Val Text)) -asasgidOnDemandAllocationStrategy = lens _autoScalingAutoScalingGroupInstancesDistributionOnDemandAllocationStrategy (\s a -> s { _autoScalingAutoScalingGroupInstancesDistributionOnDemandAllocationStrategy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/cfn-as-mixedinstancespolicy-instancesdistribution.html#cfn-autoscaling-autoscalinggroup-instancesdistribution-ondemandbasecapacity -asasgidOnDemandBaseCapacity :: Lens' AutoScalingAutoScalingGroupInstancesDistribution (Maybe (Val Integer)) -asasgidOnDemandBaseCapacity = lens _autoScalingAutoScalingGroupInstancesDistributionOnDemandBaseCapacity (\s a -> s { _autoScalingAutoScalingGroupInstancesDistributionOnDemandBaseCapacity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/cfn-as-mixedinstancespolicy-instancesdistribution.html#cfn-autoscaling-autoscalinggroup-instancesdistribution-ondemandpercentageabovebasecapacity -asasgidOnDemandPercentageAboveBaseCapacity :: Lens' AutoScalingAutoScalingGroupInstancesDistribution (Maybe (Val Integer)) -asasgidOnDemandPercentageAboveBaseCapacity = lens _autoScalingAutoScalingGroupInstancesDistributionOnDemandPercentageAboveBaseCapacity (\s a -> s { _autoScalingAutoScalingGroupInstancesDistributionOnDemandPercentageAboveBaseCapacity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/cfn-as-mixedinstancespolicy-instancesdistribution.html#cfn-autoscaling-autoscalinggroup-instancesdistribution-spotallocationstrategy -asasgidSpotAllocationStrategy :: Lens' AutoScalingAutoScalingGroupInstancesDistribution (Maybe (Val Text)) -asasgidSpotAllocationStrategy = lens _autoScalingAutoScalingGroupInstancesDistributionSpotAllocationStrategy (\s a -> s { _autoScalingAutoScalingGroupInstancesDistributionSpotAllocationStrategy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/cfn-as-mixedinstancespolicy-instancesdistribution.html#cfn-autoscaling-autoscalinggroup-instancesdistribution-spotinstancepools -asasgidSpotInstancePools :: Lens' AutoScalingAutoScalingGroupInstancesDistribution (Maybe (Val Integer)) -asasgidSpotInstancePools = lens _autoScalingAutoScalingGroupInstancesDistributionSpotInstancePools (\s a -> s { _autoScalingAutoScalingGroupInstancesDistributionSpotInstancePools = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/cfn-as-mixedinstancespolicy-instancesdistribution.html#cfn-autoscaling-autoscalinggroup-instancesdistribution-spotmaxprice -asasgidSpotMaxPrice :: Lens' AutoScalingAutoScalingGroupInstancesDistribution (Maybe (Val Text)) -asasgidSpotMaxPrice = lens _autoScalingAutoScalingGroupInstancesDistributionSpotMaxPrice (\s a -> s { _autoScalingAutoScalingGroupInstancesDistributionSpotMaxPrice = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupLaunchTemplate.hs b/library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupLaunchTemplate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupLaunchTemplate.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/cfn-as-mixedinstancespolicy-launchtemplate.html - -module Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupLaunchTemplate where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupLaunchTemplateSpecification -import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupLaunchTemplateOverrides - --- | Full data type definition for AutoScalingAutoScalingGroupLaunchTemplate. --- See 'autoScalingAutoScalingGroupLaunchTemplate' for a more convenient --- constructor. -data AutoScalingAutoScalingGroupLaunchTemplate = - AutoScalingAutoScalingGroupLaunchTemplate - { _autoScalingAutoScalingGroupLaunchTemplateLaunchTemplateSpecification :: AutoScalingAutoScalingGroupLaunchTemplateSpecification - , _autoScalingAutoScalingGroupLaunchTemplateOverrides :: Maybe [AutoScalingAutoScalingGroupLaunchTemplateOverrides] - } deriving (Show, Eq) - -instance ToJSON AutoScalingAutoScalingGroupLaunchTemplate where - toJSON AutoScalingAutoScalingGroupLaunchTemplate{..} = - object $ - catMaybes - [ (Just . ("LaunchTemplateSpecification",) . toJSON) _autoScalingAutoScalingGroupLaunchTemplateLaunchTemplateSpecification - , fmap (("Overrides",) . toJSON) _autoScalingAutoScalingGroupLaunchTemplateOverrides - ] - --- | Constructor for 'AutoScalingAutoScalingGroupLaunchTemplate' containing --- required fields as arguments. -autoScalingAutoScalingGroupLaunchTemplate - :: AutoScalingAutoScalingGroupLaunchTemplateSpecification -- ^ 'asasgltLaunchTemplateSpecification' - -> AutoScalingAutoScalingGroupLaunchTemplate -autoScalingAutoScalingGroupLaunchTemplate launchTemplateSpecificationarg = - AutoScalingAutoScalingGroupLaunchTemplate - { _autoScalingAutoScalingGroupLaunchTemplateLaunchTemplateSpecification = launchTemplateSpecificationarg - , _autoScalingAutoScalingGroupLaunchTemplateOverrides = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/cfn-as-mixedinstancespolicy-launchtemplate.html#cfn-as-group-launchtemplate -asasgltLaunchTemplateSpecification :: Lens' AutoScalingAutoScalingGroupLaunchTemplate AutoScalingAutoScalingGroupLaunchTemplateSpecification -asasgltLaunchTemplateSpecification = lens _autoScalingAutoScalingGroupLaunchTemplateLaunchTemplateSpecification (\s a -> s { _autoScalingAutoScalingGroupLaunchTemplateLaunchTemplateSpecification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/cfn-as-mixedinstancespolicy-launchtemplate.html#cfn-as-mixedinstancespolicy-overrides -asasgltOverrides :: Lens' AutoScalingAutoScalingGroupLaunchTemplate (Maybe [AutoScalingAutoScalingGroupLaunchTemplateOverrides]) -asasgltOverrides = lens _autoScalingAutoScalingGroupLaunchTemplateOverrides (\s a -> s { _autoScalingAutoScalingGroupLaunchTemplateOverrides = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupLaunchTemplateOverrides.hs b/library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupLaunchTemplateOverrides.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupLaunchTemplateOverrides.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/cfn-as-mixedinstancespolicy-launchtemplateoverrides.html - -module Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupLaunchTemplateOverrides where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- AutoScalingAutoScalingGroupLaunchTemplateOverrides. See --- 'autoScalingAutoScalingGroupLaunchTemplateOverrides' for a more --- convenient constructor. -data AutoScalingAutoScalingGroupLaunchTemplateOverrides = - AutoScalingAutoScalingGroupLaunchTemplateOverrides - { _autoScalingAutoScalingGroupLaunchTemplateOverridesInstanceType :: Maybe (Val Text) - , _autoScalingAutoScalingGroupLaunchTemplateOverridesWeightedCapacity :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AutoScalingAutoScalingGroupLaunchTemplateOverrides where - toJSON AutoScalingAutoScalingGroupLaunchTemplateOverrides{..} = - object $ - catMaybes - [ fmap (("InstanceType",) . toJSON) _autoScalingAutoScalingGroupLaunchTemplateOverridesInstanceType - , fmap (("WeightedCapacity",) . toJSON) _autoScalingAutoScalingGroupLaunchTemplateOverridesWeightedCapacity - ] - --- | Constructor for 'AutoScalingAutoScalingGroupLaunchTemplateOverrides' --- containing required fields as arguments. -autoScalingAutoScalingGroupLaunchTemplateOverrides - :: AutoScalingAutoScalingGroupLaunchTemplateOverrides -autoScalingAutoScalingGroupLaunchTemplateOverrides = - AutoScalingAutoScalingGroupLaunchTemplateOverrides - { _autoScalingAutoScalingGroupLaunchTemplateOverridesInstanceType = Nothing - , _autoScalingAutoScalingGroupLaunchTemplateOverridesWeightedCapacity = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/cfn-as-mixedinstancespolicy-launchtemplateoverrides.html#cfn-autoscaling-autoscalinggroup-launchtemplateoverrides-instancetype -asasgltoInstanceType :: Lens' AutoScalingAutoScalingGroupLaunchTemplateOverrides (Maybe (Val Text)) -asasgltoInstanceType = lens _autoScalingAutoScalingGroupLaunchTemplateOverridesInstanceType (\s a -> s { _autoScalingAutoScalingGroupLaunchTemplateOverridesInstanceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/cfn-as-mixedinstancespolicy-launchtemplateoverrides.html#cfn-autoscaling-autoscalinggroup-launchtemplateoverrides-weightedcapacity -asasgltoWeightedCapacity :: Lens' AutoScalingAutoScalingGroupLaunchTemplateOverrides (Maybe (Val Text)) -asasgltoWeightedCapacity = lens _autoScalingAutoScalingGroupLaunchTemplateOverridesWeightedCapacity (\s a -> s { _autoScalingAutoScalingGroupLaunchTemplateOverridesWeightedCapacity = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupLaunchTemplateSpecification.hs b/library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupLaunchTemplateSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupLaunchTemplateSpecification.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-autoscalinggroup-launchtemplatespecification.html - -module Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupLaunchTemplateSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- AutoScalingAutoScalingGroupLaunchTemplateSpecification. See --- 'autoScalingAutoScalingGroupLaunchTemplateSpecification' for a more --- convenient constructor. -data AutoScalingAutoScalingGroupLaunchTemplateSpecification = - AutoScalingAutoScalingGroupLaunchTemplateSpecification - { _autoScalingAutoScalingGroupLaunchTemplateSpecificationLaunchTemplateId :: Maybe (Val Text) - , _autoScalingAutoScalingGroupLaunchTemplateSpecificationLaunchTemplateName :: Maybe (Val Text) - , _autoScalingAutoScalingGroupLaunchTemplateSpecificationVersion :: Val Text - } deriving (Show, Eq) - -instance ToJSON AutoScalingAutoScalingGroupLaunchTemplateSpecification where - toJSON AutoScalingAutoScalingGroupLaunchTemplateSpecification{..} = - object $ - catMaybes - [ fmap (("LaunchTemplateId",) . toJSON) _autoScalingAutoScalingGroupLaunchTemplateSpecificationLaunchTemplateId - , fmap (("LaunchTemplateName",) . toJSON) _autoScalingAutoScalingGroupLaunchTemplateSpecificationLaunchTemplateName - , (Just . ("Version",) . toJSON) _autoScalingAutoScalingGroupLaunchTemplateSpecificationVersion - ] - --- | Constructor for 'AutoScalingAutoScalingGroupLaunchTemplateSpecification' --- containing required fields as arguments. -autoScalingAutoScalingGroupLaunchTemplateSpecification - :: Val Text -- ^ 'asasgltsVersion' - -> AutoScalingAutoScalingGroupLaunchTemplateSpecification -autoScalingAutoScalingGroupLaunchTemplateSpecification versionarg = - AutoScalingAutoScalingGroupLaunchTemplateSpecification - { _autoScalingAutoScalingGroupLaunchTemplateSpecificationLaunchTemplateId = Nothing - , _autoScalingAutoScalingGroupLaunchTemplateSpecificationLaunchTemplateName = Nothing - , _autoScalingAutoScalingGroupLaunchTemplateSpecificationVersion = versionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-autoscalinggroup-launchtemplatespecification.html#cfn-autoscaling-autoscalinggroup-launchtemplatespecification-launchtemplateid -asasgltsLaunchTemplateId :: Lens' AutoScalingAutoScalingGroupLaunchTemplateSpecification (Maybe (Val Text)) -asasgltsLaunchTemplateId = lens _autoScalingAutoScalingGroupLaunchTemplateSpecificationLaunchTemplateId (\s a -> s { _autoScalingAutoScalingGroupLaunchTemplateSpecificationLaunchTemplateId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-autoscalinggroup-launchtemplatespecification.html#cfn-autoscaling-autoscalinggroup-launchtemplatespecification-launchtemplatename -asasgltsLaunchTemplateName :: Lens' AutoScalingAutoScalingGroupLaunchTemplateSpecification (Maybe (Val Text)) -asasgltsLaunchTemplateName = lens _autoScalingAutoScalingGroupLaunchTemplateSpecificationLaunchTemplateName (\s a -> s { _autoScalingAutoScalingGroupLaunchTemplateSpecificationLaunchTemplateName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-autoscalinggroup-launchtemplatespecification.html#cfn-autoscaling-autoscalinggroup-launchtemplatespecification-version -asasgltsVersion :: Lens' AutoScalingAutoScalingGroupLaunchTemplateSpecification (Val Text) -asasgltsVersion = lens _autoScalingAutoScalingGroupLaunchTemplateSpecificationVersion (\s a -> s { _autoScalingAutoScalingGroupLaunchTemplateSpecificationVersion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupLifecycleHookSpecification.hs b/library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupLifecycleHookSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupLifecycleHookSpecification.hs +++ /dev/null @@ -1,84 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-autoscalinggroup-lifecyclehookspecification.html - -module Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupLifecycleHookSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- AutoScalingAutoScalingGroupLifecycleHookSpecification. See --- 'autoScalingAutoScalingGroupLifecycleHookSpecification' for a more --- convenient constructor. -data AutoScalingAutoScalingGroupLifecycleHookSpecification = - AutoScalingAutoScalingGroupLifecycleHookSpecification - { _autoScalingAutoScalingGroupLifecycleHookSpecificationDefaultResult :: Maybe (Val Text) - , _autoScalingAutoScalingGroupLifecycleHookSpecificationHeartbeatTimeout :: Maybe (Val Integer) - , _autoScalingAutoScalingGroupLifecycleHookSpecificationLifecycleHookName :: Val Text - , _autoScalingAutoScalingGroupLifecycleHookSpecificationLifecycleTransition :: Val Text - , _autoScalingAutoScalingGroupLifecycleHookSpecificationNotificationMetadata :: Maybe (Val Text) - , _autoScalingAutoScalingGroupLifecycleHookSpecificationNotificationTargetARN :: Maybe (Val Text) - , _autoScalingAutoScalingGroupLifecycleHookSpecificationRoleARN :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AutoScalingAutoScalingGroupLifecycleHookSpecification where - toJSON AutoScalingAutoScalingGroupLifecycleHookSpecification{..} = - object $ - catMaybes - [ fmap (("DefaultResult",) . toJSON) _autoScalingAutoScalingGroupLifecycleHookSpecificationDefaultResult - , fmap (("HeartbeatTimeout",) . toJSON) _autoScalingAutoScalingGroupLifecycleHookSpecificationHeartbeatTimeout - , (Just . ("LifecycleHookName",) . toJSON) _autoScalingAutoScalingGroupLifecycleHookSpecificationLifecycleHookName - , (Just . ("LifecycleTransition",) . toJSON) _autoScalingAutoScalingGroupLifecycleHookSpecificationLifecycleTransition - , fmap (("NotificationMetadata",) . toJSON) _autoScalingAutoScalingGroupLifecycleHookSpecificationNotificationMetadata - , fmap (("NotificationTargetARN",) . toJSON) _autoScalingAutoScalingGroupLifecycleHookSpecificationNotificationTargetARN - , fmap (("RoleARN",) . toJSON) _autoScalingAutoScalingGroupLifecycleHookSpecificationRoleARN - ] - --- | Constructor for 'AutoScalingAutoScalingGroupLifecycleHookSpecification' --- containing required fields as arguments. -autoScalingAutoScalingGroupLifecycleHookSpecification - :: Val Text -- ^ 'asasglhsLifecycleHookName' - -> Val Text -- ^ 'asasglhsLifecycleTransition' - -> AutoScalingAutoScalingGroupLifecycleHookSpecification -autoScalingAutoScalingGroupLifecycleHookSpecification lifecycleHookNamearg lifecycleTransitionarg = - AutoScalingAutoScalingGroupLifecycleHookSpecification - { _autoScalingAutoScalingGroupLifecycleHookSpecificationDefaultResult = Nothing - , _autoScalingAutoScalingGroupLifecycleHookSpecificationHeartbeatTimeout = Nothing - , _autoScalingAutoScalingGroupLifecycleHookSpecificationLifecycleHookName = lifecycleHookNamearg - , _autoScalingAutoScalingGroupLifecycleHookSpecificationLifecycleTransition = lifecycleTransitionarg - , _autoScalingAutoScalingGroupLifecycleHookSpecificationNotificationMetadata = Nothing - , _autoScalingAutoScalingGroupLifecycleHookSpecificationNotificationTargetARN = Nothing - , _autoScalingAutoScalingGroupLifecycleHookSpecificationRoleARN = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-autoscalinggroup-lifecyclehookspecification.html#cfn-autoscaling-autoscalinggroup-lifecyclehookspecification-defaultresult -asasglhsDefaultResult :: Lens' AutoScalingAutoScalingGroupLifecycleHookSpecification (Maybe (Val Text)) -asasglhsDefaultResult = lens _autoScalingAutoScalingGroupLifecycleHookSpecificationDefaultResult (\s a -> s { _autoScalingAutoScalingGroupLifecycleHookSpecificationDefaultResult = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-autoscalinggroup-lifecyclehookspecification.html#cfn-autoscaling-autoscalinggroup-lifecyclehookspecification-heartbeattimeout -asasglhsHeartbeatTimeout :: Lens' AutoScalingAutoScalingGroupLifecycleHookSpecification (Maybe (Val Integer)) -asasglhsHeartbeatTimeout = lens _autoScalingAutoScalingGroupLifecycleHookSpecificationHeartbeatTimeout (\s a -> s { _autoScalingAutoScalingGroupLifecycleHookSpecificationHeartbeatTimeout = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-autoscalinggroup-lifecyclehookspecification.html#cfn-autoscaling-autoscalinggroup-lifecyclehookspecification-lifecyclehookname -asasglhsLifecycleHookName :: Lens' AutoScalingAutoScalingGroupLifecycleHookSpecification (Val Text) -asasglhsLifecycleHookName = lens _autoScalingAutoScalingGroupLifecycleHookSpecificationLifecycleHookName (\s a -> s { _autoScalingAutoScalingGroupLifecycleHookSpecificationLifecycleHookName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-autoscalinggroup-lifecyclehookspecification.html#cfn-autoscaling-autoscalinggroup-lifecyclehookspecification-lifecycletransition -asasglhsLifecycleTransition :: Lens' AutoScalingAutoScalingGroupLifecycleHookSpecification (Val Text) -asasglhsLifecycleTransition = lens _autoScalingAutoScalingGroupLifecycleHookSpecificationLifecycleTransition (\s a -> s { _autoScalingAutoScalingGroupLifecycleHookSpecificationLifecycleTransition = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-autoscalinggroup-lifecyclehookspecification.html#cfn-autoscaling-autoscalinggroup-lifecyclehookspecification-notificationmetadata -asasglhsNotificationMetadata :: Lens' AutoScalingAutoScalingGroupLifecycleHookSpecification (Maybe (Val Text)) -asasglhsNotificationMetadata = lens _autoScalingAutoScalingGroupLifecycleHookSpecificationNotificationMetadata (\s a -> s { _autoScalingAutoScalingGroupLifecycleHookSpecificationNotificationMetadata = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-autoscalinggroup-lifecyclehookspecification.html#cfn-autoscaling-autoscalinggroup-lifecyclehookspecification-notificationtargetarn -asasglhsNotificationTargetARN :: Lens' AutoScalingAutoScalingGroupLifecycleHookSpecification (Maybe (Val Text)) -asasglhsNotificationTargetARN = lens _autoScalingAutoScalingGroupLifecycleHookSpecificationNotificationTargetARN (\s a -> s { _autoScalingAutoScalingGroupLifecycleHookSpecificationNotificationTargetARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-autoscalinggroup-lifecyclehookspecification.html#cfn-autoscaling-autoscalinggroup-lifecyclehookspecification-rolearn -asasglhsRoleARN :: Lens' AutoScalingAutoScalingGroupLifecycleHookSpecification (Maybe (Val Text)) -asasglhsRoleARN = lens _autoScalingAutoScalingGroupLifecycleHookSpecificationRoleARN (\s a -> s { _autoScalingAutoScalingGroupLifecycleHookSpecificationRoleARN = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupMetricsCollection.hs b/library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupMetricsCollection.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupMetricsCollection.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-metricscollection.html - -module Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupMetricsCollection where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- AutoScalingAutoScalingGroupMetricsCollection. See --- 'autoScalingAutoScalingGroupMetricsCollection' for a more convenient --- constructor. -data AutoScalingAutoScalingGroupMetricsCollection = - AutoScalingAutoScalingGroupMetricsCollection - { _autoScalingAutoScalingGroupMetricsCollectionGranularity :: Val Text - , _autoScalingAutoScalingGroupMetricsCollectionMetrics :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON AutoScalingAutoScalingGroupMetricsCollection where - toJSON AutoScalingAutoScalingGroupMetricsCollection{..} = - object $ - catMaybes - [ (Just . ("Granularity",) . toJSON) _autoScalingAutoScalingGroupMetricsCollectionGranularity - , fmap (("Metrics",) . toJSON) _autoScalingAutoScalingGroupMetricsCollectionMetrics - ] - --- | Constructor for 'AutoScalingAutoScalingGroupMetricsCollection' containing --- required fields as arguments. -autoScalingAutoScalingGroupMetricsCollection - :: Val Text -- ^ 'asasgmcGranularity' - -> AutoScalingAutoScalingGroupMetricsCollection -autoScalingAutoScalingGroupMetricsCollection granularityarg = - AutoScalingAutoScalingGroupMetricsCollection - { _autoScalingAutoScalingGroupMetricsCollectionGranularity = granularityarg - , _autoScalingAutoScalingGroupMetricsCollectionMetrics = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-metricscollection.html#cfn-as-metricscollection-granularity -asasgmcGranularity :: Lens' AutoScalingAutoScalingGroupMetricsCollection (Val Text) -asasgmcGranularity = lens _autoScalingAutoScalingGroupMetricsCollectionGranularity (\s a -> s { _autoScalingAutoScalingGroupMetricsCollectionGranularity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-metricscollection.html#cfn-as-metricscollection-metrics -asasgmcMetrics :: Lens' AutoScalingAutoScalingGroupMetricsCollection (Maybe (ValList Text)) -asasgmcMetrics = lens _autoScalingAutoScalingGroupMetricsCollectionMetrics (\s a -> s { _autoScalingAutoScalingGroupMetricsCollectionMetrics = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupMixedInstancesPolicy.hs b/library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupMixedInstancesPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupMixedInstancesPolicy.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/cfn-as-group-mixedinstancespolicy.html - -module Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupMixedInstancesPolicy where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupInstancesDistribution -import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupLaunchTemplate - --- | Full data type definition for --- AutoScalingAutoScalingGroupMixedInstancesPolicy. See --- 'autoScalingAutoScalingGroupMixedInstancesPolicy' for a more convenient --- constructor. -data AutoScalingAutoScalingGroupMixedInstancesPolicy = - AutoScalingAutoScalingGroupMixedInstancesPolicy - { _autoScalingAutoScalingGroupMixedInstancesPolicyInstancesDistribution :: Maybe AutoScalingAutoScalingGroupInstancesDistribution - , _autoScalingAutoScalingGroupMixedInstancesPolicyLaunchTemplate :: AutoScalingAutoScalingGroupLaunchTemplate - } deriving (Show, Eq) - -instance ToJSON AutoScalingAutoScalingGroupMixedInstancesPolicy where - toJSON AutoScalingAutoScalingGroupMixedInstancesPolicy{..} = - object $ - catMaybes - [ fmap (("InstancesDistribution",) . toJSON) _autoScalingAutoScalingGroupMixedInstancesPolicyInstancesDistribution - , (Just . ("LaunchTemplate",) . toJSON) _autoScalingAutoScalingGroupMixedInstancesPolicyLaunchTemplate - ] - --- | Constructor for 'AutoScalingAutoScalingGroupMixedInstancesPolicy' --- containing required fields as arguments. -autoScalingAutoScalingGroupMixedInstancesPolicy - :: AutoScalingAutoScalingGroupLaunchTemplate -- ^ 'asasgmipLaunchTemplate' - -> AutoScalingAutoScalingGroupMixedInstancesPolicy -autoScalingAutoScalingGroupMixedInstancesPolicy launchTemplatearg = - AutoScalingAutoScalingGroupMixedInstancesPolicy - { _autoScalingAutoScalingGroupMixedInstancesPolicyInstancesDistribution = Nothing - , _autoScalingAutoScalingGroupMixedInstancesPolicyLaunchTemplate = launchTemplatearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/cfn-as-group-mixedinstancespolicy.html#cfn-as-mixedinstancespolicy-instancesdistribution -asasgmipInstancesDistribution :: Lens' AutoScalingAutoScalingGroupMixedInstancesPolicy (Maybe AutoScalingAutoScalingGroupInstancesDistribution) -asasgmipInstancesDistribution = lens _autoScalingAutoScalingGroupMixedInstancesPolicyInstancesDistribution (\s a -> s { _autoScalingAutoScalingGroupMixedInstancesPolicyInstancesDistribution = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/cfn-as-group-mixedinstancespolicy.html#cfn-as-mixedinstancespolicy-launchtemplate -asasgmipLaunchTemplate :: Lens' AutoScalingAutoScalingGroupMixedInstancesPolicy AutoScalingAutoScalingGroupLaunchTemplate -asasgmipLaunchTemplate = lens _autoScalingAutoScalingGroupMixedInstancesPolicyLaunchTemplate (\s a -> s { _autoScalingAutoScalingGroupMixedInstancesPolicyLaunchTemplate = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupNotificationConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupNotificationConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupNotificationConfiguration.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-notificationconfigurations.html - -module Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupNotificationConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- AutoScalingAutoScalingGroupNotificationConfiguration. See --- 'autoScalingAutoScalingGroupNotificationConfiguration' for a more --- convenient constructor. -data AutoScalingAutoScalingGroupNotificationConfiguration = - AutoScalingAutoScalingGroupNotificationConfiguration - { _autoScalingAutoScalingGroupNotificationConfigurationNotificationTypes :: Maybe (ValList Text) - , _autoScalingAutoScalingGroupNotificationConfigurationTopicARN :: Val Text - } deriving (Show, Eq) - -instance ToJSON AutoScalingAutoScalingGroupNotificationConfiguration where - toJSON AutoScalingAutoScalingGroupNotificationConfiguration{..} = - object $ - catMaybes - [ fmap (("NotificationTypes",) . toJSON) _autoScalingAutoScalingGroupNotificationConfigurationNotificationTypes - , (Just . ("TopicARN",) . toJSON) _autoScalingAutoScalingGroupNotificationConfigurationTopicARN - ] - --- | Constructor for 'AutoScalingAutoScalingGroupNotificationConfiguration' --- containing required fields as arguments. -autoScalingAutoScalingGroupNotificationConfiguration - :: Val Text -- ^ 'asasgncTopicARN' - -> AutoScalingAutoScalingGroupNotificationConfiguration -autoScalingAutoScalingGroupNotificationConfiguration topicARNarg = - AutoScalingAutoScalingGroupNotificationConfiguration - { _autoScalingAutoScalingGroupNotificationConfigurationNotificationTypes = Nothing - , _autoScalingAutoScalingGroupNotificationConfigurationTopicARN = topicARNarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-notificationconfigurations.html#cfn-as-group-notificationconfigurations-notificationtypes -asasgncNotificationTypes :: Lens' AutoScalingAutoScalingGroupNotificationConfiguration (Maybe (ValList Text)) -asasgncNotificationTypes = lens _autoScalingAutoScalingGroupNotificationConfigurationNotificationTypes (\s a -> s { _autoScalingAutoScalingGroupNotificationConfigurationNotificationTypes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-notificationconfigurations.html#cfn-autoscaling-autoscalinggroup-notificationconfigurations-topicarn -asasgncTopicARN :: Lens' AutoScalingAutoScalingGroupNotificationConfiguration (Val Text) -asasgncTopicARN = lens _autoScalingAutoScalingGroupNotificationConfigurationTopicARN (\s a -> s { _autoScalingAutoScalingGroupNotificationConfigurationTopicARN = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupTagProperty.hs b/library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupTagProperty.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupTagProperty.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-tags.html - -module Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupTagProperty where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AutoScalingAutoScalingGroupTagProperty. See --- 'autoScalingAutoScalingGroupTagProperty' for a more convenient --- constructor. -data AutoScalingAutoScalingGroupTagProperty = - AutoScalingAutoScalingGroupTagProperty - { _autoScalingAutoScalingGroupTagPropertyKey :: Val Text - , _autoScalingAutoScalingGroupTagPropertyPropagateAtLaunch :: Val Bool - , _autoScalingAutoScalingGroupTagPropertyValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON AutoScalingAutoScalingGroupTagProperty where - toJSON AutoScalingAutoScalingGroupTagProperty{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _autoScalingAutoScalingGroupTagPropertyKey - , (Just . ("PropagateAtLaunch",) . toJSON) _autoScalingAutoScalingGroupTagPropertyPropagateAtLaunch - , (Just . ("Value",) . toJSON) _autoScalingAutoScalingGroupTagPropertyValue - ] - --- | Constructor for 'AutoScalingAutoScalingGroupTagProperty' containing --- required fields as arguments. -autoScalingAutoScalingGroupTagProperty - :: Val Text -- ^ 'asasgtpKey' - -> Val Bool -- ^ 'asasgtpPropagateAtLaunch' - -> Val Text -- ^ 'asasgtpValue' - -> AutoScalingAutoScalingGroupTagProperty -autoScalingAutoScalingGroupTagProperty keyarg propagateAtLauncharg valuearg = - AutoScalingAutoScalingGroupTagProperty - { _autoScalingAutoScalingGroupTagPropertyKey = keyarg - , _autoScalingAutoScalingGroupTagPropertyPropagateAtLaunch = propagateAtLauncharg - , _autoScalingAutoScalingGroupTagPropertyValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-tags.html#cfn-as-tags-Key -asasgtpKey :: Lens' AutoScalingAutoScalingGroupTagProperty (Val Text) -asasgtpKey = lens _autoScalingAutoScalingGroupTagPropertyKey (\s a -> s { _autoScalingAutoScalingGroupTagPropertyKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-tags.html#cfn-as-tags-PropagateAtLaunch -asasgtpPropagateAtLaunch :: Lens' AutoScalingAutoScalingGroupTagProperty (Val Bool) -asasgtpPropagateAtLaunch = lens _autoScalingAutoScalingGroupTagPropertyPropagateAtLaunch (\s a -> s { _autoScalingAutoScalingGroupTagPropertyPropagateAtLaunch = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-tags.html#cfn-as-tags-Value -asasgtpValue :: Lens' AutoScalingAutoScalingGroupTagProperty (Val Text) -asasgtpValue = lens _autoScalingAutoScalingGroupTagPropertyValue (\s a -> s { _autoScalingAutoScalingGroupTagPropertyValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AutoScalingLaunchConfigurationBlockDevice.hs b/library-gen/Stratosphere/ResourceProperties/AutoScalingLaunchConfigurationBlockDevice.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AutoScalingLaunchConfigurationBlockDevice.hs +++ /dev/null @@ -1,74 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig-blockdev-template.html - -module Stratosphere.ResourceProperties.AutoScalingLaunchConfigurationBlockDevice where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AutoScalingLaunchConfigurationBlockDevice. --- See 'autoScalingLaunchConfigurationBlockDevice' for a more convenient --- constructor. -data AutoScalingLaunchConfigurationBlockDevice = - AutoScalingLaunchConfigurationBlockDevice - { _autoScalingLaunchConfigurationBlockDeviceDeleteOnTermination :: Maybe (Val Bool) - , _autoScalingLaunchConfigurationBlockDeviceEncrypted :: Maybe (Val Bool) - , _autoScalingLaunchConfigurationBlockDeviceIops :: Maybe (Val Integer) - , _autoScalingLaunchConfigurationBlockDeviceSnapshotId :: Maybe (Val Text) - , _autoScalingLaunchConfigurationBlockDeviceVolumeSize :: Maybe (Val Integer) - , _autoScalingLaunchConfigurationBlockDeviceVolumeType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AutoScalingLaunchConfigurationBlockDevice where - toJSON AutoScalingLaunchConfigurationBlockDevice{..} = - object $ - catMaybes - [ fmap (("DeleteOnTermination",) . toJSON) _autoScalingLaunchConfigurationBlockDeviceDeleteOnTermination - , fmap (("Encrypted",) . toJSON) _autoScalingLaunchConfigurationBlockDeviceEncrypted - , fmap (("Iops",) . toJSON) _autoScalingLaunchConfigurationBlockDeviceIops - , fmap (("SnapshotId",) . toJSON) _autoScalingLaunchConfigurationBlockDeviceSnapshotId - , fmap (("VolumeSize",) . toJSON) _autoScalingLaunchConfigurationBlockDeviceVolumeSize - , fmap (("VolumeType",) . toJSON) _autoScalingLaunchConfigurationBlockDeviceVolumeType - ] - --- | Constructor for 'AutoScalingLaunchConfigurationBlockDevice' containing --- required fields as arguments. -autoScalingLaunchConfigurationBlockDevice - :: AutoScalingLaunchConfigurationBlockDevice -autoScalingLaunchConfigurationBlockDevice = - AutoScalingLaunchConfigurationBlockDevice - { _autoScalingLaunchConfigurationBlockDeviceDeleteOnTermination = Nothing - , _autoScalingLaunchConfigurationBlockDeviceEncrypted = Nothing - , _autoScalingLaunchConfigurationBlockDeviceIops = Nothing - , _autoScalingLaunchConfigurationBlockDeviceSnapshotId = Nothing - , _autoScalingLaunchConfigurationBlockDeviceVolumeSize = Nothing - , _autoScalingLaunchConfigurationBlockDeviceVolumeType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig-blockdev-template.html#cfn-as-launchconfig-blockdev-template-deleteonterm -aslcbdDeleteOnTermination :: Lens' AutoScalingLaunchConfigurationBlockDevice (Maybe (Val Bool)) -aslcbdDeleteOnTermination = lens _autoScalingLaunchConfigurationBlockDeviceDeleteOnTermination (\s a -> s { _autoScalingLaunchConfigurationBlockDeviceDeleteOnTermination = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig-blockdev-template.html#cfn-as-launchconfig-blockdev-template-encrypted -aslcbdEncrypted :: Lens' AutoScalingLaunchConfigurationBlockDevice (Maybe (Val Bool)) -aslcbdEncrypted = lens _autoScalingLaunchConfigurationBlockDeviceEncrypted (\s a -> s { _autoScalingLaunchConfigurationBlockDeviceEncrypted = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig-blockdev-template.html#cfn-as-launchconfig-blockdev-template-iops -aslcbdIops :: Lens' AutoScalingLaunchConfigurationBlockDevice (Maybe (Val Integer)) -aslcbdIops = lens _autoScalingLaunchConfigurationBlockDeviceIops (\s a -> s { _autoScalingLaunchConfigurationBlockDeviceIops = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig-blockdev-template.html#cfn-as-launchconfig-blockdev-template-snapshotid -aslcbdSnapshotId :: Lens' AutoScalingLaunchConfigurationBlockDevice (Maybe (Val Text)) -aslcbdSnapshotId = lens _autoScalingLaunchConfigurationBlockDeviceSnapshotId (\s a -> s { _autoScalingLaunchConfigurationBlockDeviceSnapshotId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig-blockdev-template.html#cfn-as-launchconfig-blockdev-template-volumesize -aslcbdVolumeSize :: Lens' AutoScalingLaunchConfigurationBlockDevice (Maybe (Val Integer)) -aslcbdVolumeSize = lens _autoScalingLaunchConfigurationBlockDeviceVolumeSize (\s a -> s { _autoScalingLaunchConfigurationBlockDeviceVolumeSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig-blockdev-template.html#cfn-as-launchconfig-blockdev-template-volumetype -aslcbdVolumeType :: Lens' AutoScalingLaunchConfigurationBlockDevice (Maybe (Val Text)) -aslcbdVolumeType = lens _autoScalingLaunchConfigurationBlockDeviceVolumeType (\s a -> s { _autoScalingLaunchConfigurationBlockDeviceVolumeType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AutoScalingLaunchConfigurationBlockDeviceMapping.hs b/library-gen/Stratosphere/ResourceProperties/AutoScalingLaunchConfigurationBlockDeviceMapping.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AutoScalingLaunchConfigurationBlockDeviceMapping.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig-blockdev-mapping.html - -module Stratosphere.ResourceProperties.AutoScalingLaunchConfigurationBlockDeviceMapping where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AutoScalingLaunchConfigurationBlockDevice - --- | Full data type definition for --- AutoScalingLaunchConfigurationBlockDeviceMapping. See --- 'autoScalingLaunchConfigurationBlockDeviceMapping' for a more convenient --- constructor. -data AutoScalingLaunchConfigurationBlockDeviceMapping = - AutoScalingLaunchConfigurationBlockDeviceMapping - { _autoScalingLaunchConfigurationBlockDeviceMappingDeviceName :: Val Text - , _autoScalingLaunchConfigurationBlockDeviceMappingEbs :: Maybe AutoScalingLaunchConfigurationBlockDevice - , _autoScalingLaunchConfigurationBlockDeviceMappingNoDevice :: Maybe (Val Bool) - , _autoScalingLaunchConfigurationBlockDeviceMappingVirtualName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AutoScalingLaunchConfigurationBlockDeviceMapping where - toJSON AutoScalingLaunchConfigurationBlockDeviceMapping{..} = - object $ - catMaybes - [ (Just . ("DeviceName",) . toJSON) _autoScalingLaunchConfigurationBlockDeviceMappingDeviceName - , fmap (("Ebs",) . toJSON) _autoScalingLaunchConfigurationBlockDeviceMappingEbs - , fmap (("NoDevice",) . toJSON) _autoScalingLaunchConfigurationBlockDeviceMappingNoDevice - , fmap (("VirtualName",) . toJSON) _autoScalingLaunchConfigurationBlockDeviceMappingVirtualName - ] - --- | Constructor for 'AutoScalingLaunchConfigurationBlockDeviceMapping' --- containing required fields as arguments. -autoScalingLaunchConfigurationBlockDeviceMapping - :: Val Text -- ^ 'aslcbdmDeviceName' - -> AutoScalingLaunchConfigurationBlockDeviceMapping -autoScalingLaunchConfigurationBlockDeviceMapping deviceNamearg = - AutoScalingLaunchConfigurationBlockDeviceMapping - { _autoScalingLaunchConfigurationBlockDeviceMappingDeviceName = deviceNamearg - , _autoScalingLaunchConfigurationBlockDeviceMappingEbs = Nothing - , _autoScalingLaunchConfigurationBlockDeviceMappingNoDevice = Nothing - , _autoScalingLaunchConfigurationBlockDeviceMappingVirtualName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig-blockdev-mapping.html#cfn-as-launchconfig-blockdev-mapping-devicename -aslcbdmDeviceName :: Lens' AutoScalingLaunchConfigurationBlockDeviceMapping (Val Text) -aslcbdmDeviceName = lens _autoScalingLaunchConfigurationBlockDeviceMappingDeviceName (\s a -> s { _autoScalingLaunchConfigurationBlockDeviceMappingDeviceName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig-blockdev-mapping.html#cfn-as-launchconfig-blockdev-mapping-ebs -aslcbdmEbs :: Lens' AutoScalingLaunchConfigurationBlockDeviceMapping (Maybe AutoScalingLaunchConfigurationBlockDevice) -aslcbdmEbs = lens _autoScalingLaunchConfigurationBlockDeviceMappingEbs (\s a -> s { _autoScalingLaunchConfigurationBlockDeviceMappingEbs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig-blockdev-mapping.html#cfn-as-launchconfig-blockdev-mapping-nodevice -aslcbdmNoDevice :: Lens' AutoScalingLaunchConfigurationBlockDeviceMapping (Maybe (Val Bool)) -aslcbdmNoDevice = lens _autoScalingLaunchConfigurationBlockDeviceMappingNoDevice (\s a -> s { _autoScalingLaunchConfigurationBlockDeviceMappingNoDevice = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig-blockdev-mapping.html#cfn-as-launchconfig-blockdev-mapping-virtualname -aslcbdmVirtualName :: Lens' AutoScalingLaunchConfigurationBlockDeviceMapping (Maybe (Val Text)) -aslcbdmVirtualName = lens _autoScalingLaunchConfigurationBlockDeviceMappingVirtualName (\s a -> s { _autoScalingLaunchConfigurationBlockDeviceMappingVirtualName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanApplicationSource.hs b/library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanApplicationSource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanApplicationSource.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-applicationsource.html - -module Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanApplicationSource where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanTagFilter - --- | Full data type definition for --- AutoScalingPlansScalingPlanApplicationSource. See --- 'autoScalingPlansScalingPlanApplicationSource' for a more convenient --- constructor. -data AutoScalingPlansScalingPlanApplicationSource = - AutoScalingPlansScalingPlanApplicationSource - { _autoScalingPlansScalingPlanApplicationSourceCloudFormationStackARN :: Maybe (Val Text) - , _autoScalingPlansScalingPlanApplicationSourceTagFilters :: Maybe [AutoScalingPlansScalingPlanTagFilter] - } deriving (Show, Eq) - -instance ToJSON AutoScalingPlansScalingPlanApplicationSource where - toJSON AutoScalingPlansScalingPlanApplicationSource{..} = - object $ - catMaybes - [ fmap (("CloudFormationStackARN",) . toJSON) _autoScalingPlansScalingPlanApplicationSourceCloudFormationStackARN - , fmap (("TagFilters",) . toJSON) _autoScalingPlansScalingPlanApplicationSourceTagFilters - ] - --- | Constructor for 'AutoScalingPlansScalingPlanApplicationSource' containing --- required fields as arguments. -autoScalingPlansScalingPlanApplicationSource - :: AutoScalingPlansScalingPlanApplicationSource -autoScalingPlansScalingPlanApplicationSource = - AutoScalingPlansScalingPlanApplicationSource - { _autoScalingPlansScalingPlanApplicationSourceCloudFormationStackARN = Nothing - , _autoScalingPlansScalingPlanApplicationSourceTagFilters = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-applicationsource.html#cfn-autoscalingplans-scalingplan-applicationsource-cloudformationstackarn -aspspasCloudFormationStackARN :: Lens' AutoScalingPlansScalingPlanApplicationSource (Maybe (Val Text)) -aspspasCloudFormationStackARN = lens _autoScalingPlansScalingPlanApplicationSourceCloudFormationStackARN (\s a -> s { _autoScalingPlansScalingPlanApplicationSourceCloudFormationStackARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-applicationsource.html#cfn-autoscalingplans-scalingplan-applicationsource-tagfilters -aspspasTagFilters :: Lens' AutoScalingPlansScalingPlanApplicationSource (Maybe [AutoScalingPlansScalingPlanTagFilter]) -aspspasTagFilters = lens _autoScalingPlansScalingPlanApplicationSourceTagFilters (\s a -> s { _autoScalingPlansScalingPlanApplicationSourceTagFilters = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification.hs b/library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification.hs +++ /dev/null @@ -1,72 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-customizedloadmetricspecification.html - -module Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanMetricDimension - --- | Full data type definition for --- AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification. See --- 'autoScalingPlansScalingPlanCustomizedLoadMetricSpecification' for a more --- convenient constructor. -data AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification = - AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification - { _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationDimensions :: Maybe [AutoScalingPlansScalingPlanMetricDimension] - , _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationMetricName :: Val Text - , _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationNamespace :: Val Text - , _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationStatistic :: Val Text - , _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationUnit :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification where - toJSON AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification{..} = - object $ - catMaybes - [ fmap (("Dimensions",) . toJSON) _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationDimensions - , (Just . ("MetricName",) . toJSON) _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationMetricName - , (Just . ("Namespace",) . toJSON) _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationNamespace - , (Just . ("Statistic",) . toJSON) _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationStatistic - , fmap (("Unit",) . toJSON) _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationUnit - ] - --- | Constructor for --- 'AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification' containing --- required fields as arguments. -autoScalingPlansScalingPlanCustomizedLoadMetricSpecification - :: Val Text -- ^ 'aspspclmsMetricName' - -> Val Text -- ^ 'aspspclmsNamespace' - -> Val Text -- ^ 'aspspclmsStatistic' - -> AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification -autoScalingPlansScalingPlanCustomizedLoadMetricSpecification metricNamearg namespacearg statisticarg = - AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification - { _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationDimensions = Nothing - , _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationMetricName = metricNamearg - , _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationNamespace = namespacearg - , _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationStatistic = statisticarg - , _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationUnit = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-customizedloadmetricspecification.html#cfn-autoscalingplans-scalingplan-customizedloadmetricspecification-dimensions -aspspclmsDimensions :: Lens' AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification (Maybe [AutoScalingPlansScalingPlanMetricDimension]) -aspspclmsDimensions = lens _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationDimensions (\s a -> s { _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationDimensions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-customizedloadmetricspecification.html#cfn-autoscalingplans-scalingplan-customizedloadmetricspecification-metricname -aspspclmsMetricName :: Lens' AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification (Val Text) -aspspclmsMetricName = lens _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationMetricName (\s a -> s { _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationMetricName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-customizedloadmetricspecification.html#cfn-autoscalingplans-scalingplan-customizedloadmetricspecification-namespace -aspspclmsNamespace :: Lens' AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification (Val Text) -aspspclmsNamespace = lens _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationNamespace (\s a -> s { _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationNamespace = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-customizedloadmetricspecification.html#cfn-autoscalingplans-scalingplan-customizedloadmetricspecification-statistic -aspspclmsStatistic :: Lens' AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification (Val Text) -aspspclmsStatistic = lens _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationStatistic (\s a -> s { _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationStatistic = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-customizedloadmetricspecification.html#cfn-autoscalingplans-scalingplan-customizedloadmetricspecification-unit -aspspclmsUnit :: Lens' AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification (Maybe (Val Text)) -aspspclmsUnit = lens _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationUnit (\s a -> s { _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationUnit = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanCustomizedScalingMetricSpecification.hs b/library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanCustomizedScalingMetricSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanCustomizedScalingMetricSpecification.hs +++ /dev/null @@ -1,72 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-customizedscalingmetricspecification.html - -module Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanCustomizedScalingMetricSpecification where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanMetricDimension - --- | Full data type definition for --- AutoScalingPlansScalingPlanCustomizedScalingMetricSpecification. See --- 'autoScalingPlansScalingPlanCustomizedScalingMetricSpecification' for a --- more convenient constructor. -data AutoScalingPlansScalingPlanCustomizedScalingMetricSpecification = - AutoScalingPlansScalingPlanCustomizedScalingMetricSpecification - { _autoScalingPlansScalingPlanCustomizedScalingMetricSpecificationDimensions :: Maybe [AutoScalingPlansScalingPlanMetricDimension] - , _autoScalingPlansScalingPlanCustomizedScalingMetricSpecificationMetricName :: Val Text - , _autoScalingPlansScalingPlanCustomizedScalingMetricSpecificationNamespace :: Val Text - , _autoScalingPlansScalingPlanCustomizedScalingMetricSpecificationStatistic :: Val Text - , _autoScalingPlansScalingPlanCustomizedScalingMetricSpecificationUnit :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AutoScalingPlansScalingPlanCustomizedScalingMetricSpecification where - toJSON AutoScalingPlansScalingPlanCustomizedScalingMetricSpecification{..} = - object $ - catMaybes - [ fmap (("Dimensions",) . toJSON) _autoScalingPlansScalingPlanCustomizedScalingMetricSpecificationDimensions - , (Just . ("MetricName",) . toJSON) _autoScalingPlansScalingPlanCustomizedScalingMetricSpecificationMetricName - , (Just . ("Namespace",) . toJSON) _autoScalingPlansScalingPlanCustomizedScalingMetricSpecificationNamespace - , (Just . ("Statistic",) . toJSON) _autoScalingPlansScalingPlanCustomizedScalingMetricSpecificationStatistic - , fmap (("Unit",) . toJSON) _autoScalingPlansScalingPlanCustomizedScalingMetricSpecificationUnit - ] - --- | Constructor for --- 'AutoScalingPlansScalingPlanCustomizedScalingMetricSpecification' --- containing required fields as arguments. -autoScalingPlansScalingPlanCustomizedScalingMetricSpecification - :: Val Text -- ^ 'aspspcsmsMetricName' - -> Val Text -- ^ 'aspspcsmsNamespace' - -> Val Text -- ^ 'aspspcsmsStatistic' - -> AutoScalingPlansScalingPlanCustomizedScalingMetricSpecification -autoScalingPlansScalingPlanCustomizedScalingMetricSpecification metricNamearg namespacearg statisticarg = - AutoScalingPlansScalingPlanCustomizedScalingMetricSpecification - { _autoScalingPlansScalingPlanCustomizedScalingMetricSpecificationDimensions = Nothing - , _autoScalingPlansScalingPlanCustomizedScalingMetricSpecificationMetricName = metricNamearg - , _autoScalingPlansScalingPlanCustomizedScalingMetricSpecificationNamespace = namespacearg - , _autoScalingPlansScalingPlanCustomizedScalingMetricSpecificationStatistic = statisticarg - , _autoScalingPlansScalingPlanCustomizedScalingMetricSpecificationUnit = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-customizedscalingmetricspecification.html#cfn-autoscalingplans-scalingplan-customizedscalingmetricspecification-dimensions -aspspcsmsDimensions :: Lens' AutoScalingPlansScalingPlanCustomizedScalingMetricSpecification (Maybe [AutoScalingPlansScalingPlanMetricDimension]) -aspspcsmsDimensions = lens _autoScalingPlansScalingPlanCustomizedScalingMetricSpecificationDimensions (\s a -> s { _autoScalingPlansScalingPlanCustomizedScalingMetricSpecificationDimensions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-customizedscalingmetricspecification.html#cfn-autoscalingplans-scalingplan-customizedscalingmetricspecification-metricname -aspspcsmsMetricName :: Lens' AutoScalingPlansScalingPlanCustomizedScalingMetricSpecification (Val Text) -aspspcsmsMetricName = lens _autoScalingPlansScalingPlanCustomizedScalingMetricSpecificationMetricName (\s a -> s { _autoScalingPlansScalingPlanCustomizedScalingMetricSpecificationMetricName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-customizedscalingmetricspecification.html#cfn-autoscalingplans-scalingplan-customizedscalingmetricspecification-namespace -aspspcsmsNamespace :: Lens' AutoScalingPlansScalingPlanCustomizedScalingMetricSpecification (Val Text) -aspspcsmsNamespace = lens _autoScalingPlansScalingPlanCustomizedScalingMetricSpecificationNamespace (\s a -> s { _autoScalingPlansScalingPlanCustomizedScalingMetricSpecificationNamespace = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-customizedscalingmetricspecification.html#cfn-autoscalingplans-scalingplan-customizedscalingmetricspecification-statistic -aspspcsmsStatistic :: Lens' AutoScalingPlansScalingPlanCustomizedScalingMetricSpecification (Val Text) -aspspcsmsStatistic = lens _autoScalingPlansScalingPlanCustomizedScalingMetricSpecificationStatistic (\s a -> s { _autoScalingPlansScalingPlanCustomizedScalingMetricSpecificationStatistic = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-customizedscalingmetricspecification.html#cfn-autoscalingplans-scalingplan-customizedscalingmetricspecification-unit -aspspcsmsUnit :: Lens' AutoScalingPlansScalingPlanCustomizedScalingMetricSpecification (Maybe (Val Text)) -aspspcsmsUnit = lens _autoScalingPlansScalingPlanCustomizedScalingMetricSpecificationUnit (\s a -> s { _autoScalingPlansScalingPlanCustomizedScalingMetricSpecificationUnit = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanMetricDimension.hs b/library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanMetricDimension.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanMetricDimension.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-metricdimension.html - -module Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanMetricDimension where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AutoScalingPlansScalingPlanMetricDimension. --- See 'autoScalingPlansScalingPlanMetricDimension' for a more convenient --- constructor. -data AutoScalingPlansScalingPlanMetricDimension = - AutoScalingPlansScalingPlanMetricDimension - { _autoScalingPlansScalingPlanMetricDimensionName :: Val Text - , _autoScalingPlansScalingPlanMetricDimensionValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON AutoScalingPlansScalingPlanMetricDimension where - toJSON AutoScalingPlansScalingPlanMetricDimension{..} = - object $ - catMaybes - [ (Just . ("Name",) . toJSON) _autoScalingPlansScalingPlanMetricDimensionName - , (Just . ("Value",) . toJSON) _autoScalingPlansScalingPlanMetricDimensionValue - ] - --- | Constructor for 'AutoScalingPlansScalingPlanMetricDimension' containing --- required fields as arguments. -autoScalingPlansScalingPlanMetricDimension - :: Val Text -- ^ 'aspspmdName' - -> Val Text -- ^ 'aspspmdValue' - -> AutoScalingPlansScalingPlanMetricDimension -autoScalingPlansScalingPlanMetricDimension namearg valuearg = - AutoScalingPlansScalingPlanMetricDimension - { _autoScalingPlansScalingPlanMetricDimensionName = namearg - , _autoScalingPlansScalingPlanMetricDimensionValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-metricdimension.html#cfn-autoscalingplans-scalingplan-metricdimension-name -aspspmdName :: Lens' AutoScalingPlansScalingPlanMetricDimension (Val Text) -aspspmdName = lens _autoScalingPlansScalingPlanMetricDimensionName (\s a -> s { _autoScalingPlansScalingPlanMetricDimensionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-metricdimension.html#cfn-autoscalingplans-scalingplan-metricdimension-value -aspspmdValue :: Lens' AutoScalingPlansScalingPlanMetricDimension (Val Text) -aspspmdValue = lens _autoScalingPlansScalingPlanMetricDimensionValue (\s a -> s { _autoScalingPlansScalingPlanMetricDimensionValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification.hs b/library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-predefinedloadmetricspecification.html - -module Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification. See --- 'autoScalingPlansScalingPlanPredefinedLoadMetricSpecification' for a more --- convenient constructor. -data AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification = - AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification - { _autoScalingPlansScalingPlanPredefinedLoadMetricSpecificationPredefinedLoadMetricType :: Val Text - , _autoScalingPlansScalingPlanPredefinedLoadMetricSpecificationResourceLabel :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification where - toJSON AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification{..} = - object $ - catMaybes - [ (Just . ("PredefinedLoadMetricType",) . toJSON) _autoScalingPlansScalingPlanPredefinedLoadMetricSpecificationPredefinedLoadMetricType - , fmap (("ResourceLabel",) . toJSON) _autoScalingPlansScalingPlanPredefinedLoadMetricSpecificationResourceLabel - ] - --- | Constructor for --- 'AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification' containing --- required fields as arguments. -autoScalingPlansScalingPlanPredefinedLoadMetricSpecification - :: Val Text -- ^ 'aspspplmsPredefinedLoadMetricType' - -> AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification -autoScalingPlansScalingPlanPredefinedLoadMetricSpecification predefinedLoadMetricTypearg = - AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification - { _autoScalingPlansScalingPlanPredefinedLoadMetricSpecificationPredefinedLoadMetricType = predefinedLoadMetricTypearg - , _autoScalingPlansScalingPlanPredefinedLoadMetricSpecificationResourceLabel = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-predefinedloadmetricspecification.html#cfn-autoscalingplans-scalingplan-predefinedloadmetricspecification-predefinedloadmetrictype -aspspplmsPredefinedLoadMetricType :: Lens' AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification (Val Text) -aspspplmsPredefinedLoadMetricType = lens _autoScalingPlansScalingPlanPredefinedLoadMetricSpecificationPredefinedLoadMetricType (\s a -> s { _autoScalingPlansScalingPlanPredefinedLoadMetricSpecificationPredefinedLoadMetricType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-predefinedloadmetricspecification.html#cfn-autoscalingplans-scalingplan-predefinedloadmetricspecification-resourcelabel -aspspplmsResourceLabel :: Lens' AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification (Maybe (Val Text)) -aspspplmsResourceLabel = lens _autoScalingPlansScalingPlanPredefinedLoadMetricSpecificationResourceLabel (\s a -> s { _autoScalingPlansScalingPlanPredefinedLoadMetricSpecificationResourceLabel = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanPredefinedScalingMetricSpecification.hs b/library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanPredefinedScalingMetricSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanPredefinedScalingMetricSpecification.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-predefinedscalingmetricspecification.html - -module Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanPredefinedScalingMetricSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- AutoScalingPlansScalingPlanPredefinedScalingMetricSpecification. See --- 'autoScalingPlansScalingPlanPredefinedScalingMetricSpecification' for a --- more convenient constructor. -data AutoScalingPlansScalingPlanPredefinedScalingMetricSpecification = - AutoScalingPlansScalingPlanPredefinedScalingMetricSpecification - { _autoScalingPlansScalingPlanPredefinedScalingMetricSpecificationPredefinedScalingMetricType :: Val Text - , _autoScalingPlansScalingPlanPredefinedScalingMetricSpecificationResourceLabel :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AutoScalingPlansScalingPlanPredefinedScalingMetricSpecification where - toJSON AutoScalingPlansScalingPlanPredefinedScalingMetricSpecification{..} = - object $ - catMaybes - [ (Just . ("PredefinedScalingMetricType",) . toJSON) _autoScalingPlansScalingPlanPredefinedScalingMetricSpecificationPredefinedScalingMetricType - , fmap (("ResourceLabel",) . toJSON) _autoScalingPlansScalingPlanPredefinedScalingMetricSpecificationResourceLabel - ] - --- | Constructor for --- 'AutoScalingPlansScalingPlanPredefinedScalingMetricSpecification' --- containing required fields as arguments. -autoScalingPlansScalingPlanPredefinedScalingMetricSpecification - :: Val Text -- ^ 'aspsppsmsPredefinedScalingMetricType' - -> AutoScalingPlansScalingPlanPredefinedScalingMetricSpecification -autoScalingPlansScalingPlanPredefinedScalingMetricSpecification predefinedScalingMetricTypearg = - AutoScalingPlansScalingPlanPredefinedScalingMetricSpecification - { _autoScalingPlansScalingPlanPredefinedScalingMetricSpecificationPredefinedScalingMetricType = predefinedScalingMetricTypearg - , _autoScalingPlansScalingPlanPredefinedScalingMetricSpecificationResourceLabel = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-predefinedscalingmetricspecification.html#cfn-autoscalingplans-scalingplan-predefinedscalingmetricspecification-predefinedscalingmetrictype -aspsppsmsPredefinedScalingMetricType :: Lens' AutoScalingPlansScalingPlanPredefinedScalingMetricSpecification (Val Text) -aspsppsmsPredefinedScalingMetricType = lens _autoScalingPlansScalingPlanPredefinedScalingMetricSpecificationPredefinedScalingMetricType (\s a -> s { _autoScalingPlansScalingPlanPredefinedScalingMetricSpecificationPredefinedScalingMetricType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-predefinedscalingmetricspecification.html#cfn-autoscalingplans-scalingplan-predefinedscalingmetricspecification-resourcelabel -aspsppsmsResourceLabel :: Lens' AutoScalingPlansScalingPlanPredefinedScalingMetricSpecification (Maybe (Val Text)) -aspsppsmsResourceLabel = lens _autoScalingPlansScalingPlanPredefinedScalingMetricSpecificationResourceLabel (\s a -> s { _autoScalingPlansScalingPlanPredefinedScalingMetricSpecificationResourceLabel = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanScalingInstruction.hs b/library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanScalingInstruction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanScalingInstruction.hs +++ /dev/null @@ -1,139 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-scalinginstruction.html - -module Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanScalingInstruction where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification -import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification -import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanTargetTrackingConfiguration - --- | Full data type definition for --- AutoScalingPlansScalingPlanScalingInstruction. See --- 'autoScalingPlansScalingPlanScalingInstruction' for a more convenient --- constructor. -data AutoScalingPlansScalingPlanScalingInstruction = - AutoScalingPlansScalingPlanScalingInstruction - { _autoScalingPlansScalingPlanScalingInstructionCustomizedLoadMetricSpecification :: Maybe AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification - , _autoScalingPlansScalingPlanScalingInstructionDisableDynamicScaling :: Maybe (Val Bool) - , _autoScalingPlansScalingPlanScalingInstructionMaxCapacity :: Val Integer - , _autoScalingPlansScalingPlanScalingInstructionMinCapacity :: Val Integer - , _autoScalingPlansScalingPlanScalingInstructionPredefinedLoadMetricSpecification :: Maybe AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification - , _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMaxCapacityBehavior :: Maybe (Val Text) - , _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMaxCapacityBuffer :: Maybe (Val Integer) - , _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMode :: Maybe (Val Text) - , _autoScalingPlansScalingPlanScalingInstructionResourceId :: Val Text - , _autoScalingPlansScalingPlanScalingInstructionScalableDimension :: Val Text - , _autoScalingPlansScalingPlanScalingInstructionScalingPolicyUpdateBehavior :: Maybe (Val Text) - , _autoScalingPlansScalingPlanScalingInstructionScheduledActionBufferTime :: Maybe (Val Integer) - , _autoScalingPlansScalingPlanScalingInstructionServiceNamespace :: Val Text - , _autoScalingPlansScalingPlanScalingInstructionTargetTrackingConfigurations :: [AutoScalingPlansScalingPlanTargetTrackingConfiguration] - } deriving (Show, Eq) - -instance ToJSON AutoScalingPlansScalingPlanScalingInstruction where - toJSON AutoScalingPlansScalingPlanScalingInstruction{..} = - object $ - catMaybes - [ fmap (("CustomizedLoadMetricSpecification",) . toJSON) _autoScalingPlansScalingPlanScalingInstructionCustomizedLoadMetricSpecification - , fmap (("DisableDynamicScaling",) . toJSON) _autoScalingPlansScalingPlanScalingInstructionDisableDynamicScaling - , (Just . ("MaxCapacity",) . toJSON) _autoScalingPlansScalingPlanScalingInstructionMaxCapacity - , (Just . ("MinCapacity",) . toJSON) _autoScalingPlansScalingPlanScalingInstructionMinCapacity - , fmap (("PredefinedLoadMetricSpecification",) . toJSON) _autoScalingPlansScalingPlanScalingInstructionPredefinedLoadMetricSpecification - , fmap (("PredictiveScalingMaxCapacityBehavior",) . toJSON) _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMaxCapacityBehavior - , fmap (("PredictiveScalingMaxCapacityBuffer",) . toJSON) _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMaxCapacityBuffer - , fmap (("PredictiveScalingMode",) . toJSON) _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMode - , (Just . ("ResourceId",) . toJSON) _autoScalingPlansScalingPlanScalingInstructionResourceId - , (Just . ("ScalableDimension",) . toJSON) _autoScalingPlansScalingPlanScalingInstructionScalableDimension - , fmap (("ScalingPolicyUpdateBehavior",) . toJSON) _autoScalingPlansScalingPlanScalingInstructionScalingPolicyUpdateBehavior - , fmap (("ScheduledActionBufferTime",) . toJSON) _autoScalingPlansScalingPlanScalingInstructionScheduledActionBufferTime - , (Just . ("ServiceNamespace",) . toJSON) _autoScalingPlansScalingPlanScalingInstructionServiceNamespace - , (Just . ("TargetTrackingConfigurations",) . toJSON) _autoScalingPlansScalingPlanScalingInstructionTargetTrackingConfigurations - ] - --- | Constructor for 'AutoScalingPlansScalingPlanScalingInstruction' --- containing required fields as arguments. -autoScalingPlansScalingPlanScalingInstruction - :: Val Integer -- ^ 'aspspsiMaxCapacity' - -> Val Integer -- ^ 'aspspsiMinCapacity' - -> Val Text -- ^ 'aspspsiResourceId' - -> Val Text -- ^ 'aspspsiScalableDimension' - -> Val Text -- ^ 'aspspsiServiceNamespace' - -> [AutoScalingPlansScalingPlanTargetTrackingConfiguration] -- ^ 'aspspsiTargetTrackingConfigurations' - -> AutoScalingPlansScalingPlanScalingInstruction -autoScalingPlansScalingPlanScalingInstruction maxCapacityarg minCapacityarg resourceIdarg scalableDimensionarg serviceNamespacearg targetTrackingConfigurationsarg = - AutoScalingPlansScalingPlanScalingInstruction - { _autoScalingPlansScalingPlanScalingInstructionCustomizedLoadMetricSpecification = Nothing - , _autoScalingPlansScalingPlanScalingInstructionDisableDynamicScaling = Nothing - , _autoScalingPlansScalingPlanScalingInstructionMaxCapacity = maxCapacityarg - , _autoScalingPlansScalingPlanScalingInstructionMinCapacity = minCapacityarg - , _autoScalingPlansScalingPlanScalingInstructionPredefinedLoadMetricSpecification = Nothing - , _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMaxCapacityBehavior = Nothing - , _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMaxCapacityBuffer = Nothing - , _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMode = Nothing - , _autoScalingPlansScalingPlanScalingInstructionResourceId = resourceIdarg - , _autoScalingPlansScalingPlanScalingInstructionScalableDimension = scalableDimensionarg - , _autoScalingPlansScalingPlanScalingInstructionScalingPolicyUpdateBehavior = Nothing - , _autoScalingPlansScalingPlanScalingInstructionScheduledActionBufferTime = Nothing - , _autoScalingPlansScalingPlanScalingInstructionServiceNamespace = serviceNamespacearg - , _autoScalingPlansScalingPlanScalingInstructionTargetTrackingConfigurations = targetTrackingConfigurationsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-scalinginstruction.html#cfn-autoscalingplans-scalingplan-scalinginstruction-customizedloadmetricspecification -aspspsiCustomizedLoadMetricSpecification :: Lens' AutoScalingPlansScalingPlanScalingInstruction (Maybe AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification) -aspspsiCustomizedLoadMetricSpecification = lens _autoScalingPlansScalingPlanScalingInstructionCustomizedLoadMetricSpecification (\s a -> s { _autoScalingPlansScalingPlanScalingInstructionCustomizedLoadMetricSpecification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-scalinginstruction.html#cfn-autoscalingplans-scalingplan-scalinginstruction-disabledynamicscaling -aspspsiDisableDynamicScaling :: Lens' AutoScalingPlansScalingPlanScalingInstruction (Maybe (Val Bool)) -aspspsiDisableDynamicScaling = lens _autoScalingPlansScalingPlanScalingInstructionDisableDynamicScaling (\s a -> s { _autoScalingPlansScalingPlanScalingInstructionDisableDynamicScaling = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-scalinginstruction.html#cfn-autoscalingplans-scalingplan-scalinginstruction-maxcapacity -aspspsiMaxCapacity :: Lens' AutoScalingPlansScalingPlanScalingInstruction (Val Integer) -aspspsiMaxCapacity = lens _autoScalingPlansScalingPlanScalingInstructionMaxCapacity (\s a -> s { _autoScalingPlansScalingPlanScalingInstructionMaxCapacity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-scalinginstruction.html#cfn-autoscalingplans-scalingplan-scalinginstruction-mincapacity -aspspsiMinCapacity :: Lens' AutoScalingPlansScalingPlanScalingInstruction (Val Integer) -aspspsiMinCapacity = lens _autoScalingPlansScalingPlanScalingInstructionMinCapacity (\s a -> s { _autoScalingPlansScalingPlanScalingInstructionMinCapacity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-scalinginstruction.html#cfn-autoscalingplans-scalingplan-scalinginstruction-predefinedloadmetricspecification -aspspsiPredefinedLoadMetricSpecification :: Lens' AutoScalingPlansScalingPlanScalingInstruction (Maybe AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification) -aspspsiPredefinedLoadMetricSpecification = lens _autoScalingPlansScalingPlanScalingInstructionPredefinedLoadMetricSpecification (\s a -> s { _autoScalingPlansScalingPlanScalingInstructionPredefinedLoadMetricSpecification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-scalinginstruction.html#cfn-autoscalingplans-scalingplan-scalinginstruction-predictivescalingmaxcapacitybehavior -aspspsiPredictiveScalingMaxCapacityBehavior :: Lens' AutoScalingPlansScalingPlanScalingInstruction (Maybe (Val Text)) -aspspsiPredictiveScalingMaxCapacityBehavior = lens _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMaxCapacityBehavior (\s a -> s { _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMaxCapacityBehavior = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-scalinginstruction.html#cfn-autoscalingplans-scalingplan-scalinginstruction-predictivescalingmaxcapacitybuffer -aspspsiPredictiveScalingMaxCapacityBuffer :: Lens' AutoScalingPlansScalingPlanScalingInstruction (Maybe (Val Integer)) -aspspsiPredictiveScalingMaxCapacityBuffer = lens _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMaxCapacityBuffer (\s a -> s { _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMaxCapacityBuffer = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-scalinginstruction.html#cfn-autoscalingplans-scalingplan-scalinginstruction-predictivescalingmode -aspspsiPredictiveScalingMode :: Lens' AutoScalingPlansScalingPlanScalingInstruction (Maybe (Val Text)) -aspspsiPredictiveScalingMode = lens _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMode (\s a -> s { _autoScalingPlansScalingPlanScalingInstructionPredictiveScalingMode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-scalinginstruction.html#cfn-autoscalingplans-scalingplan-scalinginstruction-resourceid -aspspsiResourceId :: Lens' AutoScalingPlansScalingPlanScalingInstruction (Val Text) -aspspsiResourceId = lens _autoScalingPlansScalingPlanScalingInstructionResourceId (\s a -> s { _autoScalingPlansScalingPlanScalingInstructionResourceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-scalinginstruction.html#cfn-autoscalingplans-scalingplan-scalinginstruction-scalabledimension -aspspsiScalableDimension :: Lens' AutoScalingPlansScalingPlanScalingInstruction (Val Text) -aspspsiScalableDimension = lens _autoScalingPlansScalingPlanScalingInstructionScalableDimension (\s a -> s { _autoScalingPlansScalingPlanScalingInstructionScalableDimension = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-scalinginstruction.html#cfn-autoscalingplans-scalingplan-scalinginstruction-scalingpolicyupdatebehavior -aspspsiScalingPolicyUpdateBehavior :: Lens' AutoScalingPlansScalingPlanScalingInstruction (Maybe (Val Text)) -aspspsiScalingPolicyUpdateBehavior = lens _autoScalingPlansScalingPlanScalingInstructionScalingPolicyUpdateBehavior (\s a -> s { _autoScalingPlansScalingPlanScalingInstructionScalingPolicyUpdateBehavior = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-scalinginstruction.html#cfn-autoscalingplans-scalingplan-scalinginstruction-scheduledactionbuffertime -aspspsiScheduledActionBufferTime :: Lens' AutoScalingPlansScalingPlanScalingInstruction (Maybe (Val Integer)) -aspspsiScheduledActionBufferTime = lens _autoScalingPlansScalingPlanScalingInstructionScheduledActionBufferTime (\s a -> s { _autoScalingPlansScalingPlanScalingInstructionScheduledActionBufferTime = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-scalinginstruction.html#cfn-autoscalingplans-scalingplan-scalinginstruction-servicenamespace -aspspsiServiceNamespace :: Lens' AutoScalingPlansScalingPlanScalingInstruction (Val Text) -aspspsiServiceNamespace = lens _autoScalingPlansScalingPlanScalingInstructionServiceNamespace (\s a -> s { _autoScalingPlansScalingPlanScalingInstructionServiceNamespace = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-scalinginstruction.html#cfn-autoscalingplans-scalingplan-scalinginstruction-targettrackingconfigurations -aspspsiTargetTrackingConfigurations :: Lens' AutoScalingPlansScalingPlanScalingInstruction [AutoScalingPlansScalingPlanTargetTrackingConfiguration] -aspspsiTargetTrackingConfigurations = lens _autoScalingPlansScalingPlanScalingInstructionTargetTrackingConfigurations (\s a -> s { _autoScalingPlansScalingPlanScalingInstructionTargetTrackingConfigurations = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanTagFilter.hs b/library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanTagFilter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanTagFilter.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-tagfilter.html - -module Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanTagFilter where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AutoScalingPlansScalingPlanTagFilter. See --- 'autoScalingPlansScalingPlanTagFilter' for a more convenient constructor. -data AutoScalingPlansScalingPlanTagFilter = - AutoScalingPlansScalingPlanTagFilter - { _autoScalingPlansScalingPlanTagFilterKey :: Val Text - , _autoScalingPlansScalingPlanTagFilterValues :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON AutoScalingPlansScalingPlanTagFilter where - toJSON AutoScalingPlansScalingPlanTagFilter{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _autoScalingPlansScalingPlanTagFilterKey - , fmap (("Values",) . toJSON) _autoScalingPlansScalingPlanTagFilterValues - ] - --- | Constructor for 'AutoScalingPlansScalingPlanTagFilter' containing --- required fields as arguments. -autoScalingPlansScalingPlanTagFilter - :: Val Text -- ^ 'aspsptfKey' - -> AutoScalingPlansScalingPlanTagFilter -autoScalingPlansScalingPlanTagFilter keyarg = - AutoScalingPlansScalingPlanTagFilter - { _autoScalingPlansScalingPlanTagFilterKey = keyarg - , _autoScalingPlansScalingPlanTagFilterValues = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-tagfilter.html#cfn-autoscalingplans-scalingplan-tagfilter-key -aspsptfKey :: Lens' AutoScalingPlansScalingPlanTagFilter (Val Text) -aspsptfKey = lens _autoScalingPlansScalingPlanTagFilterKey (\s a -> s { _autoScalingPlansScalingPlanTagFilterKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-tagfilter.html#cfn-autoscalingplans-scalingplan-tagfilter-values -aspsptfValues :: Lens' AutoScalingPlansScalingPlanTagFilter (Maybe (ValList Text)) -aspsptfValues = lens _autoScalingPlansScalingPlanTagFilterValues (\s a -> s { _autoScalingPlansScalingPlanTagFilterValues = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanTargetTrackingConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanTargetTrackingConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanTargetTrackingConfiguration.hs +++ /dev/null @@ -1,84 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-targettrackingconfiguration.html - -module Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanTargetTrackingConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanCustomizedScalingMetricSpecification -import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanPredefinedScalingMetricSpecification - --- | Full data type definition for --- AutoScalingPlansScalingPlanTargetTrackingConfiguration. See --- 'autoScalingPlansScalingPlanTargetTrackingConfiguration' for a more --- convenient constructor. -data AutoScalingPlansScalingPlanTargetTrackingConfiguration = - AutoScalingPlansScalingPlanTargetTrackingConfiguration - { _autoScalingPlansScalingPlanTargetTrackingConfigurationCustomizedScalingMetricSpecification :: Maybe AutoScalingPlansScalingPlanCustomizedScalingMetricSpecification - , _autoScalingPlansScalingPlanTargetTrackingConfigurationDisableScaleIn :: Maybe (Val Bool) - , _autoScalingPlansScalingPlanTargetTrackingConfigurationEstimatedInstanceWarmup :: Maybe (Val Integer) - , _autoScalingPlansScalingPlanTargetTrackingConfigurationPredefinedScalingMetricSpecification :: Maybe AutoScalingPlansScalingPlanPredefinedScalingMetricSpecification - , _autoScalingPlansScalingPlanTargetTrackingConfigurationScaleInCooldown :: Maybe (Val Integer) - , _autoScalingPlansScalingPlanTargetTrackingConfigurationScaleOutCooldown :: Maybe (Val Integer) - , _autoScalingPlansScalingPlanTargetTrackingConfigurationTargetValue :: Val Double - } deriving (Show, Eq) - -instance ToJSON AutoScalingPlansScalingPlanTargetTrackingConfiguration where - toJSON AutoScalingPlansScalingPlanTargetTrackingConfiguration{..} = - object $ - catMaybes - [ fmap (("CustomizedScalingMetricSpecification",) . toJSON) _autoScalingPlansScalingPlanTargetTrackingConfigurationCustomizedScalingMetricSpecification - , fmap (("DisableScaleIn",) . toJSON) _autoScalingPlansScalingPlanTargetTrackingConfigurationDisableScaleIn - , fmap (("EstimatedInstanceWarmup",) . toJSON) _autoScalingPlansScalingPlanTargetTrackingConfigurationEstimatedInstanceWarmup - , fmap (("PredefinedScalingMetricSpecification",) . toJSON) _autoScalingPlansScalingPlanTargetTrackingConfigurationPredefinedScalingMetricSpecification - , fmap (("ScaleInCooldown",) . toJSON) _autoScalingPlansScalingPlanTargetTrackingConfigurationScaleInCooldown - , fmap (("ScaleOutCooldown",) . toJSON) _autoScalingPlansScalingPlanTargetTrackingConfigurationScaleOutCooldown - , (Just . ("TargetValue",) . toJSON) _autoScalingPlansScalingPlanTargetTrackingConfigurationTargetValue - ] - --- | Constructor for 'AutoScalingPlansScalingPlanTargetTrackingConfiguration' --- containing required fields as arguments. -autoScalingPlansScalingPlanTargetTrackingConfiguration - :: Val Double -- ^ 'aspspttcTargetValue' - -> AutoScalingPlansScalingPlanTargetTrackingConfiguration -autoScalingPlansScalingPlanTargetTrackingConfiguration targetValuearg = - AutoScalingPlansScalingPlanTargetTrackingConfiguration - { _autoScalingPlansScalingPlanTargetTrackingConfigurationCustomizedScalingMetricSpecification = Nothing - , _autoScalingPlansScalingPlanTargetTrackingConfigurationDisableScaleIn = Nothing - , _autoScalingPlansScalingPlanTargetTrackingConfigurationEstimatedInstanceWarmup = Nothing - , _autoScalingPlansScalingPlanTargetTrackingConfigurationPredefinedScalingMetricSpecification = Nothing - , _autoScalingPlansScalingPlanTargetTrackingConfigurationScaleInCooldown = Nothing - , _autoScalingPlansScalingPlanTargetTrackingConfigurationScaleOutCooldown = Nothing - , _autoScalingPlansScalingPlanTargetTrackingConfigurationTargetValue = targetValuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-targettrackingconfiguration.html#cfn-autoscalingplans-scalingplan-targettrackingconfiguration-customizedscalingmetricspecification -aspspttcCustomizedScalingMetricSpecification :: Lens' AutoScalingPlansScalingPlanTargetTrackingConfiguration (Maybe AutoScalingPlansScalingPlanCustomizedScalingMetricSpecification) -aspspttcCustomizedScalingMetricSpecification = lens _autoScalingPlansScalingPlanTargetTrackingConfigurationCustomizedScalingMetricSpecification (\s a -> s { _autoScalingPlansScalingPlanTargetTrackingConfigurationCustomizedScalingMetricSpecification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-targettrackingconfiguration.html#cfn-autoscalingplans-scalingplan-targettrackingconfiguration-disablescalein -aspspttcDisableScaleIn :: Lens' AutoScalingPlansScalingPlanTargetTrackingConfiguration (Maybe (Val Bool)) -aspspttcDisableScaleIn = lens _autoScalingPlansScalingPlanTargetTrackingConfigurationDisableScaleIn (\s a -> s { _autoScalingPlansScalingPlanTargetTrackingConfigurationDisableScaleIn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-targettrackingconfiguration.html#cfn-autoscalingplans-scalingplan-targettrackingconfiguration-estimatedinstancewarmup -aspspttcEstimatedInstanceWarmup :: Lens' AutoScalingPlansScalingPlanTargetTrackingConfiguration (Maybe (Val Integer)) -aspspttcEstimatedInstanceWarmup = lens _autoScalingPlansScalingPlanTargetTrackingConfigurationEstimatedInstanceWarmup (\s a -> s { _autoScalingPlansScalingPlanTargetTrackingConfigurationEstimatedInstanceWarmup = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-targettrackingconfiguration.html#cfn-autoscalingplans-scalingplan-targettrackingconfiguration-predefinedscalingmetricspecification -aspspttcPredefinedScalingMetricSpecification :: Lens' AutoScalingPlansScalingPlanTargetTrackingConfiguration (Maybe AutoScalingPlansScalingPlanPredefinedScalingMetricSpecification) -aspspttcPredefinedScalingMetricSpecification = lens _autoScalingPlansScalingPlanTargetTrackingConfigurationPredefinedScalingMetricSpecification (\s a -> s { _autoScalingPlansScalingPlanTargetTrackingConfigurationPredefinedScalingMetricSpecification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-targettrackingconfiguration.html#cfn-autoscalingplans-scalingplan-targettrackingconfiguration-scaleincooldown -aspspttcScaleInCooldown :: Lens' AutoScalingPlansScalingPlanTargetTrackingConfiguration (Maybe (Val Integer)) -aspspttcScaleInCooldown = lens _autoScalingPlansScalingPlanTargetTrackingConfigurationScaleInCooldown (\s a -> s { _autoScalingPlansScalingPlanTargetTrackingConfigurationScaleInCooldown = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-targettrackingconfiguration.html#cfn-autoscalingplans-scalingplan-targettrackingconfiguration-scaleoutcooldown -aspspttcScaleOutCooldown :: Lens' AutoScalingPlansScalingPlanTargetTrackingConfiguration (Maybe (Val Integer)) -aspspttcScaleOutCooldown = lens _autoScalingPlansScalingPlanTargetTrackingConfigurationScaleOutCooldown (\s a -> s { _autoScalingPlansScalingPlanTargetTrackingConfigurationScaleOutCooldown = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscalingplans-scalingplan-targettrackingconfiguration.html#cfn-autoscalingplans-scalingplan-targettrackingconfiguration-targetvalue -aspspttcTargetValue :: Lens' AutoScalingPlansScalingPlanTargetTrackingConfiguration (Val Double) -aspspttcTargetValue = lens _autoScalingPlansScalingPlanTargetTrackingConfigurationTargetValue (\s a -> s { _autoScalingPlansScalingPlanTargetTrackingConfigurationTargetValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AutoScalingScalingPolicyCustomizedMetricSpecification.hs b/library-gen/Stratosphere/ResourceProperties/AutoScalingScalingPolicyCustomizedMetricSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AutoScalingScalingPolicyCustomizedMetricSpecification.hs +++ /dev/null @@ -1,71 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-customizedmetricspecification.html - -module Stratosphere.ResourceProperties.AutoScalingScalingPolicyCustomizedMetricSpecification where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AutoScalingScalingPolicyMetricDimension - --- | Full data type definition for --- AutoScalingScalingPolicyCustomizedMetricSpecification. See --- 'autoScalingScalingPolicyCustomizedMetricSpecification' for a more --- convenient constructor. -data AutoScalingScalingPolicyCustomizedMetricSpecification = - AutoScalingScalingPolicyCustomizedMetricSpecification - { _autoScalingScalingPolicyCustomizedMetricSpecificationDimensions :: Maybe [AutoScalingScalingPolicyMetricDimension] - , _autoScalingScalingPolicyCustomizedMetricSpecificationMetricName :: Val Text - , _autoScalingScalingPolicyCustomizedMetricSpecificationNamespace :: Val Text - , _autoScalingScalingPolicyCustomizedMetricSpecificationStatistic :: Val Text - , _autoScalingScalingPolicyCustomizedMetricSpecificationUnit :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AutoScalingScalingPolicyCustomizedMetricSpecification where - toJSON AutoScalingScalingPolicyCustomizedMetricSpecification{..} = - object $ - catMaybes - [ fmap (("Dimensions",) . toJSON) _autoScalingScalingPolicyCustomizedMetricSpecificationDimensions - , (Just . ("MetricName",) . toJSON) _autoScalingScalingPolicyCustomizedMetricSpecificationMetricName - , (Just . ("Namespace",) . toJSON) _autoScalingScalingPolicyCustomizedMetricSpecificationNamespace - , (Just . ("Statistic",) . toJSON) _autoScalingScalingPolicyCustomizedMetricSpecificationStatistic - , fmap (("Unit",) . toJSON) _autoScalingScalingPolicyCustomizedMetricSpecificationUnit - ] - --- | Constructor for 'AutoScalingScalingPolicyCustomizedMetricSpecification' --- containing required fields as arguments. -autoScalingScalingPolicyCustomizedMetricSpecification - :: Val Text -- ^ 'asspcmsMetricName' - -> Val Text -- ^ 'asspcmsNamespace' - -> Val Text -- ^ 'asspcmsStatistic' - -> AutoScalingScalingPolicyCustomizedMetricSpecification -autoScalingScalingPolicyCustomizedMetricSpecification metricNamearg namespacearg statisticarg = - AutoScalingScalingPolicyCustomizedMetricSpecification - { _autoScalingScalingPolicyCustomizedMetricSpecificationDimensions = Nothing - , _autoScalingScalingPolicyCustomizedMetricSpecificationMetricName = metricNamearg - , _autoScalingScalingPolicyCustomizedMetricSpecificationNamespace = namespacearg - , _autoScalingScalingPolicyCustomizedMetricSpecificationStatistic = statisticarg - , _autoScalingScalingPolicyCustomizedMetricSpecificationUnit = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-customizedmetricspecification.html#cfn-autoscaling-scalingpolicy-customizedmetricspecification-dimensions -asspcmsDimensions :: Lens' AutoScalingScalingPolicyCustomizedMetricSpecification (Maybe [AutoScalingScalingPolicyMetricDimension]) -asspcmsDimensions = lens _autoScalingScalingPolicyCustomizedMetricSpecificationDimensions (\s a -> s { _autoScalingScalingPolicyCustomizedMetricSpecificationDimensions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-customizedmetricspecification.html#cfn-autoscaling-scalingpolicy-customizedmetricspecification-metricname -asspcmsMetricName :: Lens' AutoScalingScalingPolicyCustomizedMetricSpecification (Val Text) -asspcmsMetricName = lens _autoScalingScalingPolicyCustomizedMetricSpecificationMetricName (\s a -> s { _autoScalingScalingPolicyCustomizedMetricSpecificationMetricName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-customizedmetricspecification.html#cfn-autoscaling-scalingpolicy-customizedmetricspecification-namespace -asspcmsNamespace :: Lens' AutoScalingScalingPolicyCustomizedMetricSpecification (Val Text) -asspcmsNamespace = lens _autoScalingScalingPolicyCustomizedMetricSpecificationNamespace (\s a -> s { _autoScalingScalingPolicyCustomizedMetricSpecificationNamespace = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-customizedmetricspecification.html#cfn-autoscaling-scalingpolicy-customizedmetricspecification-statistic -asspcmsStatistic :: Lens' AutoScalingScalingPolicyCustomizedMetricSpecification (Val Text) -asspcmsStatistic = lens _autoScalingScalingPolicyCustomizedMetricSpecificationStatistic (\s a -> s { _autoScalingScalingPolicyCustomizedMetricSpecificationStatistic = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-customizedmetricspecification.html#cfn-autoscaling-scalingpolicy-customizedmetricspecification-unit -asspcmsUnit :: Lens' AutoScalingScalingPolicyCustomizedMetricSpecification (Maybe (Val Text)) -asspcmsUnit = lens _autoScalingScalingPolicyCustomizedMetricSpecificationUnit (\s a -> s { _autoScalingScalingPolicyCustomizedMetricSpecificationUnit = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AutoScalingScalingPolicyMetricDimension.hs b/library-gen/Stratosphere/ResourceProperties/AutoScalingScalingPolicyMetricDimension.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AutoScalingScalingPolicyMetricDimension.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-metricdimension.html - -module Stratosphere.ResourceProperties.AutoScalingScalingPolicyMetricDimension where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AutoScalingScalingPolicyMetricDimension. --- See 'autoScalingScalingPolicyMetricDimension' for a more convenient --- constructor. -data AutoScalingScalingPolicyMetricDimension = - AutoScalingScalingPolicyMetricDimension - { _autoScalingScalingPolicyMetricDimensionName :: Val Text - , _autoScalingScalingPolicyMetricDimensionValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON AutoScalingScalingPolicyMetricDimension where - toJSON AutoScalingScalingPolicyMetricDimension{..} = - object $ - catMaybes - [ (Just . ("Name",) . toJSON) _autoScalingScalingPolicyMetricDimensionName - , (Just . ("Value",) . toJSON) _autoScalingScalingPolicyMetricDimensionValue - ] - --- | Constructor for 'AutoScalingScalingPolicyMetricDimension' containing --- required fields as arguments. -autoScalingScalingPolicyMetricDimension - :: Val Text -- ^ 'asspmdName' - -> Val Text -- ^ 'asspmdValue' - -> AutoScalingScalingPolicyMetricDimension -autoScalingScalingPolicyMetricDimension namearg valuearg = - AutoScalingScalingPolicyMetricDimension - { _autoScalingScalingPolicyMetricDimensionName = namearg - , _autoScalingScalingPolicyMetricDimensionValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-metricdimension.html#cfn-autoscaling-scalingpolicy-metricdimension-name -asspmdName :: Lens' AutoScalingScalingPolicyMetricDimension (Val Text) -asspmdName = lens _autoScalingScalingPolicyMetricDimensionName (\s a -> s { _autoScalingScalingPolicyMetricDimensionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-metricdimension.html#cfn-autoscaling-scalingpolicy-metricdimension-value -asspmdValue :: Lens' AutoScalingScalingPolicyMetricDimension (Val Text) -asspmdValue = lens _autoScalingScalingPolicyMetricDimensionValue (\s a -> s { _autoScalingScalingPolicyMetricDimensionValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AutoScalingScalingPolicyPredefinedMetricSpecification.hs b/library-gen/Stratosphere/ResourceProperties/AutoScalingScalingPolicyPredefinedMetricSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AutoScalingScalingPolicyPredefinedMetricSpecification.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-predefinedmetricspecification.html - -module Stratosphere.ResourceProperties.AutoScalingScalingPolicyPredefinedMetricSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- AutoScalingScalingPolicyPredefinedMetricSpecification. See --- 'autoScalingScalingPolicyPredefinedMetricSpecification' for a more --- convenient constructor. -data AutoScalingScalingPolicyPredefinedMetricSpecification = - AutoScalingScalingPolicyPredefinedMetricSpecification - { _autoScalingScalingPolicyPredefinedMetricSpecificationPredefinedMetricType :: Val Text - , _autoScalingScalingPolicyPredefinedMetricSpecificationResourceLabel :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON AutoScalingScalingPolicyPredefinedMetricSpecification where - toJSON AutoScalingScalingPolicyPredefinedMetricSpecification{..} = - object $ - catMaybes - [ (Just . ("PredefinedMetricType",) . toJSON) _autoScalingScalingPolicyPredefinedMetricSpecificationPredefinedMetricType - , fmap (("ResourceLabel",) . toJSON) _autoScalingScalingPolicyPredefinedMetricSpecificationResourceLabel - ] - --- | Constructor for 'AutoScalingScalingPolicyPredefinedMetricSpecification' --- containing required fields as arguments. -autoScalingScalingPolicyPredefinedMetricSpecification - :: Val Text -- ^ 'assppmsPredefinedMetricType' - -> AutoScalingScalingPolicyPredefinedMetricSpecification -autoScalingScalingPolicyPredefinedMetricSpecification predefinedMetricTypearg = - AutoScalingScalingPolicyPredefinedMetricSpecification - { _autoScalingScalingPolicyPredefinedMetricSpecificationPredefinedMetricType = predefinedMetricTypearg - , _autoScalingScalingPolicyPredefinedMetricSpecificationResourceLabel = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-predefinedmetricspecification.html#cfn-autoscaling-scalingpolicy-predefinedmetricspecification-predefinedmetrictype -assppmsPredefinedMetricType :: Lens' AutoScalingScalingPolicyPredefinedMetricSpecification (Val Text) -assppmsPredefinedMetricType = lens _autoScalingScalingPolicyPredefinedMetricSpecificationPredefinedMetricType (\s a -> s { _autoScalingScalingPolicyPredefinedMetricSpecificationPredefinedMetricType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-predefinedmetricspecification.html#cfn-autoscaling-scalingpolicy-predefinedmetricspecification-resourcelabel -assppmsResourceLabel :: Lens' AutoScalingScalingPolicyPredefinedMetricSpecification (Maybe (Val Text)) -assppmsResourceLabel = lens _autoScalingScalingPolicyPredefinedMetricSpecificationResourceLabel (\s a -> s { _autoScalingScalingPolicyPredefinedMetricSpecificationResourceLabel = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AutoScalingScalingPolicyStepAdjustment.hs b/library-gen/Stratosphere/ResourceProperties/AutoScalingScalingPolicyStepAdjustment.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AutoScalingScalingPolicyStepAdjustment.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-stepadjustments.html - -module Stratosphere.ResourceProperties.AutoScalingScalingPolicyStepAdjustment where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AutoScalingScalingPolicyStepAdjustment. See --- 'autoScalingScalingPolicyStepAdjustment' for a more convenient --- constructor. -data AutoScalingScalingPolicyStepAdjustment = - AutoScalingScalingPolicyStepAdjustment - { _autoScalingScalingPolicyStepAdjustmentMetricIntervalLowerBound :: Maybe (Val Double) - , _autoScalingScalingPolicyStepAdjustmentMetricIntervalUpperBound :: Maybe (Val Double) - , _autoScalingScalingPolicyStepAdjustmentScalingAdjustment :: Val Integer - } deriving (Show, Eq) - -instance ToJSON AutoScalingScalingPolicyStepAdjustment where - toJSON AutoScalingScalingPolicyStepAdjustment{..} = - object $ - catMaybes - [ fmap (("MetricIntervalLowerBound",) . toJSON) _autoScalingScalingPolicyStepAdjustmentMetricIntervalLowerBound - , fmap (("MetricIntervalUpperBound",) . toJSON) _autoScalingScalingPolicyStepAdjustmentMetricIntervalUpperBound - , (Just . ("ScalingAdjustment",) . toJSON) _autoScalingScalingPolicyStepAdjustmentScalingAdjustment - ] - --- | Constructor for 'AutoScalingScalingPolicyStepAdjustment' containing --- required fields as arguments. -autoScalingScalingPolicyStepAdjustment - :: Val Integer -- ^ 'asspsaScalingAdjustment' - -> AutoScalingScalingPolicyStepAdjustment -autoScalingScalingPolicyStepAdjustment scalingAdjustmentarg = - AutoScalingScalingPolicyStepAdjustment - { _autoScalingScalingPolicyStepAdjustmentMetricIntervalLowerBound = Nothing - , _autoScalingScalingPolicyStepAdjustmentMetricIntervalUpperBound = Nothing - , _autoScalingScalingPolicyStepAdjustmentScalingAdjustment = scalingAdjustmentarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-stepadjustments.html#cfn-autoscaling-scalingpolicy-stepadjustment-metricintervallowerbound -asspsaMetricIntervalLowerBound :: Lens' AutoScalingScalingPolicyStepAdjustment (Maybe (Val Double)) -asspsaMetricIntervalLowerBound = lens _autoScalingScalingPolicyStepAdjustmentMetricIntervalLowerBound (\s a -> s { _autoScalingScalingPolicyStepAdjustmentMetricIntervalLowerBound = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-stepadjustments.html#cfn-autoscaling-scalingpolicy-stepadjustment-metricintervalupperbound -asspsaMetricIntervalUpperBound :: Lens' AutoScalingScalingPolicyStepAdjustment (Maybe (Val Double)) -asspsaMetricIntervalUpperBound = lens _autoScalingScalingPolicyStepAdjustmentMetricIntervalUpperBound (\s a -> s { _autoScalingScalingPolicyStepAdjustmentMetricIntervalUpperBound = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-stepadjustments.html#cfn-autoscaling-scalingpolicy-stepadjustment-scalingadjustment -asspsaScalingAdjustment :: Lens' AutoScalingScalingPolicyStepAdjustment (Val Integer) -asspsaScalingAdjustment = lens _autoScalingScalingPolicyStepAdjustmentScalingAdjustment (\s a -> s { _autoScalingScalingPolicyStepAdjustmentScalingAdjustment = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/AutoScalingScalingPolicyTargetTrackingConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/AutoScalingScalingPolicyTargetTrackingConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/AutoScalingScalingPolicyTargetTrackingConfiguration.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-targettrackingconfiguration.html - -module Stratosphere.ResourceProperties.AutoScalingScalingPolicyTargetTrackingConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AutoScalingScalingPolicyCustomizedMetricSpecification -import Stratosphere.ResourceProperties.AutoScalingScalingPolicyPredefinedMetricSpecification - --- | Full data type definition for --- AutoScalingScalingPolicyTargetTrackingConfiguration. See --- 'autoScalingScalingPolicyTargetTrackingConfiguration' for a more --- convenient constructor. -data AutoScalingScalingPolicyTargetTrackingConfiguration = - AutoScalingScalingPolicyTargetTrackingConfiguration - { _autoScalingScalingPolicyTargetTrackingConfigurationCustomizedMetricSpecification :: Maybe AutoScalingScalingPolicyCustomizedMetricSpecification - , _autoScalingScalingPolicyTargetTrackingConfigurationDisableScaleIn :: Maybe (Val Bool) - , _autoScalingScalingPolicyTargetTrackingConfigurationPredefinedMetricSpecification :: Maybe AutoScalingScalingPolicyPredefinedMetricSpecification - , _autoScalingScalingPolicyTargetTrackingConfigurationTargetValue :: Val Double - } deriving (Show, Eq) - -instance ToJSON AutoScalingScalingPolicyTargetTrackingConfiguration where - toJSON AutoScalingScalingPolicyTargetTrackingConfiguration{..} = - object $ - catMaybes - [ fmap (("CustomizedMetricSpecification",) . toJSON) _autoScalingScalingPolicyTargetTrackingConfigurationCustomizedMetricSpecification - , fmap (("DisableScaleIn",) . toJSON) _autoScalingScalingPolicyTargetTrackingConfigurationDisableScaleIn - , fmap (("PredefinedMetricSpecification",) . toJSON) _autoScalingScalingPolicyTargetTrackingConfigurationPredefinedMetricSpecification - , (Just . ("TargetValue",) . toJSON) _autoScalingScalingPolicyTargetTrackingConfigurationTargetValue - ] - --- | Constructor for 'AutoScalingScalingPolicyTargetTrackingConfiguration' --- containing required fields as arguments. -autoScalingScalingPolicyTargetTrackingConfiguration - :: Val Double -- ^ 'asspttcTargetValue' - -> AutoScalingScalingPolicyTargetTrackingConfiguration -autoScalingScalingPolicyTargetTrackingConfiguration targetValuearg = - AutoScalingScalingPolicyTargetTrackingConfiguration - { _autoScalingScalingPolicyTargetTrackingConfigurationCustomizedMetricSpecification = Nothing - , _autoScalingScalingPolicyTargetTrackingConfigurationDisableScaleIn = Nothing - , _autoScalingScalingPolicyTargetTrackingConfigurationPredefinedMetricSpecification = Nothing - , _autoScalingScalingPolicyTargetTrackingConfigurationTargetValue = targetValuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-targettrackingconfiguration.html#cfn-autoscaling-scalingpolicy-targettrackingconfiguration-customizedmetricspecification -asspttcCustomizedMetricSpecification :: Lens' AutoScalingScalingPolicyTargetTrackingConfiguration (Maybe AutoScalingScalingPolicyCustomizedMetricSpecification) -asspttcCustomizedMetricSpecification = lens _autoScalingScalingPolicyTargetTrackingConfigurationCustomizedMetricSpecification (\s a -> s { _autoScalingScalingPolicyTargetTrackingConfigurationCustomizedMetricSpecification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-targettrackingconfiguration.html#cfn-autoscaling-scalingpolicy-targettrackingconfiguration-disablescalein -asspttcDisableScaleIn :: Lens' AutoScalingScalingPolicyTargetTrackingConfiguration (Maybe (Val Bool)) -asspttcDisableScaleIn = lens _autoScalingScalingPolicyTargetTrackingConfigurationDisableScaleIn (\s a -> s { _autoScalingScalingPolicyTargetTrackingConfigurationDisableScaleIn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-targettrackingconfiguration.html#cfn-autoscaling-scalingpolicy-targettrackingconfiguration-predefinedmetricspecification -asspttcPredefinedMetricSpecification :: Lens' AutoScalingScalingPolicyTargetTrackingConfiguration (Maybe AutoScalingScalingPolicyPredefinedMetricSpecification) -asspttcPredefinedMetricSpecification = lens _autoScalingScalingPolicyTargetTrackingConfigurationPredefinedMetricSpecification (\s a -> s { _autoScalingScalingPolicyTargetTrackingConfigurationPredefinedMetricSpecification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-autoscaling-scalingpolicy-targettrackingconfiguration.html#cfn-autoscaling-scalingpolicy-targettrackingconfiguration-targetvalue -asspttcTargetValue :: Lens' AutoScalingScalingPolicyTargetTrackingConfiguration (Val Double) -asspttcTargetValue = lens _autoScalingScalingPolicyTargetTrackingConfigurationTargetValue (\s a -> s { _autoScalingScalingPolicyTargetTrackingConfigurationTargetValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BackupBackupPlanBackupPlanResourceType.hs b/library-gen/Stratosphere/ResourceProperties/BackupBackupPlanBackupPlanResourceType.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BackupBackupPlanBackupPlanResourceType.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupplan-backupplanresourcetype.html - -module Stratosphere.ResourceProperties.BackupBackupPlanBackupPlanResourceType where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.BackupBackupPlanBackupRuleResourceType - --- | Full data type definition for BackupBackupPlanBackupPlanResourceType. See --- 'backupBackupPlanBackupPlanResourceType' for a more convenient --- constructor. -data BackupBackupPlanBackupPlanResourceType = - BackupBackupPlanBackupPlanResourceType - { _backupBackupPlanBackupPlanResourceTypeBackupPlanName :: Val Text - , _backupBackupPlanBackupPlanResourceTypeBackupPlanRule :: [BackupBackupPlanBackupRuleResourceType] - } deriving (Show, Eq) - -instance ToJSON BackupBackupPlanBackupPlanResourceType where - toJSON BackupBackupPlanBackupPlanResourceType{..} = - object $ - catMaybes - [ (Just . ("BackupPlanName",) . toJSON) _backupBackupPlanBackupPlanResourceTypeBackupPlanName - , (Just . ("BackupPlanRule",) . toJSON) _backupBackupPlanBackupPlanResourceTypeBackupPlanRule - ] - --- | Constructor for 'BackupBackupPlanBackupPlanResourceType' containing --- required fields as arguments. -backupBackupPlanBackupPlanResourceType - :: Val Text -- ^ 'bbpbprtBackupPlanName' - -> [BackupBackupPlanBackupRuleResourceType] -- ^ 'bbpbprtBackupPlanRule' - -> BackupBackupPlanBackupPlanResourceType -backupBackupPlanBackupPlanResourceType backupPlanNamearg backupPlanRulearg = - BackupBackupPlanBackupPlanResourceType - { _backupBackupPlanBackupPlanResourceTypeBackupPlanName = backupPlanNamearg - , _backupBackupPlanBackupPlanResourceTypeBackupPlanRule = backupPlanRulearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupplan-backupplanresourcetype.html#cfn-backup-backupplan-backupplanresourcetype-backupplanname -bbpbprtBackupPlanName :: Lens' BackupBackupPlanBackupPlanResourceType (Val Text) -bbpbprtBackupPlanName = lens _backupBackupPlanBackupPlanResourceTypeBackupPlanName (\s a -> s { _backupBackupPlanBackupPlanResourceTypeBackupPlanName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupplan-backupplanresourcetype.html#cfn-backup-backupplan-backupplanresourcetype-backupplanrule -bbpbprtBackupPlanRule :: Lens' BackupBackupPlanBackupPlanResourceType [BackupBackupPlanBackupRuleResourceType] -bbpbprtBackupPlanRule = lens _backupBackupPlanBackupPlanResourceTypeBackupPlanRule (\s a -> s { _backupBackupPlanBackupPlanResourceTypeBackupPlanRule = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BackupBackupPlanBackupRuleResourceType.hs b/library-gen/Stratosphere/ResourceProperties/BackupBackupPlanBackupRuleResourceType.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BackupBackupPlanBackupRuleResourceType.hs +++ /dev/null @@ -1,91 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupplan-backupruleresourcetype.html - -module Stratosphere.ResourceProperties.BackupBackupPlanBackupRuleResourceType where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.BackupBackupPlanCopyActionResourceType -import Stratosphere.ResourceProperties.BackupBackupPlanLifecycleResourceType - --- | Full data type definition for BackupBackupPlanBackupRuleResourceType. See --- 'backupBackupPlanBackupRuleResourceType' for a more convenient --- constructor. -data BackupBackupPlanBackupRuleResourceType = - BackupBackupPlanBackupRuleResourceType - { _backupBackupPlanBackupRuleResourceTypeCompletionWindowMinutes :: Maybe (Val Double) - , _backupBackupPlanBackupRuleResourceTypeCopyActions :: Maybe [BackupBackupPlanCopyActionResourceType] - , _backupBackupPlanBackupRuleResourceTypeLifecycle :: Maybe BackupBackupPlanLifecycleResourceType - , _backupBackupPlanBackupRuleResourceTypeRecoveryPointTags :: Maybe Object - , _backupBackupPlanBackupRuleResourceTypeRuleName :: Val Text - , _backupBackupPlanBackupRuleResourceTypeScheduleExpression :: Maybe (Val Text) - , _backupBackupPlanBackupRuleResourceTypeStartWindowMinutes :: Maybe (Val Double) - , _backupBackupPlanBackupRuleResourceTypeTargetBackupVault :: Val Text - } deriving (Show, Eq) - -instance ToJSON BackupBackupPlanBackupRuleResourceType where - toJSON BackupBackupPlanBackupRuleResourceType{..} = - object $ - catMaybes - [ fmap (("CompletionWindowMinutes",) . toJSON) _backupBackupPlanBackupRuleResourceTypeCompletionWindowMinutes - , fmap (("CopyActions",) . toJSON) _backupBackupPlanBackupRuleResourceTypeCopyActions - , fmap (("Lifecycle",) . toJSON) _backupBackupPlanBackupRuleResourceTypeLifecycle - , fmap (("RecoveryPointTags",) . toJSON) _backupBackupPlanBackupRuleResourceTypeRecoveryPointTags - , (Just . ("RuleName",) . toJSON) _backupBackupPlanBackupRuleResourceTypeRuleName - , fmap (("ScheduleExpression",) . toJSON) _backupBackupPlanBackupRuleResourceTypeScheduleExpression - , fmap (("StartWindowMinutes",) . toJSON) _backupBackupPlanBackupRuleResourceTypeStartWindowMinutes - , (Just . ("TargetBackupVault",) . toJSON) _backupBackupPlanBackupRuleResourceTypeTargetBackupVault - ] - --- | Constructor for 'BackupBackupPlanBackupRuleResourceType' containing --- required fields as arguments. -backupBackupPlanBackupRuleResourceType - :: Val Text -- ^ 'bbpbrrtRuleName' - -> Val Text -- ^ 'bbpbrrtTargetBackupVault' - -> BackupBackupPlanBackupRuleResourceType -backupBackupPlanBackupRuleResourceType ruleNamearg targetBackupVaultarg = - BackupBackupPlanBackupRuleResourceType - { _backupBackupPlanBackupRuleResourceTypeCompletionWindowMinutes = Nothing - , _backupBackupPlanBackupRuleResourceTypeCopyActions = Nothing - , _backupBackupPlanBackupRuleResourceTypeLifecycle = Nothing - , _backupBackupPlanBackupRuleResourceTypeRecoveryPointTags = Nothing - , _backupBackupPlanBackupRuleResourceTypeRuleName = ruleNamearg - , _backupBackupPlanBackupRuleResourceTypeScheduleExpression = Nothing - , _backupBackupPlanBackupRuleResourceTypeStartWindowMinutes = Nothing - , _backupBackupPlanBackupRuleResourceTypeTargetBackupVault = targetBackupVaultarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupplan-backupruleresourcetype.html#cfn-backup-backupplan-backupruleresourcetype-completionwindowminutes -bbpbrrtCompletionWindowMinutes :: Lens' BackupBackupPlanBackupRuleResourceType (Maybe (Val Double)) -bbpbrrtCompletionWindowMinutes = lens _backupBackupPlanBackupRuleResourceTypeCompletionWindowMinutes (\s a -> s { _backupBackupPlanBackupRuleResourceTypeCompletionWindowMinutes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupplan-backupruleresourcetype.html#cfn-backup-backupplan-backupruleresourcetype-copyactions -bbpbrrtCopyActions :: Lens' BackupBackupPlanBackupRuleResourceType (Maybe [BackupBackupPlanCopyActionResourceType]) -bbpbrrtCopyActions = lens _backupBackupPlanBackupRuleResourceTypeCopyActions (\s a -> s { _backupBackupPlanBackupRuleResourceTypeCopyActions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupplan-backupruleresourcetype.html#cfn-backup-backupplan-backupruleresourcetype-lifecycle -bbpbrrtLifecycle :: Lens' BackupBackupPlanBackupRuleResourceType (Maybe BackupBackupPlanLifecycleResourceType) -bbpbrrtLifecycle = lens _backupBackupPlanBackupRuleResourceTypeLifecycle (\s a -> s { _backupBackupPlanBackupRuleResourceTypeLifecycle = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupplan-backupruleresourcetype.html#cfn-backup-backupplan-backupruleresourcetype-recoverypointtags -bbpbrrtRecoveryPointTags :: Lens' BackupBackupPlanBackupRuleResourceType (Maybe Object) -bbpbrrtRecoveryPointTags = lens _backupBackupPlanBackupRuleResourceTypeRecoveryPointTags (\s a -> s { _backupBackupPlanBackupRuleResourceTypeRecoveryPointTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupplan-backupruleresourcetype.html#cfn-backup-backupplan-backupruleresourcetype-rulename -bbpbrrtRuleName :: Lens' BackupBackupPlanBackupRuleResourceType (Val Text) -bbpbrrtRuleName = lens _backupBackupPlanBackupRuleResourceTypeRuleName (\s a -> s { _backupBackupPlanBackupRuleResourceTypeRuleName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupplan-backupruleresourcetype.html#cfn-backup-backupplan-backupruleresourcetype-scheduleexpression -bbpbrrtScheduleExpression :: Lens' BackupBackupPlanBackupRuleResourceType (Maybe (Val Text)) -bbpbrrtScheduleExpression = lens _backupBackupPlanBackupRuleResourceTypeScheduleExpression (\s a -> s { _backupBackupPlanBackupRuleResourceTypeScheduleExpression = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupplan-backupruleresourcetype.html#cfn-backup-backupplan-backupruleresourcetype-startwindowminutes -bbpbrrtStartWindowMinutes :: Lens' BackupBackupPlanBackupRuleResourceType (Maybe (Val Double)) -bbpbrrtStartWindowMinutes = lens _backupBackupPlanBackupRuleResourceTypeStartWindowMinutes (\s a -> s { _backupBackupPlanBackupRuleResourceTypeStartWindowMinutes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupplan-backupruleresourcetype.html#cfn-backup-backupplan-backupruleresourcetype-targetbackupvault -bbpbrrtTargetBackupVault :: Lens' BackupBackupPlanBackupRuleResourceType (Val Text) -bbpbrrtTargetBackupVault = lens _backupBackupPlanBackupRuleResourceTypeTargetBackupVault (\s a -> s { _backupBackupPlanBackupRuleResourceTypeTargetBackupVault = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BackupBackupPlanCopyActionResourceType.hs b/library-gen/Stratosphere/ResourceProperties/BackupBackupPlanCopyActionResourceType.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BackupBackupPlanCopyActionResourceType.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupplan-copyactionresourcetype.html - -module Stratosphere.ResourceProperties.BackupBackupPlanCopyActionResourceType where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.BackupBackupPlanLifecycleResourceType - --- | Full data type definition for BackupBackupPlanCopyActionResourceType. See --- 'backupBackupPlanCopyActionResourceType' for a more convenient --- constructor. -data BackupBackupPlanCopyActionResourceType = - BackupBackupPlanCopyActionResourceType - { _backupBackupPlanCopyActionResourceTypeDestinationBackupVaultArn :: Val Text - , _backupBackupPlanCopyActionResourceTypeLifecycle :: Maybe BackupBackupPlanLifecycleResourceType - } deriving (Show, Eq) - -instance ToJSON BackupBackupPlanCopyActionResourceType where - toJSON BackupBackupPlanCopyActionResourceType{..} = - object $ - catMaybes - [ (Just . ("DestinationBackupVaultArn",) . toJSON) _backupBackupPlanCopyActionResourceTypeDestinationBackupVaultArn - , fmap (("Lifecycle",) . toJSON) _backupBackupPlanCopyActionResourceTypeLifecycle - ] - --- | Constructor for 'BackupBackupPlanCopyActionResourceType' containing --- required fields as arguments. -backupBackupPlanCopyActionResourceType - :: Val Text -- ^ 'bbpcartDestinationBackupVaultArn' - -> BackupBackupPlanCopyActionResourceType -backupBackupPlanCopyActionResourceType destinationBackupVaultArnarg = - BackupBackupPlanCopyActionResourceType - { _backupBackupPlanCopyActionResourceTypeDestinationBackupVaultArn = destinationBackupVaultArnarg - , _backupBackupPlanCopyActionResourceTypeLifecycle = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupplan-copyactionresourcetype.html#cfn-backup-backupplan-copyactionresourcetype-destinationbackupvaultarn -bbpcartDestinationBackupVaultArn :: Lens' BackupBackupPlanCopyActionResourceType (Val Text) -bbpcartDestinationBackupVaultArn = lens _backupBackupPlanCopyActionResourceTypeDestinationBackupVaultArn (\s a -> s { _backupBackupPlanCopyActionResourceTypeDestinationBackupVaultArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupplan-copyactionresourcetype.html#cfn-backup-backupplan-copyactionresourcetype-lifecycle -bbpcartLifecycle :: Lens' BackupBackupPlanCopyActionResourceType (Maybe BackupBackupPlanLifecycleResourceType) -bbpcartLifecycle = lens _backupBackupPlanCopyActionResourceTypeLifecycle (\s a -> s { _backupBackupPlanCopyActionResourceTypeLifecycle = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BackupBackupPlanLifecycleResourceType.hs b/library-gen/Stratosphere/ResourceProperties/BackupBackupPlanLifecycleResourceType.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BackupBackupPlanLifecycleResourceType.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupplan-lifecycleresourcetype.html - -module Stratosphere.ResourceProperties.BackupBackupPlanLifecycleResourceType where - -import Stratosphere.ResourceImports - - --- | Full data type definition for BackupBackupPlanLifecycleResourceType. See --- 'backupBackupPlanLifecycleResourceType' for a more convenient --- constructor. -data BackupBackupPlanLifecycleResourceType = - BackupBackupPlanLifecycleResourceType - { _backupBackupPlanLifecycleResourceTypeDeleteAfterDays :: Maybe (Val Double) - , _backupBackupPlanLifecycleResourceTypeMoveToColdStorageAfterDays :: Maybe (Val Double) - } deriving (Show, Eq) - -instance ToJSON BackupBackupPlanLifecycleResourceType where - toJSON BackupBackupPlanLifecycleResourceType{..} = - object $ - catMaybes - [ fmap (("DeleteAfterDays",) . toJSON) _backupBackupPlanLifecycleResourceTypeDeleteAfterDays - , fmap (("MoveToColdStorageAfterDays",) . toJSON) _backupBackupPlanLifecycleResourceTypeMoveToColdStorageAfterDays - ] - --- | Constructor for 'BackupBackupPlanLifecycleResourceType' containing --- required fields as arguments. -backupBackupPlanLifecycleResourceType - :: BackupBackupPlanLifecycleResourceType -backupBackupPlanLifecycleResourceType = - BackupBackupPlanLifecycleResourceType - { _backupBackupPlanLifecycleResourceTypeDeleteAfterDays = Nothing - , _backupBackupPlanLifecycleResourceTypeMoveToColdStorageAfterDays = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupplan-lifecycleresourcetype.html#cfn-backup-backupplan-lifecycleresourcetype-deleteafterdays -bbplrtDeleteAfterDays :: Lens' BackupBackupPlanLifecycleResourceType (Maybe (Val Double)) -bbplrtDeleteAfterDays = lens _backupBackupPlanLifecycleResourceTypeDeleteAfterDays (\s a -> s { _backupBackupPlanLifecycleResourceTypeDeleteAfterDays = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupplan-lifecycleresourcetype.html#cfn-backup-backupplan-lifecycleresourcetype-movetocoldstorageafterdays -bbplrtMoveToColdStorageAfterDays :: Lens' BackupBackupPlanLifecycleResourceType (Maybe (Val Double)) -bbplrtMoveToColdStorageAfterDays = lens _backupBackupPlanLifecycleResourceTypeMoveToColdStorageAfterDays (\s a -> s { _backupBackupPlanLifecycleResourceTypeMoveToColdStorageAfterDays = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BackupBackupSelectionBackupSelectionResourceType.hs b/library-gen/Stratosphere/ResourceProperties/BackupBackupSelectionBackupSelectionResourceType.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BackupBackupSelectionBackupSelectionResourceType.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupselection-backupselectionresourcetype.html - -module Stratosphere.ResourceProperties.BackupBackupSelectionBackupSelectionResourceType where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.BackupBackupSelectionConditionResourceType - --- | Full data type definition for --- BackupBackupSelectionBackupSelectionResourceType. See --- 'backupBackupSelectionBackupSelectionResourceType' for a more convenient --- constructor. -data BackupBackupSelectionBackupSelectionResourceType = - BackupBackupSelectionBackupSelectionResourceType - { _backupBackupSelectionBackupSelectionResourceTypeIamRoleArn :: Val Text - , _backupBackupSelectionBackupSelectionResourceTypeListOfTags :: Maybe [BackupBackupSelectionConditionResourceType] - , _backupBackupSelectionBackupSelectionResourceTypeResources :: Maybe (ValList Text) - , _backupBackupSelectionBackupSelectionResourceTypeSelectionName :: Val Text - } deriving (Show, Eq) - -instance ToJSON BackupBackupSelectionBackupSelectionResourceType where - toJSON BackupBackupSelectionBackupSelectionResourceType{..} = - object $ - catMaybes - [ (Just . ("IamRoleArn",) . toJSON) _backupBackupSelectionBackupSelectionResourceTypeIamRoleArn - , fmap (("ListOfTags",) . toJSON) _backupBackupSelectionBackupSelectionResourceTypeListOfTags - , fmap (("Resources",) . toJSON) _backupBackupSelectionBackupSelectionResourceTypeResources - , (Just . ("SelectionName",) . toJSON) _backupBackupSelectionBackupSelectionResourceTypeSelectionName - ] - --- | Constructor for 'BackupBackupSelectionBackupSelectionResourceType' --- containing required fields as arguments. -backupBackupSelectionBackupSelectionResourceType - :: Val Text -- ^ 'bbsbsrtIamRoleArn' - -> Val Text -- ^ 'bbsbsrtSelectionName' - -> BackupBackupSelectionBackupSelectionResourceType -backupBackupSelectionBackupSelectionResourceType iamRoleArnarg selectionNamearg = - BackupBackupSelectionBackupSelectionResourceType - { _backupBackupSelectionBackupSelectionResourceTypeIamRoleArn = iamRoleArnarg - , _backupBackupSelectionBackupSelectionResourceTypeListOfTags = Nothing - , _backupBackupSelectionBackupSelectionResourceTypeResources = Nothing - , _backupBackupSelectionBackupSelectionResourceTypeSelectionName = selectionNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupselection-backupselectionresourcetype.html#cfn-backup-backupselection-backupselectionresourcetype-iamrolearn -bbsbsrtIamRoleArn :: Lens' BackupBackupSelectionBackupSelectionResourceType (Val Text) -bbsbsrtIamRoleArn = lens _backupBackupSelectionBackupSelectionResourceTypeIamRoleArn (\s a -> s { _backupBackupSelectionBackupSelectionResourceTypeIamRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupselection-backupselectionresourcetype.html#cfn-backup-backupselection-backupselectionresourcetype-listoftags -bbsbsrtListOfTags :: Lens' BackupBackupSelectionBackupSelectionResourceType (Maybe [BackupBackupSelectionConditionResourceType]) -bbsbsrtListOfTags = lens _backupBackupSelectionBackupSelectionResourceTypeListOfTags (\s a -> s { _backupBackupSelectionBackupSelectionResourceTypeListOfTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupselection-backupselectionresourcetype.html#cfn-backup-backupselection-backupselectionresourcetype-resources -bbsbsrtResources :: Lens' BackupBackupSelectionBackupSelectionResourceType (Maybe (ValList Text)) -bbsbsrtResources = lens _backupBackupSelectionBackupSelectionResourceTypeResources (\s a -> s { _backupBackupSelectionBackupSelectionResourceTypeResources = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupselection-backupselectionresourcetype.html#cfn-backup-backupselection-backupselectionresourcetype-selectionname -bbsbsrtSelectionName :: Lens' BackupBackupSelectionBackupSelectionResourceType (Val Text) -bbsbsrtSelectionName = lens _backupBackupSelectionBackupSelectionResourceTypeSelectionName (\s a -> s { _backupBackupSelectionBackupSelectionResourceTypeSelectionName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BackupBackupSelectionConditionResourceType.hs b/library-gen/Stratosphere/ResourceProperties/BackupBackupSelectionConditionResourceType.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BackupBackupSelectionConditionResourceType.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupselection-conditionresourcetype.html - -module Stratosphere.ResourceProperties.BackupBackupSelectionConditionResourceType where - -import Stratosphere.ResourceImports - - --- | Full data type definition for BackupBackupSelectionConditionResourceType. --- See 'backupBackupSelectionConditionResourceType' for a more convenient --- constructor. -data BackupBackupSelectionConditionResourceType = - BackupBackupSelectionConditionResourceType - { _backupBackupSelectionConditionResourceTypeConditionKey :: Val Text - , _backupBackupSelectionConditionResourceTypeConditionType :: Val Text - , _backupBackupSelectionConditionResourceTypeConditionValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON BackupBackupSelectionConditionResourceType where - toJSON BackupBackupSelectionConditionResourceType{..} = - object $ - catMaybes - [ (Just . ("ConditionKey",) . toJSON) _backupBackupSelectionConditionResourceTypeConditionKey - , (Just . ("ConditionType",) . toJSON) _backupBackupSelectionConditionResourceTypeConditionType - , (Just . ("ConditionValue",) . toJSON) _backupBackupSelectionConditionResourceTypeConditionValue - ] - --- | Constructor for 'BackupBackupSelectionConditionResourceType' containing --- required fields as arguments. -backupBackupSelectionConditionResourceType - :: Val Text -- ^ 'bbscrtConditionKey' - -> Val Text -- ^ 'bbscrtConditionType' - -> Val Text -- ^ 'bbscrtConditionValue' - -> BackupBackupSelectionConditionResourceType -backupBackupSelectionConditionResourceType conditionKeyarg conditionTypearg conditionValuearg = - BackupBackupSelectionConditionResourceType - { _backupBackupSelectionConditionResourceTypeConditionKey = conditionKeyarg - , _backupBackupSelectionConditionResourceTypeConditionType = conditionTypearg - , _backupBackupSelectionConditionResourceTypeConditionValue = conditionValuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupselection-conditionresourcetype.html#cfn-backup-backupselection-conditionresourcetype-conditionkey -bbscrtConditionKey :: Lens' BackupBackupSelectionConditionResourceType (Val Text) -bbscrtConditionKey = lens _backupBackupSelectionConditionResourceTypeConditionKey (\s a -> s { _backupBackupSelectionConditionResourceTypeConditionKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupselection-conditionresourcetype.html#cfn-backup-backupselection-conditionresourcetype-conditiontype -bbscrtConditionType :: Lens' BackupBackupSelectionConditionResourceType (Val Text) -bbscrtConditionType = lens _backupBackupSelectionConditionResourceTypeConditionType (\s a -> s { _backupBackupSelectionConditionResourceTypeConditionType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupselection-conditionresourcetype.html#cfn-backup-backupselection-conditionresourcetype-conditionvalue -bbscrtConditionValue :: Lens' BackupBackupSelectionConditionResourceType (Val Text) -bbscrtConditionValue = lens _backupBackupSelectionConditionResourceTypeConditionValue (\s a -> s { _backupBackupSelectionConditionResourceTypeConditionValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BackupBackupVaultNotificationObjectType.hs b/library-gen/Stratosphere/ResourceProperties/BackupBackupVaultNotificationObjectType.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BackupBackupVaultNotificationObjectType.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupvault-notificationobjecttype.html - -module Stratosphere.ResourceProperties.BackupBackupVaultNotificationObjectType where - -import Stratosphere.ResourceImports - - --- | Full data type definition for BackupBackupVaultNotificationObjectType. --- See 'backupBackupVaultNotificationObjectType' for a more convenient --- constructor. -data BackupBackupVaultNotificationObjectType = - BackupBackupVaultNotificationObjectType - { _backupBackupVaultNotificationObjectTypeBackupVaultEvents :: ValList Text - , _backupBackupVaultNotificationObjectTypeSNSTopicArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON BackupBackupVaultNotificationObjectType where - toJSON BackupBackupVaultNotificationObjectType{..} = - object $ - catMaybes - [ (Just . ("BackupVaultEvents",) . toJSON) _backupBackupVaultNotificationObjectTypeBackupVaultEvents - , (Just . ("SNSTopicArn",) . toJSON) _backupBackupVaultNotificationObjectTypeSNSTopicArn - ] - --- | Constructor for 'BackupBackupVaultNotificationObjectType' containing --- required fields as arguments. -backupBackupVaultNotificationObjectType - :: ValList Text -- ^ 'bbvnotBackupVaultEvents' - -> Val Text -- ^ 'bbvnotSNSTopicArn' - -> BackupBackupVaultNotificationObjectType -backupBackupVaultNotificationObjectType backupVaultEventsarg sNSTopicArnarg = - BackupBackupVaultNotificationObjectType - { _backupBackupVaultNotificationObjectTypeBackupVaultEvents = backupVaultEventsarg - , _backupBackupVaultNotificationObjectTypeSNSTopicArn = sNSTopicArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupvault-notificationobjecttype.html#cfn-backup-backupvault-notificationobjecttype-backupvaultevents -bbvnotBackupVaultEvents :: Lens' BackupBackupVaultNotificationObjectType (ValList Text) -bbvnotBackupVaultEvents = lens _backupBackupVaultNotificationObjectTypeBackupVaultEvents (\s a -> s { _backupBackupVaultNotificationObjectTypeBackupVaultEvents = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-backup-backupvault-notificationobjecttype.html#cfn-backup-backupvault-notificationobjecttype-snstopicarn -bbvnotSNSTopicArn :: Lens' BackupBackupVaultNotificationObjectType (Val Text) -bbvnotSNSTopicArn = lens _backupBackupVaultNotificationObjectTypeSNSTopicArn (\s a -> s { _backupBackupVaultNotificationObjectTypeSNSTopicArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BatchComputeEnvironmentComputeResources.hs b/library-gen/Stratosphere/ResourceProperties/BatchComputeEnvironmentComputeResources.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BatchComputeEnvironmentComputeResources.hs +++ /dev/null @@ -1,150 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-computeenvironment-computeresources.html - -module Stratosphere.ResourceProperties.BatchComputeEnvironmentComputeResources where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.BatchComputeEnvironmentLaunchTemplateSpecification - --- | Full data type definition for BatchComputeEnvironmentComputeResources. --- See 'batchComputeEnvironmentComputeResources' for a more convenient --- constructor. -data BatchComputeEnvironmentComputeResources = - BatchComputeEnvironmentComputeResources - { _batchComputeEnvironmentComputeResourcesAllocationStrategy :: Maybe (Val Text) - , _batchComputeEnvironmentComputeResourcesBidPercentage :: Maybe (Val Integer) - , _batchComputeEnvironmentComputeResourcesDesiredvCpus :: Maybe (Val Integer) - , _batchComputeEnvironmentComputeResourcesEc2KeyPair :: Maybe (Val Text) - , _batchComputeEnvironmentComputeResourcesImageId :: Maybe (Val Text) - , _batchComputeEnvironmentComputeResourcesInstanceRole :: Val Text - , _batchComputeEnvironmentComputeResourcesInstanceTypes :: ValList Text - , _batchComputeEnvironmentComputeResourcesLaunchTemplate :: Maybe BatchComputeEnvironmentLaunchTemplateSpecification - , _batchComputeEnvironmentComputeResourcesMaxvCpus :: Val Integer - , _batchComputeEnvironmentComputeResourcesMinvCpus :: Val Integer - , _batchComputeEnvironmentComputeResourcesPlacementGroup :: Maybe (Val Text) - , _batchComputeEnvironmentComputeResourcesSecurityGroupIds :: Maybe (ValList Text) - , _batchComputeEnvironmentComputeResourcesSpotIamFleetRole :: Maybe (Val Text) - , _batchComputeEnvironmentComputeResourcesSubnets :: ValList Text - , _batchComputeEnvironmentComputeResourcesTags :: Maybe Object - , _batchComputeEnvironmentComputeResourcesType :: Val Text - } deriving (Show, Eq) - -instance ToJSON BatchComputeEnvironmentComputeResources where - toJSON BatchComputeEnvironmentComputeResources{..} = - object $ - catMaybes - [ fmap (("AllocationStrategy",) . toJSON) _batchComputeEnvironmentComputeResourcesAllocationStrategy - , fmap (("BidPercentage",) . toJSON) _batchComputeEnvironmentComputeResourcesBidPercentage - , fmap (("DesiredvCpus",) . toJSON) _batchComputeEnvironmentComputeResourcesDesiredvCpus - , fmap (("Ec2KeyPair",) . toJSON) _batchComputeEnvironmentComputeResourcesEc2KeyPair - , fmap (("ImageId",) . toJSON) _batchComputeEnvironmentComputeResourcesImageId - , (Just . ("InstanceRole",) . toJSON) _batchComputeEnvironmentComputeResourcesInstanceRole - , (Just . ("InstanceTypes",) . toJSON) _batchComputeEnvironmentComputeResourcesInstanceTypes - , fmap (("LaunchTemplate",) . toJSON) _batchComputeEnvironmentComputeResourcesLaunchTemplate - , (Just . ("MaxvCpus",) . toJSON) _batchComputeEnvironmentComputeResourcesMaxvCpus - , (Just . ("MinvCpus",) . toJSON) _batchComputeEnvironmentComputeResourcesMinvCpus - , fmap (("PlacementGroup",) . toJSON) _batchComputeEnvironmentComputeResourcesPlacementGroup - , fmap (("SecurityGroupIds",) . toJSON) _batchComputeEnvironmentComputeResourcesSecurityGroupIds - , fmap (("SpotIamFleetRole",) . toJSON) _batchComputeEnvironmentComputeResourcesSpotIamFleetRole - , (Just . ("Subnets",) . toJSON) _batchComputeEnvironmentComputeResourcesSubnets - , fmap (("Tags",) . toJSON) _batchComputeEnvironmentComputeResourcesTags - , (Just . ("Type",) . toJSON) _batchComputeEnvironmentComputeResourcesType - ] - --- | Constructor for 'BatchComputeEnvironmentComputeResources' containing --- required fields as arguments. -batchComputeEnvironmentComputeResources - :: Val Text -- ^ 'bcecrInstanceRole' - -> ValList Text -- ^ 'bcecrInstanceTypes' - -> Val Integer -- ^ 'bcecrMaxvCpus' - -> Val Integer -- ^ 'bcecrMinvCpus' - -> ValList Text -- ^ 'bcecrSubnets' - -> Val Text -- ^ 'bcecrType' - -> BatchComputeEnvironmentComputeResources -batchComputeEnvironmentComputeResources instanceRolearg instanceTypesarg maxvCpusarg minvCpusarg subnetsarg typearg = - BatchComputeEnvironmentComputeResources - { _batchComputeEnvironmentComputeResourcesAllocationStrategy = Nothing - , _batchComputeEnvironmentComputeResourcesBidPercentage = Nothing - , _batchComputeEnvironmentComputeResourcesDesiredvCpus = Nothing - , _batchComputeEnvironmentComputeResourcesEc2KeyPair = Nothing - , _batchComputeEnvironmentComputeResourcesImageId = Nothing - , _batchComputeEnvironmentComputeResourcesInstanceRole = instanceRolearg - , _batchComputeEnvironmentComputeResourcesInstanceTypes = instanceTypesarg - , _batchComputeEnvironmentComputeResourcesLaunchTemplate = Nothing - , _batchComputeEnvironmentComputeResourcesMaxvCpus = maxvCpusarg - , _batchComputeEnvironmentComputeResourcesMinvCpus = minvCpusarg - , _batchComputeEnvironmentComputeResourcesPlacementGroup = Nothing - , _batchComputeEnvironmentComputeResourcesSecurityGroupIds = Nothing - , _batchComputeEnvironmentComputeResourcesSpotIamFleetRole = Nothing - , _batchComputeEnvironmentComputeResourcesSubnets = subnetsarg - , _batchComputeEnvironmentComputeResourcesTags = Nothing - , _batchComputeEnvironmentComputeResourcesType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-computeenvironment-computeresources.html#cfn-batch-computeenvironment-computeresources-allocationstrategy -bcecrAllocationStrategy :: Lens' BatchComputeEnvironmentComputeResources (Maybe (Val Text)) -bcecrAllocationStrategy = lens _batchComputeEnvironmentComputeResourcesAllocationStrategy (\s a -> s { _batchComputeEnvironmentComputeResourcesAllocationStrategy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-computeenvironment-computeresources.html#cfn-batch-computeenvironment-computeresources-bidpercentage -bcecrBidPercentage :: Lens' BatchComputeEnvironmentComputeResources (Maybe (Val Integer)) -bcecrBidPercentage = lens _batchComputeEnvironmentComputeResourcesBidPercentage (\s a -> s { _batchComputeEnvironmentComputeResourcesBidPercentage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-computeenvironment-computeresources.html#cfn-batch-computeenvironment-computeresources-desiredvcpus -bcecrDesiredvCpus :: Lens' BatchComputeEnvironmentComputeResources (Maybe (Val Integer)) -bcecrDesiredvCpus = lens _batchComputeEnvironmentComputeResourcesDesiredvCpus (\s a -> s { _batchComputeEnvironmentComputeResourcesDesiredvCpus = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-computeenvironment-computeresources.html#cfn-batch-computeenvironment-computeresources-ec2keypair -bcecrEc2KeyPair :: Lens' BatchComputeEnvironmentComputeResources (Maybe (Val Text)) -bcecrEc2KeyPair = lens _batchComputeEnvironmentComputeResourcesEc2KeyPair (\s a -> s { _batchComputeEnvironmentComputeResourcesEc2KeyPair = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-computeenvironment-computeresources.html#cfn-batch-computeenvironment-computeresources-imageid -bcecrImageId :: Lens' BatchComputeEnvironmentComputeResources (Maybe (Val Text)) -bcecrImageId = lens _batchComputeEnvironmentComputeResourcesImageId (\s a -> s { _batchComputeEnvironmentComputeResourcesImageId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-computeenvironment-computeresources.html#cfn-batch-computeenvironment-computeresources-instancerole -bcecrInstanceRole :: Lens' BatchComputeEnvironmentComputeResources (Val Text) -bcecrInstanceRole = lens _batchComputeEnvironmentComputeResourcesInstanceRole (\s a -> s { _batchComputeEnvironmentComputeResourcesInstanceRole = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-computeenvironment-computeresources.html#cfn-batch-computeenvironment-computeresources-instancetypes -bcecrInstanceTypes :: Lens' BatchComputeEnvironmentComputeResources (ValList Text) -bcecrInstanceTypes = lens _batchComputeEnvironmentComputeResourcesInstanceTypes (\s a -> s { _batchComputeEnvironmentComputeResourcesInstanceTypes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-computeenvironment-computeresources.html#cfn-batch-computeenvironment-computeresources-launchtemplate -bcecrLaunchTemplate :: Lens' BatchComputeEnvironmentComputeResources (Maybe BatchComputeEnvironmentLaunchTemplateSpecification) -bcecrLaunchTemplate = lens _batchComputeEnvironmentComputeResourcesLaunchTemplate (\s a -> s { _batchComputeEnvironmentComputeResourcesLaunchTemplate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-computeenvironment-computeresources.html#cfn-batch-computeenvironment-computeresources-maxvcpus -bcecrMaxvCpus :: Lens' BatchComputeEnvironmentComputeResources (Val Integer) -bcecrMaxvCpus = lens _batchComputeEnvironmentComputeResourcesMaxvCpus (\s a -> s { _batchComputeEnvironmentComputeResourcesMaxvCpus = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-computeenvironment-computeresources.html#cfn-batch-computeenvironment-computeresources-minvcpus -bcecrMinvCpus :: Lens' BatchComputeEnvironmentComputeResources (Val Integer) -bcecrMinvCpus = lens _batchComputeEnvironmentComputeResourcesMinvCpus (\s a -> s { _batchComputeEnvironmentComputeResourcesMinvCpus = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-computeenvironment-computeresources.html#cfn-batch-computeenvironment-computeresources-placementgroup -bcecrPlacementGroup :: Lens' BatchComputeEnvironmentComputeResources (Maybe (Val Text)) -bcecrPlacementGroup = lens _batchComputeEnvironmentComputeResourcesPlacementGroup (\s a -> s { _batchComputeEnvironmentComputeResourcesPlacementGroup = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-computeenvironment-computeresources.html#cfn-batch-computeenvironment-computeresources-securitygroupids -bcecrSecurityGroupIds :: Lens' BatchComputeEnvironmentComputeResources (Maybe (ValList Text)) -bcecrSecurityGroupIds = lens _batchComputeEnvironmentComputeResourcesSecurityGroupIds (\s a -> s { _batchComputeEnvironmentComputeResourcesSecurityGroupIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-computeenvironment-computeresources.html#cfn-batch-computeenvironment-computeresources-spotiamfleetrole -bcecrSpotIamFleetRole :: Lens' BatchComputeEnvironmentComputeResources (Maybe (Val Text)) -bcecrSpotIamFleetRole = lens _batchComputeEnvironmentComputeResourcesSpotIamFleetRole (\s a -> s { _batchComputeEnvironmentComputeResourcesSpotIamFleetRole = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-computeenvironment-computeresources.html#cfn-batch-computeenvironment-computeresources-subnets -bcecrSubnets :: Lens' BatchComputeEnvironmentComputeResources (ValList Text) -bcecrSubnets = lens _batchComputeEnvironmentComputeResourcesSubnets (\s a -> s { _batchComputeEnvironmentComputeResourcesSubnets = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-computeenvironment-computeresources.html#cfn-batch-computeenvironment-computeresources-tags -bcecrTags :: Lens' BatchComputeEnvironmentComputeResources (Maybe Object) -bcecrTags = lens _batchComputeEnvironmentComputeResourcesTags (\s a -> s { _batchComputeEnvironmentComputeResourcesTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-computeenvironment-computeresources.html#cfn-batch-computeenvironment-computeresources-type -bcecrType :: Lens' BatchComputeEnvironmentComputeResources (Val Text) -bcecrType = lens _batchComputeEnvironmentComputeResourcesType (\s a -> s { _batchComputeEnvironmentComputeResourcesType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BatchComputeEnvironmentLaunchTemplateSpecification.hs b/library-gen/Stratosphere/ResourceProperties/BatchComputeEnvironmentLaunchTemplateSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BatchComputeEnvironmentLaunchTemplateSpecification.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-computeenvironment-launchtemplatespecification.html - -module Stratosphere.ResourceProperties.BatchComputeEnvironmentLaunchTemplateSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- BatchComputeEnvironmentLaunchTemplateSpecification. See --- 'batchComputeEnvironmentLaunchTemplateSpecification' for a more --- convenient constructor. -data BatchComputeEnvironmentLaunchTemplateSpecification = - BatchComputeEnvironmentLaunchTemplateSpecification - { _batchComputeEnvironmentLaunchTemplateSpecificationLaunchTemplateId :: Maybe (Val Text) - , _batchComputeEnvironmentLaunchTemplateSpecificationLaunchTemplateName :: Maybe (Val Text) - , _batchComputeEnvironmentLaunchTemplateSpecificationVersion :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON BatchComputeEnvironmentLaunchTemplateSpecification where - toJSON BatchComputeEnvironmentLaunchTemplateSpecification{..} = - object $ - catMaybes - [ fmap (("LaunchTemplateId",) . toJSON) _batchComputeEnvironmentLaunchTemplateSpecificationLaunchTemplateId - , fmap (("LaunchTemplateName",) . toJSON) _batchComputeEnvironmentLaunchTemplateSpecificationLaunchTemplateName - , fmap (("Version",) . toJSON) _batchComputeEnvironmentLaunchTemplateSpecificationVersion - ] - --- | Constructor for 'BatchComputeEnvironmentLaunchTemplateSpecification' --- containing required fields as arguments. -batchComputeEnvironmentLaunchTemplateSpecification - :: BatchComputeEnvironmentLaunchTemplateSpecification -batchComputeEnvironmentLaunchTemplateSpecification = - BatchComputeEnvironmentLaunchTemplateSpecification - { _batchComputeEnvironmentLaunchTemplateSpecificationLaunchTemplateId = Nothing - , _batchComputeEnvironmentLaunchTemplateSpecificationLaunchTemplateName = Nothing - , _batchComputeEnvironmentLaunchTemplateSpecificationVersion = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-computeenvironment-launchtemplatespecification.html#cfn-batch-computeenvironment-launchtemplatespecification-launchtemplateid -bceltsLaunchTemplateId :: Lens' BatchComputeEnvironmentLaunchTemplateSpecification (Maybe (Val Text)) -bceltsLaunchTemplateId = lens _batchComputeEnvironmentLaunchTemplateSpecificationLaunchTemplateId (\s a -> s { _batchComputeEnvironmentLaunchTemplateSpecificationLaunchTemplateId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-computeenvironment-launchtemplatespecification.html#cfn-batch-computeenvironment-launchtemplatespecification-launchtemplatename -bceltsLaunchTemplateName :: Lens' BatchComputeEnvironmentLaunchTemplateSpecification (Maybe (Val Text)) -bceltsLaunchTemplateName = lens _batchComputeEnvironmentLaunchTemplateSpecificationLaunchTemplateName (\s a -> s { _batchComputeEnvironmentLaunchTemplateSpecificationLaunchTemplateName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-computeenvironment-launchtemplatespecification.html#cfn-batch-computeenvironment-launchtemplatespecification-version -bceltsVersion :: Lens' BatchComputeEnvironmentLaunchTemplateSpecification (Maybe (Val Text)) -bceltsVersion = lens _batchComputeEnvironmentLaunchTemplateSpecificationVersion (\s a -> s { _batchComputeEnvironmentLaunchTemplateSpecificationVersion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionContainerProperties.hs b/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionContainerProperties.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionContainerProperties.hs +++ /dev/null @@ -1,143 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-containerproperties.html - -module Stratosphere.ResourceProperties.BatchJobDefinitionContainerProperties where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.BatchJobDefinitionEnvironment -import Stratosphere.ResourceProperties.BatchJobDefinitionLinuxParameters -import Stratosphere.ResourceProperties.BatchJobDefinitionMountPoints -import Stratosphere.ResourceProperties.BatchJobDefinitionResourceRequirement -import Stratosphere.ResourceProperties.BatchJobDefinitionUlimit -import Stratosphere.ResourceProperties.BatchJobDefinitionVolumes - --- | Full data type definition for BatchJobDefinitionContainerProperties. See --- 'batchJobDefinitionContainerProperties' for a more convenient --- constructor. -data BatchJobDefinitionContainerProperties = - BatchJobDefinitionContainerProperties - { _batchJobDefinitionContainerPropertiesCommand :: Maybe (ValList Text) - , _batchJobDefinitionContainerPropertiesEnvironment :: Maybe [BatchJobDefinitionEnvironment] - , _batchJobDefinitionContainerPropertiesImage :: Val Text - , _batchJobDefinitionContainerPropertiesInstanceType :: Maybe (Val Text) - , _batchJobDefinitionContainerPropertiesJobRoleArn :: Maybe (Val Text) - , _batchJobDefinitionContainerPropertiesLinuxParameters :: Maybe BatchJobDefinitionLinuxParameters - , _batchJobDefinitionContainerPropertiesMemory :: Maybe (Val Integer) - , _batchJobDefinitionContainerPropertiesMountPoints :: Maybe [BatchJobDefinitionMountPoints] - , _batchJobDefinitionContainerPropertiesPrivileged :: Maybe (Val Bool) - , _batchJobDefinitionContainerPropertiesReadonlyRootFilesystem :: Maybe (Val Bool) - , _batchJobDefinitionContainerPropertiesResourceRequirements :: Maybe [BatchJobDefinitionResourceRequirement] - , _batchJobDefinitionContainerPropertiesUlimits :: Maybe [BatchJobDefinitionUlimit] - , _batchJobDefinitionContainerPropertiesUser :: Maybe (Val Text) - , _batchJobDefinitionContainerPropertiesVcpus :: Maybe (Val Integer) - , _batchJobDefinitionContainerPropertiesVolumes :: Maybe [BatchJobDefinitionVolumes] - } deriving (Show, Eq) - -instance ToJSON BatchJobDefinitionContainerProperties where - toJSON BatchJobDefinitionContainerProperties{..} = - object $ - catMaybes - [ fmap (("Command",) . toJSON) _batchJobDefinitionContainerPropertiesCommand - , fmap (("Environment",) . toJSON) _batchJobDefinitionContainerPropertiesEnvironment - , (Just . ("Image",) . toJSON) _batchJobDefinitionContainerPropertiesImage - , fmap (("InstanceType",) . toJSON) _batchJobDefinitionContainerPropertiesInstanceType - , fmap (("JobRoleArn",) . toJSON) _batchJobDefinitionContainerPropertiesJobRoleArn - , fmap (("LinuxParameters",) . toJSON) _batchJobDefinitionContainerPropertiesLinuxParameters - , fmap (("Memory",) . toJSON) _batchJobDefinitionContainerPropertiesMemory - , fmap (("MountPoints",) . toJSON) _batchJobDefinitionContainerPropertiesMountPoints - , fmap (("Privileged",) . toJSON) _batchJobDefinitionContainerPropertiesPrivileged - , fmap (("ReadonlyRootFilesystem",) . toJSON) _batchJobDefinitionContainerPropertiesReadonlyRootFilesystem - , fmap (("ResourceRequirements",) . toJSON) _batchJobDefinitionContainerPropertiesResourceRequirements - , fmap (("Ulimits",) . toJSON) _batchJobDefinitionContainerPropertiesUlimits - , fmap (("User",) . toJSON) _batchJobDefinitionContainerPropertiesUser - , fmap (("Vcpus",) . toJSON) _batchJobDefinitionContainerPropertiesVcpus - , fmap (("Volumes",) . toJSON) _batchJobDefinitionContainerPropertiesVolumes - ] - --- | Constructor for 'BatchJobDefinitionContainerProperties' containing --- required fields as arguments. -batchJobDefinitionContainerProperties - :: Val Text -- ^ 'bjdcpImage' - -> BatchJobDefinitionContainerProperties -batchJobDefinitionContainerProperties imagearg = - BatchJobDefinitionContainerProperties - { _batchJobDefinitionContainerPropertiesCommand = Nothing - , _batchJobDefinitionContainerPropertiesEnvironment = Nothing - , _batchJobDefinitionContainerPropertiesImage = imagearg - , _batchJobDefinitionContainerPropertiesInstanceType = Nothing - , _batchJobDefinitionContainerPropertiesJobRoleArn = Nothing - , _batchJobDefinitionContainerPropertiesLinuxParameters = Nothing - , _batchJobDefinitionContainerPropertiesMemory = Nothing - , _batchJobDefinitionContainerPropertiesMountPoints = Nothing - , _batchJobDefinitionContainerPropertiesPrivileged = Nothing - , _batchJobDefinitionContainerPropertiesReadonlyRootFilesystem = Nothing - , _batchJobDefinitionContainerPropertiesResourceRequirements = Nothing - , _batchJobDefinitionContainerPropertiesUlimits = Nothing - , _batchJobDefinitionContainerPropertiesUser = Nothing - , _batchJobDefinitionContainerPropertiesVcpus = Nothing - , _batchJobDefinitionContainerPropertiesVolumes = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-containerproperties.html#cfn-batch-jobdefinition-containerproperties-command -bjdcpCommand :: Lens' BatchJobDefinitionContainerProperties (Maybe (ValList Text)) -bjdcpCommand = lens _batchJobDefinitionContainerPropertiesCommand (\s a -> s { _batchJobDefinitionContainerPropertiesCommand = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-containerproperties.html#cfn-batch-jobdefinition-containerproperties-environment -bjdcpEnvironment :: Lens' BatchJobDefinitionContainerProperties (Maybe [BatchJobDefinitionEnvironment]) -bjdcpEnvironment = lens _batchJobDefinitionContainerPropertiesEnvironment (\s a -> s { _batchJobDefinitionContainerPropertiesEnvironment = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-containerproperties.html#cfn-batch-jobdefinition-containerproperties-image -bjdcpImage :: Lens' BatchJobDefinitionContainerProperties (Val Text) -bjdcpImage = lens _batchJobDefinitionContainerPropertiesImage (\s a -> s { _batchJobDefinitionContainerPropertiesImage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-containerproperties.html#cfn-batch-jobdefinition-containerproperties-instancetype -bjdcpInstanceType :: Lens' BatchJobDefinitionContainerProperties (Maybe (Val Text)) -bjdcpInstanceType = lens _batchJobDefinitionContainerPropertiesInstanceType (\s a -> s { _batchJobDefinitionContainerPropertiesInstanceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-containerproperties.html#cfn-batch-jobdefinition-containerproperties-jobrolearn -bjdcpJobRoleArn :: Lens' BatchJobDefinitionContainerProperties (Maybe (Val Text)) -bjdcpJobRoleArn = lens _batchJobDefinitionContainerPropertiesJobRoleArn (\s a -> s { _batchJobDefinitionContainerPropertiesJobRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-containerproperties.html#cfn-batch-jobdefinition-containerproperties-linuxparameters -bjdcpLinuxParameters :: Lens' BatchJobDefinitionContainerProperties (Maybe BatchJobDefinitionLinuxParameters) -bjdcpLinuxParameters = lens _batchJobDefinitionContainerPropertiesLinuxParameters (\s a -> s { _batchJobDefinitionContainerPropertiesLinuxParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-containerproperties.html#cfn-batch-jobdefinition-containerproperties-memory -bjdcpMemory :: Lens' BatchJobDefinitionContainerProperties (Maybe (Val Integer)) -bjdcpMemory = lens _batchJobDefinitionContainerPropertiesMemory (\s a -> s { _batchJobDefinitionContainerPropertiesMemory = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-containerproperties.html#cfn-batch-jobdefinition-containerproperties-mountpoints -bjdcpMountPoints :: Lens' BatchJobDefinitionContainerProperties (Maybe [BatchJobDefinitionMountPoints]) -bjdcpMountPoints = lens _batchJobDefinitionContainerPropertiesMountPoints (\s a -> s { _batchJobDefinitionContainerPropertiesMountPoints = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-containerproperties.html#cfn-batch-jobdefinition-containerproperties-privileged -bjdcpPrivileged :: Lens' BatchJobDefinitionContainerProperties (Maybe (Val Bool)) -bjdcpPrivileged = lens _batchJobDefinitionContainerPropertiesPrivileged (\s a -> s { _batchJobDefinitionContainerPropertiesPrivileged = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-containerproperties.html#cfn-batch-jobdefinition-containerproperties-readonlyrootfilesystem -bjdcpReadonlyRootFilesystem :: Lens' BatchJobDefinitionContainerProperties (Maybe (Val Bool)) -bjdcpReadonlyRootFilesystem = lens _batchJobDefinitionContainerPropertiesReadonlyRootFilesystem (\s a -> s { _batchJobDefinitionContainerPropertiesReadonlyRootFilesystem = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-containerproperties.html#cfn-batch-jobdefinition-containerproperties-resourcerequirements -bjdcpResourceRequirements :: Lens' BatchJobDefinitionContainerProperties (Maybe [BatchJobDefinitionResourceRequirement]) -bjdcpResourceRequirements = lens _batchJobDefinitionContainerPropertiesResourceRequirements (\s a -> s { _batchJobDefinitionContainerPropertiesResourceRequirements = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-containerproperties.html#cfn-batch-jobdefinition-containerproperties-ulimits -bjdcpUlimits :: Lens' BatchJobDefinitionContainerProperties (Maybe [BatchJobDefinitionUlimit]) -bjdcpUlimits = lens _batchJobDefinitionContainerPropertiesUlimits (\s a -> s { _batchJobDefinitionContainerPropertiesUlimits = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-containerproperties.html#cfn-batch-jobdefinition-containerproperties-user -bjdcpUser :: Lens' BatchJobDefinitionContainerProperties (Maybe (Val Text)) -bjdcpUser = lens _batchJobDefinitionContainerPropertiesUser (\s a -> s { _batchJobDefinitionContainerPropertiesUser = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-containerproperties.html#cfn-batch-jobdefinition-containerproperties-vcpus -bjdcpVcpus :: Lens' BatchJobDefinitionContainerProperties (Maybe (Val Integer)) -bjdcpVcpus = lens _batchJobDefinitionContainerPropertiesVcpus (\s a -> s { _batchJobDefinitionContainerPropertiesVcpus = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-containerproperties.html#cfn-batch-jobdefinition-containerproperties-volumes -bjdcpVolumes :: Lens' BatchJobDefinitionContainerProperties (Maybe [BatchJobDefinitionVolumes]) -bjdcpVolumes = lens _batchJobDefinitionContainerPropertiesVolumes (\s a -> s { _batchJobDefinitionContainerPropertiesVolumes = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionDevice.hs b/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionDevice.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionDevice.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-device.html - -module Stratosphere.ResourceProperties.BatchJobDefinitionDevice where - -import Stratosphere.ResourceImports - - --- | Full data type definition for BatchJobDefinitionDevice. See --- 'batchJobDefinitionDevice' for a more convenient constructor. -data BatchJobDefinitionDevice = - BatchJobDefinitionDevice - { _batchJobDefinitionDeviceContainerPath :: Maybe (Val Text) - , _batchJobDefinitionDeviceHostPath :: Maybe (Val Text) - , _batchJobDefinitionDevicePermissions :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON BatchJobDefinitionDevice where - toJSON BatchJobDefinitionDevice{..} = - object $ - catMaybes - [ fmap (("ContainerPath",) . toJSON) _batchJobDefinitionDeviceContainerPath - , fmap (("HostPath",) . toJSON) _batchJobDefinitionDeviceHostPath - , fmap (("Permissions",) . toJSON) _batchJobDefinitionDevicePermissions - ] - --- | Constructor for 'BatchJobDefinitionDevice' containing required fields as --- arguments. -batchJobDefinitionDevice - :: BatchJobDefinitionDevice -batchJobDefinitionDevice = - BatchJobDefinitionDevice - { _batchJobDefinitionDeviceContainerPath = Nothing - , _batchJobDefinitionDeviceHostPath = Nothing - , _batchJobDefinitionDevicePermissions = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-device.html#cfn-batch-jobdefinition-device-containerpath -bjddContainerPath :: Lens' BatchJobDefinitionDevice (Maybe (Val Text)) -bjddContainerPath = lens _batchJobDefinitionDeviceContainerPath (\s a -> s { _batchJobDefinitionDeviceContainerPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-device.html#cfn-batch-jobdefinition-device-hostpath -bjddHostPath :: Lens' BatchJobDefinitionDevice (Maybe (Val Text)) -bjddHostPath = lens _batchJobDefinitionDeviceHostPath (\s a -> s { _batchJobDefinitionDeviceHostPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-device.html#cfn-batch-jobdefinition-device-permissions -bjddPermissions :: Lens' BatchJobDefinitionDevice (Maybe (ValList Text)) -bjddPermissions = lens _batchJobDefinitionDevicePermissions (\s a -> s { _batchJobDefinitionDevicePermissions = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionEnvironment.hs b/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionEnvironment.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionEnvironment.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-environment.html - -module Stratosphere.ResourceProperties.BatchJobDefinitionEnvironment where - -import Stratosphere.ResourceImports - - --- | Full data type definition for BatchJobDefinitionEnvironment. See --- 'batchJobDefinitionEnvironment' for a more convenient constructor. -data BatchJobDefinitionEnvironment = - BatchJobDefinitionEnvironment - { _batchJobDefinitionEnvironmentName :: Maybe (Val Text) - , _batchJobDefinitionEnvironmentValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON BatchJobDefinitionEnvironment where - toJSON BatchJobDefinitionEnvironment{..} = - object $ - catMaybes - [ fmap (("Name",) . toJSON) _batchJobDefinitionEnvironmentName - , fmap (("Value",) . toJSON) _batchJobDefinitionEnvironmentValue - ] - --- | Constructor for 'BatchJobDefinitionEnvironment' containing required --- fields as arguments. -batchJobDefinitionEnvironment - :: BatchJobDefinitionEnvironment -batchJobDefinitionEnvironment = - BatchJobDefinitionEnvironment - { _batchJobDefinitionEnvironmentName = Nothing - , _batchJobDefinitionEnvironmentValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-environment.html#cfn-batch-jobdefinition-environment-name -bjdeName :: Lens' BatchJobDefinitionEnvironment (Maybe (Val Text)) -bjdeName = lens _batchJobDefinitionEnvironmentName (\s a -> s { _batchJobDefinitionEnvironmentName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-environment.html#cfn-batch-jobdefinition-environment-value -bjdeValue :: Lens' BatchJobDefinitionEnvironment (Maybe (Val Text)) -bjdeValue = lens _batchJobDefinitionEnvironmentValue (\s a -> s { _batchJobDefinitionEnvironmentValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionLinuxParameters.hs b/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionLinuxParameters.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionLinuxParameters.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-containerproperties-linuxparameters.html - -module Stratosphere.ResourceProperties.BatchJobDefinitionLinuxParameters where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.BatchJobDefinitionDevice - --- | Full data type definition for BatchJobDefinitionLinuxParameters. See --- 'batchJobDefinitionLinuxParameters' for a more convenient constructor. -data BatchJobDefinitionLinuxParameters = - BatchJobDefinitionLinuxParameters - { _batchJobDefinitionLinuxParametersDevices :: Maybe [BatchJobDefinitionDevice] - } deriving (Show, Eq) - -instance ToJSON BatchJobDefinitionLinuxParameters where - toJSON BatchJobDefinitionLinuxParameters{..} = - object $ - catMaybes - [ fmap (("Devices",) . toJSON) _batchJobDefinitionLinuxParametersDevices - ] - --- | Constructor for 'BatchJobDefinitionLinuxParameters' containing required --- fields as arguments. -batchJobDefinitionLinuxParameters - :: BatchJobDefinitionLinuxParameters -batchJobDefinitionLinuxParameters = - BatchJobDefinitionLinuxParameters - { _batchJobDefinitionLinuxParametersDevices = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-containerproperties-linuxparameters.html#cfn-batch-jobdefinition-containerproperties-linuxparameters-devices -bjdlpDevices :: Lens' BatchJobDefinitionLinuxParameters (Maybe [BatchJobDefinitionDevice]) -bjdlpDevices = lens _batchJobDefinitionLinuxParametersDevices (\s a -> s { _batchJobDefinitionLinuxParametersDevices = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionMountPoints.hs b/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionMountPoints.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionMountPoints.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-mountpoints.html - -module Stratosphere.ResourceProperties.BatchJobDefinitionMountPoints where - -import Stratosphere.ResourceImports - - --- | Full data type definition for BatchJobDefinitionMountPoints. See --- 'batchJobDefinitionMountPoints' for a more convenient constructor. -data BatchJobDefinitionMountPoints = - BatchJobDefinitionMountPoints - { _batchJobDefinitionMountPointsContainerPath :: Maybe (Val Text) - , _batchJobDefinitionMountPointsReadOnly :: Maybe (Val Bool) - , _batchJobDefinitionMountPointsSourceVolume :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON BatchJobDefinitionMountPoints where - toJSON BatchJobDefinitionMountPoints{..} = - object $ - catMaybes - [ fmap (("ContainerPath",) . toJSON) _batchJobDefinitionMountPointsContainerPath - , fmap (("ReadOnly",) . toJSON) _batchJobDefinitionMountPointsReadOnly - , fmap (("SourceVolume",) . toJSON) _batchJobDefinitionMountPointsSourceVolume - ] - --- | Constructor for 'BatchJobDefinitionMountPoints' containing required --- fields as arguments. -batchJobDefinitionMountPoints - :: BatchJobDefinitionMountPoints -batchJobDefinitionMountPoints = - BatchJobDefinitionMountPoints - { _batchJobDefinitionMountPointsContainerPath = Nothing - , _batchJobDefinitionMountPointsReadOnly = Nothing - , _batchJobDefinitionMountPointsSourceVolume = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-mountpoints.html#cfn-batch-jobdefinition-mountpoints-containerpath -bjdmpContainerPath :: Lens' BatchJobDefinitionMountPoints (Maybe (Val Text)) -bjdmpContainerPath = lens _batchJobDefinitionMountPointsContainerPath (\s a -> s { _batchJobDefinitionMountPointsContainerPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-mountpoints.html#cfn-batch-jobdefinition-mountpoints-readonly -bjdmpReadOnly :: Lens' BatchJobDefinitionMountPoints (Maybe (Val Bool)) -bjdmpReadOnly = lens _batchJobDefinitionMountPointsReadOnly (\s a -> s { _batchJobDefinitionMountPointsReadOnly = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-mountpoints.html#cfn-batch-jobdefinition-mountpoints-sourcevolume -bjdmpSourceVolume :: Lens' BatchJobDefinitionMountPoints (Maybe (Val Text)) -bjdmpSourceVolume = lens _batchJobDefinitionMountPointsSourceVolume (\s a -> s { _batchJobDefinitionMountPointsSourceVolume = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionNodeProperties.hs b/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionNodeProperties.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionNodeProperties.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-nodeproperties.html - -module Stratosphere.ResourceProperties.BatchJobDefinitionNodeProperties where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.BatchJobDefinitionNodeRangeProperty - --- | Full data type definition for BatchJobDefinitionNodeProperties. See --- 'batchJobDefinitionNodeProperties' for a more convenient constructor. -data BatchJobDefinitionNodeProperties = - BatchJobDefinitionNodeProperties - { _batchJobDefinitionNodePropertiesMainNode :: Val Integer - , _batchJobDefinitionNodePropertiesNodeRangeProperties :: [BatchJobDefinitionNodeRangeProperty] - , _batchJobDefinitionNodePropertiesNumNodes :: Val Integer - } deriving (Show, Eq) - -instance ToJSON BatchJobDefinitionNodeProperties where - toJSON BatchJobDefinitionNodeProperties{..} = - object $ - catMaybes - [ (Just . ("MainNode",) . toJSON) _batchJobDefinitionNodePropertiesMainNode - , (Just . ("NodeRangeProperties",) . toJSON) _batchJobDefinitionNodePropertiesNodeRangeProperties - , (Just . ("NumNodes",) . toJSON) _batchJobDefinitionNodePropertiesNumNodes - ] - --- | Constructor for 'BatchJobDefinitionNodeProperties' containing required --- fields as arguments. -batchJobDefinitionNodeProperties - :: Val Integer -- ^ 'bjdnpMainNode' - -> [BatchJobDefinitionNodeRangeProperty] -- ^ 'bjdnpNodeRangeProperties' - -> Val Integer -- ^ 'bjdnpNumNodes' - -> BatchJobDefinitionNodeProperties -batchJobDefinitionNodeProperties mainNodearg nodeRangePropertiesarg numNodesarg = - BatchJobDefinitionNodeProperties - { _batchJobDefinitionNodePropertiesMainNode = mainNodearg - , _batchJobDefinitionNodePropertiesNodeRangeProperties = nodeRangePropertiesarg - , _batchJobDefinitionNodePropertiesNumNodes = numNodesarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-nodeproperties.html#cfn-batch-jobdefinition-nodeproperties-mainnode -bjdnpMainNode :: Lens' BatchJobDefinitionNodeProperties (Val Integer) -bjdnpMainNode = lens _batchJobDefinitionNodePropertiesMainNode (\s a -> s { _batchJobDefinitionNodePropertiesMainNode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-nodeproperties.html#cfn-batch-jobdefinition-nodeproperties-noderangeproperties -bjdnpNodeRangeProperties :: Lens' BatchJobDefinitionNodeProperties [BatchJobDefinitionNodeRangeProperty] -bjdnpNodeRangeProperties = lens _batchJobDefinitionNodePropertiesNodeRangeProperties (\s a -> s { _batchJobDefinitionNodePropertiesNodeRangeProperties = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-nodeproperties.html#cfn-batch-jobdefinition-nodeproperties-numnodes -bjdnpNumNodes :: Lens' BatchJobDefinitionNodeProperties (Val Integer) -bjdnpNumNodes = lens _batchJobDefinitionNodePropertiesNumNodes (\s a -> s { _batchJobDefinitionNodePropertiesNumNodes = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionNodeRangeProperty.hs b/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionNodeRangeProperty.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionNodeRangeProperty.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-noderangeproperty.html - -module Stratosphere.ResourceProperties.BatchJobDefinitionNodeRangeProperty where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.BatchJobDefinitionContainerProperties - --- | Full data type definition for BatchJobDefinitionNodeRangeProperty. See --- 'batchJobDefinitionNodeRangeProperty' for a more convenient constructor. -data BatchJobDefinitionNodeRangeProperty = - BatchJobDefinitionNodeRangeProperty - { _batchJobDefinitionNodeRangePropertyContainer :: Maybe BatchJobDefinitionContainerProperties - , _batchJobDefinitionNodeRangePropertyTargetNodes :: Val Text - } deriving (Show, Eq) - -instance ToJSON BatchJobDefinitionNodeRangeProperty where - toJSON BatchJobDefinitionNodeRangeProperty{..} = - object $ - catMaybes - [ fmap (("Container",) . toJSON) _batchJobDefinitionNodeRangePropertyContainer - , (Just . ("TargetNodes",) . toJSON) _batchJobDefinitionNodeRangePropertyTargetNodes - ] - --- | Constructor for 'BatchJobDefinitionNodeRangeProperty' containing required --- fields as arguments. -batchJobDefinitionNodeRangeProperty - :: Val Text -- ^ 'bjdnrpTargetNodes' - -> BatchJobDefinitionNodeRangeProperty -batchJobDefinitionNodeRangeProperty targetNodesarg = - BatchJobDefinitionNodeRangeProperty - { _batchJobDefinitionNodeRangePropertyContainer = Nothing - , _batchJobDefinitionNodeRangePropertyTargetNodes = targetNodesarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-noderangeproperty.html#cfn-batch-jobdefinition-noderangeproperty-container -bjdnrpContainer :: Lens' BatchJobDefinitionNodeRangeProperty (Maybe BatchJobDefinitionContainerProperties) -bjdnrpContainer = lens _batchJobDefinitionNodeRangePropertyContainer (\s a -> s { _batchJobDefinitionNodeRangePropertyContainer = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-noderangeproperty.html#cfn-batch-jobdefinition-noderangeproperty-targetnodes -bjdnrpTargetNodes :: Lens' BatchJobDefinitionNodeRangeProperty (Val Text) -bjdnrpTargetNodes = lens _batchJobDefinitionNodeRangePropertyTargetNodes (\s a -> s { _batchJobDefinitionNodeRangePropertyTargetNodes = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionResourceRequirement.hs b/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionResourceRequirement.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionResourceRequirement.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-resourcerequirement.html - -module Stratosphere.ResourceProperties.BatchJobDefinitionResourceRequirement where - -import Stratosphere.ResourceImports - - --- | Full data type definition for BatchJobDefinitionResourceRequirement. See --- 'batchJobDefinitionResourceRequirement' for a more convenient --- constructor. -data BatchJobDefinitionResourceRequirement = - BatchJobDefinitionResourceRequirement - { _batchJobDefinitionResourceRequirementType :: Maybe (Val Text) - , _batchJobDefinitionResourceRequirementValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON BatchJobDefinitionResourceRequirement where - toJSON BatchJobDefinitionResourceRequirement{..} = - object $ - catMaybes - [ fmap (("Type",) . toJSON) _batchJobDefinitionResourceRequirementType - , fmap (("Value",) . toJSON) _batchJobDefinitionResourceRequirementValue - ] - --- | Constructor for 'BatchJobDefinitionResourceRequirement' containing --- required fields as arguments. -batchJobDefinitionResourceRequirement - :: BatchJobDefinitionResourceRequirement -batchJobDefinitionResourceRequirement = - BatchJobDefinitionResourceRequirement - { _batchJobDefinitionResourceRequirementType = Nothing - , _batchJobDefinitionResourceRequirementValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-resourcerequirement.html#cfn-batch-jobdefinition-resourcerequirement-type -bjdrrType :: Lens' BatchJobDefinitionResourceRequirement (Maybe (Val Text)) -bjdrrType = lens _batchJobDefinitionResourceRequirementType (\s a -> s { _batchJobDefinitionResourceRequirementType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-resourcerequirement.html#cfn-batch-jobdefinition-resourcerequirement-value -bjdrrValue :: Lens' BatchJobDefinitionResourceRequirement (Maybe (Val Text)) -bjdrrValue = lens _batchJobDefinitionResourceRequirementValue (\s a -> s { _batchJobDefinitionResourceRequirementValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionRetryStrategy.hs b/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionRetryStrategy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionRetryStrategy.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-retrystrategy.html - -module Stratosphere.ResourceProperties.BatchJobDefinitionRetryStrategy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for BatchJobDefinitionRetryStrategy. See --- 'batchJobDefinitionRetryStrategy' for a more convenient constructor. -data BatchJobDefinitionRetryStrategy = - BatchJobDefinitionRetryStrategy - { _batchJobDefinitionRetryStrategyAttempts :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON BatchJobDefinitionRetryStrategy where - toJSON BatchJobDefinitionRetryStrategy{..} = - object $ - catMaybes - [ fmap (("Attempts",) . toJSON) _batchJobDefinitionRetryStrategyAttempts - ] - --- | Constructor for 'BatchJobDefinitionRetryStrategy' containing required --- fields as arguments. -batchJobDefinitionRetryStrategy - :: BatchJobDefinitionRetryStrategy -batchJobDefinitionRetryStrategy = - BatchJobDefinitionRetryStrategy - { _batchJobDefinitionRetryStrategyAttempts = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-retrystrategy.html#cfn-batch-jobdefinition-retrystrategy-attempts -bjdrsAttempts :: Lens' BatchJobDefinitionRetryStrategy (Maybe (Val Integer)) -bjdrsAttempts = lens _batchJobDefinitionRetryStrategyAttempts (\s a -> s { _batchJobDefinitionRetryStrategyAttempts = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionTimeout.hs b/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionTimeout.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionTimeout.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-timeout.html - -module Stratosphere.ResourceProperties.BatchJobDefinitionTimeout where - -import Stratosphere.ResourceImports - - --- | Full data type definition for BatchJobDefinitionTimeout. See --- 'batchJobDefinitionTimeout' for a more convenient constructor. -data BatchJobDefinitionTimeout = - BatchJobDefinitionTimeout - { _batchJobDefinitionTimeoutAttemptDurationSeconds :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON BatchJobDefinitionTimeout where - toJSON BatchJobDefinitionTimeout{..} = - object $ - catMaybes - [ fmap (("AttemptDurationSeconds",) . toJSON) _batchJobDefinitionTimeoutAttemptDurationSeconds - ] - --- | Constructor for 'BatchJobDefinitionTimeout' containing required fields as --- arguments. -batchJobDefinitionTimeout - :: BatchJobDefinitionTimeout -batchJobDefinitionTimeout = - BatchJobDefinitionTimeout - { _batchJobDefinitionTimeoutAttemptDurationSeconds = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-timeout.html#cfn-batch-jobdefinition-timeout-attemptdurationseconds -bjdtAttemptDurationSeconds :: Lens' BatchJobDefinitionTimeout (Maybe (Val Integer)) -bjdtAttemptDurationSeconds = lens _batchJobDefinitionTimeoutAttemptDurationSeconds (\s a -> s { _batchJobDefinitionTimeoutAttemptDurationSeconds = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionUlimit.hs b/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionUlimit.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionUlimit.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-ulimit.html - -module Stratosphere.ResourceProperties.BatchJobDefinitionUlimit where - -import Stratosphere.ResourceImports - - --- | Full data type definition for BatchJobDefinitionUlimit. See --- 'batchJobDefinitionUlimit' for a more convenient constructor. -data BatchJobDefinitionUlimit = - BatchJobDefinitionUlimit - { _batchJobDefinitionUlimitHardLimit :: Val Integer - , _batchJobDefinitionUlimitName :: Val Text - , _batchJobDefinitionUlimitSoftLimit :: Val Integer - } deriving (Show, Eq) - -instance ToJSON BatchJobDefinitionUlimit where - toJSON BatchJobDefinitionUlimit{..} = - object $ - catMaybes - [ (Just . ("HardLimit",) . toJSON) _batchJobDefinitionUlimitHardLimit - , (Just . ("Name",) . toJSON) _batchJobDefinitionUlimitName - , (Just . ("SoftLimit",) . toJSON) _batchJobDefinitionUlimitSoftLimit - ] - --- | Constructor for 'BatchJobDefinitionUlimit' containing required fields as --- arguments. -batchJobDefinitionUlimit - :: Val Integer -- ^ 'bjduHardLimit' - -> Val Text -- ^ 'bjduName' - -> Val Integer -- ^ 'bjduSoftLimit' - -> BatchJobDefinitionUlimit -batchJobDefinitionUlimit hardLimitarg namearg softLimitarg = - BatchJobDefinitionUlimit - { _batchJobDefinitionUlimitHardLimit = hardLimitarg - , _batchJobDefinitionUlimitName = namearg - , _batchJobDefinitionUlimitSoftLimit = softLimitarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-ulimit.html#cfn-batch-jobdefinition-ulimit-hardlimit -bjduHardLimit :: Lens' BatchJobDefinitionUlimit (Val Integer) -bjduHardLimit = lens _batchJobDefinitionUlimitHardLimit (\s a -> s { _batchJobDefinitionUlimitHardLimit = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-ulimit.html#cfn-batch-jobdefinition-ulimit-name -bjduName :: Lens' BatchJobDefinitionUlimit (Val Text) -bjduName = lens _batchJobDefinitionUlimitName (\s a -> s { _batchJobDefinitionUlimitName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-ulimit.html#cfn-batch-jobdefinition-ulimit-softlimit -bjduSoftLimit :: Lens' BatchJobDefinitionUlimit (Val Integer) -bjduSoftLimit = lens _batchJobDefinitionUlimitSoftLimit (\s a -> s { _batchJobDefinitionUlimitSoftLimit = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionVolumes.hs b/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionVolumes.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionVolumes.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-volumes.html - -module Stratosphere.ResourceProperties.BatchJobDefinitionVolumes where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.BatchJobDefinitionVolumesHost - --- | Full data type definition for BatchJobDefinitionVolumes. See --- 'batchJobDefinitionVolumes' for a more convenient constructor. -data BatchJobDefinitionVolumes = - BatchJobDefinitionVolumes - { _batchJobDefinitionVolumesHost :: Maybe BatchJobDefinitionVolumesHost - , _batchJobDefinitionVolumesName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON BatchJobDefinitionVolumes where - toJSON BatchJobDefinitionVolumes{..} = - object $ - catMaybes - [ fmap (("Host",) . toJSON) _batchJobDefinitionVolumesHost - , fmap (("Name",) . toJSON) _batchJobDefinitionVolumesName - ] - --- | Constructor for 'BatchJobDefinitionVolumes' containing required fields as --- arguments. -batchJobDefinitionVolumes - :: BatchJobDefinitionVolumes -batchJobDefinitionVolumes = - BatchJobDefinitionVolumes - { _batchJobDefinitionVolumesHost = Nothing - , _batchJobDefinitionVolumesName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-volumes.html#cfn-batch-jobdefinition-volumes-host -bjdvHost :: Lens' BatchJobDefinitionVolumes (Maybe BatchJobDefinitionVolumesHost) -bjdvHost = lens _batchJobDefinitionVolumesHost (\s a -> s { _batchJobDefinitionVolumesHost = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-volumes.html#cfn-batch-jobdefinition-volumes-name -bjdvName :: Lens' BatchJobDefinitionVolumes (Maybe (Val Text)) -bjdvName = lens _batchJobDefinitionVolumesName (\s a -> s { _batchJobDefinitionVolumesName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionVolumesHost.hs b/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionVolumesHost.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionVolumesHost.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-volumeshost.html - -module Stratosphere.ResourceProperties.BatchJobDefinitionVolumesHost where - -import Stratosphere.ResourceImports - - --- | Full data type definition for BatchJobDefinitionVolumesHost. See --- 'batchJobDefinitionVolumesHost' for a more convenient constructor. -data BatchJobDefinitionVolumesHost = - BatchJobDefinitionVolumesHost - { _batchJobDefinitionVolumesHostSourcePath :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON BatchJobDefinitionVolumesHost where - toJSON BatchJobDefinitionVolumesHost{..} = - object $ - catMaybes - [ fmap (("SourcePath",) . toJSON) _batchJobDefinitionVolumesHostSourcePath - ] - --- | Constructor for 'BatchJobDefinitionVolumesHost' containing required --- fields as arguments. -batchJobDefinitionVolumesHost - :: BatchJobDefinitionVolumesHost -batchJobDefinitionVolumesHost = - BatchJobDefinitionVolumesHost - { _batchJobDefinitionVolumesHostSourcePath = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-volumeshost.html#cfn-batch-jobdefinition-volumeshost-sourcepath -bjdvhSourcePath :: Lens' BatchJobDefinitionVolumesHost (Maybe (Val Text)) -bjdvhSourcePath = lens _batchJobDefinitionVolumesHostSourcePath (\s a -> s { _batchJobDefinitionVolumesHostSourcePath = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BatchJobQueueComputeEnvironmentOrder.hs b/library-gen/Stratosphere/ResourceProperties/BatchJobQueueComputeEnvironmentOrder.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BatchJobQueueComputeEnvironmentOrder.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobqueue-computeenvironmentorder.html - -module Stratosphere.ResourceProperties.BatchJobQueueComputeEnvironmentOrder where - -import Stratosphere.ResourceImports - - --- | Full data type definition for BatchJobQueueComputeEnvironmentOrder. See --- 'batchJobQueueComputeEnvironmentOrder' for a more convenient constructor. -data BatchJobQueueComputeEnvironmentOrder = - BatchJobQueueComputeEnvironmentOrder - { _batchJobQueueComputeEnvironmentOrderComputeEnvironment :: Val Text - , _batchJobQueueComputeEnvironmentOrderOrder :: Val Integer - } deriving (Show, Eq) - -instance ToJSON BatchJobQueueComputeEnvironmentOrder where - toJSON BatchJobQueueComputeEnvironmentOrder{..} = - object $ - catMaybes - [ (Just . ("ComputeEnvironment",) . toJSON) _batchJobQueueComputeEnvironmentOrderComputeEnvironment - , (Just . ("Order",) . toJSON) _batchJobQueueComputeEnvironmentOrderOrder - ] - --- | Constructor for 'BatchJobQueueComputeEnvironmentOrder' containing --- required fields as arguments. -batchJobQueueComputeEnvironmentOrder - :: Val Text -- ^ 'bjqceoComputeEnvironment' - -> Val Integer -- ^ 'bjqceoOrder' - -> BatchJobQueueComputeEnvironmentOrder -batchJobQueueComputeEnvironmentOrder computeEnvironmentarg orderarg = - BatchJobQueueComputeEnvironmentOrder - { _batchJobQueueComputeEnvironmentOrderComputeEnvironment = computeEnvironmentarg - , _batchJobQueueComputeEnvironmentOrderOrder = orderarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobqueue-computeenvironmentorder.html#cfn-batch-jobqueue-computeenvironmentorder-computeenvironment -bjqceoComputeEnvironment :: Lens' BatchJobQueueComputeEnvironmentOrder (Val Text) -bjqceoComputeEnvironment = lens _batchJobQueueComputeEnvironmentOrderComputeEnvironment (\s a -> s { _batchJobQueueComputeEnvironmentOrderComputeEnvironment = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobqueue-computeenvironmentorder.html#cfn-batch-jobqueue-computeenvironmentorder-order -bjqceoOrder :: Lens' BatchJobQueueComputeEnvironmentOrder (Val Integer) -bjqceoOrder = lens _batchJobQueueComputeEnvironmentOrderOrder (\s a -> s { _batchJobQueueComputeEnvironmentOrderOrder = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BudgetsBudgetBudgetData.hs b/library-gen/Stratosphere/ResourceProperties/BudgetsBudgetBudgetData.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BudgetsBudgetBudgetData.hs +++ /dev/null @@ -1,91 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-budgetdata.html - -module Stratosphere.ResourceProperties.BudgetsBudgetBudgetData where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.BudgetsBudgetSpend -import Stratosphere.ResourceProperties.BudgetsBudgetCostTypes -import Stratosphere.ResourceProperties.BudgetsBudgetTimePeriod - --- | Full data type definition for BudgetsBudgetBudgetData. See --- 'budgetsBudgetBudgetData' for a more convenient constructor. -data BudgetsBudgetBudgetData = - BudgetsBudgetBudgetData - { _budgetsBudgetBudgetDataBudgetLimit :: Maybe BudgetsBudgetSpend - , _budgetsBudgetBudgetDataBudgetName :: Maybe (Val Text) - , _budgetsBudgetBudgetDataBudgetType :: Val Text - , _budgetsBudgetBudgetDataCostFilters :: Maybe Object - , _budgetsBudgetBudgetDataCostTypes :: Maybe BudgetsBudgetCostTypes - , _budgetsBudgetBudgetDataPlannedBudgetLimits :: Maybe Object - , _budgetsBudgetBudgetDataTimePeriod :: Maybe BudgetsBudgetTimePeriod - , _budgetsBudgetBudgetDataTimeUnit :: Val Text - } deriving (Show, Eq) - -instance ToJSON BudgetsBudgetBudgetData where - toJSON BudgetsBudgetBudgetData{..} = - object $ - catMaybes - [ fmap (("BudgetLimit",) . toJSON) _budgetsBudgetBudgetDataBudgetLimit - , fmap (("BudgetName",) . toJSON) _budgetsBudgetBudgetDataBudgetName - , (Just . ("BudgetType",) . toJSON) _budgetsBudgetBudgetDataBudgetType - , fmap (("CostFilters",) . toJSON) _budgetsBudgetBudgetDataCostFilters - , fmap (("CostTypes",) . toJSON) _budgetsBudgetBudgetDataCostTypes - , fmap (("PlannedBudgetLimits",) . toJSON) _budgetsBudgetBudgetDataPlannedBudgetLimits - , fmap (("TimePeriod",) . toJSON) _budgetsBudgetBudgetDataTimePeriod - , (Just . ("TimeUnit",) . toJSON) _budgetsBudgetBudgetDataTimeUnit - ] - --- | Constructor for 'BudgetsBudgetBudgetData' containing required fields as --- arguments. -budgetsBudgetBudgetData - :: Val Text -- ^ 'bbbdBudgetType' - -> Val Text -- ^ 'bbbdTimeUnit' - -> BudgetsBudgetBudgetData -budgetsBudgetBudgetData budgetTypearg timeUnitarg = - BudgetsBudgetBudgetData - { _budgetsBudgetBudgetDataBudgetLimit = Nothing - , _budgetsBudgetBudgetDataBudgetName = Nothing - , _budgetsBudgetBudgetDataBudgetType = budgetTypearg - , _budgetsBudgetBudgetDataCostFilters = Nothing - , _budgetsBudgetBudgetDataCostTypes = Nothing - , _budgetsBudgetBudgetDataPlannedBudgetLimits = Nothing - , _budgetsBudgetBudgetDataTimePeriod = Nothing - , _budgetsBudgetBudgetDataTimeUnit = timeUnitarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-budgetdata.html#cfn-budgets-budget-budgetdata-budgetlimit -bbbdBudgetLimit :: Lens' BudgetsBudgetBudgetData (Maybe BudgetsBudgetSpend) -bbbdBudgetLimit = lens _budgetsBudgetBudgetDataBudgetLimit (\s a -> s { _budgetsBudgetBudgetDataBudgetLimit = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-budgetdata.html#cfn-budgets-budget-budgetdata-budgetname -bbbdBudgetName :: Lens' BudgetsBudgetBudgetData (Maybe (Val Text)) -bbbdBudgetName = lens _budgetsBudgetBudgetDataBudgetName (\s a -> s { _budgetsBudgetBudgetDataBudgetName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-budgetdata.html#cfn-budgets-budget-budgetdata-budgettype -bbbdBudgetType :: Lens' BudgetsBudgetBudgetData (Val Text) -bbbdBudgetType = lens _budgetsBudgetBudgetDataBudgetType (\s a -> s { _budgetsBudgetBudgetDataBudgetType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-budgetdata.html#cfn-budgets-budget-budgetdata-costfilters -bbbdCostFilters :: Lens' BudgetsBudgetBudgetData (Maybe Object) -bbbdCostFilters = lens _budgetsBudgetBudgetDataCostFilters (\s a -> s { _budgetsBudgetBudgetDataCostFilters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-budgetdata.html#cfn-budgets-budget-budgetdata-costtypes -bbbdCostTypes :: Lens' BudgetsBudgetBudgetData (Maybe BudgetsBudgetCostTypes) -bbbdCostTypes = lens _budgetsBudgetBudgetDataCostTypes (\s a -> s { _budgetsBudgetBudgetDataCostTypes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-budgetdata.html#cfn-budgets-budget-budgetdata-plannedbudgetlimits -bbbdPlannedBudgetLimits :: Lens' BudgetsBudgetBudgetData (Maybe Object) -bbbdPlannedBudgetLimits = lens _budgetsBudgetBudgetDataPlannedBudgetLimits (\s a -> s { _budgetsBudgetBudgetDataPlannedBudgetLimits = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-budgetdata.html#cfn-budgets-budget-budgetdata-timeperiod -bbbdTimePeriod :: Lens' BudgetsBudgetBudgetData (Maybe BudgetsBudgetTimePeriod) -bbbdTimePeriod = lens _budgetsBudgetBudgetDataTimePeriod (\s a -> s { _budgetsBudgetBudgetDataTimePeriod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-budgetdata.html#cfn-budgets-budget-budgetdata-timeunit -bbbdTimeUnit :: Lens' BudgetsBudgetBudgetData (Val Text) -bbbdTimeUnit = lens _budgetsBudgetBudgetDataTimeUnit (\s a -> s { _budgetsBudgetBudgetDataTimeUnit = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BudgetsBudgetCostTypes.hs b/library-gen/Stratosphere/ResourceProperties/BudgetsBudgetCostTypes.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BudgetsBudgetCostTypes.hs +++ /dev/null @@ -1,108 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-costtypes.html - -module Stratosphere.ResourceProperties.BudgetsBudgetCostTypes where - -import Stratosphere.ResourceImports - - --- | Full data type definition for BudgetsBudgetCostTypes. See --- 'budgetsBudgetCostTypes' for a more convenient constructor. -data BudgetsBudgetCostTypes = - BudgetsBudgetCostTypes - { _budgetsBudgetCostTypesIncludeCredit :: Maybe (Val Bool) - , _budgetsBudgetCostTypesIncludeDiscount :: Maybe (Val Bool) - , _budgetsBudgetCostTypesIncludeOtherSubscription :: Maybe (Val Bool) - , _budgetsBudgetCostTypesIncludeRecurring :: Maybe (Val Bool) - , _budgetsBudgetCostTypesIncludeRefund :: Maybe (Val Bool) - , _budgetsBudgetCostTypesIncludeSubscription :: Maybe (Val Bool) - , _budgetsBudgetCostTypesIncludeSupport :: Maybe (Val Bool) - , _budgetsBudgetCostTypesIncludeTax :: Maybe (Val Bool) - , _budgetsBudgetCostTypesIncludeUpfront :: Maybe (Val Bool) - , _budgetsBudgetCostTypesUseAmortized :: Maybe (Val Bool) - , _budgetsBudgetCostTypesUseBlended :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON BudgetsBudgetCostTypes where - toJSON BudgetsBudgetCostTypes{..} = - object $ - catMaybes - [ fmap (("IncludeCredit",) . toJSON) _budgetsBudgetCostTypesIncludeCredit - , fmap (("IncludeDiscount",) . toJSON) _budgetsBudgetCostTypesIncludeDiscount - , fmap (("IncludeOtherSubscription",) . toJSON) _budgetsBudgetCostTypesIncludeOtherSubscription - , fmap (("IncludeRecurring",) . toJSON) _budgetsBudgetCostTypesIncludeRecurring - , fmap (("IncludeRefund",) . toJSON) _budgetsBudgetCostTypesIncludeRefund - , fmap (("IncludeSubscription",) . toJSON) _budgetsBudgetCostTypesIncludeSubscription - , fmap (("IncludeSupport",) . toJSON) _budgetsBudgetCostTypesIncludeSupport - , fmap (("IncludeTax",) . toJSON) _budgetsBudgetCostTypesIncludeTax - , fmap (("IncludeUpfront",) . toJSON) _budgetsBudgetCostTypesIncludeUpfront - , fmap (("UseAmortized",) . toJSON) _budgetsBudgetCostTypesUseAmortized - , fmap (("UseBlended",) . toJSON) _budgetsBudgetCostTypesUseBlended - ] - --- | Constructor for 'BudgetsBudgetCostTypes' containing required fields as --- arguments. -budgetsBudgetCostTypes - :: BudgetsBudgetCostTypes -budgetsBudgetCostTypes = - BudgetsBudgetCostTypes - { _budgetsBudgetCostTypesIncludeCredit = Nothing - , _budgetsBudgetCostTypesIncludeDiscount = Nothing - , _budgetsBudgetCostTypesIncludeOtherSubscription = Nothing - , _budgetsBudgetCostTypesIncludeRecurring = Nothing - , _budgetsBudgetCostTypesIncludeRefund = Nothing - , _budgetsBudgetCostTypesIncludeSubscription = Nothing - , _budgetsBudgetCostTypesIncludeSupport = Nothing - , _budgetsBudgetCostTypesIncludeTax = Nothing - , _budgetsBudgetCostTypesIncludeUpfront = Nothing - , _budgetsBudgetCostTypesUseAmortized = Nothing - , _budgetsBudgetCostTypesUseBlended = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-costtypes.html#cfn-budgets-budget-costtypes-includecredit -bbctIncludeCredit :: Lens' BudgetsBudgetCostTypes (Maybe (Val Bool)) -bbctIncludeCredit = lens _budgetsBudgetCostTypesIncludeCredit (\s a -> s { _budgetsBudgetCostTypesIncludeCredit = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-costtypes.html#cfn-budgets-budget-costtypes-includediscount -bbctIncludeDiscount :: Lens' BudgetsBudgetCostTypes (Maybe (Val Bool)) -bbctIncludeDiscount = lens _budgetsBudgetCostTypesIncludeDiscount (\s a -> s { _budgetsBudgetCostTypesIncludeDiscount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-costtypes.html#cfn-budgets-budget-costtypes-includeothersubscription -bbctIncludeOtherSubscription :: Lens' BudgetsBudgetCostTypes (Maybe (Val Bool)) -bbctIncludeOtherSubscription = lens _budgetsBudgetCostTypesIncludeOtherSubscription (\s a -> s { _budgetsBudgetCostTypesIncludeOtherSubscription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-costtypes.html#cfn-budgets-budget-costtypes-includerecurring -bbctIncludeRecurring :: Lens' BudgetsBudgetCostTypes (Maybe (Val Bool)) -bbctIncludeRecurring = lens _budgetsBudgetCostTypesIncludeRecurring (\s a -> s { _budgetsBudgetCostTypesIncludeRecurring = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-costtypes.html#cfn-budgets-budget-costtypes-includerefund -bbctIncludeRefund :: Lens' BudgetsBudgetCostTypes (Maybe (Val Bool)) -bbctIncludeRefund = lens _budgetsBudgetCostTypesIncludeRefund (\s a -> s { _budgetsBudgetCostTypesIncludeRefund = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-costtypes.html#cfn-budgets-budget-costtypes-includesubscription -bbctIncludeSubscription :: Lens' BudgetsBudgetCostTypes (Maybe (Val Bool)) -bbctIncludeSubscription = lens _budgetsBudgetCostTypesIncludeSubscription (\s a -> s { _budgetsBudgetCostTypesIncludeSubscription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-costtypes.html#cfn-budgets-budget-costtypes-includesupport -bbctIncludeSupport :: Lens' BudgetsBudgetCostTypes (Maybe (Val Bool)) -bbctIncludeSupport = lens _budgetsBudgetCostTypesIncludeSupport (\s a -> s { _budgetsBudgetCostTypesIncludeSupport = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-costtypes.html#cfn-budgets-budget-costtypes-includetax -bbctIncludeTax :: Lens' BudgetsBudgetCostTypes (Maybe (Val Bool)) -bbctIncludeTax = lens _budgetsBudgetCostTypesIncludeTax (\s a -> s { _budgetsBudgetCostTypesIncludeTax = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-costtypes.html#cfn-budgets-budget-costtypes-includeupfront -bbctIncludeUpfront :: Lens' BudgetsBudgetCostTypes (Maybe (Val Bool)) -bbctIncludeUpfront = lens _budgetsBudgetCostTypesIncludeUpfront (\s a -> s { _budgetsBudgetCostTypesIncludeUpfront = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-costtypes.html#cfn-budgets-budget-costtypes-useamortized -bbctUseAmortized :: Lens' BudgetsBudgetCostTypes (Maybe (Val Bool)) -bbctUseAmortized = lens _budgetsBudgetCostTypesUseAmortized (\s a -> s { _budgetsBudgetCostTypesUseAmortized = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-costtypes.html#cfn-budgets-budget-costtypes-useblended -bbctUseBlended :: Lens' BudgetsBudgetCostTypes (Maybe (Val Bool)) -bbctUseBlended = lens _budgetsBudgetCostTypesUseBlended (\s a -> s { _budgetsBudgetCostTypesUseBlended = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BudgetsBudgetNotification.hs b/library-gen/Stratosphere/ResourceProperties/BudgetsBudgetNotification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BudgetsBudgetNotification.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-notification.html - -module Stratosphere.ResourceProperties.BudgetsBudgetNotification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for BudgetsBudgetNotification. See --- 'budgetsBudgetNotification' for a more convenient constructor. -data BudgetsBudgetNotification = - BudgetsBudgetNotification - { _budgetsBudgetNotificationComparisonOperator :: Val Text - , _budgetsBudgetNotificationNotificationType :: Val Text - , _budgetsBudgetNotificationThreshold :: Val Double - , _budgetsBudgetNotificationThresholdType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON BudgetsBudgetNotification where - toJSON BudgetsBudgetNotification{..} = - object $ - catMaybes - [ (Just . ("ComparisonOperator",) . toJSON) _budgetsBudgetNotificationComparisonOperator - , (Just . ("NotificationType",) . toJSON) _budgetsBudgetNotificationNotificationType - , (Just . ("Threshold",) . toJSON) _budgetsBudgetNotificationThreshold - , fmap (("ThresholdType",) . toJSON) _budgetsBudgetNotificationThresholdType - ] - --- | Constructor for 'BudgetsBudgetNotification' containing required fields as --- arguments. -budgetsBudgetNotification - :: Val Text -- ^ 'bbnComparisonOperator' - -> Val Text -- ^ 'bbnNotificationType' - -> Val Double -- ^ 'bbnThreshold' - -> BudgetsBudgetNotification -budgetsBudgetNotification comparisonOperatorarg notificationTypearg thresholdarg = - BudgetsBudgetNotification - { _budgetsBudgetNotificationComparisonOperator = comparisonOperatorarg - , _budgetsBudgetNotificationNotificationType = notificationTypearg - , _budgetsBudgetNotificationThreshold = thresholdarg - , _budgetsBudgetNotificationThresholdType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-notification.html#cfn-budgets-budget-notification-comparisonoperator -bbnComparisonOperator :: Lens' BudgetsBudgetNotification (Val Text) -bbnComparisonOperator = lens _budgetsBudgetNotificationComparisonOperator (\s a -> s { _budgetsBudgetNotificationComparisonOperator = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-notification.html#cfn-budgets-budget-notification-notificationtype -bbnNotificationType :: Lens' BudgetsBudgetNotification (Val Text) -bbnNotificationType = lens _budgetsBudgetNotificationNotificationType (\s a -> s { _budgetsBudgetNotificationNotificationType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-notification.html#cfn-budgets-budget-notification-threshold -bbnThreshold :: Lens' BudgetsBudgetNotification (Val Double) -bbnThreshold = lens _budgetsBudgetNotificationThreshold (\s a -> s { _budgetsBudgetNotificationThreshold = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-notification.html#cfn-budgets-budget-notification-thresholdtype -bbnThresholdType :: Lens' BudgetsBudgetNotification (Maybe (Val Text)) -bbnThresholdType = lens _budgetsBudgetNotificationThresholdType (\s a -> s { _budgetsBudgetNotificationThresholdType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BudgetsBudgetNotificationWithSubscribers.hs b/library-gen/Stratosphere/ResourceProperties/BudgetsBudgetNotificationWithSubscribers.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BudgetsBudgetNotificationWithSubscribers.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-notificationwithsubscribers.html - -module Stratosphere.ResourceProperties.BudgetsBudgetNotificationWithSubscribers where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.BudgetsBudgetNotification -import Stratosphere.ResourceProperties.BudgetsBudgetSubscriber - --- | Full data type definition for BudgetsBudgetNotificationWithSubscribers. --- See 'budgetsBudgetNotificationWithSubscribers' for a more convenient --- constructor. -data BudgetsBudgetNotificationWithSubscribers = - BudgetsBudgetNotificationWithSubscribers - { _budgetsBudgetNotificationWithSubscribersNotification :: BudgetsBudgetNotification - , _budgetsBudgetNotificationWithSubscribersSubscribers :: [BudgetsBudgetSubscriber] - } deriving (Show, Eq) - -instance ToJSON BudgetsBudgetNotificationWithSubscribers where - toJSON BudgetsBudgetNotificationWithSubscribers{..} = - object $ - catMaybes - [ (Just . ("Notification",) . toJSON) _budgetsBudgetNotificationWithSubscribersNotification - , (Just . ("Subscribers",) . toJSON) _budgetsBudgetNotificationWithSubscribersSubscribers - ] - --- | Constructor for 'BudgetsBudgetNotificationWithSubscribers' containing --- required fields as arguments. -budgetsBudgetNotificationWithSubscribers - :: BudgetsBudgetNotification -- ^ 'bbnwsNotification' - -> [BudgetsBudgetSubscriber] -- ^ 'bbnwsSubscribers' - -> BudgetsBudgetNotificationWithSubscribers -budgetsBudgetNotificationWithSubscribers notificationarg subscribersarg = - BudgetsBudgetNotificationWithSubscribers - { _budgetsBudgetNotificationWithSubscribersNotification = notificationarg - , _budgetsBudgetNotificationWithSubscribersSubscribers = subscribersarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-notificationwithsubscribers.html#cfn-budgets-budget-notificationwithsubscribers-notification -bbnwsNotification :: Lens' BudgetsBudgetNotificationWithSubscribers BudgetsBudgetNotification -bbnwsNotification = lens _budgetsBudgetNotificationWithSubscribersNotification (\s a -> s { _budgetsBudgetNotificationWithSubscribersNotification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-notificationwithsubscribers.html#cfn-budgets-budget-notificationwithsubscribers-subscribers -bbnwsSubscribers :: Lens' BudgetsBudgetNotificationWithSubscribers [BudgetsBudgetSubscriber] -bbnwsSubscribers = lens _budgetsBudgetNotificationWithSubscribersSubscribers (\s a -> s { _budgetsBudgetNotificationWithSubscribersSubscribers = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BudgetsBudgetSpend.hs b/library-gen/Stratosphere/ResourceProperties/BudgetsBudgetSpend.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BudgetsBudgetSpend.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-spend.html - -module Stratosphere.ResourceProperties.BudgetsBudgetSpend where - -import Stratosphere.ResourceImports - - --- | Full data type definition for BudgetsBudgetSpend. See --- 'budgetsBudgetSpend' for a more convenient constructor. -data BudgetsBudgetSpend = - BudgetsBudgetSpend - { _budgetsBudgetSpendAmount :: Val Double - , _budgetsBudgetSpendUnit :: Val Text - } deriving (Show, Eq) - -instance ToJSON BudgetsBudgetSpend where - toJSON BudgetsBudgetSpend{..} = - object $ - catMaybes - [ (Just . ("Amount",) . toJSON) _budgetsBudgetSpendAmount - , (Just . ("Unit",) . toJSON) _budgetsBudgetSpendUnit - ] - --- | Constructor for 'BudgetsBudgetSpend' containing required fields as --- arguments. -budgetsBudgetSpend - :: Val Double -- ^ 'bbsAmount' - -> Val Text -- ^ 'bbsUnit' - -> BudgetsBudgetSpend -budgetsBudgetSpend amountarg unitarg = - BudgetsBudgetSpend - { _budgetsBudgetSpendAmount = amountarg - , _budgetsBudgetSpendUnit = unitarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-spend.html#cfn-budgets-budget-spend-amount -bbsAmount :: Lens' BudgetsBudgetSpend (Val Double) -bbsAmount = lens _budgetsBudgetSpendAmount (\s a -> s { _budgetsBudgetSpendAmount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-spend.html#cfn-budgets-budget-spend-unit -bbsUnit :: Lens' BudgetsBudgetSpend (Val Text) -bbsUnit = lens _budgetsBudgetSpendUnit (\s a -> s { _budgetsBudgetSpendUnit = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BudgetsBudgetSubscriber.hs b/library-gen/Stratosphere/ResourceProperties/BudgetsBudgetSubscriber.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BudgetsBudgetSubscriber.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-subscriber.html - -module Stratosphere.ResourceProperties.BudgetsBudgetSubscriber where - -import Stratosphere.ResourceImports - - --- | Full data type definition for BudgetsBudgetSubscriber. See --- 'budgetsBudgetSubscriber' for a more convenient constructor. -data BudgetsBudgetSubscriber = - BudgetsBudgetSubscriber - { _budgetsBudgetSubscriberAddress :: Val Text - , _budgetsBudgetSubscriberSubscriptionType :: Val Text - } deriving (Show, Eq) - -instance ToJSON BudgetsBudgetSubscriber where - toJSON BudgetsBudgetSubscriber{..} = - object $ - catMaybes - [ (Just . ("Address",) . toJSON) _budgetsBudgetSubscriberAddress - , (Just . ("SubscriptionType",) . toJSON) _budgetsBudgetSubscriberSubscriptionType - ] - --- | Constructor for 'BudgetsBudgetSubscriber' containing required fields as --- arguments. -budgetsBudgetSubscriber - :: Val Text -- ^ 'bbsAddress' - -> Val Text -- ^ 'bbsSubscriptionType' - -> BudgetsBudgetSubscriber -budgetsBudgetSubscriber addressarg subscriptionTypearg = - BudgetsBudgetSubscriber - { _budgetsBudgetSubscriberAddress = addressarg - , _budgetsBudgetSubscriberSubscriptionType = subscriptionTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-subscriber.html#cfn-budgets-budget-subscriber-address -bbsAddress :: Lens' BudgetsBudgetSubscriber (Val Text) -bbsAddress = lens _budgetsBudgetSubscriberAddress (\s a -> s { _budgetsBudgetSubscriberAddress = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-subscriber.html#cfn-budgets-budget-subscriber-subscriptiontype -bbsSubscriptionType :: Lens' BudgetsBudgetSubscriber (Val Text) -bbsSubscriptionType = lens _budgetsBudgetSubscriberSubscriptionType (\s a -> s { _budgetsBudgetSubscriberSubscriptionType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/BudgetsBudgetTimePeriod.hs b/library-gen/Stratosphere/ResourceProperties/BudgetsBudgetTimePeriod.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/BudgetsBudgetTimePeriod.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-timeperiod.html - -module Stratosphere.ResourceProperties.BudgetsBudgetTimePeriod where - -import Stratosphere.ResourceImports - - --- | Full data type definition for BudgetsBudgetTimePeriod. See --- 'budgetsBudgetTimePeriod' for a more convenient constructor. -data BudgetsBudgetTimePeriod = - BudgetsBudgetTimePeriod - { _budgetsBudgetTimePeriodEnd :: Maybe (Val Text) - , _budgetsBudgetTimePeriodStart :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON BudgetsBudgetTimePeriod where - toJSON BudgetsBudgetTimePeriod{..} = - object $ - catMaybes - [ fmap (("End",) . toJSON) _budgetsBudgetTimePeriodEnd - , fmap (("Start",) . toJSON) _budgetsBudgetTimePeriodStart - ] - --- | Constructor for 'BudgetsBudgetTimePeriod' containing required fields as --- arguments. -budgetsBudgetTimePeriod - :: BudgetsBudgetTimePeriod -budgetsBudgetTimePeriod = - BudgetsBudgetTimePeriod - { _budgetsBudgetTimePeriodEnd = Nothing - , _budgetsBudgetTimePeriodStart = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-timeperiod.html#cfn-budgets-budget-timeperiod-end -bbtpEnd :: Lens' BudgetsBudgetTimePeriod (Maybe (Val Text)) -bbtpEnd = lens _budgetsBudgetTimePeriodEnd (\s a -> s { _budgetsBudgetTimePeriodEnd = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-budgets-budget-timeperiod.html#cfn-budgets-budget-timeperiod-start -bbtpStart :: Lens' BudgetsBudgetTimePeriod (Maybe (Val Text)) -bbtpStart = lens _budgetsBudgetTimePeriodStart (\s a -> s { _budgetsBudgetTimePeriodStart = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CassandraTableBillingMode.hs b/library-gen/Stratosphere/ResourceProperties/CassandraTableBillingMode.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CassandraTableBillingMode.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-billingmode.html - -module Stratosphere.ResourceProperties.CassandraTableBillingMode where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CassandraTableProvisionedThroughput - --- | Full data type definition for CassandraTableBillingMode. See --- 'cassandraTableBillingMode' for a more convenient constructor. -data CassandraTableBillingMode = - CassandraTableBillingMode - { _cassandraTableBillingModeMode :: Val Text - , _cassandraTableBillingModeProvisionedThroughput :: Maybe CassandraTableProvisionedThroughput - } deriving (Show, Eq) - -instance ToJSON CassandraTableBillingMode where - toJSON CassandraTableBillingMode{..} = - object $ - catMaybes - [ (Just . ("Mode",) . toJSON) _cassandraTableBillingModeMode - , fmap (("ProvisionedThroughput",) . toJSON) _cassandraTableBillingModeProvisionedThroughput - ] - --- | Constructor for 'CassandraTableBillingMode' containing required fields as --- arguments. -cassandraTableBillingMode - :: Val Text -- ^ 'ctbmMode' - -> CassandraTableBillingMode -cassandraTableBillingMode modearg = - CassandraTableBillingMode - { _cassandraTableBillingModeMode = modearg - , _cassandraTableBillingModeProvisionedThroughput = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-billingmode.html#cfn-cassandra-table-billingmode-mode -ctbmMode :: Lens' CassandraTableBillingMode (Val Text) -ctbmMode = lens _cassandraTableBillingModeMode (\s a -> s { _cassandraTableBillingModeMode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-billingmode.html#cfn-cassandra-table-billingmode-provisionedthroughput -ctbmProvisionedThroughput :: Lens' CassandraTableBillingMode (Maybe CassandraTableProvisionedThroughput) -ctbmProvisionedThroughput = lens _cassandraTableBillingModeProvisionedThroughput (\s a -> s { _cassandraTableBillingModeProvisionedThroughput = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CassandraTableClusteringKeyColumn.hs b/library-gen/Stratosphere/ResourceProperties/CassandraTableClusteringKeyColumn.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CassandraTableClusteringKeyColumn.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-clusteringkeycolumn.html - -module Stratosphere.ResourceProperties.CassandraTableClusteringKeyColumn where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CassandraTableColumn - --- | Full data type definition for CassandraTableClusteringKeyColumn. See --- 'cassandraTableClusteringKeyColumn' for a more convenient constructor. -data CassandraTableClusteringKeyColumn = - CassandraTableClusteringKeyColumn - { _cassandraTableClusteringKeyColumnColumn :: CassandraTableColumn - , _cassandraTableClusteringKeyColumnOrderBy :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CassandraTableClusteringKeyColumn where - toJSON CassandraTableClusteringKeyColumn{..} = - object $ - catMaybes - [ (Just . ("Column",) . toJSON) _cassandraTableClusteringKeyColumnColumn - , fmap (("OrderBy",) . toJSON) _cassandraTableClusteringKeyColumnOrderBy - ] - --- | Constructor for 'CassandraTableClusteringKeyColumn' containing required --- fields as arguments. -cassandraTableClusteringKeyColumn - :: CassandraTableColumn -- ^ 'ctckcColumn' - -> CassandraTableClusteringKeyColumn -cassandraTableClusteringKeyColumn columnarg = - CassandraTableClusteringKeyColumn - { _cassandraTableClusteringKeyColumnColumn = columnarg - , _cassandraTableClusteringKeyColumnOrderBy = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-clusteringkeycolumn.html#cfn-cassandra-table-clusteringkeycolumn-column -ctckcColumn :: Lens' CassandraTableClusteringKeyColumn CassandraTableColumn -ctckcColumn = lens _cassandraTableClusteringKeyColumnColumn (\s a -> s { _cassandraTableClusteringKeyColumnColumn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-clusteringkeycolumn.html#cfn-cassandra-table-clusteringkeycolumn-orderby -ctckcOrderBy :: Lens' CassandraTableClusteringKeyColumn (Maybe (Val Text)) -ctckcOrderBy = lens _cassandraTableClusteringKeyColumnOrderBy (\s a -> s { _cassandraTableClusteringKeyColumnOrderBy = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CassandraTableColumn.hs b/library-gen/Stratosphere/ResourceProperties/CassandraTableColumn.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CassandraTableColumn.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-column.html - -module Stratosphere.ResourceProperties.CassandraTableColumn where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CassandraTableColumn. See --- 'cassandraTableColumn' for a more convenient constructor. -data CassandraTableColumn = - CassandraTableColumn - { _cassandraTableColumnColumnName :: Val Text - , _cassandraTableColumnColumnType :: Val Text - } deriving (Show, Eq) - -instance ToJSON CassandraTableColumn where - toJSON CassandraTableColumn{..} = - object $ - catMaybes - [ (Just . ("ColumnName",) . toJSON) _cassandraTableColumnColumnName - , (Just . ("ColumnType",) . toJSON) _cassandraTableColumnColumnType - ] - --- | Constructor for 'CassandraTableColumn' containing required fields as --- arguments. -cassandraTableColumn - :: Val Text -- ^ 'ctcColumnName' - -> Val Text -- ^ 'ctcColumnType' - -> CassandraTableColumn -cassandraTableColumn columnNamearg columnTypearg = - CassandraTableColumn - { _cassandraTableColumnColumnName = columnNamearg - , _cassandraTableColumnColumnType = columnTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-column.html#cfn-cassandra-table-column-columnname -ctcColumnName :: Lens' CassandraTableColumn (Val Text) -ctcColumnName = lens _cassandraTableColumnColumnName (\s a -> s { _cassandraTableColumnColumnName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-column.html#cfn-cassandra-table-column-columntype -ctcColumnType :: Lens' CassandraTableColumn (Val Text) -ctcColumnType = lens _cassandraTableColumnColumnType (\s a -> s { _cassandraTableColumnColumnType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CassandraTableProvisionedThroughput.hs b/library-gen/Stratosphere/ResourceProperties/CassandraTableProvisionedThroughput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CassandraTableProvisionedThroughput.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-provisionedthroughput.html - -module Stratosphere.ResourceProperties.CassandraTableProvisionedThroughput where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CassandraTableProvisionedThroughput. See --- 'cassandraTableProvisionedThroughput' for a more convenient constructor. -data CassandraTableProvisionedThroughput = - CassandraTableProvisionedThroughput - { _cassandraTableProvisionedThroughputReadCapacityUnits :: Val Integer - , _cassandraTableProvisionedThroughputWriteCapacityUnits :: Val Integer - } deriving (Show, Eq) - -instance ToJSON CassandraTableProvisionedThroughput where - toJSON CassandraTableProvisionedThroughput{..} = - object $ - catMaybes - [ (Just . ("ReadCapacityUnits",) . toJSON) _cassandraTableProvisionedThroughputReadCapacityUnits - , (Just . ("WriteCapacityUnits",) . toJSON) _cassandraTableProvisionedThroughputWriteCapacityUnits - ] - --- | Constructor for 'CassandraTableProvisionedThroughput' containing required --- fields as arguments. -cassandraTableProvisionedThroughput - :: Val Integer -- ^ 'ctptReadCapacityUnits' - -> Val Integer -- ^ 'ctptWriteCapacityUnits' - -> CassandraTableProvisionedThroughput -cassandraTableProvisionedThroughput readCapacityUnitsarg writeCapacityUnitsarg = - CassandraTableProvisionedThroughput - { _cassandraTableProvisionedThroughputReadCapacityUnits = readCapacityUnitsarg - , _cassandraTableProvisionedThroughputWriteCapacityUnits = writeCapacityUnitsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-provisionedthroughput.html#cfn-cassandra-table-provisionedthroughput-readcapacityunits -ctptReadCapacityUnits :: Lens' CassandraTableProvisionedThroughput (Val Integer) -ctptReadCapacityUnits = lens _cassandraTableProvisionedThroughputReadCapacityUnits (\s a -> s { _cassandraTableProvisionedThroughputReadCapacityUnits = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-provisionedthroughput.html#cfn-cassandra-table-provisionedthroughput-writecapacityunits -ctptWriteCapacityUnits :: Lens' CassandraTableProvisionedThroughput (Val Integer) -ctptWriteCapacityUnits = lens _cassandraTableProvisionedThroughputWriteCapacityUnits (\s a -> s { _cassandraTableProvisionedThroughputWriteCapacityUnits = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CertificateManagerCertificateDomainValidationOption.hs b/library-gen/Stratosphere/ResourceProperties/CertificateManagerCertificateDomainValidationOption.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CertificateManagerCertificateDomainValidationOption.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-certificatemanager-certificate-domainvalidationoption.html - -module Stratosphere.ResourceProperties.CertificateManagerCertificateDomainValidationOption where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- CertificateManagerCertificateDomainValidationOption. See --- 'certificateManagerCertificateDomainValidationOption' for a more --- convenient constructor. -data CertificateManagerCertificateDomainValidationOption = - CertificateManagerCertificateDomainValidationOption - { _certificateManagerCertificateDomainValidationOptionDomainName :: Val Text - , _certificateManagerCertificateDomainValidationOptionHostedZoneId :: Maybe (Val Text) - , _certificateManagerCertificateDomainValidationOptionValidationDomain :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CertificateManagerCertificateDomainValidationOption where - toJSON CertificateManagerCertificateDomainValidationOption{..} = - object $ - catMaybes - [ (Just . ("DomainName",) . toJSON) _certificateManagerCertificateDomainValidationOptionDomainName - , fmap (("HostedZoneId",) . toJSON) _certificateManagerCertificateDomainValidationOptionHostedZoneId - , fmap (("ValidationDomain",) . toJSON) _certificateManagerCertificateDomainValidationOptionValidationDomain - ] - --- | Constructor for 'CertificateManagerCertificateDomainValidationOption' --- containing required fields as arguments. -certificateManagerCertificateDomainValidationOption - :: Val Text -- ^ 'cmcdvoDomainName' - -> CertificateManagerCertificateDomainValidationOption -certificateManagerCertificateDomainValidationOption domainNamearg = - CertificateManagerCertificateDomainValidationOption - { _certificateManagerCertificateDomainValidationOptionDomainName = domainNamearg - , _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 (Maybe (Val Text)) -cmcdvoValidationDomain = lens _certificateManagerCertificateDomainValidationOptionValidationDomain (\s a -> s { _certificateManagerCertificateDomainValidationOptionValidationDomain = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/Cloud9EnvironmentEC2Repository.hs b/library-gen/Stratosphere/ResourceProperties/Cloud9EnvironmentEC2Repository.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/Cloud9EnvironmentEC2Repository.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloud9-environmentec2-repository.html - -module Stratosphere.ResourceProperties.Cloud9EnvironmentEC2Repository where - -import Stratosphere.ResourceImports - - --- | Full data type definition for Cloud9EnvironmentEC2Repository. See --- 'cloud9EnvironmentEC2Repository' for a more convenient constructor. -data Cloud9EnvironmentEC2Repository = - Cloud9EnvironmentEC2Repository - { _cloud9EnvironmentEC2RepositoryPathComponent :: Val Text - , _cloud9EnvironmentEC2RepositoryRepositoryUrl :: Val Text - } deriving (Show, Eq) - -instance ToJSON Cloud9EnvironmentEC2Repository where - toJSON Cloud9EnvironmentEC2Repository{..} = - object $ - catMaybes - [ (Just . ("PathComponent",) . toJSON) _cloud9EnvironmentEC2RepositoryPathComponent - , (Just . ("RepositoryUrl",) . toJSON) _cloud9EnvironmentEC2RepositoryRepositoryUrl - ] - --- | Constructor for 'Cloud9EnvironmentEC2Repository' containing required --- fields as arguments. -cloud9EnvironmentEC2Repository - :: Val Text -- ^ 'ceecrPathComponent' - -> Val Text -- ^ 'ceecrRepositoryUrl' - -> Cloud9EnvironmentEC2Repository -cloud9EnvironmentEC2Repository pathComponentarg repositoryUrlarg = - Cloud9EnvironmentEC2Repository - { _cloud9EnvironmentEC2RepositoryPathComponent = pathComponentarg - , _cloud9EnvironmentEC2RepositoryRepositoryUrl = repositoryUrlarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloud9-environmentec2-repository.html#cfn-cloud9-environmentec2-repository-pathcomponent -ceecrPathComponent :: Lens' Cloud9EnvironmentEC2Repository (Val Text) -ceecrPathComponent = lens _cloud9EnvironmentEC2RepositoryPathComponent (\s a -> s { _cloud9EnvironmentEC2RepositoryPathComponent = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloud9-environmentec2-repository.html#cfn-cloud9-environmentec2-repository-repositoryurl -ceecrRepositoryUrl :: Lens' Cloud9EnvironmentEC2Repository (Val Text) -ceecrRepositoryUrl = lens _cloud9EnvironmentEC2RepositoryRepositoryUrl (\s a -> s { _cloud9EnvironmentEC2RepositoryRepositoryUrl = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontCachePolicyCachePolicyConfig.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontCachePolicyCachePolicyConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontCachePolicyCachePolicyConfig.hs +++ /dev/null @@ -1,76 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachepolicy-cachepolicyconfig.html - -module Stratosphere.ResourceProperties.CloudFrontCachePolicyCachePolicyConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CloudFrontCachePolicyParametersInCacheKeyAndForwardedToOrigin - --- | Full data type definition for CloudFrontCachePolicyCachePolicyConfig. See --- 'cloudFrontCachePolicyCachePolicyConfig' for a more convenient --- constructor. -data CloudFrontCachePolicyCachePolicyConfig = - CloudFrontCachePolicyCachePolicyConfig - { _cloudFrontCachePolicyCachePolicyConfigComment :: Maybe (Val Text) - , _cloudFrontCachePolicyCachePolicyConfigDefaultTTL :: Maybe (Val Double) - , _cloudFrontCachePolicyCachePolicyConfigMaxTTL :: Maybe (Val Double) - , _cloudFrontCachePolicyCachePolicyConfigMinTTL :: Val Double - , _cloudFrontCachePolicyCachePolicyConfigName :: Val Text - , _cloudFrontCachePolicyCachePolicyConfigParametersInCacheKeyAndForwardedToOrigin :: Maybe CloudFrontCachePolicyParametersInCacheKeyAndForwardedToOrigin - } deriving (Show, Eq) - -instance ToJSON CloudFrontCachePolicyCachePolicyConfig where - toJSON CloudFrontCachePolicyCachePolicyConfig{..} = - object $ - catMaybes - [ fmap (("Comment",) . toJSON) _cloudFrontCachePolicyCachePolicyConfigComment - , fmap (("DefaultTTL",) . toJSON) _cloudFrontCachePolicyCachePolicyConfigDefaultTTL - , fmap (("MaxTTL",) . toJSON) _cloudFrontCachePolicyCachePolicyConfigMaxTTL - , (Just . ("MinTTL",) . toJSON) _cloudFrontCachePolicyCachePolicyConfigMinTTL - , (Just . ("Name",) . toJSON) _cloudFrontCachePolicyCachePolicyConfigName - , fmap (("ParametersInCacheKeyAndForwardedToOrigin",) . toJSON) _cloudFrontCachePolicyCachePolicyConfigParametersInCacheKeyAndForwardedToOrigin - ] - --- | Constructor for 'CloudFrontCachePolicyCachePolicyConfig' containing --- required fields as arguments. -cloudFrontCachePolicyCachePolicyConfig - :: Val Double -- ^ 'cfcpcpcMinTTL' - -> Val Text -- ^ 'cfcpcpcName' - -> CloudFrontCachePolicyCachePolicyConfig -cloudFrontCachePolicyCachePolicyConfig minTTLarg namearg = - CloudFrontCachePolicyCachePolicyConfig - { _cloudFrontCachePolicyCachePolicyConfigComment = Nothing - , _cloudFrontCachePolicyCachePolicyConfigDefaultTTL = Nothing - , _cloudFrontCachePolicyCachePolicyConfigMaxTTL = Nothing - , _cloudFrontCachePolicyCachePolicyConfigMinTTL = minTTLarg - , _cloudFrontCachePolicyCachePolicyConfigName = namearg - , _cloudFrontCachePolicyCachePolicyConfigParametersInCacheKeyAndForwardedToOrigin = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachepolicy-cachepolicyconfig.html#cfn-cloudfront-cachepolicy-cachepolicyconfig-comment -cfcpcpcComment :: Lens' CloudFrontCachePolicyCachePolicyConfig (Maybe (Val Text)) -cfcpcpcComment = lens _cloudFrontCachePolicyCachePolicyConfigComment (\s a -> s { _cloudFrontCachePolicyCachePolicyConfigComment = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachepolicy-cachepolicyconfig.html#cfn-cloudfront-cachepolicy-cachepolicyconfig-defaultttl -cfcpcpcDefaultTTL :: Lens' CloudFrontCachePolicyCachePolicyConfig (Maybe (Val Double)) -cfcpcpcDefaultTTL = lens _cloudFrontCachePolicyCachePolicyConfigDefaultTTL (\s a -> s { _cloudFrontCachePolicyCachePolicyConfigDefaultTTL = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachepolicy-cachepolicyconfig.html#cfn-cloudfront-cachepolicy-cachepolicyconfig-maxttl -cfcpcpcMaxTTL :: Lens' CloudFrontCachePolicyCachePolicyConfig (Maybe (Val Double)) -cfcpcpcMaxTTL = lens _cloudFrontCachePolicyCachePolicyConfigMaxTTL (\s a -> s { _cloudFrontCachePolicyCachePolicyConfigMaxTTL = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachepolicy-cachepolicyconfig.html#cfn-cloudfront-cachepolicy-cachepolicyconfig-minttl -cfcpcpcMinTTL :: Lens' CloudFrontCachePolicyCachePolicyConfig (Val Double) -cfcpcpcMinTTL = lens _cloudFrontCachePolicyCachePolicyConfigMinTTL (\s a -> s { _cloudFrontCachePolicyCachePolicyConfigMinTTL = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachepolicy-cachepolicyconfig.html#cfn-cloudfront-cachepolicy-cachepolicyconfig-name -cfcpcpcName :: Lens' CloudFrontCachePolicyCachePolicyConfig (Val Text) -cfcpcpcName = lens _cloudFrontCachePolicyCachePolicyConfigName (\s a -> s { _cloudFrontCachePolicyCachePolicyConfigName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachepolicy-cachepolicyconfig.html#cfn-cloudfront-cachepolicy-cachepolicyconfig-parametersincachekeyandforwardedtoorigin -cfcpcpcParametersInCacheKeyAndForwardedToOrigin :: Lens' CloudFrontCachePolicyCachePolicyConfig (Maybe CloudFrontCachePolicyParametersInCacheKeyAndForwardedToOrigin) -cfcpcpcParametersInCacheKeyAndForwardedToOrigin = lens _cloudFrontCachePolicyCachePolicyConfigParametersInCacheKeyAndForwardedToOrigin (\s a -> s { _cloudFrontCachePolicyCachePolicyConfigParametersInCacheKeyAndForwardedToOrigin = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontCachePolicyCookiesConfig.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontCachePolicyCookiesConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontCachePolicyCookiesConfig.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachepolicy-cookiesconfig.html - -module Stratosphere.ResourceProperties.CloudFrontCachePolicyCookiesConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CloudFrontCachePolicyCookiesConfig. See --- 'cloudFrontCachePolicyCookiesConfig' for a more convenient constructor. -data CloudFrontCachePolicyCookiesConfig = - CloudFrontCachePolicyCookiesConfig - { _cloudFrontCachePolicyCookiesConfigCookieBehavior :: Val Text - , _cloudFrontCachePolicyCookiesConfigCookies :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON CloudFrontCachePolicyCookiesConfig where - toJSON CloudFrontCachePolicyCookiesConfig{..} = - object $ - catMaybes - [ (Just . ("CookieBehavior",) . toJSON) _cloudFrontCachePolicyCookiesConfigCookieBehavior - , fmap (("Cookies",) . toJSON) _cloudFrontCachePolicyCookiesConfigCookies - ] - --- | Constructor for 'CloudFrontCachePolicyCookiesConfig' containing required --- fields as arguments. -cloudFrontCachePolicyCookiesConfig - :: Val Text -- ^ 'cfcpccCookieBehavior' - -> CloudFrontCachePolicyCookiesConfig -cloudFrontCachePolicyCookiesConfig cookieBehaviorarg = - CloudFrontCachePolicyCookiesConfig - { _cloudFrontCachePolicyCookiesConfigCookieBehavior = cookieBehaviorarg - , _cloudFrontCachePolicyCookiesConfigCookies = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachepolicy-cookiesconfig.html#cfn-cloudfront-cachepolicy-cookiesconfig-cookiebehavior -cfcpccCookieBehavior :: Lens' CloudFrontCachePolicyCookiesConfig (Val Text) -cfcpccCookieBehavior = lens _cloudFrontCachePolicyCookiesConfigCookieBehavior (\s a -> s { _cloudFrontCachePolicyCookiesConfigCookieBehavior = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachepolicy-cookiesconfig.html#cfn-cloudfront-cachepolicy-cookiesconfig-cookies -cfcpccCookies :: Lens' CloudFrontCachePolicyCookiesConfig (Maybe (ValList Text)) -cfcpccCookies = lens _cloudFrontCachePolicyCookiesConfigCookies (\s a -> s { _cloudFrontCachePolicyCookiesConfigCookies = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontCachePolicyHeadersConfig.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontCachePolicyHeadersConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontCachePolicyHeadersConfig.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachepolicy-headersconfig.html - -module Stratosphere.ResourceProperties.CloudFrontCachePolicyHeadersConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CloudFrontCachePolicyHeadersConfig. See --- 'cloudFrontCachePolicyHeadersConfig' for a more convenient constructor. -data CloudFrontCachePolicyHeadersConfig = - CloudFrontCachePolicyHeadersConfig - { _cloudFrontCachePolicyHeadersConfigHeaderBehavior :: Val Text - , _cloudFrontCachePolicyHeadersConfigHeaders :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON CloudFrontCachePolicyHeadersConfig where - toJSON CloudFrontCachePolicyHeadersConfig{..} = - object $ - catMaybes - [ (Just . ("HeaderBehavior",) . toJSON) _cloudFrontCachePolicyHeadersConfigHeaderBehavior - , fmap (("Headers",) . toJSON) _cloudFrontCachePolicyHeadersConfigHeaders - ] - --- | Constructor for 'CloudFrontCachePolicyHeadersConfig' containing required --- fields as arguments. -cloudFrontCachePolicyHeadersConfig - :: Val Text -- ^ 'cfcphcHeaderBehavior' - -> CloudFrontCachePolicyHeadersConfig -cloudFrontCachePolicyHeadersConfig headerBehaviorarg = - CloudFrontCachePolicyHeadersConfig - { _cloudFrontCachePolicyHeadersConfigHeaderBehavior = headerBehaviorarg - , _cloudFrontCachePolicyHeadersConfigHeaders = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachepolicy-headersconfig.html#cfn-cloudfront-cachepolicy-headersconfig-headerbehavior -cfcphcHeaderBehavior :: Lens' CloudFrontCachePolicyHeadersConfig (Val Text) -cfcphcHeaderBehavior = lens _cloudFrontCachePolicyHeadersConfigHeaderBehavior (\s a -> s { _cloudFrontCachePolicyHeadersConfigHeaderBehavior = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachepolicy-headersconfig.html#cfn-cloudfront-cachepolicy-headersconfig-headers -cfcphcHeaders :: Lens' CloudFrontCachePolicyHeadersConfig (Maybe (ValList Text)) -cfcphcHeaders = lens _cloudFrontCachePolicyHeadersConfigHeaders (\s a -> s { _cloudFrontCachePolicyHeadersConfigHeaders = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontCachePolicyParametersInCacheKeyAndForwardedToOrigin.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontCachePolicyParametersInCacheKeyAndForwardedToOrigin.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontCachePolicyParametersInCacheKeyAndForwardedToOrigin.hs +++ /dev/null @@ -1,68 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachepolicy-parametersincachekeyandforwardedtoorigin.html - -module Stratosphere.ResourceProperties.CloudFrontCachePolicyParametersInCacheKeyAndForwardedToOrigin where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CloudFrontCachePolicyCookiesConfig -import Stratosphere.ResourceProperties.CloudFrontCachePolicyHeadersConfig -import Stratosphere.ResourceProperties.CloudFrontCachePolicyQueryStringsConfig - --- | Full data type definition for --- CloudFrontCachePolicyParametersInCacheKeyAndForwardedToOrigin. See --- 'cloudFrontCachePolicyParametersInCacheKeyAndForwardedToOrigin' for a --- more convenient constructor. -data CloudFrontCachePolicyParametersInCacheKeyAndForwardedToOrigin = - CloudFrontCachePolicyParametersInCacheKeyAndForwardedToOrigin - { _cloudFrontCachePolicyParametersInCacheKeyAndForwardedToOriginCookiesConfig :: CloudFrontCachePolicyCookiesConfig - , _cloudFrontCachePolicyParametersInCacheKeyAndForwardedToOriginEnableAcceptEncodingGzip :: Val Bool - , _cloudFrontCachePolicyParametersInCacheKeyAndForwardedToOriginHeadersConfig :: CloudFrontCachePolicyHeadersConfig - , _cloudFrontCachePolicyParametersInCacheKeyAndForwardedToOriginQueryStringsConfig :: CloudFrontCachePolicyQueryStringsConfig - } deriving (Show, Eq) - -instance ToJSON CloudFrontCachePolicyParametersInCacheKeyAndForwardedToOrigin where - toJSON CloudFrontCachePolicyParametersInCacheKeyAndForwardedToOrigin{..} = - object $ - catMaybes - [ (Just . ("CookiesConfig",) . toJSON) _cloudFrontCachePolicyParametersInCacheKeyAndForwardedToOriginCookiesConfig - , (Just . ("EnableAcceptEncodingGzip",) . toJSON) _cloudFrontCachePolicyParametersInCacheKeyAndForwardedToOriginEnableAcceptEncodingGzip - , (Just . ("HeadersConfig",) . toJSON) _cloudFrontCachePolicyParametersInCacheKeyAndForwardedToOriginHeadersConfig - , (Just . ("QueryStringsConfig",) . toJSON) _cloudFrontCachePolicyParametersInCacheKeyAndForwardedToOriginQueryStringsConfig - ] - --- | Constructor for --- 'CloudFrontCachePolicyParametersInCacheKeyAndForwardedToOrigin' --- containing required fields as arguments. -cloudFrontCachePolicyParametersInCacheKeyAndForwardedToOrigin - :: CloudFrontCachePolicyCookiesConfig -- ^ 'cfcppickaftoCookiesConfig' - -> Val Bool -- ^ 'cfcppickaftoEnableAcceptEncodingGzip' - -> CloudFrontCachePolicyHeadersConfig -- ^ 'cfcppickaftoHeadersConfig' - -> CloudFrontCachePolicyQueryStringsConfig -- ^ 'cfcppickaftoQueryStringsConfig' - -> CloudFrontCachePolicyParametersInCacheKeyAndForwardedToOrigin -cloudFrontCachePolicyParametersInCacheKeyAndForwardedToOrigin cookiesConfigarg enableAcceptEncodingGziparg headersConfigarg queryStringsConfigarg = - CloudFrontCachePolicyParametersInCacheKeyAndForwardedToOrigin - { _cloudFrontCachePolicyParametersInCacheKeyAndForwardedToOriginCookiesConfig = cookiesConfigarg - , _cloudFrontCachePolicyParametersInCacheKeyAndForwardedToOriginEnableAcceptEncodingGzip = enableAcceptEncodingGziparg - , _cloudFrontCachePolicyParametersInCacheKeyAndForwardedToOriginHeadersConfig = headersConfigarg - , _cloudFrontCachePolicyParametersInCacheKeyAndForwardedToOriginQueryStringsConfig = queryStringsConfigarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachepolicy-parametersincachekeyandforwardedtoorigin.html#cfn-cloudfront-cachepolicy-parametersincachekeyandforwardedtoorigin-cookiesconfig -cfcppickaftoCookiesConfig :: Lens' CloudFrontCachePolicyParametersInCacheKeyAndForwardedToOrigin CloudFrontCachePolicyCookiesConfig -cfcppickaftoCookiesConfig = lens _cloudFrontCachePolicyParametersInCacheKeyAndForwardedToOriginCookiesConfig (\s a -> s { _cloudFrontCachePolicyParametersInCacheKeyAndForwardedToOriginCookiesConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachepolicy-parametersincachekeyandforwardedtoorigin.html#cfn-cloudfront-cachepolicy-parametersincachekeyandforwardedtoorigin-enableacceptencodinggzip -cfcppickaftoEnableAcceptEncodingGzip :: Lens' CloudFrontCachePolicyParametersInCacheKeyAndForwardedToOrigin (Val Bool) -cfcppickaftoEnableAcceptEncodingGzip = lens _cloudFrontCachePolicyParametersInCacheKeyAndForwardedToOriginEnableAcceptEncodingGzip (\s a -> s { _cloudFrontCachePolicyParametersInCacheKeyAndForwardedToOriginEnableAcceptEncodingGzip = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachepolicy-parametersincachekeyandforwardedtoorigin.html#cfn-cloudfront-cachepolicy-parametersincachekeyandforwardedtoorigin-headersconfig -cfcppickaftoHeadersConfig :: Lens' CloudFrontCachePolicyParametersInCacheKeyAndForwardedToOrigin CloudFrontCachePolicyHeadersConfig -cfcppickaftoHeadersConfig = lens _cloudFrontCachePolicyParametersInCacheKeyAndForwardedToOriginHeadersConfig (\s a -> s { _cloudFrontCachePolicyParametersInCacheKeyAndForwardedToOriginHeadersConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachepolicy-parametersincachekeyandforwardedtoorigin.html#cfn-cloudfront-cachepolicy-parametersincachekeyandforwardedtoorigin-querystringsconfig -cfcppickaftoQueryStringsConfig :: Lens' CloudFrontCachePolicyParametersInCacheKeyAndForwardedToOrigin CloudFrontCachePolicyQueryStringsConfig -cfcppickaftoQueryStringsConfig = lens _cloudFrontCachePolicyParametersInCacheKeyAndForwardedToOriginQueryStringsConfig (\s a -> s { _cloudFrontCachePolicyParametersInCacheKeyAndForwardedToOriginQueryStringsConfig = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontCachePolicyQueryStringsConfig.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontCachePolicyQueryStringsConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontCachePolicyQueryStringsConfig.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachepolicy-querystringsconfig.html - -module Stratosphere.ResourceProperties.CloudFrontCachePolicyQueryStringsConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CloudFrontCachePolicyQueryStringsConfig. --- See 'cloudFrontCachePolicyQueryStringsConfig' for a more convenient --- constructor. -data CloudFrontCachePolicyQueryStringsConfig = - CloudFrontCachePolicyQueryStringsConfig - { _cloudFrontCachePolicyQueryStringsConfigQueryStringBehavior :: Val Text - , _cloudFrontCachePolicyQueryStringsConfigQueryStrings :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON CloudFrontCachePolicyQueryStringsConfig where - toJSON CloudFrontCachePolicyQueryStringsConfig{..} = - object $ - catMaybes - [ (Just . ("QueryStringBehavior",) . toJSON) _cloudFrontCachePolicyQueryStringsConfigQueryStringBehavior - , fmap (("QueryStrings",) . toJSON) _cloudFrontCachePolicyQueryStringsConfigQueryStrings - ] - --- | Constructor for 'CloudFrontCachePolicyQueryStringsConfig' containing --- required fields as arguments. -cloudFrontCachePolicyQueryStringsConfig - :: Val Text -- ^ 'cfcpqscQueryStringBehavior' - -> CloudFrontCachePolicyQueryStringsConfig -cloudFrontCachePolicyQueryStringsConfig queryStringBehaviorarg = - CloudFrontCachePolicyQueryStringsConfig - { _cloudFrontCachePolicyQueryStringsConfigQueryStringBehavior = queryStringBehaviorarg - , _cloudFrontCachePolicyQueryStringsConfigQueryStrings = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachepolicy-querystringsconfig.html#cfn-cloudfront-cachepolicy-querystringsconfig-querystringbehavior -cfcpqscQueryStringBehavior :: Lens' CloudFrontCachePolicyQueryStringsConfig (Val Text) -cfcpqscQueryStringBehavior = lens _cloudFrontCachePolicyQueryStringsConfigQueryStringBehavior (\s a -> s { _cloudFrontCachePolicyQueryStringsConfigQueryStringBehavior = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cachepolicy-querystringsconfig.html#cfn-cloudfront-cachepolicy-querystringsconfig-querystrings -cfcpqscQueryStrings :: Lens' CloudFrontCachePolicyQueryStringsConfig (Maybe (ValList Text)) -cfcpqscQueryStrings = lens _cloudFrontCachePolicyQueryStringsConfigQueryStrings (\s a -> s { _cloudFrontCachePolicyQueryStringsConfigQueryStrings = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig.hs +++ /dev/null @@ -1,43 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cloudfrontoriginaccessidentity-cloudfrontoriginaccessidentityconfig.html - -module Stratosphere.ResourceProperties.CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig. --- See --- 'cloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig' --- for a more convenient constructor. -data CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig = - CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig - { _cloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfigComment :: Val Text - } deriving (Show, Eq) - -instance ToJSON CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig where - toJSON CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig{..} = - object $ - catMaybes - [ (Just . ("Comment",) . toJSON) _cloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfigComment - ] - --- | Constructor for --- 'CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig' --- containing required fields as arguments. -cloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig - :: Val Text -- ^ 'cfcfoaicfoaicComment' - -> CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig -cloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig commentarg = - CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig - { _cloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfigComment = commentarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-cloudfrontoriginaccessidentity-cloudfrontoriginaccessidentityconfig.html#cfn-cloudfront-cloudfrontoriginaccessidentity-cloudfrontoriginaccessidentityconfig-comment -cfcfoaicfoaicComment :: Lens' CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig (Val Text) -cfcfoaicfoaicComment = lens _cloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfigComment (\s a -> s { _cloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfigComment = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionCacheBehavior.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionCacheBehavior.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionCacheBehavior.hs +++ /dev/null @@ -1,154 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html - -module Stratosphere.ResourceProperties.CloudFrontDistributionCacheBehavior where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CloudFrontDistributionForwardedValues -import Stratosphere.ResourceProperties.CloudFrontDistributionLambdaFunctionAssociation - --- | Full data type definition for CloudFrontDistributionCacheBehavior. See --- 'cloudFrontDistributionCacheBehavior' for a more convenient constructor. -data CloudFrontDistributionCacheBehavior = - CloudFrontDistributionCacheBehavior - { _cloudFrontDistributionCacheBehaviorAllowedMethods :: Maybe (ValList Text) - , _cloudFrontDistributionCacheBehaviorCachePolicyId :: Maybe (Val Text) - , _cloudFrontDistributionCacheBehaviorCachedMethods :: Maybe (ValList Text) - , _cloudFrontDistributionCacheBehaviorCompress :: Maybe (Val Bool) - , _cloudFrontDistributionCacheBehaviorDefaultTTL :: Maybe (Val Double) - , _cloudFrontDistributionCacheBehaviorFieldLevelEncryptionId :: Maybe (Val Text) - , _cloudFrontDistributionCacheBehaviorForwardedValues :: Maybe CloudFrontDistributionForwardedValues - , _cloudFrontDistributionCacheBehaviorLambdaFunctionAssociations :: Maybe [CloudFrontDistributionLambdaFunctionAssociation] - , _cloudFrontDistributionCacheBehaviorMaxTTL :: Maybe (Val Double) - , _cloudFrontDistributionCacheBehaviorMinTTL :: Maybe (Val Double) - , _cloudFrontDistributionCacheBehaviorOriginRequestPolicyId :: Maybe (Val Text) - , _cloudFrontDistributionCacheBehaviorPathPattern :: Val Text - , _cloudFrontDistributionCacheBehaviorRealtimeLogConfigArn :: Maybe (Val Text) - , _cloudFrontDistributionCacheBehaviorSmoothStreaming :: Maybe (Val Bool) - , _cloudFrontDistributionCacheBehaviorTargetOriginId :: Val Text - , _cloudFrontDistributionCacheBehaviorTrustedSigners :: Maybe (ValList Text) - , _cloudFrontDistributionCacheBehaviorViewerProtocolPolicy :: Val Text - } deriving (Show, Eq) - -instance ToJSON CloudFrontDistributionCacheBehavior where - toJSON CloudFrontDistributionCacheBehavior{..} = - object $ - catMaybes - [ fmap (("AllowedMethods",) . toJSON) _cloudFrontDistributionCacheBehaviorAllowedMethods - , fmap (("CachePolicyId",) . toJSON) _cloudFrontDistributionCacheBehaviorCachePolicyId - , fmap (("CachedMethods",) . toJSON) _cloudFrontDistributionCacheBehaviorCachedMethods - , fmap (("Compress",) . toJSON) _cloudFrontDistributionCacheBehaviorCompress - , fmap (("DefaultTTL",) . toJSON) _cloudFrontDistributionCacheBehaviorDefaultTTL - , fmap (("FieldLevelEncryptionId",) . toJSON) _cloudFrontDistributionCacheBehaviorFieldLevelEncryptionId - , fmap (("ForwardedValues",) . toJSON) _cloudFrontDistributionCacheBehaviorForwardedValues - , fmap (("LambdaFunctionAssociations",) . toJSON) _cloudFrontDistributionCacheBehaviorLambdaFunctionAssociations - , fmap (("MaxTTL",) . toJSON) _cloudFrontDistributionCacheBehaviorMaxTTL - , fmap (("MinTTL",) . toJSON) _cloudFrontDistributionCacheBehaviorMinTTL - , fmap (("OriginRequestPolicyId",) . toJSON) _cloudFrontDistributionCacheBehaviorOriginRequestPolicyId - , (Just . ("PathPattern",) . toJSON) _cloudFrontDistributionCacheBehaviorPathPattern - , fmap (("RealtimeLogConfigArn",) . toJSON) _cloudFrontDistributionCacheBehaviorRealtimeLogConfigArn - , fmap (("SmoothStreaming",) . toJSON) _cloudFrontDistributionCacheBehaviorSmoothStreaming - , (Just . ("TargetOriginId",) . toJSON) _cloudFrontDistributionCacheBehaviorTargetOriginId - , fmap (("TrustedSigners",) . toJSON) _cloudFrontDistributionCacheBehaviorTrustedSigners - , (Just . ("ViewerProtocolPolicy",) . toJSON) _cloudFrontDistributionCacheBehaviorViewerProtocolPolicy - ] - --- | Constructor for 'CloudFrontDistributionCacheBehavior' containing required --- fields as arguments. -cloudFrontDistributionCacheBehavior - :: Val Text -- ^ 'cfdcbPathPattern' - -> Val Text -- ^ 'cfdcbTargetOriginId' - -> Val Text -- ^ 'cfdcbViewerProtocolPolicy' - -> CloudFrontDistributionCacheBehavior -cloudFrontDistributionCacheBehavior pathPatternarg targetOriginIdarg viewerProtocolPolicyarg = - CloudFrontDistributionCacheBehavior - { _cloudFrontDistributionCacheBehaviorAllowedMethods = Nothing - , _cloudFrontDistributionCacheBehaviorCachePolicyId = Nothing - , _cloudFrontDistributionCacheBehaviorCachedMethods = Nothing - , _cloudFrontDistributionCacheBehaviorCompress = Nothing - , _cloudFrontDistributionCacheBehaviorDefaultTTL = Nothing - , _cloudFrontDistributionCacheBehaviorFieldLevelEncryptionId = Nothing - , _cloudFrontDistributionCacheBehaviorForwardedValues = Nothing - , _cloudFrontDistributionCacheBehaviorLambdaFunctionAssociations = Nothing - , _cloudFrontDistributionCacheBehaviorMaxTTL = Nothing - , _cloudFrontDistributionCacheBehaviorMinTTL = Nothing - , _cloudFrontDistributionCacheBehaviorOriginRequestPolicyId = Nothing - , _cloudFrontDistributionCacheBehaviorPathPattern = pathPatternarg - , _cloudFrontDistributionCacheBehaviorRealtimeLogConfigArn = Nothing - , _cloudFrontDistributionCacheBehaviorSmoothStreaming = Nothing - , _cloudFrontDistributionCacheBehaviorTargetOriginId = targetOriginIdarg - , _cloudFrontDistributionCacheBehaviorTrustedSigners = Nothing - , _cloudFrontDistributionCacheBehaviorViewerProtocolPolicy = viewerProtocolPolicyarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-allowedmethods -cfdcbAllowedMethods :: Lens' CloudFrontDistributionCacheBehavior (Maybe (ValList Text)) -cfdcbAllowedMethods = lens _cloudFrontDistributionCacheBehaviorAllowedMethods (\s a -> s { _cloudFrontDistributionCacheBehaviorAllowedMethods = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-cachepolicyid -cfdcbCachePolicyId :: Lens' CloudFrontDistributionCacheBehavior (Maybe (Val Text)) -cfdcbCachePolicyId = lens _cloudFrontDistributionCacheBehaviorCachePolicyId (\s a -> s { _cloudFrontDistributionCacheBehaviorCachePolicyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-cachedmethods -cfdcbCachedMethods :: Lens' CloudFrontDistributionCacheBehavior (Maybe (ValList Text)) -cfdcbCachedMethods = lens _cloudFrontDistributionCacheBehaviorCachedMethods (\s a -> s { _cloudFrontDistributionCacheBehaviorCachedMethods = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-compress -cfdcbCompress :: Lens' CloudFrontDistributionCacheBehavior (Maybe (Val Bool)) -cfdcbCompress = lens _cloudFrontDistributionCacheBehaviorCompress (\s a -> s { _cloudFrontDistributionCacheBehaviorCompress = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-defaultttl -cfdcbDefaultTTL :: Lens' CloudFrontDistributionCacheBehavior (Maybe (Val Double)) -cfdcbDefaultTTL = lens _cloudFrontDistributionCacheBehaviorDefaultTTL (\s a -> s { _cloudFrontDistributionCacheBehaviorDefaultTTL = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-fieldlevelencryptionid -cfdcbFieldLevelEncryptionId :: Lens' CloudFrontDistributionCacheBehavior (Maybe (Val Text)) -cfdcbFieldLevelEncryptionId = lens _cloudFrontDistributionCacheBehaviorFieldLevelEncryptionId (\s a -> s { _cloudFrontDistributionCacheBehaviorFieldLevelEncryptionId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-forwardedvalues -cfdcbForwardedValues :: Lens' CloudFrontDistributionCacheBehavior (Maybe CloudFrontDistributionForwardedValues) -cfdcbForwardedValues = lens _cloudFrontDistributionCacheBehaviorForwardedValues (\s a -> s { _cloudFrontDistributionCacheBehaviorForwardedValues = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-lambdafunctionassociations -cfdcbLambdaFunctionAssociations :: Lens' CloudFrontDistributionCacheBehavior (Maybe [CloudFrontDistributionLambdaFunctionAssociation]) -cfdcbLambdaFunctionAssociations = lens _cloudFrontDistributionCacheBehaviorLambdaFunctionAssociations (\s a -> s { _cloudFrontDistributionCacheBehaviorLambdaFunctionAssociations = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-maxttl -cfdcbMaxTTL :: Lens' CloudFrontDistributionCacheBehavior (Maybe (Val Double)) -cfdcbMaxTTL = lens _cloudFrontDistributionCacheBehaviorMaxTTL (\s a -> s { _cloudFrontDistributionCacheBehaviorMaxTTL = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-minttl -cfdcbMinTTL :: Lens' CloudFrontDistributionCacheBehavior (Maybe (Val Double)) -cfdcbMinTTL = lens _cloudFrontDistributionCacheBehaviorMinTTL (\s a -> s { _cloudFrontDistributionCacheBehaviorMinTTL = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-originrequestpolicyid -cfdcbOriginRequestPolicyId :: Lens' CloudFrontDistributionCacheBehavior (Maybe (Val Text)) -cfdcbOriginRequestPolicyId = lens _cloudFrontDistributionCacheBehaviorOriginRequestPolicyId (\s a -> s { _cloudFrontDistributionCacheBehaviorOriginRequestPolicyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-pathpattern -cfdcbPathPattern :: Lens' CloudFrontDistributionCacheBehavior (Val Text) -cfdcbPathPattern = lens _cloudFrontDistributionCacheBehaviorPathPattern (\s a -> s { _cloudFrontDistributionCacheBehaviorPathPattern = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-realtimelogconfigarn -cfdcbRealtimeLogConfigArn :: Lens' CloudFrontDistributionCacheBehavior (Maybe (Val Text)) -cfdcbRealtimeLogConfigArn = lens _cloudFrontDistributionCacheBehaviorRealtimeLogConfigArn (\s a -> s { _cloudFrontDistributionCacheBehaviorRealtimeLogConfigArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-smoothstreaming -cfdcbSmoothStreaming :: Lens' CloudFrontDistributionCacheBehavior (Maybe (Val Bool)) -cfdcbSmoothStreaming = lens _cloudFrontDistributionCacheBehaviorSmoothStreaming (\s a -> s { _cloudFrontDistributionCacheBehaviorSmoothStreaming = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-targetoriginid -cfdcbTargetOriginId :: Lens' CloudFrontDistributionCacheBehavior (Val Text) -cfdcbTargetOriginId = lens _cloudFrontDistributionCacheBehaviorTargetOriginId (\s a -> s { _cloudFrontDistributionCacheBehaviorTargetOriginId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-trustedsigners -cfdcbTrustedSigners :: Lens' CloudFrontDistributionCacheBehavior (Maybe (ValList Text)) -cfdcbTrustedSigners = lens _cloudFrontDistributionCacheBehaviorTrustedSigners (\s a -> s { _cloudFrontDistributionCacheBehaviorTrustedSigners = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cachebehavior.html#cfn-cloudfront-distribution-cachebehavior-viewerprotocolpolicy -cfdcbViewerProtocolPolicy :: Lens' CloudFrontDistributionCacheBehavior (Val Text) -cfdcbViewerProtocolPolicy = lens _cloudFrontDistributionCacheBehaviorViewerProtocolPolicy (\s a -> s { _cloudFrontDistributionCacheBehaviorViewerProtocolPolicy = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionCookies.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionCookies.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionCookies.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cookies.html - -module Stratosphere.ResourceProperties.CloudFrontDistributionCookies where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CloudFrontDistributionCookies. See --- 'cloudFrontDistributionCookies' for a more convenient constructor. -data CloudFrontDistributionCookies = - CloudFrontDistributionCookies - { _cloudFrontDistributionCookiesForward :: Val Text - , _cloudFrontDistributionCookiesWhitelistedNames :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON CloudFrontDistributionCookies where - toJSON CloudFrontDistributionCookies{..} = - object $ - catMaybes - [ (Just . ("Forward",) . toJSON) _cloudFrontDistributionCookiesForward - , fmap (("WhitelistedNames",) . toJSON) _cloudFrontDistributionCookiesWhitelistedNames - ] - --- | Constructor for 'CloudFrontDistributionCookies' containing required --- fields as arguments. -cloudFrontDistributionCookies - :: Val Text -- ^ 'cfdcForward' - -> CloudFrontDistributionCookies -cloudFrontDistributionCookies forwardarg = - CloudFrontDistributionCookies - { _cloudFrontDistributionCookiesForward = forwardarg - , _cloudFrontDistributionCookiesWhitelistedNames = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cookies.html#cfn-cloudfront-distribution-cookies-forward -cfdcForward :: Lens' CloudFrontDistributionCookies (Val Text) -cfdcForward = lens _cloudFrontDistributionCookiesForward (\s a -> s { _cloudFrontDistributionCookiesForward = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-cookies.html#cfn-cloudfront-distribution-cookies-whitelistednames -cfdcWhitelistedNames :: Lens' CloudFrontDistributionCookies (Maybe (ValList Text)) -cfdcWhitelistedNames = lens _cloudFrontDistributionCookiesWhitelistedNames (\s a -> s { _cloudFrontDistributionCookiesWhitelistedNames = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionCustomErrorResponse.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionCustomErrorResponse.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionCustomErrorResponse.hs +++ /dev/null @@ -1,61 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-customerrorresponse.html - -module Stratosphere.ResourceProperties.CloudFrontDistributionCustomErrorResponse where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CloudFrontDistributionCustomErrorResponse. --- See 'cloudFrontDistributionCustomErrorResponse' for a more convenient --- constructor. -data CloudFrontDistributionCustomErrorResponse = - CloudFrontDistributionCustomErrorResponse - { _cloudFrontDistributionCustomErrorResponseErrorCachingMinTTL :: Maybe (Val Double) - , _cloudFrontDistributionCustomErrorResponseErrorCode :: Val Integer - , _cloudFrontDistributionCustomErrorResponseResponseCode :: Maybe (Val Integer) - , _cloudFrontDistributionCustomErrorResponseResponsePagePath :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CloudFrontDistributionCustomErrorResponse where - toJSON CloudFrontDistributionCustomErrorResponse{..} = - object $ - catMaybes - [ fmap (("ErrorCachingMinTTL",) . toJSON) _cloudFrontDistributionCustomErrorResponseErrorCachingMinTTL - , (Just . ("ErrorCode",) . toJSON) _cloudFrontDistributionCustomErrorResponseErrorCode - , fmap (("ResponseCode",) . toJSON) _cloudFrontDistributionCustomErrorResponseResponseCode - , fmap (("ResponsePagePath",) . toJSON) _cloudFrontDistributionCustomErrorResponseResponsePagePath - ] - --- | Constructor for 'CloudFrontDistributionCustomErrorResponse' containing --- required fields as arguments. -cloudFrontDistributionCustomErrorResponse - :: Val Integer -- ^ 'cfdcerErrorCode' - -> CloudFrontDistributionCustomErrorResponse -cloudFrontDistributionCustomErrorResponse errorCodearg = - CloudFrontDistributionCustomErrorResponse - { _cloudFrontDistributionCustomErrorResponseErrorCachingMinTTL = Nothing - , _cloudFrontDistributionCustomErrorResponseErrorCode = errorCodearg - , _cloudFrontDistributionCustomErrorResponseResponseCode = Nothing - , _cloudFrontDistributionCustomErrorResponseResponsePagePath = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-customerrorresponse.html#cfn-cloudfront-distribution-customerrorresponse-errorcachingminttl -cfdcerErrorCachingMinTTL :: Lens' CloudFrontDistributionCustomErrorResponse (Maybe (Val Double)) -cfdcerErrorCachingMinTTL = lens _cloudFrontDistributionCustomErrorResponseErrorCachingMinTTL (\s a -> s { _cloudFrontDistributionCustomErrorResponseErrorCachingMinTTL = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-customerrorresponse.html#cfn-cloudfront-distribution-customerrorresponse-errorcode -cfdcerErrorCode :: Lens' CloudFrontDistributionCustomErrorResponse (Val Integer) -cfdcerErrorCode = lens _cloudFrontDistributionCustomErrorResponseErrorCode (\s a -> s { _cloudFrontDistributionCustomErrorResponseErrorCode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-customerrorresponse.html#cfn-cloudfront-distribution-customerrorresponse-responsecode -cfdcerResponseCode :: Lens' CloudFrontDistributionCustomErrorResponse (Maybe (Val Integer)) -cfdcerResponseCode = lens _cloudFrontDistributionCustomErrorResponseResponseCode (\s a -> s { _cloudFrontDistributionCustomErrorResponseResponseCode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-customerrorresponse.html#cfn-cloudfront-distribution-customerrorresponse-responsepagepath -cfdcerResponsePagePath :: Lens' CloudFrontDistributionCustomErrorResponse (Maybe (Val Text)) -cfdcerResponsePagePath = lens _cloudFrontDistributionCustomErrorResponseResponsePagePath (\s a -> s { _cloudFrontDistributionCustomErrorResponseResponsePagePath = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionCustomOriginConfig.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionCustomOriginConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionCustomOriginConfig.hs +++ /dev/null @@ -1,75 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-customoriginconfig.html - -module Stratosphere.ResourceProperties.CloudFrontDistributionCustomOriginConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CloudFrontDistributionCustomOriginConfig. --- See 'cloudFrontDistributionCustomOriginConfig' for a more convenient --- constructor. -data CloudFrontDistributionCustomOriginConfig = - CloudFrontDistributionCustomOriginConfig - { _cloudFrontDistributionCustomOriginConfigHTTPPort :: Maybe (Val Integer) - , _cloudFrontDistributionCustomOriginConfigHTTPSPort :: Maybe (Val Integer) - , _cloudFrontDistributionCustomOriginConfigOriginKeepaliveTimeout :: Maybe (Val Integer) - , _cloudFrontDistributionCustomOriginConfigOriginProtocolPolicy :: Val Text - , _cloudFrontDistributionCustomOriginConfigOriginReadTimeout :: Maybe (Val Integer) - , _cloudFrontDistributionCustomOriginConfigOriginSSLProtocols :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON CloudFrontDistributionCustomOriginConfig where - toJSON CloudFrontDistributionCustomOriginConfig{..} = - object $ - catMaybes - [ fmap (("HTTPPort",) . toJSON) _cloudFrontDistributionCustomOriginConfigHTTPPort - , fmap (("HTTPSPort",) . toJSON) _cloudFrontDistributionCustomOriginConfigHTTPSPort - , fmap (("OriginKeepaliveTimeout",) . toJSON) _cloudFrontDistributionCustomOriginConfigOriginKeepaliveTimeout - , (Just . ("OriginProtocolPolicy",) . toJSON) _cloudFrontDistributionCustomOriginConfigOriginProtocolPolicy - , fmap (("OriginReadTimeout",) . toJSON) _cloudFrontDistributionCustomOriginConfigOriginReadTimeout - , fmap (("OriginSSLProtocols",) . toJSON) _cloudFrontDistributionCustomOriginConfigOriginSSLProtocols - ] - --- | Constructor for 'CloudFrontDistributionCustomOriginConfig' containing --- required fields as arguments. -cloudFrontDistributionCustomOriginConfig - :: Val Text -- ^ 'cfdcocOriginProtocolPolicy' - -> CloudFrontDistributionCustomOriginConfig -cloudFrontDistributionCustomOriginConfig originProtocolPolicyarg = - CloudFrontDistributionCustomOriginConfig - { _cloudFrontDistributionCustomOriginConfigHTTPPort = Nothing - , _cloudFrontDistributionCustomOriginConfigHTTPSPort = Nothing - , _cloudFrontDistributionCustomOriginConfigOriginKeepaliveTimeout = Nothing - , _cloudFrontDistributionCustomOriginConfigOriginProtocolPolicy = originProtocolPolicyarg - , _cloudFrontDistributionCustomOriginConfigOriginReadTimeout = Nothing - , _cloudFrontDistributionCustomOriginConfigOriginSSLProtocols = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-customoriginconfig.html#cfn-cloudfront-distribution-customoriginconfig-httpport -cfdcocHTTPPort :: Lens' CloudFrontDistributionCustomOriginConfig (Maybe (Val Integer)) -cfdcocHTTPPort = lens _cloudFrontDistributionCustomOriginConfigHTTPPort (\s a -> s { _cloudFrontDistributionCustomOriginConfigHTTPPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-customoriginconfig.html#cfn-cloudfront-distribution-customoriginconfig-httpsport -cfdcocHTTPSPort :: Lens' CloudFrontDistributionCustomOriginConfig (Maybe (Val Integer)) -cfdcocHTTPSPort = lens _cloudFrontDistributionCustomOriginConfigHTTPSPort (\s a -> s { _cloudFrontDistributionCustomOriginConfigHTTPSPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-customoriginconfig.html#cfn-cloudfront-distribution-customoriginconfig-originkeepalivetimeout -cfdcocOriginKeepaliveTimeout :: Lens' CloudFrontDistributionCustomOriginConfig (Maybe (Val Integer)) -cfdcocOriginKeepaliveTimeout = lens _cloudFrontDistributionCustomOriginConfigOriginKeepaliveTimeout (\s a -> s { _cloudFrontDistributionCustomOriginConfigOriginKeepaliveTimeout = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-customoriginconfig.html#cfn-cloudfront-distribution-customoriginconfig-originprotocolpolicy -cfdcocOriginProtocolPolicy :: Lens' CloudFrontDistributionCustomOriginConfig (Val Text) -cfdcocOriginProtocolPolicy = lens _cloudFrontDistributionCustomOriginConfigOriginProtocolPolicy (\s a -> s { _cloudFrontDistributionCustomOriginConfigOriginProtocolPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-customoriginconfig.html#cfn-cloudfront-distribution-customoriginconfig-originreadtimeout -cfdcocOriginReadTimeout :: Lens' CloudFrontDistributionCustomOriginConfig (Maybe (Val Integer)) -cfdcocOriginReadTimeout = lens _cloudFrontDistributionCustomOriginConfigOriginReadTimeout (\s a -> s { _cloudFrontDistributionCustomOriginConfigOriginReadTimeout = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-customoriginconfig.html#cfn-cloudfront-distribution-customoriginconfig-originsslprotocols -cfdcocOriginSSLProtocols :: Lens' CloudFrontDistributionCustomOriginConfig (Maybe (ValList Text)) -cfdcocOriginSSLProtocols = lens _cloudFrontDistributionCustomOriginConfigOriginSSLProtocols (\s a -> s { _cloudFrontDistributionCustomOriginConfigOriginSSLProtocols = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionDefaultCacheBehavior.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionDefaultCacheBehavior.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionDefaultCacheBehavior.hs +++ /dev/null @@ -1,147 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html - -module Stratosphere.ResourceProperties.CloudFrontDistributionDefaultCacheBehavior where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CloudFrontDistributionForwardedValues -import Stratosphere.ResourceProperties.CloudFrontDistributionLambdaFunctionAssociation - --- | Full data type definition for CloudFrontDistributionDefaultCacheBehavior. --- See 'cloudFrontDistributionDefaultCacheBehavior' for a more convenient --- constructor. -data CloudFrontDistributionDefaultCacheBehavior = - CloudFrontDistributionDefaultCacheBehavior - { _cloudFrontDistributionDefaultCacheBehaviorAllowedMethods :: Maybe (ValList Text) - , _cloudFrontDistributionDefaultCacheBehaviorCachePolicyId :: Maybe (Val Text) - , _cloudFrontDistributionDefaultCacheBehaviorCachedMethods :: Maybe (ValList Text) - , _cloudFrontDistributionDefaultCacheBehaviorCompress :: Maybe (Val Bool) - , _cloudFrontDistributionDefaultCacheBehaviorDefaultTTL :: Maybe (Val Double) - , _cloudFrontDistributionDefaultCacheBehaviorFieldLevelEncryptionId :: Maybe (Val Text) - , _cloudFrontDistributionDefaultCacheBehaviorForwardedValues :: Maybe CloudFrontDistributionForwardedValues - , _cloudFrontDistributionDefaultCacheBehaviorLambdaFunctionAssociations :: Maybe [CloudFrontDistributionLambdaFunctionAssociation] - , _cloudFrontDistributionDefaultCacheBehaviorMaxTTL :: Maybe (Val Double) - , _cloudFrontDistributionDefaultCacheBehaviorMinTTL :: Maybe (Val Double) - , _cloudFrontDistributionDefaultCacheBehaviorOriginRequestPolicyId :: Maybe (Val Text) - , _cloudFrontDistributionDefaultCacheBehaviorRealtimeLogConfigArn :: Maybe (Val Text) - , _cloudFrontDistributionDefaultCacheBehaviorSmoothStreaming :: Maybe (Val Bool) - , _cloudFrontDistributionDefaultCacheBehaviorTargetOriginId :: Val Text - , _cloudFrontDistributionDefaultCacheBehaviorTrustedSigners :: Maybe (ValList Text) - , _cloudFrontDistributionDefaultCacheBehaviorViewerProtocolPolicy :: Val Text - } deriving (Show, Eq) - -instance ToJSON CloudFrontDistributionDefaultCacheBehavior where - toJSON CloudFrontDistributionDefaultCacheBehavior{..} = - object $ - catMaybes - [ fmap (("AllowedMethods",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorAllowedMethods - , fmap (("CachePolicyId",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorCachePolicyId - , fmap (("CachedMethods",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorCachedMethods - , fmap (("Compress",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorCompress - , fmap (("DefaultTTL",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorDefaultTTL - , fmap (("FieldLevelEncryptionId",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorFieldLevelEncryptionId - , fmap (("ForwardedValues",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorForwardedValues - , fmap (("LambdaFunctionAssociations",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorLambdaFunctionAssociations - , fmap (("MaxTTL",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorMaxTTL - , fmap (("MinTTL",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorMinTTL - , fmap (("OriginRequestPolicyId",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorOriginRequestPolicyId - , fmap (("RealtimeLogConfigArn",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorRealtimeLogConfigArn - , fmap (("SmoothStreaming",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorSmoothStreaming - , (Just . ("TargetOriginId",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorTargetOriginId - , fmap (("TrustedSigners",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorTrustedSigners - , (Just . ("ViewerProtocolPolicy",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorViewerProtocolPolicy - ] - --- | Constructor for 'CloudFrontDistributionDefaultCacheBehavior' containing --- required fields as arguments. -cloudFrontDistributionDefaultCacheBehavior - :: Val Text -- ^ 'cfddcbTargetOriginId' - -> Val Text -- ^ 'cfddcbViewerProtocolPolicy' - -> CloudFrontDistributionDefaultCacheBehavior -cloudFrontDistributionDefaultCacheBehavior targetOriginIdarg viewerProtocolPolicyarg = - CloudFrontDistributionDefaultCacheBehavior - { _cloudFrontDistributionDefaultCacheBehaviorAllowedMethods = Nothing - , _cloudFrontDistributionDefaultCacheBehaviorCachePolicyId = Nothing - , _cloudFrontDistributionDefaultCacheBehaviorCachedMethods = Nothing - , _cloudFrontDistributionDefaultCacheBehaviorCompress = Nothing - , _cloudFrontDistributionDefaultCacheBehaviorDefaultTTL = Nothing - , _cloudFrontDistributionDefaultCacheBehaviorFieldLevelEncryptionId = Nothing - , _cloudFrontDistributionDefaultCacheBehaviorForwardedValues = Nothing - , _cloudFrontDistributionDefaultCacheBehaviorLambdaFunctionAssociations = Nothing - , _cloudFrontDistributionDefaultCacheBehaviorMaxTTL = Nothing - , _cloudFrontDistributionDefaultCacheBehaviorMinTTL = Nothing - , _cloudFrontDistributionDefaultCacheBehaviorOriginRequestPolicyId = Nothing - , _cloudFrontDistributionDefaultCacheBehaviorRealtimeLogConfigArn = Nothing - , _cloudFrontDistributionDefaultCacheBehaviorSmoothStreaming = Nothing - , _cloudFrontDistributionDefaultCacheBehaviorTargetOriginId = targetOriginIdarg - , _cloudFrontDistributionDefaultCacheBehaviorTrustedSigners = Nothing - , _cloudFrontDistributionDefaultCacheBehaviorViewerProtocolPolicy = viewerProtocolPolicyarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-allowedmethods -cfddcbAllowedMethods :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (ValList Text)) -cfddcbAllowedMethods = lens _cloudFrontDistributionDefaultCacheBehaviorAllowedMethods (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorAllowedMethods = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-cachepolicyid -cfddcbCachePolicyId :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (Val Text)) -cfddcbCachePolicyId = lens _cloudFrontDistributionDefaultCacheBehaviorCachePolicyId (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorCachePolicyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-cachedmethods -cfddcbCachedMethods :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (ValList Text)) -cfddcbCachedMethods = lens _cloudFrontDistributionDefaultCacheBehaviorCachedMethods (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorCachedMethods = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-compress -cfddcbCompress :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (Val Bool)) -cfddcbCompress = lens _cloudFrontDistributionDefaultCacheBehaviorCompress (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorCompress = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-defaultttl -cfddcbDefaultTTL :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (Val Double)) -cfddcbDefaultTTL = lens _cloudFrontDistributionDefaultCacheBehaviorDefaultTTL (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorDefaultTTL = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-fieldlevelencryptionid -cfddcbFieldLevelEncryptionId :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (Val Text)) -cfddcbFieldLevelEncryptionId = lens _cloudFrontDistributionDefaultCacheBehaviorFieldLevelEncryptionId (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorFieldLevelEncryptionId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-forwardedvalues -cfddcbForwardedValues :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe CloudFrontDistributionForwardedValues) -cfddcbForwardedValues = lens _cloudFrontDistributionDefaultCacheBehaviorForwardedValues (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorForwardedValues = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-lambdafunctionassociations -cfddcbLambdaFunctionAssociations :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe [CloudFrontDistributionLambdaFunctionAssociation]) -cfddcbLambdaFunctionAssociations = lens _cloudFrontDistributionDefaultCacheBehaviorLambdaFunctionAssociations (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorLambdaFunctionAssociations = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-maxttl -cfddcbMaxTTL :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (Val Double)) -cfddcbMaxTTL = lens _cloudFrontDistributionDefaultCacheBehaviorMaxTTL (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorMaxTTL = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-minttl -cfddcbMinTTL :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (Val Double)) -cfddcbMinTTL = lens _cloudFrontDistributionDefaultCacheBehaviorMinTTL (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorMinTTL = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-originrequestpolicyid -cfddcbOriginRequestPolicyId :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (Val Text)) -cfddcbOriginRequestPolicyId = lens _cloudFrontDistributionDefaultCacheBehaviorOriginRequestPolicyId (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorOriginRequestPolicyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-realtimelogconfigarn -cfddcbRealtimeLogConfigArn :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (Val Text)) -cfddcbRealtimeLogConfigArn = lens _cloudFrontDistributionDefaultCacheBehaviorRealtimeLogConfigArn (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorRealtimeLogConfigArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-smoothstreaming -cfddcbSmoothStreaming :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (Val Bool)) -cfddcbSmoothStreaming = lens _cloudFrontDistributionDefaultCacheBehaviorSmoothStreaming (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorSmoothStreaming = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-targetoriginid -cfddcbTargetOriginId :: Lens' CloudFrontDistributionDefaultCacheBehavior (Val Text) -cfddcbTargetOriginId = lens _cloudFrontDistributionDefaultCacheBehaviorTargetOriginId (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorTargetOriginId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-trustedsigners -cfddcbTrustedSigners :: Lens' CloudFrontDistributionDefaultCacheBehavior (Maybe (ValList Text)) -cfddcbTrustedSigners = lens _cloudFrontDistributionDefaultCacheBehaviorTrustedSigners (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorTrustedSigners = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-defaultcachebehavior.html#cfn-cloudfront-distribution-defaultcachebehavior-viewerprotocolpolicy -cfddcbViewerProtocolPolicy :: Lens' CloudFrontDistributionDefaultCacheBehavior (Val Text) -cfddcbViewerProtocolPolicy = lens _cloudFrontDistributionDefaultCacheBehaviorViewerProtocolPolicy (\s a -> s { _cloudFrontDistributionDefaultCacheBehaviorViewerProtocolPolicy = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionDistributionConfig.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionDistributionConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionDistributionConfig.hs +++ /dev/null @@ -1,152 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html - -module Stratosphere.ResourceProperties.CloudFrontDistributionDistributionConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CloudFrontDistributionCacheBehavior -import Stratosphere.ResourceProperties.CloudFrontDistributionCustomErrorResponse -import Stratosphere.ResourceProperties.CloudFrontDistributionDefaultCacheBehavior -import Stratosphere.ResourceProperties.CloudFrontDistributionLogging -import Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroups -import Stratosphere.ResourceProperties.CloudFrontDistributionOrigin -import Stratosphere.ResourceProperties.CloudFrontDistributionRestrictions -import Stratosphere.ResourceProperties.CloudFrontDistributionViewerCertificate - --- | Full data type definition for CloudFrontDistributionDistributionConfig. --- See 'cloudFrontDistributionDistributionConfig' for a more convenient --- constructor. -data CloudFrontDistributionDistributionConfig = - CloudFrontDistributionDistributionConfig - { _cloudFrontDistributionDistributionConfigAliases :: Maybe (ValList Text) - , _cloudFrontDistributionDistributionConfigCacheBehaviors :: Maybe [CloudFrontDistributionCacheBehavior] - , _cloudFrontDistributionDistributionConfigComment :: Maybe (Val Text) - , _cloudFrontDistributionDistributionConfigCustomErrorResponses :: Maybe [CloudFrontDistributionCustomErrorResponse] - , _cloudFrontDistributionDistributionConfigDefaultCacheBehavior :: Maybe CloudFrontDistributionDefaultCacheBehavior - , _cloudFrontDistributionDistributionConfigDefaultRootObject :: Maybe (Val Text) - , _cloudFrontDistributionDistributionConfigEnabled :: Val Bool - , _cloudFrontDistributionDistributionConfigHttpVersion :: Maybe (Val Text) - , _cloudFrontDistributionDistributionConfigIPV6Enabled :: Maybe (Val Bool) - , _cloudFrontDistributionDistributionConfigLogging :: Maybe CloudFrontDistributionLogging - , _cloudFrontDistributionDistributionConfigOriginGroups :: Maybe CloudFrontDistributionOriginGroups - , _cloudFrontDistributionDistributionConfigOrigins :: Maybe [CloudFrontDistributionOrigin] - , _cloudFrontDistributionDistributionConfigPriceClass :: Maybe (Val Text) - , _cloudFrontDistributionDistributionConfigRestrictions :: Maybe CloudFrontDistributionRestrictions - , _cloudFrontDistributionDistributionConfigViewerCertificate :: Maybe CloudFrontDistributionViewerCertificate - , _cloudFrontDistributionDistributionConfigWebACLId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CloudFrontDistributionDistributionConfig where - toJSON CloudFrontDistributionDistributionConfig{..} = - object $ - catMaybes - [ fmap (("Aliases",) . toJSON) _cloudFrontDistributionDistributionConfigAliases - , fmap (("CacheBehaviors",) . toJSON) _cloudFrontDistributionDistributionConfigCacheBehaviors - , fmap (("Comment",) . toJSON) _cloudFrontDistributionDistributionConfigComment - , fmap (("CustomErrorResponses",) . toJSON) _cloudFrontDistributionDistributionConfigCustomErrorResponses - , fmap (("DefaultCacheBehavior",) . toJSON) _cloudFrontDistributionDistributionConfigDefaultCacheBehavior - , fmap (("DefaultRootObject",) . toJSON) _cloudFrontDistributionDistributionConfigDefaultRootObject - , (Just . ("Enabled",) . toJSON) _cloudFrontDistributionDistributionConfigEnabled - , fmap (("HttpVersion",) . toJSON) _cloudFrontDistributionDistributionConfigHttpVersion - , fmap (("IPV6Enabled",) . toJSON) _cloudFrontDistributionDistributionConfigIPV6Enabled - , fmap (("Logging",) . toJSON) _cloudFrontDistributionDistributionConfigLogging - , fmap (("OriginGroups",) . toJSON) _cloudFrontDistributionDistributionConfigOriginGroups - , fmap (("Origins",) . toJSON) _cloudFrontDistributionDistributionConfigOrigins - , fmap (("PriceClass",) . toJSON) _cloudFrontDistributionDistributionConfigPriceClass - , fmap (("Restrictions",) . toJSON) _cloudFrontDistributionDistributionConfigRestrictions - , fmap (("ViewerCertificate",) . toJSON) _cloudFrontDistributionDistributionConfigViewerCertificate - , fmap (("WebACLId",) . toJSON) _cloudFrontDistributionDistributionConfigWebACLId - ] - --- | Constructor for 'CloudFrontDistributionDistributionConfig' containing --- required fields as arguments. -cloudFrontDistributionDistributionConfig - :: Val Bool -- ^ 'cfddcEnabled' - -> CloudFrontDistributionDistributionConfig -cloudFrontDistributionDistributionConfig enabledarg = - CloudFrontDistributionDistributionConfig - { _cloudFrontDistributionDistributionConfigAliases = Nothing - , _cloudFrontDistributionDistributionConfigCacheBehaviors = Nothing - , _cloudFrontDistributionDistributionConfigComment = Nothing - , _cloudFrontDistributionDistributionConfigCustomErrorResponses = Nothing - , _cloudFrontDistributionDistributionConfigDefaultCacheBehavior = Nothing - , _cloudFrontDistributionDistributionConfigDefaultRootObject = Nothing - , _cloudFrontDistributionDistributionConfigEnabled = enabledarg - , _cloudFrontDistributionDistributionConfigHttpVersion = Nothing - , _cloudFrontDistributionDistributionConfigIPV6Enabled = Nothing - , _cloudFrontDistributionDistributionConfigLogging = Nothing - , _cloudFrontDistributionDistributionConfigOriginGroups = Nothing - , _cloudFrontDistributionDistributionConfigOrigins = Nothing - , _cloudFrontDistributionDistributionConfigPriceClass = Nothing - , _cloudFrontDistributionDistributionConfigRestrictions = Nothing - , _cloudFrontDistributionDistributionConfigViewerCertificate = Nothing - , _cloudFrontDistributionDistributionConfigWebACLId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-aliases -cfddcAliases :: Lens' CloudFrontDistributionDistributionConfig (Maybe (ValList Text)) -cfddcAliases = lens _cloudFrontDistributionDistributionConfigAliases (\s a -> s { _cloudFrontDistributionDistributionConfigAliases = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-cachebehaviors -cfddcCacheBehaviors :: Lens' CloudFrontDistributionDistributionConfig (Maybe [CloudFrontDistributionCacheBehavior]) -cfddcCacheBehaviors = lens _cloudFrontDistributionDistributionConfigCacheBehaviors (\s a -> s { _cloudFrontDistributionDistributionConfigCacheBehaviors = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-comment -cfddcComment :: Lens' CloudFrontDistributionDistributionConfig (Maybe (Val Text)) -cfddcComment = lens _cloudFrontDistributionDistributionConfigComment (\s a -> s { _cloudFrontDistributionDistributionConfigComment = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-customerrorresponses -cfddcCustomErrorResponses :: Lens' CloudFrontDistributionDistributionConfig (Maybe [CloudFrontDistributionCustomErrorResponse]) -cfddcCustomErrorResponses = lens _cloudFrontDistributionDistributionConfigCustomErrorResponses (\s a -> s { _cloudFrontDistributionDistributionConfigCustomErrorResponses = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-defaultcachebehavior -cfddcDefaultCacheBehavior :: Lens' CloudFrontDistributionDistributionConfig (Maybe CloudFrontDistributionDefaultCacheBehavior) -cfddcDefaultCacheBehavior = lens _cloudFrontDistributionDistributionConfigDefaultCacheBehavior (\s a -> s { _cloudFrontDistributionDistributionConfigDefaultCacheBehavior = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-defaultrootobject -cfddcDefaultRootObject :: Lens' CloudFrontDistributionDistributionConfig (Maybe (Val Text)) -cfddcDefaultRootObject = lens _cloudFrontDistributionDistributionConfigDefaultRootObject (\s a -> s { _cloudFrontDistributionDistributionConfigDefaultRootObject = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-enabled -cfddcEnabled :: Lens' CloudFrontDistributionDistributionConfig (Val Bool) -cfddcEnabled = lens _cloudFrontDistributionDistributionConfigEnabled (\s a -> s { _cloudFrontDistributionDistributionConfigEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-httpversion -cfddcHttpVersion :: Lens' CloudFrontDistributionDistributionConfig (Maybe (Val Text)) -cfddcHttpVersion = lens _cloudFrontDistributionDistributionConfigHttpVersion (\s a -> s { _cloudFrontDistributionDistributionConfigHttpVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-ipv6enabled -cfddcIPV6Enabled :: Lens' CloudFrontDistributionDistributionConfig (Maybe (Val Bool)) -cfddcIPV6Enabled = lens _cloudFrontDistributionDistributionConfigIPV6Enabled (\s a -> s { _cloudFrontDistributionDistributionConfigIPV6Enabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-logging -cfddcLogging :: Lens' CloudFrontDistributionDistributionConfig (Maybe CloudFrontDistributionLogging) -cfddcLogging = lens _cloudFrontDistributionDistributionConfigLogging (\s a -> s { _cloudFrontDistributionDistributionConfigLogging = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-origingroups -cfddcOriginGroups :: Lens' CloudFrontDistributionDistributionConfig (Maybe CloudFrontDistributionOriginGroups) -cfddcOriginGroups = lens _cloudFrontDistributionDistributionConfigOriginGroups (\s a -> s { _cloudFrontDistributionDistributionConfigOriginGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-origins -cfddcOrigins :: Lens' CloudFrontDistributionDistributionConfig (Maybe [CloudFrontDistributionOrigin]) -cfddcOrigins = lens _cloudFrontDistributionDistributionConfigOrigins (\s a -> s { _cloudFrontDistributionDistributionConfigOrigins = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-priceclass -cfddcPriceClass :: Lens' CloudFrontDistributionDistributionConfig (Maybe (Val Text)) -cfddcPriceClass = lens _cloudFrontDistributionDistributionConfigPriceClass (\s a -> s { _cloudFrontDistributionDistributionConfigPriceClass = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-restrictions -cfddcRestrictions :: Lens' CloudFrontDistributionDistributionConfig (Maybe CloudFrontDistributionRestrictions) -cfddcRestrictions = lens _cloudFrontDistributionDistributionConfigRestrictions (\s a -> s { _cloudFrontDistributionDistributionConfigRestrictions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-viewercertificate -cfddcViewerCertificate :: Lens' CloudFrontDistributionDistributionConfig (Maybe CloudFrontDistributionViewerCertificate) -cfddcViewerCertificate = lens _cloudFrontDistributionDistributionConfigViewerCertificate (\s a -> s { _cloudFrontDistributionDistributionConfigViewerCertificate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-distributionconfig.html#cfn-cloudfront-distribution-distributionconfig-webaclid -cfddcWebACLId :: Lens' CloudFrontDistributionDistributionConfig (Maybe (Val Text)) -cfddcWebACLId = lens _cloudFrontDistributionDistributionConfigWebACLId (\s a -> s { _cloudFrontDistributionDistributionConfigWebACLId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionForwardedValues.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionForwardedValues.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionForwardedValues.hs +++ /dev/null @@ -1,61 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-forwardedvalues.html - -module Stratosphere.ResourceProperties.CloudFrontDistributionForwardedValues where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CloudFrontDistributionCookies - --- | Full data type definition for CloudFrontDistributionForwardedValues. See --- 'cloudFrontDistributionForwardedValues' for a more convenient --- constructor. -data CloudFrontDistributionForwardedValues = - CloudFrontDistributionForwardedValues - { _cloudFrontDistributionForwardedValuesCookies :: Maybe CloudFrontDistributionCookies - , _cloudFrontDistributionForwardedValuesHeaders :: Maybe (ValList Text) - , _cloudFrontDistributionForwardedValuesQueryString :: Val Bool - , _cloudFrontDistributionForwardedValuesQueryStringCacheKeys :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON CloudFrontDistributionForwardedValues where - toJSON CloudFrontDistributionForwardedValues{..} = - object $ - catMaybes - [ fmap (("Cookies",) . toJSON) _cloudFrontDistributionForwardedValuesCookies - , fmap (("Headers",) . toJSON) _cloudFrontDistributionForwardedValuesHeaders - , (Just . ("QueryString",) . toJSON) _cloudFrontDistributionForwardedValuesQueryString - , fmap (("QueryStringCacheKeys",) . toJSON) _cloudFrontDistributionForwardedValuesQueryStringCacheKeys - ] - --- | Constructor for 'CloudFrontDistributionForwardedValues' containing --- required fields as arguments. -cloudFrontDistributionForwardedValues - :: Val Bool -- ^ 'cfdfvQueryString' - -> CloudFrontDistributionForwardedValues -cloudFrontDistributionForwardedValues queryStringarg = - CloudFrontDistributionForwardedValues - { _cloudFrontDistributionForwardedValuesCookies = Nothing - , _cloudFrontDistributionForwardedValuesHeaders = Nothing - , _cloudFrontDistributionForwardedValuesQueryString = queryStringarg - , _cloudFrontDistributionForwardedValuesQueryStringCacheKeys = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-forwardedvalues.html#cfn-cloudfront-distribution-forwardedvalues-cookies -cfdfvCookies :: Lens' CloudFrontDistributionForwardedValues (Maybe CloudFrontDistributionCookies) -cfdfvCookies = lens _cloudFrontDistributionForwardedValuesCookies (\s a -> s { _cloudFrontDistributionForwardedValuesCookies = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-forwardedvalues.html#cfn-cloudfront-distribution-forwardedvalues-headers -cfdfvHeaders :: Lens' CloudFrontDistributionForwardedValues (Maybe (ValList Text)) -cfdfvHeaders = lens _cloudFrontDistributionForwardedValuesHeaders (\s a -> s { _cloudFrontDistributionForwardedValuesHeaders = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-forwardedvalues.html#cfn-cloudfront-distribution-forwardedvalues-querystring -cfdfvQueryString :: Lens' CloudFrontDistributionForwardedValues (Val Bool) -cfdfvQueryString = lens _cloudFrontDistributionForwardedValuesQueryString (\s a -> s { _cloudFrontDistributionForwardedValuesQueryString = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-forwardedvalues.html#cfn-cloudfront-distribution-forwardedvalues-querystringcachekeys -cfdfvQueryStringCacheKeys :: Lens' CloudFrontDistributionForwardedValues (Maybe (ValList Text)) -cfdfvQueryStringCacheKeys = lens _cloudFrontDistributionForwardedValuesQueryStringCacheKeys (\s a -> s { _cloudFrontDistributionForwardedValuesQueryStringCacheKeys = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionGeoRestriction.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionGeoRestriction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionGeoRestriction.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-georestriction.html - -module Stratosphere.ResourceProperties.CloudFrontDistributionGeoRestriction where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CloudFrontDistributionGeoRestriction. See --- 'cloudFrontDistributionGeoRestriction' for a more convenient constructor. -data CloudFrontDistributionGeoRestriction = - CloudFrontDistributionGeoRestriction - { _cloudFrontDistributionGeoRestrictionLocations :: Maybe (ValList Text) - , _cloudFrontDistributionGeoRestrictionRestrictionType :: Val Text - } deriving (Show, Eq) - -instance ToJSON CloudFrontDistributionGeoRestriction where - toJSON CloudFrontDistributionGeoRestriction{..} = - object $ - catMaybes - [ fmap (("Locations",) . toJSON) _cloudFrontDistributionGeoRestrictionLocations - , (Just . ("RestrictionType",) . toJSON) _cloudFrontDistributionGeoRestrictionRestrictionType - ] - --- | Constructor for 'CloudFrontDistributionGeoRestriction' containing --- required fields as arguments. -cloudFrontDistributionGeoRestriction - :: Val Text -- ^ 'cfdgrRestrictionType' - -> CloudFrontDistributionGeoRestriction -cloudFrontDistributionGeoRestriction restrictionTypearg = - CloudFrontDistributionGeoRestriction - { _cloudFrontDistributionGeoRestrictionLocations = Nothing - , _cloudFrontDistributionGeoRestrictionRestrictionType = restrictionTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-georestriction.html#cfn-cloudfront-distribution-georestriction-locations -cfdgrLocations :: Lens' CloudFrontDistributionGeoRestriction (Maybe (ValList Text)) -cfdgrLocations = lens _cloudFrontDistributionGeoRestrictionLocations (\s a -> s { _cloudFrontDistributionGeoRestrictionLocations = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-georestriction.html#cfn-cloudfront-distribution-georestriction-restrictiontype -cfdgrRestrictionType :: Lens' CloudFrontDistributionGeoRestriction (Val Text) -cfdgrRestrictionType = lens _cloudFrontDistributionGeoRestrictionRestrictionType (\s a -> s { _cloudFrontDistributionGeoRestrictionRestrictionType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionLambdaFunctionAssociation.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionLambdaFunctionAssociation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionLambdaFunctionAssociation.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-lambdafunctionassociation.html - -module Stratosphere.ResourceProperties.CloudFrontDistributionLambdaFunctionAssociation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- CloudFrontDistributionLambdaFunctionAssociation. See --- 'cloudFrontDistributionLambdaFunctionAssociation' for a more convenient --- constructor. -data CloudFrontDistributionLambdaFunctionAssociation = - CloudFrontDistributionLambdaFunctionAssociation - { _cloudFrontDistributionLambdaFunctionAssociationEventType :: Maybe (Val Text) - , _cloudFrontDistributionLambdaFunctionAssociationIncludeBody :: Maybe (Val Bool) - , _cloudFrontDistributionLambdaFunctionAssociationLambdaFunctionARN :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CloudFrontDistributionLambdaFunctionAssociation where - toJSON CloudFrontDistributionLambdaFunctionAssociation{..} = - object $ - catMaybes - [ fmap (("EventType",) . toJSON) _cloudFrontDistributionLambdaFunctionAssociationEventType - , fmap (("IncludeBody",) . toJSON) _cloudFrontDistributionLambdaFunctionAssociationIncludeBody - , fmap (("LambdaFunctionARN",) . toJSON) _cloudFrontDistributionLambdaFunctionAssociationLambdaFunctionARN - ] - --- | Constructor for 'CloudFrontDistributionLambdaFunctionAssociation' --- containing required fields as arguments. -cloudFrontDistributionLambdaFunctionAssociation - :: CloudFrontDistributionLambdaFunctionAssociation -cloudFrontDistributionLambdaFunctionAssociation = - CloudFrontDistributionLambdaFunctionAssociation - { _cloudFrontDistributionLambdaFunctionAssociationEventType = Nothing - , _cloudFrontDistributionLambdaFunctionAssociationIncludeBody = Nothing - , _cloudFrontDistributionLambdaFunctionAssociationLambdaFunctionARN = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-lambdafunctionassociation.html#cfn-cloudfront-distribution-lambdafunctionassociation-eventtype -cfdlfaEventType :: Lens' CloudFrontDistributionLambdaFunctionAssociation (Maybe (Val Text)) -cfdlfaEventType = lens _cloudFrontDistributionLambdaFunctionAssociationEventType (\s a -> s { _cloudFrontDistributionLambdaFunctionAssociationEventType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-lambdafunctionassociation.html#cfn-cloudfront-distribution-lambdafunctionassociation-includebody -cfdlfaIncludeBody :: Lens' CloudFrontDistributionLambdaFunctionAssociation (Maybe (Val Bool)) -cfdlfaIncludeBody = lens _cloudFrontDistributionLambdaFunctionAssociationIncludeBody (\s a -> s { _cloudFrontDistributionLambdaFunctionAssociationIncludeBody = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-lambdafunctionassociation.html#cfn-cloudfront-distribution-lambdafunctionassociation-lambdafunctionarn -cfdlfaLambdaFunctionARN :: Lens' CloudFrontDistributionLambdaFunctionAssociation (Maybe (Val Text)) -cfdlfaLambdaFunctionARN = lens _cloudFrontDistributionLambdaFunctionAssociationLambdaFunctionARN (\s a -> s { _cloudFrontDistributionLambdaFunctionAssociationLambdaFunctionARN = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionLogging.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionLogging.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionLogging.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-logging.html - -module Stratosphere.ResourceProperties.CloudFrontDistributionLogging where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CloudFrontDistributionLogging. See --- 'cloudFrontDistributionLogging' for a more convenient constructor. -data CloudFrontDistributionLogging = - CloudFrontDistributionLogging - { _cloudFrontDistributionLoggingBucket :: Val Text - , _cloudFrontDistributionLoggingIncludeCookies :: Maybe (Val Bool) - , _cloudFrontDistributionLoggingPrefix :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CloudFrontDistributionLogging where - toJSON CloudFrontDistributionLogging{..} = - object $ - catMaybes - [ (Just . ("Bucket",) . toJSON) _cloudFrontDistributionLoggingBucket - , fmap (("IncludeCookies",) . toJSON) _cloudFrontDistributionLoggingIncludeCookies - , fmap (("Prefix",) . toJSON) _cloudFrontDistributionLoggingPrefix - ] - --- | Constructor for 'CloudFrontDistributionLogging' containing required --- fields as arguments. -cloudFrontDistributionLogging - :: Val Text -- ^ 'cfdlBucket' - -> CloudFrontDistributionLogging -cloudFrontDistributionLogging bucketarg = - CloudFrontDistributionLogging - { _cloudFrontDistributionLoggingBucket = bucketarg - , _cloudFrontDistributionLoggingIncludeCookies = Nothing - , _cloudFrontDistributionLoggingPrefix = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-logging.html#cfn-cloudfront-distribution-logging-bucket -cfdlBucket :: Lens' CloudFrontDistributionLogging (Val Text) -cfdlBucket = lens _cloudFrontDistributionLoggingBucket (\s a -> s { _cloudFrontDistributionLoggingBucket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-logging.html#cfn-cloudfront-distribution-logging-includecookies -cfdlIncludeCookies :: Lens' CloudFrontDistributionLogging (Maybe (Val Bool)) -cfdlIncludeCookies = lens _cloudFrontDistributionLoggingIncludeCookies (\s a -> s { _cloudFrontDistributionLoggingIncludeCookies = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-logging.html#cfn-cloudfront-distribution-logging-prefix -cfdlPrefix :: Lens' CloudFrontDistributionLogging (Maybe (Val Text)) -cfdlPrefix = lens _cloudFrontDistributionLoggingPrefix (\s a -> s { _cloudFrontDistributionLoggingPrefix = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOrigin.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOrigin.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOrigin.hs +++ /dev/null @@ -1,91 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origin.html - -module Stratosphere.ResourceProperties.CloudFrontDistributionOrigin where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CloudFrontDistributionCustomOriginConfig -import Stratosphere.ResourceProperties.CloudFrontDistributionOriginCustomHeader -import Stratosphere.ResourceProperties.CloudFrontDistributionS3OriginConfig - --- | Full data type definition for CloudFrontDistributionOrigin. See --- 'cloudFrontDistributionOrigin' for a more convenient constructor. -data CloudFrontDistributionOrigin = - CloudFrontDistributionOrigin - { _cloudFrontDistributionOriginConnectionAttempts :: Maybe (Val Integer) - , _cloudFrontDistributionOriginConnectionTimeout :: Maybe (Val Integer) - , _cloudFrontDistributionOriginCustomOriginConfig :: Maybe CloudFrontDistributionCustomOriginConfig - , _cloudFrontDistributionOriginDomainName :: Val Text - , _cloudFrontDistributionOriginId :: Val Text - , _cloudFrontDistributionOriginOriginCustomHeaders :: Maybe [CloudFrontDistributionOriginCustomHeader] - , _cloudFrontDistributionOriginOriginPath :: Maybe (Val Text) - , _cloudFrontDistributionOriginS3OriginConfig :: Maybe CloudFrontDistributionS3OriginConfig - } deriving (Show, Eq) - -instance ToJSON CloudFrontDistributionOrigin where - toJSON CloudFrontDistributionOrigin{..} = - object $ - catMaybes - [ fmap (("ConnectionAttempts",) . toJSON) _cloudFrontDistributionOriginConnectionAttempts - , fmap (("ConnectionTimeout",) . toJSON) _cloudFrontDistributionOriginConnectionTimeout - , fmap (("CustomOriginConfig",) . toJSON) _cloudFrontDistributionOriginCustomOriginConfig - , (Just . ("DomainName",) . toJSON) _cloudFrontDistributionOriginDomainName - , (Just . ("Id",) . toJSON) _cloudFrontDistributionOriginId - , fmap (("OriginCustomHeaders",) . toJSON) _cloudFrontDistributionOriginOriginCustomHeaders - , fmap (("OriginPath",) . toJSON) _cloudFrontDistributionOriginOriginPath - , fmap (("S3OriginConfig",) . toJSON) _cloudFrontDistributionOriginS3OriginConfig - ] - --- | Constructor for 'CloudFrontDistributionOrigin' containing required fields --- as arguments. -cloudFrontDistributionOrigin - :: Val Text -- ^ 'cfdoDomainName' - -> Val Text -- ^ 'cfdoId' - -> CloudFrontDistributionOrigin -cloudFrontDistributionOrigin domainNamearg idarg = - CloudFrontDistributionOrigin - { _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) -cfdoCustomOriginConfig = lens _cloudFrontDistributionOriginCustomOriginConfig (\s a -> s { _cloudFrontDistributionOriginCustomOriginConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origin.html#cfn-cloudfront-distribution-origin-domainname -cfdoDomainName :: Lens' CloudFrontDistributionOrigin (Val Text) -cfdoDomainName = lens _cloudFrontDistributionOriginDomainName (\s a -> s { _cloudFrontDistributionOriginDomainName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origin.html#cfn-cloudfront-distribution-origin-id -cfdoId :: Lens' CloudFrontDistributionOrigin (Val Text) -cfdoId = lens _cloudFrontDistributionOriginId (\s a -> s { _cloudFrontDistributionOriginId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origin.html#cfn-cloudfront-distribution-origin-origincustomheaders -cfdoOriginCustomHeaders :: Lens' CloudFrontDistributionOrigin (Maybe [CloudFrontDistributionOriginCustomHeader]) -cfdoOriginCustomHeaders = lens _cloudFrontDistributionOriginOriginCustomHeaders (\s a -> s { _cloudFrontDistributionOriginOriginCustomHeaders = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origin.html#cfn-cloudfront-distribution-origin-originpath -cfdoOriginPath :: Lens' CloudFrontDistributionOrigin (Maybe (Val Text)) -cfdoOriginPath = lens _cloudFrontDistributionOriginOriginPath (\s a -> s { _cloudFrontDistributionOriginOriginPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origin.html#cfn-cloudfront-distribution-origin-s3originconfig -cfdoS3OriginConfig :: Lens' CloudFrontDistributionOrigin (Maybe CloudFrontDistributionS3OriginConfig) -cfdoS3OriginConfig = lens _cloudFrontDistributionOriginS3OriginConfig (\s a -> s { _cloudFrontDistributionOriginS3OriginConfig = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOriginCustomHeader.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOriginCustomHeader.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOriginCustomHeader.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origincustomheader.html - -module Stratosphere.ResourceProperties.CloudFrontDistributionOriginCustomHeader where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CloudFrontDistributionOriginCustomHeader. --- See 'cloudFrontDistributionOriginCustomHeader' for a more convenient --- constructor. -data CloudFrontDistributionOriginCustomHeader = - CloudFrontDistributionOriginCustomHeader - { _cloudFrontDistributionOriginCustomHeaderHeaderName :: Val Text - , _cloudFrontDistributionOriginCustomHeaderHeaderValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON CloudFrontDistributionOriginCustomHeader where - toJSON CloudFrontDistributionOriginCustomHeader{..} = - object $ - catMaybes - [ (Just . ("HeaderName",) . toJSON) _cloudFrontDistributionOriginCustomHeaderHeaderName - , (Just . ("HeaderValue",) . toJSON) _cloudFrontDistributionOriginCustomHeaderHeaderValue - ] - --- | Constructor for 'CloudFrontDistributionOriginCustomHeader' containing --- required fields as arguments. -cloudFrontDistributionOriginCustomHeader - :: Val Text -- ^ 'cfdochHeaderName' - -> Val Text -- ^ 'cfdochHeaderValue' - -> CloudFrontDistributionOriginCustomHeader -cloudFrontDistributionOriginCustomHeader headerNamearg headerValuearg = - CloudFrontDistributionOriginCustomHeader - { _cloudFrontDistributionOriginCustomHeaderHeaderName = headerNamearg - , _cloudFrontDistributionOriginCustomHeaderHeaderValue = headerValuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origincustomheader.html#cfn-cloudfront-distribution-origincustomheader-headername -cfdochHeaderName :: Lens' CloudFrontDistributionOriginCustomHeader (Val Text) -cfdochHeaderName = lens _cloudFrontDistributionOriginCustomHeaderHeaderName (\s a -> s { _cloudFrontDistributionOriginCustomHeaderHeaderName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origincustomheader.html#cfn-cloudfront-distribution-origincustomheader-headervalue -cfdochHeaderValue :: Lens' CloudFrontDistributionOriginCustomHeader (Val Text) -cfdochHeaderValue = lens _cloudFrontDistributionOriginCustomHeaderHeaderValue (\s a -> s { _cloudFrontDistributionOriginCustomHeaderHeaderValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOriginGroup.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOriginGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOriginGroup.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origingroup.html - -module Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroupFailoverCriteria -import Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroupMembers - --- | Full data type definition for CloudFrontDistributionOriginGroup. See --- 'cloudFrontDistributionOriginGroup' for a more convenient constructor. -data CloudFrontDistributionOriginGroup = - CloudFrontDistributionOriginGroup - { _cloudFrontDistributionOriginGroupFailoverCriteria :: CloudFrontDistributionOriginGroupFailoverCriteria - , _cloudFrontDistributionOriginGroupId :: Val Text - , _cloudFrontDistributionOriginGroupMembers :: CloudFrontDistributionOriginGroupMembers - } deriving (Show, Eq) - -instance ToJSON CloudFrontDistributionOriginGroup where - toJSON CloudFrontDistributionOriginGroup{..} = - object $ - catMaybes - [ (Just . ("FailoverCriteria",) . toJSON) _cloudFrontDistributionOriginGroupFailoverCriteria - , (Just . ("Id",) . toJSON) _cloudFrontDistributionOriginGroupId - , (Just . ("Members",) . toJSON) _cloudFrontDistributionOriginGroupMembers - ] - --- | Constructor for 'CloudFrontDistributionOriginGroup' containing required --- fields as arguments. -cloudFrontDistributionOriginGroup - :: CloudFrontDistributionOriginGroupFailoverCriteria -- ^ 'cfdogFailoverCriteria' - -> Val Text -- ^ 'cfdogId' - -> CloudFrontDistributionOriginGroupMembers -- ^ 'cfdogMembers' - -> CloudFrontDistributionOriginGroup -cloudFrontDistributionOriginGroup failoverCriteriaarg idarg membersarg = - CloudFrontDistributionOriginGroup - { _cloudFrontDistributionOriginGroupFailoverCriteria = failoverCriteriaarg - , _cloudFrontDistributionOriginGroupId = idarg - , _cloudFrontDistributionOriginGroupMembers = membersarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origingroup.html#cfn-cloudfront-distribution-origingroup-failovercriteria -cfdogFailoverCriteria :: Lens' CloudFrontDistributionOriginGroup CloudFrontDistributionOriginGroupFailoverCriteria -cfdogFailoverCriteria = lens _cloudFrontDistributionOriginGroupFailoverCriteria (\s a -> s { _cloudFrontDistributionOriginGroupFailoverCriteria = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origingroup.html#cfn-cloudfront-distribution-origingroup-id -cfdogId :: Lens' CloudFrontDistributionOriginGroup (Val Text) -cfdogId = lens _cloudFrontDistributionOriginGroupId (\s a -> s { _cloudFrontDistributionOriginGroupId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origingroup.html#cfn-cloudfront-distribution-origingroup-members -cfdogMembers :: Lens' CloudFrontDistributionOriginGroup CloudFrontDistributionOriginGroupMembers -cfdogMembers = lens _cloudFrontDistributionOriginGroupMembers (\s a -> s { _cloudFrontDistributionOriginGroupMembers = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOriginGroupFailoverCriteria.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOriginGroupFailoverCriteria.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOriginGroupFailoverCriteria.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origingroupfailovercriteria.html - -module Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroupFailoverCriteria where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CloudFrontDistributionStatusCodes - --- | Full data type definition for --- CloudFrontDistributionOriginGroupFailoverCriteria. See --- 'cloudFrontDistributionOriginGroupFailoverCriteria' for a more convenient --- constructor. -data CloudFrontDistributionOriginGroupFailoverCriteria = - CloudFrontDistributionOriginGroupFailoverCriteria - { _cloudFrontDistributionOriginGroupFailoverCriteriaStatusCodes :: CloudFrontDistributionStatusCodes - } deriving (Show, Eq) - -instance ToJSON CloudFrontDistributionOriginGroupFailoverCriteria where - toJSON CloudFrontDistributionOriginGroupFailoverCriteria{..} = - object $ - catMaybes - [ (Just . ("StatusCodes",) . toJSON) _cloudFrontDistributionOriginGroupFailoverCriteriaStatusCodes - ] - --- | Constructor for 'CloudFrontDistributionOriginGroupFailoverCriteria' --- containing required fields as arguments. -cloudFrontDistributionOriginGroupFailoverCriteria - :: CloudFrontDistributionStatusCodes -- ^ 'cfdogfcStatusCodes' - -> CloudFrontDistributionOriginGroupFailoverCriteria -cloudFrontDistributionOriginGroupFailoverCriteria statusCodesarg = - CloudFrontDistributionOriginGroupFailoverCriteria - { _cloudFrontDistributionOriginGroupFailoverCriteriaStatusCodes = statusCodesarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origingroupfailovercriteria.html#cfn-cloudfront-distribution-origingroupfailovercriteria-statuscodes -cfdogfcStatusCodes :: Lens' CloudFrontDistributionOriginGroupFailoverCriteria CloudFrontDistributionStatusCodes -cfdogfcStatusCodes = lens _cloudFrontDistributionOriginGroupFailoverCriteriaStatusCodes (\s a -> s { _cloudFrontDistributionOriginGroupFailoverCriteriaStatusCodes = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOriginGroupMember.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOriginGroupMember.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOriginGroupMember.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origingroupmember.html - -module Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroupMember where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CloudFrontDistributionOriginGroupMember. --- See 'cloudFrontDistributionOriginGroupMember' for a more convenient --- constructor. -data CloudFrontDistributionOriginGroupMember = - CloudFrontDistributionOriginGroupMember - { _cloudFrontDistributionOriginGroupMemberOriginId :: Val Text - } deriving (Show, Eq) - -instance ToJSON CloudFrontDistributionOriginGroupMember where - toJSON CloudFrontDistributionOriginGroupMember{..} = - object $ - catMaybes - [ (Just . ("OriginId",) . toJSON) _cloudFrontDistributionOriginGroupMemberOriginId - ] - --- | Constructor for 'CloudFrontDistributionOriginGroupMember' containing --- required fields as arguments. -cloudFrontDistributionOriginGroupMember - :: Val Text -- ^ 'cfdogmOriginId' - -> CloudFrontDistributionOriginGroupMember -cloudFrontDistributionOriginGroupMember originIdarg = - CloudFrontDistributionOriginGroupMember - { _cloudFrontDistributionOriginGroupMemberOriginId = originIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origingroupmember.html#cfn-cloudfront-distribution-origingroupmember-originid -cfdogmOriginId :: Lens' CloudFrontDistributionOriginGroupMember (Val Text) -cfdogmOriginId = lens _cloudFrontDistributionOriginGroupMemberOriginId (\s a -> s { _cloudFrontDistributionOriginGroupMemberOriginId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOriginGroupMembers.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOriginGroupMembers.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOriginGroupMembers.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origingroupmembers.html - -module Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroupMembers where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroupMember - --- | Full data type definition for CloudFrontDistributionOriginGroupMembers. --- See 'cloudFrontDistributionOriginGroupMembers' for a more convenient --- constructor. -data CloudFrontDistributionOriginGroupMembers = - CloudFrontDistributionOriginGroupMembers - { _cloudFrontDistributionOriginGroupMembersItems :: [CloudFrontDistributionOriginGroupMember] - , _cloudFrontDistributionOriginGroupMembersQuantity :: Val Integer - } deriving (Show, Eq) - -instance ToJSON CloudFrontDistributionOriginGroupMembers where - toJSON CloudFrontDistributionOriginGroupMembers{..} = - object $ - catMaybes - [ (Just . ("Items",) . toJSON) _cloudFrontDistributionOriginGroupMembersItems - , (Just . ("Quantity",) . toJSON) _cloudFrontDistributionOriginGroupMembersQuantity - ] - --- | Constructor for 'CloudFrontDistributionOriginGroupMembers' containing --- required fields as arguments. -cloudFrontDistributionOriginGroupMembers - :: [CloudFrontDistributionOriginGroupMember] -- ^ 'cfdogmItems' - -> Val Integer -- ^ 'cfdogmQuantity' - -> CloudFrontDistributionOriginGroupMembers -cloudFrontDistributionOriginGroupMembers itemsarg quantityarg = - CloudFrontDistributionOriginGroupMembers - { _cloudFrontDistributionOriginGroupMembersItems = itemsarg - , _cloudFrontDistributionOriginGroupMembersQuantity = quantityarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origingroupmembers.html#cfn-cloudfront-distribution-origingroupmembers-items -cfdogmItems :: Lens' CloudFrontDistributionOriginGroupMembers [CloudFrontDistributionOriginGroupMember] -cfdogmItems = lens _cloudFrontDistributionOriginGroupMembersItems (\s a -> s { _cloudFrontDistributionOriginGroupMembersItems = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origingroupmembers.html#cfn-cloudfront-distribution-origingroupmembers-quantity -cfdogmQuantity :: Lens' CloudFrontDistributionOriginGroupMembers (Val Integer) -cfdogmQuantity = lens _cloudFrontDistributionOriginGroupMembersQuantity (\s a -> s { _cloudFrontDistributionOriginGroupMembersQuantity = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOriginGroups.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOriginGroups.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOriginGroups.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origingroups.html - -module Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroups where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroup - --- | Full data type definition for CloudFrontDistributionOriginGroups. See --- 'cloudFrontDistributionOriginGroups' for a more convenient constructor. -data CloudFrontDistributionOriginGroups = - CloudFrontDistributionOriginGroups - { _cloudFrontDistributionOriginGroupsItems :: Maybe [CloudFrontDistributionOriginGroup] - , _cloudFrontDistributionOriginGroupsQuantity :: Val Integer - } deriving (Show, Eq) - -instance ToJSON CloudFrontDistributionOriginGroups where - toJSON CloudFrontDistributionOriginGroups{..} = - object $ - catMaybes - [ fmap (("Items",) . toJSON) _cloudFrontDistributionOriginGroupsItems - , (Just . ("Quantity",) . toJSON) _cloudFrontDistributionOriginGroupsQuantity - ] - --- | Constructor for 'CloudFrontDistributionOriginGroups' containing required --- fields as arguments. -cloudFrontDistributionOriginGroups - :: Val Integer -- ^ 'cfdogQuantity' - -> CloudFrontDistributionOriginGroups -cloudFrontDistributionOriginGroups quantityarg = - CloudFrontDistributionOriginGroups - { _cloudFrontDistributionOriginGroupsItems = Nothing - , _cloudFrontDistributionOriginGroupsQuantity = quantityarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origingroups.html#cfn-cloudfront-distribution-origingroups-items -cfdogItems :: Lens' CloudFrontDistributionOriginGroups (Maybe [CloudFrontDistributionOriginGroup]) -cfdogItems = lens _cloudFrontDistributionOriginGroupsItems (\s a -> s { _cloudFrontDistributionOriginGroupsItems = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origingroups.html#cfn-cloudfront-distribution-origingroups-quantity -cfdogQuantity :: Lens' CloudFrontDistributionOriginGroups (Val Integer) -cfdogQuantity = lens _cloudFrontDistributionOriginGroupsQuantity (\s a -> s { _cloudFrontDistributionOriginGroupsQuantity = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionRestrictions.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionRestrictions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionRestrictions.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-restrictions.html - -module Stratosphere.ResourceProperties.CloudFrontDistributionRestrictions where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CloudFrontDistributionGeoRestriction - --- | Full data type definition for CloudFrontDistributionRestrictions. See --- 'cloudFrontDistributionRestrictions' for a more convenient constructor. -data CloudFrontDistributionRestrictions = - CloudFrontDistributionRestrictions - { _cloudFrontDistributionRestrictionsGeoRestriction :: CloudFrontDistributionGeoRestriction - } deriving (Show, Eq) - -instance ToJSON CloudFrontDistributionRestrictions where - toJSON CloudFrontDistributionRestrictions{..} = - object $ - catMaybes - [ (Just . ("GeoRestriction",) . toJSON) _cloudFrontDistributionRestrictionsGeoRestriction - ] - --- | Constructor for 'CloudFrontDistributionRestrictions' containing required --- fields as arguments. -cloudFrontDistributionRestrictions - :: CloudFrontDistributionGeoRestriction -- ^ 'cfdrGeoRestriction' - -> CloudFrontDistributionRestrictions -cloudFrontDistributionRestrictions geoRestrictionarg = - CloudFrontDistributionRestrictions - { _cloudFrontDistributionRestrictionsGeoRestriction = geoRestrictionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-restrictions.html#cfn-cloudfront-distribution-restrictions-georestriction -cfdrGeoRestriction :: Lens' CloudFrontDistributionRestrictions CloudFrontDistributionGeoRestriction -cfdrGeoRestriction = lens _cloudFrontDistributionRestrictionsGeoRestriction (\s a -> s { _cloudFrontDistributionRestrictionsGeoRestriction = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionS3OriginConfig.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionS3OriginConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionS3OriginConfig.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-s3originconfig.html - -module Stratosphere.ResourceProperties.CloudFrontDistributionS3OriginConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CloudFrontDistributionS3OriginConfig. See --- 'cloudFrontDistributionS3OriginConfig' for a more convenient constructor. -data CloudFrontDistributionS3OriginConfig = - CloudFrontDistributionS3OriginConfig - { _cloudFrontDistributionS3OriginConfigOriginAccessIdentity :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CloudFrontDistributionS3OriginConfig where - toJSON CloudFrontDistributionS3OriginConfig{..} = - object $ - catMaybes - [ fmap (("OriginAccessIdentity",) . toJSON) _cloudFrontDistributionS3OriginConfigOriginAccessIdentity - ] - --- | Constructor for 'CloudFrontDistributionS3OriginConfig' containing --- required fields as arguments. -cloudFrontDistributionS3OriginConfig - :: CloudFrontDistributionS3OriginConfig -cloudFrontDistributionS3OriginConfig = - CloudFrontDistributionS3OriginConfig - { _cloudFrontDistributionS3OriginConfigOriginAccessIdentity = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-s3originconfig.html#cfn-cloudfront-distribution-s3originconfig-originaccessidentity -cfdsocOriginAccessIdentity :: Lens' CloudFrontDistributionS3OriginConfig (Maybe (Val Text)) -cfdsocOriginAccessIdentity = lens _cloudFrontDistributionS3OriginConfigOriginAccessIdentity (\s a -> s { _cloudFrontDistributionS3OriginConfigOriginAccessIdentity = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionStatusCodes.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionStatusCodes.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionStatusCodes.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-statuscodes.html - -module Stratosphere.ResourceProperties.CloudFrontDistributionStatusCodes where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CloudFrontDistributionStatusCodes. See --- 'cloudFrontDistributionStatusCodes' for a more convenient constructor. -data CloudFrontDistributionStatusCodes = - CloudFrontDistributionStatusCodes - { _cloudFrontDistributionStatusCodesItems :: ValList Integer - , _cloudFrontDistributionStatusCodesQuantity :: Val Integer - } deriving (Show, Eq) - -instance ToJSON CloudFrontDistributionStatusCodes where - toJSON CloudFrontDistributionStatusCodes{..} = - object $ - catMaybes - [ (Just . ("Items",) . toJSON) _cloudFrontDistributionStatusCodesItems - , (Just . ("Quantity",) . toJSON) _cloudFrontDistributionStatusCodesQuantity - ] - --- | Constructor for 'CloudFrontDistributionStatusCodes' containing required --- fields as arguments. -cloudFrontDistributionStatusCodes - :: ValList Integer -- ^ 'cfdscItems' - -> Val Integer -- ^ 'cfdscQuantity' - -> CloudFrontDistributionStatusCodes -cloudFrontDistributionStatusCodes itemsarg quantityarg = - CloudFrontDistributionStatusCodes - { _cloudFrontDistributionStatusCodesItems = itemsarg - , _cloudFrontDistributionStatusCodesQuantity = quantityarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-statuscodes.html#cfn-cloudfront-distribution-statuscodes-items -cfdscItems :: Lens' CloudFrontDistributionStatusCodes (ValList Integer) -cfdscItems = lens _cloudFrontDistributionStatusCodesItems (\s a -> s { _cloudFrontDistributionStatusCodesItems = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-statuscodes.html#cfn-cloudfront-distribution-statuscodes-quantity -cfdscQuantity :: Lens' CloudFrontDistributionStatusCodes (Val Integer) -cfdscQuantity = lens _cloudFrontDistributionStatusCodesQuantity (\s a -> s { _cloudFrontDistributionStatusCodesQuantity = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionViewerCertificate.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionViewerCertificate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionViewerCertificate.hs +++ /dev/null @@ -1,67 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-viewercertificate.html - -module Stratosphere.ResourceProperties.CloudFrontDistributionViewerCertificate where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CloudFrontDistributionViewerCertificate. --- See 'cloudFrontDistributionViewerCertificate' for a more convenient --- constructor. -data CloudFrontDistributionViewerCertificate = - CloudFrontDistributionViewerCertificate - { _cloudFrontDistributionViewerCertificateAcmCertificateArn :: Maybe (Val Text) - , _cloudFrontDistributionViewerCertificateCloudFrontDefaultCertificate :: Maybe (Val Bool) - , _cloudFrontDistributionViewerCertificateIamCertificateId :: Maybe (Val Text) - , _cloudFrontDistributionViewerCertificateMinimumProtocolVersion :: Maybe (Val Text) - , _cloudFrontDistributionViewerCertificateSslSupportMethod :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CloudFrontDistributionViewerCertificate where - toJSON CloudFrontDistributionViewerCertificate{..} = - object $ - catMaybes - [ fmap (("AcmCertificateArn",) . toJSON) _cloudFrontDistributionViewerCertificateAcmCertificateArn - , fmap (("CloudFrontDefaultCertificate",) . toJSON) _cloudFrontDistributionViewerCertificateCloudFrontDefaultCertificate - , fmap (("IamCertificateId",) . toJSON) _cloudFrontDistributionViewerCertificateIamCertificateId - , fmap (("MinimumProtocolVersion",) . toJSON) _cloudFrontDistributionViewerCertificateMinimumProtocolVersion - , fmap (("SslSupportMethod",) . toJSON) _cloudFrontDistributionViewerCertificateSslSupportMethod - ] - --- | Constructor for 'CloudFrontDistributionViewerCertificate' containing --- required fields as arguments. -cloudFrontDistributionViewerCertificate - :: CloudFrontDistributionViewerCertificate -cloudFrontDistributionViewerCertificate = - CloudFrontDistributionViewerCertificate - { _cloudFrontDistributionViewerCertificateAcmCertificateArn = Nothing - , _cloudFrontDistributionViewerCertificateCloudFrontDefaultCertificate = Nothing - , _cloudFrontDistributionViewerCertificateIamCertificateId = Nothing - , _cloudFrontDistributionViewerCertificateMinimumProtocolVersion = Nothing - , _cloudFrontDistributionViewerCertificateSslSupportMethod = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-viewercertificate.html#cfn-cloudfront-distribution-viewercertificate-acmcertificatearn -cfdvcAcmCertificateArn :: Lens' CloudFrontDistributionViewerCertificate (Maybe (Val Text)) -cfdvcAcmCertificateArn = lens _cloudFrontDistributionViewerCertificateAcmCertificateArn (\s a -> s { _cloudFrontDistributionViewerCertificateAcmCertificateArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-viewercertificate.html#cfn-cloudfront-distribution-viewercertificate-cloudfrontdefaultcertificate -cfdvcCloudFrontDefaultCertificate :: Lens' CloudFrontDistributionViewerCertificate (Maybe (Val Bool)) -cfdvcCloudFrontDefaultCertificate = lens _cloudFrontDistributionViewerCertificateCloudFrontDefaultCertificate (\s a -> s { _cloudFrontDistributionViewerCertificateCloudFrontDefaultCertificate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-viewercertificate.html#cfn-cloudfront-distribution-viewercertificate-iamcertificateid -cfdvcIamCertificateId :: Lens' CloudFrontDistributionViewerCertificate (Maybe (Val Text)) -cfdvcIamCertificateId = lens _cloudFrontDistributionViewerCertificateIamCertificateId (\s a -> s { _cloudFrontDistributionViewerCertificateIamCertificateId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-viewercertificate.html#cfn-cloudfront-distribution-viewercertificate-minimumprotocolversion -cfdvcMinimumProtocolVersion :: Lens' CloudFrontDistributionViewerCertificate (Maybe (Val Text)) -cfdvcMinimumProtocolVersion = lens _cloudFrontDistributionViewerCertificateMinimumProtocolVersion (\s a -> s { _cloudFrontDistributionViewerCertificateMinimumProtocolVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-viewercertificate.html#cfn-cloudfront-distribution-viewercertificate-sslsupportmethod -cfdvcSslSupportMethod :: Lens' CloudFrontDistributionViewerCertificate (Maybe (Val Text)) -cfdvcSslSupportMethod = lens _cloudFrontDistributionViewerCertificateSslSupportMethod (\s a -> s { _cloudFrontDistributionViewerCertificateSslSupportMethod = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontOriginRequestPolicyCookiesConfig.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontOriginRequestPolicyCookiesConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontOriginRequestPolicyCookiesConfig.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-originrequestpolicy-cookiesconfig.html - -module Stratosphere.ResourceProperties.CloudFrontOriginRequestPolicyCookiesConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CloudFrontOriginRequestPolicyCookiesConfig. --- See 'cloudFrontOriginRequestPolicyCookiesConfig' for a more convenient --- constructor. -data CloudFrontOriginRequestPolicyCookiesConfig = - CloudFrontOriginRequestPolicyCookiesConfig - { _cloudFrontOriginRequestPolicyCookiesConfigCookieBehavior :: Val Text - , _cloudFrontOriginRequestPolicyCookiesConfigCookies :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON CloudFrontOriginRequestPolicyCookiesConfig where - toJSON CloudFrontOriginRequestPolicyCookiesConfig{..} = - object $ - catMaybes - [ (Just . ("CookieBehavior",) . toJSON) _cloudFrontOriginRequestPolicyCookiesConfigCookieBehavior - , fmap (("Cookies",) . toJSON) _cloudFrontOriginRequestPolicyCookiesConfigCookies - ] - --- | Constructor for 'CloudFrontOriginRequestPolicyCookiesConfig' containing --- required fields as arguments. -cloudFrontOriginRequestPolicyCookiesConfig - :: Val Text -- ^ 'cforpccCookieBehavior' - -> CloudFrontOriginRequestPolicyCookiesConfig -cloudFrontOriginRequestPolicyCookiesConfig cookieBehaviorarg = - CloudFrontOriginRequestPolicyCookiesConfig - { _cloudFrontOriginRequestPolicyCookiesConfigCookieBehavior = cookieBehaviorarg - , _cloudFrontOriginRequestPolicyCookiesConfigCookies = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-originrequestpolicy-cookiesconfig.html#cfn-cloudfront-originrequestpolicy-cookiesconfig-cookiebehavior -cforpccCookieBehavior :: Lens' CloudFrontOriginRequestPolicyCookiesConfig (Val Text) -cforpccCookieBehavior = lens _cloudFrontOriginRequestPolicyCookiesConfigCookieBehavior (\s a -> s { _cloudFrontOriginRequestPolicyCookiesConfigCookieBehavior = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-originrequestpolicy-cookiesconfig.html#cfn-cloudfront-originrequestpolicy-cookiesconfig-cookies -cforpccCookies :: Lens' CloudFrontOriginRequestPolicyCookiesConfig (Maybe (ValList Text)) -cforpccCookies = lens _cloudFrontOriginRequestPolicyCookiesConfigCookies (\s a -> s { _cloudFrontOriginRequestPolicyCookiesConfigCookies = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontOriginRequestPolicyHeadersConfig.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontOriginRequestPolicyHeadersConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontOriginRequestPolicyHeadersConfig.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-originrequestpolicy-headersconfig.html - -module Stratosphere.ResourceProperties.CloudFrontOriginRequestPolicyHeadersConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CloudFrontOriginRequestPolicyHeadersConfig. --- See 'cloudFrontOriginRequestPolicyHeadersConfig' for a more convenient --- constructor. -data CloudFrontOriginRequestPolicyHeadersConfig = - CloudFrontOriginRequestPolicyHeadersConfig - { _cloudFrontOriginRequestPolicyHeadersConfigHeaderBehavior :: Val Text - , _cloudFrontOriginRequestPolicyHeadersConfigHeaders :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON CloudFrontOriginRequestPolicyHeadersConfig where - toJSON CloudFrontOriginRequestPolicyHeadersConfig{..} = - object $ - catMaybes - [ (Just . ("HeaderBehavior",) . toJSON) _cloudFrontOriginRequestPolicyHeadersConfigHeaderBehavior - , fmap (("Headers",) . toJSON) _cloudFrontOriginRequestPolicyHeadersConfigHeaders - ] - --- | Constructor for 'CloudFrontOriginRequestPolicyHeadersConfig' containing --- required fields as arguments. -cloudFrontOriginRequestPolicyHeadersConfig - :: Val Text -- ^ 'cforphcHeaderBehavior' - -> CloudFrontOriginRequestPolicyHeadersConfig -cloudFrontOriginRequestPolicyHeadersConfig headerBehaviorarg = - CloudFrontOriginRequestPolicyHeadersConfig - { _cloudFrontOriginRequestPolicyHeadersConfigHeaderBehavior = headerBehaviorarg - , _cloudFrontOriginRequestPolicyHeadersConfigHeaders = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-originrequestpolicy-headersconfig.html#cfn-cloudfront-originrequestpolicy-headersconfig-headerbehavior -cforphcHeaderBehavior :: Lens' CloudFrontOriginRequestPolicyHeadersConfig (Val Text) -cforphcHeaderBehavior = lens _cloudFrontOriginRequestPolicyHeadersConfigHeaderBehavior (\s a -> s { _cloudFrontOriginRequestPolicyHeadersConfigHeaderBehavior = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-originrequestpolicy-headersconfig.html#cfn-cloudfront-originrequestpolicy-headersconfig-headers -cforphcHeaders :: Lens' CloudFrontOriginRequestPolicyHeadersConfig (Maybe (ValList Text)) -cforphcHeaders = lens _cloudFrontOriginRequestPolicyHeadersConfigHeaders (\s a -> s { _cloudFrontOriginRequestPolicyHeadersConfigHeaders = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontOriginRequestPolicyOriginRequestPolicyConfig.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontOriginRequestPolicyOriginRequestPolicyConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontOriginRequestPolicyOriginRequestPolicyConfig.hs +++ /dev/null @@ -1,74 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-originrequestpolicy-originrequestpolicyconfig.html - -module Stratosphere.ResourceProperties.CloudFrontOriginRequestPolicyOriginRequestPolicyConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CloudFrontOriginRequestPolicyCookiesConfig -import Stratosphere.ResourceProperties.CloudFrontOriginRequestPolicyHeadersConfig -import Stratosphere.ResourceProperties.CloudFrontOriginRequestPolicyQueryStringsConfig - --- | Full data type definition for --- CloudFrontOriginRequestPolicyOriginRequestPolicyConfig. See --- 'cloudFrontOriginRequestPolicyOriginRequestPolicyConfig' for a more --- convenient constructor. -data CloudFrontOriginRequestPolicyOriginRequestPolicyConfig = - CloudFrontOriginRequestPolicyOriginRequestPolicyConfig - { _cloudFrontOriginRequestPolicyOriginRequestPolicyConfigComment :: Maybe (Val Text) - , _cloudFrontOriginRequestPolicyOriginRequestPolicyConfigCookiesConfig :: CloudFrontOriginRequestPolicyCookiesConfig - , _cloudFrontOriginRequestPolicyOriginRequestPolicyConfigHeadersConfig :: CloudFrontOriginRequestPolicyHeadersConfig - , _cloudFrontOriginRequestPolicyOriginRequestPolicyConfigName :: Val Text - , _cloudFrontOriginRequestPolicyOriginRequestPolicyConfigQueryStringsConfig :: CloudFrontOriginRequestPolicyQueryStringsConfig - } deriving (Show, Eq) - -instance ToJSON CloudFrontOriginRequestPolicyOriginRequestPolicyConfig where - toJSON CloudFrontOriginRequestPolicyOriginRequestPolicyConfig{..} = - object $ - catMaybes - [ fmap (("Comment",) . toJSON) _cloudFrontOriginRequestPolicyOriginRequestPolicyConfigComment - , (Just . ("CookiesConfig",) . toJSON) _cloudFrontOriginRequestPolicyOriginRequestPolicyConfigCookiesConfig - , (Just . ("HeadersConfig",) . toJSON) _cloudFrontOriginRequestPolicyOriginRequestPolicyConfigHeadersConfig - , (Just . ("Name",) . toJSON) _cloudFrontOriginRequestPolicyOriginRequestPolicyConfigName - , (Just . ("QueryStringsConfig",) . toJSON) _cloudFrontOriginRequestPolicyOriginRequestPolicyConfigQueryStringsConfig - ] - --- | Constructor for 'CloudFrontOriginRequestPolicyOriginRequestPolicyConfig' --- containing required fields as arguments. -cloudFrontOriginRequestPolicyOriginRequestPolicyConfig - :: CloudFrontOriginRequestPolicyCookiesConfig -- ^ 'cforporpcCookiesConfig' - -> CloudFrontOriginRequestPolicyHeadersConfig -- ^ 'cforporpcHeadersConfig' - -> Val Text -- ^ 'cforporpcName' - -> CloudFrontOriginRequestPolicyQueryStringsConfig -- ^ 'cforporpcQueryStringsConfig' - -> CloudFrontOriginRequestPolicyOriginRequestPolicyConfig -cloudFrontOriginRequestPolicyOriginRequestPolicyConfig cookiesConfigarg headersConfigarg namearg queryStringsConfigarg = - CloudFrontOriginRequestPolicyOriginRequestPolicyConfig - { _cloudFrontOriginRequestPolicyOriginRequestPolicyConfigComment = Nothing - , _cloudFrontOriginRequestPolicyOriginRequestPolicyConfigCookiesConfig = cookiesConfigarg - , _cloudFrontOriginRequestPolicyOriginRequestPolicyConfigHeadersConfig = headersConfigarg - , _cloudFrontOriginRequestPolicyOriginRequestPolicyConfigName = namearg - , _cloudFrontOriginRequestPolicyOriginRequestPolicyConfigQueryStringsConfig = queryStringsConfigarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-originrequestpolicy-originrequestpolicyconfig.html#cfn-cloudfront-originrequestpolicy-originrequestpolicyconfig-comment -cforporpcComment :: Lens' CloudFrontOriginRequestPolicyOriginRequestPolicyConfig (Maybe (Val Text)) -cforporpcComment = lens _cloudFrontOriginRequestPolicyOriginRequestPolicyConfigComment (\s a -> s { _cloudFrontOriginRequestPolicyOriginRequestPolicyConfigComment = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-originrequestpolicy-originrequestpolicyconfig.html#cfn-cloudfront-originrequestpolicy-originrequestpolicyconfig-cookiesconfig -cforporpcCookiesConfig :: Lens' CloudFrontOriginRequestPolicyOriginRequestPolicyConfig CloudFrontOriginRequestPolicyCookiesConfig -cforporpcCookiesConfig = lens _cloudFrontOriginRequestPolicyOriginRequestPolicyConfigCookiesConfig (\s a -> s { _cloudFrontOriginRequestPolicyOriginRequestPolicyConfigCookiesConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-originrequestpolicy-originrequestpolicyconfig.html#cfn-cloudfront-originrequestpolicy-originrequestpolicyconfig-headersconfig -cforporpcHeadersConfig :: Lens' CloudFrontOriginRequestPolicyOriginRequestPolicyConfig CloudFrontOriginRequestPolicyHeadersConfig -cforporpcHeadersConfig = lens _cloudFrontOriginRequestPolicyOriginRequestPolicyConfigHeadersConfig (\s a -> s { _cloudFrontOriginRequestPolicyOriginRequestPolicyConfigHeadersConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-originrequestpolicy-originrequestpolicyconfig.html#cfn-cloudfront-originrequestpolicy-originrequestpolicyconfig-name -cforporpcName :: Lens' CloudFrontOriginRequestPolicyOriginRequestPolicyConfig (Val Text) -cforporpcName = lens _cloudFrontOriginRequestPolicyOriginRequestPolicyConfigName (\s a -> s { _cloudFrontOriginRequestPolicyOriginRequestPolicyConfigName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-originrequestpolicy-originrequestpolicyconfig.html#cfn-cloudfront-originrequestpolicy-originrequestpolicyconfig-querystringsconfig -cforporpcQueryStringsConfig :: Lens' CloudFrontOriginRequestPolicyOriginRequestPolicyConfig CloudFrontOriginRequestPolicyQueryStringsConfig -cforporpcQueryStringsConfig = lens _cloudFrontOriginRequestPolicyOriginRequestPolicyConfigQueryStringsConfig (\s a -> s { _cloudFrontOriginRequestPolicyOriginRequestPolicyConfigQueryStringsConfig = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontOriginRequestPolicyQueryStringsConfig.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontOriginRequestPolicyQueryStringsConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontOriginRequestPolicyQueryStringsConfig.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-originrequestpolicy-querystringsconfig.html - -module Stratosphere.ResourceProperties.CloudFrontOriginRequestPolicyQueryStringsConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- CloudFrontOriginRequestPolicyQueryStringsConfig. See --- 'cloudFrontOriginRequestPolicyQueryStringsConfig' for a more convenient --- constructor. -data CloudFrontOriginRequestPolicyQueryStringsConfig = - CloudFrontOriginRequestPolicyQueryStringsConfig - { _cloudFrontOriginRequestPolicyQueryStringsConfigQueryStringBehavior :: Val Text - , _cloudFrontOriginRequestPolicyQueryStringsConfigQueryStrings :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON CloudFrontOriginRequestPolicyQueryStringsConfig where - toJSON CloudFrontOriginRequestPolicyQueryStringsConfig{..} = - object $ - catMaybes - [ (Just . ("QueryStringBehavior",) . toJSON) _cloudFrontOriginRequestPolicyQueryStringsConfigQueryStringBehavior - , fmap (("QueryStrings",) . toJSON) _cloudFrontOriginRequestPolicyQueryStringsConfigQueryStrings - ] - --- | Constructor for 'CloudFrontOriginRequestPolicyQueryStringsConfig' --- containing required fields as arguments. -cloudFrontOriginRequestPolicyQueryStringsConfig - :: Val Text -- ^ 'cforpqscQueryStringBehavior' - -> CloudFrontOriginRequestPolicyQueryStringsConfig -cloudFrontOriginRequestPolicyQueryStringsConfig queryStringBehaviorarg = - CloudFrontOriginRequestPolicyQueryStringsConfig - { _cloudFrontOriginRequestPolicyQueryStringsConfigQueryStringBehavior = queryStringBehaviorarg - , _cloudFrontOriginRequestPolicyQueryStringsConfigQueryStrings = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-originrequestpolicy-querystringsconfig.html#cfn-cloudfront-originrequestpolicy-querystringsconfig-querystringbehavior -cforpqscQueryStringBehavior :: Lens' CloudFrontOriginRequestPolicyQueryStringsConfig (Val Text) -cforpqscQueryStringBehavior = lens _cloudFrontOriginRequestPolicyQueryStringsConfigQueryStringBehavior (\s a -> s { _cloudFrontOriginRequestPolicyQueryStringsConfigQueryStringBehavior = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-originrequestpolicy-querystringsconfig.html#cfn-cloudfront-originrequestpolicy-querystringsconfig-querystrings -cforpqscQueryStrings :: Lens' CloudFrontOriginRequestPolicyQueryStringsConfig (Maybe (ValList Text)) -cforpqscQueryStrings = lens _cloudFrontOriginRequestPolicyQueryStringsConfigQueryStrings (\s a -> s { _cloudFrontOriginRequestPolicyQueryStringsConfigQueryStrings = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontRealtimeLogConfigEndPoint.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontRealtimeLogConfigEndPoint.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontRealtimeLogConfigEndPoint.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-realtimelogconfig-endpoint.html - -module Stratosphere.ResourceProperties.CloudFrontRealtimeLogConfigEndPoint where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CloudFrontRealtimeLogConfigKinesisStreamConfig - --- | Full data type definition for CloudFrontRealtimeLogConfigEndPoint. See --- 'cloudFrontRealtimeLogConfigEndPoint' for a more convenient constructor. -data CloudFrontRealtimeLogConfigEndPoint = - CloudFrontRealtimeLogConfigEndPoint - { _cloudFrontRealtimeLogConfigEndPointKinesisStreamConfig :: CloudFrontRealtimeLogConfigKinesisStreamConfig - , _cloudFrontRealtimeLogConfigEndPointStreamType :: Val Text - } deriving (Show, Eq) - -instance ToJSON CloudFrontRealtimeLogConfigEndPoint where - toJSON CloudFrontRealtimeLogConfigEndPoint{..} = - object $ - catMaybes - [ (Just . ("KinesisStreamConfig",) . toJSON) _cloudFrontRealtimeLogConfigEndPointKinesisStreamConfig - , (Just . ("StreamType",) . toJSON) _cloudFrontRealtimeLogConfigEndPointStreamType - ] - --- | Constructor for 'CloudFrontRealtimeLogConfigEndPoint' containing required --- fields as arguments. -cloudFrontRealtimeLogConfigEndPoint - :: CloudFrontRealtimeLogConfigKinesisStreamConfig -- ^ 'cfrlcepKinesisStreamConfig' - -> Val Text -- ^ 'cfrlcepStreamType' - -> CloudFrontRealtimeLogConfigEndPoint -cloudFrontRealtimeLogConfigEndPoint kinesisStreamConfigarg streamTypearg = - CloudFrontRealtimeLogConfigEndPoint - { _cloudFrontRealtimeLogConfigEndPointKinesisStreamConfig = kinesisStreamConfigarg - , _cloudFrontRealtimeLogConfigEndPointStreamType = streamTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-realtimelogconfig-endpoint.html#cfn-cloudfront-realtimelogconfig-endpoint-kinesisstreamconfig -cfrlcepKinesisStreamConfig :: Lens' CloudFrontRealtimeLogConfigEndPoint CloudFrontRealtimeLogConfigKinesisStreamConfig -cfrlcepKinesisStreamConfig = lens _cloudFrontRealtimeLogConfigEndPointKinesisStreamConfig (\s a -> s { _cloudFrontRealtimeLogConfigEndPointKinesisStreamConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-realtimelogconfig-endpoint.html#cfn-cloudfront-realtimelogconfig-endpoint-streamtype -cfrlcepStreamType :: Lens' CloudFrontRealtimeLogConfigEndPoint (Val Text) -cfrlcepStreamType = lens _cloudFrontRealtimeLogConfigEndPointStreamType (\s a -> s { _cloudFrontRealtimeLogConfigEndPointStreamType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontRealtimeLogConfigKinesisStreamConfig.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontRealtimeLogConfigKinesisStreamConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontRealtimeLogConfigKinesisStreamConfig.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-realtimelogconfig-kinesisstreamconfig.html - -module Stratosphere.ResourceProperties.CloudFrontRealtimeLogConfigKinesisStreamConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- CloudFrontRealtimeLogConfigKinesisStreamConfig. See --- 'cloudFrontRealtimeLogConfigKinesisStreamConfig' for a more convenient --- constructor. -data CloudFrontRealtimeLogConfigKinesisStreamConfig = - CloudFrontRealtimeLogConfigKinesisStreamConfig - { _cloudFrontRealtimeLogConfigKinesisStreamConfigRoleArn :: Val Text - , _cloudFrontRealtimeLogConfigKinesisStreamConfigStreamArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON CloudFrontRealtimeLogConfigKinesisStreamConfig where - toJSON CloudFrontRealtimeLogConfigKinesisStreamConfig{..} = - object $ - catMaybes - [ (Just . ("RoleArn",) . toJSON) _cloudFrontRealtimeLogConfigKinesisStreamConfigRoleArn - , (Just . ("StreamArn",) . toJSON) _cloudFrontRealtimeLogConfigKinesisStreamConfigStreamArn - ] - --- | Constructor for 'CloudFrontRealtimeLogConfigKinesisStreamConfig' --- containing required fields as arguments. -cloudFrontRealtimeLogConfigKinesisStreamConfig - :: Val Text -- ^ 'cfrlckscRoleArn' - -> Val Text -- ^ 'cfrlckscStreamArn' - -> CloudFrontRealtimeLogConfigKinesisStreamConfig -cloudFrontRealtimeLogConfigKinesisStreamConfig roleArnarg streamArnarg = - CloudFrontRealtimeLogConfigKinesisStreamConfig - { _cloudFrontRealtimeLogConfigKinesisStreamConfigRoleArn = roleArnarg - , _cloudFrontRealtimeLogConfigKinesisStreamConfigStreamArn = streamArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-realtimelogconfig-kinesisstreamconfig.html#cfn-cloudfront-realtimelogconfig-kinesisstreamconfig-rolearn -cfrlckscRoleArn :: Lens' CloudFrontRealtimeLogConfigKinesisStreamConfig (Val Text) -cfrlckscRoleArn = lens _cloudFrontRealtimeLogConfigKinesisStreamConfigRoleArn (\s a -> s { _cloudFrontRealtimeLogConfigKinesisStreamConfigRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-realtimelogconfig-kinesisstreamconfig.html#cfn-cloudfront-realtimelogconfig-kinesisstreamconfig-streamarn -cfrlckscStreamArn :: Lens' CloudFrontRealtimeLogConfigKinesisStreamConfig (Val Text) -cfrlckscStreamArn = lens _cloudFrontRealtimeLogConfigKinesisStreamConfigStreamArn (\s a -> s { _cloudFrontRealtimeLogConfigKinesisStreamConfigStreamArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontStreamingDistributionLogging.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontStreamingDistributionLogging.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontStreamingDistributionLogging.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-logging.html - -module Stratosphere.ResourceProperties.CloudFrontStreamingDistributionLogging where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CloudFrontStreamingDistributionLogging. See --- 'cloudFrontStreamingDistributionLogging' for a more convenient --- constructor. -data CloudFrontStreamingDistributionLogging = - CloudFrontStreamingDistributionLogging - { _cloudFrontStreamingDistributionLoggingBucket :: Val Text - , _cloudFrontStreamingDistributionLoggingEnabled :: Val Bool - , _cloudFrontStreamingDistributionLoggingPrefix :: Val Text - } deriving (Show, Eq) - -instance ToJSON CloudFrontStreamingDistributionLogging where - toJSON CloudFrontStreamingDistributionLogging{..} = - object $ - catMaybes - [ (Just . ("Bucket",) . toJSON) _cloudFrontStreamingDistributionLoggingBucket - , (Just . ("Enabled",) . toJSON) _cloudFrontStreamingDistributionLoggingEnabled - , (Just . ("Prefix",) . toJSON) _cloudFrontStreamingDistributionLoggingPrefix - ] - --- | Constructor for 'CloudFrontStreamingDistributionLogging' containing --- required fields as arguments. -cloudFrontStreamingDistributionLogging - :: Val Text -- ^ 'cfsdlBucket' - -> Val Bool -- ^ 'cfsdlEnabled' - -> Val Text -- ^ 'cfsdlPrefix' - -> CloudFrontStreamingDistributionLogging -cloudFrontStreamingDistributionLogging bucketarg enabledarg prefixarg = - CloudFrontStreamingDistributionLogging - { _cloudFrontStreamingDistributionLoggingBucket = bucketarg - , _cloudFrontStreamingDistributionLoggingEnabled = enabledarg - , _cloudFrontStreamingDistributionLoggingPrefix = prefixarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-logging.html#cfn-cloudfront-streamingdistribution-logging-bucket -cfsdlBucket :: Lens' CloudFrontStreamingDistributionLogging (Val Text) -cfsdlBucket = lens _cloudFrontStreamingDistributionLoggingBucket (\s a -> s { _cloudFrontStreamingDistributionLoggingBucket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-logging.html#cfn-cloudfront-streamingdistribution-logging-enabled -cfsdlEnabled :: Lens' CloudFrontStreamingDistributionLogging (Val Bool) -cfsdlEnabled = lens _cloudFrontStreamingDistributionLoggingEnabled (\s a -> s { _cloudFrontStreamingDistributionLoggingEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-logging.html#cfn-cloudfront-streamingdistribution-logging-prefix -cfsdlPrefix :: Lens' CloudFrontStreamingDistributionLogging (Val Text) -cfsdlPrefix = lens _cloudFrontStreamingDistributionLoggingPrefix (\s a -> s { _cloudFrontStreamingDistributionLoggingPrefix = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontStreamingDistributionS3Origin.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontStreamingDistributionS3Origin.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontStreamingDistributionS3Origin.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-s3origin.html - -module Stratosphere.ResourceProperties.CloudFrontStreamingDistributionS3Origin where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CloudFrontStreamingDistributionS3Origin. --- See 'cloudFrontStreamingDistributionS3Origin' for a more convenient --- constructor. -data CloudFrontStreamingDistributionS3Origin = - CloudFrontStreamingDistributionS3Origin - { _cloudFrontStreamingDistributionS3OriginDomainName :: Val Text - , _cloudFrontStreamingDistributionS3OriginOriginAccessIdentity :: Val Text - } deriving (Show, Eq) - -instance ToJSON CloudFrontStreamingDistributionS3Origin where - toJSON CloudFrontStreamingDistributionS3Origin{..} = - object $ - catMaybes - [ (Just . ("DomainName",) . toJSON) _cloudFrontStreamingDistributionS3OriginDomainName - , (Just . ("OriginAccessIdentity",) . toJSON) _cloudFrontStreamingDistributionS3OriginOriginAccessIdentity - ] - --- | Constructor for 'CloudFrontStreamingDistributionS3Origin' containing --- required fields as arguments. -cloudFrontStreamingDistributionS3Origin - :: Val Text -- ^ 'cfsdsoDomainName' - -> Val Text -- ^ 'cfsdsoOriginAccessIdentity' - -> CloudFrontStreamingDistributionS3Origin -cloudFrontStreamingDistributionS3Origin domainNamearg originAccessIdentityarg = - CloudFrontStreamingDistributionS3Origin - { _cloudFrontStreamingDistributionS3OriginDomainName = domainNamearg - , _cloudFrontStreamingDistributionS3OriginOriginAccessIdentity = originAccessIdentityarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-s3origin.html#cfn-cloudfront-streamingdistribution-s3origin-domainname -cfsdsoDomainName :: Lens' CloudFrontStreamingDistributionS3Origin (Val Text) -cfsdsoDomainName = lens _cloudFrontStreamingDistributionS3OriginDomainName (\s a -> s { _cloudFrontStreamingDistributionS3OriginDomainName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-s3origin.html#cfn-cloudfront-streamingdistribution-s3origin-originaccessidentity -cfsdsoOriginAccessIdentity :: Lens' CloudFrontStreamingDistributionS3Origin (Val Text) -cfsdsoOriginAccessIdentity = lens _cloudFrontStreamingDistributionS3OriginOriginAccessIdentity (\s a -> s { _cloudFrontStreamingDistributionS3OriginOriginAccessIdentity = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontStreamingDistributionStreamingDistributionConfig.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontStreamingDistributionStreamingDistributionConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontStreamingDistributionStreamingDistributionConfig.hs +++ /dev/null @@ -1,89 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-streamingdistributionconfig.html - -module Stratosphere.ResourceProperties.CloudFrontStreamingDistributionStreamingDistributionConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CloudFrontStreamingDistributionLogging -import Stratosphere.ResourceProperties.CloudFrontStreamingDistributionS3Origin -import Stratosphere.ResourceProperties.CloudFrontStreamingDistributionTrustedSigners - --- | Full data type definition for --- CloudFrontStreamingDistributionStreamingDistributionConfig. See --- 'cloudFrontStreamingDistributionStreamingDistributionConfig' for a more --- convenient constructor. -data CloudFrontStreamingDistributionStreamingDistributionConfig = - CloudFrontStreamingDistributionStreamingDistributionConfig - { _cloudFrontStreamingDistributionStreamingDistributionConfigAliases :: Maybe (ValList Text) - , _cloudFrontStreamingDistributionStreamingDistributionConfigComment :: Val Text - , _cloudFrontStreamingDistributionStreamingDistributionConfigEnabled :: Val Bool - , _cloudFrontStreamingDistributionStreamingDistributionConfigLogging :: Maybe CloudFrontStreamingDistributionLogging - , _cloudFrontStreamingDistributionStreamingDistributionConfigPriceClass :: Maybe (Val Text) - , _cloudFrontStreamingDistributionStreamingDistributionConfigS3Origin :: CloudFrontStreamingDistributionS3Origin - , _cloudFrontStreamingDistributionStreamingDistributionConfigTrustedSigners :: CloudFrontStreamingDistributionTrustedSigners - } deriving (Show, Eq) - -instance ToJSON CloudFrontStreamingDistributionStreamingDistributionConfig where - toJSON CloudFrontStreamingDistributionStreamingDistributionConfig{..} = - object $ - catMaybes - [ fmap (("Aliases",) . toJSON) _cloudFrontStreamingDistributionStreamingDistributionConfigAliases - , (Just . ("Comment",) . toJSON) _cloudFrontStreamingDistributionStreamingDistributionConfigComment - , (Just . ("Enabled",) . toJSON) _cloudFrontStreamingDistributionStreamingDistributionConfigEnabled - , fmap (("Logging",) . toJSON) _cloudFrontStreamingDistributionStreamingDistributionConfigLogging - , fmap (("PriceClass",) . toJSON) _cloudFrontStreamingDistributionStreamingDistributionConfigPriceClass - , (Just . ("S3Origin",) . toJSON) _cloudFrontStreamingDistributionStreamingDistributionConfigS3Origin - , (Just . ("TrustedSigners",) . toJSON) _cloudFrontStreamingDistributionStreamingDistributionConfigTrustedSigners - ] - --- | Constructor for --- 'CloudFrontStreamingDistributionStreamingDistributionConfig' containing --- required fields as arguments. -cloudFrontStreamingDistributionStreamingDistributionConfig - :: Val Text -- ^ 'cfsdsdcComment' - -> Val Bool -- ^ 'cfsdsdcEnabled' - -> CloudFrontStreamingDistributionS3Origin -- ^ 'cfsdsdcS3Origin' - -> CloudFrontStreamingDistributionTrustedSigners -- ^ 'cfsdsdcTrustedSigners' - -> CloudFrontStreamingDistributionStreamingDistributionConfig -cloudFrontStreamingDistributionStreamingDistributionConfig commentarg enabledarg s3Originarg trustedSignersarg = - CloudFrontStreamingDistributionStreamingDistributionConfig - { _cloudFrontStreamingDistributionStreamingDistributionConfigAliases = Nothing - , _cloudFrontStreamingDistributionStreamingDistributionConfigComment = commentarg - , _cloudFrontStreamingDistributionStreamingDistributionConfigEnabled = enabledarg - , _cloudFrontStreamingDistributionStreamingDistributionConfigLogging = Nothing - , _cloudFrontStreamingDistributionStreamingDistributionConfigPriceClass = Nothing - , _cloudFrontStreamingDistributionStreamingDistributionConfigS3Origin = s3Originarg - , _cloudFrontStreamingDistributionStreamingDistributionConfigTrustedSigners = trustedSignersarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-streamingdistributionconfig.html#cfn-cloudfront-streamingdistribution-streamingdistributionconfig-aliases -cfsdsdcAliases :: Lens' CloudFrontStreamingDistributionStreamingDistributionConfig (Maybe (ValList Text)) -cfsdsdcAliases = lens _cloudFrontStreamingDistributionStreamingDistributionConfigAliases (\s a -> s { _cloudFrontStreamingDistributionStreamingDistributionConfigAliases = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-streamingdistributionconfig.html#cfn-cloudfront-streamingdistribution-streamingdistributionconfig-comment -cfsdsdcComment :: Lens' CloudFrontStreamingDistributionStreamingDistributionConfig (Val Text) -cfsdsdcComment = lens _cloudFrontStreamingDistributionStreamingDistributionConfigComment (\s a -> s { _cloudFrontStreamingDistributionStreamingDistributionConfigComment = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-streamingdistributionconfig.html#cfn-cloudfront-streamingdistribution-streamingdistributionconfig-enabled -cfsdsdcEnabled :: Lens' CloudFrontStreamingDistributionStreamingDistributionConfig (Val Bool) -cfsdsdcEnabled = lens _cloudFrontStreamingDistributionStreamingDistributionConfigEnabled (\s a -> s { _cloudFrontStreamingDistributionStreamingDistributionConfigEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-streamingdistributionconfig.html#cfn-cloudfront-streamingdistribution-streamingdistributionconfig-logging -cfsdsdcLogging :: Lens' CloudFrontStreamingDistributionStreamingDistributionConfig (Maybe CloudFrontStreamingDistributionLogging) -cfsdsdcLogging = lens _cloudFrontStreamingDistributionStreamingDistributionConfigLogging (\s a -> s { _cloudFrontStreamingDistributionStreamingDistributionConfigLogging = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-streamingdistributionconfig.html#cfn-cloudfront-streamingdistribution-streamingdistributionconfig-priceclass -cfsdsdcPriceClass :: Lens' CloudFrontStreamingDistributionStreamingDistributionConfig (Maybe (Val Text)) -cfsdsdcPriceClass = lens _cloudFrontStreamingDistributionStreamingDistributionConfigPriceClass (\s a -> s { _cloudFrontStreamingDistributionStreamingDistributionConfigPriceClass = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-streamingdistributionconfig.html#cfn-cloudfront-streamingdistribution-streamingdistributionconfig-s3origin -cfsdsdcS3Origin :: Lens' CloudFrontStreamingDistributionStreamingDistributionConfig CloudFrontStreamingDistributionS3Origin -cfsdsdcS3Origin = lens _cloudFrontStreamingDistributionStreamingDistributionConfigS3Origin (\s a -> s { _cloudFrontStreamingDistributionStreamingDistributionConfigS3Origin = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-streamingdistributionconfig.html#cfn-cloudfront-streamingdistribution-streamingdistributionconfig-trustedsigners -cfsdsdcTrustedSigners :: Lens' CloudFrontStreamingDistributionStreamingDistributionConfig CloudFrontStreamingDistributionTrustedSigners -cfsdsdcTrustedSigners = lens _cloudFrontStreamingDistributionStreamingDistributionConfigTrustedSigners (\s a -> s { _cloudFrontStreamingDistributionStreamingDistributionConfigTrustedSigners = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudFrontStreamingDistributionTrustedSigners.hs b/library-gen/Stratosphere/ResourceProperties/CloudFrontStreamingDistributionTrustedSigners.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudFrontStreamingDistributionTrustedSigners.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-trustedsigners.html - -module Stratosphere.ResourceProperties.CloudFrontStreamingDistributionTrustedSigners where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- CloudFrontStreamingDistributionTrustedSigners. See --- 'cloudFrontStreamingDistributionTrustedSigners' for a more convenient --- constructor. -data CloudFrontStreamingDistributionTrustedSigners = - CloudFrontStreamingDistributionTrustedSigners - { _cloudFrontStreamingDistributionTrustedSignersAwsAccountNumbers :: Maybe (ValList Text) - , _cloudFrontStreamingDistributionTrustedSignersEnabled :: Val Bool - } deriving (Show, Eq) - -instance ToJSON CloudFrontStreamingDistributionTrustedSigners where - toJSON CloudFrontStreamingDistributionTrustedSigners{..} = - object $ - catMaybes - [ fmap (("AwsAccountNumbers",) . toJSON) _cloudFrontStreamingDistributionTrustedSignersAwsAccountNumbers - , (Just . ("Enabled",) . toJSON) _cloudFrontStreamingDistributionTrustedSignersEnabled - ] - --- | Constructor for 'CloudFrontStreamingDistributionTrustedSigners' --- containing required fields as arguments. -cloudFrontStreamingDistributionTrustedSigners - :: Val Bool -- ^ 'cfsdtsEnabled' - -> CloudFrontStreamingDistributionTrustedSigners -cloudFrontStreamingDistributionTrustedSigners enabledarg = - CloudFrontStreamingDistributionTrustedSigners - { _cloudFrontStreamingDistributionTrustedSignersAwsAccountNumbers = Nothing - , _cloudFrontStreamingDistributionTrustedSignersEnabled = enabledarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-trustedsigners.html#cfn-cloudfront-streamingdistribution-trustedsigners-awsaccountnumbers -cfsdtsAwsAccountNumbers :: Lens' CloudFrontStreamingDistributionTrustedSigners (Maybe (ValList Text)) -cfsdtsAwsAccountNumbers = lens _cloudFrontStreamingDistributionTrustedSignersAwsAccountNumbers (\s a -> s { _cloudFrontStreamingDistributionTrustedSignersAwsAccountNumbers = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-streamingdistribution-trustedsigners.html#cfn-cloudfront-streamingdistribution-trustedsigners-enabled -cfsdtsEnabled :: Lens' CloudFrontStreamingDistributionTrustedSigners (Val Bool) -cfsdtsEnabled = lens _cloudFrontStreamingDistributionTrustedSignersEnabled (\s a -> s { _cloudFrontStreamingDistributionTrustedSignersEnabled = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudTrailTrailDataResource.hs b/library-gen/Stratosphere/ResourceProperties/CloudTrailTrailDataResource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudTrailTrailDataResource.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudtrail-trail-dataresource.html - -module Stratosphere.ResourceProperties.CloudTrailTrailDataResource where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CloudTrailTrailDataResource. See --- 'cloudTrailTrailDataResource' for a more convenient constructor. -data CloudTrailTrailDataResource = - CloudTrailTrailDataResource - { _cloudTrailTrailDataResourceType :: Val Text - , _cloudTrailTrailDataResourceValues :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON CloudTrailTrailDataResource where - toJSON CloudTrailTrailDataResource{..} = - object $ - catMaybes - [ (Just . ("Type",) . toJSON) _cloudTrailTrailDataResourceType - , fmap (("Values",) . toJSON) _cloudTrailTrailDataResourceValues - ] - --- | Constructor for 'CloudTrailTrailDataResource' containing required fields --- as arguments. -cloudTrailTrailDataResource - :: Val Text -- ^ 'cttdrType' - -> CloudTrailTrailDataResource -cloudTrailTrailDataResource typearg = - CloudTrailTrailDataResource - { _cloudTrailTrailDataResourceType = typearg - , _cloudTrailTrailDataResourceValues = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudtrail-trail-dataresource.html#cfn-cloudtrail-trail-dataresource-type -cttdrType :: Lens' CloudTrailTrailDataResource (Val Text) -cttdrType = lens _cloudTrailTrailDataResourceType (\s a -> s { _cloudTrailTrailDataResourceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudtrail-trail-dataresource.html#cfn-cloudtrail-trail-dataresource-values -cttdrValues :: Lens' CloudTrailTrailDataResource (Maybe (ValList Text)) -cttdrValues = lens _cloudTrailTrailDataResourceValues (\s a -> s { _cloudTrailTrailDataResourceValues = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudTrailTrailEventSelector.hs b/library-gen/Stratosphere/ResourceProperties/CloudTrailTrailEventSelector.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudTrailTrailEventSelector.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudtrail-trail-eventselector.html - -module Stratosphere.ResourceProperties.CloudTrailTrailEventSelector where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CloudTrailTrailDataResource - --- | Full data type definition for CloudTrailTrailEventSelector. See --- 'cloudTrailTrailEventSelector' for a more convenient constructor. -data CloudTrailTrailEventSelector = - CloudTrailTrailEventSelector - { _cloudTrailTrailEventSelectorDataResources :: Maybe [CloudTrailTrailDataResource] - , _cloudTrailTrailEventSelectorIncludeManagementEvents :: Maybe (Val Bool) - , _cloudTrailTrailEventSelectorReadWriteType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CloudTrailTrailEventSelector where - toJSON CloudTrailTrailEventSelector{..} = - object $ - catMaybes - [ fmap (("DataResources",) . toJSON) _cloudTrailTrailEventSelectorDataResources - , fmap (("IncludeManagementEvents",) . toJSON) _cloudTrailTrailEventSelectorIncludeManagementEvents - , fmap (("ReadWriteType",) . toJSON) _cloudTrailTrailEventSelectorReadWriteType - ] - --- | Constructor for 'CloudTrailTrailEventSelector' containing required fields --- as arguments. -cloudTrailTrailEventSelector - :: CloudTrailTrailEventSelector -cloudTrailTrailEventSelector = - CloudTrailTrailEventSelector - { _cloudTrailTrailEventSelectorDataResources = Nothing - , _cloudTrailTrailEventSelectorIncludeManagementEvents = Nothing - , _cloudTrailTrailEventSelectorReadWriteType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudtrail-trail-eventselector.html#cfn-cloudtrail-trail-eventselector-dataresources -cttesDataResources :: Lens' CloudTrailTrailEventSelector (Maybe [CloudTrailTrailDataResource]) -cttesDataResources = lens _cloudTrailTrailEventSelectorDataResources (\s a -> s { _cloudTrailTrailEventSelectorDataResources = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudtrail-trail-eventselector.html#cfn-cloudtrail-trail-eventselector-includemanagementevents -cttesIncludeManagementEvents :: Lens' CloudTrailTrailEventSelector (Maybe (Val Bool)) -cttesIncludeManagementEvents = lens _cloudTrailTrailEventSelectorIncludeManagementEvents (\s a -> s { _cloudTrailTrailEventSelectorIncludeManagementEvents = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudtrail-trail-eventselector.html#cfn-cloudtrail-trail-eventselector-readwritetype -cttesReadWriteType :: Lens' CloudTrailTrailEventSelector (Maybe (Val Text)) -cttesReadWriteType = lens _cloudTrailTrailEventSelectorReadWriteType (\s a -> s { _cloudTrailTrailEventSelectorReadWriteType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudWatchAlarmDimension.hs b/library-gen/Stratosphere/ResourceProperties/CloudWatchAlarmDimension.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudWatchAlarmDimension.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-dimension.html - -module Stratosphere.ResourceProperties.CloudWatchAlarmDimension where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CloudWatchAlarmDimension. See --- 'cloudWatchAlarmDimension' for a more convenient constructor. -data CloudWatchAlarmDimension = - CloudWatchAlarmDimension - { _cloudWatchAlarmDimensionName :: Val Text - , _cloudWatchAlarmDimensionValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON CloudWatchAlarmDimension where - toJSON CloudWatchAlarmDimension{..} = - object $ - catMaybes - [ (Just . ("Name",) . toJSON) _cloudWatchAlarmDimensionName - , (Just . ("Value",) . toJSON) _cloudWatchAlarmDimensionValue - ] - --- | Constructor for 'CloudWatchAlarmDimension' containing required fields as --- arguments. -cloudWatchAlarmDimension - :: Val Text -- ^ 'cwadName' - -> Val Text -- ^ 'cwadValue' - -> CloudWatchAlarmDimension -cloudWatchAlarmDimension namearg valuearg = - CloudWatchAlarmDimension - { _cloudWatchAlarmDimensionName = namearg - , _cloudWatchAlarmDimensionValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-dimension.html#cfn-cloudwatch-alarm-dimension-name -cwadName :: Lens' CloudWatchAlarmDimension (Val Text) -cwadName = lens _cloudWatchAlarmDimensionName (\s a -> s { _cloudWatchAlarmDimensionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-dimension.html#cfn-cloudwatch-alarm-dimension-value -cwadValue :: Lens' CloudWatchAlarmDimension (Val Text) -cwadValue = lens _cloudWatchAlarmDimensionValue (\s a -> s { _cloudWatchAlarmDimensionValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudWatchAlarmMetric.hs b/library-gen/Stratosphere/ResourceProperties/CloudWatchAlarmMetric.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudWatchAlarmMetric.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metric.html - -module Stratosphere.ResourceProperties.CloudWatchAlarmMetric where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CloudWatchAlarmDimension - --- | Full data type definition for CloudWatchAlarmMetric. See --- 'cloudWatchAlarmMetric' for a more convenient constructor. -data CloudWatchAlarmMetric = - CloudWatchAlarmMetric - { _cloudWatchAlarmMetricDimensions :: Maybe [CloudWatchAlarmDimension] - , _cloudWatchAlarmMetricMetricName :: Maybe (Val Text) - , _cloudWatchAlarmMetricNamespace :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CloudWatchAlarmMetric where - toJSON CloudWatchAlarmMetric{..} = - object $ - catMaybes - [ fmap (("Dimensions",) . toJSON) _cloudWatchAlarmMetricDimensions - , fmap (("MetricName",) . toJSON) _cloudWatchAlarmMetricMetricName - , fmap (("Namespace",) . toJSON) _cloudWatchAlarmMetricNamespace - ] - --- | Constructor for 'CloudWatchAlarmMetric' containing required fields as --- arguments. -cloudWatchAlarmMetric - :: CloudWatchAlarmMetric -cloudWatchAlarmMetric = - CloudWatchAlarmMetric - { _cloudWatchAlarmMetricDimensions = Nothing - , _cloudWatchAlarmMetricMetricName = Nothing - , _cloudWatchAlarmMetricNamespace = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metric.html#cfn-cloudwatch-alarm-metric-dimensions -cwamDimensions :: Lens' CloudWatchAlarmMetric (Maybe [CloudWatchAlarmDimension]) -cwamDimensions = lens _cloudWatchAlarmMetricDimensions (\s a -> s { _cloudWatchAlarmMetricDimensions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metric.html#cfn-cloudwatch-alarm-metric-metricname -cwamMetricName :: Lens' CloudWatchAlarmMetric (Maybe (Val Text)) -cwamMetricName = lens _cloudWatchAlarmMetricMetricName (\s a -> s { _cloudWatchAlarmMetricMetricName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metric.html#cfn-cloudwatch-alarm-metric-namespace -cwamNamespace :: Lens' CloudWatchAlarmMetric (Maybe (Val Text)) -cwamNamespace = lens _cloudWatchAlarmMetricNamespace (\s a -> s { _cloudWatchAlarmMetricNamespace = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudWatchAlarmMetricDataQuery.hs b/library-gen/Stratosphere/ResourceProperties/CloudWatchAlarmMetricDataQuery.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudWatchAlarmMetricDataQuery.hs +++ /dev/null @@ -1,74 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metricdataquery.html - -module Stratosphere.ResourceProperties.CloudWatchAlarmMetricDataQuery where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CloudWatchAlarmMetricStat - --- | Full data type definition for CloudWatchAlarmMetricDataQuery. See --- 'cloudWatchAlarmMetricDataQuery' for a more convenient constructor. -data CloudWatchAlarmMetricDataQuery = - CloudWatchAlarmMetricDataQuery - { _cloudWatchAlarmMetricDataQueryExpression :: Maybe (Val Text) - , _cloudWatchAlarmMetricDataQueryId :: Val Text - , _cloudWatchAlarmMetricDataQueryLabel :: Maybe (Val Text) - , _cloudWatchAlarmMetricDataQueryMetricStat :: Maybe CloudWatchAlarmMetricStat - , _cloudWatchAlarmMetricDataQueryPeriod :: Maybe (Val Integer) - , _cloudWatchAlarmMetricDataQueryReturnData :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON CloudWatchAlarmMetricDataQuery where - toJSON CloudWatchAlarmMetricDataQuery{..} = - object $ - catMaybes - [ fmap (("Expression",) . toJSON) _cloudWatchAlarmMetricDataQueryExpression - , (Just . ("Id",) . toJSON) _cloudWatchAlarmMetricDataQueryId - , fmap (("Label",) . toJSON) _cloudWatchAlarmMetricDataQueryLabel - , fmap (("MetricStat",) . toJSON) _cloudWatchAlarmMetricDataQueryMetricStat - , fmap (("Period",) . toJSON) _cloudWatchAlarmMetricDataQueryPeriod - , fmap (("ReturnData",) . toJSON) _cloudWatchAlarmMetricDataQueryReturnData - ] - --- | Constructor for 'CloudWatchAlarmMetricDataQuery' containing required --- fields as arguments. -cloudWatchAlarmMetricDataQuery - :: Val Text -- ^ 'cwamdqId' - -> CloudWatchAlarmMetricDataQuery -cloudWatchAlarmMetricDataQuery idarg = - CloudWatchAlarmMetricDataQuery - { _cloudWatchAlarmMetricDataQueryExpression = Nothing - , _cloudWatchAlarmMetricDataQueryId = idarg - , _cloudWatchAlarmMetricDataQueryLabel = Nothing - , _cloudWatchAlarmMetricDataQueryMetricStat = Nothing - , _cloudWatchAlarmMetricDataQueryPeriod = Nothing - , _cloudWatchAlarmMetricDataQueryReturnData = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metricdataquery.html#cfn-cloudwatch-alarm-metricdataquery-expression -cwamdqExpression :: Lens' CloudWatchAlarmMetricDataQuery (Maybe (Val Text)) -cwamdqExpression = lens _cloudWatchAlarmMetricDataQueryExpression (\s a -> s { _cloudWatchAlarmMetricDataQueryExpression = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metricdataquery.html#cfn-cloudwatch-alarm-metricdataquery-id -cwamdqId :: Lens' CloudWatchAlarmMetricDataQuery (Val Text) -cwamdqId = lens _cloudWatchAlarmMetricDataQueryId (\s a -> s { _cloudWatchAlarmMetricDataQueryId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metricdataquery.html#cfn-cloudwatch-alarm-metricdataquery-label -cwamdqLabel :: Lens' CloudWatchAlarmMetricDataQuery (Maybe (Val Text)) -cwamdqLabel = lens _cloudWatchAlarmMetricDataQueryLabel (\s a -> s { _cloudWatchAlarmMetricDataQueryLabel = a }) - --- | 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)) -cwamdqReturnData = lens _cloudWatchAlarmMetricDataQueryReturnData (\s a -> s { _cloudWatchAlarmMetricDataQueryReturnData = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudWatchAlarmMetricStat.hs b/library-gen/Stratosphere/ResourceProperties/CloudWatchAlarmMetricStat.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudWatchAlarmMetricStat.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metricstat.html - -module Stratosphere.ResourceProperties.CloudWatchAlarmMetricStat where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CloudWatchAlarmMetric - --- | Full data type definition for CloudWatchAlarmMetricStat. See --- 'cloudWatchAlarmMetricStat' for a more convenient constructor. -data CloudWatchAlarmMetricStat = - CloudWatchAlarmMetricStat - { _cloudWatchAlarmMetricStatMetric :: CloudWatchAlarmMetric - , _cloudWatchAlarmMetricStatPeriod :: Val Integer - , _cloudWatchAlarmMetricStatStat :: Val Text - , _cloudWatchAlarmMetricStatUnit :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CloudWatchAlarmMetricStat where - toJSON CloudWatchAlarmMetricStat{..} = - object $ - catMaybes - [ (Just . ("Metric",) . toJSON) _cloudWatchAlarmMetricStatMetric - , (Just . ("Period",) . toJSON) _cloudWatchAlarmMetricStatPeriod - , (Just . ("Stat",) . toJSON) _cloudWatchAlarmMetricStatStat - , fmap (("Unit",) . toJSON) _cloudWatchAlarmMetricStatUnit - ] - --- | Constructor for 'CloudWatchAlarmMetricStat' containing required fields as --- arguments. -cloudWatchAlarmMetricStat - :: CloudWatchAlarmMetric -- ^ 'cwamsMetric' - -> Val Integer -- ^ 'cwamsPeriod' - -> Val Text -- ^ 'cwamsStat' - -> CloudWatchAlarmMetricStat -cloudWatchAlarmMetricStat metricarg periodarg statarg = - CloudWatchAlarmMetricStat - { _cloudWatchAlarmMetricStatMetric = metricarg - , _cloudWatchAlarmMetricStatPeriod = periodarg - , _cloudWatchAlarmMetricStatStat = statarg - , _cloudWatchAlarmMetricStatUnit = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metricstat.html#cfn-cloudwatch-alarm-metricstat-metric -cwamsMetric :: Lens' CloudWatchAlarmMetricStat CloudWatchAlarmMetric -cwamsMetric = lens _cloudWatchAlarmMetricStatMetric (\s a -> s { _cloudWatchAlarmMetricStatMetric = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metricstat.html#cfn-cloudwatch-alarm-metricstat-period -cwamsPeriod :: Lens' CloudWatchAlarmMetricStat (Val Integer) -cwamsPeriod = lens _cloudWatchAlarmMetricStatPeriod (\s a -> s { _cloudWatchAlarmMetricStatPeriod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metricstat.html#cfn-cloudwatch-alarm-metricstat-stat -cwamsStat :: Lens' CloudWatchAlarmMetricStat (Val Text) -cwamsStat = lens _cloudWatchAlarmMetricStatStat (\s a -> s { _cloudWatchAlarmMetricStatStat = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-alarm-metricstat.html#cfn-cloudwatch-alarm-metricstat-unit -cwamsUnit :: Lens' CloudWatchAlarmMetricStat (Maybe (Val Text)) -cwamsUnit = lens _cloudWatchAlarmMetricStatUnit (\s a -> s { _cloudWatchAlarmMetricStatUnit = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudWatchAnomalyDetectorConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/CloudWatchAnomalyDetectorConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudWatchAnomalyDetectorConfiguration.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-anomalydetector-configuration.html - -module Stratosphere.ResourceProperties.CloudWatchAnomalyDetectorConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CloudWatchAnomalyDetectorRange - --- | Full data type definition for CloudWatchAnomalyDetectorConfiguration. See --- 'cloudWatchAnomalyDetectorConfiguration' for a more convenient --- constructor. -data CloudWatchAnomalyDetectorConfiguration = - CloudWatchAnomalyDetectorConfiguration - { _cloudWatchAnomalyDetectorConfigurationExcludedTimeRanges :: Maybe [CloudWatchAnomalyDetectorRange] - , _cloudWatchAnomalyDetectorConfigurationMetricTimeZone :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CloudWatchAnomalyDetectorConfiguration where - toJSON CloudWatchAnomalyDetectorConfiguration{..} = - object $ - catMaybes - [ fmap (("ExcludedTimeRanges",) . toJSON) _cloudWatchAnomalyDetectorConfigurationExcludedTimeRanges - , fmap (("MetricTimeZone",) . toJSON) _cloudWatchAnomalyDetectorConfigurationMetricTimeZone - ] - --- | Constructor for 'CloudWatchAnomalyDetectorConfiguration' containing --- required fields as arguments. -cloudWatchAnomalyDetectorConfiguration - :: CloudWatchAnomalyDetectorConfiguration -cloudWatchAnomalyDetectorConfiguration = - CloudWatchAnomalyDetectorConfiguration - { _cloudWatchAnomalyDetectorConfigurationExcludedTimeRanges = Nothing - , _cloudWatchAnomalyDetectorConfigurationMetricTimeZone = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-anomalydetector-configuration.html#cfn-cloudwatch-anomalydetector-configuration-excludedtimeranges -cwadcExcludedTimeRanges :: Lens' CloudWatchAnomalyDetectorConfiguration (Maybe [CloudWatchAnomalyDetectorRange]) -cwadcExcludedTimeRanges = lens _cloudWatchAnomalyDetectorConfigurationExcludedTimeRanges (\s a -> s { _cloudWatchAnomalyDetectorConfigurationExcludedTimeRanges = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-anomalydetector-configuration.html#cfn-cloudwatch-anomalydetector-configuration-metrictimezone -cwadcMetricTimeZone :: Lens' CloudWatchAnomalyDetectorConfiguration (Maybe (Val Text)) -cwadcMetricTimeZone = lens _cloudWatchAnomalyDetectorConfigurationMetricTimeZone (\s a -> s { _cloudWatchAnomalyDetectorConfigurationMetricTimeZone = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudWatchAnomalyDetectorDimension.hs b/library-gen/Stratosphere/ResourceProperties/CloudWatchAnomalyDetectorDimension.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudWatchAnomalyDetectorDimension.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-anomalydetector-dimension.html - -module Stratosphere.ResourceProperties.CloudWatchAnomalyDetectorDimension where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CloudWatchAnomalyDetectorDimension. See --- 'cloudWatchAnomalyDetectorDimension' for a more convenient constructor. -data CloudWatchAnomalyDetectorDimension = - CloudWatchAnomalyDetectorDimension - { _cloudWatchAnomalyDetectorDimensionName :: Val Text - , _cloudWatchAnomalyDetectorDimensionValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON CloudWatchAnomalyDetectorDimension where - toJSON CloudWatchAnomalyDetectorDimension{..} = - object $ - catMaybes - [ (Just . ("Name",) . toJSON) _cloudWatchAnomalyDetectorDimensionName - , (Just . ("Value",) . toJSON) _cloudWatchAnomalyDetectorDimensionValue - ] - --- | Constructor for 'CloudWatchAnomalyDetectorDimension' containing required --- fields as arguments. -cloudWatchAnomalyDetectorDimension - :: Val Text -- ^ 'cwaddName' - -> Val Text -- ^ 'cwaddValue' - -> CloudWatchAnomalyDetectorDimension -cloudWatchAnomalyDetectorDimension namearg valuearg = - CloudWatchAnomalyDetectorDimension - { _cloudWatchAnomalyDetectorDimensionName = namearg - , _cloudWatchAnomalyDetectorDimensionValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-anomalydetector-dimension.html#cfn-cloudwatch-anomalydetector-dimension-name -cwaddName :: Lens' CloudWatchAnomalyDetectorDimension (Val Text) -cwaddName = lens _cloudWatchAnomalyDetectorDimensionName (\s a -> s { _cloudWatchAnomalyDetectorDimensionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-anomalydetector-dimension.html#cfn-cloudwatch-anomalydetector-dimension-value -cwaddValue :: Lens' CloudWatchAnomalyDetectorDimension (Val Text) -cwaddValue = lens _cloudWatchAnomalyDetectorDimensionValue (\s a -> s { _cloudWatchAnomalyDetectorDimensionValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CloudWatchAnomalyDetectorRange.hs b/library-gen/Stratosphere/ResourceProperties/CloudWatchAnomalyDetectorRange.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CloudWatchAnomalyDetectorRange.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-anomalydetector-range.html - -module Stratosphere.ResourceProperties.CloudWatchAnomalyDetectorRange where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CloudWatchAnomalyDetectorRange. See --- 'cloudWatchAnomalyDetectorRange' for a more convenient constructor. -data CloudWatchAnomalyDetectorRange = - CloudWatchAnomalyDetectorRange - { _cloudWatchAnomalyDetectorRangeEndTime :: Val Text - , _cloudWatchAnomalyDetectorRangeStartTime :: Val Text - } deriving (Show, Eq) - -instance ToJSON CloudWatchAnomalyDetectorRange where - toJSON CloudWatchAnomalyDetectorRange{..} = - object $ - catMaybes - [ (Just . ("EndTime",) . toJSON) _cloudWatchAnomalyDetectorRangeEndTime - , (Just . ("StartTime",) . toJSON) _cloudWatchAnomalyDetectorRangeStartTime - ] - --- | Constructor for 'CloudWatchAnomalyDetectorRange' containing required --- fields as arguments. -cloudWatchAnomalyDetectorRange - :: Val Text -- ^ 'cwadrEndTime' - -> Val Text -- ^ 'cwadrStartTime' - -> CloudWatchAnomalyDetectorRange -cloudWatchAnomalyDetectorRange endTimearg startTimearg = - CloudWatchAnomalyDetectorRange - { _cloudWatchAnomalyDetectorRangeEndTime = endTimearg - , _cloudWatchAnomalyDetectorRangeStartTime = startTimearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-anomalydetector-range.html#cfn-cloudwatch-anomalydetector-range-endtime -cwadrEndTime :: Lens' CloudWatchAnomalyDetectorRange (Val Text) -cwadrEndTime = lens _cloudWatchAnomalyDetectorRangeEndTime (\s a -> s { _cloudWatchAnomalyDetectorRangeEndTime = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudwatch-anomalydetector-range.html#cfn-cloudwatch-anomalydetector-range-starttime -cwadrStartTime :: Lens' CloudWatchAnomalyDetectorRange (Val Text) -cwadrStartTime = lens _cloudWatchAnomalyDetectorRangeStartTime (\s a -> s { _cloudWatchAnomalyDetectorRangeStartTime = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectArtifacts.hs b/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectArtifacts.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectArtifacts.hs +++ /dev/null @@ -1,95 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-artifacts.html - -module Stratosphere.ResourceProperties.CodeBuildProjectArtifacts where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeBuildProjectArtifacts. See --- 'codeBuildProjectArtifacts' for a more convenient constructor. -data CodeBuildProjectArtifacts = - CodeBuildProjectArtifacts - { _codeBuildProjectArtifactsArtifactIdentifier :: Maybe (Val Text) - , _codeBuildProjectArtifactsEncryptionDisabled :: Maybe (Val Bool) - , _codeBuildProjectArtifactsLocation :: Maybe (Val Text) - , _codeBuildProjectArtifactsName :: Maybe (Val Text) - , _codeBuildProjectArtifactsNamespaceType :: Maybe (Val Text) - , _codeBuildProjectArtifactsOverrideArtifactName :: Maybe (Val Bool) - , _codeBuildProjectArtifactsPackaging :: Maybe (Val Text) - , _codeBuildProjectArtifactsPath :: Maybe (Val Text) - , _codeBuildProjectArtifactsType :: Val Text - } deriving (Show, Eq) - -instance ToJSON CodeBuildProjectArtifacts where - toJSON CodeBuildProjectArtifacts{..} = - object $ - catMaybes - [ fmap (("ArtifactIdentifier",) . toJSON) _codeBuildProjectArtifactsArtifactIdentifier - , fmap (("EncryptionDisabled",) . toJSON) _codeBuildProjectArtifactsEncryptionDisabled - , fmap (("Location",) . toJSON) _codeBuildProjectArtifactsLocation - , fmap (("Name",) . toJSON) _codeBuildProjectArtifactsName - , fmap (("NamespaceType",) . toJSON) _codeBuildProjectArtifactsNamespaceType - , fmap (("OverrideArtifactName",) . toJSON) _codeBuildProjectArtifactsOverrideArtifactName - , fmap (("Packaging",) . toJSON) _codeBuildProjectArtifactsPackaging - , fmap (("Path",) . toJSON) _codeBuildProjectArtifactsPath - , (Just . ("Type",) . toJSON) _codeBuildProjectArtifactsType - ] - --- | Constructor for 'CodeBuildProjectArtifacts' containing required fields as --- arguments. -codeBuildProjectArtifacts - :: Val Text -- ^ 'cbpaType' - -> CodeBuildProjectArtifacts -codeBuildProjectArtifacts typearg = - CodeBuildProjectArtifacts - { _codeBuildProjectArtifactsArtifactIdentifier = Nothing - , _codeBuildProjectArtifactsEncryptionDisabled = Nothing - , _codeBuildProjectArtifactsLocation = Nothing - , _codeBuildProjectArtifactsName = Nothing - , _codeBuildProjectArtifactsNamespaceType = Nothing - , _codeBuildProjectArtifactsOverrideArtifactName = Nothing - , _codeBuildProjectArtifactsPackaging = Nothing - , _codeBuildProjectArtifactsPath = Nothing - , _codeBuildProjectArtifactsType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-artifacts.html#cfn-codebuild-project-artifacts-artifactidentifier -cbpaArtifactIdentifier :: Lens' CodeBuildProjectArtifacts (Maybe (Val Text)) -cbpaArtifactIdentifier = lens _codeBuildProjectArtifactsArtifactIdentifier (\s a -> s { _codeBuildProjectArtifactsArtifactIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-artifacts.html#cfn-codebuild-project-artifacts-encryptiondisabled -cbpaEncryptionDisabled :: Lens' CodeBuildProjectArtifacts (Maybe (Val Bool)) -cbpaEncryptionDisabled = lens _codeBuildProjectArtifactsEncryptionDisabled (\s a -> s { _codeBuildProjectArtifactsEncryptionDisabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-artifacts.html#cfn-codebuild-project-artifacts-location -cbpaLocation :: Lens' CodeBuildProjectArtifacts (Maybe (Val Text)) -cbpaLocation = lens _codeBuildProjectArtifactsLocation (\s a -> s { _codeBuildProjectArtifactsLocation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-artifacts.html#cfn-codebuild-project-artifacts-name -cbpaName :: Lens' CodeBuildProjectArtifacts (Maybe (Val Text)) -cbpaName = lens _codeBuildProjectArtifactsName (\s a -> s { _codeBuildProjectArtifactsName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-artifacts.html#cfn-codebuild-project-artifacts-namespacetype -cbpaNamespaceType :: Lens' CodeBuildProjectArtifacts (Maybe (Val Text)) -cbpaNamespaceType = lens _codeBuildProjectArtifactsNamespaceType (\s a -> s { _codeBuildProjectArtifactsNamespaceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-artifacts.html#cfn-codebuild-project-artifacts-overrideartifactname -cbpaOverrideArtifactName :: Lens' CodeBuildProjectArtifacts (Maybe (Val Bool)) -cbpaOverrideArtifactName = lens _codeBuildProjectArtifactsOverrideArtifactName (\s a -> s { _codeBuildProjectArtifactsOverrideArtifactName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-artifacts.html#cfn-codebuild-project-artifacts-packaging -cbpaPackaging :: Lens' CodeBuildProjectArtifacts (Maybe (Val Text)) -cbpaPackaging = lens _codeBuildProjectArtifactsPackaging (\s a -> s { _codeBuildProjectArtifactsPackaging = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-artifacts.html#cfn-codebuild-project-artifacts-path -cbpaPath :: Lens' CodeBuildProjectArtifacts (Maybe (Val Text)) -cbpaPath = lens _codeBuildProjectArtifactsPath (\s a -> s { _codeBuildProjectArtifactsPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-artifacts.html#cfn-codebuild-project-artifacts-type -cbpaType :: Lens' CodeBuildProjectArtifacts (Val Text) -cbpaType = lens _codeBuildProjectArtifactsType (\s a -> s { _codeBuildProjectArtifactsType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectBatchRestrictions.hs b/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectBatchRestrictions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectBatchRestrictions.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-batchrestrictions.html - -module Stratosphere.ResourceProperties.CodeBuildProjectBatchRestrictions where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeBuildProjectBatchRestrictions. See --- 'codeBuildProjectBatchRestrictions' for a more convenient constructor. -data CodeBuildProjectBatchRestrictions = - CodeBuildProjectBatchRestrictions - { _codeBuildProjectBatchRestrictionsComputeTypesAllowed :: Maybe (ValList Text) - , _codeBuildProjectBatchRestrictionsMaximumBuildsAllowed :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON CodeBuildProjectBatchRestrictions where - toJSON CodeBuildProjectBatchRestrictions{..} = - object $ - catMaybes - [ fmap (("ComputeTypesAllowed",) . toJSON) _codeBuildProjectBatchRestrictionsComputeTypesAllowed - , fmap (("MaximumBuildsAllowed",) . toJSON) _codeBuildProjectBatchRestrictionsMaximumBuildsAllowed - ] - --- | Constructor for 'CodeBuildProjectBatchRestrictions' containing required --- fields as arguments. -codeBuildProjectBatchRestrictions - :: CodeBuildProjectBatchRestrictions -codeBuildProjectBatchRestrictions = - CodeBuildProjectBatchRestrictions - { _codeBuildProjectBatchRestrictionsComputeTypesAllowed = Nothing - , _codeBuildProjectBatchRestrictionsMaximumBuildsAllowed = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-batchrestrictions.html#cfn-codebuild-project-batchrestrictions-computetypesallowed -cbpbrComputeTypesAllowed :: Lens' CodeBuildProjectBatchRestrictions (Maybe (ValList Text)) -cbpbrComputeTypesAllowed = lens _codeBuildProjectBatchRestrictionsComputeTypesAllowed (\s a -> s { _codeBuildProjectBatchRestrictionsComputeTypesAllowed = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-batchrestrictions.html#cfn-codebuild-project-batchrestrictions-maximumbuildsallowed -cbpbrMaximumBuildsAllowed :: Lens' CodeBuildProjectBatchRestrictions (Maybe (Val Integer)) -cbpbrMaximumBuildsAllowed = lens _codeBuildProjectBatchRestrictionsMaximumBuildsAllowed (\s a -> s { _codeBuildProjectBatchRestrictionsMaximumBuildsAllowed = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectBuildStatusConfig.hs b/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectBuildStatusConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectBuildStatusConfig.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-buildstatusconfig.html - -module Stratosphere.ResourceProperties.CodeBuildProjectBuildStatusConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeBuildProjectBuildStatusConfig. See --- 'codeBuildProjectBuildStatusConfig' for a more convenient constructor. -data CodeBuildProjectBuildStatusConfig = - CodeBuildProjectBuildStatusConfig - { _codeBuildProjectBuildStatusConfigContext :: Maybe (Val Text) - , _codeBuildProjectBuildStatusConfigTargetUrl :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CodeBuildProjectBuildStatusConfig where - toJSON CodeBuildProjectBuildStatusConfig{..} = - object $ - catMaybes - [ fmap (("Context",) . toJSON) _codeBuildProjectBuildStatusConfigContext - , fmap (("TargetUrl",) . toJSON) _codeBuildProjectBuildStatusConfigTargetUrl - ] - --- | Constructor for 'CodeBuildProjectBuildStatusConfig' containing required --- fields as arguments. -codeBuildProjectBuildStatusConfig - :: CodeBuildProjectBuildStatusConfig -codeBuildProjectBuildStatusConfig = - CodeBuildProjectBuildStatusConfig - { _codeBuildProjectBuildStatusConfigContext = Nothing - , _codeBuildProjectBuildStatusConfigTargetUrl = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-buildstatusconfig.html#cfn-codebuild-project-buildstatusconfig-context -cbpbscContext :: Lens' CodeBuildProjectBuildStatusConfig (Maybe (Val Text)) -cbpbscContext = lens _codeBuildProjectBuildStatusConfigContext (\s a -> s { _codeBuildProjectBuildStatusConfigContext = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-buildstatusconfig.html#cfn-codebuild-project-buildstatusconfig-targeturl -cbpbscTargetUrl :: Lens' CodeBuildProjectBuildStatusConfig (Maybe (Val Text)) -cbpbscTargetUrl = lens _codeBuildProjectBuildStatusConfigTargetUrl (\s a -> s { _codeBuildProjectBuildStatusConfigTargetUrl = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectCloudWatchLogsConfig.hs b/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectCloudWatchLogsConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectCloudWatchLogsConfig.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-cloudwatchlogsconfig.html - -module Stratosphere.ResourceProperties.CodeBuildProjectCloudWatchLogsConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeBuildProjectCloudWatchLogsConfig. See --- 'codeBuildProjectCloudWatchLogsConfig' for a more convenient constructor. -data CodeBuildProjectCloudWatchLogsConfig = - CodeBuildProjectCloudWatchLogsConfig - { _codeBuildProjectCloudWatchLogsConfigGroupName :: Maybe (Val Text) - , _codeBuildProjectCloudWatchLogsConfigStatus :: Val Text - , _codeBuildProjectCloudWatchLogsConfigStreamName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CodeBuildProjectCloudWatchLogsConfig where - toJSON CodeBuildProjectCloudWatchLogsConfig{..} = - object $ - catMaybes - [ fmap (("GroupName",) . toJSON) _codeBuildProjectCloudWatchLogsConfigGroupName - , (Just . ("Status",) . toJSON) _codeBuildProjectCloudWatchLogsConfigStatus - , fmap (("StreamName",) . toJSON) _codeBuildProjectCloudWatchLogsConfigStreamName - ] - --- | Constructor for 'CodeBuildProjectCloudWatchLogsConfig' containing --- required fields as arguments. -codeBuildProjectCloudWatchLogsConfig - :: Val Text -- ^ 'cbpcwlcStatus' - -> CodeBuildProjectCloudWatchLogsConfig -codeBuildProjectCloudWatchLogsConfig statusarg = - CodeBuildProjectCloudWatchLogsConfig - { _codeBuildProjectCloudWatchLogsConfigGroupName = Nothing - , _codeBuildProjectCloudWatchLogsConfigStatus = statusarg - , _codeBuildProjectCloudWatchLogsConfigStreamName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-cloudwatchlogsconfig.html#cfn-codebuild-project-cloudwatchlogsconfig-groupname -cbpcwlcGroupName :: Lens' CodeBuildProjectCloudWatchLogsConfig (Maybe (Val Text)) -cbpcwlcGroupName = lens _codeBuildProjectCloudWatchLogsConfigGroupName (\s a -> s { _codeBuildProjectCloudWatchLogsConfigGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-cloudwatchlogsconfig.html#cfn-codebuild-project-cloudwatchlogsconfig-status -cbpcwlcStatus :: Lens' CodeBuildProjectCloudWatchLogsConfig (Val Text) -cbpcwlcStatus = lens _codeBuildProjectCloudWatchLogsConfigStatus (\s a -> s { _codeBuildProjectCloudWatchLogsConfigStatus = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-cloudwatchlogsconfig.html#cfn-codebuild-project-cloudwatchlogsconfig-streamname -cbpcwlcStreamName :: Lens' CodeBuildProjectCloudWatchLogsConfig (Maybe (Val Text)) -cbpcwlcStreamName = lens _codeBuildProjectCloudWatchLogsConfigStreamName (\s a -> s { _codeBuildProjectCloudWatchLogsConfigStreamName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectEnvironment.hs b/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectEnvironment.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectEnvironment.hs +++ /dev/null @@ -1,91 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-environment.html - -module Stratosphere.ResourceProperties.CodeBuildProjectEnvironment where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodeBuildProjectEnvironmentVariable -import Stratosphere.ResourceProperties.CodeBuildProjectRegistryCredential - --- | Full data type definition for CodeBuildProjectEnvironment. See --- 'codeBuildProjectEnvironment' for a more convenient constructor. -data CodeBuildProjectEnvironment = - CodeBuildProjectEnvironment - { _codeBuildProjectEnvironmentCertificate :: Maybe (Val Text) - , _codeBuildProjectEnvironmentComputeType :: Val Text - , _codeBuildProjectEnvironmentEnvironmentVariables :: Maybe [CodeBuildProjectEnvironmentVariable] - , _codeBuildProjectEnvironmentImage :: Val Text - , _codeBuildProjectEnvironmentImagePullCredentialsType :: Maybe (Val Text) - , _codeBuildProjectEnvironmentPrivilegedMode :: Maybe (Val Bool) - , _codeBuildProjectEnvironmentRegistryCredential :: Maybe CodeBuildProjectRegistryCredential - , _codeBuildProjectEnvironmentType :: Val Text - } deriving (Show, Eq) - -instance ToJSON CodeBuildProjectEnvironment where - toJSON CodeBuildProjectEnvironment{..} = - object $ - catMaybes - [ fmap (("Certificate",) . toJSON) _codeBuildProjectEnvironmentCertificate - , (Just . ("ComputeType",) . toJSON) _codeBuildProjectEnvironmentComputeType - , fmap (("EnvironmentVariables",) . toJSON) _codeBuildProjectEnvironmentEnvironmentVariables - , (Just . ("Image",) . toJSON) _codeBuildProjectEnvironmentImage - , fmap (("ImagePullCredentialsType",) . toJSON) _codeBuildProjectEnvironmentImagePullCredentialsType - , fmap (("PrivilegedMode",) . toJSON) _codeBuildProjectEnvironmentPrivilegedMode - , fmap (("RegistryCredential",) . toJSON) _codeBuildProjectEnvironmentRegistryCredential - , (Just . ("Type",) . toJSON) _codeBuildProjectEnvironmentType - ] - --- | Constructor for 'CodeBuildProjectEnvironment' containing required fields --- as arguments. -codeBuildProjectEnvironment - :: Val Text -- ^ 'cbpeComputeType' - -> Val Text -- ^ 'cbpeImage' - -> Val Text -- ^ 'cbpeType' - -> CodeBuildProjectEnvironment -codeBuildProjectEnvironment computeTypearg imagearg typearg = - CodeBuildProjectEnvironment - { _codeBuildProjectEnvironmentCertificate = Nothing - , _codeBuildProjectEnvironmentComputeType = computeTypearg - , _codeBuildProjectEnvironmentEnvironmentVariables = Nothing - , _codeBuildProjectEnvironmentImage = imagearg - , _codeBuildProjectEnvironmentImagePullCredentialsType = Nothing - , _codeBuildProjectEnvironmentPrivilegedMode = Nothing - , _codeBuildProjectEnvironmentRegistryCredential = Nothing - , _codeBuildProjectEnvironmentType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-environment.html#cfn-codebuild-project-environment-certificate -cbpeCertificate :: Lens' CodeBuildProjectEnvironment (Maybe (Val Text)) -cbpeCertificate = lens _codeBuildProjectEnvironmentCertificate (\s a -> s { _codeBuildProjectEnvironmentCertificate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-environment.html#cfn-codebuild-project-environment-computetype -cbpeComputeType :: Lens' CodeBuildProjectEnvironment (Val Text) -cbpeComputeType = lens _codeBuildProjectEnvironmentComputeType (\s a -> s { _codeBuildProjectEnvironmentComputeType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-environment.html#cfn-codebuild-project-environment-environmentvariables -cbpeEnvironmentVariables :: Lens' CodeBuildProjectEnvironment (Maybe [CodeBuildProjectEnvironmentVariable]) -cbpeEnvironmentVariables = lens _codeBuildProjectEnvironmentEnvironmentVariables (\s a -> s { _codeBuildProjectEnvironmentEnvironmentVariables = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-environment.html#cfn-codebuild-project-environment-image -cbpeImage :: Lens' CodeBuildProjectEnvironment (Val Text) -cbpeImage = lens _codeBuildProjectEnvironmentImage (\s a -> s { _codeBuildProjectEnvironmentImage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-environment.html#cfn-codebuild-project-environment-imagepullcredentialstype -cbpeImagePullCredentialsType :: Lens' CodeBuildProjectEnvironment (Maybe (Val Text)) -cbpeImagePullCredentialsType = lens _codeBuildProjectEnvironmentImagePullCredentialsType (\s a -> s { _codeBuildProjectEnvironmentImagePullCredentialsType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-environment.html#cfn-codebuild-project-environment-privilegedmode -cbpePrivilegedMode :: Lens' CodeBuildProjectEnvironment (Maybe (Val Bool)) -cbpePrivilegedMode = lens _codeBuildProjectEnvironmentPrivilegedMode (\s a -> s { _codeBuildProjectEnvironmentPrivilegedMode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-environment.html#cfn-codebuild-project-environment-registrycredential -cbpeRegistryCredential :: Lens' CodeBuildProjectEnvironment (Maybe CodeBuildProjectRegistryCredential) -cbpeRegistryCredential = lens _codeBuildProjectEnvironmentRegistryCredential (\s a -> s { _codeBuildProjectEnvironmentRegistryCredential = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-environment.html#cfn-codebuild-project-environment-type -cbpeType :: Lens' CodeBuildProjectEnvironment (Val Text) -cbpeType = lens _codeBuildProjectEnvironmentType (\s a -> s { _codeBuildProjectEnvironmentType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectEnvironmentVariable.hs b/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectEnvironmentVariable.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectEnvironmentVariable.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-environmentvariable.html - -module Stratosphere.ResourceProperties.CodeBuildProjectEnvironmentVariable where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeBuildProjectEnvironmentVariable. See --- 'codeBuildProjectEnvironmentVariable' for a more convenient constructor. -data CodeBuildProjectEnvironmentVariable = - CodeBuildProjectEnvironmentVariable - { _codeBuildProjectEnvironmentVariableName :: Val Text - , _codeBuildProjectEnvironmentVariableType :: Maybe (Val Text) - , _codeBuildProjectEnvironmentVariableValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON CodeBuildProjectEnvironmentVariable where - toJSON CodeBuildProjectEnvironmentVariable{..} = - object $ - catMaybes - [ (Just . ("Name",) . toJSON) _codeBuildProjectEnvironmentVariableName - , fmap (("Type",) . toJSON) _codeBuildProjectEnvironmentVariableType - , (Just . ("Value",) . toJSON) _codeBuildProjectEnvironmentVariableValue - ] - --- | Constructor for 'CodeBuildProjectEnvironmentVariable' containing required --- fields as arguments. -codeBuildProjectEnvironmentVariable - :: Val Text -- ^ 'cbpevName' - -> Val Text -- ^ 'cbpevValue' - -> CodeBuildProjectEnvironmentVariable -codeBuildProjectEnvironmentVariable namearg valuearg = - CodeBuildProjectEnvironmentVariable - { _codeBuildProjectEnvironmentVariableName = namearg - , _codeBuildProjectEnvironmentVariableType = Nothing - , _codeBuildProjectEnvironmentVariableValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-environmentvariable.html#cfn-codebuild-project-environmentvariable-name -cbpevName :: Lens' CodeBuildProjectEnvironmentVariable (Val Text) -cbpevName = lens _codeBuildProjectEnvironmentVariableName (\s a -> s { _codeBuildProjectEnvironmentVariableName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-environmentvariable.html#cfn-codebuild-project-environmentvariable-type -cbpevType :: Lens' CodeBuildProjectEnvironmentVariable (Maybe (Val Text)) -cbpevType = lens _codeBuildProjectEnvironmentVariableType (\s a -> s { _codeBuildProjectEnvironmentVariableType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-environmentvariable.html#cfn-codebuild-project-environmentvariable-value -cbpevValue :: Lens' CodeBuildProjectEnvironmentVariable (Val Text) -cbpevValue = lens _codeBuildProjectEnvironmentVariableValue (\s a -> s { _codeBuildProjectEnvironmentVariableValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectGitSubmodulesConfig.hs b/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectGitSubmodulesConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectGitSubmodulesConfig.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-gitsubmodulesconfig.html - -module Stratosphere.ResourceProperties.CodeBuildProjectGitSubmodulesConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeBuildProjectGitSubmodulesConfig. See --- 'codeBuildProjectGitSubmodulesConfig' for a more convenient constructor. -data CodeBuildProjectGitSubmodulesConfig = - CodeBuildProjectGitSubmodulesConfig - { _codeBuildProjectGitSubmodulesConfigFetchSubmodules :: Val Bool - } deriving (Show, Eq) - -instance ToJSON CodeBuildProjectGitSubmodulesConfig where - toJSON CodeBuildProjectGitSubmodulesConfig{..} = - object $ - catMaybes - [ (Just . ("FetchSubmodules",) . toJSON) _codeBuildProjectGitSubmodulesConfigFetchSubmodules - ] - --- | Constructor for 'CodeBuildProjectGitSubmodulesConfig' containing required --- fields as arguments. -codeBuildProjectGitSubmodulesConfig - :: Val Bool -- ^ 'cbpgscFetchSubmodules' - -> CodeBuildProjectGitSubmodulesConfig -codeBuildProjectGitSubmodulesConfig fetchSubmodulesarg = - CodeBuildProjectGitSubmodulesConfig - { _codeBuildProjectGitSubmodulesConfigFetchSubmodules = fetchSubmodulesarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-gitsubmodulesconfig.html#cfn-codebuild-project-gitsubmodulesconfig-fetchsubmodules -cbpgscFetchSubmodules :: Lens' CodeBuildProjectGitSubmodulesConfig (Val Bool) -cbpgscFetchSubmodules = lens _codeBuildProjectGitSubmodulesConfigFetchSubmodules (\s a -> s { _codeBuildProjectGitSubmodulesConfigFetchSubmodules = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectLogsConfig.hs b/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectLogsConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectLogsConfig.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-logsconfig.html - -module Stratosphere.ResourceProperties.CodeBuildProjectLogsConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodeBuildProjectCloudWatchLogsConfig -import Stratosphere.ResourceProperties.CodeBuildProjectS3LogsConfig - --- | Full data type definition for CodeBuildProjectLogsConfig. See --- 'codeBuildProjectLogsConfig' for a more convenient constructor. -data CodeBuildProjectLogsConfig = - CodeBuildProjectLogsConfig - { _codeBuildProjectLogsConfigCloudWatchLogs :: Maybe CodeBuildProjectCloudWatchLogsConfig - , _codeBuildProjectLogsConfigS3Logs :: Maybe CodeBuildProjectS3LogsConfig - } deriving (Show, Eq) - -instance ToJSON CodeBuildProjectLogsConfig where - toJSON CodeBuildProjectLogsConfig{..} = - object $ - catMaybes - [ fmap (("CloudWatchLogs",) . toJSON) _codeBuildProjectLogsConfigCloudWatchLogs - , fmap (("S3Logs",) . toJSON) _codeBuildProjectLogsConfigS3Logs - ] - --- | Constructor for 'CodeBuildProjectLogsConfig' containing required fields --- as arguments. -codeBuildProjectLogsConfig - :: CodeBuildProjectLogsConfig -codeBuildProjectLogsConfig = - CodeBuildProjectLogsConfig - { _codeBuildProjectLogsConfigCloudWatchLogs = Nothing - , _codeBuildProjectLogsConfigS3Logs = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-logsconfig.html#cfn-codebuild-project-logsconfig-cloudwatchlogs -cbplcCloudWatchLogs :: Lens' CodeBuildProjectLogsConfig (Maybe CodeBuildProjectCloudWatchLogsConfig) -cbplcCloudWatchLogs = lens _codeBuildProjectLogsConfigCloudWatchLogs (\s a -> s { _codeBuildProjectLogsConfigCloudWatchLogs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-logsconfig.html#cfn-codebuild-project-logsconfig-s3logs -cbplcS3Logs :: Lens' CodeBuildProjectLogsConfig (Maybe CodeBuildProjectS3LogsConfig) -cbplcS3Logs = lens _codeBuildProjectLogsConfigS3Logs (\s a -> s { _codeBuildProjectLogsConfigS3Logs = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectProjectBuildBatchConfig.hs b/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectProjectBuildBatchConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectProjectBuildBatchConfig.hs +++ /dev/null @@ -1,60 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-projectbuildbatchconfig.html - -module Stratosphere.ResourceProperties.CodeBuildProjectProjectBuildBatchConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodeBuildProjectBatchRestrictions - --- | Full data type definition for CodeBuildProjectProjectBuildBatchConfig. --- See 'codeBuildProjectProjectBuildBatchConfig' for a more convenient --- constructor. -data CodeBuildProjectProjectBuildBatchConfig = - CodeBuildProjectProjectBuildBatchConfig - { _codeBuildProjectProjectBuildBatchConfigCombineArtifacts :: Maybe (Val Bool) - , _codeBuildProjectProjectBuildBatchConfigRestrictions :: Maybe CodeBuildProjectBatchRestrictions - , _codeBuildProjectProjectBuildBatchConfigServiceRole :: Maybe (Val Text) - , _codeBuildProjectProjectBuildBatchConfigTimeoutInMins :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON CodeBuildProjectProjectBuildBatchConfig where - toJSON CodeBuildProjectProjectBuildBatchConfig{..} = - object $ - catMaybes - [ fmap (("CombineArtifacts",) . toJSON) _codeBuildProjectProjectBuildBatchConfigCombineArtifacts - , fmap (("Restrictions",) . toJSON) _codeBuildProjectProjectBuildBatchConfigRestrictions - , fmap (("ServiceRole",) . toJSON) _codeBuildProjectProjectBuildBatchConfigServiceRole - , fmap (("TimeoutInMins",) . toJSON) _codeBuildProjectProjectBuildBatchConfigTimeoutInMins - ] - --- | Constructor for 'CodeBuildProjectProjectBuildBatchConfig' containing --- required fields as arguments. -codeBuildProjectProjectBuildBatchConfig - :: CodeBuildProjectProjectBuildBatchConfig -codeBuildProjectProjectBuildBatchConfig = - CodeBuildProjectProjectBuildBatchConfig - { _codeBuildProjectProjectBuildBatchConfigCombineArtifacts = Nothing - , _codeBuildProjectProjectBuildBatchConfigRestrictions = Nothing - , _codeBuildProjectProjectBuildBatchConfigServiceRole = Nothing - , _codeBuildProjectProjectBuildBatchConfigTimeoutInMins = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-projectbuildbatchconfig.html#cfn-codebuild-project-projectbuildbatchconfig-combineartifacts -cbppbbcCombineArtifacts :: Lens' CodeBuildProjectProjectBuildBatchConfig (Maybe (Val Bool)) -cbppbbcCombineArtifacts = lens _codeBuildProjectProjectBuildBatchConfigCombineArtifacts (\s a -> s { _codeBuildProjectProjectBuildBatchConfigCombineArtifacts = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-projectbuildbatchconfig.html#cfn-codebuild-project-projectbuildbatchconfig-restrictions -cbppbbcRestrictions :: Lens' CodeBuildProjectProjectBuildBatchConfig (Maybe CodeBuildProjectBatchRestrictions) -cbppbbcRestrictions = lens _codeBuildProjectProjectBuildBatchConfigRestrictions (\s a -> s { _codeBuildProjectProjectBuildBatchConfigRestrictions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-projectbuildbatchconfig.html#cfn-codebuild-project-projectbuildbatchconfig-servicerole -cbppbbcServiceRole :: Lens' CodeBuildProjectProjectBuildBatchConfig (Maybe (Val Text)) -cbppbbcServiceRole = lens _codeBuildProjectProjectBuildBatchConfigServiceRole (\s a -> s { _codeBuildProjectProjectBuildBatchConfigServiceRole = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-projectbuildbatchconfig.html#cfn-codebuild-project-projectbuildbatchconfig-timeoutinmins -cbppbbcTimeoutInMins :: Lens' CodeBuildProjectProjectBuildBatchConfig (Maybe (Val Integer)) -cbppbbcTimeoutInMins = lens _codeBuildProjectProjectBuildBatchConfigTimeoutInMins (\s a -> s { _codeBuildProjectProjectBuildBatchConfigTimeoutInMins = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectProjectCache.hs b/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectProjectCache.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectProjectCache.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-projectcache.html - -module Stratosphere.ResourceProperties.CodeBuildProjectProjectCache where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeBuildProjectProjectCache. See --- 'codeBuildProjectProjectCache' for a more convenient constructor. -data CodeBuildProjectProjectCache = - CodeBuildProjectProjectCache - { _codeBuildProjectProjectCacheLocation :: Maybe (Val Text) - , _codeBuildProjectProjectCacheModes :: Maybe (ValList Text) - , _codeBuildProjectProjectCacheType :: Val Text - } deriving (Show, Eq) - -instance ToJSON CodeBuildProjectProjectCache where - toJSON CodeBuildProjectProjectCache{..} = - object $ - catMaybes - [ fmap (("Location",) . toJSON) _codeBuildProjectProjectCacheLocation - , fmap (("Modes",) . toJSON) _codeBuildProjectProjectCacheModes - , (Just . ("Type",) . toJSON) _codeBuildProjectProjectCacheType - ] - --- | Constructor for 'CodeBuildProjectProjectCache' containing required fields --- as arguments. -codeBuildProjectProjectCache - :: Val Text -- ^ 'cbppcType' - -> CodeBuildProjectProjectCache -codeBuildProjectProjectCache typearg = - CodeBuildProjectProjectCache - { _codeBuildProjectProjectCacheLocation = Nothing - , _codeBuildProjectProjectCacheModes = Nothing - , _codeBuildProjectProjectCacheType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-projectcache.html#cfn-codebuild-project-projectcache-location -cbppcLocation :: Lens' CodeBuildProjectProjectCache (Maybe (Val Text)) -cbppcLocation = lens _codeBuildProjectProjectCacheLocation (\s a -> s { _codeBuildProjectProjectCacheLocation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-projectcache.html#cfn-codebuild-project-projectcache-modes -cbppcModes :: Lens' CodeBuildProjectProjectCache (Maybe (ValList Text)) -cbppcModes = lens _codeBuildProjectProjectCacheModes (\s a -> s { _codeBuildProjectProjectCacheModes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-projectcache.html#cfn-codebuild-project-projectcache-type -cbppcType :: Lens' CodeBuildProjectProjectCache (Val Text) -cbppcType = lens _codeBuildProjectProjectCacheType (\s a -> s { _codeBuildProjectProjectCacheType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectProjectFileSystemLocation.hs b/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectProjectFileSystemLocation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectProjectFileSystemLocation.hs +++ /dev/null @@ -1,71 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-projectfilesystemlocation.html - -module Stratosphere.ResourceProperties.CodeBuildProjectProjectFileSystemLocation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeBuildProjectProjectFileSystemLocation. --- See 'codeBuildProjectProjectFileSystemLocation' for a more convenient --- constructor. -data CodeBuildProjectProjectFileSystemLocation = - CodeBuildProjectProjectFileSystemLocation - { _codeBuildProjectProjectFileSystemLocationIdentifier :: Val Text - , _codeBuildProjectProjectFileSystemLocationLocation :: Val Text - , _codeBuildProjectProjectFileSystemLocationMountOptions :: Maybe (Val Text) - , _codeBuildProjectProjectFileSystemLocationMountPoint :: Val Text - , _codeBuildProjectProjectFileSystemLocationType :: Val Text - } deriving (Show, Eq) - -instance ToJSON CodeBuildProjectProjectFileSystemLocation where - toJSON CodeBuildProjectProjectFileSystemLocation{..} = - object $ - catMaybes - [ (Just . ("Identifier",) . toJSON) _codeBuildProjectProjectFileSystemLocationIdentifier - , (Just . ("Location",) . toJSON) _codeBuildProjectProjectFileSystemLocationLocation - , fmap (("MountOptions",) . toJSON) _codeBuildProjectProjectFileSystemLocationMountOptions - , (Just . ("MountPoint",) . toJSON) _codeBuildProjectProjectFileSystemLocationMountPoint - , (Just . ("Type",) . toJSON) _codeBuildProjectProjectFileSystemLocationType - ] - --- | Constructor for 'CodeBuildProjectProjectFileSystemLocation' containing --- required fields as arguments. -codeBuildProjectProjectFileSystemLocation - :: Val Text -- ^ 'cbppfslIdentifier' - -> Val Text -- ^ 'cbppfslLocation' - -> Val Text -- ^ 'cbppfslMountPoint' - -> Val Text -- ^ 'cbppfslType' - -> CodeBuildProjectProjectFileSystemLocation -codeBuildProjectProjectFileSystemLocation identifierarg locationarg mountPointarg typearg = - CodeBuildProjectProjectFileSystemLocation - { _codeBuildProjectProjectFileSystemLocationIdentifier = identifierarg - , _codeBuildProjectProjectFileSystemLocationLocation = locationarg - , _codeBuildProjectProjectFileSystemLocationMountOptions = Nothing - , _codeBuildProjectProjectFileSystemLocationMountPoint = mountPointarg - , _codeBuildProjectProjectFileSystemLocationType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-projectfilesystemlocation.html#cfn-codebuild-project-projectfilesystemlocation-identifier -cbppfslIdentifier :: Lens' CodeBuildProjectProjectFileSystemLocation (Val Text) -cbppfslIdentifier = lens _codeBuildProjectProjectFileSystemLocationIdentifier (\s a -> s { _codeBuildProjectProjectFileSystemLocationIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-projectfilesystemlocation.html#cfn-codebuild-project-projectfilesystemlocation-location -cbppfslLocation :: Lens' CodeBuildProjectProjectFileSystemLocation (Val Text) -cbppfslLocation = lens _codeBuildProjectProjectFileSystemLocationLocation (\s a -> s { _codeBuildProjectProjectFileSystemLocationLocation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-projectfilesystemlocation.html#cfn-codebuild-project-projectfilesystemlocation-mountoptions -cbppfslMountOptions :: Lens' CodeBuildProjectProjectFileSystemLocation (Maybe (Val Text)) -cbppfslMountOptions = lens _codeBuildProjectProjectFileSystemLocationMountOptions (\s a -> s { _codeBuildProjectProjectFileSystemLocationMountOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-projectfilesystemlocation.html#cfn-codebuild-project-projectfilesystemlocation-mountpoint -cbppfslMountPoint :: Lens' CodeBuildProjectProjectFileSystemLocation (Val Text) -cbppfslMountPoint = lens _codeBuildProjectProjectFileSystemLocationMountPoint (\s a -> s { _codeBuildProjectProjectFileSystemLocationMountPoint = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-projectfilesystemlocation.html#cfn-codebuild-project-projectfilesystemlocation-type -cbppfslType :: Lens' CodeBuildProjectProjectFileSystemLocation (Val Text) -cbppfslType = lens _codeBuildProjectProjectFileSystemLocationType (\s a -> s { _codeBuildProjectProjectFileSystemLocationType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectProjectSourceVersion.hs b/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectProjectSourceVersion.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectProjectSourceVersion.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-projectsourceversion.html - -module Stratosphere.ResourceProperties.CodeBuildProjectProjectSourceVersion where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeBuildProjectProjectSourceVersion. See --- 'codeBuildProjectProjectSourceVersion' for a more convenient constructor. -data CodeBuildProjectProjectSourceVersion = - CodeBuildProjectProjectSourceVersion - { _codeBuildProjectProjectSourceVersionSourceIdentifier :: Val Text - , _codeBuildProjectProjectSourceVersionSourceVersion :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CodeBuildProjectProjectSourceVersion where - toJSON CodeBuildProjectProjectSourceVersion{..} = - object $ - catMaybes - [ (Just . ("SourceIdentifier",) . toJSON) _codeBuildProjectProjectSourceVersionSourceIdentifier - , fmap (("SourceVersion",) . toJSON) _codeBuildProjectProjectSourceVersionSourceVersion - ] - --- | Constructor for 'CodeBuildProjectProjectSourceVersion' containing --- required fields as arguments. -codeBuildProjectProjectSourceVersion - :: Val Text -- ^ 'cbppsvSourceIdentifier' - -> CodeBuildProjectProjectSourceVersion -codeBuildProjectProjectSourceVersion sourceIdentifierarg = - CodeBuildProjectProjectSourceVersion - { _codeBuildProjectProjectSourceVersionSourceIdentifier = sourceIdentifierarg - , _codeBuildProjectProjectSourceVersionSourceVersion = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-projectsourceversion.html#cfn-codebuild-project-projectsourceversion-sourceidentifier -cbppsvSourceIdentifier :: Lens' CodeBuildProjectProjectSourceVersion (Val Text) -cbppsvSourceIdentifier = lens _codeBuildProjectProjectSourceVersionSourceIdentifier (\s a -> s { _codeBuildProjectProjectSourceVersionSourceIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-projectsourceversion.html#cfn-codebuild-project-projectsourceversion-sourceversion -cbppsvSourceVersion :: Lens' CodeBuildProjectProjectSourceVersion (Maybe (Val Text)) -cbppsvSourceVersion = lens _codeBuildProjectProjectSourceVersionSourceVersion (\s a -> s { _codeBuildProjectProjectSourceVersionSourceVersion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectProjectTriggers.hs b/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectProjectTriggers.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectProjectTriggers.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-projecttriggers.html - -module Stratosphere.ResourceProperties.CodeBuildProjectProjectTriggers where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeBuildProjectProjectTriggers. See --- 'codeBuildProjectProjectTriggers' for a more convenient constructor. -data CodeBuildProjectProjectTriggers = - CodeBuildProjectProjectTriggers - { _codeBuildProjectProjectTriggersWebhook :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON CodeBuildProjectProjectTriggers where - toJSON CodeBuildProjectProjectTriggers{..} = - object $ - catMaybes - [ fmap (("Webhook",) . toJSON) _codeBuildProjectProjectTriggersWebhook - ] - --- | Constructor for 'CodeBuildProjectProjectTriggers' containing required --- fields as arguments. -codeBuildProjectProjectTriggers - :: CodeBuildProjectProjectTriggers -codeBuildProjectProjectTriggers = - CodeBuildProjectProjectTriggers - { _codeBuildProjectProjectTriggersWebhook = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-projecttriggers.html#cfn-codebuild-project-projecttriggers-webhook -cbpptWebhook :: Lens' CodeBuildProjectProjectTriggers (Maybe (Val Bool)) -cbpptWebhook = lens _codeBuildProjectProjectTriggersWebhook (\s a -> s { _codeBuildProjectProjectTriggersWebhook = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectRegistryCredential.hs b/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectRegistryCredential.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectRegistryCredential.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-registrycredential.html - -module Stratosphere.ResourceProperties.CodeBuildProjectRegistryCredential where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeBuildProjectRegistryCredential. See --- 'codeBuildProjectRegistryCredential' for a more convenient constructor. -data CodeBuildProjectRegistryCredential = - CodeBuildProjectRegistryCredential - { _codeBuildProjectRegistryCredentialCredential :: Val Text - , _codeBuildProjectRegistryCredentialCredentialProvider :: Val Text - } deriving (Show, Eq) - -instance ToJSON CodeBuildProjectRegistryCredential where - toJSON CodeBuildProjectRegistryCredential{..} = - object $ - catMaybes - [ (Just . ("Credential",) . toJSON) _codeBuildProjectRegistryCredentialCredential - , (Just . ("CredentialProvider",) . toJSON) _codeBuildProjectRegistryCredentialCredentialProvider - ] - --- | Constructor for 'CodeBuildProjectRegistryCredential' containing required --- fields as arguments. -codeBuildProjectRegistryCredential - :: Val Text -- ^ 'cbprcCredential' - -> Val Text -- ^ 'cbprcCredentialProvider' - -> CodeBuildProjectRegistryCredential -codeBuildProjectRegistryCredential credentialarg credentialProviderarg = - CodeBuildProjectRegistryCredential - { _codeBuildProjectRegistryCredentialCredential = credentialarg - , _codeBuildProjectRegistryCredentialCredentialProvider = credentialProviderarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-registrycredential.html#cfn-codebuild-project-registrycredential-credential -cbprcCredential :: Lens' CodeBuildProjectRegistryCredential (Val Text) -cbprcCredential = lens _codeBuildProjectRegistryCredentialCredential (\s a -> s { _codeBuildProjectRegistryCredentialCredential = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-registrycredential.html#cfn-codebuild-project-registrycredential-credentialprovider -cbprcCredentialProvider :: Lens' CodeBuildProjectRegistryCredential (Val Text) -cbprcCredentialProvider = lens _codeBuildProjectRegistryCredentialCredentialProvider (\s a -> s { _codeBuildProjectRegistryCredentialCredentialProvider = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectS3LogsConfig.hs b/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectS3LogsConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectS3LogsConfig.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-s3logsconfig.html - -module Stratosphere.ResourceProperties.CodeBuildProjectS3LogsConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeBuildProjectS3LogsConfig. See --- 'codeBuildProjectS3LogsConfig' for a more convenient constructor. -data CodeBuildProjectS3LogsConfig = - CodeBuildProjectS3LogsConfig - { _codeBuildProjectS3LogsConfigEncryptionDisabled :: Maybe (Val Bool) - , _codeBuildProjectS3LogsConfigLocation :: Maybe (Val Text) - , _codeBuildProjectS3LogsConfigStatus :: Val Text - } deriving (Show, Eq) - -instance ToJSON CodeBuildProjectS3LogsConfig where - toJSON CodeBuildProjectS3LogsConfig{..} = - object $ - catMaybes - [ fmap (("EncryptionDisabled",) . toJSON) _codeBuildProjectS3LogsConfigEncryptionDisabled - , fmap (("Location",) . toJSON) _codeBuildProjectS3LogsConfigLocation - , (Just . ("Status",) . toJSON) _codeBuildProjectS3LogsConfigStatus - ] - --- | Constructor for 'CodeBuildProjectS3LogsConfig' containing required fields --- as arguments. -codeBuildProjectS3LogsConfig - :: Val Text -- ^ 'cbpslcStatus' - -> CodeBuildProjectS3LogsConfig -codeBuildProjectS3LogsConfig statusarg = - CodeBuildProjectS3LogsConfig - { _codeBuildProjectS3LogsConfigEncryptionDisabled = Nothing - , _codeBuildProjectS3LogsConfigLocation = Nothing - , _codeBuildProjectS3LogsConfigStatus = statusarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-s3logsconfig.html#cfn-codebuild-project-s3logsconfig-encryptiondisabled -cbpslcEncryptionDisabled :: Lens' CodeBuildProjectS3LogsConfig (Maybe (Val Bool)) -cbpslcEncryptionDisabled = lens _codeBuildProjectS3LogsConfigEncryptionDisabled (\s a -> s { _codeBuildProjectS3LogsConfigEncryptionDisabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-s3logsconfig.html#cfn-codebuild-project-s3logsconfig-location -cbpslcLocation :: Lens' CodeBuildProjectS3LogsConfig (Maybe (Val Text)) -cbpslcLocation = lens _codeBuildProjectS3LogsConfigLocation (\s a -> s { _codeBuildProjectS3LogsConfigLocation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-s3logsconfig.html#cfn-codebuild-project-s3logsconfig-status -cbpslcStatus :: Lens' CodeBuildProjectS3LogsConfig (Val Text) -cbpslcStatus = lens _codeBuildProjectS3LogsConfigStatus (\s a -> s { _codeBuildProjectS3LogsConfigStatus = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectSource.hs b/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectSource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectSource.hs +++ /dev/null @@ -1,104 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-source.html - -module Stratosphere.ResourceProperties.CodeBuildProjectSource where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodeBuildProjectSourceAuth -import Stratosphere.ResourceProperties.CodeBuildProjectBuildStatusConfig -import Stratosphere.ResourceProperties.CodeBuildProjectGitSubmodulesConfig - --- | Full data type definition for CodeBuildProjectSource. See --- 'codeBuildProjectSource' for a more convenient constructor. -data CodeBuildProjectSource = - CodeBuildProjectSource - { _codeBuildProjectSourceAuth :: Maybe CodeBuildProjectSourceAuth - , _codeBuildProjectSourceBuildSpec :: Maybe (Val Text) - , _codeBuildProjectSourceBuildStatusConfig :: Maybe CodeBuildProjectBuildStatusConfig - , _codeBuildProjectSourceGitCloneDepth :: Maybe (Val Integer) - , _codeBuildProjectSourceGitSubmodulesConfig :: Maybe CodeBuildProjectGitSubmodulesConfig - , _codeBuildProjectSourceInsecureSsl :: Maybe (Val Bool) - , _codeBuildProjectSourceLocation :: Maybe (Val Text) - , _codeBuildProjectSourceReportBuildStatus :: Maybe (Val Bool) - , _codeBuildProjectSourceSourceIdentifier :: Maybe (Val Text) - , _codeBuildProjectSourceType :: Val Text - } deriving (Show, Eq) - -instance ToJSON CodeBuildProjectSource where - toJSON CodeBuildProjectSource{..} = - object $ - catMaybes - [ fmap (("Auth",) . toJSON) _codeBuildProjectSourceAuth - , fmap (("BuildSpec",) . toJSON) _codeBuildProjectSourceBuildSpec - , fmap (("BuildStatusConfig",) . toJSON) _codeBuildProjectSourceBuildStatusConfig - , fmap (("GitCloneDepth",) . toJSON) _codeBuildProjectSourceGitCloneDepth - , fmap (("GitSubmodulesConfig",) . toJSON) _codeBuildProjectSourceGitSubmodulesConfig - , fmap (("InsecureSsl",) . toJSON) _codeBuildProjectSourceInsecureSsl - , fmap (("Location",) . toJSON) _codeBuildProjectSourceLocation - , fmap (("ReportBuildStatus",) . toJSON) _codeBuildProjectSourceReportBuildStatus - , fmap (("SourceIdentifier",) . toJSON) _codeBuildProjectSourceSourceIdentifier - , (Just . ("Type",) . toJSON) _codeBuildProjectSourceType - ] - --- | Constructor for 'CodeBuildProjectSource' containing required fields as --- arguments. -codeBuildProjectSource - :: Val Text -- ^ 'cbpsType' - -> CodeBuildProjectSource -codeBuildProjectSource typearg = - CodeBuildProjectSource - { _codeBuildProjectSourceAuth = Nothing - , _codeBuildProjectSourceBuildSpec = Nothing - , _codeBuildProjectSourceBuildStatusConfig = Nothing - , _codeBuildProjectSourceGitCloneDepth = Nothing - , _codeBuildProjectSourceGitSubmodulesConfig = Nothing - , _codeBuildProjectSourceInsecureSsl = Nothing - , _codeBuildProjectSourceLocation = Nothing - , _codeBuildProjectSourceReportBuildStatus = Nothing - , _codeBuildProjectSourceSourceIdentifier = Nothing - , _codeBuildProjectSourceType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-source.html#cfn-codebuild-project-source-auth -cbpsAuth :: Lens' CodeBuildProjectSource (Maybe CodeBuildProjectSourceAuth) -cbpsAuth = lens _codeBuildProjectSourceAuth (\s a -> s { _codeBuildProjectSourceAuth = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-source.html#cfn-codebuild-project-source-buildspec -cbpsBuildSpec :: Lens' CodeBuildProjectSource (Maybe (Val Text)) -cbpsBuildSpec = lens _codeBuildProjectSourceBuildSpec (\s a -> s { _codeBuildProjectSourceBuildSpec = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-source.html#cfn-codebuild-project-source-buildstatusconfig -cbpsBuildStatusConfig :: Lens' CodeBuildProjectSource (Maybe CodeBuildProjectBuildStatusConfig) -cbpsBuildStatusConfig = lens _codeBuildProjectSourceBuildStatusConfig (\s a -> s { _codeBuildProjectSourceBuildStatusConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-source.html#cfn-codebuild-project-source-gitclonedepth -cbpsGitCloneDepth :: Lens' CodeBuildProjectSource (Maybe (Val Integer)) -cbpsGitCloneDepth = lens _codeBuildProjectSourceGitCloneDepth (\s a -> s { _codeBuildProjectSourceGitCloneDepth = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-source.html#cfn-codebuild-project-source-gitsubmodulesconfig -cbpsGitSubmodulesConfig :: Lens' CodeBuildProjectSource (Maybe CodeBuildProjectGitSubmodulesConfig) -cbpsGitSubmodulesConfig = lens _codeBuildProjectSourceGitSubmodulesConfig (\s a -> s { _codeBuildProjectSourceGitSubmodulesConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-source.html#cfn-codebuild-project-source-insecuressl -cbpsInsecureSsl :: Lens' CodeBuildProjectSource (Maybe (Val Bool)) -cbpsInsecureSsl = lens _codeBuildProjectSourceInsecureSsl (\s a -> s { _codeBuildProjectSourceInsecureSsl = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-source.html#cfn-codebuild-project-source-location -cbpsLocation :: Lens' CodeBuildProjectSource (Maybe (Val Text)) -cbpsLocation = lens _codeBuildProjectSourceLocation (\s a -> s { _codeBuildProjectSourceLocation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-source.html#cfn-codebuild-project-source-reportbuildstatus -cbpsReportBuildStatus :: Lens' CodeBuildProjectSource (Maybe (Val Bool)) -cbpsReportBuildStatus = lens _codeBuildProjectSourceReportBuildStatus (\s a -> s { _codeBuildProjectSourceReportBuildStatus = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-source.html#cfn-codebuild-project-source-sourceidentifier -cbpsSourceIdentifier :: Lens' CodeBuildProjectSource (Maybe (Val Text)) -cbpsSourceIdentifier = lens _codeBuildProjectSourceSourceIdentifier (\s a -> s { _codeBuildProjectSourceSourceIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-source.html#cfn-codebuild-project-source-type -cbpsType :: Lens' CodeBuildProjectSource (Val Text) -cbpsType = lens _codeBuildProjectSourceType (\s a -> s { _codeBuildProjectSourceType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectSourceAuth.hs b/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectSourceAuth.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectSourceAuth.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-sourceauth.html - -module Stratosphere.ResourceProperties.CodeBuildProjectSourceAuth where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeBuildProjectSourceAuth. See --- 'codeBuildProjectSourceAuth' for a more convenient constructor. -data CodeBuildProjectSourceAuth = - CodeBuildProjectSourceAuth - { _codeBuildProjectSourceAuthResource :: Maybe (Val Text) - , _codeBuildProjectSourceAuthType :: Val Text - } deriving (Show, Eq) - -instance ToJSON CodeBuildProjectSourceAuth where - toJSON CodeBuildProjectSourceAuth{..} = - object $ - catMaybes - [ fmap (("Resource",) . toJSON) _codeBuildProjectSourceAuthResource - , (Just . ("Type",) . toJSON) _codeBuildProjectSourceAuthType - ] - --- | Constructor for 'CodeBuildProjectSourceAuth' containing required fields --- as arguments. -codeBuildProjectSourceAuth - :: Val Text -- ^ 'cbpsaType' - -> CodeBuildProjectSourceAuth -codeBuildProjectSourceAuth typearg = - CodeBuildProjectSourceAuth - { _codeBuildProjectSourceAuthResource = Nothing - , _codeBuildProjectSourceAuthType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-sourceauth.html#cfn-codebuild-project-sourceauth-resource -cbpsaResource :: Lens' CodeBuildProjectSourceAuth (Maybe (Val Text)) -cbpsaResource = lens _codeBuildProjectSourceAuthResource (\s a -> s { _codeBuildProjectSourceAuthResource = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-sourceauth.html#cfn-codebuild-project-sourceauth-type -cbpsaType :: Lens' CodeBuildProjectSourceAuth (Val Text) -cbpsaType = lens _codeBuildProjectSourceAuthType (\s a -> s { _codeBuildProjectSourceAuthType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectVpcConfig.hs b/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectVpcConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectVpcConfig.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-vpcconfig.html - -module Stratosphere.ResourceProperties.CodeBuildProjectVpcConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeBuildProjectVpcConfig. See --- 'codeBuildProjectVpcConfig' for a more convenient constructor. -data CodeBuildProjectVpcConfig = - CodeBuildProjectVpcConfig - { _codeBuildProjectVpcConfigSecurityGroupIds :: Maybe (ValList Text) - , _codeBuildProjectVpcConfigSubnets :: Maybe (ValList Text) - , _codeBuildProjectVpcConfigVpcId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CodeBuildProjectVpcConfig where - toJSON CodeBuildProjectVpcConfig{..} = - object $ - catMaybes - [ fmap (("SecurityGroupIds",) . toJSON) _codeBuildProjectVpcConfigSecurityGroupIds - , fmap (("Subnets",) . toJSON) _codeBuildProjectVpcConfigSubnets - , fmap (("VpcId",) . toJSON) _codeBuildProjectVpcConfigVpcId - ] - --- | Constructor for 'CodeBuildProjectVpcConfig' containing required fields as --- arguments. -codeBuildProjectVpcConfig - :: CodeBuildProjectVpcConfig -codeBuildProjectVpcConfig = - CodeBuildProjectVpcConfig - { _codeBuildProjectVpcConfigSecurityGroupIds = Nothing - , _codeBuildProjectVpcConfigSubnets = Nothing - , _codeBuildProjectVpcConfigVpcId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-vpcconfig.html#cfn-codebuild-project-vpcconfig-securitygroupids -cbpvcSecurityGroupIds :: Lens' CodeBuildProjectVpcConfig (Maybe (ValList Text)) -cbpvcSecurityGroupIds = lens _codeBuildProjectVpcConfigSecurityGroupIds (\s a -> s { _codeBuildProjectVpcConfigSecurityGroupIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-vpcconfig.html#cfn-codebuild-project-vpcconfig-subnets -cbpvcSubnets :: Lens' CodeBuildProjectVpcConfig (Maybe (ValList Text)) -cbpvcSubnets = lens _codeBuildProjectVpcConfigSubnets (\s a -> s { _codeBuildProjectVpcConfigSubnets = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-vpcconfig.html#cfn-codebuild-project-vpcconfig-vpcid -cbpvcVpcId :: Lens' CodeBuildProjectVpcConfig (Maybe (Val Text)) -cbpvcVpcId = lens _codeBuildProjectVpcConfigVpcId (\s a -> s { _codeBuildProjectVpcConfigVpcId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectWebhookFilter.hs b/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectWebhookFilter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeBuildProjectWebhookFilter.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-webhookfilter.html - -module Stratosphere.ResourceProperties.CodeBuildProjectWebhookFilter where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeBuildProjectWebhookFilter. See --- 'codeBuildProjectWebhookFilter' for a more convenient constructor. -data CodeBuildProjectWebhookFilter = - CodeBuildProjectWebhookFilter - { _codeBuildProjectWebhookFilterExcludeMatchedPattern :: Maybe (Val Bool) - , _codeBuildProjectWebhookFilterPattern :: Val Text - , _codeBuildProjectWebhookFilterType :: Val Text - } deriving (Show, Eq) - -instance ToJSON CodeBuildProjectWebhookFilter where - toJSON CodeBuildProjectWebhookFilter{..} = - object $ - catMaybes - [ fmap (("ExcludeMatchedPattern",) . toJSON) _codeBuildProjectWebhookFilterExcludeMatchedPattern - , (Just . ("Pattern",) . toJSON) _codeBuildProjectWebhookFilterPattern - , (Just . ("Type",) . toJSON) _codeBuildProjectWebhookFilterType - ] - --- | Constructor for 'CodeBuildProjectWebhookFilter' containing required --- fields as arguments. -codeBuildProjectWebhookFilter - :: Val Text -- ^ 'cbpwfPattern' - -> Val Text -- ^ 'cbpwfType' - -> CodeBuildProjectWebhookFilter -codeBuildProjectWebhookFilter patternarg typearg = - CodeBuildProjectWebhookFilter - { _codeBuildProjectWebhookFilterExcludeMatchedPattern = Nothing - , _codeBuildProjectWebhookFilterPattern = patternarg - , _codeBuildProjectWebhookFilterType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-webhookfilter.html#cfn-codebuild-project-webhookfilter-excludematchedpattern -cbpwfExcludeMatchedPattern :: Lens' CodeBuildProjectWebhookFilter (Maybe (Val Bool)) -cbpwfExcludeMatchedPattern = lens _codeBuildProjectWebhookFilterExcludeMatchedPattern (\s a -> s { _codeBuildProjectWebhookFilterExcludeMatchedPattern = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-webhookfilter.html#cfn-codebuild-project-webhookfilter-pattern -cbpwfPattern :: Lens' CodeBuildProjectWebhookFilter (Val Text) -cbpwfPattern = lens _codeBuildProjectWebhookFilterPattern (\s a -> s { _codeBuildProjectWebhookFilterPattern = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-webhookfilter.html#cfn-codebuild-project-webhookfilter-type -cbpwfType :: Lens' CodeBuildProjectWebhookFilter (Val Text) -cbpwfType = lens _codeBuildProjectWebhookFilterType (\s a -> s { _codeBuildProjectWebhookFilterType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeBuildReportGroupReportExportConfig.hs b/library-gen/Stratosphere/ResourceProperties/CodeBuildReportGroupReportExportConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeBuildReportGroupReportExportConfig.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-reportgroup-reportexportconfig.html - -module Stratosphere.ResourceProperties.CodeBuildReportGroupReportExportConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodeBuildReportGroupS3ReportExportConfig - --- | Full data type definition for CodeBuildReportGroupReportExportConfig. See --- 'codeBuildReportGroupReportExportConfig' for a more convenient --- constructor. -data CodeBuildReportGroupReportExportConfig = - CodeBuildReportGroupReportExportConfig - { _codeBuildReportGroupReportExportConfigExportConfigType :: Val Text - , _codeBuildReportGroupReportExportConfigS3Destination :: Maybe CodeBuildReportGroupS3ReportExportConfig - } deriving (Show, Eq) - -instance ToJSON CodeBuildReportGroupReportExportConfig where - toJSON CodeBuildReportGroupReportExportConfig{..} = - object $ - catMaybes - [ (Just . ("ExportConfigType",) . toJSON) _codeBuildReportGroupReportExportConfigExportConfigType - , fmap (("S3Destination",) . toJSON) _codeBuildReportGroupReportExportConfigS3Destination - ] - --- | Constructor for 'CodeBuildReportGroupReportExportConfig' containing --- required fields as arguments. -codeBuildReportGroupReportExportConfig - :: Val Text -- ^ 'cbrgrecExportConfigType' - -> CodeBuildReportGroupReportExportConfig -codeBuildReportGroupReportExportConfig exportConfigTypearg = - CodeBuildReportGroupReportExportConfig - { _codeBuildReportGroupReportExportConfigExportConfigType = exportConfigTypearg - , _codeBuildReportGroupReportExportConfigS3Destination = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-reportgroup-reportexportconfig.html#cfn-codebuild-reportgroup-reportexportconfig-exportconfigtype -cbrgrecExportConfigType :: Lens' CodeBuildReportGroupReportExportConfig (Val Text) -cbrgrecExportConfigType = lens _codeBuildReportGroupReportExportConfigExportConfigType (\s a -> s { _codeBuildReportGroupReportExportConfigExportConfigType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-reportgroup-reportexportconfig.html#cfn-codebuild-reportgroup-reportexportconfig-s3destination -cbrgrecS3Destination :: Lens' CodeBuildReportGroupReportExportConfig (Maybe CodeBuildReportGroupS3ReportExportConfig) -cbrgrecS3Destination = lens _codeBuildReportGroupReportExportConfigS3Destination (\s a -> s { _codeBuildReportGroupReportExportConfigS3Destination = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeBuildReportGroupS3ReportExportConfig.hs b/library-gen/Stratosphere/ResourceProperties/CodeBuildReportGroupS3ReportExportConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeBuildReportGroupS3ReportExportConfig.hs +++ /dev/null @@ -1,68 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-reportgroup-s3reportexportconfig.html - -module Stratosphere.ResourceProperties.CodeBuildReportGroupS3ReportExportConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeBuildReportGroupS3ReportExportConfig. --- See 'codeBuildReportGroupS3ReportExportConfig' for a more convenient --- constructor. -data CodeBuildReportGroupS3ReportExportConfig = - CodeBuildReportGroupS3ReportExportConfig - { _codeBuildReportGroupS3ReportExportConfigBucket :: Val Text - , _codeBuildReportGroupS3ReportExportConfigEncryptionDisabled :: Maybe (Val Bool) - , _codeBuildReportGroupS3ReportExportConfigEncryptionKey :: Maybe (Val Text) - , _codeBuildReportGroupS3ReportExportConfigPackaging :: Maybe (Val Text) - , _codeBuildReportGroupS3ReportExportConfigPath :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CodeBuildReportGroupS3ReportExportConfig where - toJSON CodeBuildReportGroupS3ReportExportConfig{..} = - object $ - catMaybes - [ (Just . ("Bucket",) . toJSON) _codeBuildReportGroupS3ReportExportConfigBucket - , fmap (("EncryptionDisabled",) . toJSON) _codeBuildReportGroupS3ReportExportConfigEncryptionDisabled - , fmap (("EncryptionKey",) . toJSON) _codeBuildReportGroupS3ReportExportConfigEncryptionKey - , fmap (("Packaging",) . toJSON) _codeBuildReportGroupS3ReportExportConfigPackaging - , fmap (("Path",) . toJSON) _codeBuildReportGroupS3ReportExportConfigPath - ] - --- | Constructor for 'CodeBuildReportGroupS3ReportExportConfig' containing --- required fields as arguments. -codeBuildReportGroupS3ReportExportConfig - :: Val Text -- ^ 'cbrgsrecBucket' - -> CodeBuildReportGroupS3ReportExportConfig -codeBuildReportGroupS3ReportExportConfig bucketarg = - CodeBuildReportGroupS3ReportExportConfig - { _codeBuildReportGroupS3ReportExportConfigBucket = bucketarg - , _codeBuildReportGroupS3ReportExportConfigEncryptionDisabled = Nothing - , _codeBuildReportGroupS3ReportExportConfigEncryptionKey = Nothing - , _codeBuildReportGroupS3ReportExportConfigPackaging = Nothing - , _codeBuildReportGroupS3ReportExportConfigPath = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-reportgroup-s3reportexportconfig.html#cfn-codebuild-reportgroup-s3reportexportconfig-bucket -cbrgsrecBucket :: Lens' CodeBuildReportGroupS3ReportExportConfig (Val Text) -cbrgsrecBucket = lens _codeBuildReportGroupS3ReportExportConfigBucket (\s a -> s { _codeBuildReportGroupS3ReportExportConfigBucket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-reportgroup-s3reportexportconfig.html#cfn-codebuild-reportgroup-s3reportexportconfig-encryptiondisabled -cbrgsrecEncryptionDisabled :: Lens' CodeBuildReportGroupS3ReportExportConfig (Maybe (Val Bool)) -cbrgsrecEncryptionDisabled = lens _codeBuildReportGroupS3ReportExportConfigEncryptionDisabled (\s a -> s { _codeBuildReportGroupS3ReportExportConfigEncryptionDisabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-reportgroup-s3reportexportconfig.html#cfn-codebuild-reportgroup-s3reportexportconfig-encryptionkey -cbrgsrecEncryptionKey :: Lens' CodeBuildReportGroupS3ReportExportConfig (Maybe (Val Text)) -cbrgsrecEncryptionKey = lens _codeBuildReportGroupS3ReportExportConfigEncryptionKey (\s a -> s { _codeBuildReportGroupS3ReportExportConfigEncryptionKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-reportgroup-s3reportexportconfig.html#cfn-codebuild-reportgroup-s3reportexportconfig-packaging -cbrgsrecPackaging :: Lens' CodeBuildReportGroupS3ReportExportConfig (Maybe (Val Text)) -cbrgsrecPackaging = lens _codeBuildReportGroupS3ReportExportConfigPackaging (\s a -> s { _codeBuildReportGroupS3ReportExportConfigPackaging = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-reportgroup-s3reportexportconfig.html#cfn-codebuild-reportgroup-s3reportexportconfig-path -cbrgsrecPath :: Lens' CodeBuildReportGroupS3ReportExportConfig (Maybe (Val Text)) -cbrgsrecPath = lens _codeBuildReportGroupS3ReportExportConfigPath (\s a -> s { _codeBuildReportGroupS3ReportExportConfigPath = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeCommitRepositoryCode.hs b/library-gen/Stratosphere/ResourceProperties/CodeCommitRepositoryCode.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeCommitRepositoryCode.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codecommit-repository-code.html - -module Stratosphere.ResourceProperties.CodeCommitRepositoryCode where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodeCommitRepositoryS3 - --- | Full data type definition for CodeCommitRepositoryCode. See --- 'codeCommitRepositoryCode' for a more convenient constructor. -data CodeCommitRepositoryCode = - CodeCommitRepositoryCode - { _codeCommitRepositoryCodeBranchName :: Maybe (Val Text) - , _codeCommitRepositoryCodeS3 :: CodeCommitRepositoryS3 - } deriving (Show, Eq) - -instance ToJSON CodeCommitRepositoryCode where - toJSON CodeCommitRepositoryCode{..} = - object $ - catMaybes - [ fmap (("BranchName",) . toJSON) _codeCommitRepositoryCodeBranchName - , (Just . ("S3",) . toJSON) _codeCommitRepositoryCodeS3 - ] - --- | Constructor for 'CodeCommitRepositoryCode' containing required fields as --- arguments. -codeCommitRepositoryCode - :: CodeCommitRepositoryS3 -- ^ 'ccrcS3' - -> CodeCommitRepositoryCode -codeCommitRepositoryCode s3arg = - CodeCommitRepositoryCode - { _codeCommitRepositoryCodeBranchName = Nothing - , _codeCommitRepositoryCodeS3 = s3arg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codecommit-repository-code.html#cfn-codecommit-repository-code-branchname -ccrcBranchName :: Lens' CodeCommitRepositoryCode (Maybe (Val Text)) -ccrcBranchName = lens _codeCommitRepositoryCodeBranchName (\s a -> s { _codeCommitRepositoryCodeBranchName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codecommit-repository-code.html#cfn-codecommit-repository-code-s3 -ccrcS3 :: Lens' CodeCommitRepositoryCode CodeCommitRepositoryS3 -ccrcS3 = lens _codeCommitRepositoryCodeS3 (\s a -> s { _codeCommitRepositoryCodeS3 = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeCommitRepositoryRepositoryTrigger.hs b/library-gen/Stratosphere/ResourceProperties/CodeCommitRepositoryRepositoryTrigger.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeCommitRepositoryRepositoryTrigger.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codecommit-repository-repositorytrigger.html - -module Stratosphere.ResourceProperties.CodeCommitRepositoryRepositoryTrigger where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeCommitRepositoryRepositoryTrigger. See --- 'codeCommitRepositoryRepositoryTrigger' for a more convenient --- constructor. -data CodeCommitRepositoryRepositoryTrigger = - CodeCommitRepositoryRepositoryTrigger - { _codeCommitRepositoryRepositoryTriggerBranches :: Maybe (ValList Text) - , _codeCommitRepositoryRepositoryTriggerCustomData :: Maybe (Val Text) - , _codeCommitRepositoryRepositoryTriggerDestinationArn :: Val Text - , _codeCommitRepositoryRepositoryTriggerEvents :: ValList Text - , _codeCommitRepositoryRepositoryTriggerName :: Val Text - } deriving (Show, Eq) - -instance ToJSON CodeCommitRepositoryRepositoryTrigger where - toJSON CodeCommitRepositoryRepositoryTrigger{..} = - object $ - catMaybes - [ fmap (("Branches",) . toJSON) _codeCommitRepositoryRepositoryTriggerBranches - , fmap (("CustomData",) . toJSON) _codeCommitRepositoryRepositoryTriggerCustomData - , (Just . ("DestinationArn",) . toJSON) _codeCommitRepositoryRepositoryTriggerDestinationArn - , (Just . ("Events",) . toJSON) _codeCommitRepositoryRepositoryTriggerEvents - , (Just . ("Name",) . toJSON) _codeCommitRepositoryRepositoryTriggerName - ] - --- | Constructor for 'CodeCommitRepositoryRepositoryTrigger' containing --- required fields as arguments. -codeCommitRepositoryRepositoryTrigger - :: Val Text -- ^ 'ccrrtDestinationArn' - -> ValList Text -- ^ 'ccrrtEvents' - -> Val Text -- ^ 'ccrrtName' - -> CodeCommitRepositoryRepositoryTrigger -codeCommitRepositoryRepositoryTrigger destinationArnarg eventsarg namearg = - CodeCommitRepositoryRepositoryTrigger - { _codeCommitRepositoryRepositoryTriggerBranches = Nothing - , _codeCommitRepositoryRepositoryTriggerCustomData = Nothing - , _codeCommitRepositoryRepositoryTriggerDestinationArn = destinationArnarg - , _codeCommitRepositoryRepositoryTriggerEvents = eventsarg - , _codeCommitRepositoryRepositoryTriggerName = namearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codecommit-repository-repositorytrigger.html#cfn-codecommit-repository-repositorytrigger-branches -ccrrtBranches :: Lens' CodeCommitRepositoryRepositoryTrigger (Maybe (ValList Text)) -ccrrtBranches = lens _codeCommitRepositoryRepositoryTriggerBranches (\s a -> s { _codeCommitRepositoryRepositoryTriggerBranches = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codecommit-repository-repositorytrigger.html#cfn-codecommit-repository-repositorytrigger-customdata -ccrrtCustomData :: Lens' CodeCommitRepositoryRepositoryTrigger (Maybe (Val Text)) -ccrrtCustomData = lens _codeCommitRepositoryRepositoryTriggerCustomData (\s a -> s { _codeCommitRepositoryRepositoryTriggerCustomData = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codecommit-repository-repositorytrigger.html#cfn-codecommit-repository-repositorytrigger-destinationarn -ccrrtDestinationArn :: Lens' CodeCommitRepositoryRepositoryTrigger (Val Text) -ccrrtDestinationArn = lens _codeCommitRepositoryRepositoryTriggerDestinationArn (\s a -> s { _codeCommitRepositoryRepositoryTriggerDestinationArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codecommit-repository-repositorytrigger.html#cfn-codecommit-repository-repositorytrigger-events -ccrrtEvents :: Lens' CodeCommitRepositoryRepositoryTrigger (ValList Text) -ccrrtEvents = lens _codeCommitRepositoryRepositoryTriggerEvents (\s a -> s { _codeCommitRepositoryRepositoryTriggerEvents = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codecommit-repository-repositorytrigger.html#cfn-codecommit-repository-repositorytrigger-name -ccrrtName :: Lens' CodeCommitRepositoryRepositoryTrigger (Val Text) -ccrrtName = lens _codeCommitRepositoryRepositoryTriggerName (\s a -> s { _codeCommitRepositoryRepositoryTriggerName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeCommitRepositoryS3.hs b/library-gen/Stratosphere/ResourceProperties/CodeCommitRepositoryS3.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeCommitRepositoryS3.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codecommit-repository-s3.html - -module Stratosphere.ResourceProperties.CodeCommitRepositoryS3 where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeCommitRepositoryS3. See --- 'codeCommitRepositoryS3' for a more convenient constructor. -data CodeCommitRepositoryS3 = - CodeCommitRepositoryS3 - { _codeCommitRepositoryS3Bucket :: Val Text - , _codeCommitRepositoryS3Key :: Val Text - , _codeCommitRepositoryS3ObjectVersion :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CodeCommitRepositoryS3 where - toJSON CodeCommitRepositoryS3{..} = - object $ - catMaybes - [ (Just . ("Bucket",) . toJSON) _codeCommitRepositoryS3Bucket - , (Just . ("Key",) . toJSON) _codeCommitRepositoryS3Key - , fmap (("ObjectVersion",) . toJSON) _codeCommitRepositoryS3ObjectVersion - ] - --- | Constructor for 'CodeCommitRepositoryS3' containing required fields as --- arguments. -codeCommitRepositoryS3 - :: Val Text -- ^ 'ccrsBucket' - -> Val Text -- ^ 'ccrsKey' - -> CodeCommitRepositoryS3 -codeCommitRepositoryS3 bucketarg keyarg = - CodeCommitRepositoryS3 - { _codeCommitRepositoryS3Bucket = bucketarg - , _codeCommitRepositoryS3Key = keyarg - , _codeCommitRepositoryS3ObjectVersion = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codecommit-repository-s3.html#cfn-codecommit-repository-s3-bucket -ccrsBucket :: Lens' CodeCommitRepositoryS3 (Val Text) -ccrsBucket = lens _codeCommitRepositoryS3Bucket (\s a -> s { _codeCommitRepositoryS3Bucket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codecommit-repository-s3.html#cfn-codecommit-repository-s3-key -ccrsKey :: Lens' CodeCommitRepositoryS3 (Val Text) -ccrsKey = lens _codeCommitRepositoryS3Key (\s a -> s { _codeCommitRepositoryS3Key = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codecommit-repository-s3.html#cfn-codecommit-repository-s3-objectversion -ccrsObjectVersion :: Lens' CodeCommitRepositoryS3 (Maybe (Val Text)) -ccrsObjectVersion = lens _codeCommitRepositoryS3ObjectVersion (\s a -> s { _codeCommitRepositoryS3ObjectVersion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentConfigMinimumHealthyHosts.hs b/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentConfigMinimumHealthyHosts.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentConfigMinimumHealthyHosts.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentconfig-minimumhealthyhosts.html - -module Stratosphere.ResourceProperties.CodeDeployDeploymentConfigMinimumHealthyHosts where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- CodeDeployDeploymentConfigMinimumHealthyHosts. See --- 'codeDeployDeploymentConfigMinimumHealthyHosts' for a more convenient --- constructor. -data CodeDeployDeploymentConfigMinimumHealthyHosts = - CodeDeployDeploymentConfigMinimumHealthyHosts - { _codeDeployDeploymentConfigMinimumHealthyHostsType :: Val Text - , _codeDeployDeploymentConfigMinimumHealthyHostsValue :: Val Integer - } deriving (Show, Eq) - -instance ToJSON CodeDeployDeploymentConfigMinimumHealthyHosts where - toJSON CodeDeployDeploymentConfigMinimumHealthyHosts{..} = - object $ - catMaybes - [ (Just . ("Type",) . toJSON) _codeDeployDeploymentConfigMinimumHealthyHostsType - , (Just . ("Value",) . toJSON) _codeDeployDeploymentConfigMinimumHealthyHostsValue - ] - --- | Constructor for 'CodeDeployDeploymentConfigMinimumHealthyHosts' --- containing required fields as arguments. -codeDeployDeploymentConfigMinimumHealthyHosts - :: Val Text -- ^ 'cddcmhhType' - -> Val Integer -- ^ 'cddcmhhValue' - -> CodeDeployDeploymentConfigMinimumHealthyHosts -codeDeployDeploymentConfigMinimumHealthyHosts typearg valuearg = - CodeDeployDeploymentConfigMinimumHealthyHosts - { _codeDeployDeploymentConfigMinimumHealthyHostsType = typearg - , _codeDeployDeploymentConfigMinimumHealthyHostsValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentconfig-minimumhealthyhosts.html#cfn-codedeploy-deploymentconfig-minimumhealthyhosts-type -cddcmhhType :: Lens' CodeDeployDeploymentConfigMinimumHealthyHosts (Val Text) -cddcmhhType = lens _codeDeployDeploymentConfigMinimumHealthyHostsType (\s a -> s { _codeDeployDeploymentConfigMinimumHealthyHostsType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentconfig-minimumhealthyhosts.html#cfn-codedeploy-deploymentconfig-minimumhealthyhosts-value -cddcmhhValue :: Lens' CodeDeployDeploymentConfigMinimumHealthyHosts (Val Integer) -cddcmhhValue = lens _codeDeployDeploymentConfigMinimumHealthyHostsValue (\s a -> s { _codeDeployDeploymentConfigMinimumHealthyHostsValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupAlarm.hs b/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupAlarm.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupAlarm.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-alarm.html - -module Stratosphere.ResourceProperties.CodeDeployDeploymentGroupAlarm where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeDeployDeploymentGroupAlarm. See --- 'codeDeployDeploymentGroupAlarm' for a more convenient constructor. -data CodeDeployDeploymentGroupAlarm = - CodeDeployDeploymentGroupAlarm - { _codeDeployDeploymentGroupAlarmName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CodeDeployDeploymentGroupAlarm where - toJSON CodeDeployDeploymentGroupAlarm{..} = - object $ - catMaybes - [ fmap (("Name",) . toJSON) _codeDeployDeploymentGroupAlarmName - ] - --- | Constructor for 'CodeDeployDeploymentGroupAlarm' containing required --- fields as arguments. -codeDeployDeploymentGroupAlarm - :: CodeDeployDeploymentGroupAlarm -codeDeployDeploymentGroupAlarm = - CodeDeployDeploymentGroupAlarm - { _codeDeployDeploymentGroupAlarmName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-alarm.html#cfn-codedeploy-deploymentgroup-alarm-name -cddgaName :: Lens' CodeDeployDeploymentGroupAlarm (Maybe (Val Text)) -cddgaName = lens _codeDeployDeploymentGroupAlarmName (\s a -> s { _codeDeployDeploymentGroupAlarmName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupAlarmConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupAlarmConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupAlarmConfiguration.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-alarmconfiguration.html - -module Stratosphere.ResourceProperties.CodeDeployDeploymentGroupAlarmConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupAlarm - --- | Full data type definition for --- CodeDeployDeploymentGroupAlarmConfiguration. See --- 'codeDeployDeploymentGroupAlarmConfiguration' for a more convenient --- constructor. -data CodeDeployDeploymentGroupAlarmConfiguration = - CodeDeployDeploymentGroupAlarmConfiguration - { _codeDeployDeploymentGroupAlarmConfigurationAlarms :: Maybe [CodeDeployDeploymentGroupAlarm] - , _codeDeployDeploymentGroupAlarmConfigurationEnabled :: Maybe (Val Bool) - , _codeDeployDeploymentGroupAlarmConfigurationIgnorePollAlarmFailure :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON CodeDeployDeploymentGroupAlarmConfiguration where - toJSON CodeDeployDeploymentGroupAlarmConfiguration{..} = - object $ - catMaybes - [ fmap (("Alarms",) . toJSON) _codeDeployDeploymentGroupAlarmConfigurationAlarms - , fmap (("Enabled",) . toJSON) _codeDeployDeploymentGroupAlarmConfigurationEnabled - , fmap (("IgnorePollAlarmFailure",) . toJSON) _codeDeployDeploymentGroupAlarmConfigurationIgnorePollAlarmFailure - ] - --- | Constructor for 'CodeDeployDeploymentGroupAlarmConfiguration' containing --- required fields as arguments. -codeDeployDeploymentGroupAlarmConfiguration - :: CodeDeployDeploymentGroupAlarmConfiguration -codeDeployDeploymentGroupAlarmConfiguration = - CodeDeployDeploymentGroupAlarmConfiguration - { _codeDeployDeploymentGroupAlarmConfigurationAlarms = Nothing - , _codeDeployDeploymentGroupAlarmConfigurationEnabled = Nothing - , _codeDeployDeploymentGroupAlarmConfigurationIgnorePollAlarmFailure = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-alarmconfiguration.html#cfn-codedeploy-deploymentgroup-alarmconfiguration-alarms -cddgacAlarms :: Lens' CodeDeployDeploymentGroupAlarmConfiguration (Maybe [CodeDeployDeploymentGroupAlarm]) -cddgacAlarms = lens _codeDeployDeploymentGroupAlarmConfigurationAlarms (\s a -> s { _codeDeployDeploymentGroupAlarmConfigurationAlarms = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-alarmconfiguration.html#cfn-codedeploy-deploymentgroup-alarmconfiguration-enabled -cddgacEnabled :: Lens' CodeDeployDeploymentGroupAlarmConfiguration (Maybe (Val Bool)) -cddgacEnabled = lens _codeDeployDeploymentGroupAlarmConfigurationEnabled (\s a -> s { _codeDeployDeploymentGroupAlarmConfigurationEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-alarmconfiguration.html#cfn-codedeploy-deploymentgroup-alarmconfiguration-ignorepollalarmfailure -cddgacIgnorePollAlarmFailure :: Lens' CodeDeployDeploymentGroupAlarmConfiguration (Maybe (Val Bool)) -cddgacIgnorePollAlarmFailure = lens _codeDeployDeploymentGroupAlarmConfigurationIgnorePollAlarmFailure (\s a -> s { _codeDeployDeploymentGroupAlarmConfigurationIgnorePollAlarmFailure = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupAutoRollbackConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupAutoRollbackConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupAutoRollbackConfiguration.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-autorollbackconfiguration.html - -module Stratosphere.ResourceProperties.CodeDeployDeploymentGroupAutoRollbackConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- CodeDeployDeploymentGroupAutoRollbackConfiguration. See --- 'codeDeployDeploymentGroupAutoRollbackConfiguration' for a more --- convenient constructor. -data CodeDeployDeploymentGroupAutoRollbackConfiguration = - CodeDeployDeploymentGroupAutoRollbackConfiguration - { _codeDeployDeploymentGroupAutoRollbackConfigurationEnabled :: Maybe (Val Bool) - , _codeDeployDeploymentGroupAutoRollbackConfigurationEvents :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON CodeDeployDeploymentGroupAutoRollbackConfiguration where - toJSON CodeDeployDeploymentGroupAutoRollbackConfiguration{..} = - object $ - catMaybes - [ fmap (("Enabled",) . toJSON) _codeDeployDeploymentGroupAutoRollbackConfigurationEnabled - , fmap (("Events",) . toJSON) _codeDeployDeploymentGroupAutoRollbackConfigurationEvents - ] - --- | Constructor for 'CodeDeployDeploymentGroupAutoRollbackConfiguration' --- containing required fields as arguments. -codeDeployDeploymentGroupAutoRollbackConfiguration - :: CodeDeployDeploymentGroupAutoRollbackConfiguration -codeDeployDeploymentGroupAutoRollbackConfiguration = - CodeDeployDeploymentGroupAutoRollbackConfiguration - { _codeDeployDeploymentGroupAutoRollbackConfigurationEnabled = Nothing - , _codeDeployDeploymentGroupAutoRollbackConfigurationEvents = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-autorollbackconfiguration.html#cfn-codedeploy-deploymentgroup-autorollbackconfiguration-enabled -cddgarcEnabled :: Lens' CodeDeployDeploymentGroupAutoRollbackConfiguration (Maybe (Val Bool)) -cddgarcEnabled = lens _codeDeployDeploymentGroupAutoRollbackConfigurationEnabled (\s a -> s { _codeDeployDeploymentGroupAutoRollbackConfigurationEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-autorollbackconfiguration.html#cfn-codedeploy-deploymentgroup-autorollbackconfiguration-events -cddgarcEvents :: Lens' CodeDeployDeploymentGroupAutoRollbackConfiguration (Maybe (ValList Text)) -cddgarcEvents = lens _codeDeployDeploymentGroupAutoRollbackConfigurationEvents (\s a -> s { _codeDeployDeploymentGroupAutoRollbackConfigurationEvents = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupDeployment.hs b/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupDeployment.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupDeployment.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-deployment.html - -module Stratosphere.ResourceProperties.CodeDeployDeploymentGroupDeployment where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupRevisionLocation - --- | Full data type definition for CodeDeployDeploymentGroupDeployment. See --- 'codeDeployDeploymentGroupDeployment' for a more convenient constructor. -data CodeDeployDeploymentGroupDeployment = - CodeDeployDeploymentGroupDeployment - { _codeDeployDeploymentGroupDeploymentDescription :: Maybe (Val Text) - , _codeDeployDeploymentGroupDeploymentIgnoreApplicationStopFailures :: Maybe (Val Bool) - , _codeDeployDeploymentGroupDeploymentRevision :: CodeDeployDeploymentGroupRevisionLocation - } deriving (Show, Eq) - -instance ToJSON CodeDeployDeploymentGroupDeployment where - toJSON CodeDeployDeploymentGroupDeployment{..} = - object $ - catMaybes - [ fmap (("Description",) . toJSON) _codeDeployDeploymentGroupDeploymentDescription - , fmap (("IgnoreApplicationStopFailures",) . toJSON) _codeDeployDeploymentGroupDeploymentIgnoreApplicationStopFailures - , (Just . ("Revision",) . toJSON) _codeDeployDeploymentGroupDeploymentRevision - ] - --- | Constructor for 'CodeDeployDeploymentGroupDeployment' containing required --- fields as arguments. -codeDeployDeploymentGroupDeployment - :: CodeDeployDeploymentGroupRevisionLocation -- ^ 'cddgdRevision' - -> CodeDeployDeploymentGroupDeployment -codeDeployDeploymentGroupDeployment revisionarg = - CodeDeployDeploymentGroupDeployment - { _codeDeployDeploymentGroupDeploymentDescription = Nothing - , _codeDeployDeploymentGroupDeploymentIgnoreApplicationStopFailures = Nothing - , _codeDeployDeploymentGroupDeploymentRevision = revisionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-deployment.html#cfn-properties-codedeploy-deploymentgroup-deployment-description -cddgdDescription :: Lens' CodeDeployDeploymentGroupDeployment (Maybe (Val Text)) -cddgdDescription = lens _codeDeployDeploymentGroupDeploymentDescription (\s a -> s { _codeDeployDeploymentGroupDeploymentDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-deployment.html#cfn-properties-codedeploy-deploymentgroup-deployment-ignoreapplicationstopfailures -cddgdIgnoreApplicationStopFailures :: Lens' CodeDeployDeploymentGroupDeployment (Maybe (Val Bool)) -cddgdIgnoreApplicationStopFailures = lens _codeDeployDeploymentGroupDeploymentIgnoreApplicationStopFailures (\s a -> s { _codeDeployDeploymentGroupDeploymentIgnoreApplicationStopFailures = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-deployment.html#cfn-properties-codedeploy-deploymentgroup-deployment-revision -cddgdRevision :: Lens' CodeDeployDeploymentGroupDeployment CodeDeployDeploymentGroupRevisionLocation -cddgdRevision = lens _codeDeployDeploymentGroupDeploymentRevision (\s a -> s { _codeDeployDeploymentGroupDeploymentRevision = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupDeploymentStyle.hs b/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupDeploymentStyle.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupDeploymentStyle.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-deploymentstyle.html - -module Stratosphere.ResourceProperties.CodeDeployDeploymentGroupDeploymentStyle where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeDeployDeploymentGroupDeploymentStyle. --- See 'codeDeployDeploymentGroupDeploymentStyle' for a more convenient --- constructor. -data CodeDeployDeploymentGroupDeploymentStyle = - CodeDeployDeploymentGroupDeploymentStyle - { _codeDeployDeploymentGroupDeploymentStyleDeploymentOption :: Maybe (Val Text) - , _codeDeployDeploymentGroupDeploymentStyleDeploymentType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CodeDeployDeploymentGroupDeploymentStyle where - toJSON CodeDeployDeploymentGroupDeploymentStyle{..} = - object $ - catMaybes - [ fmap (("DeploymentOption",) . toJSON) _codeDeployDeploymentGroupDeploymentStyleDeploymentOption - , fmap (("DeploymentType",) . toJSON) _codeDeployDeploymentGroupDeploymentStyleDeploymentType - ] - --- | Constructor for 'CodeDeployDeploymentGroupDeploymentStyle' containing --- required fields as arguments. -codeDeployDeploymentGroupDeploymentStyle - :: CodeDeployDeploymentGroupDeploymentStyle -codeDeployDeploymentGroupDeploymentStyle = - CodeDeployDeploymentGroupDeploymentStyle - { _codeDeployDeploymentGroupDeploymentStyleDeploymentOption = Nothing - , _codeDeployDeploymentGroupDeploymentStyleDeploymentType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-deploymentstyle.html#cfn-codedeploy-deploymentgroup-deploymentstyle-deploymentoption -cddgdsDeploymentOption :: Lens' CodeDeployDeploymentGroupDeploymentStyle (Maybe (Val Text)) -cddgdsDeploymentOption = lens _codeDeployDeploymentGroupDeploymentStyleDeploymentOption (\s a -> s { _codeDeployDeploymentGroupDeploymentStyleDeploymentOption = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-deploymentstyle.html#cfn-codedeploy-deploymentgroup-deploymentstyle-deploymenttype -cddgdsDeploymentType :: Lens' CodeDeployDeploymentGroupDeploymentStyle (Maybe (Val Text)) -cddgdsDeploymentType = lens _codeDeployDeploymentGroupDeploymentStyleDeploymentType (\s a -> s { _codeDeployDeploymentGroupDeploymentStyleDeploymentType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupEC2TagFilter.hs b/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupEC2TagFilter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupEC2TagFilter.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-ec2tagfilter.html - -module Stratosphere.ResourceProperties.CodeDeployDeploymentGroupEC2TagFilter where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeDeployDeploymentGroupEC2TagFilter. See --- 'codeDeployDeploymentGroupEC2TagFilter' for a more convenient --- constructor. -data CodeDeployDeploymentGroupEC2TagFilter = - CodeDeployDeploymentGroupEC2TagFilter - { _codeDeployDeploymentGroupEC2TagFilterKey :: Maybe (Val Text) - , _codeDeployDeploymentGroupEC2TagFilterType :: Maybe (Val Text) - , _codeDeployDeploymentGroupEC2TagFilterValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CodeDeployDeploymentGroupEC2TagFilter where - toJSON CodeDeployDeploymentGroupEC2TagFilter{..} = - object $ - catMaybes - [ fmap (("Key",) . toJSON) _codeDeployDeploymentGroupEC2TagFilterKey - , fmap (("Type",) . toJSON) _codeDeployDeploymentGroupEC2TagFilterType - , fmap (("Value",) . toJSON) _codeDeployDeploymentGroupEC2TagFilterValue - ] - --- | Constructor for 'CodeDeployDeploymentGroupEC2TagFilter' containing --- required fields as arguments. -codeDeployDeploymentGroupEC2TagFilter - :: CodeDeployDeploymentGroupEC2TagFilter -codeDeployDeploymentGroupEC2TagFilter = - CodeDeployDeploymentGroupEC2TagFilter - { _codeDeployDeploymentGroupEC2TagFilterKey = Nothing - , _codeDeployDeploymentGroupEC2TagFilterType = Nothing - , _codeDeployDeploymentGroupEC2TagFilterValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-ec2tagfilter.html#cfn-codedeploy-deploymentgroup-ec2tagfilter-key -cddgectfKey :: Lens' CodeDeployDeploymentGroupEC2TagFilter (Maybe (Val Text)) -cddgectfKey = lens _codeDeployDeploymentGroupEC2TagFilterKey (\s a -> s { _codeDeployDeploymentGroupEC2TagFilterKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-ec2tagfilter.html#cfn-codedeploy-deploymentgroup-ec2tagfilter-type -cddgectfType :: Lens' CodeDeployDeploymentGroupEC2TagFilter (Maybe (Val Text)) -cddgectfType = lens _codeDeployDeploymentGroupEC2TagFilterType (\s a -> s { _codeDeployDeploymentGroupEC2TagFilterType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-ec2tagfilter.html#cfn-codedeploy-deploymentgroup-ec2tagfilter-value -cddgectfValue :: Lens' CodeDeployDeploymentGroupEC2TagFilter (Maybe (Val Text)) -cddgectfValue = lens _codeDeployDeploymentGroupEC2TagFilterValue (\s a -> s { _codeDeployDeploymentGroupEC2TagFilterValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupEC2TagSet.hs b/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupEC2TagSet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupEC2TagSet.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-ec2tagset.html - -module Stratosphere.ResourceProperties.CodeDeployDeploymentGroupEC2TagSet where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupEC2TagSetListObject - --- | Full data type definition for CodeDeployDeploymentGroupEC2TagSet. See --- 'codeDeployDeploymentGroupEC2TagSet' for a more convenient constructor. -data CodeDeployDeploymentGroupEC2TagSet = - CodeDeployDeploymentGroupEC2TagSet - { _codeDeployDeploymentGroupEC2TagSetEc2TagSetList :: Maybe [CodeDeployDeploymentGroupEC2TagSetListObject] - } deriving (Show, Eq) - -instance ToJSON CodeDeployDeploymentGroupEC2TagSet where - toJSON CodeDeployDeploymentGroupEC2TagSet{..} = - object $ - catMaybes - [ fmap (("Ec2TagSetList",) . toJSON) _codeDeployDeploymentGroupEC2TagSetEc2TagSetList - ] - --- | Constructor for 'CodeDeployDeploymentGroupEC2TagSet' containing required --- fields as arguments. -codeDeployDeploymentGroupEC2TagSet - :: CodeDeployDeploymentGroupEC2TagSet -codeDeployDeploymentGroupEC2TagSet = - CodeDeployDeploymentGroupEC2TagSet - { _codeDeployDeploymentGroupEC2TagSetEc2TagSetList = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-ec2tagset.html#cfn-codedeploy-deploymentgroup-ec2tagset-ec2tagsetlist -cddgectsEc2TagSetList :: Lens' CodeDeployDeploymentGroupEC2TagSet (Maybe [CodeDeployDeploymentGroupEC2TagSetListObject]) -cddgectsEc2TagSetList = lens _codeDeployDeploymentGroupEC2TagSetEc2TagSetList (\s a -> s { _codeDeployDeploymentGroupEC2TagSetEc2TagSetList = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupEC2TagSetListObject.hs b/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupEC2TagSetListObject.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupEC2TagSetListObject.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-ec2tagsetlistobject.html - -module Stratosphere.ResourceProperties.CodeDeployDeploymentGroupEC2TagSetListObject where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupEC2TagFilter - --- | Full data type definition for --- CodeDeployDeploymentGroupEC2TagSetListObject. See --- 'codeDeployDeploymentGroupEC2TagSetListObject' for a more convenient --- constructor. -data CodeDeployDeploymentGroupEC2TagSetListObject = - CodeDeployDeploymentGroupEC2TagSetListObject - { _codeDeployDeploymentGroupEC2TagSetListObjectEc2TagGroup :: Maybe [CodeDeployDeploymentGroupEC2TagFilter] - } deriving (Show, Eq) - -instance ToJSON CodeDeployDeploymentGroupEC2TagSetListObject where - toJSON CodeDeployDeploymentGroupEC2TagSetListObject{..} = - object $ - catMaybes - [ fmap (("Ec2TagGroup",) . toJSON) _codeDeployDeploymentGroupEC2TagSetListObjectEc2TagGroup - ] - --- | Constructor for 'CodeDeployDeploymentGroupEC2TagSetListObject' containing --- required fields as arguments. -codeDeployDeploymentGroupEC2TagSetListObject - :: CodeDeployDeploymentGroupEC2TagSetListObject -codeDeployDeploymentGroupEC2TagSetListObject = - CodeDeployDeploymentGroupEC2TagSetListObject - { _codeDeployDeploymentGroupEC2TagSetListObjectEc2TagGroup = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-ec2tagsetlistobject.html#cfn-codedeploy-deploymentgroup-ec2tagsetlistobject-ec2taggroup -cddgectsloEc2TagGroup :: Lens' CodeDeployDeploymentGroupEC2TagSetListObject (Maybe [CodeDeployDeploymentGroupEC2TagFilter]) -cddgectsloEc2TagGroup = lens _codeDeployDeploymentGroupEC2TagSetListObjectEc2TagGroup (\s a -> s { _codeDeployDeploymentGroupEC2TagSetListObjectEc2TagGroup = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupELBInfo.hs b/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupELBInfo.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupELBInfo.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-elbinfo.html - -module Stratosphere.ResourceProperties.CodeDeployDeploymentGroupELBInfo where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeDeployDeploymentGroupELBInfo. See --- 'codeDeployDeploymentGroupELBInfo' for a more convenient constructor. -data CodeDeployDeploymentGroupELBInfo = - CodeDeployDeploymentGroupELBInfo - { _codeDeployDeploymentGroupELBInfoName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CodeDeployDeploymentGroupELBInfo where - toJSON CodeDeployDeploymentGroupELBInfo{..} = - object $ - catMaybes - [ fmap (("Name",) . toJSON) _codeDeployDeploymentGroupELBInfoName - ] - --- | Constructor for 'CodeDeployDeploymentGroupELBInfo' containing required --- fields as arguments. -codeDeployDeploymentGroupELBInfo - :: CodeDeployDeploymentGroupELBInfo -codeDeployDeploymentGroupELBInfo = - CodeDeployDeploymentGroupELBInfo - { _codeDeployDeploymentGroupELBInfoName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-elbinfo.html#cfn-codedeploy-deploymentgroup-elbinfo-name -cddgelbiName :: Lens' CodeDeployDeploymentGroupELBInfo (Maybe (Val Text)) -cddgelbiName = lens _codeDeployDeploymentGroupELBInfoName (\s a -> s { _codeDeployDeploymentGroupELBInfoName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupGitHubLocation.hs b/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupGitHubLocation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupGitHubLocation.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-deployment-revision-githublocation.html - -module Stratosphere.ResourceProperties.CodeDeployDeploymentGroupGitHubLocation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeDeployDeploymentGroupGitHubLocation. --- See 'codeDeployDeploymentGroupGitHubLocation' for a more convenient --- constructor. -data CodeDeployDeploymentGroupGitHubLocation = - CodeDeployDeploymentGroupGitHubLocation - { _codeDeployDeploymentGroupGitHubLocationCommitId :: Val Text - , _codeDeployDeploymentGroupGitHubLocationRepository :: Val Text - } deriving (Show, Eq) - -instance ToJSON CodeDeployDeploymentGroupGitHubLocation where - toJSON CodeDeployDeploymentGroupGitHubLocation{..} = - object $ - catMaybes - [ (Just . ("CommitId",) . toJSON) _codeDeployDeploymentGroupGitHubLocationCommitId - , (Just . ("Repository",) . toJSON) _codeDeployDeploymentGroupGitHubLocationRepository - ] - --- | Constructor for 'CodeDeployDeploymentGroupGitHubLocation' containing --- required fields as arguments. -codeDeployDeploymentGroupGitHubLocation - :: Val Text -- ^ 'cddgghlCommitId' - -> Val Text -- ^ 'cddgghlRepository' - -> CodeDeployDeploymentGroupGitHubLocation -codeDeployDeploymentGroupGitHubLocation commitIdarg repositoryarg = - CodeDeployDeploymentGroupGitHubLocation - { _codeDeployDeploymentGroupGitHubLocationCommitId = commitIdarg - , _codeDeployDeploymentGroupGitHubLocationRepository = repositoryarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-deployment-revision-githublocation.html#cfn-properties-codedeploy-deploymentgroup-deployment-revision-githublocation-commitid -cddgghlCommitId :: Lens' CodeDeployDeploymentGroupGitHubLocation (Val Text) -cddgghlCommitId = lens _codeDeployDeploymentGroupGitHubLocationCommitId (\s a -> s { _codeDeployDeploymentGroupGitHubLocationCommitId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-deployment-revision-githublocation.html#cfn-properties-codedeploy-deploymentgroup-deployment-revision-githublocation-repository -cddgghlRepository :: Lens' CodeDeployDeploymentGroupGitHubLocation (Val Text) -cddgghlRepository = lens _codeDeployDeploymentGroupGitHubLocationRepository (\s a -> s { _codeDeployDeploymentGroupGitHubLocationRepository = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupLoadBalancerInfo.hs b/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupLoadBalancerInfo.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupLoadBalancerInfo.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-loadbalancerinfo.html - -module Stratosphere.ResourceProperties.CodeDeployDeploymentGroupLoadBalancerInfo where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupELBInfo -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupTargetGroupInfo - --- | Full data type definition for CodeDeployDeploymentGroupLoadBalancerInfo. --- See 'codeDeployDeploymentGroupLoadBalancerInfo' for a more convenient --- constructor. -data CodeDeployDeploymentGroupLoadBalancerInfo = - CodeDeployDeploymentGroupLoadBalancerInfo - { _codeDeployDeploymentGroupLoadBalancerInfoElbInfoList :: Maybe [CodeDeployDeploymentGroupELBInfo] - , _codeDeployDeploymentGroupLoadBalancerInfoTargetGroupInfoList :: Maybe [CodeDeployDeploymentGroupTargetGroupInfo] - } deriving (Show, Eq) - -instance ToJSON CodeDeployDeploymentGroupLoadBalancerInfo where - toJSON CodeDeployDeploymentGroupLoadBalancerInfo{..} = - object $ - catMaybes - [ fmap (("ElbInfoList",) . toJSON) _codeDeployDeploymentGroupLoadBalancerInfoElbInfoList - , fmap (("TargetGroupInfoList",) . toJSON) _codeDeployDeploymentGroupLoadBalancerInfoTargetGroupInfoList - ] - --- | Constructor for 'CodeDeployDeploymentGroupLoadBalancerInfo' containing --- required fields as arguments. -codeDeployDeploymentGroupLoadBalancerInfo - :: CodeDeployDeploymentGroupLoadBalancerInfo -codeDeployDeploymentGroupLoadBalancerInfo = - CodeDeployDeploymentGroupLoadBalancerInfo - { _codeDeployDeploymentGroupLoadBalancerInfoElbInfoList = Nothing - , _codeDeployDeploymentGroupLoadBalancerInfoTargetGroupInfoList = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-loadbalancerinfo.html#cfn-codedeploy-deploymentgroup-loadbalancerinfo-elbinfolist -cddglbiElbInfoList :: Lens' CodeDeployDeploymentGroupLoadBalancerInfo (Maybe [CodeDeployDeploymentGroupELBInfo]) -cddglbiElbInfoList = lens _codeDeployDeploymentGroupLoadBalancerInfoElbInfoList (\s a -> s { _codeDeployDeploymentGroupLoadBalancerInfoElbInfoList = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-loadbalancerinfo.html#cfn-codedeploy-deploymentgroup-loadbalancerinfo-targetgroupinfolist -cddglbiTargetGroupInfoList :: Lens' CodeDeployDeploymentGroupLoadBalancerInfo (Maybe [CodeDeployDeploymentGroupTargetGroupInfo]) -cddglbiTargetGroupInfoList = lens _codeDeployDeploymentGroupLoadBalancerInfoTargetGroupInfoList (\s a -> s { _codeDeployDeploymentGroupLoadBalancerInfoTargetGroupInfoList = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupOnPremisesTagSet.hs b/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupOnPremisesTagSet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupOnPremisesTagSet.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-onpremisestagset.html - -module Stratosphere.ResourceProperties.CodeDeployDeploymentGroupOnPremisesTagSet where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupOnPremisesTagSetListObject - --- | Full data type definition for CodeDeployDeploymentGroupOnPremisesTagSet. --- See 'codeDeployDeploymentGroupOnPremisesTagSet' for a more convenient --- constructor. -data CodeDeployDeploymentGroupOnPremisesTagSet = - CodeDeployDeploymentGroupOnPremisesTagSet - { _codeDeployDeploymentGroupOnPremisesTagSetOnPremisesTagSetList :: Maybe [CodeDeployDeploymentGroupOnPremisesTagSetListObject] - } deriving (Show, Eq) - -instance ToJSON CodeDeployDeploymentGroupOnPremisesTagSet where - toJSON CodeDeployDeploymentGroupOnPremisesTagSet{..} = - object $ - catMaybes - [ fmap (("OnPremisesTagSetList",) . toJSON) _codeDeployDeploymentGroupOnPremisesTagSetOnPremisesTagSetList - ] - --- | Constructor for 'CodeDeployDeploymentGroupOnPremisesTagSet' containing --- required fields as arguments. -codeDeployDeploymentGroupOnPremisesTagSet - :: CodeDeployDeploymentGroupOnPremisesTagSet -codeDeployDeploymentGroupOnPremisesTagSet = - CodeDeployDeploymentGroupOnPremisesTagSet - { _codeDeployDeploymentGroupOnPremisesTagSetOnPremisesTagSetList = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-onpremisestagset.html#cfn-codedeploy-deploymentgroup-onpremisestagset-onpremisestagsetlist -cddgoptsOnPremisesTagSetList :: Lens' CodeDeployDeploymentGroupOnPremisesTagSet (Maybe [CodeDeployDeploymentGroupOnPremisesTagSetListObject]) -cddgoptsOnPremisesTagSetList = lens _codeDeployDeploymentGroupOnPremisesTagSetOnPremisesTagSetList (\s a -> s { _codeDeployDeploymentGroupOnPremisesTagSetOnPremisesTagSetList = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupOnPremisesTagSetListObject.hs b/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupOnPremisesTagSetListObject.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupOnPremisesTagSetListObject.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-onpremisestagsetlistobject.html - -module Stratosphere.ResourceProperties.CodeDeployDeploymentGroupOnPremisesTagSetListObject where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupTagFilter - --- | Full data type definition for --- CodeDeployDeploymentGroupOnPremisesTagSetListObject. See --- 'codeDeployDeploymentGroupOnPremisesTagSetListObject' for a more --- convenient constructor. -data CodeDeployDeploymentGroupOnPremisesTagSetListObject = - CodeDeployDeploymentGroupOnPremisesTagSetListObject - { _codeDeployDeploymentGroupOnPremisesTagSetListObjectOnPremisesTagGroup :: Maybe [CodeDeployDeploymentGroupTagFilter] - } deriving (Show, Eq) - -instance ToJSON CodeDeployDeploymentGroupOnPremisesTagSetListObject where - toJSON CodeDeployDeploymentGroupOnPremisesTagSetListObject{..} = - object $ - catMaybes - [ fmap (("OnPremisesTagGroup",) . toJSON) _codeDeployDeploymentGroupOnPremisesTagSetListObjectOnPremisesTagGroup - ] - --- | Constructor for 'CodeDeployDeploymentGroupOnPremisesTagSetListObject' --- containing required fields as arguments. -codeDeployDeploymentGroupOnPremisesTagSetListObject - :: CodeDeployDeploymentGroupOnPremisesTagSetListObject -codeDeployDeploymentGroupOnPremisesTagSetListObject = - CodeDeployDeploymentGroupOnPremisesTagSetListObject - { _codeDeployDeploymentGroupOnPremisesTagSetListObjectOnPremisesTagGroup = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-onpremisestagsetlistobject.html#cfn-codedeploy-deploymentgroup-onpremisestagsetlistobject-onpremisestaggroup -cddgoptsloOnPremisesTagGroup :: Lens' CodeDeployDeploymentGroupOnPremisesTagSetListObject (Maybe [CodeDeployDeploymentGroupTagFilter]) -cddgoptsloOnPremisesTagGroup = lens _codeDeployDeploymentGroupOnPremisesTagSetListObjectOnPremisesTagGroup (\s a -> s { _codeDeployDeploymentGroupOnPremisesTagSetListObjectOnPremisesTagGroup = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupRevisionLocation.hs b/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupRevisionLocation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupRevisionLocation.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-deployment-revision.html - -module Stratosphere.ResourceProperties.CodeDeployDeploymentGroupRevisionLocation where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupGitHubLocation -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupS3Location - --- | Full data type definition for CodeDeployDeploymentGroupRevisionLocation. --- See 'codeDeployDeploymentGroupRevisionLocation' for a more convenient --- constructor. -data CodeDeployDeploymentGroupRevisionLocation = - CodeDeployDeploymentGroupRevisionLocation - { _codeDeployDeploymentGroupRevisionLocationGitHubLocation :: Maybe CodeDeployDeploymentGroupGitHubLocation - , _codeDeployDeploymentGroupRevisionLocationRevisionType :: Maybe (Val Text) - , _codeDeployDeploymentGroupRevisionLocationS3Location :: Maybe CodeDeployDeploymentGroupS3Location - } deriving (Show, Eq) - -instance ToJSON CodeDeployDeploymentGroupRevisionLocation where - toJSON CodeDeployDeploymentGroupRevisionLocation{..} = - object $ - catMaybes - [ fmap (("GitHubLocation",) . toJSON) _codeDeployDeploymentGroupRevisionLocationGitHubLocation - , fmap (("RevisionType",) . toJSON) _codeDeployDeploymentGroupRevisionLocationRevisionType - , fmap (("S3Location",) . toJSON) _codeDeployDeploymentGroupRevisionLocationS3Location - ] - --- | Constructor for 'CodeDeployDeploymentGroupRevisionLocation' containing --- required fields as arguments. -codeDeployDeploymentGroupRevisionLocation - :: CodeDeployDeploymentGroupRevisionLocation -codeDeployDeploymentGroupRevisionLocation = - CodeDeployDeploymentGroupRevisionLocation - { _codeDeployDeploymentGroupRevisionLocationGitHubLocation = Nothing - , _codeDeployDeploymentGroupRevisionLocationRevisionType = Nothing - , _codeDeployDeploymentGroupRevisionLocationS3Location = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-deployment-revision.html#cfn-properties-codedeploy-deploymentgroup-deployment-revision-githublocation -cddgrlGitHubLocation :: Lens' CodeDeployDeploymentGroupRevisionLocation (Maybe CodeDeployDeploymentGroupGitHubLocation) -cddgrlGitHubLocation = lens _codeDeployDeploymentGroupRevisionLocationGitHubLocation (\s a -> s { _codeDeployDeploymentGroupRevisionLocationGitHubLocation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-deployment-revision.html#cfn-properties-codedeploy-deploymentgroup-deployment-revision-revisiontype -cddgrlRevisionType :: Lens' CodeDeployDeploymentGroupRevisionLocation (Maybe (Val Text)) -cddgrlRevisionType = lens _codeDeployDeploymentGroupRevisionLocationRevisionType (\s a -> s { _codeDeployDeploymentGroupRevisionLocationRevisionType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-deployment-revision.html#cfn-properties-codedeploy-deploymentgroup-deployment-revision-s3location -cddgrlS3Location :: Lens' CodeDeployDeploymentGroupRevisionLocation (Maybe CodeDeployDeploymentGroupS3Location) -cddgrlS3Location = lens _codeDeployDeploymentGroupRevisionLocationS3Location (\s a -> s { _codeDeployDeploymentGroupRevisionLocationS3Location = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupS3Location.hs b/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupS3Location.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupS3Location.hs +++ /dev/null @@ -1,68 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-deployment-revision-s3location.html - -module Stratosphere.ResourceProperties.CodeDeployDeploymentGroupS3Location where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeDeployDeploymentGroupS3Location. See --- 'codeDeployDeploymentGroupS3Location' for a more convenient constructor. -data CodeDeployDeploymentGroupS3Location = - CodeDeployDeploymentGroupS3Location - { _codeDeployDeploymentGroupS3LocationBucket :: Val Text - , _codeDeployDeploymentGroupS3LocationBundleType :: Maybe (Val Text) - , _codeDeployDeploymentGroupS3LocationETag :: Maybe (Val Text) - , _codeDeployDeploymentGroupS3LocationKey :: Val Text - , _codeDeployDeploymentGroupS3LocationVersion :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CodeDeployDeploymentGroupS3Location where - toJSON CodeDeployDeploymentGroupS3Location{..} = - object $ - catMaybes - [ (Just . ("Bucket",) . toJSON) _codeDeployDeploymentGroupS3LocationBucket - , fmap (("BundleType",) . toJSON) _codeDeployDeploymentGroupS3LocationBundleType - , fmap (("ETag",) . toJSON) _codeDeployDeploymentGroupS3LocationETag - , (Just . ("Key",) . toJSON) _codeDeployDeploymentGroupS3LocationKey - , fmap (("Version",) . toJSON) _codeDeployDeploymentGroupS3LocationVersion - ] - --- | Constructor for 'CodeDeployDeploymentGroupS3Location' containing required --- fields as arguments. -codeDeployDeploymentGroupS3Location - :: Val Text -- ^ 'cddgslBucket' - -> Val Text -- ^ 'cddgslKey' - -> CodeDeployDeploymentGroupS3Location -codeDeployDeploymentGroupS3Location bucketarg keyarg = - CodeDeployDeploymentGroupS3Location - { _codeDeployDeploymentGroupS3LocationBucket = bucketarg - , _codeDeployDeploymentGroupS3LocationBundleType = Nothing - , _codeDeployDeploymentGroupS3LocationETag = Nothing - , _codeDeployDeploymentGroupS3LocationKey = keyarg - , _codeDeployDeploymentGroupS3LocationVersion = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-deployment-revision-s3location.html#cfn-properties-codedeploy-deploymentgroup-deployment-revision-s3location-bucket -cddgslBucket :: Lens' CodeDeployDeploymentGroupS3Location (Val Text) -cddgslBucket = lens _codeDeployDeploymentGroupS3LocationBucket (\s a -> s { _codeDeployDeploymentGroupS3LocationBucket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-deployment-revision-s3location.html#cfn-properties-codedeploy-deploymentgroup-deployment-revision-s3location-bundletype -cddgslBundleType :: Lens' CodeDeployDeploymentGroupS3Location (Maybe (Val Text)) -cddgslBundleType = lens _codeDeployDeploymentGroupS3LocationBundleType (\s a -> s { _codeDeployDeploymentGroupS3LocationBundleType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-deployment-revision-s3location.html#cfn-properties-codedeploy-deploymentgroup-deployment-revision-s3location-etag -cddgslETag :: Lens' CodeDeployDeploymentGroupS3Location (Maybe (Val Text)) -cddgslETag = lens _codeDeployDeploymentGroupS3LocationETag (\s a -> s { _codeDeployDeploymentGroupS3LocationETag = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-deployment-revision-s3location.html#cfn-properties-codedeploy-deploymentgroup-deployment-revision-s3location-key -cddgslKey :: Lens' CodeDeployDeploymentGroupS3Location (Val Text) -cddgslKey = lens _codeDeployDeploymentGroupS3LocationKey (\s a -> s { _codeDeployDeploymentGroupS3LocationKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-deployment-revision-s3location.html#cfn-properties-codedeploy-deploymentgroup-deployment-revision-s3location-value -cddgslVersion :: Lens' CodeDeployDeploymentGroupS3Location (Maybe (Val Text)) -cddgslVersion = lens _codeDeployDeploymentGroupS3LocationVersion (\s a -> s { _codeDeployDeploymentGroupS3LocationVersion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupTagFilter.hs b/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupTagFilter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupTagFilter.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-tagfilter.html - -module Stratosphere.ResourceProperties.CodeDeployDeploymentGroupTagFilter where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeDeployDeploymentGroupTagFilter. See --- 'codeDeployDeploymentGroupTagFilter' for a more convenient constructor. -data CodeDeployDeploymentGroupTagFilter = - CodeDeployDeploymentGroupTagFilter - { _codeDeployDeploymentGroupTagFilterKey :: Maybe (Val Text) - , _codeDeployDeploymentGroupTagFilterType :: Maybe (Val Text) - , _codeDeployDeploymentGroupTagFilterValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CodeDeployDeploymentGroupTagFilter where - toJSON CodeDeployDeploymentGroupTagFilter{..} = - object $ - catMaybes - [ fmap (("Key",) . toJSON) _codeDeployDeploymentGroupTagFilterKey - , fmap (("Type",) . toJSON) _codeDeployDeploymentGroupTagFilterType - , fmap (("Value",) . toJSON) _codeDeployDeploymentGroupTagFilterValue - ] - --- | Constructor for 'CodeDeployDeploymentGroupTagFilter' containing required --- fields as arguments. -codeDeployDeploymentGroupTagFilter - :: CodeDeployDeploymentGroupTagFilter -codeDeployDeploymentGroupTagFilter = - CodeDeployDeploymentGroupTagFilter - { _codeDeployDeploymentGroupTagFilterKey = Nothing - , _codeDeployDeploymentGroupTagFilterType = Nothing - , _codeDeployDeploymentGroupTagFilterValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-tagfilter.html#cfn-codedeploy-deploymentgroup-tagfilter-key -cddgtfKey :: Lens' CodeDeployDeploymentGroupTagFilter (Maybe (Val Text)) -cddgtfKey = lens _codeDeployDeploymentGroupTagFilterKey (\s a -> s { _codeDeployDeploymentGroupTagFilterKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-tagfilter.html#cfn-codedeploy-deploymentgroup-tagfilter-type -cddgtfType :: Lens' CodeDeployDeploymentGroupTagFilter (Maybe (Val Text)) -cddgtfType = lens _codeDeployDeploymentGroupTagFilterType (\s a -> s { _codeDeployDeploymentGroupTagFilterType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-tagfilter.html#cfn-codedeploy-deploymentgroup-tagfilter-value -cddgtfValue :: Lens' CodeDeployDeploymentGroupTagFilter (Maybe (Val Text)) -cddgtfValue = lens _codeDeployDeploymentGroupTagFilterValue (\s a -> s { _codeDeployDeploymentGroupTagFilterValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupTargetGroupInfo.hs b/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupTargetGroupInfo.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupTargetGroupInfo.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-targetgroupinfo.html - -module Stratosphere.ResourceProperties.CodeDeployDeploymentGroupTargetGroupInfo where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeDeployDeploymentGroupTargetGroupInfo. --- See 'codeDeployDeploymentGroupTargetGroupInfo' for a more convenient --- constructor. -data CodeDeployDeploymentGroupTargetGroupInfo = - CodeDeployDeploymentGroupTargetGroupInfo - { _codeDeployDeploymentGroupTargetGroupInfoName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CodeDeployDeploymentGroupTargetGroupInfo where - toJSON CodeDeployDeploymentGroupTargetGroupInfo{..} = - object $ - catMaybes - [ fmap (("Name",) . toJSON) _codeDeployDeploymentGroupTargetGroupInfoName - ] - --- | Constructor for 'CodeDeployDeploymentGroupTargetGroupInfo' containing --- required fields as arguments. -codeDeployDeploymentGroupTargetGroupInfo - :: CodeDeployDeploymentGroupTargetGroupInfo -codeDeployDeploymentGroupTargetGroupInfo = - CodeDeployDeploymentGroupTargetGroupInfo - { _codeDeployDeploymentGroupTargetGroupInfoName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-targetgroupinfo.html#cfn-codedeploy-deploymentgroup-targetgroupinfo-name -cddgtgiName :: Lens' CodeDeployDeploymentGroupTargetGroupInfo (Maybe (Val Text)) -cddgtgiName = lens _codeDeployDeploymentGroupTargetGroupInfoName (\s a -> s { _codeDeployDeploymentGroupTargetGroupInfoName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupTriggerConfig.hs b/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupTriggerConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupTriggerConfig.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-triggerconfig.html - -module Stratosphere.ResourceProperties.CodeDeployDeploymentGroupTriggerConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeDeployDeploymentGroupTriggerConfig. See --- 'codeDeployDeploymentGroupTriggerConfig' for a more convenient --- constructor. -data CodeDeployDeploymentGroupTriggerConfig = - CodeDeployDeploymentGroupTriggerConfig - { _codeDeployDeploymentGroupTriggerConfigTriggerEvents :: Maybe (ValList Text) - , _codeDeployDeploymentGroupTriggerConfigTriggerName :: Maybe (Val Text) - , _codeDeployDeploymentGroupTriggerConfigTriggerTargetArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CodeDeployDeploymentGroupTriggerConfig where - toJSON CodeDeployDeploymentGroupTriggerConfig{..} = - object $ - catMaybes - [ fmap (("TriggerEvents",) . toJSON) _codeDeployDeploymentGroupTriggerConfigTriggerEvents - , fmap (("TriggerName",) . toJSON) _codeDeployDeploymentGroupTriggerConfigTriggerName - , fmap (("TriggerTargetArn",) . toJSON) _codeDeployDeploymentGroupTriggerConfigTriggerTargetArn - ] - --- | Constructor for 'CodeDeployDeploymentGroupTriggerConfig' containing --- required fields as arguments. -codeDeployDeploymentGroupTriggerConfig - :: CodeDeployDeploymentGroupTriggerConfig -codeDeployDeploymentGroupTriggerConfig = - CodeDeployDeploymentGroupTriggerConfig - { _codeDeployDeploymentGroupTriggerConfigTriggerEvents = Nothing - , _codeDeployDeploymentGroupTriggerConfigTriggerName = Nothing - , _codeDeployDeploymentGroupTriggerConfigTriggerTargetArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-triggerconfig.html#cfn-codedeploy-deploymentgroup-triggerconfig-triggerevents -cddgtcTriggerEvents :: Lens' CodeDeployDeploymentGroupTriggerConfig (Maybe (ValList Text)) -cddgtcTriggerEvents = lens _codeDeployDeploymentGroupTriggerConfigTriggerEvents (\s a -> s { _codeDeployDeploymentGroupTriggerConfigTriggerEvents = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-triggerconfig.html#cfn-codedeploy-deploymentgroup-triggerconfig-triggername -cddgtcTriggerName :: Lens' CodeDeployDeploymentGroupTriggerConfig (Maybe (Val Text)) -cddgtcTriggerName = lens _codeDeployDeploymentGroupTriggerConfigTriggerName (\s a -> s { _codeDeployDeploymentGroupTriggerConfigTriggerName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codedeploy-deploymentgroup-triggerconfig.html#cfn-codedeploy-deploymentgroup-triggerconfig-triggertargetarn -cddgtcTriggerTargetArn :: Lens' CodeDeployDeploymentGroupTriggerConfig (Maybe (Val Text)) -cddgtcTriggerTargetArn = lens _codeDeployDeploymentGroupTriggerConfigTriggerTargetArn (\s a -> s { _codeDeployDeploymentGroupTriggerConfigTriggerTargetArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeGuruProfilerProfilingGroupChannel.hs b/library-gen/Stratosphere/ResourceProperties/CodeGuruProfilerProfilingGroupChannel.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeGuruProfilerProfilingGroupChannel.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codeguruprofiler-profilinggroup-channel.html - -module Stratosphere.ResourceProperties.CodeGuruProfilerProfilingGroupChannel where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeGuruProfilerProfilingGroupChannel. See --- 'codeGuruProfilerProfilingGroupChannel' for a more convenient --- constructor. -data CodeGuruProfilerProfilingGroupChannel = - CodeGuruProfilerProfilingGroupChannel - { _codeGuruProfilerProfilingGroupChannelchannelId :: Maybe (Val Text) - , _codeGuruProfilerProfilingGroupChannelchannelUri :: Val Text - } deriving (Show, Eq) - -instance ToJSON CodeGuruProfilerProfilingGroupChannel where - toJSON CodeGuruProfilerProfilingGroupChannel{..} = - object $ - catMaybes - [ fmap (("channelId",) . toJSON) _codeGuruProfilerProfilingGroupChannelchannelId - , (Just . ("channelUri",) . toJSON) _codeGuruProfilerProfilingGroupChannelchannelUri - ] - --- | Constructor for 'CodeGuruProfilerProfilingGroupChannel' containing --- required fields as arguments. -codeGuruProfilerProfilingGroupChannel - :: Val Text -- ^ 'cgppgcchannelUri' - -> CodeGuruProfilerProfilingGroupChannel -codeGuruProfilerProfilingGroupChannel channelUriarg = - CodeGuruProfilerProfilingGroupChannel - { _codeGuruProfilerProfilingGroupChannelchannelId = Nothing - , _codeGuruProfilerProfilingGroupChannelchannelUri = channelUriarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codeguruprofiler-profilinggroup-channel.html#cfn-codeguruprofiler-profilinggroup-channel-channelid -cgppgcchannelId :: Lens' CodeGuruProfilerProfilingGroupChannel (Maybe (Val Text)) -cgppgcchannelId = lens _codeGuruProfilerProfilingGroupChannelchannelId (\s a -> s { _codeGuruProfilerProfilingGroupChannelchannelId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codeguruprofiler-profilinggroup-channel.html#cfn-codeguruprofiler-profilinggroup-channel-channeluri -cgppgcchannelUri :: Lens' CodeGuruProfilerProfilingGroupChannel (Val Text) -cgppgcchannelUri = lens _codeGuruProfilerProfilingGroupChannelchannelUri (\s a -> s { _codeGuruProfilerProfilingGroupChannelchannelUri = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodePipelineCustomActionTypeArtifactDetails.hs b/library-gen/Stratosphere/ResourceProperties/CodePipelineCustomActionTypeArtifactDetails.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodePipelineCustomActionTypeArtifactDetails.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-customactiontype-artifactdetails.html - -module Stratosphere.ResourceProperties.CodePipelineCustomActionTypeArtifactDetails where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- CodePipelineCustomActionTypeArtifactDetails. See --- 'codePipelineCustomActionTypeArtifactDetails' for a more convenient --- constructor. -data CodePipelineCustomActionTypeArtifactDetails = - CodePipelineCustomActionTypeArtifactDetails - { _codePipelineCustomActionTypeArtifactDetailsMaximumCount :: Val Integer - , _codePipelineCustomActionTypeArtifactDetailsMinimumCount :: Val Integer - } deriving (Show, Eq) - -instance ToJSON CodePipelineCustomActionTypeArtifactDetails where - toJSON CodePipelineCustomActionTypeArtifactDetails{..} = - object $ - catMaybes - [ (Just . ("MaximumCount",) . toJSON) _codePipelineCustomActionTypeArtifactDetailsMaximumCount - , (Just . ("MinimumCount",) . toJSON) _codePipelineCustomActionTypeArtifactDetailsMinimumCount - ] - --- | Constructor for 'CodePipelineCustomActionTypeArtifactDetails' containing --- required fields as arguments. -codePipelineCustomActionTypeArtifactDetails - :: Val Integer -- ^ 'cpcatadMaximumCount' - -> Val Integer -- ^ 'cpcatadMinimumCount' - -> CodePipelineCustomActionTypeArtifactDetails -codePipelineCustomActionTypeArtifactDetails maximumCountarg minimumCountarg = - CodePipelineCustomActionTypeArtifactDetails - { _codePipelineCustomActionTypeArtifactDetailsMaximumCount = maximumCountarg - , _codePipelineCustomActionTypeArtifactDetailsMinimumCount = minimumCountarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-customactiontype-artifactdetails.html#cfn-codepipeline-customactiontype-artifactdetails-maximumcount -cpcatadMaximumCount :: Lens' CodePipelineCustomActionTypeArtifactDetails (Val Integer) -cpcatadMaximumCount = lens _codePipelineCustomActionTypeArtifactDetailsMaximumCount (\s a -> s { _codePipelineCustomActionTypeArtifactDetailsMaximumCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-customactiontype-artifactdetails.html#cfn-codepipeline-customactiontype-artifactdetails-minimumcount -cpcatadMinimumCount :: Lens' CodePipelineCustomActionTypeArtifactDetails (Val Integer) -cpcatadMinimumCount = lens _codePipelineCustomActionTypeArtifactDetailsMinimumCount (\s a -> s { _codePipelineCustomActionTypeArtifactDetailsMinimumCount = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodePipelineCustomActionTypeConfigurationProperties.hs b/library-gen/Stratosphere/ResourceProperties/CodePipelineCustomActionTypeConfigurationProperties.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodePipelineCustomActionTypeConfigurationProperties.hs +++ /dev/null @@ -1,86 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-customactiontype-configurationproperties.html - -module Stratosphere.ResourceProperties.CodePipelineCustomActionTypeConfigurationProperties where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- CodePipelineCustomActionTypeConfigurationProperties. See --- 'codePipelineCustomActionTypeConfigurationProperties' for a more --- convenient constructor. -data CodePipelineCustomActionTypeConfigurationProperties = - CodePipelineCustomActionTypeConfigurationProperties - { _codePipelineCustomActionTypeConfigurationPropertiesDescription :: Maybe (Val Text) - , _codePipelineCustomActionTypeConfigurationPropertiesKey :: Val Bool - , _codePipelineCustomActionTypeConfigurationPropertiesName :: Val Text - , _codePipelineCustomActionTypeConfigurationPropertiesQueryable :: Maybe (Val Bool) - , _codePipelineCustomActionTypeConfigurationPropertiesRequired :: Val Bool - , _codePipelineCustomActionTypeConfigurationPropertiesSecret :: Val Bool - , _codePipelineCustomActionTypeConfigurationPropertiesType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CodePipelineCustomActionTypeConfigurationProperties where - toJSON CodePipelineCustomActionTypeConfigurationProperties{..} = - object $ - catMaybes - [ fmap (("Description",) . toJSON) _codePipelineCustomActionTypeConfigurationPropertiesDescription - , (Just . ("Key",) . toJSON) _codePipelineCustomActionTypeConfigurationPropertiesKey - , (Just . ("Name",) . toJSON) _codePipelineCustomActionTypeConfigurationPropertiesName - , fmap (("Queryable",) . toJSON) _codePipelineCustomActionTypeConfigurationPropertiesQueryable - , (Just . ("Required",) . toJSON) _codePipelineCustomActionTypeConfigurationPropertiesRequired - , (Just . ("Secret",) . toJSON) _codePipelineCustomActionTypeConfigurationPropertiesSecret - , fmap (("Type",) . toJSON) _codePipelineCustomActionTypeConfigurationPropertiesType - ] - --- | Constructor for 'CodePipelineCustomActionTypeConfigurationProperties' --- containing required fields as arguments. -codePipelineCustomActionTypeConfigurationProperties - :: Val Bool -- ^ 'cpcatcpKey' - -> Val Text -- ^ 'cpcatcpName' - -> Val Bool -- ^ 'cpcatcpRequired' - -> Val Bool -- ^ 'cpcatcpSecret' - -> CodePipelineCustomActionTypeConfigurationProperties -codePipelineCustomActionTypeConfigurationProperties keyarg namearg requiredarg secretarg = - CodePipelineCustomActionTypeConfigurationProperties - { _codePipelineCustomActionTypeConfigurationPropertiesDescription = Nothing - , _codePipelineCustomActionTypeConfigurationPropertiesKey = keyarg - , _codePipelineCustomActionTypeConfigurationPropertiesName = namearg - , _codePipelineCustomActionTypeConfigurationPropertiesQueryable = Nothing - , _codePipelineCustomActionTypeConfigurationPropertiesRequired = requiredarg - , _codePipelineCustomActionTypeConfigurationPropertiesSecret = secretarg - , _codePipelineCustomActionTypeConfigurationPropertiesType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-customactiontype-configurationproperties.html#cfn-codepipeline-customactiontype-configurationproperties-description -cpcatcpDescription :: Lens' CodePipelineCustomActionTypeConfigurationProperties (Maybe (Val Text)) -cpcatcpDescription = lens _codePipelineCustomActionTypeConfigurationPropertiesDescription (\s a -> s { _codePipelineCustomActionTypeConfigurationPropertiesDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-customactiontype-configurationproperties.html#cfn-codepipeline-customactiontype-configurationproperties-key -cpcatcpKey :: Lens' CodePipelineCustomActionTypeConfigurationProperties (Val Bool) -cpcatcpKey = lens _codePipelineCustomActionTypeConfigurationPropertiesKey (\s a -> s { _codePipelineCustomActionTypeConfigurationPropertiesKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-customactiontype-configurationproperties.html#cfn-codepipeline-customactiontype-configurationproperties-name -cpcatcpName :: Lens' CodePipelineCustomActionTypeConfigurationProperties (Val Text) -cpcatcpName = lens _codePipelineCustomActionTypeConfigurationPropertiesName (\s a -> s { _codePipelineCustomActionTypeConfigurationPropertiesName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-customactiontype-configurationproperties.html#cfn-codepipeline-customactiontype-configurationproperties-queryable -cpcatcpQueryable :: Lens' CodePipelineCustomActionTypeConfigurationProperties (Maybe (Val Bool)) -cpcatcpQueryable = lens _codePipelineCustomActionTypeConfigurationPropertiesQueryable (\s a -> s { _codePipelineCustomActionTypeConfigurationPropertiesQueryable = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-customactiontype-configurationproperties.html#cfn-codepipeline-customactiontype-configurationproperties-required -cpcatcpRequired :: Lens' CodePipelineCustomActionTypeConfigurationProperties (Val Bool) -cpcatcpRequired = lens _codePipelineCustomActionTypeConfigurationPropertiesRequired (\s a -> s { _codePipelineCustomActionTypeConfigurationPropertiesRequired = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-customactiontype-configurationproperties.html#cfn-codepipeline-customactiontype-configurationproperties-secret -cpcatcpSecret :: Lens' CodePipelineCustomActionTypeConfigurationProperties (Val Bool) -cpcatcpSecret = lens _codePipelineCustomActionTypeConfigurationPropertiesSecret (\s a -> s { _codePipelineCustomActionTypeConfigurationPropertiesSecret = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-customactiontype-configurationproperties.html#cfn-codepipeline-customactiontype-configurationproperties-type -cpcatcpType :: Lens' CodePipelineCustomActionTypeConfigurationProperties (Maybe (Val Text)) -cpcatcpType = lens _codePipelineCustomActionTypeConfigurationPropertiesType (\s a -> s { _codePipelineCustomActionTypeConfigurationPropertiesType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodePipelineCustomActionTypeSettings.hs b/library-gen/Stratosphere/ResourceProperties/CodePipelineCustomActionTypeSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodePipelineCustomActionTypeSettings.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-customactiontype-settings.html - -module Stratosphere.ResourceProperties.CodePipelineCustomActionTypeSettings where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodePipelineCustomActionTypeSettings. See --- 'codePipelineCustomActionTypeSettings' for a more convenient constructor. -data CodePipelineCustomActionTypeSettings = - CodePipelineCustomActionTypeSettings - { _codePipelineCustomActionTypeSettingsEntityUrlTemplate :: Maybe (Val Text) - , _codePipelineCustomActionTypeSettingsExecutionUrlTemplate :: Maybe (Val Text) - , _codePipelineCustomActionTypeSettingsRevisionUrlTemplate :: Maybe (Val Text) - , _codePipelineCustomActionTypeSettingsThirdPartyConfigurationUrl :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CodePipelineCustomActionTypeSettings where - toJSON CodePipelineCustomActionTypeSettings{..} = - object $ - catMaybes - [ fmap (("EntityUrlTemplate",) . toJSON) _codePipelineCustomActionTypeSettingsEntityUrlTemplate - , fmap (("ExecutionUrlTemplate",) . toJSON) _codePipelineCustomActionTypeSettingsExecutionUrlTemplate - , fmap (("RevisionUrlTemplate",) . toJSON) _codePipelineCustomActionTypeSettingsRevisionUrlTemplate - , fmap (("ThirdPartyConfigurationUrl",) . toJSON) _codePipelineCustomActionTypeSettingsThirdPartyConfigurationUrl - ] - --- | Constructor for 'CodePipelineCustomActionTypeSettings' containing --- required fields as arguments. -codePipelineCustomActionTypeSettings - :: CodePipelineCustomActionTypeSettings -codePipelineCustomActionTypeSettings = - CodePipelineCustomActionTypeSettings - { _codePipelineCustomActionTypeSettingsEntityUrlTemplate = Nothing - , _codePipelineCustomActionTypeSettingsExecutionUrlTemplate = Nothing - , _codePipelineCustomActionTypeSettingsRevisionUrlTemplate = Nothing - , _codePipelineCustomActionTypeSettingsThirdPartyConfigurationUrl = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-customactiontype-settings.html#cfn-codepipeline-customactiontype-settings-entityurltemplate -cpcatsEntityUrlTemplate :: Lens' CodePipelineCustomActionTypeSettings (Maybe (Val Text)) -cpcatsEntityUrlTemplate = lens _codePipelineCustomActionTypeSettingsEntityUrlTemplate (\s a -> s { _codePipelineCustomActionTypeSettingsEntityUrlTemplate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-customactiontype-settings.html#cfn-codepipeline-customactiontype-settings-executionurltemplate -cpcatsExecutionUrlTemplate :: Lens' CodePipelineCustomActionTypeSettings (Maybe (Val Text)) -cpcatsExecutionUrlTemplate = lens _codePipelineCustomActionTypeSettingsExecutionUrlTemplate (\s a -> s { _codePipelineCustomActionTypeSettingsExecutionUrlTemplate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-customactiontype-settings.html#cfn-codepipeline-customactiontype-settings-revisionurltemplate -cpcatsRevisionUrlTemplate :: Lens' CodePipelineCustomActionTypeSettings (Maybe (Val Text)) -cpcatsRevisionUrlTemplate = lens _codePipelineCustomActionTypeSettingsRevisionUrlTemplate (\s a -> s { _codePipelineCustomActionTypeSettingsRevisionUrlTemplate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-customactiontype-settings.html#cfn-codepipeline-customactiontype-settings-thirdpartyconfigurationurl -cpcatsThirdPartyConfigurationUrl :: Lens' CodePipelineCustomActionTypeSettings (Maybe (Val Text)) -cpcatsThirdPartyConfigurationUrl = lens _codePipelineCustomActionTypeSettingsThirdPartyConfigurationUrl (\s a -> s { _codePipelineCustomActionTypeSettingsThirdPartyConfigurationUrl = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineActionDeclaration.hs b/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineActionDeclaration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineActionDeclaration.hs +++ /dev/null @@ -1,99 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-stages-actions.html - -module Stratosphere.ResourceProperties.CodePipelinePipelineActionDeclaration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodePipelinePipelineActionTypeId -import Stratosphere.ResourceProperties.CodePipelinePipelineInputArtifact -import Stratosphere.ResourceProperties.CodePipelinePipelineOutputArtifact - --- | Full data type definition for CodePipelinePipelineActionDeclaration. See --- 'codePipelinePipelineActionDeclaration' for a more convenient --- constructor. -data CodePipelinePipelineActionDeclaration = - CodePipelinePipelineActionDeclaration - { _codePipelinePipelineActionDeclarationActionTypeId :: CodePipelinePipelineActionTypeId - , _codePipelinePipelineActionDeclarationConfiguration :: Maybe Object - , _codePipelinePipelineActionDeclarationInputArtifacts :: Maybe [CodePipelinePipelineInputArtifact] - , _codePipelinePipelineActionDeclarationName :: Val Text - , _codePipelinePipelineActionDeclarationNamespace :: Maybe (Val Text) - , _codePipelinePipelineActionDeclarationOutputArtifacts :: Maybe [CodePipelinePipelineOutputArtifact] - , _codePipelinePipelineActionDeclarationRegion :: Maybe (Val Text) - , _codePipelinePipelineActionDeclarationRoleArn :: Maybe (Val Text) - , _codePipelinePipelineActionDeclarationRunOrder :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON CodePipelinePipelineActionDeclaration where - toJSON CodePipelinePipelineActionDeclaration{..} = - object $ - catMaybes - [ (Just . ("ActionTypeId",) . toJSON) _codePipelinePipelineActionDeclarationActionTypeId - , fmap (("Configuration",) . toJSON) _codePipelinePipelineActionDeclarationConfiguration - , fmap (("InputArtifacts",) . toJSON) _codePipelinePipelineActionDeclarationInputArtifacts - , (Just . ("Name",) . toJSON) _codePipelinePipelineActionDeclarationName - , fmap (("Namespace",) . toJSON) _codePipelinePipelineActionDeclarationNamespace - , fmap (("OutputArtifacts",) . toJSON) _codePipelinePipelineActionDeclarationOutputArtifacts - , fmap (("Region",) . toJSON) _codePipelinePipelineActionDeclarationRegion - , fmap (("RoleArn",) . toJSON) _codePipelinePipelineActionDeclarationRoleArn - , fmap (("RunOrder",) . toJSON) _codePipelinePipelineActionDeclarationRunOrder - ] - --- | Constructor for 'CodePipelinePipelineActionDeclaration' containing --- required fields as arguments. -codePipelinePipelineActionDeclaration - :: CodePipelinePipelineActionTypeId -- ^ 'cppadActionTypeId' - -> Val Text -- ^ 'cppadName' - -> CodePipelinePipelineActionDeclaration -codePipelinePipelineActionDeclaration actionTypeIdarg namearg = - CodePipelinePipelineActionDeclaration - { _codePipelinePipelineActionDeclarationActionTypeId = actionTypeIdarg - , _codePipelinePipelineActionDeclarationConfiguration = Nothing - , _codePipelinePipelineActionDeclarationInputArtifacts = Nothing - , _codePipelinePipelineActionDeclarationName = namearg - , _codePipelinePipelineActionDeclarationNamespace = Nothing - , _codePipelinePipelineActionDeclarationOutputArtifacts = Nothing - , _codePipelinePipelineActionDeclarationRegion = Nothing - , _codePipelinePipelineActionDeclarationRoleArn = Nothing - , _codePipelinePipelineActionDeclarationRunOrder = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-stages-actions.html#cfn-codepipeline-pipeline-stages-actions-actiontypeid -cppadActionTypeId :: Lens' CodePipelinePipelineActionDeclaration CodePipelinePipelineActionTypeId -cppadActionTypeId = lens _codePipelinePipelineActionDeclarationActionTypeId (\s a -> s { _codePipelinePipelineActionDeclarationActionTypeId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-stages-actions.html#cfn-codepipeline-pipeline-stages-actions-configuration -cppadConfiguration :: Lens' CodePipelinePipelineActionDeclaration (Maybe Object) -cppadConfiguration = lens _codePipelinePipelineActionDeclarationConfiguration (\s a -> s { _codePipelinePipelineActionDeclarationConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-stages-actions.html#cfn-codepipeline-pipeline-stages-actions-inputartifacts -cppadInputArtifacts :: Lens' CodePipelinePipelineActionDeclaration (Maybe [CodePipelinePipelineInputArtifact]) -cppadInputArtifacts = lens _codePipelinePipelineActionDeclarationInputArtifacts (\s a -> s { _codePipelinePipelineActionDeclarationInputArtifacts = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-stages-actions.html#cfn-codepipeline-pipeline-stages-actions-name -cppadName :: Lens' CodePipelinePipelineActionDeclaration (Val Text) -cppadName = lens _codePipelinePipelineActionDeclarationName (\s a -> s { _codePipelinePipelineActionDeclarationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-stages-actions.html#cfn-codepipeline-pipeline-actiondeclaration-namespace -cppadNamespace :: Lens' CodePipelinePipelineActionDeclaration (Maybe (Val Text)) -cppadNamespace = lens _codePipelinePipelineActionDeclarationNamespace (\s a -> s { _codePipelinePipelineActionDeclarationNamespace = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-stages-actions.html#cfn-codepipeline-pipeline-stages-actions-outputartifacts -cppadOutputArtifacts :: Lens' CodePipelinePipelineActionDeclaration (Maybe [CodePipelinePipelineOutputArtifact]) -cppadOutputArtifacts = lens _codePipelinePipelineActionDeclarationOutputArtifacts (\s a -> s { _codePipelinePipelineActionDeclarationOutputArtifacts = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-stages-actions.html#cfn-codepipeline-pipeline-stages-actions-region -cppadRegion :: Lens' CodePipelinePipelineActionDeclaration (Maybe (Val Text)) -cppadRegion = lens _codePipelinePipelineActionDeclarationRegion (\s a -> s { _codePipelinePipelineActionDeclarationRegion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-stages-actions.html#cfn-codepipeline-pipeline-stages-actions-rolearn -cppadRoleArn :: Lens' CodePipelinePipelineActionDeclaration (Maybe (Val Text)) -cppadRoleArn = lens _codePipelinePipelineActionDeclarationRoleArn (\s a -> s { _codePipelinePipelineActionDeclarationRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-stages-actions.html#cfn-codepipeline-pipeline-stages-actions-runorder -cppadRunOrder :: Lens' CodePipelinePipelineActionDeclaration (Maybe (Val Integer)) -cppadRunOrder = lens _codePipelinePipelineActionDeclarationRunOrder (\s a -> s { _codePipelinePipelineActionDeclarationRunOrder = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineActionTypeId.hs b/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineActionTypeId.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineActionTypeId.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-stages-actions-actiontypeid.html - -module Stratosphere.ResourceProperties.CodePipelinePipelineActionTypeId where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodePipelinePipelineActionTypeId. See --- 'codePipelinePipelineActionTypeId' for a more convenient constructor. -data CodePipelinePipelineActionTypeId = - CodePipelinePipelineActionTypeId - { _codePipelinePipelineActionTypeIdCategory :: Val Text - , _codePipelinePipelineActionTypeIdOwner :: Val Text - , _codePipelinePipelineActionTypeIdProvider :: Val Text - , _codePipelinePipelineActionTypeIdVersion :: Val Text - } deriving (Show, Eq) - -instance ToJSON CodePipelinePipelineActionTypeId where - toJSON CodePipelinePipelineActionTypeId{..} = - object $ - catMaybes - [ (Just . ("Category",) . toJSON) _codePipelinePipelineActionTypeIdCategory - , (Just . ("Owner",) . toJSON) _codePipelinePipelineActionTypeIdOwner - , (Just . ("Provider",) . toJSON) _codePipelinePipelineActionTypeIdProvider - , (Just . ("Version",) . toJSON) _codePipelinePipelineActionTypeIdVersion - ] - --- | Constructor for 'CodePipelinePipelineActionTypeId' containing required --- fields as arguments. -codePipelinePipelineActionTypeId - :: Val Text -- ^ 'cppatiCategory' - -> Val Text -- ^ 'cppatiOwner' - -> Val Text -- ^ 'cppatiProvider' - -> Val Text -- ^ 'cppatiVersion' - -> CodePipelinePipelineActionTypeId -codePipelinePipelineActionTypeId categoryarg ownerarg providerarg versionarg = - CodePipelinePipelineActionTypeId - { _codePipelinePipelineActionTypeIdCategory = categoryarg - , _codePipelinePipelineActionTypeIdOwner = ownerarg - , _codePipelinePipelineActionTypeIdProvider = providerarg - , _codePipelinePipelineActionTypeIdVersion = versionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-stages-actions-actiontypeid.html#cfn-codepipeline-pipeline-stages-actions-actiontypeid-category -cppatiCategory :: Lens' CodePipelinePipelineActionTypeId (Val Text) -cppatiCategory = lens _codePipelinePipelineActionTypeIdCategory (\s a -> s { _codePipelinePipelineActionTypeIdCategory = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-stages-actions-actiontypeid.html#cfn-codepipeline-pipeline-stages-actions-actiontypeid-owner -cppatiOwner :: Lens' CodePipelinePipelineActionTypeId (Val Text) -cppatiOwner = lens _codePipelinePipelineActionTypeIdOwner (\s a -> s { _codePipelinePipelineActionTypeIdOwner = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-stages-actions-actiontypeid.html#cfn-codepipeline-pipeline-stages-actions-actiontypeid-provider -cppatiProvider :: Lens' CodePipelinePipelineActionTypeId (Val Text) -cppatiProvider = lens _codePipelinePipelineActionTypeIdProvider (\s a -> s { _codePipelinePipelineActionTypeIdProvider = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-stages-actions-actiontypeid.html#cfn-codepipeline-pipeline-stages-actions-actiontypeid-version -cppatiVersion :: Lens' CodePipelinePipelineActionTypeId (Val Text) -cppatiVersion = lens _codePipelinePipelineActionTypeIdVersion (\s a -> s { _codePipelinePipelineActionTypeIdVersion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineArtifactStore.hs b/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineArtifactStore.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineArtifactStore.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-artifactstore.html - -module Stratosphere.ResourceProperties.CodePipelinePipelineArtifactStore where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodePipelinePipelineEncryptionKey - --- | Full data type definition for CodePipelinePipelineArtifactStore. See --- 'codePipelinePipelineArtifactStore' for a more convenient constructor. -data CodePipelinePipelineArtifactStore = - CodePipelinePipelineArtifactStore - { _codePipelinePipelineArtifactStoreEncryptionKey :: Maybe CodePipelinePipelineEncryptionKey - , _codePipelinePipelineArtifactStoreLocation :: Val Text - , _codePipelinePipelineArtifactStoreType :: Val Text - } deriving (Show, Eq) - -instance ToJSON CodePipelinePipelineArtifactStore where - toJSON CodePipelinePipelineArtifactStore{..} = - object $ - catMaybes - [ fmap (("EncryptionKey",) . toJSON) _codePipelinePipelineArtifactStoreEncryptionKey - , (Just . ("Location",) . toJSON) _codePipelinePipelineArtifactStoreLocation - , (Just . ("Type",) . toJSON) _codePipelinePipelineArtifactStoreType - ] - --- | Constructor for 'CodePipelinePipelineArtifactStore' containing required --- fields as arguments. -codePipelinePipelineArtifactStore - :: Val Text -- ^ 'cppasLocation' - -> Val Text -- ^ 'cppasType' - -> CodePipelinePipelineArtifactStore -codePipelinePipelineArtifactStore locationarg typearg = - CodePipelinePipelineArtifactStore - { _codePipelinePipelineArtifactStoreEncryptionKey = Nothing - , _codePipelinePipelineArtifactStoreLocation = locationarg - , _codePipelinePipelineArtifactStoreType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-artifactstore.html#cfn-codepipeline-pipeline-artifactstore-encryptionkey -cppasEncryptionKey :: Lens' CodePipelinePipelineArtifactStore (Maybe CodePipelinePipelineEncryptionKey) -cppasEncryptionKey = lens _codePipelinePipelineArtifactStoreEncryptionKey (\s a -> s { _codePipelinePipelineArtifactStoreEncryptionKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-artifactstore.html#cfn-codepipeline-pipeline-artifactstore-location -cppasLocation :: Lens' CodePipelinePipelineArtifactStore (Val Text) -cppasLocation = lens _codePipelinePipelineArtifactStoreLocation (\s a -> s { _codePipelinePipelineArtifactStoreLocation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-artifactstore.html#cfn-codepipeline-pipeline-artifactstore-type -cppasType :: Lens' CodePipelinePipelineArtifactStore (Val Text) -cppasType = lens _codePipelinePipelineArtifactStoreType (\s a -> s { _codePipelinePipelineArtifactStoreType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineArtifactStoreMap.hs b/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineArtifactStoreMap.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineArtifactStoreMap.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-artifactstoremap.html - -module Stratosphere.ResourceProperties.CodePipelinePipelineArtifactStoreMap where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodePipelinePipelineArtifactStore - --- | Full data type definition for CodePipelinePipelineArtifactStoreMap. See --- 'codePipelinePipelineArtifactStoreMap' for a more convenient constructor. -data CodePipelinePipelineArtifactStoreMap = - CodePipelinePipelineArtifactStoreMap - { _codePipelinePipelineArtifactStoreMapArtifactStore :: CodePipelinePipelineArtifactStore - , _codePipelinePipelineArtifactStoreMapRegion :: Val Text - } deriving (Show, Eq) - -instance ToJSON CodePipelinePipelineArtifactStoreMap where - toJSON CodePipelinePipelineArtifactStoreMap{..} = - object $ - catMaybes - [ (Just . ("ArtifactStore",) . toJSON) _codePipelinePipelineArtifactStoreMapArtifactStore - , (Just . ("Region",) . toJSON) _codePipelinePipelineArtifactStoreMapRegion - ] - --- | Constructor for 'CodePipelinePipelineArtifactStoreMap' containing --- required fields as arguments. -codePipelinePipelineArtifactStoreMap - :: CodePipelinePipelineArtifactStore -- ^ 'cppasmArtifactStore' - -> Val Text -- ^ 'cppasmRegion' - -> CodePipelinePipelineArtifactStoreMap -codePipelinePipelineArtifactStoreMap artifactStorearg regionarg = - CodePipelinePipelineArtifactStoreMap - { _codePipelinePipelineArtifactStoreMapArtifactStore = artifactStorearg - , _codePipelinePipelineArtifactStoreMapRegion = regionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-artifactstoremap.html#cfn-codepipeline-pipeline-artifactstoremap-artifactstore -cppasmArtifactStore :: Lens' CodePipelinePipelineArtifactStoreMap CodePipelinePipelineArtifactStore -cppasmArtifactStore = lens _codePipelinePipelineArtifactStoreMapArtifactStore (\s a -> s { _codePipelinePipelineArtifactStoreMapArtifactStore = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-artifactstoremap.html#cfn-codepipeline-pipeline-artifactstoremap-region -cppasmRegion :: Lens' CodePipelinePipelineArtifactStoreMap (Val Text) -cppasmRegion = lens _codePipelinePipelineArtifactStoreMapRegion (\s a -> s { _codePipelinePipelineArtifactStoreMapRegion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineBlockerDeclaration.hs b/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineBlockerDeclaration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineBlockerDeclaration.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-stages-blockers.html - -module Stratosphere.ResourceProperties.CodePipelinePipelineBlockerDeclaration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodePipelinePipelineBlockerDeclaration. See --- 'codePipelinePipelineBlockerDeclaration' for a more convenient --- constructor. -data CodePipelinePipelineBlockerDeclaration = - CodePipelinePipelineBlockerDeclaration - { _codePipelinePipelineBlockerDeclarationName :: Val Text - , _codePipelinePipelineBlockerDeclarationType :: Val Text - } deriving (Show, Eq) - -instance ToJSON CodePipelinePipelineBlockerDeclaration where - toJSON CodePipelinePipelineBlockerDeclaration{..} = - object $ - catMaybes - [ (Just . ("Name",) . toJSON) _codePipelinePipelineBlockerDeclarationName - , (Just . ("Type",) . toJSON) _codePipelinePipelineBlockerDeclarationType - ] - --- | Constructor for 'CodePipelinePipelineBlockerDeclaration' containing --- required fields as arguments. -codePipelinePipelineBlockerDeclaration - :: Val Text -- ^ 'cppbdName' - -> Val Text -- ^ 'cppbdType' - -> CodePipelinePipelineBlockerDeclaration -codePipelinePipelineBlockerDeclaration namearg typearg = - CodePipelinePipelineBlockerDeclaration - { _codePipelinePipelineBlockerDeclarationName = namearg - , _codePipelinePipelineBlockerDeclarationType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-stages-blockers.html#cfn-codepipeline-pipeline-stages-blockers-name -cppbdName :: Lens' CodePipelinePipelineBlockerDeclaration (Val Text) -cppbdName = lens _codePipelinePipelineBlockerDeclarationName (\s a -> s { _codePipelinePipelineBlockerDeclarationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-stages-blockers.html#cfn-codepipeline-pipeline-stages-blockers-type -cppbdType :: Lens' CodePipelinePipelineBlockerDeclaration (Val Text) -cppbdType = lens _codePipelinePipelineBlockerDeclarationType (\s a -> s { _codePipelinePipelineBlockerDeclarationType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineEncryptionKey.hs b/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineEncryptionKey.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineEncryptionKey.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-artifactstore-encryptionkey.html - -module Stratosphere.ResourceProperties.CodePipelinePipelineEncryptionKey where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodePipelinePipelineEncryptionKey. See --- 'codePipelinePipelineEncryptionKey' for a more convenient constructor. -data CodePipelinePipelineEncryptionKey = - CodePipelinePipelineEncryptionKey - { _codePipelinePipelineEncryptionKeyId :: Val Text - , _codePipelinePipelineEncryptionKeyType :: Val Text - } deriving (Show, Eq) - -instance ToJSON CodePipelinePipelineEncryptionKey where - toJSON CodePipelinePipelineEncryptionKey{..} = - object $ - catMaybes - [ (Just . ("Id",) . toJSON) _codePipelinePipelineEncryptionKeyId - , (Just . ("Type",) . toJSON) _codePipelinePipelineEncryptionKeyType - ] - --- | Constructor for 'CodePipelinePipelineEncryptionKey' containing required --- fields as arguments. -codePipelinePipelineEncryptionKey - :: Val Text -- ^ 'cppekId' - -> Val Text -- ^ 'cppekType' - -> CodePipelinePipelineEncryptionKey -codePipelinePipelineEncryptionKey idarg typearg = - CodePipelinePipelineEncryptionKey - { _codePipelinePipelineEncryptionKeyId = idarg - , _codePipelinePipelineEncryptionKeyType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-artifactstore-encryptionkey.html#cfn-codepipeline-pipeline-artifactstore-encryptionkey-id -cppekId :: Lens' CodePipelinePipelineEncryptionKey (Val Text) -cppekId = lens _codePipelinePipelineEncryptionKeyId (\s a -> s { _codePipelinePipelineEncryptionKeyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-artifactstore-encryptionkey.html#cfn-codepipeline-pipeline-artifactstore-encryptionkey-type -cppekType :: Lens' CodePipelinePipelineEncryptionKey (Val Text) -cppekType = lens _codePipelinePipelineEncryptionKeyType (\s a -> s { _codePipelinePipelineEncryptionKeyType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineInputArtifact.hs b/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineInputArtifact.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineInputArtifact.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-stages-actions-inputartifacts.html - -module Stratosphere.ResourceProperties.CodePipelinePipelineInputArtifact where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodePipelinePipelineInputArtifact. See --- 'codePipelinePipelineInputArtifact' for a more convenient constructor. -data CodePipelinePipelineInputArtifact = - CodePipelinePipelineInputArtifact - { _codePipelinePipelineInputArtifactName :: Val Text - } deriving (Show, Eq) - -instance ToJSON CodePipelinePipelineInputArtifact where - toJSON CodePipelinePipelineInputArtifact{..} = - object $ - catMaybes - [ (Just . ("Name",) . toJSON) _codePipelinePipelineInputArtifactName - ] - --- | Constructor for 'CodePipelinePipelineInputArtifact' containing required --- fields as arguments. -codePipelinePipelineInputArtifact - :: Val Text -- ^ 'cppiaName' - -> CodePipelinePipelineInputArtifact -codePipelinePipelineInputArtifact namearg = - CodePipelinePipelineInputArtifact - { _codePipelinePipelineInputArtifactName = namearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-stages-actions-inputartifacts.html#cfn-codepipeline-pipeline-stages-actions-inputartifacts-name -cppiaName :: Lens' CodePipelinePipelineInputArtifact (Val Text) -cppiaName = lens _codePipelinePipelineInputArtifactName (\s a -> s { _codePipelinePipelineInputArtifactName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineOutputArtifact.hs b/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineOutputArtifact.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineOutputArtifact.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-stages-actions-outputartifacts.html - -module Stratosphere.ResourceProperties.CodePipelinePipelineOutputArtifact where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodePipelinePipelineOutputArtifact. See --- 'codePipelinePipelineOutputArtifact' for a more convenient constructor. -data CodePipelinePipelineOutputArtifact = - CodePipelinePipelineOutputArtifact - { _codePipelinePipelineOutputArtifactName :: Val Text - } deriving (Show, Eq) - -instance ToJSON CodePipelinePipelineOutputArtifact where - toJSON CodePipelinePipelineOutputArtifact{..} = - object $ - catMaybes - [ (Just . ("Name",) . toJSON) _codePipelinePipelineOutputArtifactName - ] - --- | Constructor for 'CodePipelinePipelineOutputArtifact' containing required --- fields as arguments. -codePipelinePipelineOutputArtifact - :: Val Text -- ^ 'cppoaName' - -> CodePipelinePipelineOutputArtifact -codePipelinePipelineOutputArtifact namearg = - CodePipelinePipelineOutputArtifact - { _codePipelinePipelineOutputArtifactName = namearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-stages-actions-outputartifacts.html#cfn-codepipeline-pipeline-stages-actions-outputartifacts-name -cppoaName :: Lens' CodePipelinePipelineOutputArtifact (Val Text) -cppoaName = lens _codePipelinePipelineOutputArtifactName (\s a -> s { _codePipelinePipelineOutputArtifactName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineStageDeclaration.hs b/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineStageDeclaration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineStageDeclaration.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-stages.html - -module Stratosphere.ResourceProperties.CodePipelinePipelineStageDeclaration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodePipelinePipelineActionDeclaration -import Stratosphere.ResourceProperties.CodePipelinePipelineBlockerDeclaration - --- | Full data type definition for CodePipelinePipelineStageDeclaration. See --- 'codePipelinePipelineStageDeclaration' for a more convenient constructor. -data CodePipelinePipelineStageDeclaration = - CodePipelinePipelineStageDeclaration - { _codePipelinePipelineStageDeclarationActions :: [CodePipelinePipelineActionDeclaration] - , _codePipelinePipelineStageDeclarationBlockers :: Maybe [CodePipelinePipelineBlockerDeclaration] - , _codePipelinePipelineStageDeclarationName :: Val Text - } deriving (Show, Eq) - -instance ToJSON CodePipelinePipelineStageDeclaration where - toJSON CodePipelinePipelineStageDeclaration{..} = - object $ - catMaybes - [ (Just . ("Actions",) . toJSON) _codePipelinePipelineStageDeclarationActions - , fmap (("Blockers",) . toJSON) _codePipelinePipelineStageDeclarationBlockers - , (Just . ("Name",) . toJSON) _codePipelinePipelineStageDeclarationName - ] - --- | Constructor for 'CodePipelinePipelineStageDeclaration' containing --- required fields as arguments. -codePipelinePipelineStageDeclaration - :: [CodePipelinePipelineActionDeclaration] -- ^ 'cppsdActions' - -> Val Text -- ^ 'cppsdName' - -> CodePipelinePipelineStageDeclaration -codePipelinePipelineStageDeclaration actionsarg namearg = - CodePipelinePipelineStageDeclaration - { _codePipelinePipelineStageDeclarationActions = actionsarg - , _codePipelinePipelineStageDeclarationBlockers = Nothing - , _codePipelinePipelineStageDeclarationName = namearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-stages.html#cfn-codepipeline-pipeline-stages-actions -cppsdActions :: Lens' CodePipelinePipelineStageDeclaration [CodePipelinePipelineActionDeclaration] -cppsdActions = lens _codePipelinePipelineStageDeclarationActions (\s a -> s { _codePipelinePipelineStageDeclarationActions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-stages.html#cfn-codepipeline-pipeline-stages-blockers -cppsdBlockers :: Lens' CodePipelinePipelineStageDeclaration (Maybe [CodePipelinePipelineBlockerDeclaration]) -cppsdBlockers = lens _codePipelinePipelineStageDeclarationBlockers (\s a -> s { _codePipelinePipelineStageDeclarationBlockers = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-stages.html#cfn-codepipeline-pipeline-stages-name -cppsdName :: Lens' CodePipelinePipelineStageDeclaration (Val Text) -cppsdName = lens _codePipelinePipelineStageDeclarationName (\s a -> s { _codePipelinePipelineStageDeclarationName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineStageTransition.hs b/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineStageTransition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineStageTransition.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-disableinboundstagetransitions.html - -module Stratosphere.ResourceProperties.CodePipelinePipelineStageTransition where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodePipelinePipelineStageTransition. See --- 'codePipelinePipelineStageTransition' for a more convenient constructor. -data CodePipelinePipelineStageTransition = - CodePipelinePipelineStageTransition - { _codePipelinePipelineStageTransitionReason :: Val Text - , _codePipelinePipelineStageTransitionStageName :: Val Text - } deriving (Show, Eq) - -instance ToJSON CodePipelinePipelineStageTransition where - toJSON CodePipelinePipelineStageTransition{..} = - object $ - catMaybes - [ (Just . ("Reason",) . toJSON) _codePipelinePipelineStageTransitionReason - , (Just . ("StageName",) . toJSON) _codePipelinePipelineStageTransitionStageName - ] - --- | Constructor for 'CodePipelinePipelineStageTransition' containing required --- fields as arguments. -codePipelinePipelineStageTransition - :: Val Text -- ^ 'cppstReason' - -> Val Text -- ^ 'cppstStageName' - -> CodePipelinePipelineStageTransition -codePipelinePipelineStageTransition reasonarg stageNamearg = - CodePipelinePipelineStageTransition - { _codePipelinePipelineStageTransitionReason = reasonarg - , _codePipelinePipelineStageTransitionStageName = stageNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-disableinboundstagetransitions.html#cfn-codepipeline-pipeline-disableinboundstagetransitions-reason -cppstReason :: Lens' CodePipelinePipelineStageTransition (Val Text) -cppstReason = lens _codePipelinePipelineStageTransitionReason (\s a -> s { _codePipelinePipelineStageTransitionReason = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-pipeline-disableinboundstagetransitions.html#cfn-codepipeline-pipeline-disableinboundstagetransitions-stagename -cppstStageName :: Lens' CodePipelinePipelineStageTransition (Val Text) -cppstStageName = lens _codePipelinePipelineStageTransitionStageName (\s a -> s { _codePipelinePipelineStageTransitionStageName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodePipelineWebhookWebhookAuthConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/CodePipelineWebhookWebhookAuthConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodePipelineWebhookWebhookAuthConfiguration.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-webhook-webhookauthconfiguration.html - -module Stratosphere.ResourceProperties.CodePipelineWebhookWebhookAuthConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- CodePipelineWebhookWebhookAuthConfiguration. See --- 'codePipelineWebhookWebhookAuthConfiguration' for a more convenient --- constructor. -data CodePipelineWebhookWebhookAuthConfiguration = - CodePipelineWebhookWebhookAuthConfiguration - { _codePipelineWebhookWebhookAuthConfigurationAllowedIPRange :: Maybe (Val Text) - , _codePipelineWebhookWebhookAuthConfigurationSecretToken :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CodePipelineWebhookWebhookAuthConfiguration where - toJSON CodePipelineWebhookWebhookAuthConfiguration{..} = - object $ - catMaybes - [ fmap (("AllowedIPRange",) . toJSON) _codePipelineWebhookWebhookAuthConfigurationAllowedIPRange - , fmap (("SecretToken",) . toJSON) _codePipelineWebhookWebhookAuthConfigurationSecretToken - ] - --- | Constructor for 'CodePipelineWebhookWebhookAuthConfiguration' containing --- required fields as arguments. -codePipelineWebhookWebhookAuthConfiguration - :: CodePipelineWebhookWebhookAuthConfiguration -codePipelineWebhookWebhookAuthConfiguration = - CodePipelineWebhookWebhookAuthConfiguration - { _codePipelineWebhookWebhookAuthConfigurationAllowedIPRange = Nothing - , _codePipelineWebhookWebhookAuthConfigurationSecretToken = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-webhook-webhookauthconfiguration.html#cfn-codepipeline-webhook-webhookauthconfiguration-allowediprange -cpwwacAllowedIPRange :: Lens' CodePipelineWebhookWebhookAuthConfiguration (Maybe (Val Text)) -cpwwacAllowedIPRange = lens _codePipelineWebhookWebhookAuthConfigurationAllowedIPRange (\s a -> s { _codePipelineWebhookWebhookAuthConfigurationAllowedIPRange = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-webhook-webhookauthconfiguration.html#cfn-codepipeline-webhook-webhookauthconfiguration-secrettoken -cpwwacSecretToken :: Lens' CodePipelineWebhookWebhookAuthConfiguration (Maybe (Val Text)) -cpwwacSecretToken = lens _codePipelineWebhookWebhookAuthConfigurationSecretToken (\s a -> s { _codePipelineWebhookWebhookAuthConfigurationSecretToken = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodePipelineWebhookWebhookFilterRule.hs b/library-gen/Stratosphere/ResourceProperties/CodePipelineWebhookWebhookFilterRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodePipelineWebhookWebhookFilterRule.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-webhook-webhookfilterrule.html - -module Stratosphere.ResourceProperties.CodePipelineWebhookWebhookFilterRule where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodePipelineWebhookWebhookFilterRule. See --- 'codePipelineWebhookWebhookFilterRule' for a more convenient constructor. -data CodePipelineWebhookWebhookFilterRule = - CodePipelineWebhookWebhookFilterRule - { _codePipelineWebhookWebhookFilterRuleJsonPath :: Val Text - , _codePipelineWebhookWebhookFilterRuleMatchEquals :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CodePipelineWebhookWebhookFilterRule where - toJSON CodePipelineWebhookWebhookFilterRule{..} = - object $ - catMaybes - [ (Just . ("JsonPath",) . toJSON) _codePipelineWebhookWebhookFilterRuleJsonPath - , fmap (("MatchEquals",) . toJSON) _codePipelineWebhookWebhookFilterRuleMatchEquals - ] - --- | Constructor for 'CodePipelineWebhookWebhookFilterRule' containing --- required fields as arguments. -codePipelineWebhookWebhookFilterRule - :: Val Text -- ^ 'cpwwfrJsonPath' - -> CodePipelineWebhookWebhookFilterRule -codePipelineWebhookWebhookFilterRule jsonPatharg = - CodePipelineWebhookWebhookFilterRule - { _codePipelineWebhookWebhookFilterRuleJsonPath = jsonPatharg - , _codePipelineWebhookWebhookFilterRuleMatchEquals = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-webhook-webhookfilterrule.html#cfn-codepipeline-webhook-webhookfilterrule-jsonpath -cpwwfrJsonPath :: Lens' CodePipelineWebhookWebhookFilterRule (Val Text) -cpwwfrJsonPath = lens _codePipelineWebhookWebhookFilterRuleJsonPath (\s a -> s { _codePipelineWebhookWebhookFilterRuleJsonPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codepipeline-webhook-webhookfilterrule.html#cfn-codepipeline-webhook-webhookfilterrule-matchequals -cpwwfrMatchEquals :: Lens' CodePipelineWebhookWebhookFilterRule (Maybe (Val Text)) -cpwwfrMatchEquals = lens _codePipelineWebhookWebhookFilterRuleMatchEquals (\s a -> s { _codePipelineWebhookWebhookFilterRuleMatchEquals = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeStarGitHubRepositoryCode.hs b/library-gen/Stratosphere/ResourceProperties/CodeStarGitHubRepositoryCode.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeStarGitHubRepositoryCode.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codestar-githubrepository-code.html - -module Stratosphere.ResourceProperties.CodeStarGitHubRepositoryCode where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodeStarGitHubRepositoryS3 - --- | Full data type definition for CodeStarGitHubRepositoryCode. See --- 'codeStarGitHubRepositoryCode' for a more convenient constructor. -data CodeStarGitHubRepositoryCode = - CodeStarGitHubRepositoryCode - { _codeStarGitHubRepositoryCodeS3 :: CodeStarGitHubRepositoryS3 - } deriving (Show, Eq) - -instance ToJSON CodeStarGitHubRepositoryCode where - toJSON CodeStarGitHubRepositoryCode{..} = - object $ - catMaybes - [ (Just . ("S3",) . toJSON) _codeStarGitHubRepositoryCodeS3 - ] - --- | Constructor for 'CodeStarGitHubRepositoryCode' containing required fields --- as arguments. -codeStarGitHubRepositoryCode - :: CodeStarGitHubRepositoryS3 -- ^ 'csghrcS3' - -> CodeStarGitHubRepositoryCode -codeStarGitHubRepositoryCode s3arg = - CodeStarGitHubRepositoryCode - { _codeStarGitHubRepositoryCodeS3 = s3arg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codestar-githubrepository-code.html#cfn-codestar-githubrepository-code-s3 -csghrcS3 :: Lens' CodeStarGitHubRepositoryCode CodeStarGitHubRepositoryS3 -csghrcS3 = lens _codeStarGitHubRepositoryCodeS3 (\s a -> s { _codeStarGitHubRepositoryCodeS3 = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeStarGitHubRepositoryS3.hs b/library-gen/Stratosphere/ResourceProperties/CodeStarGitHubRepositoryS3.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeStarGitHubRepositoryS3.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codestar-githubrepository-s3.html - -module Stratosphere.ResourceProperties.CodeStarGitHubRepositoryS3 where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeStarGitHubRepositoryS3. See --- 'codeStarGitHubRepositoryS3' for a more convenient constructor. -data CodeStarGitHubRepositoryS3 = - CodeStarGitHubRepositoryS3 - { _codeStarGitHubRepositoryS3Bucket :: Val Text - , _codeStarGitHubRepositoryS3Key :: Val Text - , _codeStarGitHubRepositoryS3ObjectVersion :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CodeStarGitHubRepositoryS3 where - toJSON CodeStarGitHubRepositoryS3{..} = - object $ - catMaybes - [ (Just . ("Bucket",) . toJSON) _codeStarGitHubRepositoryS3Bucket - , (Just . ("Key",) . toJSON) _codeStarGitHubRepositoryS3Key - , fmap (("ObjectVersion",) . toJSON) _codeStarGitHubRepositoryS3ObjectVersion - ] - --- | Constructor for 'CodeStarGitHubRepositoryS3' containing required fields --- as arguments. -codeStarGitHubRepositoryS3 - :: Val Text -- ^ 'csghrsBucket' - -> Val Text -- ^ 'csghrsKey' - -> CodeStarGitHubRepositoryS3 -codeStarGitHubRepositoryS3 bucketarg keyarg = - CodeStarGitHubRepositoryS3 - { _codeStarGitHubRepositoryS3Bucket = bucketarg - , _codeStarGitHubRepositoryS3Key = keyarg - , _codeStarGitHubRepositoryS3ObjectVersion = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codestar-githubrepository-s3.html#cfn-codestar-githubrepository-s3-bucket -csghrsBucket :: Lens' CodeStarGitHubRepositoryS3 (Val Text) -csghrsBucket = lens _codeStarGitHubRepositoryS3Bucket (\s a -> s { _codeStarGitHubRepositoryS3Bucket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codestar-githubrepository-s3.html#cfn-codestar-githubrepository-s3-key -csghrsKey :: Lens' CodeStarGitHubRepositoryS3 (Val Text) -csghrsKey = lens _codeStarGitHubRepositoryS3Key (\s a -> s { _codeStarGitHubRepositoryS3Key = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codestar-githubrepository-s3.html#cfn-codestar-githubrepository-s3-objectversion -csghrsObjectVersion :: Lens' CodeStarGitHubRepositoryS3 (Maybe (Val Text)) -csghrsObjectVersion = lens _codeStarGitHubRepositoryS3ObjectVersion (\s a -> s { _codeStarGitHubRepositoryS3ObjectVersion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CodeStarNotificationsNotificationRuleTarget.hs b/library-gen/Stratosphere/ResourceProperties/CodeStarNotificationsNotificationRuleTarget.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CodeStarNotificationsNotificationRuleTarget.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codestarnotifications-notificationrule-target.html - -module Stratosphere.ResourceProperties.CodeStarNotificationsNotificationRuleTarget where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- CodeStarNotificationsNotificationRuleTarget. See --- 'codeStarNotificationsNotificationRuleTarget' for a more convenient --- constructor. -data CodeStarNotificationsNotificationRuleTarget = - CodeStarNotificationsNotificationRuleTarget - { _codeStarNotificationsNotificationRuleTargetTargetAddress :: Maybe (Val Text) - , _codeStarNotificationsNotificationRuleTargetTargetType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CodeStarNotificationsNotificationRuleTarget where - toJSON CodeStarNotificationsNotificationRuleTarget{..} = - object $ - catMaybes - [ fmap (("TargetAddress",) . toJSON) _codeStarNotificationsNotificationRuleTargetTargetAddress - , fmap (("TargetType",) . toJSON) _codeStarNotificationsNotificationRuleTargetTargetType - ] - --- | Constructor for 'CodeStarNotificationsNotificationRuleTarget' containing --- required fields as arguments. -codeStarNotificationsNotificationRuleTarget - :: CodeStarNotificationsNotificationRuleTarget -codeStarNotificationsNotificationRuleTarget = - CodeStarNotificationsNotificationRuleTarget - { _codeStarNotificationsNotificationRuleTargetTargetAddress = Nothing - , _codeStarNotificationsNotificationRuleTargetTargetType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codestarnotifications-notificationrule-target.html#cfn-codestarnotifications-notificationrule-target-targetaddress -csnnrtTargetAddress :: Lens' CodeStarNotificationsNotificationRuleTarget (Maybe (Val Text)) -csnnrtTargetAddress = lens _codeStarNotificationsNotificationRuleTargetTargetAddress (\s a -> s { _codeStarNotificationsNotificationRuleTargetTargetAddress = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codestarnotifications-notificationrule-target.html#cfn-codestarnotifications-notificationrule-target-targettype -csnnrtTargetType :: Lens' CodeStarNotificationsNotificationRuleTarget (Maybe (Val Text)) -csnnrtTargetType = lens _codeStarNotificationsNotificationRuleTargetTargetType (\s a -> s { _codeStarNotificationsNotificationRuleTargetTargetType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoIdentityPoolCognitoIdentityProvider.hs b/library-gen/Stratosphere/ResourceProperties/CognitoIdentityPoolCognitoIdentityProvider.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoIdentityPoolCognitoIdentityProvider.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-identitypool-cognitoidentityprovider.html - -module Stratosphere.ResourceProperties.CognitoIdentityPoolCognitoIdentityProvider where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CognitoIdentityPoolCognitoIdentityProvider. --- See 'cognitoIdentityPoolCognitoIdentityProvider' for a more convenient --- constructor. -data CognitoIdentityPoolCognitoIdentityProvider = - CognitoIdentityPoolCognitoIdentityProvider - { _cognitoIdentityPoolCognitoIdentityProviderClientId :: Maybe (Val Text) - , _cognitoIdentityPoolCognitoIdentityProviderProviderName :: Maybe (Val Text) - , _cognitoIdentityPoolCognitoIdentityProviderServerSideTokenCheck :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON CognitoIdentityPoolCognitoIdentityProvider where - toJSON CognitoIdentityPoolCognitoIdentityProvider{..} = - object $ - catMaybes - [ fmap (("ClientId",) . toJSON) _cognitoIdentityPoolCognitoIdentityProviderClientId - , fmap (("ProviderName",) . toJSON) _cognitoIdentityPoolCognitoIdentityProviderProviderName - , fmap (("ServerSideTokenCheck",) . toJSON) _cognitoIdentityPoolCognitoIdentityProviderServerSideTokenCheck - ] - --- | Constructor for 'CognitoIdentityPoolCognitoIdentityProvider' containing --- required fields as arguments. -cognitoIdentityPoolCognitoIdentityProvider - :: CognitoIdentityPoolCognitoIdentityProvider -cognitoIdentityPoolCognitoIdentityProvider = - CognitoIdentityPoolCognitoIdentityProvider - { _cognitoIdentityPoolCognitoIdentityProviderClientId = Nothing - , _cognitoIdentityPoolCognitoIdentityProviderProviderName = Nothing - , _cognitoIdentityPoolCognitoIdentityProviderServerSideTokenCheck = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-identitypool-cognitoidentityprovider.html#cfn-cognito-identitypool-cognitoidentityprovider-clientid -cipcipClientId :: Lens' CognitoIdentityPoolCognitoIdentityProvider (Maybe (Val Text)) -cipcipClientId = lens _cognitoIdentityPoolCognitoIdentityProviderClientId (\s a -> s { _cognitoIdentityPoolCognitoIdentityProviderClientId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-identitypool-cognitoidentityprovider.html#cfn-cognito-identitypool-cognitoidentityprovider-providername -cipcipProviderName :: Lens' CognitoIdentityPoolCognitoIdentityProvider (Maybe (Val Text)) -cipcipProviderName = lens _cognitoIdentityPoolCognitoIdentityProviderProviderName (\s a -> s { _cognitoIdentityPoolCognitoIdentityProviderProviderName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-identitypool-cognitoidentityprovider.html#cfn-cognito-identitypool-cognitoidentityprovider-serversidetokencheck -cipcipServerSideTokenCheck :: Lens' CognitoIdentityPoolCognitoIdentityProvider (Maybe (Val Bool)) -cipcipServerSideTokenCheck = lens _cognitoIdentityPoolCognitoIdentityProviderServerSideTokenCheck (\s a -> s { _cognitoIdentityPoolCognitoIdentityProviderServerSideTokenCheck = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoIdentityPoolCognitoStreams.hs b/library-gen/Stratosphere/ResourceProperties/CognitoIdentityPoolCognitoStreams.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoIdentityPoolCognitoStreams.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-identitypool-cognitostreams.html - -module Stratosphere.ResourceProperties.CognitoIdentityPoolCognitoStreams where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CognitoIdentityPoolCognitoStreams. See --- 'cognitoIdentityPoolCognitoStreams' for a more convenient constructor. -data CognitoIdentityPoolCognitoStreams = - CognitoIdentityPoolCognitoStreams - { _cognitoIdentityPoolCognitoStreamsRoleArn :: Maybe (Val Text) - , _cognitoIdentityPoolCognitoStreamsStreamName :: Maybe (Val Text) - , _cognitoIdentityPoolCognitoStreamsStreamingStatus :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CognitoIdentityPoolCognitoStreams where - toJSON CognitoIdentityPoolCognitoStreams{..} = - object $ - catMaybes - [ fmap (("RoleArn",) . toJSON) _cognitoIdentityPoolCognitoStreamsRoleArn - , fmap (("StreamName",) . toJSON) _cognitoIdentityPoolCognitoStreamsStreamName - , fmap (("StreamingStatus",) . toJSON) _cognitoIdentityPoolCognitoStreamsStreamingStatus - ] - --- | Constructor for 'CognitoIdentityPoolCognitoStreams' containing required --- fields as arguments. -cognitoIdentityPoolCognitoStreams - :: CognitoIdentityPoolCognitoStreams -cognitoIdentityPoolCognitoStreams = - CognitoIdentityPoolCognitoStreams - { _cognitoIdentityPoolCognitoStreamsRoleArn = Nothing - , _cognitoIdentityPoolCognitoStreamsStreamName = Nothing - , _cognitoIdentityPoolCognitoStreamsStreamingStatus = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-identitypool-cognitostreams.html#cfn-cognito-identitypool-cognitostreams-rolearn -cipcsRoleArn :: Lens' CognitoIdentityPoolCognitoStreams (Maybe (Val Text)) -cipcsRoleArn = lens _cognitoIdentityPoolCognitoStreamsRoleArn (\s a -> s { _cognitoIdentityPoolCognitoStreamsRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-identitypool-cognitostreams.html#cfn-cognito-identitypool-cognitostreams-streamname -cipcsStreamName :: Lens' CognitoIdentityPoolCognitoStreams (Maybe (Val Text)) -cipcsStreamName = lens _cognitoIdentityPoolCognitoStreamsStreamName (\s a -> s { _cognitoIdentityPoolCognitoStreamsStreamName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-identitypool-cognitostreams.html#cfn-cognito-identitypool-cognitostreams-streamingstatus -cipcsStreamingStatus :: Lens' CognitoIdentityPoolCognitoStreams (Maybe (Val Text)) -cipcsStreamingStatus = lens _cognitoIdentityPoolCognitoStreamsStreamingStatus (\s a -> s { _cognitoIdentityPoolCognitoStreamsStreamingStatus = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoIdentityPoolPushSync.hs b/library-gen/Stratosphere/ResourceProperties/CognitoIdentityPoolPushSync.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoIdentityPoolPushSync.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-identitypool-pushsync.html - -module Stratosphere.ResourceProperties.CognitoIdentityPoolPushSync where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CognitoIdentityPoolPushSync. See --- 'cognitoIdentityPoolPushSync' for a more convenient constructor. -data CognitoIdentityPoolPushSync = - CognitoIdentityPoolPushSync - { _cognitoIdentityPoolPushSyncApplicationArns :: Maybe (ValList Text) - , _cognitoIdentityPoolPushSyncRoleArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CognitoIdentityPoolPushSync where - toJSON CognitoIdentityPoolPushSync{..} = - object $ - catMaybes - [ fmap (("ApplicationArns",) . toJSON) _cognitoIdentityPoolPushSyncApplicationArns - , fmap (("RoleArn",) . toJSON) _cognitoIdentityPoolPushSyncRoleArn - ] - --- | Constructor for 'CognitoIdentityPoolPushSync' containing required fields --- as arguments. -cognitoIdentityPoolPushSync - :: CognitoIdentityPoolPushSync -cognitoIdentityPoolPushSync = - CognitoIdentityPoolPushSync - { _cognitoIdentityPoolPushSyncApplicationArns = Nothing - , _cognitoIdentityPoolPushSyncRoleArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-identitypool-pushsync.html#cfn-cognito-identitypool-pushsync-applicationarns -cippsApplicationArns :: Lens' CognitoIdentityPoolPushSync (Maybe (ValList Text)) -cippsApplicationArns = lens _cognitoIdentityPoolPushSyncApplicationArns (\s a -> s { _cognitoIdentityPoolPushSyncApplicationArns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-identitypool-pushsync.html#cfn-cognito-identitypool-pushsync-rolearn -cippsRoleArn :: Lens' CognitoIdentityPoolPushSync (Maybe (Val Text)) -cippsRoleArn = lens _cognitoIdentityPoolPushSyncRoleArn (\s a -> s { _cognitoIdentityPoolPushSyncRoleArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoIdentityPoolRoleAttachmentMappingRule.hs b/library-gen/Stratosphere/ResourceProperties/CognitoIdentityPoolRoleAttachmentMappingRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoIdentityPoolRoleAttachmentMappingRule.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-identitypoolroleattachment-mappingrule.html - -module Stratosphere.ResourceProperties.CognitoIdentityPoolRoleAttachmentMappingRule where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- CognitoIdentityPoolRoleAttachmentMappingRule. See --- 'cognitoIdentityPoolRoleAttachmentMappingRule' for a more convenient --- constructor. -data CognitoIdentityPoolRoleAttachmentMappingRule = - CognitoIdentityPoolRoleAttachmentMappingRule - { _cognitoIdentityPoolRoleAttachmentMappingRuleClaim :: Val Text - , _cognitoIdentityPoolRoleAttachmentMappingRuleMatchType :: Val Text - , _cognitoIdentityPoolRoleAttachmentMappingRuleRoleARN :: Val Text - , _cognitoIdentityPoolRoleAttachmentMappingRuleValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON CognitoIdentityPoolRoleAttachmentMappingRule where - toJSON CognitoIdentityPoolRoleAttachmentMappingRule{..} = - object $ - catMaybes - [ (Just . ("Claim",) . toJSON) _cognitoIdentityPoolRoleAttachmentMappingRuleClaim - , (Just . ("MatchType",) . toJSON) _cognitoIdentityPoolRoleAttachmentMappingRuleMatchType - , (Just . ("RoleARN",) . toJSON) _cognitoIdentityPoolRoleAttachmentMappingRuleRoleARN - , (Just . ("Value",) . toJSON) _cognitoIdentityPoolRoleAttachmentMappingRuleValue - ] - --- | Constructor for 'CognitoIdentityPoolRoleAttachmentMappingRule' containing --- required fields as arguments. -cognitoIdentityPoolRoleAttachmentMappingRule - :: Val Text -- ^ 'cipramrClaim' - -> Val Text -- ^ 'cipramrMatchType' - -> Val Text -- ^ 'cipramrRoleARN' - -> Val Text -- ^ 'cipramrValue' - -> CognitoIdentityPoolRoleAttachmentMappingRule -cognitoIdentityPoolRoleAttachmentMappingRule claimarg matchTypearg roleARNarg valuearg = - CognitoIdentityPoolRoleAttachmentMappingRule - { _cognitoIdentityPoolRoleAttachmentMappingRuleClaim = claimarg - , _cognitoIdentityPoolRoleAttachmentMappingRuleMatchType = matchTypearg - , _cognitoIdentityPoolRoleAttachmentMappingRuleRoleARN = roleARNarg - , _cognitoIdentityPoolRoleAttachmentMappingRuleValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-identitypoolroleattachment-mappingrule.html#cfn-cognito-identitypoolroleattachment-mappingrule-claim -cipramrClaim :: Lens' CognitoIdentityPoolRoleAttachmentMappingRule (Val Text) -cipramrClaim = lens _cognitoIdentityPoolRoleAttachmentMappingRuleClaim (\s a -> s { _cognitoIdentityPoolRoleAttachmentMappingRuleClaim = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-identitypoolroleattachment-mappingrule.html#cfn-cognito-identitypoolroleattachment-mappingrule-matchtype -cipramrMatchType :: Lens' CognitoIdentityPoolRoleAttachmentMappingRule (Val Text) -cipramrMatchType = lens _cognitoIdentityPoolRoleAttachmentMappingRuleMatchType (\s a -> s { _cognitoIdentityPoolRoleAttachmentMappingRuleMatchType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-identitypoolroleattachment-mappingrule.html#cfn-cognito-identitypoolroleattachment-mappingrule-rolearn -cipramrRoleARN :: Lens' CognitoIdentityPoolRoleAttachmentMappingRule (Val Text) -cipramrRoleARN = lens _cognitoIdentityPoolRoleAttachmentMappingRuleRoleARN (\s a -> s { _cognitoIdentityPoolRoleAttachmentMappingRuleRoleARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-identitypoolroleattachment-mappingrule.html#cfn-cognito-identitypoolroleattachment-mappingrule-value -cipramrValue :: Lens' CognitoIdentityPoolRoleAttachmentMappingRule (Val Text) -cipramrValue = lens _cognitoIdentityPoolRoleAttachmentMappingRuleValue (\s a -> s { _cognitoIdentityPoolRoleAttachmentMappingRuleValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoIdentityPoolRoleAttachmentRoleMapping.hs b/library-gen/Stratosphere/ResourceProperties/CognitoIdentityPoolRoleAttachmentRoleMapping.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoIdentityPoolRoleAttachmentRoleMapping.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-identitypoolroleattachment-rolemapping.html - -module Stratosphere.ResourceProperties.CognitoIdentityPoolRoleAttachmentRoleMapping where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CognitoIdentityPoolRoleAttachmentRulesConfigurationType - --- | Full data type definition for --- CognitoIdentityPoolRoleAttachmentRoleMapping. See --- 'cognitoIdentityPoolRoleAttachmentRoleMapping' for a more convenient --- constructor. -data CognitoIdentityPoolRoleAttachmentRoleMapping = - CognitoIdentityPoolRoleAttachmentRoleMapping - { _cognitoIdentityPoolRoleAttachmentRoleMappingAmbiguousRoleResolution :: Maybe (Val Text) - , _cognitoIdentityPoolRoleAttachmentRoleMappingIdentityProvider :: Maybe (Val Text) - , _cognitoIdentityPoolRoleAttachmentRoleMappingRulesConfiguration :: Maybe CognitoIdentityPoolRoleAttachmentRulesConfigurationType - , _cognitoIdentityPoolRoleAttachmentRoleMappingType :: Val Text - } deriving (Show, Eq) - -instance ToJSON CognitoIdentityPoolRoleAttachmentRoleMapping where - toJSON CognitoIdentityPoolRoleAttachmentRoleMapping{..} = - object $ - catMaybes - [ fmap (("AmbiguousRoleResolution",) . toJSON) _cognitoIdentityPoolRoleAttachmentRoleMappingAmbiguousRoleResolution - , fmap (("IdentityProvider",) . toJSON) _cognitoIdentityPoolRoleAttachmentRoleMappingIdentityProvider - , fmap (("RulesConfiguration",) . toJSON) _cognitoIdentityPoolRoleAttachmentRoleMappingRulesConfiguration - , (Just . ("Type",) . toJSON) _cognitoIdentityPoolRoleAttachmentRoleMappingType - ] - --- | Constructor for 'CognitoIdentityPoolRoleAttachmentRoleMapping' containing --- required fields as arguments. -cognitoIdentityPoolRoleAttachmentRoleMapping - :: Val Text -- ^ 'ciprarmType' - -> CognitoIdentityPoolRoleAttachmentRoleMapping -cognitoIdentityPoolRoleAttachmentRoleMapping typearg = - CognitoIdentityPoolRoleAttachmentRoleMapping - { _cognitoIdentityPoolRoleAttachmentRoleMappingAmbiguousRoleResolution = Nothing - , _cognitoIdentityPoolRoleAttachmentRoleMappingIdentityProvider = Nothing - , _cognitoIdentityPoolRoleAttachmentRoleMappingRulesConfiguration = Nothing - , _cognitoIdentityPoolRoleAttachmentRoleMappingType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-identitypoolroleattachment-rolemapping.html#cfn-cognito-identitypoolroleattachment-rolemapping-ambiguousroleresolution -ciprarmAmbiguousRoleResolution :: Lens' CognitoIdentityPoolRoleAttachmentRoleMapping (Maybe (Val Text)) -ciprarmAmbiguousRoleResolution = lens _cognitoIdentityPoolRoleAttachmentRoleMappingAmbiguousRoleResolution (\s a -> s { _cognitoIdentityPoolRoleAttachmentRoleMappingAmbiguousRoleResolution = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-identitypoolroleattachment-rolemapping.html#cfn-cognito-identitypoolroleattachment-rolemapping-identityprovider -ciprarmIdentityProvider :: Lens' CognitoIdentityPoolRoleAttachmentRoleMapping (Maybe (Val Text)) -ciprarmIdentityProvider = lens _cognitoIdentityPoolRoleAttachmentRoleMappingIdentityProvider (\s a -> s { _cognitoIdentityPoolRoleAttachmentRoleMappingIdentityProvider = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-identitypoolroleattachment-rolemapping.html#cfn-cognito-identitypoolroleattachment-rolemapping-rulesconfiguration -ciprarmRulesConfiguration :: Lens' CognitoIdentityPoolRoleAttachmentRoleMapping (Maybe CognitoIdentityPoolRoleAttachmentRulesConfigurationType) -ciprarmRulesConfiguration = lens _cognitoIdentityPoolRoleAttachmentRoleMappingRulesConfiguration (\s a -> s { _cognitoIdentityPoolRoleAttachmentRoleMappingRulesConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-identitypoolroleattachment-rolemapping.html#cfn-cognito-identitypoolroleattachment-rolemapping-type -ciprarmType :: Lens' CognitoIdentityPoolRoleAttachmentRoleMapping (Val Text) -ciprarmType = lens _cognitoIdentityPoolRoleAttachmentRoleMappingType (\s a -> s { _cognitoIdentityPoolRoleAttachmentRoleMappingType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoIdentityPoolRoleAttachmentRulesConfigurationType.hs b/library-gen/Stratosphere/ResourceProperties/CognitoIdentityPoolRoleAttachmentRulesConfigurationType.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoIdentityPoolRoleAttachmentRulesConfigurationType.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-identitypoolroleattachment-rulesconfigurationtype.html - -module Stratosphere.ResourceProperties.CognitoIdentityPoolRoleAttachmentRulesConfigurationType where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CognitoIdentityPoolRoleAttachmentMappingRule - --- | Full data type definition for --- CognitoIdentityPoolRoleAttachmentRulesConfigurationType. See --- 'cognitoIdentityPoolRoleAttachmentRulesConfigurationType' for a more --- convenient constructor. -data CognitoIdentityPoolRoleAttachmentRulesConfigurationType = - CognitoIdentityPoolRoleAttachmentRulesConfigurationType - { _cognitoIdentityPoolRoleAttachmentRulesConfigurationTypeRules :: [CognitoIdentityPoolRoleAttachmentMappingRule] - } deriving (Show, Eq) - -instance ToJSON CognitoIdentityPoolRoleAttachmentRulesConfigurationType where - toJSON CognitoIdentityPoolRoleAttachmentRulesConfigurationType{..} = - object $ - catMaybes - [ (Just . ("Rules",) . toJSON) _cognitoIdentityPoolRoleAttachmentRulesConfigurationTypeRules - ] - --- | Constructor for 'CognitoIdentityPoolRoleAttachmentRulesConfigurationType' --- containing required fields as arguments. -cognitoIdentityPoolRoleAttachmentRulesConfigurationType - :: [CognitoIdentityPoolRoleAttachmentMappingRule] -- ^ 'ciprarctRules' - -> CognitoIdentityPoolRoleAttachmentRulesConfigurationType -cognitoIdentityPoolRoleAttachmentRulesConfigurationType rulesarg = - CognitoIdentityPoolRoleAttachmentRulesConfigurationType - { _cognitoIdentityPoolRoleAttachmentRulesConfigurationTypeRules = rulesarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-identitypoolroleattachment-rulesconfigurationtype.html#cfn-cognito-identitypoolroleattachment-rulesconfigurationtype-rules -ciprarctRules :: Lens' CognitoIdentityPoolRoleAttachmentRulesConfigurationType [CognitoIdentityPoolRoleAttachmentMappingRule] -ciprarctRules = lens _cognitoIdentityPoolRoleAttachmentRulesConfigurationTypeRules (\s a -> s { _cognitoIdentityPoolRoleAttachmentRulesConfigurationTypeRules = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolAccountRecoverySetting.hs b/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolAccountRecoverySetting.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolAccountRecoverySetting.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-accountrecoverysetting.html - -module Stratosphere.ResourceProperties.CognitoUserPoolAccountRecoverySetting where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CognitoUserPoolRecoveryOption - --- | Full data type definition for CognitoUserPoolAccountRecoverySetting. See --- 'cognitoUserPoolAccountRecoverySetting' for a more convenient --- constructor. -data CognitoUserPoolAccountRecoverySetting = - CognitoUserPoolAccountRecoverySetting - { _cognitoUserPoolAccountRecoverySettingRecoveryMechanisms :: Maybe [CognitoUserPoolRecoveryOption] - } deriving (Show, Eq) - -instance ToJSON CognitoUserPoolAccountRecoverySetting where - toJSON CognitoUserPoolAccountRecoverySetting{..} = - object $ - catMaybes - [ fmap (("RecoveryMechanisms",) . toJSON) _cognitoUserPoolAccountRecoverySettingRecoveryMechanisms - ] - --- | Constructor for 'CognitoUserPoolAccountRecoverySetting' containing --- required fields as arguments. -cognitoUserPoolAccountRecoverySetting - :: CognitoUserPoolAccountRecoverySetting -cognitoUserPoolAccountRecoverySetting = - CognitoUserPoolAccountRecoverySetting - { _cognitoUserPoolAccountRecoverySettingRecoveryMechanisms = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-accountrecoverysetting.html#cfn-cognito-userpool-accountrecoverysetting-recoverymechanisms -cuparsRecoveryMechanisms :: Lens' CognitoUserPoolAccountRecoverySetting (Maybe [CognitoUserPoolRecoveryOption]) -cuparsRecoveryMechanisms = lens _cognitoUserPoolAccountRecoverySettingRecoveryMechanisms (\s a -> s { _cognitoUserPoolAccountRecoverySettingRecoveryMechanisms = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolAdminCreateUserConfig.hs b/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolAdminCreateUserConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolAdminCreateUserConfig.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-admincreateuserconfig.html - -module Stratosphere.ResourceProperties.CognitoUserPoolAdminCreateUserConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CognitoUserPoolInviteMessageTemplate - --- | Full data type definition for CognitoUserPoolAdminCreateUserConfig. See --- 'cognitoUserPoolAdminCreateUserConfig' for a more convenient constructor. -data CognitoUserPoolAdminCreateUserConfig = - CognitoUserPoolAdminCreateUserConfig - { _cognitoUserPoolAdminCreateUserConfigAllowAdminCreateUserOnly :: Maybe (Val Bool) - , _cognitoUserPoolAdminCreateUserConfigInviteMessageTemplate :: Maybe CognitoUserPoolInviteMessageTemplate - , _cognitoUserPoolAdminCreateUserConfigUnusedAccountValidityDays :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON CognitoUserPoolAdminCreateUserConfig where - toJSON CognitoUserPoolAdminCreateUserConfig{..} = - object $ - catMaybes - [ fmap (("AllowAdminCreateUserOnly",) . toJSON) _cognitoUserPoolAdminCreateUserConfigAllowAdminCreateUserOnly - , fmap (("InviteMessageTemplate",) . toJSON) _cognitoUserPoolAdminCreateUserConfigInviteMessageTemplate - , fmap (("UnusedAccountValidityDays",) . toJSON) _cognitoUserPoolAdminCreateUserConfigUnusedAccountValidityDays - ] - --- | Constructor for 'CognitoUserPoolAdminCreateUserConfig' containing --- required fields as arguments. -cognitoUserPoolAdminCreateUserConfig - :: CognitoUserPoolAdminCreateUserConfig -cognitoUserPoolAdminCreateUserConfig = - CognitoUserPoolAdminCreateUserConfig - { _cognitoUserPoolAdminCreateUserConfigAllowAdminCreateUserOnly = Nothing - , _cognitoUserPoolAdminCreateUserConfigInviteMessageTemplate = Nothing - , _cognitoUserPoolAdminCreateUserConfigUnusedAccountValidityDays = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-admincreateuserconfig.html#cfn-cognito-userpool-admincreateuserconfig-allowadmincreateuseronly -cupacucAllowAdminCreateUserOnly :: Lens' CognitoUserPoolAdminCreateUserConfig (Maybe (Val Bool)) -cupacucAllowAdminCreateUserOnly = lens _cognitoUserPoolAdminCreateUserConfigAllowAdminCreateUserOnly (\s a -> s { _cognitoUserPoolAdminCreateUserConfigAllowAdminCreateUserOnly = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-admincreateuserconfig.html#cfn-cognito-userpool-admincreateuserconfig-invitemessagetemplate -cupacucInviteMessageTemplate :: Lens' CognitoUserPoolAdminCreateUserConfig (Maybe CognitoUserPoolInviteMessageTemplate) -cupacucInviteMessageTemplate = lens _cognitoUserPoolAdminCreateUserConfigInviteMessageTemplate (\s a -> s { _cognitoUserPoolAdminCreateUserConfigInviteMessageTemplate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-admincreateuserconfig.html#cfn-cognito-userpool-admincreateuserconfig-unusedaccountvaliditydays -cupacucUnusedAccountValidityDays :: Lens' CognitoUserPoolAdminCreateUserConfig (Maybe (Val Integer)) -cupacucUnusedAccountValidityDays = lens _cognitoUserPoolAdminCreateUserConfigUnusedAccountValidityDays (\s a -> s { _cognitoUserPoolAdminCreateUserConfigUnusedAccountValidityDays = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolClientAnalyticsConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolClientAnalyticsConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolClientAnalyticsConfiguration.hs +++ /dev/null @@ -1,61 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolclient-analyticsconfiguration.html - -module Stratosphere.ResourceProperties.CognitoUserPoolClientAnalyticsConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- CognitoUserPoolClientAnalyticsConfiguration. See --- 'cognitoUserPoolClientAnalyticsConfiguration' for a more convenient --- constructor. -data CognitoUserPoolClientAnalyticsConfiguration = - CognitoUserPoolClientAnalyticsConfiguration - { _cognitoUserPoolClientAnalyticsConfigurationApplicationId :: Maybe (Val Text) - , _cognitoUserPoolClientAnalyticsConfigurationExternalId :: Maybe (Val Text) - , _cognitoUserPoolClientAnalyticsConfigurationRoleArn :: Maybe (Val Text) - , _cognitoUserPoolClientAnalyticsConfigurationUserDataShared :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON CognitoUserPoolClientAnalyticsConfiguration where - toJSON CognitoUserPoolClientAnalyticsConfiguration{..} = - object $ - catMaybes - [ fmap (("ApplicationId",) . toJSON) _cognitoUserPoolClientAnalyticsConfigurationApplicationId - , fmap (("ExternalId",) . toJSON) _cognitoUserPoolClientAnalyticsConfigurationExternalId - , fmap (("RoleArn",) . toJSON) _cognitoUserPoolClientAnalyticsConfigurationRoleArn - , fmap (("UserDataShared",) . toJSON) _cognitoUserPoolClientAnalyticsConfigurationUserDataShared - ] - --- | Constructor for 'CognitoUserPoolClientAnalyticsConfiguration' containing --- required fields as arguments. -cognitoUserPoolClientAnalyticsConfiguration - :: CognitoUserPoolClientAnalyticsConfiguration -cognitoUserPoolClientAnalyticsConfiguration = - CognitoUserPoolClientAnalyticsConfiguration - { _cognitoUserPoolClientAnalyticsConfigurationApplicationId = Nothing - , _cognitoUserPoolClientAnalyticsConfigurationExternalId = Nothing - , _cognitoUserPoolClientAnalyticsConfigurationRoleArn = Nothing - , _cognitoUserPoolClientAnalyticsConfigurationUserDataShared = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolclient-analyticsconfiguration.html#cfn-cognito-userpoolclient-analyticsconfiguration-applicationid -cupcacApplicationId :: Lens' CognitoUserPoolClientAnalyticsConfiguration (Maybe (Val Text)) -cupcacApplicationId = lens _cognitoUserPoolClientAnalyticsConfigurationApplicationId (\s a -> s { _cognitoUserPoolClientAnalyticsConfigurationApplicationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolclient-analyticsconfiguration.html#cfn-cognito-userpoolclient-analyticsconfiguration-externalid -cupcacExternalId :: Lens' CognitoUserPoolClientAnalyticsConfiguration (Maybe (Val Text)) -cupcacExternalId = lens _cognitoUserPoolClientAnalyticsConfigurationExternalId (\s a -> s { _cognitoUserPoolClientAnalyticsConfigurationExternalId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolclient-analyticsconfiguration.html#cfn-cognito-userpoolclient-analyticsconfiguration-rolearn -cupcacRoleArn :: Lens' CognitoUserPoolClientAnalyticsConfiguration (Maybe (Val Text)) -cupcacRoleArn = lens _cognitoUserPoolClientAnalyticsConfigurationRoleArn (\s a -> s { _cognitoUserPoolClientAnalyticsConfigurationRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolclient-analyticsconfiguration.html#cfn-cognito-userpoolclient-analyticsconfiguration-userdatashared -cupcacUserDataShared :: Lens' CognitoUserPoolClientAnalyticsConfiguration (Maybe (Val Bool)) -cupcacUserDataShared = lens _cognitoUserPoolClientAnalyticsConfigurationUserDataShared (\s a -> s { _cognitoUserPoolClientAnalyticsConfigurationUserDataShared = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolClientTokenValidityUnits.hs b/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolClientTokenValidityUnits.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolClientTokenValidityUnits.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolclient-tokenvalidityunits.html - -module Stratosphere.ResourceProperties.CognitoUserPoolClientTokenValidityUnits where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CognitoUserPoolClientTokenValidityUnits. --- See 'cognitoUserPoolClientTokenValidityUnits' for a more convenient --- constructor. -data CognitoUserPoolClientTokenValidityUnits = - CognitoUserPoolClientTokenValidityUnits - { _cognitoUserPoolClientTokenValidityUnitsAccessToken :: Maybe (Val Text) - , _cognitoUserPoolClientTokenValidityUnitsIdToken :: Maybe (Val Text) - , _cognitoUserPoolClientTokenValidityUnitsRefreshToken :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CognitoUserPoolClientTokenValidityUnits where - toJSON CognitoUserPoolClientTokenValidityUnits{..} = - object $ - catMaybes - [ fmap (("AccessToken",) . toJSON) _cognitoUserPoolClientTokenValidityUnitsAccessToken - , fmap (("IdToken",) . toJSON) _cognitoUserPoolClientTokenValidityUnitsIdToken - , fmap (("RefreshToken",) . toJSON) _cognitoUserPoolClientTokenValidityUnitsRefreshToken - ] - --- | Constructor for 'CognitoUserPoolClientTokenValidityUnits' containing --- required fields as arguments. -cognitoUserPoolClientTokenValidityUnits - :: CognitoUserPoolClientTokenValidityUnits -cognitoUserPoolClientTokenValidityUnits = - CognitoUserPoolClientTokenValidityUnits - { _cognitoUserPoolClientTokenValidityUnitsAccessToken = Nothing - , _cognitoUserPoolClientTokenValidityUnitsIdToken = Nothing - , _cognitoUserPoolClientTokenValidityUnitsRefreshToken = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolclient-tokenvalidityunits.html#cfn-cognito-userpoolclient-tokenvalidityunits-accesstoken -cupctvuAccessToken :: Lens' CognitoUserPoolClientTokenValidityUnits (Maybe (Val Text)) -cupctvuAccessToken = lens _cognitoUserPoolClientTokenValidityUnitsAccessToken (\s a -> s { _cognitoUserPoolClientTokenValidityUnitsAccessToken = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolclient-tokenvalidityunits.html#cfn-cognito-userpoolclient-tokenvalidityunits-idtoken -cupctvuIdToken :: Lens' CognitoUserPoolClientTokenValidityUnits (Maybe (Val Text)) -cupctvuIdToken = lens _cognitoUserPoolClientTokenValidityUnitsIdToken (\s a -> s { _cognitoUserPoolClientTokenValidityUnitsIdToken = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolclient-tokenvalidityunits.html#cfn-cognito-userpoolclient-tokenvalidityunits-refreshtoken -cupctvuRefreshToken :: Lens' CognitoUserPoolClientTokenValidityUnits (Maybe (Val Text)) -cupctvuRefreshToken = lens _cognitoUserPoolClientTokenValidityUnitsRefreshToken (\s a -> s { _cognitoUserPoolClientTokenValidityUnitsRefreshToken = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolDeviceConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolDeviceConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolDeviceConfiguration.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-deviceconfiguration.html - -module Stratosphere.ResourceProperties.CognitoUserPoolDeviceConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CognitoUserPoolDeviceConfiguration. See --- 'cognitoUserPoolDeviceConfiguration' for a more convenient constructor. -data CognitoUserPoolDeviceConfiguration = - CognitoUserPoolDeviceConfiguration - { _cognitoUserPoolDeviceConfigurationChallengeRequiredOnNewDevice :: Maybe (Val Bool) - , _cognitoUserPoolDeviceConfigurationDeviceOnlyRememberedOnUserPrompt :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON CognitoUserPoolDeviceConfiguration where - toJSON CognitoUserPoolDeviceConfiguration{..} = - object $ - catMaybes - [ fmap (("ChallengeRequiredOnNewDevice",) . toJSON) _cognitoUserPoolDeviceConfigurationChallengeRequiredOnNewDevice - , fmap (("DeviceOnlyRememberedOnUserPrompt",) . toJSON) _cognitoUserPoolDeviceConfigurationDeviceOnlyRememberedOnUserPrompt - ] - --- | Constructor for 'CognitoUserPoolDeviceConfiguration' containing required --- fields as arguments. -cognitoUserPoolDeviceConfiguration - :: CognitoUserPoolDeviceConfiguration -cognitoUserPoolDeviceConfiguration = - CognitoUserPoolDeviceConfiguration - { _cognitoUserPoolDeviceConfigurationChallengeRequiredOnNewDevice = Nothing - , _cognitoUserPoolDeviceConfigurationDeviceOnlyRememberedOnUserPrompt = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-deviceconfiguration.html#cfn-cognito-userpool-deviceconfiguration-challengerequiredonnewdevice -cupdcChallengeRequiredOnNewDevice :: Lens' CognitoUserPoolDeviceConfiguration (Maybe (Val Bool)) -cupdcChallengeRequiredOnNewDevice = lens _cognitoUserPoolDeviceConfigurationChallengeRequiredOnNewDevice (\s a -> s { _cognitoUserPoolDeviceConfigurationChallengeRequiredOnNewDevice = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-deviceconfiguration.html#cfn-cognito-userpool-deviceconfiguration-deviceonlyrememberedonuserprompt -cupdcDeviceOnlyRememberedOnUserPrompt :: Lens' CognitoUserPoolDeviceConfiguration (Maybe (Val Bool)) -cupdcDeviceOnlyRememberedOnUserPrompt = lens _cognitoUserPoolDeviceConfigurationDeviceOnlyRememberedOnUserPrompt (\s a -> s { _cognitoUserPoolDeviceConfigurationDeviceOnlyRememberedOnUserPrompt = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolDomainCustomDomainConfigType.hs b/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolDomainCustomDomainConfigType.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolDomainCustomDomainConfigType.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpooldomain-customdomainconfigtype.html - -module Stratosphere.ResourceProperties.CognitoUserPoolDomainCustomDomainConfigType where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- CognitoUserPoolDomainCustomDomainConfigType. See --- 'cognitoUserPoolDomainCustomDomainConfigType' for a more convenient --- constructor. -data CognitoUserPoolDomainCustomDomainConfigType = - CognitoUserPoolDomainCustomDomainConfigType - { _cognitoUserPoolDomainCustomDomainConfigTypeCertificateArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CognitoUserPoolDomainCustomDomainConfigType where - toJSON CognitoUserPoolDomainCustomDomainConfigType{..} = - object $ - catMaybes - [ fmap (("CertificateArn",) . toJSON) _cognitoUserPoolDomainCustomDomainConfigTypeCertificateArn - ] - --- | Constructor for 'CognitoUserPoolDomainCustomDomainConfigType' containing --- required fields as arguments. -cognitoUserPoolDomainCustomDomainConfigType - :: CognitoUserPoolDomainCustomDomainConfigType -cognitoUserPoolDomainCustomDomainConfigType = - CognitoUserPoolDomainCustomDomainConfigType - { _cognitoUserPoolDomainCustomDomainConfigTypeCertificateArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpooldomain-customdomainconfigtype.html#cfn-cognito-userpooldomain-customdomainconfigtype-certificatearn -cupdcdctCertificateArn :: Lens' CognitoUserPoolDomainCustomDomainConfigType (Maybe (Val Text)) -cupdcdctCertificateArn = lens _cognitoUserPoolDomainCustomDomainConfigTypeCertificateArn (\s a -> s { _cognitoUserPoolDomainCustomDomainConfigTypeCertificateArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolEmailConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolEmailConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolEmailConfiguration.hs +++ /dev/null @@ -1,66 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-emailconfiguration.html - -module Stratosphere.ResourceProperties.CognitoUserPoolEmailConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CognitoUserPoolEmailConfiguration. See --- 'cognitoUserPoolEmailConfiguration' for a more convenient constructor. -data CognitoUserPoolEmailConfiguration = - CognitoUserPoolEmailConfiguration - { _cognitoUserPoolEmailConfigurationConfigurationSet :: Maybe (Val Text) - , _cognitoUserPoolEmailConfigurationEmailSendingAccount :: Maybe (Val Text) - , _cognitoUserPoolEmailConfigurationFrom :: Maybe (Val Text) - , _cognitoUserPoolEmailConfigurationReplyToEmailAddress :: Maybe (Val Text) - , _cognitoUserPoolEmailConfigurationSourceArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CognitoUserPoolEmailConfiguration where - toJSON CognitoUserPoolEmailConfiguration{..} = - object $ - catMaybes - [ fmap (("ConfigurationSet",) . toJSON) _cognitoUserPoolEmailConfigurationConfigurationSet - , fmap (("EmailSendingAccount",) . toJSON) _cognitoUserPoolEmailConfigurationEmailSendingAccount - , fmap (("From",) . toJSON) _cognitoUserPoolEmailConfigurationFrom - , fmap (("ReplyToEmailAddress",) . toJSON) _cognitoUserPoolEmailConfigurationReplyToEmailAddress - , fmap (("SourceArn",) . toJSON) _cognitoUserPoolEmailConfigurationSourceArn - ] - --- | Constructor for 'CognitoUserPoolEmailConfiguration' containing required --- fields as arguments. -cognitoUserPoolEmailConfiguration - :: CognitoUserPoolEmailConfiguration -cognitoUserPoolEmailConfiguration = - CognitoUserPoolEmailConfiguration - { _cognitoUserPoolEmailConfigurationConfigurationSet = Nothing - , _cognitoUserPoolEmailConfigurationEmailSendingAccount = Nothing - , _cognitoUserPoolEmailConfigurationFrom = Nothing - , _cognitoUserPoolEmailConfigurationReplyToEmailAddress = Nothing - , _cognitoUserPoolEmailConfigurationSourceArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-emailconfiguration.html#cfn-cognito-userpool-emailconfiguration-configurationset -cupecConfigurationSet :: Lens' CognitoUserPoolEmailConfiguration (Maybe (Val Text)) -cupecConfigurationSet = lens _cognitoUserPoolEmailConfigurationConfigurationSet (\s a -> s { _cognitoUserPoolEmailConfigurationConfigurationSet = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-emailconfiguration.html#cfn-cognito-userpool-emailconfiguration-emailsendingaccount -cupecEmailSendingAccount :: Lens' CognitoUserPoolEmailConfiguration (Maybe (Val Text)) -cupecEmailSendingAccount = lens _cognitoUserPoolEmailConfigurationEmailSendingAccount (\s a -> s { _cognitoUserPoolEmailConfigurationEmailSendingAccount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-emailconfiguration.html#cfn-cognito-userpool-emailconfiguration-from -cupecFrom :: Lens' CognitoUserPoolEmailConfiguration (Maybe (Val Text)) -cupecFrom = lens _cognitoUserPoolEmailConfigurationFrom (\s a -> s { _cognitoUserPoolEmailConfigurationFrom = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-emailconfiguration.html#cfn-cognito-userpool-emailconfiguration-replytoemailaddress -cupecReplyToEmailAddress :: Lens' CognitoUserPoolEmailConfiguration (Maybe (Val Text)) -cupecReplyToEmailAddress = lens _cognitoUserPoolEmailConfigurationReplyToEmailAddress (\s a -> s { _cognitoUserPoolEmailConfigurationReplyToEmailAddress = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-emailconfiguration.html#cfn-cognito-userpool-emailconfiguration-sourcearn -cupecSourceArn :: Lens' CognitoUserPoolEmailConfiguration (Maybe (Val Text)) -cupecSourceArn = lens _cognitoUserPoolEmailConfigurationSourceArn (\s a -> s { _cognitoUserPoolEmailConfigurationSourceArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolInviteMessageTemplate.hs b/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolInviteMessageTemplate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolInviteMessageTemplate.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-invitemessagetemplate.html - -module Stratosphere.ResourceProperties.CognitoUserPoolInviteMessageTemplate where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CognitoUserPoolInviteMessageTemplate. See --- 'cognitoUserPoolInviteMessageTemplate' for a more convenient constructor. -data CognitoUserPoolInviteMessageTemplate = - CognitoUserPoolInviteMessageTemplate - { _cognitoUserPoolInviteMessageTemplateEmailMessage :: Maybe (Val Text) - , _cognitoUserPoolInviteMessageTemplateEmailSubject :: Maybe (Val Text) - , _cognitoUserPoolInviteMessageTemplateSMSMessage :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CognitoUserPoolInviteMessageTemplate where - toJSON CognitoUserPoolInviteMessageTemplate{..} = - object $ - catMaybes - [ fmap (("EmailMessage",) . toJSON) _cognitoUserPoolInviteMessageTemplateEmailMessage - , fmap (("EmailSubject",) . toJSON) _cognitoUserPoolInviteMessageTemplateEmailSubject - , fmap (("SMSMessage",) . toJSON) _cognitoUserPoolInviteMessageTemplateSMSMessage - ] - --- | Constructor for 'CognitoUserPoolInviteMessageTemplate' containing --- required fields as arguments. -cognitoUserPoolInviteMessageTemplate - :: CognitoUserPoolInviteMessageTemplate -cognitoUserPoolInviteMessageTemplate = - CognitoUserPoolInviteMessageTemplate - { _cognitoUserPoolInviteMessageTemplateEmailMessage = Nothing - , _cognitoUserPoolInviteMessageTemplateEmailSubject = Nothing - , _cognitoUserPoolInviteMessageTemplateSMSMessage = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-invitemessagetemplate.html#cfn-cognito-userpool-invitemessagetemplate-emailmessage -cupimtEmailMessage :: Lens' CognitoUserPoolInviteMessageTemplate (Maybe (Val Text)) -cupimtEmailMessage = lens _cognitoUserPoolInviteMessageTemplateEmailMessage (\s a -> s { _cognitoUserPoolInviteMessageTemplateEmailMessage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-invitemessagetemplate.html#cfn-cognito-userpool-invitemessagetemplate-emailsubject -cupimtEmailSubject :: Lens' CognitoUserPoolInviteMessageTemplate (Maybe (Val Text)) -cupimtEmailSubject = lens _cognitoUserPoolInviteMessageTemplateEmailSubject (\s a -> s { _cognitoUserPoolInviteMessageTemplateEmailSubject = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-invitemessagetemplate.html#cfn-cognito-userpool-invitemessagetemplate-smsmessage -cupimtSMSMessage :: Lens' CognitoUserPoolInviteMessageTemplate (Maybe (Val Text)) -cupimtSMSMessage = lens _cognitoUserPoolInviteMessageTemplateSMSMessage (\s a -> s { _cognitoUserPoolInviteMessageTemplateSMSMessage = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolLambdaConfig.hs b/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolLambdaConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolLambdaConfig.hs +++ /dev/null @@ -1,101 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-lambdaconfig.html - -module Stratosphere.ResourceProperties.CognitoUserPoolLambdaConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CognitoUserPoolLambdaConfig. See --- 'cognitoUserPoolLambdaConfig' for a more convenient constructor. -data CognitoUserPoolLambdaConfig = - CognitoUserPoolLambdaConfig - { _cognitoUserPoolLambdaConfigCreateAuthChallenge :: Maybe (Val Text) - , _cognitoUserPoolLambdaConfigCustomMessage :: Maybe (Val Text) - , _cognitoUserPoolLambdaConfigDefineAuthChallenge :: Maybe (Val Text) - , _cognitoUserPoolLambdaConfigPostAuthentication :: Maybe (Val Text) - , _cognitoUserPoolLambdaConfigPostConfirmation :: Maybe (Val Text) - , _cognitoUserPoolLambdaConfigPreAuthentication :: Maybe (Val Text) - , _cognitoUserPoolLambdaConfigPreSignUp :: Maybe (Val Text) - , _cognitoUserPoolLambdaConfigPreTokenGeneration :: Maybe (Val Text) - , _cognitoUserPoolLambdaConfigUserMigration :: Maybe (Val Text) - , _cognitoUserPoolLambdaConfigVerifyAuthChallengeResponse :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CognitoUserPoolLambdaConfig where - toJSON CognitoUserPoolLambdaConfig{..} = - object $ - catMaybes - [ fmap (("CreateAuthChallenge",) . toJSON) _cognitoUserPoolLambdaConfigCreateAuthChallenge - , fmap (("CustomMessage",) . toJSON) _cognitoUserPoolLambdaConfigCustomMessage - , fmap (("DefineAuthChallenge",) . toJSON) _cognitoUserPoolLambdaConfigDefineAuthChallenge - , fmap (("PostAuthentication",) . toJSON) _cognitoUserPoolLambdaConfigPostAuthentication - , fmap (("PostConfirmation",) . toJSON) _cognitoUserPoolLambdaConfigPostConfirmation - , fmap (("PreAuthentication",) . toJSON) _cognitoUserPoolLambdaConfigPreAuthentication - , fmap (("PreSignUp",) . toJSON) _cognitoUserPoolLambdaConfigPreSignUp - , fmap (("PreTokenGeneration",) . toJSON) _cognitoUserPoolLambdaConfigPreTokenGeneration - , fmap (("UserMigration",) . toJSON) _cognitoUserPoolLambdaConfigUserMigration - , fmap (("VerifyAuthChallengeResponse",) . toJSON) _cognitoUserPoolLambdaConfigVerifyAuthChallengeResponse - ] - --- | Constructor for 'CognitoUserPoolLambdaConfig' containing required fields --- as arguments. -cognitoUserPoolLambdaConfig - :: CognitoUserPoolLambdaConfig -cognitoUserPoolLambdaConfig = - CognitoUserPoolLambdaConfig - { _cognitoUserPoolLambdaConfigCreateAuthChallenge = Nothing - , _cognitoUserPoolLambdaConfigCustomMessage = Nothing - , _cognitoUserPoolLambdaConfigDefineAuthChallenge = Nothing - , _cognitoUserPoolLambdaConfigPostAuthentication = Nothing - , _cognitoUserPoolLambdaConfigPostConfirmation = Nothing - , _cognitoUserPoolLambdaConfigPreAuthentication = Nothing - , _cognitoUserPoolLambdaConfigPreSignUp = Nothing - , _cognitoUserPoolLambdaConfigPreTokenGeneration = Nothing - , _cognitoUserPoolLambdaConfigUserMigration = Nothing - , _cognitoUserPoolLambdaConfigVerifyAuthChallengeResponse = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-lambdaconfig.html#cfn-cognito-userpool-lambdaconfig-createauthchallenge -cuplcCreateAuthChallenge :: Lens' CognitoUserPoolLambdaConfig (Maybe (Val Text)) -cuplcCreateAuthChallenge = lens _cognitoUserPoolLambdaConfigCreateAuthChallenge (\s a -> s { _cognitoUserPoolLambdaConfigCreateAuthChallenge = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-lambdaconfig.html#cfn-cognito-userpool-lambdaconfig-custommessage -cuplcCustomMessage :: Lens' CognitoUserPoolLambdaConfig (Maybe (Val Text)) -cuplcCustomMessage = lens _cognitoUserPoolLambdaConfigCustomMessage (\s a -> s { _cognitoUserPoolLambdaConfigCustomMessage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-lambdaconfig.html#cfn-cognito-userpool-lambdaconfig-defineauthchallenge -cuplcDefineAuthChallenge :: Lens' CognitoUserPoolLambdaConfig (Maybe (Val Text)) -cuplcDefineAuthChallenge = lens _cognitoUserPoolLambdaConfigDefineAuthChallenge (\s a -> s { _cognitoUserPoolLambdaConfigDefineAuthChallenge = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-lambdaconfig.html#cfn-cognito-userpool-lambdaconfig-postauthentication -cuplcPostAuthentication :: Lens' CognitoUserPoolLambdaConfig (Maybe (Val Text)) -cuplcPostAuthentication = lens _cognitoUserPoolLambdaConfigPostAuthentication (\s a -> s { _cognitoUserPoolLambdaConfigPostAuthentication = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-lambdaconfig.html#cfn-cognito-userpool-lambdaconfig-postconfirmation -cuplcPostConfirmation :: Lens' CognitoUserPoolLambdaConfig (Maybe (Val Text)) -cuplcPostConfirmation = lens _cognitoUserPoolLambdaConfigPostConfirmation (\s a -> s { _cognitoUserPoolLambdaConfigPostConfirmation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-lambdaconfig.html#cfn-cognito-userpool-lambdaconfig-preauthentication -cuplcPreAuthentication :: Lens' CognitoUserPoolLambdaConfig (Maybe (Val Text)) -cuplcPreAuthentication = lens _cognitoUserPoolLambdaConfigPreAuthentication (\s a -> s { _cognitoUserPoolLambdaConfigPreAuthentication = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-lambdaconfig.html#cfn-cognito-userpool-lambdaconfig-presignup -cuplcPreSignUp :: Lens' CognitoUserPoolLambdaConfig (Maybe (Val Text)) -cuplcPreSignUp = lens _cognitoUserPoolLambdaConfigPreSignUp (\s a -> s { _cognitoUserPoolLambdaConfigPreSignUp = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-lambdaconfig.html#cfn-cognito-userpool-lambdaconfig-pretokengeneration -cuplcPreTokenGeneration :: Lens' CognitoUserPoolLambdaConfig (Maybe (Val Text)) -cuplcPreTokenGeneration = lens _cognitoUserPoolLambdaConfigPreTokenGeneration (\s a -> s { _cognitoUserPoolLambdaConfigPreTokenGeneration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-lambdaconfig.html#cfn-cognito-userpool-lambdaconfig-usermigration -cuplcUserMigration :: Lens' CognitoUserPoolLambdaConfig (Maybe (Val Text)) -cuplcUserMigration = lens _cognitoUserPoolLambdaConfigUserMigration (\s a -> s { _cognitoUserPoolLambdaConfigUserMigration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-lambdaconfig.html#cfn-cognito-userpool-lambdaconfig-verifyauthchallengeresponse -cuplcVerifyAuthChallengeResponse :: Lens' CognitoUserPoolLambdaConfig (Maybe (Val Text)) -cuplcVerifyAuthChallengeResponse = lens _cognitoUserPoolLambdaConfigVerifyAuthChallengeResponse (\s a -> s { _cognitoUserPoolLambdaConfigVerifyAuthChallengeResponse = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolNumberAttributeConstraints.hs b/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolNumberAttributeConstraints.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolNumberAttributeConstraints.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-numberattributeconstraints.html - -module Stratosphere.ResourceProperties.CognitoUserPoolNumberAttributeConstraints where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CognitoUserPoolNumberAttributeConstraints. --- See 'cognitoUserPoolNumberAttributeConstraints' for a more convenient --- constructor. -data CognitoUserPoolNumberAttributeConstraints = - CognitoUserPoolNumberAttributeConstraints - { _cognitoUserPoolNumberAttributeConstraintsMaxValue :: Maybe (Val Text) - , _cognitoUserPoolNumberAttributeConstraintsMinValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CognitoUserPoolNumberAttributeConstraints where - toJSON CognitoUserPoolNumberAttributeConstraints{..} = - object $ - catMaybes - [ fmap (("MaxValue",) . toJSON) _cognitoUserPoolNumberAttributeConstraintsMaxValue - , fmap (("MinValue",) . toJSON) _cognitoUserPoolNumberAttributeConstraintsMinValue - ] - --- | Constructor for 'CognitoUserPoolNumberAttributeConstraints' containing --- required fields as arguments. -cognitoUserPoolNumberAttributeConstraints - :: CognitoUserPoolNumberAttributeConstraints -cognitoUserPoolNumberAttributeConstraints = - CognitoUserPoolNumberAttributeConstraints - { _cognitoUserPoolNumberAttributeConstraintsMaxValue = Nothing - , _cognitoUserPoolNumberAttributeConstraintsMinValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-numberattributeconstraints.html#cfn-cognito-userpool-numberattributeconstraints-maxvalue -cupnacMaxValue :: Lens' CognitoUserPoolNumberAttributeConstraints (Maybe (Val Text)) -cupnacMaxValue = lens _cognitoUserPoolNumberAttributeConstraintsMaxValue (\s a -> s { _cognitoUserPoolNumberAttributeConstraintsMaxValue = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-numberattributeconstraints.html#cfn-cognito-userpool-numberattributeconstraints-minvalue -cupnacMinValue :: Lens' CognitoUserPoolNumberAttributeConstraints (Maybe (Val Text)) -cupnacMinValue = lens _cognitoUserPoolNumberAttributeConstraintsMinValue (\s a -> s { _cognitoUserPoolNumberAttributeConstraintsMinValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolPasswordPolicy.hs b/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolPasswordPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolPasswordPolicy.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-passwordpolicy.html - -module Stratosphere.ResourceProperties.CognitoUserPoolPasswordPolicy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CognitoUserPoolPasswordPolicy. See --- 'cognitoUserPoolPasswordPolicy' for a more convenient constructor. -data CognitoUserPoolPasswordPolicy = - CognitoUserPoolPasswordPolicy - { _cognitoUserPoolPasswordPolicyMinimumLength :: Maybe (Val Integer) - , _cognitoUserPoolPasswordPolicyRequireLowercase :: Maybe (Val Bool) - , _cognitoUserPoolPasswordPolicyRequireNumbers :: Maybe (Val Bool) - , _cognitoUserPoolPasswordPolicyRequireSymbols :: Maybe (Val Bool) - , _cognitoUserPoolPasswordPolicyRequireUppercase :: Maybe (Val Bool) - , _cognitoUserPoolPasswordPolicyTemporaryPasswordValidityDays :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON CognitoUserPoolPasswordPolicy where - toJSON CognitoUserPoolPasswordPolicy{..} = - object $ - catMaybes - [ fmap (("MinimumLength",) . toJSON) _cognitoUserPoolPasswordPolicyMinimumLength - , fmap (("RequireLowercase",) . toJSON) _cognitoUserPoolPasswordPolicyRequireLowercase - , fmap (("RequireNumbers",) . toJSON) _cognitoUserPoolPasswordPolicyRequireNumbers - , fmap (("RequireSymbols",) . toJSON) _cognitoUserPoolPasswordPolicyRequireSymbols - , fmap (("RequireUppercase",) . toJSON) _cognitoUserPoolPasswordPolicyRequireUppercase - , fmap (("TemporaryPasswordValidityDays",) . toJSON) _cognitoUserPoolPasswordPolicyTemporaryPasswordValidityDays - ] - --- | Constructor for 'CognitoUserPoolPasswordPolicy' containing required --- fields as arguments. -cognitoUserPoolPasswordPolicy - :: CognitoUserPoolPasswordPolicy -cognitoUserPoolPasswordPolicy = - CognitoUserPoolPasswordPolicy - { _cognitoUserPoolPasswordPolicyMinimumLength = Nothing - , _cognitoUserPoolPasswordPolicyRequireLowercase = Nothing - , _cognitoUserPoolPasswordPolicyRequireNumbers = Nothing - , _cognitoUserPoolPasswordPolicyRequireSymbols = Nothing - , _cognitoUserPoolPasswordPolicyRequireUppercase = Nothing - , _cognitoUserPoolPasswordPolicyTemporaryPasswordValidityDays = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-passwordpolicy.html#cfn-cognito-userpool-passwordpolicy-minimumlength -cupppMinimumLength :: Lens' CognitoUserPoolPasswordPolicy (Maybe (Val Integer)) -cupppMinimumLength = lens _cognitoUserPoolPasswordPolicyMinimumLength (\s a -> s { _cognitoUserPoolPasswordPolicyMinimumLength = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-passwordpolicy.html#cfn-cognito-userpool-passwordpolicy-requirelowercase -cupppRequireLowercase :: Lens' CognitoUserPoolPasswordPolicy (Maybe (Val Bool)) -cupppRequireLowercase = lens _cognitoUserPoolPasswordPolicyRequireLowercase (\s a -> s { _cognitoUserPoolPasswordPolicyRequireLowercase = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-passwordpolicy.html#cfn-cognito-userpool-passwordpolicy-requirenumbers -cupppRequireNumbers :: Lens' CognitoUserPoolPasswordPolicy (Maybe (Val Bool)) -cupppRequireNumbers = lens _cognitoUserPoolPasswordPolicyRequireNumbers (\s a -> s { _cognitoUserPoolPasswordPolicyRequireNumbers = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-passwordpolicy.html#cfn-cognito-userpool-passwordpolicy-requiresymbols -cupppRequireSymbols :: Lens' CognitoUserPoolPasswordPolicy (Maybe (Val Bool)) -cupppRequireSymbols = lens _cognitoUserPoolPasswordPolicyRequireSymbols (\s a -> s { _cognitoUserPoolPasswordPolicyRequireSymbols = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-passwordpolicy.html#cfn-cognito-userpool-passwordpolicy-requireuppercase -cupppRequireUppercase :: Lens' CognitoUserPoolPasswordPolicy (Maybe (Val Bool)) -cupppRequireUppercase = lens _cognitoUserPoolPasswordPolicyRequireUppercase (\s a -> s { _cognitoUserPoolPasswordPolicyRequireUppercase = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-passwordpolicy.html#cfn-cognito-userpool-passwordpolicy-temporarypasswordvaliditydays -cupppTemporaryPasswordValidityDays :: Lens' CognitoUserPoolPasswordPolicy (Maybe (Val Integer)) -cupppTemporaryPasswordValidityDays = lens _cognitoUserPoolPasswordPolicyTemporaryPasswordValidityDays (\s a -> s { _cognitoUserPoolPasswordPolicyTemporaryPasswordValidityDays = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolPolicies.hs b/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolPolicies.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolPolicies.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-policies.html - -module Stratosphere.ResourceProperties.CognitoUserPoolPolicies where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CognitoUserPoolPasswordPolicy - --- | Full data type definition for CognitoUserPoolPolicies. See --- 'cognitoUserPoolPolicies' for a more convenient constructor. -data CognitoUserPoolPolicies = - CognitoUserPoolPolicies - { _cognitoUserPoolPoliciesPasswordPolicy :: Maybe CognitoUserPoolPasswordPolicy - } deriving (Show, Eq) - -instance ToJSON CognitoUserPoolPolicies where - toJSON CognitoUserPoolPolicies{..} = - object $ - catMaybes - [ fmap (("PasswordPolicy",) . toJSON) _cognitoUserPoolPoliciesPasswordPolicy - ] - --- | Constructor for 'CognitoUserPoolPolicies' containing required fields as --- arguments. -cognitoUserPoolPolicies - :: CognitoUserPoolPolicies -cognitoUserPoolPolicies = - CognitoUserPoolPolicies - { _cognitoUserPoolPoliciesPasswordPolicy = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-policies.html#cfn-cognito-userpool-policies-passwordpolicy -cuppPasswordPolicy :: Lens' CognitoUserPoolPolicies (Maybe CognitoUserPoolPasswordPolicy) -cuppPasswordPolicy = lens _cognitoUserPoolPoliciesPasswordPolicy (\s a -> s { _cognitoUserPoolPoliciesPasswordPolicy = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRecoveryOption.hs b/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRecoveryOption.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRecoveryOption.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-recoveryoption.html - -module Stratosphere.ResourceProperties.CognitoUserPoolRecoveryOption where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CognitoUserPoolRecoveryOption. See --- 'cognitoUserPoolRecoveryOption' for a more convenient constructor. -data CognitoUserPoolRecoveryOption = - CognitoUserPoolRecoveryOption - { _cognitoUserPoolRecoveryOptionName :: Maybe (Val Text) - , _cognitoUserPoolRecoveryOptionPriority :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON CognitoUserPoolRecoveryOption where - toJSON CognitoUserPoolRecoveryOption{..} = - object $ - catMaybes - [ fmap (("Name",) . toJSON) _cognitoUserPoolRecoveryOptionName - , fmap (("Priority",) . toJSON) _cognitoUserPoolRecoveryOptionPriority - ] - --- | Constructor for 'CognitoUserPoolRecoveryOption' containing required --- fields as arguments. -cognitoUserPoolRecoveryOption - :: CognitoUserPoolRecoveryOption -cognitoUserPoolRecoveryOption = - CognitoUserPoolRecoveryOption - { _cognitoUserPoolRecoveryOptionName = Nothing - , _cognitoUserPoolRecoveryOptionPriority = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-recoveryoption.html#cfn-cognito-userpool-recoveryoption-name -cuproName :: Lens' CognitoUserPoolRecoveryOption (Maybe (Val Text)) -cuproName = lens _cognitoUserPoolRecoveryOptionName (\s a -> s { _cognitoUserPoolRecoveryOptionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-recoveryoption.html#cfn-cognito-userpool-recoveryoption-priority -cuproPriority :: Lens' CognitoUserPoolRecoveryOption (Maybe (Val Integer)) -cuproPriority = lens _cognitoUserPoolRecoveryOptionPriority (\s a -> s { _cognitoUserPoolRecoveryOptionPriority = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolResourceServerResourceServerScopeType.hs b/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolResourceServerResourceServerScopeType.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolResourceServerResourceServerScopeType.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolresourceserver-resourceserverscopetype.html - -module Stratosphere.ResourceProperties.CognitoUserPoolResourceServerResourceServerScopeType where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- CognitoUserPoolResourceServerResourceServerScopeType. See --- 'cognitoUserPoolResourceServerResourceServerScopeType' for a more --- convenient constructor. -data CognitoUserPoolResourceServerResourceServerScopeType = - CognitoUserPoolResourceServerResourceServerScopeType - { _cognitoUserPoolResourceServerResourceServerScopeTypeScopeDescription :: Val Text - , _cognitoUserPoolResourceServerResourceServerScopeTypeScopeName :: Val Text - } deriving (Show, Eq) - -instance ToJSON CognitoUserPoolResourceServerResourceServerScopeType where - toJSON CognitoUserPoolResourceServerResourceServerScopeType{..} = - object $ - catMaybes - [ (Just . ("ScopeDescription",) . toJSON) _cognitoUserPoolResourceServerResourceServerScopeTypeScopeDescription - , (Just . ("ScopeName",) . toJSON) _cognitoUserPoolResourceServerResourceServerScopeTypeScopeName - ] - --- | Constructor for 'CognitoUserPoolResourceServerResourceServerScopeType' --- containing required fields as arguments. -cognitoUserPoolResourceServerResourceServerScopeType - :: Val Text -- ^ 'cuprsrsstScopeDescription' - -> Val Text -- ^ 'cuprsrsstScopeName' - -> CognitoUserPoolResourceServerResourceServerScopeType -cognitoUserPoolResourceServerResourceServerScopeType scopeDescriptionarg scopeNamearg = - CognitoUserPoolResourceServerResourceServerScopeType - { _cognitoUserPoolResourceServerResourceServerScopeTypeScopeDescription = scopeDescriptionarg - , _cognitoUserPoolResourceServerResourceServerScopeTypeScopeName = scopeNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolresourceserver-resourceserverscopetype.html#cfn-cognito-userpoolresourceserver-resourceserverscopetype-scopedescription -cuprsrsstScopeDescription :: Lens' CognitoUserPoolResourceServerResourceServerScopeType (Val Text) -cuprsrsstScopeDescription = lens _cognitoUserPoolResourceServerResourceServerScopeTypeScopeDescription (\s a -> s { _cognitoUserPoolResourceServerResourceServerScopeTypeScopeDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolresourceserver-resourceserverscopetype.html#cfn-cognito-userpoolresourceserver-resourceserverscopetype-scopename -cuprsrsstScopeName :: Lens' CognitoUserPoolResourceServerResourceServerScopeType (Val Text) -cuprsrsstScopeName = lens _cognitoUserPoolResourceServerResourceServerScopeTypeScopeName (\s a -> s { _cognitoUserPoolResourceServerResourceServerScopeTypeScopeName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType.hs b/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-accounttakeoveractiontype.html - -module Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType. See --- 'cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType' for --- a more convenient constructor. -data CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType = - CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType - { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionTypeEventAction :: Val Text - , _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionTypeNotify :: Val Bool - } deriving (Show, Eq) - -instance ToJSON CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType where - toJSON CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType{..} = - object $ - catMaybes - [ (Just . ("EventAction",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionTypeEventAction - , (Just . ("Notify",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionTypeNotify - ] - --- | Constructor for --- 'CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType' --- containing required fields as arguments. -cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType - :: Val Text -- ^ 'cuprcaatatEventAction' - -> Val Bool -- ^ 'cuprcaatatNotify' - -> CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType -cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType eventActionarg notifyarg = - CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType - { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionTypeEventAction = eventActionarg - , _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionTypeNotify = notifyarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-accounttakeoveractiontype.html#cfn-cognito-userpoolriskconfigurationattachment-accounttakeoveractiontype-eventaction -cuprcaatatEventAction :: Lens' CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType (Val Text) -cuprcaatatEventAction = lens _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionTypeEventAction (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionTypeEventAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-accounttakeoveractiontype.html#cfn-cognito-userpoolriskconfigurationattachment-accounttakeoveractiontype-notify -cuprcaatatNotify :: Lens' CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType (Val Bool) -cuprcaatatNotify = lens _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionTypeNotify (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionTypeNotify = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType.hs b/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-accounttakeoveractionstype.html - -module Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType - --- | Full data type definition for --- CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType. See --- 'cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType' --- for a more convenient constructor. -data CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType = - CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType - { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeHighAction :: Maybe CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType - , _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeLowAction :: Maybe CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType - , _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeMediumAction :: Maybe CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType - } deriving (Show, Eq) - -instance ToJSON CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType where - toJSON CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType{..} = - object $ - catMaybes - [ fmap (("HighAction",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeHighAction - , fmap (("LowAction",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeLowAction - , fmap (("MediumAction",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeMediumAction - ] - --- | Constructor for --- 'CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType' --- containing required fields as arguments. -cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType - :: CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType -cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType = - CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType - { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeHighAction = Nothing - , _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeLowAction = Nothing - , _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeMediumAction = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-accounttakeoveractionstype.html#cfn-cognito-userpoolriskconfigurationattachment-accounttakeoveractionstype-highaction -cuprcaatatHighAction :: Lens' CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType (Maybe CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType) -cuprcaatatHighAction = lens _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeHighAction (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeHighAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-accounttakeoveractionstype.html#cfn-cognito-userpoolriskconfigurationattachment-accounttakeoveractionstype-lowaction -cuprcaatatLowAction :: Lens' CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType (Maybe CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType) -cuprcaatatLowAction = lens _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeLowAction (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeLowAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-accounttakeoveractionstype.html#cfn-cognito-userpoolriskconfigurationattachment-accounttakeoveractionstype-mediumaction -cuprcaatatMediumAction :: Lens' CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType (Maybe CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType) -cuprcaatatMediumAction = lens _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeMediumAction (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsTypeMediumAction = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType.hs b/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType.hs +++ /dev/null @@ -1,51 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-accounttakeoverriskconfigurationtype.html - -module Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType -import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType - --- | Full data type definition for --- CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType. --- See --- 'cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType' --- for a more convenient constructor. -data CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType = - CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType - { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationTypeActions :: CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType - , _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationTypeNotifyConfiguration :: Maybe CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType - } deriving (Show, Eq) - -instance ToJSON CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType where - toJSON CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType{..} = - object $ - catMaybes - [ (Just . ("Actions",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationTypeActions - , fmap (("NotifyConfiguration",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationTypeNotifyConfiguration - ] - --- | Constructor for --- 'CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType' --- containing required fields as arguments. -cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType - :: CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType -- ^ 'cuprcaatrctActions' - -> CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType -cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType actionsarg = - CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType - { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationTypeActions = actionsarg - , _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationTypeNotifyConfiguration = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-accounttakeoverriskconfigurationtype.html#cfn-cognito-userpoolriskconfigurationattachment-accounttakeoverriskconfigurationtype-actions -cuprcaatrctActions :: Lens' CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType -cuprcaatrctActions = lens _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationTypeActions (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationTypeActions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-accounttakeoverriskconfigurationtype.html#cfn-cognito-userpoolriskconfigurationattachment-accounttakeoverriskconfigurationtype-notifyconfiguration -cuprcaatrctNotifyConfiguration :: Lens' CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType (Maybe CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType) -cuprcaatrctNotifyConfiguration = lens _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationTypeNotifyConfiguration (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationTypeNotifyConfiguration = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType.hs b/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType.hs +++ /dev/null @@ -1,43 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-compromisedcredentialsactionstype.html - -module Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType. --- See --- 'cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType' --- for a more convenient constructor. -data CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType = - CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType - { _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsTypeEventAction :: Val Text - } deriving (Show, Eq) - -instance ToJSON CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType where - toJSON CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType{..} = - object $ - catMaybes - [ (Just . ("EventAction",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsTypeEventAction - ] - --- | Constructor for --- 'CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType' --- containing required fields as arguments. -cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType - :: Val Text -- ^ 'cuprcaccatEventAction' - -> CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType -cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType eventActionarg = - CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType - { _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsTypeEventAction = eventActionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-compromisedcredentialsactionstype.html#cfn-cognito-userpoolriskconfigurationattachment-compromisedcredentialsactionstype-eventaction -cuprcaccatEventAction :: Lens' CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType (Val Text) -cuprcaccatEventAction = lens _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsTypeEventAction (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsTypeEventAction = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType.hs b/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-compromisedcredentialsriskconfigurationtype.html - -module Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType - --- | Full data type definition for --- CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType. --- See --- 'cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType' --- for a more convenient constructor. -data CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType = - CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType - { _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationTypeActions :: CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType - , _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationTypeEventFilter :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType where - toJSON CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType{..} = - object $ - catMaybes - [ (Just . ("Actions",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationTypeActions - , fmap (("EventFilter",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationTypeEventFilter - ] - --- | Constructor for --- 'CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType' --- containing required fields as arguments. -cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType - :: CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType -- ^ 'cuprcaccrctActions' - -> CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType -cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType actionsarg = - CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType - { _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationTypeActions = actionsarg - , _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationTypeEventFilter = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-compromisedcredentialsriskconfigurationtype.html#cfn-cognito-userpoolriskconfigurationattachment-compromisedcredentialsriskconfigurationtype-actions -cuprcaccrctActions :: Lens' CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType -cuprcaccrctActions = lens _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationTypeActions (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationTypeActions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-compromisedcredentialsriskconfigurationtype.html#cfn-cognito-userpoolriskconfigurationattachment-compromisedcredentialsriskconfigurationtype-eventfilter -cuprcaccrctEventFilter :: Lens' CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType (Maybe (ValList Text)) -cuprcaccrctEventFilter = lens _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationTypeEventFilter (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationTypeEventFilter = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType.hs b/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType.hs +++ /dev/null @@ -1,77 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-notifyconfigurationtype.html - -module Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType - --- | Full data type definition for --- CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType. See --- 'cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType' for a --- more convenient constructor. -data CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType = - CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType - { _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeBlockEmail :: Maybe CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType - , _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeFrom :: Maybe (Val Text) - , _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeMfaEmail :: Maybe CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType - , _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeNoActionEmail :: Maybe CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType - , _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeReplyTo :: Maybe (Val Text) - , _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeSourceArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType where - toJSON CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType{..} = - object $ - catMaybes - [ fmap (("BlockEmail",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeBlockEmail - , fmap (("From",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeFrom - , fmap (("MfaEmail",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeMfaEmail - , fmap (("NoActionEmail",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeNoActionEmail - , fmap (("ReplyTo",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeReplyTo - , (Just . ("SourceArn",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeSourceArn - ] - --- | Constructor for --- 'CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType' --- containing required fields as arguments. -cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType - :: Val Text -- ^ 'cuprcanctSourceArn' - -> CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType -cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType sourceArnarg = - CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType - { _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeBlockEmail = Nothing - , _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeFrom = Nothing - , _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeMfaEmail = Nothing - , _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeNoActionEmail = Nothing - , _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeReplyTo = Nothing - , _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeSourceArn = sourceArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-notifyconfigurationtype.html#cfn-cognito-userpoolriskconfigurationattachment-notifyconfigurationtype-blockemail -cuprcanctBlockEmail :: Lens' CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType (Maybe CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType) -cuprcanctBlockEmail = lens _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeBlockEmail (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeBlockEmail = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-notifyconfigurationtype.html#cfn-cognito-userpoolriskconfigurationattachment-notifyconfigurationtype-from -cuprcanctFrom :: Lens' CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType (Maybe (Val Text)) -cuprcanctFrom = lens _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeFrom (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeFrom = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-notifyconfigurationtype.html#cfn-cognito-userpoolriskconfigurationattachment-notifyconfigurationtype-mfaemail -cuprcanctMfaEmail :: Lens' CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType (Maybe CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType) -cuprcanctMfaEmail = lens _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeMfaEmail (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeMfaEmail = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-notifyconfigurationtype.html#cfn-cognito-userpoolriskconfigurationattachment-notifyconfigurationtype-noactionemail -cuprcanctNoActionEmail :: Lens' CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType (Maybe CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType) -cuprcanctNoActionEmail = lens _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeNoActionEmail (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeNoActionEmail = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-notifyconfigurationtype.html#cfn-cognito-userpoolriskconfigurationattachment-notifyconfigurationtype-replyto -cuprcanctReplyTo :: Lens' CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType (Maybe (Val Text)) -cuprcanctReplyTo = lens _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeReplyTo (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeReplyTo = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-notifyconfigurationtype.html#cfn-cognito-userpoolriskconfigurationattachment-notifyconfigurationtype-sourcearn -cuprcanctSourceArn :: Lens' CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType (Val Text) -cuprcanctSourceArn = lens _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeSourceArn (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationTypeSourceArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType.hs b/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-notifyemailtype.html - -module Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType. See --- 'cognitoUserPoolRiskConfigurationAttachmentNotifyEmailType' for a more --- convenient constructor. -data CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType = - CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType - { _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeHtmlBody :: Maybe (Val Text) - , _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeSubject :: Val Text - , _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeTextBody :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType where - toJSON CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType{..} = - object $ - catMaybes - [ fmap (("HtmlBody",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeHtmlBody - , (Just . ("Subject",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeSubject - , fmap (("TextBody",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeTextBody - ] - --- | Constructor for --- 'CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType' containing --- required fields as arguments. -cognitoUserPoolRiskConfigurationAttachmentNotifyEmailType - :: Val Text -- ^ 'cuprcanetSubject' - -> CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType -cognitoUserPoolRiskConfigurationAttachmentNotifyEmailType subjectarg = - CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType - { _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeHtmlBody = Nothing - , _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeSubject = subjectarg - , _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeTextBody = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-notifyemailtype.html#cfn-cognito-userpoolriskconfigurationattachment-notifyemailtype-htmlbody -cuprcanetHtmlBody :: Lens' CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType (Maybe (Val Text)) -cuprcanetHtmlBody = lens _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeHtmlBody (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeHtmlBody = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-notifyemailtype.html#cfn-cognito-userpoolriskconfigurationattachment-notifyemailtype-subject -cuprcanetSubject :: Lens' CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType (Val Text) -cuprcanetSubject = lens _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeSubject (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeSubject = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-notifyemailtype.html#cfn-cognito-userpoolriskconfigurationattachment-notifyemailtype-textbody -cuprcanetTextBody :: Lens' CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType (Maybe (Val Text)) -cuprcanetTextBody = lens _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeTextBody (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentNotifyEmailTypeTextBody = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType.hs b/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-riskexceptionconfigurationtype.html - -module Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType. --- See --- 'cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType' --- for a more convenient constructor. -data CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType = - CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType - { _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationTypeBlockedIPRangeList :: Maybe (ValList Text) - , _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationTypeSkippedIPRangeList :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType where - toJSON CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType{..} = - object $ - catMaybes - [ fmap (("BlockedIPRangeList",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationTypeBlockedIPRangeList - , fmap (("SkippedIPRangeList",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationTypeSkippedIPRangeList - ] - --- | Constructor for --- 'CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType' --- containing required fields as arguments. -cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType - :: CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType -cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType = - CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType - { _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationTypeBlockedIPRangeList = Nothing - , _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationTypeSkippedIPRangeList = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-riskexceptionconfigurationtype.html#cfn-cognito-userpoolriskconfigurationattachment-riskexceptionconfigurationtype-blockediprangelist -cuprcarectBlockedIPRangeList :: Lens' CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType (Maybe (ValList Text)) -cuprcarectBlockedIPRangeList = lens _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationTypeBlockedIPRangeList (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationTypeBlockedIPRangeList = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpoolriskconfigurationattachment-riskexceptionconfigurationtype.html#cfn-cognito-userpoolriskconfigurationattachment-riskexceptionconfigurationtype-skippediprangelist -cuprcarectSkippedIPRangeList :: Lens' CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType (Maybe (ValList Text)) -cuprcarectSkippedIPRangeList = lens _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationTypeSkippedIPRangeList (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationTypeSkippedIPRangeList = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolSchemaAttribute.hs b/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolSchemaAttribute.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolSchemaAttribute.hs +++ /dev/null @@ -1,81 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-schemaattribute.html - -module Stratosphere.ResourceProperties.CognitoUserPoolSchemaAttribute where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CognitoUserPoolNumberAttributeConstraints -import Stratosphere.ResourceProperties.CognitoUserPoolStringAttributeConstraints - --- | Full data type definition for CognitoUserPoolSchemaAttribute. See --- 'cognitoUserPoolSchemaAttribute' for a more convenient constructor. -data CognitoUserPoolSchemaAttribute = - CognitoUserPoolSchemaAttribute - { _cognitoUserPoolSchemaAttributeAttributeDataType :: Maybe (Val Text) - , _cognitoUserPoolSchemaAttributeDeveloperOnlyAttribute :: Maybe (Val Bool) - , _cognitoUserPoolSchemaAttributeMutable :: Maybe (Val Bool) - , _cognitoUserPoolSchemaAttributeName :: Maybe (Val Text) - , _cognitoUserPoolSchemaAttributeNumberAttributeConstraints :: Maybe CognitoUserPoolNumberAttributeConstraints - , _cognitoUserPoolSchemaAttributeRequired :: Maybe (Val Bool) - , _cognitoUserPoolSchemaAttributeStringAttributeConstraints :: Maybe CognitoUserPoolStringAttributeConstraints - } deriving (Show, Eq) - -instance ToJSON CognitoUserPoolSchemaAttribute where - toJSON CognitoUserPoolSchemaAttribute{..} = - object $ - catMaybes - [ fmap (("AttributeDataType",) . toJSON) _cognitoUserPoolSchemaAttributeAttributeDataType - , fmap (("DeveloperOnlyAttribute",) . toJSON) _cognitoUserPoolSchemaAttributeDeveloperOnlyAttribute - , fmap (("Mutable",) . toJSON) _cognitoUserPoolSchemaAttributeMutable - , fmap (("Name",) . toJSON) _cognitoUserPoolSchemaAttributeName - , fmap (("NumberAttributeConstraints",) . toJSON) _cognitoUserPoolSchemaAttributeNumberAttributeConstraints - , fmap (("Required",) . toJSON) _cognitoUserPoolSchemaAttributeRequired - , fmap (("StringAttributeConstraints",) . toJSON) _cognitoUserPoolSchemaAttributeStringAttributeConstraints - ] - --- | Constructor for 'CognitoUserPoolSchemaAttribute' containing required --- fields as arguments. -cognitoUserPoolSchemaAttribute - :: CognitoUserPoolSchemaAttribute -cognitoUserPoolSchemaAttribute = - CognitoUserPoolSchemaAttribute - { _cognitoUserPoolSchemaAttributeAttributeDataType = Nothing - , _cognitoUserPoolSchemaAttributeDeveloperOnlyAttribute = Nothing - , _cognitoUserPoolSchemaAttributeMutable = Nothing - , _cognitoUserPoolSchemaAttributeName = Nothing - , _cognitoUserPoolSchemaAttributeNumberAttributeConstraints = Nothing - , _cognitoUserPoolSchemaAttributeRequired = Nothing - , _cognitoUserPoolSchemaAttributeStringAttributeConstraints = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-schemaattribute.html#cfn-cognito-userpool-schemaattribute-attributedatatype -cupsaAttributeDataType :: Lens' CognitoUserPoolSchemaAttribute (Maybe (Val Text)) -cupsaAttributeDataType = lens _cognitoUserPoolSchemaAttributeAttributeDataType (\s a -> s { _cognitoUserPoolSchemaAttributeAttributeDataType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-schemaattribute.html#cfn-cognito-userpool-schemaattribute-developeronlyattribute -cupsaDeveloperOnlyAttribute :: Lens' CognitoUserPoolSchemaAttribute (Maybe (Val Bool)) -cupsaDeveloperOnlyAttribute = lens _cognitoUserPoolSchemaAttributeDeveloperOnlyAttribute (\s a -> s { _cognitoUserPoolSchemaAttributeDeveloperOnlyAttribute = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-schemaattribute.html#cfn-cognito-userpool-schemaattribute-mutable -cupsaMutable :: Lens' CognitoUserPoolSchemaAttribute (Maybe (Val Bool)) -cupsaMutable = lens _cognitoUserPoolSchemaAttributeMutable (\s a -> s { _cognitoUserPoolSchemaAttributeMutable = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-schemaattribute.html#cfn-cognito-userpool-schemaattribute-name -cupsaName :: Lens' CognitoUserPoolSchemaAttribute (Maybe (Val Text)) -cupsaName = lens _cognitoUserPoolSchemaAttributeName (\s a -> s { _cognitoUserPoolSchemaAttributeName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-schemaattribute.html#cfn-cognito-userpool-schemaattribute-numberattributeconstraints -cupsaNumberAttributeConstraints :: Lens' CognitoUserPoolSchemaAttribute (Maybe CognitoUserPoolNumberAttributeConstraints) -cupsaNumberAttributeConstraints = lens _cognitoUserPoolSchemaAttributeNumberAttributeConstraints (\s a -> s { _cognitoUserPoolSchemaAttributeNumberAttributeConstraints = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-schemaattribute.html#cfn-cognito-userpool-schemaattribute-required -cupsaRequired :: Lens' CognitoUserPoolSchemaAttribute (Maybe (Val Bool)) -cupsaRequired = lens _cognitoUserPoolSchemaAttributeRequired (\s a -> s { _cognitoUserPoolSchemaAttributeRequired = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-schemaattribute.html#cfn-cognito-userpool-schemaattribute-stringattributeconstraints -cupsaStringAttributeConstraints :: Lens' CognitoUserPoolSchemaAttribute (Maybe CognitoUserPoolStringAttributeConstraints) -cupsaStringAttributeConstraints = lens _cognitoUserPoolSchemaAttributeStringAttributeConstraints (\s a -> s { _cognitoUserPoolSchemaAttributeStringAttributeConstraints = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolSmsConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolSmsConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolSmsConfiguration.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-smsconfiguration.html - -module Stratosphere.ResourceProperties.CognitoUserPoolSmsConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CognitoUserPoolSmsConfiguration. See --- 'cognitoUserPoolSmsConfiguration' for a more convenient constructor. -data CognitoUserPoolSmsConfiguration = - CognitoUserPoolSmsConfiguration - { _cognitoUserPoolSmsConfigurationExternalId :: Maybe (Val Text) - , _cognitoUserPoolSmsConfigurationSnsCallerArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CognitoUserPoolSmsConfiguration where - toJSON CognitoUserPoolSmsConfiguration{..} = - object $ - catMaybes - [ fmap (("ExternalId",) . toJSON) _cognitoUserPoolSmsConfigurationExternalId - , fmap (("SnsCallerArn",) . toJSON) _cognitoUserPoolSmsConfigurationSnsCallerArn - ] - --- | Constructor for 'CognitoUserPoolSmsConfiguration' containing required --- fields as arguments. -cognitoUserPoolSmsConfiguration - :: CognitoUserPoolSmsConfiguration -cognitoUserPoolSmsConfiguration = - CognitoUserPoolSmsConfiguration - { _cognitoUserPoolSmsConfigurationExternalId = Nothing - , _cognitoUserPoolSmsConfigurationSnsCallerArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-smsconfiguration.html#cfn-cognito-userpool-smsconfiguration-externalid -cupscExternalId :: Lens' CognitoUserPoolSmsConfiguration (Maybe (Val Text)) -cupscExternalId = lens _cognitoUserPoolSmsConfigurationExternalId (\s a -> s { _cognitoUserPoolSmsConfigurationExternalId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-smsconfiguration.html#cfn-cognito-userpool-smsconfiguration-snscallerarn -cupscSnsCallerArn :: Lens' CognitoUserPoolSmsConfiguration (Maybe (Val Text)) -cupscSnsCallerArn = lens _cognitoUserPoolSmsConfigurationSnsCallerArn (\s a -> s { _cognitoUserPoolSmsConfigurationSnsCallerArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolStringAttributeConstraints.hs b/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolStringAttributeConstraints.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolStringAttributeConstraints.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-stringattributeconstraints.html - -module Stratosphere.ResourceProperties.CognitoUserPoolStringAttributeConstraints where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CognitoUserPoolStringAttributeConstraints. --- See 'cognitoUserPoolStringAttributeConstraints' for a more convenient --- constructor. -data CognitoUserPoolStringAttributeConstraints = - CognitoUserPoolStringAttributeConstraints - { _cognitoUserPoolStringAttributeConstraintsMaxLength :: Maybe (Val Text) - , _cognitoUserPoolStringAttributeConstraintsMinLength :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CognitoUserPoolStringAttributeConstraints where - toJSON CognitoUserPoolStringAttributeConstraints{..} = - object $ - catMaybes - [ fmap (("MaxLength",) . toJSON) _cognitoUserPoolStringAttributeConstraintsMaxLength - , fmap (("MinLength",) . toJSON) _cognitoUserPoolStringAttributeConstraintsMinLength - ] - --- | Constructor for 'CognitoUserPoolStringAttributeConstraints' containing --- required fields as arguments. -cognitoUserPoolStringAttributeConstraints - :: CognitoUserPoolStringAttributeConstraints -cognitoUserPoolStringAttributeConstraints = - CognitoUserPoolStringAttributeConstraints - { _cognitoUserPoolStringAttributeConstraintsMaxLength = Nothing - , _cognitoUserPoolStringAttributeConstraintsMinLength = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-stringattributeconstraints.html#cfn-cognito-userpool-stringattributeconstraints-maxlength -cupsacMaxLength :: Lens' CognitoUserPoolStringAttributeConstraints (Maybe (Val Text)) -cupsacMaxLength = lens _cognitoUserPoolStringAttributeConstraintsMaxLength (\s a -> s { _cognitoUserPoolStringAttributeConstraintsMaxLength = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-stringattributeconstraints.html#cfn-cognito-userpool-stringattributeconstraints-minlength -cupsacMinLength :: Lens' CognitoUserPoolStringAttributeConstraints (Maybe (Val Text)) -cupsacMinLength = lens _cognitoUserPoolStringAttributeConstraintsMinLength (\s a -> s { _cognitoUserPoolStringAttributeConstraintsMinLength = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolUserAttributeType.hs b/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolUserAttributeType.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolUserAttributeType.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpooluser-attributetype.html - -module Stratosphere.ResourceProperties.CognitoUserPoolUserAttributeType where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CognitoUserPoolUserAttributeType. See --- 'cognitoUserPoolUserAttributeType' for a more convenient constructor. -data CognitoUserPoolUserAttributeType = - CognitoUserPoolUserAttributeType - { _cognitoUserPoolUserAttributeTypeName :: Maybe (Val Text) - , _cognitoUserPoolUserAttributeTypeValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CognitoUserPoolUserAttributeType where - toJSON CognitoUserPoolUserAttributeType{..} = - object $ - catMaybes - [ fmap (("Name",) . toJSON) _cognitoUserPoolUserAttributeTypeName - , fmap (("Value",) . toJSON) _cognitoUserPoolUserAttributeTypeValue - ] - --- | Constructor for 'CognitoUserPoolUserAttributeType' containing required --- fields as arguments. -cognitoUserPoolUserAttributeType - :: CognitoUserPoolUserAttributeType -cognitoUserPoolUserAttributeType = - CognitoUserPoolUserAttributeType - { _cognitoUserPoolUserAttributeTypeName = Nothing - , _cognitoUserPoolUserAttributeTypeValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpooluser-attributetype.html#cfn-cognito-userpooluser-attributetype-name -cupuatName :: Lens' CognitoUserPoolUserAttributeType (Maybe (Val Text)) -cupuatName = lens _cognitoUserPoolUserAttributeTypeName (\s a -> s { _cognitoUserPoolUserAttributeTypeName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpooluser-attributetype.html#cfn-cognito-userpooluser-attributetype-value -cupuatValue :: Lens' CognitoUserPoolUserAttributeType (Maybe (Val Text)) -cupuatValue = lens _cognitoUserPoolUserAttributeTypeValue (\s a -> s { _cognitoUserPoolUserAttributeTypeValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolUserPoolAddOns.hs b/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolUserPoolAddOns.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolUserPoolAddOns.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-userpooladdons.html - -module Stratosphere.ResourceProperties.CognitoUserPoolUserPoolAddOns where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CognitoUserPoolUserPoolAddOns. See --- 'cognitoUserPoolUserPoolAddOns' for a more convenient constructor. -data CognitoUserPoolUserPoolAddOns = - CognitoUserPoolUserPoolAddOns - { _cognitoUserPoolUserPoolAddOnsAdvancedSecurityMode :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CognitoUserPoolUserPoolAddOns where - toJSON CognitoUserPoolUserPoolAddOns{..} = - object $ - catMaybes - [ fmap (("AdvancedSecurityMode",) . toJSON) _cognitoUserPoolUserPoolAddOnsAdvancedSecurityMode - ] - --- | Constructor for 'CognitoUserPoolUserPoolAddOns' containing required --- fields as arguments. -cognitoUserPoolUserPoolAddOns - :: CognitoUserPoolUserPoolAddOns -cognitoUserPoolUserPoolAddOns = - CognitoUserPoolUserPoolAddOns - { _cognitoUserPoolUserPoolAddOnsAdvancedSecurityMode = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-userpooladdons.html#cfn-cognito-userpool-userpooladdons-advancedsecuritymode -cupupaoAdvancedSecurityMode :: Lens' CognitoUserPoolUserPoolAddOns (Maybe (Val Text)) -cupupaoAdvancedSecurityMode = lens _cognitoUserPoolUserPoolAddOnsAdvancedSecurityMode (\s a -> s { _cognitoUserPoolUserPoolAddOnsAdvancedSecurityMode = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolUsernameConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolUsernameConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolUsernameConfiguration.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-usernameconfiguration.html - -module Stratosphere.ResourceProperties.CognitoUserPoolUsernameConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CognitoUserPoolUsernameConfiguration. See --- 'cognitoUserPoolUsernameConfiguration' for a more convenient constructor. -data CognitoUserPoolUsernameConfiguration = - CognitoUserPoolUsernameConfiguration - { _cognitoUserPoolUsernameConfigurationCaseSensitive :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON CognitoUserPoolUsernameConfiguration where - toJSON CognitoUserPoolUsernameConfiguration{..} = - object $ - catMaybes - [ fmap (("CaseSensitive",) . toJSON) _cognitoUserPoolUsernameConfigurationCaseSensitive - ] - --- | Constructor for 'CognitoUserPoolUsernameConfiguration' containing --- required fields as arguments. -cognitoUserPoolUsernameConfiguration - :: CognitoUserPoolUsernameConfiguration -cognitoUserPoolUsernameConfiguration = - CognitoUserPoolUsernameConfiguration - { _cognitoUserPoolUsernameConfigurationCaseSensitive = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-usernameconfiguration.html#cfn-cognito-userpool-usernameconfiguration-casesensitive -cupucCaseSensitive :: Lens' CognitoUserPoolUsernameConfiguration (Maybe (Val Bool)) -cupucCaseSensitive = lens _cognitoUserPoolUsernameConfigurationCaseSensitive (\s a -> s { _cognitoUserPoolUsernameConfigurationCaseSensitive = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolVerificationMessageTemplate.hs b/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolVerificationMessageTemplate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/CognitoUserPoolVerificationMessageTemplate.hs +++ /dev/null @@ -1,74 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-verificationmessagetemplate.html - -module Stratosphere.ResourceProperties.CognitoUserPoolVerificationMessageTemplate where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CognitoUserPoolVerificationMessageTemplate. --- See 'cognitoUserPoolVerificationMessageTemplate' for a more convenient --- constructor. -data CognitoUserPoolVerificationMessageTemplate = - CognitoUserPoolVerificationMessageTemplate - { _cognitoUserPoolVerificationMessageTemplateDefaultEmailOption :: Maybe (Val Text) - , _cognitoUserPoolVerificationMessageTemplateEmailMessage :: Maybe (Val Text) - , _cognitoUserPoolVerificationMessageTemplateEmailMessageByLink :: Maybe (Val Text) - , _cognitoUserPoolVerificationMessageTemplateEmailSubject :: Maybe (Val Text) - , _cognitoUserPoolVerificationMessageTemplateEmailSubjectByLink :: Maybe (Val Text) - , _cognitoUserPoolVerificationMessageTemplateSmsMessage :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON CognitoUserPoolVerificationMessageTemplate where - toJSON CognitoUserPoolVerificationMessageTemplate{..} = - object $ - catMaybes - [ fmap (("DefaultEmailOption",) . toJSON) _cognitoUserPoolVerificationMessageTemplateDefaultEmailOption - , fmap (("EmailMessage",) . toJSON) _cognitoUserPoolVerificationMessageTemplateEmailMessage - , fmap (("EmailMessageByLink",) . toJSON) _cognitoUserPoolVerificationMessageTemplateEmailMessageByLink - , fmap (("EmailSubject",) . toJSON) _cognitoUserPoolVerificationMessageTemplateEmailSubject - , fmap (("EmailSubjectByLink",) . toJSON) _cognitoUserPoolVerificationMessageTemplateEmailSubjectByLink - , fmap (("SmsMessage",) . toJSON) _cognitoUserPoolVerificationMessageTemplateSmsMessage - ] - --- | Constructor for 'CognitoUserPoolVerificationMessageTemplate' containing --- required fields as arguments. -cognitoUserPoolVerificationMessageTemplate - :: CognitoUserPoolVerificationMessageTemplate -cognitoUserPoolVerificationMessageTemplate = - CognitoUserPoolVerificationMessageTemplate - { _cognitoUserPoolVerificationMessageTemplateDefaultEmailOption = Nothing - , _cognitoUserPoolVerificationMessageTemplateEmailMessage = Nothing - , _cognitoUserPoolVerificationMessageTemplateEmailMessageByLink = Nothing - , _cognitoUserPoolVerificationMessageTemplateEmailSubject = Nothing - , _cognitoUserPoolVerificationMessageTemplateEmailSubjectByLink = Nothing - , _cognitoUserPoolVerificationMessageTemplateSmsMessage = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-verificationmessagetemplate.html#cfn-cognito-userpool-verificationmessagetemplate-defaultemailoption -cupvmtDefaultEmailOption :: Lens' CognitoUserPoolVerificationMessageTemplate (Maybe (Val Text)) -cupvmtDefaultEmailOption = lens _cognitoUserPoolVerificationMessageTemplateDefaultEmailOption (\s a -> s { _cognitoUserPoolVerificationMessageTemplateDefaultEmailOption = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-verificationmessagetemplate.html#cfn-cognito-userpool-verificationmessagetemplate-emailmessage -cupvmtEmailMessage :: Lens' CognitoUserPoolVerificationMessageTemplate (Maybe (Val Text)) -cupvmtEmailMessage = lens _cognitoUserPoolVerificationMessageTemplateEmailMessage (\s a -> s { _cognitoUserPoolVerificationMessageTemplateEmailMessage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-verificationmessagetemplate.html#cfn-cognito-userpool-verificationmessagetemplate-emailmessagebylink -cupvmtEmailMessageByLink :: Lens' CognitoUserPoolVerificationMessageTemplate (Maybe (Val Text)) -cupvmtEmailMessageByLink = lens _cognitoUserPoolVerificationMessageTemplateEmailMessageByLink (\s a -> s { _cognitoUserPoolVerificationMessageTemplateEmailMessageByLink = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-verificationmessagetemplate.html#cfn-cognito-userpool-verificationmessagetemplate-emailsubject -cupvmtEmailSubject :: Lens' CognitoUserPoolVerificationMessageTemplate (Maybe (Val Text)) -cupvmtEmailSubject = lens _cognitoUserPoolVerificationMessageTemplateEmailSubject (\s a -> s { _cognitoUserPoolVerificationMessageTemplateEmailSubject = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-verificationmessagetemplate.html#cfn-cognito-userpool-verificationmessagetemplate-emailsubjectbylink -cupvmtEmailSubjectByLink :: Lens' CognitoUserPoolVerificationMessageTemplate (Maybe (Val Text)) -cupvmtEmailSubjectByLink = lens _cognitoUserPoolVerificationMessageTemplateEmailSubjectByLink (\s a -> s { _cognitoUserPoolVerificationMessageTemplateEmailSubjectByLink = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cognito-userpool-verificationmessagetemplate.html#cfn-cognito-userpool-verificationmessagetemplate-smsmessage -cupvmtSmsMessage :: Lens' CognitoUserPoolVerificationMessageTemplate (Maybe (Val Text)) -cupvmtSmsMessage = lens _cognitoUserPoolVerificationMessageTemplateSmsMessage (\s a -> s { _cognitoUserPoolVerificationMessageTemplateSmsMessage = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ConfigConfigRuleScope.hs b/library-gen/Stratosphere/ResourceProperties/ConfigConfigRuleScope.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ConfigConfigRuleScope.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configrule-scope.html - -module Stratosphere.ResourceProperties.ConfigConfigRuleScope where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ConfigConfigRuleScope. See --- 'configConfigRuleScope' for a more convenient constructor. -data ConfigConfigRuleScope = - ConfigConfigRuleScope - { _configConfigRuleScopeComplianceResourceId :: Maybe (Val Text) - , _configConfigRuleScopeComplianceResourceTypes :: Maybe (ValList Text) - , _configConfigRuleScopeTagKey :: Maybe (Val Text) - , _configConfigRuleScopeTagValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ConfigConfigRuleScope where - toJSON ConfigConfigRuleScope{..} = - object $ - catMaybes - [ fmap (("ComplianceResourceId",) . toJSON) _configConfigRuleScopeComplianceResourceId - , fmap (("ComplianceResourceTypes",) . toJSON) _configConfigRuleScopeComplianceResourceTypes - , fmap (("TagKey",) . toJSON) _configConfigRuleScopeTagKey - , fmap (("TagValue",) . toJSON) _configConfigRuleScopeTagValue - ] - --- | Constructor for 'ConfigConfigRuleScope' containing required fields as --- arguments. -configConfigRuleScope - :: ConfigConfigRuleScope -configConfigRuleScope = - ConfigConfigRuleScope - { _configConfigRuleScopeComplianceResourceId = Nothing - , _configConfigRuleScopeComplianceResourceTypes = Nothing - , _configConfigRuleScopeTagKey = Nothing - , _configConfigRuleScopeTagValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configrule-scope.html#cfn-config-configrule-scope-complianceresourceid -ccrsComplianceResourceId :: Lens' ConfigConfigRuleScope (Maybe (Val Text)) -ccrsComplianceResourceId = lens _configConfigRuleScopeComplianceResourceId (\s a -> s { _configConfigRuleScopeComplianceResourceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configrule-scope.html#cfn-config-configrule-scope-complianceresourcetypes -ccrsComplianceResourceTypes :: Lens' ConfigConfigRuleScope (Maybe (ValList Text)) -ccrsComplianceResourceTypes = lens _configConfigRuleScopeComplianceResourceTypes (\s a -> s { _configConfigRuleScopeComplianceResourceTypes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configrule-scope.html#cfn-config-configrule-scope-tagkey -ccrsTagKey :: Lens' ConfigConfigRuleScope (Maybe (Val Text)) -ccrsTagKey = lens _configConfigRuleScopeTagKey (\s a -> s { _configConfigRuleScopeTagKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configrule-scope.html#cfn-config-configrule-scope-tagvalue -ccrsTagValue :: Lens' ConfigConfigRuleScope (Maybe (Val Text)) -ccrsTagValue = lens _configConfigRuleScopeTagValue (\s a -> s { _configConfigRuleScopeTagValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ConfigConfigRuleSource.hs b/library-gen/Stratosphere/ResourceProperties/ConfigConfigRuleSource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ConfigConfigRuleSource.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configrule-source.html - -module Stratosphere.ResourceProperties.ConfigConfigRuleSource where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ConfigConfigRuleSourceDetail - --- | Full data type definition for ConfigConfigRuleSource. See --- 'configConfigRuleSource' for a more convenient constructor. -data ConfigConfigRuleSource = - ConfigConfigRuleSource - { _configConfigRuleSourceOwner :: Val Text - , _configConfigRuleSourceSourceDetails :: Maybe [ConfigConfigRuleSourceDetail] - , _configConfigRuleSourceSourceIdentifier :: Val Text - } deriving (Show, Eq) - -instance ToJSON ConfigConfigRuleSource where - toJSON ConfigConfigRuleSource{..} = - object $ - catMaybes - [ (Just . ("Owner",) . toJSON) _configConfigRuleSourceOwner - , fmap (("SourceDetails",) . toJSON) _configConfigRuleSourceSourceDetails - , (Just . ("SourceIdentifier",) . toJSON) _configConfigRuleSourceSourceIdentifier - ] - --- | Constructor for 'ConfigConfigRuleSource' containing required fields as --- arguments. -configConfigRuleSource - :: Val Text -- ^ 'ccrsOwner' - -> Val Text -- ^ 'ccrsSourceIdentifier' - -> ConfigConfigRuleSource -configConfigRuleSource ownerarg sourceIdentifierarg = - ConfigConfigRuleSource - { _configConfigRuleSourceOwner = ownerarg - , _configConfigRuleSourceSourceDetails = Nothing - , _configConfigRuleSourceSourceIdentifier = sourceIdentifierarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configrule-source.html#cfn-config-configrule-source-owner -ccrsOwner :: Lens' ConfigConfigRuleSource (Val Text) -ccrsOwner = lens _configConfigRuleSourceOwner (\s a -> s { _configConfigRuleSourceOwner = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configrule-source.html#cfn-config-configrule-source-sourcedetails -ccrsSourceDetails :: Lens' ConfigConfigRuleSource (Maybe [ConfigConfigRuleSourceDetail]) -ccrsSourceDetails = lens _configConfigRuleSourceSourceDetails (\s a -> s { _configConfigRuleSourceSourceDetails = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configrule-source.html#cfn-config-configrule-source-sourceidentifier -ccrsSourceIdentifier :: Lens' ConfigConfigRuleSource (Val Text) -ccrsSourceIdentifier = lens _configConfigRuleSourceSourceIdentifier (\s a -> s { _configConfigRuleSourceSourceIdentifier = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ConfigConfigRuleSourceDetail.hs b/library-gen/Stratosphere/ResourceProperties/ConfigConfigRuleSourceDetail.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ConfigConfigRuleSourceDetail.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configrule-source-sourcedetails.html - -module Stratosphere.ResourceProperties.ConfigConfigRuleSourceDetail where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ConfigConfigRuleSourceDetail. See --- 'configConfigRuleSourceDetail' for a more convenient constructor. -data ConfigConfigRuleSourceDetail = - ConfigConfigRuleSourceDetail - { _configConfigRuleSourceDetailEventSource :: Val Text - , _configConfigRuleSourceDetailMaximumExecutionFrequency :: Maybe (Val Text) - , _configConfigRuleSourceDetailMessageType :: Val Text - } deriving (Show, Eq) - -instance ToJSON ConfigConfigRuleSourceDetail where - toJSON ConfigConfigRuleSourceDetail{..} = - object $ - catMaybes - [ (Just . ("EventSource",) . toJSON) _configConfigRuleSourceDetailEventSource - , fmap (("MaximumExecutionFrequency",) . toJSON) _configConfigRuleSourceDetailMaximumExecutionFrequency - , (Just . ("MessageType",) . toJSON) _configConfigRuleSourceDetailMessageType - ] - --- | Constructor for 'ConfigConfigRuleSourceDetail' containing required fields --- as arguments. -configConfigRuleSourceDetail - :: Val Text -- ^ 'ccrsdEventSource' - -> Val Text -- ^ 'ccrsdMessageType' - -> ConfigConfigRuleSourceDetail -configConfigRuleSourceDetail eventSourcearg messageTypearg = - ConfigConfigRuleSourceDetail - { _configConfigRuleSourceDetailEventSource = eventSourcearg - , _configConfigRuleSourceDetailMaximumExecutionFrequency = Nothing - , _configConfigRuleSourceDetailMessageType = messageTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configrule-source-sourcedetails.html#cfn-config-configrule-source-sourcedetail-eventsource -ccrsdEventSource :: Lens' ConfigConfigRuleSourceDetail (Val Text) -ccrsdEventSource = lens _configConfigRuleSourceDetailEventSource (\s a -> s { _configConfigRuleSourceDetailEventSource = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configrule-source-sourcedetails.html#cfn-config-configrule-sourcedetail-maximumexecutionfrequency -ccrsdMaximumExecutionFrequency :: Lens' ConfigConfigRuleSourceDetail (Maybe (Val Text)) -ccrsdMaximumExecutionFrequency = lens _configConfigRuleSourceDetailMaximumExecutionFrequency (\s a -> s { _configConfigRuleSourceDetailMaximumExecutionFrequency = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configrule-source-sourcedetails.html#cfn-config-configrule-source-sourcedetail-messagetype -ccrsdMessageType :: Lens' ConfigConfigRuleSourceDetail (Val Text) -ccrsdMessageType = lens _configConfigRuleSourceDetailMessageType (\s a -> s { _configConfigRuleSourceDetailMessageType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ConfigConfigurationAggregatorAccountAggregationSource.hs b/library-gen/Stratosphere/ResourceProperties/ConfigConfigurationAggregatorAccountAggregationSource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ConfigConfigurationAggregatorAccountAggregationSource.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configurationaggregator-accountaggregationsource.html - -module Stratosphere.ResourceProperties.ConfigConfigurationAggregatorAccountAggregationSource where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ConfigConfigurationAggregatorAccountAggregationSource. See --- 'configConfigurationAggregatorAccountAggregationSource' for a more --- convenient constructor. -data ConfigConfigurationAggregatorAccountAggregationSource = - ConfigConfigurationAggregatorAccountAggregationSource - { _configConfigurationAggregatorAccountAggregationSourceAccountIds :: ValList Text - , _configConfigurationAggregatorAccountAggregationSourceAllAwsRegions :: Maybe (Val Bool) - , _configConfigurationAggregatorAccountAggregationSourceAwsRegions :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON ConfigConfigurationAggregatorAccountAggregationSource where - toJSON ConfigConfigurationAggregatorAccountAggregationSource{..} = - object $ - catMaybes - [ (Just . ("AccountIds",) . toJSON) _configConfigurationAggregatorAccountAggregationSourceAccountIds - , fmap (("AllAwsRegions",) . toJSON) _configConfigurationAggregatorAccountAggregationSourceAllAwsRegions - , fmap (("AwsRegions",) . toJSON) _configConfigurationAggregatorAccountAggregationSourceAwsRegions - ] - --- | Constructor for 'ConfigConfigurationAggregatorAccountAggregationSource' --- containing required fields as arguments. -configConfigurationAggregatorAccountAggregationSource - :: ValList Text -- ^ 'ccaaasAccountIds' - -> ConfigConfigurationAggregatorAccountAggregationSource -configConfigurationAggregatorAccountAggregationSource accountIdsarg = - ConfigConfigurationAggregatorAccountAggregationSource - { _configConfigurationAggregatorAccountAggregationSourceAccountIds = accountIdsarg - , _configConfigurationAggregatorAccountAggregationSourceAllAwsRegions = Nothing - , _configConfigurationAggregatorAccountAggregationSourceAwsRegions = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configurationaggregator-accountaggregationsource.html#cfn-config-configurationaggregator-accountaggregationsource-accountids -ccaaasAccountIds :: Lens' ConfigConfigurationAggregatorAccountAggregationSource (ValList Text) -ccaaasAccountIds = lens _configConfigurationAggregatorAccountAggregationSourceAccountIds (\s a -> s { _configConfigurationAggregatorAccountAggregationSourceAccountIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configurationaggregator-accountaggregationsource.html#cfn-config-configurationaggregator-accountaggregationsource-allawsregions -ccaaasAllAwsRegions :: Lens' ConfigConfigurationAggregatorAccountAggregationSource (Maybe (Val Bool)) -ccaaasAllAwsRegions = lens _configConfigurationAggregatorAccountAggregationSourceAllAwsRegions (\s a -> s { _configConfigurationAggregatorAccountAggregationSourceAllAwsRegions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configurationaggregator-accountaggregationsource.html#cfn-config-configurationaggregator-accountaggregationsource-awsregions -ccaaasAwsRegions :: Lens' ConfigConfigurationAggregatorAccountAggregationSource (Maybe (ValList Text)) -ccaaasAwsRegions = lens _configConfigurationAggregatorAccountAggregationSourceAwsRegions (\s a -> s { _configConfigurationAggregatorAccountAggregationSourceAwsRegions = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ConfigConfigurationAggregatorOrganizationAggregationSource.hs b/library-gen/Stratosphere/ResourceProperties/ConfigConfigurationAggregatorOrganizationAggregationSource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ConfigConfigurationAggregatorOrganizationAggregationSource.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configurationaggregator-organizationaggregationsource.html - -module Stratosphere.ResourceProperties.ConfigConfigurationAggregatorOrganizationAggregationSource where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ConfigConfigurationAggregatorOrganizationAggregationSource. See --- 'configConfigurationAggregatorOrganizationAggregationSource' for a more --- convenient constructor. -data ConfigConfigurationAggregatorOrganizationAggregationSource = - ConfigConfigurationAggregatorOrganizationAggregationSource - { _configConfigurationAggregatorOrganizationAggregationSourceAllAwsRegions :: Maybe (Val Bool) - , _configConfigurationAggregatorOrganizationAggregationSourceAwsRegions :: Maybe (ValList Text) - , _configConfigurationAggregatorOrganizationAggregationSourceRoleArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON ConfigConfigurationAggregatorOrganizationAggregationSource where - toJSON ConfigConfigurationAggregatorOrganizationAggregationSource{..} = - object $ - catMaybes - [ fmap (("AllAwsRegions",) . toJSON) _configConfigurationAggregatorOrganizationAggregationSourceAllAwsRegions - , fmap (("AwsRegions",) . toJSON) _configConfigurationAggregatorOrganizationAggregationSourceAwsRegions - , (Just . ("RoleArn",) . toJSON) _configConfigurationAggregatorOrganizationAggregationSourceRoleArn - ] - --- | Constructor for --- 'ConfigConfigurationAggregatorOrganizationAggregationSource' containing --- required fields as arguments. -configConfigurationAggregatorOrganizationAggregationSource - :: Val Text -- ^ 'ccaoasRoleArn' - -> ConfigConfigurationAggregatorOrganizationAggregationSource -configConfigurationAggregatorOrganizationAggregationSource roleArnarg = - ConfigConfigurationAggregatorOrganizationAggregationSource - { _configConfigurationAggregatorOrganizationAggregationSourceAllAwsRegions = Nothing - , _configConfigurationAggregatorOrganizationAggregationSourceAwsRegions = Nothing - , _configConfigurationAggregatorOrganizationAggregationSourceRoleArn = roleArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configurationaggregator-organizationaggregationsource.html#cfn-config-configurationaggregator-organizationaggregationsource-allawsregions -ccaoasAllAwsRegions :: Lens' ConfigConfigurationAggregatorOrganizationAggregationSource (Maybe (Val Bool)) -ccaoasAllAwsRegions = lens _configConfigurationAggregatorOrganizationAggregationSourceAllAwsRegions (\s a -> s { _configConfigurationAggregatorOrganizationAggregationSourceAllAwsRegions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configurationaggregator-organizationaggregationsource.html#cfn-config-configurationaggregator-organizationaggregationsource-awsregions -ccaoasAwsRegions :: Lens' ConfigConfigurationAggregatorOrganizationAggregationSource (Maybe (ValList Text)) -ccaoasAwsRegions = lens _configConfigurationAggregatorOrganizationAggregationSourceAwsRegions (\s a -> s { _configConfigurationAggregatorOrganizationAggregationSourceAwsRegions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configurationaggregator-organizationaggregationsource.html#cfn-config-configurationaggregator-organizationaggregationsource-rolearn -ccaoasRoleArn :: Lens' ConfigConfigurationAggregatorOrganizationAggregationSource (Val Text) -ccaoasRoleArn = lens _configConfigurationAggregatorOrganizationAggregationSourceRoleArn (\s a -> s { _configConfigurationAggregatorOrganizationAggregationSourceRoleArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ConfigConfigurationRecorderRecordingGroup.hs b/library-gen/Stratosphere/ResourceProperties/ConfigConfigurationRecorderRecordingGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ConfigConfigurationRecorderRecordingGroup.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configurationrecorder-recordinggroup.html - -module Stratosphere.ResourceProperties.ConfigConfigurationRecorderRecordingGroup where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ConfigConfigurationRecorderRecordingGroup. --- See 'configConfigurationRecorderRecordingGroup' for a more convenient --- constructor. -data ConfigConfigurationRecorderRecordingGroup = - ConfigConfigurationRecorderRecordingGroup - { _configConfigurationRecorderRecordingGroupAllSupported :: Maybe (Val Bool) - , _configConfigurationRecorderRecordingGroupIncludeGlobalResourceTypes :: Maybe (Val Bool) - , _configConfigurationRecorderRecordingGroupResourceTypes :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON ConfigConfigurationRecorderRecordingGroup where - toJSON ConfigConfigurationRecorderRecordingGroup{..} = - object $ - catMaybes - [ fmap (("AllSupported",) . toJSON) _configConfigurationRecorderRecordingGroupAllSupported - , fmap (("IncludeGlobalResourceTypes",) . toJSON) _configConfigurationRecorderRecordingGroupIncludeGlobalResourceTypes - , fmap (("ResourceTypes",) . toJSON) _configConfigurationRecorderRecordingGroupResourceTypes - ] - --- | Constructor for 'ConfigConfigurationRecorderRecordingGroup' containing --- required fields as arguments. -configConfigurationRecorderRecordingGroup - :: ConfigConfigurationRecorderRecordingGroup -configConfigurationRecorderRecordingGroup = - ConfigConfigurationRecorderRecordingGroup - { _configConfigurationRecorderRecordingGroupAllSupported = Nothing - , _configConfigurationRecorderRecordingGroupIncludeGlobalResourceTypes = Nothing - , _configConfigurationRecorderRecordingGroupResourceTypes = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configurationrecorder-recordinggroup.html#cfn-config-configurationrecorder-recordinggroup-allsupported -ccrrgAllSupported :: Lens' ConfigConfigurationRecorderRecordingGroup (Maybe (Val Bool)) -ccrrgAllSupported = lens _configConfigurationRecorderRecordingGroupAllSupported (\s a -> s { _configConfigurationRecorderRecordingGroupAllSupported = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configurationrecorder-recordinggroup.html#cfn-config-configurationrecorder-recordinggroup-includeglobalresourcetypes -ccrrgIncludeGlobalResourceTypes :: Lens' ConfigConfigurationRecorderRecordingGroup (Maybe (Val Bool)) -ccrrgIncludeGlobalResourceTypes = lens _configConfigurationRecorderRecordingGroupIncludeGlobalResourceTypes (\s a -> s { _configConfigurationRecorderRecordingGroupIncludeGlobalResourceTypes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-configurationrecorder-recordinggroup.html#cfn-config-configurationrecorder-recordinggroup-resourcetypes -ccrrgResourceTypes :: Lens' ConfigConfigurationRecorderRecordingGroup (Maybe (ValList Text)) -ccrrgResourceTypes = lens _configConfigurationRecorderRecordingGroupResourceTypes (\s a -> s { _configConfigurationRecorderRecordingGroupResourceTypes = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ConfigConformancePackConformancePackInputParameter.hs b/library-gen/Stratosphere/ResourceProperties/ConfigConformancePackConformancePackInputParameter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ConfigConformancePackConformancePackInputParameter.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-conformancepack-conformancepackinputparameter.html - -module Stratosphere.ResourceProperties.ConfigConformancePackConformancePackInputParameter where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ConfigConformancePackConformancePackInputParameter. See --- 'configConformancePackConformancePackInputParameter' for a more --- convenient constructor. -data ConfigConformancePackConformancePackInputParameter = - ConfigConformancePackConformancePackInputParameter - { _configConformancePackConformancePackInputParameterParameterName :: Val Text - , _configConformancePackConformancePackInputParameterParameterValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON ConfigConformancePackConformancePackInputParameter where - toJSON ConfigConformancePackConformancePackInputParameter{..} = - object $ - catMaybes - [ (Just . ("ParameterName",) . toJSON) _configConformancePackConformancePackInputParameterParameterName - , (Just . ("ParameterValue",) . toJSON) _configConformancePackConformancePackInputParameterParameterValue - ] - --- | Constructor for 'ConfigConformancePackConformancePackInputParameter' --- containing required fields as arguments. -configConformancePackConformancePackInputParameter - :: Val Text -- ^ 'ccpcpipParameterName' - -> Val Text -- ^ 'ccpcpipParameterValue' - -> ConfigConformancePackConformancePackInputParameter -configConformancePackConformancePackInputParameter parameterNamearg parameterValuearg = - ConfigConformancePackConformancePackInputParameter - { _configConformancePackConformancePackInputParameterParameterName = parameterNamearg - , _configConformancePackConformancePackInputParameterParameterValue = parameterValuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-conformancepack-conformancepackinputparameter.html#cfn-config-conformancepack-conformancepackinputparameter-parametername -ccpcpipParameterName :: Lens' ConfigConformancePackConformancePackInputParameter (Val Text) -ccpcpipParameterName = lens _configConformancePackConformancePackInputParameterParameterName (\s a -> s { _configConformancePackConformancePackInputParameterParameterName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-conformancepack-conformancepackinputparameter.html#cfn-config-conformancepack-conformancepackinputparameter-parametervalue -ccpcpipParameterValue :: Lens' ConfigConformancePackConformancePackInputParameter (Val Text) -ccpcpipParameterValue = lens _configConformancePackConformancePackInputParameterParameterValue (\s a -> s { _configConformancePackConformancePackInputParameterParameterValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ConfigDeliveryChannelConfigSnapshotDeliveryProperties.hs b/library-gen/Stratosphere/ResourceProperties/ConfigDeliveryChannelConfigSnapshotDeliveryProperties.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ConfigDeliveryChannelConfigSnapshotDeliveryProperties.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-deliverychannel-configsnapshotdeliveryproperties.html - -module Stratosphere.ResourceProperties.ConfigDeliveryChannelConfigSnapshotDeliveryProperties where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ConfigDeliveryChannelConfigSnapshotDeliveryProperties. See --- 'configDeliveryChannelConfigSnapshotDeliveryProperties' for a more --- convenient constructor. -data ConfigDeliveryChannelConfigSnapshotDeliveryProperties = - ConfigDeliveryChannelConfigSnapshotDeliveryProperties - { _configDeliveryChannelConfigSnapshotDeliveryPropertiesDeliveryFrequency :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ConfigDeliveryChannelConfigSnapshotDeliveryProperties where - toJSON ConfigDeliveryChannelConfigSnapshotDeliveryProperties{..} = - object $ - catMaybes - [ fmap (("DeliveryFrequency",) . toJSON) _configDeliveryChannelConfigSnapshotDeliveryPropertiesDeliveryFrequency - ] - --- | Constructor for 'ConfigDeliveryChannelConfigSnapshotDeliveryProperties' --- containing required fields as arguments. -configDeliveryChannelConfigSnapshotDeliveryProperties - :: ConfigDeliveryChannelConfigSnapshotDeliveryProperties -configDeliveryChannelConfigSnapshotDeliveryProperties = - ConfigDeliveryChannelConfigSnapshotDeliveryProperties - { _configDeliveryChannelConfigSnapshotDeliveryPropertiesDeliveryFrequency = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-deliverychannel-configsnapshotdeliveryproperties.html#cfn-config-deliverychannel-configsnapshotdeliveryproperties-deliveryfrequency -cdccsdpDeliveryFrequency :: Lens' ConfigDeliveryChannelConfigSnapshotDeliveryProperties (Maybe (Val Text)) -cdccsdpDeliveryFrequency = lens _configDeliveryChannelConfigSnapshotDeliveryPropertiesDeliveryFrequency (\s a -> s { _configDeliveryChannelConfigSnapshotDeliveryPropertiesDeliveryFrequency = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata.hs b/library-gen/Stratosphere/ResourceProperties/ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata.hs +++ /dev/null @@ -1,99 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationcustomrulemetadata.html - -module Stratosphere.ResourceProperties.ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata. See --- 'configOrganizationConfigRuleOrganizationCustomRuleMetadata' for a more --- convenient constructor. -data ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata = - ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata - { _configOrganizationConfigRuleOrganizationCustomRuleMetadataDescription :: Maybe (Val Text) - , _configOrganizationConfigRuleOrganizationCustomRuleMetadataInputParameters :: Maybe (Val Text) - , _configOrganizationConfigRuleOrganizationCustomRuleMetadataLambdaFunctionArn :: Val Text - , _configOrganizationConfigRuleOrganizationCustomRuleMetadataMaximumExecutionFrequency :: Maybe (Val Text) - , _configOrganizationConfigRuleOrganizationCustomRuleMetadataOrganizationConfigRuleTriggerTypes :: ValList Text - , _configOrganizationConfigRuleOrganizationCustomRuleMetadataResourceIdScope :: Maybe (Val Text) - , _configOrganizationConfigRuleOrganizationCustomRuleMetadataResourceTypesScope :: Maybe (ValList Text) - , _configOrganizationConfigRuleOrganizationCustomRuleMetadataTagKeyScope :: Maybe (Val Text) - , _configOrganizationConfigRuleOrganizationCustomRuleMetadataTagValueScope :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata where - toJSON ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata{..} = - object $ - catMaybes - [ fmap (("Description",) . toJSON) _configOrganizationConfigRuleOrganizationCustomRuleMetadataDescription - , fmap (("InputParameters",) . toJSON) _configOrganizationConfigRuleOrganizationCustomRuleMetadataInputParameters - , (Just . ("LambdaFunctionArn",) . toJSON) _configOrganizationConfigRuleOrganizationCustomRuleMetadataLambdaFunctionArn - , fmap (("MaximumExecutionFrequency",) . toJSON) _configOrganizationConfigRuleOrganizationCustomRuleMetadataMaximumExecutionFrequency - , (Just . ("OrganizationConfigRuleTriggerTypes",) . toJSON) _configOrganizationConfigRuleOrganizationCustomRuleMetadataOrganizationConfigRuleTriggerTypes - , fmap (("ResourceIdScope",) . toJSON) _configOrganizationConfigRuleOrganizationCustomRuleMetadataResourceIdScope - , fmap (("ResourceTypesScope",) . toJSON) _configOrganizationConfigRuleOrganizationCustomRuleMetadataResourceTypesScope - , fmap (("TagKeyScope",) . toJSON) _configOrganizationConfigRuleOrganizationCustomRuleMetadataTagKeyScope - , fmap (("TagValueScope",) . toJSON) _configOrganizationConfigRuleOrganizationCustomRuleMetadataTagValueScope - ] - --- | Constructor for --- 'ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata' containing --- required fields as arguments. -configOrganizationConfigRuleOrganizationCustomRuleMetadata - :: Val Text -- ^ 'cocrocrmLambdaFunctionArn' - -> ValList Text -- ^ 'cocrocrmOrganizationConfigRuleTriggerTypes' - -> ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata -configOrganizationConfigRuleOrganizationCustomRuleMetadata lambdaFunctionArnarg organizationConfigRuleTriggerTypesarg = - ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata - { _configOrganizationConfigRuleOrganizationCustomRuleMetadataDescription = Nothing - , _configOrganizationConfigRuleOrganizationCustomRuleMetadataInputParameters = Nothing - , _configOrganizationConfigRuleOrganizationCustomRuleMetadataLambdaFunctionArn = lambdaFunctionArnarg - , _configOrganizationConfigRuleOrganizationCustomRuleMetadataMaximumExecutionFrequency = Nothing - , _configOrganizationConfigRuleOrganizationCustomRuleMetadataOrganizationConfigRuleTriggerTypes = organizationConfigRuleTriggerTypesarg - , _configOrganizationConfigRuleOrganizationCustomRuleMetadataResourceIdScope = Nothing - , _configOrganizationConfigRuleOrganizationCustomRuleMetadataResourceTypesScope = Nothing - , _configOrganizationConfigRuleOrganizationCustomRuleMetadataTagKeyScope = Nothing - , _configOrganizationConfigRuleOrganizationCustomRuleMetadataTagValueScope = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationcustomrulemetadata.html#cfn-config-organizationconfigrule-organizationcustomrulemetadata-description -cocrocrmDescription :: Lens' ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata (Maybe (Val Text)) -cocrocrmDescription = lens _configOrganizationConfigRuleOrganizationCustomRuleMetadataDescription (\s a -> s { _configOrganizationConfigRuleOrganizationCustomRuleMetadataDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationcustomrulemetadata.html#cfn-config-organizationconfigrule-organizationcustomrulemetadata-inputparameters -cocrocrmInputParameters :: Lens' ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata (Maybe (Val Text)) -cocrocrmInputParameters = lens _configOrganizationConfigRuleOrganizationCustomRuleMetadataInputParameters (\s a -> s { _configOrganizationConfigRuleOrganizationCustomRuleMetadataInputParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationcustomrulemetadata.html#cfn-config-organizationconfigrule-organizationcustomrulemetadata-lambdafunctionarn -cocrocrmLambdaFunctionArn :: Lens' ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata (Val Text) -cocrocrmLambdaFunctionArn = lens _configOrganizationConfigRuleOrganizationCustomRuleMetadataLambdaFunctionArn (\s a -> s { _configOrganizationConfigRuleOrganizationCustomRuleMetadataLambdaFunctionArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationcustomrulemetadata.html#cfn-config-organizationconfigrule-organizationcustomrulemetadata-maximumexecutionfrequency -cocrocrmMaximumExecutionFrequency :: Lens' ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata (Maybe (Val Text)) -cocrocrmMaximumExecutionFrequency = lens _configOrganizationConfigRuleOrganizationCustomRuleMetadataMaximumExecutionFrequency (\s a -> s { _configOrganizationConfigRuleOrganizationCustomRuleMetadataMaximumExecutionFrequency = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationcustomrulemetadata.html#cfn-config-organizationconfigrule-organizationcustomrulemetadata-organizationconfigruletriggertypes -cocrocrmOrganizationConfigRuleTriggerTypes :: Lens' ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata (ValList Text) -cocrocrmOrganizationConfigRuleTriggerTypes = lens _configOrganizationConfigRuleOrganizationCustomRuleMetadataOrganizationConfigRuleTriggerTypes (\s a -> s { _configOrganizationConfigRuleOrganizationCustomRuleMetadataOrganizationConfigRuleTriggerTypes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationcustomrulemetadata.html#cfn-config-organizationconfigrule-organizationcustomrulemetadata-resourceidscope -cocrocrmResourceIdScope :: Lens' ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata (Maybe (Val Text)) -cocrocrmResourceIdScope = lens _configOrganizationConfigRuleOrganizationCustomRuleMetadataResourceIdScope (\s a -> s { _configOrganizationConfigRuleOrganizationCustomRuleMetadataResourceIdScope = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationcustomrulemetadata.html#cfn-config-organizationconfigrule-organizationcustomrulemetadata-resourcetypesscope -cocrocrmResourceTypesScope :: Lens' ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata (Maybe (ValList Text)) -cocrocrmResourceTypesScope = lens _configOrganizationConfigRuleOrganizationCustomRuleMetadataResourceTypesScope (\s a -> s { _configOrganizationConfigRuleOrganizationCustomRuleMetadataResourceTypesScope = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationcustomrulemetadata.html#cfn-config-organizationconfigrule-organizationcustomrulemetadata-tagkeyscope -cocrocrmTagKeyScope :: Lens' ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata (Maybe (Val Text)) -cocrocrmTagKeyScope = lens _configOrganizationConfigRuleOrganizationCustomRuleMetadataTagKeyScope (\s a -> s { _configOrganizationConfigRuleOrganizationCustomRuleMetadataTagKeyScope = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationcustomrulemetadata.html#cfn-config-organizationconfigrule-organizationcustomrulemetadata-tagvaluescope -cocrocrmTagValueScope :: Lens' ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata (Maybe (Val Text)) -cocrocrmTagValueScope = lens _configOrganizationConfigRuleOrganizationCustomRuleMetadataTagValueScope (\s a -> s { _configOrganizationConfigRuleOrganizationCustomRuleMetadataTagValueScope = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata.hs b/library-gen/Stratosphere/ResourceProperties/ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata.hs +++ /dev/null @@ -1,91 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationmanagedrulemetadata.html - -module Stratosphere.ResourceProperties.ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata. See --- 'configOrganizationConfigRuleOrganizationManagedRuleMetadata' for a more --- convenient constructor. -data ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata = - ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata - { _configOrganizationConfigRuleOrganizationManagedRuleMetadataDescription :: Maybe (Val Text) - , _configOrganizationConfigRuleOrganizationManagedRuleMetadataInputParameters :: Maybe (Val Text) - , _configOrganizationConfigRuleOrganizationManagedRuleMetadataMaximumExecutionFrequency :: Maybe (Val Text) - , _configOrganizationConfigRuleOrganizationManagedRuleMetadataResourceIdScope :: Maybe (Val Text) - , _configOrganizationConfigRuleOrganizationManagedRuleMetadataResourceTypesScope :: Maybe (ValList Text) - , _configOrganizationConfigRuleOrganizationManagedRuleMetadataRuleIdentifier :: Val Text - , _configOrganizationConfigRuleOrganizationManagedRuleMetadataTagKeyScope :: Maybe (Val Text) - , _configOrganizationConfigRuleOrganizationManagedRuleMetadataTagValueScope :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata where - toJSON ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata{..} = - object $ - catMaybes - [ fmap (("Description",) . toJSON) _configOrganizationConfigRuleOrganizationManagedRuleMetadataDescription - , fmap (("InputParameters",) . toJSON) _configOrganizationConfigRuleOrganizationManagedRuleMetadataInputParameters - , fmap (("MaximumExecutionFrequency",) . toJSON) _configOrganizationConfigRuleOrganizationManagedRuleMetadataMaximumExecutionFrequency - , fmap (("ResourceIdScope",) . toJSON) _configOrganizationConfigRuleOrganizationManagedRuleMetadataResourceIdScope - , fmap (("ResourceTypesScope",) . toJSON) _configOrganizationConfigRuleOrganizationManagedRuleMetadataResourceTypesScope - , (Just . ("RuleIdentifier",) . toJSON) _configOrganizationConfigRuleOrganizationManagedRuleMetadataRuleIdentifier - , fmap (("TagKeyScope",) . toJSON) _configOrganizationConfigRuleOrganizationManagedRuleMetadataTagKeyScope - , fmap (("TagValueScope",) . toJSON) _configOrganizationConfigRuleOrganizationManagedRuleMetadataTagValueScope - ] - --- | Constructor for --- 'ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata' containing --- required fields as arguments. -configOrganizationConfigRuleOrganizationManagedRuleMetadata - :: Val Text -- ^ 'cocromrmRuleIdentifier' - -> ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata -configOrganizationConfigRuleOrganizationManagedRuleMetadata ruleIdentifierarg = - ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata - { _configOrganizationConfigRuleOrganizationManagedRuleMetadataDescription = Nothing - , _configOrganizationConfigRuleOrganizationManagedRuleMetadataInputParameters = Nothing - , _configOrganizationConfigRuleOrganizationManagedRuleMetadataMaximumExecutionFrequency = Nothing - , _configOrganizationConfigRuleOrganizationManagedRuleMetadataResourceIdScope = Nothing - , _configOrganizationConfigRuleOrganizationManagedRuleMetadataResourceTypesScope = Nothing - , _configOrganizationConfigRuleOrganizationManagedRuleMetadataRuleIdentifier = ruleIdentifierarg - , _configOrganizationConfigRuleOrganizationManagedRuleMetadataTagKeyScope = Nothing - , _configOrganizationConfigRuleOrganizationManagedRuleMetadataTagValueScope = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationmanagedrulemetadata.html#cfn-config-organizationconfigrule-organizationmanagedrulemetadata-description -cocromrmDescription :: Lens' ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata (Maybe (Val Text)) -cocromrmDescription = lens _configOrganizationConfigRuleOrganizationManagedRuleMetadataDescription (\s a -> s { _configOrganizationConfigRuleOrganizationManagedRuleMetadataDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationmanagedrulemetadata.html#cfn-config-organizationconfigrule-organizationmanagedrulemetadata-inputparameters -cocromrmInputParameters :: Lens' ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata (Maybe (Val Text)) -cocromrmInputParameters = lens _configOrganizationConfigRuleOrganizationManagedRuleMetadataInputParameters (\s a -> s { _configOrganizationConfigRuleOrganizationManagedRuleMetadataInputParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationmanagedrulemetadata.html#cfn-config-organizationconfigrule-organizationmanagedrulemetadata-maximumexecutionfrequency -cocromrmMaximumExecutionFrequency :: Lens' ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata (Maybe (Val Text)) -cocromrmMaximumExecutionFrequency = lens _configOrganizationConfigRuleOrganizationManagedRuleMetadataMaximumExecutionFrequency (\s a -> s { _configOrganizationConfigRuleOrganizationManagedRuleMetadataMaximumExecutionFrequency = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationmanagedrulemetadata.html#cfn-config-organizationconfigrule-organizationmanagedrulemetadata-resourceidscope -cocromrmResourceIdScope :: Lens' ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata (Maybe (Val Text)) -cocromrmResourceIdScope = lens _configOrganizationConfigRuleOrganizationManagedRuleMetadataResourceIdScope (\s a -> s { _configOrganizationConfigRuleOrganizationManagedRuleMetadataResourceIdScope = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationmanagedrulemetadata.html#cfn-config-organizationconfigrule-organizationmanagedrulemetadata-resourcetypesscope -cocromrmResourceTypesScope :: Lens' ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata (Maybe (ValList Text)) -cocromrmResourceTypesScope = lens _configOrganizationConfigRuleOrganizationManagedRuleMetadataResourceTypesScope (\s a -> s { _configOrganizationConfigRuleOrganizationManagedRuleMetadataResourceTypesScope = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationmanagedrulemetadata.html#cfn-config-organizationconfigrule-organizationmanagedrulemetadata-ruleidentifier -cocromrmRuleIdentifier :: Lens' ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata (Val Text) -cocromrmRuleIdentifier = lens _configOrganizationConfigRuleOrganizationManagedRuleMetadataRuleIdentifier (\s a -> s { _configOrganizationConfigRuleOrganizationManagedRuleMetadataRuleIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationmanagedrulemetadata.html#cfn-config-organizationconfigrule-organizationmanagedrulemetadata-tagkeyscope -cocromrmTagKeyScope :: Lens' ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata (Maybe (Val Text)) -cocromrmTagKeyScope = lens _configOrganizationConfigRuleOrganizationManagedRuleMetadataTagKeyScope (\s a -> s { _configOrganizationConfigRuleOrganizationManagedRuleMetadataTagKeyScope = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconfigrule-organizationmanagedrulemetadata.html#cfn-config-organizationconfigrule-organizationmanagedrulemetadata-tagvaluescope -cocromrmTagValueScope :: Lens' ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata (Maybe (Val Text)) -cocromrmTagValueScope = lens _configOrganizationConfigRuleOrganizationManagedRuleMetadataTagValueScope (\s a -> s { _configOrganizationConfigRuleOrganizationManagedRuleMetadataTagValueScope = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ConfigOrganizationConformancePackConformancePackInputParameter.hs b/library-gen/Stratosphere/ResourceProperties/ConfigOrganizationConformancePackConformancePackInputParameter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ConfigOrganizationConformancePackConformancePackInputParameter.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconformancepack-conformancepackinputparameter.html - -module Stratosphere.ResourceProperties.ConfigOrganizationConformancePackConformancePackInputParameter where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ConfigOrganizationConformancePackConformancePackInputParameter. See --- 'configOrganizationConformancePackConformancePackInputParameter' for a --- more convenient constructor. -data ConfigOrganizationConformancePackConformancePackInputParameter = - ConfigOrganizationConformancePackConformancePackInputParameter - { _configOrganizationConformancePackConformancePackInputParameterParameterName :: Val Text - , _configOrganizationConformancePackConformancePackInputParameterParameterValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON ConfigOrganizationConformancePackConformancePackInputParameter where - toJSON ConfigOrganizationConformancePackConformancePackInputParameter{..} = - object $ - catMaybes - [ (Just . ("ParameterName",) . toJSON) _configOrganizationConformancePackConformancePackInputParameterParameterName - , (Just . ("ParameterValue",) . toJSON) _configOrganizationConformancePackConformancePackInputParameterParameterValue - ] - --- | Constructor for --- 'ConfigOrganizationConformancePackConformancePackInputParameter' --- containing required fields as arguments. -configOrganizationConformancePackConformancePackInputParameter - :: Val Text -- ^ 'cocpcpipParameterName' - -> Val Text -- ^ 'cocpcpipParameterValue' - -> ConfigOrganizationConformancePackConformancePackInputParameter -configOrganizationConformancePackConformancePackInputParameter parameterNamearg parameterValuearg = - ConfigOrganizationConformancePackConformancePackInputParameter - { _configOrganizationConformancePackConformancePackInputParameterParameterName = parameterNamearg - , _configOrganizationConformancePackConformancePackInputParameterParameterValue = parameterValuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconformancepack-conformancepackinputparameter.html#cfn-config-organizationconformancepack-conformancepackinputparameter-parametername -cocpcpipParameterName :: Lens' ConfigOrganizationConformancePackConformancePackInputParameter (Val Text) -cocpcpipParameterName = lens _configOrganizationConformancePackConformancePackInputParameterParameterName (\s a -> s { _configOrganizationConformancePackConformancePackInputParameterParameterName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-organizationconformancepack-conformancepackinputparameter.html#cfn-config-organizationconformancepack-conformancepackinputparameter-parametervalue -cocpcpipParameterValue :: Lens' ConfigOrganizationConformancePackConformancePackInputParameter (Val Text) -cocpcpipParameterValue = lens _configOrganizationConformancePackConformancePackInputParameterParameterValue (\s a -> s { _configOrganizationConformancePackConformancePackInputParameterParameterValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ConfigRemediationConfigurationExecutionControls.hs b/library-gen/Stratosphere/ResourceProperties/ConfigRemediationConfigurationExecutionControls.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ConfigRemediationConfigurationExecutionControls.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-remediationconfiguration-executioncontrols.html - -module Stratosphere.ResourceProperties.ConfigRemediationConfigurationExecutionControls where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ConfigRemediationConfigurationSsmControls - --- | Full data type definition for --- ConfigRemediationConfigurationExecutionControls. See --- 'configRemediationConfigurationExecutionControls' for a more convenient --- constructor. -data ConfigRemediationConfigurationExecutionControls = - ConfigRemediationConfigurationExecutionControls - { _configRemediationConfigurationExecutionControlsSsmControls :: Maybe ConfigRemediationConfigurationSsmControls - } deriving (Show, Eq) - -instance ToJSON ConfigRemediationConfigurationExecutionControls where - toJSON ConfigRemediationConfigurationExecutionControls{..} = - object $ - catMaybes - [ fmap (("SsmControls",) . toJSON) _configRemediationConfigurationExecutionControlsSsmControls - ] - --- | Constructor for 'ConfigRemediationConfigurationExecutionControls' --- containing required fields as arguments. -configRemediationConfigurationExecutionControls - :: ConfigRemediationConfigurationExecutionControls -configRemediationConfigurationExecutionControls = - ConfigRemediationConfigurationExecutionControls - { _configRemediationConfigurationExecutionControlsSsmControls = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-remediationconfiguration-executioncontrols.html#cfn-config-remediationconfiguration-executioncontrols-ssmcontrols -crcecSsmControls :: Lens' ConfigRemediationConfigurationExecutionControls (Maybe ConfigRemediationConfigurationSsmControls) -crcecSsmControls = lens _configRemediationConfigurationExecutionControlsSsmControls (\s a -> s { _configRemediationConfigurationExecutionControlsSsmControls = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ConfigRemediationConfigurationRemediationParameterValue.hs b/library-gen/Stratosphere/ResourceProperties/ConfigRemediationConfigurationRemediationParameterValue.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ConfigRemediationConfigurationRemediationParameterValue.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-remediationconfiguration-remediationparametervalue.html - -module Stratosphere.ResourceProperties.ConfigRemediationConfigurationRemediationParameterValue where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ConfigRemediationConfigurationResourceValue -import Stratosphere.ResourceProperties.ConfigRemediationConfigurationStaticValue - --- | Full data type definition for --- ConfigRemediationConfigurationRemediationParameterValue. See --- 'configRemediationConfigurationRemediationParameterValue' for a more --- convenient constructor. -data ConfigRemediationConfigurationRemediationParameterValue = - ConfigRemediationConfigurationRemediationParameterValue - { _configRemediationConfigurationRemediationParameterValueResourceValue :: Maybe ConfigRemediationConfigurationResourceValue - , _configRemediationConfigurationRemediationParameterValueStaticValue :: Maybe ConfigRemediationConfigurationStaticValue - } deriving (Show, Eq) - -instance ToJSON ConfigRemediationConfigurationRemediationParameterValue where - toJSON ConfigRemediationConfigurationRemediationParameterValue{..} = - object $ - catMaybes - [ fmap (("ResourceValue",) . toJSON) _configRemediationConfigurationRemediationParameterValueResourceValue - , fmap (("StaticValue",) . toJSON) _configRemediationConfigurationRemediationParameterValueStaticValue - ] - --- | Constructor for 'ConfigRemediationConfigurationRemediationParameterValue' --- containing required fields as arguments. -configRemediationConfigurationRemediationParameterValue - :: ConfigRemediationConfigurationRemediationParameterValue -configRemediationConfigurationRemediationParameterValue = - ConfigRemediationConfigurationRemediationParameterValue - { _configRemediationConfigurationRemediationParameterValueResourceValue = Nothing - , _configRemediationConfigurationRemediationParameterValueStaticValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-remediationconfiguration-remediationparametervalue.html#cfn-config-remediationconfiguration-remediationparametervalue-resourcevalue -crcrpvResourceValue :: Lens' ConfigRemediationConfigurationRemediationParameterValue (Maybe ConfigRemediationConfigurationResourceValue) -crcrpvResourceValue = lens _configRemediationConfigurationRemediationParameterValueResourceValue (\s a -> s { _configRemediationConfigurationRemediationParameterValueResourceValue = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-remediationconfiguration-remediationparametervalue.html#cfn-config-remediationconfiguration-remediationparametervalue-staticvalue -crcrpvStaticValue :: Lens' ConfigRemediationConfigurationRemediationParameterValue (Maybe ConfigRemediationConfigurationStaticValue) -crcrpvStaticValue = lens _configRemediationConfigurationRemediationParameterValueStaticValue (\s a -> s { _configRemediationConfigurationRemediationParameterValueStaticValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ConfigRemediationConfigurationResourceValue.hs b/library-gen/Stratosphere/ResourceProperties/ConfigRemediationConfigurationResourceValue.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ConfigRemediationConfigurationResourceValue.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-remediationconfiguration-resourcevalue.html - -module Stratosphere.ResourceProperties.ConfigRemediationConfigurationResourceValue where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ConfigRemediationConfigurationResourceValue. See --- 'configRemediationConfigurationResourceValue' for a more convenient --- constructor. -data ConfigRemediationConfigurationResourceValue = - ConfigRemediationConfigurationResourceValue - { _configRemediationConfigurationResourceValueValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ConfigRemediationConfigurationResourceValue where - toJSON ConfigRemediationConfigurationResourceValue{..} = - object $ - catMaybes - [ fmap (("Value",) . toJSON) _configRemediationConfigurationResourceValueValue - ] - --- | Constructor for 'ConfigRemediationConfigurationResourceValue' containing --- required fields as arguments. -configRemediationConfigurationResourceValue - :: ConfigRemediationConfigurationResourceValue -configRemediationConfigurationResourceValue = - ConfigRemediationConfigurationResourceValue - { _configRemediationConfigurationResourceValueValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-remediationconfiguration-resourcevalue.html#cfn-config-remediationconfiguration-resourcevalue-value -crcrvValue :: Lens' ConfigRemediationConfigurationResourceValue (Maybe (Val Text)) -crcrvValue = lens _configRemediationConfigurationResourceValueValue (\s a -> s { _configRemediationConfigurationResourceValueValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ConfigRemediationConfigurationSsmControls.hs b/library-gen/Stratosphere/ResourceProperties/ConfigRemediationConfigurationSsmControls.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ConfigRemediationConfigurationSsmControls.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-remediationconfiguration-ssmcontrols.html - -module Stratosphere.ResourceProperties.ConfigRemediationConfigurationSsmControls where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ConfigRemediationConfigurationSsmControls. --- See 'configRemediationConfigurationSsmControls' for a more convenient --- constructor. -data ConfigRemediationConfigurationSsmControls = - ConfigRemediationConfigurationSsmControls - { _configRemediationConfigurationSsmControlsConcurrentExecutionRatePercentage :: Maybe (Val Integer) - , _configRemediationConfigurationSsmControlsErrorPercentage :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON ConfigRemediationConfigurationSsmControls where - toJSON ConfigRemediationConfigurationSsmControls{..} = - object $ - catMaybes - [ fmap (("ConcurrentExecutionRatePercentage",) . toJSON) _configRemediationConfigurationSsmControlsConcurrentExecutionRatePercentage - , fmap (("ErrorPercentage",) . toJSON) _configRemediationConfigurationSsmControlsErrorPercentage - ] - --- | Constructor for 'ConfigRemediationConfigurationSsmControls' containing --- required fields as arguments. -configRemediationConfigurationSsmControls - :: ConfigRemediationConfigurationSsmControls -configRemediationConfigurationSsmControls = - ConfigRemediationConfigurationSsmControls - { _configRemediationConfigurationSsmControlsConcurrentExecutionRatePercentage = Nothing - , _configRemediationConfigurationSsmControlsErrorPercentage = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-remediationconfiguration-ssmcontrols.html#cfn-config-remediationconfiguration-ssmcontrols-concurrentexecutionratepercentage -crcscConcurrentExecutionRatePercentage :: Lens' ConfigRemediationConfigurationSsmControls (Maybe (Val Integer)) -crcscConcurrentExecutionRatePercentage = lens _configRemediationConfigurationSsmControlsConcurrentExecutionRatePercentage (\s a -> s { _configRemediationConfigurationSsmControlsConcurrentExecutionRatePercentage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-remediationconfiguration-ssmcontrols.html#cfn-config-remediationconfiguration-ssmcontrols-errorpercentage -crcscErrorPercentage :: Lens' ConfigRemediationConfigurationSsmControls (Maybe (Val Integer)) -crcscErrorPercentage = lens _configRemediationConfigurationSsmControlsErrorPercentage (\s a -> s { _configRemediationConfigurationSsmControlsErrorPercentage = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ConfigRemediationConfigurationStaticValue.hs b/library-gen/Stratosphere/ResourceProperties/ConfigRemediationConfigurationStaticValue.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ConfigRemediationConfigurationStaticValue.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-remediationconfiguration-staticvalue.html - -module Stratosphere.ResourceProperties.ConfigRemediationConfigurationStaticValue where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ConfigRemediationConfigurationStaticValue. --- See 'configRemediationConfigurationStaticValue' for a more convenient --- constructor. -data ConfigRemediationConfigurationStaticValue = - ConfigRemediationConfigurationStaticValue - { _configRemediationConfigurationStaticValueValues :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON ConfigRemediationConfigurationStaticValue where - toJSON ConfigRemediationConfigurationStaticValue{..} = - object $ - catMaybes - [ fmap (("Values",) . toJSON) _configRemediationConfigurationStaticValueValues - ] - --- | Constructor for 'ConfigRemediationConfigurationStaticValue' containing --- required fields as arguments. -configRemediationConfigurationStaticValue - :: ConfigRemediationConfigurationStaticValue -configRemediationConfigurationStaticValue = - ConfigRemediationConfigurationStaticValue - { _configRemediationConfigurationStaticValueValues = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-config-remediationconfiguration-staticvalue.html#cfn-config-remediationconfiguration-staticvalue-values -crcsvValues :: Lens' ConfigRemediationConfigurationStaticValue (Maybe (ValList Text)) -crcsvValues = lens _configRemediationConfigurationStaticValueValues (\s a -> s { _configRemediationConfigurationStaticValueValues = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DAXClusterSSESpecification.hs b/library-gen/Stratosphere/ResourceProperties/DAXClusterSSESpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DAXClusterSSESpecification.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dax-cluster-ssespecification.html - -module Stratosphere.ResourceProperties.DAXClusterSSESpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for DAXClusterSSESpecification. See --- 'daxClusterSSESpecification' for a more convenient constructor. -data DAXClusterSSESpecification = - DAXClusterSSESpecification - { _dAXClusterSSESpecificationSSEEnabled :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON DAXClusterSSESpecification where - toJSON DAXClusterSSESpecification{..} = - object $ - catMaybes - [ fmap (("SSEEnabled",) . toJSON) _dAXClusterSSESpecificationSSEEnabled - ] - --- | Constructor for 'DAXClusterSSESpecification' containing required fields --- as arguments. -daxClusterSSESpecification - :: DAXClusterSSESpecification -daxClusterSSESpecification = - DAXClusterSSESpecification - { _dAXClusterSSESpecificationSSEEnabled = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dax-cluster-ssespecification.html#cfn-dax-cluster-ssespecification-sseenabled -daxcssesSSEEnabled :: Lens' DAXClusterSSESpecification (Maybe (Val Bool)) -daxcssesSSEEnabled = lens _dAXClusterSSESpecificationSSEEnabled (\s a -> s { _dAXClusterSSESpecificationSSEEnabled = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyCreateRule.hs b/library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyCreateRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyCreateRule.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-createrule.html - -module Stratosphere.ResourceProperties.DLMLifecyclePolicyCreateRule where - -import Stratosphere.ResourceImports - - --- | Full data type definition for DLMLifecyclePolicyCreateRule. See --- 'dlmLifecyclePolicyCreateRule' for a more convenient constructor. -data DLMLifecyclePolicyCreateRule = - DLMLifecyclePolicyCreateRule - { _dLMLifecyclePolicyCreateRuleCronExpression :: Maybe (Val Text) - , _dLMLifecyclePolicyCreateRuleInterval :: Maybe (Val Integer) - , _dLMLifecyclePolicyCreateRuleIntervalUnit :: Maybe (Val Text) - , _dLMLifecyclePolicyCreateRuleTimes :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON DLMLifecyclePolicyCreateRule where - toJSON DLMLifecyclePolicyCreateRule{..} = - object $ - catMaybes - [ 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 - :: DLMLifecyclePolicyCreateRule -dlmLifecyclePolicyCreateRule = - DLMLifecyclePolicyCreateRule - { _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 (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 (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 -dlmlpcrTimes :: Lens' DLMLifecyclePolicyCreateRule (Maybe (ValList Text)) -dlmlpcrTimes = lens _dLMLifecyclePolicyCreateRuleTimes (\s a -> s { _dLMLifecyclePolicyCreateRuleTimes = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyCrossRegionCopyRetainRule.hs b/library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyCrossRegionCopyRetainRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyCrossRegionCopyRetainRule.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-crossregioncopyretainrule.html - -module Stratosphere.ResourceProperties.DLMLifecyclePolicyCrossRegionCopyRetainRule where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- DLMLifecyclePolicyCrossRegionCopyRetainRule. See --- 'dlmLifecyclePolicyCrossRegionCopyRetainRule' for a more convenient --- constructor. -data DLMLifecyclePolicyCrossRegionCopyRetainRule = - DLMLifecyclePolicyCrossRegionCopyRetainRule - { _dLMLifecyclePolicyCrossRegionCopyRetainRuleInterval :: Val Integer - , _dLMLifecyclePolicyCrossRegionCopyRetainRuleIntervalUnit :: Val Text - } deriving (Show, Eq) - -instance ToJSON DLMLifecyclePolicyCrossRegionCopyRetainRule where - toJSON DLMLifecyclePolicyCrossRegionCopyRetainRule{..} = - object $ - catMaybes - [ (Just . ("Interval",) . toJSON) _dLMLifecyclePolicyCrossRegionCopyRetainRuleInterval - , (Just . ("IntervalUnit",) . toJSON) _dLMLifecyclePolicyCrossRegionCopyRetainRuleIntervalUnit - ] - --- | Constructor for 'DLMLifecyclePolicyCrossRegionCopyRetainRule' containing --- required fields as arguments. -dlmLifecyclePolicyCrossRegionCopyRetainRule - :: Val Integer -- ^ 'dlmlpcrcrrInterval' - -> Val Text -- ^ 'dlmlpcrcrrIntervalUnit' - -> DLMLifecyclePolicyCrossRegionCopyRetainRule -dlmLifecyclePolicyCrossRegionCopyRetainRule intervalarg intervalUnitarg = - DLMLifecyclePolicyCrossRegionCopyRetainRule - { _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 (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 (Val Text) -dlmlpcrcrrIntervalUnit = lens _dLMLifecyclePolicyCrossRegionCopyRetainRuleIntervalUnit (\s a -> s { _dLMLifecyclePolicyCrossRegionCopyRetainRuleIntervalUnit = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyCrossRegionCopyRule.hs b/library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyCrossRegionCopyRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyCrossRegionCopyRule.hs +++ /dev/null @@ -1,69 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-crossregioncopyrule.html - -module Stratosphere.ResourceProperties.DLMLifecyclePolicyCrossRegionCopyRule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.DLMLifecyclePolicyCrossRegionCopyRetainRule - --- | Full data type definition for DLMLifecyclePolicyCrossRegionCopyRule. See --- 'dlmLifecyclePolicyCrossRegionCopyRule' for a more convenient --- constructor. -data DLMLifecyclePolicyCrossRegionCopyRule = - DLMLifecyclePolicyCrossRegionCopyRule - { _dLMLifecyclePolicyCrossRegionCopyRuleCmkArn :: Maybe (Val Text) - , _dLMLifecyclePolicyCrossRegionCopyRuleCopyTags :: Maybe (Val Bool) - , _dLMLifecyclePolicyCrossRegionCopyRuleEncrypted :: Val Bool - , _dLMLifecyclePolicyCrossRegionCopyRuleRetainRule :: Maybe DLMLifecyclePolicyCrossRegionCopyRetainRule - , _dLMLifecyclePolicyCrossRegionCopyRuleTargetRegion :: Val Text - } deriving (Show, Eq) - -instance ToJSON DLMLifecyclePolicyCrossRegionCopyRule where - toJSON DLMLifecyclePolicyCrossRegionCopyRule{..} = - object $ - catMaybes - [ fmap (("CmkArn",) . toJSON) _dLMLifecyclePolicyCrossRegionCopyRuleCmkArn - , fmap (("CopyTags",) . toJSON) _dLMLifecyclePolicyCrossRegionCopyRuleCopyTags - , (Just . ("Encrypted",) . toJSON) _dLMLifecyclePolicyCrossRegionCopyRuleEncrypted - , fmap (("RetainRule",) . toJSON) _dLMLifecyclePolicyCrossRegionCopyRuleRetainRule - , (Just . ("TargetRegion",) . toJSON) _dLMLifecyclePolicyCrossRegionCopyRuleTargetRegion - ] - --- | Constructor for 'DLMLifecyclePolicyCrossRegionCopyRule' containing --- required fields as arguments. -dlmLifecyclePolicyCrossRegionCopyRule - :: Val Bool -- ^ 'dlmlpcrcrEncrypted' - -> Val Text -- ^ 'dlmlpcrcrTargetRegion' - -> DLMLifecyclePolicyCrossRegionCopyRule -dlmLifecyclePolicyCrossRegionCopyRule encryptedarg targetRegionarg = - DLMLifecyclePolicyCrossRegionCopyRule - { _dLMLifecyclePolicyCrossRegionCopyRuleCmkArn = Nothing - , _dLMLifecyclePolicyCrossRegionCopyRuleCopyTags = Nothing - , _dLMLifecyclePolicyCrossRegionCopyRuleEncrypted = encryptedarg - , _dLMLifecyclePolicyCrossRegionCopyRuleRetainRule = Nothing - , _dLMLifecyclePolicyCrossRegionCopyRuleTargetRegion = targetRegionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-crossregioncopyrule.html#cfn-dlm-lifecyclepolicy-crossregioncopyrule-cmkarn -dlmlpcrcrCmkArn :: Lens' DLMLifecyclePolicyCrossRegionCopyRule (Maybe (Val Text)) -dlmlpcrcrCmkArn = lens _dLMLifecyclePolicyCrossRegionCopyRuleCmkArn (\s a -> s { _dLMLifecyclePolicyCrossRegionCopyRuleCmkArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-crossregioncopyrule.html#cfn-dlm-lifecyclepolicy-crossregioncopyrule-copytags -dlmlpcrcrCopyTags :: Lens' DLMLifecyclePolicyCrossRegionCopyRule (Maybe (Val Bool)) -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 (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 -dlmlpcrcrRetainRule :: Lens' DLMLifecyclePolicyCrossRegionCopyRule (Maybe DLMLifecyclePolicyCrossRegionCopyRetainRule) -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 (Val Text) -dlmlpcrcrTargetRegion = lens _dLMLifecyclePolicyCrossRegionCopyRuleTargetRegion (\s a -> s { _dLMLifecyclePolicyCrossRegionCopyRuleTargetRegion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyFastRestoreRule.hs b/library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyFastRestoreRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyFastRestoreRule.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-fastrestorerule.html - -module Stratosphere.ResourceProperties.DLMLifecyclePolicyFastRestoreRule where - -import Stratosphere.ResourceImports - - --- | Full data type definition for DLMLifecyclePolicyFastRestoreRule. See --- 'dlmLifecyclePolicyFastRestoreRule' for a more convenient constructor. -data DLMLifecyclePolicyFastRestoreRule = - DLMLifecyclePolicyFastRestoreRule - { _dLMLifecyclePolicyFastRestoreRuleAvailabilityZones :: Maybe (ValList Text) - , _dLMLifecyclePolicyFastRestoreRuleCount :: Maybe (Val Integer) - , _dLMLifecyclePolicyFastRestoreRuleInterval :: Maybe (Val Integer) - , _dLMLifecyclePolicyFastRestoreRuleIntervalUnit :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON DLMLifecyclePolicyFastRestoreRule where - toJSON DLMLifecyclePolicyFastRestoreRule{..} = - object $ - catMaybes - [ fmap (("AvailabilityZones",) . toJSON) _dLMLifecyclePolicyFastRestoreRuleAvailabilityZones - , fmap (("Count",) . toJSON) _dLMLifecyclePolicyFastRestoreRuleCount - , fmap (("Interval",) . toJSON) _dLMLifecyclePolicyFastRestoreRuleInterval - , fmap (("IntervalUnit",) . toJSON) _dLMLifecyclePolicyFastRestoreRuleIntervalUnit - ] - --- | Constructor for 'DLMLifecyclePolicyFastRestoreRule' containing required --- fields as arguments. -dlmLifecyclePolicyFastRestoreRule - :: DLMLifecyclePolicyFastRestoreRule -dlmLifecyclePolicyFastRestoreRule = - DLMLifecyclePolicyFastRestoreRule - { _dLMLifecyclePolicyFastRestoreRuleAvailabilityZones = Nothing - , _dLMLifecyclePolicyFastRestoreRuleCount = Nothing - , _dLMLifecyclePolicyFastRestoreRuleInterval = Nothing - , _dLMLifecyclePolicyFastRestoreRuleIntervalUnit = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-fastrestorerule.html#cfn-dlm-lifecyclepolicy-fastrestorerule-availabilityzones -dlmlpfrrAvailabilityZones :: Lens' DLMLifecyclePolicyFastRestoreRule (Maybe (ValList Text)) -dlmlpfrrAvailabilityZones = lens _dLMLifecyclePolicyFastRestoreRuleAvailabilityZones (\s a -> s { _dLMLifecyclePolicyFastRestoreRuleAvailabilityZones = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-fastrestorerule.html#cfn-dlm-lifecyclepolicy-fastrestorerule-count -dlmlpfrrCount :: Lens' DLMLifecyclePolicyFastRestoreRule (Maybe (Val Integer)) -dlmlpfrrCount = lens _dLMLifecyclePolicyFastRestoreRuleCount (\s a -> s { _dLMLifecyclePolicyFastRestoreRuleCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-fastrestorerule.html#cfn-dlm-lifecyclepolicy-fastrestorerule-interval -dlmlpfrrInterval :: Lens' DLMLifecyclePolicyFastRestoreRule (Maybe (Val Integer)) -dlmlpfrrInterval = lens _dLMLifecyclePolicyFastRestoreRuleInterval (\s a -> s { _dLMLifecyclePolicyFastRestoreRuleInterval = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-fastrestorerule.html#cfn-dlm-lifecyclepolicy-fastrestorerule-intervalunit -dlmlpfrrIntervalUnit :: Lens' DLMLifecyclePolicyFastRestoreRule (Maybe (Val Text)) -dlmlpfrrIntervalUnit = lens _dLMLifecyclePolicyFastRestoreRuleIntervalUnit (\s a -> s { _dLMLifecyclePolicyFastRestoreRuleIntervalUnit = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyParameters.hs b/library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyParameters.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyParameters.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-parameters.html - -module Stratosphere.ResourceProperties.DLMLifecyclePolicyParameters where - -import Stratosphere.ResourceImports - - --- | Full data type definition for DLMLifecyclePolicyParameters. See --- 'dlmLifecyclePolicyParameters' for a more convenient constructor. -data DLMLifecyclePolicyParameters = - DLMLifecyclePolicyParameters - { _dLMLifecyclePolicyParametersExcludeBootVolume :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON DLMLifecyclePolicyParameters where - toJSON DLMLifecyclePolicyParameters{..} = - object $ - catMaybes - [ fmap (("ExcludeBootVolume",) . toJSON) _dLMLifecyclePolicyParametersExcludeBootVolume - ] - --- | Constructor for 'DLMLifecyclePolicyParameters' containing required fields --- as arguments. -dlmLifecyclePolicyParameters - :: DLMLifecyclePolicyParameters -dlmLifecyclePolicyParameters = - DLMLifecyclePolicyParameters - { _dLMLifecyclePolicyParametersExcludeBootVolume = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-parameters.html#cfn-dlm-lifecyclepolicy-parameters-excludebootvolume -dlmlppExcludeBootVolume :: Lens' DLMLifecyclePolicyParameters (Maybe (Val Bool)) -dlmlppExcludeBootVolume = lens _dLMLifecyclePolicyParametersExcludeBootVolume (\s a -> s { _dLMLifecyclePolicyParametersExcludeBootVolume = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyPolicyDetails.hs b/library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyPolicyDetails.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyPolicyDetails.hs +++ /dev/null @@ -1,71 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-policydetails.html - -module Stratosphere.ResourceProperties.DLMLifecyclePolicyPolicyDetails where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.DLMLifecyclePolicyParameters -import Stratosphere.ResourceProperties.DLMLifecyclePolicySchedule -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for DLMLifecyclePolicyPolicyDetails. See --- 'dlmLifecyclePolicyPolicyDetails' for a more convenient constructor. -data DLMLifecyclePolicyPolicyDetails = - DLMLifecyclePolicyPolicyDetails - { _dLMLifecyclePolicyPolicyDetailsParameters :: Maybe DLMLifecyclePolicyParameters - , _dLMLifecyclePolicyPolicyDetailsPolicyType :: Maybe (Val Text) - , _dLMLifecyclePolicyPolicyDetailsResourceTypes :: ValList Text - , _dLMLifecyclePolicyPolicyDetailsSchedules :: [DLMLifecyclePolicySchedule] - , _dLMLifecyclePolicyPolicyDetailsTargetTags :: [Tag] - } deriving (Show, Eq) - -instance ToJSON DLMLifecyclePolicyPolicyDetails where - toJSON DLMLifecyclePolicyPolicyDetails{..} = - object $ - catMaybes - [ fmap (("Parameters",) . toJSON) _dLMLifecyclePolicyPolicyDetailsParameters - , fmap (("PolicyType",) . toJSON) _dLMLifecyclePolicyPolicyDetailsPolicyType - , (Just . ("ResourceTypes",) . toJSON) _dLMLifecyclePolicyPolicyDetailsResourceTypes - , (Just . ("Schedules",) . toJSON) _dLMLifecyclePolicyPolicyDetailsSchedules - , (Just . ("TargetTags",) . toJSON) _dLMLifecyclePolicyPolicyDetailsTargetTags - ] - --- | Constructor for 'DLMLifecyclePolicyPolicyDetails' containing required --- fields as arguments. -dlmLifecyclePolicyPolicyDetails - :: ValList Text -- ^ 'dlmlppdResourceTypes' - -> [DLMLifecyclePolicySchedule] -- ^ 'dlmlppdSchedules' - -> [Tag] -- ^ 'dlmlppdTargetTags' - -> DLMLifecyclePolicyPolicyDetails -dlmLifecyclePolicyPolicyDetails resourceTypesarg schedulesarg targetTagsarg = - DLMLifecyclePolicyPolicyDetails - { _dLMLifecyclePolicyPolicyDetailsParameters = Nothing - , _dLMLifecyclePolicyPolicyDetailsPolicyType = Nothing - , _dLMLifecyclePolicyPolicyDetailsResourceTypes = resourceTypesarg - , _dLMLifecyclePolicyPolicyDetailsSchedules = schedulesarg - , _dLMLifecyclePolicyPolicyDetailsTargetTags = targetTagsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-policydetails.html#cfn-dlm-lifecyclepolicy-policydetails-parameters -dlmlppdParameters :: Lens' DLMLifecyclePolicyPolicyDetails (Maybe DLMLifecyclePolicyParameters) -dlmlppdParameters = lens _dLMLifecyclePolicyPolicyDetailsParameters (\s a -> s { _dLMLifecyclePolicyPolicyDetailsParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-policydetails.html#cfn-dlm-lifecyclepolicy-policydetails-policytype -dlmlppdPolicyType :: Lens' DLMLifecyclePolicyPolicyDetails (Maybe (Val Text)) -dlmlppdPolicyType = lens _dLMLifecyclePolicyPolicyDetailsPolicyType (\s a -> s { _dLMLifecyclePolicyPolicyDetailsPolicyType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-policydetails.html#cfn-dlm-lifecyclepolicy-policydetails-resourcetypes -dlmlppdResourceTypes :: Lens' DLMLifecyclePolicyPolicyDetails (ValList Text) -dlmlppdResourceTypes = lens _dLMLifecyclePolicyPolicyDetailsResourceTypes (\s a -> s { _dLMLifecyclePolicyPolicyDetailsResourceTypes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-policydetails.html#cfn-dlm-lifecyclepolicy-policydetails-schedules -dlmlppdSchedules :: Lens' DLMLifecyclePolicyPolicyDetails [DLMLifecyclePolicySchedule] -dlmlppdSchedules = lens _dLMLifecyclePolicyPolicyDetailsSchedules (\s a -> s { _dLMLifecyclePolicyPolicyDetailsSchedules = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-policydetails.html#cfn-dlm-lifecyclepolicy-policydetails-targettags -dlmlppdTargetTags :: Lens' DLMLifecyclePolicyPolicyDetails [Tag] -dlmlppdTargetTags = lens _dLMLifecyclePolicyPolicyDetailsTargetTags (\s a -> s { _dLMLifecyclePolicyPolicyDetailsTargetTags = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyRetainRule.hs b/library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyRetainRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyRetainRule.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-retainrule.html - -module Stratosphere.ResourceProperties.DLMLifecyclePolicyRetainRule where - -import Stratosphere.ResourceImports - - --- | Full data type definition for DLMLifecyclePolicyRetainRule. See --- 'dlmLifecyclePolicyRetainRule' for a more convenient constructor. -data DLMLifecyclePolicyRetainRule = - DLMLifecyclePolicyRetainRule - { _dLMLifecyclePolicyRetainRuleCount :: Maybe (Val Integer) - , _dLMLifecyclePolicyRetainRuleInterval :: Maybe (Val Integer) - , _dLMLifecyclePolicyRetainRuleIntervalUnit :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON DLMLifecyclePolicyRetainRule where - toJSON DLMLifecyclePolicyRetainRule{..} = - object $ - catMaybes - [ fmap (("Count",) . toJSON) _dLMLifecyclePolicyRetainRuleCount - , fmap (("Interval",) . toJSON) _dLMLifecyclePolicyRetainRuleInterval - , fmap (("IntervalUnit",) . toJSON) _dLMLifecyclePolicyRetainRuleIntervalUnit - ] - --- | Constructor for 'DLMLifecyclePolicyRetainRule' containing required fields --- as arguments. -dlmLifecyclePolicyRetainRule - :: DLMLifecyclePolicyRetainRule -dlmLifecyclePolicyRetainRule = - DLMLifecyclePolicyRetainRule - { _dLMLifecyclePolicyRetainRuleCount = Nothing - , _dLMLifecyclePolicyRetainRuleInterval = Nothing - , _dLMLifecyclePolicyRetainRuleIntervalUnit = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-retainrule.html#cfn-dlm-lifecyclepolicy-retainrule-count -dlmlprrCount :: Lens' DLMLifecyclePolicyRetainRule (Maybe (Val Integer)) -dlmlprrCount = lens _dLMLifecyclePolicyRetainRuleCount (\s a -> s { _dLMLifecyclePolicyRetainRuleCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-retainrule.html#cfn-dlm-lifecyclepolicy-retainrule-interval -dlmlprrInterval :: Lens' DLMLifecyclePolicyRetainRule (Maybe (Val Integer)) -dlmlprrInterval = lens _dLMLifecyclePolicyRetainRuleInterval (\s a -> s { _dLMLifecyclePolicyRetainRuleInterval = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-retainrule.html#cfn-dlm-lifecyclepolicy-retainrule-intervalunit -dlmlprrIntervalUnit :: Lens' DLMLifecyclePolicyRetainRule (Maybe (Val Text)) -dlmlprrIntervalUnit = lens _dLMLifecyclePolicyRetainRuleIntervalUnit (\s a -> s { _dLMLifecyclePolicyRetainRuleIntervalUnit = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicySchedule.hs b/library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicySchedule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicySchedule.hs +++ /dev/null @@ -1,91 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-schedule.html - -module Stratosphere.ResourceProperties.DLMLifecyclePolicySchedule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.DLMLifecyclePolicyCreateRule -import Stratosphere.ResourceProperties.DLMLifecyclePolicyCrossRegionCopyRule -import Stratosphere.ResourceProperties.DLMLifecyclePolicyFastRestoreRule -import Stratosphere.ResourceProperties.DLMLifecyclePolicyRetainRule -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for DLMLifecyclePolicySchedule. See --- 'dlmLifecyclePolicySchedule' for a more convenient constructor. -data DLMLifecyclePolicySchedule = - DLMLifecyclePolicySchedule - { _dLMLifecyclePolicyScheduleCopyTags :: Maybe (Val Bool) - , _dLMLifecyclePolicyScheduleCreateRule :: Maybe DLMLifecyclePolicyCreateRule - , _dLMLifecyclePolicyScheduleCrossRegionCopyRules :: Maybe [DLMLifecyclePolicyCrossRegionCopyRule] - , _dLMLifecyclePolicyScheduleFastRestoreRule :: Maybe DLMLifecyclePolicyFastRestoreRule - , _dLMLifecyclePolicyScheduleName :: Maybe (Val Text) - , _dLMLifecyclePolicyScheduleRetainRule :: Maybe DLMLifecyclePolicyRetainRule - , _dLMLifecyclePolicyScheduleTagsToAdd :: Maybe [Tag] - , _dLMLifecyclePolicyScheduleVariableTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToJSON DLMLifecyclePolicySchedule where - toJSON DLMLifecyclePolicySchedule{..} = - object $ - catMaybes - [ fmap (("CopyTags",) . toJSON) _dLMLifecyclePolicyScheduleCopyTags - , fmap (("CreateRule",) . toJSON) _dLMLifecyclePolicyScheduleCreateRule - , fmap (("CrossRegionCopyRules",) . toJSON) _dLMLifecyclePolicyScheduleCrossRegionCopyRules - , fmap (("FastRestoreRule",) . toJSON) _dLMLifecyclePolicyScheduleFastRestoreRule - , fmap (("Name",) . toJSON) _dLMLifecyclePolicyScheduleName - , fmap (("RetainRule",) . toJSON) _dLMLifecyclePolicyScheduleRetainRule - , fmap (("TagsToAdd",) . toJSON) _dLMLifecyclePolicyScheduleTagsToAdd - , fmap (("VariableTags",) . toJSON) _dLMLifecyclePolicyScheduleVariableTags - ] - --- | Constructor for 'DLMLifecyclePolicySchedule' containing required fields --- as arguments. -dlmLifecyclePolicySchedule - :: DLMLifecyclePolicySchedule -dlmLifecyclePolicySchedule = - DLMLifecyclePolicySchedule - { _dLMLifecyclePolicyScheduleCopyTags = Nothing - , _dLMLifecyclePolicyScheduleCreateRule = Nothing - , _dLMLifecyclePolicyScheduleCrossRegionCopyRules = Nothing - , _dLMLifecyclePolicyScheduleFastRestoreRule = Nothing - , _dLMLifecyclePolicyScheduleName = Nothing - , _dLMLifecyclePolicyScheduleRetainRule = Nothing - , _dLMLifecyclePolicyScheduleTagsToAdd = Nothing - , _dLMLifecyclePolicyScheduleVariableTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-schedule.html#cfn-dlm-lifecyclepolicy-schedule-copytags -dlmlpsCopyTags :: Lens' DLMLifecyclePolicySchedule (Maybe (Val Bool)) -dlmlpsCopyTags = lens _dLMLifecyclePolicyScheduleCopyTags (\s a -> s { _dLMLifecyclePolicyScheduleCopyTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-schedule.html#cfn-dlm-lifecyclepolicy-schedule-createrule -dlmlpsCreateRule :: Lens' DLMLifecyclePolicySchedule (Maybe DLMLifecyclePolicyCreateRule) -dlmlpsCreateRule = lens _dLMLifecyclePolicyScheduleCreateRule (\s a -> s { _dLMLifecyclePolicyScheduleCreateRule = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-schedule.html#cfn-dlm-lifecyclepolicy-schedule-crossregioncopyrules -dlmlpsCrossRegionCopyRules :: Lens' DLMLifecyclePolicySchedule (Maybe [DLMLifecyclePolicyCrossRegionCopyRule]) -dlmlpsCrossRegionCopyRules = lens _dLMLifecyclePolicyScheduleCrossRegionCopyRules (\s a -> s { _dLMLifecyclePolicyScheduleCrossRegionCopyRules = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-schedule.html#cfn-dlm-lifecyclepolicy-schedule-fastrestorerule -dlmlpsFastRestoreRule :: Lens' DLMLifecyclePolicySchedule (Maybe DLMLifecyclePolicyFastRestoreRule) -dlmlpsFastRestoreRule = lens _dLMLifecyclePolicyScheduleFastRestoreRule (\s a -> s { _dLMLifecyclePolicyScheduleFastRestoreRule = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-schedule.html#cfn-dlm-lifecyclepolicy-schedule-name -dlmlpsName :: Lens' DLMLifecyclePolicySchedule (Maybe (Val Text)) -dlmlpsName = lens _dLMLifecyclePolicyScheduleName (\s a -> s { _dLMLifecyclePolicyScheduleName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-schedule.html#cfn-dlm-lifecyclepolicy-schedule-retainrule -dlmlpsRetainRule :: Lens' DLMLifecyclePolicySchedule (Maybe DLMLifecyclePolicyRetainRule) -dlmlpsRetainRule = lens _dLMLifecyclePolicyScheduleRetainRule (\s a -> s { _dLMLifecyclePolicyScheduleRetainRule = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-schedule.html#cfn-dlm-lifecyclepolicy-schedule-tagstoadd -dlmlpsTagsToAdd :: Lens' DLMLifecyclePolicySchedule (Maybe [Tag]) -dlmlpsTagsToAdd = lens _dLMLifecyclePolicyScheduleTagsToAdd (\s a -> s { _dLMLifecyclePolicyScheduleTagsToAdd = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-schedule.html#cfn-dlm-lifecyclepolicy-schedule-variabletags -dlmlpsVariableTags :: Lens' DLMLifecyclePolicySchedule (Maybe [Tag]) -dlmlpsVariableTags = lens _dLMLifecyclePolicyScheduleVariableTags (\s a -> s { _dLMLifecyclePolicyScheduleVariableTags = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DMSEndpointDynamoDbSettings.hs b/library-gen/Stratosphere/ResourceProperties/DMSEndpointDynamoDbSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DMSEndpointDynamoDbSettings.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-dynamodbsettings.html - -module Stratosphere.ResourceProperties.DMSEndpointDynamoDbSettings where - -import Stratosphere.ResourceImports - - --- | Full data type definition for DMSEndpointDynamoDbSettings. See --- 'dmsEndpointDynamoDbSettings' for a more convenient constructor. -data DMSEndpointDynamoDbSettings = - DMSEndpointDynamoDbSettings - { _dMSEndpointDynamoDbSettingsServiceAccessRoleArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON DMSEndpointDynamoDbSettings where - toJSON DMSEndpointDynamoDbSettings{..} = - object $ - catMaybes - [ fmap (("ServiceAccessRoleArn",) . toJSON) _dMSEndpointDynamoDbSettingsServiceAccessRoleArn - ] - --- | Constructor for 'DMSEndpointDynamoDbSettings' containing required fields --- as arguments. -dmsEndpointDynamoDbSettings - :: DMSEndpointDynamoDbSettings -dmsEndpointDynamoDbSettings = - DMSEndpointDynamoDbSettings - { _dMSEndpointDynamoDbSettingsServiceAccessRoleArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-dynamodbsettings.html#cfn-dms-endpoint-dynamodbsettings-serviceaccessrolearn -dmseddsServiceAccessRoleArn :: Lens' DMSEndpointDynamoDbSettings (Maybe (Val Text)) -dmseddsServiceAccessRoleArn = lens _dMSEndpointDynamoDbSettingsServiceAccessRoleArn (\s a -> s { _dMSEndpointDynamoDbSettingsServiceAccessRoleArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DMSEndpointElasticsearchSettings.hs b/library-gen/Stratosphere/ResourceProperties/DMSEndpointElasticsearchSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DMSEndpointElasticsearchSettings.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-elasticsearchsettings.html - -module Stratosphere.ResourceProperties.DMSEndpointElasticsearchSettings where - -import Stratosphere.ResourceImports - - --- | Full data type definition for DMSEndpointElasticsearchSettings. See --- 'dmsEndpointElasticsearchSettings' for a more convenient constructor. -data DMSEndpointElasticsearchSettings = - DMSEndpointElasticsearchSettings - { _dMSEndpointElasticsearchSettingsEndpointUri :: Maybe (Val Text) - , _dMSEndpointElasticsearchSettingsErrorRetryDuration :: Maybe (Val Integer) - , _dMSEndpointElasticsearchSettingsFullLoadErrorPercentage :: Maybe (Val Integer) - , _dMSEndpointElasticsearchSettingsServiceAccessRoleArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON DMSEndpointElasticsearchSettings where - toJSON DMSEndpointElasticsearchSettings{..} = - object $ - catMaybes - [ fmap (("EndpointUri",) . toJSON) _dMSEndpointElasticsearchSettingsEndpointUri - , fmap (("ErrorRetryDuration",) . toJSON) _dMSEndpointElasticsearchSettingsErrorRetryDuration - , fmap (("FullLoadErrorPercentage",) . toJSON) _dMSEndpointElasticsearchSettingsFullLoadErrorPercentage - , fmap (("ServiceAccessRoleArn",) . toJSON) _dMSEndpointElasticsearchSettingsServiceAccessRoleArn - ] - --- | Constructor for 'DMSEndpointElasticsearchSettings' containing required --- fields as arguments. -dmsEndpointElasticsearchSettings - :: DMSEndpointElasticsearchSettings -dmsEndpointElasticsearchSettings = - DMSEndpointElasticsearchSettings - { _dMSEndpointElasticsearchSettingsEndpointUri = Nothing - , _dMSEndpointElasticsearchSettingsErrorRetryDuration = Nothing - , _dMSEndpointElasticsearchSettingsFullLoadErrorPercentage = Nothing - , _dMSEndpointElasticsearchSettingsServiceAccessRoleArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-elasticsearchsettings.html#cfn-dms-endpoint-elasticsearchsettings-endpointuri -dmseesEndpointUri :: Lens' DMSEndpointElasticsearchSettings (Maybe (Val Text)) -dmseesEndpointUri = lens _dMSEndpointElasticsearchSettingsEndpointUri (\s a -> s { _dMSEndpointElasticsearchSettingsEndpointUri = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-elasticsearchsettings.html#cfn-dms-endpoint-elasticsearchsettings-errorretryduration -dmseesErrorRetryDuration :: Lens' DMSEndpointElasticsearchSettings (Maybe (Val Integer)) -dmseesErrorRetryDuration = lens _dMSEndpointElasticsearchSettingsErrorRetryDuration (\s a -> s { _dMSEndpointElasticsearchSettingsErrorRetryDuration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-elasticsearchsettings.html#cfn-dms-endpoint-elasticsearchsettings-fullloaderrorpercentage -dmseesFullLoadErrorPercentage :: Lens' DMSEndpointElasticsearchSettings (Maybe (Val Integer)) -dmseesFullLoadErrorPercentage = lens _dMSEndpointElasticsearchSettingsFullLoadErrorPercentage (\s a -> s { _dMSEndpointElasticsearchSettingsFullLoadErrorPercentage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-elasticsearchsettings.html#cfn-dms-endpoint-elasticsearchsettings-serviceaccessrolearn -dmseesServiceAccessRoleArn :: Lens' DMSEndpointElasticsearchSettings (Maybe (Val Text)) -dmseesServiceAccessRoleArn = lens _dMSEndpointElasticsearchSettingsServiceAccessRoleArn (\s a -> s { _dMSEndpointElasticsearchSettingsServiceAccessRoleArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DMSEndpointKafkaSettings.hs b/library-gen/Stratosphere/ResourceProperties/DMSEndpointKafkaSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DMSEndpointKafkaSettings.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-kafkasettings.html - -module Stratosphere.ResourceProperties.DMSEndpointKafkaSettings where - -import Stratosphere.ResourceImports - - --- | Full data type definition for DMSEndpointKafkaSettings. See --- 'dmsEndpointKafkaSettings' for a more convenient constructor. -data DMSEndpointKafkaSettings = - DMSEndpointKafkaSettings - { _dMSEndpointKafkaSettingsBroker :: Maybe (Val Text) - , _dMSEndpointKafkaSettingsTopic :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON DMSEndpointKafkaSettings where - toJSON DMSEndpointKafkaSettings{..} = - object $ - catMaybes - [ fmap (("Broker",) . toJSON) _dMSEndpointKafkaSettingsBroker - , fmap (("Topic",) . toJSON) _dMSEndpointKafkaSettingsTopic - ] - --- | Constructor for 'DMSEndpointKafkaSettings' containing required fields as --- arguments. -dmsEndpointKafkaSettings - :: DMSEndpointKafkaSettings -dmsEndpointKafkaSettings = - DMSEndpointKafkaSettings - { _dMSEndpointKafkaSettingsBroker = Nothing - , _dMSEndpointKafkaSettingsTopic = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-kafkasettings.html#cfn-dms-endpoint-kafkasettings-broker -dmseksBroker :: Lens' DMSEndpointKafkaSettings (Maybe (Val Text)) -dmseksBroker = lens _dMSEndpointKafkaSettingsBroker (\s a -> s { _dMSEndpointKafkaSettingsBroker = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-kafkasettings.html#cfn-dms-endpoint-kafkasettings-topic -dmseksTopic :: Lens' DMSEndpointKafkaSettings (Maybe (Val Text)) -dmseksTopic = lens _dMSEndpointKafkaSettingsTopic (\s a -> s { _dMSEndpointKafkaSettingsTopic = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DMSEndpointKinesisSettings.hs b/library-gen/Stratosphere/ResourceProperties/DMSEndpointKinesisSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DMSEndpointKinesisSettings.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-kinesissettings.html - -module Stratosphere.ResourceProperties.DMSEndpointKinesisSettings where - -import Stratosphere.ResourceImports - - --- | Full data type definition for DMSEndpointKinesisSettings. See --- 'dmsEndpointKinesisSettings' for a more convenient constructor. -data DMSEndpointKinesisSettings = - DMSEndpointKinesisSettings - { _dMSEndpointKinesisSettingsMessageFormat :: Maybe (Val Text) - , _dMSEndpointKinesisSettingsServiceAccessRoleArn :: Maybe (Val Text) - , _dMSEndpointKinesisSettingsStreamArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON DMSEndpointKinesisSettings where - toJSON DMSEndpointKinesisSettings{..} = - object $ - catMaybes - [ fmap (("MessageFormat",) . toJSON) _dMSEndpointKinesisSettingsMessageFormat - , fmap (("ServiceAccessRoleArn",) . toJSON) _dMSEndpointKinesisSettingsServiceAccessRoleArn - , fmap (("StreamArn",) . toJSON) _dMSEndpointKinesisSettingsStreamArn - ] - --- | Constructor for 'DMSEndpointKinesisSettings' containing required fields --- as arguments. -dmsEndpointKinesisSettings - :: DMSEndpointKinesisSettings -dmsEndpointKinesisSettings = - DMSEndpointKinesisSettings - { _dMSEndpointKinesisSettingsMessageFormat = Nothing - , _dMSEndpointKinesisSettingsServiceAccessRoleArn = Nothing - , _dMSEndpointKinesisSettingsStreamArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-kinesissettings.html#cfn-dms-endpoint-kinesissettings-messageformat -dmseksMessageFormat :: Lens' DMSEndpointKinesisSettings (Maybe (Val Text)) -dmseksMessageFormat = lens _dMSEndpointKinesisSettingsMessageFormat (\s a -> s { _dMSEndpointKinesisSettingsMessageFormat = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-kinesissettings.html#cfn-dms-endpoint-kinesissettings-serviceaccessrolearn -dmseksServiceAccessRoleArn :: Lens' DMSEndpointKinesisSettings (Maybe (Val Text)) -dmseksServiceAccessRoleArn = lens _dMSEndpointKinesisSettingsServiceAccessRoleArn (\s a -> s { _dMSEndpointKinesisSettingsServiceAccessRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-kinesissettings.html#cfn-dms-endpoint-kinesissettings-streamarn -dmseksStreamArn :: Lens' DMSEndpointKinesisSettings (Maybe (Val Text)) -dmseksStreamArn = lens _dMSEndpointKinesisSettingsStreamArn (\s a -> s { _dMSEndpointKinesisSettingsStreamArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DMSEndpointMongoDbSettings.hs b/library-gen/Stratosphere/ResourceProperties/DMSEndpointMongoDbSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DMSEndpointMongoDbSettings.hs +++ /dev/null @@ -1,108 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-mongodbsettings.html - -module Stratosphere.ResourceProperties.DMSEndpointMongoDbSettings where - -import Stratosphere.ResourceImports - - --- | Full data type definition for DMSEndpointMongoDbSettings. See --- 'dmsEndpointMongoDbSettings' for a more convenient constructor. -data DMSEndpointMongoDbSettings = - DMSEndpointMongoDbSettings - { _dMSEndpointMongoDbSettingsAuthMechanism :: Maybe (Val Text) - , _dMSEndpointMongoDbSettingsAuthSource :: Maybe (Val Text) - , _dMSEndpointMongoDbSettingsAuthType :: Maybe (Val Text) - , _dMSEndpointMongoDbSettingsDatabaseName :: Maybe (Val Text) - , _dMSEndpointMongoDbSettingsDocsToInvestigate :: Maybe (Val Text) - , _dMSEndpointMongoDbSettingsExtractDocId :: Maybe (Val Text) - , _dMSEndpointMongoDbSettingsNestingLevel :: Maybe (Val Text) - , _dMSEndpointMongoDbSettingsPassword :: Maybe (Val Text) - , _dMSEndpointMongoDbSettingsPort :: Maybe (Val Integer) - , _dMSEndpointMongoDbSettingsServerName :: Maybe (Val Text) - , _dMSEndpointMongoDbSettingsUsername :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON DMSEndpointMongoDbSettings where - toJSON DMSEndpointMongoDbSettings{..} = - object $ - catMaybes - [ fmap (("AuthMechanism",) . toJSON) _dMSEndpointMongoDbSettingsAuthMechanism - , fmap (("AuthSource",) . toJSON) _dMSEndpointMongoDbSettingsAuthSource - , fmap (("AuthType",) . toJSON) _dMSEndpointMongoDbSettingsAuthType - , fmap (("DatabaseName",) . toJSON) _dMSEndpointMongoDbSettingsDatabaseName - , fmap (("DocsToInvestigate",) . toJSON) _dMSEndpointMongoDbSettingsDocsToInvestigate - , fmap (("ExtractDocId",) . toJSON) _dMSEndpointMongoDbSettingsExtractDocId - , fmap (("NestingLevel",) . toJSON) _dMSEndpointMongoDbSettingsNestingLevel - , fmap (("Password",) . toJSON) _dMSEndpointMongoDbSettingsPassword - , fmap (("Port",) . toJSON) _dMSEndpointMongoDbSettingsPort - , fmap (("ServerName",) . toJSON) _dMSEndpointMongoDbSettingsServerName - , fmap (("Username",) . toJSON) _dMSEndpointMongoDbSettingsUsername - ] - --- | Constructor for 'DMSEndpointMongoDbSettings' containing required fields --- as arguments. -dmsEndpointMongoDbSettings - :: DMSEndpointMongoDbSettings -dmsEndpointMongoDbSettings = - DMSEndpointMongoDbSettings - { _dMSEndpointMongoDbSettingsAuthMechanism = Nothing - , _dMSEndpointMongoDbSettingsAuthSource = Nothing - , _dMSEndpointMongoDbSettingsAuthType = Nothing - , _dMSEndpointMongoDbSettingsDatabaseName = Nothing - , _dMSEndpointMongoDbSettingsDocsToInvestigate = Nothing - , _dMSEndpointMongoDbSettingsExtractDocId = Nothing - , _dMSEndpointMongoDbSettingsNestingLevel = Nothing - , _dMSEndpointMongoDbSettingsPassword = Nothing - , _dMSEndpointMongoDbSettingsPort = Nothing - , _dMSEndpointMongoDbSettingsServerName = Nothing - , _dMSEndpointMongoDbSettingsUsername = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-mongodbsettings.html#cfn-dms-endpoint-mongodbsettings-authmechanism -dmsemdsAuthMechanism :: Lens' DMSEndpointMongoDbSettings (Maybe (Val Text)) -dmsemdsAuthMechanism = lens _dMSEndpointMongoDbSettingsAuthMechanism (\s a -> s { _dMSEndpointMongoDbSettingsAuthMechanism = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-mongodbsettings.html#cfn-dms-endpoint-mongodbsettings-authsource -dmsemdsAuthSource :: Lens' DMSEndpointMongoDbSettings (Maybe (Val Text)) -dmsemdsAuthSource = lens _dMSEndpointMongoDbSettingsAuthSource (\s a -> s { _dMSEndpointMongoDbSettingsAuthSource = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-mongodbsettings.html#cfn-dms-endpoint-mongodbsettings-authtype -dmsemdsAuthType :: Lens' DMSEndpointMongoDbSettings (Maybe (Val Text)) -dmsemdsAuthType = lens _dMSEndpointMongoDbSettingsAuthType (\s a -> s { _dMSEndpointMongoDbSettingsAuthType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-mongodbsettings.html#cfn-dms-endpoint-mongodbsettings-databasename -dmsemdsDatabaseName :: Lens' DMSEndpointMongoDbSettings (Maybe (Val Text)) -dmsemdsDatabaseName = lens _dMSEndpointMongoDbSettingsDatabaseName (\s a -> s { _dMSEndpointMongoDbSettingsDatabaseName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-mongodbsettings.html#cfn-dms-endpoint-mongodbsettings-docstoinvestigate -dmsemdsDocsToInvestigate :: Lens' DMSEndpointMongoDbSettings (Maybe (Val Text)) -dmsemdsDocsToInvestigate = lens _dMSEndpointMongoDbSettingsDocsToInvestigate (\s a -> s { _dMSEndpointMongoDbSettingsDocsToInvestigate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-mongodbsettings.html#cfn-dms-endpoint-mongodbsettings-extractdocid -dmsemdsExtractDocId :: Lens' DMSEndpointMongoDbSettings (Maybe (Val Text)) -dmsemdsExtractDocId = lens _dMSEndpointMongoDbSettingsExtractDocId (\s a -> s { _dMSEndpointMongoDbSettingsExtractDocId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-mongodbsettings.html#cfn-dms-endpoint-mongodbsettings-nestinglevel -dmsemdsNestingLevel :: Lens' DMSEndpointMongoDbSettings (Maybe (Val Text)) -dmsemdsNestingLevel = lens _dMSEndpointMongoDbSettingsNestingLevel (\s a -> s { _dMSEndpointMongoDbSettingsNestingLevel = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-mongodbsettings.html#cfn-dms-endpoint-mongodbsettings-password -dmsemdsPassword :: Lens' DMSEndpointMongoDbSettings (Maybe (Val Text)) -dmsemdsPassword = lens _dMSEndpointMongoDbSettingsPassword (\s a -> s { _dMSEndpointMongoDbSettingsPassword = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-mongodbsettings.html#cfn-dms-endpoint-mongodbsettings-port -dmsemdsPort :: Lens' DMSEndpointMongoDbSettings (Maybe (Val Integer)) -dmsemdsPort = lens _dMSEndpointMongoDbSettingsPort (\s a -> s { _dMSEndpointMongoDbSettingsPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-mongodbsettings.html#cfn-dms-endpoint-mongodbsettings-servername -dmsemdsServerName :: Lens' DMSEndpointMongoDbSettings (Maybe (Val Text)) -dmsemdsServerName = lens _dMSEndpointMongoDbSettingsServerName (\s a -> s { _dMSEndpointMongoDbSettingsServerName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-mongodbsettings.html#cfn-dms-endpoint-mongodbsettings-username -dmsemdsUsername :: Lens' DMSEndpointMongoDbSettings (Maybe (Val Text)) -dmsemdsUsername = lens _dMSEndpointMongoDbSettingsUsername (\s a -> s { _dMSEndpointMongoDbSettingsUsername = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DMSEndpointNeptuneSettings.hs b/library-gen/Stratosphere/ResourceProperties/DMSEndpointNeptuneSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DMSEndpointNeptuneSettings.hs +++ /dev/null @@ -1,80 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-neptunesettings.html - -module Stratosphere.ResourceProperties.DMSEndpointNeptuneSettings where - -import Stratosphere.ResourceImports - - --- | Full data type definition for DMSEndpointNeptuneSettings. See --- 'dmsEndpointNeptuneSettings' for a more convenient constructor. -data DMSEndpointNeptuneSettings = - DMSEndpointNeptuneSettings - { _dMSEndpointNeptuneSettingsErrorRetryDuration :: Maybe (Val Integer) - , _dMSEndpointNeptuneSettingsIamAuthEnabled :: Maybe (Val Bool) - , _dMSEndpointNeptuneSettingsMaxFileSize :: Maybe (Val Integer) - , _dMSEndpointNeptuneSettingsMaxRetryCount :: Maybe (Val Integer) - , _dMSEndpointNeptuneSettingsS3BucketFolder :: Maybe (Val Text) - , _dMSEndpointNeptuneSettingsS3BucketName :: Maybe (Val Text) - , _dMSEndpointNeptuneSettingsServiceAccessRoleArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON DMSEndpointNeptuneSettings where - toJSON DMSEndpointNeptuneSettings{..} = - object $ - catMaybes - [ fmap (("ErrorRetryDuration",) . toJSON) _dMSEndpointNeptuneSettingsErrorRetryDuration - , fmap (("IamAuthEnabled",) . toJSON) _dMSEndpointNeptuneSettingsIamAuthEnabled - , fmap (("MaxFileSize",) . toJSON) _dMSEndpointNeptuneSettingsMaxFileSize - , fmap (("MaxRetryCount",) . toJSON) _dMSEndpointNeptuneSettingsMaxRetryCount - , fmap (("S3BucketFolder",) . toJSON) _dMSEndpointNeptuneSettingsS3BucketFolder - , fmap (("S3BucketName",) . toJSON) _dMSEndpointNeptuneSettingsS3BucketName - , fmap (("ServiceAccessRoleArn",) . toJSON) _dMSEndpointNeptuneSettingsServiceAccessRoleArn - ] - --- | Constructor for 'DMSEndpointNeptuneSettings' containing required fields --- as arguments. -dmsEndpointNeptuneSettings - :: DMSEndpointNeptuneSettings -dmsEndpointNeptuneSettings = - DMSEndpointNeptuneSettings - { _dMSEndpointNeptuneSettingsErrorRetryDuration = Nothing - , _dMSEndpointNeptuneSettingsIamAuthEnabled = Nothing - , _dMSEndpointNeptuneSettingsMaxFileSize = Nothing - , _dMSEndpointNeptuneSettingsMaxRetryCount = Nothing - , _dMSEndpointNeptuneSettingsS3BucketFolder = Nothing - , _dMSEndpointNeptuneSettingsS3BucketName = Nothing - , _dMSEndpointNeptuneSettingsServiceAccessRoleArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-neptunesettings.html#cfn-dms-endpoint-neptunesettings-errorretryduration -dmsensErrorRetryDuration :: Lens' DMSEndpointNeptuneSettings (Maybe (Val Integer)) -dmsensErrorRetryDuration = lens _dMSEndpointNeptuneSettingsErrorRetryDuration (\s a -> s { _dMSEndpointNeptuneSettingsErrorRetryDuration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-neptunesettings.html#cfn-dms-endpoint-neptunesettings-iamauthenabled -dmsensIamAuthEnabled :: Lens' DMSEndpointNeptuneSettings (Maybe (Val Bool)) -dmsensIamAuthEnabled = lens _dMSEndpointNeptuneSettingsIamAuthEnabled (\s a -> s { _dMSEndpointNeptuneSettingsIamAuthEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-neptunesettings.html#cfn-dms-endpoint-neptunesettings-maxfilesize -dmsensMaxFileSize :: Lens' DMSEndpointNeptuneSettings (Maybe (Val Integer)) -dmsensMaxFileSize = lens _dMSEndpointNeptuneSettingsMaxFileSize (\s a -> s { _dMSEndpointNeptuneSettingsMaxFileSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-neptunesettings.html#cfn-dms-endpoint-neptunesettings-maxretrycount -dmsensMaxRetryCount :: Lens' DMSEndpointNeptuneSettings (Maybe (Val Integer)) -dmsensMaxRetryCount = lens _dMSEndpointNeptuneSettingsMaxRetryCount (\s a -> s { _dMSEndpointNeptuneSettingsMaxRetryCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-neptunesettings.html#cfn-dms-endpoint-neptunesettings-s3bucketfolder -dmsensS3BucketFolder :: Lens' DMSEndpointNeptuneSettings (Maybe (Val Text)) -dmsensS3BucketFolder = lens _dMSEndpointNeptuneSettingsS3BucketFolder (\s a -> s { _dMSEndpointNeptuneSettingsS3BucketFolder = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-neptunesettings.html#cfn-dms-endpoint-neptunesettings-s3bucketname -dmsensS3BucketName :: Lens' DMSEndpointNeptuneSettings (Maybe (Val Text)) -dmsensS3BucketName = lens _dMSEndpointNeptuneSettingsS3BucketName (\s a -> s { _dMSEndpointNeptuneSettingsS3BucketName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-neptunesettings.html#cfn-dms-endpoint-neptunesettings-serviceaccessrolearn -dmsensServiceAccessRoleArn :: Lens' DMSEndpointNeptuneSettings (Maybe (Val Text)) -dmsensServiceAccessRoleArn = lens _dMSEndpointNeptuneSettingsServiceAccessRoleArn (\s a -> s { _dMSEndpointNeptuneSettingsServiceAccessRoleArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DMSEndpointS3Settings.hs b/library-gen/Stratosphere/ResourceProperties/DMSEndpointS3Settings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DMSEndpointS3Settings.hs +++ /dev/null @@ -1,80 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-s3settings.html - -module Stratosphere.ResourceProperties.DMSEndpointS3Settings where - -import Stratosphere.ResourceImports - - --- | Full data type definition for DMSEndpointS3Settings. See --- 'dmsEndpointS3Settings' for a more convenient constructor. -data DMSEndpointS3Settings = - DMSEndpointS3Settings - { _dMSEndpointS3SettingsBucketFolder :: Maybe (Val Text) - , _dMSEndpointS3SettingsBucketName :: Maybe (Val Text) - , _dMSEndpointS3SettingsCompressionType :: Maybe (Val Text) - , _dMSEndpointS3SettingsCsvDelimiter :: Maybe (Val Text) - , _dMSEndpointS3SettingsCsvRowDelimiter :: Maybe (Val Text) - , _dMSEndpointS3SettingsExternalTableDefinition :: Maybe (Val Text) - , _dMSEndpointS3SettingsServiceAccessRoleArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON DMSEndpointS3Settings where - toJSON DMSEndpointS3Settings{..} = - object $ - catMaybes - [ fmap (("BucketFolder",) . toJSON) _dMSEndpointS3SettingsBucketFolder - , fmap (("BucketName",) . toJSON) _dMSEndpointS3SettingsBucketName - , fmap (("CompressionType",) . toJSON) _dMSEndpointS3SettingsCompressionType - , fmap (("CsvDelimiter",) . toJSON) _dMSEndpointS3SettingsCsvDelimiter - , fmap (("CsvRowDelimiter",) . toJSON) _dMSEndpointS3SettingsCsvRowDelimiter - , fmap (("ExternalTableDefinition",) . toJSON) _dMSEndpointS3SettingsExternalTableDefinition - , fmap (("ServiceAccessRoleArn",) . toJSON) _dMSEndpointS3SettingsServiceAccessRoleArn - ] - --- | Constructor for 'DMSEndpointS3Settings' containing required fields as --- arguments. -dmsEndpointS3Settings - :: DMSEndpointS3Settings -dmsEndpointS3Settings = - DMSEndpointS3Settings - { _dMSEndpointS3SettingsBucketFolder = Nothing - , _dMSEndpointS3SettingsBucketName = Nothing - , _dMSEndpointS3SettingsCompressionType = Nothing - , _dMSEndpointS3SettingsCsvDelimiter = Nothing - , _dMSEndpointS3SettingsCsvRowDelimiter = Nothing - , _dMSEndpointS3SettingsExternalTableDefinition = Nothing - , _dMSEndpointS3SettingsServiceAccessRoleArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-s3settings.html#cfn-dms-endpoint-s3settings-bucketfolder -dmsessBucketFolder :: Lens' DMSEndpointS3Settings (Maybe (Val Text)) -dmsessBucketFolder = lens _dMSEndpointS3SettingsBucketFolder (\s a -> s { _dMSEndpointS3SettingsBucketFolder = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-s3settings.html#cfn-dms-endpoint-s3settings-bucketname -dmsessBucketName :: Lens' DMSEndpointS3Settings (Maybe (Val Text)) -dmsessBucketName = lens _dMSEndpointS3SettingsBucketName (\s a -> s { _dMSEndpointS3SettingsBucketName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-s3settings.html#cfn-dms-endpoint-s3settings-compressiontype -dmsessCompressionType :: Lens' DMSEndpointS3Settings (Maybe (Val Text)) -dmsessCompressionType = lens _dMSEndpointS3SettingsCompressionType (\s a -> s { _dMSEndpointS3SettingsCompressionType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-s3settings.html#cfn-dms-endpoint-s3settings-csvdelimiter -dmsessCsvDelimiter :: Lens' DMSEndpointS3Settings (Maybe (Val Text)) -dmsessCsvDelimiter = lens _dMSEndpointS3SettingsCsvDelimiter (\s a -> s { _dMSEndpointS3SettingsCsvDelimiter = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-s3settings.html#cfn-dms-endpoint-s3settings-csvrowdelimiter -dmsessCsvRowDelimiter :: Lens' DMSEndpointS3Settings (Maybe (Val Text)) -dmsessCsvRowDelimiter = lens _dMSEndpointS3SettingsCsvRowDelimiter (\s a -> s { _dMSEndpointS3SettingsCsvRowDelimiter = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-s3settings.html#cfn-dms-endpoint-s3settings-externaltabledefinition -dmsessExternalTableDefinition :: Lens' DMSEndpointS3Settings (Maybe (Val Text)) -dmsessExternalTableDefinition = lens _dMSEndpointS3SettingsExternalTableDefinition (\s a -> s { _dMSEndpointS3SettingsExternalTableDefinition = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-endpoint-s3settings.html#cfn-dms-endpoint-s3settings-serviceaccessrolearn -dmsessServiceAccessRoleArn :: Lens' DMSEndpointS3Settings (Maybe (Val Text)) -dmsessServiceAccessRoleArn = lens _dMSEndpointS3SettingsServiceAccessRoleArn (\s a -> s { _dMSEndpointS3SettingsServiceAccessRoleArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DataPipelinePipelineField.hs b/library-gen/Stratosphere/ResourceProperties/DataPipelinePipelineField.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DataPipelinePipelineField.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-datapipeline-pipeline-pipelineobjects-fields.html - -module Stratosphere.ResourceProperties.DataPipelinePipelineField where - -import Stratosphere.ResourceImports - - --- | Full data type definition for DataPipelinePipelineField. See --- 'dataPipelinePipelineField' for a more convenient constructor. -data DataPipelinePipelineField = - DataPipelinePipelineField - { _dataPipelinePipelineFieldKey :: Val Text - , _dataPipelinePipelineFieldRefValue :: Maybe (Val Text) - , _dataPipelinePipelineFieldStringValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON DataPipelinePipelineField where - toJSON DataPipelinePipelineField{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _dataPipelinePipelineFieldKey - , fmap (("RefValue",) . toJSON) _dataPipelinePipelineFieldRefValue - , fmap (("StringValue",) . toJSON) _dataPipelinePipelineFieldStringValue - ] - --- | Constructor for 'DataPipelinePipelineField' containing required fields as --- arguments. -dataPipelinePipelineField - :: Val Text -- ^ 'dppfKey' - -> DataPipelinePipelineField -dataPipelinePipelineField keyarg = - DataPipelinePipelineField - { _dataPipelinePipelineFieldKey = keyarg - , _dataPipelinePipelineFieldRefValue = Nothing - , _dataPipelinePipelineFieldStringValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-datapipeline-pipeline-pipelineobjects-fields.html#cfn-datapipeline-pipeline-pipelineobjects-fields-key -dppfKey :: Lens' DataPipelinePipelineField (Val Text) -dppfKey = lens _dataPipelinePipelineFieldKey (\s a -> s { _dataPipelinePipelineFieldKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-datapipeline-pipeline-pipelineobjects-fields.html#cfn-datapipeline-pipeline-pipelineobjects-fields-refvalue -dppfRefValue :: Lens' DataPipelinePipelineField (Maybe (Val Text)) -dppfRefValue = lens _dataPipelinePipelineFieldRefValue (\s a -> s { _dataPipelinePipelineFieldRefValue = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-datapipeline-pipeline-pipelineobjects-fields.html#cfn-datapipeline-pipeline-pipelineobjects-fields-stringvalue -dppfStringValue :: Lens' DataPipelinePipelineField (Maybe (Val Text)) -dppfStringValue = lens _dataPipelinePipelineFieldStringValue (\s a -> s { _dataPipelinePipelineFieldStringValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DataPipelinePipelineParameterAttribute.hs b/library-gen/Stratosphere/ResourceProperties/DataPipelinePipelineParameterAttribute.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DataPipelinePipelineParameterAttribute.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-datapipeline-pipeline-parameterobjects-attributes.html - -module Stratosphere.ResourceProperties.DataPipelinePipelineParameterAttribute where - -import Stratosphere.ResourceImports - - --- | Full data type definition for DataPipelinePipelineParameterAttribute. See --- 'dataPipelinePipelineParameterAttribute' for a more convenient --- constructor. -data DataPipelinePipelineParameterAttribute = - DataPipelinePipelineParameterAttribute - { _dataPipelinePipelineParameterAttributeKey :: Val Text - , _dataPipelinePipelineParameterAttributeStringValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON DataPipelinePipelineParameterAttribute where - toJSON DataPipelinePipelineParameterAttribute{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _dataPipelinePipelineParameterAttributeKey - , (Just . ("StringValue",) . toJSON) _dataPipelinePipelineParameterAttributeStringValue - ] - --- | Constructor for 'DataPipelinePipelineParameterAttribute' containing --- required fields as arguments. -dataPipelinePipelineParameterAttribute - :: Val Text -- ^ 'dpppaKey' - -> Val Text -- ^ 'dpppaStringValue' - -> DataPipelinePipelineParameterAttribute -dataPipelinePipelineParameterAttribute keyarg stringValuearg = - DataPipelinePipelineParameterAttribute - { _dataPipelinePipelineParameterAttributeKey = keyarg - , _dataPipelinePipelineParameterAttributeStringValue = stringValuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-datapipeline-pipeline-parameterobjects-attributes.html#cfn-datapipeline-pipeline-parameterobjects-attribtues-key -dpppaKey :: Lens' DataPipelinePipelineParameterAttribute (Val Text) -dpppaKey = lens _dataPipelinePipelineParameterAttributeKey (\s a -> s { _dataPipelinePipelineParameterAttributeKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-datapipeline-pipeline-parameterobjects-attributes.html#cfn-datapipeline-pipeline-parameterobjects-attribtues-stringvalue -dpppaStringValue :: Lens' DataPipelinePipelineParameterAttribute (Val Text) -dpppaStringValue = lens _dataPipelinePipelineParameterAttributeStringValue (\s a -> s { _dataPipelinePipelineParameterAttributeStringValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DataPipelinePipelineParameterObject.hs b/library-gen/Stratosphere/ResourceProperties/DataPipelinePipelineParameterObject.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DataPipelinePipelineParameterObject.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-datapipeline-pipeline-parameterobjects.html - -module Stratosphere.ResourceProperties.DataPipelinePipelineParameterObject where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.DataPipelinePipelineParameterAttribute - --- | Full data type definition for DataPipelinePipelineParameterObject. See --- 'dataPipelinePipelineParameterObject' for a more convenient constructor. -data DataPipelinePipelineParameterObject = - DataPipelinePipelineParameterObject - { _dataPipelinePipelineParameterObjectAttributes :: [DataPipelinePipelineParameterAttribute] - , _dataPipelinePipelineParameterObjectId :: Val Text - } deriving (Show, Eq) - -instance ToJSON DataPipelinePipelineParameterObject where - toJSON DataPipelinePipelineParameterObject{..} = - object $ - catMaybes - [ (Just . ("Attributes",) . toJSON) _dataPipelinePipelineParameterObjectAttributes - , (Just . ("Id",) . toJSON) _dataPipelinePipelineParameterObjectId - ] - --- | Constructor for 'DataPipelinePipelineParameterObject' containing required --- fields as arguments. -dataPipelinePipelineParameterObject - :: [DataPipelinePipelineParameterAttribute] -- ^ 'dpppaoAttributes' - -> Val Text -- ^ 'dpppaoId' - -> DataPipelinePipelineParameterObject -dataPipelinePipelineParameterObject attributesarg idarg = - DataPipelinePipelineParameterObject - { _dataPipelinePipelineParameterObjectAttributes = attributesarg - , _dataPipelinePipelineParameterObjectId = idarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-datapipeline-pipeline-parameterobjects.html#cfn-datapipeline-pipeline-parameterobjects-attributes -dpppaoAttributes :: Lens' DataPipelinePipelineParameterObject [DataPipelinePipelineParameterAttribute] -dpppaoAttributes = lens _dataPipelinePipelineParameterObjectAttributes (\s a -> s { _dataPipelinePipelineParameterObjectAttributes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-datapipeline-pipeline-parameterobjects.html#cfn-datapipeline-pipeline-parameterobjects-id -dpppaoId :: Lens' DataPipelinePipelineParameterObject (Val Text) -dpppaoId = lens _dataPipelinePipelineParameterObjectId (\s a -> s { _dataPipelinePipelineParameterObjectId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DataPipelinePipelineParameterValue.hs b/library-gen/Stratosphere/ResourceProperties/DataPipelinePipelineParameterValue.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DataPipelinePipelineParameterValue.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-datapipeline-pipeline-parametervalues.html - -module Stratosphere.ResourceProperties.DataPipelinePipelineParameterValue where - -import Stratosphere.ResourceImports - - --- | Full data type definition for DataPipelinePipelineParameterValue. See --- 'dataPipelinePipelineParameterValue' for a more convenient constructor. -data DataPipelinePipelineParameterValue = - DataPipelinePipelineParameterValue - { _dataPipelinePipelineParameterValueId :: Val Text - , _dataPipelinePipelineParameterValueStringValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON DataPipelinePipelineParameterValue where - toJSON DataPipelinePipelineParameterValue{..} = - object $ - catMaybes - [ (Just . ("Id",) . toJSON) _dataPipelinePipelineParameterValueId - , (Just . ("StringValue",) . toJSON) _dataPipelinePipelineParameterValueStringValue - ] - --- | Constructor for 'DataPipelinePipelineParameterValue' containing required --- fields as arguments. -dataPipelinePipelineParameterValue - :: Val Text -- ^ 'dpppvId' - -> Val Text -- ^ 'dpppvStringValue' - -> DataPipelinePipelineParameterValue -dataPipelinePipelineParameterValue idarg stringValuearg = - DataPipelinePipelineParameterValue - { _dataPipelinePipelineParameterValueId = idarg - , _dataPipelinePipelineParameterValueStringValue = stringValuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-datapipeline-pipeline-parametervalues.html#cfn-datapipeline-pipeline-parametervalues-id -dpppvId :: Lens' DataPipelinePipelineParameterValue (Val Text) -dpppvId = lens _dataPipelinePipelineParameterValueId (\s a -> s { _dataPipelinePipelineParameterValueId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-datapipeline-pipeline-parametervalues.html#cfn-datapipeline-pipeline-parametervalues-stringvalue -dpppvStringValue :: Lens' DataPipelinePipelineParameterValue (Val Text) -dpppvStringValue = lens _dataPipelinePipelineParameterValueStringValue (\s a -> s { _dataPipelinePipelineParameterValueStringValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DataPipelinePipelinePipelineObject.hs b/library-gen/Stratosphere/ResourceProperties/DataPipelinePipelinePipelineObject.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DataPipelinePipelinePipelineObject.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-datapipeline-pipeline-pipelineobjects.html - -module Stratosphere.ResourceProperties.DataPipelinePipelinePipelineObject where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.DataPipelinePipelineField - --- | Full data type definition for DataPipelinePipelinePipelineObject. See --- 'dataPipelinePipelinePipelineObject' for a more convenient constructor. -data DataPipelinePipelinePipelineObject = - DataPipelinePipelinePipelineObject - { _dataPipelinePipelinePipelineObjectFields :: [DataPipelinePipelineField] - , _dataPipelinePipelinePipelineObjectId :: Val Text - , _dataPipelinePipelinePipelineObjectName :: Val Text - } deriving (Show, Eq) - -instance ToJSON DataPipelinePipelinePipelineObject where - toJSON DataPipelinePipelinePipelineObject{..} = - object $ - catMaybes - [ (Just . ("Fields",) . toJSON) _dataPipelinePipelinePipelineObjectFields - , (Just . ("Id",) . toJSON) _dataPipelinePipelinePipelineObjectId - , (Just . ("Name",) . toJSON) _dataPipelinePipelinePipelineObjectName - ] - --- | Constructor for 'DataPipelinePipelinePipelineObject' containing required --- fields as arguments. -dataPipelinePipelinePipelineObject - :: [DataPipelinePipelineField] -- ^ 'dpppioFields' - -> Val Text -- ^ 'dpppioId' - -> Val Text -- ^ 'dpppioName' - -> DataPipelinePipelinePipelineObject -dataPipelinePipelinePipelineObject fieldsarg idarg namearg = - DataPipelinePipelinePipelineObject - { _dataPipelinePipelinePipelineObjectFields = fieldsarg - , _dataPipelinePipelinePipelineObjectId = idarg - , _dataPipelinePipelinePipelineObjectName = namearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-datapipeline-pipeline-pipelineobjects.html#cfn-datapipeline-pipeline-pipelineobjects-fields -dpppioFields :: Lens' DataPipelinePipelinePipelineObject [DataPipelinePipelineField] -dpppioFields = lens _dataPipelinePipelinePipelineObjectFields (\s a -> s { _dataPipelinePipelinePipelineObjectFields = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-datapipeline-pipeline-pipelineobjects.html#cfn-datapipeline-pipeline-pipelineobjects-id -dpppioId :: Lens' DataPipelinePipelinePipelineObject (Val Text) -dpppioId = lens _dataPipelinePipelinePipelineObjectId (\s a -> s { _dataPipelinePipelinePipelineObjectId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-datapipeline-pipeline-pipelineobjects.html#cfn-datapipeline-pipeline-pipelineobjects-name -dpppioName :: Lens' DataPipelinePipelinePipelineObject (Val Text) -dpppioName = lens _dataPipelinePipelinePipelineObjectName (\s a -> s { _dataPipelinePipelinePipelineObjectName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DataPipelinePipelinePipelineTag.hs b/library-gen/Stratosphere/ResourceProperties/DataPipelinePipelinePipelineTag.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DataPipelinePipelinePipelineTag.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-datapipeline-pipeline-pipelinetags.html - -module Stratosphere.ResourceProperties.DataPipelinePipelinePipelineTag where - -import Stratosphere.ResourceImports - - --- | Full data type definition for DataPipelinePipelinePipelineTag. See --- 'dataPipelinePipelinePipelineTag' for a more convenient constructor. -data DataPipelinePipelinePipelineTag = - DataPipelinePipelinePipelineTag - { _dataPipelinePipelinePipelineTagKey :: Val Text - , _dataPipelinePipelinePipelineTagValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON DataPipelinePipelinePipelineTag where - toJSON DataPipelinePipelinePipelineTag{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _dataPipelinePipelinePipelineTagKey - , (Just . ("Value",) . toJSON) _dataPipelinePipelinePipelineTagValue - ] - --- | Constructor for 'DataPipelinePipelinePipelineTag' containing required --- fields as arguments. -dataPipelinePipelinePipelineTag - :: Val Text -- ^ 'dppptKey' - -> Val Text -- ^ 'dppptValue' - -> DataPipelinePipelinePipelineTag -dataPipelinePipelinePipelineTag keyarg valuearg = - DataPipelinePipelinePipelineTag - { _dataPipelinePipelinePipelineTagKey = keyarg - , _dataPipelinePipelinePipelineTagValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-datapipeline-pipeline-pipelinetags.html#cfn-datapipeline-pipeline-pipelinetags-key -dppptKey :: Lens' DataPipelinePipelinePipelineTag (Val Text) -dppptKey = lens _dataPipelinePipelinePipelineTagKey (\s a -> s { _dataPipelinePipelinePipelineTagKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-datapipeline-pipeline-pipelinetags.html#cfn-datapipeline-pipeline-pipelinetags-value -dppptValue :: Lens' DataPipelinePipelinePipelineTag (Val Text) -dppptValue = lens _dataPipelinePipelinePipelineTagValue (\s a -> s { _dataPipelinePipelinePipelineTagValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DirectoryServiceMicrosoftADVpcSettings.hs b/library-gen/Stratosphere/ResourceProperties/DirectoryServiceMicrosoftADVpcSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DirectoryServiceMicrosoftADVpcSettings.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-directoryservice-microsoftad-vpcsettings.html - -module Stratosphere.ResourceProperties.DirectoryServiceMicrosoftADVpcSettings where - -import Stratosphere.ResourceImports - - --- | Full data type definition for DirectoryServiceMicrosoftADVpcSettings. See --- 'directoryServiceMicrosoftADVpcSettings' for a more convenient --- constructor. -data DirectoryServiceMicrosoftADVpcSettings = - DirectoryServiceMicrosoftADVpcSettings - { _directoryServiceMicrosoftADVpcSettingsSubnetIds :: ValList Text - , _directoryServiceMicrosoftADVpcSettingsVpcId :: Val Text - } deriving (Show, Eq) - -instance ToJSON DirectoryServiceMicrosoftADVpcSettings where - toJSON DirectoryServiceMicrosoftADVpcSettings{..} = - object $ - catMaybes - [ (Just . ("SubnetIds",) . toJSON) _directoryServiceMicrosoftADVpcSettingsSubnetIds - , (Just . ("VpcId",) . toJSON) _directoryServiceMicrosoftADVpcSettingsVpcId - ] - --- | Constructor for 'DirectoryServiceMicrosoftADVpcSettings' containing --- required fields as arguments. -directoryServiceMicrosoftADVpcSettings - :: ValList Text -- ^ 'dsmadvsSubnetIds' - -> Val Text -- ^ 'dsmadvsVpcId' - -> DirectoryServiceMicrosoftADVpcSettings -directoryServiceMicrosoftADVpcSettings subnetIdsarg vpcIdarg = - DirectoryServiceMicrosoftADVpcSettings - { _directoryServiceMicrosoftADVpcSettingsSubnetIds = subnetIdsarg - , _directoryServiceMicrosoftADVpcSettingsVpcId = vpcIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-directoryservice-microsoftad-vpcsettings.html#cfn-directoryservice-microsoftad-vpcsettings-subnetids -dsmadvsSubnetIds :: Lens' DirectoryServiceMicrosoftADVpcSettings (ValList Text) -dsmadvsSubnetIds = lens _directoryServiceMicrosoftADVpcSettingsSubnetIds (\s a -> s { _directoryServiceMicrosoftADVpcSettingsSubnetIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-directoryservice-microsoftad-vpcsettings.html#cfn-directoryservice-microsoftad-vpcsettings-vpcid -dsmadvsVpcId :: Lens' DirectoryServiceMicrosoftADVpcSettings (Val Text) -dsmadvsVpcId = lens _directoryServiceMicrosoftADVpcSettingsVpcId (\s a -> s { _directoryServiceMicrosoftADVpcSettingsVpcId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DirectoryServiceSimpleADVpcSettings.hs b/library-gen/Stratosphere/ResourceProperties/DirectoryServiceSimpleADVpcSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DirectoryServiceSimpleADVpcSettings.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-directoryservice-simplead-vpcsettings.html - -module Stratosphere.ResourceProperties.DirectoryServiceSimpleADVpcSettings where - -import Stratosphere.ResourceImports - - --- | Full data type definition for DirectoryServiceSimpleADVpcSettings. See --- 'directoryServiceSimpleADVpcSettings' for a more convenient constructor. -data DirectoryServiceSimpleADVpcSettings = - DirectoryServiceSimpleADVpcSettings - { _directoryServiceSimpleADVpcSettingsSubnetIds :: ValList Text - , _directoryServiceSimpleADVpcSettingsVpcId :: Val Text - } deriving (Show, Eq) - -instance ToJSON DirectoryServiceSimpleADVpcSettings where - toJSON DirectoryServiceSimpleADVpcSettings{..} = - object $ - catMaybes - [ (Just . ("SubnetIds",) . toJSON) _directoryServiceSimpleADVpcSettingsSubnetIds - , (Just . ("VpcId",) . toJSON) _directoryServiceSimpleADVpcSettingsVpcId - ] - --- | Constructor for 'DirectoryServiceSimpleADVpcSettings' containing required --- fields as arguments. -directoryServiceSimpleADVpcSettings - :: ValList Text -- ^ 'dssadvsSubnetIds' - -> Val Text -- ^ 'dssadvsVpcId' - -> DirectoryServiceSimpleADVpcSettings -directoryServiceSimpleADVpcSettings subnetIdsarg vpcIdarg = - DirectoryServiceSimpleADVpcSettings - { _directoryServiceSimpleADVpcSettingsSubnetIds = subnetIdsarg - , _directoryServiceSimpleADVpcSettingsVpcId = vpcIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-directoryservice-simplead-vpcsettings.html#cfn-directoryservice-simplead-vpcsettings-subnetids -dssadvsSubnetIds :: Lens' DirectoryServiceSimpleADVpcSettings (ValList Text) -dssadvsSubnetIds = lens _directoryServiceSimpleADVpcSettingsSubnetIds (\s a -> s { _directoryServiceSimpleADVpcSettingsSubnetIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-directoryservice-simplead-vpcsettings.html#cfn-directoryservice-simplead-vpcsettings-vpcid -dssadvsVpcId :: Lens' DirectoryServiceSimpleADVpcSettings (Val Text) -dssadvsVpcId = lens _directoryServiceSimpleADVpcSettingsVpcId (\s a -> s { _directoryServiceSimpleADVpcSettingsVpcId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DynamoDBTableAttributeDefinition.hs b/library-gen/Stratosphere/ResourceProperties/DynamoDBTableAttributeDefinition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DynamoDBTableAttributeDefinition.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-attributedef.html - -module Stratosphere.ResourceProperties.DynamoDBTableAttributeDefinition where - -import Stratosphere.ResourceImports -import Stratosphere.Types - --- | Full data type definition for DynamoDBTableAttributeDefinition. See --- 'dynamoDBTableAttributeDefinition' for a more convenient constructor. -data DynamoDBTableAttributeDefinition = - DynamoDBTableAttributeDefinition - { _dynamoDBTableAttributeDefinitionAttributeName :: Val Text - , _dynamoDBTableAttributeDefinitionAttributeType :: Val AttributeType - } deriving (Show, Eq) - -instance ToJSON DynamoDBTableAttributeDefinition where - toJSON DynamoDBTableAttributeDefinition{..} = - object $ - catMaybes - [ (Just . ("AttributeName",) . toJSON) _dynamoDBTableAttributeDefinitionAttributeName - , (Just . ("AttributeType",) . toJSON) _dynamoDBTableAttributeDefinitionAttributeType - ] - --- | Constructor for 'DynamoDBTableAttributeDefinition' containing required --- fields as arguments. -dynamoDBTableAttributeDefinition - :: Val Text -- ^ 'ddbtadAttributeName' - -> Val AttributeType -- ^ 'ddbtadAttributeType' - -> DynamoDBTableAttributeDefinition -dynamoDBTableAttributeDefinition attributeNamearg attributeTypearg = - DynamoDBTableAttributeDefinition - { _dynamoDBTableAttributeDefinitionAttributeName = attributeNamearg - , _dynamoDBTableAttributeDefinitionAttributeType = attributeTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-attributedef.html#cfn-dynamodb-attributedef-attributename -ddbtadAttributeName :: Lens' DynamoDBTableAttributeDefinition (Val Text) -ddbtadAttributeName = lens _dynamoDBTableAttributeDefinitionAttributeName (\s a -> s { _dynamoDBTableAttributeDefinitionAttributeName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-attributedef.html#cfn-dynamodb-attributedef-attributename-attributetype -ddbtadAttributeType :: Lens' DynamoDBTableAttributeDefinition (Val AttributeType) -ddbtadAttributeType = lens _dynamoDBTableAttributeDefinitionAttributeType (\s a -> s { _dynamoDBTableAttributeDefinitionAttributeType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DynamoDBTableGlobalSecondaryIndex.hs b/library-gen/Stratosphere/ResourceProperties/DynamoDBTableGlobalSecondaryIndex.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DynamoDBTableGlobalSecondaryIndex.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-gsi.html - -module Stratosphere.ResourceProperties.DynamoDBTableGlobalSecondaryIndex where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.DynamoDBTableKeySchema -import Stratosphere.ResourceProperties.DynamoDBTableProjection -import Stratosphere.ResourceProperties.DynamoDBTableProvisionedThroughput - --- | Full data type definition for DynamoDBTableGlobalSecondaryIndex. See --- 'dynamoDBTableGlobalSecondaryIndex' for a more convenient constructor. -data DynamoDBTableGlobalSecondaryIndex = - DynamoDBTableGlobalSecondaryIndex - { _dynamoDBTableGlobalSecondaryIndexIndexName :: Val Text - , _dynamoDBTableGlobalSecondaryIndexKeySchema :: [DynamoDBTableKeySchema] - , _dynamoDBTableGlobalSecondaryIndexProjection :: DynamoDBTableProjection - , _dynamoDBTableGlobalSecondaryIndexProvisionedThroughput :: Maybe DynamoDBTableProvisionedThroughput - } deriving (Show, Eq) - -instance ToJSON DynamoDBTableGlobalSecondaryIndex where - toJSON DynamoDBTableGlobalSecondaryIndex{..} = - object $ - catMaybes - [ (Just . ("IndexName",) . toJSON) _dynamoDBTableGlobalSecondaryIndexIndexName - , (Just . ("KeySchema",) . toJSON) _dynamoDBTableGlobalSecondaryIndexKeySchema - , (Just . ("Projection",) . toJSON) _dynamoDBTableGlobalSecondaryIndexProjection - , fmap (("ProvisionedThroughput",) . toJSON) _dynamoDBTableGlobalSecondaryIndexProvisionedThroughput - ] - --- | Constructor for 'DynamoDBTableGlobalSecondaryIndex' containing required --- fields as arguments. -dynamoDBTableGlobalSecondaryIndex - :: Val Text -- ^ 'ddbtgsiIndexName' - -> [DynamoDBTableKeySchema] -- ^ 'ddbtgsiKeySchema' - -> DynamoDBTableProjection -- ^ 'ddbtgsiProjection' - -> DynamoDBTableGlobalSecondaryIndex -dynamoDBTableGlobalSecondaryIndex indexNamearg keySchemaarg projectionarg = - DynamoDBTableGlobalSecondaryIndex - { _dynamoDBTableGlobalSecondaryIndexIndexName = indexNamearg - , _dynamoDBTableGlobalSecondaryIndexKeySchema = keySchemaarg - , _dynamoDBTableGlobalSecondaryIndexProjection = projectionarg - , _dynamoDBTableGlobalSecondaryIndexProvisionedThroughput = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-gsi.html#cfn-dynamodb-gsi-indexname -ddbtgsiIndexName :: Lens' DynamoDBTableGlobalSecondaryIndex (Val Text) -ddbtgsiIndexName = lens _dynamoDBTableGlobalSecondaryIndexIndexName (\s a -> s { _dynamoDBTableGlobalSecondaryIndexIndexName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-gsi.html#cfn-dynamodb-gsi-keyschema -ddbtgsiKeySchema :: Lens' DynamoDBTableGlobalSecondaryIndex [DynamoDBTableKeySchema] -ddbtgsiKeySchema = lens _dynamoDBTableGlobalSecondaryIndexKeySchema (\s a -> s { _dynamoDBTableGlobalSecondaryIndexKeySchema = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-gsi.html#cfn-dynamodb-gsi-projection -ddbtgsiProjection :: Lens' DynamoDBTableGlobalSecondaryIndex DynamoDBTableProjection -ddbtgsiProjection = lens _dynamoDBTableGlobalSecondaryIndexProjection (\s a -> s { _dynamoDBTableGlobalSecondaryIndexProjection = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-gsi.html#cfn-dynamodb-gsi-provisionedthroughput -ddbtgsiProvisionedThroughput :: Lens' DynamoDBTableGlobalSecondaryIndex (Maybe DynamoDBTableProvisionedThroughput) -ddbtgsiProvisionedThroughput = lens _dynamoDBTableGlobalSecondaryIndexProvisionedThroughput (\s a -> s { _dynamoDBTableGlobalSecondaryIndexProvisionedThroughput = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DynamoDBTableKeySchema.hs b/library-gen/Stratosphere/ResourceProperties/DynamoDBTableKeySchema.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DynamoDBTableKeySchema.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-keyschema.html - -module Stratosphere.ResourceProperties.DynamoDBTableKeySchema where - -import Stratosphere.ResourceImports -import Stratosphere.Types - --- | Full data type definition for DynamoDBTableKeySchema. See --- 'dynamoDBTableKeySchema' for a more convenient constructor. -data DynamoDBTableKeySchema = - DynamoDBTableKeySchema - { _dynamoDBTableKeySchemaAttributeName :: Val Text - , _dynamoDBTableKeySchemaKeyType :: Val KeyType - } deriving (Show, Eq) - -instance ToJSON DynamoDBTableKeySchema where - toJSON DynamoDBTableKeySchema{..} = - object $ - catMaybes - [ (Just . ("AttributeName",) . toJSON) _dynamoDBTableKeySchemaAttributeName - , (Just . ("KeyType",) . toJSON) _dynamoDBTableKeySchemaKeyType - ] - --- | Constructor for 'DynamoDBTableKeySchema' containing required fields as --- arguments. -dynamoDBTableKeySchema - :: Val Text -- ^ 'ddbtksAttributeName' - -> Val KeyType -- ^ 'ddbtksKeyType' - -> DynamoDBTableKeySchema -dynamoDBTableKeySchema attributeNamearg keyTypearg = - DynamoDBTableKeySchema - { _dynamoDBTableKeySchemaAttributeName = attributeNamearg - , _dynamoDBTableKeySchemaKeyType = keyTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-keyschema.html#aws-properties-dynamodb-keyschema-attributename -ddbtksAttributeName :: Lens' DynamoDBTableKeySchema (Val Text) -ddbtksAttributeName = lens _dynamoDBTableKeySchemaAttributeName (\s a -> s { _dynamoDBTableKeySchemaAttributeName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-keyschema.html#aws-properties-dynamodb-keyschema-keytype -ddbtksKeyType :: Lens' DynamoDBTableKeySchema (Val KeyType) -ddbtksKeyType = lens _dynamoDBTableKeySchemaKeyType (\s a -> s { _dynamoDBTableKeySchemaKeyType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DynamoDBTableLocalSecondaryIndex.hs b/library-gen/Stratosphere/ResourceProperties/DynamoDBTableLocalSecondaryIndex.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DynamoDBTableLocalSecondaryIndex.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-lsi.html - -module Stratosphere.ResourceProperties.DynamoDBTableLocalSecondaryIndex where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.DynamoDBTableKeySchema -import Stratosphere.ResourceProperties.DynamoDBTableProjection - --- | Full data type definition for DynamoDBTableLocalSecondaryIndex. See --- 'dynamoDBTableLocalSecondaryIndex' for a more convenient constructor. -data DynamoDBTableLocalSecondaryIndex = - DynamoDBTableLocalSecondaryIndex - { _dynamoDBTableLocalSecondaryIndexIndexName :: Val Text - , _dynamoDBTableLocalSecondaryIndexKeySchema :: [DynamoDBTableKeySchema] - , _dynamoDBTableLocalSecondaryIndexProjection :: DynamoDBTableProjection - } deriving (Show, Eq) - -instance ToJSON DynamoDBTableLocalSecondaryIndex where - toJSON DynamoDBTableLocalSecondaryIndex{..} = - object $ - catMaybes - [ (Just . ("IndexName",) . toJSON) _dynamoDBTableLocalSecondaryIndexIndexName - , (Just . ("KeySchema",) . toJSON) _dynamoDBTableLocalSecondaryIndexKeySchema - , (Just . ("Projection",) . toJSON) _dynamoDBTableLocalSecondaryIndexProjection - ] - --- | Constructor for 'DynamoDBTableLocalSecondaryIndex' containing required --- fields as arguments. -dynamoDBTableLocalSecondaryIndex - :: Val Text -- ^ 'ddbtlsiIndexName' - -> [DynamoDBTableKeySchema] -- ^ 'ddbtlsiKeySchema' - -> DynamoDBTableProjection -- ^ 'ddbtlsiProjection' - -> DynamoDBTableLocalSecondaryIndex -dynamoDBTableLocalSecondaryIndex indexNamearg keySchemaarg projectionarg = - DynamoDBTableLocalSecondaryIndex - { _dynamoDBTableLocalSecondaryIndexIndexName = indexNamearg - , _dynamoDBTableLocalSecondaryIndexKeySchema = keySchemaarg - , _dynamoDBTableLocalSecondaryIndexProjection = projectionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-lsi.html#cfn-dynamodb-lsi-indexname -ddbtlsiIndexName :: Lens' DynamoDBTableLocalSecondaryIndex (Val Text) -ddbtlsiIndexName = lens _dynamoDBTableLocalSecondaryIndexIndexName (\s a -> s { _dynamoDBTableLocalSecondaryIndexIndexName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-lsi.html#cfn-dynamodb-lsi-keyschema -ddbtlsiKeySchema :: Lens' DynamoDBTableLocalSecondaryIndex [DynamoDBTableKeySchema] -ddbtlsiKeySchema = lens _dynamoDBTableLocalSecondaryIndexKeySchema (\s a -> s { _dynamoDBTableLocalSecondaryIndexKeySchema = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-lsi.html#cfn-dynamodb-lsi-projection -ddbtlsiProjection :: Lens' DynamoDBTableLocalSecondaryIndex DynamoDBTableProjection -ddbtlsiProjection = lens _dynamoDBTableLocalSecondaryIndexProjection (\s a -> s { _dynamoDBTableLocalSecondaryIndexProjection = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DynamoDBTablePointInTimeRecoverySpecification.hs b/library-gen/Stratosphere/ResourceProperties/DynamoDBTablePointInTimeRecoverySpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DynamoDBTablePointInTimeRecoverySpecification.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-table-pointintimerecoveryspecification.html - -module Stratosphere.ResourceProperties.DynamoDBTablePointInTimeRecoverySpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- DynamoDBTablePointInTimeRecoverySpecification. See --- 'dynamoDBTablePointInTimeRecoverySpecification' for a more convenient --- constructor. -data DynamoDBTablePointInTimeRecoverySpecification = - DynamoDBTablePointInTimeRecoverySpecification - { _dynamoDBTablePointInTimeRecoverySpecificationPointInTimeRecoveryEnabled :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON DynamoDBTablePointInTimeRecoverySpecification where - toJSON DynamoDBTablePointInTimeRecoverySpecification{..} = - object $ - catMaybes - [ fmap (("PointInTimeRecoveryEnabled",) . toJSON) _dynamoDBTablePointInTimeRecoverySpecificationPointInTimeRecoveryEnabled - ] - --- | Constructor for 'DynamoDBTablePointInTimeRecoverySpecification' --- containing required fields as arguments. -dynamoDBTablePointInTimeRecoverySpecification - :: DynamoDBTablePointInTimeRecoverySpecification -dynamoDBTablePointInTimeRecoverySpecification = - DynamoDBTablePointInTimeRecoverySpecification - { _dynamoDBTablePointInTimeRecoverySpecificationPointInTimeRecoveryEnabled = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-table-pointintimerecoveryspecification.html#cfn-dynamodb-table-pointintimerecoveryspecification-pointintimerecoveryenabled -ddbtpitrsPointInTimeRecoveryEnabled :: Lens' DynamoDBTablePointInTimeRecoverySpecification (Maybe (Val Bool)) -ddbtpitrsPointInTimeRecoveryEnabled = lens _dynamoDBTablePointInTimeRecoverySpecificationPointInTimeRecoveryEnabled (\s a -> s { _dynamoDBTablePointInTimeRecoverySpecificationPointInTimeRecoveryEnabled = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DynamoDBTableProjection.hs b/library-gen/Stratosphere/ResourceProperties/DynamoDBTableProjection.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DynamoDBTableProjection.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-projectionobject.html - -module Stratosphere.ResourceProperties.DynamoDBTableProjection where - -import Stratosphere.ResourceImports -import Stratosphere.Types - --- | Full data type definition for DynamoDBTableProjection. See --- 'dynamoDBTableProjection' for a more convenient constructor. -data DynamoDBTableProjection = - DynamoDBTableProjection - { _dynamoDBTableProjectionNonKeyAttributes :: Maybe (ValList Text) - , _dynamoDBTableProjectionProjectionType :: Maybe (Val ProjectionType) - } deriving (Show, Eq) - -instance ToJSON DynamoDBTableProjection where - toJSON DynamoDBTableProjection{..} = - object $ - catMaybes - [ fmap (("NonKeyAttributes",) . toJSON) _dynamoDBTableProjectionNonKeyAttributes - , fmap (("ProjectionType",) . toJSON) _dynamoDBTableProjectionProjectionType - ] - --- | Constructor for 'DynamoDBTableProjection' containing required fields as --- arguments. -dynamoDBTableProjection - :: DynamoDBTableProjection -dynamoDBTableProjection = - DynamoDBTableProjection - { _dynamoDBTableProjectionNonKeyAttributes = Nothing - , _dynamoDBTableProjectionProjectionType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-projectionobject.html#cfn-dynamodb-projectionobj-nonkeyatt -ddbtpNonKeyAttributes :: Lens' DynamoDBTableProjection (Maybe (ValList Text)) -ddbtpNonKeyAttributes = lens _dynamoDBTableProjectionNonKeyAttributes (\s a -> s { _dynamoDBTableProjectionNonKeyAttributes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-projectionobject.html#cfn-dynamodb-projectionobj-projtype -ddbtpProjectionType :: Lens' DynamoDBTableProjection (Maybe (Val ProjectionType)) -ddbtpProjectionType = lens _dynamoDBTableProjectionProjectionType (\s a -> s { _dynamoDBTableProjectionProjectionType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DynamoDBTableProvisionedThroughput.hs b/library-gen/Stratosphere/ResourceProperties/DynamoDBTableProvisionedThroughput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DynamoDBTableProvisionedThroughput.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-provisionedthroughput.html - -module Stratosphere.ResourceProperties.DynamoDBTableProvisionedThroughput where - -import Stratosphere.ResourceImports - - --- | Full data type definition for DynamoDBTableProvisionedThroughput. See --- 'dynamoDBTableProvisionedThroughput' for a more convenient constructor. -data DynamoDBTableProvisionedThroughput = - DynamoDBTableProvisionedThroughput - { _dynamoDBTableProvisionedThroughputReadCapacityUnits :: Val Integer - , _dynamoDBTableProvisionedThroughputWriteCapacityUnits :: Val Integer - } deriving (Show, Eq) - -instance ToJSON DynamoDBTableProvisionedThroughput where - toJSON DynamoDBTableProvisionedThroughput{..} = - object $ - catMaybes - [ (Just . ("ReadCapacityUnits",) . toJSON) _dynamoDBTableProvisionedThroughputReadCapacityUnits - , (Just . ("WriteCapacityUnits",) . toJSON) _dynamoDBTableProvisionedThroughputWriteCapacityUnits - ] - --- | Constructor for 'DynamoDBTableProvisionedThroughput' containing required --- fields as arguments. -dynamoDBTableProvisionedThroughput - :: Val Integer -- ^ 'ddbtptReadCapacityUnits' - -> Val Integer -- ^ 'ddbtptWriteCapacityUnits' - -> DynamoDBTableProvisionedThroughput -dynamoDBTableProvisionedThroughput readCapacityUnitsarg writeCapacityUnitsarg = - DynamoDBTableProvisionedThroughput - { _dynamoDBTableProvisionedThroughputReadCapacityUnits = readCapacityUnitsarg - , _dynamoDBTableProvisionedThroughputWriteCapacityUnits = writeCapacityUnitsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-provisionedthroughput.html#cfn-dynamodb-provisionedthroughput-readcapacityunits -ddbtptReadCapacityUnits :: Lens' DynamoDBTableProvisionedThroughput (Val Integer) -ddbtptReadCapacityUnits = lens _dynamoDBTableProvisionedThroughputReadCapacityUnits (\s a -> s { _dynamoDBTableProvisionedThroughputReadCapacityUnits = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-provisionedthroughput.html#cfn-dynamodb-provisionedthroughput-writecapacityunits -ddbtptWriteCapacityUnits :: Lens' DynamoDBTableProvisionedThroughput (Val Integer) -ddbtptWriteCapacityUnits = lens _dynamoDBTableProvisionedThroughputWriteCapacityUnits (\s a -> s { _dynamoDBTableProvisionedThroughputWriteCapacityUnits = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DynamoDBTableSSESpecification.hs b/library-gen/Stratosphere/ResourceProperties/DynamoDBTableSSESpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DynamoDBTableSSESpecification.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-table-ssespecification.html - -module Stratosphere.ResourceProperties.DynamoDBTableSSESpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for DynamoDBTableSSESpecification. See --- 'dynamoDBTableSSESpecification' for a more convenient constructor. -data DynamoDBTableSSESpecification = - DynamoDBTableSSESpecification - { _dynamoDBTableSSESpecificationKMSMasterKeyId :: Maybe (Val Text) - , _dynamoDBTableSSESpecificationSSEEnabled :: Val Bool - , _dynamoDBTableSSESpecificationSSEType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON DynamoDBTableSSESpecification where - toJSON DynamoDBTableSSESpecification{..} = - object $ - catMaybes - [ fmap (("KMSMasterKeyId",) . toJSON) _dynamoDBTableSSESpecificationKMSMasterKeyId - , (Just . ("SSEEnabled",) . toJSON) _dynamoDBTableSSESpecificationSSEEnabled - , fmap (("SSEType",) . toJSON) _dynamoDBTableSSESpecificationSSEType - ] - --- | Constructor for 'DynamoDBTableSSESpecification' containing required --- fields as arguments. -dynamoDBTableSSESpecification - :: Val Bool -- ^ 'ddbtssesSSEEnabled' - -> DynamoDBTableSSESpecification -dynamoDBTableSSESpecification sSEEnabledarg = - DynamoDBTableSSESpecification - { _dynamoDBTableSSESpecificationKMSMasterKeyId = Nothing - , _dynamoDBTableSSESpecificationSSEEnabled = sSEEnabledarg - , _dynamoDBTableSSESpecificationSSEType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-table-ssespecification.html#cfn-dynamodb-table-ssespecification-kmsmasterkeyid -ddbtssesKMSMasterKeyId :: Lens' DynamoDBTableSSESpecification (Maybe (Val Text)) -ddbtssesKMSMasterKeyId = lens _dynamoDBTableSSESpecificationKMSMasterKeyId (\s a -> s { _dynamoDBTableSSESpecificationKMSMasterKeyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-table-ssespecification.html#cfn-dynamodb-table-ssespecification-sseenabled -ddbtssesSSEEnabled :: Lens' DynamoDBTableSSESpecification (Val Bool) -ddbtssesSSEEnabled = lens _dynamoDBTableSSESpecificationSSEEnabled (\s a -> s { _dynamoDBTableSSESpecificationSSEEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-table-ssespecification.html#cfn-dynamodb-table-ssespecification-ssetype -ddbtssesSSEType :: Lens' DynamoDBTableSSESpecification (Maybe (Val Text)) -ddbtssesSSEType = lens _dynamoDBTableSSESpecificationSSEType (\s a -> s { _dynamoDBTableSSESpecificationSSEType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DynamoDBTableStreamSpecification.hs b/library-gen/Stratosphere/ResourceProperties/DynamoDBTableStreamSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DynamoDBTableStreamSpecification.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-streamspecification.html - -module Stratosphere.ResourceProperties.DynamoDBTableStreamSpecification where - -import Stratosphere.ResourceImports -import Stratosphere.Types - --- | Full data type definition for DynamoDBTableStreamSpecification. See --- 'dynamoDBTableStreamSpecification' for a more convenient constructor. -data DynamoDBTableStreamSpecification = - DynamoDBTableStreamSpecification - { _dynamoDBTableStreamSpecificationStreamViewType :: Val StreamViewType - } deriving (Show, Eq) - -instance ToJSON DynamoDBTableStreamSpecification where - toJSON DynamoDBTableStreamSpecification{..} = - object $ - catMaybes - [ (Just . ("StreamViewType",) . toJSON) _dynamoDBTableStreamSpecificationStreamViewType - ] - --- | Constructor for 'DynamoDBTableStreamSpecification' containing required --- fields as arguments. -dynamoDBTableStreamSpecification - :: Val StreamViewType -- ^ 'ddbtssStreamViewType' - -> DynamoDBTableStreamSpecification -dynamoDBTableStreamSpecification streamViewTypearg = - DynamoDBTableStreamSpecification - { _dynamoDBTableStreamSpecificationStreamViewType = streamViewTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-streamspecification.html#cfn-dynamodb-streamspecification-streamviewtype -ddbtssStreamViewType :: Lens' DynamoDBTableStreamSpecification (Val StreamViewType) -ddbtssStreamViewType = lens _dynamoDBTableStreamSpecificationStreamViewType (\s a -> s { _dynamoDBTableStreamSpecificationStreamViewType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/DynamoDBTableTimeToLiveSpecification.hs b/library-gen/Stratosphere/ResourceProperties/DynamoDBTableTimeToLiveSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/DynamoDBTableTimeToLiveSpecification.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-timetolivespecification.html - -module Stratosphere.ResourceProperties.DynamoDBTableTimeToLiveSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for DynamoDBTableTimeToLiveSpecification. See --- 'dynamoDBTableTimeToLiveSpecification' for a more convenient constructor. -data DynamoDBTableTimeToLiveSpecification = - DynamoDBTableTimeToLiveSpecification - { _dynamoDBTableTimeToLiveSpecificationAttributeName :: Val Text - , _dynamoDBTableTimeToLiveSpecificationEnabled :: Val Bool - } deriving (Show, Eq) - -instance ToJSON DynamoDBTableTimeToLiveSpecification where - toJSON DynamoDBTableTimeToLiveSpecification{..} = - object $ - catMaybes - [ (Just . ("AttributeName",) . toJSON) _dynamoDBTableTimeToLiveSpecificationAttributeName - , (Just . ("Enabled",) . toJSON) _dynamoDBTableTimeToLiveSpecificationEnabled - ] - --- | Constructor for 'DynamoDBTableTimeToLiveSpecification' containing --- required fields as arguments. -dynamoDBTableTimeToLiveSpecification - :: Val Text -- ^ 'ddbtttlsAttributeName' - -> Val Bool -- ^ 'ddbtttlsEnabled' - -> DynamoDBTableTimeToLiveSpecification -dynamoDBTableTimeToLiveSpecification attributeNamearg enabledarg = - DynamoDBTableTimeToLiveSpecification - { _dynamoDBTableTimeToLiveSpecificationAttributeName = attributeNamearg - , _dynamoDBTableTimeToLiveSpecificationEnabled = enabledarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-timetolivespecification.html#cfn-dynamodb-timetolivespecification-attributename -ddbtttlsAttributeName :: Lens' DynamoDBTableTimeToLiveSpecification (Val Text) -ddbtttlsAttributeName = lens _dynamoDBTableTimeToLiveSpecificationAttributeName (\s a -> s { _dynamoDBTableTimeToLiveSpecificationAttributeName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-timetolivespecification.html#cfn-dynamodb-timetolivespecification-enabled -ddbtttlsEnabled :: Lens' DynamoDBTableTimeToLiveSpecification (Val Bool) -ddbtttlsEnabled = lens _dynamoDBTableTimeToLiveSpecificationEnabled (\s a -> s { _dynamoDBTableTimeToLiveSpecificationEnabled = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2CapacityReservationTagSpecification.hs b/library-gen/Stratosphere/ResourceProperties/EC2CapacityReservationTagSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2CapacityReservationTagSpecification.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-capacityreservation-tagspecification.html - -module Stratosphere.ResourceProperties.EC2CapacityReservationTagSpecification where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for EC2CapacityReservationTagSpecification. See --- 'ec2CapacityReservationTagSpecification' for a more convenient --- constructor. -data EC2CapacityReservationTagSpecification = - EC2CapacityReservationTagSpecification - { _eC2CapacityReservationTagSpecificationResourceType :: Maybe (Val Text) - , _eC2CapacityReservationTagSpecificationTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToJSON EC2CapacityReservationTagSpecification where - toJSON EC2CapacityReservationTagSpecification{..} = - object $ - catMaybes - [ fmap (("ResourceType",) . toJSON) _eC2CapacityReservationTagSpecificationResourceType - , fmap (("Tags",) . toJSON) _eC2CapacityReservationTagSpecificationTags - ] - --- | Constructor for 'EC2CapacityReservationTagSpecification' containing --- required fields as arguments. -ec2CapacityReservationTagSpecification - :: EC2CapacityReservationTagSpecification -ec2CapacityReservationTagSpecification = - EC2CapacityReservationTagSpecification - { _eC2CapacityReservationTagSpecificationResourceType = Nothing - , _eC2CapacityReservationTagSpecificationTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-capacityreservation-tagspecification.html#cfn-ec2-capacityreservation-tagspecification-resourcetype -eccrtsResourceType :: Lens' EC2CapacityReservationTagSpecification (Maybe (Val Text)) -eccrtsResourceType = lens _eC2CapacityReservationTagSpecificationResourceType (\s a -> s { _eC2CapacityReservationTagSpecificationResourceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-capacityreservation-tagspecification.html#cfn-ec2-capacityreservation-tagspecification-tags -eccrtsTags :: Lens' EC2CapacityReservationTagSpecification (Maybe [Tag]) -eccrtsTags = lens _eC2CapacityReservationTagSpecificationTags (\s a -> s { _eC2CapacityReservationTagSpecificationTags = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2CarrierGatewayTags.hs b/library-gen/Stratosphere/ResourceProperties/EC2CarrierGatewayTags.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2CarrierGatewayTags.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-carriergateway-tags.html - -module Stratosphere.ResourceProperties.EC2CarrierGatewayTags where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for EC2CarrierGatewayTags. See --- 'ec2CarrierGatewayTags' for a more convenient constructor. -data EC2CarrierGatewayTags = - EC2CarrierGatewayTags - { _eC2CarrierGatewayTagsTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToJSON EC2CarrierGatewayTags where - toJSON EC2CarrierGatewayTags{..} = - object $ - catMaybes - [ fmap (("Tags",) . toJSON) _eC2CarrierGatewayTagsTags - ] - --- | Constructor for 'EC2CarrierGatewayTags' containing required fields as --- arguments. -ec2CarrierGatewayTags - :: EC2CarrierGatewayTags -ec2CarrierGatewayTags = - EC2CarrierGatewayTags - { _eC2CarrierGatewayTagsTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-carriergateway-tags.html#cfn-ec2-carriergateway-tags-tags -eccgtTags :: Lens' EC2CarrierGatewayTags (Maybe [Tag]) -eccgtTags = lens _eC2CarrierGatewayTagsTags (\s a -> s { _eC2CarrierGatewayTagsTags = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2ClientVpnEndpointCertificateAuthenticationRequest.hs b/library-gen/Stratosphere/ResourceProperties/EC2ClientVpnEndpointCertificateAuthenticationRequest.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2ClientVpnEndpointCertificateAuthenticationRequest.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-certificateauthenticationrequest.html - -module Stratosphere.ResourceProperties.EC2ClientVpnEndpointCertificateAuthenticationRequest where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- EC2ClientVpnEndpointCertificateAuthenticationRequest. See --- 'ec2ClientVpnEndpointCertificateAuthenticationRequest' for a more --- convenient constructor. -data EC2ClientVpnEndpointCertificateAuthenticationRequest = - EC2ClientVpnEndpointCertificateAuthenticationRequest - { _eC2ClientVpnEndpointCertificateAuthenticationRequestClientRootCertificateChainArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON EC2ClientVpnEndpointCertificateAuthenticationRequest where - toJSON EC2ClientVpnEndpointCertificateAuthenticationRequest{..} = - object $ - catMaybes - [ (Just . ("ClientRootCertificateChainArn",) . toJSON) _eC2ClientVpnEndpointCertificateAuthenticationRequestClientRootCertificateChainArn - ] - --- | Constructor for 'EC2ClientVpnEndpointCertificateAuthenticationRequest' --- containing required fields as arguments. -ec2ClientVpnEndpointCertificateAuthenticationRequest - :: Val Text -- ^ 'eccvecarClientRootCertificateChainArn' - -> EC2ClientVpnEndpointCertificateAuthenticationRequest -ec2ClientVpnEndpointCertificateAuthenticationRequest clientRootCertificateChainArnarg = - EC2ClientVpnEndpointCertificateAuthenticationRequest - { _eC2ClientVpnEndpointCertificateAuthenticationRequestClientRootCertificateChainArn = clientRootCertificateChainArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-certificateauthenticationrequest.html#cfn-ec2-clientvpnendpoint-certificateauthenticationrequest-clientrootcertificatechainarn -eccvecarClientRootCertificateChainArn :: Lens' EC2ClientVpnEndpointCertificateAuthenticationRequest (Val Text) -eccvecarClientRootCertificateChainArn = lens _eC2ClientVpnEndpointCertificateAuthenticationRequestClientRootCertificateChainArn (\s a -> s { _eC2ClientVpnEndpointCertificateAuthenticationRequestClientRootCertificateChainArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2ClientVpnEndpointClientAuthenticationRequest.hs b/library-gen/Stratosphere/ResourceProperties/EC2ClientVpnEndpointClientAuthenticationRequest.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2ClientVpnEndpointClientAuthenticationRequest.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-clientauthenticationrequest.html - -module Stratosphere.ResourceProperties.EC2ClientVpnEndpointClientAuthenticationRequest where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest -import Stratosphere.ResourceProperties.EC2ClientVpnEndpointFederatedAuthenticationRequest -import Stratosphere.ResourceProperties.EC2ClientVpnEndpointCertificateAuthenticationRequest - --- | Full data type definition for --- EC2ClientVpnEndpointClientAuthenticationRequest. See --- 'ec2ClientVpnEndpointClientAuthenticationRequest' for a more convenient --- constructor. -data EC2ClientVpnEndpointClientAuthenticationRequest = - EC2ClientVpnEndpointClientAuthenticationRequest - { _eC2ClientVpnEndpointClientAuthenticationRequestActiveDirectory :: Maybe EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest - , _eC2ClientVpnEndpointClientAuthenticationRequestFederatedAuthentication :: Maybe EC2ClientVpnEndpointFederatedAuthenticationRequest - , _eC2ClientVpnEndpointClientAuthenticationRequestMutualAuthentication :: Maybe EC2ClientVpnEndpointCertificateAuthenticationRequest - , _eC2ClientVpnEndpointClientAuthenticationRequestType :: Val Text - } deriving (Show, Eq) - -instance ToJSON EC2ClientVpnEndpointClientAuthenticationRequest where - toJSON EC2ClientVpnEndpointClientAuthenticationRequest{..} = - object $ - catMaybes - [ fmap (("ActiveDirectory",) . toJSON) _eC2ClientVpnEndpointClientAuthenticationRequestActiveDirectory - , fmap (("FederatedAuthentication",) . toJSON) _eC2ClientVpnEndpointClientAuthenticationRequestFederatedAuthentication - , fmap (("MutualAuthentication",) . toJSON) _eC2ClientVpnEndpointClientAuthenticationRequestMutualAuthentication - , (Just . ("Type",) . toJSON) _eC2ClientVpnEndpointClientAuthenticationRequestType - ] - --- | Constructor for 'EC2ClientVpnEndpointClientAuthenticationRequest' --- containing required fields as arguments. -ec2ClientVpnEndpointClientAuthenticationRequest - :: Val Text -- ^ 'eccvecarType' - -> EC2ClientVpnEndpointClientAuthenticationRequest -ec2ClientVpnEndpointClientAuthenticationRequest typearg = - EC2ClientVpnEndpointClientAuthenticationRequest - { _eC2ClientVpnEndpointClientAuthenticationRequestActiveDirectory = Nothing - , _eC2ClientVpnEndpointClientAuthenticationRequestFederatedAuthentication = Nothing - , _eC2ClientVpnEndpointClientAuthenticationRequestMutualAuthentication = Nothing - , _eC2ClientVpnEndpointClientAuthenticationRequestType = typearg - } - --- | 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) -eccvecarMutualAuthentication = lens _eC2ClientVpnEndpointClientAuthenticationRequestMutualAuthentication (\s a -> s { _eC2ClientVpnEndpointClientAuthenticationRequestMutualAuthentication = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-clientauthenticationrequest.html#cfn-ec2-clientvpnendpoint-clientauthenticationrequest-type -eccvecarType :: Lens' EC2ClientVpnEndpointClientAuthenticationRequest (Val Text) -eccvecarType = lens _eC2ClientVpnEndpointClientAuthenticationRequestType (\s a -> s { _eC2ClientVpnEndpointClientAuthenticationRequestType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2ClientVpnEndpointConnectionLogOptions.hs b/library-gen/Stratosphere/ResourceProperties/EC2ClientVpnEndpointConnectionLogOptions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2ClientVpnEndpointConnectionLogOptions.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-connectionlogoptions.html - -module Stratosphere.ResourceProperties.EC2ClientVpnEndpointConnectionLogOptions where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2ClientVpnEndpointConnectionLogOptions. --- See 'ec2ClientVpnEndpointConnectionLogOptions' for a more convenient --- constructor. -data EC2ClientVpnEndpointConnectionLogOptions = - EC2ClientVpnEndpointConnectionLogOptions - { _eC2ClientVpnEndpointConnectionLogOptionsCloudwatchLogGroup :: Maybe (Val Text) - , _eC2ClientVpnEndpointConnectionLogOptionsCloudwatchLogStream :: Maybe (Val Text) - , _eC2ClientVpnEndpointConnectionLogOptionsEnabled :: Val Bool - } deriving (Show, Eq) - -instance ToJSON EC2ClientVpnEndpointConnectionLogOptions where - toJSON EC2ClientVpnEndpointConnectionLogOptions{..} = - object $ - catMaybes - [ fmap (("CloudwatchLogGroup",) . toJSON) _eC2ClientVpnEndpointConnectionLogOptionsCloudwatchLogGroup - , fmap (("CloudwatchLogStream",) . toJSON) _eC2ClientVpnEndpointConnectionLogOptionsCloudwatchLogStream - , (Just . ("Enabled",) . toJSON) _eC2ClientVpnEndpointConnectionLogOptionsEnabled - ] - --- | Constructor for 'EC2ClientVpnEndpointConnectionLogOptions' containing --- required fields as arguments. -ec2ClientVpnEndpointConnectionLogOptions - :: Val Bool -- ^ 'eccvecloEnabled' - -> EC2ClientVpnEndpointConnectionLogOptions -ec2ClientVpnEndpointConnectionLogOptions enabledarg = - EC2ClientVpnEndpointConnectionLogOptions - { _eC2ClientVpnEndpointConnectionLogOptionsCloudwatchLogGroup = Nothing - , _eC2ClientVpnEndpointConnectionLogOptionsCloudwatchLogStream = Nothing - , _eC2ClientVpnEndpointConnectionLogOptionsEnabled = enabledarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-connectionlogoptions.html#cfn-ec2-clientvpnendpoint-connectionlogoptions-cloudwatchloggroup -eccvecloCloudwatchLogGroup :: Lens' EC2ClientVpnEndpointConnectionLogOptions (Maybe (Val Text)) -eccvecloCloudwatchLogGroup = lens _eC2ClientVpnEndpointConnectionLogOptionsCloudwatchLogGroup (\s a -> s { _eC2ClientVpnEndpointConnectionLogOptionsCloudwatchLogGroup = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-connectionlogoptions.html#cfn-ec2-clientvpnendpoint-connectionlogoptions-cloudwatchlogstream -eccvecloCloudwatchLogStream :: Lens' EC2ClientVpnEndpointConnectionLogOptions (Maybe (Val Text)) -eccvecloCloudwatchLogStream = lens _eC2ClientVpnEndpointConnectionLogOptionsCloudwatchLogStream (\s a -> s { _eC2ClientVpnEndpointConnectionLogOptionsCloudwatchLogStream = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-connectionlogoptions.html#cfn-ec2-clientvpnendpoint-connectionlogoptions-enabled -eccvecloEnabled :: Lens' EC2ClientVpnEndpointConnectionLogOptions (Val Bool) -eccvecloEnabled = lens _eC2ClientVpnEndpointConnectionLogOptionsEnabled (\s a -> s { _eC2ClientVpnEndpointConnectionLogOptionsEnabled = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest.hs b/library-gen/Stratosphere/ResourceProperties/EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest.hs +++ /dev/null @@ -1,42 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-directoryserviceauthenticationrequest.html - -module Stratosphere.ResourceProperties.EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest. See --- 'ec2ClientVpnEndpointDirectoryServiceAuthenticationRequest' for a more --- convenient constructor. -data EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest = - EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest - { _eC2ClientVpnEndpointDirectoryServiceAuthenticationRequestDirectoryId :: Val Text - } deriving (Show, Eq) - -instance ToJSON EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest where - toJSON EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest{..} = - object $ - catMaybes - [ (Just . ("DirectoryId",) . toJSON) _eC2ClientVpnEndpointDirectoryServiceAuthenticationRequestDirectoryId - ] - --- | Constructor for --- 'EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest' containing --- required fields as arguments. -ec2ClientVpnEndpointDirectoryServiceAuthenticationRequest - :: Val Text -- ^ 'eccvedsarDirectoryId' - -> EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest -ec2ClientVpnEndpointDirectoryServiceAuthenticationRequest directoryIdarg = - EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest - { _eC2ClientVpnEndpointDirectoryServiceAuthenticationRequestDirectoryId = directoryIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-directoryserviceauthenticationrequest.html#cfn-ec2-clientvpnendpoint-directoryserviceauthenticationrequest-directoryid -eccvedsarDirectoryId :: Lens' EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest (Val Text) -eccvedsarDirectoryId = lens _eC2ClientVpnEndpointDirectoryServiceAuthenticationRequestDirectoryId (\s a -> s { _eC2ClientVpnEndpointDirectoryServiceAuthenticationRequestDirectoryId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2ClientVpnEndpointFederatedAuthenticationRequest.hs b/library-gen/Stratosphere/ResourceProperties/EC2ClientVpnEndpointFederatedAuthenticationRequest.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2ClientVpnEndpointFederatedAuthenticationRequest.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# 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 }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2ClientVpnEndpointTagSpecification.hs b/library-gen/Stratosphere/ResourceProperties/EC2ClientVpnEndpointTagSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2ClientVpnEndpointTagSpecification.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-tagspecification.html - -module Stratosphere.ResourceProperties.EC2ClientVpnEndpointTagSpecification where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for EC2ClientVpnEndpointTagSpecification. See --- 'ec2ClientVpnEndpointTagSpecification' for a more convenient constructor. -data EC2ClientVpnEndpointTagSpecification = - EC2ClientVpnEndpointTagSpecification - { _eC2ClientVpnEndpointTagSpecificationResourceType :: Val Text - , _eC2ClientVpnEndpointTagSpecificationTags :: [Tag] - } deriving (Show, Eq) - -instance ToJSON EC2ClientVpnEndpointTagSpecification where - toJSON EC2ClientVpnEndpointTagSpecification{..} = - object $ - catMaybes - [ (Just . ("ResourceType",) . toJSON) _eC2ClientVpnEndpointTagSpecificationResourceType - , (Just . ("Tags",) . toJSON) _eC2ClientVpnEndpointTagSpecificationTags - ] - --- | Constructor for 'EC2ClientVpnEndpointTagSpecification' containing --- required fields as arguments. -ec2ClientVpnEndpointTagSpecification - :: Val Text -- ^ 'eccvetsResourceType' - -> [Tag] -- ^ 'eccvetsTags' - -> EC2ClientVpnEndpointTagSpecification -ec2ClientVpnEndpointTagSpecification resourceTypearg tagsarg = - EC2ClientVpnEndpointTagSpecification - { _eC2ClientVpnEndpointTagSpecificationResourceType = resourceTypearg - , _eC2ClientVpnEndpointTagSpecificationTags = tagsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-tagspecification.html#cfn-ec2-clientvpnendpoint-tagspecification-resourcetype -eccvetsResourceType :: Lens' EC2ClientVpnEndpointTagSpecification (Val Text) -eccvetsResourceType = lens _eC2ClientVpnEndpointTagSpecificationResourceType (\s a -> s { _eC2ClientVpnEndpointTagSpecificationResourceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-tagspecification.html#cfn-ec2-clientvpnendpoint-tagspecification-tags -eccvetsTags :: Lens' EC2ClientVpnEndpointTagSpecification [Tag] -eccvetsTags = lens _eC2ClientVpnEndpointTagSpecificationTags (\s a -> s { _eC2ClientVpnEndpointTagSpecificationTags = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2EC2FleetCapacityReservationOptionsRequest.hs b/library-gen/Stratosphere/ResourceProperties/EC2EC2FleetCapacityReservationOptionsRequest.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2EC2FleetCapacityReservationOptionsRequest.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-capacityreservationoptionsrequest.html - -module Stratosphere.ResourceProperties.EC2EC2FleetCapacityReservationOptionsRequest where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- EC2EC2FleetCapacityReservationOptionsRequest. See --- 'ec2EC2FleetCapacityReservationOptionsRequest' for a more convenient --- constructor. -data EC2EC2FleetCapacityReservationOptionsRequest = - EC2EC2FleetCapacityReservationOptionsRequest - { _eC2EC2FleetCapacityReservationOptionsRequestUsageStrategy :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EC2EC2FleetCapacityReservationOptionsRequest where - toJSON EC2EC2FleetCapacityReservationOptionsRequest{..} = - object $ - catMaybes - [ fmap (("UsageStrategy",) . toJSON) _eC2EC2FleetCapacityReservationOptionsRequestUsageStrategy - ] - --- | Constructor for 'EC2EC2FleetCapacityReservationOptionsRequest' containing --- required fields as arguments. -ec2EC2FleetCapacityReservationOptionsRequest - :: EC2EC2FleetCapacityReservationOptionsRequest -ec2EC2FleetCapacityReservationOptionsRequest = - EC2EC2FleetCapacityReservationOptionsRequest - { _eC2EC2FleetCapacityReservationOptionsRequestUsageStrategy = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-capacityreservationoptionsrequest.html#cfn-ec2-ec2fleet-capacityreservationoptionsrequest-usagestrategy -ececfcrorUsageStrategy :: Lens' EC2EC2FleetCapacityReservationOptionsRequest (Maybe (Val Text)) -ececfcrorUsageStrategy = lens _eC2EC2FleetCapacityReservationOptionsRequestUsageStrategy (\s a -> s { _eC2EC2FleetCapacityReservationOptionsRequestUsageStrategy = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2EC2FleetFleetLaunchTemplateConfigRequest.hs b/library-gen/Stratosphere/ResourceProperties/EC2EC2FleetFleetLaunchTemplateConfigRequest.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2EC2FleetFleetLaunchTemplateConfigRequest.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-fleetlaunchtemplateconfigrequest.html - -module Stratosphere.ResourceProperties.EC2EC2FleetFleetLaunchTemplateConfigRequest where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2EC2FleetFleetLaunchTemplateSpecificationRequest -import Stratosphere.ResourceProperties.EC2EC2FleetFleetLaunchTemplateOverridesRequest - --- | Full data type definition for --- EC2EC2FleetFleetLaunchTemplateConfigRequest. See --- 'ec2EC2FleetFleetLaunchTemplateConfigRequest' for a more convenient --- constructor. -data EC2EC2FleetFleetLaunchTemplateConfigRequest = - EC2EC2FleetFleetLaunchTemplateConfigRequest - { _eC2EC2FleetFleetLaunchTemplateConfigRequestLaunchTemplateSpecification :: Maybe EC2EC2FleetFleetLaunchTemplateSpecificationRequest - , _eC2EC2FleetFleetLaunchTemplateConfigRequestOverrides :: Maybe [EC2EC2FleetFleetLaunchTemplateOverridesRequest] - } deriving (Show, Eq) - -instance ToJSON EC2EC2FleetFleetLaunchTemplateConfigRequest where - toJSON EC2EC2FleetFleetLaunchTemplateConfigRequest{..} = - object $ - catMaybes - [ fmap (("LaunchTemplateSpecification",) . toJSON) _eC2EC2FleetFleetLaunchTemplateConfigRequestLaunchTemplateSpecification - , fmap (("Overrides",) . toJSON) _eC2EC2FleetFleetLaunchTemplateConfigRequestOverrides - ] - --- | Constructor for 'EC2EC2FleetFleetLaunchTemplateConfigRequest' containing --- required fields as arguments. -ec2EC2FleetFleetLaunchTemplateConfigRequest - :: EC2EC2FleetFleetLaunchTemplateConfigRequest -ec2EC2FleetFleetLaunchTemplateConfigRequest = - EC2EC2FleetFleetLaunchTemplateConfigRequest - { _eC2EC2FleetFleetLaunchTemplateConfigRequestLaunchTemplateSpecification = Nothing - , _eC2EC2FleetFleetLaunchTemplateConfigRequestOverrides = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-fleetlaunchtemplateconfigrequest.html#cfn-ec2-ec2fleet-fleetlaunchtemplateconfigrequest-launchtemplatespecification -ececffltcrLaunchTemplateSpecification :: Lens' EC2EC2FleetFleetLaunchTemplateConfigRequest (Maybe EC2EC2FleetFleetLaunchTemplateSpecificationRequest) -ececffltcrLaunchTemplateSpecification = lens _eC2EC2FleetFleetLaunchTemplateConfigRequestLaunchTemplateSpecification (\s a -> s { _eC2EC2FleetFleetLaunchTemplateConfigRequestLaunchTemplateSpecification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-fleetlaunchtemplateconfigrequest.html#cfn-ec2-ec2fleet-fleetlaunchtemplateconfigrequest-overrides -ececffltcrOverrides :: Lens' EC2EC2FleetFleetLaunchTemplateConfigRequest (Maybe [EC2EC2FleetFleetLaunchTemplateOverridesRequest]) -ececffltcrOverrides = lens _eC2EC2FleetFleetLaunchTemplateConfigRequestOverrides (\s a -> s { _eC2EC2FleetFleetLaunchTemplateConfigRequestOverrides = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2EC2FleetFleetLaunchTemplateOverridesRequest.hs b/library-gen/Stratosphere/ResourceProperties/EC2EC2FleetFleetLaunchTemplateOverridesRequest.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2EC2FleetFleetLaunchTemplateOverridesRequest.hs +++ /dev/null @@ -1,82 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-fleetlaunchtemplateoverridesrequest.html - -module Stratosphere.ResourceProperties.EC2EC2FleetFleetLaunchTemplateOverridesRequest where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2EC2FleetPlacement - --- | Full data type definition for --- EC2EC2FleetFleetLaunchTemplateOverridesRequest. See --- 'ec2EC2FleetFleetLaunchTemplateOverridesRequest' for a more convenient --- constructor. -data EC2EC2FleetFleetLaunchTemplateOverridesRequest = - EC2EC2FleetFleetLaunchTemplateOverridesRequest - { _eC2EC2FleetFleetLaunchTemplateOverridesRequestAvailabilityZone :: Maybe (Val Text) - , _eC2EC2FleetFleetLaunchTemplateOverridesRequestInstanceType :: Maybe (Val Text) - , _eC2EC2FleetFleetLaunchTemplateOverridesRequestMaxPrice :: Maybe (Val Text) - , _eC2EC2FleetFleetLaunchTemplateOverridesRequestPlacement :: Maybe EC2EC2FleetPlacement - , _eC2EC2FleetFleetLaunchTemplateOverridesRequestPriority :: Maybe (Val Double) - , _eC2EC2FleetFleetLaunchTemplateOverridesRequestSubnetId :: Maybe (Val Text) - , _eC2EC2FleetFleetLaunchTemplateOverridesRequestWeightedCapacity :: Maybe (Val Double) - } deriving (Show, Eq) - -instance ToJSON EC2EC2FleetFleetLaunchTemplateOverridesRequest where - toJSON EC2EC2FleetFleetLaunchTemplateOverridesRequest{..} = - object $ - catMaybes - [ fmap (("AvailabilityZone",) . toJSON) _eC2EC2FleetFleetLaunchTemplateOverridesRequestAvailabilityZone - , fmap (("InstanceType",) . toJSON) _eC2EC2FleetFleetLaunchTemplateOverridesRequestInstanceType - , fmap (("MaxPrice",) . toJSON) _eC2EC2FleetFleetLaunchTemplateOverridesRequestMaxPrice - , fmap (("Placement",) . toJSON) _eC2EC2FleetFleetLaunchTemplateOverridesRequestPlacement - , fmap (("Priority",) . toJSON) _eC2EC2FleetFleetLaunchTemplateOverridesRequestPriority - , fmap (("SubnetId",) . toJSON) _eC2EC2FleetFleetLaunchTemplateOverridesRequestSubnetId - , fmap (("WeightedCapacity",) . toJSON) _eC2EC2FleetFleetLaunchTemplateOverridesRequestWeightedCapacity - ] - --- | Constructor for 'EC2EC2FleetFleetLaunchTemplateOverridesRequest' --- containing required fields as arguments. -ec2EC2FleetFleetLaunchTemplateOverridesRequest - :: EC2EC2FleetFleetLaunchTemplateOverridesRequest -ec2EC2FleetFleetLaunchTemplateOverridesRequest = - EC2EC2FleetFleetLaunchTemplateOverridesRequest - { _eC2EC2FleetFleetLaunchTemplateOverridesRequestAvailabilityZone = Nothing - , _eC2EC2FleetFleetLaunchTemplateOverridesRequestInstanceType = Nothing - , _eC2EC2FleetFleetLaunchTemplateOverridesRequestMaxPrice = Nothing - , _eC2EC2FleetFleetLaunchTemplateOverridesRequestPlacement = Nothing - , _eC2EC2FleetFleetLaunchTemplateOverridesRequestPriority = Nothing - , _eC2EC2FleetFleetLaunchTemplateOverridesRequestSubnetId = Nothing - , _eC2EC2FleetFleetLaunchTemplateOverridesRequestWeightedCapacity = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-fleetlaunchtemplateoverridesrequest.html#cfn-ec2-ec2fleet-fleetlaunchtemplateoverridesrequest-availabilityzone -ececffltorAvailabilityZone :: Lens' EC2EC2FleetFleetLaunchTemplateOverridesRequest (Maybe (Val Text)) -ececffltorAvailabilityZone = lens _eC2EC2FleetFleetLaunchTemplateOverridesRequestAvailabilityZone (\s a -> s { _eC2EC2FleetFleetLaunchTemplateOverridesRequestAvailabilityZone = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-fleetlaunchtemplateoverridesrequest.html#cfn-ec2-ec2fleet-fleetlaunchtemplateoverridesrequest-instancetype -ececffltorInstanceType :: Lens' EC2EC2FleetFleetLaunchTemplateOverridesRequest (Maybe (Val Text)) -ececffltorInstanceType = lens _eC2EC2FleetFleetLaunchTemplateOverridesRequestInstanceType (\s a -> s { _eC2EC2FleetFleetLaunchTemplateOverridesRequestInstanceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-fleetlaunchtemplateoverridesrequest.html#cfn-ec2-ec2fleet-fleetlaunchtemplateoverridesrequest-maxprice -ececffltorMaxPrice :: Lens' EC2EC2FleetFleetLaunchTemplateOverridesRequest (Maybe (Val Text)) -ececffltorMaxPrice = lens _eC2EC2FleetFleetLaunchTemplateOverridesRequestMaxPrice (\s a -> s { _eC2EC2FleetFleetLaunchTemplateOverridesRequestMaxPrice = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-fleetlaunchtemplateoverridesrequest.html#cfn-ec2-ec2fleet-fleetlaunchtemplateoverridesrequest-placement -ececffltorPlacement :: Lens' EC2EC2FleetFleetLaunchTemplateOverridesRequest (Maybe EC2EC2FleetPlacement) -ececffltorPlacement = lens _eC2EC2FleetFleetLaunchTemplateOverridesRequestPlacement (\s a -> s { _eC2EC2FleetFleetLaunchTemplateOverridesRequestPlacement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-fleetlaunchtemplateoverridesrequest.html#cfn-ec2-ec2fleet-fleetlaunchtemplateoverridesrequest-priority -ececffltorPriority :: Lens' EC2EC2FleetFleetLaunchTemplateOverridesRequest (Maybe (Val Double)) -ececffltorPriority = lens _eC2EC2FleetFleetLaunchTemplateOverridesRequestPriority (\s a -> s { _eC2EC2FleetFleetLaunchTemplateOverridesRequestPriority = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-fleetlaunchtemplateoverridesrequest.html#cfn-ec2-ec2fleet-fleetlaunchtemplateoverridesrequest-subnetid -ececffltorSubnetId :: Lens' EC2EC2FleetFleetLaunchTemplateOverridesRequest (Maybe (Val Text)) -ececffltorSubnetId = lens _eC2EC2FleetFleetLaunchTemplateOverridesRequestSubnetId (\s a -> s { _eC2EC2FleetFleetLaunchTemplateOverridesRequestSubnetId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-fleetlaunchtemplateoverridesrequest.html#cfn-ec2-ec2fleet-fleetlaunchtemplateoverridesrequest-weightedcapacity -ececffltorWeightedCapacity :: Lens' EC2EC2FleetFleetLaunchTemplateOverridesRequest (Maybe (Val Double)) -ececffltorWeightedCapacity = lens _eC2EC2FleetFleetLaunchTemplateOverridesRequestWeightedCapacity (\s a -> s { _eC2EC2FleetFleetLaunchTemplateOverridesRequestWeightedCapacity = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2EC2FleetFleetLaunchTemplateSpecificationRequest.hs b/library-gen/Stratosphere/ResourceProperties/EC2EC2FleetFleetLaunchTemplateSpecificationRequest.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2EC2FleetFleetLaunchTemplateSpecificationRequest.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-fleetlaunchtemplatespecificationrequest.html - -module Stratosphere.ResourceProperties.EC2EC2FleetFleetLaunchTemplateSpecificationRequest where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- EC2EC2FleetFleetLaunchTemplateSpecificationRequest. See --- 'ec2EC2FleetFleetLaunchTemplateSpecificationRequest' for a more --- convenient constructor. -data EC2EC2FleetFleetLaunchTemplateSpecificationRequest = - EC2EC2FleetFleetLaunchTemplateSpecificationRequest - { _eC2EC2FleetFleetLaunchTemplateSpecificationRequestLaunchTemplateId :: Maybe (Val Text) - , _eC2EC2FleetFleetLaunchTemplateSpecificationRequestLaunchTemplateName :: Maybe (Val Text) - , _eC2EC2FleetFleetLaunchTemplateSpecificationRequestVersion :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EC2EC2FleetFleetLaunchTemplateSpecificationRequest where - toJSON EC2EC2FleetFleetLaunchTemplateSpecificationRequest{..} = - object $ - catMaybes - [ fmap (("LaunchTemplateId",) . toJSON) _eC2EC2FleetFleetLaunchTemplateSpecificationRequestLaunchTemplateId - , fmap (("LaunchTemplateName",) . toJSON) _eC2EC2FleetFleetLaunchTemplateSpecificationRequestLaunchTemplateName - , fmap (("Version",) . toJSON) _eC2EC2FleetFleetLaunchTemplateSpecificationRequestVersion - ] - --- | Constructor for 'EC2EC2FleetFleetLaunchTemplateSpecificationRequest' --- containing required fields as arguments. -ec2EC2FleetFleetLaunchTemplateSpecificationRequest - :: EC2EC2FleetFleetLaunchTemplateSpecificationRequest -ec2EC2FleetFleetLaunchTemplateSpecificationRequest = - EC2EC2FleetFleetLaunchTemplateSpecificationRequest - { _eC2EC2FleetFleetLaunchTemplateSpecificationRequestLaunchTemplateId = Nothing - , _eC2EC2FleetFleetLaunchTemplateSpecificationRequestLaunchTemplateName = Nothing - , _eC2EC2FleetFleetLaunchTemplateSpecificationRequestVersion = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-fleetlaunchtemplatespecificationrequest.html#cfn-ec2-ec2fleet-fleetlaunchtemplatespecificationrequest-launchtemplateid -ececffltsrLaunchTemplateId :: Lens' EC2EC2FleetFleetLaunchTemplateSpecificationRequest (Maybe (Val Text)) -ececffltsrLaunchTemplateId = lens _eC2EC2FleetFleetLaunchTemplateSpecificationRequestLaunchTemplateId (\s a -> s { _eC2EC2FleetFleetLaunchTemplateSpecificationRequestLaunchTemplateId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-fleetlaunchtemplatespecificationrequest.html#cfn-ec2-ec2fleet-fleetlaunchtemplatespecificationrequest-launchtemplatename -ececffltsrLaunchTemplateName :: Lens' EC2EC2FleetFleetLaunchTemplateSpecificationRequest (Maybe (Val Text)) -ececffltsrLaunchTemplateName = lens _eC2EC2FleetFleetLaunchTemplateSpecificationRequestLaunchTemplateName (\s a -> s { _eC2EC2FleetFleetLaunchTemplateSpecificationRequestLaunchTemplateName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-fleetlaunchtemplatespecificationrequest.html#cfn-ec2-ec2fleet-fleetlaunchtemplatespecificationrequest-version -ececffltsrVersion :: Lens' EC2EC2FleetFleetLaunchTemplateSpecificationRequest (Maybe (Val Text)) -ececffltsrVersion = lens _eC2EC2FleetFleetLaunchTemplateSpecificationRequestVersion (\s a -> s { _eC2EC2FleetFleetLaunchTemplateSpecificationRequestVersion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2EC2FleetOnDemandOptionsRequest.hs b/library-gen/Stratosphere/ResourceProperties/EC2EC2FleetOnDemandOptionsRequest.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2EC2FleetOnDemandOptionsRequest.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-ondemandoptionsrequest.html - -module Stratosphere.ResourceProperties.EC2EC2FleetOnDemandOptionsRequest where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2EC2FleetCapacityReservationOptionsRequest - --- | Full data type definition for EC2EC2FleetOnDemandOptionsRequest. See --- 'ec2EC2FleetOnDemandOptionsRequest' for a more convenient constructor. -data EC2EC2FleetOnDemandOptionsRequest = - EC2EC2FleetOnDemandOptionsRequest - { _eC2EC2FleetOnDemandOptionsRequestAllocationStrategy :: Maybe (Val Text) - , _eC2EC2FleetOnDemandOptionsRequestCapacityReservationOptions :: Maybe EC2EC2FleetCapacityReservationOptionsRequest - , _eC2EC2FleetOnDemandOptionsRequestMaxTotalPrice :: Maybe (Val Text) - , _eC2EC2FleetOnDemandOptionsRequestMinTargetCapacity :: Maybe (Val Integer) - , _eC2EC2FleetOnDemandOptionsRequestSingleAvailabilityZone :: Maybe (Val Bool) - , _eC2EC2FleetOnDemandOptionsRequestSingleInstanceType :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON EC2EC2FleetOnDemandOptionsRequest where - toJSON EC2EC2FleetOnDemandOptionsRequest{..} = - object $ - catMaybes - [ fmap (("AllocationStrategy",) . toJSON) _eC2EC2FleetOnDemandOptionsRequestAllocationStrategy - , fmap (("CapacityReservationOptions",) . toJSON) _eC2EC2FleetOnDemandOptionsRequestCapacityReservationOptions - , fmap (("MaxTotalPrice",) . toJSON) _eC2EC2FleetOnDemandOptionsRequestMaxTotalPrice - , fmap (("MinTargetCapacity",) . toJSON) _eC2EC2FleetOnDemandOptionsRequestMinTargetCapacity - , fmap (("SingleAvailabilityZone",) . toJSON) _eC2EC2FleetOnDemandOptionsRequestSingleAvailabilityZone - , fmap (("SingleInstanceType",) . toJSON) _eC2EC2FleetOnDemandOptionsRequestSingleInstanceType - ] - --- | Constructor for 'EC2EC2FleetOnDemandOptionsRequest' containing required --- fields as arguments. -ec2EC2FleetOnDemandOptionsRequest - :: EC2EC2FleetOnDemandOptionsRequest -ec2EC2FleetOnDemandOptionsRequest = - EC2EC2FleetOnDemandOptionsRequest - { _eC2EC2FleetOnDemandOptionsRequestAllocationStrategy = Nothing - , _eC2EC2FleetOnDemandOptionsRequestCapacityReservationOptions = Nothing - , _eC2EC2FleetOnDemandOptionsRequestMaxTotalPrice = Nothing - , _eC2EC2FleetOnDemandOptionsRequestMinTargetCapacity = Nothing - , _eC2EC2FleetOnDemandOptionsRequestSingleAvailabilityZone = Nothing - , _eC2EC2FleetOnDemandOptionsRequestSingleInstanceType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-ondemandoptionsrequest.html#cfn-ec2-ec2fleet-ondemandoptionsrequest-allocationstrategy -ececfodorAllocationStrategy :: Lens' EC2EC2FleetOnDemandOptionsRequest (Maybe (Val Text)) -ececfodorAllocationStrategy = lens _eC2EC2FleetOnDemandOptionsRequestAllocationStrategy (\s a -> s { _eC2EC2FleetOnDemandOptionsRequestAllocationStrategy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-ondemandoptionsrequest.html#cfn-ec2-ec2fleet-ondemandoptionsrequest-capacityreservationoptions -ececfodorCapacityReservationOptions :: Lens' EC2EC2FleetOnDemandOptionsRequest (Maybe EC2EC2FleetCapacityReservationOptionsRequest) -ececfodorCapacityReservationOptions = lens _eC2EC2FleetOnDemandOptionsRequestCapacityReservationOptions (\s a -> s { _eC2EC2FleetOnDemandOptionsRequestCapacityReservationOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-ondemandoptionsrequest.html#cfn-ec2-ec2fleet-ondemandoptionsrequest-maxtotalprice -ececfodorMaxTotalPrice :: Lens' EC2EC2FleetOnDemandOptionsRequest (Maybe (Val Text)) -ececfodorMaxTotalPrice = lens _eC2EC2FleetOnDemandOptionsRequestMaxTotalPrice (\s a -> s { _eC2EC2FleetOnDemandOptionsRequestMaxTotalPrice = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-ondemandoptionsrequest.html#cfn-ec2-ec2fleet-ondemandoptionsrequest-mintargetcapacity -ececfodorMinTargetCapacity :: Lens' EC2EC2FleetOnDemandOptionsRequest (Maybe (Val Integer)) -ececfodorMinTargetCapacity = lens _eC2EC2FleetOnDemandOptionsRequestMinTargetCapacity (\s a -> s { _eC2EC2FleetOnDemandOptionsRequestMinTargetCapacity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-ondemandoptionsrequest.html#cfn-ec2-ec2fleet-ondemandoptionsrequest-singleavailabilityzone -ececfodorSingleAvailabilityZone :: Lens' EC2EC2FleetOnDemandOptionsRequest (Maybe (Val Bool)) -ececfodorSingleAvailabilityZone = lens _eC2EC2FleetOnDemandOptionsRequestSingleAvailabilityZone (\s a -> s { _eC2EC2FleetOnDemandOptionsRequestSingleAvailabilityZone = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-ondemandoptionsrequest.html#cfn-ec2-ec2fleet-ondemandoptionsrequest-singleinstancetype -ececfodorSingleInstanceType :: Lens' EC2EC2FleetOnDemandOptionsRequest (Maybe (Val Bool)) -ececfodorSingleInstanceType = lens _eC2EC2FleetOnDemandOptionsRequestSingleInstanceType (\s a -> s { _eC2EC2FleetOnDemandOptionsRequestSingleInstanceType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2EC2FleetPlacement.hs b/library-gen/Stratosphere/ResourceProperties/EC2EC2FleetPlacement.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2EC2FleetPlacement.hs +++ /dev/null @@ -1,87 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-placement.html - -module Stratosphere.ResourceProperties.EC2EC2FleetPlacement where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2EC2FleetPlacement. See --- 'ec2EC2FleetPlacement' for a more convenient constructor. -data EC2EC2FleetPlacement = - EC2EC2FleetPlacement - { _eC2EC2FleetPlacementAffinity :: Maybe (Val Text) - , _eC2EC2FleetPlacementAvailabilityZone :: Maybe (Val Text) - , _eC2EC2FleetPlacementGroupName :: Maybe (Val Text) - , _eC2EC2FleetPlacementHostId :: Maybe (Val Text) - , _eC2EC2FleetPlacementHostResourceGroupArn :: Maybe (Val Text) - , _eC2EC2FleetPlacementPartitionNumber :: Maybe (Val Integer) - , _eC2EC2FleetPlacementSpreadDomain :: Maybe (Val Text) - , _eC2EC2FleetPlacementTenancy :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EC2EC2FleetPlacement where - toJSON EC2EC2FleetPlacement{..} = - object $ - catMaybes - [ fmap (("Affinity",) . toJSON) _eC2EC2FleetPlacementAffinity - , fmap (("AvailabilityZone",) . toJSON) _eC2EC2FleetPlacementAvailabilityZone - , fmap (("GroupName",) . toJSON) _eC2EC2FleetPlacementGroupName - , fmap (("HostId",) . toJSON) _eC2EC2FleetPlacementHostId - , fmap (("HostResourceGroupArn",) . toJSON) _eC2EC2FleetPlacementHostResourceGroupArn - , fmap (("PartitionNumber",) . toJSON) _eC2EC2FleetPlacementPartitionNumber - , fmap (("SpreadDomain",) . toJSON) _eC2EC2FleetPlacementSpreadDomain - , fmap (("Tenancy",) . toJSON) _eC2EC2FleetPlacementTenancy - ] - --- | Constructor for 'EC2EC2FleetPlacement' containing required fields as --- arguments. -ec2EC2FleetPlacement - :: EC2EC2FleetPlacement -ec2EC2FleetPlacement = - EC2EC2FleetPlacement - { _eC2EC2FleetPlacementAffinity = Nothing - , _eC2EC2FleetPlacementAvailabilityZone = Nothing - , _eC2EC2FleetPlacementGroupName = Nothing - , _eC2EC2FleetPlacementHostId = Nothing - , _eC2EC2FleetPlacementHostResourceGroupArn = Nothing - , _eC2EC2FleetPlacementPartitionNumber = Nothing - , _eC2EC2FleetPlacementSpreadDomain = Nothing - , _eC2EC2FleetPlacementTenancy = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-placement.html#cfn-ec2-ec2fleet-placement-affinity -ececfpAffinity :: Lens' EC2EC2FleetPlacement (Maybe (Val Text)) -ececfpAffinity = lens _eC2EC2FleetPlacementAffinity (\s a -> s { _eC2EC2FleetPlacementAffinity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-placement.html#cfn-ec2-ec2fleet-placement-availabilityzone -ececfpAvailabilityZone :: Lens' EC2EC2FleetPlacement (Maybe (Val Text)) -ececfpAvailabilityZone = lens _eC2EC2FleetPlacementAvailabilityZone (\s a -> s { _eC2EC2FleetPlacementAvailabilityZone = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-placement.html#cfn-ec2-ec2fleet-placement-groupname -ececfpGroupName :: Lens' EC2EC2FleetPlacement (Maybe (Val Text)) -ececfpGroupName = lens _eC2EC2FleetPlacementGroupName (\s a -> s { _eC2EC2FleetPlacementGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-placement.html#cfn-ec2-ec2fleet-placement-hostid -ececfpHostId :: Lens' EC2EC2FleetPlacement (Maybe (Val Text)) -ececfpHostId = lens _eC2EC2FleetPlacementHostId (\s a -> s { _eC2EC2FleetPlacementHostId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-placement.html#cfn-ec2-ec2fleet-placement-hostresourcegrouparn -ececfpHostResourceGroupArn :: Lens' EC2EC2FleetPlacement (Maybe (Val Text)) -ececfpHostResourceGroupArn = lens _eC2EC2FleetPlacementHostResourceGroupArn (\s a -> s { _eC2EC2FleetPlacementHostResourceGroupArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-placement.html#cfn-ec2-ec2fleet-placement-partitionnumber -ececfpPartitionNumber :: Lens' EC2EC2FleetPlacement (Maybe (Val Integer)) -ececfpPartitionNumber = lens _eC2EC2FleetPlacementPartitionNumber (\s a -> s { _eC2EC2FleetPlacementPartitionNumber = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-placement.html#cfn-ec2-ec2fleet-placement-spreaddomain -ececfpSpreadDomain :: Lens' EC2EC2FleetPlacement (Maybe (Val Text)) -ececfpSpreadDomain = lens _eC2EC2FleetPlacementSpreadDomain (\s a -> s { _eC2EC2FleetPlacementSpreadDomain = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-placement.html#cfn-ec2-ec2fleet-placement-tenancy -ececfpTenancy :: Lens' EC2EC2FleetPlacement (Maybe (Val Text)) -ececfpTenancy = lens _eC2EC2FleetPlacementTenancy (\s a -> s { _eC2EC2FleetPlacementTenancy = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2EC2FleetSpotOptionsRequest.hs b/library-gen/Stratosphere/ResourceProperties/EC2EC2FleetSpotOptionsRequest.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2EC2FleetSpotOptionsRequest.hs +++ /dev/null @@ -1,80 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-spotoptionsrequest.html - -module Stratosphere.ResourceProperties.EC2EC2FleetSpotOptionsRequest where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2EC2FleetSpotOptionsRequest. See --- 'ec2EC2FleetSpotOptionsRequest' for a more convenient constructor. -data EC2EC2FleetSpotOptionsRequest = - EC2EC2FleetSpotOptionsRequest - { _eC2EC2FleetSpotOptionsRequestAllocationStrategy :: Maybe (Val Text) - , _eC2EC2FleetSpotOptionsRequestInstanceInterruptionBehavior :: Maybe (Val Text) - , _eC2EC2FleetSpotOptionsRequestInstancePoolsToUseCount :: Maybe (Val Integer) - , _eC2EC2FleetSpotOptionsRequestMaxTotalPrice :: Maybe (Val Text) - , _eC2EC2FleetSpotOptionsRequestMinTargetCapacity :: Maybe (Val Integer) - , _eC2EC2FleetSpotOptionsRequestSingleAvailabilityZone :: Maybe (Val Bool) - , _eC2EC2FleetSpotOptionsRequestSingleInstanceType :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON EC2EC2FleetSpotOptionsRequest where - toJSON EC2EC2FleetSpotOptionsRequest{..} = - object $ - catMaybes - [ fmap (("AllocationStrategy",) . toJSON) _eC2EC2FleetSpotOptionsRequestAllocationStrategy - , fmap (("InstanceInterruptionBehavior",) . toJSON) _eC2EC2FleetSpotOptionsRequestInstanceInterruptionBehavior - , fmap (("InstancePoolsToUseCount",) . toJSON) _eC2EC2FleetSpotOptionsRequestInstancePoolsToUseCount - , fmap (("MaxTotalPrice",) . toJSON) _eC2EC2FleetSpotOptionsRequestMaxTotalPrice - , fmap (("MinTargetCapacity",) . toJSON) _eC2EC2FleetSpotOptionsRequestMinTargetCapacity - , fmap (("SingleAvailabilityZone",) . toJSON) _eC2EC2FleetSpotOptionsRequestSingleAvailabilityZone - , fmap (("SingleInstanceType",) . toJSON) _eC2EC2FleetSpotOptionsRequestSingleInstanceType - ] - --- | Constructor for 'EC2EC2FleetSpotOptionsRequest' containing required --- fields as arguments. -ec2EC2FleetSpotOptionsRequest - :: EC2EC2FleetSpotOptionsRequest -ec2EC2FleetSpotOptionsRequest = - EC2EC2FleetSpotOptionsRequest - { _eC2EC2FleetSpotOptionsRequestAllocationStrategy = Nothing - , _eC2EC2FleetSpotOptionsRequestInstanceInterruptionBehavior = Nothing - , _eC2EC2FleetSpotOptionsRequestInstancePoolsToUseCount = Nothing - , _eC2EC2FleetSpotOptionsRequestMaxTotalPrice = Nothing - , _eC2EC2FleetSpotOptionsRequestMinTargetCapacity = Nothing - , _eC2EC2FleetSpotOptionsRequestSingleAvailabilityZone = Nothing - , _eC2EC2FleetSpotOptionsRequestSingleInstanceType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-spotoptionsrequest.html#cfn-ec2-ec2fleet-spotoptionsrequest-allocationstrategy -ececfsorAllocationStrategy :: Lens' EC2EC2FleetSpotOptionsRequest (Maybe (Val Text)) -ececfsorAllocationStrategy = lens _eC2EC2FleetSpotOptionsRequestAllocationStrategy (\s a -> s { _eC2EC2FleetSpotOptionsRequestAllocationStrategy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-spotoptionsrequest.html#cfn-ec2-ec2fleet-spotoptionsrequest-instanceinterruptionbehavior -ececfsorInstanceInterruptionBehavior :: Lens' EC2EC2FleetSpotOptionsRequest (Maybe (Val Text)) -ececfsorInstanceInterruptionBehavior = lens _eC2EC2FleetSpotOptionsRequestInstanceInterruptionBehavior (\s a -> s { _eC2EC2FleetSpotOptionsRequestInstanceInterruptionBehavior = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-spotoptionsrequest.html#cfn-ec2-ec2fleet-spotoptionsrequest-instancepoolstousecount -ececfsorInstancePoolsToUseCount :: Lens' EC2EC2FleetSpotOptionsRequest (Maybe (Val Integer)) -ececfsorInstancePoolsToUseCount = lens _eC2EC2FleetSpotOptionsRequestInstancePoolsToUseCount (\s a -> s { _eC2EC2FleetSpotOptionsRequestInstancePoolsToUseCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-spotoptionsrequest.html#cfn-ec2-ec2fleet-spotoptionsrequest-maxtotalprice -ececfsorMaxTotalPrice :: Lens' EC2EC2FleetSpotOptionsRequest (Maybe (Val Text)) -ececfsorMaxTotalPrice = lens _eC2EC2FleetSpotOptionsRequestMaxTotalPrice (\s a -> s { _eC2EC2FleetSpotOptionsRequestMaxTotalPrice = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-spotoptionsrequest.html#cfn-ec2-ec2fleet-spotoptionsrequest-mintargetcapacity -ececfsorMinTargetCapacity :: Lens' EC2EC2FleetSpotOptionsRequest (Maybe (Val Integer)) -ececfsorMinTargetCapacity = lens _eC2EC2FleetSpotOptionsRequestMinTargetCapacity (\s a -> s { _eC2EC2FleetSpotOptionsRequestMinTargetCapacity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-spotoptionsrequest.html#cfn-ec2-ec2fleet-spotoptionsrequest-singleavailabilityzone -ececfsorSingleAvailabilityZone :: Lens' EC2EC2FleetSpotOptionsRequest (Maybe (Val Bool)) -ececfsorSingleAvailabilityZone = lens _eC2EC2FleetSpotOptionsRequestSingleAvailabilityZone (\s a -> s { _eC2EC2FleetSpotOptionsRequestSingleAvailabilityZone = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-spotoptionsrequest.html#cfn-ec2-ec2fleet-spotoptionsrequest-singleinstancetype -ececfsorSingleInstanceType :: Lens' EC2EC2FleetSpotOptionsRequest (Maybe (Val Bool)) -ececfsorSingleInstanceType = lens _eC2EC2FleetSpotOptionsRequestSingleInstanceType (\s a -> s { _eC2EC2FleetSpotOptionsRequestSingleInstanceType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2EC2FleetTagSpecification.hs b/library-gen/Stratosphere/ResourceProperties/EC2EC2FleetTagSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2EC2FleetTagSpecification.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-tagspecification.html - -module Stratosphere.ResourceProperties.EC2EC2FleetTagSpecification where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for EC2EC2FleetTagSpecification. See --- 'ec2EC2FleetTagSpecification' for a more convenient constructor. -data EC2EC2FleetTagSpecification = - EC2EC2FleetTagSpecification - { _eC2EC2FleetTagSpecificationResourceType :: Maybe (Val Text) - , _eC2EC2FleetTagSpecificationTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToJSON EC2EC2FleetTagSpecification where - toJSON EC2EC2FleetTagSpecification{..} = - object $ - catMaybes - [ fmap (("ResourceType",) . toJSON) _eC2EC2FleetTagSpecificationResourceType - , fmap (("Tags",) . toJSON) _eC2EC2FleetTagSpecificationTags - ] - --- | Constructor for 'EC2EC2FleetTagSpecification' containing required fields --- as arguments. -ec2EC2FleetTagSpecification - :: EC2EC2FleetTagSpecification -ec2EC2FleetTagSpecification = - EC2EC2FleetTagSpecification - { _eC2EC2FleetTagSpecificationResourceType = Nothing - , _eC2EC2FleetTagSpecificationTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-tagspecification.html#cfn-ec2-ec2fleet-tagspecification-resourcetype -ececftsResourceType :: Lens' EC2EC2FleetTagSpecification (Maybe (Val Text)) -ececftsResourceType = lens _eC2EC2FleetTagSpecificationResourceType (\s a -> s { _eC2EC2FleetTagSpecificationResourceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-tagspecification.html#cfn-ec2-ec2fleet-tagspecification-tags -ececftsTags :: Lens' EC2EC2FleetTagSpecification (Maybe [Tag]) -ececftsTags = lens _eC2EC2FleetTagSpecificationTags (\s a -> s { _eC2EC2FleetTagSpecificationTags = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2EC2FleetTargetCapacitySpecificationRequest.hs b/library-gen/Stratosphere/ResourceProperties/EC2EC2FleetTargetCapacitySpecificationRequest.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2EC2FleetTargetCapacitySpecificationRequest.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-targetcapacityspecificationrequest.html - -module Stratosphere.ResourceProperties.EC2EC2FleetTargetCapacitySpecificationRequest where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- EC2EC2FleetTargetCapacitySpecificationRequest. See --- 'ec2EC2FleetTargetCapacitySpecificationRequest' for a more convenient --- constructor. -data EC2EC2FleetTargetCapacitySpecificationRequest = - EC2EC2FleetTargetCapacitySpecificationRequest - { _eC2EC2FleetTargetCapacitySpecificationRequestDefaultTargetCapacityType :: Maybe (Val Text) - , _eC2EC2FleetTargetCapacitySpecificationRequestOnDemandTargetCapacity :: Maybe (Val Integer) - , _eC2EC2FleetTargetCapacitySpecificationRequestSpotTargetCapacity :: Maybe (Val Integer) - , _eC2EC2FleetTargetCapacitySpecificationRequestTotalTargetCapacity :: Val Integer - } deriving (Show, Eq) - -instance ToJSON EC2EC2FleetTargetCapacitySpecificationRequest where - toJSON EC2EC2FleetTargetCapacitySpecificationRequest{..} = - object $ - catMaybes - [ fmap (("DefaultTargetCapacityType",) . toJSON) _eC2EC2FleetTargetCapacitySpecificationRequestDefaultTargetCapacityType - , fmap (("OnDemandTargetCapacity",) . toJSON) _eC2EC2FleetTargetCapacitySpecificationRequestOnDemandTargetCapacity - , fmap (("SpotTargetCapacity",) . toJSON) _eC2EC2FleetTargetCapacitySpecificationRequestSpotTargetCapacity - , (Just . ("TotalTargetCapacity",) . toJSON) _eC2EC2FleetTargetCapacitySpecificationRequestTotalTargetCapacity - ] - --- | Constructor for 'EC2EC2FleetTargetCapacitySpecificationRequest' --- containing required fields as arguments. -ec2EC2FleetTargetCapacitySpecificationRequest - :: Val Integer -- ^ 'ececftcsrTotalTargetCapacity' - -> EC2EC2FleetTargetCapacitySpecificationRequest -ec2EC2FleetTargetCapacitySpecificationRequest totalTargetCapacityarg = - EC2EC2FleetTargetCapacitySpecificationRequest - { _eC2EC2FleetTargetCapacitySpecificationRequestDefaultTargetCapacityType = Nothing - , _eC2EC2FleetTargetCapacitySpecificationRequestOnDemandTargetCapacity = Nothing - , _eC2EC2FleetTargetCapacitySpecificationRequestSpotTargetCapacity = Nothing - , _eC2EC2FleetTargetCapacitySpecificationRequestTotalTargetCapacity = totalTargetCapacityarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-targetcapacityspecificationrequest.html#cfn-ec2-ec2fleet-targetcapacityspecificationrequest-defaulttargetcapacitytype -ececftcsrDefaultTargetCapacityType :: Lens' EC2EC2FleetTargetCapacitySpecificationRequest (Maybe (Val Text)) -ececftcsrDefaultTargetCapacityType = lens _eC2EC2FleetTargetCapacitySpecificationRequestDefaultTargetCapacityType (\s a -> s { _eC2EC2FleetTargetCapacitySpecificationRequestDefaultTargetCapacityType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-targetcapacityspecificationrequest.html#cfn-ec2-ec2fleet-targetcapacityspecificationrequest-ondemandtargetcapacity -ececftcsrOnDemandTargetCapacity :: Lens' EC2EC2FleetTargetCapacitySpecificationRequest (Maybe (Val Integer)) -ececftcsrOnDemandTargetCapacity = lens _eC2EC2FleetTargetCapacitySpecificationRequestOnDemandTargetCapacity (\s a -> s { _eC2EC2FleetTargetCapacitySpecificationRequestOnDemandTargetCapacity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-targetcapacityspecificationrequest.html#cfn-ec2-ec2fleet-targetcapacityspecificationrequest-spottargetcapacity -ececftcsrSpotTargetCapacity :: Lens' EC2EC2FleetTargetCapacitySpecificationRequest (Maybe (Val Integer)) -ececftcsrSpotTargetCapacity = lens _eC2EC2FleetTargetCapacitySpecificationRequestSpotTargetCapacity (\s a -> s { _eC2EC2FleetTargetCapacitySpecificationRequestSpotTargetCapacity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ec2fleet-targetcapacityspecificationrequest.html#cfn-ec2-ec2fleet-targetcapacityspecificationrequest-totaltargetcapacity -ececftcsrTotalTargetCapacity :: Lens' EC2EC2FleetTargetCapacitySpecificationRequest (Val Integer) -ececftcsrTotalTargetCapacity = lens _eC2EC2FleetTargetCapacitySpecificationRequestTotalTargetCapacity (\s a -> s { _eC2EC2FleetTargetCapacitySpecificationRequestTotalTargetCapacity = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2InstanceAssociationParameter.hs b/library-gen/Stratosphere/ResourceProperties/EC2InstanceAssociationParameter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2InstanceAssociationParameter.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-ssmassociations-associationparameters.html - -module Stratosphere.ResourceProperties.EC2InstanceAssociationParameter where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2InstanceAssociationParameter. See --- 'ec2InstanceAssociationParameter' for a more convenient constructor. -data EC2InstanceAssociationParameter = - EC2InstanceAssociationParameter - { _eC2InstanceAssociationParameterKey :: Val Text - , _eC2InstanceAssociationParameterValue :: ValList Text - } deriving (Show, Eq) - -instance ToJSON EC2InstanceAssociationParameter where - toJSON EC2InstanceAssociationParameter{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _eC2InstanceAssociationParameterKey - , (Just . ("Value",) . toJSON) _eC2InstanceAssociationParameterValue - ] - --- | Constructor for 'EC2InstanceAssociationParameter' containing required --- fields as arguments. -ec2InstanceAssociationParameter - :: Val Text -- ^ 'eciapKey' - -> ValList Text -- ^ 'eciapValue' - -> EC2InstanceAssociationParameter -ec2InstanceAssociationParameter keyarg valuearg = - EC2InstanceAssociationParameter - { _eC2InstanceAssociationParameterKey = keyarg - , _eC2InstanceAssociationParameterValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-ssmassociations-associationparameters.html#cfn-ec2-instance-ssmassociations-associationparameters-key -eciapKey :: Lens' EC2InstanceAssociationParameter (Val Text) -eciapKey = lens _eC2InstanceAssociationParameterKey (\s a -> s { _eC2InstanceAssociationParameterKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-ssmassociations-associationparameters.html#cfn-ec2-instance-ssmassociations-associationparameters-value -eciapValue :: Lens' EC2InstanceAssociationParameter (ValList Text) -eciapValue = lens _eC2InstanceAssociationParameterValue (\s a -> s { _eC2InstanceAssociationParameterValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2InstanceBlockDeviceMapping.hs b/library-gen/Stratosphere/ResourceProperties/EC2InstanceBlockDeviceMapping.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2InstanceBlockDeviceMapping.hs +++ /dev/null @@ -1,61 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-blockdev-mapping.html - -module Stratosphere.ResourceProperties.EC2InstanceBlockDeviceMapping where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2InstanceEbs -import Stratosphere.ResourceProperties.EC2InstanceNoDevice - --- | Full data type definition for EC2InstanceBlockDeviceMapping. See --- 'ec2InstanceBlockDeviceMapping' for a more convenient constructor. -data EC2InstanceBlockDeviceMapping = - EC2InstanceBlockDeviceMapping - { _eC2InstanceBlockDeviceMappingDeviceName :: Val Text - , _eC2InstanceBlockDeviceMappingEbs :: Maybe EC2InstanceEbs - , _eC2InstanceBlockDeviceMappingNoDevice :: Maybe EC2InstanceNoDevice - , _eC2InstanceBlockDeviceMappingVirtualName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EC2InstanceBlockDeviceMapping where - toJSON EC2InstanceBlockDeviceMapping{..} = - object $ - catMaybes - [ (Just . ("DeviceName",) . toJSON) _eC2InstanceBlockDeviceMappingDeviceName - , fmap (("Ebs",) . toJSON) _eC2InstanceBlockDeviceMappingEbs - , fmap (("NoDevice",) . toJSON) _eC2InstanceBlockDeviceMappingNoDevice - , fmap (("VirtualName",) . toJSON) _eC2InstanceBlockDeviceMappingVirtualName - ] - --- | Constructor for 'EC2InstanceBlockDeviceMapping' containing required --- fields as arguments. -ec2InstanceBlockDeviceMapping - :: Val Text -- ^ 'ecibdmDeviceName' - -> EC2InstanceBlockDeviceMapping -ec2InstanceBlockDeviceMapping deviceNamearg = - EC2InstanceBlockDeviceMapping - { _eC2InstanceBlockDeviceMappingDeviceName = deviceNamearg - , _eC2InstanceBlockDeviceMappingEbs = Nothing - , _eC2InstanceBlockDeviceMappingNoDevice = Nothing - , _eC2InstanceBlockDeviceMappingVirtualName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-blockdev-mapping.html#cfn-ec2-blockdev-mapping-devicename -ecibdmDeviceName :: Lens' EC2InstanceBlockDeviceMapping (Val Text) -ecibdmDeviceName = lens _eC2InstanceBlockDeviceMappingDeviceName (\s a -> s { _eC2InstanceBlockDeviceMappingDeviceName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-blockdev-mapping.html#cfn-ec2-blockdev-mapping-ebs -ecibdmEbs :: Lens' EC2InstanceBlockDeviceMapping (Maybe EC2InstanceEbs) -ecibdmEbs = lens _eC2InstanceBlockDeviceMappingEbs (\s a -> s { _eC2InstanceBlockDeviceMappingEbs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-blockdev-mapping.html#cfn-ec2-blockdev-mapping-nodevice -ecibdmNoDevice :: Lens' EC2InstanceBlockDeviceMapping (Maybe EC2InstanceNoDevice) -ecibdmNoDevice = lens _eC2InstanceBlockDeviceMappingNoDevice (\s a -> s { _eC2InstanceBlockDeviceMappingNoDevice = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-blockdev-mapping.html#cfn-ec2-blockdev-mapping-virtualname -ecibdmVirtualName :: Lens' EC2InstanceBlockDeviceMapping (Maybe (Val Text)) -ecibdmVirtualName = lens _eC2InstanceBlockDeviceMappingVirtualName (\s a -> s { _eC2InstanceBlockDeviceMappingVirtualName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2InstanceCpuOptions.hs b/library-gen/Stratosphere/ResourceProperties/EC2InstanceCpuOptions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2InstanceCpuOptions.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-cpuoptions.html - -module Stratosphere.ResourceProperties.EC2InstanceCpuOptions where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2InstanceCpuOptions. See --- 'ec2InstanceCpuOptions' for a more convenient constructor. -data EC2InstanceCpuOptions = - EC2InstanceCpuOptions - { _eC2InstanceCpuOptionsCoreCount :: Maybe (Val Integer) - , _eC2InstanceCpuOptionsThreadsPerCore :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON EC2InstanceCpuOptions where - toJSON EC2InstanceCpuOptions{..} = - object $ - catMaybes - [ fmap (("CoreCount",) . toJSON) _eC2InstanceCpuOptionsCoreCount - , fmap (("ThreadsPerCore",) . toJSON) _eC2InstanceCpuOptionsThreadsPerCore - ] - --- | Constructor for 'EC2InstanceCpuOptions' containing required fields as --- arguments. -ec2InstanceCpuOptions - :: EC2InstanceCpuOptions -ec2InstanceCpuOptions = - EC2InstanceCpuOptions - { _eC2InstanceCpuOptionsCoreCount = Nothing - , _eC2InstanceCpuOptionsThreadsPerCore = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-cpuoptions.html#cfn-ec2-instance-cpuoptions-corecount -ecicoCoreCount :: Lens' EC2InstanceCpuOptions (Maybe (Val Integer)) -ecicoCoreCount = lens _eC2InstanceCpuOptionsCoreCount (\s a -> s { _eC2InstanceCpuOptionsCoreCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-cpuoptions.html#cfn-ec2-instance-cpuoptions-threadspercore -ecicoThreadsPerCore :: Lens' EC2InstanceCpuOptions (Maybe (Val Integer)) -ecicoThreadsPerCore = lens _eC2InstanceCpuOptionsThreadsPerCore (\s a -> s { _eC2InstanceCpuOptionsThreadsPerCore = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2InstanceCreditSpecification.hs b/library-gen/Stratosphere/ResourceProperties/EC2InstanceCreditSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2InstanceCreditSpecification.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-creditspecification.html - -module Stratosphere.ResourceProperties.EC2InstanceCreditSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2InstanceCreditSpecification. See --- 'ec2InstanceCreditSpecification' for a more convenient constructor. -data EC2InstanceCreditSpecification = - EC2InstanceCreditSpecification - { _eC2InstanceCreditSpecificationCPUCredits :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EC2InstanceCreditSpecification where - toJSON EC2InstanceCreditSpecification{..} = - object $ - catMaybes - [ fmap (("CPUCredits",) . toJSON) _eC2InstanceCreditSpecificationCPUCredits - ] - --- | Constructor for 'EC2InstanceCreditSpecification' containing required --- fields as arguments. -ec2InstanceCreditSpecification - :: EC2InstanceCreditSpecification -ec2InstanceCreditSpecification = - EC2InstanceCreditSpecification - { _eC2InstanceCreditSpecificationCPUCredits = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-creditspecification.html#cfn-ec2-instance-creditspecification-cpucredits -ecicsCPUCredits :: Lens' EC2InstanceCreditSpecification (Maybe (Val Text)) -ecicsCPUCredits = lens _eC2InstanceCreditSpecificationCPUCredits (\s a -> s { _eC2InstanceCreditSpecificationCPUCredits = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2InstanceEbs.hs b/library-gen/Stratosphere/ResourceProperties/EC2InstanceEbs.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2InstanceEbs.hs +++ /dev/null @@ -1,79 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-blockdev-template.html - -module Stratosphere.ResourceProperties.EC2InstanceEbs where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2InstanceEbs. See 'ec2InstanceEbs' for a --- more convenient constructor. -data EC2InstanceEbs = - EC2InstanceEbs - { _eC2InstanceEbsDeleteOnTermination :: Maybe (Val Bool) - , _eC2InstanceEbsEncrypted :: Maybe (Val Bool) - , _eC2InstanceEbsIops :: Maybe (Val Integer) - , _eC2InstanceEbsKmsKeyId :: Maybe (Val Text) - , _eC2InstanceEbsSnapshotId :: Maybe (Val Text) - , _eC2InstanceEbsVolumeSize :: Maybe (Val Integer) - , _eC2InstanceEbsVolumeType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EC2InstanceEbs where - toJSON EC2InstanceEbs{..} = - object $ - catMaybes - [ fmap (("DeleteOnTermination",) . toJSON) _eC2InstanceEbsDeleteOnTermination - , fmap (("Encrypted",) . toJSON) _eC2InstanceEbsEncrypted - , fmap (("Iops",) . toJSON) _eC2InstanceEbsIops - , fmap (("KmsKeyId",) . toJSON) _eC2InstanceEbsKmsKeyId - , fmap (("SnapshotId",) . toJSON) _eC2InstanceEbsSnapshotId - , fmap (("VolumeSize",) . toJSON) _eC2InstanceEbsVolumeSize - , fmap (("VolumeType",) . toJSON) _eC2InstanceEbsVolumeType - ] - --- | Constructor for 'EC2InstanceEbs' containing required fields as arguments. -ec2InstanceEbs - :: EC2InstanceEbs -ec2InstanceEbs = - EC2InstanceEbs - { _eC2InstanceEbsDeleteOnTermination = Nothing - , _eC2InstanceEbsEncrypted = Nothing - , _eC2InstanceEbsIops = Nothing - , _eC2InstanceEbsKmsKeyId = Nothing - , _eC2InstanceEbsSnapshotId = Nothing - , _eC2InstanceEbsVolumeSize = Nothing - , _eC2InstanceEbsVolumeType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-blockdev-template.html#cfn-ec2-blockdev-template-deleteontermination -ecieDeleteOnTermination :: Lens' EC2InstanceEbs (Maybe (Val Bool)) -ecieDeleteOnTermination = lens _eC2InstanceEbsDeleteOnTermination (\s a -> s { _eC2InstanceEbsDeleteOnTermination = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-blockdev-template.html#cfn-ec2-blockdev-template-encrypted -ecieEncrypted :: Lens' EC2InstanceEbs (Maybe (Val Bool)) -ecieEncrypted = lens _eC2InstanceEbsEncrypted (\s a -> s { _eC2InstanceEbsEncrypted = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-blockdev-template.html#cfn-ec2-blockdev-template-iops -ecieIops :: Lens' EC2InstanceEbs (Maybe (Val Integer)) -ecieIops = lens _eC2InstanceEbsIops (\s a -> s { _eC2InstanceEbsIops = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-blockdev-template.html#cfn-ec2-instance-ebs-kmskeyid -ecieKmsKeyId :: Lens' EC2InstanceEbs (Maybe (Val Text)) -ecieKmsKeyId = lens _eC2InstanceEbsKmsKeyId (\s a -> s { _eC2InstanceEbsKmsKeyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-blockdev-template.html#cfn-ec2-blockdev-template-snapshotid -ecieSnapshotId :: Lens' EC2InstanceEbs (Maybe (Val Text)) -ecieSnapshotId = lens _eC2InstanceEbsSnapshotId (\s a -> s { _eC2InstanceEbsSnapshotId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-blockdev-template.html#cfn-ec2-blockdev-template-volumesize -ecieVolumeSize :: Lens' EC2InstanceEbs (Maybe (Val Integer)) -ecieVolumeSize = lens _eC2InstanceEbsVolumeSize (\s a -> s { _eC2InstanceEbsVolumeSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-blockdev-template.html#cfn-ec2-blockdev-template-volumetype -ecieVolumeType :: Lens' EC2InstanceEbs (Maybe (Val Text)) -ecieVolumeType = lens _eC2InstanceEbsVolumeType (\s a -> s { _eC2InstanceEbsVolumeType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2InstanceElasticGpuSpecification.hs b/library-gen/Stratosphere/ResourceProperties/EC2InstanceElasticGpuSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2InstanceElasticGpuSpecification.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-elasticgpuspecification.html - -module Stratosphere.ResourceProperties.EC2InstanceElasticGpuSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2InstanceElasticGpuSpecification. See --- 'ec2InstanceElasticGpuSpecification' for a more convenient constructor. -data EC2InstanceElasticGpuSpecification = - EC2InstanceElasticGpuSpecification - { _eC2InstanceElasticGpuSpecificationType :: Val Text - } deriving (Show, Eq) - -instance ToJSON EC2InstanceElasticGpuSpecification where - toJSON EC2InstanceElasticGpuSpecification{..} = - object $ - catMaybes - [ (Just . ("Type",) . toJSON) _eC2InstanceElasticGpuSpecificationType - ] - --- | Constructor for 'EC2InstanceElasticGpuSpecification' containing required --- fields as arguments. -ec2InstanceElasticGpuSpecification - :: Val Text -- ^ 'eciegsType' - -> EC2InstanceElasticGpuSpecification -ec2InstanceElasticGpuSpecification typearg = - EC2InstanceElasticGpuSpecification - { _eC2InstanceElasticGpuSpecificationType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-elasticgpuspecification.html#cfn-ec2-instance-elasticgpuspecification-type -eciegsType :: Lens' EC2InstanceElasticGpuSpecification (Val Text) -eciegsType = lens _eC2InstanceElasticGpuSpecificationType (\s a -> s { _eC2InstanceElasticGpuSpecificationType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2InstanceElasticInferenceAccelerator.hs b/library-gen/Stratosphere/ResourceProperties/EC2InstanceElasticInferenceAccelerator.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2InstanceElasticInferenceAccelerator.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-elasticinferenceaccelerator.html - -module Stratosphere.ResourceProperties.EC2InstanceElasticInferenceAccelerator where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2InstanceElasticInferenceAccelerator. See --- 'ec2InstanceElasticInferenceAccelerator' for a more convenient --- constructor. -data EC2InstanceElasticInferenceAccelerator = - EC2InstanceElasticInferenceAccelerator - { _eC2InstanceElasticInferenceAcceleratorCount :: Maybe (Val Integer) - , _eC2InstanceElasticInferenceAcceleratorType :: Val Text - } deriving (Show, Eq) - -instance ToJSON EC2InstanceElasticInferenceAccelerator where - toJSON EC2InstanceElasticInferenceAccelerator{..} = - object $ - catMaybes - [ fmap (("Count",) . toJSON) _eC2InstanceElasticInferenceAcceleratorCount - , (Just . ("Type",) . toJSON) _eC2InstanceElasticInferenceAcceleratorType - ] - --- | Constructor for 'EC2InstanceElasticInferenceAccelerator' containing --- required fields as arguments. -ec2InstanceElasticInferenceAccelerator - :: Val Text -- ^ 'ecieiaType' - -> EC2InstanceElasticInferenceAccelerator -ec2InstanceElasticInferenceAccelerator typearg = - EC2InstanceElasticInferenceAccelerator - { _eC2InstanceElasticInferenceAcceleratorCount = Nothing - , _eC2InstanceElasticInferenceAcceleratorType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-elasticinferenceaccelerator.html#cfn-ec2-instance-elasticinferenceaccelerator-count -ecieiaCount :: Lens' EC2InstanceElasticInferenceAccelerator (Maybe (Val Integer)) -ecieiaCount = lens _eC2InstanceElasticInferenceAcceleratorCount (\s a -> s { _eC2InstanceElasticInferenceAcceleratorCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-elasticinferenceaccelerator.html#cfn-ec2-instance-elasticinferenceaccelerator-type -ecieiaType :: Lens' EC2InstanceElasticInferenceAccelerator (Val Text) -ecieiaType = lens _eC2InstanceElasticInferenceAcceleratorType (\s a -> s { _eC2InstanceElasticInferenceAcceleratorType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2InstanceHibernationOptions.hs b/library-gen/Stratosphere/ResourceProperties/EC2InstanceHibernationOptions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2InstanceHibernationOptions.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-hibernationoptions.html - -module Stratosphere.ResourceProperties.EC2InstanceHibernationOptions where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2InstanceHibernationOptions. See --- 'ec2InstanceHibernationOptions' for a more convenient constructor. -data EC2InstanceHibernationOptions = - EC2InstanceHibernationOptions - { _eC2InstanceHibernationOptionsConfigured :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON EC2InstanceHibernationOptions where - toJSON EC2InstanceHibernationOptions{..} = - object $ - catMaybes - [ fmap (("Configured",) . toJSON) _eC2InstanceHibernationOptionsConfigured - ] - --- | Constructor for 'EC2InstanceHibernationOptions' containing required --- fields as arguments. -ec2InstanceHibernationOptions - :: EC2InstanceHibernationOptions -ec2InstanceHibernationOptions = - EC2InstanceHibernationOptions - { _eC2InstanceHibernationOptionsConfigured = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-hibernationoptions.html#cfn-ec2-instance-hibernationoptions-configured -ecihoConfigured :: Lens' EC2InstanceHibernationOptions (Maybe (Val Bool)) -ecihoConfigured = lens _eC2InstanceHibernationOptionsConfigured (\s a -> s { _eC2InstanceHibernationOptionsConfigured = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2InstanceInstanceIpv6Address.hs b/library-gen/Stratosphere/ResourceProperties/EC2InstanceInstanceIpv6Address.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2InstanceInstanceIpv6Address.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-instanceipv6address.html - -module Stratosphere.ResourceProperties.EC2InstanceInstanceIpv6Address where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2InstanceInstanceIpv6Address. See --- 'ec2InstanceInstanceIpv6Address' for a more convenient constructor. -data EC2InstanceInstanceIpv6Address = - EC2InstanceInstanceIpv6Address - { _eC2InstanceInstanceIpv6AddressIpv6Address :: Val Text - } deriving (Show, Eq) - -instance ToJSON EC2InstanceInstanceIpv6Address where - toJSON EC2InstanceInstanceIpv6Address{..} = - object $ - catMaybes - [ (Just . ("Ipv6Address",) . toJSON) _eC2InstanceInstanceIpv6AddressIpv6Address - ] - --- | Constructor for 'EC2InstanceInstanceIpv6Address' containing required --- fields as arguments. -ec2InstanceInstanceIpv6Address - :: Val Text -- ^ 'eciiiaIpv6Address' - -> EC2InstanceInstanceIpv6Address -ec2InstanceInstanceIpv6Address ipv6Addressarg = - EC2InstanceInstanceIpv6Address - { _eC2InstanceInstanceIpv6AddressIpv6Address = ipv6Addressarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-instanceipv6address.html#cfn-ec2-instance-instanceipv6address-ipv6address -eciiiaIpv6Address :: Lens' EC2InstanceInstanceIpv6Address (Val Text) -eciiiaIpv6Address = lens _eC2InstanceInstanceIpv6AddressIpv6Address (\s a -> s { _eC2InstanceInstanceIpv6AddressIpv6Address = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2InstanceLaunchTemplateSpecification.hs b/library-gen/Stratosphere/ResourceProperties/EC2InstanceLaunchTemplateSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2InstanceLaunchTemplateSpecification.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-launchtemplatespecification.html - -module Stratosphere.ResourceProperties.EC2InstanceLaunchTemplateSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2InstanceLaunchTemplateSpecification. See --- 'ec2InstanceLaunchTemplateSpecification' for a more convenient --- constructor. -data EC2InstanceLaunchTemplateSpecification = - EC2InstanceLaunchTemplateSpecification - { _eC2InstanceLaunchTemplateSpecificationLaunchTemplateId :: Maybe (Val Text) - , _eC2InstanceLaunchTemplateSpecificationLaunchTemplateName :: Maybe (Val Text) - , _eC2InstanceLaunchTemplateSpecificationVersion :: Val Text - } deriving (Show, Eq) - -instance ToJSON EC2InstanceLaunchTemplateSpecification where - toJSON EC2InstanceLaunchTemplateSpecification{..} = - object $ - catMaybes - [ fmap (("LaunchTemplateId",) . toJSON) _eC2InstanceLaunchTemplateSpecificationLaunchTemplateId - , fmap (("LaunchTemplateName",) . toJSON) _eC2InstanceLaunchTemplateSpecificationLaunchTemplateName - , (Just . ("Version",) . toJSON) _eC2InstanceLaunchTemplateSpecificationVersion - ] - --- | Constructor for 'EC2InstanceLaunchTemplateSpecification' containing --- required fields as arguments. -ec2InstanceLaunchTemplateSpecification - :: Val Text -- ^ 'eciltsVersion' - -> EC2InstanceLaunchTemplateSpecification -ec2InstanceLaunchTemplateSpecification versionarg = - EC2InstanceLaunchTemplateSpecification - { _eC2InstanceLaunchTemplateSpecificationLaunchTemplateId = Nothing - , _eC2InstanceLaunchTemplateSpecificationLaunchTemplateName = Nothing - , _eC2InstanceLaunchTemplateSpecificationVersion = versionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-launchtemplatespecification.html#cfn-ec2-instance-launchtemplatespecification-launchtemplateid -eciltsLaunchTemplateId :: Lens' EC2InstanceLaunchTemplateSpecification (Maybe (Val Text)) -eciltsLaunchTemplateId = lens _eC2InstanceLaunchTemplateSpecificationLaunchTemplateId (\s a -> s { _eC2InstanceLaunchTemplateSpecificationLaunchTemplateId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-launchtemplatespecification.html#cfn-ec2-instance-launchtemplatespecification-launchtemplatename -eciltsLaunchTemplateName :: Lens' EC2InstanceLaunchTemplateSpecification (Maybe (Val Text)) -eciltsLaunchTemplateName = lens _eC2InstanceLaunchTemplateSpecificationLaunchTemplateName (\s a -> s { _eC2InstanceLaunchTemplateSpecificationLaunchTemplateName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-launchtemplatespecification.html#cfn-ec2-instance-launchtemplatespecification-version -eciltsVersion :: Lens' EC2InstanceLaunchTemplateSpecification (Val Text) -eciltsVersion = lens _eC2InstanceLaunchTemplateSpecificationVersion (\s a -> s { _eC2InstanceLaunchTemplateSpecificationVersion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2InstanceLicenseSpecification.hs b/library-gen/Stratosphere/ResourceProperties/EC2InstanceLicenseSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2InstanceLicenseSpecification.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-licensespecification.html - -module Stratosphere.ResourceProperties.EC2InstanceLicenseSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2InstanceLicenseSpecification. See --- 'ec2InstanceLicenseSpecification' for a more convenient constructor. -data EC2InstanceLicenseSpecification = - EC2InstanceLicenseSpecification - { _eC2InstanceLicenseSpecificationLicenseConfigurationArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON EC2InstanceLicenseSpecification where - toJSON EC2InstanceLicenseSpecification{..} = - object $ - catMaybes - [ (Just . ("LicenseConfigurationArn",) . toJSON) _eC2InstanceLicenseSpecificationLicenseConfigurationArn - ] - --- | Constructor for 'EC2InstanceLicenseSpecification' containing required --- fields as arguments. -ec2InstanceLicenseSpecification - :: Val Text -- ^ 'ecilsLicenseConfigurationArn' - -> EC2InstanceLicenseSpecification -ec2InstanceLicenseSpecification licenseConfigurationArnarg = - EC2InstanceLicenseSpecification - { _eC2InstanceLicenseSpecificationLicenseConfigurationArn = licenseConfigurationArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-licensespecification.html#cfn-ec2-instance-licensespecification-licenseconfigurationarn -ecilsLicenseConfigurationArn :: Lens' EC2InstanceLicenseSpecification (Val Text) -ecilsLicenseConfigurationArn = lens _eC2InstanceLicenseSpecificationLicenseConfigurationArn (\s a -> s { _eC2InstanceLicenseSpecificationLicenseConfigurationArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2InstanceNetworkInterface.hs b/library-gen/Stratosphere/ResourceProperties/EC2InstanceNetworkInterface.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2InstanceNetworkInterface.hs +++ /dev/null @@ -1,117 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-network-iface-embedded.html - -module Stratosphere.ResourceProperties.EC2InstanceNetworkInterface where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2InstanceInstanceIpv6Address -import Stratosphere.ResourceProperties.EC2InstancePrivateIpAddressSpecification - --- | Full data type definition for EC2InstanceNetworkInterface. See --- 'ec2InstanceNetworkInterface' for a more convenient constructor. -data EC2InstanceNetworkInterface = - EC2InstanceNetworkInterface - { _eC2InstanceNetworkInterfaceAssociatePublicIpAddress :: Maybe (Val Bool) - , _eC2InstanceNetworkInterfaceDeleteOnTermination :: Maybe (Val Bool) - , _eC2InstanceNetworkInterfaceDescription :: Maybe (Val Text) - , _eC2InstanceNetworkInterfaceDeviceIndex :: Val Text - , _eC2InstanceNetworkInterfaceGroupSet :: Maybe (ValList Text) - , _eC2InstanceNetworkInterfaceIpv6AddressCount :: Maybe (Val Integer) - , _eC2InstanceNetworkInterfaceIpv6Addresses :: Maybe [EC2InstanceInstanceIpv6Address] - , _eC2InstanceNetworkInterfaceNetworkInterfaceId :: Maybe (Val Text) - , _eC2InstanceNetworkInterfacePrivateIpAddress :: Maybe (Val Text) - , _eC2InstanceNetworkInterfacePrivateIpAddresses :: Maybe [EC2InstancePrivateIpAddressSpecification] - , _eC2InstanceNetworkInterfaceSecondaryPrivateIpAddressCount :: Maybe (Val Integer) - , _eC2InstanceNetworkInterfaceSubnetId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EC2InstanceNetworkInterface where - toJSON EC2InstanceNetworkInterface{..} = - object $ - catMaybes - [ fmap (("AssociatePublicIpAddress",) . toJSON) _eC2InstanceNetworkInterfaceAssociatePublicIpAddress - , fmap (("DeleteOnTermination",) . toJSON) _eC2InstanceNetworkInterfaceDeleteOnTermination - , fmap (("Description",) . toJSON) _eC2InstanceNetworkInterfaceDescription - , (Just . ("DeviceIndex",) . toJSON) _eC2InstanceNetworkInterfaceDeviceIndex - , fmap (("GroupSet",) . toJSON) _eC2InstanceNetworkInterfaceGroupSet - , fmap (("Ipv6AddressCount",) . toJSON) _eC2InstanceNetworkInterfaceIpv6AddressCount - , fmap (("Ipv6Addresses",) . toJSON) _eC2InstanceNetworkInterfaceIpv6Addresses - , fmap (("NetworkInterfaceId",) . toJSON) _eC2InstanceNetworkInterfaceNetworkInterfaceId - , fmap (("PrivateIpAddress",) . toJSON) _eC2InstanceNetworkInterfacePrivateIpAddress - , fmap (("PrivateIpAddresses",) . toJSON) _eC2InstanceNetworkInterfacePrivateIpAddresses - , fmap (("SecondaryPrivateIpAddressCount",) . toJSON) _eC2InstanceNetworkInterfaceSecondaryPrivateIpAddressCount - , fmap (("SubnetId",) . toJSON) _eC2InstanceNetworkInterfaceSubnetId - ] - --- | Constructor for 'EC2InstanceNetworkInterface' containing required fields --- as arguments. -ec2InstanceNetworkInterface - :: Val Text -- ^ 'eciniDeviceIndex' - -> EC2InstanceNetworkInterface -ec2InstanceNetworkInterface deviceIndexarg = - EC2InstanceNetworkInterface - { _eC2InstanceNetworkInterfaceAssociatePublicIpAddress = Nothing - , _eC2InstanceNetworkInterfaceDeleteOnTermination = Nothing - , _eC2InstanceNetworkInterfaceDescription = Nothing - , _eC2InstanceNetworkInterfaceDeviceIndex = deviceIndexarg - , _eC2InstanceNetworkInterfaceGroupSet = Nothing - , _eC2InstanceNetworkInterfaceIpv6AddressCount = Nothing - , _eC2InstanceNetworkInterfaceIpv6Addresses = Nothing - , _eC2InstanceNetworkInterfaceNetworkInterfaceId = Nothing - , _eC2InstanceNetworkInterfacePrivateIpAddress = Nothing - , _eC2InstanceNetworkInterfacePrivateIpAddresses = Nothing - , _eC2InstanceNetworkInterfaceSecondaryPrivateIpAddressCount = Nothing - , _eC2InstanceNetworkInterfaceSubnetId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-network-iface-embedded.html#aws-properties-ec2-network-iface-embedded-associatepubip -eciniAssociatePublicIpAddress :: Lens' EC2InstanceNetworkInterface (Maybe (Val Bool)) -eciniAssociatePublicIpAddress = lens _eC2InstanceNetworkInterfaceAssociatePublicIpAddress (\s a -> s { _eC2InstanceNetworkInterfaceAssociatePublicIpAddress = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-network-iface-embedded.html#aws-properties-ec2-network-iface-embedded-delete -eciniDeleteOnTermination :: Lens' EC2InstanceNetworkInterface (Maybe (Val Bool)) -eciniDeleteOnTermination = lens _eC2InstanceNetworkInterfaceDeleteOnTermination (\s a -> s { _eC2InstanceNetworkInterfaceDeleteOnTermination = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-network-iface-embedded.html#aws-properties-ec2-network-iface-embedded-description -eciniDescription :: Lens' EC2InstanceNetworkInterface (Maybe (Val Text)) -eciniDescription = lens _eC2InstanceNetworkInterfaceDescription (\s a -> s { _eC2InstanceNetworkInterfaceDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-network-iface-embedded.html#aws-properties-ec2-network-iface-embedded-deviceindex -eciniDeviceIndex :: Lens' EC2InstanceNetworkInterface (Val Text) -eciniDeviceIndex = lens _eC2InstanceNetworkInterfaceDeviceIndex (\s a -> s { _eC2InstanceNetworkInterfaceDeviceIndex = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-network-iface-embedded.html#aws-properties-ec2-network-iface-embedded-groupset -eciniGroupSet :: Lens' EC2InstanceNetworkInterface (Maybe (ValList Text)) -eciniGroupSet = lens _eC2InstanceNetworkInterfaceGroupSet (\s a -> s { _eC2InstanceNetworkInterfaceGroupSet = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-network-iface-embedded.html#cfn-ec2-instance-networkinterface-ipv6addresscount -eciniIpv6AddressCount :: Lens' EC2InstanceNetworkInterface (Maybe (Val Integer)) -eciniIpv6AddressCount = lens _eC2InstanceNetworkInterfaceIpv6AddressCount (\s a -> s { _eC2InstanceNetworkInterfaceIpv6AddressCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-network-iface-embedded.html#cfn-ec2-instance-networkinterface-ipv6addresses -eciniIpv6Addresses :: Lens' EC2InstanceNetworkInterface (Maybe [EC2InstanceInstanceIpv6Address]) -eciniIpv6Addresses = lens _eC2InstanceNetworkInterfaceIpv6Addresses (\s a -> s { _eC2InstanceNetworkInterfaceIpv6Addresses = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-network-iface-embedded.html#aws-properties-ec2-network-iface-embedded-network-iface -eciniNetworkInterfaceId :: Lens' EC2InstanceNetworkInterface (Maybe (Val Text)) -eciniNetworkInterfaceId = lens _eC2InstanceNetworkInterfaceNetworkInterfaceId (\s a -> s { _eC2InstanceNetworkInterfaceNetworkInterfaceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-network-iface-embedded.html#aws-properties-ec2-network-iface-embedded-privateipaddress -eciniPrivateIpAddress :: Lens' EC2InstanceNetworkInterface (Maybe (Val Text)) -eciniPrivateIpAddress = lens _eC2InstanceNetworkInterfacePrivateIpAddress (\s a -> s { _eC2InstanceNetworkInterfacePrivateIpAddress = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-network-iface-embedded.html#aws-properties-ec2-network-iface-embedded-privateipaddresses -eciniPrivateIpAddresses :: Lens' EC2InstanceNetworkInterface (Maybe [EC2InstancePrivateIpAddressSpecification]) -eciniPrivateIpAddresses = lens _eC2InstanceNetworkInterfacePrivateIpAddresses (\s a -> s { _eC2InstanceNetworkInterfacePrivateIpAddresses = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-network-iface-embedded.html#aws-properties-ec2-network-iface-embedded-secondprivateip -eciniSecondaryPrivateIpAddressCount :: Lens' EC2InstanceNetworkInterface (Maybe (Val Integer)) -eciniSecondaryPrivateIpAddressCount = lens _eC2InstanceNetworkInterfaceSecondaryPrivateIpAddressCount (\s a -> s { _eC2InstanceNetworkInterfaceSecondaryPrivateIpAddressCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-network-iface-embedded.html#aws-properties-ec2-network-iface-embedded-subnetid -eciniSubnetId :: Lens' EC2InstanceNetworkInterface (Maybe (Val Text)) -eciniSubnetId = lens _eC2InstanceNetworkInterfaceSubnetId (\s a -> s { _eC2InstanceNetworkInterfaceSubnetId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2InstanceNoDevice.hs b/library-gen/Stratosphere/ResourceProperties/EC2InstanceNoDevice.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2InstanceNoDevice.hs +++ /dev/null @@ -1,32 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-nodevice.html - -module Stratosphere.ResourceProperties.EC2InstanceNoDevice where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2InstanceNoDevice. See --- 'ec2InstanceNoDevice' for a more convenient constructor. -data EC2InstanceNoDevice = - EC2InstanceNoDevice - { - } deriving (Show, Eq) - -instance ToJSON EC2InstanceNoDevice where - toJSON _ = toJSON ([] :: [String]) - --- | Constructor for 'EC2InstanceNoDevice' containing required fields as --- arguments. -ec2InstanceNoDevice - :: EC2InstanceNoDevice -ec2InstanceNoDevice = - EC2InstanceNoDevice - { - } - - diff --git a/library-gen/Stratosphere/ResourceProperties/EC2InstancePrivateIpAddressSpecification.hs b/library-gen/Stratosphere/ResourceProperties/EC2InstancePrivateIpAddressSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2InstancePrivateIpAddressSpecification.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-network-interface-privateipspec.html - -module Stratosphere.ResourceProperties.EC2InstancePrivateIpAddressSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2InstancePrivateIpAddressSpecification. --- See 'ec2InstancePrivateIpAddressSpecification' for a more convenient --- constructor. -data EC2InstancePrivateIpAddressSpecification = - EC2InstancePrivateIpAddressSpecification - { _eC2InstancePrivateIpAddressSpecificationPrimary :: Val Bool - , _eC2InstancePrivateIpAddressSpecificationPrivateIpAddress :: Val Text - } deriving (Show, Eq) - -instance ToJSON EC2InstancePrivateIpAddressSpecification where - toJSON EC2InstancePrivateIpAddressSpecification{..} = - object $ - catMaybes - [ (Just . ("Primary",) . toJSON) _eC2InstancePrivateIpAddressSpecificationPrimary - , (Just . ("PrivateIpAddress",) . toJSON) _eC2InstancePrivateIpAddressSpecificationPrivateIpAddress - ] - --- | Constructor for 'EC2InstancePrivateIpAddressSpecification' containing --- required fields as arguments. -ec2InstancePrivateIpAddressSpecification - :: Val Bool -- ^ 'ecipiasPrimary' - -> Val Text -- ^ 'ecipiasPrivateIpAddress' - -> EC2InstancePrivateIpAddressSpecification -ec2InstancePrivateIpAddressSpecification primaryarg privateIpAddressarg = - EC2InstancePrivateIpAddressSpecification - { _eC2InstancePrivateIpAddressSpecificationPrimary = primaryarg - , _eC2InstancePrivateIpAddressSpecificationPrivateIpAddress = privateIpAddressarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-network-interface-privateipspec.html#cfn-ec2-networkinterface-privateipspecification-primary -ecipiasPrimary :: Lens' EC2InstancePrivateIpAddressSpecification (Val Bool) -ecipiasPrimary = lens _eC2InstancePrivateIpAddressSpecificationPrimary (\s a -> s { _eC2InstancePrivateIpAddressSpecificationPrimary = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-network-interface-privateipspec.html#cfn-ec2-networkinterface-privateipspecification-privateipaddress -ecipiasPrivateIpAddress :: Lens' EC2InstancePrivateIpAddressSpecification (Val Text) -ecipiasPrivateIpAddress = lens _eC2InstancePrivateIpAddressSpecificationPrivateIpAddress (\s a -> s { _eC2InstancePrivateIpAddressSpecificationPrivateIpAddress = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2InstanceSsmAssociation.hs b/library-gen/Stratosphere/ResourceProperties/EC2InstanceSsmAssociation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2InstanceSsmAssociation.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-ssmassociations.html - -module Stratosphere.ResourceProperties.EC2InstanceSsmAssociation where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2InstanceAssociationParameter - --- | Full data type definition for EC2InstanceSsmAssociation. See --- 'ec2InstanceSsmAssociation' for a more convenient constructor. -data EC2InstanceSsmAssociation = - EC2InstanceSsmAssociation - { _eC2InstanceSsmAssociationAssociationParameters :: Maybe [EC2InstanceAssociationParameter] - , _eC2InstanceSsmAssociationDocumentName :: Val Text - } deriving (Show, Eq) - -instance ToJSON EC2InstanceSsmAssociation where - toJSON EC2InstanceSsmAssociation{..} = - object $ - catMaybes - [ fmap (("AssociationParameters",) . toJSON) _eC2InstanceSsmAssociationAssociationParameters - , (Just . ("DocumentName",) . toJSON) _eC2InstanceSsmAssociationDocumentName - ] - --- | Constructor for 'EC2InstanceSsmAssociation' containing required fields as --- arguments. -ec2InstanceSsmAssociation - :: Val Text -- ^ 'ecisaDocumentName' - -> EC2InstanceSsmAssociation -ec2InstanceSsmAssociation documentNamearg = - EC2InstanceSsmAssociation - { _eC2InstanceSsmAssociationAssociationParameters = Nothing - , _eC2InstanceSsmAssociationDocumentName = documentNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-ssmassociations.html#cfn-ec2-instance-ssmassociations-associationparameters -ecisaAssociationParameters :: Lens' EC2InstanceSsmAssociation (Maybe [EC2InstanceAssociationParameter]) -ecisaAssociationParameters = lens _eC2InstanceSsmAssociationAssociationParameters (\s a -> s { _eC2InstanceSsmAssociationAssociationParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance-ssmassociations.html#cfn-ec2-instance-ssmassociations-documentname -ecisaDocumentName :: Lens' EC2InstanceSsmAssociation (Val Text) -ecisaDocumentName = lens _eC2InstanceSsmAssociationDocumentName (\s a -> s { _eC2InstanceSsmAssociationDocumentName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2InstanceVolume.hs b/library-gen/Stratosphere/ResourceProperties/EC2InstanceVolume.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2InstanceVolume.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-mount-point.html - -module Stratosphere.ResourceProperties.EC2InstanceVolume where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2InstanceVolume. See 'ec2InstanceVolume' --- for a more convenient constructor. -data EC2InstanceVolume = - EC2InstanceVolume - { _eC2InstanceVolumeDevice :: Val Text - , _eC2InstanceVolumeVolumeId :: Val Text - } deriving (Show, Eq) - -instance ToJSON EC2InstanceVolume where - toJSON EC2InstanceVolume{..} = - object $ - catMaybes - [ (Just . ("Device",) . toJSON) _eC2InstanceVolumeDevice - , (Just . ("VolumeId",) . toJSON) _eC2InstanceVolumeVolumeId - ] - --- | Constructor for 'EC2InstanceVolume' containing required fields as --- arguments. -ec2InstanceVolume - :: Val Text -- ^ 'ecivDevice' - -> Val Text -- ^ 'ecivVolumeId' - -> EC2InstanceVolume -ec2InstanceVolume devicearg volumeIdarg = - EC2InstanceVolume - { _eC2InstanceVolumeDevice = devicearg - , _eC2InstanceVolumeVolumeId = volumeIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-mount-point.html#cfn-ec2-mountpoint-device -ecivDevice :: Lens' EC2InstanceVolume (Val Text) -ecivDevice = lens _eC2InstanceVolumeDevice (\s a -> s { _eC2InstanceVolumeDevice = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-mount-point.html#cfn-ec2-mountpoint-volumeid -ecivVolumeId :: Lens' EC2InstanceVolume (Val Text) -ecivVolumeId = lens _eC2InstanceVolumeVolumeId (\s a -> s { _eC2InstanceVolumeVolumeId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateBlockDeviceMapping.hs b/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateBlockDeviceMapping.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateBlockDeviceMapping.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-blockdevicemapping.html - -module Stratosphere.ResourceProperties.EC2LaunchTemplateBlockDeviceMapping where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2LaunchTemplateEbs - --- | Full data type definition for EC2LaunchTemplateBlockDeviceMapping. See --- 'ec2LaunchTemplateBlockDeviceMapping' for a more convenient constructor. -data EC2LaunchTemplateBlockDeviceMapping = - EC2LaunchTemplateBlockDeviceMapping - { _eC2LaunchTemplateBlockDeviceMappingDeviceName :: Maybe (Val Text) - , _eC2LaunchTemplateBlockDeviceMappingEbs :: Maybe EC2LaunchTemplateEbs - , _eC2LaunchTemplateBlockDeviceMappingNoDevice :: Maybe (Val Text) - , _eC2LaunchTemplateBlockDeviceMappingVirtualName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EC2LaunchTemplateBlockDeviceMapping where - toJSON EC2LaunchTemplateBlockDeviceMapping{..} = - object $ - catMaybes - [ fmap (("DeviceName",) . toJSON) _eC2LaunchTemplateBlockDeviceMappingDeviceName - , fmap (("Ebs",) . toJSON) _eC2LaunchTemplateBlockDeviceMappingEbs - , fmap (("NoDevice",) . toJSON) _eC2LaunchTemplateBlockDeviceMappingNoDevice - , fmap (("VirtualName",) . toJSON) _eC2LaunchTemplateBlockDeviceMappingVirtualName - ] - --- | Constructor for 'EC2LaunchTemplateBlockDeviceMapping' containing required --- fields as arguments. -ec2LaunchTemplateBlockDeviceMapping - :: EC2LaunchTemplateBlockDeviceMapping -ec2LaunchTemplateBlockDeviceMapping = - EC2LaunchTemplateBlockDeviceMapping - { _eC2LaunchTemplateBlockDeviceMappingDeviceName = Nothing - , _eC2LaunchTemplateBlockDeviceMappingEbs = Nothing - , _eC2LaunchTemplateBlockDeviceMappingNoDevice = Nothing - , _eC2LaunchTemplateBlockDeviceMappingVirtualName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-blockdevicemapping.html#cfn-ec2-launchtemplate-blockdevicemapping-devicename -ecltbdmDeviceName :: Lens' EC2LaunchTemplateBlockDeviceMapping (Maybe (Val Text)) -ecltbdmDeviceName = lens _eC2LaunchTemplateBlockDeviceMappingDeviceName (\s a -> s { _eC2LaunchTemplateBlockDeviceMappingDeviceName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-blockdevicemapping.html#cfn-ec2-launchtemplate-blockdevicemapping-ebs -ecltbdmEbs :: Lens' EC2LaunchTemplateBlockDeviceMapping (Maybe EC2LaunchTemplateEbs) -ecltbdmEbs = lens _eC2LaunchTemplateBlockDeviceMappingEbs (\s a -> s { _eC2LaunchTemplateBlockDeviceMappingEbs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-blockdevicemapping.html#cfn-ec2-launchtemplate-blockdevicemapping-nodevice -ecltbdmNoDevice :: Lens' EC2LaunchTemplateBlockDeviceMapping (Maybe (Val Text)) -ecltbdmNoDevice = lens _eC2LaunchTemplateBlockDeviceMappingNoDevice (\s a -> s { _eC2LaunchTemplateBlockDeviceMappingNoDevice = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-blockdevicemapping.html#cfn-ec2-launchtemplate-blockdevicemapping-virtualname -ecltbdmVirtualName :: Lens' EC2LaunchTemplateBlockDeviceMapping (Maybe (Val Text)) -ecltbdmVirtualName = lens _eC2LaunchTemplateBlockDeviceMappingVirtualName (\s a -> s { _eC2LaunchTemplateBlockDeviceMappingVirtualName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateCapacityReservationSpecification.hs b/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateCapacityReservationSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateCapacityReservationSpecification.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-capacityreservationspecification.html - -module Stratosphere.ResourceProperties.EC2LaunchTemplateCapacityReservationSpecification where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2LaunchTemplateCapacityReservationTarget - --- | Full data type definition for --- EC2LaunchTemplateCapacityReservationSpecification. See --- 'ec2LaunchTemplateCapacityReservationSpecification' for a more convenient --- constructor. -data EC2LaunchTemplateCapacityReservationSpecification = - EC2LaunchTemplateCapacityReservationSpecification - { _eC2LaunchTemplateCapacityReservationSpecificationCapacityReservationPreference :: Maybe (Val Text) - , _eC2LaunchTemplateCapacityReservationSpecificationCapacityReservationTarget :: Maybe EC2LaunchTemplateCapacityReservationTarget - } deriving (Show, Eq) - -instance ToJSON EC2LaunchTemplateCapacityReservationSpecification where - toJSON EC2LaunchTemplateCapacityReservationSpecification{..} = - object $ - catMaybes - [ fmap (("CapacityReservationPreference",) . toJSON) _eC2LaunchTemplateCapacityReservationSpecificationCapacityReservationPreference - , fmap (("CapacityReservationTarget",) . toJSON) _eC2LaunchTemplateCapacityReservationSpecificationCapacityReservationTarget - ] - --- | Constructor for 'EC2LaunchTemplateCapacityReservationSpecification' --- containing required fields as arguments. -ec2LaunchTemplateCapacityReservationSpecification - :: EC2LaunchTemplateCapacityReservationSpecification -ec2LaunchTemplateCapacityReservationSpecification = - EC2LaunchTemplateCapacityReservationSpecification - { _eC2LaunchTemplateCapacityReservationSpecificationCapacityReservationPreference = Nothing - , _eC2LaunchTemplateCapacityReservationSpecificationCapacityReservationTarget = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-capacityreservationspecification.html#cfn-ec2-launchtemplate-launchtemplatedata-capacityreservationspecification-capacityreservationpreference -ecltcrsCapacityReservationPreference :: Lens' EC2LaunchTemplateCapacityReservationSpecification (Maybe (Val Text)) -ecltcrsCapacityReservationPreference = lens _eC2LaunchTemplateCapacityReservationSpecificationCapacityReservationPreference (\s a -> s { _eC2LaunchTemplateCapacityReservationSpecificationCapacityReservationPreference = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-capacityreservationspecification.html#cfn-ec2-launchtemplate-launchtemplatedata-capacityreservationspecification-capacityreservationtarget -ecltcrsCapacityReservationTarget :: Lens' EC2LaunchTemplateCapacityReservationSpecification (Maybe EC2LaunchTemplateCapacityReservationTarget) -ecltcrsCapacityReservationTarget = lens _eC2LaunchTemplateCapacityReservationSpecificationCapacityReservationTarget (\s a -> s { _eC2LaunchTemplateCapacityReservationSpecificationCapacityReservationTarget = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateCapacityReservationTarget.hs b/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateCapacityReservationTarget.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateCapacityReservationTarget.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-capacityreservationtarget.html - -module Stratosphere.ResourceProperties.EC2LaunchTemplateCapacityReservationTarget where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2LaunchTemplateCapacityReservationTarget. --- See 'ec2LaunchTemplateCapacityReservationTarget' for a more convenient --- constructor. -data EC2LaunchTemplateCapacityReservationTarget = - EC2LaunchTemplateCapacityReservationTarget - { _eC2LaunchTemplateCapacityReservationTargetCapacityReservationId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EC2LaunchTemplateCapacityReservationTarget where - toJSON EC2LaunchTemplateCapacityReservationTarget{..} = - object $ - catMaybes - [ fmap (("CapacityReservationId",) . toJSON) _eC2LaunchTemplateCapacityReservationTargetCapacityReservationId - ] - --- | Constructor for 'EC2LaunchTemplateCapacityReservationTarget' containing --- required fields as arguments. -ec2LaunchTemplateCapacityReservationTarget - :: EC2LaunchTemplateCapacityReservationTarget -ec2LaunchTemplateCapacityReservationTarget = - EC2LaunchTemplateCapacityReservationTarget - { _eC2LaunchTemplateCapacityReservationTargetCapacityReservationId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-capacityreservationtarget.html#cfn-ec2-launchtemplate-capacityreservationtarget-capacityreservationid -ecltcrtCapacityReservationId :: Lens' EC2LaunchTemplateCapacityReservationTarget (Maybe (Val Text)) -ecltcrtCapacityReservationId = lens _eC2LaunchTemplateCapacityReservationTargetCapacityReservationId (\s a -> s { _eC2LaunchTemplateCapacityReservationTargetCapacityReservationId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateCpuOptions.hs b/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateCpuOptions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateCpuOptions.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-cpuoptions.html - -module Stratosphere.ResourceProperties.EC2LaunchTemplateCpuOptions where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2LaunchTemplateCpuOptions. See --- 'ec2LaunchTemplateCpuOptions' for a more convenient constructor. -data EC2LaunchTemplateCpuOptions = - EC2LaunchTemplateCpuOptions - { _eC2LaunchTemplateCpuOptionsCoreCount :: Maybe (Val Integer) - , _eC2LaunchTemplateCpuOptionsThreadsPerCore :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON EC2LaunchTemplateCpuOptions where - toJSON EC2LaunchTemplateCpuOptions{..} = - object $ - catMaybes - [ fmap (("CoreCount",) . toJSON) _eC2LaunchTemplateCpuOptionsCoreCount - , fmap (("ThreadsPerCore",) . toJSON) _eC2LaunchTemplateCpuOptionsThreadsPerCore - ] - --- | Constructor for 'EC2LaunchTemplateCpuOptions' containing required fields --- as arguments. -ec2LaunchTemplateCpuOptions - :: EC2LaunchTemplateCpuOptions -ec2LaunchTemplateCpuOptions = - EC2LaunchTemplateCpuOptions - { _eC2LaunchTemplateCpuOptionsCoreCount = Nothing - , _eC2LaunchTemplateCpuOptionsThreadsPerCore = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-cpuoptions.html#cfn-ec2-launchtemplate-launchtemplatedata-cpuoptions-corecount -ecltcoCoreCount :: Lens' EC2LaunchTemplateCpuOptions (Maybe (Val Integer)) -ecltcoCoreCount = lens _eC2LaunchTemplateCpuOptionsCoreCount (\s a -> s { _eC2LaunchTemplateCpuOptionsCoreCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-cpuoptions.html#cfn-ec2-launchtemplate-launchtemplatedata-cpuoptions-threadspercore -ecltcoThreadsPerCore :: Lens' EC2LaunchTemplateCpuOptions (Maybe (Val Integer)) -ecltcoThreadsPerCore = lens _eC2LaunchTemplateCpuOptionsThreadsPerCore (\s a -> s { _eC2LaunchTemplateCpuOptionsThreadsPerCore = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateCreditSpecification.hs b/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateCreditSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateCreditSpecification.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-creditspecification.html - -module Stratosphere.ResourceProperties.EC2LaunchTemplateCreditSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2LaunchTemplateCreditSpecification. See --- 'ec2LaunchTemplateCreditSpecification' for a more convenient constructor. -data EC2LaunchTemplateCreditSpecification = - EC2LaunchTemplateCreditSpecification - { _eC2LaunchTemplateCreditSpecificationCpuCredits :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EC2LaunchTemplateCreditSpecification where - toJSON EC2LaunchTemplateCreditSpecification{..} = - object $ - catMaybes - [ fmap (("CpuCredits",) . toJSON) _eC2LaunchTemplateCreditSpecificationCpuCredits - ] - --- | Constructor for 'EC2LaunchTemplateCreditSpecification' containing --- required fields as arguments. -ec2LaunchTemplateCreditSpecification - :: EC2LaunchTemplateCreditSpecification -ec2LaunchTemplateCreditSpecification = - EC2LaunchTemplateCreditSpecification - { _eC2LaunchTemplateCreditSpecificationCpuCredits = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-creditspecification.html#cfn-ec2-launchtemplate-launchtemplatedata-creditspecification-cpucredits -ecltcsCpuCredits :: Lens' EC2LaunchTemplateCreditSpecification (Maybe (Val Text)) -ecltcsCpuCredits = lens _eC2LaunchTemplateCreditSpecificationCpuCredits (\s a -> s { _eC2LaunchTemplateCreditSpecificationCpuCredits = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateEbs.hs b/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateEbs.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateEbs.hs +++ /dev/null @@ -1,80 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-blockdevicemapping-ebs.html - -module Stratosphere.ResourceProperties.EC2LaunchTemplateEbs where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2LaunchTemplateEbs. See --- 'ec2LaunchTemplateEbs' for a more convenient constructor. -data EC2LaunchTemplateEbs = - EC2LaunchTemplateEbs - { _eC2LaunchTemplateEbsDeleteOnTermination :: Maybe (Val Bool) - , _eC2LaunchTemplateEbsEncrypted :: Maybe (Val Bool) - , _eC2LaunchTemplateEbsIops :: Maybe (Val Integer) - , _eC2LaunchTemplateEbsKmsKeyId :: Maybe (Val Text) - , _eC2LaunchTemplateEbsSnapshotId :: Maybe (Val Text) - , _eC2LaunchTemplateEbsVolumeSize :: Maybe (Val Integer) - , _eC2LaunchTemplateEbsVolumeType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EC2LaunchTemplateEbs where - toJSON EC2LaunchTemplateEbs{..} = - object $ - catMaybes - [ fmap (("DeleteOnTermination",) . toJSON) _eC2LaunchTemplateEbsDeleteOnTermination - , fmap (("Encrypted",) . toJSON) _eC2LaunchTemplateEbsEncrypted - , fmap (("Iops",) . toJSON) _eC2LaunchTemplateEbsIops - , fmap (("KmsKeyId",) . toJSON) _eC2LaunchTemplateEbsKmsKeyId - , fmap (("SnapshotId",) . toJSON) _eC2LaunchTemplateEbsSnapshotId - , fmap (("VolumeSize",) . toJSON) _eC2LaunchTemplateEbsVolumeSize - , fmap (("VolumeType",) . toJSON) _eC2LaunchTemplateEbsVolumeType - ] - --- | Constructor for 'EC2LaunchTemplateEbs' containing required fields as --- arguments. -ec2LaunchTemplateEbs - :: EC2LaunchTemplateEbs -ec2LaunchTemplateEbs = - EC2LaunchTemplateEbs - { _eC2LaunchTemplateEbsDeleteOnTermination = Nothing - , _eC2LaunchTemplateEbsEncrypted = Nothing - , _eC2LaunchTemplateEbsIops = Nothing - , _eC2LaunchTemplateEbsKmsKeyId = Nothing - , _eC2LaunchTemplateEbsSnapshotId = Nothing - , _eC2LaunchTemplateEbsVolumeSize = Nothing - , _eC2LaunchTemplateEbsVolumeType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-blockdevicemapping-ebs.html#cfn-ec2-launchtemplate-blockdevicemapping-ebs-deleteontermination -eclteDeleteOnTermination :: Lens' EC2LaunchTemplateEbs (Maybe (Val Bool)) -eclteDeleteOnTermination = lens _eC2LaunchTemplateEbsDeleteOnTermination (\s a -> s { _eC2LaunchTemplateEbsDeleteOnTermination = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-blockdevicemapping-ebs.html#cfn-ec2-launchtemplate-blockdevicemapping-ebs-encrypted -eclteEncrypted :: Lens' EC2LaunchTemplateEbs (Maybe (Val Bool)) -eclteEncrypted = lens _eC2LaunchTemplateEbsEncrypted (\s a -> s { _eC2LaunchTemplateEbsEncrypted = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-blockdevicemapping-ebs.html#cfn-ec2-launchtemplate-blockdevicemapping-ebs-iops -eclteIops :: Lens' EC2LaunchTemplateEbs (Maybe (Val Integer)) -eclteIops = lens _eC2LaunchTemplateEbsIops (\s a -> s { _eC2LaunchTemplateEbsIops = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-blockdevicemapping-ebs.html#cfn-ec2-launchtemplate-blockdevicemapping-ebs-kmskeyid -eclteKmsKeyId :: Lens' EC2LaunchTemplateEbs (Maybe (Val Text)) -eclteKmsKeyId = lens _eC2LaunchTemplateEbsKmsKeyId (\s a -> s { _eC2LaunchTemplateEbsKmsKeyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-blockdevicemapping-ebs.html#cfn-ec2-launchtemplate-blockdevicemapping-ebs-snapshotid -eclteSnapshotId :: Lens' EC2LaunchTemplateEbs (Maybe (Val Text)) -eclteSnapshotId = lens _eC2LaunchTemplateEbsSnapshotId (\s a -> s { _eC2LaunchTemplateEbsSnapshotId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-blockdevicemapping-ebs.html#cfn-ec2-launchtemplate-blockdevicemapping-ebs-volumesize -eclteVolumeSize :: Lens' EC2LaunchTemplateEbs (Maybe (Val Integer)) -eclteVolumeSize = lens _eC2LaunchTemplateEbsVolumeSize (\s a -> s { _eC2LaunchTemplateEbsVolumeSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-blockdevicemapping-ebs.html#cfn-ec2-launchtemplate-blockdevicemapping-ebs-volumetype -eclteVolumeType :: Lens' EC2LaunchTemplateEbs (Maybe (Val Text)) -eclteVolumeType = lens _eC2LaunchTemplateEbsVolumeType (\s a -> s { _eC2LaunchTemplateEbsVolumeType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateElasticGpuSpecification.hs b/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateElasticGpuSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateElasticGpuSpecification.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-elasticgpuspecification.html - -module Stratosphere.ResourceProperties.EC2LaunchTemplateElasticGpuSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2LaunchTemplateElasticGpuSpecification. --- See 'ec2LaunchTemplateElasticGpuSpecification' for a more convenient --- constructor. -data EC2LaunchTemplateElasticGpuSpecification = - EC2LaunchTemplateElasticGpuSpecification - { _eC2LaunchTemplateElasticGpuSpecificationType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EC2LaunchTemplateElasticGpuSpecification where - toJSON EC2LaunchTemplateElasticGpuSpecification{..} = - object $ - catMaybes - [ fmap (("Type",) . toJSON) _eC2LaunchTemplateElasticGpuSpecificationType - ] - --- | Constructor for 'EC2LaunchTemplateElasticGpuSpecification' containing --- required fields as arguments. -ec2LaunchTemplateElasticGpuSpecification - :: EC2LaunchTemplateElasticGpuSpecification -ec2LaunchTemplateElasticGpuSpecification = - EC2LaunchTemplateElasticGpuSpecification - { _eC2LaunchTemplateElasticGpuSpecificationType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-elasticgpuspecification.html#cfn-ec2-launchtemplate-elasticgpuspecification-type -ecltegsType :: Lens' EC2LaunchTemplateElasticGpuSpecification (Maybe (Val Text)) -ecltegsType = lens _eC2LaunchTemplateElasticGpuSpecificationType (\s a -> s { _eC2LaunchTemplateElasticGpuSpecificationType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateHibernationOptions.hs b/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateHibernationOptions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateHibernationOptions.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-hibernationoptions.html - -module Stratosphere.ResourceProperties.EC2LaunchTemplateHibernationOptions where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2LaunchTemplateHibernationOptions. See --- 'ec2LaunchTemplateHibernationOptions' for a more convenient constructor. -data EC2LaunchTemplateHibernationOptions = - EC2LaunchTemplateHibernationOptions - { _eC2LaunchTemplateHibernationOptionsConfigured :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON EC2LaunchTemplateHibernationOptions where - toJSON EC2LaunchTemplateHibernationOptions{..} = - object $ - catMaybes - [ fmap (("Configured",) . toJSON) _eC2LaunchTemplateHibernationOptionsConfigured - ] - --- | Constructor for 'EC2LaunchTemplateHibernationOptions' containing required --- fields as arguments. -ec2LaunchTemplateHibernationOptions - :: EC2LaunchTemplateHibernationOptions -ec2LaunchTemplateHibernationOptions = - EC2LaunchTemplateHibernationOptions - { _eC2LaunchTemplateHibernationOptionsConfigured = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-hibernationoptions.html#cfn-ec2-launchtemplate-launchtemplatedata-hibernationoptions-configured -eclthoConfigured :: Lens' EC2LaunchTemplateHibernationOptions (Maybe (Val Bool)) -eclthoConfigured = lens _eC2LaunchTemplateHibernationOptionsConfigured (\s a -> s { _eC2LaunchTemplateHibernationOptionsConfigured = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateIamInstanceProfile.hs b/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateIamInstanceProfile.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateIamInstanceProfile.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-iaminstanceprofile.html - -module Stratosphere.ResourceProperties.EC2LaunchTemplateIamInstanceProfile where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2LaunchTemplateIamInstanceProfile. See --- 'ec2LaunchTemplateIamInstanceProfile' for a more convenient constructor. -data EC2LaunchTemplateIamInstanceProfile = - EC2LaunchTemplateIamInstanceProfile - { _eC2LaunchTemplateIamInstanceProfileArn :: Maybe (Val Text) - , _eC2LaunchTemplateIamInstanceProfileName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EC2LaunchTemplateIamInstanceProfile where - toJSON EC2LaunchTemplateIamInstanceProfile{..} = - object $ - catMaybes - [ fmap (("Arn",) . toJSON) _eC2LaunchTemplateIamInstanceProfileArn - , fmap (("Name",) . toJSON) _eC2LaunchTemplateIamInstanceProfileName - ] - --- | Constructor for 'EC2LaunchTemplateIamInstanceProfile' containing required --- fields as arguments. -ec2LaunchTemplateIamInstanceProfile - :: EC2LaunchTemplateIamInstanceProfile -ec2LaunchTemplateIamInstanceProfile = - EC2LaunchTemplateIamInstanceProfile - { _eC2LaunchTemplateIamInstanceProfileArn = Nothing - , _eC2LaunchTemplateIamInstanceProfileName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-iaminstanceprofile.html#cfn-ec2-launchtemplate-launchtemplatedata-iaminstanceprofile-arn -ecltiipArn :: Lens' EC2LaunchTemplateIamInstanceProfile (Maybe (Val Text)) -ecltiipArn = lens _eC2LaunchTemplateIamInstanceProfileArn (\s a -> s { _eC2LaunchTemplateIamInstanceProfileArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-iaminstanceprofile.html#cfn-ec2-launchtemplate-launchtemplatedata-iaminstanceprofile-name -ecltiipName :: Lens' EC2LaunchTemplateIamInstanceProfile (Maybe (Val Text)) -ecltiipName = lens _eC2LaunchTemplateIamInstanceProfileName (\s a -> s { _eC2LaunchTemplateIamInstanceProfileName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateInstanceMarketOptions.hs b/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateInstanceMarketOptions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateInstanceMarketOptions.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-instancemarketoptions.html - -module Stratosphere.ResourceProperties.EC2LaunchTemplateInstanceMarketOptions where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2LaunchTemplateSpotOptions - --- | Full data type definition for EC2LaunchTemplateInstanceMarketOptions. See --- 'ec2LaunchTemplateInstanceMarketOptions' for a more convenient --- constructor. -data EC2LaunchTemplateInstanceMarketOptions = - EC2LaunchTemplateInstanceMarketOptions - { _eC2LaunchTemplateInstanceMarketOptionsMarketType :: Maybe (Val Text) - , _eC2LaunchTemplateInstanceMarketOptionsSpotOptions :: Maybe EC2LaunchTemplateSpotOptions - } deriving (Show, Eq) - -instance ToJSON EC2LaunchTemplateInstanceMarketOptions where - toJSON EC2LaunchTemplateInstanceMarketOptions{..} = - object $ - catMaybes - [ fmap (("MarketType",) . toJSON) _eC2LaunchTemplateInstanceMarketOptionsMarketType - , fmap (("SpotOptions",) . toJSON) _eC2LaunchTemplateInstanceMarketOptionsSpotOptions - ] - --- | Constructor for 'EC2LaunchTemplateInstanceMarketOptions' containing --- required fields as arguments. -ec2LaunchTemplateInstanceMarketOptions - :: EC2LaunchTemplateInstanceMarketOptions -ec2LaunchTemplateInstanceMarketOptions = - EC2LaunchTemplateInstanceMarketOptions - { _eC2LaunchTemplateInstanceMarketOptionsMarketType = Nothing - , _eC2LaunchTemplateInstanceMarketOptionsSpotOptions = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-instancemarketoptions.html#cfn-ec2-launchtemplate-launchtemplatedata-instancemarketoptions-markettype -ecltimoMarketType :: Lens' EC2LaunchTemplateInstanceMarketOptions (Maybe (Val Text)) -ecltimoMarketType = lens _eC2LaunchTemplateInstanceMarketOptionsMarketType (\s a -> s { _eC2LaunchTemplateInstanceMarketOptionsMarketType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-instancemarketoptions.html#cfn-ec2-launchtemplate-launchtemplatedata-instancemarketoptions-spotoptions -ecltimoSpotOptions :: Lens' EC2LaunchTemplateInstanceMarketOptions (Maybe EC2LaunchTemplateSpotOptions) -ecltimoSpotOptions = lens _eC2LaunchTemplateInstanceMarketOptionsSpotOptions (\s a -> s { _eC2LaunchTemplateInstanceMarketOptionsSpotOptions = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateIpv6Add.hs b/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateIpv6Add.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateIpv6Add.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-ipv6add.html - -module Stratosphere.ResourceProperties.EC2LaunchTemplateIpv6Add where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2LaunchTemplateIpv6Add. See --- 'ec2LaunchTemplateIpv6Add' for a more convenient constructor. -data EC2LaunchTemplateIpv6Add = - EC2LaunchTemplateIpv6Add - { _eC2LaunchTemplateIpv6AddIpv6Address :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EC2LaunchTemplateIpv6Add where - toJSON EC2LaunchTemplateIpv6Add{..} = - object $ - catMaybes - [ fmap (("Ipv6Address",) . toJSON) _eC2LaunchTemplateIpv6AddIpv6Address - ] - --- | Constructor for 'EC2LaunchTemplateIpv6Add' containing required fields as --- arguments. -ec2LaunchTemplateIpv6Add - :: EC2LaunchTemplateIpv6Add -ec2LaunchTemplateIpv6Add = - EC2LaunchTemplateIpv6Add - { _eC2LaunchTemplateIpv6AddIpv6Address = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-ipv6add.html#cfn-ec2-launchtemplate-ipv6add-ipv6address -ecltiaIpv6Address :: Lens' EC2LaunchTemplateIpv6Add (Maybe (Val Text)) -ecltiaIpv6Address = lens _eC2LaunchTemplateIpv6AddIpv6Address (\s a -> s { _eC2LaunchTemplateIpv6AddIpv6Address = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateLaunchTemplateData.hs b/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateLaunchTemplateData.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateLaunchTemplateData.hs +++ /dev/null @@ -1,227 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html - -module Stratosphere.ResourceProperties.EC2LaunchTemplateLaunchTemplateData where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2LaunchTemplateBlockDeviceMapping -import Stratosphere.ResourceProperties.EC2LaunchTemplateCapacityReservationSpecification -import Stratosphere.ResourceProperties.EC2LaunchTemplateCpuOptions -import Stratosphere.ResourceProperties.EC2LaunchTemplateCreditSpecification -import Stratosphere.ResourceProperties.EC2LaunchTemplateElasticGpuSpecification -import Stratosphere.ResourceProperties.EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator -import Stratosphere.ResourceProperties.EC2LaunchTemplateHibernationOptions -import Stratosphere.ResourceProperties.EC2LaunchTemplateIamInstanceProfile -import Stratosphere.ResourceProperties.EC2LaunchTemplateInstanceMarketOptions -import Stratosphere.ResourceProperties.EC2LaunchTemplateLicenseSpecification -import Stratosphere.ResourceProperties.EC2LaunchTemplateMetadataOptions -import Stratosphere.ResourceProperties.EC2LaunchTemplateMonitoring -import Stratosphere.ResourceProperties.EC2LaunchTemplateNetworkInterface -import Stratosphere.ResourceProperties.EC2LaunchTemplatePlacement -import Stratosphere.ResourceProperties.EC2LaunchTemplateTagSpecification - --- | Full data type definition for EC2LaunchTemplateLaunchTemplateData. See --- 'ec2LaunchTemplateLaunchTemplateData' for a more convenient constructor. -data EC2LaunchTemplateLaunchTemplateData = - EC2LaunchTemplateLaunchTemplateData - { _eC2LaunchTemplateLaunchTemplateDataBlockDeviceMappings :: Maybe [EC2LaunchTemplateBlockDeviceMapping] - , _eC2LaunchTemplateLaunchTemplateDataCapacityReservationSpecification :: Maybe EC2LaunchTemplateCapacityReservationSpecification - , _eC2LaunchTemplateLaunchTemplateDataCpuOptions :: Maybe EC2LaunchTemplateCpuOptions - , _eC2LaunchTemplateLaunchTemplateDataCreditSpecification :: Maybe EC2LaunchTemplateCreditSpecification - , _eC2LaunchTemplateLaunchTemplateDataDisableApiTermination :: Maybe (Val Bool) - , _eC2LaunchTemplateLaunchTemplateDataEbsOptimized :: Maybe (Val Bool) - , _eC2LaunchTemplateLaunchTemplateDataElasticGpuSpecifications :: Maybe [EC2LaunchTemplateElasticGpuSpecification] - , _eC2LaunchTemplateLaunchTemplateDataElasticInferenceAccelerators :: Maybe [EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator] - , _eC2LaunchTemplateLaunchTemplateDataHibernationOptions :: Maybe EC2LaunchTemplateHibernationOptions - , _eC2LaunchTemplateLaunchTemplateDataIamInstanceProfile :: Maybe EC2LaunchTemplateIamInstanceProfile - , _eC2LaunchTemplateLaunchTemplateDataImageId :: Maybe (Val Text) - , _eC2LaunchTemplateLaunchTemplateDataInstanceInitiatedShutdownBehavior :: Maybe (Val Text) - , _eC2LaunchTemplateLaunchTemplateDataInstanceMarketOptions :: Maybe EC2LaunchTemplateInstanceMarketOptions - , _eC2LaunchTemplateLaunchTemplateDataInstanceType :: Maybe (Val Text) - , _eC2LaunchTemplateLaunchTemplateDataKernelId :: Maybe (Val Text) - , _eC2LaunchTemplateLaunchTemplateDataKeyName :: Maybe (Val Text) - , _eC2LaunchTemplateLaunchTemplateDataLicenseSpecifications :: Maybe [EC2LaunchTemplateLicenseSpecification] - , _eC2LaunchTemplateLaunchTemplateDataMetadataOptions :: Maybe EC2LaunchTemplateMetadataOptions - , _eC2LaunchTemplateLaunchTemplateDataMonitoring :: Maybe EC2LaunchTemplateMonitoring - , _eC2LaunchTemplateLaunchTemplateDataNetworkInterfaces :: Maybe [EC2LaunchTemplateNetworkInterface] - , _eC2LaunchTemplateLaunchTemplateDataPlacement :: Maybe EC2LaunchTemplatePlacement - , _eC2LaunchTemplateLaunchTemplateDataRamDiskId :: Maybe (Val Text) - , _eC2LaunchTemplateLaunchTemplateDataSecurityGroupIds :: Maybe (ValList Text) - , _eC2LaunchTemplateLaunchTemplateDataSecurityGroups :: Maybe (ValList Text) - , _eC2LaunchTemplateLaunchTemplateDataTagSpecifications :: Maybe [EC2LaunchTemplateTagSpecification] - , _eC2LaunchTemplateLaunchTemplateDataUserData :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EC2LaunchTemplateLaunchTemplateData where - toJSON EC2LaunchTemplateLaunchTemplateData{..} = - object $ - catMaybes - [ fmap (("BlockDeviceMappings",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataBlockDeviceMappings - , fmap (("CapacityReservationSpecification",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataCapacityReservationSpecification - , fmap (("CpuOptions",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataCpuOptions - , fmap (("CreditSpecification",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataCreditSpecification - , fmap (("DisableApiTermination",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataDisableApiTermination - , fmap (("EbsOptimized",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataEbsOptimized - , fmap (("ElasticGpuSpecifications",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataElasticGpuSpecifications - , fmap (("ElasticInferenceAccelerators",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataElasticInferenceAccelerators - , fmap (("HibernationOptions",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataHibernationOptions - , fmap (("IamInstanceProfile",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataIamInstanceProfile - , fmap (("ImageId",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataImageId - , fmap (("InstanceInitiatedShutdownBehavior",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataInstanceInitiatedShutdownBehavior - , fmap (("InstanceMarketOptions",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataInstanceMarketOptions - , fmap (("InstanceType",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataInstanceType - , fmap (("KernelId",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataKernelId - , fmap (("KeyName",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataKeyName - , fmap (("LicenseSpecifications",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataLicenseSpecifications - , fmap (("MetadataOptions",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataMetadataOptions - , fmap (("Monitoring",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataMonitoring - , fmap (("NetworkInterfaces",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataNetworkInterfaces - , fmap (("Placement",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataPlacement - , fmap (("RamDiskId",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataRamDiskId - , fmap (("SecurityGroupIds",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataSecurityGroupIds - , fmap (("SecurityGroups",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataSecurityGroups - , fmap (("TagSpecifications",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataTagSpecifications - , fmap (("UserData",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataUserData - ] - --- | Constructor for 'EC2LaunchTemplateLaunchTemplateData' containing required --- fields as arguments. -ec2LaunchTemplateLaunchTemplateData - :: EC2LaunchTemplateLaunchTemplateData -ec2LaunchTemplateLaunchTemplateData = - EC2LaunchTemplateLaunchTemplateData - { _eC2LaunchTemplateLaunchTemplateDataBlockDeviceMappings = Nothing - , _eC2LaunchTemplateLaunchTemplateDataCapacityReservationSpecification = Nothing - , _eC2LaunchTemplateLaunchTemplateDataCpuOptions = Nothing - , _eC2LaunchTemplateLaunchTemplateDataCreditSpecification = Nothing - , _eC2LaunchTemplateLaunchTemplateDataDisableApiTermination = Nothing - , _eC2LaunchTemplateLaunchTemplateDataEbsOptimized = Nothing - , _eC2LaunchTemplateLaunchTemplateDataElasticGpuSpecifications = Nothing - , _eC2LaunchTemplateLaunchTemplateDataElasticInferenceAccelerators = Nothing - , _eC2LaunchTemplateLaunchTemplateDataHibernationOptions = Nothing - , _eC2LaunchTemplateLaunchTemplateDataIamInstanceProfile = Nothing - , _eC2LaunchTemplateLaunchTemplateDataImageId = Nothing - , _eC2LaunchTemplateLaunchTemplateDataInstanceInitiatedShutdownBehavior = Nothing - , _eC2LaunchTemplateLaunchTemplateDataInstanceMarketOptions = Nothing - , _eC2LaunchTemplateLaunchTemplateDataInstanceType = Nothing - , _eC2LaunchTemplateLaunchTemplateDataKernelId = Nothing - , _eC2LaunchTemplateLaunchTemplateDataKeyName = Nothing - , _eC2LaunchTemplateLaunchTemplateDataLicenseSpecifications = Nothing - , _eC2LaunchTemplateLaunchTemplateDataMetadataOptions = Nothing - , _eC2LaunchTemplateLaunchTemplateDataMonitoring = Nothing - , _eC2LaunchTemplateLaunchTemplateDataNetworkInterfaces = Nothing - , _eC2LaunchTemplateLaunchTemplateDataPlacement = Nothing - , _eC2LaunchTemplateLaunchTemplateDataRamDiskId = Nothing - , _eC2LaunchTemplateLaunchTemplateDataSecurityGroupIds = Nothing - , _eC2LaunchTemplateLaunchTemplateDataSecurityGroups = Nothing - , _eC2LaunchTemplateLaunchTemplateDataTagSpecifications = Nothing - , _eC2LaunchTemplateLaunchTemplateDataUserData = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-blockdevicemappings -ecltltdBlockDeviceMappings :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe [EC2LaunchTemplateBlockDeviceMapping]) -ecltltdBlockDeviceMappings = lens _eC2LaunchTemplateLaunchTemplateDataBlockDeviceMappings (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataBlockDeviceMappings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-capacityreservationspecification -ecltltdCapacityReservationSpecification :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe EC2LaunchTemplateCapacityReservationSpecification) -ecltltdCapacityReservationSpecification = lens _eC2LaunchTemplateLaunchTemplateDataCapacityReservationSpecification (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataCapacityReservationSpecification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-cpuoptions -ecltltdCpuOptions :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe EC2LaunchTemplateCpuOptions) -ecltltdCpuOptions = lens _eC2LaunchTemplateLaunchTemplateDataCpuOptions (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataCpuOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-creditspecification -ecltltdCreditSpecification :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe EC2LaunchTemplateCreditSpecification) -ecltltdCreditSpecification = lens _eC2LaunchTemplateLaunchTemplateDataCreditSpecification (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataCreditSpecification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-disableapitermination -ecltltdDisableApiTermination :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe (Val Bool)) -ecltltdDisableApiTermination = lens _eC2LaunchTemplateLaunchTemplateDataDisableApiTermination (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataDisableApiTermination = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-ebsoptimized -ecltltdEbsOptimized :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe (Val Bool)) -ecltltdEbsOptimized = lens _eC2LaunchTemplateLaunchTemplateDataEbsOptimized (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataEbsOptimized = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-elasticgpuspecifications -ecltltdElasticGpuSpecifications :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe [EC2LaunchTemplateElasticGpuSpecification]) -ecltltdElasticGpuSpecifications = lens _eC2LaunchTemplateLaunchTemplateDataElasticGpuSpecifications (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataElasticGpuSpecifications = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-elasticinferenceaccelerators -ecltltdElasticInferenceAccelerators :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe [EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator]) -ecltltdElasticInferenceAccelerators = lens _eC2LaunchTemplateLaunchTemplateDataElasticInferenceAccelerators (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataElasticInferenceAccelerators = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-hibernationoptions -ecltltdHibernationOptions :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe EC2LaunchTemplateHibernationOptions) -ecltltdHibernationOptions = lens _eC2LaunchTemplateLaunchTemplateDataHibernationOptions (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataHibernationOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-iaminstanceprofile -ecltltdIamInstanceProfile :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe EC2LaunchTemplateIamInstanceProfile) -ecltltdIamInstanceProfile = lens _eC2LaunchTemplateLaunchTemplateDataIamInstanceProfile (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataIamInstanceProfile = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-imageid -ecltltdImageId :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe (Val Text)) -ecltltdImageId = lens _eC2LaunchTemplateLaunchTemplateDataImageId (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataImageId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-instanceinitiatedshutdownbehavior -ecltltdInstanceInitiatedShutdownBehavior :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe (Val Text)) -ecltltdInstanceInitiatedShutdownBehavior = lens _eC2LaunchTemplateLaunchTemplateDataInstanceInitiatedShutdownBehavior (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataInstanceInitiatedShutdownBehavior = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-instancemarketoptions -ecltltdInstanceMarketOptions :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe EC2LaunchTemplateInstanceMarketOptions) -ecltltdInstanceMarketOptions = lens _eC2LaunchTemplateLaunchTemplateDataInstanceMarketOptions (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataInstanceMarketOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-instancetype -ecltltdInstanceType :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe (Val Text)) -ecltltdInstanceType = lens _eC2LaunchTemplateLaunchTemplateDataInstanceType (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataInstanceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-kernelid -ecltltdKernelId :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe (Val Text)) -ecltltdKernelId = lens _eC2LaunchTemplateLaunchTemplateDataKernelId (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataKernelId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-keyname -ecltltdKeyName :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe (Val Text)) -ecltltdKeyName = lens _eC2LaunchTemplateLaunchTemplateDataKeyName (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataKeyName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-licensespecifications -ecltltdLicenseSpecifications :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe [EC2LaunchTemplateLicenseSpecification]) -ecltltdLicenseSpecifications = lens _eC2LaunchTemplateLaunchTemplateDataLicenseSpecifications (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataLicenseSpecifications = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-metadataoptions -ecltltdMetadataOptions :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe EC2LaunchTemplateMetadataOptions) -ecltltdMetadataOptions = lens _eC2LaunchTemplateLaunchTemplateDataMetadataOptions (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataMetadataOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-monitoring -ecltltdMonitoring :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe EC2LaunchTemplateMonitoring) -ecltltdMonitoring = lens _eC2LaunchTemplateLaunchTemplateDataMonitoring (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataMonitoring = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-networkinterfaces -ecltltdNetworkInterfaces :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe [EC2LaunchTemplateNetworkInterface]) -ecltltdNetworkInterfaces = lens _eC2LaunchTemplateLaunchTemplateDataNetworkInterfaces (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataNetworkInterfaces = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-placement -ecltltdPlacement :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe EC2LaunchTemplatePlacement) -ecltltdPlacement = lens _eC2LaunchTemplateLaunchTemplateDataPlacement (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataPlacement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-ramdiskid -ecltltdRamDiskId :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe (Val Text)) -ecltltdRamDiskId = lens _eC2LaunchTemplateLaunchTemplateDataRamDiskId (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataRamDiskId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-securitygroupids -ecltltdSecurityGroupIds :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe (ValList Text)) -ecltltdSecurityGroupIds = lens _eC2LaunchTemplateLaunchTemplateDataSecurityGroupIds (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataSecurityGroupIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-securitygroups -ecltltdSecurityGroups :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe (ValList Text)) -ecltltdSecurityGroups = lens _eC2LaunchTemplateLaunchTemplateDataSecurityGroups (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataSecurityGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-tagspecifications -ecltltdTagSpecifications :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe [EC2LaunchTemplateTagSpecification]) -ecltltdTagSpecifications = lens _eC2LaunchTemplateLaunchTemplateDataTagSpecifications (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataTagSpecifications = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata.html#cfn-ec2-launchtemplate-launchtemplatedata-userdata -ecltltdUserData :: Lens' EC2LaunchTemplateLaunchTemplateData (Maybe (Val Text)) -ecltltdUserData = lens _eC2LaunchTemplateLaunchTemplateDataUserData (\s a -> s { _eC2LaunchTemplateLaunchTemplateDataUserData = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator.hs b/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplateelasticinferenceaccelerator.html - -module Stratosphere.ResourceProperties.EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator. See --- 'ec2LaunchTemplateLaunchTemplateElasticInferenceAccelerator' for a more --- convenient constructor. -data EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator = - EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator - { _eC2LaunchTemplateLaunchTemplateElasticInferenceAcceleratorCount :: Maybe (Val Integer) - , _eC2LaunchTemplateLaunchTemplateElasticInferenceAcceleratorType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator where - toJSON EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator{..} = - object $ - catMaybes - [ fmap (("Count",) . toJSON) _eC2LaunchTemplateLaunchTemplateElasticInferenceAcceleratorCount - , fmap (("Type",) . toJSON) _eC2LaunchTemplateLaunchTemplateElasticInferenceAcceleratorType - ] - --- | Constructor for --- 'EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator' containing --- required fields as arguments. -ec2LaunchTemplateLaunchTemplateElasticInferenceAccelerator - :: EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator -ec2LaunchTemplateLaunchTemplateElasticInferenceAccelerator = - EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator - { _eC2LaunchTemplateLaunchTemplateElasticInferenceAcceleratorCount = Nothing - , _eC2LaunchTemplateLaunchTemplateElasticInferenceAcceleratorType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplateelasticinferenceaccelerator.html#cfn-ec2-launchtemplate-launchtemplateelasticinferenceaccelerator-count -ecltlteiaCount :: Lens' EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator (Maybe (Val Integer)) -ecltlteiaCount = lens _eC2LaunchTemplateLaunchTemplateElasticInferenceAcceleratorCount (\s a -> s { _eC2LaunchTemplateLaunchTemplateElasticInferenceAcceleratorCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplateelasticinferenceaccelerator.html#cfn-ec2-launchtemplate-launchtemplateelasticinferenceaccelerator-type -ecltlteiaType :: Lens' EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator (Maybe (Val Text)) -ecltlteiaType = lens _eC2LaunchTemplateLaunchTemplateElasticInferenceAcceleratorType (\s a -> s { _eC2LaunchTemplateLaunchTemplateElasticInferenceAcceleratorType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateLicenseSpecification.hs b/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateLicenseSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateLicenseSpecification.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-licensespecification.html - -module Stratosphere.ResourceProperties.EC2LaunchTemplateLicenseSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2LaunchTemplateLicenseSpecification. See --- 'ec2LaunchTemplateLicenseSpecification' for a more convenient --- constructor. -data EC2LaunchTemplateLicenseSpecification = - EC2LaunchTemplateLicenseSpecification - { _eC2LaunchTemplateLicenseSpecificationLicenseConfigurationArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EC2LaunchTemplateLicenseSpecification where - toJSON EC2LaunchTemplateLicenseSpecification{..} = - object $ - catMaybes - [ fmap (("LicenseConfigurationArn",) . toJSON) _eC2LaunchTemplateLicenseSpecificationLicenseConfigurationArn - ] - --- | Constructor for 'EC2LaunchTemplateLicenseSpecification' containing --- required fields as arguments. -ec2LaunchTemplateLicenseSpecification - :: EC2LaunchTemplateLicenseSpecification -ec2LaunchTemplateLicenseSpecification = - EC2LaunchTemplateLicenseSpecification - { _eC2LaunchTemplateLicenseSpecificationLicenseConfigurationArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-licensespecification.html#cfn-ec2-launchtemplate-licensespecification-licenseconfigurationarn -ecltlsLicenseConfigurationArn :: Lens' EC2LaunchTemplateLicenseSpecification (Maybe (Val Text)) -ecltlsLicenseConfigurationArn = lens _eC2LaunchTemplateLicenseSpecificationLicenseConfigurationArn (\s a -> s { _eC2LaunchTemplateLicenseSpecificationLicenseConfigurationArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateMetadataOptions.hs b/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateMetadataOptions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateMetadataOptions.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-metadataoptions.html - -module Stratosphere.ResourceProperties.EC2LaunchTemplateMetadataOptions where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2LaunchTemplateMetadataOptions. See --- 'ec2LaunchTemplateMetadataOptions' for a more convenient constructor. -data EC2LaunchTemplateMetadataOptions = - EC2LaunchTemplateMetadataOptions - { _eC2LaunchTemplateMetadataOptionsHttpEndpoint :: Maybe (Val Text) - , _eC2LaunchTemplateMetadataOptionsHttpPutResponseHopLimit :: Maybe (Val Integer) - , _eC2LaunchTemplateMetadataOptionsHttpTokens :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EC2LaunchTemplateMetadataOptions where - toJSON EC2LaunchTemplateMetadataOptions{..} = - object $ - catMaybes - [ fmap (("HttpEndpoint",) . toJSON) _eC2LaunchTemplateMetadataOptionsHttpEndpoint - , fmap (("HttpPutResponseHopLimit",) . toJSON) _eC2LaunchTemplateMetadataOptionsHttpPutResponseHopLimit - , fmap (("HttpTokens",) . toJSON) _eC2LaunchTemplateMetadataOptionsHttpTokens - ] - --- | Constructor for 'EC2LaunchTemplateMetadataOptions' containing required --- fields as arguments. -ec2LaunchTemplateMetadataOptions - :: EC2LaunchTemplateMetadataOptions -ec2LaunchTemplateMetadataOptions = - EC2LaunchTemplateMetadataOptions - { _eC2LaunchTemplateMetadataOptionsHttpEndpoint = Nothing - , _eC2LaunchTemplateMetadataOptionsHttpPutResponseHopLimit = Nothing - , _eC2LaunchTemplateMetadataOptionsHttpTokens = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-metadataoptions.html#cfn-ec2-launchtemplate-launchtemplatedata-metadataoptions-httpendpoint -ecltmoHttpEndpoint :: Lens' EC2LaunchTemplateMetadataOptions (Maybe (Val Text)) -ecltmoHttpEndpoint = lens _eC2LaunchTemplateMetadataOptionsHttpEndpoint (\s a -> s { _eC2LaunchTemplateMetadataOptionsHttpEndpoint = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-metadataoptions.html#cfn-ec2-launchtemplate-launchtemplatedata-metadataoptions-httpputresponsehoplimit -ecltmoHttpPutResponseHopLimit :: Lens' EC2LaunchTemplateMetadataOptions (Maybe (Val Integer)) -ecltmoHttpPutResponseHopLimit = lens _eC2LaunchTemplateMetadataOptionsHttpPutResponseHopLimit (\s a -> s { _eC2LaunchTemplateMetadataOptionsHttpPutResponseHopLimit = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-metadataoptions.html#cfn-ec2-launchtemplate-launchtemplatedata-metadataoptions-httptokens -ecltmoHttpTokens :: Lens' EC2LaunchTemplateMetadataOptions (Maybe (Val Text)) -ecltmoHttpTokens = lens _eC2LaunchTemplateMetadataOptionsHttpTokens (\s a -> s { _eC2LaunchTemplateMetadataOptionsHttpTokens = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateMonitoring.hs b/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateMonitoring.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateMonitoring.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-monitoring.html - -module Stratosphere.ResourceProperties.EC2LaunchTemplateMonitoring where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2LaunchTemplateMonitoring. See --- 'ec2LaunchTemplateMonitoring' for a more convenient constructor. -data EC2LaunchTemplateMonitoring = - EC2LaunchTemplateMonitoring - { _eC2LaunchTemplateMonitoringEnabled :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON EC2LaunchTemplateMonitoring where - toJSON EC2LaunchTemplateMonitoring{..} = - object $ - catMaybes - [ fmap (("Enabled",) . toJSON) _eC2LaunchTemplateMonitoringEnabled - ] - --- | Constructor for 'EC2LaunchTemplateMonitoring' containing required fields --- as arguments. -ec2LaunchTemplateMonitoring - :: EC2LaunchTemplateMonitoring -ec2LaunchTemplateMonitoring = - EC2LaunchTemplateMonitoring - { _eC2LaunchTemplateMonitoringEnabled = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-monitoring.html#cfn-ec2-launchtemplate-launchtemplatedata-monitoring-enabled -ecltmEnabled :: Lens' EC2LaunchTemplateMonitoring (Maybe (Val Bool)) -ecltmEnabled = lens _eC2LaunchTemplateMonitoringEnabled (\s a -> s { _eC2LaunchTemplateMonitoringEnabled = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateNetworkInterface.hs b/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateNetworkInterface.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateNetworkInterface.hs +++ /dev/null @@ -1,123 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-networkinterface.html - -module Stratosphere.ResourceProperties.EC2LaunchTemplateNetworkInterface where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2LaunchTemplateIpv6Add -import Stratosphere.ResourceProperties.EC2LaunchTemplatePrivateIpAdd - --- | Full data type definition for EC2LaunchTemplateNetworkInterface. See --- 'ec2LaunchTemplateNetworkInterface' for a more convenient constructor. -data EC2LaunchTemplateNetworkInterface = - EC2LaunchTemplateNetworkInterface - { _eC2LaunchTemplateNetworkInterfaceAssociatePublicIpAddress :: Maybe (Val Bool) - , _eC2LaunchTemplateNetworkInterfaceDeleteOnTermination :: Maybe (Val Bool) - , _eC2LaunchTemplateNetworkInterfaceDescription :: Maybe (Val Text) - , _eC2LaunchTemplateNetworkInterfaceDeviceIndex :: Maybe (Val Integer) - , _eC2LaunchTemplateNetworkInterfaceGroups :: Maybe (ValList Text) - , _eC2LaunchTemplateNetworkInterfaceInterfaceType :: Maybe (Val Text) - , _eC2LaunchTemplateNetworkInterfaceIpv6AddressCount :: Maybe (Val Integer) - , _eC2LaunchTemplateNetworkInterfaceIpv6Addresses :: Maybe [EC2LaunchTemplateIpv6Add] - , _eC2LaunchTemplateNetworkInterfaceNetworkInterfaceId :: Maybe (Val Text) - , _eC2LaunchTemplateNetworkInterfacePrivateIpAddress :: Maybe (Val Text) - , _eC2LaunchTemplateNetworkInterfacePrivateIpAddresses :: Maybe [EC2LaunchTemplatePrivateIpAdd] - , _eC2LaunchTemplateNetworkInterfaceSecondaryPrivateIpAddressCount :: Maybe (Val Integer) - , _eC2LaunchTemplateNetworkInterfaceSubnetId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EC2LaunchTemplateNetworkInterface where - toJSON EC2LaunchTemplateNetworkInterface{..} = - object $ - catMaybes - [ fmap (("AssociatePublicIpAddress",) . toJSON) _eC2LaunchTemplateNetworkInterfaceAssociatePublicIpAddress - , fmap (("DeleteOnTermination",) . toJSON) _eC2LaunchTemplateNetworkInterfaceDeleteOnTermination - , fmap (("Description",) . toJSON) _eC2LaunchTemplateNetworkInterfaceDescription - , fmap (("DeviceIndex",) . toJSON) _eC2LaunchTemplateNetworkInterfaceDeviceIndex - , fmap (("Groups",) . toJSON) _eC2LaunchTemplateNetworkInterfaceGroups - , fmap (("InterfaceType",) . toJSON) _eC2LaunchTemplateNetworkInterfaceInterfaceType - , fmap (("Ipv6AddressCount",) . toJSON) _eC2LaunchTemplateNetworkInterfaceIpv6AddressCount - , fmap (("Ipv6Addresses",) . toJSON) _eC2LaunchTemplateNetworkInterfaceIpv6Addresses - , fmap (("NetworkInterfaceId",) . toJSON) _eC2LaunchTemplateNetworkInterfaceNetworkInterfaceId - , fmap (("PrivateIpAddress",) . toJSON) _eC2LaunchTemplateNetworkInterfacePrivateIpAddress - , fmap (("PrivateIpAddresses",) . toJSON) _eC2LaunchTemplateNetworkInterfacePrivateIpAddresses - , fmap (("SecondaryPrivateIpAddressCount",) . toJSON) _eC2LaunchTemplateNetworkInterfaceSecondaryPrivateIpAddressCount - , fmap (("SubnetId",) . toJSON) _eC2LaunchTemplateNetworkInterfaceSubnetId - ] - --- | Constructor for 'EC2LaunchTemplateNetworkInterface' containing required --- fields as arguments. -ec2LaunchTemplateNetworkInterface - :: EC2LaunchTemplateNetworkInterface -ec2LaunchTemplateNetworkInterface = - EC2LaunchTemplateNetworkInterface - { _eC2LaunchTemplateNetworkInterfaceAssociatePublicIpAddress = Nothing - , _eC2LaunchTemplateNetworkInterfaceDeleteOnTermination = Nothing - , _eC2LaunchTemplateNetworkInterfaceDescription = Nothing - , _eC2LaunchTemplateNetworkInterfaceDeviceIndex = Nothing - , _eC2LaunchTemplateNetworkInterfaceGroups = Nothing - , _eC2LaunchTemplateNetworkInterfaceInterfaceType = Nothing - , _eC2LaunchTemplateNetworkInterfaceIpv6AddressCount = Nothing - , _eC2LaunchTemplateNetworkInterfaceIpv6Addresses = Nothing - , _eC2LaunchTemplateNetworkInterfaceNetworkInterfaceId = Nothing - , _eC2LaunchTemplateNetworkInterfacePrivateIpAddress = Nothing - , _eC2LaunchTemplateNetworkInterfacePrivateIpAddresses = Nothing - , _eC2LaunchTemplateNetworkInterfaceSecondaryPrivateIpAddressCount = Nothing - , _eC2LaunchTemplateNetworkInterfaceSubnetId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-networkinterface.html#cfn-ec2-launchtemplate-networkinterface-associatepublicipaddress -ecltniAssociatePublicIpAddress :: Lens' EC2LaunchTemplateNetworkInterface (Maybe (Val Bool)) -ecltniAssociatePublicIpAddress = lens _eC2LaunchTemplateNetworkInterfaceAssociatePublicIpAddress (\s a -> s { _eC2LaunchTemplateNetworkInterfaceAssociatePublicIpAddress = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-networkinterface.html#cfn-ec2-launchtemplate-networkinterface-deleteontermination -ecltniDeleteOnTermination :: Lens' EC2LaunchTemplateNetworkInterface (Maybe (Val Bool)) -ecltniDeleteOnTermination = lens _eC2LaunchTemplateNetworkInterfaceDeleteOnTermination (\s a -> s { _eC2LaunchTemplateNetworkInterfaceDeleteOnTermination = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-networkinterface.html#cfn-ec2-launchtemplate-networkinterface-description -ecltniDescription :: Lens' EC2LaunchTemplateNetworkInterface (Maybe (Val Text)) -ecltniDescription = lens _eC2LaunchTemplateNetworkInterfaceDescription (\s a -> s { _eC2LaunchTemplateNetworkInterfaceDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-networkinterface.html#cfn-ec2-launchtemplate-networkinterface-deviceindex -ecltniDeviceIndex :: Lens' EC2LaunchTemplateNetworkInterface (Maybe (Val Integer)) -ecltniDeviceIndex = lens _eC2LaunchTemplateNetworkInterfaceDeviceIndex (\s a -> s { _eC2LaunchTemplateNetworkInterfaceDeviceIndex = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-networkinterface.html#cfn-ec2-launchtemplate-networkinterface-groups -ecltniGroups :: Lens' EC2LaunchTemplateNetworkInterface (Maybe (ValList Text)) -ecltniGroups = lens _eC2LaunchTemplateNetworkInterfaceGroups (\s a -> s { _eC2LaunchTemplateNetworkInterfaceGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-networkinterface.html#cfn-ec2-launchtemplate-networkinterface-interfacetype -ecltniInterfaceType :: Lens' EC2LaunchTemplateNetworkInterface (Maybe (Val Text)) -ecltniInterfaceType = lens _eC2LaunchTemplateNetworkInterfaceInterfaceType (\s a -> s { _eC2LaunchTemplateNetworkInterfaceInterfaceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-networkinterface.html#cfn-ec2-launchtemplate-networkinterface-ipv6addresscount -ecltniIpv6AddressCount :: Lens' EC2LaunchTemplateNetworkInterface (Maybe (Val Integer)) -ecltniIpv6AddressCount = lens _eC2LaunchTemplateNetworkInterfaceIpv6AddressCount (\s a -> s { _eC2LaunchTemplateNetworkInterfaceIpv6AddressCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-networkinterface.html#cfn-ec2-launchtemplate-networkinterface-ipv6addresses -ecltniIpv6Addresses :: Lens' EC2LaunchTemplateNetworkInterface (Maybe [EC2LaunchTemplateIpv6Add]) -ecltniIpv6Addresses = lens _eC2LaunchTemplateNetworkInterfaceIpv6Addresses (\s a -> s { _eC2LaunchTemplateNetworkInterfaceIpv6Addresses = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-networkinterface.html#cfn-ec2-launchtemplate-networkinterface-networkinterfaceid -ecltniNetworkInterfaceId :: Lens' EC2LaunchTemplateNetworkInterface (Maybe (Val Text)) -ecltniNetworkInterfaceId = lens _eC2LaunchTemplateNetworkInterfaceNetworkInterfaceId (\s a -> s { _eC2LaunchTemplateNetworkInterfaceNetworkInterfaceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-networkinterface.html#cfn-ec2-launchtemplate-networkinterface-privateipaddress -ecltniPrivateIpAddress :: Lens' EC2LaunchTemplateNetworkInterface (Maybe (Val Text)) -ecltniPrivateIpAddress = lens _eC2LaunchTemplateNetworkInterfacePrivateIpAddress (\s a -> s { _eC2LaunchTemplateNetworkInterfacePrivateIpAddress = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-networkinterface.html#cfn-ec2-launchtemplate-networkinterface-privateipaddresses -ecltniPrivateIpAddresses :: Lens' EC2LaunchTemplateNetworkInterface (Maybe [EC2LaunchTemplatePrivateIpAdd]) -ecltniPrivateIpAddresses = lens _eC2LaunchTemplateNetworkInterfacePrivateIpAddresses (\s a -> s { _eC2LaunchTemplateNetworkInterfacePrivateIpAddresses = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-networkinterface.html#cfn-ec2-launchtemplate-networkinterface-secondaryprivateipaddresscount -ecltniSecondaryPrivateIpAddressCount :: Lens' EC2LaunchTemplateNetworkInterface (Maybe (Val Integer)) -ecltniSecondaryPrivateIpAddressCount = lens _eC2LaunchTemplateNetworkInterfaceSecondaryPrivateIpAddressCount (\s a -> s { _eC2LaunchTemplateNetworkInterfaceSecondaryPrivateIpAddressCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-networkinterface.html#cfn-ec2-launchtemplate-networkinterface-subnetid -ecltniSubnetId :: Lens' EC2LaunchTemplateNetworkInterface (Maybe (Val Text)) -ecltniSubnetId = lens _eC2LaunchTemplateNetworkInterfaceSubnetId (\s a -> s { _eC2LaunchTemplateNetworkInterfaceSubnetId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplatePlacement.hs b/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplatePlacement.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplatePlacement.hs +++ /dev/null @@ -1,87 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-placement.html - -module Stratosphere.ResourceProperties.EC2LaunchTemplatePlacement where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2LaunchTemplatePlacement. See --- 'ec2LaunchTemplatePlacement' for a more convenient constructor. -data EC2LaunchTemplatePlacement = - EC2LaunchTemplatePlacement - { _eC2LaunchTemplatePlacementAffinity :: Maybe (Val Text) - , _eC2LaunchTemplatePlacementAvailabilityZone :: Maybe (Val Text) - , _eC2LaunchTemplatePlacementGroupName :: Maybe (Val Text) - , _eC2LaunchTemplatePlacementHostId :: Maybe (Val Text) - , _eC2LaunchTemplatePlacementHostResourceGroupArn :: Maybe (Val Text) - , _eC2LaunchTemplatePlacementPartitionNumber :: Maybe (Val Integer) - , _eC2LaunchTemplatePlacementSpreadDomain :: Maybe (Val Text) - , _eC2LaunchTemplatePlacementTenancy :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EC2LaunchTemplatePlacement where - toJSON EC2LaunchTemplatePlacement{..} = - object $ - catMaybes - [ fmap (("Affinity",) . toJSON) _eC2LaunchTemplatePlacementAffinity - , fmap (("AvailabilityZone",) . toJSON) _eC2LaunchTemplatePlacementAvailabilityZone - , fmap (("GroupName",) . toJSON) _eC2LaunchTemplatePlacementGroupName - , fmap (("HostId",) . toJSON) _eC2LaunchTemplatePlacementHostId - , fmap (("HostResourceGroupArn",) . toJSON) _eC2LaunchTemplatePlacementHostResourceGroupArn - , fmap (("PartitionNumber",) . toJSON) _eC2LaunchTemplatePlacementPartitionNumber - , fmap (("SpreadDomain",) . toJSON) _eC2LaunchTemplatePlacementSpreadDomain - , fmap (("Tenancy",) . toJSON) _eC2LaunchTemplatePlacementTenancy - ] - --- | Constructor for 'EC2LaunchTemplatePlacement' containing required fields --- as arguments. -ec2LaunchTemplatePlacement - :: EC2LaunchTemplatePlacement -ec2LaunchTemplatePlacement = - EC2LaunchTemplatePlacement - { _eC2LaunchTemplatePlacementAffinity = Nothing - , _eC2LaunchTemplatePlacementAvailabilityZone = Nothing - , _eC2LaunchTemplatePlacementGroupName = Nothing - , _eC2LaunchTemplatePlacementHostId = Nothing - , _eC2LaunchTemplatePlacementHostResourceGroupArn = Nothing - , _eC2LaunchTemplatePlacementPartitionNumber = Nothing - , _eC2LaunchTemplatePlacementSpreadDomain = Nothing - , _eC2LaunchTemplatePlacementTenancy = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-placement.html#cfn-ec2-launchtemplate-launchtemplatedata-placement-affinity -ecltpAffinity :: Lens' EC2LaunchTemplatePlacement (Maybe (Val Text)) -ecltpAffinity = lens _eC2LaunchTemplatePlacementAffinity (\s a -> s { _eC2LaunchTemplatePlacementAffinity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-placement.html#cfn-ec2-launchtemplate-launchtemplatedata-placement-availabilityzone -ecltpAvailabilityZone :: Lens' EC2LaunchTemplatePlacement (Maybe (Val Text)) -ecltpAvailabilityZone = lens _eC2LaunchTemplatePlacementAvailabilityZone (\s a -> s { _eC2LaunchTemplatePlacementAvailabilityZone = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-placement.html#cfn-ec2-launchtemplate-launchtemplatedata-placement-groupname -ecltpGroupName :: Lens' EC2LaunchTemplatePlacement (Maybe (Val Text)) -ecltpGroupName = lens _eC2LaunchTemplatePlacementGroupName (\s a -> s { _eC2LaunchTemplatePlacementGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-placement.html#cfn-ec2-launchtemplate-launchtemplatedata-placement-hostid -ecltpHostId :: Lens' EC2LaunchTemplatePlacement (Maybe (Val Text)) -ecltpHostId = lens _eC2LaunchTemplatePlacementHostId (\s a -> s { _eC2LaunchTemplatePlacementHostId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-placement.html#cfn-ec2-launchtemplate-launchtemplatedata-placement-hostresourcegrouparn -ecltpHostResourceGroupArn :: Lens' EC2LaunchTemplatePlacement (Maybe (Val Text)) -ecltpHostResourceGroupArn = lens _eC2LaunchTemplatePlacementHostResourceGroupArn (\s a -> s { _eC2LaunchTemplatePlacementHostResourceGroupArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-placement.html#cfn-ec2-launchtemplate-launchtemplatedata-placement-partitionnumber -ecltpPartitionNumber :: Lens' EC2LaunchTemplatePlacement (Maybe (Val Integer)) -ecltpPartitionNumber = lens _eC2LaunchTemplatePlacementPartitionNumber (\s a -> s { _eC2LaunchTemplatePlacementPartitionNumber = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-placement.html#cfn-ec2-launchtemplate-launchtemplatedata-placement-spreaddomain -ecltpSpreadDomain :: Lens' EC2LaunchTemplatePlacement (Maybe (Val Text)) -ecltpSpreadDomain = lens _eC2LaunchTemplatePlacementSpreadDomain (\s a -> s { _eC2LaunchTemplatePlacementSpreadDomain = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-placement.html#cfn-ec2-launchtemplate-launchtemplatedata-placement-tenancy -ecltpTenancy :: Lens' EC2LaunchTemplatePlacement (Maybe (Val Text)) -ecltpTenancy = lens _eC2LaunchTemplatePlacementTenancy (\s a -> s { _eC2LaunchTemplatePlacementTenancy = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplatePrivateIpAdd.hs b/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplatePrivateIpAdd.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplatePrivateIpAdd.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-privateipadd.html - -module Stratosphere.ResourceProperties.EC2LaunchTemplatePrivateIpAdd where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2LaunchTemplatePrivateIpAdd. See --- 'ec2LaunchTemplatePrivateIpAdd' for a more convenient constructor. -data EC2LaunchTemplatePrivateIpAdd = - EC2LaunchTemplatePrivateIpAdd - { _eC2LaunchTemplatePrivateIpAddPrimary :: Maybe (Val Bool) - , _eC2LaunchTemplatePrivateIpAddPrivateIpAddress :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EC2LaunchTemplatePrivateIpAdd where - toJSON EC2LaunchTemplatePrivateIpAdd{..} = - object $ - catMaybes - [ fmap (("Primary",) . toJSON) _eC2LaunchTemplatePrivateIpAddPrimary - , fmap (("PrivateIpAddress",) . toJSON) _eC2LaunchTemplatePrivateIpAddPrivateIpAddress - ] - --- | Constructor for 'EC2LaunchTemplatePrivateIpAdd' containing required --- fields as arguments. -ec2LaunchTemplatePrivateIpAdd - :: EC2LaunchTemplatePrivateIpAdd -ec2LaunchTemplatePrivateIpAdd = - EC2LaunchTemplatePrivateIpAdd - { _eC2LaunchTemplatePrivateIpAddPrimary = Nothing - , _eC2LaunchTemplatePrivateIpAddPrivateIpAddress = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-privateipadd.html#cfn-ec2-launchtemplate-privateipadd-primary -ecltpiaPrimary :: Lens' EC2LaunchTemplatePrivateIpAdd (Maybe (Val Bool)) -ecltpiaPrimary = lens _eC2LaunchTemplatePrivateIpAddPrimary (\s a -> s { _eC2LaunchTemplatePrivateIpAddPrimary = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-privateipadd.html#cfn-ec2-launchtemplate-privateipadd-privateipaddress -ecltpiaPrivateIpAddress :: Lens' EC2LaunchTemplatePrivateIpAdd (Maybe (Val Text)) -ecltpiaPrivateIpAddress = lens _eC2LaunchTemplatePrivateIpAddPrivateIpAddress (\s a -> s { _eC2LaunchTemplatePrivateIpAddPrivateIpAddress = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateSpotOptions.hs b/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateSpotOptions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateSpotOptions.hs +++ /dev/null @@ -1,66 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-instancemarketoptions-spotoptions.html - -module Stratosphere.ResourceProperties.EC2LaunchTemplateSpotOptions where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2LaunchTemplateSpotOptions. See --- 'ec2LaunchTemplateSpotOptions' for a more convenient constructor. -data EC2LaunchTemplateSpotOptions = - EC2LaunchTemplateSpotOptions - { _eC2LaunchTemplateSpotOptionsBlockDurationMinutes :: Maybe (Val Integer) - , _eC2LaunchTemplateSpotOptionsInstanceInterruptionBehavior :: Maybe (Val Text) - , _eC2LaunchTemplateSpotOptionsMaxPrice :: Maybe (Val Text) - , _eC2LaunchTemplateSpotOptionsSpotInstanceType :: Maybe (Val Text) - , _eC2LaunchTemplateSpotOptionsValidUntil :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EC2LaunchTemplateSpotOptions where - toJSON EC2LaunchTemplateSpotOptions{..} = - object $ - catMaybes - [ fmap (("BlockDurationMinutes",) . toJSON) _eC2LaunchTemplateSpotOptionsBlockDurationMinutes - , fmap (("InstanceInterruptionBehavior",) . toJSON) _eC2LaunchTemplateSpotOptionsInstanceInterruptionBehavior - , fmap (("MaxPrice",) . toJSON) _eC2LaunchTemplateSpotOptionsMaxPrice - , fmap (("SpotInstanceType",) . toJSON) _eC2LaunchTemplateSpotOptionsSpotInstanceType - , fmap (("ValidUntil",) . toJSON) _eC2LaunchTemplateSpotOptionsValidUntil - ] - --- | Constructor for 'EC2LaunchTemplateSpotOptions' containing required fields --- as arguments. -ec2LaunchTemplateSpotOptions - :: EC2LaunchTemplateSpotOptions -ec2LaunchTemplateSpotOptions = - EC2LaunchTemplateSpotOptions - { _eC2LaunchTemplateSpotOptionsBlockDurationMinutes = Nothing - , _eC2LaunchTemplateSpotOptionsInstanceInterruptionBehavior = Nothing - , _eC2LaunchTemplateSpotOptionsMaxPrice = Nothing - , _eC2LaunchTemplateSpotOptionsSpotInstanceType = Nothing - , _eC2LaunchTemplateSpotOptionsValidUntil = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-instancemarketoptions-spotoptions.html#cfn-ec2-launchtemplate-launchtemplatedata-instancemarketoptions-spotoptions-blockdurationminutes -ecltsoBlockDurationMinutes :: Lens' EC2LaunchTemplateSpotOptions (Maybe (Val Integer)) -ecltsoBlockDurationMinutes = lens _eC2LaunchTemplateSpotOptionsBlockDurationMinutes (\s a -> s { _eC2LaunchTemplateSpotOptionsBlockDurationMinutes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-instancemarketoptions-spotoptions.html#cfn-ec2-launchtemplate-launchtemplatedata-instancemarketoptions-spotoptions-instanceinterruptionbehavior -ecltsoInstanceInterruptionBehavior :: Lens' EC2LaunchTemplateSpotOptions (Maybe (Val Text)) -ecltsoInstanceInterruptionBehavior = lens _eC2LaunchTemplateSpotOptionsInstanceInterruptionBehavior (\s a -> s { _eC2LaunchTemplateSpotOptionsInstanceInterruptionBehavior = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-instancemarketoptions-spotoptions.html#cfn-ec2-launchtemplate-launchtemplatedata-instancemarketoptions-spotoptions-maxprice -ecltsoMaxPrice :: Lens' EC2LaunchTemplateSpotOptions (Maybe (Val Text)) -ecltsoMaxPrice = lens _eC2LaunchTemplateSpotOptionsMaxPrice (\s a -> s { _eC2LaunchTemplateSpotOptionsMaxPrice = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-instancemarketoptions-spotoptions.html#cfn-ec2-launchtemplate-launchtemplatedata-instancemarketoptions-spotoptions-spotinstancetype -ecltsoSpotInstanceType :: Lens' EC2LaunchTemplateSpotOptions (Maybe (Val Text)) -ecltsoSpotInstanceType = lens _eC2LaunchTemplateSpotOptionsSpotInstanceType (\s a -> s { _eC2LaunchTemplateSpotOptionsSpotInstanceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-launchtemplatedata-instancemarketoptions-spotoptions.html#cfn-ec2-launchtemplate-launchtemplatedata-instancemarketoptions-spotoptions-validuntil -ecltsoValidUntil :: Lens' EC2LaunchTemplateSpotOptions (Maybe (Val Text)) -ecltsoValidUntil = lens _eC2LaunchTemplateSpotOptionsValidUntil (\s a -> s { _eC2LaunchTemplateSpotOptionsValidUntil = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateTagSpecification.hs b/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateTagSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateTagSpecification.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-tagspecification.html - -module Stratosphere.ResourceProperties.EC2LaunchTemplateTagSpecification where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for EC2LaunchTemplateTagSpecification. See --- 'ec2LaunchTemplateTagSpecification' for a more convenient constructor. -data EC2LaunchTemplateTagSpecification = - EC2LaunchTemplateTagSpecification - { _eC2LaunchTemplateTagSpecificationResourceType :: Maybe (Val Text) - , _eC2LaunchTemplateTagSpecificationTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToJSON EC2LaunchTemplateTagSpecification where - toJSON EC2LaunchTemplateTagSpecification{..} = - object $ - catMaybes - [ fmap (("ResourceType",) . toJSON) _eC2LaunchTemplateTagSpecificationResourceType - , fmap (("Tags",) . toJSON) _eC2LaunchTemplateTagSpecificationTags - ] - --- | Constructor for 'EC2LaunchTemplateTagSpecification' containing required --- fields as arguments. -ec2LaunchTemplateTagSpecification - :: EC2LaunchTemplateTagSpecification -ec2LaunchTemplateTagSpecification = - EC2LaunchTemplateTagSpecification - { _eC2LaunchTemplateTagSpecificationResourceType = Nothing - , _eC2LaunchTemplateTagSpecificationTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-tagspecification.html#cfn-ec2-launchtemplate-tagspecification-resourcetype -eclttsResourceType :: Lens' EC2LaunchTemplateTagSpecification (Maybe (Val Text)) -eclttsResourceType = lens _eC2LaunchTemplateTagSpecificationResourceType (\s a -> s { _eC2LaunchTemplateTagSpecificationResourceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-launchtemplate-tagspecification.html#cfn-ec2-launchtemplate-tagspecification-tags -eclttsTags :: Lens' EC2LaunchTemplateTagSpecification (Maybe [Tag]) -eclttsTags = lens _eC2LaunchTemplateTagSpecificationTags (\s a -> s { _eC2LaunchTemplateTagSpecificationTags = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2LocalGatewayRouteTableVPCAssociationTags.hs b/library-gen/Stratosphere/ResourceProperties/EC2LocalGatewayRouteTableVPCAssociationTags.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2LocalGatewayRouteTableVPCAssociationTags.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-localgatewayroutetablevpcassociation-tags.html - -module Stratosphere.ResourceProperties.EC2LocalGatewayRouteTableVPCAssociationTags where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for --- EC2LocalGatewayRouteTableVPCAssociationTags. See --- 'ec2LocalGatewayRouteTableVPCAssociationTags' for a more convenient --- constructor. -data EC2LocalGatewayRouteTableVPCAssociationTags = - EC2LocalGatewayRouteTableVPCAssociationTags - { _eC2LocalGatewayRouteTableVPCAssociationTagsTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToJSON EC2LocalGatewayRouteTableVPCAssociationTags where - toJSON EC2LocalGatewayRouteTableVPCAssociationTags{..} = - object $ - catMaybes - [ fmap (("Tags",) . toJSON) _eC2LocalGatewayRouteTableVPCAssociationTagsTags - ] - --- | Constructor for 'EC2LocalGatewayRouteTableVPCAssociationTags' containing --- required fields as arguments. -ec2LocalGatewayRouteTableVPCAssociationTags - :: EC2LocalGatewayRouteTableVPCAssociationTags -ec2LocalGatewayRouteTableVPCAssociationTags = - EC2LocalGatewayRouteTableVPCAssociationTags - { _eC2LocalGatewayRouteTableVPCAssociationTagsTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-localgatewayroutetablevpcassociation-tags.html#cfn-ec2-localgatewayroutetablevpcassociation-tags-tags -eclgrtvpcatTags :: Lens' EC2LocalGatewayRouteTableVPCAssociationTags (Maybe [Tag]) -eclgrtvpcatTags = lens _eC2LocalGatewayRouteTableVPCAssociationTagsTags (\s a -> s { _eC2LocalGatewayRouteTableVPCAssociationTagsTags = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2NetworkAclEntryIcmp.hs b/library-gen/Stratosphere/ResourceProperties/EC2NetworkAclEntryIcmp.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2NetworkAclEntryIcmp.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-networkaclentry-icmp.html - -module Stratosphere.ResourceProperties.EC2NetworkAclEntryIcmp where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2NetworkAclEntryIcmp. See --- 'ec2NetworkAclEntryIcmp' for a more convenient constructor. -data EC2NetworkAclEntryIcmp = - EC2NetworkAclEntryIcmp - { _eC2NetworkAclEntryIcmpCode :: Maybe (Val Integer) - , _eC2NetworkAclEntryIcmpType :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON EC2NetworkAclEntryIcmp where - toJSON EC2NetworkAclEntryIcmp{..} = - object $ - catMaybes - [ fmap (("Code",) . toJSON) _eC2NetworkAclEntryIcmpCode - , fmap (("Type",) . toJSON) _eC2NetworkAclEntryIcmpType - ] - --- | Constructor for 'EC2NetworkAclEntryIcmp' containing required fields as --- arguments. -ec2NetworkAclEntryIcmp - :: EC2NetworkAclEntryIcmp -ec2NetworkAclEntryIcmp = - EC2NetworkAclEntryIcmp - { _eC2NetworkAclEntryIcmpCode = Nothing - , _eC2NetworkAclEntryIcmpType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-networkaclentry-icmp.html#cfn-ec2-networkaclentry-icmp-code -ecnaeiCode :: Lens' EC2NetworkAclEntryIcmp (Maybe (Val Integer)) -ecnaeiCode = lens _eC2NetworkAclEntryIcmpCode (\s a -> s { _eC2NetworkAclEntryIcmpCode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-networkaclentry-icmp.html#cfn-ec2-networkaclentry-icmp-type -ecnaeiType :: Lens' EC2NetworkAclEntryIcmp (Maybe (Val Integer)) -ecnaeiType = lens _eC2NetworkAclEntryIcmpType (\s a -> s { _eC2NetworkAclEntryIcmpType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2NetworkAclEntryPortRange.hs b/library-gen/Stratosphere/ResourceProperties/EC2NetworkAclEntryPortRange.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2NetworkAclEntryPortRange.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-networkaclentry-portrange.html - -module Stratosphere.ResourceProperties.EC2NetworkAclEntryPortRange where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2NetworkAclEntryPortRange. See --- 'ec2NetworkAclEntryPortRange' for a more convenient constructor. -data EC2NetworkAclEntryPortRange = - EC2NetworkAclEntryPortRange - { _eC2NetworkAclEntryPortRangeFrom :: Maybe (Val Integer) - , _eC2NetworkAclEntryPortRangeTo :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON EC2NetworkAclEntryPortRange where - toJSON EC2NetworkAclEntryPortRange{..} = - object $ - catMaybes - [ fmap (("From",) . toJSON) _eC2NetworkAclEntryPortRangeFrom - , fmap (("To",) . toJSON) _eC2NetworkAclEntryPortRangeTo - ] - --- | Constructor for 'EC2NetworkAclEntryPortRange' containing required fields --- as arguments. -ec2NetworkAclEntryPortRange - :: EC2NetworkAclEntryPortRange -ec2NetworkAclEntryPortRange = - EC2NetworkAclEntryPortRange - { _eC2NetworkAclEntryPortRangeFrom = Nothing - , _eC2NetworkAclEntryPortRangeTo = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-networkaclentry-portrange.html#cfn-ec2-networkaclentry-portrange-from -ecnaeprFrom :: Lens' EC2NetworkAclEntryPortRange (Maybe (Val Integer)) -ecnaeprFrom = lens _eC2NetworkAclEntryPortRangeFrom (\s a -> s { _eC2NetworkAclEntryPortRangeFrom = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-networkaclentry-portrange.html#cfn-ec2-networkaclentry-portrange-to -ecnaeprTo :: Lens' EC2NetworkAclEntryPortRange (Maybe (Val Integer)) -ecnaeprTo = lens _eC2NetworkAclEntryPortRangeTo (\s a -> s { _eC2NetworkAclEntryPortRangeTo = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2NetworkInterfaceInstanceIpv6Address.hs b/library-gen/Stratosphere/ResourceProperties/EC2NetworkInterfaceInstanceIpv6Address.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2NetworkInterfaceInstanceIpv6Address.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-networkinterface-instanceipv6address.html - -module Stratosphere.ResourceProperties.EC2NetworkInterfaceInstanceIpv6Address where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2NetworkInterfaceInstanceIpv6Address. See --- 'ec2NetworkInterfaceInstanceIpv6Address' for a more convenient --- constructor. -data EC2NetworkInterfaceInstanceIpv6Address = - EC2NetworkInterfaceInstanceIpv6Address - { _eC2NetworkInterfaceInstanceIpv6AddressIpv6Address :: Val Text - } deriving (Show, Eq) - -instance ToJSON EC2NetworkInterfaceInstanceIpv6Address where - toJSON EC2NetworkInterfaceInstanceIpv6Address{..} = - object $ - catMaybes - [ (Just . ("Ipv6Address",) . toJSON) _eC2NetworkInterfaceInstanceIpv6AddressIpv6Address - ] - --- | Constructor for 'EC2NetworkInterfaceInstanceIpv6Address' containing --- required fields as arguments. -ec2NetworkInterfaceInstanceIpv6Address - :: Val Text -- ^ 'ecniiiaIpv6Address' - -> EC2NetworkInterfaceInstanceIpv6Address -ec2NetworkInterfaceInstanceIpv6Address ipv6Addressarg = - EC2NetworkInterfaceInstanceIpv6Address - { _eC2NetworkInterfaceInstanceIpv6AddressIpv6Address = ipv6Addressarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-networkinterface-instanceipv6address.html#cfn-ec2-networkinterface-instanceipv6address-ipv6address -ecniiiaIpv6Address :: Lens' EC2NetworkInterfaceInstanceIpv6Address (Val Text) -ecniiiaIpv6Address = lens _eC2NetworkInterfaceInstanceIpv6AddressIpv6Address (\s a -> s { _eC2NetworkInterfaceInstanceIpv6AddressIpv6Address = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2NetworkInterfacePrivateIpAddressSpecification.hs b/library-gen/Stratosphere/ResourceProperties/EC2NetworkInterfacePrivateIpAddressSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2NetworkInterfacePrivateIpAddressSpecification.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-network-interface-privateipspec.html - -module Stratosphere.ResourceProperties.EC2NetworkInterfacePrivateIpAddressSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- EC2NetworkInterfacePrivateIpAddressSpecification. See --- 'ec2NetworkInterfacePrivateIpAddressSpecification' for a more convenient --- constructor. -data EC2NetworkInterfacePrivateIpAddressSpecification = - EC2NetworkInterfacePrivateIpAddressSpecification - { _eC2NetworkInterfacePrivateIpAddressSpecificationPrimary :: Val Bool - , _eC2NetworkInterfacePrivateIpAddressSpecificationPrivateIpAddress :: Val Text - } deriving (Show, Eq) - -instance ToJSON EC2NetworkInterfacePrivateIpAddressSpecification where - toJSON EC2NetworkInterfacePrivateIpAddressSpecification{..} = - object $ - catMaybes - [ (Just . ("Primary",) . toJSON) _eC2NetworkInterfacePrivateIpAddressSpecificationPrimary - , (Just . ("PrivateIpAddress",) . toJSON) _eC2NetworkInterfacePrivateIpAddressSpecificationPrivateIpAddress - ] - --- | Constructor for 'EC2NetworkInterfacePrivateIpAddressSpecification' --- containing required fields as arguments. -ec2NetworkInterfacePrivateIpAddressSpecification - :: Val Bool -- ^ 'ecnipiasPrimary' - -> Val Text -- ^ 'ecnipiasPrivateIpAddress' - -> EC2NetworkInterfacePrivateIpAddressSpecification -ec2NetworkInterfacePrivateIpAddressSpecification primaryarg privateIpAddressarg = - EC2NetworkInterfacePrivateIpAddressSpecification - { _eC2NetworkInterfacePrivateIpAddressSpecificationPrimary = primaryarg - , _eC2NetworkInterfacePrivateIpAddressSpecificationPrivateIpAddress = privateIpAddressarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-network-interface-privateipspec.html#cfn-ec2-networkinterface-privateipspecification-primary -ecnipiasPrimary :: Lens' EC2NetworkInterfacePrivateIpAddressSpecification (Val Bool) -ecnipiasPrimary = lens _eC2NetworkInterfacePrivateIpAddressSpecificationPrimary (\s a -> s { _eC2NetworkInterfacePrivateIpAddressSpecificationPrimary = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-network-interface-privateipspec.html#cfn-ec2-networkinterface-privateipspecification-privateipaddress -ecnipiasPrivateIpAddress :: Lens' EC2NetworkInterfacePrivateIpAddressSpecification (Val Text) -ecnipiasPrivateIpAddress = lens _eC2NetworkInterfacePrivateIpAddressSpecificationPrivateIpAddress (\s a -> s { _eC2NetworkInterfacePrivateIpAddressSpecificationPrivateIpAddress = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2PrefixListEntry.hs b/library-gen/Stratosphere/ResourceProperties/EC2PrefixListEntry.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2PrefixListEntry.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# 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 }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2SecurityGroupEgressProperty.hs b/library-gen/Stratosphere/ResourceProperties/EC2SecurityGroupEgressProperty.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2SecurityGroupEgressProperty.hs +++ /dev/null @@ -1,88 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-rule.html - -module Stratosphere.ResourceProperties.EC2SecurityGroupEgressProperty where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2SecurityGroupEgressProperty. See --- 'ec2SecurityGroupEgressProperty' for a more convenient constructor. -data EC2SecurityGroupEgressProperty = - EC2SecurityGroupEgressProperty - { _eC2SecurityGroupEgressPropertyCidrIp :: Maybe (Val Text) - , _eC2SecurityGroupEgressPropertyCidrIpv6 :: Maybe (Val Text) - , _eC2SecurityGroupEgressPropertyDescription :: Maybe (Val Text) - , _eC2SecurityGroupEgressPropertyDestinationPrefixListId :: Maybe (Val Text) - , _eC2SecurityGroupEgressPropertyDestinationSecurityGroupId :: Maybe (Val Text) - , _eC2SecurityGroupEgressPropertyFromPort :: Maybe (Val Integer) - , _eC2SecurityGroupEgressPropertyIpProtocol :: Val Text - , _eC2SecurityGroupEgressPropertyToPort :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON EC2SecurityGroupEgressProperty where - toJSON EC2SecurityGroupEgressProperty{..} = - object $ - catMaybes - [ fmap (("CidrIp",) . toJSON) _eC2SecurityGroupEgressPropertyCidrIp - , fmap (("CidrIpv6",) . toJSON) _eC2SecurityGroupEgressPropertyCidrIpv6 - , fmap (("Description",) . toJSON) _eC2SecurityGroupEgressPropertyDescription - , fmap (("DestinationPrefixListId",) . toJSON) _eC2SecurityGroupEgressPropertyDestinationPrefixListId - , fmap (("DestinationSecurityGroupId",) . toJSON) _eC2SecurityGroupEgressPropertyDestinationSecurityGroupId - , fmap (("FromPort",) . toJSON) _eC2SecurityGroupEgressPropertyFromPort - , (Just . ("IpProtocol",) . toJSON) _eC2SecurityGroupEgressPropertyIpProtocol - , fmap (("ToPort",) . toJSON) _eC2SecurityGroupEgressPropertyToPort - ] - --- | Constructor for 'EC2SecurityGroupEgressProperty' containing required --- fields as arguments. -ec2SecurityGroupEgressProperty - :: Val Text -- ^ 'ecsgepIpProtocol' - -> EC2SecurityGroupEgressProperty -ec2SecurityGroupEgressProperty ipProtocolarg = - EC2SecurityGroupEgressProperty - { _eC2SecurityGroupEgressPropertyCidrIp = Nothing - , _eC2SecurityGroupEgressPropertyCidrIpv6 = Nothing - , _eC2SecurityGroupEgressPropertyDescription = Nothing - , _eC2SecurityGroupEgressPropertyDestinationPrefixListId = Nothing - , _eC2SecurityGroupEgressPropertyDestinationSecurityGroupId = Nothing - , _eC2SecurityGroupEgressPropertyFromPort = Nothing - , _eC2SecurityGroupEgressPropertyIpProtocol = ipProtocolarg - , _eC2SecurityGroupEgressPropertyToPort = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-rule.html#cfn-ec2-security-group-rule-cidrip -ecsgepCidrIp :: Lens' EC2SecurityGroupEgressProperty (Maybe (Val Text)) -ecsgepCidrIp = lens _eC2SecurityGroupEgressPropertyCidrIp (\s a -> s { _eC2SecurityGroupEgressPropertyCidrIp = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-rule.html#cfn-ec2-security-group-rule-cidripv6 -ecsgepCidrIpv6 :: Lens' EC2SecurityGroupEgressProperty (Maybe (Val Text)) -ecsgepCidrIpv6 = lens _eC2SecurityGroupEgressPropertyCidrIpv6 (\s a -> s { _eC2SecurityGroupEgressPropertyCidrIpv6 = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-rule.html#cfn-ec2-security-group-rule-description -ecsgepDescription :: Lens' EC2SecurityGroupEgressProperty (Maybe (Val Text)) -ecsgepDescription = lens _eC2SecurityGroupEgressPropertyDescription (\s a -> s { _eC2SecurityGroupEgressPropertyDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-rule.html#cfn-ec2-security-group-rule-destinationprefixlistid -ecsgepDestinationPrefixListId :: Lens' EC2SecurityGroupEgressProperty (Maybe (Val Text)) -ecsgepDestinationPrefixListId = lens _eC2SecurityGroupEgressPropertyDestinationPrefixListId (\s a -> s { _eC2SecurityGroupEgressPropertyDestinationPrefixListId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-rule.html#cfn-ec2-security-group-rule-destsecgroupid -ecsgepDestinationSecurityGroupId :: Lens' EC2SecurityGroupEgressProperty (Maybe (Val Text)) -ecsgepDestinationSecurityGroupId = lens _eC2SecurityGroupEgressPropertyDestinationSecurityGroupId (\s a -> s { _eC2SecurityGroupEgressPropertyDestinationSecurityGroupId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-rule.html#cfn-ec2-security-group-rule-fromport -ecsgepFromPort :: Lens' EC2SecurityGroupEgressProperty (Maybe (Val Integer)) -ecsgepFromPort = lens _eC2SecurityGroupEgressPropertyFromPort (\s a -> s { _eC2SecurityGroupEgressPropertyFromPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-rule.html#cfn-ec2-security-group-rule-ipprotocol -ecsgepIpProtocol :: Lens' EC2SecurityGroupEgressProperty (Val Text) -ecsgepIpProtocol = lens _eC2SecurityGroupEgressPropertyIpProtocol (\s a -> s { _eC2SecurityGroupEgressPropertyIpProtocol = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-rule.html#cfn-ec2-security-group-rule-toport -ecsgepToPort :: Lens' EC2SecurityGroupEgressProperty (Maybe (Val Integer)) -ecsgepToPort = lens _eC2SecurityGroupEgressPropertyToPort (\s a -> s { _eC2SecurityGroupEgressPropertyToPort = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2SecurityGroupIngressProperty.hs b/library-gen/Stratosphere/ResourceProperties/EC2SecurityGroupIngressProperty.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2SecurityGroupIngressProperty.hs +++ /dev/null @@ -1,102 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-rule.html - -module Stratosphere.ResourceProperties.EC2SecurityGroupIngressProperty where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2SecurityGroupIngressProperty. See --- 'ec2SecurityGroupIngressProperty' for a more convenient constructor. -data EC2SecurityGroupIngressProperty = - EC2SecurityGroupIngressProperty - { _eC2SecurityGroupIngressPropertyCidrIp :: Maybe (Val Text) - , _eC2SecurityGroupIngressPropertyCidrIpv6 :: Maybe (Val Text) - , _eC2SecurityGroupIngressPropertyDescription :: Maybe (Val Text) - , _eC2SecurityGroupIngressPropertyFromPort :: Maybe (Val Integer) - , _eC2SecurityGroupIngressPropertyIpProtocol :: Val Text - , _eC2SecurityGroupIngressPropertySourcePrefixListId :: Maybe (Val Text) - , _eC2SecurityGroupIngressPropertySourceSecurityGroupId :: Maybe (Val Text) - , _eC2SecurityGroupIngressPropertySourceSecurityGroupName :: Maybe (Val Text) - , _eC2SecurityGroupIngressPropertySourceSecurityGroupOwnerId :: Maybe (Val Text) - , _eC2SecurityGroupIngressPropertyToPort :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON EC2SecurityGroupIngressProperty where - toJSON EC2SecurityGroupIngressProperty{..} = - object $ - catMaybes - [ fmap (("CidrIp",) . toJSON) _eC2SecurityGroupIngressPropertyCidrIp - , fmap (("CidrIpv6",) . toJSON) _eC2SecurityGroupIngressPropertyCidrIpv6 - , fmap (("Description",) . toJSON) _eC2SecurityGroupIngressPropertyDescription - , fmap (("FromPort",) . toJSON) _eC2SecurityGroupIngressPropertyFromPort - , (Just . ("IpProtocol",) . toJSON) _eC2SecurityGroupIngressPropertyIpProtocol - , fmap (("SourcePrefixListId",) . toJSON) _eC2SecurityGroupIngressPropertySourcePrefixListId - , fmap (("SourceSecurityGroupId",) . toJSON) _eC2SecurityGroupIngressPropertySourceSecurityGroupId - , fmap (("SourceSecurityGroupName",) . toJSON) _eC2SecurityGroupIngressPropertySourceSecurityGroupName - , fmap (("SourceSecurityGroupOwnerId",) . toJSON) _eC2SecurityGroupIngressPropertySourceSecurityGroupOwnerId - , fmap (("ToPort",) . toJSON) _eC2SecurityGroupIngressPropertyToPort - ] - --- | Constructor for 'EC2SecurityGroupIngressProperty' containing required --- fields as arguments. -ec2SecurityGroupIngressProperty - :: Val Text -- ^ 'ecsgipIpProtocol' - -> EC2SecurityGroupIngressProperty -ec2SecurityGroupIngressProperty ipProtocolarg = - EC2SecurityGroupIngressProperty - { _eC2SecurityGroupIngressPropertyCidrIp = Nothing - , _eC2SecurityGroupIngressPropertyCidrIpv6 = Nothing - , _eC2SecurityGroupIngressPropertyDescription = Nothing - , _eC2SecurityGroupIngressPropertyFromPort = Nothing - , _eC2SecurityGroupIngressPropertyIpProtocol = ipProtocolarg - , _eC2SecurityGroupIngressPropertySourcePrefixListId = Nothing - , _eC2SecurityGroupIngressPropertySourceSecurityGroupId = Nothing - , _eC2SecurityGroupIngressPropertySourceSecurityGroupName = Nothing - , _eC2SecurityGroupIngressPropertySourceSecurityGroupOwnerId = Nothing - , _eC2SecurityGroupIngressPropertyToPort = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-rule.html#cfn-ec2-security-group-rule-cidrip -ecsgipCidrIp :: Lens' EC2SecurityGroupIngressProperty (Maybe (Val Text)) -ecsgipCidrIp = lens _eC2SecurityGroupIngressPropertyCidrIp (\s a -> s { _eC2SecurityGroupIngressPropertyCidrIp = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-rule.html#cfn-ec2-security-group-rule-cidripv6 -ecsgipCidrIpv6 :: Lens' EC2SecurityGroupIngressProperty (Maybe (Val Text)) -ecsgipCidrIpv6 = lens _eC2SecurityGroupIngressPropertyCidrIpv6 (\s a -> s { _eC2SecurityGroupIngressPropertyCidrIpv6 = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-rule.html#cfn-ec2-security-group-rule-description -ecsgipDescription :: Lens' EC2SecurityGroupIngressProperty (Maybe (Val Text)) -ecsgipDescription = lens _eC2SecurityGroupIngressPropertyDescription (\s a -> s { _eC2SecurityGroupIngressPropertyDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-rule.html#cfn-ec2-security-group-rule-fromport -ecsgipFromPort :: Lens' EC2SecurityGroupIngressProperty (Maybe (Val Integer)) -ecsgipFromPort = lens _eC2SecurityGroupIngressPropertyFromPort (\s a -> s { _eC2SecurityGroupIngressPropertyFromPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-rule.html#cfn-ec2-security-group-rule-ipprotocol -ecsgipIpProtocol :: Lens' EC2SecurityGroupIngressProperty (Val Text) -ecsgipIpProtocol = lens _eC2SecurityGroupIngressPropertyIpProtocol (\s a -> s { _eC2SecurityGroupIngressPropertyIpProtocol = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-rule.html#cfn-ec2-securitygroup-ingress-sourceprefixlistid -ecsgipSourcePrefixListId :: Lens' EC2SecurityGroupIngressProperty (Maybe (Val Text)) -ecsgipSourcePrefixListId = lens _eC2SecurityGroupIngressPropertySourcePrefixListId (\s a -> s { _eC2SecurityGroupIngressPropertySourcePrefixListId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-rule.html#cfn-ec2-security-group-rule-sourcesecuritygroupid -ecsgipSourceSecurityGroupId :: Lens' EC2SecurityGroupIngressProperty (Maybe (Val Text)) -ecsgipSourceSecurityGroupId = lens _eC2SecurityGroupIngressPropertySourceSecurityGroupId (\s a -> s { _eC2SecurityGroupIngressPropertySourceSecurityGroupId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-rule.html#cfn-ec2-security-group-rule-sourcesecuritygroupname -ecsgipSourceSecurityGroupName :: Lens' EC2SecurityGroupIngressProperty (Maybe (Val Text)) -ecsgipSourceSecurityGroupName = lens _eC2SecurityGroupIngressPropertySourceSecurityGroupName (\s a -> s { _eC2SecurityGroupIngressPropertySourceSecurityGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-rule.html#cfn-ec2-security-group-rule-sourcesecuritygroupownerid -ecsgipSourceSecurityGroupOwnerId :: Lens' EC2SecurityGroupIngressProperty (Maybe (Val Text)) -ecsgipSourceSecurityGroupOwnerId = lens _eC2SecurityGroupIngressPropertySourceSecurityGroupOwnerId (\s a -> s { _eC2SecurityGroupIngressPropertySourceSecurityGroupOwnerId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-rule.html#cfn-ec2-security-group-rule-toport -ecsgipToPort :: Lens' EC2SecurityGroupIngressProperty (Maybe (Val Integer)) -ecsgipToPort = lens _eC2SecurityGroupIngressPropertyToPort (\s a -> s { _eC2SecurityGroupIngressPropertyToPort = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetBlockDeviceMapping.hs b/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetBlockDeviceMapping.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetBlockDeviceMapping.hs +++ /dev/null @@ -1,60 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-blockdevicemappings.html - -module Stratosphere.ResourceProperties.EC2SpotFleetBlockDeviceMapping where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2SpotFleetEbsBlockDevice - --- | Full data type definition for EC2SpotFleetBlockDeviceMapping. See --- 'ec2SpotFleetBlockDeviceMapping' for a more convenient constructor. -data EC2SpotFleetBlockDeviceMapping = - EC2SpotFleetBlockDeviceMapping - { _eC2SpotFleetBlockDeviceMappingDeviceName :: Val Text - , _eC2SpotFleetBlockDeviceMappingEbs :: Maybe EC2SpotFleetEbsBlockDevice - , _eC2SpotFleetBlockDeviceMappingNoDevice :: Maybe (Val Text) - , _eC2SpotFleetBlockDeviceMappingVirtualName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EC2SpotFleetBlockDeviceMapping where - toJSON EC2SpotFleetBlockDeviceMapping{..} = - object $ - catMaybes - [ (Just . ("DeviceName",) . toJSON) _eC2SpotFleetBlockDeviceMappingDeviceName - , fmap (("Ebs",) . toJSON) _eC2SpotFleetBlockDeviceMappingEbs - , fmap (("NoDevice",) . toJSON) _eC2SpotFleetBlockDeviceMappingNoDevice - , fmap (("VirtualName",) . toJSON) _eC2SpotFleetBlockDeviceMappingVirtualName - ] - --- | Constructor for 'EC2SpotFleetBlockDeviceMapping' containing required --- fields as arguments. -ec2SpotFleetBlockDeviceMapping - :: Val Text -- ^ 'ecsfbdmDeviceName' - -> EC2SpotFleetBlockDeviceMapping -ec2SpotFleetBlockDeviceMapping deviceNamearg = - EC2SpotFleetBlockDeviceMapping - { _eC2SpotFleetBlockDeviceMappingDeviceName = deviceNamearg - , _eC2SpotFleetBlockDeviceMappingEbs = Nothing - , _eC2SpotFleetBlockDeviceMappingNoDevice = Nothing - , _eC2SpotFleetBlockDeviceMappingVirtualName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-blockdevicemappings.html#cfn-ec2-spotfleet-blockdevicemapping-devicename -ecsfbdmDeviceName :: Lens' EC2SpotFleetBlockDeviceMapping (Val Text) -ecsfbdmDeviceName = lens _eC2SpotFleetBlockDeviceMappingDeviceName (\s a -> s { _eC2SpotFleetBlockDeviceMappingDeviceName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-blockdevicemappings.html#cfn-ec2-spotfleet-blockdevicemapping-ebs -ecsfbdmEbs :: Lens' EC2SpotFleetBlockDeviceMapping (Maybe EC2SpotFleetEbsBlockDevice) -ecsfbdmEbs = lens _eC2SpotFleetBlockDeviceMappingEbs (\s a -> s { _eC2SpotFleetBlockDeviceMappingEbs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-blockdevicemappings.html#cfn-ec2-spotfleet-blockdevicemapping-nodevice -ecsfbdmNoDevice :: Lens' EC2SpotFleetBlockDeviceMapping (Maybe (Val Text)) -ecsfbdmNoDevice = lens _eC2SpotFleetBlockDeviceMappingNoDevice (\s a -> s { _eC2SpotFleetBlockDeviceMappingNoDevice = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-blockdevicemappings.html#cfn-ec2-spotfleet-blockdevicemapping-virtualname -ecsfbdmVirtualName :: Lens' EC2SpotFleetBlockDeviceMapping (Maybe (Val Text)) -ecsfbdmVirtualName = lens _eC2SpotFleetBlockDeviceMappingVirtualName (\s a -> s { _eC2SpotFleetBlockDeviceMappingVirtualName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetClassicLoadBalancer.hs b/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetClassicLoadBalancer.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetClassicLoadBalancer.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-classicloadbalancer.html - -module Stratosphere.ResourceProperties.EC2SpotFleetClassicLoadBalancer where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2SpotFleetClassicLoadBalancer. See --- 'ec2SpotFleetClassicLoadBalancer' for a more convenient constructor. -data EC2SpotFleetClassicLoadBalancer = - EC2SpotFleetClassicLoadBalancer - { _eC2SpotFleetClassicLoadBalancerName :: Val Text - } deriving (Show, Eq) - -instance ToJSON EC2SpotFleetClassicLoadBalancer where - toJSON EC2SpotFleetClassicLoadBalancer{..} = - object $ - catMaybes - [ (Just . ("Name",) . toJSON) _eC2SpotFleetClassicLoadBalancerName - ] - --- | Constructor for 'EC2SpotFleetClassicLoadBalancer' containing required --- fields as arguments. -ec2SpotFleetClassicLoadBalancer - :: Val Text -- ^ 'ecsfclbName' - -> EC2SpotFleetClassicLoadBalancer -ec2SpotFleetClassicLoadBalancer namearg = - EC2SpotFleetClassicLoadBalancer - { _eC2SpotFleetClassicLoadBalancerName = namearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-classicloadbalancer.html#cfn-ec2-spotfleet-classicloadbalancer-name -ecsfclbName :: Lens' EC2SpotFleetClassicLoadBalancer (Val Text) -ecsfclbName = lens _eC2SpotFleetClassicLoadBalancerName (\s a -> s { _eC2SpotFleetClassicLoadBalancerName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetClassicLoadBalancersConfig.hs b/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetClassicLoadBalancersConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetClassicLoadBalancersConfig.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-classicloadbalancersconfig.html - -module Stratosphere.ResourceProperties.EC2SpotFleetClassicLoadBalancersConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2SpotFleetClassicLoadBalancer - --- | Full data type definition for EC2SpotFleetClassicLoadBalancersConfig. See --- 'ec2SpotFleetClassicLoadBalancersConfig' for a more convenient --- constructor. -data EC2SpotFleetClassicLoadBalancersConfig = - EC2SpotFleetClassicLoadBalancersConfig - { _eC2SpotFleetClassicLoadBalancersConfigClassicLoadBalancers :: [EC2SpotFleetClassicLoadBalancer] - } deriving (Show, Eq) - -instance ToJSON EC2SpotFleetClassicLoadBalancersConfig where - toJSON EC2SpotFleetClassicLoadBalancersConfig{..} = - object $ - catMaybes - [ (Just . ("ClassicLoadBalancers",) . toJSON) _eC2SpotFleetClassicLoadBalancersConfigClassicLoadBalancers - ] - --- | Constructor for 'EC2SpotFleetClassicLoadBalancersConfig' containing --- required fields as arguments. -ec2SpotFleetClassicLoadBalancersConfig - :: [EC2SpotFleetClassicLoadBalancer] -- ^ 'ecsfclbcClassicLoadBalancers' - -> EC2SpotFleetClassicLoadBalancersConfig -ec2SpotFleetClassicLoadBalancersConfig classicLoadBalancersarg = - EC2SpotFleetClassicLoadBalancersConfig - { _eC2SpotFleetClassicLoadBalancersConfigClassicLoadBalancers = classicLoadBalancersarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-classicloadbalancersconfig.html#cfn-ec2-spotfleet-classicloadbalancersconfig-classicloadbalancers -ecsfclbcClassicLoadBalancers :: Lens' EC2SpotFleetClassicLoadBalancersConfig [EC2SpotFleetClassicLoadBalancer] -ecsfclbcClassicLoadBalancers = lens _eC2SpotFleetClassicLoadBalancersConfigClassicLoadBalancers (\s a -> s { _eC2SpotFleetClassicLoadBalancersConfigClassicLoadBalancers = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetEbsBlockDevice.hs b/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetEbsBlockDevice.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetEbsBlockDevice.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-blockdevicemappings-ebs.html - -module Stratosphere.ResourceProperties.EC2SpotFleetEbsBlockDevice where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2SpotFleetEbsBlockDevice. See --- 'ec2SpotFleetEbsBlockDevice' for a more convenient constructor. -data EC2SpotFleetEbsBlockDevice = - EC2SpotFleetEbsBlockDevice - { _eC2SpotFleetEbsBlockDeviceDeleteOnTermination :: Maybe (Val Bool) - , _eC2SpotFleetEbsBlockDeviceEncrypted :: Maybe (Val Bool) - , _eC2SpotFleetEbsBlockDeviceIops :: Maybe (Val Integer) - , _eC2SpotFleetEbsBlockDeviceSnapshotId :: Maybe (Val Text) - , _eC2SpotFleetEbsBlockDeviceVolumeSize :: Maybe (Val Integer) - , _eC2SpotFleetEbsBlockDeviceVolumeType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EC2SpotFleetEbsBlockDevice where - toJSON EC2SpotFleetEbsBlockDevice{..} = - object $ - catMaybes - [ fmap (("DeleteOnTermination",) . toJSON) _eC2SpotFleetEbsBlockDeviceDeleteOnTermination - , fmap (("Encrypted",) . toJSON) _eC2SpotFleetEbsBlockDeviceEncrypted - , fmap (("Iops",) . toJSON) _eC2SpotFleetEbsBlockDeviceIops - , fmap (("SnapshotId",) . toJSON) _eC2SpotFleetEbsBlockDeviceSnapshotId - , fmap (("VolumeSize",) . toJSON) _eC2SpotFleetEbsBlockDeviceVolumeSize - , fmap (("VolumeType",) . toJSON) _eC2SpotFleetEbsBlockDeviceVolumeType - ] - --- | Constructor for 'EC2SpotFleetEbsBlockDevice' containing required fields --- as arguments. -ec2SpotFleetEbsBlockDevice - :: EC2SpotFleetEbsBlockDevice -ec2SpotFleetEbsBlockDevice = - EC2SpotFleetEbsBlockDevice - { _eC2SpotFleetEbsBlockDeviceDeleteOnTermination = Nothing - , _eC2SpotFleetEbsBlockDeviceEncrypted = Nothing - , _eC2SpotFleetEbsBlockDeviceIops = Nothing - , _eC2SpotFleetEbsBlockDeviceSnapshotId = Nothing - , _eC2SpotFleetEbsBlockDeviceVolumeSize = Nothing - , _eC2SpotFleetEbsBlockDeviceVolumeType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-blockdevicemappings-ebs.html#cfn-ec2-spotfleet-ebsblockdevice-deleteontermination -ecsfebdDeleteOnTermination :: Lens' EC2SpotFleetEbsBlockDevice (Maybe (Val Bool)) -ecsfebdDeleteOnTermination = lens _eC2SpotFleetEbsBlockDeviceDeleteOnTermination (\s a -> s { _eC2SpotFleetEbsBlockDeviceDeleteOnTermination = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-blockdevicemappings-ebs.html#cfn-ec2-spotfleet-ebsblockdevice-encrypted -ecsfebdEncrypted :: Lens' EC2SpotFleetEbsBlockDevice (Maybe (Val Bool)) -ecsfebdEncrypted = lens _eC2SpotFleetEbsBlockDeviceEncrypted (\s a -> s { _eC2SpotFleetEbsBlockDeviceEncrypted = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-blockdevicemappings-ebs.html#cfn-ec2-spotfleet-ebsblockdevice-iops -ecsfebdIops :: Lens' EC2SpotFleetEbsBlockDevice (Maybe (Val Integer)) -ecsfebdIops = lens _eC2SpotFleetEbsBlockDeviceIops (\s a -> s { _eC2SpotFleetEbsBlockDeviceIops = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-blockdevicemappings-ebs.html#cfn-ec2-spotfleet-ebsblockdevice-snapshotid -ecsfebdSnapshotId :: Lens' EC2SpotFleetEbsBlockDevice (Maybe (Val Text)) -ecsfebdSnapshotId = lens _eC2SpotFleetEbsBlockDeviceSnapshotId (\s a -> s { _eC2SpotFleetEbsBlockDeviceSnapshotId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-blockdevicemappings-ebs.html#cfn-ec2-spotfleet-ebsblockdevice-volumesize -ecsfebdVolumeSize :: Lens' EC2SpotFleetEbsBlockDevice (Maybe (Val Integer)) -ecsfebdVolumeSize = lens _eC2SpotFleetEbsBlockDeviceVolumeSize (\s a -> s { _eC2SpotFleetEbsBlockDeviceVolumeSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-blockdevicemappings-ebs.html#cfn-ec2-spotfleet-ebsblockdevice-volumetype -ecsfebdVolumeType :: Lens' EC2SpotFleetEbsBlockDevice (Maybe (Val Text)) -ecsfebdVolumeType = lens _eC2SpotFleetEbsBlockDeviceVolumeType (\s a -> s { _eC2SpotFleetEbsBlockDeviceVolumeType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetFleetLaunchTemplateSpecification.hs b/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetFleetLaunchTemplateSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetFleetLaunchTemplateSpecification.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-fleetlaunchtemplatespecification.html - -module Stratosphere.ResourceProperties.EC2SpotFleetFleetLaunchTemplateSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- EC2SpotFleetFleetLaunchTemplateSpecification. See --- 'ec2SpotFleetFleetLaunchTemplateSpecification' for a more convenient --- constructor. -data EC2SpotFleetFleetLaunchTemplateSpecification = - EC2SpotFleetFleetLaunchTemplateSpecification - { _eC2SpotFleetFleetLaunchTemplateSpecificationLaunchTemplateId :: Maybe (Val Text) - , _eC2SpotFleetFleetLaunchTemplateSpecificationLaunchTemplateName :: Maybe (Val Text) - , _eC2SpotFleetFleetLaunchTemplateSpecificationVersion :: Val Text - } deriving (Show, Eq) - -instance ToJSON EC2SpotFleetFleetLaunchTemplateSpecification where - toJSON EC2SpotFleetFleetLaunchTemplateSpecification{..} = - object $ - catMaybes - [ fmap (("LaunchTemplateId",) . toJSON) _eC2SpotFleetFleetLaunchTemplateSpecificationLaunchTemplateId - , fmap (("LaunchTemplateName",) . toJSON) _eC2SpotFleetFleetLaunchTemplateSpecificationLaunchTemplateName - , (Just . ("Version",) . toJSON) _eC2SpotFleetFleetLaunchTemplateSpecificationVersion - ] - --- | Constructor for 'EC2SpotFleetFleetLaunchTemplateSpecification' containing --- required fields as arguments. -ec2SpotFleetFleetLaunchTemplateSpecification - :: Val Text -- ^ 'ecsffltsVersion' - -> EC2SpotFleetFleetLaunchTemplateSpecification -ec2SpotFleetFleetLaunchTemplateSpecification versionarg = - EC2SpotFleetFleetLaunchTemplateSpecification - { _eC2SpotFleetFleetLaunchTemplateSpecificationLaunchTemplateId = Nothing - , _eC2SpotFleetFleetLaunchTemplateSpecificationLaunchTemplateName = Nothing - , _eC2SpotFleetFleetLaunchTemplateSpecificationVersion = versionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-fleetlaunchtemplatespecification.html#cfn-ec2-spotfleet-fleetlaunchtemplatespecification-launchtemplateid -ecsffltsLaunchTemplateId :: Lens' EC2SpotFleetFleetLaunchTemplateSpecification (Maybe (Val Text)) -ecsffltsLaunchTemplateId = lens _eC2SpotFleetFleetLaunchTemplateSpecificationLaunchTemplateId (\s a -> s { _eC2SpotFleetFleetLaunchTemplateSpecificationLaunchTemplateId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-fleetlaunchtemplatespecification.html#cfn-ec2-spotfleet-fleetlaunchtemplatespecification-launchtemplatename -ecsffltsLaunchTemplateName :: Lens' EC2SpotFleetFleetLaunchTemplateSpecification (Maybe (Val Text)) -ecsffltsLaunchTemplateName = lens _eC2SpotFleetFleetLaunchTemplateSpecificationLaunchTemplateName (\s a -> s { _eC2SpotFleetFleetLaunchTemplateSpecificationLaunchTemplateName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-fleetlaunchtemplatespecification.html#cfn-ec2-spotfleet-fleetlaunchtemplatespecification-version -ecsffltsVersion :: Lens' EC2SpotFleetFleetLaunchTemplateSpecification (Val Text) -ecsffltsVersion = lens _eC2SpotFleetFleetLaunchTemplateSpecificationVersion (\s a -> s { _eC2SpotFleetFleetLaunchTemplateSpecificationVersion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetGroupIdentifier.hs b/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetGroupIdentifier.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetGroupIdentifier.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-securitygroups.html - -module Stratosphere.ResourceProperties.EC2SpotFleetGroupIdentifier where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2SpotFleetGroupIdentifier. See --- 'ec2SpotFleetGroupIdentifier' for a more convenient constructor. -data EC2SpotFleetGroupIdentifier = - EC2SpotFleetGroupIdentifier - { _eC2SpotFleetGroupIdentifierGroupId :: Val Text - } deriving (Show, Eq) - -instance ToJSON EC2SpotFleetGroupIdentifier where - toJSON EC2SpotFleetGroupIdentifier{..} = - object $ - catMaybes - [ (Just . ("GroupId",) . toJSON) _eC2SpotFleetGroupIdentifierGroupId - ] - --- | Constructor for 'EC2SpotFleetGroupIdentifier' containing required fields --- as arguments. -ec2SpotFleetGroupIdentifier - :: Val Text -- ^ 'ecsfgiGroupId' - -> EC2SpotFleetGroupIdentifier -ec2SpotFleetGroupIdentifier groupIdarg = - EC2SpotFleetGroupIdentifier - { _eC2SpotFleetGroupIdentifierGroupId = groupIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-securitygroups.html#cfn-ec2-spotfleet-groupidentifier-groupid -ecsfgiGroupId :: Lens' EC2SpotFleetGroupIdentifier (Val Text) -ecsfgiGroupId = lens _eC2SpotFleetGroupIdentifierGroupId (\s a -> s { _eC2SpotFleetGroupIdentifierGroupId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetIamInstanceProfileSpecification.hs b/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetIamInstanceProfileSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetIamInstanceProfileSpecification.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-iaminstanceprofile.html - -module Stratosphere.ResourceProperties.EC2SpotFleetIamInstanceProfileSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- EC2SpotFleetIamInstanceProfileSpecification. See --- 'ec2SpotFleetIamInstanceProfileSpecification' for a more convenient --- constructor. -data EC2SpotFleetIamInstanceProfileSpecification = - EC2SpotFleetIamInstanceProfileSpecification - { _eC2SpotFleetIamInstanceProfileSpecificationArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EC2SpotFleetIamInstanceProfileSpecification where - toJSON EC2SpotFleetIamInstanceProfileSpecification{..} = - object $ - catMaybes - [ fmap (("Arn",) . toJSON) _eC2SpotFleetIamInstanceProfileSpecificationArn - ] - --- | Constructor for 'EC2SpotFleetIamInstanceProfileSpecification' containing --- required fields as arguments. -ec2SpotFleetIamInstanceProfileSpecification - :: EC2SpotFleetIamInstanceProfileSpecification -ec2SpotFleetIamInstanceProfileSpecification = - EC2SpotFleetIamInstanceProfileSpecification - { _eC2SpotFleetIamInstanceProfileSpecificationArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-iaminstanceprofile.html#cfn-ec2-spotfleet-iaminstanceprofilespecification-arn -ecsfiipsArn :: Lens' EC2SpotFleetIamInstanceProfileSpecification (Maybe (Val Text)) -ecsfiipsArn = lens _eC2SpotFleetIamInstanceProfileSpecificationArn (\s a -> s { _eC2SpotFleetIamInstanceProfileSpecificationArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetInstanceIpv6Address.hs b/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetInstanceIpv6Address.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetInstanceIpv6Address.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-instanceipv6address.html - -module Stratosphere.ResourceProperties.EC2SpotFleetInstanceIpv6Address where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2SpotFleetInstanceIpv6Address. See --- 'ec2SpotFleetInstanceIpv6Address' for a more convenient constructor. -data EC2SpotFleetInstanceIpv6Address = - EC2SpotFleetInstanceIpv6Address - { _eC2SpotFleetInstanceIpv6AddressIpv6Address :: Val Text - } deriving (Show, Eq) - -instance ToJSON EC2SpotFleetInstanceIpv6Address where - toJSON EC2SpotFleetInstanceIpv6Address{..} = - object $ - catMaybes - [ (Just . ("Ipv6Address",) . toJSON) _eC2SpotFleetInstanceIpv6AddressIpv6Address - ] - --- | Constructor for 'EC2SpotFleetInstanceIpv6Address' containing required --- fields as arguments. -ec2SpotFleetInstanceIpv6Address - :: Val Text -- ^ 'ecsfiiaIpv6Address' - -> EC2SpotFleetInstanceIpv6Address -ec2SpotFleetInstanceIpv6Address ipv6Addressarg = - EC2SpotFleetInstanceIpv6Address - { _eC2SpotFleetInstanceIpv6AddressIpv6Address = ipv6Addressarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-instanceipv6address.html#cfn-ec2-spotfleet-instanceipv6address-ipv6address -ecsfiiaIpv6Address :: Lens' EC2SpotFleetInstanceIpv6Address (Val Text) -ecsfiiaIpv6Address = lens _eC2SpotFleetInstanceIpv6AddressIpv6Address (\s a -> s { _eC2SpotFleetInstanceIpv6AddressIpv6Address = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetInstanceNetworkInterfaceSpecification.hs b/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetInstanceNetworkInterfaceSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetInstanceNetworkInterfaceSpecification.hs +++ /dev/null @@ -1,111 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-networkinterfaces.html - -module Stratosphere.ResourceProperties.EC2SpotFleetInstanceNetworkInterfaceSpecification where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2SpotFleetInstanceIpv6Address -import Stratosphere.ResourceProperties.EC2SpotFleetPrivateIpAddressSpecification - --- | Full data type definition for --- EC2SpotFleetInstanceNetworkInterfaceSpecification. See --- 'ec2SpotFleetInstanceNetworkInterfaceSpecification' for a more convenient --- constructor. -data EC2SpotFleetInstanceNetworkInterfaceSpecification = - EC2SpotFleetInstanceNetworkInterfaceSpecification - { _eC2SpotFleetInstanceNetworkInterfaceSpecificationAssociatePublicIpAddress :: Maybe (Val Bool) - , _eC2SpotFleetInstanceNetworkInterfaceSpecificationDeleteOnTermination :: Maybe (Val Bool) - , _eC2SpotFleetInstanceNetworkInterfaceSpecificationDescription :: Maybe (Val Text) - , _eC2SpotFleetInstanceNetworkInterfaceSpecificationDeviceIndex :: Maybe (Val Integer) - , _eC2SpotFleetInstanceNetworkInterfaceSpecificationGroups :: Maybe (ValList Text) - , _eC2SpotFleetInstanceNetworkInterfaceSpecificationIpv6AddressCount :: Maybe (Val Integer) - , _eC2SpotFleetInstanceNetworkInterfaceSpecificationIpv6Addresses :: Maybe [EC2SpotFleetInstanceIpv6Address] - , _eC2SpotFleetInstanceNetworkInterfaceSpecificationNetworkInterfaceId :: Maybe (Val Text) - , _eC2SpotFleetInstanceNetworkInterfaceSpecificationPrivateIpAddresses :: Maybe [EC2SpotFleetPrivateIpAddressSpecification] - , _eC2SpotFleetInstanceNetworkInterfaceSpecificationSecondaryPrivateIpAddressCount :: Maybe (Val Integer) - , _eC2SpotFleetInstanceNetworkInterfaceSpecificationSubnetId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EC2SpotFleetInstanceNetworkInterfaceSpecification where - toJSON EC2SpotFleetInstanceNetworkInterfaceSpecification{..} = - object $ - catMaybes - [ fmap (("AssociatePublicIpAddress",) . toJSON) _eC2SpotFleetInstanceNetworkInterfaceSpecificationAssociatePublicIpAddress - , fmap (("DeleteOnTermination",) . toJSON) _eC2SpotFleetInstanceNetworkInterfaceSpecificationDeleteOnTermination - , fmap (("Description",) . toJSON) _eC2SpotFleetInstanceNetworkInterfaceSpecificationDescription - , fmap (("DeviceIndex",) . toJSON) _eC2SpotFleetInstanceNetworkInterfaceSpecificationDeviceIndex - , fmap (("Groups",) . toJSON) _eC2SpotFleetInstanceNetworkInterfaceSpecificationGroups - , fmap (("Ipv6AddressCount",) . toJSON) _eC2SpotFleetInstanceNetworkInterfaceSpecificationIpv6AddressCount - , fmap (("Ipv6Addresses",) . toJSON) _eC2SpotFleetInstanceNetworkInterfaceSpecificationIpv6Addresses - , fmap (("NetworkInterfaceId",) . toJSON) _eC2SpotFleetInstanceNetworkInterfaceSpecificationNetworkInterfaceId - , fmap (("PrivateIpAddresses",) . toJSON) _eC2SpotFleetInstanceNetworkInterfaceSpecificationPrivateIpAddresses - , fmap (("SecondaryPrivateIpAddressCount",) . toJSON) _eC2SpotFleetInstanceNetworkInterfaceSpecificationSecondaryPrivateIpAddressCount - , fmap (("SubnetId",) . toJSON) _eC2SpotFleetInstanceNetworkInterfaceSpecificationSubnetId - ] - --- | Constructor for 'EC2SpotFleetInstanceNetworkInterfaceSpecification' --- containing required fields as arguments. -ec2SpotFleetInstanceNetworkInterfaceSpecification - :: EC2SpotFleetInstanceNetworkInterfaceSpecification -ec2SpotFleetInstanceNetworkInterfaceSpecification = - EC2SpotFleetInstanceNetworkInterfaceSpecification - { _eC2SpotFleetInstanceNetworkInterfaceSpecificationAssociatePublicIpAddress = Nothing - , _eC2SpotFleetInstanceNetworkInterfaceSpecificationDeleteOnTermination = Nothing - , _eC2SpotFleetInstanceNetworkInterfaceSpecificationDescription = Nothing - , _eC2SpotFleetInstanceNetworkInterfaceSpecificationDeviceIndex = Nothing - , _eC2SpotFleetInstanceNetworkInterfaceSpecificationGroups = Nothing - , _eC2SpotFleetInstanceNetworkInterfaceSpecificationIpv6AddressCount = Nothing - , _eC2SpotFleetInstanceNetworkInterfaceSpecificationIpv6Addresses = Nothing - , _eC2SpotFleetInstanceNetworkInterfaceSpecificationNetworkInterfaceId = Nothing - , _eC2SpotFleetInstanceNetworkInterfaceSpecificationPrivateIpAddresses = Nothing - , _eC2SpotFleetInstanceNetworkInterfaceSpecificationSecondaryPrivateIpAddressCount = Nothing - , _eC2SpotFleetInstanceNetworkInterfaceSpecificationSubnetId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-networkinterfaces.html#cfn-ec2-spotfleet-instancenetworkinterfacespecification-associatepublicipaddress -ecsfinisAssociatePublicIpAddress :: Lens' EC2SpotFleetInstanceNetworkInterfaceSpecification (Maybe (Val Bool)) -ecsfinisAssociatePublicIpAddress = lens _eC2SpotFleetInstanceNetworkInterfaceSpecificationAssociatePublicIpAddress (\s a -> s { _eC2SpotFleetInstanceNetworkInterfaceSpecificationAssociatePublicIpAddress = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-networkinterfaces.html#cfn-ec2-spotfleet-instancenetworkinterfacespecification-deleteontermination -ecsfinisDeleteOnTermination :: Lens' EC2SpotFleetInstanceNetworkInterfaceSpecification (Maybe (Val Bool)) -ecsfinisDeleteOnTermination = lens _eC2SpotFleetInstanceNetworkInterfaceSpecificationDeleteOnTermination (\s a -> s { _eC2SpotFleetInstanceNetworkInterfaceSpecificationDeleteOnTermination = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-networkinterfaces.html#cfn-ec2-spotfleet-instancenetworkinterfacespecification-description -ecsfinisDescription :: Lens' EC2SpotFleetInstanceNetworkInterfaceSpecification (Maybe (Val Text)) -ecsfinisDescription = lens _eC2SpotFleetInstanceNetworkInterfaceSpecificationDescription (\s a -> s { _eC2SpotFleetInstanceNetworkInterfaceSpecificationDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-networkinterfaces.html#cfn-ec2-spotfleet-instancenetworkinterfacespecification-deviceindex -ecsfinisDeviceIndex :: Lens' EC2SpotFleetInstanceNetworkInterfaceSpecification (Maybe (Val Integer)) -ecsfinisDeviceIndex = lens _eC2SpotFleetInstanceNetworkInterfaceSpecificationDeviceIndex (\s a -> s { _eC2SpotFleetInstanceNetworkInterfaceSpecificationDeviceIndex = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-networkinterfaces.html#cfn-ec2-spotfleet-instancenetworkinterfacespecification-groups -ecsfinisGroups :: Lens' EC2SpotFleetInstanceNetworkInterfaceSpecification (Maybe (ValList Text)) -ecsfinisGroups = lens _eC2SpotFleetInstanceNetworkInterfaceSpecificationGroups (\s a -> s { _eC2SpotFleetInstanceNetworkInterfaceSpecificationGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-networkinterfaces.html#cfn-ec2-spotfleet-instancenetworkinterfacespecification-ipv6addresscount -ecsfinisIpv6AddressCount :: Lens' EC2SpotFleetInstanceNetworkInterfaceSpecification (Maybe (Val Integer)) -ecsfinisIpv6AddressCount = lens _eC2SpotFleetInstanceNetworkInterfaceSpecificationIpv6AddressCount (\s a -> s { _eC2SpotFleetInstanceNetworkInterfaceSpecificationIpv6AddressCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-networkinterfaces.html#cfn-ec2-spotfleet-instancenetworkinterfacespecification-ipv6addresses -ecsfinisIpv6Addresses :: Lens' EC2SpotFleetInstanceNetworkInterfaceSpecification (Maybe [EC2SpotFleetInstanceIpv6Address]) -ecsfinisIpv6Addresses = lens _eC2SpotFleetInstanceNetworkInterfaceSpecificationIpv6Addresses (\s a -> s { _eC2SpotFleetInstanceNetworkInterfaceSpecificationIpv6Addresses = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-networkinterfaces.html#cfn-ec2-spotfleet-instancenetworkinterfacespecification-networkinterfaceid -ecsfinisNetworkInterfaceId :: Lens' EC2SpotFleetInstanceNetworkInterfaceSpecification (Maybe (Val Text)) -ecsfinisNetworkInterfaceId = lens _eC2SpotFleetInstanceNetworkInterfaceSpecificationNetworkInterfaceId (\s a -> s { _eC2SpotFleetInstanceNetworkInterfaceSpecificationNetworkInterfaceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-networkinterfaces.html#cfn-ec2-spotfleet-instancenetworkinterfacespecification-privateipaddresses -ecsfinisPrivateIpAddresses :: Lens' EC2SpotFleetInstanceNetworkInterfaceSpecification (Maybe [EC2SpotFleetPrivateIpAddressSpecification]) -ecsfinisPrivateIpAddresses = lens _eC2SpotFleetInstanceNetworkInterfaceSpecificationPrivateIpAddresses (\s a -> s { _eC2SpotFleetInstanceNetworkInterfaceSpecificationPrivateIpAddresses = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-networkinterfaces.html#cfn-ec2-spotfleet-instancenetworkinterfacespecification-secondaryprivateipaddresscount -ecsfinisSecondaryPrivateIpAddressCount :: Lens' EC2SpotFleetInstanceNetworkInterfaceSpecification (Maybe (Val Integer)) -ecsfinisSecondaryPrivateIpAddressCount = lens _eC2SpotFleetInstanceNetworkInterfaceSpecificationSecondaryPrivateIpAddressCount (\s a -> s { _eC2SpotFleetInstanceNetworkInterfaceSpecificationSecondaryPrivateIpAddressCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-networkinterfaces.html#cfn-ec2-spotfleet-instancenetworkinterfacespecification-subnetid -ecsfinisSubnetId :: Lens' EC2SpotFleetInstanceNetworkInterfaceSpecification (Maybe (Val Text)) -ecsfinisSubnetId = lens _eC2SpotFleetInstanceNetworkInterfaceSpecificationSubnetId (\s a -> s { _eC2SpotFleetInstanceNetworkInterfaceSpecificationSubnetId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetLaunchTemplateConfig.hs b/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetLaunchTemplateConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetLaunchTemplateConfig.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-launchtemplateconfig.html - -module Stratosphere.ResourceProperties.EC2SpotFleetLaunchTemplateConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2SpotFleetFleetLaunchTemplateSpecification -import Stratosphere.ResourceProperties.EC2SpotFleetLaunchTemplateOverrides - --- | Full data type definition for EC2SpotFleetLaunchTemplateConfig. See --- 'ec2SpotFleetLaunchTemplateConfig' for a more convenient constructor. -data EC2SpotFleetLaunchTemplateConfig = - EC2SpotFleetLaunchTemplateConfig - { _eC2SpotFleetLaunchTemplateConfigLaunchTemplateSpecification :: Maybe EC2SpotFleetFleetLaunchTemplateSpecification - , _eC2SpotFleetLaunchTemplateConfigOverrides :: Maybe [EC2SpotFleetLaunchTemplateOverrides] - } deriving (Show, Eq) - -instance ToJSON EC2SpotFleetLaunchTemplateConfig where - toJSON EC2SpotFleetLaunchTemplateConfig{..} = - object $ - catMaybes - [ fmap (("LaunchTemplateSpecification",) . toJSON) _eC2SpotFleetLaunchTemplateConfigLaunchTemplateSpecification - , fmap (("Overrides",) . toJSON) _eC2SpotFleetLaunchTemplateConfigOverrides - ] - --- | Constructor for 'EC2SpotFleetLaunchTemplateConfig' containing required --- fields as arguments. -ec2SpotFleetLaunchTemplateConfig - :: EC2SpotFleetLaunchTemplateConfig -ec2SpotFleetLaunchTemplateConfig = - EC2SpotFleetLaunchTemplateConfig - { _eC2SpotFleetLaunchTemplateConfigLaunchTemplateSpecification = Nothing - , _eC2SpotFleetLaunchTemplateConfigOverrides = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-launchtemplateconfig.html#cfn-ec2-spotfleet-launchtemplateconfig-launchtemplatespecification -ecsfltcLaunchTemplateSpecification :: Lens' EC2SpotFleetLaunchTemplateConfig (Maybe EC2SpotFleetFleetLaunchTemplateSpecification) -ecsfltcLaunchTemplateSpecification = lens _eC2SpotFleetLaunchTemplateConfigLaunchTemplateSpecification (\s a -> s { _eC2SpotFleetLaunchTemplateConfigLaunchTemplateSpecification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-launchtemplateconfig.html#cfn-ec2-spotfleet-launchtemplateconfig-overrides -ecsfltcOverrides :: Lens' EC2SpotFleetLaunchTemplateConfig (Maybe [EC2SpotFleetLaunchTemplateOverrides]) -ecsfltcOverrides = lens _eC2SpotFleetLaunchTemplateConfigOverrides (\s a -> s { _eC2SpotFleetLaunchTemplateConfigOverrides = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetLaunchTemplateOverrides.hs b/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetLaunchTemplateOverrides.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetLaunchTemplateOverrides.hs +++ /dev/null @@ -1,66 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-launchtemplateoverrides.html - -module Stratosphere.ResourceProperties.EC2SpotFleetLaunchTemplateOverrides where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2SpotFleetLaunchTemplateOverrides. See --- 'ec2SpotFleetLaunchTemplateOverrides' for a more convenient constructor. -data EC2SpotFleetLaunchTemplateOverrides = - EC2SpotFleetLaunchTemplateOverrides - { _eC2SpotFleetLaunchTemplateOverridesAvailabilityZone :: Maybe (Val Text) - , _eC2SpotFleetLaunchTemplateOverridesInstanceType :: Maybe (Val Text) - , _eC2SpotFleetLaunchTemplateOverridesSpotPrice :: Maybe (Val Text) - , _eC2SpotFleetLaunchTemplateOverridesSubnetId :: Maybe (Val Text) - , _eC2SpotFleetLaunchTemplateOverridesWeightedCapacity :: Maybe (Val Double) - } deriving (Show, Eq) - -instance ToJSON EC2SpotFleetLaunchTemplateOverrides where - toJSON EC2SpotFleetLaunchTemplateOverrides{..} = - object $ - catMaybes - [ fmap (("AvailabilityZone",) . toJSON) _eC2SpotFleetLaunchTemplateOverridesAvailabilityZone - , fmap (("InstanceType",) . toJSON) _eC2SpotFleetLaunchTemplateOverridesInstanceType - , fmap (("SpotPrice",) . toJSON) _eC2SpotFleetLaunchTemplateOverridesSpotPrice - , fmap (("SubnetId",) . toJSON) _eC2SpotFleetLaunchTemplateOverridesSubnetId - , fmap (("WeightedCapacity",) . toJSON) _eC2SpotFleetLaunchTemplateOverridesWeightedCapacity - ] - --- | Constructor for 'EC2SpotFleetLaunchTemplateOverrides' containing required --- fields as arguments. -ec2SpotFleetLaunchTemplateOverrides - :: EC2SpotFleetLaunchTemplateOverrides -ec2SpotFleetLaunchTemplateOverrides = - EC2SpotFleetLaunchTemplateOverrides - { _eC2SpotFleetLaunchTemplateOverridesAvailabilityZone = Nothing - , _eC2SpotFleetLaunchTemplateOverridesInstanceType = Nothing - , _eC2SpotFleetLaunchTemplateOverridesSpotPrice = Nothing - , _eC2SpotFleetLaunchTemplateOverridesSubnetId = Nothing - , _eC2SpotFleetLaunchTemplateOverridesWeightedCapacity = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-launchtemplateoverrides.html#cfn-ec2-spotfleet-launchtemplateoverrides-availabilityzone -ecsfltoAvailabilityZone :: Lens' EC2SpotFleetLaunchTemplateOverrides (Maybe (Val Text)) -ecsfltoAvailabilityZone = lens _eC2SpotFleetLaunchTemplateOverridesAvailabilityZone (\s a -> s { _eC2SpotFleetLaunchTemplateOverridesAvailabilityZone = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-launchtemplateoverrides.html#cfn-ec2-spotfleet-launchtemplateoverrides-instancetype -ecsfltoInstanceType :: Lens' EC2SpotFleetLaunchTemplateOverrides (Maybe (Val Text)) -ecsfltoInstanceType = lens _eC2SpotFleetLaunchTemplateOverridesInstanceType (\s a -> s { _eC2SpotFleetLaunchTemplateOverridesInstanceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-launchtemplateoverrides.html#cfn-ec2-spotfleet-launchtemplateoverrides-spotprice -ecsfltoSpotPrice :: Lens' EC2SpotFleetLaunchTemplateOverrides (Maybe (Val Text)) -ecsfltoSpotPrice = lens _eC2SpotFleetLaunchTemplateOverridesSpotPrice (\s a -> s { _eC2SpotFleetLaunchTemplateOverridesSpotPrice = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-launchtemplateoverrides.html#cfn-ec2-spotfleet-launchtemplateoverrides-subnetid -ecsfltoSubnetId :: Lens' EC2SpotFleetLaunchTemplateOverrides (Maybe (Val Text)) -ecsfltoSubnetId = lens _eC2SpotFleetLaunchTemplateOverridesSubnetId (\s a -> s { _eC2SpotFleetLaunchTemplateOverridesSubnetId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-launchtemplateoverrides.html#cfn-ec2-spotfleet-launchtemplateoverrides-weightedcapacity -ecsfltoWeightedCapacity :: Lens' EC2SpotFleetLaunchTemplateOverrides (Maybe (Val Double)) -ecsfltoWeightedCapacity = lens _eC2SpotFleetLaunchTemplateOverridesWeightedCapacity (\s a -> s { _eC2SpotFleetLaunchTemplateOverridesWeightedCapacity = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetLoadBalancersConfig.hs b/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetLoadBalancersConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetLoadBalancersConfig.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-loadbalancersconfig.html - -module Stratosphere.ResourceProperties.EC2SpotFleetLoadBalancersConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2SpotFleetClassicLoadBalancersConfig -import Stratosphere.ResourceProperties.EC2SpotFleetTargetGroupsConfig - --- | Full data type definition for EC2SpotFleetLoadBalancersConfig. See --- 'ec2SpotFleetLoadBalancersConfig' for a more convenient constructor. -data EC2SpotFleetLoadBalancersConfig = - EC2SpotFleetLoadBalancersConfig - { _eC2SpotFleetLoadBalancersConfigClassicLoadBalancersConfig :: Maybe EC2SpotFleetClassicLoadBalancersConfig - , _eC2SpotFleetLoadBalancersConfigTargetGroupsConfig :: Maybe EC2SpotFleetTargetGroupsConfig - } deriving (Show, Eq) - -instance ToJSON EC2SpotFleetLoadBalancersConfig where - toJSON EC2SpotFleetLoadBalancersConfig{..} = - object $ - catMaybes - [ fmap (("ClassicLoadBalancersConfig",) . toJSON) _eC2SpotFleetLoadBalancersConfigClassicLoadBalancersConfig - , fmap (("TargetGroupsConfig",) . toJSON) _eC2SpotFleetLoadBalancersConfigTargetGroupsConfig - ] - --- | Constructor for 'EC2SpotFleetLoadBalancersConfig' containing required --- fields as arguments. -ec2SpotFleetLoadBalancersConfig - :: EC2SpotFleetLoadBalancersConfig -ec2SpotFleetLoadBalancersConfig = - EC2SpotFleetLoadBalancersConfig - { _eC2SpotFleetLoadBalancersConfigClassicLoadBalancersConfig = Nothing - , _eC2SpotFleetLoadBalancersConfigTargetGroupsConfig = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-loadbalancersconfig.html#cfn-ec2-spotfleet-loadbalancersconfig-classicloadbalancersconfig -ecsflbcClassicLoadBalancersConfig :: Lens' EC2SpotFleetLoadBalancersConfig (Maybe EC2SpotFleetClassicLoadBalancersConfig) -ecsflbcClassicLoadBalancersConfig = lens _eC2SpotFleetLoadBalancersConfigClassicLoadBalancersConfig (\s a -> s { _eC2SpotFleetLoadBalancersConfigClassicLoadBalancersConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-loadbalancersconfig.html#cfn-ec2-spotfleet-loadbalancersconfig-targetgroupsconfig -ecsflbcTargetGroupsConfig :: Lens' EC2SpotFleetLoadBalancersConfig (Maybe EC2SpotFleetTargetGroupsConfig) -ecsflbcTargetGroupsConfig = lens _eC2SpotFleetLoadBalancersConfigTargetGroupsConfig (\s a -> s { _eC2SpotFleetLoadBalancersConfigTargetGroupsConfig = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetPrivateIpAddressSpecification.hs b/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetPrivateIpAddressSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetPrivateIpAddressSpecification.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-networkinterfaces-privateipaddresses.html - -module Stratosphere.ResourceProperties.EC2SpotFleetPrivateIpAddressSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2SpotFleetPrivateIpAddressSpecification. --- See 'ec2SpotFleetPrivateIpAddressSpecification' for a more convenient --- constructor. -data EC2SpotFleetPrivateIpAddressSpecification = - EC2SpotFleetPrivateIpAddressSpecification - { _eC2SpotFleetPrivateIpAddressSpecificationPrimary :: Maybe (Val Bool) - , _eC2SpotFleetPrivateIpAddressSpecificationPrivateIpAddress :: Val Text - } deriving (Show, Eq) - -instance ToJSON EC2SpotFleetPrivateIpAddressSpecification where - toJSON EC2SpotFleetPrivateIpAddressSpecification{..} = - object $ - catMaybes - [ fmap (("Primary",) . toJSON) _eC2SpotFleetPrivateIpAddressSpecificationPrimary - , (Just . ("PrivateIpAddress",) . toJSON) _eC2SpotFleetPrivateIpAddressSpecificationPrivateIpAddress - ] - --- | Constructor for 'EC2SpotFleetPrivateIpAddressSpecification' containing --- required fields as arguments. -ec2SpotFleetPrivateIpAddressSpecification - :: Val Text -- ^ 'ecsfpiasPrivateIpAddress' - -> EC2SpotFleetPrivateIpAddressSpecification -ec2SpotFleetPrivateIpAddressSpecification privateIpAddressarg = - EC2SpotFleetPrivateIpAddressSpecification - { _eC2SpotFleetPrivateIpAddressSpecificationPrimary = Nothing - , _eC2SpotFleetPrivateIpAddressSpecificationPrivateIpAddress = privateIpAddressarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-networkinterfaces-privateipaddresses.html#cfn-ec2-spotfleet-privateipaddressspecification-primary -ecsfpiasPrimary :: Lens' EC2SpotFleetPrivateIpAddressSpecification (Maybe (Val Bool)) -ecsfpiasPrimary = lens _eC2SpotFleetPrivateIpAddressSpecificationPrimary (\s a -> s { _eC2SpotFleetPrivateIpAddressSpecificationPrimary = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-networkinterfaces-privateipaddresses.html#cfn-ec2-spotfleet-privateipaddressspecification-privateipaddress -ecsfpiasPrivateIpAddress :: Lens' EC2SpotFleetPrivateIpAddressSpecification (Val Text) -ecsfpiasPrivateIpAddress = lens _eC2SpotFleetPrivateIpAddressSpecificationPrivateIpAddress (\s a -> s { _eC2SpotFleetPrivateIpAddressSpecificationPrivateIpAddress = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetSpotFleetLaunchSpecification.hs b/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetSpotFleetLaunchSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetSpotFleetLaunchSpecification.hs +++ /dev/null @@ -1,159 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications.html - -module Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetLaunchSpecification where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2SpotFleetBlockDeviceMapping -import Stratosphere.ResourceProperties.EC2SpotFleetIamInstanceProfileSpecification -import Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetMonitoring -import Stratosphere.ResourceProperties.EC2SpotFleetInstanceNetworkInterfaceSpecification -import Stratosphere.ResourceProperties.EC2SpotFleetSpotPlacement -import Stratosphere.ResourceProperties.EC2SpotFleetGroupIdentifier -import Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetTagSpecification - --- | Full data type definition for EC2SpotFleetSpotFleetLaunchSpecification. --- See 'ec2SpotFleetSpotFleetLaunchSpecification' for a more convenient --- constructor. -data EC2SpotFleetSpotFleetLaunchSpecification = - EC2SpotFleetSpotFleetLaunchSpecification - { _eC2SpotFleetSpotFleetLaunchSpecificationBlockDeviceMappings :: Maybe [EC2SpotFleetBlockDeviceMapping] - , _eC2SpotFleetSpotFleetLaunchSpecificationEbsOptimized :: Maybe (Val Bool) - , _eC2SpotFleetSpotFleetLaunchSpecificationIamInstanceProfile :: Maybe EC2SpotFleetIamInstanceProfileSpecification - , _eC2SpotFleetSpotFleetLaunchSpecificationImageId :: Val Text - , _eC2SpotFleetSpotFleetLaunchSpecificationInstanceType :: Val Text - , _eC2SpotFleetSpotFleetLaunchSpecificationKernelId :: Maybe (Val Text) - , _eC2SpotFleetSpotFleetLaunchSpecificationKeyName :: Maybe (Val Text) - , _eC2SpotFleetSpotFleetLaunchSpecificationMonitoring :: Maybe EC2SpotFleetSpotFleetMonitoring - , _eC2SpotFleetSpotFleetLaunchSpecificationNetworkInterfaces :: Maybe [EC2SpotFleetInstanceNetworkInterfaceSpecification] - , _eC2SpotFleetSpotFleetLaunchSpecificationPlacement :: Maybe EC2SpotFleetSpotPlacement - , _eC2SpotFleetSpotFleetLaunchSpecificationRamdiskId :: Maybe (Val Text) - , _eC2SpotFleetSpotFleetLaunchSpecificationSecurityGroups :: Maybe [EC2SpotFleetGroupIdentifier] - , _eC2SpotFleetSpotFleetLaunchSpecificationSpotPrice :: Maybe (Val Text) - , _eC2SpotFleetSpotFleetLaunchSpecificationSubnetId :: Maybe (Val Text) - , _eC2SpotFleetSpotFleetLaunchSpecificationTagSpecifications :: Maybe [EC2SpotFleetSpotFleetTagSpecification] - , _eC2SpotFleetSpotFleetLaunchSpecificationUserData :: Maybe (Val Text) - , _eC2SpotFleetSpotFleetLaunchSpecificationWeightedCapacity :: Maybe (Val Double) - } deriving (Show, Eq) - -instance ToJSON EC2SpotFleetSpotFleetLaunchSpecification where - toJSON EC2SpotFleetSpotFleetLaunchSpecification{..} = - object $ - catMaybes - [ fmap (("BlockDeviceMappings",) . toJSON) _eC2SpotFleetSpotFleetLaunchSpecificationBlockDeviceMappings - , fmap (("EbsOptimized",) . toJSON) _eC2SpotFleetSpotFleetLaunchSpecificationEbsOptimized - , fmap (("IamInstanceProfile",) . toJSON) _eC2SpotFleetSpotFleetLaunchSpecificationIamInstanceProfile - , (Just . ("ImageId",) . toJSON) _eC2SpotFleetSpotFleetLaunchSpecificationImageId - , (Just . ("InstanceType",) . toJSON) _eC2SpotFleetSpotFleetLaunchSpecificationInstanceType - , fmap (("KernelId",) . toJSON) _eC2SpotFleetSpotFleetLaunchSpecificationKernelId - , fmap (("KeyName",) . toJSON) _eC2SpotFleetSpotFleetLaunchSpecificationKeyName - , fmap (("Monitoring",) . toJSON) _eC2SpotFleetSpotFleetLaunchSpecificationMonitoring - , fmap (("NetworkInterfaces",) . toJSON) _eC2SpotFleetSpotFleetLaunchSpecificationNetworkInterfaces - , fmap (("Placement",) . toJSON) _eC2SpotFleetSpotFleetLaunchSpecificationPlacement - , fmap (("RamdiskId",) . toJSON) _eC2SpotFleetSpotFleetLaunchSpecificationRamdiskId - , fmap (("SecurityGroups",) . toJSON) _eC2SpotFleetSpotFleetLaunchSpecificationSecurityGroups - , fmap (("SpotPrice",) . toJSON) _eC2SpotFleetSpotFleetLaunchSpecificationSpotPrice - , fmap (("SubnetId",) . toJSON) _eC2SpotFleetSpotFleetLaunchSpecificationSubnetId - , fmap (("TagSpecifications",) . toJSON) _eC2SpotFleetSpotFleetLaunchSpecificationTagSpecifications - , fmap (("UserData",) . toJSON) _eC2SpotFleetSpotFleetLaunchSpecificationUserData - , fmap (("WeightedCapacity",) . toJSON) _eC2SpotFleetSpotFleetLaunchSpecificationWeightedCapacity - ] - --- | Constructor for 'EC2SpotFleetSpotFleetLaunchSpecification' containing --- required fields as arguments. -ec2SpotFleetSpotFleetLaunchSpecification - :: Val Text -- ^ 'ecsfsflsImageId' - -> Val Text -- ^ 'ecsfsflsInstanceType' - -> EC2SpotFleetSpotFleetLaunchSpecification -ec2SpotFleetSpotFleetLaunchSpecification imageIdarg instanceTypearg = - EC2SpotFleetSpotFleetLaunchSpecification - { _eC2SpotFleetSpotFleetLaunchSpecificationBlockDeviceMappings = Nothing - , _eC2SpotFleetSpotFleetLaunchSpecificationEbsOptimized = Nothing - , _eC2SpotFleetSpotFleetLaunchSpecificationIamInstanceProfile = Nothing - , _eC2SpotFleetSpotFleetLaunchSpecificationImageId = imageIdarg - , _eC2SpotFleetSpotFleetLaunchSpecificationInstanceType = instanceTypearg - , _eC2SpotFleetSpotFleetLaunchSpecificationKernelId = Nothing - , _eC2SpotFleetSpotFleetLaunchSpecificationKeyName = Nothing - , _eC2SpotFleetSpotFleetLaunchSpecificationMonitoring = Nothing - , _eC2SpotFleetSpotFleetLaunchSpecificationNetworkInterfaces = Nothing - , _eC2SpotFleetSpotFleetLaunchSpecificationPlacement = Nothing - , _eC2SpotFleetSpotFleetLaunchSpecificationRamdiskId = Nothing - , _eC2SpotFleetSpotFleetLaunchSpecificationSecurityGroups = Nothing - , _eC2SpotFleetSpotFleetLaunchSpecificationSpotPrice = Nothing - , _eC2SpotFleetSpotFleetLaunchSpecificationSubnetId = Nothing - , _eC2SpotFleetSpotFleetLaunchSpecificationTagSpecifications = Nothing - , _eC2SpotFleetSpotFleetLaunchSpecificationUserData = Nothing - , _eC2SpotFleetSpotFleetLaunchSpecificationWeightedCapacity = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications.html#cfn-ec2-spotfleet-spotfleetlaunchspecification-blockdevicemappings -ecsfsflsBlockDeviceMappings :: Lens' EC2SpotFleetSpotFleetLaunchSpecification (Maybe [EC2SpotFleetBlockDeviceMapping]) -ecsfsflsBlockDeviceMappings = lens _eC2SpotFleetSpotFleetLaunchSpecificationBlockDeviceMappings (\s a -> s { _eC2SpotFleetSpotFleetLaunchSpecificationBlockDeviceMappings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications.html#cfn-ec2-spotfleet-spotfleetlaunchspecification-ebsoptimized -ecsfsflsEbsOptimized :: Lens' EC2SpotFleetSpotFleetLaunchSpecification (Maybe (Val Bool)) -ecsfsflsEbsOptimized = lens _eC2SpotFleetSpotFleetLaunchSpecificationEbsOptimized (\s a -> s { _eC2SpotFleetSpotFleetLaunchSpecificationEbsOptimized = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications.html#cfn-ec2-spotfleet-spotfleetlaunchspecification-iaminstanceprofile -ecsfsflsIamInstanceProfile :: Lens' EC2SpotFleetSpotFleetLaunchSpecification (Maybe EC2SpotFleetIamInstanceProfileSpecification) -ecsfsflsIamInstanceProfile = lens _eC2SpotFleetSpotFleetLaunchSpecificationIamInstanceProfile (\s a -> s { _eC2SpotFleetSpotFleetLaunchSpecificationIamInstanceProfile = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications.html#cfn-ec2-spotfleet-spotfleetlaunchspecification-imageid -ecsfsflsImageId :: Lens' EC2SpotFleetSpotFleetLaunchSpecification (Val Text) -ecsfsflsImageId = lens _eC2SpotFleetSpotFleetLaunchSpecificationImageId (\s a -> s { _eC2SpotFleetSpotFleetLaunchSpecificationImageId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications.html#cfn-ec2-spotfleet-spotfleetlaunchspecification-instancetype -ecsfsflsInstanceType :: Lens' EC2SpotFleetSpotFleetLaunchSpecification (Val Text) -ecsfsflsInstanceType = lens _eC2SpotFleetSpotFleetLaunchSpecificationInstanceType (\s a -> s { _eC2SpotFleetSpotFleetLaunchSpecificationInstanceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications.html#cfn-ec2-spotfleet-spotfleetlaunchspecification-kernelid -ecsfsflsKernelId :: Lens' EC2SpotFleetSpotFleetLaunchSpecification (Maybe (Val Text)) -ecsfsflsKernelId = lens _eC2SpotFleetSpotFleetLaunchSpecificationKernelId (\s a -> s { _eC2SpotFleetSpotFleetLaunchSpecificationKernelId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications.html#cfn-ec2-spotfleet-spotfleetlaunchspecification-keyname -ecsfsflsKeyName :: Lens' EC2SpotFleetSpotFleetLaunchSpecification (Maybe (Val Text)) -ecsfsflsKeyName = lens _eC2SpotFleetSpotFleetLaunchSpecificationKeyName (\s a -> s { _eC2SpotFleetSpotFleetLaunchSpecificationKeyName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications.html#cfn-ec2-spotfleet-spotfleetlaunchspecification-monitoring -ecsfsflsMonitoring :: Lens' EC2SpotFleetSpotFleetLaunchSpecification (Maybe EC2SpotFleetSpotFleetMonitoring) -ecsfsflsMonitoring = lens _eC2SpotFleetSpotFleetLaunchSpecificationMonitoring (\s a -> s { _eC2SpotFleetSpotFleetLaunchSpecificationMonitoring = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications.html#cfn-ec2-spotfleet-spotfleetlaunchspecification-networkinterfaces -ecsfsflsNetworkInterfaces :: Lens' EC2SpotFleetSpotFleetLaunchSpecification (Maybe [EC2SpotFleetInstanceNetworkInterfaceSpecification]) -ecsfsflsNetworkInterfaces = lens _eC2SpotFleetSpotFleetLaunchSpecificationNetworkInterfaces (\s a -> s { _eC2SpotFleetSpotFleetLaunchSpecificationNetworkInterfaces = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications.html#cfn-ec2-spotfleet-spotfleetlaunchspecification-placement -ecsfsflsPlacement :: Lens' EC2SpotFleetSpotFleetLaunchSpecification (Maybe EC2SpotFleetSpotPlacement) -ecsfsflsPlacement = lens _eC2SpotFleetSpotFleetLaunchSpecificationPlacement (\s a -> s { _eC2SpotFleetSpotFleetLaunchSpecificationPlacement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications.html#cfn-ec2-spotfleet-spotfleetlaunchspecification-ramdiskid -ecsfsflsRamdiskId :: Lens' EC2SpotFleetSpotFleetLaunchSpecification (Maybe (Val Text)) -ecsfsflsRamdiskId = lens _eC2SpotFleetSpotFleetLaunchSpecificationRamdiskId (\s a -> s { _eC2SpotFleetSpotFleetLaunchSpecificationRamdiskId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications.html#cfn-ec2-spotfleet-spotfleetlaunchspecification-securitygroups -ecsfsflsSecurityGroups :: Lens' EC2SpotFleetSpotFleetLaunchSpecification (Maybe [EC2SpotFleetGroupIdentifier]) -ecsfsflsSecurityGroups = lens _eC2SpotFleetSpotFleetLaunchSpecificationSecurityGroups (\s a -> s { _eC2SpotFleetSpotFleetLaunchSpecificationSecurityGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications.html#cfn-ec2-spotfleet-spotfleetlaunchspecification-spotprice -ecsfsflsSpotPrice :: Lens' EC2SpotFleetSpotFleetLaunchSpecification (Maybe (Val Text)) -ecsfsflsSpotPrice = lens _eC2SpotFleetSpotFleetLaunchSpecificationSpotPrice (\s a -> s { _eC2SpotFleetSpotFleetLaunchSpecificationSpotPrice = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications.html#cfn-ec2-spotfleet-spotfleetlaunchspecification-subnetid -ecsfsflsSubnetId :: Lens' EC2SpotFleetSpotFleetLaunchSpecification (Maybe (Val Text)) -ecsfsflsSubnetId = lens _eC2SpotFleetSpotFleetLaunchSpecificationSubnetId (\s a -> s { _eC2SpotFleetSpotFleetLaunchSpecificationSubnetId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications.html#cfn-ec2-spotfleet-spotfleetlaunchspecification-tagspecifications -ecsfsflsTagSpecifications :: Lens' EC2SpotFleetSpotFleetLaunchSpecification (Maybe [EC2SpotFleetSpotFleetTagSpecification]) -ecsfsflsTagSpecifications = lens _eC2SpotFleetSpotFleetLaunchSpecificationTagSpecifications (\s a -> s { _eC2SpotFleetSpotFleetLaunchSpecificationTagSpecifications = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications.html#cfn-ec2-spotfleet-spotfleetlaunchspecification-userdata -ecsfsflsUserData :: Lens' EC2SpotFleetSpotFleetLaunchSpecification (Maybe (Val Text)) -ecsfsflsUserData = lens _eC2SpotFleetSpotFleetLaunchSpecificationUserData (\s a -> s { _eC2SpotFleetSpotFleetLaunchSpecificationUserData = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications.html#cfn-ec2-spotfleet-spotfleetlaunchspecification-weightedcapacity -ecsfsflsWeightedCapacity :: Lens' EC2SpotFleetSpotFleetLaunchSpecification (Maybe (Val Double)) -ecsfsflsWeightedCapacity = lens _eC2SpotFleetSpotFleetLaunchSpecificationWeightedCapacity (\s a -> s { _eC2SpotFleetSpotFleetLaunchSpecificationWeightedCapacity = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetSpotFleetMonitoring.hs b/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetSpotFleetMonitoring.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetSpotFleetMonitoring.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-monitoring.html - -module Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetMonitoring where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2SpotFleetSpotFleetMonitoring. See --- 'ec2SpotFleetSpotFleetMonitoring' for a more convenient constructor. -data EC2SpotFleetSpotFleetMonitoring = - EC2SpotFleetSpotFleetMonitoring - { _eC2SpotFleetSpotFleetMonitoringEnabled :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON EC2SpotFleetSpotFleetMonitoring where - toJSON EC2SpotFleetSpotFleetMonitoring{..} = - object $ - catMaybes - [ fmap (("Enabled",) . toJSON) _eC2SpotFleetSpotFleetMonitoringEnabled - ] - --- | Constructor for 'EC2SpotFleetSpotFleetMonitoring' containing required --- fields as arguments. -ec2SpotFleetSpotFleetMonitoring - :: EC2SpotFleetSpotFleetMonitoring -ec2SpotFleetSpotFleetMonitoring = - EC2SpotFleetSpotFleetMonitoring - { _eC2SpotFleetSpotFleetMonitoringEnabled = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-monitoring.html#cfn-ec2-spotfleet-spotfleetmonitoring-enabled -ecsfsfmEnabled :: Lens' EC2SpotFleetSpotFleetMonitoring (Maybe (Val Bool)) -ecsfsfmEnabled = lens _eC2SpotFleetSpotFleetMonitoringEnabled (\s a -> s { _eC2SpotFleetSpotFleetMonitoringEnabled = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetSpotFleetRequestConfigData.hs b/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetSpotFleetRequestConfigData.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetSpotFleetRequestConfigData.hs +++ /dev/null @@ -1,134 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata.html - -module Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetRequestConfigData where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetLaunchSpecification -import Stratosphere.ResourceProperties.EC2SpotFleetLaunchTemplateConfig -import Stratosphere.ResourceProperties.EC2SpotFleetLoadBalancersConfig - --- | Full data type definition for EC2SpotFleetSpotFleetRequestConfigData. See --- 'ec2SpotFleetSpotFleetRequestConfigData' for a more convenient --- constructor. -data EC2SpotFleetSpotFleetRequestConfigData = - EC2SpotFleetSpotFleetRequestConfigData - { _eC2SpotFleetSpotFleetRequestConfigDataAllocationStrategy :: Maybe (Val Text) - , _eC2SpotFleetSpotFleetRequestConfigDataExcessCapacityTerminationPolicy :: Maybe (Val Text) - , _eC2SpotFleetSpotFleetRequestConfigDataIamFleetRole :: Val Text - , _eC2SpotFleetSpotFleetRequestConfigDataInstanceInterruptionBehavior :: Maybe (Val Text) - , _eC2SpotFleetSpotFleetRequestConfigDataLaunchSpecifications :: Maybe [EC2SpotFleetSpotFleetLaunchSpecification] - , _eC2SpotFleetSpotFleetRequestConfigDataLaunchTemplateConfigs :: Maybe [EC2SpotFleetLaunchTemplateConfig] - , _eC2SpotFleetSpotFleetRequestConfigDataLoadBalancersConfig :: Maybe EC2SpotFleetLoadBalancersConfig - , _eC2SpotFleetSpotFleetRequestConfigDataReplaceUnhealthyInstances :: Maybe (Val Bool) - , _eC2SpotFleetSpotFleetRequestConfigDataSpotPrice :: Maybe (Val Text) - , _eC2SpotFleetSpotFleetRequestConfigDataTargetCapacity :: Val Integer - , _eC2SpotFleetSpotFleetRequestConfigDataTerminateInstancesWithExpiration :: Maybe (Val Bool) - , _eC2SpotFleetSpotFleetRequestConfigDataType :: Maybe (Val Text) - , _eC2SpotFleetSpotFleetRequestConfigDataValidFrom :: Maybe (Val Text) - , _eC2SpotFleetSpotFleetRequestConfigDataValidUntil :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EC2SpotFleetSpotFleetRequestConfigData where - toJSON EC2SpotFleetSpotFleetRequestConfigData{..} = - object $ - catMaybes - [ fmap (("AllocationStrategy",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataAllocationStrategy - , fmap (("ExcessCapacityTerminationPolicy",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataExcessCapacityTerminationPolicy - , (Just . ("IamFleetRole",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataIamFleetRole - , fmap (("InstanceInterruptionBehavior",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataInstanceInterruptionBehavior - , fmap (("LaunchSpecifications",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataLaunchSpecifications - , fmap (("LaunchTemplateConfigs",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataLaunchTemplateConfigs - , fmap (("LoadBalancersConfig",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataLoadBalancersConfig - , fmap (("ReplaceUnhealthyInstances",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataReplaceUnhealthyInstances - , fmap (("SpotPrice",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataSpotPrice - , (Just . ("TargetCapacity",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataTargetCapacity - , fmap (("TerminateInstancesWithExpiration",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataTerminateInstancesWithExpiration - , fmap (("Type",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataType - , fmap (("ValidFrom",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataValidFrom - , fmap (("ValidUntil",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataValidUntil - ] - --- | Constructor for 'EC2SpotFleetSpotFleetRequestConfigData' containing --- required fields as arguments. -ec2SpotFleetSpotFleetRequestConfigData - :: Val Text -- ^ 'ecsfsfrcdIamFleetRole' - -> Val Integer -- ^ 'ecsfsfrcdTargetCapacity' - -> EC2SpotFleetSpotFleetRequestConfigData -ec2SpotFleetSpotFleetRequestConfigData iamFleetRolearg targetCapacityarg = - EC2SpotFleetSpotFleetRequestConfigData - { _eC2SpotFleetSpotFleetRequestConfigDataAllocationStrategy = Nothing - , _eC2SpotFleetSpotFleetRequestConfigDataExcessCapacityTerminationPolicy = Nothing - , _eC2SpotFleetSpotFleetRequestConfigDataIamFleetRole = iamFleetRolearg - , _eC2SpotFleetSpotFleetRequestConfigDataInstanceInterruptionBehavior = Nothing - , _eC2SpotFleetSpotFleetRequestConfigDataLaunchSpecifications = Nothing - , _eC2SpotFleetSpotFleetRequestConfigDataLaunchTemplateConfigs = Nothing - , _eC2SpotFleetSpotFleetRequestConfigDataLoadBalancersConfig = Nothing - , _eC2SpotFleetSpotFleetRequestConfigDataReplaceUnhealthyInstances = Nothing - , _eC2SpotFleetSpotFleetRequestConfigDataSpotPrice = Nothing - , _eC2SpotFleetSpotFleetRequestConfigDataTargetCapacity = targetCapacityarg - , _eC2SpotFleetSpotFleetRequestConfigDataTerminateInstancesWithExpiration = Nothing - , _eC2SpotFleetSpotFleetRequestConfigDataType = Nothing - , _eC2SpotFleetSpotFleetRequestConfigDataValidFrom = Nothing - , _eC2SpotFleetSpotFleetRequestConfigDataValidUntil = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata.html#cfn-ec2-spotfleet-spotfleetrequestconfigdata-allocationstrategy -ecsfsfrcdAllocationStrategy :: Lens' EC2SpotFleetSpotFleetRequestConfigData (Maybe (Val Text)) -ecsfsfrcdAllocationStrategy = lens _eC2SpotFleetSpotFleetRequestConfigDataAllocationStrategy (\s a -> s { _eC2SpotFleetSpotFleetRequestConfigDataAllocationStrategy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata.html#cfn-ec2-spotfleet-spotfleetrequestconfigdata-excesscapacityterminationpolicy -ecsfsfrcdExcessCapacityTerminationPolicy :: Lens' EC2SpotFleetSpotFleetRequestConfigData (Maybe (Val Text)) -ecsfsfrcdExcessCapacityTerminationPolicy = lens _eC2SpotFleetSpotFleetRequestConfigDataExcessCapacityTerminationPolicy (\s a -> s { _eC2SpotFleetSpotFleetRequestConfigDataExcessCapacityTerminationPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata.html#cfn-ec2-spotfleet-spotfleetrequestconfigdata-iamfleetrole -ecsfsfrcdIamFleetRole :: Lens' EC2SpotFleetSpotFleetRequestConfigData (Val Text) -ecsfsfrcdIamFleetRole = lens _eC2SpotFleetSpotFleetRequestConfigDataIamFleetRole (\s a -> s { _eC2SpotFleetSpotFleetRequestConfigDataIamFleetRole = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata.html#cfn-ec2-spotfleet-spotfleetrequestconfigdata-instanceinterruptionbehavior -ecsfsfrcdInstanceInterruptionBehavior :: Lens' EC2SpotFleetSpotFleetRequestConfigData (Maybe (Val Text)) -ecsfsfrcdInstanceInterruptionBehavior = lens _eC2SpotFleetSpotFleetRequestConfigDataInstanceInterruptionBehavior (\s a -> s { _eC2SpotFleetSpotFleetRequestConfigDataInstanceInterruptionBehavior = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata.html#cfn-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications -ecsfsfrcdLaunchSpecifications :: Lens' EC2SpotFleetSpotFleetRequestConfigData (Maybe [EC2SpotFleetSpotFleetLaunchSpecification]) -ecsfsfrcdLaunchSpecifications = lens _eC2SpotFleetSpotFleetRequestConfigDataLaunchSpecifications (\s a -> s { _eC2SpotFleetSpotFleetRequestConfigDataLaunchSpecifications = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata.html#cfn-ec2-spotfleet-spotfleetrequestconfigdata-launchtemplateconfigs -ecsfsfrcdLaunchTemplateConfigs :: Lens' EC2SpotFleetSpotFleetRequestConfigData (Maybe [EC2SpotFleetLaunchTemplateConfig]) -ecsfsfrcdLaunchTemplateConfigs = lens _eC2SpotFleetSpotFleetRequestConfigDataLaunchTemplateConfigs (\s a -> s { _eC2SpotFleetSpotFleetRequestConfigDataLaunchTemplateConfigs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata.html#cfn-ec2-spotfleet-spotfleetrequestconfigdata-loadbalancersconfig -ecsfsfrcdLoadBalancersConfig :: Lens' EC2SpotFleetSpotFleetRequestConfigData (Maybe EC2SpotFleetLoadBalancersConfig) -ecsfsfrcdLoadBalancersConfig = lens _eC2SpotFleetSpotFleetRequestConfigDataLoadBalancersConfig (\s a -> s { _eC2SpotFleetSpotFleetRequestConfigDataLoadBalancersConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata.html#cfn-ec2-spotfleet-spotfleetrequestconfigdata-replaceunhealthyinstances -ecsfsfrcdReplaceUnhealthyInstances :: Lens' EC2SpotFleetSpotFleetRequestConfigData (Maybe (Val Bool)) -ecsfsfrcdReplaceUnhealthyInstances = lens _eC2SpotFleetSpotFleetRequestConfigDataReplaceUnhealthyInstances (\s a -> s { _eC2SpotFleetSpotFleetRequestConfigDataReplaceUnhealthyInstances = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata.html#cfn-ec2-spotfleet-spotfleetrequestconfigdata-spotprice -ecsfsfrcdSpotPrice :: Lens' EC2SpotFleetSpotFleetRequestConfigData (Maybe (Val Text)) -ecsfsfrcdSpotPrice = lens _eC2SpotFleetSpotFleetRequestConfigDataSpotPrice (\s a -> s { _eC2SpotFleetSpotFleetRequestConfigDataSpotPrice = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata.html#cfn-ec2-spotfleet-spotfleetrequestconfigdata-targetcapacity -ecsfsfrcdTargetCapacity :: Lens' EC2SpotFleetSpotFleetRequestConfigData (Val Integer) -ecsfsfrcdTargetCapacity = lens _eC2SpotFleetSpotFleetRequestConfigDataTargetCapacity (\s a -> s { _eC2SpotFleetSpotFleetRequestConfigDataTargetCapacity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata.html#cfn-ec2-spotfleet-spotfleetrequestconfigdata-terminateinstanceswithexpiration -ecsfsfrcdTerminateInstancesWithExpiration :: Lens' EC2SpotFleetSpotFleetRequestConfigData (Maybe (Val Bool)) -ecsfsfrcdTerminateInstancesWithExpiration = lens _eC2SpotFleetSpotFleetRequestConfigDataTerminateInstancesWithExpiration (\s a -> s { _eC2SpotFleetSpotFleetRequestConfigDataTerminateInstancesWithExpiration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata.html#cfn-ec2-spotfleet-spotfleetrequestconfigdata-type -ecsfsfrcdType :: Lens' EC2SpotFleetSpotFleetRequestConfigData (Maybe (Val Text)) -ecsfsfrcdType = lens _eC2SpotFleetSpotFleetRequestConfigDataType (\s a -> s { _eC2SpotFleetSpotFleetRequestConfigDataType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata.html#cfn-ec2-spotfleet-spotfleetrequestconfigdata-validfrom -ecsfsfrcdValidFrom :: Lens' EC2SpotFleetSpotFleetRequestConfigData (Maybe (Val Text)) -ecsfsfrcdValidFrom = lens _eC2SpotFleetSpotFleetRequestConfigDataValidFrom (\s a -> s { _eC2SpotFleetSpotFleetRequestConfigDataValidFrom = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata.html#cfn-ec2-spotfleet-spotfleetrequestconfigdata-validuntil -ecsfsfrcdValidUntil :: Lens' EC2SpotFleetSpotFleetRequestConfigData (Maybe (Val Text)) -ecsfsfrcdValidUntil = lens _eC2SpotFleetSpotFleetRequestConfigDataValidUntil (\s a -> s { _eC2SpotFleetSpotFleetRequestConfigDataValidUntil = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetSpotFleetTagSpecification.hs b/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetSpotFleetTagSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetSpotFleetTagSpecification.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-tagspecifications.html - -module Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetTagSpecification where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for EC2SpotFleetSpotFleetTagSpecification. See --- 'ec2SpotFleetSpotFleetTagSpecification' for a more convenient --- constructor. -data EC2SpotFleetSpotFleetTagSpecification = - EC2SpotFleetSpotFleetTagSpecification - { _eC2SpotFleetSpotFleetTagSpecificationResourceType :: Maybe (Val Text) - , _eC2SpotFleetSpotFleetTagSpecificationTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToJSON EC2SpotFleetSpotFleetTagSpecification where - toJSON EC2SpotFleetSpotFleetTagSpecification{..} = - object $ - catMaybes - [ fmap (("ResourceType",) . toJSON) _eC2SpotFleetSpotFleetTagSpecificationResourceType - , fmap (("Tags",) . toJSON) _eC2SpotFleetSpotFleetTagSpecificationTags - ] - --- | Constructor for 'EC2SpotFleetSpotFleetTagSpecification' containing --- required fields as arguments. -ec2SpotFleetSpotFleetTagSpecification - :: EC2SpotFleetSpotFleetTagSpecification -ec2SpotFleetSpotFleetTagSpecification = - EC2SpotFleetSpotFleetTagSpecification - { _eC2SpotFleetSpotFleetTagSpecificationResourceType = Nothing - , _eC2SpotFleetSpotFleetTagSpecificationTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-tagspecifications.html#cfn-ec2-spotfleet-spotfleettagspecification-resourcetype -ecsfsftsResourceType :: Lens' EC2SpotFleetSpotFleetTagSpecification (Maybe (Val Text)) -ecsfsftsResourceType = lens _eC2SpotFleetSpotFleetTagSpecificationResourceType (\s a -> s { _eC2SpotFleetSpotFleetTagSpecificationResourceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-tagspecifications.html#cfn-ec2-spotfleet-tags -ecsfsftsTags :: Lens' EC2SpotFleetSpotFleetTagSpecification (Maybe [Tag]) -ecsfsftsTags = lens _eC2SpotFleetSpotFleetTagSpecificationTags (\s a -> s { _eC2SpotFleetSpotFleetTagSpecificationTags = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetSpotPlacement.hs b/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetSpotPlacement.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetSpotPlacement.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-placement.html - -module Stratosphere.ResourceProperties.EC2SpotFleetSpotPlacement where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2SpotFleetSpotPlacement. See --- 'ec2SpotFleetSpotPlacement' for a more convenient constructor. -data EC2SpotFleetSpotPlacement = - EC2SpotFleetSpotPlacement - { _eC2SpotFleetSpotPlacementAvailabilityZone :: Maybe (Val Text) - , _eC2SpotFleetSpotPlacementGroupName :: Maybe (Val Text) - , _eC2SpotFleetSpotPlacementTenancy :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EC2SpotFleetSpotPlacement where - toJSON EC2SpotFleetSpotPlacement{..} = - object $ - catMaybes - [ fmap (("AvailabilityZone",) . toJSON) _eC2SpotFleetSpotPlacementAvailabilityZone - , fmap (("GroupName",) . toJSON) _eC2SpotFleetSpotPlacementGroupName - , fmap (("Tenancy",) . toJSON) _eC2SpotFleetSpotPlacementTenancy - ] - --- | Constructor for 'EC2SpotFleetSpotPlacement' containing required fields as --- arguments. -ec2SpotFleetSpotPlacement - :: EC2SpotFleetSpotPlacement -ec2SpotFleetSpotPlacement = - EC2SpotFleetSpotPlacement - { _eC2SpotFleetSpotPlacementAvailabilityZone = Nothing - , _eC2SpotFleetSpotPlacementGroupName = Nothing - , _eC2SpotFleetSpotPlacementTenancy = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-placement.html#cfn-ec2-spotfleet-spotplacement-availabilityzone -ecsfspAvailabilityZone :: Lens' EC2SpotFleetSpotPlacement (Maybe (Val Text)) -ecsfspAvailabilityZone = lens _eC2SpotFleetSpotPlacementAvailabilityZone (\s a -> s { _eC2SpotFleetSpotPlacementAvailabilityZone = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-placement.html#cfn-ec2-spotfleet-spotplacement-groupname -ecsfspGroupName :: Lens' EC2SpotFleetSpotPlacement (Maybe (Val Text)) -ecsfspGroupName = lens _eC2SpotFleetSpotPlacementGroupName (\s a -> s { _eC2SpotFleetSpotPlacementGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-spotfleetrequestconfigdata-launchspecifications-placement.html#cfn-ec2-spotfleet-spotplacement-tenancy -ecsfspTenancy :: Lens' EC2SpotFleetSpotPlacement (Maybe (Val Text)) -ecsfspTenancy = lens _eC2SpotFleetSpotPlacementTenancy (\s a -> s { _eC2SpotFleetSpotPlacementTenancy = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetTargetGroup.hs b/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetTargetGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetTargetGroup.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-targetgroup.html - -module Stratosphere.ResourceProperties.EC2SpotFleetTargetGroup where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2SpotFleetTargetGroup. See --- 'ec2SpotFleetTargetGroup' for a more convenient constructor. -data EC2SpotFleetTargetGroup = - EC2SpotFleetTargetGroup - { _eC2SpotFleetTargetGroupArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON EC2SpotFleetTargetGroup where - toJSON EC2SpotFleetTargetGroup{..} = - object $ - catMaybes - [ (Just . ("Arn",) . toJSON) _eC2SpotFleetTargetGroupArn - ] - --- | Constructor for 'EC2SpotFleetTargetGroup' containing required fields as --- arguments. -ec2SpotFleetTargetGroup - :: Val Text -- ^ 'ecsftgArn' - -> EC2SpotFleetTargetGroup -ec2SpotFleetTargetGroup arnarg = - EC2SpotFleetTargetGroup - { _eC2SpotFleetTargetGroupArn = arnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-targetgroup.html#cfn-ec2-spotfleet-targetgroup-arn -ecsftgArn :: Lens' EC2SpotFleetTargetGroup (Val Text) -ecsftgArn = lens _eC2SpotFleetTargetGroupArn (\s a -> s { _eC2SpotFleetTargetGroupArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetTargetGroupsConfig.hs b/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetTargetGroupsConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2SpotFleetTargetGroupsConfig.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-targetgroupsconfig.html - -module Stratosphere.ResourceProperties.EC2SpotFleetTargetGroupsConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2SpotFleetTargetGroup - --- | Full data type definition for EC2SpotFleetTargetGroupsConfig. See --- 'ec2SpotFleetTargetGroupsConfig' for a more convenient constructor. -data EC2SpotFleetTargetGroupsConfig = - EC2SpotFleetTargetGroupsConfig - { _eC2SpotFleetTargetGroupsConfigTargetGroups :: [EC2SpotFleetTargetGroup] - } deriving (Show, Eq) - -instance ToJSON EC2SpotFleetTargetGroupsConfig where - toJSON EC2SpotFleetTargetGroupsConfig{..} = - object $ - catMaybes - [ (Just . ("TargetGroups",) . toJSON) _eC2SpotFleetTargetGroupsConfigTargetGroups - ] - --- | Constructor for 'EC2SpotFleetTargetGroupsConfig' containing required --- fields as arguments. -ec2SpotFleetTargetGroupsConfig - :: [EC2SpotFleetTargetGroup] -- ^ 'ecsftgcTargetGroups' - -> EC2SpotFleetTargetGroupsConfig -ec2SpotFleetTargetGroupsConfig targetGroupsarg = - EC2SpotFleetTargetGroupsConfig - { _eC2SpotFleetTargetGroupsConfigTargetGroups = targetGroupsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-spotfleet-targetgroupsconfig.html#cfn-ec2-spotfleet-targetgroupsconfig-targetgroups -ecsftgcTargetGroups :: Lens' EC2SpotFleetTargetGroupsConfig [EC2SpotFleetTargetGroup] -ecsftgcTargetGroups = lens _eC2SpotFleetTargetGroupsConfigTargetGroups (\s a -> s { _eC2SpotFleetTargetGroupsConfigTargetGroups = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2TrafficMirrorFilterRuleTrafficMirrorPortRange.hs b/library-gen/Stratosphere/ResourceProperties/EC2TrafficMirrorFilterRuleTrafficMirrorPortRange.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2TrafficMirrorFilterRuleTrafficMirrorPortRange.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-trafficmirrorfilterrule-trafficmirrorportrange.html - -module Stratosphere.ResourceProperties.EC2TrafficMirrorFilterRuleTrafficMirrorPortRange where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- EC2TrafficMirrorFilterRuleTrafficMirrorPortRange. See --- 'ec2TrafficMirrorFilterRuleTrafficMirrorPortRange' for a more convenient --- constructor. -data EC2TrafficMirrorFilterRuleTrafficMirrorPortRange = - EC2TrafficMirrorFilterRuleTrafficMirrorPortRange - { _eC2TrafficMirrorFilterRuleTrafficMirrorPortRangeFromPort :: Val Integer - , _eC2TrafficMirrorFilterRuleTrafficMirrorPortRangeToPort :: Val Integer - } deriving (Show, Eq) - -instance ToJSON EC2TrafficMirrorFilterRuleTrafficMirrorPortRange where - toJSON EC2TrafficMirrorFilterRuleTrafficMirrorPortRange{..} = - object $ - catMaybes - [ (Just . ("FromPort",) . toJSON) _eC2TrafficMirrorFilterRuleTrafficMirrorPortRangeFromPort - , (Just . ("ToPort",) . toJSON) _eC2TrafficMirrorFilterRuleTrafficMirrorPortRangeToPort - ] - --- | Constructor for 'EC2TrafficMirrorFilterRuleTrafficMirrorPortRange' --- containing required fields as arguments. -ec2TrafficMirrorFilterRuleTrafficMirrorPortRange - :: Val Integer -- ^ 'ectmfrtmprFromPort' - -> Val Integer -- ^ 'ectmfrtmprToPort' - -> EC2TrafficMirrorFilterRuleTrafficMirrorPortRange -ec2TrafficMirrorFilterRuleTrafficMirrorPortRange fromPortarg toPortarg = - EC2TrafficMirrorFilterRuleTrafficMirrorPortRange - { _eC2TrafficMirrorFilterRuleTrafficMirrorPortRangeFromPort = fromPortarg - , _eC2TrafficMirrorFilterRuleTrafficMirrorPortRangeToPort = toPortarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-trafficmirrorfilterrule-trafficmirrorportrange.html#cfn-ec2-trafficmirrorfilterrule-trafficmirrorportrange-fromport -ectmfrtmprFromPort :: Lens' EC2TrafficMirrorFilterRuleTrafficMirrorPortRange (Val Integer) -ectmfrtmprFromPort = lens _eC2TrafficMirrorFilterRuleTrafficMirrorPortRangeFromPort (\s a -> s { _eC2TrafficMirrorFilterRuleTrafficMirrorPortRangeFromPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-trafficmirrorfilterrule-trafficmirrorportrange.html#cfn-ec2-trafficmirrorfilterrule-trafficmirrorportrange-toport -ectmfrtmprToPort :: Lens' EC2TrafficMirrorFilterRuleTrafficMirrorPortRange (Val Integer) -ectmfrtmprToPort = lens _eC2TrafficMirrorFilterRuleTrafficMirrorPortRangeToPort (\s a -> s { _eC2TrafficMirrorFilterRuleTrafficMirrorPortRangeToPort = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EC2VPNConnectionVpnTunnelOptionsSpecification.hs b/library-gen/Stratosphere/ResourceProperties/EC2VPNConnectionVpnTunnelOptionsSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EC2VPNConnectionVpnTunnelOptionsSpecification.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-vpnconnection-vpntunneloptionsspecification.html - -module Stratosphere.ResourceProperties.EC2VPNConnectionVpnTunnelOptionsSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- EC2VPNConnectionVpnTunnelOptionsSpecification. See --- 'ec2VPNConnectionVpnTunnelOptionsSpecification' for a more convenient --- constructor. -data EC2VPNConnectionVpnTunnelOptionsSpecification = - EC2VPNConnectionVpnTunnelOptionsSpecification - { _eC2VPNConnectionVpnTunnelOptionsSpecificationPreSharedKey :: Maybe (Val Text) - , _eC2VPNConnectionVpnTunnelOptionsSpecificationTunnelInsideCidr :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EC2VPNConnectionVpnTunnelOptionsSpecification where - toJSON EC2VPNConnectionVpnTunnelOptionsSpecification{..} = - object $ - catMaybes - [ fmap (("PreSharedKey",) . toJSON) _eC2VPNConnectionVpnTunnelOptionsSpecificationPreSharedKey - , fmap (("TunnelInsideCidr",) . toJSON) _eC2VPNConnectionVpnTunnelOptionsSpecificationTunnelInsideCidr - ] - --- | Constructor for 'EC2VPNConnectionVpnTunnelOptionsSpecification' --- containing required fields as arguments. -ec2VPNConnectionVpnTunnelOptionsSpecification - :: EC2VPNConnectionVpnTunnelOptionsSpecification -ec2VPNConnectionVpnTunnelOptionsSpecification = - EC2VPNConnectionVpnTunnelOptionsSpecification - { _eC2VPNConnectionVpnTunnelOptionsSpecificationPreSharedKey = Nothing - , _eC2VPNConnectionVpnTunnelOptionsSpecificationTunnelInsideCidr = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-vpnconnection-vpntunneloptionsspecification.html#cfn-ec2-vpnconnection-vpntunneloptionsspecification-presharedkey -ecvpncvtosPreSharedKey :: Lens' EC2VPNConnectionVpnTunnelOptionsSpecification (Maybe (Val Text)) -ecvpncvtosPreSharedKey = lens _eC2VPNConnectionVpnTunnelOptionsSpecificationPreSharedKey (\s a -> s { _eC2VPNConnectionVpnTunnelOptionsSpecificationPreSharedKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-vpnconnection-vpntunneloptionsspecification.html#cfn-ec2-vpnconnection-vpntunneloptionsspecification-tunnelinsidecidr -ecvpncvtosTunnelInsideCidr :: Lens' EC2VPNConnectionVpnTunnelOptionsSpecification (Maybe (Val Text)) -ecvpncvtosTunnelInsideCidr = lens _eC2VPNConnectionVpnTunnelOptionsSpecificationTunnelInsideCidr (\s a -> s { _eC2VPNConnectionVpnTunnelOptionsSpecificationTunnelInsideCidr = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECRRepositoryLifecyclePolicy.hs b/library-gen/Stratosphere/ResourceProperties/ECRRepositoryLifecyclePolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECRRepositoryLifecyclePolicy.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecr-repository-lifecyclepolicy.html - -module Stratosphere.ResourceProperties.ECRRepositoryLifecyclePolicy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECRRepositoryLifecyclePolicy. See --- 'ecrRepositoryLifecyclePolicy' for a more convenient constructor. -data ECRRepositoryLifecyclePolicy = - ECRRepositoryLifecyclePolicy - { _eCRRepositoryLifecyclePolicyLifecyclePolicyText :: Maybe (Val Text) - , _eCRRepositoryLifecyclePolicyRegistryId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ECRRepositoryLifecyclePolicy where - toJSON ECRRepositoryLifecyclePolicy{..} = - object $ - catMaybes - [ fmap (("LifecyclePolicyText",) . toJSON) _eCRRepositoryLifecyclePolicyLifecyclePolicyText - , fmap (("RegistryId",) . toJSON) _eCRRepositoryLifecyclePolicyRegistryId - ] - --- | Constructor for 'ECRRepositoryLifecyclePolicy' containing required fields --- as arguments. -ecrRepositoryLifecyclePolicy - :: ECRRepositoryLifecyclePolicy -ecrRepositoryLifecyclePolicy = - ECRRepositoryLifecyclePolicy - { _eCRRepositoryLifecyclePolicyLifecyclePolicyText = Nothing - , _eCRRepositoryLifecyclePolicyRegistryId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecr-repository-lifecyclepolicy.html#cfn-ecr-repository-lifecyclepolicy-lifecyclepolicytext -ecrrlpLifecyclePolicyText :: Lens' ECRRepositoryLifecyclePolicy (Maybe (Val Text)) -ecrrlpLifecyclePolicyText = lens _eCRRepositoryLifecyclePolicyLifecyclePolicyText (\s a -> s { _eCRRepositoryLifecyclePolicyLifecyclePolicyText = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecr-repository-lifecyclepolicy.html#cfn-ecr-repository-lifecyclepolicy-registryid -ecrrlpRegistryId :: Lens' ECRRepositoryLifecyclePolicy (Maybe (Val Text)) -ecrrlpRegistryId = lens _eCRRepositoryLifecyclePolicyRegistryId (\s a -> s { _eCRRepositoryLifecyclePolicyRegistryId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSCapacityProviderAutoScalingGroupProvider.hs b/library-gen/Stratosphere/ResourceProperties/ECSCapacityProviderAutoScalingGroupProvider.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSCapacityProviderAutoScalingGroupProvider.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-capacityprovider-autoscalinggroupprovider.html - -module Stratosphere.ResourceProperties.ECSCapacityProviderAutoScalingGroupProvider where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ECSCapacityProviderManagedScaling - --- | Full data type definition for --- ECSCapacityProviderAutoScalingGroupProvider. See --- 'ecsCapacityProviderAutoScalingGroupProvider' for a more convenient --- constructor. -data ECSCapacityProviderAutoScalingGroupProvider = - ECSCapacityProviderAutoScalingGroupProvider - { _eCSCapacityProviderAutoScalingGroupProviderAutoScalingGroupArn :: Val Text - , _eCSCapacityProviderAutoScalingGroupProviderManagedScaling :: Maybe ECSCapacityProviderManagedScaling - , _eCSCapacityProviderAutoScalingGroupProviderManagedTerminationProtection :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ECSCapacityProviderAutoScalingGroupProvider where - toJSON ECSCapacityProviderAutoScalingGroupProvider{..} = - object $ - catMaybes - [ (Just . ("AutoScalingGroupArn",) . toJSON) _eCSCapacityProviderAutoScalingGroupProviderAutoScalingGroupArn - , fmap (("ManagedScaling",) . toJSON) _eCSCapacityProviderAutoScalingGroupProviderManagedScaling - , fmap (("ManagedTerminationProtection",) . toJSON) _eCSCapacityProviderAutoScalingGroupProviderManagedTerminationProtection - ] - --- | Constructor for 'ECSCapacityProviderAutoScalingGroupProvider' containing --- required fields as arguments. -ecsCapacityProviderAutoScalingGroupProvider - :: Val Text -- ^ 'ecscpasgpAutoScalingGroupArn' - -> ECSCapacityProviderAutoScalingGroupProvider -ecsCapacityProviderAutoScalingGroupProvider autoScalingGroupArnarg = - ECSCapacityProviderAutoScalingGroupProvider - { _eCSCapacityProviderAutoScalingGroupProviderAutoScalingGroupArn = autoScalingGroupArnarg - , _eCSCapacityProviderAutoScalingGroupProviderManagedScaling = Nothing - , _eCSCapacityProviderAutoScalingGroupProviderManagedTerminationProtection = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-capacityprovider-autoscalinggroupprovider.html#cfn-ecs-capacityprovider-autoscalinggroupprovider-autoscalinggrouparn -ecscpasgpAutoScalingGroupArn :: Lens' ECSCapacityProviderAutoScalingGroupProvider (Val Text) -ecscpasgpAutoScalingGroupArn = lens _eCSCapacityProviderAutoScalingGroupProviderAutoScalingGroupArn (\s a -> s { _eCSCapacityProviderAutoScalingGroupProviderAutoScalingGroupArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-capacityprovider-autoscalinggroupprovider.html#cfn-ecs-capacityprovider-autoscalinggroupprovider-managedscaling -ecscpasgpManagedScaling :: Lens' ECSCapacityProviderAutoScalingGroupProvider (Maybe ECSCapacityProviderManagedScaling) -ecscpasgpManagedScaling = lens _eCSCapacityProviderAutoScalingGroupProviderManagedScaling (\s a -> s { _eCSCapacityProviderAutoScalingGroupProviderManagedScaling = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-capacityprovider-autoscalinggroupprovider.html#cfn-ecs-capacityprovider-autoscalinggroupprovider-managedterminationprotection -ecscpasgpManagedTerminationProtection :: Lens' ECSCapacityProviderAutoScalingGroupProvider (Maybe (Val Text)) -ecscpasgpManagedTerminationProtection = lens _eCSCapacityProviderAutoScalingGroupProviderManagedTerminationProtection (\s a -> s { _eCSCapacityProviderAutoScalingGroupProviderManagedTerminationProtection = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSCapacityProviderManagedScaling.hs b/library-gen/Stratosphere/ResourceProperties/ECSCapacityProviderManagedScaling.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSCapacityProviderManagedScaling.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-capacityprovider-managedscaling.html - -module Stratosphere.ResourceProperties.ECSCapacityProviderManagedScaling where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSCapacityProviderManagedScaling. See --- 'ecsCapacityProviderManagedScaling' for a more convenient constructor. -data ECSCapacityProviderManagedScaling = - ECSCapacityProviderManagedScaling - { _eCSCapacityProviderManagedScalingMaximumScalingStepSize :: Maybe (Val Integer) - , _eCSCapacityProviderManagedScalingMinimumScalingStepSize :: Maybe (Val Integer) - , _eCSCapacityProviderManagedScalingStatus :: Maybe (Val Text) - , _eCSCapacityProviderManagedScalingTargetCapacity :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON ECSCapacityProviderManagedScaling where - toJSON ECSCapacityProviderManagedScaling{..} = - object $ - catMaybes - [ fmap (("MaximumScalingStepSize",) . toJSON) _eCSCapacityProviderManagedScalingMaximumScalingStepSize - , fmap (("MinimumScalingStepSize",) . toJSON) _eCSCapacityProviderManagedScalingMinimumScalingStepSize - , fmap (("Status",) . toJSON) _eCSCapacityProviderManagedScalingStatus - , fmap (("TargetCapacity",) . toJSON) _eCSCapacityProviderManagedScalingTargetCapacity - ] - --- | Constructor for 'ECSCapacityProviderManagedScaling' containing required --- fields as arguments. -ecsCapacityProviderManagedScaling - :: ECSCapacityProviderManagedScaling -ecsCapacityProviderManagedScaling = - ECSCapacityProviderManagedScaling - { _eCSCapacityProviderManagedScalingMaximumScalingStepSize = Nothing - , _eCSCapacityProviderManagedScalingMinimumScalingStepSize = Nothing - , _eCSCapacityProviderManagedScalingStatus = Nothing - , _eCSCapacityProviderManagedScalingTargetCapacity = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-capacityprovider-managedscaling.html#cfn-ecs-capacityprovider-managedscaling-maximumscalingstepsize -ecscpmsMaximumScalingStepSize :: Lens' ECSCapacityProviderManagedScaling (Maybe (Val Integer)) -ecscpmsMaximumScalingStepSize = lens _eCSCapacityProviderManagedScalingMaximumScalingStepSize (\s a -> s { _eCSCapacityProviderManagedScalingMaximumScalingStepSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-capacityprovider-managedscaling.html#cfn-ecs-capacityprovider-managedscaling-minimumscalingstepsize -ecscpmsMinimumScalingStepSize :: Lens' ECSCapacityProviderManagedScaling (Maybe (Val Integer)) -ecscpmsMinimumScalingStepSize = lens _eCSCapacityProviderManagedScalingMinimumScalingStepSize (\s a -> s { _eCSCapacityProviderManagedScalingMinimumScalingStepSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-capacityprovider-managedscaling.html#cfn-ecs-capacityprovider-managedscaling-status -ecscpmsStatus :: Lens' ECSCapacityProviderManagedScaling (Maybe (Val Text)) -ecscpmsStatus = lens _eCSCapacityProviderManagedScalingStatus (\s a -> s { _eCSCapacityProviderManagedScalingStatus = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-capacityprovider-managedscaling.html#cfn-ecs-capacityprovider-managedscaling-targetcapacity -ecscpmsTargetCapacity :: Lens' ECSCapacityProviderManagedScaling (Maybe (Val Integer)) -ecscpmsTargetCapacity = lens _eCSCapacityProviderManagedScalingTargetCapacity (\s a -> s { _eCSCapacityProviderManagedScalingTargetCapacity = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSClusterCapacityProviderStrategyItem.hs b/library-gen/Stratosphere/ResourceProperties/ECSClusterCapacityProviderStrategyItem.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSClusterCapacityProviderStrategyItem.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-cluster-capacityproviderstrategyitem.html - -module Stratosphere.ResourceProperties.ECSClusterCapacityProviderStrategyItem where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSClusterCapacityProviderStrategyItem. See --- 'ecsClusterCapacityProviderStrategyItem' for a more convenient --- constructor. -data ECSClusterCapacityProviderStrategyItem = - ECSClusterCapacityProviderStrategyItem - { _eCSClusterCapacityProviderStrategyItemBase :: Maybe (Val Integer) - , _eCSClusterCapacityProviderStrategyItemCapacityProvider :: Maybe (Val Text) - , _eCSClusterCapacityProviderStrategyItemWeight :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON ECSClusterCapacityProviderStrategyItem where - toJSON ECSClusterCapacityProviderStrategyItem{..} = - object $ - catMaybes - [ fmap (("Base",) . toJSON) _eCSClusterCapacityProviderStrategyItemBase - , fmap (("CapacityProvider",) . toJSON) _eCSClusterCapacityProviderStrategyItemCapacityProvider - , fmap (("Weight",) . toJSON) _eCSClusterCapacityProviderStrategyItemWeight - ] - --- | Constructor for 'ECSClusterCapacityProviderStrategyItem' containing --- required fields as arguments. -ecsClusterCapacityProviderStrategyItem - :: ECSClusterCapacityProviderStrategyItem -ecsClusterCapacityProviderStrategyItem = - ECSClusterCapacityProviderStrategyItem - { _eCSClusterCapacityProviderStrategyItemBase = Nothing - , _eCSClusterCapacityProviderStrategyItemCapacityProvider = Nothing - , _eCSClusterCapacityProviderStrategyItemWeight = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-cluster-capacityproviderstrategyitem.html#cfn-ecs-cluster-capacityproviderstrategyitem-base -ecsccpsiBase :: Lens' ECSClusterCapacityProviderStrategyItem (Maybe (Val Integer)) -ecsccpsiBase = lens _eCSClusterCapacityProviderStrategyItemBase (\s a -> s { _eCSClusterCapacityProviderStrategyItemBase = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-cluster-capacityproviderstrategyitem.html#cfn-ecs-cluster-capacityproviderstrategyitem-capacityprovider -ecsccpsiCapacityProvider :: Lens' ECSClusterCapacityProviderStrategyItem (Maybe (Val Text)) -ecsccpsiCapacityProvider = lens _eCSClusterCapacityProviderStrategyItemCapacityProvider (\s a -> s { _eCSClusterCapacityProviderStrategyItemCapacityProvider = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-cluster-capacityproviderstrategyitem.html#cfn-ecs-cluster-capacityproviderstrategyitem-weight -ecsccpsiWeight :: Lens' ECSClusterCapacityProviderStrategyItem (Maybe (Val Integer)) -ecsccpsiWeight = lens _eCSClusterCapacityProviderStrategyItemWeight (\s a -> s { _eCSClusterCapacityProviderStrategyItemWeight = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSClusterClusterSettings.hs b/library-gen/Stratosphere/ResourceProperties/ECSClusterClusterSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSClusterClusterSettings.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-cluster-clustersettings.html - -module Stratosphere.ResourceProperties.ECSClusterClusterSettings where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSClusterClusterSettings. See --- 'ecsClusterClusterSettings' for a more convenient constructor. -data ECSClusterClusterSettings = - ECSClusterClusterSettings - { _eCSClusterClusterSettingsName :: Maybe (Val Text) - , _eCSClusterClusterSettingsValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ECSClusterClusterSettings where - toJSON ECSClusterClusterSettings{..} = - object $ - catMaybes - [ fmap (("Name",) . toJSON) _eCSClusterClusterSettingsName - , fmap (("Value",) . toJSON) _eCSClusterClusterSettingsValue - ] - --- | Constructor for 'ECSClusterClusterSettings' containing required fields as --- arguments. -ecsClusterClusterSettings - :: ECSClusterClusterSettings -ecsClusterClusterSettings = - ECSClusterClusterSettings - { _eCSClusterClusterSettingsName = Nothing - , _eCSClusterClusterSettingsValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-cluster-clustersettings.html#cfn-ecs-cluster-clustersettings-name -ecsccsName :: Lens' ECSClusterClusterSettings (Maybe (Val Text)) -ecsccsName = lens _eCSClusterClusterSettingsName (\s a -> s { _eCSClusterClusterSettingsName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-cluster-clustersettings.html#cfn-ecs-cluster-clustersettings-value -ecsccsValue :: Lens' ECSClusterClusterSettings (Maybe (Val Text)) -ecsccsValue = lens _eCSClusterClusterSettingsValue (\s a -> s { _eCSClusterClusterSettingsValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSServiceAwsVpcConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ECSServiceAwsVpcConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSServiceAwsVpcConfiguration.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-awsvpcconfiguration.html - -module Stratosphere.ResourceProperties.ECSServiceAwsVpcConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSServiceAwsVpcConfiguration. See --- 'ecsServiceAwsVpcConfiguration' for a more convenient constructor. -data ECSServiceAwsVpcConfiguration = - ECSServiceAwsVpcConfiguration - { _eCSServiceAwsVpcConfigurationAssignPublicIp :: Maybe (Val Text) - , _eCSServiceAwsVpcConfigurationSecurityGroups :: Maybe (ValList Text) - , _eCSServiceAwsVpcConfigurationSubnets :: ValList Text - } deriving (Show, Eq) - -instance ToJSON ECSServiceAwsVpcConfiguration where - toJSON ECSServiceAwsVpcConfiguration{..} = - object $ - catMaybes - [ fmap (("AssignPublicIp",) . toJSON) _eCSServiceAwsVpcConfigurationAssignPublicIp - , fmap (("SecurityGroups",) . toJSON) _eCSServiceAwsVpcConfigurationSecurityGroups - , (Just . ("Subnets",) . toJSON) _eCSServiceAwsVpcConfigurationSubnets - ] - --- | Constructor for 'ECSServiceAwsVpcConfiguration' containing required --- fields as arguments. -ecsServiceAwsVpcConfiguration - :: ValList Text -- ^ 'ecssavcSubnets' - -> ECSServiceAwsVpcConfiguration -ecsServiceAwsVpcConfiguration subnetsarg = - ECSServiceAwsVpcConfiguration - { _eCSServiceAwsVpcConfigurationAssignPublicIp = Nothing - , _eCSServiceAwsVpcConfigurationSecurityGroups = Nothing - , _eCSServiceAwsVpcConfigurationSubnets = subnetsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-awsvpcconfiguration.html#cfn-ecs-service-awsvpcconfiguration-assignpublicip -ecssavcAssignPublicIp :: Lens' ECSServiceAwsVpcConfiguration (Maybe (Val Text)) -ecssavcAssignPublicIp = lens _eCSServiceAwsVpcConfigurationAssignPublicIp (\s a -> s { _eCSServiceAwsVpcConfigurationAssignPublicIp = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-awsvpcconfiguration.html#cfn-ecs-service-awsvpcconfiguration-securitygroups -ecssavcSecurityGroups :: Lens' ECSServiceAwsVpcConfiguration (Maybe (ValList Text)) -ecssavcSecurityGroups = lens _eCSServiceAwsVpcConfigurationSecurityGroups (\s a -> s { _eCSServiceAwsVpcConfigurationSecurityGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-awsvpcconfiguration.html#cfn-ecs-service-awsvpcconfiguration-subnets -ecssavcSubnets :: Lens' ECSServiceAwsVpcConfiguration (ValList Text) -ecssavcSubnets = lens _eCSServiceAwsVpcConfigurationSubnets (\s a -> s { _eCSServiceAwsVpcConfigurationSubnets = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSServiceDeploymentConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ECSServiceDeploymentConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSServiceDeploymentConfiguration.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-deploymentconfiguration.html - -module Stratosphere.ResourceProperties.ECSServiceDeploymentConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSServiceDeploymentConfiguration. See --- 'ecsServiceDeploymentConfiguration' for a more convenient constructor. -data ECSServiceDeploymentConfiguration = - ECSServiceDeploymentConfiguration - { _eCSServiceDeploymentConfigurationMaximumPercent :: Maybe (Val Integer) - , _eCSServiceDeploymentConfigurationMinimumHealthyPercent :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON ECSServiceDeploymentConfiguration where - toJSON ECSServiceDeploymentConfiguration{..} = - object $ - catMaybes - [ fmap (("MaximumPercent",) . toJSON) _eCSServiceDeploymentConfigurationMaximumPercent - , fmap (("MinimumHealthyPercent",) . toJSON) _eCSServiceDeploymentConfigurationMinimumHealthyPercent - ] - --- | Constructor for 'ECSServiceDeploymentConfiguration' containing required --- fields as arguments. -ecsServiceDeploymentConfiguration - :: ECSServiceDeploymentConfiguration -ecsServiceDeploymentConfiguration = - ECSServiceDeploymentConfiguration - { _eCSServiceDeploymentConfigurationMaximumPercent = Nothing - , _eCSServiceDeploymentConfigurationMinimumHealthyPercent = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-deploymentconfiguration.html#cfn-ecs-service-deploymentconfiguration-maximumpercent -ecssdcMaximumPercent :: Lens' ECSServiceDeploymentConfiguration (Maybe (Val Integer)) -ecssdcMaximumPercent = lens _eCSServiceDeploymentConfigurationMaximumPercent (\s a -> s { _eCSServiceDeploymentConfigurationMaximumPercent = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-deploymentconfiguration.html#cfn-ecs-service-deploymentconfiguration-minimumhealthypercent -ecssdcMinimumHealthyPercent :: Lens' ECSServiceDeploymentConfiguration (Maybe (Val Integer)) -ecssdcMinimumHealthyPercent = lens _eCSServiceDeploymentConfigurationMinimumHealthyPercent (\s a -> s { _eCSServiceDeploymentConfigurationMinimumHealthyPercent = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSServiceDeploymentController.hs b/library-gen/Stratosphere/ResourceProperties/ECSServiceDeploymentController.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSServiceDeploymentController.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-deploymentcontroller.html - -module Stratosphere.ResourceProperties.ECSServiceDeploymentController where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSServiceDeploymentController. See --- 'ecsServiceDeploymentController' for a more convenient constructor. -data ECSServiceDeploymentController = - ECSServiceDeploymentController - { _eCSServiceDeploymentControllerType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ECSServiceDeploymentController where - toJSON ECSServiceDeploymentController{..} = - object $ - catMaybes - [ fmap (("Type",) . toJSON) _eCSServiceDeploymentControllerType - ] - --- | Constructor for 'ECSServiceDeploymentController' containing required --- fields as arguments. -ecsServiceDeploymentController - :: ECSServiceDeploymentController -ecsServiceDeploymentController = - ECSServiceDeploymentController - { _eCSServiceDeploymentControllerType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-deploymentcontroller.html#cfn-ecs-service-deploymentcontroller-type -ecssdcType :: Lens' ECSServiceDeploymentController (Maybe (Val Text)) -ecssdcType = lens _eCSServiceDeploymentControllerType (\s a -> s { _eCSServiceDeploymentControllerType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSServiceLoadBalancer.hs b/library-gen/Stratosphere/ResourceProperties/ECSServiceLoadBalancer.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSServiceLoadBalancer.hs +++ /dev/null @@ -1,60 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-loadbalancers.html - -module Stratosphere.ResourceProperties.ECSServiceLoadBalancer where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSServiceLoadBalancer. See --- 'ecsServiceLoadBalancer' for a more convenient constructor. -data ECSServiceLoadBalancer = - ECSServiceLoadBalancer - { _eCSServiceLoadBalancerContainerName :: Maybe (Val Text) - , _eCSServiceLoadBalancerContainerPort :: Val Integer - , _eCSServiceLoadBalancerLoadBalancerName :: Maybe (Val Text) - , _eCSServiceLoadBalancerTargetGroupArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ECSServiceLoadBalancer where - toJSON ECSServiceLoadBalancer{..} = - object $ - catMaybes - [ fmap (("ContainerName",) . toJSON) _eCSServiceLoadBalancerContainerName - , (Just . ("ContainerPort",) . toJSON) _eCSServiceLoadBalancerContainerPort - , fmap (("LoadBalancerName",) . toJSON) _eCSServiceLoadBalancerLoadBalancerName - , fmap (("TargetGroupArn",) . toJSON) _eCSServiceLoadBalancerTargetGroupArn - ] - --- | Constructor for 'ECSServiceLoadBalancer' containing required fields as --- arguments. -ecsServiceLoadBalancer - :: Val Integer -- ^ 'ecsslbContainerPort' - -> ECSServiceLoadBalancer -ecsServiceLoadBalancer containerPortarg = - ECSServiceLoadBalancer - { _eCSServiceLoadBalancerContainerName = Nothing - , _eCSServiceLoadBalancerContainerPort = containerPortarg - , _eCSServiceLoadBalancerLoadBalancerName = Nothing - , _eCSServiceLoadBalancerTargetGroupArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-loadbalancers.html#cfn-ecs-service-loadbalancers-containername -ecsslbContainerName :: Lens' ECSServiceLoadBalancer (Maybe (Val Text)) -ecsslbContainerName = lens _eCSServiceLoadBalancerContainerName (\s a -> s { _eCSServiceLoadBalancerContainerName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-loadbalancers.html#cfn-ecs-service-loadbalancers-containerport -ecsslbContainerPort :: Lens' ECSServiceLoadBalancer (Val Integer) -ecsslbContainerPort = lens _eCSServiceLoadBalancerContainerPort (\s a -> s { _eCSServiceLoadBalancerContainerPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-loadbalancers.html#cfn-ecs-service-loadbalancers-loadbalancername -ecsslbLoadBalancerName :: Lens' ECSServiceLoadBalancer (Maybe (Val Text)) -ecsslbLoadBalancerName = lens _eCSServiceLoadBalancerLoadBalancerName (\s a -> s { _eCSServiceLoadBalancerLoadBalancerName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-loadbalancers.html#cfn-ecs-service-loadbalancers-targetgrouparn -ecsslbTargetGroupArn :: Lens' ECSServiceLoadBalancer (Maybe (Val Text)) -ecsslbTargetGroupArn = lens _eCSServiceLoadBalancerTargetGroupArn (\s a -> s { _eCSServiceLoadBalancerTargetGroupArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSServiceNetworkConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ECSServiceNetworkConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSServiceNetworkConfiguration.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-networkconfiguration.html - -module Stratosphere.ResourceProperties.ECSServiceNetworkConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ECSServiceAwsVpcConfiguration - --- | Full data type definition for ECSServiceNetworkConfiguration. See --- 'ecsServiceNetworkConfiguration' for a more convenient constructor. -data ECSServiceNetworkConfiguration = - ECSServiceNetworkConfiguration - { _eCSServiceNetworkConfigurationAwsvpcConfiguration :: Maybe ECSServiceAwsVpcConfiguration - } deriving (Show, Eq) - -instance ToJSON ECSServiceNetworkConfiguration where - toJSON ECSServiceNetworkConfiguration{..} = - object $ - catMaybes - [ fmap (("AwsvpcConfiguration",) . toJSON) _eCSServiceNetworkConfigurationAwsvpcConfiguration - ] - --- | Constructor for 'ECSServiceNetworkConfiguration' containing required --- fields as arguments. -ecsServiceNetworkConfiguration - :: ECSServiceNetworkConfiguration -ecsServiceNetworkConfiguration = - ECSServiceNetworkConfiguration - { _eCSServiceNetworkConfigurationAwsvpcConfiguration = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-networkconfiguration.html#cfn-ecs-service-networkconfiguration-awsvpcconfiguration -ecssncAwsvpcConfiguration :: Lens' ECSServiceNetworkConfiguration (Maybe ECSServiceAwsVpcConfiguration) -ecssncAwsvpcConfiguration = lens _eCSServiceNetworkConfigurationAwsvpcConfiguration (\s a -> s { _eCSServiceNetworkConfigurationAwsvpcConfiguration = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSServicePlacementConstraint.hs b/library-gen/Stratosphere/ResourceProperties/ECSServicePlacementConstraint.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSServicePlacementConstraint.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-placementconstraint.html - -module Stratosphere.ResourceProperties.ECSServicePlacementConstraint where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSServicePlacementConstraint. See --- 'ecsServicePlacementConstraint' for a more convenient constructor. -data ECSServicePlacementConstraint = - ECSServicePlacementConstraint - { _eCSServicePlacementConstraintExpression :: Maybe (Val Text) - , _eCSServicePlacementConstraintType :: Val Text - } deriving (Show, Eq) - -instance ToJSON ECSServicePlacementConstraint where - toJSON ECSServicePlacementConstraint{..} = - object $ - catMaybes - [ fmap (("Expression",) . toJSON) _eCSServicePlacementConstraintExpression - , (Just . ("Type",) . toJSON) _eCSServicePlacementConstraintType - ] - --- | Constructor for 'ECSServicePlacementConstraint' containing required --- fields as arguments. -ecsServicePlacementConstraint - :: Val Text -- ^ 'ecsspcType' - -> ECSServicePlacementConstraint -ecsServicePlacementConstraint typearg = - ECSServicePlacementConstraint - { _eCSServicePlacementConstraintExpression = Nothing - , _eCSServicePlacementConstraintType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-placementconstraint.html#cfn-ecs-service-placementconstraint-expression -ecsspcExpression :: Lens' ECSServicePlacementConstraint (Maybe (Val Text)) -ecsspcExpression = lens _eCSServicePlacementConstraintExpression (\s a -> s { _eCSServicePlacementConstraintExpression = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-placementconstraint.html#cfn-ecs-service-placementconstraint-type -ecsspcType :: Lens' ECSServicePlacementConstraint (Val Text) -ecsspcType = lens _eCSServicePlacementConstraintType (\s a -> s { _eCSServicePlacementConstraintType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSServicePlacementStrategy.hs b/library-gen/Stratosphere/ResourceProperties/ECSServicePlacementStrategy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSServicePlacementStrategy.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-placementstrategy.html - -module Stratosphere.ResourceProperties.ECSServicePlacementStrategy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSServicePlacementStrategy. See --- 'ecsServicePlacementStrategy' for a more convenient constructor. -data ECSServicePlacementStrategy = - ECSServicePlacementStrategy - { _eCSServicePlacementStrategyField :: Maybe (Val Text) - , _eCSServicePlacementStrategyType :: Val Text - } deriving (Show, Eq) - -instance ToJSON ECSServicePlacementStrategy where - toJSON ECSServicePlacementStrategy{..} = - object $ - catMaybes - [ fmap (("Field",) . toJSON) _eCSServicePlacementStrategyField - , (Just . ("Type",) . toJSON) _eCSServicePlacementStrategyType - ] - --- | Constructor for 'ECSServicePlacementStrategy' containing required fields --- as arguments. -ecsServicePlacementStrategy - :: Val Text -- ^ 'ecsspsType' - -> ECSServicePlacementStrategy -ecsServicePlacementStrategy typearg = - ECSServicePlacementStrategy - { _eCSServicePlacementStrategyField = Nothing - , _eCSServicePlacementStrategyType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-placementstrategy.html#cfn-ecs-service-placementstrategy-field -ecsspsField :: Lens' ECSServicePlacementStrategy (Maybe (Val Text)) -ecsspsField = lens _eCSServicePlacementStrategyField (\s a -> s { _eCSServicePlacementStrategyField = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-placementstrategy.html#cfn-ecs-service-placementstrategy-type -ecsspsType :: Lens' ECSServicePlacementStrategy (Val Text) -ecsspsType = lens _eCSServicePlacementStrategyType (\s a -> s { _eCSServicePlacementStrategyType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSServiceServiceRegistry.hs b/library-gen/Stratosphere/ResourceProperties/ECSServiceServiceRegistry.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSServiceServiceRegistry.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-serviceregistry.html - -module Stratosphere.ResourceProperties.ECSServiceServiceRegistry where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSServiceServiceRegistry. See --- 'ecsServiceServiceRegistry' for a more convenient constructor. -data ECSServiceServiceRegistry = - ECSServiceServiceRegistry - { _eCSServiceServiceRegistryContainerName :: Maybe (Val Text) - , _eCSServiceServiceRegistryContainerPort :: Maybe (Val Integer) - , _eCSServiceServiceRegistryPort :: Maybe (Val Integer) - , _eCSServiceServiceRegistryRegistryArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ECSServiceServiceRegistry where - toJSON ECSServiceServiceRegistry{..} = - object $ - catMaybes - [ fmap (("ContainerName",) . toJSON) _eCSServiceServiceRegistryContainerName - , fmap (("ContainerPort",) . toJSON) _eCSServiceServiceRegistryContainerPort - , fmap (("Port",) . toJSON) _eCSServiceServiceRegistryPort - , fmap (("RegistryArn",) . toJSON) _eCSServiceServiceRegistryRegistryArn - ] - --- | Constructor for 'ECSServiceServiceRegistry' containing required fields as --- arguments. -ecsServiceServiceRegistry - :: ECSServiceServiceRegistry -ecsServiceServiceRegistry = - ECSServiceServiceRegistry - { _eCSServiceServiceRegistryContainerName = Nothing - , _eCSServiceServiceRegistryContainerPort = Nothing - , _eCSServiceServiceRegistryPort = Nothing - , _eCSServiceServiceRegistryRegistryArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-serviceregistry.html#cfn-ecs-service-serviceregistry-containername -ecsssrContainerName :: Lens' ECSServiceServiceRegistry (Maybe (Val Text)) -ecsssrContainerName = lens _eCSServiceServiceRegistryContainerName (\s a -> s { _eCSServiceServiceRegistryContainerName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-serviceregistry.html#cfn-ecs-service-serviceregistry-containerport -ecsssrContainerPort :: Lens' ECSServiceServiceRegistry (Maybe (Val Integer)) -ecsssrContainerPort = lens _eCSServiceServiceRegistryContainerPort (\s a -> s { _eCSServiceServiceRegistryContainerPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-serviceregistry.html#cfn-ecs-service-serviceregistry-port -ecsssrPort :: Lens' ECSServiceServiceRegistry (Maybe (Val Integer)) -ecsssrPort = lens _eCSServiceServiceRegistryPort (\s a -> s { _eCSServiceServiceRegistryPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-service-serviceregistry.html#cfn-ecs-service-serviceregistry-registryarn -ecsssrRegistryArn :: Lens' ECSServiceServiceRegistry (Maybe (Val Text)) -ecsssrRegistryArn = lens _eCSServiceServiceRegistryRegistryArn (\s a -> s { _eCSServiceServiceRegistryRegistryArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionAuthorizationConfig.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionAuthorizationConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionAuthorizationConfig.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-authorizationconfig.html - -module Stratosphere.ResourceProperties.ECSTaskDefinitionAuthorizationConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSTaskDefinitionAuthorizationConfig. See --- 'ecsTaskDefinitionAuthorizationConfig' for a more convenient constructor. -data ECSTaskDefinitionAuthorizationConfig = - ECSTaskDefinitionAuthorizationConfig - { _eCSTaskDefinitionAuthorizationConfigAccessPointId :: Maybe (Val Text) - , _eCSTaskDefinitionAuthorizationConfigIAM :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ECSTaskDefinitionAuthorizationConfig where - toJSON ECSTaskDefinitionAuthorizationConfig{..} = - object $ - catMaybes - [ fmap (("AccessPointId",) . toJSON) _eCSTaskDefinitionAuthorizationConfigAccessPointId - , fmap (("IAM",) . toJSON) _eCSTaskDefinitionAuthorizationConfigIAM - ] - --- | Constructor for 'ECSTaskDefinitionAuthorizationConfig' containing --- required fields as arguments. -ecsTaskDefinitionAuthorizationConfig - :: ECSTaskDefinitionAuthorizationConfig -ecsTaskDefinitionAuthorizationConfig = - ECSTaskDefinitionAuthorizationConfig - { _eCSTaskDefinitionAuthorizationConfigAccessPointId = Nothing - , _eCSTaskDefinitionAuthorizationConfigIAM = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-authorizationconfig.html#cfn-ecs-taskdefinition-authorizationconfig-accesspointid -ecstdacAccessPointId :: Lens' ECSTaskDefinitionAuthorizationConfig (Maybe (Val Text)) -ecstdacAccessPointId = lens _eCSTaskDefinitionAuthorizationConfigAccessPointId (\s a -> s { _eCSTaskDefinitionAuthorizationConfigAccessPointId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-authorizationconfig.html#cfn-ecs-taskdefinition-authorizationconfig-iam -ecstdacIAM :: Lens' ECSTaskDefinitionAuthorizationConfig (Maybe (Val Text)) -ecstdacIAM = lens _eCSTaskDefinitionAuthorizationConfigIAM (\s a -> s { _eCSTaskDefinitionAuthorizationConfigIAM = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionContainerDefinition.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionContainerDefinition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionContainerDefinition.hs +++ /dev/null @@ -1,321 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html - -module Stratosphere.ResourceProperties.ECSTaskDefinitionContainerDefinition where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ECSTaskDefinitionContainerDependency -import Stratosphere.ResourceProperties.ECSTaskDefinitionKeyValuePair -import Stratosphere.ResourceProperties.ECSTaskDefinitionEnvironmentFile -import Stratosphere.ResourceProperties.ECSTaskDefinitionHostEntry -import Stratosphere.ResourceProperties.ECSTaskDefinitionFirelensConfiguration -import Stratosphere.ResourceProperties.ECSTaskDefinitionHealthCheck -import Stratosphere.ResourceProperties.ECSTaskDefinitionLinuxParameters -import Stratosphere.ResourceProperties.ECSTaskDefinitionLogConfiguration -import Stratosphere.ResourceProperties.ECSTaskDefinitionMountPoint -import Stratosphere.ResourceProperties.ECSTaskDefinitionPortMapping -import Stratosphere.ResourceProperties.ECSTaskDefinitionRepositoryCredentials -import Stratosphere.ResourceProperties.ECSTaskDefinitionResourceRequirement -import Stratosphere.ResourceProperties.ECSTaskDefinitionSecret -import Stratosphere.ResourceProperties.ECSTaskDefinitionSystemControl -import Stratosphere.ResourceProperties.ECSTaskDefinitionUlimit -import Stratosphere.ResourceProperties.ECSTaskDefinitionVolumeFrom - --- | Full data type definition for ECSTaskDefinitionContainerDefinition. See --- 'ecsTaskDefinitionContainerDefinition' for a more convenient constructor. -data ECSTaskDefinitionContainerDefinition = - ECSTaskDefinitionContainerDefinition - { _eCSTaskDefinitionContainerDefinitionCommand :: Maybe (ValList Text) - , _eCSTaskDefinitionContainerDefinitionCpu :: Maybe (Val Integer) - , _eCSTaskDefinitionContainerDefinitionDependsOn :: Maybe [ECSTaskDefinitionContainerDependency] - , _eCSTaskDefinitionContainerDefinitionDisableNetworking :: Maybe (Val Bool) - , _eCSTaskDefinitionContainerDefinitionDnsSearchDomains :: Maybe (ValList Text) - , _eCSTaskDefinitionContainerDefinitionDnsServers :: Maybe (ValList Text) - , _eCSTaskDefinitionContainerDefinitionDockerLabels :: Maybe Object - , _eCSTaskDefinitionContainerDefinitionDockerSecurityOptions :: Maybe (ValList Text) - , _eCSTaskDefinitionContainerDefinitionEntryPoint :: Maybe (ValList Text) - , _eCSTaskDefinitionContainerDefinitionEnvironment :: Maybe [ECSTaskDefinitionKeyValuePair] - , _eCSTaskDefinitionContainerDefinitionEnvironmentFiles :: Maybe [ECSTaskDefinitionEnvironmentFile] - , _eCSTaskDefinitionContainerDefinitionEssential :: Maybe (Val Bool) - , _eCSTaskDefinitionContainerDefinitionExtraHosts :: Maybe [ECSTaskDefinitionHostEntry] - , _eCSTaskDefinitionContainerDefinitionFirelensConfiguration :: Maybe ECSTaskDefinitionFirelensConfiguration - , _eCSTaskDefinitionContainerDefinitionHealthCheck :: Maybe ECSTaskDefinitionHealthCheck - , _eCSTaskDefinitionContainerDefinitionHostname :: Maybe (Val Text) - , _eCSTaskDefinitionContainerDefinitionImage :: Val Text - , _eCSTaskDefinitionContainerDefinitionInteractive :: Maybe (Val Bool) - , _eCSTaskDefinitionContainerDefinitionLinks :: Maybe (ValList Text) - , _eCSTaskDefinitionContainerDefinitionLinuxParameters :: Maybe ECSTaskDefinitionLinuxParameters - , _eCSTaskDefinitionContainerDefinitionLogConfiguration :: Maybe ECSTaskDefinitionLogConfiguration - , _eCSTaskDefinitionContainerDefinitionMemory :: Maybe (Val Integer) - , _eCSTaskDefinitionContainerDefinitionMemoryReservation :: Maybe (Val Integer) - , _eCSTaskDefinitionContainerDefinitionMountPoints :: Maybe [ECSTaskDefinitionMountPoint] - , _eCSTaskDefinitionContainerDefinitionName :: Val Text - , _eCSTaskDefinitionContainerDefinitionPortMappings :: Maybe [ECSTaskDefinitionPortMapping] - , _eCSTaskDefinitionContainerDefinitionPrivileged :: Maybe (Val Bool) - , _eCSTaskDefinitionContainerDefinitionPseudoTerminal :: Maybe (Val Bool) - , _eCSTaskDefinitionContainerDefinitionReadonlyRootFilesystem :: Maybe (Val Bool) - , _eCSTaskDefinitionContainerDefinitionRepositoryCredentials :: Maybe ECSTaskDefinitionRepositoryCredentials - , _eCSTaskDefinitionContainerDefinitionResourceRequirements :: Maybe [ECSTaskDefinitionResourceRequirement] - , _eCSTaskDefinitionContainerDefinitionSecrets :: Maybe [ECSTaskDefinitionSecret] - , _eCSTaskDefinitionContainerDefinitionStartTimeout :: Maybe (Val Integer) - , _eCSTaskDefinitionContainerDefinitionStopTimeout :: Maybe (Val Integer) - , _eCSTaskDefinitionContainerDefinitionSystemControls :: Maybe [ECSTaskDefinitionSystemControl] - , _eCSTaskDefinitionContainerDefinitionUlimits :: Maybe [ECSTaskDefinitionUlimit] - , _eCSTaskDefinitionContainerDefinitionUser :: Maybe (Val Text) - , _eCSTaskDefinitionContainerDefinitionVolumesFrom :: Maybe [ECSTaskDefinitionVolumeFrom] - , _eCSTaskDefinitionContainerDefinitionWorkingDirectory :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ECSTaskDefinitionContainerDefinition where - toJSON ECSTaskDefinitionContainerDefinition{..} = - object $ - catMaybes - [ fmap (("Command",) . toJSON) _eCSTaskDefinitionContainerDefinitionCommand - , fmap (("Cpu",) . toJSON) _eCSTaskDefinitionContainerDefinitionCpu - , fmap (("DependsOn",) . toJSON) _eCSTaskDefinitionContainerDefinitionDependsOn - , fmap (("DisableNetworking",) . toJSON) _eCSTaskDefinitionContainerDefinitionDisableNetworking - , fmap (("DnsSearchDomains",) . toJSON) _eCSTaskDefinitionContainerDefinitionDnsSearchDomains - , fmap (("DnsServers",) . toJSON) _eCSTaskDefinitionContainerDefinitionDnsServers - , fmap (("DockerLabels",) . toJSON) _eCSTaskDefinitionContainerDefinitionDockerLabels - , fmap (("DockerSecurityOptions",) . toJSON) _eCSTaskDefinitionContainerDefinitionDockerSecurityOptions - , fmap (("EntryPoint",) . toJSON) _eCSTaskDefinitionContainerDefinitionEntryPoint - , fmap (("Environment",) . toJSON) _eCSTaskDefinitionContainerDefinitionEnvironment - , fmap (("EnvironmentFiles",) . toJSON) _eCSTaskDefinitionContainerDefinitionEnvironmentFiles - , fmap (("Essential",) . toJSON) _eCSTaskDefinitionContainerDefinitionEssential - , fmap (("ExtraHosts",) . toJSON) _eCSTaskDefinitionContainerDefinitionExtraHosts - , fmap (("FirelensConfiguration",) . toJSON) _eCSTaskDefinitionContainerDefinitionFirelensConfiguration - , fmap (("HealthCheck",) . toJSON) _eCSTaskDefinitionContainerDefinitionHealthCheck - , fmap (("Hostname",) . toJSON) _eCSTaskDefinitionContainerDefinitionHostname - , (Just . ("Image",) . toJSON) _eCSTaskDefinitionContainerDefinitionImage - , fmap (("Interactive",) . toJSON) _eCSTaskDefinitionContainerDefinitionInteractive - , fmap (("Links",) . toJSON) _eCSTaskDefinitionContainerDefinitionLinks - , fmap (("LinuxParameters",) . toJSON) _eCSTaskDefinitionContainerDefinitionLinuxParameters - , fmap (("LogConfiguration",) . toJSON) _eCSTaskDefinitionContainerDefinitionLogConfiguration - , fmap (("Memory",) . toJSON) _eCSTaskDefinitionContainerDefinitionMemory - , fmap (("MemoryReservation",) . toJSON) _eCSTaskDefinitionContainerDefinitionMemoryReservation - , fmap (("MountPoints",) . toJSON) _eCSTaskDefinitionContainerDefinitionMountPoints - , (Just . ("Name",) . toJSON) _eCSTaskDefinitionContainerDefinitionName - , fmap (("PortMappings",) . toJSON) _eCSTaskDefinitionContainerDefinitionPortMappings - , fmap (("Privileged",) . toJSON) _eCSTaskDefinitionContainerDefinitionPrivileged - , fmap (("PseudoTerminal",) . toJSON) _eCSTaskDefinitionContainerDefinitionPseudoTerminal - , fmap (("ReadonlyRootFilesystem",) . toJSON) _eCSTaskDefinitionContainerDefinitionReadonlyRootFilesystem - , fmap (("RepositoryCredentials",) . toJSON) _eCSTaskDefinitionContainerDefinitionRepositoryCredentials - , fmap (("ResourceRequirements",) . toJSON) _eCSTaskDefinitionContainerDefinitionResourceRequirements - , fmap (("Secrets",) . toJSON) _eCSTaskDefinitionContainerDefinitionSecrets - , fmap (("StartTimeout",) . toJSON) _eCSTaskDefinitionContainerDefinitionStartTimeout - , fmap (("StopTimeout",) . toJSON) _eCSTaskDefinitionContainerDefinitionStopTimeout - , fmap (("SystemControls",) . toJSON) _eCSTaskDefinitionContainerDefinitionSystemControls - , fmap (("Ulimits",) . toJSON) _eCSTaskDefinitionContainerDefinitionUlimits - , fmap (("User",) . toJSON) _eCSTaskDefinitionContainerDefinitionUser - , fmap (("VolumesFrom",) . toJSON) _eCSTaskDefinitionContainerDefinitionVolumesFrom - , fmap (("WorkingDirectory",) . toJSON) _eCSTaskDefinitionContainerDefinitionWorkingDirectory - ] - --- | Constructor for 'ECSTaskDefinitionContainerDefinition' containing --- required fields as arguments. -ecsTaskDefinitionContainerDefinition - :: Val Text -- ^ 'ecstdcdImage' - -> Val Text -- ^ 'ecstdcdName' - -> ECSTaskDefinitionContainerDefinition -ecsTaskDefinitionContainerDefinition imagearg namearg = - ECSTaskDefinitionContainerDefinition - { _eCSTaskDefinitionContainerDefinitionCommand = Nothing - , _eCSTaskDefinitionContainerDefinitionCpu = Nothing - , _eCSTaskDefinitionContainerDefinitionDependsOn = Nothing - , _eCSTaskDefinitionContainerDefinitionDisableNetworking = Nothing - , _eCSTaskDefinitionContainerDefinitionDnsSearchDomains = Nothing - , _eCSTaskDefinitionContainerDefinitionDnsServers = Nothing - , _eCSTaskDefinitionContainerDefinitionDockerLabels = Nothing - , _eCSTaskDefinitionContainerDefinitionDockerSecurityOptions = Nothing - , _eCSTaskDefinitionContainerDefinitionEntryPoint = Nothing - , _eCSTaskDefinitionContainerDefinitionEnvironment = Nothing - , _eCSTaskDefinitionContainerDefinitionEnvironmentFiles = Nothing - , _eCSTaskDefinitionContainerDefinitionEssential = Nothing - , _eCSTaskDefinitionContainerDefinitionExtraHosts = Nothing - , _eCSTaskDefinitionContainerDefinitionFirelensConfiguration = Nothing - , _eCSTaskDefinitionContainerDefinitionHealthCheck = Nothing - , _eCSTaskDefinitionContainerDefinitionHostname = Nothing - , _eCSTaskDefinitionContainerDefinitionImage = imagearg - , _eCSTaskDefinitionContainerDefinitionInteractive = Nothing - , _eCSTaskDefinitionContainerDefinitionLinks = Nothing - , _eCSTaskDefinitionContainerDefinitionLinuxParameters = Nothing - , _eCSTaskDefinitionContainerDefinitionLogConfiguration = Nothing - , _eCSTaskDefinitionContainerDefinitionMemory = Nothing - , _eCSTaskDefinitionContainerDefinitionMemoryReservation = Nothing - , _eCSTaskDefinitionContainerDefinitionMountPoints = Nothing - , _eCSTaskDefinitionContainerDefinitionName = namearg - , _eCSTaskDefinitionContainerDefinitionPortMappings = Nothing - , _eCSTaskDefinitionContainerDefinitionPrivileged = Nothing - , _eCSTaskDefinitionContainerDefinitionPseudoTerminal = Nothing - , _eCSTaskDefinitionContainerDefinitionReadonlyRootFilesystem = Nothing - , _eCSTaskDefinitionContainerDefinitionRepositoryCredentials = Nothing - , _eCSTaskDefinitionContainerDefinitionResourceRequirements = Nothing - , _eCSTaskDefinitionContainerDefinitionSecrets = Nothing - , _eCSTaskDefinitionContainerDefinitionStartTimeout = Nothing - , _eCSTaskDefinitionContainerDefinitionStopTimeout = Nothing - , _eCSTaskDefinitionContainerDefinitionSystemControls = Nothing - , _eCSTaskDefinitionContainerDefinitionUlimits = Nothing - , _eCSTaskDefinitionContainerDefinitionUser = Nothing - , _eCSTaskDefinitionContainerDefinitionVolumesFrom = Nothing - , _eCSTaskDefinitionContainerDefinitionWorkingDirectory = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-command -ecstdcdCommand :: Lens' ECSTaskDefinitionContainerDefinition (Maybe (ValList Text)) -ecstdcdCommand = lens _eCSTaskDefinitionContainerDefinitionCommand (\s a -> s { _eCSTaskDefinitionContainerDefinitionCommand = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-cpu -ecstdcdCpu :: Lens' ECSTaskDefinitionContainerDefinition (Maybe (Val Integer)) -ecstdcdCpu = lens _eCSTaskDefinitionContainerDefinitionCpu (\s a -> s { _eCSTaskDefinitionContainerDefinitionCpu = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-dependson -ecstdcdDependsOn :: Lens' ECSTaskDefinitionContainerDefinition (Maybe [ECSTaskDefinitionContainerDependency]) -ecstdcdDependsOn = lens _eCSTaskDefinitionContainerDefinitionDependsOn (\s a -> s { _eCSTaskDefinitionContainerDefinitionDependsOn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-disablenetworking -ecstdcdDisableNetworking :: Lens' ECSTaskDefinitionContainerDefinition (Maybe (Val Bool)) -ecstdcdDisableNetworking = lens _eCSTaskDefinitionContainerDefinitionDisableNetworking (\s a -> s { _eCSTaskDefinitionContainerDefinitionDisableNetworking = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-dnssearchdomains -ecstdcdDnsSearchDomains :: Lens' ECSTaskDefinitionContainerDefinition (Maybe (ValList Text)) -ecstdcdDnsSearchDomains = lens _eCSTaskDefinitionContainerDefinitionDnsSearchDomains (\s a -> s { _eCSTaskDefinitionContainerDefinitionDnsSearchDomains = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-dnsservers -ecstdcdDnsServers :: Lens' ECSTaskDefinitionContainerDefinition (Maybe (ValList Text)) -ecstdcdDnsServers = lens _eCSTaskDefinitionContainerDefinitionDnsServers (\s a -> s { _eCSTaskDefinitionContainerDefinitionDnsServers = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-dockerlabels -ecstdcdDockerLabels :: Lens' ECSTaskDefinitionContainerDefinition (Maybe Object) -ecstdcdDockerLabels = lens _eCSTaskDefinitionContainerDefinitionDockerLabels (\s a -> s { _eCSTaskDefinitionContainerDefinitionDockerLabels = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-dockersecurityoptions -ecstdcdDockerSecurityOptions :: Lens' ECSTaskDefinitionContainerDefinition (Maybe (ValList Text)) -ecstdcdDockerSecurityOptions = lens _eCSTaskDefinitionContainerDefinitionDockerSecurityOptions (\s a -> s { _eCSTaskDefinitionContainerDefinitionDockerSecurityOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-entrypoint -ecstdcdEntryPoint :: Lens' ECSTaskDefinitionContainerDefinition (Maybe (ValList Text)) -ecstdcdEntryPoint = lens _eCSTaskDefinitionContainerDefinitionEntryPoint (\s a -> s { _eCSTaskDefinitionContainerDefinitionEntryPoint = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-environment -ecstdcdEnvironment :: Lens' ECSTaskDefinitionContainerDefinition (Maybe [ECSTaskDefinitionKeyValuePair]) -ecstdcdEnvironment = lens _eCSTaskDefinitionContainerDefinitionEnvironment (\s a -> s { _eCSTaskDefinitionContainerDefinitionEnvironment = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-environmentfiles -ecstdcdEnvironmentFiles :: Lens' ECSTaskDefinitionContainerDefinition (Maybe [ECSTaskDefinitionEnvironmentFile]) -ecstdcdEnvironmentFiles = lens _eCSTaskDefinitionContainerDefinitionEnvironmentFiles (\s a -> s { _eCSTaskDefinitionContainerDefinitionEnvironmentFiles = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-essential -ecstdcdEssential :: Lens' ECSTaskDefinitionContainerDefinition (Maybe (Val Bool)) -ecstdcdEssential = lens _eCSTaskDefinitionContainerDefinitionEssential (\s a -> s { _eCSTaskDefinitionContainerDefinitionEssential = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-extrahosts -ecstdcdExtraHosts :: Lens' ECSTaskDefinitionContainerDefinition (Maybe [ECSTaskDefinitionHostEntry]) -ecstdcdExtraHosts = lens _eCSTaskDefinitionContainerDefinitionExtraHosts (\s a -> s { _eCSTaskDefinitionContainerDefinitionExtraHosts = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-firelensconfiguration -ecstdcdFirelensConfiguration :: Lens' ECSTaskDefinitionContainerDefinition (Maybe ECSTaskDefinitionFirelensConfiguration) -ecstdcdFirelensConfiguration = lens _eCSTaskDefinitionContainerDefinitionFirelensConfiguration (\s a -> s { _eCSTaskDefinitionContainerDefinitionFirelensConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-healthcheck -ecstdcdHealthCheck :: Lens' ECSTaskDefinitionContainerDefinition (Maybe ECSTaskDefinitionHealthCheck) -ecstdcdHealthCheck = lens _eCSTaskDefinitionContainerDefinitionHealthCheck (\s a -> s { _eCSTaskDefinitionContainerDefinitionHealthCheck = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-hostname -ecstdcdHostname :: Lens' ECSTaskDefinitionContainerDefinition (Maybe (Val Text)) -ecstdcdHostname = lens _eCSTaskDefinitionContainerDefinitionHostname (\s a -> s { _eCSTaskDefinitionContainerDefinitionHostname = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-image -ecstdcdImage :: Lens' ECSTaskDefinitionContainerDefinition (Val Text) -ecstdcdImage = lens _eCSTaskDefinitionContainerDefinitionImage (\s a -> s { _eCSTaskDefinitionContainerDefinitionImage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-interactive -ecstdcdInteractive :: Lens' ECSTaskDefinitionContainerDefinition (Maybe (Val Bool)) -ecstdcdInteractive = lens _eCSTaskDefinitionContainerDefinitionInteractive (\s a -> s { _eCSTaskDefinitionContainerDefinitionInteractive = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-links -ecstdcdLinks :: Lens' ECSTaskDefinitionContainerDefinition (Maybe (ValList Text)) -ecstdcdLinks = lens _eCSTaskDefinitionContainerDefinitionLinks (\s a -> s { _eCSTaskDefinitionContainerDefinitionLinks = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-linuxparameters -ecstdcdLinuxParameters :: Lens' ECSTaskDefinitionContainerDefinition (Maybe ECSTaskDefinitionLinuxParameters) -ecstdcdLinuxParameters = lens _eCSTaskDefinitionContainerDefinitionLinuxParameters (\s a -> s { _eCSTaskDefinitionContainerDefinitionLinuxParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-logconfiguration -ecstdcdLogConfiguration :: Lens' ECSTaskDefinitionContainerDefinition (Maybe ECSTaskDefinitionLogConfiguration) -ecstdcdLogConfiguration = lens _eCSTaskDefinitionContainerDefinitionLogConfiguration (\s a -> s { _eCSTaskDefinitionContainerDefinitionLogConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-memory -ecstdcdMemory :: Lens' ECSTaskDefinitionContainerDefinition (Maybe (Val Integer)) -ecstdcdMemory = lens _eCSTaskDefinitionContainerDefinitionMemory (\s a -> s { _eCSTaskDefinitionContainerDefinitionMemory = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-memoryreservation -ecstdcdMemoryReservation :: Lens' ECSTaskDefinitionContainerDefinition (Maybe (Val Integer)) -ecstdcdMemoryReservation = lens _eCSTaskDefinitionContainerDefinitionMemoryReservation (\s a -> s { _eCSTaskDefinitionContainerDefinitionMemoryReservation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-mountpoints -ecstdcdMountPoints :: Lens' ECSTaskDefinitionContainerDefinition (Maybe [ECSTaskDefinitionMountPoint]) -ecstdcdMountPoints = lens _eCSTaskDefinitionContainerDefinitionMountPoints (\s a -> s { _eCSTaskDefinitionContainerDefinitionMountPoints = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-name -ecstdcdName :: Lens' ECSTaskDefinitionContainerDefinition (Val Text) -ecstdcdName = lens _eCSTaskDefinitionContainerDefinitionName (\s a -> s { _eCSTaskDefinitionContainerDefinitionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-portmappings -ecstdcdPortMappings :: Lens' ECSTaskDefinitionContainerDefinition (Maybe [ECSTaskDefinitionPortMapping]) -ecstdcdPortMappings = lens _eCSTaskDefinitionContainerDefinitionPortMappings (\s a -> s { _eCSTaskDefinitionContainerDefinitionPortMappings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-privileged -ecstdcdPrivileged :: Lens' ECSTaskDefinitionContainerDefinition (Maybe (Val Bool)) -ecstdcdPrivileged = lens _eCSTaskDefinitionContainerDefinitionPrivileged (\s a -> s { _eCSTaskDefinitionContainerDefinitionPrivileged = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-pseudoterminal -ecstdcdPseudoTerminal :: Lens' ECSTaskDefinitionContainerDefinition (Maybe (Val Bool)) -ecstdcdPseudoTerminal = lens _eCSTaskDefinitionContainerDefinitionPseudoTerminal (\s a -> s { _eCSTaskDefinitionContainerDefinitionPseudoTerminal = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-readonlyrootfilesystem -ecstdcdReadonlyRootFilesystem :: Lens' ECSTaskDefinitionContainerDefinition (Maybe (Val Bool)) -ecstdcdReadonlyRootFilesystem = lens _eCSTaskDefinitionContainerDefinitionReadonlyRootFilesystem (\s a -> s { _eCSTaskDefinitionContainerDefinitionReadonlyRootFilesystem = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-repositorycredentials -ecstdcdRepositoryCredentials :: Lens' ECSTaskDefinitionContainerDefinition (Maybe ECSTaskDefinitionRepositoryCredentials) -ecstdcdRepositoryCredentials = lens _eCSTaskDefinitionContainerDefinitionRepositoryCredentials (\s a -> s { _eCSTaskDefinitionContainerDefinitionRepositoryCredentials = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-resourcerequirements -ecstdcdResourceRequirements :: Lens' ECSTaskDefinitionContainerDefinition (Maybe [ECSTaskDefinitionResourceRequirement]) -ecstdcdResourceRequirements = lens _eCSTaskDefinitionContainerDefinitionResourceRequirements (\s a -> s { _eCSTaskDefinitionContainerDefinitionResourceRequirements = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-secrets -ecstdcdSecrets :: Lens' ECSTaskDefinitionContainerDefinition (Maybe [ECSTaskDefinitionSecret]) -ecstdcdSecrets = lens _eCSTaskDefinitionContainerDefinitionSecrets (\s a -> s { _eCSTaskDefinitionContainerDefinitionSecrets = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-starttimeout -ecstdcdStartTimeout :: Lens' ECSTaskDefinitionContainerDefinition (Maybe (Val Integer)) -ecstdcdStartTimeout = lens _eCSTaskDefinitionContainerDefinitionStartTimeout (\s a -> s { _eCSTaskDefinitionContainerDefinitionStartTimeout = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-stoptimeout -ecstdcdStopTimeout :: Lens' ECSTaskDefinitionContainerDefinition (Maybe (Val Integer)) -ecstdcdStopTimeout = lens _eCSTaskDefinitionContainerDefinitionStopTimeout (\s a -> s { _eCSTaskDefinitionContainerDefinitionStopTimeout = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-systemcontrols -ecstdcdSystemControls :: Lens' ECSTaskDefinitionContainerDefinition (Maybe [ECSTaskDefinitionSystemControl]) -ecstdcdSystemControls = lens _eCSTaskDefinitionContainerDefinitionSystemControls (\s a -> s { _eCSTaskDefinitionContainerDefinitionSystemControls = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-ulimits -ecstdcdUlimits :: Lens' ECSTaskDefinitionContainerDefinition (Maybe [ECSTaskDefinitionUlimit]) -ecstdcdUlimits = lens _eCSTaskDefinitionContainerDefinitionUlimits (\s a -> s { _eCSTaskDefinitionContainerDefinitionUlimits = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-user -ecstdcdUser :: Lens' ECSTaskDefinitionContainerDefinition (Maybe (Val Text)) -ecstdcdUser = lens _eCSTaskDefinitionContainerDefinitionUser (\s a -> s { _eCSTaskDefinitionContainerDefinitionUser = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-volumesfrom -ecstdcdVolumesFrom :: Lens' ECSTaskDefinitionContainerDefinition (Maybe [ECSTaskDefinitionVolumeFrom]) -ecstdcdVolumesFrom = lens _eCSTaskDefinitionContainerDefinitionVolumesFrom (\s a -> s { _eCSTaskDefinitionContainerDefinitionVolumesFrom = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-workingdirectory -ecstdcdWorkingDirectory :: Lens' ECSTaskDefinitionContainerDefinition (Maybe (Val Text)) -ecstdcdWorkingDirectory = lens _eCSTaskDefinitionContainerDefinitionWorkingDirectory (\s a -> s { _eCSTaskDefinitionContainerDefinitionWorkingDirectory = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionContainerDependency.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionContainerDependency.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionContainerDependency.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdependency.html - -module Stratosphere.ResourceProperties.ECSTaskDefinitionContainerDependency where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSTaskDefinitionContainerDependency. See --- 'ecsTaskDefinitionContainerDependency' for a more convenient constructor. -data ECSTaskDefinitionContainerDependency = - ECSTaskDefinitionContainerDependency - { _eCSTaskDefinitionContainerDependencyCondition :: Maybe (Val Text) - , _eCSTaskDefinitionContainerDependencyContainerName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ECSTaskDefinitionContainerDependency where - toJSON ECSTaskDefinitionContainerDependency{..} = - object $ - catMaybes - [ fmap (("Condition",) . toJSON) _eCSTaskDefinitionContainerDependencyCondition - , fmap (("ContainerName",) . toJSON) _eCSTaskDefinitionContainerDependencyContainerName - ] - --- | Constructor for 'ECSTaskDefinitionContainerDependency' containing --- required fields as arguments. -ecsTaskDefinitionContainerDependency - :: ECSTaskDefinitionContainerDependency -ecsTaskDefinitionContainerDependency = - ECSTaskDefinitionContainerDependency - { _eCSTaskDefinitionContainerDependencyCondition = Nothing - , _eCSTaskDefinitionContainerDependencyContainerName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdependency.html#cfn-ecs-taskdefinition-containerdependency-condition -ecstdcdCondition :: Lens' ECSTaskDefinitionContainerDependency (Maybe (Val Text)) -ecstdcdCondition = lens _eCSTaskDefinitionContainerDependencyCondition (\s a -> s { _eCSTaskDefinitionContainerDependencyCondition = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdependency.html#cfn-ecs-taskdefinition-containerdependency-containername -ecstdcdContainerName :: Lens' ECSTaskDefinitionContainerDependency (Maybe (Val Text)) -ecstdcdContainerName = lens _eCSTaskDefinitionContainerDependencyContainerName (\s a -> s { _eCSTaskDefinitionContainerDependencyContainerName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionDevice.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionDevice.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionDevice.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-device.html - -module Stratosphere.ResourceProperties.ECSTaskDefinitionDevice where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSTaskDefinitionDevice. See --- 'ecsTaskDefinitionDevice' for a more convenient constructor. -data ECSTaskDefinitionDevice = - ECSTaskDefinitionDevice - { _eCSTaskDefinitionDeviceContainerPath :: Maybe (Val Text) - , _eCSTaskDefinitionDeviceHostPath :: Maybe (Val Text) - , _eCSTaskDefinitionDevicePermissions :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON ECSTaskDefinitionDevice where - toJSON ECSTaskDefinitionDevice{..} = - object $ - catMaybes - [ fmap (("ContainerPath",) . toJSON) _eCSTaskDefinitionDeviceContainerPath - , fmap (("HostPath",) . toJSON) _eCSTaskDefinitionDeviceHostPath - , fmap (("Permissions",) . toJSON) _eCSTaskDefinitionDevicePermissions - ] - --- | Constructor for 'ECSTaskDefinitionDevice' containing required fields as --- arguments. -ecsTaskDefinitionDevice - :: ECSTaskDefinitionDevice -ecsTaskDefinitionDevice = - ECSTaskDefinitionDevice - { _eCSTaskDefinitionDeviceContainerPath = Nothing - , _eCSTaskDefinitionDeviceHostPath = Nothing - , _eCSTaskDefinitionDevicePermissions = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-device.html#cfn-ecs-taskdefinition-device-containerpath -ecstddContainerPath :: Lens' ECSTaskDefinitionDevice (Maybe (Val Text)) -ecstddContainerPath = lens _eCSTaskDefinitionDeviceContainerPath (\s a -> s { _eCSTaskDefinitionDeviceContainerPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-device.html#cfn-ecs-taskdefinition-device-hostpath -ecstddHostPath :: Lens' ECSTaskDefinitionDevice (Maybe (Val Text)) -ecstddHostPath = lens _eCSTaskDefinitionDeviceHostPath (\s a -> s { _eCSTaskDefinitionDeviceHostPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-device.html#cfn-ecs-taskdefinition-device-permissions -ecstddPermissions :: Lens' ECSTaskDefinitionDevice (Maybe (ValList Text)) -ecstddPermissions = lens _eCSTaskDefinitionDevicePermissions (\s a -> s { _eCSTaskDefinitionDevicePermissions = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionDockerVolumeConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionDockerVolumeConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionDockerVolumeConfiguration.hs +++ /dev/null @@ -1,67 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-dockervolumeconfiguration.html - -module Stratosphere.ResourceProperties.ECSTaskDefinitionDockerVolumeConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSTaskDefinitionDockerVolumeConfiguration. --- See 'ecsTaskDefinitionDockerVolumeConfiguration' for a more convenient --- constructor. -data ECSTaskDefinitionDockerVolumeConfiguration = - ECSTaskDefinitionDockerVolumeConfiguration - { _eCSTaskDefinitionDockerVolumeConfigurationAutoprovision :: Maybe (Val Bool) - , _eCSTaskDefinitionDockerVolumeConfigurationDriver :: Maybe (Val Text) - , _eCSTaskDefinitionDockerVolumeConfigurationDriverOpts :: Maybe Object - , _eCSTaskDefinitionDockerVolumeConfigurationLabels :: Maybe Object - , _eCSTaskDefinitionDockerVolumeConfigurationScope :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ECSTaskDefinitionDockerVolumeConfiguration where - toJSON ECSTaskDefinitionDockerVolumeConfiguration{..} = - object $ - catMaybes - [ fmap (("Autoprovision",) . toJSON) _eCSTaskDefinitionDockerVolumeConfigurationAutoprovision - , fmap (("Driver",) . toJSON) _eCSTaskDefinitionDockerVolumeConfigurationDriver - , fmap (("DriverOpts",) . toJSON) _eCSTaskDefinitionDockerVolumeConfigurationDriverOpts - , fmap (("Labels",) . toJSON) _eCSTaskDefinitionDockerVolumeConfigurationLabels - , fmap (("Scope",) . toJSON) _eCSTaskDefinitionDockerVolumeConfigurationScope - ] - --- | Constructor for 'ECSTaskDefinitionDockerVolumeConfiguration' containing --- required fields as arguments. -ecsTaskDefinitionDockerVolumeConfiguration - :: ECSTaskDefinitionDockerVolumeConfiguration -ecsTaskDefinitionDockerVolumeConfiguration = - ECSTaskDefinitionDockerVolumeConfiguration - { _eCSTaskDefinitionDockerVolumeConfigurationAutoprovision = Nothing - , _eCSTaskDefinitionDockerVolumeConfigurationDriver = Nothing - , _eCSTaskDefinitionDockerVolumeConfigurationDriverOpts = Nothing - , _eCSTaskDefinitionDockerVolumeConfigurationLabels = Nothing - , _eCSTaskDefinitionDockerVolumeConfigurationScope = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-dockervolumeconfiguration.html#cfn-ecs-taskdefinition-dockervolumeconfiguration-autoprovision -ecstddvcAutoprovision :: Lens' ECSTaskDefinitionDockerVolumeConfiguration (Maybe (Val Bool)) -ecstddvcAutoprovision = lens _eCSTaskDefinitionDockerVolumeConfigurationAutoprovision (\s a -> s { _eCSTaskDefinitionDockerVolumeConfigurationAutoprovision = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-dockervolumeconfiguration.html#cfn-ecs-taskdefinition-dockervolumeconfiguration-driver -ecstddvcDriver :: Lens' ECSTaskDefinitionDockerVolumeConfiguration (Maybe (Val Text)) -ecstddvcDriver = lens _eCSTaskDefinitionDockerVolumeConfigurationDriver (\s a -> s { _eCSTaskDefinitionDockerVolumeConfigurationDriver = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-dockervolumeconfiguration.html#cfn-ecs-taskdefinition-dockervolumeconfiguration-driveropts -ecstddvcDriverOpts :: Lens' ECSTaskDefinitionDockerVolumeConfiguration (Maybe Object) -ecstddvcDriverOpts = lens _eCSTaskDefinitionDockerVolumeConfigurationDriverOpts (\s a -> s { _eCSTaskDefinitionDockerVolumeConfigurationDriverOpts = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-dockervolumeconfiguration.html#cfn-ecs-taskdefinition-dockervolumeconfiguration-labels -ecstddvcLabels :: Lens' ECSTaskDefinitionDockerVolumeConfiguration (Maybe Object) -ecstddvcLabels = lens _eCSTaskDefinitionDockerVolumeConfigurationLabels (\s a -> s { _eCSTaskDefinitionDockerVolumeConfigurationLabels = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-dockervolumeconfiguration.html#cfn-ecs-taskdefinition-dockervolumeconfiguration-scope -ecstddvcScope :: Lens' ECSTaskDefinitionDockerVolumeConfiguration (Maybe (Val Text)) -ecstddvcScope = lens _eCSTaskDefinitionDockerVolumeConfigurationScope (\s a -> s { _eCSTaskDefinitionDockerVolumeConfigurationScope = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionEFSVolumeConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionEFSVolumeConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionEFSVolumeConfiguration.hs +++ /dev/null @@ -1,68 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-efsvolumeconfiguration.html - -module Stratosphere.ResourceProperties.ECSTaskDefinitionEFSVolumeConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSTaskDefinitionEFSVolumeConfiguration. --- See 'ecsTaskDefinitionEFSVolumeConfiguration' for a more convenient --- constructor. -data ECSTaskDefinitionEFSVolumeConfiguration = - ECSTaskDefinitionEFSVolumeConfiguration - { _eCSTaskDefinitionEFSVolumeConfigurationAuthorizationConfig :: Maybe Object - , _eCSTaskDefinitionEFSVolumeConfigurationFilesystemId :: Val Text - , _eCSTaskDefinitionEFSVolumeConfigurationRootDirectory :: Maybe (Val Text) - , _eCSTaskDefinitionEFSVolumeConfigurationTransitEncryption :: Maybe (Val Text) - , _eCSTaskDefinitionEFSVolumeConfigurationTransitEncryptionPort :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON ECSTaskDefinitionEFSVolumeConfiguration where - toJSON ECSTaskDefinitionEFSVolumeConfiguration{..} = - object $ - catMaybes - [ fmap (("AuthorizationConfig",) . toJSON) _eCSTaskDefinitionEFSVolumeConfigurationAuthorizationConfig - , (Just . ("FilesystemId",) . toJSON) _eCSTaskDefinitionEFSVolumeConfigurationFilesystemId - , fmap (("RootDirectory",) . toJSON) _eCSTaskDefinitionEFSVolumeConfigurationRootDirectory - , fmap (("TransitEncryption",) . toJSON) _eCSTaskDefinitionEFSVolumeConfigurationTransitEncryption - , fmap (("TransitEncryptionPort",) . toJSON) _eCSTaskDefinitionEFSVolumeConfigurationTransitEncryptionPort - ] - --- | Constructor for 'ECSTaskDefinitionEFSVolumeConfiguration' containing --- required fields as arguments. -ecsTaskDefinitionEFSVolumeConfiguration - :: Val Text -- ^ 'ecstdefsvcFilesystemId' - -> ECSTaskDefinitionEFSVolumeConfiguration -ecsTaskDefinitionEFSVolumeConfiguration filesystemIdarg = - ECSTaskDefinitionEFSVolumeConfiguration - { _eCSTaskDefinitionEFSVolumeConfigurationAuthorizationConfig = Nothing - , _eCSTaskDefinitionEFSVolumeConfigurationFilesystemId = filesystemIdarg - , _eCSTaskDefinitionEFSVolumeConfigurationRootDirectory = Nothing - , _eCSTaskDefinitionEFSVolumeConfigurationTransitEncryption = Nothing - , _eCSTaskDefinitionEFSVolumeConfigurationTransitEncryptionPort = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-efsvolumeconfiguration.html#cfn-ecs-taskdefinition-efsvolumeconfiguration-authorizationconfig -ecstdefsvcAuthorizationConfig :: Lens' ECSTaskDefinitionEFSVolumeConfiguration (Maybe Object) -ecstdefsvcAuthorizationConfig = lens _eCSTaskDefinitionEFSVolumeConfigurationAuthorizationConfig (\s a -> s { _eCSTaskDefinitionEFSVolumeConfigurationAuthorizationConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-efsvolumeconfiguration.html#cfn-ecs-taskdefinition-efsvolumeconfiguration-filesystemid -ecstdefsvcFilesystemId :: Lens' ECSTaskDefinitionEFSVolumeConfiguration (Val Text) -ecstdefsvcFilesystemId = lens _eCSTaskDefinitionEFSVolumeConfigurationFilesystemId (\s a -> s { _eCSTaskDefinitionEFSVolumeConfigurationFilesystemId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-efsvolumeconfiguration.html#cfn-ecs-taskdefinition-efsvolumeconfiguration-rootdirectory -ecstdefsvcRootDirectory :: Lens' ECSTaskDefinitionEFSVolumeConfiguration (Maybe (Val Text)) -ecstdefsvcRootDirectory = lens _eCSTaskDefinitionEFSVolumeConfigurationRootDirectory (\s a -> s { _eCSTaskDefinitionEFSVolumeConfigurationRootDirectory = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-efsvolumeconfiguration.html#cfn-ecs-taskdefinition-efsvolumeconfiguration-transitencryption -ecstdefsvcTransitEncryption :: Lens' ECSTaskDefinitionEFSVolumeConfiguration (Maybe (Val Text)) -ecstdefsvcTransitEncryption = lens _eCSTaskDefinitionEFSVolumeConfigurationTransitEncryption (\s a -> s { _eCSTaskDefinitionEFSVolumeConfigurationTransitEncryption = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-efsvolumeconfiguration.html#cfn-ecs-taskdefinition-efsvolumeconfiguration-transitencryptionport -ecstdefsvcTransitEncryptionPort :: Lens' ECSTaskDefinitionEFSVolumeConfiguration (Maybe (Val Integer)) -ecstdefsvcTransitEncryptionPort = lens _eCSTaskDefinitionEFSVolumeConfigurationTransitEncryptionPort (\s a -> s { _eCSTaskDefinitionEFSVolumeConfigurationTransitEncryptionPort = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionEnvironmentFile.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionEnvironmentFile.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionEnvironmentFile.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-environmentfile.html - -module Stratosphere.ResourceProperties.ECSTaskDefinitionEnvironmentFile where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSTaskDefinitionEnvironmentFile. See --- 'ecsTaskDefinitionEnvironmentFile' for a more convenient constructor. -data ECSTaskDefinitionEnvironmentFile = - ECSTaskDefinitionEnvironmentFile - { _eCSTaskDefinitionEnvironmentFileType :: Maybe (Val Text) - , _eCSTaskDefinitionEnvironmentFileValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ECSTaskDefinitionEnvironmentFile where - toJSON ECSTaskDefinitionEnvironmentFile{..} = - object $ - catMaybes - [ fmap (("Type",) . toJSON) _eCSTaskDefinitionEnvironmentFileType - , fmap (("Value",) . toJSON) _eCSTaskDefinitionEnvironmentFileValue - ] - --- | Constructor for 'ECSTaskDefinitionEnvironmentFile' containing required --- fields as arguments. -ecsTaskDefinitionEnvironmentFile - :: ECSTaskDefinitionEnvironmentFile -ecsTaskDefinitionEnvironmentFile = - ECSTaskDefinitionEnvironmentFile - { _eCSTaskDefinitionEnvironmentFileType = Nothing - , _eCSTaskDefinitionEnvironmentFileValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-environmentfile.html#cfn-ecs-taskdefinition-environmentfile-type -ecstdefType :: Lens' ECSTaskDefinitionEnvironmentFile (Maybe (Val Text)) -ecstdefType = lens _eCSTaskDefinitionEnvironmentFileType (\s a -> s { _eCSTaskDefinitionEnvironmentFileType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-environmentfile.html#cfn-ecs-taskdefinition-environmentfile-value -ecstdefValue :: Lens' ECSTaskDefinitionEnvironmentFile (Maybe (Val Text)) -ecstdefValue = lens _eCSTaskDefinitionEnvironmentFileValue (\s a -> s { _eCSTaskDefinitionEnvironmentFileValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionFirelensConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionFirelensConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionFirelensConfiguration.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-firelensconfiguration.html - -module Stratosphere.ResourceProperties.ECSTaskDefinitionFirelensConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSTaskDefinitionFirelensConfiguration. See --- 'ecsTaskDefinitionFirelensConfiguration' for a more convenient --- constructor. -data ECSTaskDefinitionFirelensConfiguration = - ECSTaskDefinitionFirelensConfiguration - { _eCSTaskDefinitionFirelensConfigurationOptions :: Maybe Object - , _eCSTaskDefinitionFirelensConfigurationType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ECSTaskDefinitionFirelensConfiguration where - toJSON ECSTaskDefinitionFirelensConfiguration{..} = - object $ - catMaybes - [ fmap (("Options",) . toJSON) _eCSTaskDefinitionFirelensConfigurationOptions - , fmap (("Type",) . toJSON) _eCSTaskDefinitionFirelensConfigurationType - ] - --- | Constructor for 'ECSTaskDefinitionFirelensConfiguration' containing --- required fields as arguments. -ecsTaskDefinitionFirelensConfiguration - :: ECSTaskDefinitionFirelensConfiguration -ecsTaskDefinitionFirelensConfiguration = - ECSTaskDefinitionFirelensConfiguration - { _eCSTaskDefinitionFirelensConfigurationOptions = Nothing - , _eCSTaskDefinitionFirelensConfigurationType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-firelensconfiguration.html#cfn-ecs-taskdefinition-firelensconfiguration-options -ecstdfcOptions :: Lens' ECSTaskDefinitionFirelensConfiguration (Maybe Object) -ecstdfcOptions = lens _eCSTaskDefinitionFirelensConfigurationOptions (\s a -> s { _eCSTaskDefinitionFirelensConfigurationOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-firelensconfiguration.html#cfn-ecs-taskdefinition-firelensconfiguration-type -ecstdfcType :: Lens' ECSTaskDefinitionFirelensConfiguration (Maybe (Val Text)) -ecstdfcType = lens _eCSTaskDefinitionFirelensConfigurationType (\s a -> s { _eCSTaskDefinitionFirelensConfigurationType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionHealthCheck.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionHealthCheck.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionHealthCheck.hs +++ /dev/null @@ -1,66 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-healthcheck.html - -module Stratosphere.ResourceProperties.ECSTaskDefinitionHealthCheck where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSTaskDefinitionHealthCheck. See --- 'ecsTaskDefinitionHealthCheck' for a more convenient constructor. -data ECSTaskDefinitionHealthCheck = - ECSTaskDefinitionHealthCheck - { _eCSTaskDefinitionHealthCheckCommand :: Maybe (ValList Text) - , _eCSTaskDefinitionHealthCheckInterval :: Maybe (Val Integer) - , _eCSTaskDefinitionHealthCheckRetries :: Maybe (Val Integer) - , _eCSTaskDefinitionHealthCheckStartPeriod :: Maybe (Val Integer) - , _eCSTaskDefinitionHealthCheckTimeout :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON ECSTaskDefinitionHealthCheck where - toJSON ECSTaskDefinitionHealthCheck{..} = - object $ - catMaybes - [ fmap (("Command",) . toJSON) _eCSTaskDefinitionHealthCheckCommand - , fmap (("Interval",) . toJSON) _eCSTaskDefinitionHealthCheckInterval - , fmap (("Retries",) . toJSON) _eCSTaskDefinitionHealthCheckRetries - , fmap (("StartPeriod",) . toJSON) _eCSTaskDefinitionHealthCheckStartPeriod - , fmap (("Timeout",) . toJSON) _eCSTaskDefinitionHealthCheckTimeout - ] - --- | Constructor for 'ECSTaskDefinitionHealthCheck' containing required fields --- as arguments. -ecsTaskDefinitionHealthCheck - :: ECSTaskDefinitionHealthCheck -ecsTaskDefinitionHealthCheck = - ECSTaskDefinitionHealthCheck - { _eCSTaskDefinitionHealthCheckCommand = Nothing - , _eCSTaskDefinitionHealthCheckInterval = Nothing - , _eCSTaskDefinitionHealthCheckRetries = Nothing - , _eCSTaskDefinitionHealthCheckStartPeriod = Nothing - , _eCSTaskDefinitionHealthCheckTimeout = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-healthcheck.html#cfn-ecs-taskdefinition-healthcheck-command -ecstdhcCommand :: Lens' ECSTaskDefinitionHealthCheck (Maybe (ValList Text)) -ecstdhcCommand = lens _eCSTaskDefinitionHealthCheckCommand (\s a -> s { _eCSTaskDefinitionHealthCheckCommand = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-healthcheck.html#cfn-ecs-taskdefinition-healthcheck-interval -ecstdhcInterval :: Lens' ECSTaskDefinitionHealthCheck (Maybe (Val Integer)) -ecstdhcInterval = lens _eCSTaskDefinitionHealthCheckInterval (\s a -> s { _eCSTaskDefinitionHealthCheckInterval = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-healthcheck.html#cfn-ecs-taskdefinition-healthcheck-retries -ecstdhcRetries :: Lens' ECSTaskDefinitionHealthCheck (Maybe (Val Integer)) -ecstdhcRetries = lens _eCSTaskDefinitionHealthCheckRetries (\s a -> s { _eCSTaskDefinitionHealthCheckRetries = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-healthcheck.html#cfn-ecs-taskdefinition-healthcheck-startperiod -ecstdhcStartPeriod :: Lens' ECSTaskDefinitionHealthCheck (Maybe (Val Integer)) -ecstdhcStartPeriod = lens _eCSTaskDefinitionHealthCheckStartPeriod (\s a -> s { _eCSTaskDefinitionHealthCheckStartPeriod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-healthcheck.html#cfn-ecs-taskdefinition-healthcheck-timeout -ecstdhcTimeout :: Lens' ECSTaskDefinitionHealthCheck (Maybe (Val Integer)) -ecstdhcTimeout = lens _eCSTaskDefinitionHealthCheckTimeout (\s a -> s { _eCSTaskDefinitionHealthCheckTimeout = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionHostEntry.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionHostEntry.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionHostEntry.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-hostentry.html - -module Stratosphere.ResourceProperties.ECSTaskDefinitionHostEntry where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSTaskDefinitionHostEntry. See --- 'ecsTaskDefinitionHostEntry' for a more convenient constructor. -data ECSTaskDefinitionHostEntry = - ECSTaskDefinitionHostEntry - { _eCSTaskDefinitionHostEntryHostname :: Maybe (Val Text) - , _eCSTaskDefinitionHostEntryIpAddress :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ECSTaskDefinitionHostEntry where - toJSON ECSTaskDefinitionHostEntry{..} = - object $ - catMaybes - [ fmap (("Hostname",) . toJSON) _eCSTaskDefinitionHostEntryHostname - , fmap (("IpAddress",) . toJSON) _eCSTaskDefinitionHostEntryIpAddress - ] - --- | Constructor for 'ECSTaskDefinitionHostEntry' containing required fields --- as arguments. -ecsTaskDefinitionHostEntry - :: ECSTaskDefinitionHostEntry -ecsTaskDefinitionHostEntry = - ECSTaskDefinitionHostEntry - { _eCSTaskDefinitionHostEntryHostname = Nothing - , _eCSTaskDefinitionHostEntryIpAddress = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-hostentry.html#cfn-ecs-taskdefinition-containerdefinition-hostentry-hostname -ecstdheHostname :: Lens' ECSTaskDefinitionHostEntry (Maybe (Val Text)) -ecstdheHostname = lens _eCSTaskDefinitionHostEntryHostname (\s a -> s { _eCSTaskDefinitionHostEntryHostname = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-hostentry.html#cfn-ecs-taskdefinition-containerdefinition-hostentry-ipaddress -ecstdheIpAddress :: Lens' ECSTaskDefinitionHostEntry (Maybe (Val Text)) -ecstdheIpAddress = lens _eCSTaskDefinitionHostEntryIpAddress (\s a -> s { _eCSTaskDefinitionHostEntryIpAddress = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionHostVolumeProperties.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionHostVolumeProperties.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionHostVolumeProperties.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-volumes-host.html - -module Stratosphere.ResourceProperties.ECSTaskDefinitionHostVolumeProperties where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSTaskDefinitionHostVolumeProperties. See --- 'ecsTaskDefinitionHostVolumeProperties' for a more convenient --- constructor. -data ECSTaskDefinitionHostVolumeProperties = - ECSTaskDefinitionHostVolumeProperties - { _eCSTaskDefinitionHostVolumePropertiesSourcePath :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ECSTaskDefinitionHostVolumeProperties where - toJSON ECSTaskDefinitionHostVolumeProperties{..} = - object $ - catMaybes - [ fmap (("SourcePath",) . toJSON) _eCSTaskDefinitionHostVolumePropertiesSourcePath - ] - --- | Constructor for 'ECSTaskDefinitionHostVolumeProperties' containing --- required fields as arguments. -ecsTaskDefinitionHostVolumeProperties - :: ECSTaskDefinitionHostVolumeProperties -ecsTaskDefinitionHostVolumeProperties = - ECSTaskDefinitionHostVolumeProperties - { _eCSTaskDefinitionHostVolumePropertiesSourcePath = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-volumes-host.html#cfn-ecs-taskdefinition-volumes-host-sourcepath -ecstdhvpSourcePath :: Lens' ECSTaskDefinitionHostVolumeProperties (Maybe (Val Text)) -ecstdhvpSourcePath = lens _eCSTaskDefinitionHostVolumePropertiesSourcePath (\s a -> s { _eCSTaskDefinitionHostVolumePropertiesSourcePath = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionInferenceAccelerator.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionInferenceAccelerator.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionInferenceAccelerator.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-inferenceaccelerator.html - -module Stratosphere.ResourceProperties.ECSTaskDefinitionInferenceAccelerator where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSTaskDefinitionInferenceAccelerator. See --- 'ecsTaskDefinitionInferenceAccelerator' for a more convenient --- constructor. -data ECSTaskDefinitionInferenceAccelerator = - ECSTaskDefinitionInferenceAccelerator - { _eCSTaskDefinitionInferenceAcceleratorDeviceName :: Maybe (Val Text) - , _eCSTaskDefinitionInferenceAcceleratorDeviceType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ECSTaskDefinitionInferenceAccelerator where - toJSON ECSTaskDefinitionInferenceAccelerator{..} = - object $ - catMaybes - [ fmap (("DeviceName",) . toJSON) _eCSTaskDefinitionInferenceAcceleratorDeviceName - , fmap (("DeviceType",) . toJSON) _eCSTaskDefinitionInferenceAcceleratorDeviceType - ] - --- | Constructor for 'ECSTaskDefinitionInferenceAccelerator' containing --- required fields as arguments. -ecsTaskDefinitionInferenceAccelerator - :: ECSTaskDefinitionInferenceAccelerator -ecsTaskDefinitionInferenceAccelerator = - ECSTaskDefinitionInferenceAccelerator - { _eCSTaskDefinitionInferenceAcceleratorDeviceName = 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-devicetype -ecstdiaDeviceType :: Lens' ECSTaskDefinitionInferenceAccelerator (Maybe (Val Text)) -ecstdiaDeviceType = lens _eCSTaskDefinitionInferenceAcceleratorDeviceType (\s a -> s { _eCSTaskDefinitionInferenceAcceleratorDeviceType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionKernelCapabilities.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionKernelCapabilities.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionKernelCapabilities.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-kernelcapabilities.html - -module Stratosphere.ResourceProperties.ECSTaskDefinitionKernelCapabilities where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSTaskDefinitionKernelCapabilities. See --- 'ecsTaskDefinitionKernelCapabilities' for a more convenient constructor. -data ECSTaskDefinitionKernelCapabilities = - ECSTaskDefinitionKernelCapabilities - { _eCSTaskDefinitionKernelCapabilitiesAdd :: Maybe (ValList Text) - , _eCSTaskDefinitionKernelCapabilitiesDrop :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON ECSTaskDefinitionKernelCapabilities where - toJSON ECSTaskDefinitionKernelCapabilities{..} = - object $ - catMaybes - [ fmap (("Add",) . toJSON) _eCSTaskDefinitionKernelCapabilitiesAdd - , fmap (("Drop",) . toJSON) _eCSTaskDefinitionKernelCapabilitiesDrop - ] - --- | Constructor for 'ECSTaskDefinitionKernelCapabilities' containing required --- fields as arguments. -ecsTaskDefinitionKernelCapabilities - :: ECSTaskDefinitionKernelCapabilities -ecsTaskDefinitionKernelCapabilities = - ECSTaskDefinitionKernelCapabilities - { _eCSTaskDefinitionKernelCapabilitiesAdd = Nothing - , _eCSTaskDefinitionKernelCapabilitiesDrop = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-kernelcapabilities.html#cfn-ecs-taskdefinition-kernelcapabilities-add -ecstdkcAdd :: Lens' ECSTaskDefinitionKernelCapabilities (Maybe (ValList Text)) -ecstdkcAdd = lens _eCSTaskDefinitionKernelCapabilitiesAdd (\s a -> s { _eCSTaskDefinitionKernelCapabilitiesAdd = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-kernelcapabilities.html#cfn-ecs-taskdefinition-kernelcapabilities-drop -ecstdkcDrop :: Lens' ECSTaskDefinitionKernelCapabilities (Maybe (ValList Text)) -ecstdkcDrop = lens _eCSTaskDefinitionKernelCapabilitiesDrop (\s a -> s { _eCSTaskDefinitionKernelCapabilitiesDrop = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionKeyValuePair.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionKeyValuePair.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionKeyValuePair.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-environment.html - -module Stratosphere.ResourceProperties.ECSTaskDefinitionKeyValuePair where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSTaskDefinitionKeyValuePair. See --- 'ecsTaskDefinitionKeyValuePair' for a more convenient constructor. -data ECSTaskDefinitionKeyValuePair = - ECSTaskDefinitionKeyValuePair - { _eCSTaskDefinitionKeyValuePairName :: Maybe (Val Text) - , _eCSTaskDefinitionKeyValuePairValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ECSTaskDefinitionKeyValuePair where - toJSON ECSTaskDefinitionKeyValuePair{..} = - object $ - catMaybes - [ fmap (("Name",) . toJSON) _eCSTaskDefinitionKeyValuePairName - , fmap (("Value",) . toJSON) _eCSTaskDefinitionKeyValuePairValue - ] - --- | Constructor for 'ECSTaskDefinitionKeyValuePair' containing required --- fields as arguments. -ecsTaskDefinitionKeyValuePair - :: ECSTaskDefinitionKeyValuePair -ecsTaskDefinitionKeyValuePair = - ECSTaskDefinitionKeyValuePair - { _eCSTaskDefinitionKeyValuePairName = Nothing - , _eCSTaskDefinitionKeyValuePairValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-environment.html#cfn-ecs-taskdefinition-containerdefinition-environment-name -ecstdkvpName :: Lens' ECSTaskDefinitionKeyValuePair (Maybe (Val Text)) -ecstdkvpName = lens _eCSTaskDefinitionKeyValuePairName (\s a -> s { _eCSTaskDefinitionKeyValuePairName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-environment.html#cfn-ecs-taskdefinition-containerdefinition-environment-value -ecstdkvpValue :: Lens' ECSTaskDefinitionKeyValuePair (Maybe (Val Text)) -ecstdkvpValue = lens _eCSTaskDefinitionKeyValuePairValue (\s a -> s { _eCSTaskDefinitionKeyValuePairValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionLinuxParameters.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionLinuxParameters.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionLinuxParameters.hs +++ /dev/null @@ -1,82 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-linuxparameters.html - -module Stratosphere.ResourceProperties.ECSTaskDefinitionLinuxParameters where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ECSTaskDefinitionKernelCapabilities -import Stratosphere.ResourceProperties.ECSTaskDefinitionDevice -import Stratosphere.ResourceProperties.ECSTaskDefinitionTmpfs - --- | Full data type definition for ECSTaskDefinitionLinuxParameters. See --- 'ecsTaskDefinitionLinuxParameters' for a more convenient constructor. -data ECSTaskDefinitionLinuxParameters = - ECSTaskDefinitionLinuxParameters - { _eCSTaskDefinitionLinuxParametersCapabilities :: Maybe ECSTaskDefinitionKernelCapabilities - , _eCSTaskDefinitionLinuxParametersDevices :: Maybe [ECSTaskDefinitionDevice] - , _eCSTaskDefinitionLinuxParametersInitProcessEnabled :: Maybe (Val Bool) - , _eCSTaskDefinitionLinuxParametersMaxSwap :: Maybe (Val Integer) - , _eCSTaskDefinitionLinuxParametersSharedMemorySize :: Maybe (Val Integer) - , _eCSTaskDefinitionLinuxParametersSwappiness :: Maybe (Val Integer) - , _eCSTaskDefinitionLinuxParametersTmpfs :: Maybe [ECSTaskDefinitionTmpfs] - } deriving (Show, Eq) - -instance ToJSON ECSTaskDefinitionLinuxParameters where - toJSON ECSTaskDefinitionLinuxParameters{..} = - object $ - catMaybes - [ fmap (("Capabilities",) . toJSON) _eCSTaskDefinitionLinuxParametersCapabilities - , fmap (("Devices",) . toJSON) _eCSTaskDefinitionLinuxParametersDevices - , fmap (("InitProcessEnabled",) . toJSON) _eCSTaskDefinitionLinuxParametersInitProcessEnabled - , fmap (("MaxSwap",) . toJSON) _eCSTaskDefinitionLinuxParametersMaxSwap - , fmap (("SharedMemorySize",) . toJSON) _eCSTaskDefinitionLinuxParametersSharedMemorySize - , fmap (("Swappiness",) . toJSON) _eCSTaskDefinitionLinuxParametersSwappiness - , fmap (("Tmpfs",) . toJSON) _eCSTaskDefinitionLinuxParametersTmpfs - ] - --- | Constructor for 'ECSTaskDefinitionLinuxParameters' containing required --- fields as arguments. -ecsTaskDefinitionLinuxParameters - :: ECSTaskDefinitionLinuxParameters -ecsTaskDefinitionLinuxParameters = - ECSTaskDefinitionLinuxParameters - { _eCSTaskDefinitionLinuxParametersCapabilities = Nothing - , _eCSTaskDefinitionLinuxParametersDevices = Nothing - , _eCSTaskDefinitionLinuxParametersInitProcessEnabled = Nothing - , _eCSTaskDefinitionLinuxParametersMaxSwap = Nothing - , _eCSTaskDefinitionLinuxParametersSharedMemorySize = Nothing - , _eCSTaskDefinitionLinuxParametersSwappiness = Nothing - , _eCSTaskDefinitionLinuxParametersTmpfs = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-linuxparameters.html#cfn-ecs-taskdefinition-linuxparameters-capabilities -ecstdlpCapabilities :: Lens' ECSTaskDefinitionLinuxParameters (Maybe ECSTaskDefinitionKernelCapabilities) -ecstdlpCapabilities = lens _eCSTaskDefinitionLinuxParametersCapabilities (\s a -> s { _eCSTaskDefinitionLinuxParametersCapabilities = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-linuxparameters.html#cfn-ecs-taskdefinition-linuxparameters-devices -ecstdlpDevices :: Lens' ECSTaskDefinitionLinuxParameters (Maybe [ECSTaskDefinitionDevice]) -ecstdlpDevices = lens _eCSTaskDefinitionLinuxParametersDevices (\s a -> s { _eCSTaskDefinitionLinuxParametersDevices = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-linuxparameters.html#cfn-ecs-taskdefinition-linuxparameters-initprocessenabled -ecstdlpInitProcessEnabled :: Lens' ECSTaskDefinitionLinuxParameters (Maybe (Val Bool)) -ecstdlpInitProcessEnabled = lens _eCSTaskDefinitionLinuxParametersInitProcessEnabled (\s a -> s { _eCSTaskDefinitionLinuxParametersInitProcessEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-linuxparameters.html#cfn-ecs-taskdefinition-linuxparameters-maxswap -ecstdlpMaxSwap :: Lens' ECSTaskDefinitionLinuxParameters (Maybe (Val Integer)) -ecstdlpMaxSwap = lens _eCSTaskDefinitionLinuxParametersMaxSwap (\s a -> s { _eCSTaskDefinitionLinuxParametersMaxSwap = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-linuxparameters.html#cfn-ecs-taskdefinition-linuxparameters-sharedmemorysize -ecstdlpSharedMemorySize :: Lens' ECSTaskDefinitionLinuxParameters (Maybe (Val Integer)) -ecstdlpSharedMemorySize = lens _eCSTaskDefinitionLinuxParametersSharedMemorySize (\s a -> s { _eCSTaskDefinitionLinuxParametersSharedMemorySize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-linuxparameters.html#cfn-ecs-taskdefinition-linuxparameters-swappiness -ecstdlpSwappiness :: Lens' ECSTaskDefinitionLinuxParameters (Maybe (Val Integer)) -ecstdlpSwappiness = lens _eCSTaskDefinitionLinuxParametersSwappiness (\s a -> s { _eCSTaskDefinitionLinuxParametersSwappiness = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-linuxparameters.html#cfn-ecs-taskdefinition-linuxparameters-tmpfs -ecstdlpTmpfs :: Lens' ECSTaskDefinitionLinuxParameters (Maybe [ECSTaskDefinitionTmpfs]) -ecstdlpTmpfs = lens _eCSTaskDefinitionLinuxParametersTmpfs (\s a -> s { _eCSTaskDefinitionLinuxParametersTmpfs = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionLogConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionLogConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionLogConfiguration.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-logconfiguration.html - -module Stratosphere.ResourceProperties.ECSTaskDefinitionLogConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ECSTaskDefinitionSecret - --- | Full data type definition for ECSTaskDefinitionLogConfiguration. See --- 'ecsTaskDefinitionLogConfiguration' for a more convenient constructor. -data ECSTaskDefinitionLogConfiguration = - ECSTaskDefinitionLogConfiguration - { _eCSTaskDefinitionLogConfigurationLogDriver :: Val Text - , _eCSTaskDefinitionLogConfigurationOptions :: Maybe Object - , _eCSTaskDefinitionLogConfigurationSecretOptions :: Maybe [ECSTaskDefinitionSecret] - } deriving (Show, Eq) - -instance ToJSON ECSTaskDefinitionLogConfiguration where - toJSON ECSTaskDefinitionLogConfiguration{..} = - object $ - catMaybes - [ (Just . ("LogDriver",) . toJSON) _eCSTaskDefinitionLogConfigurationLogDriver - , fmap (("Options",) . toJSON) _eCSTaskDefinitionLogConfigurationOptions - , fmap (("SecretOptions",) . toJSON) _eCSTaskDefinitionLogConfigurationSecretOptions - ] - --- | Constructor for 'ECSTaskDefinitionLogConfiguration' containing required --- fields as arguments. -ecsTaskDefinitionLogConfiguration - :: Val Text -- ^ 'ecstdlcLogDriver' - -> ECSTaskDefinitionLogConfiguration -ecsTaskDefinitionLogConfiguration logDriverarg = - ECSTaskDefinitionLogConfiguration - { _eCSTaskDefinitionLogConfigurationLogDriver = logDriverarg - , _eCSTaskDefinitionLogConfigurationOptions = Nothing - , _eCSTaskDefinitionLogConfigurationSecretOptions = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-logconfiguration.html#cfn-ecs-taskdefinition-containerdefinition-logconfiguration-logdriver -ecstdlcLogDriver :: Lens' ECSTaskDefinitionLogConfiguration (Val Text) -ecstdlcLogDriver = lens _eCSTaskDefinitionLogConfigurationLogDriver (\s a -> s { _eCSTaskDefinitionLogConfigurationLogDriver = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-logconfiguration.html#cfn-ecs-taskdefinition-containerdefinition-logconfiguration-options -ecstdlcOptions :: Lens' ECSTaskDefinitionLogConfiguration (Maybe Object) -ecstdlcOptions = lens _eCSTaskDefinitionLogConfigurationOptions (\s a -> s { _eCSTaskDefinitionLogConfigurationOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-logconfiguration.html#cfn-ecs-taskdefinition-logconfiguration-secretoptions -ecstdlcSecretOptions :: Lens' ECSTaskDefinitionLogConfiguration (Maybe [ECSTaskDefinitionSecret]) -ecstdlcSecretOptions = lens _eCSTaskDefinitionLogConfigurationSecretOptions (\s a -> s { _eCSTaskDefinitionLogConfigurationSecretOptions = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionMountPoint.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionMountPoint.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionMountPoint.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-mountpoints.html - -module Stratosphere.ResourceProperties.ECSTaskDefinitionMountPoint where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSTaskDefinitionMountPoint. See --- 'ecsTaskDefinitionMountPoint' for a more convenient constructor. -data ECSTaskDefinitionMountPoint = - ECSTaskDefinitionMountPoint - { _eCSTaskDefinitionMountPointContainerPath :: Maybe (Val Text) - , _eCSTaskDefinitionMountPointReadOnly :: Maybe (Val Bool) - , _eCSTaskDefinitionMountPointSourceVolume :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ECSTaskDefinitionMountPoint where - toJSON ECSTaskDefinitionMountPoint{..} = - object $ - catMaybes - [ fmap (("ContainerPath",) . toJSON) _eCSTaskDefinitionMountPointContainerPath - , fmap (("ReadOnly",) . toJSON) _eCSTaskDefinitionMountPointReadOnly - , fmap (("SourceVolume",) . toJSON) _eCSTaskDefinitionMountPointSourceVolume - ] - --- | Constructor for 'ECSTaskDefinitionMountPoint' containing required fields --- as arguments. -ecsTaskDefinitionMountPoint - :: ECSTaskDefinitionMountPoint -ecsTaskDefinitionMountPoint = - ECSTaskDefinitionMountPoint - { _eCSTaskDefinitionMountPointContainerPath = Nothing - , _eCSTaskDefinitionMountPointReadOnly = Nothing - , _eCSTaskDefinitionMountPointSourceVolume = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-mountpoints.html#cfn-ecs-taskdefinition-containerdefinition-mountpoints-containerpath -ecstdmpContainerPath :: Lens' ECSTaskDefinitionMountPoint (Maybe (Val Text)) -ecstdmpContainerPath = lens _eCSTaskDefinitionMountPointContainerPath (\s a -> s { _eCSTaskDefinitionMountPointContainerPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-mountpoints.html#cfn-ecs-taskdefinition-containerdefinition-mountpoints-readonly -ecstdmpReadOnly :: Lens' ECSTaskDefinitionMountPoint (Maybe (Val Bool)) -ecstdmpReadOnly = lens _eCSTaskDefinitionMountPointReadOnly (\s a -> s { _eCSTaskDefinitionMountPointReadOnly = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-mountpoints.html#cfn-ecs-taskdefinition-containerdefinition-mountpoints-sourcevolume -ecstdmpSourceVolume :: Lens' ECSTaskDefinitionMountPoint (Maybe (Val Text)) -ecstdmpSourceVolume = lens _eCSTaskDefinitionMountPointSourceVolume (\s a -> s { _eCSTaskDefinitionMountPointSourceVolume = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionPortMapping.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionPortMapping.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionPortMapping.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-portmappings.html - -module Stratosphere.ResourceProperties.ECSTaskDefinitionPortMapping where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSTaskDefinitionPortMapping. See --- 'ecsTaskDefinitionPortMapping' for a more convenient constructor. -data ECSTaskDefinitionPortMapping = - ECSTaskDefinitionPortMapping - { _eCSTaskDefinitionPortMappingContainerPort :: Maybe (Val Integer) - , _eCSTaskDefinitionPortMappingHostPort :: Maybe (Val Integer) - , _eCSTaskDefinitionPortMappingProtocol :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ECSTaskDefinitionPortMapping where - toJSON ECSTaskDefinitionPortMapping{..} = - object $ - catMaybes - [ fmap (("ContainerPort",) . toJSON) _eCSTaskDefinitionPortMappingContainerPort - , fmap (("HostPort",) . toJSON) _eCSTaskDefinitionPortMappingHostPort - , fmap (("Protocol",) . toJSON) _eCSTaskDefinitionPortMappingProtocol - ] - --- | Constructor for 'ECSTaskDefinitionPortMapping' containing required fields --- as arguments. -ecsTaskDefinitionPortMapping - :: ECSTaskDefinitionPortMapping -ecsTaskDefinitionPortMapping = - ECSTaskDefinitionPortMapping - { _eCSTaskDefinitionPortMappingContainerPort = Nothing - , _eCSTaskDefinitionPortMappingHostPort = Nothing - , _eCSTaskDefinitionPortMappingProtocol = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-portmappings.html#cfn-ecs-taskdefinition-containerdefinition-portmappings-containerport -ecstdpmContainerPort :: Lens' ECSTaskDefinitionPortMapping (Maybe (Val Integer)) -ecstdpmContainerPort = lens _eCSTaskDefinitionPortMappingContainerPort (\s a -> s { _eCSTaskDefinitionPortMappingContainerPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-portmappings.html#cfn-ecs-taskdefinition-containerdefinition-portmappings-readonly -ecstdpmHostPort :: Lens' ECSTaskDefinitionPortMapping (Maybe (Val Integer)) -ecstdpmHostPort = lens _eCSTaskDefinitionPortMappingHostPort (\s a -> s { _eCSTaskDefinitionPortMappingHostPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-portmappings.html#cfn-ecs-taskdefinition-containerdefinition-portmappings-sourcevolume -ecstdpmProtocol :: Lens' ECSTaskDefinitionPortMapping (Maybe (Val Text)) -ecstdpmProtocol = lens _eCSTaskDefinitionPortMappingProtocol (\s a -> s { _eCSTaskDefinitionPortMappingProtocol = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionProxyConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionProxyConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionProxyConfiguration.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-proxyconfiguration.html - -module Stratosphere.ResourceProperties.ECSTaskDefinitionProxyConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ECSTaskDefinitionKeyValuePair - --- | Full data type definition for ECSTaskDefinitionProxyConfiguration. See --- 'ecsTaskDefinitionProxyConfiguration' for a more convenient constructor. -data ECSTaskDefinitionProxyConfiguration = - ECSTaskDefinitionProxyConfiguration - { _eCSTaskDefinitionProxyConfigurationContainerName :: Val Text - , _eCSTaskDefinitionProxyConfigurationProxyConfigurationProperties :: Maybe [ECSTaskDefinitionKeyValuePair] - , _eCSTaskDefinitionProxyConfigurationType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ECSTaskDefinitionProxyConfiguration where - toJSON ECSTaskDefinitionProxyConfiguration{..} = - object $ - catMaybes - [ (Just . ("ContainerName",) . toJSON) _eCSTaskDefinitionProxyConfigurationContainerName - , fmap (("ProxyConfigurationProperties",) . toJSON) _eCSTaskDefinitionProxyConfigurationProxyConfigurationProperties - , fmap (("Type",) . toJSON) _eCSTaskDefinitionProxyConfigurationType - ] - --- | Constructor for 'ECSTaskDefinitionProxyConfiguration' containing required --- fields as arguments. -ecsTaskDefinitionProxyConfiguration - :: Val Text -- ^ 'ecstdpcContainerName' - -> ECSTaskDefinitionProxyConfiguration -ecsTaskDefinitionProxyConfiguration containerNamearg = - ECSTaskDefinitionProxyConfiguration - { _eCSTaskDefinitionProxyConfigurationContainerName = containerNamearg - , _eCSTaskDefinitionProxyConfigurationProxyConfigurationProperties = Nothing - , _eCSTaskDefinitionProxyConfigurationType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-proxyconfiguration.html#cfn-ecs-taskdefinition-proxyconfiguration-containername -ecstdpcContainerName :: Lens' ECSTaskDefinitionProxyConfiguration (Val Text) -ecstdpcContainerName = lens _eCSTaskDefinitionProxyConfigurationContainerName (\s a -> s { _eCSTaskDefinitionProxyConfigurationContainerName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-proxyconfiguration.html#cfn-ecs-taskdefinition-proxyconfiguration-proxyconfigurationproperties -ecstdpcProxyConfigurationProperties :: Lens' ECSTaskDefinitionProxyConfiguration (Maybe [ECSTaskDefinitionKeyValuePair]) -ecstdpcProxyConfigurationProperties = lens _eCSTaskDefinitionProxyConfigurationProxyConfigurationProperties (\s a -> s { _eCSTaskDefinitionProxyConfigurationProxyConfigurationProperties = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-proxyconfiguration.html#cfn-ecs-taskdefinition-proxyconfiguration-type -ecstdpcType :: Lens' ECSTaskDefinitionProxyConfiguration (Maybe (Val Text)) -ecstdpcType = lens _eCSTaskDefinitionProxyConfigurationType (\s a -> s { _eCSTaskDefinitionProxyConfigurationType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionRepositoryCredentials.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionRepositoryCredentials.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionRepositoryCredentials.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-repositorycredentials.html - -module Stratosphere.ResourceProperties.ECSTaskDefinitionRepositoryCredentials where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSTaskDefinitionRepositoryCredentials. See --- 'ecsTaskDefinitionRepositoryCredentials' for a more convenient --- constructor. -data ECSTaskDefinitionRepositoryCredentials = - ECSTaskDefinitionRepositoryCredentials - { _eCSTaskDefinitionRepositoryCredentialsCredentialsParameter :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ECSTaskDefinitionRepositoryCredentials where - toJSON ECSTaskDefinitionRepositoryCredentials{..} = - object $ - catMaybes - [ fmap (("CredentialsParameter",) . toJSON) _eCSTaskDefinitionRepositoryCredentialsCredentialsParameter - ] - --- | Constructor for 'ECSTaskDefinitionRepositoryCredentials' containing --- required fields as arguments. -ecsTaskDefinitionRepositoryCredentials - :: ECSTaskDefinitionRepositoryCredentials -ecsTaskDefinitionRepositoryCredentials = - ECSTaskDefinitionRepositoryCredentials - { _eCSTaskDefinitionRepositoryCredentialsCredentialsParameter = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-repositorycredentials.html#cfn-ecs-taskdefinition-repositorycredentials-credentialsparameter -ecstdrcCredentialsParameter :: Lens' ECSTaskDefinitionRepositoryCredentials (Maybe (Val Text)) -ecstdrcCredentialsParameter = lens _eCSTaskDefinitionRepositoryCredentialsCredentialsParameter (\s a -> s { _eCSTaskDefinitionRepositoryCredentialsCredentialsParameter = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionResourceRequirement.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionResourceRequirement.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionResourceRequirement.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-resourcerequirement.html - -module Stratosphere.ResourceProperties.ECSTaskDefinitionResourceRequirement where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSTaskDefinitionResourceRequirement. See --- 'ecsTaskDefinitionResourceRequirement' for a more convenient constructor. -data ECSTaskDefinitionResourceRequirement = - ECSTaskDefinitionResourceRequirement - { _eCSTaskDefinitionResourceRequirementType :: Val Text - , _eCSTaskDefinitionResourceRequirementValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON ECSTaskDefinitionResourceRequirement where - toJSON ECSTaskDefinitionResourceRequirement{..} = - object $ - catMaybes - [ (Just . ("Type",) . toJSON) _eCSTaskDefinitionResourceRequirementType - , (Just . ("Value",) . toJSON) _eCSTaskDefinitionResourceRequirementValue - ] - --- | Constructor for 'ECSTaskDefinitionResourceRequirement' containing --- required fields as arguments. -ecsTaskDefinitionResourceRequirement - :: Val Text -- ^ 'ecstdrrType' - -> Val Text -- ^ 'ecstdrrValue' - -> ECSTaskDefinitionResourceRequirement -ecsTaskDefinitionResourceRequirement typearg valuearg = - ECSTaskDefinitionResourceRequirement - { _eCSTaskDefinitionResourceRequirementType = typearg - , _eCSTaskDefinitionResourceRequirementValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-resourcerequirement.html#cfn-ecs-taskdefinition-resourcerequirement-type -ecstdrrType :: Lens' ECSTaskDefinitionResourceRequirement (Val Text) -ecstdrrType = lens _eCSTaskDefinitionResourceRequirementType (\s a -> s { _eCSTaskDefinitionResourceRequirementType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-resourcerequirement.html#cfn-ecs-taskdefinition-resourcerequirement-value -ecstdrrValue :: Lens' ECSTaskDefinitionResourceRequirement (Val Text) -ecstdrrValue = lens _eCSTaskDefinitionResourceRequirementValue (\s a -> s { _eCSTaskDefinitionResourceRequirementValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionSecret.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionSecret.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionSecret.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-secret.html - -module Stratosphere.ResourceProperties.ECSTaskDefinitionSecret where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSTaskDefinitionSecret. See --- 'ecsTaskDefinitionSecret' for a more convenient constructor. -data ECSTaskDefinitionSecret = - ECSTaskDefinitionSecret - { _eCSTaskDefinitionSecretName :: Val Text - , _eCSTaskDefinitionSecretValueFrom :: Val Text - } deriving (Show, Eq) - -instance ToJSON ECSTaskDefinitionSecret where - toJSON ECSTaskDefinitionSecret{..} = - object $ - catMaybes - [ (Just . ("Name",) . toJSON) _eCSTaskDefinitionSecretName - , (Just . ("ValueFrom",) . toJSON) _eCSTaskDefinitionSecretValueFrom - ] - --- | Constructor for 'ECSTaskDefinitionSecret' containing required fields as --- arguments. -ecsTaskDefinitionSecret - :: Val Text -- ^ 'ecstdsName' - -> Val Text -- ^ 'ecstdsValueFrom' - -> ECSTaskDefinitionSecret -ecsTaskDefinitionSecret namearg valueFromarg = - ECSTaskDefinitionSecret - { _eCSTaskDefinitionSecretName = namearg - , _eCSTaskDefinitionSecretValueFrom = valueFromarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-secret.html#cfn-ecs-taskdefinition-secret-name -ecstdsName :: Lens' ECSTaskDefinitionSecret (Val Text) -ecstdsName = lens _eCSTaskDefinitionSecretName (\s a -> s { _eCSTaskDefinitionSecretName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-secret.html#cfn-ecs-taskdefinition-secret-valuefrom -ecstdsValueFrom :: Lens' ECSTaskDefinitionSecret (Val Text) -ecstdsValueFrom = lens _eCSTaskDefinitionSecretValueFrom (\s a -> s { _eCSTaskDefinitionSecretValueFrom = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionSystemControl.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionSystemControl.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionSystemControl.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-systemcontrol.html - -module Stratosphere.ResourceProperties.ECSTaskDefinitionSystemControl where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSTaskDefinitionSystemControl. See --- 'ecsTaskDefinitionSystemControl' for a more convenient constructor. -data ECSTaskDefinitionSystemControl = - ECSTaskDefinitionSystemControl - { _eCSTaskDefinitionSystemControlNamespace :: Maybe (Val Text) - , _eCSTaskDefinitionSystemControlValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ECSTaskDefinitionSystemControl where - toJSON ECSTaskDefinitionSystemControl{..} = - object $ - catMaybes - [ fmap (("Namespace",) . toJSON) _eCSTaskDefinitionSystemControlNamespace - , fmap (("Value",) . toJSON) _eCSTaskDefinitionSystemControlValue - ] - --- | Constructor for 'ECSTaskDefinitionSystemControl' containing required --- fields as arguments. -ecsTaskDefinitionSystemControl - :: ECSTaskDefinitionSystemControl -ecsTaskDefinitionSystemControl = - ECSTaskDefinitionSystemControl - { _eCSTaskDefinitionSystemControlNamespace = Nothing - , _eCSTaskDefinitionSystemControlValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-systemcontrol.html#cfn-ecs-taskdefinition-systemcontrol-namespace -ecstdscNamespace :: Lens' ECSTaskDefinitionSystemControl (Maybe (Val Text)) -ecstdscNamespace = lens _eCSTaskDefinitionSystemControlNamespace (\s a -> s { _eCSTaskDefinitionSystemControlNamespace = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-systemcontrol.html#cfn-ecs-taskdefinition-systemcontrol-value -ecstdscValue :: Lens' ECSTaskDefinitionSystemControl (Maybe (Val Text)) -ecstdscValue = lens _eCSTaskDefinitionSystemControlValue (\s a -> s { _eCSTaskDefinitionSystemControlValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionTaskDefinitionPlacementConstraint.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionTaskDefinitionPlacementConstraint.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionTaskDefinitionPlacementConstraint.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-taskdefinitionplacementconstraint.html - -module Stratosphere.ResourceProperties.ECSTaskDefinitionTaskDefinitionPlacementConstraint where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ECSTaskDefinitionTaskDefinitionPlacementConstraint. See --- 'ecsTaskDefinitionTaskDefinitionPlacementConstraint' for a more --- convenient constructor. -data ECSTaskDefinitionTaskDefinitionPlacementConstraint = - ECSTaskDefinitionTaskDefinitionPlacementConstraint - { _eCSTaskDefinitionTaskDefinitionPlacementConstraintExpression :: Maybe (Val Text) - , _eCSTaskDefinitionTaskDefinitionPlacementConstraintType :: Val Text - } deriving (Show, Eq) - -instance ToJSON ECSTaskDefinitionTaskDefinitionPlacementConstraint where - toJSON ECSTaskDefinitionTaskDefinitionPlacementConstraint{..} = - object $ - catMaybes - [ fmap (("Expression",) . toJSON) _eCSTaskDefinitionTaskDefinitionPlacementConstraintExpression - , (Just . ("Type",) . toJSON) _eCSTaskDefinitionTaskDefinitionPlacementConstraintType - ] - --- | Constructor for 'ECSTaskDefinitionTaskDefinitionPlacementConstraint' --- containing required fields as arguments. -ecsTaskDefinitionTaskDefinitionPlacementConstraint - :: Val Text -- ^ 'ecstdtdpcType' - -> ECSTaskDefinitionTaskDefinitionPlacementConstraint -ecsTaskDefinitionTaskDefinitionPlacementConstraint typearg = - ECSTaskDefinitionTaskDefinitionPlacementConstraint - { _eCSTaskDefinitionTaskDefinitionPlacementConstraintExpression = Nothing - , _eCSTaskDefinitionTaskDefinitionPlacementConstraintType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-taskdefinitionplacementconstraint.html#cfn-ecs-taskdefinition-taskdefinitionplacementconstraint-expression -ecstdtdpcExpression :: Lens' ECSTaskDefinitionTaskDefinitionPlacementConstraint (Maybe (Val Text)) -ecstdtdpcExpression = lens _eCSTaskDefinitionTaskDefinitionPlacementConstraintExpression (\s a -> s { _eCSTaskDefinitionTaskDefinitionPlacementConstraintExpression = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-taskdefinitionplacementconstraint.html#cfn-ecs-taskdefinition-taskdefinitionplacementconstraint-type -ecstdtdpcType :: Lens' ECSTaskDefinitionTaskDefinitionPlacementConstraint (Val Text) -ecstdtdpcType = lens _eCSTaskDefinitionTaskDefinitionPlacementConstraintType (\s a -> s { _eCSTaskDefinitionTaskDefinitionPlacementConstraintType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionTmpfs.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionTmpfs.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionTmpfs.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-tmpfs.html - -module Stratosphere.ResourceProperties.ECSTaskDefinitionTmpfs where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSTaskDefinitionTmpfs. See --- 'ecsTaskDefinitionTmpfs' for a more convenient constructor. -data ECSTaskDefinitionTmpfs = - ECSTaskDefinitionTmpfs - { _eCSTaskDefinitionTmpfsContainerPath :: Maybe (Val Text) - , _eCSTaskDefinitionTmpfsMountOptions :: Maybe (ValList Text) - , _eCSTaskDefinitionTmpfsSize :: Val Integer - } deriving (Show, Eq) - -instance ToJSON ECSTaskDefinitionTmpfs where - toJSON ECSTaskDefinitionTmpfs{..} = - object $ - catMaybes - [ fmap (("ContainerPath",) . toJSON) _eCSTaskDefinitionTmpfsContainerPath - , fmap (("MountOptions",) . toJSON) _eCSTaskDefinitionTmpfsMountOptions - , (Just . ("Size",) . toJSON) _eCSTaskDefinitionTmpfsSize - ] - --- | Constructor for 'ECSTaskDefinitionTmpfs' containing required fields as --- arguments. -ecsTaskDefinitionTmpfs - :: Val Integer -- ^ 'ecstdtSize' - -> ECSTaskDefinitionTmpfs -ecsTaskDefinitionTmpfs sizearg = - ECSTaskDefinitionTmpfs - { _eCSTaskDefinitionTmpfsContainerPath = Nothing - , _eCSTaskDefinitionTmpfsMountOptions = Nothing - , _eCSTaskDefinitionTmpfsSize = sizearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-tmpfs.html#cfn-ecs-taskdefinition-tmpfs-containerpath -ecstdtContainerPath :: Lens' ECSTaskDefinitionTmpfs (Maybe (Val Text)) -ecstdtContainerPath = lens _eCSTaskDefinitionTmpfsContainerPath (\s a -> s { _eCSTaskDefinitionTmpfsContainerPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-tmpfs.html#cfn-ecs-taskdefinition-tmpfs-mountoptions -ecstdtMountOptions :: Lens' ECSTaskDefinitionTmpfs (Maybe (ValList Text)) -ecstdtMountOptions = lens _eCSTaskDefinitionTmpfsMountOptions (\s a -> s { _eCSTaskDefinitionTmpfsMountOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-tmpfs.html#cfn-ecs-taskdefinition-tmpfs-size -ecstdtSize :: Lens' ECSTaskDefinitionTmpfs (Val Integer) -ecstdtSize = lens _eCSTaskDefinitionTmpfsSize (\s a -> s { _eCSTaskDefinitionTmpfsSize = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionUlimit.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionUlimit.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionUlimit.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-ulimit.html - -module Stratosphere.ResourceProperties.ECSTaskDefinitionUlimit where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSTaskDefinitionUlimit. See --- 'ecsTaskDefinitionUlimit' for a more convenient constructor. -data ECSTaskDefinitionUlimit = - ECSTaskDefinitionUlimit - { _eCSTaskDefinitionUlimitHardLimit :: Val Integer - , _eCSTaskDefinitionUlimitName :: Val Text - , _eCSTaskDefinitionUlimitSoftLimit :: Val Integer - } deriving (Show, Eq) - -instance ToJSON ECSTaskDefinitionUlimit where - toJSON ECSTaskDefinitionUlimit{..} = - object $ - catMaybes - [ (Just . ("HardLimit",) . toJSON) _eCSTaskDefinitionUlimitHardLimit - , (Just . ("Name",) . toJSON) _eCSTaskDefinitionUlimitName - , (Just . ("SoftLimit",) . toJSON) _eCSTaskDefinitionUlimitSoftLimit - ] - --- | Constructor for 'ECSTaskDefinitionUlimit' containing required fields as --- arguments. -ecsTaskDefinitionUlimit - :: Val Integer -- ^ 'ecstduHardLimit' - -> Val Text -- ^ 'ecstduName' - -> Val Integer -- ^ 'ecstduSoftLimit' - -> ECSTaskDefinitionUlimit -ecsTaskDefinitionUlimit hardLimitarg namearg softLimitarg = - ECSTaskDefinitionUlimit - { _eCSTaskDefinitionUlimitHardLimit = hardLimitarg - , _eCSTaskDefinitionUlimitName = namearg - , _eCSTaskDefinitionUlimitSoftLimit = softLimitarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-ulimit.html#cfn-ecs-taskdefinition-containerdefinition-ulimit-hardlimit -ecstduHardLimit :: Lens' ECSTaskDefinitionUlimit (Val Integer) -ecstduHardLimit = lens _eCSTaskDefinitionUlimitHardLimit (\s a -> s { _eCSTaskDefinitionUlimitHardLimit = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-ulimit.html#cfn-ecs-taskdefinition-containerdefinition-ulimit-name -ecstduName :: Lens' ECSTaskDefinitionUlimit (Val Text) -ecstduName = lens _eCSTaskDefinitionUlimitName (\s a -> s { _eCSTaskDefinitionUlimitName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-ulimit.html#cfn-ecs-taskdefinition-containerdefinition-ulimit-softlimit -ecstduSoftLimit :: Lens' ECSTaskDefinitionUlimit (Val Integer) -ecstduSoftLimit = lens _eCSTaskDefinitionUlimitSoftLimit (\s a -> s { _eCSTaskDefinitionUlimitSoftLimit = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionVolume.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionVolume.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionVolume.hs +++ /dev/null @@ -1,61 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-volumes.html - -module Stratosphere.ResourceProperties.ECSTaskDefinitionVolume where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ECSTaskDefinitionDockerVolumeConfiguration -import Stratosphere.ResourceProperties.ECSTaskDefinitionEFSVolumeConfiguration -import Stratosphere.ResourceProperties.ECSTaskDefinitionHostVolumeProperties - --- | Full data type definition for ECSTaskDefinitionVolume. See --- 'ecsTaskDefinitionVolume' for a more convenient constructor. -data ECSTaskDefinitionVolume = - ECSTaskDefinitionVolume - { _eCSTaskDefinitionVolumeDockerVolumeConfiguration :: Maybe ECSTaskDefinitionDockerVolumeConfiguration - , _eCSTaskDefinitionVolumeEFSVolumeConfiguration :: Maybe ECSTaskDefinitionEFSVolumeConfiguration - , _eCSTaskDefinitionVolumeHost :: Maybe ECSTaskDefinitionHostVolumeProperties - , _eCSTaskDefinitionVolumeName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ECSTaskDefinitionVolume where - toJSON ECSTaskDefinitionVolume{..} = - object $ - catMaybes - [ fmap (("DockerVolumeConfiguration",) . toJSON) _eCSTaskDefinitionVolumeDockerVolumeConfiguration - , fmap (("EFSVolumeConfiguration",) . toJSON) _eCSTaskDefinitionVolumeEFSVolumeConfiguration - , fmap (("Host",) . toJSON) _eCSTaskDefinitionVolumeHost - , fmap (("Name",) . toJSON) _eCSTaskDefinitionVolumeName - ] - --- | Constructor for 'ECSTaskDefinitionVolume' containing required fields as --- arguments. -ecsTaskDefinitionVolume - :: ECSTaskDefinitionVolume -ecsTaskDefinitionVolume = - ECSTaskDefinitionVolume - { _eCSTaskDefinitionVolumeDockerVolumeConfiguration = Nothing - , _eCSTaskDefinitionVolumeEFSVolumeConfiguration = Nothing - , _eCSTaskDefinitionVolumeHost = Nothing - , _eCSTaskDefinitionVolumeName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-volumes.html#cfn-ecs-taskdefinition-volume-dockervolumeconfiguration -ecstdvDockerVolumeConfiguration :: Lens' ECSTaskDefinitionVolume (Maybe ECSTaskDefinitionDockerVolumeConfiguration) -ecstdvDockerVolumeConfiguration = lens _eCSTaskDefinitionVolumeDockerVolumeConfiguration (\s a -> s { _eCSTaskDefinitionVolumeDockerVolumeConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-volumes.html#cfn-ecs-taskdefinition-volume-efsvolumeconfiguration -ecstdvEFSVolumeConfiguration :: Lens' ECSTaskDefinitionVolume (Maybe ECSTaskDefinitionEFSVolumeConfiguration) -ecstdvEFSVolumeConfiguration = lens _eCSTaskDefinitionVolumeEFSVolumeConfiguration (\s a -> s { _eCSTaskDefinitionVolumeEFSVolumeConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-volumes.html#cfn-ecs-taskdefinition-volumes-host -ecstdvHost :: Lens' ECSTaskDefinitionVolume (Maybe ECSTaskDefinitionHostVolumeProperties) -ecstdvHost = lens _eCSTaskDefinitionVolumeHost (\s a -> s { _eCSTaskDefinitionVolumeHost = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-volumes.html#cfn-ecs-taskdefinition-volumes-name -ecstdvName :: Lens' ECSTaskDefinitionVolume (Maybe (Val Text)) -ecstdvName = lens _eCSTaskDefinitionVolumeName (\s a -> s { _eCSTaskDefinitionVolumeName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionVolumeFrom.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionVolumeFrom.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionVolumeFrom.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-volumesfrom.html - -module Stratosphere.ResourceProperties.ECSTaskDefinitionVolumeFrom where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSTaskDefinitionVolumeFrom. See --- 'ecsTaskDefinitionVolumeFrom' for a more convenient constructor. -data ECSTaskDefinitionVolumeFrom = - ECSTaskDefinitionVolumeFrom - { _eCSTaskDefinitionVolumeFromReadOnly :: Maybe (Val Bool) - , _eCSTaskDefinitionVolumeFromSourceContainer :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ECSTaskDefinitionVolumeFrom where - toJSON ECSTaskDefinitionVolumeFrom{..} = - object $ - catMaybes - [ fmap (("ReadOnly",) . toJSON) _eCSTaskDefinitionVolumeFromReadOnly - , fmap (("SourceContainer",) . toJSON) _eCSTaskDefinitionVolumeFromSourceContainer - ] - --- | Constructor for 'ECSTaskDefinitionVolumeFrom' containing required fields --- as arguments. -ecsTaskDefinitionVolumeFrom - :: ECSTaskDefinitionVolumeFrom -ecsTaskDefinitionVolumeFrom = - ECSTaskDefinitionVolumeFrom - { _eCSTaskDefinitionVolumeFromReadOnly = Nothing - , _eCSTaskDefinitionVolumeFromSourceContainer = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-volumesfrom.html#cfn-ecs-taskdefinition-containerdefinition-volumesfrom-readonly -ecstdvfReadOnly :: Lens' ECSTaskDefinitionVolumeFrom (Maybe (Val Bool)) -ecstdvfReadOnly = lens _eCSTaskDefinitionVolumeFromReadOnly (\s a -> s { _eCSTaskDefinitionVolumeFromReadOnly = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions-volumesfrom.html#cfn-ecs-taskdefinition-containerdefinition-volumesfrom-sourcecontainer -ecstdvfSourceContainer :: Lens' ECSTaskDefinitionVolumeFrom (Maybe (Val Text)) -ecstdvfSourceContainer = lens _eCSTaskDefinitionVolumeFromSourceContainer (\s a -> s { _eCSTaskDefinitionVolumeFromSourceContainer = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskSetAwsVpcConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskSetAwsVpcConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskSetAwsVpcConfiguration.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskset-awsvpcconfiguration.html - -module Stratosphere.ResourceProperties.ECSTaskSetAwsVpcConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSTaskSetAwsVpcConfiguration. See --- 'ecsTaskSetAwsVpcConfiguration' for a more convenient constructor. -data ECSTaskSetAwsVpcConfiguration = - ECSTaskSetAwsVpcConfiguration - { _eCSTaskSetAwsVpcConfigurationAssignPublicIp :: Maybe (Val Text) - , _eCSTaskSetAwsVpcConfigurationSecurityGroups :: Maybe (ValList Text) - , _eCSTaskSetAwsVpcConfigurationSubnets :: ValList Text - } deriving (Show, Eq) - -instance ToJSON ECSTaskSetAwsVpcConfiguration where - toJSON ECSTaskSetAwsVpcConfiguration{..} = - object $ - catMaybes - [ fmap (("AssignPublicIp",) . toJSON) _eCSTaskSetAwsVpcConfigurationAssignPublicIp - , fmap (("SecurityGroups",) . toJSON) _eCSTaskSetAwsVpcConfigurationSecurityGroups - , (Just . ("Subnets",) . toJSON) _eCSTaskSetAwsVpcConfigurationSubnets - ] - --- | Constructor for 'ECSTaskSetAwsVpcConfiguration' containing required --- fields as arguments. -ecsTaskSetAwsVpcConfiguration - :: ValList Text -- ^ 'ecstsavcSubnets' - -> ECSTaskSetAwsVpcConfiguration -ecsTaskSetAwsVpcConfiguration subnetsarg = - ECSTaskSetAwsVpcConfiguration - { _eCSTaskSetAwsVpcConfigurationAssignPublicIp = Nothing - , _eCSTaskSetAwsVpcConfigurationSecurityGroups = Nothing - , _eCSTaskSetAwsVpcConfigurationSubnets = subnetsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskset-awsvpcconfiguration.html#cfn-ecs-taskset-awsvpcconfiguration-assignpublicip -ecstsavcAssignPublicIp :: Lens' ECSTaskSetAwsVpcConfiguration (Maybe (Val Text)) -ecstsavcAssignPublicIp = lens _eCSTaskSetAwsVpcConfigurationAssignPublicIp (\s a -> s { _eCSTaskSetAwsVpcConfigurationAssignPublicIp = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskset-awsvpcconfiguration.html#cfn-ecs-taskset-awsvpcconfiguration-securitygroups -ecstsavcSecurityGroups :: Lens' ECSTaskSetAwsVpcConfiguration (Maybe (ValList Text)) -ecstsavcSecurityGroups = lens _eCSTaskSetAwsVpcConfigurationSecurityGroups (\s a -> s { _eCSTaskSetAwsVpcConfigurationSecurityGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskset-awsvpcconfiguration.html#cfn-ecs-taskset-awsvpcconfiguration-subnets -ecstsavcSubnets :: Lens' ECSTaskSetAwsVpcConfiguration (ValList Text) -ecstsavcSubnets = lens _eCSTaskSetAwsVpcConfigurationSubnets (\s a -> s { _eCSTaskSetAwsVpcConfigurationSubnets = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskSetLoadBalancer.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskSetLoadBalancer.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskSetLoadBalancer.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskset-loadbalancer.html - -module Stratosphere.ResourceProperties.ECSTaskSetLoadBalancer where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSTaskSetLoadBalancer. See --- 'ecsTaskSetLoadBalancer' for a more convenient constructor. -data ECSTaskSetLoadBalancer = - ECSTaskSetLoadBalancer - { _eCSTaskSetLoadBalancerContainerName :: Maybe (Val Text) - , _eCSTaskSetLoadBalancerContainerPort :: Maybe (Val Integer) - , _eCSTaskSetLoadBalancerLoadBalancerName :: Maybe (Val Text) - , _eCSTaskSetLoadBalancerTargetGroupArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ECSTaskSetLoadBalancer where - toJSON ECSTaskSetLoadBalancer{..} = - object $ - catMaybes - [ fmap (("ContainerName",) . toJSON) _eCSTaskSetLoadBalancerContainerName - , fmap (("ContainerPort",) . toJSON) _eCSTaskSetLoadBalancerContainerPort - , fmap (("LoadBalancerName",) . toJSON) _eCSTaskSetLoadBalancerLoadBalancerName - , fmap (("TargetGroupArn",) . toJSON) _eCSTaskSetLoadBalancerTargetGroupArn - ] - --- | Constructor for 'ECSTaskSetLoadBalancer' containing required fields as --- arguments. -ecsTaskSetLoadBalancer - :: ECSTaskSetLoadBalancer -ecsTaskSetLoadBalancer = - ECSTaskSetLoadBalancer - { _eCSTaskSetLoadBalancerContainerName = Nothing - , _eCSTaskSetLoadBalancerContainerPort = Nothing - , _eCSTaskSetLoadBalancerLoadBalancerName = Nothing - , _eCSTaskSetLoadBalancerTargetGroupArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskset-loadbalancer.html#cfn-ecs-taskset-loadbalancer-containername -ecstslbContainerName :: Lens' ECSTaskSetLoadBalancer (Maybe (Val Text)) -ecstslbContainerName = lens _eCSTaskSetLoadBalancerContainerName (\s a -> s { _eCSTaskSetLoadBalancerContainerName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskset-loadbalancer.html#cfn-ecs-taskset-loadbalancer-containerport -ecstslbContainerPort :: Lens' ECSTaskSetLoadBalancer (Maybe (Val Integer)) -ecstslbContainerPort = lens _eCSTaskSetLoadBalancerContainerPort (\s a -> s { _eCSTaskSetLoadBalancerContainerPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskset-loadbalancer.html#cfn-ecs-taskset-loadbalancer-loadbalancername -ecstslbLoadBalancerName :: Lens' ECSTaskSetLoadBalancer (Maybe (Val Text)) -ecstslbLoadBalancerName = lens _eCSTaskSetLoadBalancerLoadBalancerName (\s a -> s { _eCSTaskSetLoadBalancerLoadBalancerName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskset-loadbalancer.html#cfn-ecs-taskset-loadbalancer-targetgrouparn -ecstslbTargetGroupArn :: Lens' ECSTaskSetLoadBalancer (Maybe (Val Text)) -ecstslbTargetGroupArn = lens _eCSTaskSetLoadBalancerTargetGroupArn (\s a -> s { _eCSTaskSetLoadBalancerTargetGroupArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskSetNetworkConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskSetNetworkConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskSetNetworkConfiguration.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskset-networkconfiguration.html - -module Stratosphere.ResourceProperties.ECSTaskSetNetworkConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ECSTaskSetAwsVpcConfiguration - --- | Full data type definition for ECSTaskSetNetworkConfiguration. See --- 'ecsTaskSetNetworkConfiguration' for a more convenient constructor. -data ECSTaskSetNetworkConfiguration = - ECSTaskSetNetworkConfiguration - { _eCSTaskSetNetworkConfigurationAwsVpcConfiguration :: Maybe ECSTaskSetAwsVpcConfiguration - } deriving (Show, Eq) - -instance ToJSON ECSTaskSetNetworkConfiguration where - toJSON ECSTaskSetNetworkConfiguration{..} = - object $ - catMaybes - [ fmap (("AwsVpcConfiguration",) . toJSON) _eCSTaskSetNetworkConfigurationAwsVpcConfiguration - ] - --- | Constructor for 'ECSTaskSetNetworkConfiguration' containing required --- fields as arguments. -ecsTaskSetNetworkConfiguration - :: ECSTaskSetNetworkConfiguration -ecsTaskSetNetworkConfiguration = - ECSTaskSetNetworkConfiguration - { _eCSTaskSetNetworkConfigurationAwsVpcConfiguration = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskset-networkconfiguration.html#cfn-ecs-taskset-networkconfiguration-awsvpcconfiguration -ecstsncAwsVpcConfiguration :: Lens' ECSTaskSetNetworkConfiguration (Maybe ECSTaskSetAwsVpcConfiguration) -ecstsncAwsVpcConfiguration = lens _eCSTaskSetNetworkConfigurationAwsVpcConfiguration (\s a -> s { _eCSTaskSetNetworkConfigurationAwsVpcConfiguration = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskSetScale.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskSetScale.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskSetScale.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskset-scale.html - -module Stratosphere.ResourceProperties.ECSTaskSetScale where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSTaskSetScale. See 'ecsTaskSetScale' for --- a more convenient constructor. -data ECSTaskSetScale = - ECSTaskSetScale - { _eCSTaskSetScaleUnit :: Maybe (Val Text) - , _eCSTaskSetScaleValue :: Maybe (Val Double) - } deriving (Show, Eq) - -instance ToJSON ECSTaskSetScale where - toJSON ECSTaskSetScale{..} = - object $ - catMaybes - [ fmap (("Unit",) . toJSON) _eCSTaskSetScaleUnit - , fmap (("Value",) . toJSON) _eCSTaskSetScaleValue - ] - --- | Constructor for 'ECSTaskSetScale' containing required fields as --- arguments. -ecsTaskSetScale - :: ECSTaskSetScale -ecsTaskSetScale = - ECSTaskSetScale - { _eCSTaskSetScaleUnit = Nothing - , _eCSTaskSetScaleValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskset-scale.html#cfn-ecs-taskset-scale-unit -ecstssUnit :: Lens' ECSTaskSetScale (Maybe (Val Text)) -ecstssUnit = lens _eCSTaskSetScaleUnit (\s a -> s { _eCSTaskSetScaleUnit = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskset-scale.html#cfn-ecs-taskset-scale-value -ecstssValue :: Lens' ECSTaskSetScale (Maybe (Val Double)) -ecstssValue = lens _eCSTaskSetScaleValue (\s a -> s { _eCSTaskSetScaleValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ECSTaskSetServiceRegistry.hs b/library-gen/Stratosphere/ResourceProperties/ECSTaskSetServiceRegistry.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ECSTaskSetServiceRegistry.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskset-serviceregistry.html - -module Stratosphere.ResourceProperties.ECSTaskSetServiceRegistry where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSTaskSetServiceRegistry. See --- 'ecsTaskSetServiceRegistry' for a more convenient constructor. -data ECSTaskSetServiceRegistry = - ECSTaskSetServiceRegistry - { _eCSTaskSetServiceRegistryContainerName :: Maybe (Val Text) - , _eCSTaskSetServiceRegistryContainerPort :: Maybe (Val Integer) - , _eCSTaskSetServiceRegistryPort :: Maybe (Val Integer) - , _eCSTaskSetServiceRegistryRegistryArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ECSTaskSetServiceRegistry where - toJSON ECSTaskSetServiceRegistry{..} = - object $ - catMaybes - [ fmap (("ContainerName",) . toJSON) _eCSTaskSetServiceRegistryContainerName - , fmap (("ContainerPort",) . toJSON) _eCSTaskSetServiceRegistryContainerPort - , fmap (("Port",) . toJSON) _eCSTaskSetServiceRegistryPort - , fmap (("RegistryArn",) . toJSON) _eCSTaskSetServiceRegistryRegistryArn - ] - --- | Constructor for 'ECSTaskSetServiceRegistry' containing required fields as --- arguments. -ecsTaskSetServiceRegistry - :: ECSTaskSetServiceRegistry -ecsTaskSetServiceRegistry = - ECSTaskSetServiceRegistry - { _eCSTaskSetServiceRegistryContainerName = Nothing - , _eCSTaskSetServiceRegistryContainerPort = Nothing - , _eCSTaskSetServiceRegistryPort = Nothing - , _eCSTaskSetServiceRegistryRegistryArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskset-serviceregistry.html#cfn-ecs-taskset-serviceregistry-containername -ecstssrContainerName :: Lens' ECSTaskSetServiceRegistry (Maybe (Val Text)) -ecstssrContainerName = lens _eCSTaskSetServiceRegistryContainerName (\s a -> s { _eCSTaskSetServiceRegistryContainerName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskset-serviceregistry.html#cfn-ecs-taskset-serviceregistry-containerport -ecstssrContainerPort :: Lens' ECSTaskSetServiceRegistry (Maybe (Val Integer)) -ecstssrContainerPort = lens _eCSTaskSetServiceRegistryContainerPort (\s a -> s { _eCSTaskSetServiceRegistryContainerPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskset-serviceregistry.html#cfn-ecs-taskset-serviceregistry-port -ecstssrPort :: Lens' ECSTaskSetServiceRegistry (Maybe (Val Integer)) -ecstssrPort = lens _eCSTaskSetServiceRegistryPort (\s a -> s { _eCSTaskSetServiceRegistryPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskset-serviceregistry.html#cfn-ecs-taskset-serviceregistry-registryarn -ecstssrRegistryArn :: Lens' ECSTaskSetServiceRegistry (Maybe (Val Text)) -ecstssrRegistryArn = lens _eCSTaskSetServiceRegistryRegistryArn (\s a -> s { _eCSTaskSetServiceRegistryRegistryArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EFSAccessPointAccessPointTag.hs b/library-gen/Stratosphere/ResourceProperties/EFSAccessPointAccessPointTag.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EFSAccessPointAccessPointTag.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# 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 }) diff --git a/library-gen/Stratosphere/ResourceProperties/EFSAccessPointCreationInfo.hs b/library-gen/Stratosphere/ResourceProperties/EFSAccessPointCreationInfo.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EFSAccessPointCreationInfo.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# 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 }) diff --git a/library-gen/Stratosphere/ResourceProperties/EFSAccessPointPosixUser.hs b/library-gen/Stratosphere/ResourceProperties/EFSAccessPointPosixUser.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EFSAccessPointPosixUser.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# 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 }) diff --git a/library-gen/Stratosphere/ResourceProperties/EFSAccessPointRootDirectory.hs b/library-gen/Stratosphere/ResourceProperties/EFSAccessPointRootDirectory.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EFSAccessPointRootDirectory.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# 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 }) diff --git a/library-gen/Stratosphere/ResourceProperties/EFSFileSystemBackupPolicy.hs b/library-gen/Stratosphere/ResourceProperties/EFSFileSystemBackupPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EFSFileSystemBackupPolicy.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-efs-filesystem-backuppolicy.html - -module Stratosphere.ResourceProperties.EFSFileSystemBackupPolicy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EFSFileSystemBackupPolicy. See --- 'efsFileSystemBackupPolicy' for a more convenient constructor. -data EFSFileSystemBackupPolicy = - EFSFileSystemBackupPolicy - { _eFSFileSystemBackupPolicyStatus :: Val Text - } deriving (Show, Eq) - -instance ToJSON EFSFileSystemBackupPolicy where - toJSON EFSFileSystemBackupPolicy{..} = - object $ - catMaybes - [ (Just . ("Status",) . toJSON) _eFSFileSystemBackupPolicyStatus - ] - --- | Constructor for 'EFSFileSystemBackupPolicy' containing required fields as --- arguments. -efsFileSystemBackupPolicy - :: Val Text -- ^ 'efsfsbpStatus' - -> EFSFileSystemBackupPolicy -efsFileSystemBackupPolicy statusarg = - EFSFileSystemBackupPolicy - { _eFSFileSystemBackupPolicyStatus = statusarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-efs-filesystem-backuppolicy.html#cfn-efs-filesystem-backuppolicy-status -efsfsbpStatus :: Lens' EFSFileSystemBackupPolicy (Val Text) -efsfsbpStatus = lens _eFSFileSystemBackupPolicyStatus (\s a -> s { _eFSFileSystemBackupPolicyStatus = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EFSFileSystemElasticFileSystemTag.hs b/library-gen/Stratosphere/ResourceProperties/EFSFileSystemElasticFileSystemTag.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EFSFileSystemElasticFileSystemTag.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-efs-filesystem-elasticfilesystemtag.html - -module Stratosphere.ResourceProperties.EFSFileSystemElasticFileSystemTag where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EFSFileSystemElasticFileSystemTag. See --- 'efsFileSystemElasticFileSystemTag' for a more convenient constructor. -data EFSFileSystemElasticFileSystemTag = - EFSFileSystemElasticFileSystemTag - { _eFSFileSystemElasticFileSystemTagKey :: Val Text - , _eFSFileSystemElasticFileSystemTagValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON EFSFileSystemElasticFileSystemTag where - toJSON EFSFileSystemElasticFileSystemTag{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _eFSFileSystemElasticFileSystemTagKey - , (Just . ("Value",) . toJSON) _eFSFileSystemElasticFileSystemTagValue - ] - --- | Constructor for 'EFSFileSystemElasticFileSystemTag' containing required --- fields as arguments. -efsFileSystemElasticFileSystemTag - :: Val Text -- ^ 'efsfsefstKey' - -> Val Text -- ^ 'efsfsefstValue' - -> EFSFileSystemElasticFileSystemTag -efsFileSystemElasticFileSystemTag keyarg valuearg = - EFSFileSystemElasticFileSystemTag - { _eFSFileSystemElasticFileSystemTagKey = keyarg - , _eFSFileSystemElasticFileSystemTagValue = valuearg - } - --- | 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-elasticfilesystemtag.html#cfn-efs-filesystem-elasticfilesystemtag-value -efsfsefstValue :: Lens' EFSFileSystemElasticFileSystemTag (Val Text) -efsfsefstValue = lens _eFSFileSystemElasticFileSystemTagValue (\s a -> s { _eFSFileSystemElasticFileSystemTagValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EFSFileSystemLifecyclePolicy.hs b/library-gen/Stratosphere/ResourceProperties/EFSFileSystemLifecyclePolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EFSFileSystemLifecyclePolicy.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-efs-filesystem-lifecyclepolicy.html - -module Stratosphere.ResourceProperties.EFSFileSystemLifecyclePolicy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EFSFileSystemLifecyclePolicy. See --- 'efsFileSystemLifecyclePolicy' for a more convenient constructor. -data EFSFileSystemLifecyclePolicy = - EFSFileSystemLifecyclePolicy - { _eFSFileSystemLifecyclePolicyTransitionToIA :: Val Text - } deriving (Show, Eq) - -instance ToJSON EFSFileSystemLifecyclePolicy where - toJSON EFSFileSystemLifecyclePolicy{..} = - object $ - catMaybes - [ (Just . ("TransitionToIA",) . toJSON) _eFSFileSystemLifecyclePolicyTransitionToIA - ] - --- | Constructor for 'EFSFileSystemLifecyclePolicy' containing required fields --- as arguments. -efsFileSystemLifecyclePolicy - :: Val Text -- ^ 'efsfslpTransitionToIA' - -> EFSFileSystemLifecyclePolicy -efsFileSystemLifecyclePolicy transitionToIAarg = - EFSFileSystemLifecyclePolicy - { _eFSFileSystemLifecyclePolicyTransitionToIA = transitionToIAarg - } - --- | 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 }) diff --git a/library-gen/Stratosphere/ResourceProperties/EKSClusterEncryptionConfig.hs b/library-gen/Stratosphere/ResourceProperties/EKSClusterEncryptionConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EKSClusterEncryptionConfig.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eks-cluster-encryptionconfig.html - -module Stratosphere.ResourceProperties.EKSClusterEncryptionConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EKSClusterProvider - --- | Full data type definition for EKSClusterEncryptionConfig. See --- 'eksClusterEncryptionConfig' for a more convenient constructor. -data EKSClusterEncryptionConfig = - EKSClusterEncryptionConfig - { _eKSClusterEncryptionConfigProvider :: Maybe EKSClusterProvider - , _eKSClusterEncryptionConfigResources :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON EKSClusterEncryptionConfig where - toJSON EKSClusterEncryptionConfig{..} = - object $ - catMaybes - [ fmap (("Provider",) . toJSON) _eKSClusterEncryptionConfigProvider - , fmap (("Resources",) . toJSON) _eKSClusterEncryptionConfigResources - ] - --- | Constructor for 'EKSClusterEncryptionConfig' containing required fields --- as arguments. -eksClusterEncryptionConfig - :: EKSClusterEncryptionConfig -eksClusterEncryptionConfig = - EKSClusterEncryptionConfig - { _eKSClusterEncryptionConfigProvider = Nothing - , _eKSClusterEncryptionConfigResources = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eks-cluster-encryptionconfig.html#cfn-eks-cluster-encryptionconfig-provider -ekscecProvider :: Lens' EKSClusterEncryptionConfig (Maybe EKSClusterProvider) -ekscecProvider = lens _eKSClusterEncryptionConfigProvider (\s a -> s { _eKSClusterEncryptionConfigProvider = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eks-cluster-encryptionconfig.html#cfn-eks-cluster-encryptionconfig-resources -ekscecResources :: Lens' EKSClusterEncryptionConfig (Maybe (ValList Text)) -ekscecResources = lens _eKSClusterEncryptionConfigResources (\s a -> s { _eKSClusterEncryptionConfigResources = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EKSClusterProvider.hs b/library-gen/Stratosphere/ResourceProperties/EKSClusterProvider.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EKSClusterProvider.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eks-cluster-provider.html - -module Stratosphere.ResourceProperties.EKSClusterProvider where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EKSClusterProvider. See --- 'eksClusterProvider' for a more convenient constructor. -data EKSClusterProvider = - EKSClusterProvider - { _eKSClusterProviderKeyArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EKSClusterProvider where - toJSON EKSClusterProvider{..} = - object $ - catMaybes - [ fmap (("KeyArn",) . toJSON) _eKSClusterProviderKeyArn - ] - --- | Constructor for 'EKSClusterProvider' containing required fields as --- arguments. -eksClusterProvider - :: EKSClusterProvider -eksClusterProvider = - EKSClusterProvider - { _eKSClusterProviderKeyArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eks-cluster-provider.html#cfn-eks-cluster-provider-keyarn -ekscpKeyArn :: Lens' EKSClusterProvider (Maybe (Val Text)) -ekscpKeyArn = lens _eKSClusterProviderKeyArn (\s a -> s { _eKSClusterProviderKeyArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EKSClusterResourcesVpcConfig.hs b/library-gen/Stratosphere/ResourceProperties/EKSClusterResourcesVpcConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EKSClusterResourcesVpcConfig.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eks-cluster-resourcesvpcconfig.html - -module Stratosphere.ResourceProperties.EKSClusterResourcesVpcConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EKSClusterResourcesVpcConfig. See --- 'eksClusterResourcesVpcConfig' for a more convenient constructor. -data EKSClusterResourcesVpcConfig = - EKSClusterResourcesVpcConfig - { _eKSClusterResourcesVpcConfigSecurityGroupIds :: Maybe (ValList Text) - , _eKSClusterResourcesVpcConfigSubnetIds :: ValList Text - } deriving (Show, Eq) - -instance ToJSON EKSClusterResourcesVpcConfig where - toJSON EKSClusterResourcesVpcConfig{..} = - object $ - catMaybes - [ fmap (("SecurityGroupIds",) . toJSON) _eKSClusterResourcesVpcConfigSecurityGroupIds - , (Just . ("SubnetIds",) . toJSON) _eKSClusterResourcesVpcConfigSubnetIds - ] - --- | Constructor for 'EKSClusterResourcesVpcConfig' containing required fields --- as arguments. -eksClusterResourcesVpcConfig - :: ValList Text -- ^ 'ekscrvcSubnetIds' - -> EKSClusterResourcesVpcConfig -eksClusterResourcesVpcConfig subnetIdsarg = - EKSClusterResourcesVpcConfig - { _eKSClusterResourcesVpcConfigSecurityGroupIds = Nothing - , _eKSClusterResourcesVpcConfigSubnetIds = subnetIdsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eks-cluster-resourcesvpcconfig.html#cfn-eks-cluster-resourcesvpcconfig-securitygroupids -ekscrvcSecurityGroupIds :: Lens' EKSClusterResourcesVpcConfig (Maybe (ValList Text)) -ekscrvcSecurityGroupIds = lens _eKSClusterResourcesVpcConfigSecurityGroupIds (\s a -> s { _eKSClusterResourcesVpcConfigSecurityGroupIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eks-cluster-resourcesvpcconfig.html#cfn-eks-cluster-resourcesvpcconfig-subnetids -ekscrvcSubnetIds :: Lens' EKSClusterResourcesVpcConfig (ValList Text) -ekscrvcSubnetIds = lens _eKSClusterResourcesVpcConfigSubnetIds (\s a -> s { _eKSClusterResourcesVpcConfigSubnetIds = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EKSFargateProfileLabel.hs b/library-gen/Stratosphere/ResourceProperties/EKSFargateProfileLabel.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EKSFargateProfileLabel.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eks-fargateprofile-label.html - -module Stratosphere.ResourceProperties.EKSFargateProfileLabel where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EKSFargateProfileLabel. See --- 'eksFargateProfileLabel' for a more convenient constructor. -data EKSFargateProfileLabel = - EKSFargateProfileLabel - { _eKSFargateProfileLabelKey :: Val Text - , _eKSFargateProfileLabelValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON EKSFargateProfileLabel where - toJSON EKSFargateProfileLabel{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _eKSFargateProfileLabelKey - , (Just . ("Value",) . toJSON) _eKSFargateProfileLabelValue - ] - --- | Constructor for 'EKSFargateProfileLabel' containing required fields as --- arguments. -eksFargateProfileLabel - :: Val Text -- ^ 'eksfplKey' - -> Val Text -- ^ 'eksfplValue' - -> EKSFargateProfileLabel -eksFargateProfileLabel keyarg valuearg = - EKSFargateProfileLabel - { _eKSFargateProfileLabelKey = keyarg - , _eKSFargateProfileLabelValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eks-fargateprofile-label.html#cfn-eks-fargateprofile-label-key -eksfplKey :: Lens' EKSFargateProfileLabel (Val Text) -eksfplKey = lens _eKSFargateProfileLabelKey (\s a -> s { _eKSFargateProfileLabelKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eks-fargateprofile-label.html#cfn-eks-fargateprofile-label-value -eksfplValue :: Lens' EKSFargateProfileLabel (Val Text) -eksfplValue = lens _eKSFargateProfileLabelValue (\s a -> s { _eKSFargateProfileLabelValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EKSFargateProfileSelector.hs b/library-gen/Stratosphere/ResourceProperties/EKSFargateProfileSelector.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EKSFargateProfileSelector.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eks-fargateprofile-selector.html - -module Stratosphere.ResourceProperties.EKSFargateProfileSelector where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EKSFargateProfileLabel - --- | Full data type definition for EKSFargateProfileSelector. See --- 'eksFargateProfileSelector' for a more convenient constructor. -data EKSFargateProfileSelector = - EKSFargateProfileSelector - { _eKSFargateProfileSelectorLabels :: Maybe [EKSFargateProfileLabel] - , _eKSFargateProfileSelectorNamespace :: Val Text - } deriving (Show, Eq) - -instance ToJSON EKSFargateProfileSelector where - toJSON EKSFargateProfileSelector{..} = - object $ - catMaybes - [ fmap (("Labels",) . toJSON) _eKSFargateProfileSelectorLabels - , (Just . ("Namespace",) . toJSON) _eKSFargateProfileSelectorNamespace - ] - --- | Constructor for 'EKSFargateProfileSelector' containing required fields as --- arguments. -eksFargateProfileSelector - :: Val Text -- ^ 'eksfpsNamespace' - -> EKSFargateProfileSelector -eksFargateProfileSelector namespacearg = - EKSFargateProfileSelector - { _eKSFargateProfileSelectorLabels = Nothing - , _eKSFargateProfileSelectorNamespace = namespacearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eks-fargateprofile-selector.html#cfn-eks-fargateprofile-selector-labels -eksfpsLabels :: Lens' EKSFargateProfileSelector (Maybe [EKSFargateProfileLabel]) -eksfpsLabels = lens _eKSFargateProfileSelectorLabels (\s a -> s { _eKSFargateProfileSelectorLabels = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eks-fargateprofile-selector.html#cfn-eks-fargateprofile-selector-namespace -eksfpsNamespace :: Lens' EKSFargateProfileSelector (Val Text) -eksfpsNamespace = lens _eKSFargateProfileSelectorNamespace (\s a -> s { _eKSFargateProfileSelectorNamespace = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EKSNodegroupLaunchTemplateSpecification.hs b/library-gen/Stratosphere/ResourceProperties/EKSNodegroupLaunchTemplateSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EKSNodegroupLaunchTemplateSpecification.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eks-nodegroup-launchtemplatespecification.html - -module Stratosphere.ResourceProperties.EKSNodegroupLaunchTemplateSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EKSNodegroupLaunchTemplateSpecification. --- See 'eksNodegroupLaunchTemplateSpecification' for a more convenient --- constructor. -data EKSNodegroupLaunchTemplateSpecification = - EKSNodegroupLaunchTemplateSpecification - { _eKSNodegroupLaunchTemplateSpecificationId :: Maybe (Val Text) - , _eKSNodegroupLaunchTemplateSpecificationName :: Maybe (Val Text) - , _eKSNodegroupLaunchTemplateSpecificationVersion :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EKSNodegroupLaunchTemplateSpecification where - toJSON EKSNodegroupLaunchTemplateSpecification{..} = - object $ - catMaybes - [ fmap (("Id",) . toJSON) _eKSNodegroupLaunchTemplateSpecificationId - , fmap (("Name",) . toJSON) _eKSNodegroupLaunchTemplateSpecificationName - , fmap (("Version",) . toJSON) _eKSNodegroupLaunchTemplateSpecificationVersion - ] - --- | Constructor for 'EKSNodegroupLaunchTemplateSpecification' containing --- required fields as arguments. -eksNodegroupLaunchTemplateSpecification - :: EKSNodegroupLaunchTemplateSpecification -eksNodegroupLaunchTemplateSpecification = - EKSNodegroupLaunchTemplateSpecification - { _eKSNodegroupLaunchTemplateSpecificationId = Nothing - , _eKSNodegroupLaunchTemplateSpecificationName = Nothing - , _eKSNodegroupLaunchTemplateSpecificationVersion = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eks-nodegroup-launchtemplatespecification.html#cfn-eks-nodegroup-launchtemplatespecification-id -eksnltsId :: Lens' EKSNodegroupLaunchTemplateSpecification (Maybe (Val Text)) -eksnltsId = lens _eKSNodegroupLaunchTemplateSpecificationId (\s a -> s { _eKSNodegroupLaunchTemplateSpecificationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eks-nodegroup-launchtemplatespecification.html#cfn-eks-nodegroup-launchtemplatespecification-name -eksnltsName :: Lens' EKSNodegroupLaunchTemplateSpecification (Maybe (Val Text)) -eksnltsName = lens _eKSNodegroupLaunchTemplateSpecificationName (\s a -> s { _eKSNodegroupLaunchTemplateSpecificationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eks-nodegroup-launchtemplatespecification.html#cfn-eks-nodegroup-launchtemplatespecification-version -eksnltsVersion :: Lens' EKSNodegroupLaunchTemplateSpecification (Maybe (Val Text)) -eksnltsVersion = lens _eKSNodegroupLaunchTemplateSpecificationVersion (\s a -> s { _eKSNodegroupLaunchTemplateSpecificationVersion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EKSNodegroupRemoteAccess.hs b/library-gen/Stratosphere/ResourceProperties/EKSNodegroupRemoteAccess.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EKSNodegroupRemoteAccess.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eks-nodegroup-remoteaccess.html - -module Stratosphere.ResourceProperties.EKSNodegroupRemoteAccess where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EKSNodegroupRemoteAccess. See --- 'eksNodegroupRemoteAccess' for a more convenient constructor. -data EKSNodegroupRemoteAccess = - EKSNodegroupRemoteAccess - { _eKSNodegroupRemoteAccessEc2SshKey :: Val Text - , _eKSNodegroupRemoteAccessSourceSecurityGroups :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON EKSNodegroupRemoteAccess where - toJSON EKSNodegroupRemoteAccess{..} = - object $ - catMaybes - [ (Just . ("Ec2SshKey",) . toJSON) _eKSNodegroupRemoteAccessEc2SshKey - , fmap (("SourceSecurityGroups",) . toJSON) _eKSNodegroupRemoteAccessSourceSecurityGroups - ] - --- | Constructor for 'EKSNodegroupRemoteAccess' containing required fields as --- arguments. -eksNodegroupRemoteAccess - :: Val Text -- ^ 'eksnraEc2SshKey' - -> EKSNodegroupRemoteAccess -eksNodegroupRemoteAccess ec2SshKeyarg = - EKSNodegroupRemoteAccess - { _eKSNodegroupRemoteAccessEc2SshKey = ec2SshKeyarg - , _eKSNodegroupRemoteAccessSourceSecurityGroups = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eks-nodegroup-remoteaccess.html#cfn-eks-nodegroup-remoteaccess-ec2sshkey -eksnraEc2SshKey :: Lens' EKSNodegroupRemoteAccess (Val Text) -eksnraEc2SshKey = lens _eKSNodegroupRemoteAccessEc2SshKey (\s a -> s { _eKSNodegroupRemoteAccessEc2SshKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eks-nodegroup-remoteaccess.html#cfn-eks-nodegroup-remoteaccess-sourcesecuritygroups -eksnraSourceSecurityGroups :: Lens' EKSNodegroupRemoteAccess (Maybe (ValList Text)) -eksnraSourceSecurityGroups = lens _eKSNodegroupRemoteAccessSourceSecurityGroups (\s a -> s { _eKSNodegroupRemoteAccessSourceSecurityGroups = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EKSNodegroupScalingConfig.hs b/library-gen/Stratosphere/ResourceProperties/EKSNodegroupScalingConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EKSNodegroupScalingConfig.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eks-nodegroup-scalingconfig.html - -module Stratosphere.ResourceProperties.EKSNodegroupScalingConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EKSNodegroupScalingConfig. See --- 'eksNodegroupScalingConfig' for a more convenient constructor. -data EKSNodegroupScalingConfig = - EKSNodegroupScalingConfig - { _eKSNodegroupScalingConfigDesiredSize :: Maybe (Val Double) - , _eKSNodegroupScalingConfigMaxSize :: Maybe (Val Double) - , _eKSNodegroupScalingConfigMinSize :: Maybe (Val Double) - } deriving (Show, Eq) - -instance ToJSON EKSNodegroupScalingConfig where - toJSON EKSNodegroupScalingConfig{..} = - object $ - catMaybes - [ fmap (("DesiredSize",) . toJSON) _eKSNodegroupScalingConfigDesiredSize - , fmap (("MaxSize",) . toJSON) _eKSNodegroupScalingConfigMaxSize - , fmap (("MinSize",) . toJSON) _eKSNodegroupScalingConfigMinSize - ] - --- | Constructor for 'EKSNodegroupScalingConfig' containing required fields as --- arguments. -eksNodegroupScalingConfig - :: EKSNodegroupScalingConfig -eksNodegroupScalingConfig = - EKSNodegroupScalingConfig - { _eKSNodegroupScalingConfigDesiredSize = Nothing - , _eKSNodegroupScalingConfigMaxSize = Nothing - , _eKSNodegroupScalingConfigMinSize = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eks-nodegroup-scalingconfig.html#cfn-eks-nodegroup-scalingconfig-desiredsize -eksnscDesiredSize :: Lens' EKSNodegroupScalingConfig (Maybe (Val Double)) -eksnscDesiredSize = lens _eKSNodegroupScalingConfigDesiredSize (\s a -> s { _eKSNodegroupScalingConfigDesiredSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eks-nodegroup-scalingconfig.html#cfn-eks-nodegroup-scalingconfig-maxsize -eksnscMaxSize :: Lens' EKSNodegroupScalingConfig (Maybe (Val Double)) -eksnscMaxSize = lens _eKSNodegroupScalingConfigMaxSize (\s a -> s { _eKSNodegroupScalingConfigMaxSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eks-nodegroup-scalingconfig.html#cfn-eks-nodegroup-scalingconfig-minsize -eksnscMinSize :: Lens' EKSNodegroupScalingConfig (Maybe (Val Double)) -eksnscMinSize = lens _eKSNodegroupScalingConfigMinSize (\s a -> s { _eKSNodegroupScalingConfigMinSize = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRClusterApplication.hs b/library-gen/Stratosphere/ResourceProperties/EMRClusterApplication.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRClusterApplication.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-application.html - -module Stratosphere.ResourceProperties.EMRClusterApplication where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EMRClusterApplication. See --- 'emrClusterApplication' for a more convenient constructor. -data EMRClusterApplication = - EMRClusterApplication - { _eMRClusterApplicationAdditionalInfo :: Maybe Object - , _eMRClusterApplicationArgs :: Maybe (ValList Text) - , _eMRClusterApplicationName :: Maybe (Val Text) - , _eMRClusterApplicationVersion :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EMRClusterApplication where - toJSON EMRClusterApplication{..} = - object $ - catMaybes - [ fmap (("AdditionalInfo",) . toJSON) _eMRClusterApplicationAdditionalInfo - , fmap (("Args",) . toJSON) _eMRClusterApplicationArgs - , fmap (("Name",) . toJSON) _eMRClusterApplicationName - , fmap (("Version",) . toJSON) _eMRClusterApplicationVersion - ] - --- | Constructor for 'EMRClusterApplication' containing required fields as --- arguments. -emrClusterApplication - :: EMRClusterApplication -emrClusterApplication = - EMRClusterApplication - { _eMRClusterApplicationAdditionalInfo = Nothing - , _eMRClusterApplicationArgs = Nothing - , _eMRClusterApplicationName = Nothing - , _eMRClusterApplicationVersion = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-application.html#cfn-elasticmapreduce-cluster-application-additionalinfo -emrcaAdditionalInfo :: Lens' EMRClusterApplication (Maybe Object) -emrcaAdditionalInfo = lens _eMRClusterApplicationAdditionalInfo (\s a -> s { _eMRClusterApplicationAdditionalInfo = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-application.html#cfn-elasticmapreduce-cluster-application-args -emrcaArgs :: Lens' EMRClusterApplication (Maybe (ValList Text)) -emrcaArgs = lens _eMRClusterApplicationArgs (\s a -> s { _eMRClusterApplicationArgs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-application.html#cfn-elasticmapreduce-cluster-application-name -emrcaName :: Lens' EMRClusterApplication (Maybe (Val Text)) -emrcaName = lens _eMRClusterApplicationName (\s a -> s { _eMRClusterApplicationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-application.html#cfn-elasticmapreduce-cluster-application-version -emrcaVersion :: Lens' EMRClusterApplication (Maybe (Val Text)) -emrcaVersion = lens _eMRClusterApplicationVersion (\s a -> s { _eMRClusterApplicationVersion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRClusterAutoScalingPolicy.hs b/library-gen/Stratosphere/ResourceProperties/EMRClusterAutoScalingPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRClusterAutoScalingPolicy.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-autoscalingpolicy.html - -module Stratosphere.ResourceProperties.EMRClusterAutoScalingPolicy where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRClusterScalingConstraints -import Stratosphere.ResourceProperties.EMRClusterScalingRule - --- | Full data type definition for EMRClusterAutoScalingPolicy. See --- 'emrClusterAutoScalingPolicy' for a more convenient constructor. -data EMRClusterAutoScalingPolicy = - EMRClusterAutoScalingPolicy - { _eMRClusterAutoScalingPolicyConstraints :: EMRClusterScalingConstraints - , _eMRClusterAutoScalingPolicyRules :: [EMRClusterScalingRule] - } deriving (Show, Eq) - -instance ToJSON EMRClusterAutoScalingPolicy where - toJSON EMRClusterAutoScalingPolicy{..} = - object $ - catMaybes - [ (Just . ("Constraints",) . toJSON) _eMRClusterAutoScalingPolicyConstraints - , (Just . ("Rules",) . toJSON) _eMRClusterAutoScalingPolicyRules - ] - --- | Constructor for 'EMRClusterAutoScalingPolicy' containing required fields --- as arguments. -emrClusterAutoScalingPolicy - :: EMRClusterScalingConstraints -- ^ 'emrcaspConstraints' - -> [EMRClusterScalingRule] -- ^ 'emrcaspRules' - -> EMRClusterAutoScalingPolicy -emrClusterAutoScalingPolicy constraintsarg rulesarg = - EMRClusterAutoScalingPolicy - { _eMRClusterAutoScalingPolicyConstraints = constraintsarg - , _eMRClusterAutoScalingPolicyRules = rulesarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-autoscalingpolicy.html#cfn-elasticmapreduce-cluster-autoscalingpolicy-constraints -emrcaspConstraints :: Lens' EMRClusterAutoScalingPolicy EMRClusterScalingConstraints -emrcaspConstraints = lens _eMRClusterAutoScalingPolicyConstraints (\s a -> s { _eMRClusterAutoScalingPolicyConstraints = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-autoscalingpolicy.html#cfn-elasticmapreduce-cluster-autoscalingpolicy-rules -emrcaspRules :: Lens' EMRClusterAutoScalingPolicy [EMRClusterScalingRule] -emrcaspRules = lens _eMRClusterAutoScalingPolicyRules (\s a -> s { _eMRClusterAutoScalingPolicyRules = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRClusterBootstrapActionConfig.hs b/library-gen/Stratosphere/ResourceProperties/EMRClusterBootstrapActionConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRClusterBootstrapActionConfig.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-bootstrapactionconfig.html - -module Stratosphere.ResourceProperties.EMRClusterBootstrapActionConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRClusterScriptBootstrapActionConfig - --- | Full data type definition for EMRClusterBootstrapActionConfig. See --- 'emrClusterBootstrapActionConfig' for a more convenient constructor. -data EMRClusterBootstrapActionConfig = - EMRClusterBootstrapActionConfig - { _eMRClusterBootstrapActionConfigName :: Val Text - , _eMRClusterBootstrapActionConfigScriptBootstrapAction :: EMRClusterScriptBootstrapActionConfig - } deriving (Show, Eq) - -instance ToJSON EMRClusterBootstrapActionConfig where - toJSON EMRClusterBootstrapActionConfig{..} = - object $ - catMaybes - [ (Just . ("Name",) . toJSON) _eMRClusterBootstrapActionConfigName - , (Just . ("ScriptBootstrapAction",) . toJSON) _eMRClusterBootstrapActionConfigScriptBootstrapAction - ] - --- | Constructor for 'EMRClusterBootstrapActionConfig' containing required --- fields as arguments. -emrClusterBootstrapActionConfig - :: Val Text -- ^ 'emrcbacName' - -> EMRClusterScriptBootstrapActionConfig -- ^ 'emrcbacScriptBootstrapAction' - -> EMRClusterBootstrapActionConfig -emrClusterBootstrapActionConfig namearg scriptBootstrapActionarg = - EMRClusterBootstrapActionConfig - { _eMRClusterBootstrapActionConfigName = namearg - , _eMRClusterBootstrapActionConfigScriptBootstrapAction = scriptBootstrapActionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-bootstrapactionconfig.html#cfn-elasticmapreduce-cluster-bootstrapactionconfig-name -emrcbacName :: Lens' EMRClusterBootstrapActionConfig (Val Text) -emrcbacName = lens _eMRClusterBootstrapActionConfigName (\s a -> s { _eMRClusterBootstrapActionConfigName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-bootstrapactionconfig.html#cfn-elasticmapreduce-cluster-bootstrapactionconfig-scriptbootstrapaction -emrcbacScriptBootstrapAction :: Lens' EMRClusterBootstrapActionConfig EMRClusterScriptBootstrapActionConfig -emrcbacScriptBootstrapAction = lens _eMRClusterBootstrapActionConfigScriptBootstrapAction (\s a -> s { _eMRClusterBootstrapActionConfigScriptBootstrapAction = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRClusterCloudWatchAlarmDefinition.hs b/library-gen/Stratosphere/ResourceProperties/EMRClusterCloudWatchAlarmDefinition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRClusterCloudWatchAlarmDefinition.hs +++ /dev/null @@ -1,98 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-cloudwatchalarmdefinition.html - -module Stratosphere.ResourceProperties.EMRClusterCloudWatchAlarmDefinition where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRClusterMetricDimension - --- | Full data type definition for EMRClusterCloudWatchAlarmDefinition. See --- 'emrClusterCloudWatchAlarmDefinition' for a more convenient constructor. -data EMRClusterCloudWatchAlarmDefinition = - EMRClusterCloudWatchAlarmDefinition - { _eMRClusterCloudWatchAlarmDefinitionComparisonOperator :: Val Text - , _eMRClusterCloudWatchAlarmDefinitionDimensions :: Maybe [EMRClusterMetricDimension] - , _eMRClusterCloudWatchAlarmDefinitionEvaluationPeriods :: Maybe (Val Integer) - , _eMRClusterCloudWatchAlarmDefinitionMetricName :: Val Text - , _eMRClusterCloudWatchAlarmDefinitionNamespace :: Maybe (Val Text) - , _eMRClusterCloudWatchAlarmDefinitionPeriod :: Val Integer - , _eMRClusterCloudWatchAlarmDefinitionStatistic :: Maybe (Val Text) - , _eMRClusterCloudWatchAlarmDefinitionThreshold :: Val Double - , _eMRClusterCloudWatchAlarmDefinitionUnit :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EMRClusterCloudWatchAlarmDefinition where - toJSON EMRClusterCloudWatchAlarmDefinition{..} = - object $ - catMaybes - [ (Just . ("ComparisonOperator",) . toJSON) _eMRClusterCloudWatchAlarmDefinitionComparisonOperator - , fmap (("Dimensions",) . toJSON) _eMRClusterCloudWatchAlarmDefinitionDimensions - , fmap (("EvaluationPeriods",) . toJSON) _eMRClusterCloudWatchAlarmDefinitionEvaluationPeriods - , (Just . ("MetricName",) . toJSON) _eMRClusterCloudWatchAlarmDefinitionMetricName - , fmap (("Namespace",) . toJSON) _eMRClusterCloudWatchAlarmDefinitionNamespace - , (Just . ("Period",) . toJSON) _eMRClusterCloudWatchAlarmDefinitionPeriod - , fmap (("Statistic",) . toJSON) _eMRClusterCloudWatchAlarmDefinitionStatistic - , (Just . ("Threshold",) . toJSON) _eMRClusterCloudWatchAlarmDefinitionThreshold - , fmap (("Unit",) . toJSON) _eMRClusterCloudWatchAlarmDefinitionUnit - ] - --- | Constructor for 'EMRClusterCloudWatchAlarmDefinition' containing required --- fields as arguments. -emrClusterCloudWatchAlarmDefinition - :: Val Text -- ^ 'emrccwadComparisonOperator' - -> Val Text -- ^ 'emrccwadMetricName' - -> Val Integer -- ^ 'emrccwadPeriod' - -> Val Double -- ^ 'emrccwadThreshold' - -> EMRClusterCloudWatchAlarmDefinition -emrClusterCloudWatchAlarmDefinition comparisonOperatorarg metricNamearg periodarg thresholdarg = - EMRClusterCloudWatchAlarmDefinition - { _eMRClusterCloudWatchAlarmDefinitionComparisonOperator = comparisonOperatorarg - , _eMRClusterCloudWatchAlarmDefinitionDimensions = Nothing - , _eMRClusterCloudWatchAlarmDefinitionEvaluationPeriods = Nothing - , _eMRClusterCloudWatchAlarmDefinitionMetricName = metricNamearg - , _eMRClusterCloudWatchAlarmDefinitionNamespace = Nothing - , _eMRClusterCloudWatchAlarmDefinitionPeriod = periodarg - , _eMRClusterCloudWatchAlarmDefinitionStatistic = Nothing - , _eMRClusterCloudWatchAlarmDefinitionThreshold = thresholdarg - , _eMRClusterCloudWatchAlarmDefinitionUnit = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-cloudwatchalarmdefinition.html#cfn-elasticmapreduce-cluster-cloudwatchalarmdefinition-comparisonoperator -emrccwadComparisonOperator :: Lens' EMRClusterCloudWatchAlarmDefinition (Val Text) -emrccwadComparisonOperator = lens _eMRClusterCloudWatchAlarmDefinitionComparisonOperator (\s a -> s { _eMRClusterCloudWatchAlarmDefinitionComparisonOperator = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-cloudwatchalarmdefinition.html#cfn-elasticmapreduce-cluster-cloudwatchalarmdefinition-dimensions -emrccwadDimensions :: Lens' EMRClusterCloudWatchAlarmDefinition (Maybe [EMRClusterMetricDimension]) -emrccwadDimensions = lens _eMRClusterCloudWatchAlarmDefinitionDimensions (\s a -> s { _eMRClusterCloudWatchAlarmDefinitionDimensions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-cloudwatchalarmdefinition.html#cfn-elasticmapreduce-cluster-cloudwatchalarmdefinition-evaluationperiods -emrccwadEvaluationPeriods :: Lens' EMRClusterCloudWatchAlarmDefinition (Maybe (Val Integer)) -emrccwadEvaluationPeriods = lens _eMRClusterCloudWatchAlarmDefinitionEvaluationPeriods (\s a -> s { _eMRClusterCloudWatchAlarmDefinitionEvaluationPeriods = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-cloudwatchalarmdefinition.html#cfn-elasticmapreduce-cluster-cloudwatchalarmdefinition-metricname -emrccwadMetricName :: Lens' EMRClusterCloudWatchAlarmDefinition (Val Text) -emrccwadMetricName = lens _eMRClusterCloudWatchAlarmDefinitionMetricName (\s a -> s { _eMRClusterCloudWatchAlarmDefinitionMetricName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-cloudwatchalarmdefinition.html#cfn-elasticmapreduce-cluster-cloudwatchalarmdefinition-namespace -emrccwadNamespace :: Lens' EMRClusterCloudWatchAlarmDefinition (Maybe (Val Text)) -emrccwadNamespace = lens _eMRClusterCloudWatchAlarmDefinitionNamespace (\s a -> s { _eMRClusterCloudWatchAlarmDefinitionNamespace = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-cloudwatchalarmdefinition.html#cfn-elasticmapreduce-cluster-cloudwatchalarmdefinition-period -emrccwadPeriod :: Lens' EMRClusterCloudWatchAlarmDefinition (Val Integer) -emrccwadPeriod = lens _eMRClusterCloudWatchAlarmDefinitionPeriod (\s a -> s { _eMRClusterCloudWatchAlarmDefinitionPeriod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-cloudwatchalarmdefinition.html#cfn-elasticmapreduce-cluster-cloudwatchalarmdefinition-statistic -emrccwadStatistic :: Lens' EMRClusterCloudWatchAlarmDefinition (Maybe (Val Text)) -emrccwadStatistic = lens _eMRClusterCloudWatchAlarmDefinitionStatistic (\s a -> s { _eMRClusterCloudWatchAlarmDefinitionStatistic = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-cloudwatchalarmdefinition.html#cfn-elasticmapreduce-cluster-cloudwatchalarmdefinition-threshold -emrccwadThreshold :: Lens' EMRClusterCloudWatchAlarmDefinition (Val Double) -emrccwadThreshold = lens _eMRClusterCloudWatchAlarmDefinitionThreshold (\s a -> s { _eMRClusterCloudWatchAlarmDefinitionThreshold = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-cloudwatchalarmdefinition.html#cfn-elasticmapreduce-cluster-cloudwatchalarmdefinition-unit -emrccwadUnit :: Lens' EMRClusterCloudWatchAlarmDefinition (Maybe (Val Text)) -emrccwadUnit = lens _eMRClusterCloudWatchAlarmDefinitionUnit (\s a -> s { _eMRClusterCloudWatchAlarmDefinitionUnit = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRClusterConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/EMRClusterConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRClusterConfiguration.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-configuration.html - -module Stratosphere.ResourceProperties.EMRClusterConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EMRClusterConfiguration. See --- 'emrClusterConfiguration' for a more convenient constructor. -data EMRClusterConfiguration = - EMRClusterConfiguration - { _eMRClusterConfigurationClassification :: Maybe (Val Text) - , _eMRClusterConfigurationConfigurationProperties :: Maybe Object - , _eMRClusterConfigurationConfigurations :: Maybe [EMRClusterConfiguration] - } deriving (Show, Eq) - -instance ToJSON EMRClusterConfiguration where - toJSON EMRClusterConfiguration{..} = - object $ - catMaybes - [ fmap (("Classification",) . toJSON) _eMRClusterConfigurationClassification - , fmap (("ConfigurationProperties",) . toJSON) _eMRClusterConfigurationConfigurationProperties - , fmap (("Configurations",) . toJSON) _eMRClusterConfigurationConfigurations - ] - --- | Constructor for 'EMRClusterConfiguration' containing required fields as --- arguments. -emrClusterConfiguration - :: EMRClusterConfiguration -emrClusterConfiguration = - EMRClusterConfiguration - { _eMRClusterConfigurationClassification = Nothing - , _eMRClusterConfigurationConfigurationProperties = Nothing - , _eMRClusterConfigurationConfigurations = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-configuration.html#cfn-elasticmapreduce-cluster-configuration-classification -emrccClassification :: Lens' EMRClusterConfiguration (Maybe (Val Text)) -emrccClassification = lens _eMRClusterConfigurationClassification (\s a -> s { _eMRClusterConfigurationClassification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-configuration.html#cfn-elasticmapreduce-cluster-configuration-configurationproperties -emrccConfigurationProperties :: Lens' EMRClusterConfiguration (Maybe Object) -emrccConfigurationProperties = lens _eMRClusterConfigurationConfigurationProperties (\s a -> s { _eMRClusterConfigurationConfigurationProperties = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-configuration.html#cfn-elasticmapreduce-cluster-configuration-configurations -emrccConfigurations :: Lens' EMRClusterConfiguration (Maybe [EMRClusterConfiguration]) -emrccConfigurations = lens _eMRClusterConfigurationConfigurations (\s a -> s { _eMRClusterConfigurationConfigurations = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRClusterEbsBlockDeviceConfig.hs b/library-gen/Stratosphere/ResourceProperties/EMRClusterEbsBlockDeviceConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRClusterEbsBlockDeviceConfig.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-ebsblockdeviceconfig.html - -module Stratosphere.ResourceProperties.EMRClusterEbsBlockDeviceConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRClusterVolumeSpecification - --- | Full data type definition for EMRClusterEbsBlockDeviceConfig. See --- 'emrClusterEbsBlockDeviceConfig' for a more convenient constructor. -data EMRClusterEbsBlockDeviceConfig = - EMRClusterEbsBlockDeviceConfig - { _eMRClusterEbsBlockDeviceConfigVolumeSpecification :: EMRClusterVolumeSpecification - , _eMRClusterEbsBlockDeviceConfigVolumesPerInstance :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON EMRClusterEbsBlockDeviceConfig where - toJSON EMRClusterEbsBlockDeviceConfig{..} = - object $ - catMaybes - [ (Just . ("VolumeSpecification",) . toJSON) _eMRClusterEbsBlockDeviceConfigVolumeSpecification - , fmap (("VolumesPerInstance",) . toJSON) _eMRClusterEbsBlockDeviceConfigVolumesPerInstance - ] - --- | Constructor for 'EMRClusterEbsBlockDeviceConfig' containing required --- fields as arguments. -emrClusterEbsBlockDeviceConfig - :: EMRClusterVolumeSpecification -- ^ 'emrcebdcVolumeSpecification' - -> EMRClusterEbsBlockDeviceConfig -emrClusterEbsBlockDeviceConfig volumeSpecificationarg = - EMRClusterEbsBlockDeviceConfig - { _eMRClusterEbsBlockDeviceConfigVolumeSpecification = volumeSpecificationarg - , _eMRClusterEbsBlockDeviceConfigVolumesPerInstance = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-ebsblockdeviceconfig.html#cfn-elasticmapreduce-cluster-ebsblockdeviceconfig-volumespecification -emrcebdcVolumeSpecification :: Lens' EMRClusterEbsBlockDeviceConfig EMRClusterVolumeSpecification -emrcebdcVolumeSpecification = lens _eMRClusterEbsBlockDeviceConfigVolumeSpecification (\s a -> s { _eMRClusterEbsBlockDeviceConfigVolumeSpecification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-ebsblockdeviceconfig.html#cfn-elasticmapreduce-cluster-ebsblockdeviceconfig-volumesperinstance -emrcebdcVolumesPerInstance :: Lens' EMRClusterEbsBlockDeviceConfig (Maybe (Val Integer)) -emrcebdcVolumesPerInstance = lens _eMRClusterEbsBlockDeviceConfigVolumesPerInstance (\s a -> s { _eMRClusterEbsBlockDeviceConfigVolumesPerInstance = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRClusterEbsConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/EMRClusterEbsConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRClusterEbsConfiguration.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-ebsconfiguration.html - -module Stratosphere.ResourceProperties.EMRClusterEbsConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRClusterEbsBlockDeviceConfig - --- | Full data type definition for EMRClusterEbsConfiguration. See --- 'emrClusterEbsConfiguration' for a more convenient constructor. -data EMRClusterEbsConfiguration = - EMRClusterEbsConfiguration - { _eMRClusterEbsConfigurationEbsBlockDeviceConfigs :: Maybe [EMRClusterEbsBlockDeviceConfig] - , _eMRClusterEbsConfigurationEbsOptimized :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON EMRClusterEbsConfiguration where - toJSON EMRClusterEbsConfiguration{..} = - object $ - catMaybes - [ fmap (("EbsBlockDeviceConfigs",) . toJSON) _eMRClusterEbsConfigurationEbsBlockDeviceConfigs - , fmap (("EbsOptimized",) . toJSON) _eMRClusterEbsConfigurationEbsOptimized - ] - --- | Constructor for 'EMRClusterEbsConfiguration' containing required fields --- as arguments. -emrClusterEbsConfiguration - :: EMRClusterEbsConfiguration -emrClusterEbsConfiguration = - EMRClusterEbsConfiguration - { _eMRClusterEbsConfigurationEbsBlockDeviceConfigs = Nothing - , _eMRClusterEbsConfigurationEbsOptimized = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-ebsconfiguration.html#cfn-elasticmapreduce-cluster-ebsconfiguration-ebsblockdeviceconfigs -emrcecEbsBlockDeviceConfigs :: Lens' EMRClusterEbsConfiguration (Maybe [EMRClusterEbsBlockDeviceConfig]) -emrcecEbsBlockDeviceConfigs = lens _eMRClusterEbsConfigurationEbsBlockDeviceConfigs (\s a -> s { _eMRClusterEbsConfigurationEbsBlockDeviceConfigs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-ebsconfiguration.html#cfn-elasticmapreduce-cluster-ebsconfiguration-ebsoptimized -emrcecEbsOptimized :: Lens' EMRClusterEbsConfiguration (Maybe (Val Bool)) -emrcecEbsOptimized = lens _eMRClusterEbsConfigurationEbsOptimized (\s a -> s { _eMRClusterEbsConfigurationEbsOptimized = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRClusterHadoopJarStepConfig.hs b/library-gen/Stratosphere/ResourceProperties/EMRClusterHadoopJarStepConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRClusterHadoopJarStepConfig.hs +++ /dev/null @@ -1,60 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-hadoopjarstepconfig.html - -module Stratosphere.ResourceProperties.EMRClusterHadoopJarStepConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRClusterKeyValue - --- | Full data type definition for EMRClusterHadoopJarStepConfig. See --- 'emrClusterHadoopJarStepConfig' for a more convenient constructor. -data EMRClusterHadoopJarStepConfig = - EMRClusterHadoopJarStepConfig - { _eMRClusterHadoopJarStepConfigArgs :: Maybe (ValList Text) - , _eMRClusterHadoopJarStepConfigJar :: Val Text - , _eMRClusterHadoopJarStepConfigMainClass :: Maybe (Val Text) - , _eMRClusterHadoopJarStepConfigStepProperties :: Maybe [EMRClusterKeyValue] - } deriving (Show, Eq) - -instance ToJSON EMRClusterHadoopJarStepConfig where - toJSON EMRClusterHadoopJarStepConfig{..} = - object $ - catMaybes - [ fmap (("Args",) . toJSON) _eMRClusterHadoopJarStepConfigArgs - , (Just . ("Jar",) . toJSON) _eMRClusterHadoopJarStepConfigJar - , fmap (("MainClass",) . toJSON) _eMRClusterHadoopJarStepConfigMainClass - , fmap (("StepProperties",) . toJSON) _eMRClusterHadoopJarStepConfigStepProperties - ] - --- | Constructor for 'EMRClusterHadoopJarStepConfig' containing required --- fields as arguments. -emrClusterHadoopJarStepConfig - :: Val Text -- ^ 'emrchjscJar' - -> EMRClusterHadoopJarStepConfig -emrClusterHadoopJarStepConfig jararg = - EMRClusterHadoopJarStepConfig - { _eMRClusterHadoopJarStepConfigArgs = Nothing - , _eMRClusterHadoopJarStepConfigJar = jararg - , _eMRClusterHadoopJarStepConfigMainClass = Nothing - , _eMRClusterHadoopJarStepConfigStepProperties = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-hadoopjarstepconfig.html#cfn-elasticmapreduce-cluster-hadoopjarstepconfig-args -emrchjscArgs :: Lens' EMRClusterHadoopJarStepConfig (Maybe (ValList Text)) -emrchjscArgs = lens _eMRClusterHadoopJarStepConfigArgs (\s a -> s { _eMRClusterHadoopJarStepConfigArgs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-hadoopjarstepconfig.html#cfn-elasticmapreduce-cluster-hadoopjarstepconfig-jar -emrchjscJar :: Lens' EMRClusterHadoopJarStepConfig (Val Text) -emrchjscJar = lens _eMRClusterHadoopJarStepConfigJar (\s a -> s { _eMRClusterHadoopJarStepConfigJar = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-hadoopjarstepconfig.html#cfn-elasticmapreduce-cluster-hadoopjarstepconfig-mainclass -emrchjscMainClass :: Lens' EMRClusterHadoopJarStepConfig (Maybe (Val Text)) -emrchjscMainClass = lens _eMRClusterHadoopJarStepConfigMainClass (\s a -> s { _eMRClusterHadoopJarStepConfigMainClass = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-hadoopjarstepconfig.html#cfn-elasticmapreduce-cluster-hadoopjarstepconfig-stepproperties -emrchjscStepProperties :: Lens' EMRClusterHadoopJarStepConfig (Maybe [EMRClusterKeyValue]) -emrchjscStepProperties = lens _eMRClusterHadoopJarStepConfigStepProperties (\s a -> s { _eMRClusterHadoopJarStepConfigStepProperties = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRClusterInstanceFleetConfig.hs b/library-gen/Stratosphere/ResourceProperties/EMRClusterInstanceFleetConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRClusterInstanceFleetConfig.hs +++ /dev/null @@ -1,67 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancefleetconfig.html - -module Stratosphere.ResourceProperties.EMRClusterInstanceFleetConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRClusterInstanceTypeConfig -import Stratosphere.ResourceProperties.EMRClusterInstanceFleetProvisioningSpecifications - --- | Full data type definition for EMRClusterInstanceFleetConfig. See --- 'emrClusterInstanceFleetConfig' for a more convenient constructor. -data EMRClusterInstanceFleetConfig = - EMRClusterInstanceFleetConfig - { _eMRClusterInstanceFleetConfigInstanceTypeConfigs :: Maybe [EMRClusterInstanceTypeConfig] - , _eMRClusterInstanceFleetConfigLaunchSpecifications :: Maybe EMRClusterInstanceFleetProvisioningSpecifications - , _eMRClusterInstanceFleetConfigName :: Maybe (Val Text) - , _eMRClusterInstanceFleetConfigTargetOnDemandCapacity :: Maybe (Val Integer) - , _eMRClusterInstanceFleetConfigTargetSpotCapacity :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON EMRClusterInstanceFleetConfig where - toJSON EMRClusterInstanceFleetConfig{..} = - object $ - catMaybes - [ fmap (("InstanceTypeConfigs",) . toJSON) _eMRClusterInstanceFleetConfigInstanceTypeConfigs - , fmap (("LaunchSpecifications",) . toJSON) _eMRClusterInstanceFleetConfigLaunchSpecifications - , fmap (("Name",) . toJSON) _eMRClusterInstanceFleetConfigName - , fmap (("TargetOnDemandCapacity",) . toJSON) _eMRClusterInstanceFleetConfigTargetOnDemandCapacity - , fmap (("TargetSpotCapacity",) . toJSON) _eMRClusterInstanceFleetConfigTargetSpotCapacity - ] - --- | Constructor for 'EMRClusterInstanceFleetConfig' containing required --- fields as arguments. -emrClusterInstanceFleetConfig - :: EMRClusterInstanceFleetConfig -emrClusterInstanceFleetConfig = - EMRClusterInstanceFleetConfig - { _eMRClusterInstanceFleetConfigInstanceTypeConfigs = Nothing - , _eMRClusterInstanceFleetConfigLaunchSpecifications = Nothing - , _eMRClusterInstanceFleetConfigName = Nothing - , _eMRClusterInstanceFleetConfigTargetOnDemandCapacity = Nothing - , _eMRClusterInstanceFleetConfigTargetSpotCapacity = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancefleetconfig.html#cfn-elasticmapreduce-cluster-instancefleetconfig-instancetypeconfigs -emrcifcInstanceTypeConfigs :: Lens' EMRClusterInstanceFleetConfig (Maybe [EMRClusterInstanceTypeConfig]) -emrcifcInstanceTypeConfigs = lens _eMRClusterInstanceFleetConfigInstanceTypeConfigs (\s a -> s { _eMRClusterInstanceFleetConfigInstanceTypeConfigs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancefleetconfig.html#cfn-elasticmapreduce-cluster-instancefleetconfig-launchspecifications -emrcifcLaunchSpecifications :: Lens' EMRClusterInstanceFleetConfig (Maybe EMRClusterInstanceFleetProvisioningSpecifications) -emrcifcLaunchSpecifications = lens _eMRClusterInstanceFleetConfigLaunchSpecifications (\s a -> s { _eMRClusterInstanceFleetConfigLaunchSpecifications = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancefleetconfig.html#cfn-elasticmapreduce-cluster-instancefleetconfig-name -emrcifcName :: Lens' EMRClusterInstanceFleetConfig (Maybe (Val Text)) -emrcifcName = lens _eMRClusterInstanceFleetConfigName (\s a -> s { _eMRClusterInstanceFleetConfigName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancefleetconfig.html#cfn-elasticmapreduce-cluster-instancefleetconfig-targetondemandcapacity -emrcifcTargetOnDemandCapacity :: Lens' EMRClusterInstanceFleetConfig (Maybe (Val Integer)) -emrcifcTargetOnDemandCapacity = lens _eMRClusterInstanceFleetConfigTargetOnDemandCapacity (\s a -> s { _eMRClusterInstanceFleetConfigTargetOnDemandCapacity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancefleetconfig.html#cfn-elasticmapreduce-cluster-instancefleetconfig-targetspotcapacity -emrcifcTargetSpotCapacity :: Lens' EMRClusterInstanceFleetConfig (Maybe (Val Integer)) -emrcifcTargetSpotCapacity = lens _eMRClusterInstanceFleetConfigTargetSpotCapacity (\s a -> s { _eMRClusterInstanceFleetConfigTargetSpotCapacity = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRClusterInstanceFleetProvisioningSpecifications.hs b/library-gen/Stratosphere/ResourceProperties/EMRClusterInstanceFleetProvisioningSpecifications.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRClusterInstanceFleetProvisioningSpecifications.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancefleetprovisioningspecifications.html - -module Stratosphere.ResourceProperties.EMRClusterInstanceFleetProvisioningSpecifications where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRClusterSpotProvisioningSpecification - --- | Full data type definition for --- EMRClusterInstanceFleetProvisioningSpecifications. See --- 'emrClusterInstanceFleetProvisioningSpecifications' for a more convenient --- constructor. -data EMRClusterInstanceFleetProvisioningSpecifications = - EMRClusterInstanceFleetProvisioningSpecifications - { _eMRClusterInstanceFleetProvisioningSpecificationsSpotSpecification :: EMRClusterSpotProvisioningSpecification - } deriving (Show, Eq) - -instance ToJSON EMRClusterInstanceFleetProvisioningSpecifications where - toJSON EMRClusterInstanceFleetProvisioningSpecifications{..} = - object $ - catMaybes - [ (Just . ("SpotSpecification",) . toJSON) _eMRClusterInstanceFleetProvisioningSpecificationsSpotSpecification - ] - --- | Constructor for 'EMRClusterInstanceFleetProvisioningSpecifications' --- containing required fields as arguments. -emrClusterInstanceFleetProvisioningSpecifications - :: EMRClusterSpotProvisioningSpecification -- ^ 'emrcifpsSpotSpecification' - -> EMRClusterInstanceFleetProvisioningSpecifications -emrClusterInstanceFleetProvisioningSpecifications spotSpecificationarg = - EMRClusterInstanceFleetProvisioningSpecifications - { _eMRClusterInstanceFleetProvisioningSpecificationsSpotSpecification = spotSpecificationarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancefleetprovisioningspecifications.html#cfn-elasticmapreduce-cluster-instancefleetprovisioningspecifications-spotspecification -emrcifpsSpotSpecification :: Lens' EMRClusterInstanceFleetProvisioningSpecifications EMRClusterSpotProvisioningSpecification -emrcifpsSpotSpecification = lens _eMRClusterInstanceFleetProvisioningSpecificationsSpotSpecification (\s a -> s { _eMRClusterInstanceFleetProvisioningSpecificationsSpotSpecification = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRClusterInstanceGroupConfig.hs b/library-gen/Stratosphere/ResourceProperties/EMRClusterInstanceGroupConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRClusterInstanceGroupConfig.hs +++ /dev/null @@ -1,91 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancegroupconfig.html - -module Stratosphere.ResourceProperties.EMRClusterInstanceGroupConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRClusterAutoScalingPolicy -import Stratosphere.ResourceProperties.EMRClusterConfiguration -import Stratosphere.ResourceProperties.EMRClusterEbsConfiguration - --- | Full data type definition for EMRClusterInstanceGroupConfig. See --- 'emrClusterInstanceGroupConfig' for a more convenient constructor. -data EMRClusterInstanceGroupConfig = - EMRClusterInstanceGroupConfig - { _eMRClusterInstanceGroupConfigAutoScalingPolicy :: Maybe EMRClusterAutoScalingPolicy - , _eMRClusterInstanceGroupConfigBidPrice :: Maybe (Val Text) - , _eMRClusterInstanceGroupConfigConfigurations :: Maybe [EMRClusterConfiguration] - , _eMRClusterInstanceGroupConfigEbsConfiguration :: Maybe EMRClusterEbsConfiguration - , _eMRClusterInstanceGroupConfigInstanceCount :: Val Integer - , _eMRClusterInstanceGroupConfigInstanceType :: Val Text - , _eMRClusterInstanceGroupConfigMarket :: Maybe (Val Text) - , _eMRClusterInstanceGroupConfigName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EMRClusterInstanceGroupConfig where - toJSON EMRClusterInstanceGroupConfig{..} = - object $ - catMaybes - [ fmap (("AutoScalingPolicy",) . toJSON) _eMRClusterInstanceGroupConfigAutoScalingPolicy - , fmap (("BidPrice",) . toJSON) _eMRClusterInstanceGroupConfigBidPrice - , fmap (("Configurations",) . toJSON) _eMRClusterInstanceGroupConfigConfigurations - , fmap (("EbsConfiguration",) . toJSON) _eMRClusterInstanceGroupConfigEbsConfiguration - , (Just . ("InstanceCount",) . toJSON) _eMRClusterInstanceGroupConfigInstanceCount - , (Just . ("InstanceType",) . toJSON) _eMRClusterInstanceGroupConfigInstanceType - , fmap (("Market",) . toJSON) _eMRClusterInstanceGroupConfigMarket - , fmap (("Name",) . toJSON) _eMRClusterInstanceGroupConfigName - ] - --- | Constructor for 'EMRClusterInstanceGroupConfig' containing required --- fields as arguments. -emrClusterInstanceGroupConfig - :: Val Integer -- ^ 'emrcigcInstanceCount' - -> Val Text -- ^ 'emrcigcInstanceType' - -> EMRClusterInstanceGroupConfig -emrClusterInstanceGroupConfig instanceCountarg instanceTypearg = - EMRClusterInstanceGroupConfig - { _eMRClusterInstanceGroupConfigAutoScalingPolicy = Nothing - , _eMRClusterInstanceGroupConfigBidPrice = Nothing - , _eMRClusterInstanceGroupConfigConfigurations = Nothing - , _eMRClusterInstanceGroupConfigEbsConfiguration = Nothing - , _eMRClusterInstanceGroupConfigInstanceCount = instanceCountarg - , _eMRClusterInstanceGroupConfigInstanceType = instanceTypearg - , _eMRClusterInstanceGroupConfigMarket = Nothing - , _eMRClusterInstanceGroupConfigName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancegroupconfig.html#cfn-elasticmapreduce-cluster-instancegroupconfig-autoscalingpolicy -emrcigcAutoScalingPolicy :: Lens' EMRClusterInstanceGroupConfig (Maybe EMRClusterAutoScalingPolicy) -emrcigcAutoScalingPolicy = lens _eMRClusterInstanceGroupConfigAutoScalingPolicy (\s a -> s { _eMRClusterInstanceGroupConfigAutoScalingPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancegroupconfig.html#cfn-elasticmapreduce-cluster-instancegroupconfig-bidprice -emrcigcBidPrice :: Lens' EMRClusterInstanceGroupConfig (Maybe (Val Text)) -emrcigcBidPrice = lens _eMRClusterInstanceGroupConfigBidPrice (\s a -> s { _eMRClusterInstanceGroupConfigBidPrice = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancegroupconfig.html#cfn-elasticmapreduce-cluster-instancegroupconfig-configurations -emrcigcConfigurations :: Lens' EMRClusterInstanceGroupConfig (Maybe [EMRClusterConfiguration]) -emrcigcConfigurations = lens _eMRClusterInstanceGroupConfigConfigurations (\s a -> s { _eMRClusterInstanceGroupConfigConfigurations = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancegroupconfig.html#cfn-elasticmapreduce-cluster-instancegroupconfig-ebsconfiguration -emrcigcEbsConfiguration :: Lens' EMRClusterInstanceGroupConfig (Maybe EMRClusterEbsConfiguration) -emrcigcEbsConfiguration = lens _eMRClusterInstanceGroupConfigEbsConfiguration (\s a -> s { _eMRClusterInstanceGroupConfigEbsConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancegroupconfig.html#cfn-elasticmapreduce-cluster-instancegroupconfig-instancecount -emrcigcInstanceCount :: Lens' EMRClusterInstanceGroupConfig (Val Integer) -emrcigcInstanceCount = lens _eMRClusterInstanceGroupConfigInstanceCount (\s a -> s { _eMRClusterInstanceGroupConfigInstanceCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancegroupconfig.html#cfn-elasticmapreduce-cluster-instancegroupconfig-instancetype -emrcigcInstanceType :: Lens' EMRClusterInstanceGroupConfig (Val Text) -emrcigcInstanceType = lens _eMRClusterInstanceGroupConfigInstanceType (\s a -> s { _eMRClusterInstanceGroupConfigInstanceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancegroupconfig.html#cfn-elasticmapreduce-cluster-instancegroupconfig-market -emrcigcMarket :: Lens' EMRClusterInstanceGroupConfig (Maybe (Val Text)) -emrcigcMarket = lens _eMRClusterInstanceGroupConfigMarket (\s a -> s { _eMRClusterInstanceGroupConfigMarket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancegroupconfig.html#cfn-elasticmapreduce-cluster-instancegroupconfig-name -emrcigcName :: Lens' EMRClusterInstanceGroupConfig (Maybe (Val Text)) -emrcigcName = lens _eMRClusterInstanceGroupConfigName (\s a -> s { _eMRClusterInstanceGroupConfigName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRClusterInstanceTypeConfig.hs b/library-gen/Stratosphere/ResourceProperties/EMRClusterInstanceTypeConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRClusterInstanceTypeConfig.hs +++ /dev/null @@ -1,75 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancetypeconfig.html - -module Stratosphere.ResourceProperties.EMRClusterInstanceTypeConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRClusterConfiguration -import Stratosphere.ResourceProperties.EMRClusterEbsConfiguration - --- | Full data type definition for EMRClusterInstanceTypeConfig. See --- 'emrClusterInstanceTypeConfig' for a more convenient constructor. -data EMRClusterInstanceTypeConfig = - EMRClusterInstanceTypeConfig - { _eMRClusterInstanceTypeConfigBidPrice :: Maybe (Val Text) - , _eMRClusterInstanceTypeConfigBidPriceAsPercentageOfOnDemandPrice :: Maybe (Val Double) - , _eMRClusterInstanceTypeConfigConfigurations :: Maybe [EMRClusterConfiguration] - , _eMRClusterInstanceTypeConfigEbsConfiguration :: Maybe EMRClusterEbsConfiguration - , _eMRClusterInstanceTypeConfigInstanceType :: Val Text - , _eMRClusterInstanceTypeConfigWeightedCapacity :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON EMRClusterInstanceTypeConfig where - toJSON EMRClusterInstanceTypeConfig{..} = - object $ - catMaybes - [ fmap (("BidPrice",) . toJSON) _eMRClusterInstanceTypeConfigBidPrice - , fmap (("BidPriceAsPercentageOfOnDemandPrice",) . toJSON) _eMRClusterInstanceTypeConfigBidPriceAsPercentageOfOnDemandPrice - , fmap (("Configurations",) . toJSON) _eMRClusterInstanceTypeConfigConfigurations - , fmap (("EbsConfiguration",) . toJSON) _eMRClusterInstanceTypeConfigEbsConfiguration - , (Just . ("InstanceType",) . toJSON) _eMRClusterInstanceTypeConfigInstanceType - , fmap (("WeightedCapacity",) . toJSON) _eMRClusterInstanceTypeConfigWeightedCapacity - ] - --- | Constructor for 'EMRClusterInstanceTypeConfig' containing required fields --- as arguments. -emrClusterInstanceTypeConfig - :: Val Text -- ^ 'emrcitcInstanceType' - -> EMRClusterInstanceTypeConfig -emrClusterInstanceTypeConfig instanceTypearg = - EMRClusterInstanceTypeConfig - { _eMRClusterInstanceTypeConfigBidPrice = Nothing - , _eMRClusterInstanceTypeConfigBidPriceAsPercentageOfOnDemandPrice = Nothing - , _eMRClusterInstanceTypeConfigConfigurations = Nothing - , _eMRClusterInstanceTypeConfigEbsConfiguration = Nothing - , _eMRClusterInstanceTypeConfigInstanceType = instanceTypearg - , _eMRClusterInstanceTypeConfigWeightedCapacity = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancetypeconfig.html#cfn-elasticmapreduce-cluster-instancetypeconfig-bidprice -emrcitcBidPrice :: Lens' EMRClusterInstanceTypeConfig (Maybe (Val Text)) -emrcitcBidPrice = lens _eMRClusterInstanceTypeConfigBidPrice (\s a -> s { _eMRClusterInstanceTypeConfigBidPrice = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancetypeconfig.html#cfn-elasticmapreduce-cluster-instancetypeconfig-bidpriceaspercentageofondemandprice -emrcitcBidPriceAsPercentageOfOnDemandPrice :: Lens' EMRClusterInstanceTypeConfig (Maybe (Val Double)) -emrcitcBidPriceAsPercentageOfOnDemandPrice = lens _eMRClusterInstanceTypeConfigBidPriceAsPercentageOfOnDemandPrice (\s a -> s { _eMRClusterInstanceTypeConfigBidPriceAsPercentageOfOnDemandPrice = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancetypeconfig.html#cfn-elasticmapreduce-cluster-instancetypeconfig-configurations -emrcitcConfigurations :: Lens' EMRClusterInstanceTypeConfig (Maybe [EMRClusterConfiguration]) -emrcitcConfigurations = lens _eMRClusterInstanceTypeConfigConfigurations (\s a -> s { _eMRClusterInstanceTypeConfigConfigurations = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancetypeconfig.html#cfn-elasticmapreduce-cluster-instancetypeconfig-ebsconfiguration -emrcitcEbsConfiguration :: Lens' EMRClusterInstanceTypeConfig (Maybe EMRClusterEbsConfiguration) -emrcitcEbsConfiguration = lens _eMRClusterInstanceTypeConfigEbsConfiguration (\s a -> s { _eMRClusterInstanceTypeConfigEbsConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancetypeconfig.html#cfn-elasticmapreduce-cluster-instancetypeconfig-instancetype -emrcitcInstanceType :: Lens' EMRClusterInstanceTypeConfig (Val Text) -emrcitcInstanceType = lens _eMRClusterInstanceTypeConfigInstanceType (\s a -> s { _eMRClusterInstanceTypeConfigInstanceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-instancetypeconfig.html#cfn-elasticmapreduce-cluster-instancetypeconfig-weightedcapacity -emrcitcWeightedCapacity :: Lens' EMRClusterInstanceTypeConfig (Maybe (Val Integer)) -emrcitcWeightedCapacity = lens _eMRClusterInstanceTypeConfigWeightedCapacity (\s a -> s { _eMRClusterInstanceTypeConfigWeightedCapacity = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRClusterJobFlowInstancesConfig.hs b/library-gen/Stratosphere/ResourceProperties/EMRClusterJobFlowInstancesConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRClusterJobFlowInstancesConfig.hs +++ /dev/null @@ -1,145 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html - -module Stratosphere.ResourceProperties.EMRClusterJobFlowInstancesConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRClusterInstanceFleetConfig -import Stratosphere.ResourceProperties.EMRClusterInstanceGroupConfig -import Stratosphere.ResourceProperties.EMRClusterPlacementType - --- | Full data type definition for EMRClusterJobFlowInstancesConfig. See --- 'emrClusterJobFlowInstancesConfig' for a more convenient constructor. -data EMRClusterJobFlowInstancesConfig = - EMRClusterJobFlowInstancesConfig - { _eMRClusterJobFlowInstancesConfigAdditionalMasterSecurityGroups :: Maybe (ValList Text) - , _eMRClusterJobFlowInstancesConfigAdditionalSlaveSecurityGroups :: Maybe (ValList Text) - , _eMRClusterJobFlowInstancesConfigCoreInstanceFleet :: Maybe EMRClusterInstanceFleetConfig - , _eMRClusterJobFlowInstancesConfigCoreInstanceGroup :: Maybe EMRClusterInstanceGroupConfig - , _eMRClusterJobFlowInstancesConfigEc2KeyName :: Maybe (Val Text) - , _eMRClusterJobFlowInstancesConfigEc2SubnetId :: Maybe (Val Text) - , _eMRClusterJobFlowInstancesConfigEc2SubnetIds :: Maybe (ValList Text) - , _eMRClusterJobFlowInstancesConfigEmrManagedMasterSecurityGroup :: Maybe (Val Text) - , _eMRClusterJobFlowInstancesConfigEmrManagedSlaveSecurityGroup :: Maybe (Val Text) - , _eMRClusterJobFlowInstancesConfigHadoopVersion :: Maybe (Val Text) - , _eMRClusterJobFlowInstancesConfigKeepJobFlowAliveWhenNoSteps :: Maybe (Val Bool) - , _eMRClusterJobFlowInstancesConfigMasterInstanceFleet :: Maybe EMRClusterInstanceFleetConfig - , _eMRClusterJobFlowInstancesConfigMasterInstanceGroup :: Maybe EMRClusterInstanceGroupConfig - , _eMRClusterJobFlowInstancesConfigPlacement :: Maybe EMRClusterPlacementType - , _eMRClusterJobFlowInstancesConfigServiceAccessSecurityGroup :: Maybe (Val Text) - , _eMRClusterJobFlowInstancesConfigTerminationProtected :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON EMRClusterJobFlowInstancesConfig where - toJSON EMRClusterJobFlowInstancesConfig{..} = - object $ - catMaybes - [ fmap (("AdditionalMasterSecurityGroups",) . toJSON) _eMRClusterJobFlowInstancesConfigAdditionalMasterSecurityGroups - , fmap (("AdditionalSlaveSecurityGroups",) . toJSON) _eMRClusterJobFlowInstancesConfigAdditionalSlaveSecurityGroups - , fmap (("CoreInstanceFleet",) . toJSON) _eMRClusterJobFlowInstancesConfigCoreInstanceFleet - , fmap (("CoreInstanceGroup",) . toJSON) _eMRClusterJobFlowInstancesConfigCoreInstanceGroup - , fmap (("Ec2KeyName",) . toJSON) _eMRClusterJobFlowInstancesConfigEc2KeyName - , fmap (("Ec2SubnetId",) . toJSON) _eMRClusterJobFlowInstancesConfigEc2SubnetId - , fmap (("Ec2SubnetIds",) . toJSON) _eMRClusterJobFlowInstancesConfigEc2SubnetIds - , fmap (("EmrManagedMasterSecurityGroup",) . toJSON) _eMRClusterJobFlowInstancesConfigEmrManagedMasterSecurityGroup - , fmap (("EmrManagedSlaveSecurityGroup",) . toJSON) _eMRClusterJobFlowInstancesConfigEmrManagedSlaveSecurityGroup - , fmap (("HadoopVersion",) . toJSON) _eMRClusterJobFlowInstancesConfigHadoopVersion - , fmap (("KeepJobFlowAliveWhenNoSteps",) . toJSON) _eMRClusterJobFlowInstancesConfigKeepJobFlowAliveWhenNoSteps - , fmap (("MasterInstanceFleet",) . toJSON) _eMRClusterJobFlowInstancesConfigMasterInstanceFleet - , fmap (("MasterInstanceGroup",) . toJSON) _eMRClusterJobFlowInstancesConfigMasterInstanceGroup - , fmap (("Placement",) . toJSON) _eMRClusterJobFlowInstancesConfigPlacement - , fmap (("ServiceAccessSecurityGroup",) . toJSON) _eMRClusterJobFlowInstancesConfigServiceAccessSecurityGroup - , fmap (("TerminationProtected",) . toJSON) _eMRClusterJobFlowInstancesConfigTerminationProtected - ] - --- | Constructor for 'EMRClusterJobFlowInstancesConfig' containing required --- fields as arguments. -emrClusterJobFlowInstancesConfig - :: EMRClusterJobFlowInstancesConfig -emrClusterJobFlowInstancesConfig = - EMRClusterJobFlowInstancesConfig - { _eMRClusterJobFlowInstancesConfigAdditionalMasterSecurityGroups = Nothing - , _eMRClusterJobFlowInstancesConfigAdditionalSlaveSecurityGroups = Nothing - , _eMRClusterJobFlowInstancesConfigCoreInstanceFleet = Nothing - , _eMRClusterJobFlowInstancesConfigCoreInstanceGroup = Nothing - , _eMRClusterJobFlowInstancesConfigEc2KeyName = Nothing - , _eMRClusterJobFlowInstancesConfigEc2SubnetId = Nothing - , _eMRClusterJobFlowInstancesConfigEc2SubnetIds = Nothing - , _eMRClusterJobFlowInstancesConfigEmrManagedMasterSecurityGroup = Nothing - , _eMRClusterJobFlowInstancesConfigEmrManagedSlaveSecurityGroup = Nothing - , _eMRClusterJobFlowInstancesConfigHadoopVersion = Nothing - , _eMRClusterJobFlowInstancesConfigKeepJobFlowAliveWhenNoSteps = Nothing - , _eMRClusterJobFlowInstancesConfigMasterInstanceFleet = Nothing - , _eMRClusterJobFlowInstancesConfigMasterInstanceGroup = Nothing - , _eMRClusterJobFlowInstancesConfigPlacement = Nothing - , _eMRClusterJobFlowInstancesConfigServiceAccessSecurityGroup = Nothing - , _eMRClusterJobFlowInstancesConfigTerminationProtected = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-additionalmastersecuritygroups -emrcjficAdditionalMasterSecurityGroups :: Lens' EMRClusterJobFlowInstancesConfig (Maybe (ValList Text)) -emrcjficAdditionalMasterSecurityGroups = lens _eMRClusterJobFlowInstancesConfigAdditionalMasterSecurityGroups (\s a -> s { _eMRClusterJobFlowInstancesConfigAdditionalMasterSecurityGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-additionalslavesecuritygroups -emrcjficAdditionalSlaveSecurityGroups :: Lens' EMRClusterJobFlowInstancesConfig (Maybe (ValList Text)) -emrcjficAdditionalSlaveSecurityGroups = lens _eMRClusterJobFlowInstancesConfigAdditionalSlaveSecurityGroups (\s a -> s { _eMRClusterJobFlowInstancesConfigAdditionalSlaveSecurityGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-coreinstancefleet -emrcjficCoreInstanceFleet :: Lens' EMRClusterJobFlowInstancesConfig (Maybe EMRClusterInstanceFleetConfig) -emrcjficCoreInstanceFleet = lens _eMRClusterJobFlowInstancesConfigCoreInstanceFleet (\s a -> s { _eMRClusterJobFlowInstancesConfigCoreInstanceFleet = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-coreinstancegroup -emrcjficCoreInstanceGroup :: Lens' EMRClusterJobFlowInstancesConfig (Maybe EMRClusterInstanceGroupConfig) -emrcjficCoreInstanceGroup = lens _eMRClusterJobFlowInstancesConfigCoreInstanceGroup (\s a -> s { _eMRClusterJobFlowInstancesConfigCoreInstanceGroup = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-ec2keyname -emrcjficEc2KeyName :: Lens' EMRClusterJobFlowInstancesConfig (Maybe (Val Text)) -emrcjficEc2KeyName = lens _eMRClusterJobFlowInstancesConfigEc2KeyName (\s a -> s { _eMRClusterJobFlowInstancesConfigEc2KeyName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-ec2subnetid -emrcjficEc2SubnetId :: Lens' EMRClusterJobFlowInstancesConfig (Maybe (Val Text)) -emrcjficEc2SubnetId = lens _eMRClusterJobFlowInstancesConfigEc2SubnetId (\s a -> s { _eMRClusterJobFlowInstancesConfigEc2SubnetId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-ec2subnetids -emrcjficEc2SubnetIds :: Lens' EMRClusterJobFlowInstancesConfig (Maybe (ValList Text)) -emrcjficEc2SubnetIds = lens _eMRClusterJobFlowInstancesConfigEc2SubnetIds (\s a -> s { _eMRClusterJobFlowInstancesConfigEc2SubnetIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-emrmanagedmastersecuritygroup -emrcjficEmrManagedMasterSecurityGroup :: Lens' EMRClusterJobFlowInstancesConfig (Maybe (Val Text)) -emrcjficEmrManagedMasterSecurityGroup = lens _eMRClusterJobFlowInstancesConfigEmrManagedMasterSecurityGroup (\s a -> s { _eMRClusterJobFlowInstancesConfigEmrManagedMasterSecurityGroup = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-emrmanagedslavesecuritygroup -emrcjficEmrManagedSlaveSecurityGroup :: Lens' EMRClusterJobFlowInstancesConfig (Maybe (Val Text)) -emrcjficEmrManagedSlaveSecurityGroup = lens _eMRClusterJobFlowInstancesConfigEmrManagedSlaveSecurityGroup (\s a -> s { _eMRClusterJobFlowInstancesConfigEmrManagedSlaveSecurityGroup = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-hadoopversion -emrcjficHadoopVersion :: Lens' EMRClusterJobFlowInstancesConfig (Maybe (Val Text)) -emrcjficHadoopVersion = lens _eMRClusterJobFlowInstancesConfigHadoopVersion (\s a -> s { _eMRClusterJobFlowInstancesConfigHadoopVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-keepjobflowalivewhennosteps -emrcjficKeepJobFlowAliveWhenNoSteps :: Lens' EMRClusterJobFlowInstancesConfig (Maybe (Val Bool)) -emrcjficKeepJobFlowAliveWhenNoSteps = lens _eMRClusterJobFlowInstancesConfigKeepJobFlowAliveWhenNoSteps (\s a -> s { _eMRClusterJobFlowInstancesConfigKeepJobFlowAliveWhenNoSteps = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-masterinstancefleet -emrcjficMasterInstanceFleet :: Lens' EMRClusterJobFlowInstancesConfig (Maybe EMRClusterInstanceFleetConfig) -emrcjficMasterInstanceFleet = lens _eMRClusterJobFlowInstancesConfigMasterInstanceFleet (\s a -> s { _eMRClusterJobFlowInstancesConfigMasterInstanceFleet = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-masterinstancegroup -emrcjficMasterInstanceGroup :: Lens' EMRClusterJobFlowInstancesConfig (Maybe EMRClusterInstanceGroupConfig) -emrcjficMasterInstanceGroup = lens _eMRClusterJobFlowInstancesConfigMasterInstanceGroup (\s a -> s { _eMRClusterJobFlowInstancesConfigMasterInstanceGroup = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-placement -emrcjficPlacement :: Lens' EMRClusterJobFlowInstancesConfig (Maybe EMRClusterPlacementType) -emrcjficPlacement = lens _eMRClusterJobFlowInstancesConfigPlacement (\s a -> s { _eMRClusterJobFlowInstancesConfigPlacement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-serviceaccesssecuritygroup -emrcjficServiceAccessSecurityGroup :: Lens' EMRClusterJobFlowInstancesConfig (Maybe (Val Text)) -emrcjficServiceAccessSecurityGroup = lens _eMRClusterJobFlowInstancesConfigServiceAccessSecurityGroup (\s a -> s { _eMRClusterJobFlowInstancesConfigServiceAccessSecurityGroup = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-terminationprotected -emrcjficTerminationProtected :: Lens' EMRClusterJobFlowInstancesConfig (Maybe (Val Bool)) -emrcjficTerminationProtected = lens _eMRClusterJobFlowInstancesConfigTerminationProtected (\s a -> s { _eMRClusterJobFlowInstancesConfigTerminationProtected = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRClusterKerberosAttributes.hs b/library-gen/Stratosphere/ResourceProperties/EMRClusterKerberosAttributes.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRClusterKerberosAttributes.hs +++ /dev/null @@ -1,68 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-kerberosattributes.html - -module Stratosphere.ResourceProperties.EMRClusterKerberosAttributes where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EMRClusterKerberosAttributes. See --- 'emrClusterKerberosAttributes' for a more convenient constructor. -data EMRClusterKerberosAttributes = - EMRClusterKerberosAttributes - { _eMRClusterKerberosAttributesADDomainJoinPassword :: Maybe (Val Text) - , _eMRClusterKerberosAttributesADDomainJoinUser :: Maybe (Val Text) - , _eMRClusterKerberosAttributesCrossRealmTrustPrincipalPassword :: Maybe (Val Text) - , _eMRClusterKerberosAttributesKdcAdminPassword :: Val Text - , _eMRClusterKerberosAttributesRealm :: Val Text - } deriving (Show, Eq) - -instance ToJSON EMRClusterKerberosAttributes where - toJSON EMRClusterKerberosAttributes{..} = - object $ - catMaybes - [ fmap (("ADDomainJoinPassword",) . toJSON) _eMRClusterKerberosAttributesADDomainJoinPassword - , fmap (("ADDomainJoinUser",) . toJSON) _eMRClusterKerberosAttributesADDomainJoinUser - , fmap (("CrossRealmTrustPrincipalPassword",) . toJSON) _eMRClusterKerberosAttributesCrossRealmTrustPrincipalPassword - , (Just . ("KdcAdminPassword",) . toJSON) _eMRClusterKerberosAttributesKdcAdminPassword - , (Just . ("Realm",) . toJSON) _eMRClusterKerberosAttributesRealm - ] - --- | Constructor for 'EMRClusterKerberosAttributes' containing required fields --- as arguments. -emrClusterKerberosAttributes - :: Val Text -- ^ 'emrckaKdcAdminPassword' - -> Val Text -- ^ 'emrckaRealm' - -> EMRClusterKerberosAttributes -emrClusterKerberosAttributes kdcAdminPasswordarg realmarg = - EMRClusterKerberosAttributes - { _eMRClusterKerberosAttributesADDomainJoinPassword = Nothing - , _eMRClusterKerberosAttributesADDomainJoinUser = Nothing - , _eMRClusterKerberosAttributesCrossRealmTrustPrincipalPassword = Nothing - , _eMRClusterKerberosAttributesKdcAdminPassword = kdcAdminPasswordarg - , _eMRClusterKerberosAttributesRealm = realmarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-kerberosattributes.html#cfn-elasticmapreduce-cluster-kerberosattributes-addomainjoinpassword -emrckaADDomainJoinPassword :: Lens' EMRClusterKerberosAttributes (Maybe (Val Text)) -emrckaADDomainJoinPassword = lens _eMRClusterKerberosAttributesADDomainJoinPassword (\s a -> s { _eMRClusterKerberosAttributesADDomainJoinPassword = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-kerberosattributes.html#cfn-elasticmapreduce-cluster-kerberosattributes-addomainjoinuser -emrckaADDomainJoinUser :: Lens' EMRClusterKerberosAttributes (Maybe (Val Text)) -emrckaADDomainJoinUser = lens _eMRClusterKerberosAttributesADDomainJoinUser (\s a -> s { _eMRClusterKerberosAttributesADDomainJoinUser = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-kerberosattributes.html#cfn-elasticmapreduce-cluster-kerberosattributes-crossrealmtrustprincipalpassword -emrckaCrossRealmTrustPrincipalPassword :: Lens' EMRClusterKerberosAttributes (Maybe (Val Text)) -emrckaCrossRealmTrustPrincipalPassword = lens _eMRClusterKerberosAttributesCrossRealmTrustPrincipalPassword (\s a -> s { _eMRClusterKerberosAttributesCrossRealmTrustPrincipalPassword = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-kerberosattributes.html#cfn-elasticmapreduce-cluster-kerberosattributes-kdcadminpassword -emrckaKdcAdminPassword :: Lens' EMRClusterKerberosAttributes (Val Text) -emrckaKdcAdminPassword = lens _eMRClusterKerberosAttributesKdcAdminPassword (\s a -> s { _eMRClusterKerberosAttributesKdcAdminPassword = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-kerberosattributes.html#cfn-elasticmapreduce-cluster-kerberosattributes-realm -emrckaRealm :: Lens' EMRClusterKerberosAttributes (Val Text) -emrckaRealm = lens _eMRClusterKerberosAttributesRealm (\s a -> s { _eMRClusterKerberosAttributesRealm = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRClusterKeyValue.hs b/library-gen/Stratosphere/ResourceProperties/EMRClusterKeyValue.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRClusterKeyValue.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-keyvalue.html - -module Stratosphere.ResourceProperties.EMRClusterKeyValue where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EMRClusterKeyValue. See --- 'emrClusterKeyValue' for a more convenient constructor. -data EMRClusterKeyValue = - EMRClusterKeyValue - { _eMRClusterKeyValueKey :: Maybe (Val Text) - , _eMRClusterKeyValueValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EMRClusterKeyValue where - toJSON EMRClusterKeyValue{..} = - object $ - catMaybes - [ fmap (("Key",) . toJSON) _eMRClusterKeyValueKey - , fmap (("Value",) . toJSON) _eMRClusterKeyValueValue - ] - --- | Constructor for 'EMRClusterKeyValue' containing required fields as --- arguments. -emrClusterKeyValue - :: EMRClusterKeyValue -emrClusterKeyValue = - EMRClusterKeyValue - { _eMRClusterKeyValueKey = Nothing - , _eMRClusterKeyValueValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-keyvalue.html#cfn-elasticmapreduce-cluster-keyvalue-key -emrckvKey :: Lens' EMRClusterKeyValue (Maybe (Val Text)) -emrckvKey = lens _eMRClusterKeyValueKey (\s a -> s { _eMRClusterKeyValueKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-keyvalue.html#cfn-elasticmapreduce-cluster-keyvalue-value -emrckvValue :: Lens' EMRClusterKeyValue (Maybe (Val Text)) -emrckvValue = lens _eMRClusterKeyValueValue (\s a -> s { _eMRClusterKeyValueValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRClusterMetricDimension.hs b/library-gen/Stratosphere/ResourceProperties/EMRClusterMetricDimension.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRClusterMetricDimension.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-metricdimension.html - -module Stratosphere.ResourceProperties.EMRClusterMetricDimension where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EMRClusterMetricDimension. See --- 'emrClusterMetricDimension' for a more convenient constructor. -data EMRClusterMetricDimension = - EMRClusterMetricDimension - { _eMRClusterMetricDimensionKey :: Val Text - , _eMRClusterMetricDimensionValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON EMRClusterMetricDimension where - toJSON EMRClusterMetricDimension{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _eMRClusterMetricDimensionKey - , (Just . ("Value",) . toJSON) _eMRClusterMetricDimensionValue - ] - --- | Constructor for 'EMRClusterMetricDimension' containing required fields as --- arguments. -emrClusterMetricDimension - :: Val Text -- ^ 'emrcmdKey' - -> Val Text -- ^ 'emrcmdValue' - -> EMRClusterMetricDimension -emrClusterMetricDimension keyarg valuearg = - EMRClusterMetricDimension - { _eMRClusterMetricDimensionKey = keyarg - , _eMRClusterMetricDimensionValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-metricdimension.html#cfn-elasticmapreduce-cluster-metricdimension-key -emrcmdKey :: Lens' EMRClusterMetricDimension (Val Text) -emrcmdKey = lens _eMRClusterMetricDimensionKey (\s a -> s { _eMRClusterMetricDimensionKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-metricdimension.html#cfn-elasticmapreduce-cluster-metricdimension-value -emrcmdValue :: Lens' EMRClusterMetricDimension (Val Text) -emrcmdValue = lens _eMRClusterMetricDimensionValue (\s a -> s { _eMRClusterMetricDimensionValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRClusterPlacementType.hs b/library-gen/Stratosphere/ResourceProperties/EMRClusterPlacementType.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRClusterPlacementType.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-placementtype.html - -module Stratosphere.ResourceProperties.EMRClusterPlacementType where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EMRClusterPlacementType. See --- 'emrClusterPlacementType' for a more convenient constructor. -data EMRClusterPlacementType = - EMRClusterPlacementType - { _eMRClusterPlacementTypeAvailabilityZone :: Val Text - } deriving (Show, Eq) - -instance ToJSON EMRClusterPlacementType where - toJSON EMRClusterPlacementType{..} = - object $ - catMaybes - [ (Just . ("AvailabilityZone",) . toJSON) _eMRClusterPlacementTypeAvailabilityZone - ] - --- | Constructor for 'EMRClusterPlacementType' containing required fields as --- arguments. -emrClusterPlacementType - :: Val Text -- ^ 'emrcptAvailabilityZone' - -> EMRClusterPlacementType -emrClusterPlacementType availabilityZonearg = - EMRClusterPlacementType - { _eMRClusterPlacementTypeAvailabilityZone = availabilityZonearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-placementtype.html#cfn-elasticmapreduce-cluster-placementtype-availabilityzone -emrcptAvailabilityZone :: Lens' EMRClusterPlacementType (Val Text) -emrcptAvailabilityZone = lens _eMRClusterPlacementTypeAvailabilityZone (\s a -> s { _eMRClusterPlacementTypeAvailabilityZone = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRClusterScalingAction.hs b/library-gen/Stratosphere/ResourceProperties/EMRClusterScalingAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRClusterScalingAction.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-scalingaction.html - -module Stratosphere.ResourceProperties.EMRClusterScalingAction where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRClusterSimpleScalingPolicyConfiguration - --- | Full data type definition for EMRClusterScalingAction. See --- 'emrClusterScalingAction' for a more convenient constructor. -data EMRClusterScalingAction = - EMRClusterScalingAction - { _eMRClusterScalingActionMarket :: Maybe (Val Text) - , _eMRClusterScalingActionSimpleScalingPolicyConfiguration :: EMRClusterSimpleScalingPolicyConfiguration - } deriving (Show, Eq) - -instance ToJSON EMRClusterScalingAction where - toJSON EMRClusterScalingAction{..} = - object $ - catMaybes - [ fmap (("Market",) . toJSON) _eMRClusterScalingActionMarket - , (Just . ("SimpleScalingPolicyConfiguration",) . toJSON) _eMRClusterScalingActionSimpleScalingPolicyConfiguration - ] - --- | Constructor for 'EMRClusterScalingAction' containing required fields as --- arguments. -emrClusterScalingAction - :: EMRClusterSimpleScalingPolicyConfiguration -- ^ 'emrcsaSimpleScalingPolicyConfiguration' - -> EMRClusterScalingAction -emrClusterScalingAction simpleScalingPolicyConfigurationarg = - EMRClusterScalingAction - { _eMRClusterScalingActionMarket = Nothing - , _eMRClusterScalingActionSimpleScalingPolicyConfiguration = simpleScalingPolicyConfigurationarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-scalingaction.html#cfn-elasticmapreduce-cluster-scalingaction-market -emrcsaMarket :: Lens' EMRClusterScalingAction (Maybe (Val Text)) -emrcsaMarket = lens _eMRClusterScalingActionMarket (\s a -> s { _eMRClusterScalingActionMarket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-scalingaction.html#cfn-elasticmapreduce-cluster-scalingaction-simplescalingpolicyconfiguration -emrcsaSimpleScalingPolicyConfiguration :: Lens' EMRClusterScalingAction EMRClusterSimpleScalingPolicyConfiguration -emrcsaSimpleScalingPolicyConfiguration = lens _eMRClusterScalingActionSimpleScalingPolicyConfiguration (\s a -> s { _eMRClusterScalingActionSimpleScalingPolicyConfiguration = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRClusterScalingConstraints.hs b/library-gen/Stratosphere/ResourceProperties/EMRClusterScalingConstraints.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRClusterScalingConstraints.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-scalingconstraints.html - -module Stratosphere.ResourceProperties.EMRClusterScalingConstraints where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EMRClusterScalingConstraints. See --- 'emrClusterScalingConstraints' for a more convenient constructor. -data EMRClusterScalingConstraints = - EMRClusterScalingConstraints - { _eMRClusterScalingConstraintsMaxCapacity :: Val Integer - , _eMRClusterScalingConstraintsMinCapacity :: Val Integer - } deriving (Show, Eq) - -instance ToJSON EMRClusterScalingConstraints where - toJSON EMRClusterScalingConstraints{..} = - object $ - catMaybes - [ (Just . ("MaxCapacity",) . toJSON) _eMRClusterScalingConstraintsMaxCapacity - , (Just . ("MinCapacity",) . toJSON) _eMRClusterScalingConstraintsMinCapacity - ] - --- | Constructor for 'EMRClusterScalingConstraints' containing required fields --- as arguments. -emrClusterScalingConstraints - :: Val Integer -- ^ 'emrcscMaxCapacity' - -> Val Integer -- ^ 'emrcscMinCapacity' - -> EMRClusterScalingConstraints -emrClusterScalingConstraints maxCapacityarg minCapacityarg = - EMRClusterScalingConstraints - { _eMRClusterScalingConstraintsMaxCapacity = maxCapacityarg - , _eMRClusterScalingConstraintsMinCapacity = minCapacityarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-scalingconstraints.html#cfn-elasticmapreduce-cluster-scalingconstraints-maxcapacity -emrcscMaxCapacity :: Lens' EMRClusterScalingConstraints (Val Integer) -emrcscMaxCapacity = lens _eMRClusterScalingConstraintsMaxCapacity (\s a -> s { _eMRClusterScalingConstraintsMaxCapacity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-scalingconstraints.html#cfn-elasticmapreduce-cluster-scalingconstraints-mincapacity -emrcscMinCapacity :: Lens' EMRClusterScalingConstraints (Val Integer) -emrcscMinCapacity = lens _eMRClusterScalingConstraintsMinCapacity (\s a -> s { _eMRClusterScalingConstraintsMinCapacity = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRClusterScalingRule.hs b/library-gen/Stratosphere/ResourceProperties/EMRClusterScalingRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRClusterScalingRule.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-scalingrule.html - -module Stratosphere.ResourceProperties.EMRClusterScalingRule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRClusterScalingAction -import Stratosphere.ResourceProperties.EMRClusterScalingTrigger - --- | Full data type definition for EMRClusterScalingRule. See --- 'emrClusterScalingRule' for a more convenient constructor. -data EMRClusterScalingRule = - EMRClusterScalingRule - { _eMRClusterScalingRuleAction :: EMRClusterScalingAction - , _eMRClusterScalingRuleDescription :: Maybe (Val Text) - , _eMRClusterScalingRuleName :: Val Text - , _eMRClusterScalingRuleTrigger :: EMRClusterScalingTrigger - } deriving (Show, Eq) - -instance ToJSON EMRClusterScalingRule where - toJSON EMRClusterScalingRule{..} = - object $ - catMaybes - [ (Just . ("Action",) . toJSON) _eMRClusterScalingRuleAction - , fmap (("Description",) . toJSON) _eMRClusterScalingRuleDescription - , (Just . ("Name",) . toJSON) _eMRClusterScalingRuleName - , (Just . ("Trigger",) . toJSON) _eMRClusterScalingRuleTrigger - ] - --- | Constructor for 'EMRClusterScalingRule' containing required fields as --- arguments. -emrClusterScalingRule - :: EMRClusterScalingAction -- ^ 'emrcsrAction' - -> Val Text -- ^ 'emrcsrName' - -> EMRClusterScalingTrigger -- ^ 'emrcsrTrigger' - -> EMRClusterScalingRule -emrClusterScalingRule actionarg namearg triggerarg = - EMRClusterScalingRule - { _eMRClusterScalingRuleAction = actionarg - , _eMRClusterScalingRuleDescription = Nothing - , _eMRClusterScalingRuleName = namearg - , _eMRClusterScalingRuleTrigger = triggerarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-scalingrule.html#cfn-elasticmapreduce-cluster-scalingrule-action -emrcsrAction :: Lens' EMRClusterScalingRule EMRClusterScalingAction -emrcsrAction = lens _eMRClusterScalingRuleAction (\s a -> s { _eMRClusterScalingRuleAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-scalingrule.html#cfn-elasticmapreduce-cluster-scalingrule-description -emrcsrDescription :: Lens' EMRClusterScalingRule (Maybe (Val Text)) -emrcsrDescription = lens _eMRClusterScalingRuleDescription (\s a -> s { _eMRClusterScalingRuleDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-scalingrule.html#cfn-elasticmapreduce-cluster-scalingrule-name -emrcsrName :: Lens' EMRClusterScalingRule (Val Text) -emrcsrName = lens _eMRClusterScalingRuleName (\s a -> s { _eMRClusterScalingRuleName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-scalingrule.html#cfn-elasticmapreduce-cluster-scalingrule-trigger -emrcsrTrigger :: Lens' EMRClusterScalingRule EMRClusterScalingTrigger -emrcsrTrigger = lens _eMRClusterScalingRuleTrigger (\s a -> s { _eMRClusterScalingRuleTrigger = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRClusterScalingTrigger.hs b/library-gen/Stratosphere/ResourceProperties/EMRClusterScalingTrigger.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRClusterScalingTrigger.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-scalingtrigger.html - -module Stratosphere.ResourceProperties.EMRClusterScalingTrigger where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRClusterCloudWatchAlarmDefinition - --- | Full data type definition for EMRClusterScalingTrigger. See --- 'emrClusterScalingTrigger' for a more convenient constructor. -data EMRClusterScalingTrigger = - EMRClusterScalingTrigger - { _eMRClusterScalingTriggerCloudWatchAlarmDefinition :: EMRClusterCloudWatchAlarmDefinition - } deriving (Show, Eq) - -instance ToJSON EMRClusterScalingTrigger where - toJSON EMRClusterScalingTrigger{..} = - object $ - catMaybes - [ (Just . ("CloudWatchAlarmDefinition",) . toJSON) _eMRClusterScalingTriggerCloudWatchAlarmDefinition - ] - --- | Constructor for 'EMRClusterScalingTrigger' containing required fields as --- arguments. -emrClusterScalingTrigger - :: EMRClusterCloudWatchAlarmDefinition -- ^ 'emrcstCloudWatchAlarmDefinition' - -> EMRClusterScalingTrigger -emrClusterScalingTrigger cloudWatchAlarmDefinitionarg = - EMRClusterScalingTrigger - { _eMRClusterScalingTriggerCloudWatchAlarmDefinition = cloudWatchAlarmDefinitionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-scalingtrigger.html#cfn-elasticmapreduce-cluster-scalingtrigger-cloudwatchalarmdefinition -emrcstCloudWatchAlarmDefinition :: Lens' EMRClusterScalingTrigger EMRClusterCloudWatchAlarmDefinition -emrcstCloudWatchAlarmDefinition = lens _eMRClusterScalingTriggerCloudWatchAlarmDefinition (\s a -> s { _eMRClusterScalingTriggerCloudWatchAlarmDefinition = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRClusterScriptBootstrapActionConfig.hs b/library-gen/Stratosphere/ResourceProperties/EMRClusterScriptBootstrapActionConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRClusterScriptBootstrapActionConfig.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-scriptbootstrapactionconfig.html - -module Stratosphere.ResourceProperties.EMRClusterScriptBootstrapActionConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EMRClusterScriptBootstrapActionConfig. See --- 'emrClusterScriptBootstrapActionConfig' for a more convenient --- constructor. -data EMRClusterScriptBootstrapActionConfig = - EMRClusterScriptBootstrapActionConfig - { _eMRClusterScriptBootstrapActionConfigArgs :: Maybe (ValList Text) - , _eMRClusterScriptBootstrapActionConfigPath :: Val Text - } deriving (Show, Eq) - -instance ToJSON EMRClusterScriptBootstrapActionConfig where - toJSON EMRClusterScriptBootstrapActionConfig{..} = - object $ - catMaybes - [ fmap (("Args",) . toJSON) _eMRClusterScriptBootstrapActionConfigArgs - , (Just . ("Path",) . toJSON) _eMRClusterScriptBootstrapActionConfigPath - ] - --- | Constructor for 'EMRClusterScriptBootstrapActionConfig' containing --- required fields as arguments. -emrClusterScriptBootstrapActionConfig - :: Val Text -- ^ 'emrcsbacPath' - -> EMRClusterScriptBootstrapActionConfig -emrClusterScriptBootstrapActionConfig patharg = - EMRClusterScriptBootstrapActionConfig - { _eMRClusterScriptBootstrapActionConfigArgs = Nothing - , _eMRClusterScriptBootstrapActionConfigPath = patharg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-scriptbootstrapactionconfig.html#cfn-elasticmapreduce-cluster-scriptbootstrapactionconfig-args -emrcsbacArgs :: Lens' EMRClusterScriptBootstrapActionConfig (Maybe (ValList Text)) -emrcsbacArgs = lens _eMRClusterScriptBootstrapActionConfigArgs (\s a -> s { _eMRClusterScriptBootstrapActionConfigArgs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-scriptbootstrapactionconfig.html#cfn-elasticmapreduce-cluster-scriptbootstrapactionconfig-path -emrcsbacPath :: Lens' EMRClusterScriptBootstrapActionConfig (Val Text) -emrcsbacPath = lens _eMRClusterScriptBootstrapActionConfigPath (\s a -> s { _eMRClusterScriptBootstrapActionConfigPath = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRClusterSimpleScalingPolicyConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/EMRClusterSimpleScalingPolicyConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRClusterSimpleScalingPolicyConfiguration.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-simplescalingpolicyconfiguration.html - -module Stratosphere.ResourceProperties.EMRClusterSimpleScalingPolicyConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EMRClusterSimpleScalingPolicyConfiguration. --- See 'emrClusterSimpleScalingPolicyConfiguration' for a more convenient --- constructor. -data EMRClusterSimpleScalingPolicyConfiguration = - EMRClusterSimpleScalingPolicyConfiguration - { _eMRClusterSimpleScalingPolicyConfigurationAdjustmentType :: Maybe (Val Text) - , _eMRClusterSimpleScalingPolicyConfigurationCoolDown :: Maybe (Val Integer) - , _eMRClusterSimpleScalingPolicyConfigurationScalingAdjustment :: Val Integer - } deriving (Show, Eq) - -instance ToJSON EMRClusterSimpleScalingPolicyConfiguration where - toJSON EMRClusterSimpleScalingPolicyConfiguration{..} = - object $ - catMaybes - [ fmap (("AdjustmentType",) . toJSON) _eMRClusterSimpleScalingPolicyConfigurationAdjustmentType - , fmap (("CoolDown",) . toJSON) _eMRClusterSimpleScalingPolicyConfigurationCoolDown - , (Just . ("ScalingAdjustment",) . toJSON) _eMRClusterSimpleScalingPolicyConfigurationScalingAdjustment - ] - --- | Constructor for 'EMRClusterSimpleScalingPolicyConfiguration' containing --- required fields as arguments. -emrClusterSimpleScalingPolicyConfiguration - :: Val Integer -- ^ 'emrcsspcScalingAdjustment' - -> EMRClusterSimpleScalingPolicyConfiguration -emrClusterSimpleScalingPolicyConfiguration scalingAdjustmentarg = - EMRClusterSimpleScalingPolicyConfiguration - { _eMRClusterSimpleScalingPolicyConfigurationAdjustmentType = Nothing - , _eMRClusterSimpleScalingPolicyConfigurationCoolDown = Nothing - , _eMRClusterSimpleScalingPolicyConfigurationScalingAdjustment = scalingAdjustmentarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-simplescalingpolicyconfiguration.html#cfn-elasticmapreduce-cluster-simplescalingpolicyconfiguration-adjustmenttype -emrcsspcAdjustmentType :: Lens' EMRClusterSimpleScalingPolicyConfiguration (Maybe (Val Text)) -emrcsspcAdjustmentType = lens _eMRClusterSimpleScalingPolicyConfigurationAdjustmentType (\s a -> s { _eMRClusterSimpleScalingPolicyConfigurationAdjustmentType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-simplescalingpolicyconfiguration.html#cfn-elasticmapreduce-cluster-simplescalingpolicyconfiguration-cooldown -emrcsspcCoolDown :: Lens' EMRClusterSimpleScalingPolicyConfiguration (Maybe (Val Integer)) -emrcsspcCoolDown = lens _eMRClusterSimpleScalingPolicyConfigurationCoolDown (\s a -> s { _eMRClusterSimpleScalingPolicyConfigurationCoolDown = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-simplescalingpolicyconfiguration.html#cfn-elasticmapreduce-cluster-simplescalingpolicyconfiguration-scalingadjustment -emrcsspcScalingAdjustment :: Lens' EMRClusterSimpleScalingPolicyConfiguration (Val Integer) -emrcsspcScalingAdjustment = lens _eMRClusterSimpleScalingPolicyConfigurationScalingAdjustment (\s a -> s { _eMRClusterSimpleScalingPolicyConfigurationScalingAdjustment = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRClusterSpotProvisioningSpecification.hs b/library-gen/Stratosphere/ResourceProperties/EMRClusterSpotProvisioningSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRClusterSpotProvisioningSpecification.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-spotprovisioningspecification.html - -module Stratosphere.ResourceProperties.EMRClusterSpotProvisioningSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EMRClusterSpotProvisioningSpecification. --- See 'emrClusterSpotProvisioningSpecification' for a more convenient --- constructor. -data EMRClusterSpotProvisioningSpecification = - EMRClusterSpotProvisioningSpecification - { _eMRClusterSpotProvisioningSpecificationBlockDurationMinutes :: Maybe (Val Integer) - , _eMRClusterSpotProvisioningSpecificationTimeoutAction :: Val Text - , _eMRClusterSpotProvisioningSpecificationTimeoutDurationMinutes :: Val Integer - } deriving (Show, Eq) - -instance ToJSON EMRClusterSpotProvisioningSpecification where - toJSON EMRClusterSpotProvisioningSpecification{..} = - object $ - catMaybes - [ fmap (("BlockDurationMinutes",) . toJSON) _eMRClusterSpotProvisioningSpecificationBlockDurationMinutes - , (Just . ("TimeoutAction",) . toJSON) _eMRClusterSpotProvisioningSpecificationTimeoutAction - , (Just . ("TimeoutDurationMinutes",) . toJSON) _eMRClusterSpotProvisioningSpecificationTimeoutDurationMinutes - ] - --- | Constructor for 'EMRClusterSpotProvisioningSpecification' containing --- required fields as arguments. -emrClusterSpotProvisioningSpecification - :: Val Text -- ^ 'emrcspsTimeoutAction' - -> Val Integer -- ^ 'emrcspsTimeoutDurationMinutes' - -> EMRClusterSpotProvisioningSpecification -emrClusterSpotProvisioningSpecification timeoutActionarg timeoutDurationMinutesarg = - EMRClusterSpotProvisioningSpecification - { _eMRClusterSpotProvisioningSpecificationBlockDurationMinutes = Nothing - , _eMRClusterSpotProvisioningSpecificationTimeoutAction = timeoutActionarg - , _eMRClusterSpotProvisioningSpecificationTimeoutDurationMinutes = timeoutDurationMinutesarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-spotprovisioningspecification.html#cfn-elasticmapreduce-cluster-spotprovisioningspecification-blockdurationminutes -emrcspsBlockDurationMinutes :: Lens' EMRClusterSpotProvisioningSpecification (Maybe (Val Integer)) -emrcspsBlockDurationMinutes = lens _eMRClusterSpotProvisioningSpecificationBlockDurationMinutes (\s a -> s { _eMRClusterSpotProvisioningSpecificationBlockDurationMinutes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-spotprovisioningspecification.html#cfn-elasticmapreduce-cluster-spotprovisioningspecification-timeoutaction -emrcspsTimeoutAction :: Lens' EMRClusterSpotProvisioningSpecification (Val Text) -emrcspsTimeoutAction = lens _eMRClusterSpotProvisioningSpecificationTimeoutAction (\s a -> s { _eMRClusterSpotProvisioningSpecificationTimeoutAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-spotprovisioningspecification.html#cfn-elasticmapreduce-cluster-spotprovisioningspecification-timeoutdurationminutes -emrcspsTimeoutDurationMinutes :: Lens' EMRClusterSpotProvisioningSpecification (Val Integer) -emrcspsTimeoutDurationMinutes = lens _eMRClusterSpotProvisioningSpecificationTimeoutDurationMinutes (\s a -> s { _eMRClusterSpotProvisioningSpecificationTimeoutDurationMinutes = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRClusterStepConfig.hs b/library-gen/Stratosphere/ResourceProperties/EMRClusterStepConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRClusterStepConfig.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-stepconfig.html - -module Stratosphere.ResourceProperties.EMRClusterStepConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRClusterHadoopJarStepConfig - --- | Full data type definition for EMRClusterStepConfig. See --- 'emrClusterStepConfig' for a more convenient constructor. -data EMRClusterStepConfig = - EMRClusterStepConfig - { _eMRClusterStepConfigActionOnFailure :: Maybe (Val Text) - , _eMRClusterStepConfigHadoopJarStep :: EMRClusterHadoopJarStepConfig - , _eMRClusterStepConfigName :: Val Text - } deriving (Show, Eq) - -instance ToJSON EMRClusterStepConfig where - toJSON EMRClusterStepConfig{..} = - object $ - catMaybes - [ fmap (("ActionOnFailure",) . toJSON) _eMRClusterStepConfigActionOnFailure - , (Just . ("HadoopJarStep",) . toJSON) _eMRClusterStepConfigHadoopJarStep - , (Just . ("Name",) . toJSON) _eMRClusterStepConfigName - ] - --- | Constructor for 'EMRClusterStepConfig' containing required fields as --- arguments. -emrClusterStepConfig - :: EMRClusterHadoopJarStepConfig -- ^ 'emrcscHadoopJarStep' - -> Val Text -- ^ 'emrcscName' - -> EMRClusterStepConfig -emrClusterStepConfig hadoopJarSteparg namearg = - EMRClusterStepConfig - { _eMRClusterStepConfigActionOnFailure = Nothing - , _eMRClusterStepConfigHadoopJarStep = hadoopJarSteparg - , _eMRClusterStepConfigName = namearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-stepconfig.html#cfn-elasticmapreduce-cluster-stepconfig-actiononfailure -emrcscActionOnFailure :: Lens' EMRClusterStepConfig (Maybe (Val Text)) -emrcscActionOnFailure = lens _eMRClusterStepConfigActionOnFailure (\s a -> s { _eMRClusterStepConfigActionOnFailure = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-stepconfig.html#cfn-elasticmapreduce-cluster-stepconfig-hadoopjarstep -emrcscHadoopJarStep :: Lens' EMRClusterStepConfig EMRClusterHadoopJarStepConfig -emrcscHadoopJarStep = lens _eMRClusterStepConfigHadoopJarStep (\s a -> s { _eMRClusterStepConfigHadoopJarStep = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-stepconfig.html#cfn-elasticmapreduce-cluster-stepconfig-name -emrcscName :: Lens' EMRClusterStepConfig (Val Text) -emrcscName = lens _eMRClusterStepConfigName (\s a -> s { _eMRClusterStepConfigName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRClusterVolumeSpecification.hs b/library-gen/Stratosphere/ResourceProperties/EMRClusterVolumeSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRClusterVolumeSpecification.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-volumespecification.html - -module Stratosphere.ResourceProperties.EMRClusterVolumeSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EMRClusterVolumeSpecification. See --- 'emrClusterVolumeSpecification' for a more convenient constructor. -data EMRClusterVolumeSpecification = - EMRClusterVolumeSpecification - { _eMRClusterVolumeSpecificationIops :: Maybe (Val Integer) - , _eMRClusterVolumeSpecificationSizeInGB :: Val Integer - , _eMRClusterVolumeSpecificationVolumeType :: Val Text - } deriving (Show, Eq) - -instance ToJSON EMRClusterVolumeSpecification where - toJSON EMRClusterVolumeSpecification{..} = - object $ - catMaybes - [ fmap (("Iops",) . toJSON) _eMRClusterVolumeSpecificationIops - , (Just . ("SizeInGB",) . toJSON) _eMRClusterVolumeSpecificationSizeInGB - , (Just . ("VolumeType",) . toJSON) _eMRClusterVolumeSpecificationVolumeType - ] - --- | Constructor for 'EMRClusterVolumeSpecification' containing required --- fields as arguments. -emrClusterVolumeSpecification - :: Val Integer -- ^ 'emrcvsSizeInGB' - -> Val Text -- ^ 'emrcvsVolumeType' - -> EMRClusterVolumeSpecification -emrClusterVolumeSpecification sizeInGBarg volumeTypearg = - EMRClusterVolumeSpecification - { _eMRClusterVolumeSpecificationIops = Nothing - , _eMRClusterVolumeSpecificationSizeInGB = sizeInGBarg - , _eMRClusterVolumeSpecificationVolumeType = volumeTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-volumespecification.html#cfn-elasticmapreduce-cluster-volumespecification-iops -emrcvsIops :: Lens' EMRClusterVolumeSpecification (Maybe (Val Integer)) -emrcvsIops = lens _eMRClusterVolumeSpecificationIops (\s a -> s { _eMRClusterVolumeSpecificationIops = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-volumespecification.html#cfn-elasticmapreduce-cluster-volumespecification-sizeingb -emrcvsSizeInGB :: Lens' EMRClusterVolumeSpecification (Val Integer) -emrcvsSizeInGB = lens _eMRClusterVolumeSpecificationSizeInGB (\s a -> s { _eMRClusterVolumeSpecificationSizeInGB = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-volumespecification.html#cfn-elasticmapreduce-cluster-volumespecification-volumetype -emrcvsVolumeType :: Lens' EMRClusterVolumeSpecification (Val Text) -emrcvsVolumeType = lens _eMRClusterVolumeSpecificationVolumeType (\s a -> s { _eMRClusterVolumeSpecificationVolumeType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRInstanceFleetConfigConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/EMRInstanceFleetConfigConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRInstanceFleetConfigConfiguration.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancefleetconfig-configuration.html - -module Stratosphere.ResourceProperties.EMRInstanceFleetConfigConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EMRInstanceFleetConfigConfiguration. See --- 'emrInstanceFleetConfigConfiguration' for a more convenient constructor. -data EMRInstanceFleetConfigConfiguration = - EMRInstanceFleetConfigConfiguration - { _eMRInstanceFleetConfigConfigurationClassification :: Maybe (Val Text) - , _eMRInstanceFleetConfigConfigurationConfigurationProperties :: Maybe Object - , _eMRInstanceFleetConfigConfigurationConfigurations :: Maybe [EMRInstanceFleetConfigConfiguration] - } deriving (Show, Eq) - -instance ToJSON EMRInstanceFleetConfigConfiguration where - toJSON EMRInstanceFleetConfigConfiguration{..} = - object $ - catMaybes - [ fmap (("Classification",) . toJSON) _eMRInstanceFleetConfigConfigurationClassification - , fmap (("ConfigurationProperties",) . toJSON) _eMRInstanceFleetConfigConfigurationConfigurationProperties - , fmap (("Configurations",) . toJSON) _eMRInstanceFleetConfigConfigurationConfigurations - ] - --- | Constructor for 'EMRInstanceFleetConfigConfiguration' containing required --- fields as arguments. -emrInstanceFleetConfigConfiguration - :: EMRInstanceFleetConfigConfiguration -emrInstanceFleetConfigConfiguration = - EMRInstanceFleetConfigConfiguration - { _eMRInstanceFleetConfigConfigurationClassification = Nothing - , _eMRInstanceFleetConfigConfigurationConfigurationProperties = Nothing - , _eMRInstanceFleetConfigConfigurationConfigurations = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancefleetconfig-configuration.html#cfn-elasticmapreduce-instancefleetconfig-configuration-classification -emrifccClassification :: Lens' EMRInstanceFleetConfigConfiguration (Maybe (Val Text)) -emrifccClassification = lens _eMRInstanceFleetConfigConfigurationClassification (\s a -> s { _eMRInstanceFleetConfigConfigurationClassification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancefleetconfig-configuration.html#cfn-elasticmapreduce-instancefleetconfig-configuration-configurationproperties -emrifccConfigurationProperties :: Lens' EMRInstanceFleetConfigConfiguration (Maybe Object) -emrifccConfigurationProperties = lens _eMRInstanceFleetConfigConfigurationConfigurationProperties (\s a -> s { _eMRInstanceFleetConfigConfigurationConfigurationProperties = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancefleetconfig-configuration.html#cfn-elasticmapreduce-instancefleetconfig-configuration-configurations -emrifccConfigurations :: Lens' EMRInstanceFleetConfigConfiguration (Maybe [EMRInstanceFleetConfigConfiguration]) -emrifccConfigurations = lens _eMRInstanceFleetConfigConfigurationConfigurations (\s a -> s { _eMRInstanceFleetConfigConfigurationConfigurations = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRInstanceFleetConfigEbsBlockDeviceConfig.hs b/library-gen/Stratosphere/ResourceProperties/EMRInstanceFleetConfigEbsBlockDeviceConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRInstanceFleetConfigEbsBlockDeviceConfig.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancefleetconfig-ebsblockdeviceconfig.html - -module Stratosphere.ResourceProperties.EMRInstanceFleetConfigEbsBlockDeviceConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRInstanceFleetConfigVolumeSpecification - --- | Full data type definition for EMRInstanceFleetConfigEbsBlockDeviceConfig. --- See 'emrInstanceFleetConfigEbsBlockDeviceConfig' for a more convenient --- constructor. -data EMRInstanceFleetConfigEbsBlockDeviceConfig = - EMRInstanceFleetConfigEbsBlockDeviceConfig - { _eMRInstanceFleetConfigEbsBlockDeviceConfigVolumeSpecification :: EMRInstanceFleetConfigVolumeSpecification - , _eMRInstanceFleetConfigEbsBlockDeviceConfigVolumesPerInstance :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON EMRInstanceFleetConfigEbsBlockDeviceConfig where - toJSON EMRInstanceFleetConfigEbsBlockDeviceConfig{..} = - object $ - catMaybes - [ (Just . ("VolumeSpecification",) . toJSON) _eMRInstanceFleetConfigEbsBlockDeviceConfigVolumeSpecification - , fmap (("VolumesPerInstance",) . toJSON) _eMRInstanceFleetConfigEbsBlockDeviceConfigVolumesPerInstance - ] - --- | Constructor for 'EMRInstanceFleetConfigEbsBlockDeviceConfig' containing --- required fields as arguments. -emrInstanceFleetConfigEbsBlockDeviceConfig - :: EMRInstanceFleetConfigVolumeSpecification -- ^ 'emrifcebdcVolumeSpecification' - -> EMRInstanceFleetConfigEbsBlockDeviceConfig -emrInstanceFleetConfigEbsBlockDeviceConfig volumeSpecificationarg = - EMRInstanceFleetConfigEbsBlockDeviceConfig - { _eMRInstanceFleetConfigEbsBlockDeviceConfigVolumeSpecification = volumeSpecificationarg - , _eMRInstanceFleetConfigEbsBlockDeviceConfigVolumesPerInstance = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancefleetconfig-ebsblockdeviceconfig.html#cfn-elasticmapreduce-instancefleetconfig-ebsblockdeviceconfig-volumespecification -emrifcebdcVolumeSpecification :: Lens' EMRInstanceFleetConfigEbsBlockDeviceConfig EMRInstanceFleetConfigVolumeSpecification -emrifcebdcVolumeSpecification = lens _eMRInstanceFleetConfigEbsBlockDeviceConfigVolumeSpecification (\s a -> s { _eMRInstanceFleetConfigEbsBlockDeviceConfigVolumeSpecification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancefleetconfig-ebsblockdeviceconfig.html#cfn-elasticmapreduce-instancefleetconfig-ebsblockdeviceconfig-volumesperinstance -emrifcebdcVolumesPerInstance :: Lens' EMRInstanceFleetConfigEbsBlockDeviceConfig (Maybe (Val Integer)) -emrifcebdcVolumesPerInstance = lens _eMRInstanceFleetConfigEbsBlockDeviceConfigVolumesPerInstance (\s a -> s { _eMRInstanceFleetConfigEbsBlockDeviceConfigVolumesPerInstance = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRInstanceFleetConfigEbsConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/EMRInstanceFleetConfigEbsConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRInstanceFleetConfigEbsConfiguration.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancefleetconfig-ebsconfiguration.html - -module Stratosphere.ResourceProperties.EMRInstanceFleetConfigEbsConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRInstanceFleetConfigEbsBlockDeviceConfig - --- | Full data type definition for EMRInstanceFleetConfigEbsConfiguration. See --- 'emrInstanceFleetConfigEbsConfiguration' for a more convenient --- constructor. -data EMRInstanceFleetConfigEbsConfiguration = - EMRInstanceFleetConfigEbsConfiguration - { _eMRInstanceFleetConfigEbsConfigurationEbsBlockDeviceConfigs :: Maybe [EMRInstanceFleetConfigEbsBlockDeviceConfig] - , _eMRInstanceFleetConfigEbsConfigurationEbsOptimized :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON EMRInstanceFleetConfigEbsConfiguration where - toJSON EMRInstanceFleetConfigEbsConfiguration{..} = - object $ - catMaybes - [ fmap (("EbsBlockDeviceConfigs",) . toJSON) _eMRInstanceFleetConfigEbsConfigurationEbsBlockDeviceConfigs - , fmap (("EbsOptimized",) . toJSON) _eMRInstanceFleetConfigEbsConfigurationEbsOptimized - ] - --- | Constructor for 'EMRInstanceFleetConfigEbsConfiguration' containing --- required fields as arguments. -emrInstanceFleetConfigEbsConfiguration - :: EMRInstanceFleetConfigEbsConfiguration -emrInstanceFleetConfigEbsConfiguration = - EMRInstanceFleetConfigEbsConfiguration - { _eMRInstanceFleetConfigEbsConfigurationEbsBlockDeviceConfigs = Nothing - , _eMRInstanceFleetConfigEbsConfigurationEbsOptimized = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancefleetconfig-ebsconfiguration.html#cfn-elasticmapreduce-instancefleetconfig-ebsconfiguration-ebsblockdeviceconfigs -emrifcecEbsBlockDeviceConfigs :: Lens' EMRInstanceFleetConfigEbsConfiguration (Maybe [EMRInstanceFleetConfigEbsBlockDeviceConfig]) -emrifcecEbsBlockDeviceConfigs = lens _eMRInstanceFleetConfigEbsConfigurationEbsBlockDeviceConfigs (\s a -> s { _eMRInstanceFleetConfigEbsConfigurationEbsBlockDeviceConfigs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancefleetconfig-ebsconfiguration.html#cfn-elasticmapreduce-instancefleetconfig-ebsconfiguration-ebsoptimized -emrifcecEbsOptimized :: Lens' EMRInstanceFleetConfigEbsConfiguration (Maybe (Val Bool)) -emrifcecEbsOptimized = lens _eMRInstanceFleetConfigEbsConfigurationEbsOptimized (\s a -> s { _eMRInstanceFleetConfigEbsConfigurationEbsOptimized = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRInstanceFleetConfigInstanceFleetProvisioningSpecifications.hs b/library-gen/Stratosphere/ResourceProperties/EMRInstanceFleetConfigInstanceFleetProvisioningSpecifications.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRInstanceFleetConfigInstanceFleetProvisioningSpecifications.hs +++ /dev/null @@ -1,42 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancefleetconfig-instancefleetprovisioningspecifications.html - -module Stratosphere.ResourceProperties.EMRInstanceFleetConfigInstanceFleetProvisioningSpecifications where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRInstanceFleetConfigSpotProvisioningSpecification - --- | Full data type definition for --- EMRInstanceFleetConfigInstanceFleetProvisioningSpecifications. See --- 'emrInstanceFleetConfigInstanceFleetProvisioningSpecifications' for a --- more convenient constructor. -data EMRInstanceFleetConfigInstanceFleetProvisioningSpecifications = - EMRInstanceFleetConfigInstanceFleetProvisioningSpecifications - { _eMRInstanceFleetConfigInstanceFleetProvisioningSpecificationsSpotSpecification :: EMRInstanceFleetConfigSpotProvisioningSpecification - } deriving (Show, Eq) - -instance ToJSON EMRInstanceFleetConfigInstanceFleetProvisioningSpecifications where - toJSON EMRInstanceFleetConfigInstanceFleetProvisioningSpecifications{..} = - object $ - catMaybes - [ (Just . ("SpotSpecification",) . toJSON) _eMRInstanceFleetConfigInstanceFleetProvisioningSpecificationsSpotSpecification - ] - --- | Constructor for --- 'EMRInstanceFleetConfigInstanceFleetProvisioningSpecifications' --- containing required fields as arguments. -emrInstanceFleetConfigInstanceFleetProvisioningSpecifications - :: EMRInstanceFleetConfigSpotProvisioningSpecification -- ^ 'emrifcifpsSpotSpecification' - -> EMRInstanceFleetConfigInstanceFleetProvisioningSpecifications -emrInstanceFleetConfigInstanceFleetProvisioningSpecifications spotSpecificationarg = - EMRInstanceFleetConfigInstanceFleetProvisioningSpecifications - { _eMRInstanceFleetConfigInstanceFleetProvisioningSpecificationsSpotSpecification = spotSpecificationarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancefleetconfig-instancefleetprovisioningspecifications.html#cfn-elasticmapreduce-instancefleetconfig-instancefleetprovisioningspecifications-spotspecification -emrifcifpsSpotSpecification :: Lens' EMRInstanceFleetConfigInstanceFleetProvisioningSpecifications EMRInstanceFleetConfigSpotProvisioningSpecification -emrifcifpsSpotSpecification = lens _eMRInstanceFleetConfigInstanceFleetProvisioningSpecificationsSpotSpecification (\s a -> s { _eMRInstanceFleetConfigInstanceFleetProvisioningSpecificationsSpotSpecification = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRInstanceFleetConfigInstanceTypeConfig.hs b/library-gen/Stratosphere/ResourceProperties/EMRInstanceFleetConfigInstanceTypeConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRInstanceFleetConfigInstanceTypeConfig.hs +++ /dev/null @@ -1,76 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancefleetconfig-instancetypeconfig.html - -module Stratosphere.ResourceProperties.EMRInstanceFleetConfigInstanceTypeConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRInstanceFleetConfigConfiguration -import Stratosphere.ResourceProperties.EMRInstanceFleetConfigEbsConfiguration - --- | Full data type definition for EMRInstanceFleetConfigInstanceTypeConfig. --- See 'emrInstanceFleetConfigInstanceTypeConfig' for a more convenient --- constructor. -data EMRInstanceFleetConfigInstanceTypeConfig = - EMRInstanceFleetConfigInstanceTypeConfig - { _eMRInstanceFleetConfigInstanceTypeConfigBidPrice :: Maybe (Val Text) - , _eMRInstanceFleetConfigInstanceTypeConfigBidPriceAsPercentageOfOnDemandPrice :: Maybe (Val Double) - , _eMRInstanceFleetConfigInstanceTypeConfigConfigurations :: Maybe [EMRInstanceFleetConfigConfiguration] - , _eMRInstanceFleetConfigInstanceTypeConfigEbsConfiguration :: Maybe EMRInstanceFleetConfigEbsConfiguration - , _eMRInstanceFleetConfigInstanceTypeConfigInstanceType :: Val Text - , _eMRInstanceFleetConfigInstanceTypeConfigWeightedCapacity :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON EMRInstanceFleetConfigInstanceTypeConfig where - toJSON EMRInstanceFleetConfigInstanceTypeConfig{..} = - object $ - catMaybes - [ fmap (("BidPrice",) . toJSON) _eMRInstanceFleetConfigInstanceTypeConfigBidPrice - , fmap (("BidPriceAsPercentageOfOnDemandPrice",) . toJSON) _eMRInstanceFleetConfigInstanceTypeConfigBidPriceAsPercentageOfOnDemandPrice - , fmap (("Configurations",) . toJSON) _eMRInstanceFleetConfigInstanceTypeConfigConfigurations - , fmap (("EbsConfiguration",) . toJSON) _eMRInstanceFleetConfigInstanceTypeConfigEbsConfiguration - , (Just . ("InstanceType",) . toJSON) _eMRInstanceFleetConfigInstanceTypeConfigInstanceType - , fmap (("WeightedCapacity",) . toJSON) _eMRInstanceFleetConfigInstanceTypeConfigWeightedCapacity - ] - --- | Constructor for 'EMRInstanceFleetConfigInstanceTypeConfig' containing --- required fields as arguments. -emrInstanceFleetConfigInstanceTypeConfig - :: Val Text -- ^ 'emrifcitcInstanceType' - -> EMRInstanceFleetConfigInstanceTypeConfig -emrInstanceFleetConfigInstanceTypeConfig instanceTypearg = - EMRInstanceFleetConfigInstanceTypeConfig - { _eMRInstanceFleetConfigInstanceTypeConfigBidPrice = Nothing - , _eMRInstanceFleetConfigInstanceTypeConfigBidPriceAsPercentageOfOnDemandPrice = Nothing - , _eMRInstanceFleetConfigInstanceTypeConfigConfigurations = Nothing - , _eMRInstanceFleetConfigInstanceTypeConfigEbsConfiguration = Nothing - , _eMRInstanceFleetConfigInstanceTypeConfigInstanceType = instanceTypearg - , _eMRInstanceFleetConfigInstanceTypeConfigWeightedCapacity = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancefleetconfig-instancetypeconfig.html#cfn-elasticmapreduce-instancefleetconfig-instancetypeconfig-bidprice -emrifcitcBidPrice :: Lens' EMRInstanceFleetConfigInstanceTypeConfig (Maybe (Val Text)) -emrifcitcBidPrice = lens _eMRInstanceFleetConfigInstanceTypeConfigBidPrice (\s a -> s { _eMRInstanceFleetConfigInstanceTypeConfigBidPrice = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancefleetconfig-instancetypeconfig.html#cfn-elasticmapreduce-instancefleetconfig-instancetypeconfig-bidpriceaspercentageofondemandprice -emrifcitcBidPriceAsPercentageOfOnDemandPrice :: Lens' EMRInstanceFleetConfigInstanceTypeConfig (Maybe (Val Double)) -emrifcitcBidPriceAsPercentageOfOnDemandPrice = lens _eMRInstanceFleetConfigInstanceTypeConfigBidPriceAsPercentageOfOnDemandPrice (\s a -> s { _eMRInstanceFleetConfigInstanceTypeConfigBidPriceAsPercentageOfOnDemandPrice = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancefleetconfig-instancetypeconfig.html#cfn-elasticmapreduce-instancefleetconfig-instancetypeconfig-configurations -emrifcitcConfigurations :: Lens' EMRInstanceFleetConfigInstanceTypeConfig (Maybe [EMRInstanceFleetConfigConfiguration]) -emrifcitcConfigurations = lens _eMRInstanceFleetConfigInstanceTypeConfigConfigurations (\s a -> s { _eMRInstanceFleetConfigInstanceTypeConfigConfigurations = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancefleetconfig-instancetypeconfig.html#cfn-elasticmapreduce-instancefleetconfig-instancetypeconfig-ebsconfiguration -emrifcitcEbsConfiguration :: Lens' EMRInstanceFleetConfigInstanceTypeConfig (Maybe EMRInstanceFleetConfigEbsConfiguration) -emrifcitcEbsConfiguration = lens _eMRInstanceFleetConfigInstanceTypeConfigEbsConfiguration (\s a -> s { _eMRInstanceFleetConfigInstanceTypeConfigEbsConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancefleetconfig-instancetypeconfig.html#cfn-elasticmapreduce-instancefleetconfig-instancetypeconfig-instancetype -emrifcitcInstanceType :: Lens' EMRInstanceFleetConfigInstanceTypeConfig (Val Text) -emrifcitcInstanceType = lens _eMRInstanceFleetConfigInstanceTypeConfigInstanceType (\s a -> s { _eMRInstanceFleetConfigInstanceTypeConfigInstanceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancefleetconfig-instancetypeconfig.html#cfn-elasticmapreduce-instancefleetconfig-instancetypeconfig-weightedcapacity -emrifcitcWeightedCapacity :: Lens' EMRInstanceFleetConfigInstanceTypeConfig (Maybe (Val Integer)) -emrifcitcWeightedCapacity = lens _eMRInstanceFleetConfigInstanceTypeConfigWeightedCapacity (\s a -> s { _eMRInstanceFleetConfigInstanceTypeConfigWeightedCapacity = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRInstanceFleetConfigSpotProvisioningSpecification.hs b/library-gen/Stratosphere/ResourceProperties/EMRInstanceFleetConfigSpotProvisioningSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRInstanceFleetConfigSpotProvisioningSpecification.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancefleetconfig-spotprovisioningspecification.html - -module Stratosphere.ResourceProperties.EMRInstanceFleetConfigSpotProvisioningSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- EMRInstanceFleetConfigSpotProvisioningSpecification. See --- 'emrInstanceFleetConfigSpotProvisioningSpecification' for a more --- convenient constructor. -data EMRInstanceFleetConfigSpotProvisioningSpecification = - EMRInstanceFleetConfigSpotProvisioningSpecification - { _eMRInstanceFleetConfigSpotProvisioningSpecificationBlockDurationMinutes :: Maybe (Val Integer) - , _eMRInstanceFleetConfigSpotProvisioningSpecificationTimeoutAction :: Val Text - , _eMRInstanceFleetConfigSpotProvisioningSpecificationTimeoutDurationMinutes :: Val Integer - } deriving (Show, Eq) - -instance ToJSON EMRInstanceFleetConfigSpotProvisioningSpecification where - toJSON EMRInstanceFleetConfigSpotProvisioningSpecification{..} = - object $ - catMaybes - [ fmap (("BlockDurationMinutes",) . toJSON) _eMRInstanceFleetConfigSpotProvisioningSpecificationBlockDurationMinutes - , (Just . ("TimeoutAction",) . toJSON) _eMRInstanceFleetConfigSpotProvisioningSpecificationTimeoutAction - , (Just . ("TimeoutDurationMinutes",) . toJSON) _eMRInstanceFleetConfigSpotProvisioningSpecificationTimeoutDurationMinutes - ] - --- | Constructor for 'EMRInstanceFleetConfigSpotProvisioningSpecification' --- containing required fields as arguments. -emrInstanceFleetConfigSpotProvisioningSpecification - :: Val Text -- ^ 'emrifcspsTimeoutAction' - -> Val Integer -- ^ 'emrifcspsTimeoutDurationMinutes' - -> EMRInstanceFleetConfigSpotProvisioningSpecification -emrInstanceFleetConfigSpotProvisioningSpecification timeoutActionarg timeoutDurationMinutesarg = - EMRInstanceFleetConfigSpotProvisioningSpecification - { _eMRInstanceFleetConfigSpotProvisioningSpecificationBlockDurationMinutes = Nothing - , _eMRInstanceFleetConfigSpotProvisioningSpecificationTimeoutAction = timeoutActionarg - , _eMRInstanceFleetConfigSpotProvisioningSpecificationTimeoutDurationMinutes = timeoutDurationMinutesarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancefleetconfig-spotprovisioningspecification.html#cfn-elasticmapreduce-instancefleetconfig-spotprovisioningspecification-blockdurationminutes -emrifcspsBlockDurationMinutes :: Lens' EMRInstanceFleetConfigSpotProvisioningSpecification (Maybe (Val Integer)) -emrifcspsBlockDurationMinutes = lens _eMRInstanceFleetConfigSpotProvisioningSpecificationBlockDurationMinutes (\s a -> s { _eMRInstanceFleetConfigSpotProvisioningSpecificationBlockDurationMinutes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancefleetconfig-spotprovisioningspecification.html#cfn-elasticmapreduce-instancefleetconfig-spotprovisioningspecification-timeoutaction -emrifcspsTimeoutAction :: Lens' EMRInstanceFleetConfigSpotProvisioningSpecification (Val Text) -emrifcspsTimeoutAction = lens _eMRInstanceFleetConfigSpotProvisioningSpecificationTimeoutAction (\s a -> s { _eMRInstanceFleetConfigSpotProvisioningSpecificationTimeoutAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancefleetconfig-spotprovisioningspecification.html#cfn-elasticmapreduce-instancefleetconfig-spotprovisioningspecification-timeoutdurationminutes -emrifcspsTimeoutDurationMinutes :: Lens' EMRInstanceFleetConfigSpotProvisioningSpecification (Val Integer) -emrifcspsTimeoutDurationMinutes = lens _eMRInstanceFleetConfigSpotProvisioningSpecificationTimeoutDurationMinutes (\s a -> s { _eMRInstanceFleetConfigSpotProvisioningSpecificationTimeoutDurationMinutes = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRInstanceFleetConfigVolumeSpecification.hs b/library-gen/Stratosphere/ResourceProperties/EMRInstanceFleetConfigVolumeSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRInstanceFleetConfigVolumeSpecification.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancefleetconfig-volumespecification.html - -module Stratosphere.ResourceProperties.EMRInstanceFleetConfigVolumeSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EMRInstanceFleetConfigVolumeSpecification. --- See 'emrInstanceFleetConfigVolumeSpecification' for a more convenient --- constructor. -data EMRInstanceFleetConfigVolumeSpecification = - EMRInstanceFleetConfigVolumeSpecification - { _eMRInstanceFleetConfigVolumeSpecificationIops :: Maybe (Val Integer) - , _eMRInstanceFleetConfigVolumeSpecificationSizeInGB :: Val Integer - , _eMRInstanceFleetConfigVolumeSpecificationVolumeType :: Val Text - } deriving (Show, Eq) - -instance ToJSON EMRInstanceFleetConfigVolumeSpecification where - toJSON EMRInstanceFleetConfigVolumeSpecification{..} = - object $ - catMaybes - [ fmap (("Iops",) . toJSON) _eMRInstanceFleetConfigVolumeSpecificationIops - , (Just . ("SizeInGB",) . toJSON) _eMRInstanceFleetConfigVolumeSpecificationSizeInGB - , (Just . ("VolumeType",) . toJSON) _eMRInstanceFleetConfigVolumeSpecificationVolumeType - ] - --- | Constructor for 'EMRInstanceFleetConfigVolumeSpecification' containing --- required fields as arguments. -emrInstanceFleetConfigVolumeSpecification - :: Val Integer -- ^ 'emrifcvsSizeInGB' - -> Val Text -- ^ 'emrifcvsVolumeType' - -> EMRInstanceFleetConfigVolumeSpecification -emrInstanceFleetConfigVolumeSpecification sizeInGBarg volumeTypearg = - EMRInstanceFleetConfigVolumeSpecification - { _eMRInstanceFleetConfigVolumeSpecificationIops = Nothing - , _eMRInstanceFleetConfigVolumeSpecificationSizeInGB = sizeInGBarg - , _eMRInstanceFleetConfigVolumeSpecificationVolumeType = volumeTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancefleetconfig-volumespecification.html#cfn-elasticmapreduce-instancefleetconfig-volumespecification-iops -emrifcvsIops :: Lens' EMRInstanceFleetConfigVolumeSpecification (Maybe (Val Integer)) -emrifcvsIops = lens _eMRInstanceFleetConfigVolumeSpecificationIops (\s a -> s { _eMRInstanceFleetConfigVolumeSpecificationIops = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancefleetconfig-volumespecification.html#cfn-elasticmapreduce-instancefleetconfig-volumespecification-sizeingb -emrifcvsSizeInGB :: Lens' EMRInstanceFleetConfigVolumeSpecification (Val Integer) -emrifcvsSizeInGB = lens _eMRInstanceFleetConfigVolumeSpecificationSizeInGB (\s a -> s { _eMRInstanceFleetConfigVolumeSpecificationSizeInGB = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancefleetconfig-volumespecification.html#cfn-elasticmapreduce-instancefleetconfig-volumespecification-volumetype -emrifcvsVolumeType :: Lens' EMRInstanceFleetConfigVolumeSpecification (Val Text) -emrifcvsVolumeType = lens _eMRInstanceFleetConfigVolumeSpecificationVolumeType (\s a -> s { _eMRInstanceFleetConfigVolumeSpecificationVolumeType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigAutoScalingPolicy.hs b/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigAutoScalingPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigAutoScalingPolicy.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-autoscalingpolicy.html - -module Stratosphere.ResourceProperties.EMRInstanceGroupConfigAutoScalingPolicy where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRInstanceGroupConfigScalingConstraints -import Stratosphere.ResourceProperties.EMRInstanceGroupConfigScalingRule - --- | Full data type definition for EMRInstanceGroupConfigAutoScalingPolicy. --- See 'emrInstanceGroupConfigAutoScalingPolicy' for a more convenient --- constructor. -data EMRInstanceGroupConfigAutoScalingPolicy = - EMRInstanceGroupConfigAutoScalingPolicy - { _eMRInstanceGroupConfigAutoScalingPolicyConstraints :: EMRInstanceGroupConfigScalingConstraints - , _eMRInstanceGroupConfigAutoScalingPolicyRules :: [EMRInstanceGroupConfigScalingRule] - } deriving (Show, Eq) - -instance ToJSON EMRInstanceGroupConfigAutoScalingPolicy where - toJSON EMRInstanceGroupConfigAutoScalingPolicy{..} = - object $ - catMaybes - [ (Just . ("Constraints",) . toJSON) _eMRInstanceGroupConfigAutoScalingPolicyConstraints - , (Just . ("Rules",) . toJSON) _eMRInstanceGroupConfigAutoScalingPolicyRules - ] - --- | Constructor for 'EMRInstanceGroupConfigAutoScalingPolicy' containing --- required fields as arguments. -emrInstanceGroupConfigAutoScalingPolicy - :: EMRInstanceGroupConfigScalingConstraints -- ^ 'emrigcaspConstraints' - -> [EMRInstanceGroupConfigScalingRule] -- ^ 'emrigcaspRules' - -> EMRInstanceGroupConfigAutoScalingPolicy -emrInstanceGroupConfigAutoScalingPolicy constraintsarg rulesarg = - EMRInstanceGroupConfigAutoScalingPolicy - { _eMRInstanceGroupConfigAutoScalingPolicyConstraints = constraintsarg - , _eMRInstanceGroupConfigAutoScalingPolicyRules = rulesarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-autoscalingpolicy.html#cfn-elasticmapreduce-instancegroupconfig-autoscalingpolicy-constraints -emrigcaspConstraints :: Lens' EMRInstanceGroupConfigAutoScalingPolicy EMRInstanceGroupConfigScalingConstraints -emrigcaspConstraints = lens _eMRInstanceGroupConfigAutoScalingPolicyConstraints (\s a -> s { _eMRInstanceGroupConfigAutoScalingPolicyConstraints = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-autoscalingpolicy.html#cfn-elasticmapreduce-instancegroupconfig-autoscalingpolicy-rules -emrigcaspRules :: Lens' EMRInstanceGroupConfigAutoScalingPolicy [EMRInstanceGroupConfigScalingRule] -emrigcaspRules = lens _eMRInstanceGroupConfigAutoScalingPolicyRules (\s a -> s { _eMRInstanceGroupConfigAutoScalingPolicyRules = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigCloudWatchAlarmDefinition.hs b/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigCloudWatchAlarmDefinition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigCloudWatchAlarmDefinition.hs +++ /dev/null @@ -1,100 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-cloudwatchalarmdefinition.html - -module Stratosphere.ResourceProperties.EMRInstanceGroupConfigCloudWatchAlarmDefinition where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRInstanceGroupConfigMetricDimension - --- | Full data type definition for --- EMRInstanceGroupConfigCloudWatchAlarmDefinition. See --- 'emrInstanceGroupConfigCloudWatchAlarmDefinition' for a more convenient --- constructor. -data EMRInstanceGroupConfigCloudWatchAlarmDefinition = - EMRInstanceGroupConfigCloudWatchAlarmDefinition - { _eMRInstanceGroupConfigCloudWatchAlarmDefinitionComparisonOperator :: Val Text - , _eMRInstanceGroupConfigCloudWatchAlarmDefinitionDimensions :: Maybe [EMRInstanceGroupConfigMetricDimension] - , _eMRInstanceGroupConfigCloudWatchAlarmDefinitionEvaluationPeriods :: Maybe (Val Integer) - , _eMRInstanceGroupConfigCloudWatchAlarmDefinitionMetricName :: Val Text - , _eMRInstanceGroupConfigCloudWatchAlarmDefinitionNamespace :: Maybe (Val Text) - , _eMRInstanceGroupConfigCloudWatchAlarmDefinitionPeriod :: Val Integer - , _eMRInstanceGroupConfigCloudWatchAlarmDefinitionStatistic :: Maybe (Val Text) - , _eMRInstanceGroupConfigCloudWatchAlarmDefinitionThreshold :: Val Double - , _eMRInstanceGroupConfigCloudWatchAlarmDefinitionUnit :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EMRInstanceGroupConfigCloudWatchAlarmDefinition where - toJSON EMRInstanceGroupConfigCloudWatchAlarmDefinition{..} = - object $ - catMaybes - [ (Just . ("ComparisonOperator",) . toJSON) _eMRInstanceGroupConfigCloudWatchAlarmDefinitionComparisonOperator - , fmap (("Dimensions",) . toJSON) _eMRInstanceGroupConfigCloudWatchAlarmDefinitionDimensions - , fmap (("EvaluationPeriods",) . toJSON) _eMRInstanceGroupConfigCloudWatchAlarmDefinitionEvaluationPeriods - , (Just . ("MetricName",) . toJSON) _eMRInstanceGroupConfigCloudWatchAlarmDefinitionMetricName - , fmap (("Namespace",) . toJSON) _eMRInstanceGroupConfigCloudWatchAlarmDefinitionNamespace - , (Just . ("Period",) . toJSON) _eMRInstanceGroupConfigCloudWatchAlarmDefinitionPeriod - , fmap (("Statistic",) . toJSON) _eMRInstanceGroupConfigCloudWatchAlarmDefinitionStatistic - , (Just . ("Threshold",) . toJSON) _eMRInstanceGroupConfigCloudWatchAlarmDefinitionThreshold - , fmap (("Unit",) . toJSON) _eMRInstanceGroupConfigCloudWatchAlarmDefinitionUnit - ] - --- | Constructor for 'EMRInstanceGroupConfigCloudWatchAlarmDefinition' --- containing required fields as arguments. -emrInstanceGroupConfigCloudWatchAlarmDefinition - :: Val Text -- ^ 'emrigccwadComparisonOperator' - -> Val Text -- ^ 'emrigccwadMetricName' - -> Val Integer -- ^ 'emrigccwadPeriod' - -> Val Double -- ^ 'emrigccwadThreshold' - -> EMRInstanceGroupConfigCloudWatchAlarmDefinition -emrInstanceGroupConfigCloudWatchAlarmDefinition comparisonOperatorarg metricNamearg periodarg thresholdarg = - EMRInstanceGroupConfigCloudWatchAlarmDefinition - { _eMRInstanceGroupConfigCloudWatchAlarmDefinitionComparisonOperator = comparisonOperatorarg - , _eMRInstanceGroupConfigCloudWatchAlarmDefinitionDimensions = Nothing - , _eMRInstanceGroupConfigCloudWatchAlarmDefinitionEvaluationPeriods = Nothing - , _eMRInstanceGroupConfigCloudWatchAlarmDefinitionMetricName = metricNamearg - , _eMRInstanceGroupConfigCloudWatchAlarmDefinitionNamespace = Nothing - , _eMRInstanceGroupConfigCloudWatchAlarmDefinitionPeriod = periodarg - , _eMRInstanceGroupConfigCloudWatchAlarmDefinitionStatistic = Nothing - , _eMRInstanceGroupConfigCloudWatchAlarmDefinitionThreshold = thresholdarg - , _eMRInstanceGroupConfigCloudWatchAlarmDefinitionUnit = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-cloudwatchalarmdefinition.html#cfn-elasticmapreduce-instancegroupconfig-cloudwatchalarmdefinition-comparisonoperator -emrigccwadComparisonOperator :: Lens' EMRInstanceGroupConfigCloudWatchAlarmDefinition (Val Text) -emrigccwadComparisonOperator = lens _eMRInstanceGroupConfigCloudWatchAlarmDefinitionComparisonOperator (\s a -> s { _eMRInstanceGroupConfigCloudWatchAlarmDefinitionComparisonOperator = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-cloudwatchalarmdefinition.html#cfn-elasticmapreduce-instancegroupconfig-cloudwatchalarmdefinition-dimensions -emrigccwadDimensions :: Lens' EMRInstanceGroupConfigCloudWatchAlarmDefinition (Maybe [EMRInstanceGroupConfigMetricDimension]) -emrigccwadDimensions = lens _eMRInstanceGroupConfigCloudWatchAlarmDefinitionDimensions (\s a -> s { _eMRInstanceGroupConfigCloudWatchAlarmDefinitionDimensions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-cloudwatchalarmdefinition.html#cfn-elasticmapreduce-instancegroupconfig-cloudwatchalarmdefinition-evaluationperiods -emrigccwadEvaluationPeriods :: Lens' EMRInstanceGroupConfigCloudWatchAlarmDefinition (Maybe (Val Integer)) -emrigccwadEvaluationPeriods = lens _eMRInstanceGroupConfigCloudWatchAlarmDefinitionEvaluationPeriods (\s a -> s { _eMRInstanceGroupConfigCloudWatchAlarmDefinitionEvaluationPeriods = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-cloudwatchalarmdefinition.html#cfn-elasticmapreduce-instancegroupconfig-cloudwatchalarmdefinition-metricname -emrigccwadMetricName :: Lens' EMRInstanceGroupConfigCloudWatchAlarmDefinition (Val Text) -emrigccwadMetricName = lens _eMRInstanceGroupConfigCloudWatchAlarmDefinitionMetricName (\s a -> s { _eMRInstanceGroupConfigCloudWatchAlarmDefinitionMetricName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-cloudwatchalarmdefinition.html#cfn-elasticmapreduce-instancegroupconfig-cloudwatchalarmdefinition-namespace -emrigccwadNamespace :: Lens' EMRInstanceGroupConfigCloudWatchAlarmDefinition (Maybe (Val Text)) -emrigccwadNamespace = lens _eMRInstanceGroupConfigCloudWatchAlarmDefinitionNamespace (\s a -> s { _eMRInstanceGroupConfigCloudWatchAlarmDefinitionNamespace = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-cloudwatchalarmdefinition.html#cfn-elasticmapreduce-instancegroupconfig-cloudwatchalarmdefinition-period -emrigccwadPeriod :: Lens' EMRInstanceGroupConfigCloudWatchAlarmDefinition (Val Integer) -emrigccwadPeriod = lens _eMRInstanceGroupConfigCloudWatchAlarmDefinitionPeriod (\s a -> s { _eMRInstanceGroupConfigCloudWatchAlarmDefinitionPeriod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-cloudwatchalarmdefinition.html#cfn-elasticmapreduce-instancegroupconfig-cloudwatchalarmdefinition-statistic -emrigccwadStatistic :: Lens' EMRInstanceGroupConfigCloudWatchAlarmDefinition (Maybe (Val Text)) -emrigccwadStatistic = lens _eMRInstanceGroupConfigCloudWatchAlarmDefinitionStatistic (\s a -> s { _eMRInstanceGroupConfigCloudWatchAlarmDefinitionStatistic = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-cloudwatchalarmdefinition.html#cfn-elasticmapreduce-instancegroupconfig-cloudwatchalarmdefinition-threshold -emrigccwadThreshold :: Lens' EMRInstanceGroupConfigCloudWatchAlarmDefinition (Val Double) -emrigccwadThreshold = lens _eMRInstanceGroupConfigCloudWatchAlarmDefinitionThreshold (\s a -> s { _eMRInstanceGroupConfigCloudWatchAlarmDefinitionThreshold = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-cloudwatchalarmdefinition.html#cfn-elasticmapreduce-instancegroupconfig-cloudwatchalarmdefinition-unit -emrigccwadUnit :: Lens' EMRInstanceGroupConfigCloudWatchAlarmDefinition (Maybe (Val Text)) -emrigccwadUnit = lens _eMRInstanceGroupConfigCloudWatchAlarmDefinitionUnit (\s a -> s { _eMRInstanceGroupConfigCloudWatchAlarmDefinitionUnit = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigConfiguration.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-configuration.html - -module Stratosphere.ResourceProperties.EMRInstanceGroupConfigConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EMRInstanceGroupConfigConfiguration. See --- 'emrInstanceGroupConfigConfiguration' for a more convenient constructor. -data EMRInstanceGroupConfigConfiguration = - EMRInstanceGroupConfigConfiguration - { _eMRInstanceGroupConfigConfigurationClassification :: Maybe (Val Text) - , _eMRInstanceGroupConfigConfigurationConfigurationProperties :: Maybe Object - , _eMRInstanceGroupConfigConfigurationConfigurations :: Maybe [EMRInstanceGroupConfigConfiguration] - } deriving (Show, Eq) - -instance ToJSON EMRInstanceGroupConfigConfiguration where - toJSON EMRInstanceGroupConfigConfiguration{..} = - object $ - catMaybes - [ fmap (("Classification",) . toJSON) _eMRInstanceGroupConfigConfigurationClassification - , fmap (("ConfigurationProperties",) . toJSON) _eMRInstanceGroupConfigConfigurationConfigurationProperties - , fmap (("Configurations",) . toJSON) _eMRInstanceGroupConfigConfigurationConfigurations - ] - --- | Constructor for 'EMRInstanceGroupConfigConfiguration' containing required --- fields as arguments. -emrInstanceGroupConfigConfiguration - :: EMRInstanceGroupConfigConfiguration -emrInstanceGroupConfigConfiguration = - EMRInstanceGroupConfigConfiguration - { _eMRInstanceGroupConfigConfigurationClassification = Nothing - , _eMRInstanceGroupConfigConfigurationConfigurationProperties = Nothing - , _eMRInstanceGroupConfigConfigurationConfigurations = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-configuration.html#cfn-emr-cluster-configuration-classification -emrigccClassification :: Lens' EMRInstanceGroupConfigConfiguration (Maybe (Val Text)) -emrigccClassification = lens _eMRInstanceGroupConfigConfigurationClassification (\s a -> s { _eMRInstanceGroupConfigConfigurationClassification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-configuration.html#cfn-emr-cluster-configuration-configurationproperties -emrigccConfigurationProperties :: Lens' EMRInstanceGroupConfigConfiguration (Maybe Object) -emrigccConfigurationProperties = lens _eMRInstanceGroupConfigConfigurationConfigurationProperties (\s a -> s { _eMRInstanceGroupConfigConfigurationConfigurationProperties = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-cluster-configuration.html#cfn-emr-cluster-configuration-configurations -emrigccConfigurations :: Lens' EMRInstanceGroupConfigConfiguration (Maybe [EMRInstanceGroupConfigConfiguration]) -emrigccConfigurations = lens _eMRInstanceGroupConfigConfigurationConfigurations (\s a -> s { _eMRInstanceGroupConfigConfigurationConfigurations = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigEbsBlockDeviceConfig.hs b/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigEbsBlockDeviceConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigEbsBlockDeviceConfig.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-ebsconfiguration-ebsblockdeviceconfig.html - -module Stratosphere.ResourceProperties.EMRInstanceGroupConfigEbsBlockDeviceConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRInstanceGroupConfigVolumeSpecification - --- | Full data type definition for EMRInstanceGroupConfigEbsBlockDeviceConfig. --- See 'emrInstanceGroupConfigEbsBlockDeviceConfig' for a more convenient --- constructor. -data EMRInstanceGroupConfigEbsBlockDeviceConfig = - EMRInstanceGroupConfigEbsBlockDeviceConfig - { _eMRInstanceGroupConfigEbsBlockDeviceConfigVolumeSpecification :: EMRInstanceGroupConfigVolumeSpecification - , _eMRInstanceGroupConfigEbsBlockDeviceConfigVolumesPerInstance :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON EMRInstanceGroupConfigEbsBlockDeviceConfig where - toJSON EMRInstanceGroupConfigEbsBlockDeviceConfig{..} = - object $ - catMaybes - [ (Just . ("VolumeSpecification",) . toJSON) _eMRInstanceGroupConfigEbsBlockDeviceConfigVolumeSpecification - , fmap (("VolumesPerInstance",) . toJSON) _eMRInstanceGroupConfigEbsBlockDeviceConfigVolumesPerInstance - ] - --- | Constructor for 'EMRInstanceGroupConfigEbsBlockDeviceConfig' containing --- required fields as arguments. -emrInstanceGroupConfigEbsBlockDeviceConfig - :: EMRInstanceGroupConfigVolumeSpecification -- ^ 'emrigcebdcVolumeSpecification' - -> EMRInstanceGroupConfigEbsBlockDeviceConfig -emrInstanceGroupConfigEbsBlockDeviceConfig volumeSpecificationarg = - EMRInstanceGroupConfigEbsBlockDeviceConfig - { _eMRInstanceGroupConfigEbsBlockDeviceConfigVolumeSpecification = volumeSpecificationarg - , _eMRInstanceGroupConfigEbsBlockDeviceConfigVolumesPerInstance = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-ebsconfiguration-ebsblockdeviceconfig.html#cfn-emr-ebsconfiguration-ebsblockdeviceconfig-volumespecification -emrigcebdcVolumeSpecification :: Lens' EMRInstanceGroupConfigEbsBlockDeviceConfig EMRInstanceGroupConfigVolumeSpecification -emrigcebdcVolumeSpecification = lens _eMRInstanceGroupConfigEbsBlockDeviceConfigVolumeSpecification (\s a -> s { _eMRInstanceGroupConfigEbsBlockDeviceConfigVolumeSpecification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-ebsconfiguration-ebsblockdeviceconfig.html#cfn-emr-ebsconfiguration-ebsblockdeviceconfig-volumesperinstance -emrigcebdcVolumesPerInstance :: Lens' EMRInstanceGroupConfigEbsBlockDeviceConfig (Maybe (Val Integer)) -emrigcebdcVolumesPerInstance = lens _eMRInstanceGroupConfigEbsBlockDeviceConfigVolumesPerInstance (\s a -> s { _eMRInstanceGroupConfigEbsBlockDeviceConfigVolumesPerInstance = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigEbsConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigEbsConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigEbsConfiguration.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-ebsconfiguration.html - -module Stratosphere.ResourceProperties.EMRInstanceGroupConfigEbsConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRInstanceGroupConfigEbsBlockDeviceConfig - --- | Full data type definition for EMRInstanceGroupConfigEbsConfiguration. See --- 'emrInstanceGroupConfigEbsConfiguration' for a more convenient --- constructor. -data EMRInstanceGroupConfigEbsConfiguration = - EMRInstanceGroupConfigEbsConfiguration - { _eMRInstanceGroupConfigEbsConfigurationEbsBlockDeviceConfigs :: Maybe [EMRInstanceGroupConfigEbsBlockDeviceConfig] - , _eMRInstanceGroupConfigEbsConfigurationEbsOptimized :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON EMRInstanceGroupConfigEbsConfiguration where - toJSON EMRInstanceGroupConfigEbsConfiguration{..} = - object $ - catMaybes - [ fmap (("EbsBlockDeviceConfigs",) . toJSON) _eMRInstanceGroupConfigEbsConfigurationEbsBlockDeviceConfigs - , fmap (("EbsOptimized",) . toJSON) _eMRInstanceGroupConfigEbsConfigurationEbsOptimized - ] - --- | Constructor for 'EMRInstanceGroupConfigEbsConfiguration' containing --- required fields as arguments. -emrInstanceGroupConfigEbsConfiguration - :: EMRInstanceGroupConfigEbsConfiguration -emrInstanceGroupConfigEbsConfiguration = - EMRInstanceGroupConfigEbsConfiguration - { _eMRInstanceGroupConfigEbsConfigurationEbsBlockDeviceConfigs = Nothing - , _eMRInstanceGroupConfigEbsConfigurationEbsOptimized = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-ebsconfiguration.html#cfn-emr-ebsconfiguration-ebsblockdeviceconfigs -emrigcecEbsBlockDeviceConfigs :: Lens' EMRInstanceGroupConfigEbsConfiguration (Maybe [EMRInstanceGroupConfigEbsBlockDeviceConfig]) -emrigcecEbsBlockDeviceConfigs = lens _eMRInstanceGroupConfigEbsConfigurationEbsBlockDeviceConfigs (\s a -> s { _eMRInstanceGroupConfigEbsConfigurationEbsBlockDeviceConfigs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-ebsconfiguration.html#cfn-emr-ebsconfiguration-ebsoptimized -emrigcecEbsOptimized :: Lens' EMRInstanceGroupConfigEbsConfiguration (Maybe (Val Bool)) -emrigcecEbsOptimized = lens _eMRInstanceGroupConfigEbsConfigurationEbsOptimized (\s a -> s { _eMRInstanceGroupConfigEbsConfigurationEbsOptimized = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigMetricDimension.hs b/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigMetricDimension.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigMetricDimension.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-metricdimension.html - -module Stratosphere.ResourceProperties.EMRInstanceGroupConfigMetricDimension where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EMRInstanceGroupConfigMetricDimension. See --- 'emrInstanceGroupConfigMetricDimension' for a more convenient --- constructor. -data EMRInstanceGroupConfigMetricDimension = - EMRInstanceGroupConfigMetricDimension - { _eMRInstanceGroupConfigMetricDimensionKey :: Val Text - , _eMRInstanceGroupConfigMetricDimensionValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON EMRInstanceGroupConfigMetricDimension where - toJSON EMRInstanceGroupConfigMetricDimension{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _eMRInstanceGroupConfigMetricDimensionKey - , (Just . ("Value",) . toJSON) _eMRInstanceGroupConfigMetricDimensionValue - ] - --- | Constructor for 'EMRInstanceGroupConfigMetricDimension' containing --- required fields as arguments. -emrInstanceGroupConfigMetricDimension - :: Val Text -- ^ 'emrigcmdKey' - -> Val Text -- ^ 'emrigcmdValue' - -> EMRInstanceGroupConfigMetricDimension -emrInstanceGroupConfigMetricDimension keyarg valuearg = - EMRInstanceGroupConfigMetricDimension - { _eMRInstanceGroupConfigMetricDimensionKey = keyarg - , _eMRInstanceGroupConfigMetricDimensionValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-metricdimension.html#cfn-elasticmapreduce-instancegroupconfig-metricdimension-key -emrigcmdKey :: Lens' EMRInstanceGroupConfigMetricDimension (Val Text) -emrigcmdKey = lens _eMRInstanceGroupConfigMetricDimensionKey (\s a -> s { _eMRInstanceGroupConfigMetricDimensionKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-metricdimension.html#cfn-elasticmapreduce-instancegroupconfig-metricdimension-value -emrigcmdValue :: Lens' EMRInstanceGroupConfigMetricDimension (Val Text) -emrigcmdValue = lens _eMRInstanceGroupConfigMetricDimensionValue (\s a -> s { _eMRInstanceGroupConfigMetricDimensionValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigScalingAction.hs b/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigScalingAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigScalingAction.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-scalingaction.html - -module Stratosphere.ResourceProperties.EMRInstanceGroupConfigScalingAction where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRInstanceGroupConfigSimpleScalingPolicyConfiguration - --- | Full data type definition for EMRInstanceGroupConfigScalingAction. See --- 'emrInstanceGroupConfigScalingAction' for a more convenient constructor. -data EMRInstanceGroupConfigScalingAction = - EMRInstanceGroupConfigScalingAction - { _eMRInstanceGroupConfigScalingActionMarket :: Maybe (Val Text) - , _eMRInstanceGroupConfigScalingActionSimpleScalingPolicyConfiguration :: EMRInstanceGroupConfigSimpleScalingPolicyConfiguration - } deriving (Show, Eq) - -instance ToJSON EMRInstanceGroupConfigScalingAction where - toJSON EMRInstanceGroupConfigScalingAction{..} = - object $ - catMaybes - [ fmap (("Market",) . toJSON) _eMRInstanceGroupConfigScalingActionMarket - , (Just . ("SimpleScalingPolicyConfiguration",) . toJSON) _eMRInstanceGroupConfigScalingActionSimpleScalingPolicyConfiguration - ] - --- | Constructor for 'EMRInstanceGroupConfigScalingAction' containing required --- fields as arguments. -emrInstanceGroupConfigScalingAction - :: EMRInstanceGroupConfigSimpleScalingPolicyConfiguration -- ^ 'emrigcsaSimpleScalingPolicyConfiguration' - -> EMRInstanceGroupConfigScalingAction -emrInstanceGroupConfigScalingAction simpleScalingPolicyConfigurationarg = - EMRInstanceGroupConfigScalingAction - { _eMRInstanceGroupConfigScalingActionMarket = Nothing - , _eMRInstanceGroupConfigScalingActionSimpleScalingPolicyConfiguration = simpleScalingPolicyConfigurationarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-scalingaction.html#cfn-elasticmapreduce-instancegroupconfig-scalingaction-market -emrigcsaMarket :: Lens' EMRInstanceGroupConfigScalingAction (Maybe (Val Text)) -emrigcsaMarket = lens _eMRInstanceGroupConfigScalingActionMarket (\s a -> s { _eMRInstanceGroupConfigScalingActionMarket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-scalingaction.html#cfn-elasticmapreduce-instancegroupconfig-scalingaction-simplescalingpolicyconfiguration -emrigcsaSimpleScalingPolicyConfiguration :: Lens' EMRInstanceGroupConfigScalingAction EMRInstanceGroupConfigSimpleScalingPolicyConfiguration -emrigcsaSimpleScalingPolicyConfiguration = lens _eMRInstanceGroupConfigScalingActionSimpleScalingPolicyConfiguration (\s a -> s { _eMRInstanceGroupConfigScalingActionSimpleScalingPolicyConfiguration = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigScalingConstraints.hs b/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigScalingConstraints.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigScalingConstraints.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-scalingconstraints.html - -module Stratosphere.ResourceProperties.EMRInstanceGroupConfigScalingConstraints where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EMRInstanceGroupConfigScalingConstraints. --- See 'emrInstanceGroupConfigScalingConstraints' for a more convenient --- constructor. -data EMRInstanceGroupConfigScalingConstraints = - EMRInstanceGroupConfigScalingConstraints - { _eMRInstanceGroupConfigScalingConstraintsMaxCapacity :: Val Integer - , _eMRInstanceGroupConfigScalingConstraintsMinCapacity :: Val Integer - } deriving (Show, Eq) - -instance ToJSON EMRInstanceGroupConfigScalingConstraints where - toJSON EMRInstanceGroupConfigScalingConstraints{..} = - object $ - catMaybes - [ (Just . ("MaxCapacity",) . toJSON) _eMRInstanceGroupConfigScalingConstraintsMaxCapacity - , (Just . ("MinCapacity",) . toJSON) _eMRInstanceGroupConfigScalingConstraintsMinCapacity - ] - --- | Constructor for 'EMRInstanceGroupConfigScalingConstraints' containing --- required fields as arguments. -emrInstanceGroupConfigScalingConstraints - :: Val Integer -- ^ 'emrigcscMaxCapacity' - -> Val Integer -- ^ 'emrigcscMinCapacity' - -> EMRInstanceGroupConfigScalingConstraints -emrInstanceGroupConfigScalingConstraints maxCapacityarg minCapacityarg = - EMRInstanceGroupConfigScalingConstraints - { _eMRInstanceGroupConfigScalingConstraintsMaxCapacity = maxCapacityarg - , _eMRInstanceGroupConfigScalingConstraintsMinCapacity = minCapacityarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-scalingconstraints.html#cfn-elasticmapreduce-instancegroupconfig-scalingconstraints-maxcapacity -emrigcscMaxCapacity :: Lens' EMRInstanceGroupConfigScalingConstraints (Val Integer) -emrigcscMaxCapacity = lens _eMRInstanceGroupConfigScalingConstraintsMaxCapacity (\s a -> s { _eMRInstanceGroupConfigScalingConstraintsMaxCapacity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-scalingconstraints.html#cfn-elasticmapreduce-instancegroupconfig-scalingconstraints-mincapacity -emrigcscMinCapacity :: Lens' EMRInstanceGroupConfigScalingConstraints (Val Integer) -emrigcscMinCapacity = lens _eMRInstanceGroupConfigScalingConstraintsMinCapacity (\s a -> s { _eMRInstanceGroupConfigScalingConstraintsMinCapacity = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigScalingRule.hs b/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigScalingRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigScalingRule.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-scalingrule.html - -module Stratosphere.ResourceProperties.EMRInstanceGroupConfigScalingRule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRInstanceGroupConfigScalingAction -import Stratosphere.ResourceProperties.EMRInstanceGroupConfigScalingTrigger - --- | Full data type definition for EMRInstanceGroupConfigScalingRule. See --- 'emrInstanceGroupConfigScalingRule' for a more convenient constructor. -data EMRInstanceGroupConfigScalingRule = - EMRInstanceGroupConfigScalingRule - { _eMRInstanceGroupConfigScalingRuleAction :: EMRInstanceGroupConfigScalingAction - , _eMRInstanceGroupConfigScalingRuleDescription :: Maybe (Val Text) - , _eMRInstanceGroupConfigScalingRuleName :: Val Text - , _eMRInstanceGroupConfigScalingRuleTrigger :: EMRInstanceGroupConfigScalingTrigger - } deriving (Show, Eq) - -instance ToJSON EMRInstanceGroupConfigScalingRule where - toJSON EMRInstanceGroupConfigScalingRule{..} = - object $ - catMaybes - [ (Just . ("Action",) . toJSON) _eMRInstanceGroupConfigScalingRuleAction - , fmap (("Description",) . toJSON) _eMRInstanceGroupConfigScalingRuleDescription - , (Just . ("Name",) . toJSON) _eMRInstanceGroupConfigScalingRuleName - , (Just . ("Trigger",) . toJSON) _eMRInstanceGroupConfigScalingRuleTrigger - ] - --- | Constructor for 'EMRInstanceGroupConfigScalingRule' containing required --- fields as arguments. -emrInstanceGroupConfigScalingRule - :: EMRInstanceGroupConfigScalingAction -- ^ 'emrigcsrAction' - -> Val Text -- ^ 'emrigcsrName' - -> EMRInstanceGroupConfigScalingTrigger -- ^ 'emrigcsrTrigger' - -> EMRInstanceGroupConfigScalingRule -emrInstanceGroupConfigScalingRule actionarg namearg triggerarg = - EMRInstanceGroupConfigScalingRule - { _eMRInstanceGroupConfigScalingRuleAction = actionarg - , _eMRInstanceGroupConfigScalingRuleDescription = Nothing - , _eMRInstanceGroupConfigScalingRuleName = namearg - , _eMRInstanceGroupConfigScalingRuleTrigger = triggerarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-scalingrule.html#cfn-elasticmapreduce-instancegroupconfig-scalingrule-action -emrigcsrAction :: Lens' EMRInstanceGroupConfigScalingRule EMRInstanceGroupConfigScalingAction -emrigcsrAction = lens _eMRInstanceGroupConfigScalingRuleAction (\s a -> s { _eMRInstanceGroupConfigScalingRuleAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-scalingrule.html#cfn-elasticmapreduce-instancegroupconfig-scalingrule-description -emrigcsrDescription :: Lens' EMRInstanceGroupConfigScalingRule (Maybe (Val Text)) -emrigcsrDescription = lens _eMRInstanceGroupConfigScalingRuleDescription (\s a -> s { _eMRInstanceGroupConfigScalingRuleDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-scalingrule.html#cfn-elasticmapreduce-instancegroupconfig-scalingrule-name -emrigcsrName :: Lens' EMRInstanceGroupConfigScalingRule (Val Text) -emrigcsrName = lens _eMRInstanceGroupConfigScalingRuleName (\s a -> s { _eMRInstanceGroupConfigScalingRuleName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-scalingrule.html#cfn-elasticmapreduce-instancegroupconfig-scalingrule-trigger -emrigcsrTrigger :: Lens' EMRInstanceGroupConfigScalingRule EMRInstanceGroupConfigScalingTrigger -emrigcsrTrigger = lens _eMRInstanceGroupConfigScalingRuleTrigger (\s a -> s { _eMRInstanceGroupConfigScalingRuleTrigger = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigScalingTrigger.hs b/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigScalingTrigger.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigScalingTrigger.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-scalingtrigger.html - -module Stratosphere.ResourceProperties.EMRInstanceGroupConfigScalingTrigger where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRInstanceGroupConfigCloudWatchAlarmDefinition - --- | Full data type definition for EMRInstanceGroupConfigScalingTrigger. See --- 'emrInstanceGroupConfigScalingTrigger' for a more convenient constructor. -data EMRInstanceGroupConfigScalingTrigger = - EMRInstanceGroupConfigScalingTrigger - { _eMRInstanceGroupConfigScalingTriggerCloudWatchAlarmDefinition :: EMRInstanceGroupConfigCloudWatchAlarmDefinition - } deriving (Show, Eq) - -instance ToJSON EMRInstanceGroupConfigScalingTrigger where - toJSON EMRInstanceGroupConfigScalingTrigger{..} = - object $ - catMaybes - [ (Just . ("CloudWatchAlarmDefinition",) . toJSON) _eMRInstanceGroupConfigScalingTriggerCloudWatchAlarmDefinition - ] - --- | Constructor for 'EMRInstanceGroupConfigScalingTrigger' containing --- required fields as arguments. -emrInstanceGroupConfigScalingTrigger - :: EMRInstanceGroupConfigCloudWatchAlarmDefinition -- ^ 'emrigcstCloudWatchAlarmDefinition' - -> EMRInstanceGroupConfigScalingTrigger -emrInstanceGroupConfigScalingTrigger cloudWatchAlarmDefinitionarg = - EMRInstanceGroupConfigScalingTrigger - { _eMRInstanceGroupConfigScalingTriggerCloudWatchAlarmDefinition = cloudWatchAlarmDefinitionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-scalingtrigger.html#cfn-elasticmapreduce-instancegroupconfig-scalingtrigger-cloudwatchalarmdefinition -emrigcstCloudWatchAlarmDefinition :: Lens' EMRInstanceGroupConfigScalingTrigger EMRInstanceGroupConfigCloudWatchAlarmDefinition -emrigcstCloudWatchAlarmDefinition = lens _eMRInstanceGroupConfigScalingTriggerCloudWatchAlarmDefinition (\s a -> s { _eMRInstanceGroupConfigScalingTriggerCloudWatchAlarmDefinition = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigSimpleScalingPolicyConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigSimpleScalingPolicyConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigSimpleScalingPolicyConfiguration.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-simplescalingpolicyconfiguration.html - -module Stratosphere.ResourceProperties.EMRInstanceGroupConfigSimpleScalingPolicyConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- EMRInstanceGroupConfigSimpleScalingPolicyConfiguration. See --- 'emrInstanceGroupConfigSimpleScalingPolicyConfiguration' for a more --- convenient constructor. -data EMRInstanceGroupConfigSimpleScalingPolicyConfiguration = - EMRInstanceGroupConfigSimpleScalingPolicyConfiguration - { _eMRInstanceGroupConfigSimpleScalingPolicyConfigurationAdjustmentType :: Maybe (Val Text) - , _eMRInstanceGroupConfigSimpleScalingPolicyConfigurationCoolDown :: Maybe (Val Integer) - , _eMRInstanceGroupConfigSimpleScalingPolicyConfigurationScalingAdjustment :: Val Integer - } deriving (Show, Eq) - -instance ToJSON EMRInstanceGroupConfigSimpleScalingPolicyConfiguration where - toJSON EMRInstanceGroupConfigSimpleScalingPolicyConfiguration{..} = - object $ - catMaybes - [ fmap (("AdjustmentType",) . toJSON) _eMRInstanceGroupConfigSimpleScalingPolicyConfigurationAdjustmentType - , fmap (("CoolDown",) . toJSON) _eMRInstanceGroupConfigSimpleScalingPolicyConfigurationCoolDown - , (Just . ("ScalingAdjustment",) . toJSON) _eMRInstanceGroupConfigSimpleScalingPolicyConfigurationScalingAdjustment - ] - --- | Constructor for 'EMRInstanceGroupConfigSimpleScalingPolicyConfiguration' --- containing required fields as arguments. -emrInstanceGroupConfigSimpleScalingPolicyConfiguration - :: Val Integer -- ^ 'emrigcsspcScalingAdjustment' - -> EMRInstanceGroupConfigSimpleScalingPolicyConfiguration -emrInstanceGroupConfigSimpleScalingPolicyConfiguration scalingAdjustmentarg = - EMRInstanceGroupConfigSimpleScalingPolicyConfiguration - { _eMRInstanceGroupConfigSimpleScalingPolicyConfigurationAdjustmentType = Nothing - , _eMRInstanceGroupConfigSimpleScalingPolicyConfigurationCoolDown = Nothing - , _eMRInstanceGroupConfigSimpleScalingPolicyConfigurationScalingAdjustment = scalingAdjustmentarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-simplescalingpolicyconfiguration.html#cfn-elasticmapreduce-instancegroupconfig-simplescalingpolicyconfiguration-adjustmenttype -emrigcsspcAdjustmentType :: Lens' EMRInstanceGroupConfigSimpleScalingPolicyConfiguration (Maybe (Val Text)) -emrigcsspcAdjustmentType = lens _eMRInstanceGroupConfigSimpleScalingPolicyConfigurationAdjustmentType (\s a -> s { _eMRInstanceGroupConfigSimpleScalingPolicyConfigurationAdjustmentType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-simplescalingpolicyconfiguration.html#cfn-elasticmapreduce-instancegroupconfig-simplescalingpolicyconfiguration-cooldown -emrigcsspcCoolDown :: Lens' EMRInstanceGroupConfigSimpleScalingPolicyConfiguration (Maybe (Val Integer)) -emrigcsspcCoolDown = lens _eMRInstanceGroupConfigSimpleScalingPolicyConfigurationCoolDown (\s a -> s { _eMRInstanceGroupConfigSimpleScalingPolicyConfigurationCoolDown = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-instancegroupconfig-simplescalingpolicyconfiguration.html#cfn-elasticmapreduce-instancegroupconfig-simplescalingpolicyconfiguration-scalingadjustment -emrigcsspcScalingAdjustment :: Lens' EMRInstanceGroupConfigSimpleScalingPolicyConfiguration (Val Integer) -emrigcsspcScalingAdjustment = lens _eMRInstanceGroupConfigSimpleScalingPolicyConfigurationScalingAdjustment (\s a -> s { _eMRInstanceGroupConfigSimpleScalingPolicyConfigurationScalingAdjustment = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigVolumeSpecification.hs b/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigVolumeSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigVolumeSpecification.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-ebsconfiguration-ebsblockdeviceconfig-volumespecification.html - -module Stratosphere.ResourceProperties.EMRInstanceGroupConfigVolumeSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EMRInstanceGroupConfigVolumeSpecification. --- See 'emrInstanceGroupConfigVolumeSpecification' for a more convenient --- constructor. -data EMRInstanceGroupConfigVolumeSpecification = - EMRInstanceGroupConfigVolumeSpecification - { _eMRInstanceGroupConfigVolumeSpecificationIops :: Maybe (Val Integer) - , _eMRInstanceGroupConfigVolumeSpecificationSizeInGB :: Val Integer - , _eMRInstanceGroupConfigVolumeSpecificationVolumeType :: Val Text - } deriving (Show, Eq) - -instance ToJSON EMRInstanceGroupConfigVolumeSpecification where - toJSON EMRInstanceGroupConfigVolumeSpecification{..} = - object $ - catMaybes - [ fmap (("Iops",) . toJSON) _eMRInstanceGroupConfigVolumeSpecificationIops - , (Just . ("SizeInGB",) . toJSON) _eMRInstanceGroupConfigVolumeSpecificationSizeInGB - , (Just . ("VolumeType",) . toJSON) _eMRInstanceGroupConfigVolumeSpecificationVolumeType - ] - --- | Constructor for 'EMRInstanceGroupConfigVolumeSpecification' containing --- required fields as arguments. -emrInstanceGroupConfigVolumeSpecification - :: Val Integer -- ^ 'emrigcvsSizeInGB' - -> Val Text -- ^ 'emrigcvsVolumeType' - -> EMRInstanceGroupConfigVolumeSpecification -emrInstanceGroupConfigVolumeSpecification sizeInGBarg volumeTypearg = - EMRInstanceGroupConfigVolumeSpecification - { _eMRInstanceGroupConfigVolumeSpecificationIops = Nothing - , _eMRInstanceGroupConfigVolumeSpecificationSizeInGB = sizeInGBarg - , _eMRInstanceGroupConfigVolumeSpecificationVolumeType = volumeTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-ebsconfiguration-ebsblockdeviceconfig-volumespecification.html#cfn-emr-ebsconfiguration-ebsblockdeviceconfig-volumespecification-iops -emrigcvsIops :: Lens' EMRInstanceGroupConfigVolumeSpecification (Maybe (Val Integer)) -emrigcvsIops = lens _eMRInstanceGroupConfigVolumeSpecificationIops (\s a -> s { _eMRInstanceGroupConfigVolumeSpecificationIops = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-ebsconfiguration-ebsblockdeviceconfig-volumespecification.html#cfn-emr-ebsconfiguration-ebsblockdeviceconfig-volumespecification-sizeingb -emrigcvsSizeInGB :: Lens' EMRInstanceGroupConfigVolumeSpecification (Val Integer) -emrigcvsSizeInGB = lens _eMRInstanceGroupConfigVolumeSpecificationSizeInGB (\s a -> s { _eMRInstanceGroupConfigVolumeSpecificationSizeInGB = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-emr-ebsconfiguration-ebsblockdeviceconfig-volumespecification.html#cfn-emr-ebsconfiguration-ebsblockdeviceconfig-volumespecification-volumetype -emrigcvsVolumeType :: Lens' EMRInstanceGroupConfigVolumeSpecification (Val Text) -emrigcvsVolumeType = lens _eMRInstanceGroupConfigVolumeSpecificationVolumeType (\s a -> s { _eMRInstanceGroupConfigVolumeSpecificationVolumeType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRStepHadoopJarStepConfig.hs b/library-gen/Stratosphere/ResourceProperties/EMRStepHadoopJarStepConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRStepHadoopJarStepConfig.hs +++ /dev/null @@ -1,60 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-step-hadoopjarstepconfig.html - -module Stratosphere.ResourceProperties.EMRStepHadoopJarStepConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRStepKeyValue - --- | Full data type definition for EMRStepHadoopJarStepConfig. See --- 'emrStepHadoopJarStepConfig' for a more convenient constructor. -data EMRStepHadoopJarStepConfig = - EMRStepHadoopJarStepConfig - { _eMRStepHadoopJarStepConfigArgs :: Maybe (ValList Text) - , _eMRStepHadoopJarStepConfigJar :: Val Text - , _eMRStepHadoopJarStepConfigMainClass :: Maybe (Val Text) - , _eMRStepHadoopJarStepConfigStepProperties :: Maybe [EMRStepKeyValue] - } deriving (Show, Eq) - -instance ToJSON EMRStepHadoopJarStepConfig where - toJSON EMRStepHadoopJarStepConfig{..} = - object $ - catMaybes - [ fmap (("Args",) . toJSON) _eMRStepHadoopJarStepConfigArgs - , (Just . ("Jar",) . toJSON) _eMRStepHadoopJarStepConfigJar - , fmap (("MainClass",) . toJSON) _eMRStepHadoopJarStepConfigMainClass - , fmap (("StepProperties",) . toJSON) _eMRStepHadoopJarStepConfigStepProperties - ] - --- | Constructor for 'EMRStepHadoopJarStepConfig' containing required fields --- as arguments. -emrStepHadoopJarStepConfig - :: Val Text -- ^ 'emrshjscJar' - -> EMRStepHadoopJarStepConfig -emrStepHadoopJarStepConfig jararg = - EMRStepHadoopJarStepConfig - { _eMRStepHadoopJarStepConfigArgs = Nothing - , _eMRStepHadoopJarStepConfigJar = jararg - , _eMRStepHadoopJarStepConfigMainClass = Nothing - , _eMRStepHadoopJarStepConfigStepProperties = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-step-hadoopjarstepconfig.html#cfn-elasticmapreduce-step-hadoopjarstepconfig-args -emrshjscArgs :: Lens' EMRStepHadoopJarStepConfig (Maybe (ValList Text)) -emrshjscArgs = lens _eMRStepHadoopJarStepConfigArgs (\s a -> s { _eMRStepHadoopJarStepConfigArgs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-step-hadoopjarstepconfig.html#cfn-elasticmapreduce-step-hadoopjarstepconfig-jar -emrshjscJar :: Lens' EMRStepHadoopJarStepConfig (Val Text) -emrshjscJar = lens _eMRStepHadoopJarStepConfigJar (\s a -> s { _eMRStepHadoopJarStepConfigJar = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-step-hadoopjarstepconfig.html#cfn-elasticmapreduce-step-hadoopjarstepconfig-mainclass -emrshjscMainClass :: Lens' EMRStepHadoopJarStepConfig (Maybe (Val Text)) -emrshjscMainClass = lens _eMRStepHadoopJarStepConfigMainClass (\s a -> s { _eMRStepHadoopJarStepConfigMainClass = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-step-hadoopjarstepconfig.html#cfn-elasticmapreduce-step-hadoopjarstepconfig-stepproperties -emrshjscStepProperties :: Lens' EMRStepHadoopJarStepConfig (Maybe [EMRStepKeyValue]) -emrshjscStepProperties = lens _eMRStepHadoopJarStepConfigStepProperties (\s a -> s { _eMRStepHadoopJarStepConfigStepProperties = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EMRStepKeyValue.hs b/library-gen/Stratosphere/ResourceProperties/EMRStepKeyValue.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EMRStepKeyValue.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-step-keyvalue.html - -module Stratosphere.ResourceProperties.EMRStepKeyValue where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EMRStepKeyValue. See 'emrStepKeyValue' for --- a more convenient constructor. -data EMRStepKeyValue = - EMRStepKeyValue - { _eMRStepKeyValueKey :: Maybe (Val Text) - , _eMRStepKeyValueValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EMRStepKeyValue where - toJSON EMRStepKeyValue{..} = - object $ - catMaybes - [ fmap (("Key",) . toJSON) _eMRStepKeyValueKey - , fmap (("Value",) . toJSON) _eMRStepKeyValueValue - ] - --- | Constructor for 'EMRStepKeyValue' containing required fields as --- arguments. -emrStepKeyValue - :: EMRStepKeyValue -emrStepKeyValue = - EMRStepKeyValue - { _eMRStepKeyValueKey = Nothing - , _eMRStepKeyValueValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-step-keyvalue.html#cfn-elasticmapreduce-step-keyvalue-key -emrskvKey :: Lens' EMRStepKeyValue (Maybe (Val Text)) -emrskvKey = lens _eMRStepKeyValueKey (\s a -> s { _eMRStepKeyValueKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-step-keyvalue.html#cfn-elasticmapreduce-step-keyvalue-value -emrskvValue :: Lens' EMRStepKeyValue (Maybe (Val Text)) -emrskvValue = lens _eMRStepKeyValueValue (\s a -> s { _eMRStepKeyValueValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElastiCacheReplicationGroupNodeGroupConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ElastiCacheReplicationGroupNodeGroupConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElastiCacheReplicationGroupNodeGroupConfiguration.hs +++ /dev/null @@ -1,68 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-replicationgroup-nodegroupconfiguration.html - -module Stratosphere.ResourceProperties.ElastiCacheReplicationGroupNodeGroupConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElastiCacheReplicationGroupNodeGroupConfiguration. See --- 'elastiCacheReplicationGroupNodeGroupConfiguration' for a more convenient --- constructor. -data ElastiCacheReplicationGroupNodeGroupConfiguration = - ElastiCacheReplicationGroupNodeGroupConfiguration - { _elastiCacheReplicationGroupNodeGroupConfigurationNodeGroupId :: Maybe (Val Text) - , _elastiCacheReplicationGroupNodeGroupConfigurationPrimaryAvailabilityZone :: Maybe (Val Text) - , _elastiCacheReplicationGroupNodeGroupConfigurationReplicaAvailabilityZones :: Maybe (ValList Text) - , _elastiCacheReplicationGroupNodeGroupConfigurationReplicaCount :: Maybe (Val Integer) - , _elastiCacheReplicationGroupNodeGroupConfigurationSlots :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ElastiCacheReplicationGroupNodeGroupConfiguration where - toJSON ElastiCacheReplicationGroupNodeGroupConfiguration{..} = - object $ - catMaybes - [ fmap (("NodeGroupId",) . toJSON) _elastiCacheReplicationGroupNodeGroupConfigurationNodeGroupId - , fmap (("PrimaryAvailabilityZone",) . toJSON) _elastiCacheReplicationGroupNodeGroupConfigurationPrimaryAvailabilityZone - , fmap (("ReplicaAvailabilityZones",) . toJSON) _elastiCacheReplicationGroupNodeGroupConfigurationReplicaAvailabilityZones - , fmap (("ReplicaCount",) . toJSON) _elastiCacheReplicationGroupNodeGroupConfigurationReplicaCount - , fmap (("Slots",) . toJSON) _elastiCacheReplicationGroupNodeGroupConfigurationSlots - ] - --- | Constructor for 'ElastiCacheReplicationGroupNodeGroupConfiguration' --- containing required fields as arguments. -elastiCacheReplicationGroupNodeGroupConfiguration - :: ElastiCacheReplicationGroupNodeGroupConfiguration -elastiCacheReplicationGroupNodeGroupConfiguration = - ElastiCacheReplicationGroupNodeGroupConfiguration - { _elastiCacheReplicationGroupNodeGroupConfigurationNodeGroupId = Nothing - , _elastiCacheReplicationGroupNodeGroupConfigurationPrimaryAvailabilityZone = Nothing - , _elastiCacheReplicationGroupNodeGroupConfigurationReplicaAvailabilityZones = Nothing - , _elastiCacheReplicationGroupNodeGroupConfigurationReplicaCount = Nothing - , _elastiCacheReplicationGroupNodeGroupConfigurationSlots = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-replicationgroup-nodegroupconfiguration.html#cfn-elasticache-replicationgroup-nodegroupconfiguration-nodegroupid -ecrgngcNodeGroupId :: Lens' ElastiCacheReplicationGroupNodeGroupConfiguration (Maybe (Val Text)) -ecrgngcNodeGroupId = lens _elastiCacheReplicationGroupNodeGroupConfigurationNodeGroupId (\s a -> s { _elastiCacheReplicationGroupNodeGroupConfigurationNodeGroupId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-replicationgroup-nodegroupconfiguration.html#cfn-elasticache-replicationgroup-nodegroupconfiguration-primaryavailabilityzone -ecrgngcPrimaryAvailabilityZone :: Lens' ElastiCacheReplicationGroupNodeGroupConfiguration (Maybe (Val Text)) -ecrgngcPrimaryAvailabilityZone = lens _elastiCacheReplicationGroupNodeGroupConfigurationPrimaryAvailabilityZone (\s a -> s { _elastiCacheReplicationGroupNodeGroupConfigurationPrimaryAvailabilityZone = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-replicationgroup-nodegroupconfiguration.html#cfn-elasticache-replicationgroup-nodegroupconfiguration-replicaavailabilityzones -ecrgngcReplicaAvailabilityZones :: Lens' ElastiCacheReplicationGroupNodeGroupConfiguration (Maybe (ValList Text)) -ecrgngcReplicaAvailabilityZones = lens _elastiCacheReplicationGroupNodeGroupConfigurationReplicaAvailabilityZones (\s a -> s { _elastiCacheReplicationGroupNodeGroupConfigurationReplicaAvailabilityZones = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-replicationgroup-nodegroupconfiguration.html#cfn-elasticache-replicationgroup-nodegroupconfiguration-replicacount -ecrgngcReplicaCount :: Lens' ElastiCacheReplicationGroupNodeGroupConfiguration (Maybe (Val Integer)) -ecrgngcReplicaCount = lens _elastiCacheReplicationGroupNodeGroupConfigurationReplicaCount (\s a -> s { _elastiCacheReplicationGroupNodeGroupConfigurationReplicaCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-replicationgroup-nodegroupconfiguration.html#cfn-elasticache-replicationgroup-nodegroupconfiguration-slots -ecrgngcSlots :: Lens' ElastiCacheReplicationGroupNodeGroupConfiguration (Maybe (Val Text)) -ecrgngcSlots = lens _elastiCacheReplicationGroupNodeGroupConfigurationSlots (\s a -> s { _elastiCacheReplicationGroupNodeGroupConfigurationSlots = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkApplicationApplicationResourceLifecycleConfig.hs b/library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkApplicationApplicationResourceLifecycleConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkApplicationApplicationResourceLifecycleConfig.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-application-applicationresourcelifecycleconfig.html - -module Stratosphere.ResourceProperties.ElasticBeanstalkApplicationApplicationResourceLifecycleConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ElasticBeanstalkApplicationApplicationVersionLifecycleConfig - --- | Full data type definition for --- ElasticBeanstalkApplicationApplicationResourceLifecycleConfig. See --- 'elasticBeanstalkApplicationApplicationResourceLifecycleConfig' for a --- more convenient constructor. -data ElasticBeanstalkApplicationApplicationResourceLifecycleConfig = - ElasticBeanstalkApplicationApplicationResourceLifecycleConfig - { _elasticBeanstalkApplicationApplicationResourceLifecycleConfigServiceRole :: Maybe (Val Text) - , _elasticBeanstalkApplicationApplicationResourceLifecycleConfigVersionLifecycleConfig :: Maybe ElasticBeanstalkApplicationApplicationVersionLifecycleConfig - } deriving (Show, Eq) - -instance ToJSON ElasticBeanstalkApplicationApplicationResourceLifecycleConfig where - toJSON ElasticBeanstalkApplicationApplicationResourceLifecycleConfig{..} = - object $ - catMaybes - [ fmap (("ServiceRole",) . toJSON) _elasticBeanstalkApplicationApplicationResourceLifecycleConfigServiceRole - , fmap (("VersionLifecycleConfig",) . toJSON) _elasticBeanstalkApplicationApplicationResourceLifecycleConfigVersionLifecycleConfig - ] - --- | Constructor for --- 'ElasticBeanstalkApplicationApplicationResourceLifecycleConfig' --- containing required fields as arguments. -elasticBeanstalkApplicationApplicationResourceLifecycleConfig - :: ElasticBeanstalkApplicationApplicationResourceLifecycleConfig -elasticBeanstalkApplicationApplicationResourceLifecycleConfig = - ElasticBeanstalkApplicationApplicationResourceLifecycleConfig - { _elasticBeanstalkApplicationApplicationResourceLifecycleConfigServiceRole = Nothing - , _elasticBeanstalkApplicationApplicationResourceLifecycleConfigVersionLifecycleConfig = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-application-applicationresourcelifecycleconfig.html#cfn-elasticbeanstalk-application-applicationresourcelifecycleconfig-servicerole -ebaarlcServiceRole :: Lens' ElasticBeanstalkApplicationApplicationResourceLifecycleConfig (Maybe (Val Text)) -ebaarlcServiceRole = lens _elasticBeanstalkApplicationApplicationResourceLifecycleConfigServiceRole (\s a -> s { _elasticBeanstalkApplicationApplicationResourceLifecycleConfigServiceRole = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-application-applicationresourcelifecycleconfig.html#cfn-elasticbeanstalk-application-applicationresourcelifecycleconfig-versionlifecycleconfig -ebaarlcVersionLifecycleConfig :: Lens' ElasticBeanstalkApplicationApplicationResourceLifecycleConfig (Maybe ElasticBeanstalkApplicationApplicationVersionLifecycleConfig) -ebaarlcVersionLifecycleConfig = lens _elasticBeanstalkApplicationApplicationResourceLifecycleConfigVersionLifecycleConfig (\s a -> s { _elasticBeanstalkApplicationApplicationResourceLifecycleConfigVersionLifecycleConfig = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkApplicationApplicationVersionLifecycleConfig.hs b/library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkApplicationApplicationVersionLifecycleConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkApplicationApplicationVersionLifecycleConfig.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-application-applicationversionlifecycleconfig.html - -module Stratosphere.ResourceProperties.ElasticBeanstalkApplicationApplicationVersionLifecycleConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ElasticBeanstalkApplicationMaxAgeRule -import Stratosphere.ResourceProperties.ElasticBeanstalkApplicationMaxCountRule - --- | Full data type definition for --- ElasticBeanstalkApplicationApplicationVersionLifecycleConfig. See --- 'elasticBeanstalkApplicationApplicationVersionLifecycleConfig' for a more --- convenient constructor. -data ElasticBeanstalkApplicationApplicationVersionLifecycleConfig = - ElasticBeanstalkApplicationApplicationVersionLifecycleConfig - { _elasticBeanstalkApplicationApplicationVersionLifecycleConfigMaxAgeRule :: Maybe ElasticBeanstalkApplicationMaxAgeRule - , _elasticBeanstalkApplicationApplicationVersionLifecycleConfigMaxCountRule :: Maybe ElasticBeanstalkApplicationMaxCountRule - } deriving (Show, Eq) - -instance ToJSON ElasticBeanstalkApplicationApplicationVersionLifecycleConfig where - toJSON ElasticBeanstalkApplicationApplicationVersionLifecycleConfig{..} = - object $ - catMaybes - [ fmap (("MaxAgeRule",) . toJSON) _elasticBeanstalkApplicationApplicationVersionLifecycleConfigMaxAgeRule - , fmap (("MaxCountRule",) . toJSON) _elasticBeanstalkApplicationApplicationVersionLifecycleConfigMaxCountRule - ] - --- | Constructor for --- 'ElasticBeanstalkApplicationApplicationVersionLifecycleConfig' containing --- required fields as arguments. -elasticBeanstalkApplicationApplicationVersionLifecycleConfig - :: ElasticBeanstalkApplicationApplicationVersionLifecycleConfig -elasticBeanstalkApplicationApplicationVersionLifecycleConfig = - ElasticBeanstalkApplicationApplicationVersionLifecycleConfig - { _elasticBeanstalkApplicationApplicationVersionLifecycleConfigMaxAgeRule = Nothing - , _elasticBeanstalkApplicationApplicationVersionLifecycleConfigMaxCountRule = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-application-applicationversionlifecycleconfig.html#cfn-elasticbeanstalk-application-applicationversionlifecycleconfig-maxagerule -ebaavlcMaxAgeRule :: Lens' ElasticBeanstalkApplicationApplicationVersionLifecycleConfig (Maybe ElasticBeanstalkApplicationMaxAgeRule) -ebaavlcMaxAgeRule = lens _elasticBeanstalkApplicationApplicationVersionLifecycleConfigMaxAgeRule (\s a -> s { _elasticBeanstalkApplicationApplicationVersionLifecycleConfigMaxAgeRule = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-application-applicationversionlifecycleconfig.html#cfn-elasticbeanstalk-application-applicationversionlifecycleconfig-maxcountrule -ebaavlcMaxCountRule :: Lens' ElasticBeanstalkApplicationApplicationVersionLifecycleConfig (Maybe ElasticBeanstalkApplicationMaxCountRule) -ebaavlcMaxCountRule = lens _elasticBeanstalkApplicationApplicationVersionLifecycleConfigMaxCountRule (\s a -> s { _elasticBeanstalkApplicationApplicationVersionLifecycleConfigMaxCountRule = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkApplicationMaxAgeRule.hs b/library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkApplicationMaxAgeRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkApplicationMaxAgeRule.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-application-maxagerule.html - -module Stratosphere.ResourceProperties.ElasticBeanstalkApplicationMaxAgeRule where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ElasticBeanstalkApplicationMaxAgeRule. See --- 'elasticBeanstalkApplicationMaxAgeRule' for a more convenient --- constructor. -data ElasticBeanstalkApplicationMaxAgeRule = - ElasticBeanstalkApplicationMaxAgeRule - { _elasticBeanstalkApplicationMaxAgeRuleDeleteSourceFromS3 :: Maybe (Val Bool) - , _elasticBeanstalkApplicationMaxAgeRuleEnabled :: Maybe (Val Bool) - , _elasticBeanstalkApplicationMaxAgeRuleMaxAgeInDays :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON ElasticBeanstalkApplicationMaxAgeRule where - toJSON ElasticBeanstalkApplicationMaxAgeRule{..} = - object $ - catMaybes - [ fmap (("DeleteSourceFromS3",) . toJSON) _elasticBeanstalkApplicationMaxAgeRuleDeleteSourceFromS3 - , fmap (("Enabled",) . toJSON) _elasticBeanstalkApplicationMaxAgeRuleEnabled - , fmap (("MaxAgeInDays",) . toJSON) _elasticBeanstalkApplicationMaxAgeRuleMaxAgeInDays - ] - --- | Constructor for 'ElasticBeanstalkApplicationMaxAgeRule' containing --- required fields as arguments. -elasticBeanstalkApplicationMaxAgeRule - :: ElasticBeanstalkApplicationMaxAgeRule -elasticBeanstalkApplicationMaxAgeRule = - ElasticBeanstalkApplicationMaxAgeRule - { _elasticBeanstalkApplicationMaxAgeRuleDeleteSourceFromS3 = Nothing - , _elasticBeanstalkApplicationMaxAgeRuleEnabled = Nothing - , _elasticBeanstalkApplicationMaxAgeRuleMaxAgeInDays = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-application-maxagerule.html#cfn-elasticbeanstalk-application-maxagerule-deletesourcefroms3 -ebamarDeleteSourceFromS3 :: Lens' ElasticBeanstalkApplicationMaxAgeRule (Maybe (Val Bool)) -ebamarDeleteSourceFromS3 = lens _elasticBeanstalkApplicationMaxAgeRuleDeleteSourceFromS3 (\s a -> s { _elasticBeanstalkApplicationMaxAgeRuleDeleteSourceFromS3 = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-application-maxagerule.html#cfn-elasticbeanstalk-application-maxagerule-enabled -ebamarEnabled :: Lens' ElasticBeanstalkApplicationMaxAgeRule (Maybe (Val Bool)) -ebamarEnabled = lens _elasticBeanstalkApplicationMaxAgeRuleEnabled (\s a -> s { _elasticBeanstalkApplicationMaxAgeRuleEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-application-maxagerule.html#cfn-elasticbeanstalk-application-maxagerule-maxageindays -ebamarMaxAgeInDays :: Lens' ElasticBeanstalkApplicationMaxAgeRule (Maybe (Val Integer)) -ebamarMaxAgeInDays = lens _elasticBeanstalkApplicationMaxAgeRuleMaxAgeInDays (\s a -> s { _elasticBeanstalkApplicationMaxAgeRuleMaxAgeInDays = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkApplicationMaxCountRule.hs b/library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkApplicationMaxCountRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkApplicationMaxCountRule.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-application-maxcountrule.html - -module Stratosphere.ResourceProperties.ElasticBeanstalkApplicationMaxCountRule where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ElasticBeanstalkApplicationMaxCountRule. --- See 'elasticBeanstalkApplicationMaxCountRule' for a more convenient --- constructor. -data ElasticBeanstalkApplicationMaxCountRule = - ElasticBeanstalkApplicationMaxCountRule - { _elasticBeanstalkApplicationMaxCountRuleDeleteSourceFromS3 :: Maybe (Val Bool) - , _elasticBeanstalkApplicationMaxCountRuleEnabled :: Maybe (Val Bool) - , _elasticBeanstalkApplicationMaxCountRuleMaxCount :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON ElasticBeanstalkApplicationMaxCountRule where - toJSON ElasticBeanstalkApplicationMaxCountRule{..} = - object $ - catMaybes - [ fmap (("DeleteSourceFromS3",) . toJSON) _elasticBeanstalkApplicationMaxCountRuleDeleteSourceFromS3 - , fmap (("Enabled",) . toJSON) _elasticBeanstalkApplicationMaxCountRuleEnabled - , fmap (("MaxCount",) . toJSON) _elasticBeanstalkApplicationMaxCountRuleMaxCount - ] - --- | Constructor for 'ElasticBeanstalkApplicationMaxCountRule' containing --- required fields as arguments. -elasticBeanstalkApplicationMaxCountRule - :: ElasticBeanstalkApplicationMaxCountRule -elasticBeanstalkApplicationMaxCountRule = - ElasticBeanstalkApplicationMaxCountRule - { _elasticBeanstalkApplicationMaxCountRuleDeleteSourceFromS3 = Nothing - , _elasticBeanstalkApplicationMaxCountRuleEnabled = Nothing - , _elasticBeanstalkApplicationMaxCountRuleMaxCount = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-application-maxcountrule.html#cfn-elasticbeanstalk-application-maxcountrule-deletesourcefroms3 -ebamcrDeleteSourceFromS3 :: Lens' ElasticBeanstalkApplicationMaxCountRule (Maybe (Val Bool)) -ebamcrDeleteSourceFromS3 = lens _elasticBeanstalkApplicationMaxCountRuleDeleteSourceFromS3 (\s a -> s { _elasticBeanstalkApplicationMaxCountRuleDeleteSourceFromS3 = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-application-maxcountrule.html#cfn-elasticbeanstalk-application-maxcountrule-enabled -ebamcrEnabled :: Lens' ElasticBeanstalkApplicationMaxCountRule (Maybe (Val Bool)) -ebamcrEnabled = lens _elasticBeanstalkApplicationMaxCountRuleEnabled (\s a -> s { _elasticBeanstalkApplicationMaxCountRuleEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-application-maxcountrule.html#cfn-elasticbeanstalk-application-maxcountrule-maxcount -ebamcrMaxCount :: Lens' ElasticBeanstalkApplicationMaxCountRule (Maybe (Val Integer)) -ebamcrMaxCount = lens _elasticBeanstalkApplicationMaxCountRuleMaxCount (\s a -> s { _elasticBeanstalkApplicationMaxCountRuleMaxCount = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkApplicationVersionSourceBundle.hs b/library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkApplicationVersionSourceBundle.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkApplicationVersionSourceBundle.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-sourcebundle.html - -module Stratosphere.ResourceProperties.ElasticBeanstalkApplicationVersionSourceBundle where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticBeanstalkApplicationVersionSourceBundle. See --- 'elasticBeanstalkApplicationVersionSourceBundle' for a more convenient --- constructor. -data ElasticBeanstalkApplicationVersionSourceBundle = - ElasticBeanstalkApplicationVersionSourceBundle - { _elasticBeanstalkApplicationVersionSourceBundleS3Bucket :: Val Text - , _elasticBeanstalkApplicationVersionSourceBundleS3Key :: Val Text - } deriving (Show, Eq) - -instance ToJSON ElasticBeanstalkApplicationVersionSourceBundle where - toJSON ElasticBeanstalkApplicationVersionSourceBundle{..} = - object $ - catMaybes - [ (Just . ("S3Bucket",) . toJSON) _elasticBeanstalkApplicationVersionSourceBundleS3Bucket - , (Just . ("S3Key",) . toJSON) _elasticBeanstalkApplicationVersionSourceBundleS3Key - ] - --- | Constructor for 'ElasticBeanstalkApplicationVersionSourceBundle' --- containing required fields as arguments. -elasticBeanstalkApplicationVersionSourceBundle - :: Val Text -- ^ 'ebavsbS3Bucket' - -> Val Text -- ^ 'ebavsbS3Key' - -> ElasticBeanstalkApplicationVersionSourceBundle -elasticBeanstalkApplicationVersionSourceBundle s3Bucketarg s3Keyarg = - ElasticBeanstalkApplicationVersionSourceBundle - { _elasticBeanstalkApplicationVersionSourceBundleS3Bucket = s3Bucketarg - , _elasticBeanstalkApplicationVersionSourceBundleS3Key = s3Keyarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-sourcebundle.html#cfn-beanstalk-sourcebundle-s3bucket -ebavsbS3Bucket :: Lens' ElasticBeanstalkApplicationVersionSourceBundle (Val Text) -ebavsbS3Bucket = lens _elasticBeanstalkApplicationVersionSourceBundleS3Bucket (\s a -> s { _elasticBeanstalkApplicationVersionSourceBundleS3Bucket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-sourcebundle.html#cfn-beanstalk-sourcebundle-s3key -ebavsbS3Key :: Lens' ElasticBeanstalkApplicationVersionSourceBundle (Val Text) -ebavsbS3Key = lens _elasticBeanstalkApplicationVersionSourceBundleS3Key (\s a -> s { _elasticBeanstalkApplicationVersionSourceBundleS3Key = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting.hs b/library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-configurationtemplate-configurationoptionsetting.html - -module Stratosphere.ResourceProperties.ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting. See --- 'elasticBeanstalkConfigurationTemplateConfigurationOptionSetting' for a --- more convenient constructor. -data ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting = - ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting - { _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingNamespace :: Val Text - , _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingOptionName :: Val Text - , _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingResourceName :: Maybe (Val Text) - , _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting where - toJSON ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting{..} = - object $ - catMaybes - [ (Just . ("Namespace",) . toJSON) _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingNamespace - , (Just . ("OptionName",) . toJSON) _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingOptionName - , fmap (("ResourceName",) . toJSON) _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingResourceName - , fmap (("Value",) . toJSON) _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingValue - ] - --- | Constructor for --- 'ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting' --- containing required fields as arguments. -elasticBeanstalkConfigurationTemplateConfigurationOptionSetting - :: Val Text -- ^ 'ebctcosNamespace' - -> Val Text -- ^ 'ebctcosOptionName' - -> ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting -elasticBeanstalkConfigurationTemplateConfigurationOptionSetting namespacearg optionNamearg = - ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting - { _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingNamespace = namespacearg - , _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingOptionName = optionNamearg - , _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingResourceName = Nothing - , _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-configurationtemplate-configurationoptionsetting.html#cfn-elasticbeanstalk-configurationtemplate-configurationoptionsetting-namespace -ebctcosNamespace :: Lens' ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting (Val Text) -ebctcosNamespace = lens _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingNamespace (\s a -> s { _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingNamespace = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-configurationtemplate-configurationoptionsetting.html#cfn-elasticbeanstalk-configurationtemplate-configurationoptionsetting-optionname -ebctcosOptionName :: Lens' ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting (Val Text) -ebctcosOptionName = lens _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingOptionName (\s a -> s { _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingOptionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-configurationtemplate-configurationoptionsetting.html#cfn-elasticbeanstalk-configurationtemplate-configurationoptionsetting-resourcename -ebctcosResourceName :: Lens' ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting (Maybe (Val Text)) -ebctcosResourceName = lens _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingResourceName (\s a -> s { _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingResourceName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-configurationtemplate-configurationoptionsetting.html#cfn-elasticbeanstalk-configurationtemplate-configurationoptionsetting-value -ebctcosValue :: Lens' ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting (Maybe (Val Text)) -ebctcosValue = lens _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingValue (\s a -> s { _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkConfigurationTemplateSourceConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkConfigurationTemplateSourceConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkConfigurationTemplateSourceConfiguration.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-configurationtemplate-sourceconfiguration.html - -module Stratosphere.ResourceProperties.ElasticBeanstalkConfigurationTemplateSourceConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticBeanstalkConfigurationTemplateSourceConfiguration. See --- 'elasticBeanstalkConfigurationTemplateSourceConfiguration' for a more --- convenient constructor. -data ElasticBeanstalkConfigurationTemplateSourceConfiguration = - ElasticBeanstalkConfigurationTemplateSourceConfiguration - { _elasticBeanstalkConfigurationTemplateSourceConfigurationApplicationName :: Val Text - , _elasticBeanstalkConfigurationTemplateSourceConfigurationTemplateName :: Val Text - } deriving (Show, Eq) - -instance ToJSON ElasticBeanstalkConfigurationTemplateSourceConfiguration where - toJSON ElasticBeanstalkConfigurationTemplateSourceConfiguration{..} = - object $ - catMaybes - [ (Just . ("ApplicationName",) . toJSON) _elasticBeanstalkConfigurationTemplateSourceConfigurationApplicationName - , (Just . ("TemplateName",) . toJSON) _elasticBeanstalkConfigurationTemplateSourceConfigurationTemplateName - ] - --- | Constructor for --- 'ElasticBeanstalkConfigurationTemplateSourceConfiguration' containing --- required fields as arguments. -elasticBeanstalkConfigurationTemplateSourceConfiguration - :: Val Text -- ^ 'ebctscApplicationName' - -> Val Text -- ^ 'ebctscTemplateName' - -> ElasticBeanstalkConfigurationTemplateSourceConfiguration -elasticBeanstalkConfigurationTemplateSourceConfiguration applicationNamearg templateNamearg = - ElasticBeanstalkConfigurationTemplateSourceConfiguration - { _elasticBeanstalkConfigurationTemplateSourceConfigurationApplicationName = applicationNamearg - , _elasticBeanstalkConfigurationTemplateSourceConfigurationTemplateName = templateNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-configurationtemplate-sourceconfiguration.html#cfn-elasticbeanstalk-configurationtemplate-sourceconfiguration-applicationname -ebctscApplicationName :: Lens' ElasticBeanstalkConfigurationTemplateSourceConfiguration (Val Text) -ebctscApplicationName = lens _elasticBeanstalkConfigurationTemplateSourceConfigurationApplicationName (\s a -> s { _elasticBeanstalkConfigurationTemplateSourceConfigurationApplicationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticbeanstalk-configurationtemplate-sourceconfiguration.html#cfn-elasticbeanstalk-configurationtemplate-sourceconfiguration-templatename -ebctscTemplateName :: Lens' ElasticBeanstalkConfigurationTemplateSourceConfiguration (Val Text) -ebctscTemplateName = lens _elasticBeanstalkConfigurationTemplateSourceConfigurationTemplateName (\s a -> s { _elasticBeanstalkConfigurationTemplateSourceConfigurationTemplateName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkEnvironmentOptionSetting.hs b/library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkEnvironmentOptionSetting.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkEnvironmentOptionSetting.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-option-settings.html - -module Stratosphere.ResourceProperties.ElasticBeanstalkEnvironmentOptionSetting where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ElasticBeanstalkEnvironmentOptionSetting. --- See 'elasticBeanstalkEnvironmentOptionSetting' for a more convenient --- constructor. -data ElasticBeanstalkEnvironmentOptionSetting = - ElasticBeanstalkEnvironmentOptionSetting - { _elasticBeanstalkEnvironmentOptionSettingNamespace :: Val Text - , _elasticBeanstalkEnvironmentOptionSettingOptionName :: Val Text - , _elasticBeanstalkEnvironmentOptionSettingResourceName :: Maybe (Val Text) - , _elasticBeanstalkEnvironmentOptionSettingValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ElasticBeanstalkEnvironmentOptionSetting where - toJSON ElasticBeanstalkEnvironmentOptionSetting{..} = - object $ - catMaybes - [ (Just . ("Namespace",) . toJSON) _elasticBeanstalkEnvironmentOptionSettingNamespace - , (Just . ("OptionName",) . toJSON) _elasticBeanstalkEnvironmentOptionSettingOptionName - , fmap (("ResourceName",) . toJSON) _elasticBeanstalkEnvironmentOptionSettingResourceName - , fmap (("Value",) . toJSON) _elasticBeanstalkEnvironmentOptionSettingValue - ] - --- | Constructor for 'ElasticBeanstalkEnvironmentOptionSetting' containing --- required fields as arguments. -elasticBeanstalkEnvironmentOptionSetting - :: Val Text -- ^ 'ebeosNamespace' - -> Val Text -- ^ 'ebeosOptionName' - -> ElasticBeanstalkEnvironmentOptionSetting -elasticBeanstalkEnvironmentOptionSetting namespacearg optionNamearg = - ElasticBeanstalkEnvironmentOptionSetting - { _elasticBeanstalkEnvironmentOptionSettingNamespace = namespacearg - , _elasticBeanstalkEnvironmentOptionSettingOptionName = optionNamearg - , _elasticBeanstalkEnvironmentOptionSettingResourceName = Nothing - , _elasticBeanstalkEnvironmentOptionSettingValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-option-settings.html#cfn-beanstalk-optionsettings-namespace -ebeosNamespace :: Lens' ElasticBeanstalkEnvironmentOptionSetting (Val Text) -ebeosNamespace = lens _elasticBeanstalkEnvironmentOptionSettingNamespace (\s a -> s { _elasticBeanstalkEnvironmentOptionSettingNamespace = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-option-settings.html#cfn-beanstalk-optionsettings-optionname -ebeosOptionName :: Lens' ElasticBeanstalkEnvironmentOptionSetting (Val Text) -ebeosOptionName = lens _elasticBeanstalkEnvironmentOptionSettingOptionName (\s a -> s { _elasticBeanstalkEnvironmentOptionSettingOptionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-option-settings.html#cfn-elasticbeanstalk-environment-optionsetting-resourcename -ebeosResourceName :: Lens' ElasticBeanstalkEnvironmentOptionSetting (Maybe (Val Text)) -ebeosResourceName = lens _elasticBeanstalkEnvironmentOptionSettingResourceName (\s a -> s { _elasticBeanstalkEnvironmentOptionSettingResourceName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-option-settings.html#cfn-beanstalk-optionsettings-value -ebeosValue :: Lens' ElasticBeanstalkEnvironmentOptionSetting (Maybe (Val Text)) -ebeosValue = lens _elasticBeanstalkEnvironmentOptionSettingValue (\s a -> s { _elasticBeanstalkEnvironmentOptionSettingValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkEnvironmentTier.hs b/library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkEnvironmentTier.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkEnvironmentTier.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-environment-tier.html - -module Stratosphere.ResourceProperties.ElasticBeanstalkEnvironmentTier where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ElasticBeanstalkEnvironmentTier. See --- 'elasticBeanstalkEnvironmentTier' for a more convenient constructor. -data ElasticBeanstalkEnvironmentTier = - ElasticBeanstalkEnvironmentTier - { _elasticBeanstalkEnvironmentTierName :: Maybe (Val Text) - , _elasticBeanstalkEnvironmentTierType :: Maybe (Val Text) - , _elasticBeanstalkEnvironmentTierVersion :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ElasticBeanstalkEnvironmentTier where - toJSON ElasticBeanstalkEnvironmentTier{..} = - object $ - catMaybes - [ fmap (("Name",) . toJSON) _elasticBeanstalkEnvironmentTierName - , fmap (("Type",) . toJSON) _elasticBeanstalkEnvironmentTierType - , fmap (("Version",) . toJSON) _elasticBeanstalkEnvironmentTierVersion - ] - --- | Constructor for 'ElasticBeanstalkEnvironmentTier' containing required --- fields as arguments. -elasticBeanstalkEnvironmentTier - :: ElasticBeanstalkEnvironmentTier -elasticBeanstalkEnvironmentTier = - ElasticBeanstalkEnvironmentTier - { _elasticBeanstalkEnvironmentTierName = Nothing - , _elasticBeanstalkEnvironmentTierType = Nothing - , _elasticBeanstalkEnvironmentTierVersion = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-environment-tier.html#cfn-beanstalk-env-tier-name -ebetName :: Lens' ElasticBeanstalkEnvironmentTier (Maybe (Val Text)) -ebetName = lens _elasticBeanstalkEnvironmentTierName (\s a -> s { _elasticBeanstalkEnvironmentTierName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-environment-tier.html#cfn-beanstalk-env-tier-type -ebetType :: Lens' ElasticBeanstalkEnvironmentTier (Maybe (Val Text)) -ebetType = lens _elasticBeanstalkEnvironmentTierType (\s a -> s { _elasticBeanstalkEnvironmentTierType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-environment-tier.html#cfn-beanstalk-env-tier-version -ebetVersion :: Lens' ElasticBeanstalkEnvironmentTier (Maybe (Val Text)) -ebetVersion = lens _elasticBeanstalkEnvironmentTierVersion (\s a -> s { _elasticBeanstalkEnvironmentTierVersion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerAccessLoggingPolicy.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerAccessLoggingPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerAccessLoggingPolicy.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-accessloggingpolicy.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerAccessLoggingPolicy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticLoadBalancingLoadBalancerAccessLoggingPolicy. See --- 'elasticLoadBalancingLoadBalancerAccessLoggingPolicy' for a more --- convenient constructor. -data ElasticLoadBalancingLoadBalancerAccessLoggingPolicy = - ElasticLoadBalancingLoadBalancerAccessLoggingPolicy - { _elasticLoadBalancingLoadBalancerAccessLoggingPolicyEmitInterval :: Maybe (Val Integer) - , _elasticLoadBalancingLoadBalancerAccessLoggingPolicyEnabled :: Val Bool - , _elasticLoadBalancingLoadBalancerAccessLoggingPolicyS3BucketName :: Val Text - , _elasticLoadBalancingLoadBalancerAccessLoggingPolicyS3BucketPrefix :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingLoadBalancerAccessLoggingPolicy where - toJSON ElasticLoadBalancingLoadBalancerAccessLoggingPolicy{..} = - object $ - catMaybes - [ fmap (("EmitInterval",) . toJSON) _elasticLoadBalancingLoadBalancerAccessLoggingPolicyEmitInterval - , (Just . ("Enabled",) . toJSON) _elasticLoadBalancingLoadBalancerAccessLoggingPolicyEnabled - , (Just . ("S3BucketName",) . toJSON) _elasticLoadBalancingLoadBalancerAccessLoggingPolicyS3BucketName - , fmap (("S3BucketPrefix",) . toJSON) _elasticLoadBalancingLoadBalancerAccessLoggingPolicyS3BucketPrefix - ] - --- | Constructor for 'ElasticLoadBalancingLoadBalancerAccessLoggingPolicy' --- containing required fields as arguments. -elasticLoadBalancingLoadBalancerAccessLoggingPolicy - :: Val Bool -- ^ 'elblbalpEnabled' - -> Val Text -- ^ 'elblbalpS3BucketName' - -> ElasticLoadBalancingLoadBalancerAccessLoggingPolicy -elasticLoadBalancingLoadBalancerAccessLoggingPolicy enabledarg s3BucketNamearg = - ElasticLoadBalancingLoadBalancerAccessLoggingPolicy - { _elasticLoadBalancingLoadBalancerAccessLoggingPolicyEmitInterval = Nothing - , _elasticLoadBalancingLoadBalancerAccessLoggingPolicyEnabled = enabledarg - , _elasticLoadBalancingLoadBalancerAccessLoggingPolicyS3BucketName = s3BucketNamearg - , _elasticLoadBalancingLoadBalancerAccessLoggingPolicyS3BucketPrefix = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-accessloggingpolicy.html#cfn-elb-accessloggingpolicy-emitinterval -elblbalpEmitInterval :: Lens' ElasticLoadBalancingLoadBalancerAccessLoggingPolicy (Maybe (Val Integer)) -elblbalpEmitInterval = lens _elasticLoadBalancingLoadBalancerAccessLoggingPolicyEmitInterval (\s a -> s { _elasticLoadBalancingLoadBalancerAccessLoggingPolicyEmitInterval = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-accessloggingpolicy.html#cfn-elb-accessloggingpolicy-enabled -elblbalpEnabled :: Lens' ElasticLoadBalancingLoadBalancerAccessLoggingPolicy (Val Bool) -elblbalpEnabled = lens _elasticLoadBalancingLoadBalancerAccessLoggingPolicyEnabled (\s a -> s { _elasticLoadBalancingLoadBalancerAccessLoggingPolicyEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-accessloggingpolicy.html#cfn-elb-accessloggingpolicy-s3bucketname -elblbalpS3BucketName :: Lens' ElasticLoadBalancingLoadBalancerAccessLoggingPolicy (Val Text) -elblbalpS3BucketName = lens _elasticLoadBalancingLoadBalancerAccessLoggingPolicyS3BucketName (\s a -> s { _elasticLoadBalancingLoadBalancerAccessLoggingPolicyS3BucketName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-accessloggingpolicy.html#cfn-elb-accessloggingpolicy-s3bucketprefix -elblbalpS3BucketPrefix :: Lens' ElasticLoadBalancingLoadBalancerAccessLoggingPolicy (Maybe (Val Text)) -elblbalpS3BucketPrefix = lens _elasticLoadBalancingLoadBalancerAccessLoggingPolicyS3BucketPrefix (\s a -> s { _elasticLoadBalancingLoadBalancerAccessLoggingPolicyS3BucketPrefix = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerAppCookieStickinessPolicy.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerAppCookieStickinessPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerAppCookieStickinessPolicy.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-AppCookieStickinessPolicy.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerAppCookieStickinessPolicy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticLoadBalancingLoadBalancerAppCookieStickinessPolicy. See --- 'elasticLoadBalancingLoadBalancerAppCookieStickinessPolicy' for a more --- convenient constructor. -data ElasticLoadBalancingLoadBalancerAppCookieStickinessPolicy = - ElasticLoadBalancingLoadBalancerAppCookieStickinessPolicy - { _elasticLoadBalancingLoadBalancerAppCookieStickinessPolicyCookieName :: Val Text - , _elasticLoadBalancingLoadBalancerAppCookieStickinessPolicyPolicyName :: Val Text - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingLoadBalancerAppCookieStickinessPolicy where - toJSON ElasticLoadBalancingLoadBalancerAppCookieStickinessPolicy{..} = - object $ - catMaybes - [ (Just . ("CookieName",) . toJSON) _elasticLoadBalancingLoadBalancerAppCookieStickinessPolicyCookieName - , (Just . ("PolicyName",) . toJSON) _elasticLoadBalancingLoadBalancerAppCookieStickinessPolicyPolicyName - ] - --- | Constructor for --- 'ElasticLoadBalancingLoadBalancerAppCookieStickinessPolicy' containing --- required fields as arguments. -elasticLoadBalancingLoadBalancerAppCookieStickinessPolicy - :: Val Text -- ^ 'elblbacspCookieName' - -> Val Text -- ^ 'elblbacspPolicyName' - -> ElasticLoadBalancingLoadBalancerAppCookieStickinessPolicy -elasticLoadBalancingLoadBalancerAppCookieStickinessPolicy cookieNamearg policyNamearg = - ElasticLoadBalancingLoadBalancerAppCookieStickinessPolicy - { _elasticLoadBalancingLoadBalancerAppCookieStickinessPolicyCookieName = cookieNamearg - , _elasticLoadBalancingLoadBalancerAppCookieStickinessPolicyPolicyName = policyNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-AppCookieStickinessPolicy.html#cfn-elb-appcookiestickinesspolicy-cookiename -elblbacspCookieName :: Lens' ElasticLoadBalancingLoadBalancerAppCookieStickinessPolicy (Val Text) -elblbacspCookieName = lens _elasticLoadBalancingLoadBalancerAppCookieStickinessPolicyCookieName (\s a -> s { _elasticLoadBalancingLoadBalancerAppCookieStickinessPolicyCookieName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-AppCookieStickinessPolicy.html#cfn-elb-appcookiestickinesspolicy-policyname -elblbacspPolicyName :: Lens' ElasticLoadBalancingLoadBalancerAppCookieStickinessPolicy (Val Text) -elblbacspPolicyName = lens _elasticLoadBalancingLoadBalancerAppCookieStickinessPolicyPolicyName (\s a -> s { _elasticLoadBalancingLoadBalancerAppCookieStickinessPolicyPolicyName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerConnectionDrainingPolicy.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerConnectionDrainingPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerConnectionDrainingPolicy.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-connectiondrainingpolicy.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerConnectionDrainingPolicy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticLoadBalancingLoadBalancerConnectionDrainingPolicy. See --- 'elasticLoadBalancingLoadBalancerConnectionDrainingPolicy' for a more --- convenient constructor. -data ElasticLoadBalancingLoadBalancerConnectionDrainingPolicy = - ElasticLoadBalancingLoadBalancerConnectionDrainingPolicy - { _elasticLoadBalancingLoadBalancerConnectionDrainingPolicyEnabled :: Val Bool - , _elasticLoadBalancingLoadBalancerConnectionDrainingPolicyTimeout :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingLoadBalancerConnectionDrainingPolicy where - toJSON ElasticLoadBalancingLoadBalancerConnectionDrainingPolicy{..} = - object $ - catMaybes - [ (Just . ("Enabled",) . toJSON) _elasticLoadBalancingLoadBalancerConnectionDrainingPolicyEnabled - , fmap (("Timeout",) . toJSON) _elasticLoadBalancingLoadBalancerConnectionDrainingPolicyTimeout - ] - --- | Constructor for --- 'ElasticLoadBalancingLoadBalancerConnectionDrainingPolicy' containing --- required fields as arguments. -elasticLoadBalancingLoadBalancerConnectionDrainingPolicy - :: Val Bool -- ^ 'elblbcdpEnabled' - -> ElasticLoadBalancingLoadBalancerConnectionDrainingPolicy -elasticLoadBalancingLoadBalancerConnectionDrainingPolicy enabledarg = - ElasticLoadBalancingLoadBalancerConnectionDrainingPolicy - { _elasticLoadBalancingLoadBalancerConnectionDrainingPolicyEnabled = enabledarg - , _elasticLoadBalancingLoadBalancerConnectionDrainingPolicyTimeout = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-connectiondrainingpolicy.html#cfn-elb-connectiondrainingpolicy-enabled -elblbcdpEnabled :: Lens' ElasticLoadBalancingLoadBalancerConnectionDrainingPolicy (Val Bool) -elblbcdpEnabled = lens _elasticLoadBalancingLoadBalancerConnectionDrainingPolicyEnabled (\s a -> s { _elasticLoadBalancingLoadBalancerConnectionDrainingPolicyEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-connectiondrainingpolicy.html#cfn-elb-connectiondrainingpolicy-timeout -elblbcdpTimeout :: Lens' ElasticLoadBalancingLoadBalancerConnectionDrainingPolicy (Maybe (Val Integer)) -elblbcdpTimeout = lens _elasticLoadBalancingLoadBalancerConnectionDrainingPolicyTimeout (\s a -> s { _elasticLoadBalancingLoadBalancerConnectionDrainingPolicyTimeout = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerConnectionSettings.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerConnectionSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerConnectionSettings.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-connectionsettings.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerConnectionSettings where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticLoadBalancingLoadBalancerConnectionSettings. See --- 'elasticLoadBalancingLoadBalancerConnectionSettings' for a more --- convenient constructor. -data ElasticLoadBalancingLoadBalancerConnectionSettings = - ElasticLoadBalancingLoadBalancerConnectionSettings - { _elasticLoadBalancingLoadBalancerConnectionSettingsIdleTimeout :: Val Integer - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingLoadBalancerConnectionSettings where - toJSON ElasticLoadBalancingLoadBalancerConnectionSettings{..} = - object $ - catMaybes - [ (Just . ("IdleTimeout",) . toJSON) _elasticLoadBalancingLoadBalancerConnectionSettingsIdleTimeout - ] - --- | Constructor for 'ElasticLoadBalancingLoadBalancerConnectionSettings' --- containing required fields as arguments. -elasticLoadBalancingLoadBalancerConnectionSettings - :: Val Integer -- ^ 'elblbcsIdleTimeout' - -> ElasticLoadBalancingLoadBalancerConnectionSettings -elasticLoadBalancingLoadBalancerConnectionSettings idleTimeoutarg = - ElasticLoadBalancingLoadBalancerConnectionSettings - { _elasticLoadBalancingLoadBalancerConnectionSettingsIdleTimeout = idleTimeoutarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-connectionsettings.html#cfn-elb-connectionsettings-idletimeout -elblbcsIdleTimeout :: Lens' ElasticLoadBalancingLoadBalancerConnectionSettings (Val Integer) -elblbcsIdleTimeout = lens _elasticLoadBalancingLoadBalancerConnectionSettingsIdleTimeout (\s a -> s { _elasticLoadBalancingLoadBalancerConnectionSettingsIdleTimeout = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerHealthCheck.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerHealthCheck.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerHealthCheck.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-health-check.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerHealthCheck where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticLoadBalancingLoadBalancerHealthCheck. See --- 'elasticLoadBalancingLoadBalancerHealthCheck' for a more convenient --- constructor. -data ElasticLoadBalancingLoadBalancerHealthCheck = - ElasticLoadBalancingLoadBalancerHealthCheck - { _elasticLoadBalancingLoadBalancerHealthCheckHealthyThreshold :: Val Text - , _elasticLoadBalancingLoadBalancerHealthCheckInterval :: Val Text - , _elasticLoadBalancingLoadBalancerHealthCheckTarget :: Val Text - , _elasticLoadBalancingLoadBalancerHealthCheckTimeout :: Val Text - , _elasticLoadBalancingLoadBalancerHealthCheckUnhealthyThreshold :: Val Text - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingLoadBalancerHealthCheck where - toJSON ElasticLoadBalancingLoadBalancerHealthCheck{..} = - object $ - catMaybes - [ (Just . ("HealthyThreshold",) . toJSON) _elasticLoadBalancingLoadBalancerHealthCheckHealthyThreshold - , (Just . ("Interval",) . toJSON) _elasticLoadBalancingLoadBalancerHealthCheckInterval - , (Just . ("Target",) . toJSON) _elasticLoadBalancingLoadBalancerHealthCheckTarget - , (Just . ("Timeout",) . toJSON) _elasticLoadBalancingLoadBalancerHealthCheckTimeout - , (Just . ("UnhealthyThreshold",) . toJSON) _elasticLoadBalancingLoadBalancerHealthCheckUnhealthyThreshold - ] - --- | Constructor for 'ElasticLoadBalancingLoadBalancerHealthCheck' containing --- required fields as arguments. -elasticLoadBalancingLoadBalancerHealthCheck - :: Val Text -- ^ 'elblbhcHealthyThreshold' - -> Val Text -- ^ 'elblbhcInterval' - -> Val Text -- ^ 'elblbhcTarget' - -> Val Text -- ^ 'elblbhcTimeout' - -> Val Text -- ^ 'elblbhcUnhealthyThreshold' - -> ElasticLoadBalancingLoadBalancerHealthCheck -elasticLoadBalancingLoadBalancerHealthCheck healthyThresholdarg intervalarg targetarg timeoutarg unhealthyThresholdarg = - ElasticLoadBalancingLoadBalancerHealthCheck - { _elasticLoadBalancingLoadBalancerHealthCheckHealthyThreshold = healthyThresholdarg - , _elasticLoadBalancingLoadBalancerHealthCheckInterval = intervalarg - , _elasticLoadBalancingLoadBalancerHealthCheckTarget = targetarg - , _elasticLoadBalancingLoadBalancerHealthCheckTimeout = timeoutarg - , _elasticLoadBalancingLoadBalancerHealthCheckUnhealthyThreshold = unhealthyThresholdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-health-check.html#cfn-elb-healthcheck-healthythreshold -elblbhcHealthyThreshold :: Lens' ElasticLoadBalancingLoadBalancerHealthCheck (Val Text) -elblbhcHealthyThreshold = lens _elasticLoadBalancingLoadBalancerHealthCheckHealthyThreshold (\s a -> s { _elasticLoadBalancingLoadBalancerHealthCheckHealthyThreshold = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-health-check.html#cfn-elb-healthcheck-interval -elblbhcInterval :: Lens' ElasticLoadBalancingLoadBalancerHealthCheck (Val Text) -elblbhcInterval = lens _elasticLoadBalancingLoadBalancerHealthCheckInterval (\s a -> s { _elasticLoadBalancingLoadBalancerHealthCheckInterval = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-health-check.html#cfn-elb-healthcheck-target -elblbhcTarget :: Lens' ElasticLoadBalancingLoadBalancerHealthCheck (Val Text) -elblbhcTarget = lens _elasticLoadBalancingLoadBalancerHealthCheckTarget (\s a -> s { _elasticLoadBalancingLoadBalancerHealthCheckTarget = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-health-check.html#cfn-elb-healthcheck-timeout -elblbhcTimeout :: Lens' ElasticLoadBalancingLoadBalancerHealthCheck (Val Text) -elblbhcTimeout = lens _elasticLoadBalancingLoadBalancerHealthCheckTimeout (\s a -> s { _elasticLoadBalancingLoadBalancerHealthCheckTimeout = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-health-check.html#cfn-elb-healthcheck-unhealthythreshold -elblbhcUnhealthyThreshold :: Lens' ElasticLoadBalancingLoadBalancerHealthCheck (Val Text) -elblbhcUnhealthyThreshold = lens _elasticLoadBalancingLoadBalancerHealthCheckUnhealthyThreshold (\s a -> s { _elasticLoadBalancingLoadBalancerHealthCheckUnhealthyThreshold = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerLBCookieStickinessPolicy.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerLBCookieStickinessPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerLBCookieStickinessPolicy.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-LBCookieStickinessPolicy.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerLBCookieStickinessPolicy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticLoadBalancingLoadBalancerLBCookieStickinessPolicy. See --- 'elasticLoadBalancingLoadBalancerLBCookieStickinessPolicy' for a more --- convenient constructor. -data ElasticLoadBalancingLoadBalancerLBCookieStickinessPolicy = - ElasticLoadBalancingLoadBalancerLBCookieStickinessPolicy - { _elasticLoadBalancingLoadBalancerLBCookieStickinessPolicyCookieExpirationPeriod :: Maybe (Val Text) - , _elasticLoadBalancingLoadBalancerLBCookieStickinessPolicyPolicyName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingLoadBalancerLBCookieStickinessPolicy where - toJSON ElasticLoadBalancingLoadBalancerLBCookieStickinessPolicy{..} = - object $ - catMaybes - [ fmap (("CookieExpirationPeriod",) . toJSON) _elasticLoadBalancingLoadBalancerLBCookieStickinessPolicyCookieExpirationPeriod - , fmap (("PolicyName",) . toJSON) _elasticLoadBalancingLoadBalancerLBCookieStickinessPolicyPolicyName - ] - --- | Constructor for --- 'ElasticLoadBalancingLoadBalancerLBCookieStickinessPolicy' containing --- required fields as arguments. -elasticLoadBalancingLoadBalancerLBCookieStickinessPolicy - :: ElasticLoadBalancingLoadBalancerLBCookieStickinessPolicy -elasticLoadBalancingLoadBalancerLBCookieStickinessPolicy = - ElasticLoadBalancingLoadBalancerLBCookieStickinessPolicy - { _elasticLoadBalancingLoadBalancerLBCookieStickinessPolicyCookieExpirationPeriod = Nothing - , _elasticLoadBalancingLoadBalancerLBCookieStickinessPolicyPolicyName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-LBCookieStickinessPolicy.html#cfn-elb-lbcookiestickinesspolicy-cookieexpirationperiod -elblblbcspCookieExpirationPeriod :: Lens' ElasticLoadBalancingLoadBalancerLBCookieStickinessPolicy (Maybe (Val Text)) -elblblbcspCookieExpirationPeriod = lens _elasticLoadBalancingLoadBalancerLBCookieStickinessPolicyCookieExpirationPeriod (\s a -> s { _elasticLoadBalancingLoadBalancerLBCookieStickinessPolicyCookieExpirationPeriod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-LBCookieStickinessPolicy.html#cfn-elb-lbcookiestickinesspolicy-policyname -elblblbcspPolicyName :: Lens' ElasticLoadBalancingLoadBalancerLBCookieStickinessPolicy (Maybe (Val Text)) -elblblbcspPolicyName = lens _elasticLoadBalancingLoadBalancerLBCookieStickinessPolicyPolicyName (\s a -> s { _elasticLoadBalancingLoadBalancerLBCookieStickinessPolicyPolicyName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerListeners.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerListeners.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerListeners.hs +++ /dev/null @@ -1,77 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-listener.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerListeners where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ElasticLoadBalancingLoadBalancerListeners. --- See 'elasticLoadBalancingLoadBalancerListeners' for a more convenient --- constructor. -data ElasticLoadBalancingLoadBalancerListeners = - ElasticLoadBalancingLoadBalancerListeners - { _elasticLoadBalancingLoadBalancerListenersInstancePort :: Val Text - , _elasticLoadBalancingLoadBalancerListenersInstanceProtocol :: Maybe (Val Text) - , _elasticLoadBalancingLoadBalancerListenersLoadBalancerPort :: Val Text - , _elasticLoadBalancingLoadBalancerListenersPolicyNames :: Maybe (ValList Text) - , _elasticLoadBalancingLoadBalancerListenersProtocol :: Val Text - , _elasticLoadBalancingLoadBalancerListenersSSLCertificateId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingLoadBalancerListeners where - toJSON ElasticLoadBalancingLoadBalancerListeners{..} = - object $ - catMaybes - [ (Just . ("InstancePort",) . toJSON) _elasticLoadBalancingLoadBalancerListenersInstancePort - , fmap (("InstanceProtocol",) . toJSON) _elasticLoadBalancingLoadBalancerListenersInstanceProtocol - , (Just . ("LoadBalancerPort",) . toJSON) _elasticLoadBalancingLoadBalancerListenersLoadBalancerPort - , fmap (("PolicyNames",) . toJSON) _elasticLoadBalancingLoadBalancerListenersPolicyNames - , (Just . ("Protocol",) . toJSON) _elasticLoadBalancingLoadBalancerListenersProtocol - , fmap (("SSLCertificateId",) . toJSON) _elasticLoadBalancingLoadBalancerListenersSSLCertificateId - ] - --- | Constructor for 'ElasticLoadBalancingLoadBalancerListeners' containing --- required fields as arguments. -elasticLoadBalancingLoadBalancerListeners - :: Val Text -- ^ 'elblblInstancePort' - -> Val Text -- ^ 'elblblLoadBalancerPort' - -> Val Text -- ^ 'elblblProtocol' - -> ElasticLoadBalancingLoadBalancerListeners -elasticLoadBalancingLoadBalancerListeners instancePortarg loadBalancerPortarg protocolarg = - ElasticLoadBalancingLoadBalancerListeners - { _elasticLoadBalancingLoadBalancerListenersInstancePort = instancePortarg - , _elasticLoadBalancingLoadBalancerListenersInstanceProtocol = Nothing - , _elasticLoadBalancingLoadBalancerListenersLoadBalancerPort = loadBalancerPortarg - , _elasticLoadBalancingLoadBalancerListenersPolicyNames = Nothing - , _elasticLoadBalancingLoadBalancerListenersProtocol = protocolarg - , _elasticLoadBalancingLoadBalancerListenersSSLCertificateId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-listener.html#cfn-ec2-elb-listener-instanceport -elblblInstancePort :: Lens' ElasticLoadBalancingLoadBalancerListeners (Val Text) -elblblInstancePort = lens _elasticLoadBalancingLoadBalancerListenersInstancePort (\s a -> s { _elasticLoadBalancingLoadBalancerListenersInstancePort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-listener.html#cfn-ec2-elb-listener-instanceprotocol -elblblInstanceProtocol :: Lens' ElasticLoadBalancingLoadBalancerListeners (Maybe (Val Text)) -elblblInstanceProtocol = lens _elasticLoadBalancingLoadBalancerListenersInstanceProtocol (\s a -> s { _elasticLoadBalancingLoadBalancerListenersInstanceProtocol = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-listener.html#cfn-ec2-elb-listener-loadbalancerport -elblblLoadBalancerPort :: Lens' ElasticLoadBalancingLoadBalancerListeners (Val Text) -elblblLoadBalancerPort = lens _elasticLoadBalancingLoadBalancerListenersLoadBalancerPort (\s a -> s { _elasticLoadBalancingLoadBalancerListenersLoadBalancerPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-listener.html#cfn-ec2-elb-listener-policynames -elblblPolicyNames :: Lens' ElasticLoadBalancingLoadBalancerListeners (Maybe (ValList Text)) -elblblPolicyNames = lens _elasticLoadBalancingLoadBalancerListenersPolicyNames (\s a -> s { _elasticLoadBalancingLoadBalancerListenersPolicyNames = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-listener.html#cfn-ec2-elb-listener-protocol -elblblProtocol :: Lens' ElasticLoadBalancingLoadBalancerListeners (Val Text) -elblblProtocol = lens _elasticLoadBalancingLoadBalancerListenersProtocol (\s a -> s { _elasticLoadBalancingLoadBalancerListenersProtocol = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-listener.html#cfn-ec2-elb-listener-sslcertificateid -elblblSSLCertificateId :: Lens' ElasticLoadBalancingLoadBalancerListeners (Maybe (Val Text)) -elblblSSLCertificateId = lens _elasticLoadBalancingLoadBalancerListenersSSLCertificateId (\s a -> s { _elasticLoadBalancingLoadBalancerListenersSSLCertificateId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerPolicies.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerPolicies.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerPolicies.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-policy.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerPolicies where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ElasticLoadBalancingLoadBalancerPolicies. --- See 'elasticLoadBalancingLoadBalancerPolicies' for a more convenient --- constructor. -data ElasticLoadBalancingLoadBalancerPolicies = - ElasticLoadBalancingLoadBalancerPolicies - { _elasticLoadBalancingLoadBalancerPoliciesAttributes :: [Object] - , _elasticLoadBalancingLoadBalancerPoliciesInstancePorts :: Maybe (ValList Text) - , _elasticLoadBalancingLoadBalancerPoliciesLoadBalancerPorts :: Maybe (ValList Text) - , _elasticLoadBalancingLoadBalancerPoliciesPolicyName :: Val Text - , _elasticLoadBalancingLoadBalancerPoliciesPolicyType :: Val Text - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingLoadBalancerPolicies where - toJSON ElasticLoadBalancingLoadBalancerPolicies{..} = - object $ - catMaybes - [ (Just . ("Attributes",) . toJSON) _elasticLoadBalancingLoadBalancerPoliciesAttributes - , fmap (("InstancePorts",) . toJSON) _elasticLoadBalancingLoadBalancerPoliciesInstancePorts - , fmap (("LoadBalancerPorts",) . toJSON) _elasticLoadBalancingLoadBalancerPoliciesLoadBalancerPorts - , (Just . ("PolicyName",) . toJSON) _elasticLoadBalancingLoadBalancerPoliciesPolicyName - , (Just . ("PolicyType",) . toJSON) _elasticLoadBalancingLoadBalancerPoliciesPolicyType - ] - --- | Constructor for 'ElasticLoadBalancingLoadBalancerPolicies' containing --- required fields as arguments. -elasticLoadBalancingLoadBalancerPolicies - :: [Object] -- ^ 'elblbpAttributes' - -> Val Text -- ^ 'elblbpPolicyName' - -> Val Text -- ^ 'elblbpPolicyType' - -> ElasticLoadBalancingLoadBalancerPolicies -elasticLoadBalancingLoadBalancerPolicies attributesarg policyNamearg policyTypearg = - ElasticLoadBalancingLoadBalancerPolicies - { _elasticLoadBalancingLoadBalancerPoliciesAttributes = attributesarg - , _elasticLoadBalancingLoadBalancerPoliciesInstancePorts = Nothing - , _elasticLoadBalancingLoadBalancerPoliciesLoadBalancerPorts = Nothing - , _elasticLoadBalancingLoadBalancerPoliciesPolicyName = policyNamearg - , _elasticLoadBalancingLoadBalancerPoliciesPolicyType = policyTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-policy.html#cfn-ec2-elb-policy-attributes -elblbpAttributes :: Lens' ElasticLoadBalancingLoadBalancerPolicies [Object] -elblbpAttributes = lens _elasticLoadBalancingLoadBalancerPoliciesAttributes (\s a -> s { _elasticLoadBalancingLoadBalancerPoliciesAttributes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-policy.html#cfn-ec2-elb-policy-instanceports -elblbpInstancePorts :: Lens' ElasticLoadBalancingLoadBalancerPolicies (Maybe (ValList Text)) -elblbpInstancePorts = lens _elasticLoadBalancingLoadBalancerPoliciesInstancePorts (\s a -> s { _elasticLoadBalancingLoadBalancerPoliciesInstancePorts = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-policy.html#cfn-ec2-elb-policy-loadbalancerports -elblbpLoadBalancerPorts :: Lens' ElasticLoadBalancingLoadBalancerPolicies (Maybe (ValList Text)) -elblbpLoadBalancerPorts = lens _elasticLoadBalancingLoadBalancerPoliciesLoadBalancerPorts (\s a -> s { _elasticLoadBalancingLoadBalancerPoliciesLoadBalancerPorts = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-policy.html#cfn-ec2-elb-policy-policyname -elblbpPolicyName :: Lens' ElasticLoadBalancingLoadBalancerPolicies (Val Text) -elblbpPolicyName = lens _elasticLoadBalancingLoadBalancerPoliciesPolicyName (\s a -> s { _elasticLoadBalancingLoadBalancerPoliciesPolicyName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb-policy.html#cfn-ec2-elb-policy-policytype -elblbpPolicyType :: Lens' ElasticLoadBalancingLoadBalancerPolicies (Val Text) -elblbpPolicyType = lens _elasticLoadBalancingLoadBalancerPoliciesPolicyType (\s a -> s { _elasticLoadBalancingLoadBalancerPoliciesPolicyType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerAction.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerAction.hs +++ /dev/null @@ -1,92 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-defaultactions.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerAction where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerAuthenticateOidcConfig -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerFixedResponseConfig -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerForwardConfig -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRedirectConfig - --- | Full data type definition for ElasticLoadBalancingV2ListenerAction. See --- 'elasticLoadBalancingV2ListenerAction' for a more convenient constructor. -data ElasticLoadBalancingV2ListenerAction = - ElasticLoadBalancingV2ListenerAction - { _elasticLoadBalancingV2ListenerActionAuthenticateCognitoConfig :: Maybe ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig - , _elasticLoadBalancingV2ListenerActionAuthenticateOidcConfig :: Maybe ElasticLoadBalancingV2ListenerAuthenticateOidcConfig - , _elasticLoadBalancingV2ListenerActionFixedResponseConfig :: Maybe ElasticLoadBalancingV2ListenerFixedResponseConfig - , _elasticLoadBalancingV2ListenerActionForwardConfig :: Maybe ElasticLoadBalancingV2ListenerForwardConfig - , _elasticLoadBalancingV2ListenerActionOrder :: Maybe (Val Integer) - , _elasticLoadBalancingV2ListenerActionRedirectConfig :: Maybe ElasticLoadBalancingV2ListenerRedirectConfig - , _elasticLoadBalancingV2ListenerActionTargetGroupArn :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerActionType :: Val Text - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2ListenerAction where - toJSON ElasticLoadBalancingV2ListenerAction{..} = - object $ - catMaybes - [ fmap (("AuthenticateCognitoConfig",) . toJSON) _elasticLoadBalancingV2ListenerActionAuthenticateCognitoConfig - , fmap (("AuthenticateOidcConfig",) . toJSON) _elasticLoadBalancingV2ListenerActionAuthenticateOidcConfig - , fmap (("FixedResponseConfig",) . toJSON) _elasticLoadBalancingV2ListenerActionFixedResponseConfig - , fmap (("ForwardConfig",) . toJSON) _elasticLoadBalancingV2ListenerActionForwardConfig - , fmap (("Order",) . toJSON) _elasticLoadBalancingV2ListenerActionOrder - , fmap (("RedirectConfig",) . toJSON) _elasticLoadBalancingV2ListenerActionRedirectConfig - , fmap (("TargetGroupArn",) . toJSON) _elasticLoadBalancingV2ListenerActionTargetGroupArn - , (Just . ("Type",) . toJSON) _elasticLoadBalancingV2ListenerActionType - ] - --- | Constructor for 'ElasticLoadBalancingV2ListenerAction' containing --- required fields as arguments. -elasticLoadBalancingV2ListenerAction - :: Val Text -- ^ 'elbvlaType' - -> ElasticLoadBalancingV2ListenerAction -elasticLoadBalancingV2ListenerAction typearg = - ElasticLoadBalancingV2ListenerAction - { _elasticLoadBalancingV2ListenerActionAuthenticateCognitoConfig = Nothing - , _elasticLoadBalancingV2ListenerActionAuthenticateOidcConfig = Nothing - , _elasticLoadBalancingV2ListenerActionFixedResponseConfig = Nothing - , _elasticLoadBalancingV2ListenerActionForwardConfig = Nothing - , _elasticLoadBalancingV2ListenerActionOrder = Nothing - , _elasticLoadBalancingV2ListenerActionRedirectConfig = Nothing - , _elasticLoadBalancingV2ListenerActionTargetGroupArn = Nothing - , _elasticLoadBalancingV2ListenerActionType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-defaultactions.html#cfn-elasticloadbalancingv2-listener-action-authenticatecognitoconfig -elbvlaAuthenticateCognitoConfig :: Lens' ElasticLoadBalancingV2ListenerAction (Maybe ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig) -elbvlaAuthenticateCognitoConfig = lens _elasticLoadBalancingV2ListenerActionAuthenticateCognitoConfig (\s a -> s { _elasticLoadBalancingV2ListenerActionAuthenticateCognitoConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-defaultactions.html#cfn-elasticloadbalancingv2-listener-action-authenticateoidcconfig -elbvlaAuthenticateOidcConfig :: Lens' ElasticLoadBalancingV2ListenerAction (Maybe ElasticLoadBalancingV2ListenerAuthenticateOidcConfig) -elbvlaAuthenticateOidcConfig = lens _elasticLoadBalancingV2ListenerActionAuthenticateOidcConfig (\s a -> s { _elasticLoadBalancingV2ListenerActionAuthenticateOidcConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-defaultactions.html#cfn-elasticloadbalancingv2-listener-action-fixedresponseconfig -elbvlaFixedResponseConfig :: Lens' ElasticLoadBalancingV2ListenerAction (Maybe ElasticLoadBalancingV2ListenerFixedResponseConfig) -elbvlaFixedResponseConfig = lens _elasticLoadBalancingV2ListenerActionFixedResponseConfig (\s a -> s { _elasticLoadBalancingV2ListenerActionFixedResponseConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-defaultactions.html#cfn-elasticloadbalancingv2-listener-action-forwardconfig -elbvlaForwardConfig :: Lens' ElasticLoadBalancingV2ListenerAction (Maybe ElasticLoadBalancingV2ListenerForwardConfig) -elbvlaForwardConfig = lens _elasticLoadBalancingV2ListenerActionForwardConfig (\s a -> s { _elasticLoadBalancingV2ListenerActionForwardConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-defaultactions.html#cfn-elasticloadbalancingv2-listener-action-order -elbvlaOrder :: Lens' ElasticLoadBalancingV2ListenerAction (Maybe (Val Integer)) -elbvlaOrder = lens _elasticLoadBalancingV2ListenerActionOrder (\s a -> s { _elasticLoadBalancingV2ListenerActionOrder = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-defaultactions.html#cfn-elasticloadbalancingv2-listener-action-redirectconfig -elbvlaRedirectConfig :: Lens' ElasticLoadBalancingV2ListenerAction (Maybe ElasticLoadBalancingV2ListenerRedirectConfig) -elbvlaRedirectConfig = lens _elasticLoadBalancingV2ListenerActionRedirectConfig (\s a -> s { _elasticLoadBalancingV2ListenerActionRedirectConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-defaultactions.html#cfn-elasticloadbalancingv2-listener-defaultactions-targetgrouparn -elbvlaTargetGroupArn :: Lens' ElasticLoadBalancingV2ListenerAction (Maybe (Val Text)) -elbvlaTargetGroupArn = lens _elasticLoadBalancingV2ListenerActionTargetGroupArn (\s a -> s { _elasticLoadBalancingV2ListenerActionTargetGroupArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-defaultactions.html#cfn-elasticloadbalancingv2-listener-defaultactions-type -elbvlaType :: Lens' ElasticLoadBalancingV2ListenerAction (Val Text) -elbvlaType = lens _elasticLoadBalancingV2ListenerActionType (\s a -> s { _elasticLoadBalancingV2ListenerActionType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig.hs +++ /dev/null @@ -1,92 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-authenticatecognitoconfig.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig. See --- 'elasticLoadBalancingV2ListenerAuthenticateCognitoConfig' for a more --- convenient constructor. -data ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig = - ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig - { _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigAuthenticationRequestExtraParams :: Maybe Object - , _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigOnUnauthenticatedRequest :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigScope :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigSessionCookieName :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigSessionTimeout :: Maybe (Val Integer) - , _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigUserPoolArn :: Val Text - , _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigUserPoolClientId :: Val Text - , _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigUserPoolDomain :: Val Text - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig where - toJSON ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig{..} = - object $ - catMaybes - [ fmap (("AuthenticationRequestExtraParams",) . toJSON) _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigAuthenticationRequestExtraParams - , fmap (("OnUnauthenticatedRequest",) . toJSON) _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigOnUnauthenticatedRequest - , fmap (("Scope",) . toJSON) _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigScope - , fmap (("SessionCookieName",) . toJSON) _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigSessionCookieName - , fmap (("SessionTimeout",) . toJSON) _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigSessionTimeout - , (Just . ("UserPoolArn",) . toJSON) _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigUserPoolArn - , (Just . ("UserPoolClientId",) . toJSON) _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigUserPoolClientId - , (Just . ("UserPoolDomain",) . toJSON) _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigUserPoolDomain - ] - --- | Constructor for 'ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig' --- containing required fields as arguments. -elasticLoadBalancingV2ListenerAuthenticateCognitoConfig - :: Val Text -- ^ 'elbvlaccUserPoolArn' - -> Val Text -- ^ 'elbvlaccUserPoolClientId' - -> Val Text -- ^ 'elbvlaccUserPoolDomain' - -> ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig -elasticLoadBalancingV2ListenerAuthenticateCognitoConfig userPoolArnarg userPoolClientIdarg userPoolDomainarg = - ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig - { _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigAuthenticationRequestExtraParams = Nothing - , _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigOnUnauthenticatedRequest = Nothing - , _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigScope = Nothing - , _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigSessionCookieName = Nothing - , _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigSessionTimeout = Nothing - , _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigUserPoolArn = userPoolArnarg - , _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigUserPoolClientId = userPoolClientIdarg - , _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigUserPoolDomain = userPoolDomainarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-authenticatecognitoconfig.html#cfn-elasticloadbalancingv2-listener-authenticatecognitoconfig-authenticationrequestextraparams -elbvlaccAuthenticationRequestExtraParams :: Lens' ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig (Maybe Object) -elbvlaccAuthenticationRequestExtraParams = lens _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigAuthenticationRequestExtraParams (\s a -> s { _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigAuthenticationRequestExtraParams = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-authenticatecognitoconfig.html#cfn-elasticloadbalancingv2-listener-authenticatecognitoconfig-onunauthenticatedrequest -elbvlaccOnUnauthenticatedRequest :: Lens' ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig (Maybe (Val Text)) -elbvlaccOnUnauthenticatedRequest = lens _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigOnUnauthenticatedRequest (\s a -> s { _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigOnUnauthenticatedRequest = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-authenticatecognitoconfig.html#cfn-elasticloadbalancingv2-listener-authenticatecognitoconfig-scope -elbvlaccScope :: Lens' ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig (Maybe (Val Text)) -elbvlaccScope = lens _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigScope (\s a -> s { _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigScope = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-authenticatecognitoconfig.html#cfn-elasticloadbalancingv2-listener-authenticatecognitoconfig-sessioncookiename -elbvlaccSessionCookieName :: Lens' ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig (Maybe (Val Text)) -elbvlaccSessionCookieName = lens _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigSessionCookieName (\s a -> s { _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigSessionCookieName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-authenticatecognitoconfig.html#cfn-elasticloadbalancingv2-listener-authenticatecognitoconfig-sessiontimeout -elbvlaccSessionTimeout :: Lens' ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig (Maybe (Val Integer)) -elbvlaccSessionTimeout = lens _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigSessionTimeout (\s a -> s { _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigSessionTimeout = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-authenticatecognitoconfig.html#cfn-elasticloadbalancingv2-listener-authenticatecognitoconfig-userpoolarn -elbvlaccUserPoolArn :: Lens' ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig (Val Text) -elbvlaccUserPoolArn = lens _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigUserPoolArn (\s a -> s { _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigUserPoolArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-authenticatecognitoconfig.html#cfn-elasticloadbalancingv2-listener-authenticatecognitoconfig-userpoolclientid -elbvlaccUserPoolClientId :: Lens' ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig (Val Text) -elbvlaccUserPoolClientId = lens _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigUserPoolClientId (\s a -> s { _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigUserPoolClientId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-authenticatecognitoconfig.html#cfn-elasticloadbalancingv2-listener-authenticatecognitoconfig-userpooldomain -elbvlaccUserPoolDomain :: Lens' ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig (Val Text) -elbvlaccUserPoolDomain = lens _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigUserPoolDomain (\s a -> s { _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigUserPoolDomain = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerAuthenticateOidcConfig.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerAuthenticateOidcConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerAuthenticateOidcConfig.hs +++ /dev/null @@ -1,116 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-authenticateoidcconfig.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerAuthenticateOidcConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticLoadBalancingV2ListenerAuthenticateOidcConfig. See --- 'elasticLoadBalancingV2ListenerAuthenticateOidcConfig' for a more --- convenient constructor. -data ElasticLoadBalancingV2ListenerAuthenticateOidcConfig = - ElasticLoadBalancingV2ListenerAuthenticateOidcConfig - { _elasticLoadBalancingV2ListenerAuthenticateOidcConfigAuthenticationRequestExtraParams :: Maybe Object - , _elasticLoadBalancingV2ListenerAuthenticateOidcConfigAuthorizationEndpoint :: Val Text - , _elasticLoadBalancingV2ListenerAuthenticateOidcConfigClientId :: Val Text - , _elasticLoadBalancingV2ListenerAuthenticateOidcConfigClientSecret :: Val Text - , _elasticLoadBalancingV2ListenerAuthenticateOidcConfigIssuer :: Val Text - , _elasticLoadBalancingV2ListenerAuthenticateOidcConfigOnUnauthenticatedRequest :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerAuthenticateOidcConfigScope :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerAuthenticateOidcConfigSessionCookieName :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerAuthenticateOidcConfigSessionTimeout :: Maybe (Val Integer) - , _elasticLoadBalancingV2ListenerAuthenticateOidcConfigTokenEndpoint :: Val Text - , _elasticLoadBalancingV2ListenerAuthenticateOidcConfigUserInfoEndpoint :: Val Text - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2ListenerAuthenticateOidcConfig where - toJSON ElasticLoadBalancingV2ListenerAuthenticateOidcConfig{..} = - object $ - catMaybes - [ fmap (("AuthenticationRequestExtraParams",) . toJSON) _elasticLoadBalancingV2ListenerAuthenticateOidcConfigAuthenticationRequestExtraParams - , (Just . ("AuthorizationEndpoint",) . toJSON) _elasticLoadBalancingV2ListenerAuthenticateOidcConfigAuthorizationEndpoint - , (Just . ("ClientId",) . toJSON) _elasticLoadBalancingV2ListenerAuthenticateOidcConfigClientId - , (Just . ("ClientSecret",) . toJSON) _elasticLoadBalancingV2ListenerAuthenticateOidcConfigClientSecret - , (Just . ("Issuer",) . toJSON) _elasticLoadBalancingV2ListenerAuthenticateOidcConfigIssuer - , fmap (("OnUnauthenticatedRequest",) . toJSON) _elasticLoadBalancingV2ListenerAuthenticateOidcConfigOnUnauthenticatedRequest - , fmap (("Scope",) . toJSON) _elasticLoadBalancingV2ListenerAuthenticateOidcConfigScope - , fmap (("SessionCookieName",) . toJSON) _elasticLoadBalancingV2ListenerAuthenticateOidcConfigSessionCookieName - , fmap (("SessionTimeout",) . toJSON) _elasticLoadBalancingV2ListenerAuthenticateOidcConfigSessionTimeout - , (Just . ("TokenEndpoint",) . toJSON) _elasticLoadBalancingV2ListenerAuthenticateOidcConfigTokenEndpoint - , (Just . ("UserInfoEndpoint",) . toJSON) _elasticLoadBalancingV2ListenerAuthenticateOidcConfigUserInfoEndpoint - ] - --- | Constructor for 'ElasticLoadBalancingV2ListenerAuthenticateOidcConfig' --- containing required fields as arguments. -elasticLoadBalancingV2ListenerAuthenticateOidcConfig - :: Val Text -- ^ 'elbvlaocAuthorizationEndpoint' - -> Val Text -- ^ 'elbvlaocClientId' - -> Val Text -- ^ 'elbvlaocClientSecret' - -> Val Text -- ^ 'elbvlaocIssuer' - -> Val Text -- ^ 'elbvlaocTokenEndpoint' - -> Val Text -- ^ 'elbvlaocUserInfoEndpoint' - -> ElasticLoadBalancingV2ListenerAuthenticateOidcConfig -elasticLoadBalancingV2ListenerAuthenticateOidcConfig authorizationEndpointarg clientIdarg clientSecretarg issuerarg tokenEndpointarg userInfoEndpointarg = - ElasticLoadBalancingV2ListenerAuthenticateOidcConfig - { _elasticLoadBalancingV2ListenerAuthenticateOidcConfigAuthenticationRequestExtraParams = Nothing - , _elasticLoadBalancingV2ListenerAuthenticateOidcConfigAuthorizationEndpoint = authorizationEndpointarg - , _elasticLoadBalancingV2ListenerAuthenticateOidcConfigClientId = clientIdarg - , _elasticLoadBalancingV2ListenerAuthenticateOidcConfigClientSecret = clientSecretarg - , _elasticLoadBalancingV2ListenerAuthenticateOidcConfigIssuer = issuerarg - , _elasticLoadBalancingV2ListenerAuthenticateOidcConfigOnUnauthenticatedRequest = Nothing - , _elasticLoadBalancingV2ListenerAuthenticateOidcConfigScope = Nothing - , _elasticLoadBalancingV2ListenerAuthenticateOidcConfigSessionCookieName = Nothing - , _elasticLoadBalancingV2ListenerAuthenticateOidcConfigSessionTimeout = Nothing - , _elasticLoadBalancingV2ListenerAuthenticateOidcConfigTokenEndpoint = tokenEndpointarg - , _elasticLoadBalancingV2ListenerAuthenticateOidcConfigUserInfoEndpoint = userInfoEndpointarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-authenticateoidcconfig.html#cfn-elasticloadbalancingv2-listener-authenticateoidcconfig-authenticationrequestextraparams -elbvlaocAuthenticationRequestExtraParams :: Lens' ElasticLoadBalancingV2ListenerAuthenticateOidcConfig (Maybe Object) -elbvlaocAuthenticationRequestExtraParams = lens _elasticLoadBalancingV2ListenerAuthenticateOidcConfigAuthenticationRequestExtraParams (\s a -> s { _elasticLoadBalancingV2ListenerAuthenticateOidcConfigAuthenticationRequestExtraParams = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-authenticateoidcconfig.html#cfn-elasticloadbalancingv2-listener-authenticateoidcconfig-authorizationendpoint -elbvlaocAuthorizationEndpoint :: Lens' ElasticLoadBalancingV2ListenerAuthenticateOidcConfig (Val Text) -elbvlaocAuthorizationEndpoint = lens _elasticLoadBalancingV2ListenerAuthenticateOidcConfigAuthorizationEndpoint (\s a -> s { _elasticLoadBalancingV2ListenerAuthenticateOidcConfigAuthorizationEndpoint = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-authenticateoidcconfig.html#cfn-elasticloadbalancingv2-listener-authenticateoidcconfig-clientid -elbvlaocClientId :: Lens' ElasticLoadBalancingV2ListenerAuthenticateOidcConfig (Val Text) -elbvlaocClientId = lens _elasticLoadBalancingV2ListenerAuthenticateOidcConfigClientId (\s a -> s { _elasticLoadBalancingV2ListenerAuthenticateOidcConfigClientId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-authenticateoidcconfig.html#cfn-elasticloadbalancingv2-listener-authenticateoidcconfig-clientsecret -elbvlaocClientSecret :: Lens' ElasticLoadBalancingV2ListenerAuthenticateOidcConfig (Val Text) -elbvlaocClientSecret = lens _elasticLoadBalancingV2ListenerAuthenticateOidcConfigClientSecret (\s a -> s { _elasticLoadBalancingV2ListenerAuthenticateOidcConfigClientSecret = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-authenticateoidcconfig.html#cfn-elasticloadbalancingv2-listener-authenticateoidcconfig-issuer -elbvlaocIssuer :: Lens' ElasticLoadBalancingV2ListenerAuthenticateOidcConfig (Val Text) -elbvlaocIssuer = lens _elasticLoadBalancingV2ListenerAuthenticateOidcConfigIssuer (\s a -> s { _elasticLoadBalancingV2ListenerAuthenticateOidcConfigIssuer = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-authenticateoidcconfig.html#cfn-elasticloadbalancingv2-listener-authenticateoidcconfig-onunauthenticatedrequest -elbvlaocOnUnauthenticatedRequest :: Lens' ElasticLoadBalancingV2ListenerAuthenticateOidcConfig (Maybe (Val Text)) -elbvlaocOnUnauthenticatedRequest = lens _elasticLoadBalancingV2ListenerAuthenticateOidcConfigOnUnauthenticatedRequest (\s a -> s { _elasticLoadBalancingV2ListenerAuthenticateOidcConfigOnUnauthenticatedRequest = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-authenticateoidcconfig.html#cfn-elasticloadbalancingv2-listener-authenticateoidcconfig-scope -elbvlaocScope :: Lens' ElasticLoadBalancingV2ListenerAuthenticateOidcConfig (Maybe (Val Text)) -elbvlaocScope = lens _elasticLoadBalancingV2ListenerAuthenticateOidcConfigScope (\s a -> s { _elasticLoadBalancingV2ListenerAuthenticateOidcConfigScope = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-authenticateoidcconfig.html#cfn-elasticloadbalancingv2-listener-authenticateoidcconfig-sessioncookiename -elbvlaocSessionCookieName :: Lens' ElasticLoadBalancingV2ListenerAuthenticateOidcConfig (Maybe (Val Text)) -elbvlaocSessionCookieName = lens _elasticLoadBalancingV2ListenerAuthenticateOidcConfigSessionCookieName (\s a -> s { _elasticLoadBalancingV2ListenerAuthenticateOidcConfigSessionCookieName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-authenticateoidcconfig.html#cfn-elasticloadbalancingv2-listener-authenticateoidcconfig-sessiontimeout -elbvlaocSessionTimeout :: Lens' ElasticLoadBalancingV2ListenerAuthenticateOidcConfig (Maybe (Val Integer)) -elbvlaocSessionTimeout = lens _elasticLoadBalancingV2ListenerAuthenticateOidcConfigSessionTimeout (\s a -> s { _elasticLoadBalancingV2ListenerAuthenticateOidcConfigSessionTimeout = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-authenticateoidcconfig.html#cfn-elasticloadbalancingv2-listener-authenticateoidcconfig-tokenendpoint -elbvlaocTokenEndpoint :: Lens' ElasticLoadBalancingV2ListenerAuthenticateOidcConfig (Val Text) -elbvlaocTokenEndpoint = lens _elasticLoadBalancingV2ListenerAuthenticateOidcConfigTokenEndpoint (\s a -> s { _elasticLoadBalancingV2ListenerAuthenticateOidcConfigTokenEndpoint = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-authenticateoidcconfig.html#cfn-elasticloadbalancingv2-listener-authenticateoidcconfig-userinfoendpoint -elbvlaocUserInfoEndpoint :: Lens' ElasticLoadBalancingV2ListenerAuthenticateOidcConfig (Val Text) -elbvlaocUserInfoEndpoint = lens _elasticLoadBalancingV2ListenerAuthenticateOidcConfigUserInfoEndpoint (\s a -> s { _elasticLoadBalancingV2ListenerAuthenticateOidcConfigUserInfoEndpoint = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerCertificate.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerCertificate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerCertificate.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-certificates.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerCertificate where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ElasticLoadBalancingV2ListenerCertificate. --- See 'elasticLoadBalancingV2ListenerCertificate' for a more convenient --- constructor. -data ElasticLoadBalancingV2ListenerCertificate = - ElasticLoadBalancingV2ListenerCertificate - { _elasticLoadBalancingV2ListenerCertificateCertificateArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2ListenerCertificate where - toJSON ElasticLoadBalancingV2ListenerCertificate{..} = - object $ - catMaybes - [ fmap (("CertificateArn",) . toJSON) _elasticLoadBalancingV2ListenerCertificateCertificateArn - ] - --- | Constructor for 'ElasticLoadBalancingV2ListenerCertificate' containing --- required fields as arguments. -elasticLoadBalancingV2ListenerCertificate - :: ElasticLoadBalancingV2ListenerCertificate -elasticLoadBalancingV2ListenerCertificate = - ElasticLoadBalancingV2ListenerCertificate - { _elasticLoadBalancingV2ListenerCertificateCertificateArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-certificates.html#cfn-elasticloadbalancingv2-listener-certificates-certificatearn -elbvlcCertificateArn :: Lens' ElasticLoadBalancingV2ListenerCertificate (Maybe (Val Text)) -elbvlcCertificateArn = lens _elasticLoadBalancingV2ListenerCertificateCertificateArn (\s a -> s { _elasticLoadBalancingV2ListenerCertificateCertificateArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerCertificateCertificate.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerCertificateCertificate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerCertificateCertificate.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-certificates.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerCertificateCertificate where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticLoadBalancingV2ListenerCertificateCertificate. See --- 'elasticLoadBalancingV2ListenerCertificateCertificate' for a more --- convenient constructor. -data ElasticLoadBalancingV2ListenerCertificateCertificate = - ElasticLoadBalancingV2ListenerCertificateCertificate - { _elasticLoadBalancingV2ListenerCertificateCertificateCertificateArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2ListenerCertificateCertificate where - toJSON ElasticLoadBalancingV2ListenerCertificateCertificate{..} = - object $ - catMaybes - [ fmap (("CertificateArn",) . toJSON) _elasticLoadBalancingV2ListenerCertificateCertificateCertificateArn - ] - --- | Constructor for 'ElasticLoadBalancingV2ListenerCertificateCertificate' --- containing required fields as arguments. -elasticLoadBalancingV2ListenerCertificateCertificate - :: ElasticLoadBalancingV2ListenerCertificateCertificate -elasticLoadBalancingV2ListenerCertificateCertificate = - ElasticLoadBalancingV2ListenerCertificateCertificate - { _elasticLoadBalancingV2ListenerCertificateCertificateCertificateArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-certificates.html#cfn-elasticloadbalancingv2-listener-certificates-certificatearn -elbvlccCertificateArn :: Lens' ElasticLoadBalancingV2ListenerCertificateCertificate (Maybe (Val Text)) -elbvlccCertificateArn = lens _elasticLoadBalancingV2ListenerCertificateCertificateCertificateArn (\s a -> s { _elasticLoadBalancingV2ListenerCertificateCertificateCertificateArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerFixedResponseConfig.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerFixedResponseConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerFixedResponseConfig.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-fixedresponseconfig.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerFixedResponseConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticLoadBalancingV2ListenerFixedResponseConfig. See --- 'elasticLoadBalancingV2ListenerFixedResponseConfig' for a more convenient --- constructor. -data ElasticLoadBalancingV2ListenerFixedResponseConfig = - ElasticLoadBalancingV2ListenerFixedResponseConfig - { _elasticLoadBalancingV2ListenerFixedResponseConfigContentType :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerFixedResponseConfigMessageBody :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerFixedResponseConfigStatusCode :: Val Text - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2ListenerFixedResponseConfig where - toJSON ElasticLoadBalancingV2ListenerFixedResponseConfig{..} = - object $ - catMaybes - [ fmap (("ContentType",) . toJSON) _elasticLoadBalancingV2ListenerFixedResponseConfigContentType - , fmap (("MessageBody",) . toJSON) _elasticLoadBalancingV2ListenerFixedResponseConfigMessageBody - , (Just . ("StatusCode",) . toJSON) _elasticLoadBalancingV2ListenerFixedResponseConfigStatusCode - ] - --- | Constructor for 'ElasticLoadBalancingV2ListenerFixedResponseConfig' --- containing required fields as arguments. -elasticLoadBalancingV2ListenerFixedResponseConfig - :: Val Text -- ^ 'elbvlfrcStatusCode' - -> ElasticLoadBalancingV2ListenerFixedResponseConfig -elasticLoadBalancingV2ListenerFixedResponseConfig statusCodearg = - ElasticLoadBalancingV2ListenerFixedResponseConfig - { _elasticLoadBalancingV2ListenerFixedResponseConfigContentType = Nothing - , _elasticLoadBalancingV2ListenerFixedResponseConfigMessageBody = Nothing - , _elasticLoadBalancingV2ListenerFixedResponseConfigStatusCode = statusCodearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-fixedresponseconfig.html#cfn-elasticloadbalancingv2-listener-fixedresponseconfig-contenttype -elbvlfrcContentType :: Lens' ElasticLoadBalancingV2ListenerFixedResponseConfig (Maybe (Val Text)) -elbvlfrcContentType = lens _elasticLoadBalancingV2ListenerFixedResponseConfigContentType (\s a -> s { _elasticLoadBalancingV2ListenerFixedResponseConfigContentType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-fixedresponseconfig.html#cfn-elasticloadbalancingv2-listener-fixedresponseconfig-messagebody -elbvlfrcMessageBody :: Lens' ElasticLoadBalancingV2ListenerFixedResponseConfig (Maybe (Val Text)) -elbvlfrcMessageBody = lens _elasticLoadBalancingV2ListenerFixedResponseConfigMessageBody (\s a -> s { _elasticLoadBalancingV2ListenerFixedResponseConfigMessageBody = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-fixedresponseconfig.html#cfn-elasticloadbalancingv2-listener-fixedresponseconfig-statuscode -elbvlfrcStatusCode :: Lens' ElasticLoadBalancingV2ListenerFixedResponseConfig (Val Text) -elbvlfrcStatusCode = lens _elasticLoadBalancingV2ListenerFixedResponseConfigStatusCode (\s a -> s { _elasticLoadBalancingV2ListenerFixedResponseConfigStatusCode = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerForwardConfig.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerForwardConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerForwardConfig.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-forwardconfig.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerForwardConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerTargetGroupStickinessConfig -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerTargetGroupTuple - --- | Full data type definition for --- ElasticLoadBalancingV2ListenerForwardConfig. See --- 'elasticLoadBalancingV2ListenerForwardConfig' for a more convenient --- constructor. -data ElasticLoadBalancingV2ListenerForwardConfig = - ElasticLoadBalancingV2ListenerForwardConfig - { _elasticLoadBalancingV2ListenerForwardConfigTargetGroupStickinessConfig :: Maybe ElasticLoadBalancingV2ListenerTargetGroupStickinessConfig - , _elasticLoadBalancingV2ListenerForwardConfigTargetGroups :: Maybe [ElasticLoadBalancingV2ListenerTargetGroupTuple] - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2ListenerForwardConfig where - toJSON ElasticLoadBalancingV2ListenerForwardConfig{..} = - object $ - catMaybes - [ fmap (("TargetGroupStickinessConfig",) . toJSON) _elasticLoadBalancingV2ListenerForwardConfigTargetGroupStickinessConfig - , fmap (("TargetGroups",) . toJSON) _elasticLoadBalancingV2ListenerForwardConfigTargetGroups - ] - --- | Constructor for 'ElasticLoadBalancingV2ListenerForwardConfig' containing --- required fields as arguments. -elasticLoadBalancingV2ListenerForwardConfig - :: ElasticLoadBalancingV2ListenerForwardConfig -elasticLoadBalancingV2ListenerForwardConfig = - ElasticLoadBalancingV2ListenerForwardConfig - { _elasticLoadBalancingV2ListenerForwardConfigTargetGroupStickinessConfig = Nothing - , _elasticLoadBalancingV2ListenerForwardConfigTargetGroups = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-forwardconfig.html#cfn-elasticloadbalancingv2-listener-forwardconfig-targetgroupstickinessconfig -elbvlfcTargetGroupStickinessConfig :: Lens' ElasticLoadBalancingV2ListenerForwardConfig (Maybe ElasticLoadBalancingV2ListenerTargetGroupStickinessConfig) -elbvlfcTargetGroupStickinessConfig = lens _elasticLoadBalancingV2ListenerForwardConfigTargetGroupStickinessConfig (\s a -> s { _elasticLoadBalancingV2ListenerForwardConfigTargetGroupStickinessConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-forwardconfig.html#cfn-elasticloadbalancingv2-listener-forwardconfig-targetgroups -elbvlfcTargetGroups :: Lens' ElasticLoadBalancingV2ListenerForwardConfig (Maybe [ElasticLoadBalancingV2ListenerTargetGroupTuple]) -elbvlfcTargetGroups = lens _elasticLoadBalancingV2ListenerForwardConfigTargetGroups (\s a -> s { _elasticLoadBalancingV2ListenerForwardConfigTargetGroups = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRedirectConfig.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRedirectConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRedirectConfig.hs +++ /dev/null @@ -1,76 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-redirectconfig.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRedirectConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticLoadBalancingV2ListenerRedirectConfig. See --- 'elasticLoadBalancingV2ListenerRedirectConfig' for a more convenient --- constructor. -data ElasticLoadBalancingV2ListenerRedirectConfig = - ElasticLoadBalancingV2ListenerRedirectConfig - { _elasticLoadBalancingV2ListenerRedirectConfigHost :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerRedirectConfigPath :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerRedirectConfigPort :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerRedirectConfigProtocol :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerRedirectConfigQuery :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerRedirectConfigStatusCode :: Val Text - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2ListenerRedirectConfig where - toJSON ElasticLoadBalancingV2ListenerRedirectConfig{..} = - object $ - catMaybes - [ fmap (("Host",) . toJSON) _elasticLoadBalancingV2ListenerRedirectConfigHost - , fmap (("Path",) . toJSON) _elasticLoadBalancingV2ListenerRedirectConfigPath - , fmap (("Port",) . toJSON) _elasticLoadBalancingV2ListenerRedirectConfigPort - , fmap (("Protocol",) . toJSON) _elasticLoadBalancingV2ListenerRedirectConfigProtocol - , fmap (("Query",) . toJSON) _elasticLoadBalancingV2ListenerRedirectConfigQuery - , (Just . ("StatusCode",) . toJSON) _elasticLoadBalancingV2ListenerRedirectConfigStatusCode - ] - --- | Constructor for 'ElasticLoadBalancingV2ListenerRedirectConfig' containing --- required fields as arguments. -elasticLoadBalancingV2ListenerRedirectConfig - :: Val Text -- ^ 'elbvlrcStatusCode' - -> ElasticLoadBalancingV2ListenerRedirectConfig -elasticLoadBalancingV2ListenerRedirectConfig statusCodearg = - ElasticLoadBalancingV2ListenerRedirectConfig - { _elasticLoadBalancingV2ListenerRedirectConfigHost = Nothing - , _elasticLoadBalancingV2ListenerRedirectConfigPath = Nothing - , _elasticLoadBalancingV2ListenerRedirectConfigPort = Nothing - , _elasticLoadBalancingV2ListenerRedirectConfigProtocol = Nothing - , _elasticLoadBalancingV2ListenerRedirectConfigQuery = Nothing - , _elasticLoadBalancingV2ListenerRedirectConfigStatusCode = statusCodearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-redirectconfig.html#cfn-elasticloadbalancingv2-listener-redirectconfig-host -elbvlrcHost :: Lens' ElasticLoadBalancingV2ListenerRedirectConfig (Maybe (Val Text)) -elbvlrcHost = lens _elasticLoadBalancingV2ListenerRedirectConfigHost (\s a -> s { _elasticLoadBalancingV2ListenerRedirectConfigHost = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-redirectconfig.html#cfn-elasticloadbalancingv2-listener-redirectconfig-path -elbvlrcPath :: Lens' ElasticLoadBalancingV2ListenerRedirectConfig (Maybe (Val Text)) -elbvlrcPath = lens _elasticLoadBalancingV2ListenerRedirectConfigPath (\s a -> s { _elasticLoadBalancingV2ListenerRedirectConfigPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-redirectconfig.html#cfn-elasticloadbalancingv2-listener-redirectconfig-port -elbvlrcPort :: Lens' ElasticLoadBalancingV2ListenerRedirectConfig (Maybe (Val Text)) -elbvlrcPort = lens _elasticLoadBalancingV2ListenerRedirectConfigPort (\s a -> s { _elasticLoadBalancingV2ListenerRedirectConfigPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-redirectconfig.html#cfn-elasticloadbalancingv2-listener-redirectconfig-protocol -elbvlrcProtocol :: Lens' ElasticLoadBalancingV2ListenerRedirectConfig (Maybe (Val Text)) -elbvlrcProtocol = lens _elasticLoadBalancingV2ListenerRedirectConfigProtocol (\s a -> s { _elasticLoadBalancingV2ListenerRedirectConfigProtocol = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-redirectconfig.html#cfn-elasticloadbalancingv2-listener-redirectconfig-query -elbvlrcQuery :: Lens' ElasticLoadBalancingV2ListenerRedirectConfig (Maybe (Val Text)) -elbvlrcQuery = lens _elasticLoadBalancingV2ListenerRedirectConfigQuery (\s a -> s { _elasticLoadBalancingV2ListenerRedirectConfigQuery = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-redirectconfig.html#cfn-elasticloadbalancingv2-listener-redirectconfig-statuscode -elbvlrcStatusCode :: Lens' ElasticLoadBalancingV2ListenerRedirectConfig (Val Text) -elbvlrcStatusCode = lens _elasticLoadBalancingV2ListenerRedirectConfigStatusCode (\s a -> s { _elasticLoadBalancingV2ListenerRedirectConfigStatusCode = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleAction.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleAction.hs +++ /dev/null @@ -1,93 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-actions.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleAction where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleFixedResponseConfig -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleForwardConfig -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleRedirectConfig - --- | Full data type definition for ElasticLoadBalancingV2ListenerRuleAction. --- See 'elasticLoadBalancingV2ListenerRuleAction' for a more convenient --- constructor. -data ElasticLoadBalancingV2ListenerRuleAction = - ElasticLoadBalancingV2ListenerRuleAction - { _elasticLoadBalancingV2ListenerRuleActionAuthenticateCognitoConfig :: Maybe ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig - , _elasticLoadBalancingV2ListenerRuleActionAuthenticateOidcConfig :: Maybe ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig - , _elasticLoadBalancingV2ListenerRuleActionFixedResponseConfig :: Maybe ElasticLoadBalancingV2ListenerRuleFixedResponseConfig - , _elasticLoadBalancingV2ListenerRuleActionForwardConfig :: Maybe ElasticLoadBalancingV2ListenerRuleForwardConfig - , _elasticLoadBalancingV2ListenerRuleActionOrder :: Maybe (Val Integer) - , _elasticLoadBalancingV2ListenerRuleActionRedirectConfig :: Maybe ElasticLoadBalancingV2ListenerRuleRedirectConfig - , _elasticLoadBalancingV2ListenerRuleActionTargetGroupArn :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerRuleActionType :: Val Text - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2ListenerRuleAction where - toJSON ElasticLoadBalancingV2ListenerRuleAction{..} = - object $ - catMaybes - [ fmap (("AuthenticateCognitoConfig",) . toJSON) _elasticLoadBalancingV2ListenerRuleActionAuthenticateCognitoConfig - , fmap (("AuthenticateOidcConfig",) . toJSON) _elasticLoadBalancingV2ListenerRuleActionAuthenticateOidcConfig - , fmap (("FixedResponseConfig",) . toJSON) _elasticLoadBalancingV2ListenerRuleActionFixedResponseConfig - , fmap (("ForwardConfig",) . toJSON) _elasticLoadBalancingV2ListenerRuleActionForwardConfig - , fmap (("Order",) . toJSON) _elasticLoadBalancingV2ListenerRuleActionOrder - , fmap (("RedirectConfig",) . toJSON) _elasticLoadBalancingV2ListenerRuleActionRedirectConfig - , fmap (("TargetGroupArn",) . toJSON) _elasticLoadBalancingV2ListenerRuleActionTargetGroupArn - , (Just . ("Type",) . toJSON) _elasticLoadBalancingV2ListenerRuleActionType - ] - --- | Constructor for 'ElasticLoadBalancingV2ListenerRuleAction' containing --- required fields as arguments. -elasticLoadBalancingV2ListenerRuleAction - :: Val Text -- ^ 'elbvlraType' - -> ElasticLoadBalancingV2ListenerRuleAction -elasticLoadBalancingV2ListenerRuleAction typearg = - ElasticLoadBalancingV2ListenerRuleAction - { _elasticLoadBalancingV2ListenerRuleActionAuthenticateCognitoConfig = Nothing - , _elasticLoadBalancingV2ListenerRuleActionAuthenticateOidcConfig = Nothing - , _elasticLoadBalancingV2ListenerRuleActionFixedResponseConfig = Nothing - , _elasticLoadBalancingV2ListenerRuleActionForwardConfig = Nothing - , _elasticLoadBalancingV2ListenerRuleActionOrder = Nothing - , _elasticLoadBalancingV2ListenerRuleActionRedirectConfig = Nothing - , _elasticLoadBalancingV2ListenerRuleActionTargetGroupArn = Nothing - , _elasticLoadBalancingV2ListenerRuleActionType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-actions.html#cfn-elasticloadbalancingv2-listenerrule-action-authenticatecognitoconfig -elbvlraAuthenticateCognitoConfig :: Lens' ElasticLoadBalancingV2ListenerRuleAction (Maybe ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig) -elbvlraAuthenticateCognitoConfig = lens _elasticLoadBalancingV2ListenerRuleActionAuthenticateCognitoConfig (\s a -> s { _elasticLoadBalancingV2ListenerRuleActionAuthenticateCognitoConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-actions.html#cfn-elasticloadbalancingv2-listenerrule-action-authenticateoidcconfig -elbvlraAuthenticateOidcConfig :: Lens' ElasticLoadBalancingV2ListenerRuleAction (Maybe ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig) -elbvlraAuthenticateOidcConfig = lens _elasticLoadBalancingV2ListenerRuleActionAuthenticateOidcConfig (\s a -> s { _elasticLoadBalancingV2ListenerRuleActionAuthenticateOidcConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-actions.html#cfn-elasticloadbalancingv2-listenerrule-action-fixedresponseconfig -elbvlraFixedResponseConfig :: Lens' ElasticLoadBalancingV2ListenerRuleAction (Maybe ElasticLoadBalancingV2ListenerRuleFixedResponseConfig) -elbvlraFixedResponseConfig = lens _elasticLoadBalancingV2ListenerRuleActionFixedResponseConfig (\s a -> s { _elasticLoadBalancingV2ListenerRuleActionFixedResponseConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-actions.html#cfn-elasticloadbalancingv2-listenerrule-action-forwardconfig -elbvlraForwardConfig :: Lens' ElasticLoadBalancingV2ListenerRuleAction (Maybe ElasticLoadBalancingV2ListenerRuleForwardConfig) -elbvlraForwardConfig = lens _elasticLoadBalancingV2ListenerRuleActionForwardConfig (\s a -> s { _elasticLoadBalancingV2ListenerRuleActionForwardConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-actions.html#cfn-elasticloadbalancingv2-listenerrule-action-order -elbvlraOrder :: Lens' ElasticLoadBalancingV2ListenerRuleAction (Maybe (Val Integer)) -elbvlraOrder = lens _elasticLoadBalancingV2ListenerRuleActionOrder (\s a -> s { _elasticLoadBalancingV2ListenerRuleActionOrder = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-actions.html#cfn-elasticloadbalancingv2-listenerrule-action-redirectconfig -elbvlraRedirectConfig :: Lens' ElasticLoadBalancingV2ListenerRuleAction (Maybe ElasticLoadBalancingV2ListenerRuleRedirectConfig) -elbvlraRedirectConfig = lens _elasticLoadBalancingV2ListenerRuleActionRedirectConfig (\s a -> s { _elasticLoadBalancingV2ListenerRuleActionRedirectConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-actions.html#cfn-elasticloadbalancingv2-listener-actions-targetgrouparn -elbvlraTargetGroupArn :: Lens' ElasticLoadBalancingV2ListenerRuleAction (Maybe (Val Text)) -elbvlraTargetGroupArn = lens _elasticLoadBalancingV2ListenerRuleActionTargetGroupArn (\s a -> s { _elasticLoadBalancingV2ListenerRuleActionTargetGroupArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-actions.html#cfn-elasticloadbalancingv2-listener-actions-type -elbvlraType :: Lens' ElasticLoadBalancingV2ListenerRuleAction (Val Text) -elbvlraType = lens _elasticLoadBalancingV2ListenerRuleActionType (\s a -> s { _elasticLoadBalancingV2ListenerRuleActionType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig.hs +++ /dev/null @@ -1,93 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-authenticatecognitoconfig.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig. See --- 'elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig' for a more --- convenient constructor. -data ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig = - ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig - { _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigAuthenticationRequestExtraParams :: Maybe Object - , _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigOnUnauthenticatedRequest :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigScope :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigSessionCookieName :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigSessionTimeout :: Maybe (Val Integer) - , _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigUserPoolArn :: Val Text - , _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigUserPoolClientId :: Val Text - , _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigUserPoolDomain :: Val Text - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig where - toJSON ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig{..} = - object $ - catMaybes - [ fmap (("AuthenticationRequestExtraParams",) . toJSON) _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigAuthenticationRequestExtraParams - , fmap (("OnUnauthenticatedRequest",) . toJSON) _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigOnUnauthenticatedRequest - , fmap (("Scope",) . toJSON) _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigScope - , fmap (("SessionCookieName",) . toJSON) _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigSessionCookieName - , fmap (("SessionTimeout",) . toJSON) _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigSessionTimeout - , (Just . ("UserPoolArn",) . toJSON) _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigUserPoolArn - , (Just . ("UserPoolClientId",) . toJSON) _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigUserPoolClientId - , (Just . ("UserPoolDomain",) . toJSON) _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigUserPoolDomain - ] - --- | Constructor for --- 'ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig' containing --- required fields as arguments. -elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig - :: Val Text -- ^ 'elbvlraccUserPoolArn' - -> Val Text -- ^ 'elbvlraccUserPoolClientId' - -> Val Text -- ^ 'elbvlraccUserPoolDomain' - -> ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig -elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig userPoolArnarg userPoolClientIdarg userPoolDomainarg = - ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig - { _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigAuthenticationRequestExtraParams = Nothing - , _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigOnUnauthenticatedRequest = Nothing - , _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigScope = Nothing - , _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigSessionCookieName = Nothing - , _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigSessionTimeout = Nothing - , _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigUserPoolArn = userPoolArnarg - , _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigUserPoolClientId = userPoolClientIdarg - , _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigUserPoolDomain = userPoolDomainarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-authenticatecognitoconfig.html#cfn-elasticloadbalancingv2-listenerrule-authenticatecognitoconfig-authenticationrequestextraparams -elbvlraccAuthenticationRequestExtraParams :: Lens' ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig (Maybe Object) -elbvlraccAuthenticationRequestExtraParams = lens _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigAuthenticationRequestExtraParams (\s a -> s { _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigAuthenticationRequestExtraParams = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-authenticatecognitoconfig.html#cfn-elasticloadbalancingv2-listenerrule-authenticatecognitoconfig-onunauthenticatedrequest -elbvlraccOnUnauthenticatedRequest :: Lens' ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig (Maybe (Val Text)) -elbvlraccOnUnauthenticatedRequest = lens _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigOnUnauthenticatedRequest (\s a -> s { _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigOnUnauthenticatedRequest = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-authenticatecognitoconfig.html#cfn-elasticloadbalancingv2-listenerrule-authenticatecognitoconfig-scope -elbvlraccScope :: Lens' ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig (Maybe (Val Text)) -elbvlraccScope = lens _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigScope (\s a -> s { _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigScope = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-authenticatecognitoconfig.html#cfn-elasticloadbalancingv2-listenerrule-authenticatecognitoconfig-sessioncookiename -elbvlraccSessionCookieName :: Lens' ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig (Maybe (Val Text)) -elbvlraccSessionCookieName = lens _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigSessionCookieName (\s a -> s { _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigSessionCookieName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-authenticatecognitoconfig.html#cfn-elasticloadbalancingv2-listenerrule-authenticatecognitoconfig-sessiontimeout -elbvlraccSessionTimeout :: Lens' ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig (Maybe (Val Integer)) -elbvlraccSessionTimeout = lens _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigSessionTimeout (\s a -> s { _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigSessionTimeout = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-authenticatecognitoconfig.html#cfn-elasticloadbalancingv2-listenerrule-authenticatecognitoconfig-userpoolarn -elbvlraccUserPoolArn :: Lens' ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig (Val Text) -elbvlraccUserPoolArn = lens _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigUserPoolArn (\s a -> s { _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigUserPoolArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-authenticatecognitoconfig.html#cfn-elasticloadbalancingv2-listenerrule-authenticatecognitoconfig-userpoolclientid -elbvlraccUserPoolClientId :: Lens' ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig (Val Text) -elbvlraccUserPoolClientId = lens _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigUserPoolClientId (\s a -> s { _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigUserPoolClientId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-authenticatecognitoconfig.html#cfn-elasticloadbalancingv2-listenerrule-authenticatecognitoconfig-userpooldomain -elbvlraccUserPoolDomain :: Lens' ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig (Val Text) -elbvlraccUserPoolDomain = lens _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigUserPoolDomain (\s a -> s { _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigUserPoolDomain = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig.hs +++ /dev/null @@ -1,117 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-authenticateoidcconfig.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig. See --- 'elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig' for a more --- convenient constructor. -data ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig = - ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig - { _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigAuthenticationRequestExtraParams :: Maybe Object - , _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigAuthorizationEndpoint :: Val Text - , _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigClientId :: Val Text - , _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigClientSecret :: Val Text - , _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigIssuer :: Val Text - , _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigOnUnauthenticatedRequest :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigScope :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigSessionCookieName :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigSessionTimeout :: Maybe (Val Integer) - , _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigTokenEndpoint :: Val Text - , _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigUserInfoEndpoint :: Val Text - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig where - toJSON ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig{..} = - object $ - catMaybes - [ fmap (("AuthenticationRequestExtraParams",) . toJSON) _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigAuthenticationRequestExtraParams - , (Just . ("AuthorizationEndpoint",) . toJSON) _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigAuthorizationEndpoint - , (Just . ("ClientId",) . toJSON) _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigClientId - , (Just . ("ClientSecret",) . toJSON) _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigClientSecret - , (Just . ("Issuer",) . toJSON) _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigIssuer - , fmap (("OnUnauthenticatedRequest",) . toJSON) _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigOnUnauthenticatedRequest - , fmap (("Scope",) . toJSON) _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigScope - , fmap (("SessionCookieName",) . toJSON) _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigSessionCookieName - , fmap (("SessionTimeout",) . toJSON) _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigSessionTimeout - , (Just . ("TokenEndpoint",) . toJSON) _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigTokenEndpoint - , (Just . ("UserInfoEndpoint",) . toJSON) _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigUserInfoEndpoint - ] - --- | Constructor for --- 'ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig' containing --- required fields as arguments. -elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig - :: Val Text -- ^ 'elbvlraocAuthorizationEndpoint' - -> Val Text -- ^ 'elbvlraocClientId' - -> Val Text -- ^ 'elbvlraocClientSecret' - -> Val Text -- ^ 'elbvlraocIssuer' - -> Val Text -- ^ 'elbvlraocTokenEndpoint' - -> Val Text -- ^ 'elbvlraocUserInfoEndpoint' - -> ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig -elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig authorizationEndpointarg clientIdarg clientSecretarg issuerarg tokenEndpointarg userInfoEndpointarg = - ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig - { _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigAuthenticationRequestExtraParams = Nothing - , _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigAuthorizationEndpoint = authorizationEndpointarg - , _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigClientId = clientIdarg - , _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigClientSecret = clientSecretarg - , _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigIssuer = issuerarg - , _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigOnUnauthenticatedRequest = Nothing - , _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigScope = Nothing - , _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigSessionCookieName = Nothing - , _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigSessionTimeout = Nothing - , _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigTokenEndpoint = tokenEndpointarg - , _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigUserInfoEndpoint = userInfoEndpointarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-authenticateoidcconfig.html#cfn-elasticloadbalancingv2-listenerrule-authenticateoidcconfig-authenticationrequestextraparams -elbvlraocAuthenticationRequestExtraParams :: Lens' ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig (Maybe Object) -elbvlraocAuthenticationRequestExtraParams = lens _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigAuthenticationRequestExtraParams (\s a -> s { _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigAuthenticationRequestExtraParams = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-authenticateoidcconfig.html#cfn-elasticloadbalancingv2-listenerrule-authenticateoidcconfig-authorizationendpoint -elbvlraocAuthorizationEndpoint :: Lens' ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig (Val Text) -elbvlraocAuthorizationEndpoint = lens _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigAuthorizationEndpoint (\s a -> s { _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigAuthorizationEndpoint = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-authenticateoidcconfig.html#cfn-elasticloadbalancingv2-listenerrule-authenticateoidcconfig-clientid -elbvlraocClientId :: Lens' ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig (Val Text) -elbvlraocClientId = lens _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigClientId (\s a -> s { _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigClientId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-authenticateoidcconfig.html#cfn-elasticloadbalancingv2-listenerrule-authenticateoidcconfig-clientsecret -elbvlraocClientSecret :: Lens' ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig (Val Text) -elbvlraocClientSecret = lens _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigClientSecret (\s a -> s { _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigClientSecret = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-authenticateoidcconfig.html#cfn-elasticloadbalancingv2-listenerrule-authenticateoidcconfig-issuer -elbvlraocIssuer :: Lens' ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig (Val Text) -elbvlraocIssuer = lens _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigIssuer (\s a -> s { _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigIssuer = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-authenticateoidcconfig.html#cfn-elasticloadbalancingv2-listenerrule-authenticateoidcconfig-onunauthenticatedrequest -elbvlraocOnUnauthenticatedRequest :: Lens' ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig (Maybe (Val Text)) -elbvlraocOnUnauthenticatedRequest = lens _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigOnUnauthenticatedRequest (\s a -> s { _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigOnUnauthenticatedRequest = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-authenticateoidcconfig.html#cfn-elasticloadbalancingv2-listenerrule-authenticateoidcconfig-scope -elbvlraocScope :: Lens' ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig (Maybe (Val Text)) -elbvlraocScope = lens _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigScope (\s a -> s { _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigScope = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-authenticateoidcconfig.html#cfn-elasticloadbalancingv2-listenerrule-authenticateoidcconfig-sessioncookiename -elbvlraocSessionCookieName :: Lens' ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig (Maybe (Val Text)) -elbvlraocSessionCookieName = lens _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigSessionCookieName (\s a -> s { _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigSessionCookieName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-authenticateoidcconfig.html#cfn-elasticloadbalancingv2-listenerrule-authenticateoidcconfig-sessiontimeout -elbvlraocSessionTimeout :: Lens' ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig (Maybe (Val Integer)) -elbvlraocSessionTimeout = lens _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigSessionTimeout (\s a -> s { _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigSessionTimeout = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-authenticateoidcconfig.html#cfn-elasticloadbalancingv2-listenerrule-authenticateoidcconfig-tokenendpoint -elbvlraocTokenEndpoint :: Lens' ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig (Val Text) -elbvlraocTokenEndpoint = lens _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigTokenEndpoint (\s a -> s { _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigTokenEndpoint = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-authenticateoidcconfig.html#cfn-elasticloadbalancingv2-listenerrule-authenticateoidcconfig-userinfoendpoint -elbvlraocUserInfoEndpoint :: Lens' ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig (Val Text) -elbvlraocUserInfoEndpoint = lens _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigUserInfoEndpoint (\s a -> s { _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigUserInfoEndpoint = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleFixedResponseConfig.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleFixedResponseConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleFixedResponseConfig.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-fixedresponseconfig.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleFixedResponseConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticLoadBalancingV2ListenerRuleFixedResponseConfig. See --- 'elasticLoadBalancingV2ListenerRuleFixedResponseConfig' for a more --- convenient constructor. -data ElasticLoadBalancingV2ListenerRuleFixedResponseConfig = - ElasticLoadBalancingV2ListenerRuleFixedResponseConfig - { _elasticLoadBalancingV2ListenerRuleFixedResponseConfigContentType :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerRuleFixedResponseConfigMessageBody :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerRuleFixedResponseConfigStatusCode :: Val Text - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2ListenerRuleFixedResponseConfig where - toJSON ElasticLoadBalancingV2ListenerRuleFixedResponseConfig{..} = - object $ - catMaybes - [ fmap (("ContentType",) . toJSON) _elasticLoadBalancingV2ListenerRuleFixedResponseConfigContentType - , fmap (("MessageBody",) . toJSON) _elasticLoadBalancingV2ListenerRuleFixedResponseConfigMessageBody - , (Just . ("StatusCode",) . toJSON) _elasticLoadBalancingV2ListenerRuleFixedResponseConfigStatusCode - ] - --- | Constructor for 'ElasticLoadBalancingV2ListenerRuleFixedResponseConfig' --- containing required fields as arguments. -elasticLoadBalancingV2ListenerRuleFixedResponseConfig - :: Val Text -- ^ 'elbvlrfrcStatusCode' - -> ElasticLoadBalancingV2ListenerRuleFixedResponseConfig -elasticLoadBalancingV2ListenerRuleFixedResponseConfig statusCodearg = - ElasticLoadBalancingV2ListenerRuleFixedResponseConfig - { _elasticLoadBalancingV2ListenerRuleFixedResponseConfigContentType = Nothing - , _elasticLoadBalancingV2ListenerRuleFixedResponseConfigMessageBody = Nothing - , _elasticLoadBalancingV2ListenerRuleFixedResponseConfigStatusCode = statusCodearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-fixedresponseconfig.html#cfn-elasticloadbalancingv2-listenerrule-fixedresponseconfig-contenttype -elbvlrfrcContentType :: Lens' ElasticLoadBalancingV2ListenerRuleFixedResponseConfig (Maybe (Val Text)) -elbvlrfrcContentType = lens _elasticLoadBalancingV2ListenerRuleFixedResponseConfigContentType (\s a -> s { _elasticLoadBalancingV2ListenerRuleFixedResponseConfigContentType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-fixedresponseconfig.html#cfn-elasticloadbalancingv2-listenerrule-fixedresponseconfig-messagebody -elbvlrfrcMessageBody :: Lens' ElasticLoadBalancingV2ListenerRuleFixedResponseConfig (Maybe (Val Text)) -elbvlrfrcMessageBody = lens _elasticLoadBalancingV2ListenerRuleFixedResponseConfigMessageBody (\s a -> s { _elasticLoadBalancingV2ListenerRuleFixedResponseConfigMessageBody = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-fixedresponseconfig.html#cfn-elasticloadbalancingv2-listenerrule-fixedresponseconfig-statuscode -elbvlrfrcStatusCode :: Lens' ElasticLoadBalancingV2ListenerRuleFixedResponseConfig (Val Text) -elbvlrfrcStatusCode = lens _elasticLoadBalancingV2ListenerRuleFixedResponseConfigStatusCode (\s a -> s { _elasticLoadBalancingV2ListenerRuleFixedResponseConfigStatusCode = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleForwardConfig.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleForwardConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleForwardConfig.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-forwardconfig.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleForwardConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfig -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleTargetGroupTuple - --- | Full data type definition for --- ElasticLoadBalancingV2ListenerRuleForwardConfig. See --- 'elasticLoadBalancingV2ListenerRuleForwardConfig' for a more convenient --- constructor. -data ElasticLoadBalancingV2ListenerRuleForwardConfig = - ElasticLoadBalancingV2ListenerRuleForwardConfig - { _elasticLoadBalancingV2ListenerRuleForwardConfigTargetGroupStickinessConfig :: Maybe ElasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfig - , _elasticLoadBalancingV2ListenerRuleForwardConfigTargetGroups :: Maybe [ElasticLoadBalancingV2ListenerRuleTargetGroupTuple] - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2ListenerRuleForwardConfig where - toJSON ElasticLoadBalancingV2ListenerRuleForwardConfig{..} = - object $ - catMaybes - [ fmap (("TargetGroupStickinessConfig",) . toJSON) _elasticLoadBalancingV2ListenerRuleForwardConfigTargetGroupStickinessConfig - , fmap (("TargetGroups",) . toJSON) _elasticLoadBalancingV2ListenerRuleForwardConfigTargetGroups - ] - --- | Constructor for 'ElasticLoadBalancingV2ListenerRuleForwardConfig' --- containing required fields as arguments. -elasticLoadBalancingV2ListenerRuleForwardConfig - :: ElasticLoadBalancingV2ListenerRuleForwardConfig -elasticLoadBalancingV2ListenerRuleForwardConfig = - ElasticLoadBalancingV2ListenerRuleForwardConfig - { _elasticLoadBalancingV2ListenerRuleForwardConfigTargetGroupStickinessConfig = Nothing - , _elasticLoadBalancingV2ListenerRuleForwardConfigTargetGroups = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-forwardconfig.html#cfn-elasticloadbalancingv2-listenerrule-forwardconfig-targetgroupstickinessconfig -elbvlrfcTargetGroupStickinessConfig :: Lens' ElasticLoadBalancingV2ListenerRuleForwardConfig (Maybe ElasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfig) -elbvlrfcTargetGroupStickinessConfig = lens _elasticLoadBalancingV2ListenerRuleForwardConfigTargetGroupStickinessConfig (\s a -> s { _elasticLoadBalancingV2ListenerRuleForwardConfigTargetGroupStickinessConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-forwardconfig.html#cfn-elasticloadbalancingv2-listenerrule-forwardconfig-targetgroups -elbvlrfcTargetGroups :: Lens' ElasticLoadBalancingV2ListenerRuleForwardConfig (Maybe [ElasticLoadBalancingV2ListenerRuleTargetGroupTuple]) -elbvlrfcTargetGroups = lens _elasticLoadBalancingV2ListenerRuleForwardConfigTargetGroups (\s a -> s { _elasticLoadBalancingV2ListenerRuleForwardConfigTargetGroups = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleHostHeaderConfig.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleHostHeaderConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleHostHeaderConfig.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-hostheaderconfig.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleHostHeaderConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticLoadBalancingV2ListenerRuleHostHeaderConfig. See --- 'elasticLoadBalancingV2ListenerRuleHostHeaderConfig' for a more --- convenient constructor. -data ElasticLoadBalancingV2ListenerRuleHostHeaderConfig = - ElasticLoadBalancingV2ListenerRuleHostHeaderConfig - { _elasticLoadBalancingV2ListenerRuleHostHeaderConfigValues :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2ListenerRuleHostHeaderConfig where - toJSON ElasticLoadBalancingV2ListenerRuleHostHeaderConfig{..} = - object $ - catMaybes - [ fmap (("Values",) . toJSON) _elasticLoadBalancingV2ListenerRuleHostHeaderConfigValues - ] - --- | Constructor for 'ElasticLoadBalancingV2ListenerRuleHostHeaderConfig' --- containing required fields as arguments. -elasticLoadBalancingV2ListenerRuleHostHeaderConfig - :: ElasticLoadBalancingV2ListenerRuleHostHeaderConfig -elasticLoadBalancingV2ListenerRuleHostHeaderConfig = - ElasticLoadBalancingV2ListenerRuleHostHeaderConfig - { _elasticLoadBalancingV2ListenerRuleHostHeaderConfigValues = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-hostheaderconfig.html#cfn-elasticloadbalancingv2-listenerrule-hostheaderconfig-values -elbvlrhohcValues :: Lens' ElasticLoadBalancingV2ListenerRuleHostHeaderConfig (Maybe (ValList Text)) -elbvlrhohcValues = lens _elasticLoadBalancingV2ListenerRuleHostHeaderConfigValues (\s a -> s { _elasticLoadBalancingV2ListenerRuleHostHeaderConfigValues = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-httpheaderconfig.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig. See --- 'elasticLoadBalancingV2ListenerRuleHttpHeaderConfig' for a more --- convenient constructor. -data ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig = - ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig - { _elasticLoadBalancingV2ListenerRuleHttpHeaderConfigHttpHeaderName :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerRuleHttpHeaderConfigValues :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig where - toJSON ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig{..} = - object $ - catMaybes - [ fmap (("HttpHeaderName",) . toJSON) _elasticLoadBalancingV2ListenerRuleHttpHeaderConfigHttpHeaderName - , fmap (("Values",) . toJSON) _elasticLoadBalancingV2ListenerRuleHttpHeaderConfigValues - ] - --- | Constructor for 'ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig' --- containing required fields as arguments. -elasticLoadBalancingV2ListenerRuleHttpHeaderConfig - :: ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig -elasticLoadBalancingV2ListenerRuleHttpHeaderConfig = - ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig - { _elasticLoadBalancingV2ListenerRuleHttpHeaderConfigHttpHeaderName = Nothing - , _elasticLoadBalancingV2ListenerRuleHttpHeaderConfigValues = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-httpheaderconfig.html#cfn-elasticloadbalancingv2-listenerrule-httpheaderconfig-httpheadername -elbvlrhthcHttpHeaderName :: Lens' ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig (Maybe (Val Text)) -elbvlrhthcHttpHeaderName = lens _elasticLoadBalancingV2ListenerRuleHttpHeaderConfigHttpHeaderName (\s a -> s { _elasticLoadBalancingV2ListenerRuleHttpHeaderConfigHttpHeaderName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-httpheaderconfig.html#cfn-elasticloadbalancingv2-listenerrule-httpheaderconfig-values -elbvlrhthcValues :: Lens' ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig (Maybe (ValList Text)) -elbvlrhthcValues = lens _elasticLoadBalancingV2ListenerRuleHttpHeaderConfigValues (\s a -> s { _elasticLoadBalancingV2ListenerRuleHttpHeaderConfigValues = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-httprequestmethodconfig.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig. See --- 'elasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig' for a more --- convenient constructor. -data ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig = - ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig - { _elasticLoadBalancingV2ListenerRuleHttpRequestMethodConfigValues :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig where - toJSON ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig{..} = - object $ - catMaybes - [ fmap (("Values",) . toJSON) _elasticLoadBalancingV2ListenerRuleHttpRequestMethodConfigValues - ] - --- | Constructor for --- 'ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig' containing --- required fields as arguments. -elasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig - :: ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig -elasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig = - ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig - { _elasticLoadBalancingV2ListenerRuleHttpRequestMethodConfigValues = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-httprequestmethodconfig.html#cfn-elasticloadbalancingv2-listenerrule-httprequestmethodconfig-values -elbvlrhrmcValues :: Lens' ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig (Maybe (ValList Text)) -elbvlrhrmcValues = lens _elasticLoadBalancingV2ListenerRuleHttpRequestMethodConfigValues (\s a -> s { _elasticLoadBalancingV2ListenerRuleHttpRequestMethodConfigValues = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRulePathPatternConfig.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRulePathPatternConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRulePathPatternConfig.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-pathpatternconfig.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRulePathPatternConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticLoadBalancingV2ListenerRulePathPatternConfig. See --- 'elasticLoadBalancingV2ListenerRulePathPatternConfig' for a more --- convenient constructor. -data ElasticLoadBalancingV2ListenerRulePathPatternConfig = - ElasticLoadBalancingV2ListenerRulePathPatternConfig - { _elasticLoadBalancingV2ListenerRulePathPatternConfigValues :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2ListenerRulePathPatternConfig where - toJSON ElasticLoadBalancingV2ListenerRulePathPatternConfig{..} = - object $ - catMaybes - [ fmap (("Values",) . toJSON) _elasticLoadBalancingV2ListenerRulePathPatternConfigValues - ] - --- | Constructor for 'ElasticLoadBalancingV2ListenerRulePathPatternConfig' --- containing required fields as arguments. -elasticLoadBalancingV2ListenerRulePathPatternConfig - :: ElasticLoadBalancingV2ListenerRulePathPatternConfig -elasticLoadBalancingV2ListenerRulePathPatternConfig = - ElasticLoadBalancingV2ListenerRulePathPatternConfig - { _elasticLoadBalancingV2ListenerRulePathPatternConfigValues = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-pathpatternconfig.html#cfn-elasticloadbalancingv2-listenerrule-pathpatternconfig-values -elbvlrppcValues :: Lens' ElasticLoadBalancingV2ListenerRulePathPatternConfig (Maybe (ValList Text)) -elbvlrppcValues = lens _elasticLoadBalancingV2ListenerRulePathPatternConfigValues (\s a -> s { _elasticLoadBalancingV2ListenerRulePathPatternConfigValues = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleQueryStringConfig.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleQueryStringConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleQueryStringConfig.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-querystringconfig.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleQueryStringConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue - --- | Full data type definition for --- ElasticLoadBalancingV2ListenerRuleQueryStringConfig. See --- 'elasticLoadBalancingV2ListenerRuleQueryStringConfig' for a more --- convenient constructor. -data ElasticLoadBalancingV2ListenerRuleQueryStringConfig = - ElasticLoadBalancingV2ListenerRuleQueryStringConfig - { _elasticLoadBalancingV2ListenerRuleQueryStringConfigValues :: Maybe [ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue] - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2ListenerRuleQueryStringConfig where - toJSON ElasticLoadBalancingV2ListenerRuleQueryStringConfig{..} = - object $ - catMaybes - [ fmap (("Values",) . toJSON) _elasticLoadBalancingV2ListenerRuleQueryStringConfigValues - ] - --- | Constructor for 'ElasticLoadBalancingV2ListenerRuleQueryStringConfig' --- containing required fields as arguments. -elasticLoadBalancingV2ListenerRuleQueryStringConfig - :: ElasticLoadBalancingV2ListenerRuleQueryStringConfig -elasticLoadBalancingV2ListenerRuleQueryStringConfig = - ElasticLoadBalancingV2ListenerRuleQueryStringConfig - { _elasticLoadBalancingV2ListenerRuleQueryStringConfigValues = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-querystringconfig.html#cfn-elasticloadbalancingv2-listenerrule-querystringconfig-values -elbvlrqscValues :: Lens' ElasticLoadBalancingV2ListenerRuleQueryStringConfig (Maybe [ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue]) -elbvlrqscValues = lens _elasticLoadBalancingV2ListenerRuleQueryStringConfigValues (\s a -> s { _elasticLoadBalancingV2ListenerRuleQueryStringConfigValues = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-querystringkeyvalue.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue. See --- 'elasticLoadBalancingV2ListenerRuleQueryStringKeyValue' for a more --- convenient constructor. -data ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue = - ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue - { _elasticLoadBalancingV2ListenerRuleQueryStringKeyValueKey :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerRuleQueryStringKeyValueValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue where - toJSON ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue{..} = - object $ - catMaybes - [ fmap (("Key",) . toJSON) _elasticLoadBalancingV2ListenerRuleQueryStringKeyValueKey - , fmap (("Value",) . toJSON) _elasticLoadBalancingV2ListenerRuleQueryStringKeyValueValue - ] - --- | Constructor for 'ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue' --- containing required fields as arguments. -elasticLoadBalancingV2ListenerRuleQueryStringKeyValue - :: ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue -elasticLoadBalancingV2ListenerRuleQueryStringKeyValue = - ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue - { _elasticLoadBalancingV2ListenerRuleQueryStringKeyValueKey = Nothing - , _elasticLoadBalancingV2ListenerRuleQueryStringKeyValueValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-querystringkeyvalue.html#cfn-elasticloadbalancingv2-listenerrule-querystringkeyvalue-key -elbvlrqskvKey :: Lens' ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue (Maybe (Val Text)) -elbvlrqskvKey = lens _elasticLoadBalancingV2ListenerRuleQueryStringKeyValueKey (\s a -> s { _elasticLoadBalancingV2ListenerRuleQueryStringKeyValueKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-querystringkeyvalue.html#cfn-elasticloadbalancingv2-listenerrule-querystringkeyvalue-value -elbvlrqskvValue :: Lens' ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue (Maybe (Val Text)) -elbvlrqskvValue = lens _elasticLoadBalancingV2ListenerRuleQueryStringKeyValueValue (\s a -> s { _elasticLoadBalancingV2ListenerRuleQueryStringKeyValueValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleRedirectConfig.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleRedirectConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleRedirectConfig.hs +++ /dev/null @@ -1,76 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-redirectconfig.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleRedirectConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticLoadBalancingV2ListenerRuleRedirectConfig. See --- 'elasticLoadBalancingV2ListenerRuleRedirectConfig' for a more convenient --- constructor. -data ElasticLoadBalancingV2ListenerRuleRedirectConfig = - ElasticLoadBalancingV2ListenerRuleRedirectConfig - { _elasticLoadBalancingV2ListenerRuleRedirectConfigHost :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerRuleRedirectConfigPath :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerRuleRedirectConfigPort :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerRuleRedirectConfigProtocol :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerRuleRedirectConfigQuery :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerRuleRedirectConfigStatusCode :: Val Text - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2ListenerRuleRedirectConfig where - toJSON ElasticLoadBalancingV2ListenerRuleRedirectConfig{..} = - object $ - catMaybes - [ fmap (("Host",) . toJSON) _elasticLoadBalancingV2ListenerRuleRedirectConfigHost - , fmap (("Path",) . toJSON) _elasticLoadBalancingV2ListenerRuleRedirectConfigPath - , fmap (("Port",) . toJSON) _elasticLoadBalancingV2ListenerRuleRedirectConfigPort - , fmap (("Protocol",) . toJSON) _elasticLoadBalancingV2ListenerRuleRedirectConfigProtocol - , fmap (("Query",) . toJSON) _elasticLoadBalancingV2ListenerRuleRedirectConfigQuery - , (Just . ("StatusCode",) . toJSON) _elasticLoadBalancingV2ListenerRuleRedirectConfigStatusCode - ] - --- | Constructor for 'ElasticLoadBalancingV2ListenerRuleRedirectConfig' --- containing required fields as arguments. -elasticLoadBalancingV2ListenerRuleRedirectConfig - :: Val Text -- ^ 'elbvlrrcStatusCode' - -> ElasticLoadBalancingV2ListenerRuleRedirectConfig -elasticLoadBalancingV2ListenerRuleRedirectConfig statusCodearg = - ElasticLoadBalancingV2ListenerRuleRedirectConfig - { _elasticLoadBalancingV2ListenerRuleRedirectConfigHost = Nothing - , _elasticLoadBalancingV2ListenerRuleRedirectConfigPath = Nothing - , _elasticLoadBalancingV2ListenerRuleRedirectConfigPort = Nothing - , _elasticLoadBalancingV2ListenerRuleRedirectConfigProtocol = Nothing - , _elasticLoadBalancingV2ListenerRuleRedirectConfigQuery = Nothing - , _elasticLoadBalancingV2ListenerRuleRedirectConfigStatusCode = statusCodearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-redirectconfig.html#cfn-elasticloadbalancingv2-listenerrule-redirectconfig-host -elbvlrrcHost :: Lens' ElasticLoadBalancingV2ListenerRuleRedirectConfig (Maybe (Val Text)) -elbvlrrcHost = lens _elasticLoadBalancingV2ListenerRuleRedirectConfigHost (\s a -> s { _elasticLoadBalancingV2ListenerRuleRedirectConfigHost = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-redirectconfig.html#cfn-elasticloadbalancingv2-listenerrule-redirectconfig-path -elbvlrrcPath :: Lens' ElasticLoadBalancingV2ListenerRuleRedirectConfig (Maybe (Val Text)) -elbvlrrcPath = lens _elasticLoadBalancingV2ListenerRuleRedirectConfigPath (\s a -> s { _elasticLoadBalancingV2ListenerRuleRedirectConfigPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-redirectconfig.html#cfn-elasticloadbalancingv2-listenerrule-redirectconfig-port -elbvlrrcPort :: Lens' ElasticLoadBalancingV2ListenerRuleRedirectConfig (Maybe (Val Text)) -elbvlrrcPort = lens _elasticLoadBalancingV2ListenerRuleRedirectConfigPort (\s a -> s { _elasticLoadBalancingV2ListenerRuleRedirectConfigPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-redirectconfig.html#cfn-elasticloadbalancingv2-listenerrule-redirectconfig-protocol -elbvlrrcProtocol :: Lens' ElasticLoadBalancingV2ListenerRuleRedirectConfig (Maybe (Val Text)) -elbvlrrcProtocol = lens _elasticLoadBalancingV2ListenerRuleRedirectConfigProtocol (\s a -> s { _elasticLoadBalancingV2ListenerRuleRedirectConfigProtocol = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-redirectconfig.html#cfn-elasticloadbalancingv2-listenerrule-redirectconfig-query -elbvlrrcQuery :: Lens' ElasticLoadBalancingV2ListenerRuleRedirectConfig (Maybe (Val Text)) -elbvlrrcQuery = lens _elasticLoadBalancingV2ListenerRuleRedirectConfigQuery (\s a -> s { _elasticLoadBalancingV2ListenerRuleRedirectConfigQuery = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-redirectconfig.html#cfn-elasticloadbalancingv2-listenerrule-redirectconfig-statuscode -elbvlrrcStatusCode :: Lens' ElasticLoadBalancingV2ListenerRuleRedirectConfig (Val Text) -elbvlrrcStatusCode = lens _elasticLoadBalancingV2ListenerRuleRedirectConfigStatusCode (\s a -> s { _elasticLoadBalancingV2ListenerRuleRedirectConfigStatusCode = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleRuleCondition.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleRuleCondition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleRuleCondition.hs +++ /dev/null @@ -1,94 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-conditions.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleRuleCondition where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleHostHeaderConfig -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRulePathPatternConfig -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleQueryStringConfig -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleSourceIpConfig - --- | Full data type definition for --- ElasticLoadBalancingV2ListenerRuleRuleCondition. See --- 'elasticLoadBalancingV2ListenerRuleRuleCondition' for a more convenient --- constructor. -data ElasticLoadBalancingV2ListenerRuleRuleCondition = - ElasticLoadBalancingV2ListenerRuleRuleCondition - { _elasticLoadBalancingV2ListenerRuleRuleConditionField :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerRuleRuleConditionHostHeaderConfig :: Maybe ElasticLoadBalancingV2ListenerRuleHostHeaderConfig - , _elasticLoadBalancingV2ListenerRuleRuleConditionHttpHeaderConfig :: Maybe ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig - , _elasticLoadBalancingV2ListenerRuleRuleConditionHttpRequestMethodConfig :: Maybe ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig - , _elasticLoadBalancingV2ListenerRuleRuleConditionPathPatternConfig :: Maybe ElasticLoadBalancingV2ListenerRulePathPatternConfig - , _elasticLoadBalancingV2ListenerRuleRuleConditionQueryStringConfig :: Maybe ElasticLoadBalancingV2ListenerRuleQueryStringConfig - , _elasticLoadBalancingV2ListenerRuleRuleConditionSourceIpConfig :: Maybe ElasticLoadBalancingV2ListenerRuleSourceIpConfig - , _elasticLoadBalancingV2ListenerRuleRuleConditionValues :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2ListenerRuleRuleCondition where - toJSON ElasticLoadBalancingV2ListenerRuleRuleCondition{..} = - object $ - catMaybes - [ fmap (("Field",) . toJSON) _elasticLoadBalancingV2ListenerRuleRuleConditionField - , fmap (("HostHeaderConfig",) . toJSON) _elasticLoadBalancingV2ListenerRuleRuleConditionHostHeaderConfig - , fmap (("HttpHeaderConfig",) . toJSON) _elasticLoadBalancingV2ListenerRuleRuleConditionHttpHeaderConfig - , fmap (("HttpRequestMethodConfig",) . toJSON) _elasticLoadBalancingV2ListenerRuleRuleConditionHttpRequestMethodConfig - , fmap (("PathPatternConfig",) . toJSON) _elasticLoadBalancingV2ListenerRuleRuleConditionPathPatternConfig - , fmap (("QueryStringConfig",) . toJSON) _elasticLoadBalancingV2ListenerRuleRuleConditionQueryStringConfig - , fmap (("SourceIpConfig",) . toJSON) _elasticLoadBalancingV2ListenerRuleRuleConditionSourceIpConfig - , fmap (("Values",) . toJSON) _elasticLoadBalancingV2ListenerRuleRuleConditionValues - ] - --- | Constructor for 'ElasticLoadBalancingV2ListenerRuleRuleCondition' --- containing required fields as arguments. -elasticLoadBalancingV2ListenerRuleRuleCondition - :: ElasticLoadBalancingV2ListenerRuleRuleCondition -elasticLoadBalancingV2ListenerRuleRuleCondition = - ElasticLoadBalancingV2ListenerRuleRuleCondition - { _elasticLoadBalancingV2ListenerRuleRuleConditionField = Nothing - , _elasticLoadBalancingV2ListenerRuleRuleConditionHostHeaderConfig = Nothing - , _elasticLoadBalancingV2ListenerRuleRuleConditionHttpHeaderConfig = Nothing - , _elasticLoadBalancingV2ListenerRuleRuleConditionHttpRequestMethodConfig = Nothing - , _elasticLoadBalancingV2ListenerRuleRuleConditionPathPatternConfig = Nothing - , _elasticLoadBalancingV2ListenerRuleRuleConditionQueryStringConfig = Nothing - , _elasticLoadBalancingV2ListenerRuleRuleConditionSourceIpConfig = Nothing - , _elasticLoadBalancingV2ListenerRuleRuleConditionValues = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-conditions.html#cfn-elasticloadbalancingv2-listenerrule-conditions-field -elbvlrrcField :: Lens' ElasticLoadBalancingV2ListenerRuleRuleCondition (Maybe (Val Text)) -elbvlrrcField = lens _elasticLoadBalancingV2ListenerRuleRuleConditionField (\s a -> s { _elasticLoadBalancingV2ListenerRuleRuleConditionField = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-conditions.html#cfn-elasticloadbalancingv2-listenerrule-rulecondition-hostheaderconfig -elbvlrrcHostHeaderConfig :: Lens' ElasticLoadBalancingV2ListenerRuleRuleCondition (Maybe ElasticLoadBalancingV2ListenerRuleHostHeaderConfig) -elbvlrrcHostHeaderConfig = lens _elasticLoadBalancingV2ListenerRuleRuleConditionHostHeaderConfig (\s a -> s { _elasticLoadBalancingV2ListenerRuleRuleConditionHostHeaderConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-conditions.html#cfn-elasticloadbalancingv2-listenerrule-rulecondition-httpheaderconfig -elbvlrrcHttpHeaderConfig :: Lens' ElasticLoadBalancingV2ListenerRuleRuleCondition (Maybe ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig) -elbvlrrcHttpHeaderConfig = lens _elasticLoadBalancingV2ListenerRuleRuleConditionHttpHeaderConfig (\s a -> s { _elasticLoadBalancingV2ListenerRuleRuleConditionHttpHeaderConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-conditions.html#cfn-elasticloadbalancingv2-listenerrule-rulecondition-httprequestmethodconfig -elbvlrrcHttpRequestMethodConfig :: Lens' ElasticLoadBalancingV2ListenerRuleRuleCondition (Maybe ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig) -elbvlrrcHttpRequestMethodConfig = lens _elasticLoadBalancingV2ListenerRuleRuleConditionHttpRequestMethodConfig (\s a -> s { _elasticLoadBalancingV2ListenerRuleRuleConditionHttpRequestMethodConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-conditions.html#cfn-elasticloadbalancingv2-listenerrule-rulecondition-pathpatternconfig -elbvlrrcPathPatternConfig :: Lens' ElasticLoadBalancingV2ListenerRuleRuleCondition (Maybe ElasticLoadBalancingV2ListenerRulePathPatternConfig) -elbvlrrcPathPatternConfig = lens _elasticLoadBalancingV2ListenerRuleRuleConditionPathPatternConfig (\s a -> s { _elasticLoadBalancingV2ListenerRuleRuleConditionPathPatternConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-conditions.html#cfn-elasticloadbalancingv2-listenerrule-rulecondition-querystringconfig -elbvlrrcQueryStringConfig :: Lens' ElasticLoadBalancingV2ListenerRuleRuleCondition (Maybe ElasticLoadBalancingV2ListenerRuleQueryStringConfig) -elbvlrrcQueryStringConfig = lens _elasticLoadBalancingV2ListenerRuleRuleConditionQueryStringConfig (\s a -> s { _elasticLoadBalancingV2ListenerRuleRuleConditionQueryStringConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-conditions.html#cfn-elasticloadbalancingv2-listenerrule-rulecondition-sourceipconfig -elbvlrrcSourceIpConfig :: Lens' ElasticLoadBalancingV2ListenerRuleRuleCondition (Maybe ElasticLoadBalancingV2ListenerRuleSourceIpConfig) -elbvlrrcSourceIpConfig = lens _elasticLoadBalancingV2ListenerRuleRuleConditionSourceIpConfig (\s a -> s { _elasticLoadBalancingV2ListenerRuleRuleConditionSourceIpConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-conditions.html#cfn-elasticloadbalancingv2-listenerrule-conditions-values -elbvlrrcValues :: Lens' ElasticLoadBalancingV2ListenerRuleRuleCondition (Maybe (ValList Text)) -elbvlrrcValues = lens _elasticLoadBalancingV2ListenerRuleRuleConditionValues (\s a -> s { _elasticLoadBalancingV2ListenerRuleRuleConditionValues = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleSourceIpConfig.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleSourceIpConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleSourceIpConfig.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-sourceipconfig.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleSourceIpConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticLoadBalancingV2ListenerRuleSourceIpConfig. See --- 'elasticLoadBalancingV2ListenerRuleSourceIpConfig' for a more convenient --- constructor. -data ElasticLoadBalancingV2ListenerRuleSourceIpConfig = - ElasticLoadBalancingV2ListenerRuleSourceIpConfig - { _elasticLoadBalancingV2ListenerRuleSourceIpConfigValues :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2ListenerRuleSourceIpConfig where - toJSON ElasticLoadBalancingV2ListenerRuleSourceIpConfig{..} = - object $ - catMaybes - [ fmap (("Values",) . toJSON) _elasticLoadBalancingV2ListenerRuleSourceIpConfigValues - ] - --- | Constructor for 'ElasticLoadBalancingV2ListenerRuleSourceIpConfig' --- containing required fields as arguments. -elasticLoadBalancingV2ListenerRuleSourceIpConfig - :: ElasticLoadBalancingV2ListenerRuleSourceIpConfig -elasticLoadBalancingV2ListenerRuleSourceIpConfig = - ElasticLoadBalancingV2ListenerRuleSourceIpConfig - { _elasticLoadBalancingV2ListenerRuleSourceIpConfigValues = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-sourceipconfig.html#cfn-elasticloadbalancingv2-listenerrule-sourceipconfig-values -elbvlrsicValues :: Lens' ElasticLoadBalancingV2ListenerRuleSourceIpConfig (Maybe (ValList Text)) -elbvlrsicValues = lens _elasticLoadBalancingV2ListenerRuleSourceIpConfigValues (\s a -> s { _elasticLoadBalancingV2ListenerRuleSourceIpConfigValues = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfig.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfig.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-targetgroupstickinessconfig.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfig. See --- 'elasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfig' for a --- more convenient constructor. -data ElasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfig = - ElasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfig - { _elasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfigDurationSeconds :: Maybe (Val Integer) - , _elasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfigEnabled :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfig where - toJSON ElasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfig{..} = - object $ - catMaybes - [ fmap (("DurationSeconds",) . toJSON) _elasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfigDurationSeconds - , fmap (("Enabled",) . toJSON) _elasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfigEnabled - ] - --- | Constructor for --- 'ElasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfig' --- containing required fields as arguments. -elasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfig - :: ElasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfig -elasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfig = - ElasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfig - { _elasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfigDurationSeconds = Nothing - , _elasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfigEnabled = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-targetgroupstickinessconfig.html#cfn-elasticloadbalancingv2-listenerrule-targetgroupstickinessconfig-durationseconds -elbvlrtgscDurationSeconds :: Lens' ElasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfig (Maybe (Val Integer)) -elbvlrtgscDurationSeconds = lens _elasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfigDurationSeconds (\s a -> s { _elasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfigDurationSeconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-targetgroupstickinessconfig.html#cfn-elasticloadbalancingv2-listenerrule-targetgroupstickinessconfig-enabled -elbvlrtgscEnabled :: Lens' ElasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfig (Maybe (Val Bool)) -elbvlrtgscEnabled = lens _elasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfigEnabled (\s a -> s { _elasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfigEnabled = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleTargetGroupTuple.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleTargetGroupTuple.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleTargetGroupTuple.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-targetgrouptuple.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleTargetGroupTuple where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticLoadBalancingV2ListenerRuleTargetGroupTuple. See --- 'elasticLoadBalancingV2ListenerRuleTargetGroupTuple' for a more --- convenient constructor. -data ElasticLoadBalancingV2ListenerRuleTargetGroupTuple = - ElasticLoadBalancingV2ListenerRuleTargetGroupTuple - { _elasticLoadBalancingV2ListenerRuleTargetGroupTupleTargetGroupArn :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerRuleTargetGroupTupleWeight :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2ListenerRuleTargetGroupTuple where - toJSON ElasticLoadBalancingV2ListenerRuleTargetGroupTuple{..} = - object $ - catMaybes - [ fmap (("TargetGroupArn",) . toJSON) _elasticLoadBalancingV2ListenerRuleTargetGroupTupleTargetGroupArn - , fmap (("Weight",) . toJSON) _elasticLoadBalancingV2ListenerRuleTargetGroupTupleWeight - ] - --- | Constructor for 'ElasticLoadBalancingV2ListenerRuleTargetGroupTuple' --- containing required fields as arguments. -elasticLoadBalancingV2ListenerRuleTargetGroupTuple - :: ElasticLoadBalancingV2ListenerRuleTargetGroupTuple -elasticLoadBalancingV2ListenerRuleTargetGroupTuple = - ElasticLoadBalancingV2ListenerRuleTargetGroupTuple - { _elasticLoadBalancingV2ListenerRuleTargetGroupTupleTargetGroupArn = Nothing - , _elasticLoadBalancingV2ListenerRuleTargetGroupTupleWeight = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-targetgrouptuple.html#cfn-elasticloadbalancingv2-listenerrule-targetgrouptuple-targetgrouparn -elbvlrtgtTargetGroupArn :: Lens' ElasticLoadBalancingV2ListenerRuleTargetGroupTuple (Maybe (Val Text)) -elbvlrtgtTargetGroupArn = lens _elasticLoadBalancingV2ListenerRuleTargetGroupTupleTargetGroupArn (\s a -> s { _elasticLoadBalancingV2ListenerRuleTargetGroupTupleTargetGroupArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-targetgrouptuple.html#cfn-elasticloadbalancingv2-listenerrule-targetgrouptuple-weight -elbvlrtgtWeight :: Lens' ElasticLoadBalancingV2ListenerRuleTargetGroupTuple (Maybe (Val Integer)) -elbvlrtgtWeight = lens _elasticLoadBalancingV2ListenerRuleTargetGroupTupleWeight (\s a -> s { _elasticLoadBalancingV2ListenerRuleTargetGroupTupleWeight = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerTargetGroupStickinessConfig.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerTargetGroupStickinessConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerTargetGroupStickinessConfig.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-targetgroupstickinessconfig.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerTargetGroupStickinessConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticLoadBalancingV2ListenerTargetGroupStickinessConfig. See --- 'elasticLoadBalancingV2ListenerTargetGroupStickinessConfig' for a more --- convenient constructor. -data ElasticLoadBalancingV2ListenerTargetGroupStickinessConfig = - ElasticLoadBalancingV2ListenerTargetGroupStickinessConfig - { _elasticLoadBalancingV2ListenerTargetGroupStickinessConfigDurationSeconds :: Maybe (Val Integer) - , _elasticLoadBalancingV2ListenerTargetGroupStickinessConfigEnabled :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2ListenerTargetGroupStickinessConfig where - toJSON ElasticLoadBalancingV2ListenerTargetGroupStickinessConfig{..} = - object $ - catMaybes - [ fmap (("DurationSeconds",) . toJSON) _elasticLoadBalancingV2ListenerTargetGroupStickinessConfigDurationSeconds - , fmap (("Enabled",) . toJSON) _elasticLoadBalancingV2ListenerTargetGroupStickinessConfigEnabled - ] - --- | Constructor for --- 'ElasticLoadBalancingV2ListenerTargetGroupStickinessConfig' containing --- required fields as arguments. -elasticLoadBalancingV2ListenerTargetGroupStickinessConfig - :: ElasticLoadBalancingV2ListenerTargetGroupStickinessConfig -elasticLoadBalancingV2ListenerTargetGroupStickinessConfig = - ElasticLoadBalancingV2ListenerTargetGroupStickinessConfig - { _elasticLoadBalancingV2ListenerTargetGroupStickinessConfigDurationSeconds = Nothing - , _elasticLoadBalancingV2ListenerTargetGroupStickinessConfigEnabled = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-targetgroupstickinessconfig.html#cfn-elasticloadbalancingv2-listener-targetgroupstickinessconfig-durationseconds -elbvltgscDurationSeconds :: Lens' ElasticLoadBalancingV2ListenerTargetGroupStickinessConfig (Maybe (Val Integer)) -elbvltgscDurationSeconds = lens _elasticLoadBalancingV2ListenerTargetGroupStickinessConfigDurationSeconds (\s a -> s { _elasticLoadBalancingV2ListenerTargetGroupStickinessConfigDurationSeconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-targetgroupstickinessconfig.html#cfn-elasticloadbalancingv2-listener-targetgroupstickinessconfig-enabled -elbvltgscEnabled :: Lens' ElasticLoadBalancingV2ListenerTargetGroupStickinessConfig (Maybe (Val Bool)) -elbvltgscEnabled = lens _elasticLoadBalancingV2ListenerTargetGroupStickinessConfigEnabled (\s a -> s { _elasticLoadBalancingV2ListenerTargetGroupStickinessConfigEnabled = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerTargetGroupTuple.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerTargetGroupTuple.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerTargetGroupTuple.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-targetgrouptuple.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerTargetGroupTuple where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticLoadBalancingV2ListenerTargetGroupTuple. See --- 'elasticLoadBalancingV2ListenerTargetGroupTuple' for a more convenient --- constructor. -data ElasticLoadBalancingV2ListenerTargetGroupTuple = - ElasticLoadBalancingV2ListenerTargetGroupTuple - { _elasticLoadBalancingV2ListenerTargetGroupTupleTargetGroupArn :: Maybe (Val Text) - , _elasticLoadBalancingV2ListenerTargetGroupTupleWeight :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2ListenerTargetGroupTuple where - toJSON ElasticLoadBalancingV2ListenerTargetGroupTuple{..} = - object $ - catMaybes - [ fmap (("TargetGroupArn",) . toJSON) _elasticLoadBalancingV2ListenerTargetGroupTupleTargetGroupArn - , fmap (("Weight",) . toJSON) _elasticLoadBalancingV2ListenerTargetGroupTupleWeight - ] - --- | Constructor for 'ElasticLoadBalancingV2ListenerTargetGroupTuple' --- containing required fields as arguments. -elasticLoadBalancingV2ListenerTargetGroupTuple - :: ElasticLoadBalancingV2ListenerTargetGroupTuple -elasticLoadBalancingV2ListenerTargetGroupTuple = - ElasticLoadBalancingV2ListenerTargetGroupTuple - { _elasticLoadBalancingV2ListenerTargetGroupTupleTargetGroupArn = Nothing - , _elasticLoadBalancingV2ListenerTargetGroupTupleWeight = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-targetgrouptuple.html#cfn-elasticloadbalancingv2-listener-targetgrouptuple-targetgrouparn -elbvltgtTargetGroupArn :: Lens' ElasticLoadBalancingV2ListenerTargetGroupTuple (Maybe (Val Text)) -elbvltgtTargetGroupArn = lens _elasticLoadBalancingV2ListenerTargetGroupTupleTargetGroupArn (\s a -> s { _elasticLoadBalancingV2ListenerTargetGroupTupleTargetGroupArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listener-targetgrouptuple.html#cfn-elasticloadbalancingv2-listener-targetgrouptuple-weight -elbvltgtWeight :: Lens' ElasticLoadBalancingV2ListenerTargetGroupTuple (Maybe (Val Integer)) -elbvltgtWeight = lens _elasticLoadBalancingV2ListenerTargetGroupTupleWeight (\s a -> s { _elasticLoadBalancingV2ListenerTargetGroupTupleWeight = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2LoadBalancerLoadBalancerAttribute.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2LoadBalancerLoadBalancerAttribute.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2LoadBalancerLoadBalancerAttribute.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-loadbalancer-loadbalancerattributes.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2LoadBalancerLoadBalancerAttribute where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticLoadBalancingV2LoadBalancerLoadBalancerAttribute. See --- 'elasticLoadBalancingV2LoadBalancerLoadBalancerAttribute' for a more --- convenient constructor. -data ElasticLoadBalancingV2LoadBalancerLoadBalancerAttribute = - ElasticLoadBalancingV2LoadBalancerLoadBalancerAttribute - { _elasticLoadBalancingV2LoadBalancerLoadBalancerAttributeKey :: Maybe (Val Text) - , _elasticLoadBalancingV2LoadBalancerLoadBalancerAttributeValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2LoadBalancerLoadBalancerAttribute where - toJSON ElasticLoadBalancingV2LoadBalancerLoadBalancerAttribute{..} = - object $ - catMaybes - [ fmap (("Key",) . toJSON) _elasticLoadBalancingV2LoadBalancerLoadBalancerAttributeKey - , fmap (("Value",) . toJSON) _elasticLoadBalancingV2LoadBalancerLoadBalancerAttributeValue - ] - --- | Constructor for 'ElasticLoadBalancingV2LoadBalancerLoadBalancerAttribute' --- containing required fields as arguments. -elasticLoadBalancingV2LoadBalancerLoadBalancerAttribute - :: ElasticLoadBalancingV2LoadBalancerLoadBalancerAttribute -elasticLoadBalancingV2LoadBalancerLoadBalancerAttribute = - ElasticLoadBalancingV2LoadBalancerLoadBalancerAttribute - { _elasticLoadBalancingV2LoadBalancerLoadBalancerAttributeKey = Nothing - , _elasticLoadBalancingV2LoadBalancerLoadBalancerAttributeValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-loadbalancer-loadbalancerattributes.html#cfn-elasticloadbalancingv2-loadbalancer-loadbalancerattributes-key -elbvlblbaKey :: Lens' ElasticLoadBalancingV2LoadBalancerLoadBalancerAttribute (Maybe (Val Text)) -elbvlblbaKey = lens _elasticLoadBalancingV2LoadBalancerLoadBalancerAttributeKey (\s a -> s { _elasticLoadBalancingV2LoadBalancerLoadBalancerAttributeKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-loadbalancer-loadbalancerattributes.html#cfn-elasticloadbalancingv2-loadbalancer-loadbalancerattributes-value -elbvlblbaValue :: Lens' ElasticLoadBalancingV2LoadBalancerLoadBalancerAttribute (Maybe (Val Text)) -elbvlblbaValue = lens _elasticLoadBalancingV2LoadBalancerLoadBalancerAttributeValue (\s a -> s { _elasticLoadBalancingV2LoadBalancerLoadBalancerAttributeValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2LoadBalancerSubnetMapping.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2LoadBalancerSubnetMapping.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2LoadBalancerSubnetMapping.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-loadbalancer-subnetmapping.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2LoadBalancerSubnetMapping where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticLoadBalancingV2LoadBalancerSubnetMapping. See --- 'elasticLoadBalancingV2LoadBalancerSubnetMapping' for a more convenient --- constructor. -data ElasticLoadBalancingV2LoadBalancerSubnetMapping = - ElasticLoadBalancingV2LoadBalancerSubnetMapping - { _elasticLoadBalancingV2LoadBalancerSubnetMappingAllocationId :: Maybe (Val Text) - , _elasticLoadBalancingV2LoadBalancerSubnetMappingPrivateIPv4Address :: Maybe (Val Text) - , _elasticLoadBalancingV2LoadBalancerSubnetMappingSubnetId :: Val Text - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2LoadBalancerSubnetMapping where - toJSON ElasticLoadBalancingV2LoadBalancerSubnetMapping{..} = - object $ - catMaybes - [ fmap (("AllocationId",) . toJSON) _elasticLoadBalancingV2LoadBalancerSubnetMappingAllocationId - , fmap (("PrivateIPv4Address",) . toJSON) _elasticLoadBalancingV2LoadBalancerSubnetMappingPrivateIPv4Address - , (Just . ("SubnetId",) . toJSON) _elasticLoadBalancingV2LoadBalancerSubnetMappingSubnetId - ] - --- | Constructor for 'ElasticLoadBalancingV2LoadBalancerSubnetMapping' --- containing required fields as arguments. -elasticLoadBalancingV2LoadBalancerSubnetMapping - :: Val Text -- ^ 'elbvlbsmSubnetId' - -> ElasticLoadBalancingV2LoadBalancerSubnetMapping -elasticLoadBalancingV2LoadBalancerSubnetMapping subnetIdarg = - ElasticLoadBalancingV2LoadBalancerSubnetMapping - { _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 (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) -elbvlbsmSubnetId = lens _elasticLoadBalancingV2LoadBalancerSubnetMappingSubnetId (\s a -> s { _elasticLoadBalancingV2LoadBalancerSubnetMappingSubnetId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2TargetGroupMatcher.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2TargetGroupMatcher.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2TargetGroupMatcher.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-targetgroup-matcher.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2TargetGroupMatcher where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ElasticLoadBalancingV2TargetGroupMatcher. --- See 'elasticLoadBalancingV2TargetGroupMatcher' for a more convenient --- constructor. -data ElasticLoadBalancingV2TargetGroupMatcher = - ElasticLoadBalancingV2TargetGroupMatcher - { _elasticLoadBalancingV2TargetGroupMatcherHttpCode :: Val Text - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2TargetGroupMatcher where - toJSON ElasticLoadBalancingV2TargetGroupMatcher{..} = - object $ - catMaybes - [ (Just . ("HttpCode",) . toJSON) _elasticLoadBalancingV2TargetGroupMatcherHttpCode - ] - --- | Constructor for 'ElasticLoadBalancingV2TargetGroupMatcher' containing --- required fields as arguments. -elasticLoadBalancingV2TargetGroupMatcher - :: Val Text -- ^ 'elbvtgmHttpCode' - -> ElasticLoadBalancingV2TargetGroupMatcher -elasticLoadBalancingV2TargetGroupMatcher httpCodearg = - ElasticLoadBalancingV2TargetGroupMatcher - { _elasticLoadBalancingV2TargetGroupMatcherHttpCode = httpCodearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-targetgroup-matcher.html#cfn-elasticloadbalancingv2-targetgroup-matcher-httpcode -elbvtgmHttpCode :: Lens' ElasticLoadBalancingV2TargetGroupMatcher (Val Text) -elbvtgmHttpCode = lens _elasticLoadBalancingV2TargetGroupMatcherHttpCode (\s a -> s { _elasticLoadBalancingV2TargetGroupMatcherHttpCode = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2TargetGroupTargetDescription.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2TargetGroupTargetDescription.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2TargetGroupTargetDescription.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-targetgroup-targetdescription.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2TargetGroupTargetDescription where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticLoadBalancingV2TargetGroupTargetDescription. See --- 'elasticLoadBalancingV2TargetGroupTargetDescription' for a more --- convenient constructor. -data ElasticLoadBalancingV2TargetGroupTargetDescription = - ElasticLoadBalancingV2TargetGroupTargetDescription - { _elasticLoadBalancingV2TargetGroupTargetDescriptionAvailabilityZone :: Maybe (Val Text) - , _elasticLoadBalancingV2TargetGroupTargetDescriptionId :: Val Text - , _elasticLoadBalancingV2TargetGroupTargetDescriptionPort :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2TargetGroupTargetDescription where - toJSON ElasticLoadBalancingV2TargetGroupTargetDescription{..} = - object $ - catMaybes - [ fmap (("AvailabilityZone",) . toJSON) _elasticLoadBalancingV2TargetGroupTargetDescriptionAvailabilityZone - , (Just . ("Id",) . toJSON) _elasticLoadBalancingV2TargetGroupTargetDescriptionId - , fmap (("Port",) . toJSON) _elasticLoadBalancingV2TargetGroupTargetDescriptionPort - ] - --- | Constructor for 'ElasticLoadBalancingV2TargetGroupTargetDescription' --- containing required fields as arguments. -elasticLoadBalancingV2TargetGroupTargetDescription - :: Val Text -- ^ 'elbvtgtdId' - -> ElasticLoadBalancingV2TargetGroupTargetDescription -elasticLoadBalancingV2TargetGroupTargetDescription idarg = - ElasticLoadBalancingV2TargetGroupTargetDescription - { _elasticLoadBalancingV2TargetGroupTargetDescriptionAvailabilityZone = Nothing - , _elasticLoadBalancingV2TargetGroupTargetDescriptionId = idarg - , _elasticLoadBalancingV2TargetGroupTargetDescriptionPort = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-targetgroup-targetdescription.html#cfn-elasticloadbalancingv2-targetgroup-targetdescription-availabilityzone -elbvtgtdAvailabilityZone :: Lens' ElasticLoadBalancingV2TargetGroupTargetDescription (Maybe (Val Text)) -elbvtgtdAvailabilityZone = lens _elasticLoadBalancingV2TargetGroupTargetDescriptionAvailabilityZone (\s a -> s { _elasticLoadBalancingV2TargetGroupTargetDescriptionAvailabilityZone = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-targetgroup-targetdescription.html#cfn-elasticloadbalancingv2-targetgroup-targetdescription-id -elbvtgtdId :: Lens' ElasticLoadBalancingV2TargetGroupTargetDescription (Val Text) -elbvtgtdId = lens _elasticLoadBalancingV2TargetGroupTargetDescriptionId (\s a -> s { _elasticLoadBalancingV2TargetGroupTargetDescriptionId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-targetgroup-targetdescription.html#cfn-elasticloadbalancingv2-targetgroup-targetdescription-port -elbvtgtdPort :: Lens' ElasticLoadBalancingV2TargetGroupTargetDescription (Maybe (Val Integer)) -elbvtgtdPort = lens _elasticLoadBalancingV2TargetGroupTargetDescriptionPort (\s a -> s { _elasticLoadBalancingV2TargetGroupTargetDescriptionPort = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2TargetGroupTargetGroupAttribute.hs b/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2TargetGroupTargetGroupAttribute.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2TargetGroupTargetGroupAttribute.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-targetgroup-targetgroupattribute.html - -module Stratosphere.ResourceProperties.ElasticLoadBalancingV2TargetGroupTargetGroupAttribute where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticLoadBalancingV2TargetGroupTargetGroupAttribute. See --- 'elasticLoadBalancingV2TargetGroupTargetGroupAttribute' for a more --- convenient constructor. -data ElasticLoadBalancingV2TargetGroupTargetGroupAttribute = - ElasticLoadBalancingV2TargetGroupTargetGroupAttribute - { _elasticLoadBalancingV2TargetGroupTargetGroupAttributeKey :: Maybe (Val Text) - , _elasticLoadBalancingV2TargetGroupTargetGroupAttributeValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ElasticLoadBalancingV2TargetGroupTargetGroupAttribute where - toJSON ElasticLoadBalancingV2TargetGroupTargetGroupAttribute{..} = - object $ - catMaybes - [ fmap (("Key",) . toJSON) _elasticLoadBalancingV2TargetGroupTargetGroupAttributeKey - , fmap (("Value",) . toJSON) _elasticLoadBalancingV2TargetGroupTargetGroupAttributeValue - ] - --- | Constructor for 'ElasticLoadBalancingV2TargetGroupTargetGroupAttribute' --- containing required fields as arguments. -elasticLoadBalancingV2TargetGroupTargetGroupAttribute - :: ElasticLoadBalancingV2TargetGroupTargetGroupAttribute -elasticLoadBalancingV2TargetGroupTargetGroupAttribute = - ElasticLoadBalancingV2TargetGroupTargetGroupAttribute - { _elasticLoadBalancingV2TargetGroupTargetGroupAttributeKey = Nothing - , _elasticLoadBalancingV2TargetGroupTargetGroupAttributeValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-targetgroup-targetgroupattribute.html#cfn-elasticloadbalancingv2-targetgroup-targetgroupattribute-key -elbvtgtgaKey :: Lens' ElasticLoadBalancingV2TargetGroupTargetGroupAttribute (Maybe (Val Text)) -elbvtgtgaKey = lens _elasticLoadBalancingV2TargetGroupTargetGroupAttributeKey (\s a -> s { _elasticLoadBalancingV2TargetGroupTargetGroupAttributeKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-targetgroup-targetgroupattribute.html#cfn-elasticloadbalancingv2-targetgroup-targetgroupattribute-value -elbvtgtgaValue :: Lens' ElasticLoadBalancingV2TargetGroupTargetGroupAttribute (Maybe (Val Text)) -elbvtgtgaValue = lens _elasticLoadBalancingV2TargetGroupTargetGroupAttributeValue (\s a -> s { _elasticLoadBalancingV2TargetGroupTargetGroupAttributeValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainAdvancedSecurityOptionsInput.hs b/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainAdvancedSecurityOptionsInput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainAdvancedSecurityOptionsInput.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-advancedsecurityoptionsinput.html - -module Stratosphere.ResourceProperties.ElasticsearchDomainAdvancedSecurityOptionsInput where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ElasticsearchDomainMasterUserOptions - --- | Full data type definition for --- ElasticsearchDomainAdvancedSecurityOptionsInput. See --- 'elasticsearchDomainAdvancedSecurityOptionsInput' for a more convenient --- constructor. -data ElasticsearchDomainAdvancedSecurityOptionsInput = - ElasticsearchDomainAdvancedSecurityOptionsInput - { _elasticsearchDomainAdvancedSecurityOptionsInputEnabled :: Maybe (Val Bool) - , _elasticsearchDomainAdvancedSecurityOptionsInputInternalUserDatabaseEnabled :: Maybe (Val Bool) - , _elasticsearchDomainAdvancedSecurityOptionsInputMasterUserOptions :: Maybe ElasticsearchDomainMasterUserOptions - } deriving (Show, Eq) - -instance ToJSON ElasticsearchDomainAdvancedSecurityOptionsInput where - toJSON ElasticsearchDomainAdvancedSecurityOptionsInput{..} = - object $ - catMaybes - [ fmap (("Enabled",) . toJSON) _elasticsearchDomainAdvancedSecurityOptionsInputEnabled - , fmap (("InternalUserDatabaseEnabled",) . toJSON) _elasticsearchDomainAdvancedSecurityOptionsInputInternalUserDatabaseEnabled - , fmap (("MasterUserOptions",) . toJSON) _elasticsearchDomainAdvancedSecurityOptionsInputMasterUserOptions - ] - --- | Constructor for 'ElasticsearchDomainAdvancedSecurityOptionsInput' --- containing required fields as arguments. -elasticsearchDomainAdvancedSecurityOptionsInput - :: ElasticsearchDomainAdvancedSecurityOptionsInput -elasticsearchDomainAdvancedSecurityOptionsInput = - ElasticsearchDomainAdvancedSecurityOptionsInput - { _elasticsearchDomainAdvancedSecurityOptionsInputEnabled = Nothing - , _elasticsearchDomainAdvancedSecurityOptionsInputInternalUserDatabaseEnabled = Nothing - , _elasticsearchDomainAdvancedSecurityOptionsInputMasterUserOptions = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-advancedsecurityoptionsinput.html#cfn-elasticsearch-domain-advancedsecurityoptionsinput-enabled -edasoiEnabled :: Lens' ElasticsearchDomainAdvancedSecurityOptionsInput (Maybe (Val Bool)) -edasoiEnabled = lens _elasticsearchDomainAdvancedSecurityOptionsInputEnabled (\s a -> s { _elasticsearchDomainAdvancedSecurityOptionsInputEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-advancedsecurityoptionsinput.html#cfn-elasticsearch-domain-advancedsecurityoptionsinput-internaluserdatabaseenabled -edasoiInternalUserDatabaseEnabled :: Lens' ElasticsearchDomainAdvancedSecurityOptionsInput (Maybe (Val Bool)) -edasoiInternalUserDatabaseEnabled = lens _elasticsearchDomainAdvancedSecurityOptionsInputInternalUserDatabaseEnabled (\s a -> s { _elasticsearchDomainAdvancedSecurityOptionsInputInternalUserDatabaseEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-advancedsecurityoptionsinput.html#cfn-elasticsearch-domain-advancedsecurityoptionsinput-masteruseroptions -edasoiMasterUserOptions :: Lens' ElasticsearchDomainAdvancedSecurityOptionsInput (Maybe ElasticsearchDomainMasterUserOptions) -edasoiMasterUserOptions = lens _elasticsearchDomainAdvancedSecurityOptionsInputMasterUserOptions (\s a -> s { _elasticsearchDomainAdvancedSecurityOptionsInputMasterUserOptions = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainCognitoOptions.hs b/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainCognitoOptions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainCognitoOptions.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-cognitooptions.html - -module Stratosphere.ResourceProperties.ElasticsearchDomainCognitoOptions where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ElasticsearchDomainCognitoOptions. See --- 'elasticsearchDomainCognitoOptions' for a more convenient constructor. -data ElasticsearchDomainCognitoOptions = - ElasticsearchDomainCognitoOptions - { _elasticsearchDomainCognitoOptionsEnabled :: Maybe (Val Bool) - , _elasticsearchDomainCognitoOptionsIdentityPoolId :: Maybe (Val Text) - , _elasticsearchDomainCognitoOptionsRoleArn :: Maybe (Val Text) - , _elasticsearchDomainCognitoOptionsUserPoolId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ElasticsearchDomainCognitoOptions where - toJSON ElasticsearchDomainCognitoOptions{..} = - object $ - catMaybes - [ fmap (("Enabled",) . toJSON) _elasticsearchDomainCognitoOptionsEnabled - , fmap (("IdentityPoolId",) . toJSON) _elasticsearchDomainCognitoOptionsIdentityPoolId - , fmap (("RoleArn",) . toJSON) _elasticsearchDomainCognitoOptionsRoleArn - , fmap (("UserPoolId",) . toJSON) _elasticsearchDomainCognitoOptionsUserPoolId - ] - --- | Constructor for 'ElasticsearchDomainCognitoOptions' containing required --- fields as arguments. -elasticsearchDomainCognitoOptions - :: ElasticsearchDomainCognitoOptions -elasticsearchDomainCognitoOptions = - ElasticsearchDomainCognitoOptions - { _elasticsearchDomainCognitoOptionsEnabled = Nothing - , _elasticsearchDomainCognitoOptionsIdentityPoolId = Nothing - , _elasticsearchDomainCognitoOptionsRoleArn = Nothing - , _elasticsearchDomainCognitoOptionsUserPoolId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-cognitooptions.html#cfn-elasticsearch-domain-cognitooptions-enabled -edcoEnabled :: Lens' ElasticsearchDomainCognitoOptions (Maybe (Val Bool)) -edcoEnabled = lens _elasticsearchDomainCognitoOptionsEnabled (\s a -> s { _elasticsearchDomainCognitoOptionsEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-cognitooptions.html#cfn-elasticsearch-domain-cognitooptions-identitypoolid -edcoIdentityPoolId :: Lens' ElasticsearchDomainCognitoOptions (Maybe (Val Text)) -edcoIdentityPoolId = lens _elasticsearchDomainCognitoOptionsIdentityPoolId (\s a -> s { _elasticsearchDomainCognitoOptionsIdentityPoolId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-cognitooptions.html#cfn-elasticsearch-domain-cognitooptions-rolearn -edcoRoleArn :: Lens' ElasticsearchDomainCognitoOptions (Maybe (Val Text)) -edcoRoleArn = lens _elasticsearchDomainCognitoOptionsRoleArn (\s a -> s { _elasticsearchDomainCognitoOptionsRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-cognitooptions.html#cfn-elasticsearch-domain-cognitooptions-userpoolid -edcoUserPoolId :: Lens' ElasticsearchDomainCognitoOptions (Maybe (Val Text)) -edcoUserPoolId = lens _elasticsearchDomainCognitoOptionsUserPoolId (\s a -> s { _elasticsearchDomainCognitoOptionsUserPoolId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainDomainEndpointOptions.hs b/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainDomainEndpointOptions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainDomainEndpointOptions.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-domainendpointoptions.html - -module Stratosphere.ResourceProperties.ElasticsearchDomainDomainEndpointOptions where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ElasticsearchDomainDomainEndpointOptions. --- See 'elasticsearchDomainDomainEndpointOptions' for a more convenient --- constructor. -data ElasticsearchDomainDomainEndpointOptions = - ElasticsearchDomainDomainEndpointOptions - { _elasticsearchDomainDomainEndpointOptionsEnforceHTTPS :: Maybe (Val Bool) - , _elasticsearchDomainDomainEndpointOptionsTLSSecurityPolicy :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ElasticsearchDomainDomainEndpointOptions where - toJSON ElasticsearchDomainDomainEndpointOptions{..} = - object $ - catMaybes - [ fmap (("EnforceHTTPS",) . toJSON) _elasticsearchDomainDomainEndpointOptionsEnforceHTTPS - , fmap (("TLSSecurityPolicy",) . toJSON) _elasticsearchDomainDomainEndpointOptionsTLSSecurityPolicy - ] - --- | Constructor for 'ElasticsearchDomainDomainEndpointOptions' containing --- required fields as arguments. -elasticsearchDomainDomainEndpointOptions - :: ElasticsearchDomainDomainEndpointOptions -elasticsearchDomainDomainEndpointOptions = - ElasticsearchDomainDomainEndpointOptions - { _elasticsearchDomainDomainEndpointOptionsEnforceHTTPS = Nothing - , _elasticsearchDomainDomainEndpointOptionsTLSSecurityPolicy = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-domainendpointoptions.html#cfn-elasticsearch-domain-domainendpointoptions-enforcehttps -eddeoEnforceHTTPS :: Lens' ElasticsearchDomainDomainEndpointOptions (Maybe (Val Bool)) -eddeoEnforceHTTPS = lens _elasticsearchDomainDomainEndpointOptionsEnforceHTTPS (\s a -> s { _elasticsearchDomainDomainEndpointOptionsEnforceHTTPS = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-domainendpointoptions.html#cfn-elasticsearch-domain-domainendpointoptions-tlssecuritypolicy -eddeoTLSSecurityPolicy :: Lens' ElasticsearchDomainDomainEndpointOptions (Maybe (Val Text)) -eddeoTLSSecurityPolicy = lens _elasticsearchDomainDomainEndpointOptionsTLSSecurityPolicy (\s a -> s { _elasticsearchDomainDomainEndpointOptionsTLSSecurityPolicy = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainEBSOptions.hs b/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainEBSOptions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainEBSOptions.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-ebsoptions.html - -module Stratosphere.ResourceProperties.ElasticsearchDomainEBSOptions where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ElasticsearchDomainEBSOptions. See --- 'elasticsearchDomainEBSOptions' for a more convenient constructor. -data ElasticsearchDomainEBSOptions = - ElasticsearchDomainEBSOptions - { _elasticsearchDomainEBSOptionsEBSEnabled :: Maybe (Val Bool) - , _elasticsearchDomainEBSOptionsIops :: Maybe (Val Integer) - , _elasticsearchDomainEBSOptionsVolumeSize :: Maybe (Val Integer) - , _elasticsearchDomainEBSOptionsVolumeType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ElasticsearchDomainEBSOptions where - toJSON ElasticsearchDomainEBSOptions{..} = - object $ - catMaybes - [ fmap (("EBSEnabled",) . toJSON) _elasticsearchDomainEBSOptionsEBSEnabled - , fmap (("Iops",) . toJSON) _elasticsearchDomainEBSOptionsIops - , fmap (("VolumeSize",) . toJSON) _elasticsearchDomainEBSOptionsVolumeSize - , fmap (("VolumeType",) . toJSON) _elasticsearchDomainEBSOptionsVolumeType - ] - --- | Constructor for 'ElasticsearchDomainEBSOptions' containing required --- fields as arguments. -elasticsearchDomainEBSOptions - :: ElasticsearchDomainEBSOptions -elasticsearchDomainEBSOptions = - ElasticsearchDomainEBSOptions - { _elasticsearchDomainEBSOptionsEBSEnabled = Nothing - , _elasticsearchDomainEBSOptionsIops = Nothing - , _elasticsearchDomainEBSOptionsVolumeSize = Nothing - , _elasticsearchDomainEBSOptionsVolumeType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-ebsoptions.html#cfn-elasticsearch-domain-ebsoptions-ebsenabled -edebsoEBSEnabled :: Lens' ElasticsearchDomainEBSOptions (Maybe (Val Bool)) -edebsoEBSEnabled = lens _elasticsearchDomainEBSOptionsEBSEnabled (\s a -> s { _elasticsearchDomainEBSOptionsEBSEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-ebsoptions.html#cfn-elasticsearch-domain-ebsoptions-iops -edebsoIops :: Lens' ElasticsearchDomainEBSOptions (Maybe (Val Integer)) -edebsoIops = lens _elasticsearchDomainEBSOptionsIops (\s a -> s { _elasticsearchDomainEBSOptionsIops = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-ebsoptions.html#cfn-elasticsearch-domain-ebsoptions-volumesize -edebsoVolumeSize :: Lens' ElasticsearchDomainEBSOptions (Maybe (Val Integer)) -edebsoVolumeSize = lens _elasticsearchDomainEBSOptionsVolumeSize (\s a -> s { _elasticsearchDomainEBSOptionsVolumeSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-ebsoptions.html#cfn-elasticsearch-domain-ebsoptions-volumetype -edebsoVolumeType :: Lens' ElasticsearchDomainEBSOptions (Maybe (Val Text)) -edebsoVolumeType = lens _elasticsearchDomainEBSOptionsVolumeType (\s a -> s { _elasticsearchDomainEBSOptionsVolumeType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainElasticsearchClusterConfig.hs b/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainElasticsearchClusterConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainElasticsearchClusterConfig.hs +++ /dev/null @@ -1,82 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-elasticsearchclusterconfig.html - -module Stratosphere.ResourceProperties.ElasticsearchDomainElasticsearchClusterConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ElasticsearchDomainZoneAwarenessConfig - --- | Full data type definition for --- ElasticsearchDomainElasticsearchClusterConfig. See --- 'elasticsearchDomainElasticsearchClusterConfig' for a more convenient --- constructor. -data ElasticsearchDomainElasticsearchClusterConfig = - ElasticsearchDomainElasticsearchClusterConfig - { _elasticsearchDomainElasticsearchClusterConfigDedicatedMasterCount :: Maybe (Val Integer) - , _elasticsearchDomainElasticsearchClusterConfigDedicatedMasterEnabled :: Maybe (Val Bool) - , _elasticsearchDomainElasticsearchClusterConfigDedicatedMasterType :: Maybe (Val Text) - , _elasticsearchDomainElasticsearchClusterConfigInstanceCount :: Maybe (Val Integer) - , _elasticsearchDomainElasticsearchClusterConfigInstanceType :: Maybe (Val Text) - , _elasticsearchDomainElasticsearchClusterConfigZoneAwarenessConfig :: Maybe ElasticsearchDomainZoneAwarenessConfig - , _elasticsearchDomainElasticsearchClusterConfigZoneAwarenessEnabled :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON ElasticsearchDomainElasticsearchClusterConfig where - toJSON ElasticsearchDomainElasticsearchClusterConfig{..} = - object $ - catMaybes - [ fmap (("DedicatedMasterCount",) . toJSON) _elasticsearchDomainElasticsearchClusterConfigDedicatedMasterCount - , fmap (("DedicatedMasterEnabled",) . toJSON) _elasticsearchDomainElasticsearchClusterConfigDedicatedMasterEnabled - , fmap (("DedicatedMasterType",) . toJSON) _elasticsearchDomainElasticsearchClusterConfigDedicatedMasterType - , fmap (("InstanceCount",) . toJSON) _elasticsearchDomainElasticsearchClusterConfigInstanceCount - , fmap (("InstanceType",) . toJSON) _elasticsearchDomainElasticsearchClusterConfigInstanceType - , fmap (("ZoneAwarenessConfig",) . toJSON) _elasticsearchDomainElasticsearchClusterConfigZoneAwarenessConfig - , fmap (("ZoneAwarenessEnabled",) . toJSON) _elasticsearchDomainElasticsearchClusterConfigZoneAwarenessEnabled - ] - --- | Constructor for 'ElasticsearchDomainElasticsearchClusterConfig' --- containing required fields as arguments. -elasticsearchDomainElasticsearchClusterConfig - :: ElasticsearchDomainElasticsearchClusterConfig -elasticsearchDomainElasticsearchClusterConfig = - ElasticsearchDomainElasticsearchClusterConfig - { _elasticsearchDomainElasticsearchClusterConfigDedicatedMasterCount = Nothing - , _elasticsearchDomainElasticsearchClusterConfigDedicatedMasterEnabled = Nothing - , _elasticsearchDomainElasticsearchClusterConfigDedicatedMasterType = Nothing - , _elasticsearchDomainElasticsearchClusterConfigInstanceCount = Nothing - , _elasticsearchDomainElasticsearchClusterConfigInstanceType = Nothing - , _elasticsearchDomainElasticsearchClusterConfigZoneAwarenessConfig = Nothing - , _elasticsearchDomainElasticsearchClusterConfigZoneAwarenessEnabled = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-elasticsearchclusterconfig.html#cfn-elasticsearch-domain-elasticseachclusterconfig-dedicatedmastercount -edeccDedicatedMasterCount :: Lens' ElasticsearchDomainElasticsearchClusterConfig (Maybe (Val Integer)) -edeccDedicatedMasterCount = lens _elasticsearchDomainElasticsearchClusterConfigDedicatedMasterCount (\s a -> s { _elasticsearchDomainElasticsearchClusterConfigDedicatedMasterCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-elasticsearchclusterconfig.html#cfn-elasticsearch-domain-elasticseachclusterconfig-dedicatedmasterenabled -edeccDedicatedMasterEnabled :: Lens' ElasticsearchDomainElasticsearchClusterConfig (Maybe (Val Bool)) -edeccDedicatedMasterEnabled = lens _elasticsearchDomainElasticsearchClusterConfigDedicatedMasterEnabled (\s a -> s { _elasticsearchDomainElasticsearchClusterConfigDedicatedMasterEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-elasticsearchclusterconfig.html#cfn-elasticsearch-domain-elasticseachclusterconfig-dedicatedmastertype -edeccDedicatedMasterType :: Lens' ElasticsearchDomainElasticsearchClusterConfig (Maybe (Val Text)) -edeccDedicatedMasterType = lens _elasticsearchDomainElasticsearchClusterConfigDedicatedMasterType (\s a -> s { _elasticsearchDomainElasticsearchClusterConfigDedicatedMasterType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-elasticsearchclusterconfig.html#cfn-elasticsearch-domain-elasticseachclusterconfig-instancecount -edeccInstanceCount :: Lens' ElasticsearchDomainElasticsearchClusterConfig (Maybe (Val Integer)) -edeccInstanceCount = lens _elasticsearchDomainElasticsearchClusterConfigInstanceCount (\s a -> s { _elasticsearchDomainElasticsearchClusterConfigInstanceCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-elasticsearchclusterconfig.html#cfn-elasticsearch-domain-elasticseachclusterconfig-instnacetype -edeccInstanceType :: Lens' ElasticsearchDomainElasticsearchClusterConfig (Maybe (Val Text)) -edeccInstanceType = lens _elasticsearchDomainElasticsearchClusterConfigInstanceType (\s a -> s { _elasticsearchDomainElasticsearchClusterConfigInstanceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-elasticsearchclusterconfig.html#cfn-elasticsearch-domain-elasticsearchclusterconfig-zoneawarenessconfig -edeccZoneAwarenessConfig :: Lens' ElasticsearchDomainElasticsearchClusterConfig (Maybe ElasticsearchDomainZoneAwarenessConfig) -edeccZoneAwarenessConfig = lens _elasticsearchDomainElasticsearchClusterConfigZoneAwarenessConfig (\s a -> s { _elasticsearchDomainElasticsearchClusterConfigZoneAwarenessConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-elasticsearchclusterconfig.html#cfn-elasticsearch-domain-elasticseachclusterconfig-zoneawarenessenabled -edeccZoneAwarenessEnabled :: Lens' ElasticsearchDomainElasticsearchClusterConfig (Maybe (Val Bool)) -edeccZoneAwarenessEnabled = lens _elasticsearchDomainElasticsearchClusterConfigZoneAwarenessEnabled (\s a -> s { _elasticsearchDomainElasticsearchClusterConfigZoneAwarenessEnabled = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainEncryptionAtRestOptions.hs b/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainEncryptionAtRestOptions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainEncryptionAtRestOptions.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-encryptionatrestoptions.html - -module Stratosphere.ResourceProperties.ElasticsearchDomainEncryptionAtRestOptions where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ElasticsearchDomainEncryptionAtRestOptions. --- See 'elasticsearchDomainEncryptionAtRestOptions' for a more convenient --- constructor. -data ElasticsearchDomainEncryptionAtRestOptions = - ElasticsearchDomainEncryptionAtRestOptions - { _elasticsearchDomainEncryptionAtRestOptionsEnabled :: Maybe (Val Bool) - , _elasticsearchDomainEncryptionAtRestOptionsKmsKeyId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ElasticsearchDomainEncryptionAtRestOptions where - toJSON ElasticsearchDomainEncryptionAtRestOptions{..} = - object $ - catMaybes - [ fmap (("Enabled",) . toJSON) _elasticsearchDomainEncryptionAtRestOptionsEnabled - , fmap (("KmsKeyId",) . toJSON) _elasticsearchDomainEncryptionAtRestOptionsKmsKeyId - ] - --- | Constructor for 'ElasticsearchDomainEncryptionAtRestOptions' containing --- required fields as arguments. -elasticsearchDomainEncryptionAtRestOptions - :: ElasticsearchDomainEncryptionAtRestOptions -elasticsearchDomainEncryptionAtRestOptions = - ElasticsearchDomainEncryptionAtRestOptions - { _elasticsearchDomainEncryptionAtRestOptionsEnabled = Nothing - , _elasticsearchDomainEncryptionAtRestOptionsKmsKeyId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-encryptionatrestoptions.html#cfn-elasticsearch-domain-encryptionatrestoptions-enabled -edearoEnabled :: Lens' ElasticsearchDomainEncryptionAtRestOptions (Maybe (Val Bool)) -edearoEnabled = lens _elasticsearchDomainEncryptionAtRestOptionsEnabled (\s a -> s { _elasticsearchDomainEncryptionAtRestOptionsEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-encryptionatrestoptions.html#cfn-elasticsearch-domain-encryptionatrestoptions-kmskeyid -edearoKmsKeyId :: Lens' ElasticsearchDomainEncryptionAtRestOptions (Maybe (Val Text)) -edearoKmsKeyId = lens _elasticsearchDomainEncryptionAtRestOptionsKmsKeyId (\s a -> s { _elasticsearchDomainEncryptionAtRestOptionsKmsKeyId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainLogPublishingOption.hs b/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainLogPublishingOption.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainLogPublishingOption.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-logpublishingoption.html - -module Stratosphere.ResourceProperties.ElasticsearchDomainLogPublishingOption where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ElasticsearchDomainLogPublishingOption. See --- 'elasticsearchDomainLogPublishingOption' for a more convenient --- constructor. -data ElasticsearchDomainLogPublishingOption = - ElasticsearchDomainLogPublishingOption - { _elasticsearchDomainLogPublishingOptionCloudWatchLogsLogGroupArn :: Maybe (Val Text) - , _elasticsearchDomainLogPublishingOptionEnabled :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON ElasticsearchDomainLogPublishingOption where - toJSON ElasticsearchDomainLogPublishingOption{..} = - object $ - catMaybes - [ fmap (("CloudWatchLogsLogGroupArn",) . toJSON) _elasticsearchDomainLogPublishingOptionCloudWatchLogsLogGroupArn - , fmap (("Enabled",) . toJSON) _elasticsearchDomainLogPublishingOptionEnabled - ] - --- | Constructor for 'ElasticsearchDomainLogPublishingOption' containing --- required fields as arguments. -elasticsearchDomainLogPublishingOption - :: ElasticsearchDomainLogPublishingOption -elasticsearchDomainLogPublishingOption = - ElasticsearchDomainLogPublishingOption - { _elasticsearchDomainLogPublishingOptionCloudWatchLogsLogGroupArn = Nothing - , _elasticsearchDomainLogPublishingOptionEnabled = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-logpublishingoption.html#cfn-elasticsearch-domain-logpublishingoption-cloudwatchlogsloggrouparn -edlpoCloudWatchLogsLogGroupArn :: Lens' ElasticsearchDomainLogPublishingOption (Maybe (Val Text)) -edlpoCloudWatchLogsLogGroupArn = lens _elasticsearchDomainLogPublishingOptionCloudWatchLogsLogGroupArn (\s a -> s { _elasticsearchDomainLogPublishingOptionCloudWatchLogsLogGroupArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-logpublishingoption.html#cfn-elasticsearch-domain-logpublishingoption-enabled -edlpoEnabled :: Lens' ElasticsearchDomainLogPublishingOption (Maybe (Val Bool)) -edlpoEnabled = lens _elasticsearchDomainLogPublishingOptionEnabled (\s a -> s { _elasticsearchDomainLogPublishingOptionEnabled = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainMasterUserOptions.hs b/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainMasterUserOptions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainMasterUserOptions.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-masteruseroptions.html - -module Stratosphere.ResourceProperties.ElasticsearchDomainMasterUserOptions where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ElasticsearchDomainMasterUserOptions. See --- 'elasticsearchDomainMasterUserOptions' for a more convenient constructor. -data ElasticsearchDomainMasterUserOptions = - ElasticsearchDomainMasterUserOptions - { _elasticsearchDomainMasterUserOptionsMasterUserARN :: Maybe (Val Text) - , _elasticsearchDomainMasterUserOptionsMasterUserName :: Maybe (Val Text) - , _elasticsearchDomainMasterUserOptionsMasterUserPassword :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ElasticsearchDomainMasterUserOptions where - toJSON ElasticsearchDomainMasterUserOptions{..} = - object $ - catMaybes - [ fmap (("MasterUserARN",) . toJSON) _elasticsearchDomainMasterUserOptionsMasterUserARN - , fmap (("MasterUserName",) . toJSON) _elasticsearchDomainMasterUserOptionsMasterUserName - , fmap (("MasterUserPassword",) . toJSON) _elasticsearchDomainMasterUserOptionsMasterUserPassword - ] - --- | Constructor for 'ElasticsearchDomainMasterUserOptions' containing --- required fields as arguments. -elasticsearchDomainMasterUserOptions - :: ElasticsearchDomainMasterUserOptions -elasticsearchDomainMasterUserOptions = - ElasticsearchDomainMasterUserOptions - { _elasticsearchDomainMasterUserOptionsMasterUserARN = Nothing - , _elasticsearchDomainMasterUserOptionsMasterUserName = Nothing - , _elasticsearchDomainMasterUserOptionsMasterUserPassword = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-masteruseroptions.html#cfn-elasticsearch-domain-masteruseroptions-masteruserarn -edmuoMasterUserARN :: Lens' ElasticsearchDomainMasterUserOptions (Maybe (Val Text)) -edmuoMasterUserARN = lens _elasticsearchDomainMasterUserOptionsMasterUserARN (\s a -> s { _elasticsearchDomainMasterUserOptionsMasterUserARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-masteruseroptions.html#cfn-elasticsearch-domain-masteruseroptions-masterusername -edmuoMasterUserName :: Lens' ElasticsearchDomainMasterUserOptions (Maybe (Val Text)) -edmuoMasterUserName = lens _elasticsearchDomainMasterUserOptionsMasterUserName (\s a -> s { _elasticsearchDomainMasterUserOptionsMasterUserName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-masteruseroptions.html#cfn-elasticsearch-domain-masteruseroptions-masteruserpassword -edmuoMasterUserPassword :: Lens' ElasticsearchDomainMasterUserOptions (Maybe (Val Text)) -edmuoMasterUserPassword = lens _elasticsearchDomainMasterUserOptionsMasterUserPassword (\s a -> s { _elasticsearchDomainMasterUserOptionsMasterUserPassword = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainNodeToNodeEncryptionOptions.hs b/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainNodeToNodeEncryptionOptions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainNodeToNodeEncryptionOptions.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-nodetonodeencryptionoptions.html - -module Stratosphere.ResourceProperties.ElasticsearchDomainNodeToNodeEncryptionOptions where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ElasticsearchDomainNodeToNodeEncryptionOptions. See --- 'elasticsearchDomainNodeToNodeEncryptionOptions' for a more convenient --- constructor. -data ElasticsearchDomainNodeToNodeEncryptionOptions = - ElasticsearchDomainNodeToNodeEncryptionOptions - { _elasticsearchDomainNodeToNodeEncryptionOptionsEnabled :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON ElasticsearchDomainNodeToNodeEncryptionOptions where - toJSON ElasticsearchDomainNodeToNodeEncryptionOptions{..} = - object $ - catMaybes - [ fmap (("Enabled",) . toJSON) _elasticsearchDomainNodeToNodeEncryptionOptionsEnabled - ] - --- | Constructor for 'ElasticsearchDomainNodeToNodeEncryptionOptions' --- containing required fields as arguments. -elasticsearchDomainNodeToNodeEncryptionOptions - :: ElasticsearchDomainNodeToNodeEncryptionOptions -elasticsearchDomainNodeToNodeEncryptionOptions = - ElasticsearchDomainNodeToNodeEncryptionOptions - { _elasticsearchDomainNodeToNodeEncryptionOptionsEnabled = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-nodetonodeencryptionoptions.html#cfn-elasticsearch-domain-nodetonodeencryptionoptions-enabled -edntneoEnabled :: Lens' ElasticsearchDomainNodeToNodeEncryptionOptions (Maybe (Val Bool)) -edntneoEnabled = lens _elasticsearchDomainNodeToNodeEncryptionOptionsEnabled (\s a -> s { _elasticsearchDomainNodeToNodeEncryptionOptionsEnabled = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainSnapshotOptions.hs b/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainSnapshotOptions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainSnapshotOptions.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-snapshotoptions.html - -module Stratosphere.ResourceProperties.ElasticsearchDomainSnapshotOptions where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ElasticsearchDomainSnapshotOptions. See --- 'elasticsearchDomainSnapshotOptions' for a more convenient constructor. -data ElasticsearchDomainSnapshotOptions = - ElasticsearchDomainSnapshotOptions - { _elasticsearchDomainSnapshotOptionsAutomatedSnapshotStartHour :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON ElasticsearchDomainSnapshotOptions where - toJSON ElasticsearchDomainSnapshotOptions{..} = - object $ - catMaybes - [ fmap (("AutomatedSnapshotStartHour",) . toJSON) _elasticsearchDomainSnapshotOptionsAutomatedSnapshotStartHour - ] - --- | Constructor for 'ElasticsearchDomainSnapshotOptions' containing required --- fields as arguments. -elasticsearchDomainSnapshotOptions - :: ElasticsearchDomainSnapshotOptions -elasticsearchDomainSnapshotOptions = - ElasticsearchDomainSnapshotOptions - { _elasticsearchDomainSnapshotOptionsAutomatedSnapshotStartHour = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-snapshotoptions.html#cfn-elasticsearch-domain-snapshotoptions-automatedsnapshotstarthour -edsoAutomatedSnapshotStartHour :: Lens' ElasticsearchDomainSnapshotOptions (Maybe (Val Integer)) -edsoAutomatedSnapshotStartHour = lens _elasticsearchDomainSnapshotOptionsAutomatedSnapshotStartHour (\s a -> s { _elasticsearchDomainSnapshotOptionsAutomatedSnapshotStartHour = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainVPCOptions.hs b/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainVPCOptions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainVPCOptions.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-vpcoptions.html - -module Stratosphere.ResourceProperties.ElasticsearchDomainVPCOptions where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ElasticsearchDomainVPCOptions. See --- 'elasticsearchDomainVPCOptions' for a more convenient constructor. -data ElasticsearchDomainVPCOptions = - ElasticsearchDomainVPCOptions - { _elasticsearchDomainVPCOptionsSecurityGroupIds :: Maybe (ValList Text) - , _elasticsearchDomainVPCOptionsSubnetIds :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON ElasticsearchDomainVPCOptions where - toJSON ElasticsearchDomainVPCOptions{..} = - object $ - catMaybes - [ fmap (("SecurityGroupIds",) . toJSON) _elasticsearchDomainVPCOptionsSecurityGroupIds - , fmap (("SubnetIds",) . toJSON) _elasticsearchDomainVPCOptionsSubnetIds - ] - --- | Constructor for 'ElasticsearchDomainVPCOptions' containing required --- fields as arguments. -elasticsearchDomainVPCOptions - :: ElasticsearchDomainVPCOptions -elasticsearchDomainVPCOptions = - ElasticsearchDomainVPCOptions - { _elasticsearchDomainVPCOptionsSecurityGroupIds = Nothing - , _elasticsearchDomainVPCOptionsSubnetIds = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-vpcoptions.html#cfn-elasticsearch-domain-vpcoptions-securitygroupids -edvpcoSecurityGroupIds :: Lens' ElasticsearchDomainVPCOptions (Maybe (ValList Text)) -edvpcoSecurityGroupIds = lens _elasticsearchDomainVPCOptionsSecurityGroupIds (\s a -> s { _elasticsearchDomainVPCOptionsSecurityGroupIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-vpcoptions.html#cfn-elasticsearch-domain-vpcoptions-subnetids -edvpcoSubnetIds :: Lens' ElasticsearchDomainVPCOptions (Maybe (ValList Text)) -edvpcoSubnetIds = lens _elasticsearchDomainVPCOptionsSubnetIds (\s a -> s { _elasticsearchDomainVPCOptionsSubnetIds = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainZoneAwarenessConfig.hs b/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainZoneAwarenessConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainZoneAwarenessConfig.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-zoneawarenessconfig.html - -module Stratosphere.ResourceProperties.ElasticsearchDomainZoneAwarenessConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ElasticsearchDomainZoneAwarenessConfig. See --- 'elasticsearchDomainZoneAwarenessConfig' for a more convenient --- constructor. -data ElasticsearchDomainZoneAwarenessConfig = - ElasticsearchDomainZoneAwarenessConfig - { _elasticsearchDomainZoneAwarenessConfigAvailabilityZoneCount :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON ElasticsearchDomainZoneAwarenessConfig where - toJSON ElasticsearchDomainZoneAwarenessConfig{..} = - object $ - catMaybes - [ fmap (("AvailabilityZoneCount",) . toJSON) _elasticsearchDomainZoneAwarenessConfigAvailabilityZoneCount - ] - --- | Constructor for 'ElasticsearchDomainZoneAwarenessConfig' containing --- required fields as arguments. -elasticsearchDomainZoneAwarenessConfig - :: ElasticsearchDomainZoneAwarenessConfig -elasticsearchDomainZoneAwarenessConfig = - ElasticsearchDomainZoneAwarenessConfig - { _elasticsearchDomainZoneAwarenessConfigAvailabilityZoneCount = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticsearch-domain-zoneawarenessconfig.html#cfn-elasticsearch-domain-zoneawarenessconfig-availabilityzonecount -edzacAvailabilityZoneCount :: Lens' ElasticsearchDomainZoneAwarenessConfig (Maybe (Val Integer)) -edzacAvailabilityZoneCount = lens _elasticsearchDomainZoneAwarenessConfigAvailabilityZoneCount (\s a -> s { _elasticsearchDomainZoneAwarenessConfigAvailabilityZoneCount = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EventSchemasDiscovererTagsEntry.hs b/library-gen/Stratosphere/ResourceProperties/EventSchemasDiscovererTagsEntry.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EventSchemasDiscovererTagsEntry.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eventschemas-discoverer-tagsentry.html - -module Stratosphere.ResourceProperties.EventSchemasDiscovererTagsEntry where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EventSchemasDiscovererTagsEntry. See --- 'eventSchemasDiscovererTagsEntry' for a more convenient constructor. -data EventSchemasDiscovererTagsEntry = - EventSchemasDiscovererTagsEntry - { _eventSchemasDiscovererTagsEntryKey :: Val Text - , _eventSchemasDiscovererTagsEntryValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON EventSchemasDiscovererTagsEntry where - toJSON EventSchemasDiscovererTagsEntry{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _eventSchemasDiscovererTagsEntryKey - , (Just . ("Value",) . toJSON) _eventSchemasDiscovererTagsEntryValue - ] - --- | Constructor for 'EventSchemasDiscovererTagsEntry' containing required --- fields as arguments. -eventSchemasDiscovererTagsEntry - :: Val Text -- ^ 'esdteKey' - -> Val Text -- ^ 'esdteValue' - -> EventSchemasDiscovererTagsEntry -eventSchemasDiscovererTagsEntry keyarg valuearg = - EventSchemasDiscovererTagsEntry - { _eventSchemasDiscovererTagsEntryKey = keyarg - , _eventSchemasDiscovererTagsEntryValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eventschemas-discoverer-tagsentry.html#cfn-eventschemas-discoverer-tagsentry-key -esdteKey :: Lens' EventSchemasDiscovererTagsEntry (Val Text) -esdteKey = lens _eventSchemasDiscovererTagsEntryKey (\s a -> s { _eventSchemasDiscovererTagsEntryKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eventschemas-discoverer-tagsentry.html#cfn-eventschemas-discoverer-tagsentry-value -esdteValue :: Lens' EventSchemasDiscovererTagsEntry (Val Text) -esdteValue = lens _eventSchemasDiscovererTagsEntryValue (\s a -> s { _eventSchemasDiscovererTagsEntryValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EventSchemasRegistryTagsEntry.hs b/library-gen/Stratosphere/ResourceProperties/EventSchemasRegistryTagsEntry.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EventSchemasRegistryTagsEntry.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eventschemas-registry-tagsentry.html - -module Stratosphere.ResourceProperties.EventSchemasRegistryTagsEntry where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EventSchemasRegistryTagsEntry. See --- 'eventSchemasRegistryTagsEntry' for a more convenient constructor. -data EventSchemasRegistryTagsEntry = - EventSchemasRegistryTagsEntry - { _eventSchemasRegistryTagsEntryKey :: Val Text - , _eventSchemasRegistryTagsEntryValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON EventSchemasRegistryTagsEntry where - toJSON EventSchemasRegistryTagsEntry{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _eventSchemasRegistryTagsEntryKey - , (Just . ("Value",) . toJSON) _eventSchemasRegistryTagsEntryValue - ] - --- | Constructor for 'EventSchemasRegistryTagsEntry' containing required --- fields as arguments. -eventSchemasRegistryTagsEntry - :: Val Text -- ^ 'esrteKey' - -> Val Text -- ^ 'esrteValue' - -> EventSchemasRegistryTagsEntry -eventSchemasRegistryTagsEntry keyarg valuearg = - EventSchemasRegistryTagsEntry - { _eventSchemasRegistryTagsEntryKey = keyarg - , _eventSchemasRegistryTagsEntryValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eventschemas-registry-tagsentry.html#cfn-eventschemas-registry-tagsentry-key -esrteKey :: Lens' EventSchemasRegistryTagsEntry (Val Text) -esrteKey = lens _eventSchemasRegistryTagsEntryKey (\s a -> s { _eventSchemasRegistryTagsEntryKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eventschemas-registry-tagsentry.html#cfn-eventschemas-registry-tagsentry-value -esrteValue :: Lens' EventSchemasRegistryTagsEntry (Val Text) -esrteValue = lens _eventSchemasRegistryTagsEntryValue (\s a -> s { _eventSchemasRegistryTagsEntryValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EventSchemasSchemaTagsEntry.hs b/library-gen/Stratosphere/ResourceProperties/EventSchemasSchemaTagsEntry.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EventSchemasSchemaTagsEntry.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eventschemas-schema-tagsentry.html - -module Stratosphere.ResourceProperties.EventSchemasSchemaTagsEntry where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EventSchemasSchemaTagsEntry. See --- 'eventSchemasSchemaTagsEntry' for a more convenient constructor. -data EventSchemasSchemaTagsEntry = - EventSchemasSchemaTagsEntry - { _eventSchemasSchemaTagsEntryKey :: Val Text - , _eventSchemasSchemaTagsEntryValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON EventSchemasSchemaTagsEntry where - toJSON EventSchemasSchemaTagsEntry{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _eventSchemasSchemaTagsEntryKey - , (Just . ("Value",) . toJSON) _eventSchemasSchemaTagsEntryValue - ] - --- | Constructor for 'EventSchemasSchemaTagsEntry' containing required fields --- as arguments. -eventSchemasSchemaTagsEntry - :: Val Text -- ^ 'essteKey' - -> Val Text -- ^ 'essteValue' - -> EventSchemasSchemaTagsEntry -eventSchemasSchemaTagsEntry keyarg valuearg = - EventSchemasSchemaTagsEntry - { _eventSchemasSchemaTagsEntryKey = keyarg - , _eventSchemasSchemaTagsEntryValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eventschemas-schema-tagsentry.html#cfn-eventschemas-schema-tagsentry-key -essteKey :: Lens' EventSchemasSchemaTagsEntry (Val Text) -essteKey = lens _eventSchemasSchemaTagsEntryKey (\s a -> s { _eventSchemasSchemaTagsEntryKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-eventschemas-schema-tagsentry.html#cfn-eventschemas-schema-tagsentry-value -essteValue :: Lens' EventSchemasSchemaTagsEntry (Val Text) -essteValue = lens _eventSchemasSchemaTagsEntryValue (\s a -> s { _eventSchemasSchemaTagsEntryValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EventsEventBusPolicyCondition.hs b/library-gen/Stratosphere/ResourceProperties/EventsEventBusPolicyCondition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EventsEventBusPolicyCondition.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-eventbuspolicy-condition.html - -module Stratosphere.ResourceProperties.EventsEventBusPolicyCondition where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EventsEventBusPolicyCondition. See --- 'eventsEventBusPolicyCondition' for a more convenient constructor. -data EventsEventBusPolicyCondition = - EventsEventBusPolicyCondition - { _eventsEventBusPolicyConditionKey :: Maybe (Val Text) - , _eventsEventBusPolicyConditionType :: Maybe (Val Text) - , _eventsEventBusPolicyConditionValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON EventsEventBusPolicyCondition where - toJSON EventsEventBusPolicyCondition{..} = - object $ - catMaybes - [ fmap (("Key",) . toJSON) _eventsEventBusPolicyConditionKey - , fmap (("Type",) . toJSON) _eventsEventBusPolicyConditionType - , fmap (("Value",) . toJSON) _eventsEventBusPolicyConditionValue - ] - --- | Constructor for 'EventsEventBusPolicyCondition' containing required --- fields as arguments. -eventsEventBusPolicyCondition - :: EventsEventBusPolicyCondition -eventsEventBusPolicyCondition = - EventsEventBusPolicyCondition - { _eventsEventBusPolicyConditionKey = Nothing - , _eventsEventBusPolicyConditionType = Nothing - , _eventsEventBusPolicyConditionValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-eventbuspolicy-condition.html#cfn-events-eventbuspolicy-condition-key -eebpcKey :: Lens' EventsEventBusPolicyCondition (Maybe (Val Text)) -eebpcKey = lens _eventsEventBusPolicyConditionKey (\s a -> s { _eventsEventBusPolicyConditionKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-eventbuspolicy-condition.html#cfn-events-eventbuspolicy-condition-type -eebpcType :: Lens' EventsEventBusPolicyCondition (Maybe (Val Text)) -eebpcType = lens _eventsEventBusPolicyConditionType (\s a -> s { _eventsEventBusPolicyConditionType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-eventbuspolicy-condition.html#cfn-events-eventbuspolicy-condition-value -eebpcValue :: Lens' EventsEventBusPolicyCondition (Maybe (Val Text)) -eebpcValue = lens _eventsEventBusPolicyConditionValue (\s a -> s { _eventsEventBusPolicyConditionValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EventsRuleAwsVpcConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/EventsRuleAwsVpcConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EventsRuleAwsVpcConfiguration.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-awsvpcconfiguration.html - -module Stratosphere.ResourceProperties.EventsRuleAwsVpcConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EventsRuleAwsVpcConfiguration. See --- 'eventsRuleAwsVpcConfiguration' for a more convenient constructor. -data EventsRuleAwsVpcConfiguration = - EventsRuleAwsVpcConfiguration - { _eventsRuleAwsVpcConfigurationAssignPublicIp :: Maybe (Val Text) - , _eventsRuleAwsVpcConfigurationSecurityGroups :: Maybe (ValList Text) - , _eventsRuleAwsVpcConfigurationSubnets :: ValList Text - } deriving (Show, Eq) - -instance ToJSON EventsRuleAwsVpcConfiguration where - toJSON EventsRuleAwsVpcConfiguration{..} = - object $ - catMaybes - [ fmap (("AssignPublicIp",) . toJSON) _eventsRuleAwsVpcConfigurationAssignPublicIp - , fmap (("SecurityGroups",) . toJSON) _eventsRuleAwsVpcConfigurationSecurityGroups - , (Just . ("Subnets",) . toJSON) _eventsRuleAwsVpcConfigurationSubnets - ] - --- | Constructor for 'EventsRuleAwsVpcConfiguration' containing required --- fields as arguments. -eventsRuleAwsVpcConfiguration - :: ValList Text -- ^ 'eravcSubnets' - -> EventsRuleAwsVpcConfiguration -eventsRuleAwsVpcConfiguration subnetsarg = - EventsRuleAwsVpcConfiguration - { _eventsRuleAwsVpcConfigurationAssignPublicIp = Nothing - , _eventsRuleAwsVpcConfigurationSecurityGroups = Nothing - , _eventsRuleAwsVpcConfigurationSubnets = subnetsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-awsvpcconfiguration.html#cfn-events-rule-awsvpcconfiguration-assignpublicip -eravcAssignPublicIp :: Lens' EventsRuleAwsVpcConfiguration (Maybe (Val Text)) -eravcAssignPublicIp = lens _eventsRuleAwsVpcConfigurationAssignPublicIp (\s a -> s { _eventsRuleAwsVpcConfigurationAssignPublicIp = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-awsvpcconfiguration.html#cfn-events-rule-awsvpcconfiguration-securitygroups -eravcSecurityGroups :: Lens' EventsRuleAwsVpcConfiguration (Maybe (ValList Text)) -eravcSecurityGroups = lens _eventsRuleAwsVpcConfigurationSecurityGroups (\s a -> s { _eventsRuleAwsVpcConfigurationSecurityGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-awsvpcconfiguration.html#cfn-events-rule-awsvpcconfiguration-subnets -eravcSubnets :: Lens' EventsRuleAwsVpcConfiguration (ValList Text) -eravcSubnets = lens _eventsRuleAwsVpcConfigurationSubnets (\s a -> s { _eventsRuleAwsVpcConfigurationSubnets = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EventsRuleBatchArrayProperties.hs b/library-gen/Stratosphere/ResourceProperties/EventsRuleBatchArrayProperties.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EventsRuleBatchArrayProperties.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-batcharrayproperties.html - -module Stratosphere.ResourceProperties.EventsRuleBatchArrayProperties where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EventsRuleBatchArrayProperties. See --- 'eventsRuleBatchArrayProperties' for a more convenient constructor. -data EventsRuleBatchArrayProperties = - EventsRuleBatchArrayProperties - { _eventsRuleBatchArrayPropertiesSize :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON EventsRuleBatchArrayProperties where - toJSON EventsRuleBatchArrayProperties{..} = - object $ - catMaybes - [ fmap (("Size",) . toJSON) _eventsRuleBatchArrayPropertiesSize - ] - --- | Constructor for 'EventsRuleBatchArrayProperties' containing required --- fields as arguments. -eventsRuleBatchArrayProperties - :: EventsRuleBatchArrayProperties -eventsRuleBatchArrayProperties = - EventsRuleBatchArrayProperties - { _eventsRuleBatchArrayPropertiesSize = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-batcharrayproperties.html#cfn-events-rule-batcharrayproperties-size -erbapSize :: Lens' EventsRuleBatchArrayProperties (Maybe (Val Integer)) -erbapSize = lens _eventsRuleBatchArrayPropertiesSize (\s a -> s { _eventsRuleBatchArrayPropertiesSize = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EventsRuleBatchParameters.hs b/library-gen/Stratosphere/ResourceProperties/EventsRuleBatchParameters.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EventsRuleBatchParameters.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-batchparameters.html - -module Stratosphere.ResourceProperties.EventsRuleBatchParameters where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EventsRuleBatchArrayProperties -import Stratosphere.ResourceProperties.EventsRuleBatchRetryStrategy - --- | Full data type definition for EventsRuleBatchParameters. See --- 'eventsRuleBatchParameters' for a more convenient constructor. -data EventsRuleBatchParameters = - EventsRuleBatchParameters - { _eventsRuleBatchParametersArrayProperties :: Maybe EventsRuleBatchArrayProperties - , _eventsRuleBatchParametersJobDefinition :: Val Text - , _eventsRuleBatchParametersJobName :: Val Text - , _eventsRuleBatchParametersRetryStrategy :: Maybe EventsRuleBatchRetryStrategy - } deriving (Show, Eq) - -instance ToJSON EventsRuleBatchParameters where - toJSON EventsRuleBatchParameters{..} = - object $ - catMaybes - [ fmap (("ArrayProperties",) . toJSON) _eventsRuleBatchParametersArrayProperties - , (Just . ("JobDefinition",) . toJSON) _eventsRuleBatchParametersJobDefinition - , (Just . ("JobName",) . toJSON) _eventsRuleBatchParametersJobName - , fmap (("RetryStrategy",) . toJSON) _eventsRuleBatchParametersRetryStrategy - ] - --- | Constructor for 'EventsRuleBatchParameters' containing required fields as --- arguments. -eventsRuleBatchParameters - :: Val Text -- ^ 'erbpJobDefinition' - -> Val Text -- ^ 'erbpJobName' - -> EventsRuleBatchParameters -eventsRuleBatchParameters jobDefinitionarg jobNamearg = - EventsRuleBatchParameters - { _eventsRuleBatchParametersArrayProperties = Nothing - , _eventsRuleBatchParametersJobDefinition = jobDefinitionarg - , _eventsRuleBatchParametersJobName = jobNamearg - , _eventsRuleBatchParametersRetryStrategy = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-batchparameters.html#cfn-events-rule-batchparameters-arrayproperties -erbpArrayProperties :: Lens' EventsRuleBatchParameters (Maybe EventsRuleBatchArrayProperties) -erbpArrayProperties = lens _eventsRuleBatchParametersArrayProperties (\s a -> s { _eventsRuleBatchParametersArrayProperties = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-batchparameters.html#cfn-events-rule-batchparameters-jobdefinition -erbpJobDefinition :: Lens' EventsRuleBatchParameters (Val Text) -erbpJobDefinition = lens _eventsRuleBatchParametersJobDefinition (\s a -> s { _eventsRuleBatchParametersJobDefinition = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-batchparameters.html#cfn-events-rule-batchparameters-jobname -erbpJobName :: Lens' EventsRuleBatchParameters (Val Text) -erbpJobName = lens _eventsRuleBatchParametersJobName (\s a -> s { _eventsRuleBatchParametersJobName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-batchparameters.html#cfn-events-rule-batchparameters-retrystrategy -erbpRetryStrategy :: Lens' EventsRuleBatchParameters (Maybe EventsRuleBatchRetryStrategy) -erbpRetryStrategy = lens _eventsRuleBatchParametersRetryStrategy (\s a -> s { _eventsRuleBatchParametersRetryStrategy = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EventsRuleBatchRetryStrategy.hs b/library-gen/Stratosphere/ResourceProperties/EventsRuleBatchRetryStrategy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EventsRuleBatchRetryStrategy.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-batchretrystrategy.html - -module Stratosphere.ResourceProperties.EventsRuleBatchRetryStrategy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EventsRuleBatchRetryStrategy. See --- 'eventsRuleBatchRetryStrategy' for a more convenient constructor. -data EventsRuleBatchRetryStrategy = - EventsRuleBatchRetryStrategy - { _eventsRuleBatchRetryStrategyAttempts :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON EventsRuleBatchRetryStrategy where - toJSON EventsRuleBatchRetryStrategy{..} = - object $ - catMaybes - [ fmap (("Attempts",) . toJSON) _eventsRuleBatchRetryStrategyAttempts - ] - --- | Constructor for 'EventsRuleBatchRetryStrategy' containing required fields --- as arguments. -eventsRuleBatchRetryStrategy - :: EventsRuleBatchRetryStrategy -eventsRuleBatchRetryStrategy = - EventsRuleBatchRetryStrategy - { _eventsRuleBatchRetryStrategyAttempts = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-batchretrystrategy.html#cfn-events-rule-batchretrystrategy-attempts -erbrsAttempts :: Lens' EventsRuleBatchRetryStrategy (Maybe (Val Integer)) -erbrsAttempts = lens _eventsRuleBatchRetryStrategyAttempts (\s a -> s { _eventsRuleBatchRetryStrategyAttempts = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EventsRuleEcsParameters.hs b/library-gen/Stratosphere/ResourceProperties/EventsRuleEcsParameters.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EventsRuleEcsParameters.hs +++ /dev/null @@ -1,74 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-ecsparameters.html - -module Stratosphere.ResourceProperties.EventsRuleEcsParameters where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EventsRuleNetworkConfiguration - --- | Full data type definition for EventsRuleEcsParameters. See --- 'eventsRuleEcsParameters' for a more convenient constructor. -data EventsRuleEcsParameters = - EventsRuleEcsParameters - { _eventsRuleEcsParametersGroup :: Maybe (Val Text) - , _eventsRuleEcsParametersLaunchType :: Maybe (Val Text) - , _eventsRuleEcsParametersNetworkConfiguration :: Maybe EventsRuleNetworkConfiguration - , _eventsRuleEcsParametersPlatformVersion :: Maybe (Val Text) - , _eventsRuleEcsParametersTaskCount :: Maybe (Val Integer) - , _eventsRuleEcsParametersTaskDefinitionArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON EventsRuleEcsParameters where - toJSON EventsRuleEcsParameters{..} = - object $ - catMaybes - [ fmap (("Group",) . toJSON) _eventsRuleEcsParametersGroup - , fmap (("LaunchType",) . toJSON) _eventsRuleEcsParametersLaunchType - , fmap (("NetworkConfiguration",) . toJSON) _eventsRuleEcsParametersNetworkConfiguration - , fmap (("PlatformVersion",) . toJSON) _eventsRuleEcsParametersPlatformVersion - , fmap (("TaskCount",) . toJSON) _eventsRuleEcsParametersTaskCount - , (Just . ("TaskDefinitionArn",) . toJSON) _eventsRuleEcsParametersTaskDefinitionArn - ] - --- | Constructor for 'EventsRuleEcsParameters' containing required fields as --- arguments. -eventsRuleEcsParameters - :: Val Text -- ^ 'erepTaskDefinitionArn' - -> EventsRuleEcsParameters -eventsRuleEcsParameters taskDefinitionArnarg = - EventsRuleEcsParameters - { _eventsRuleEcsParametersGroup = Nothing - , _eventsRuleEcsParametersLaunchType = Nothing - , _eventsRuleEcsParametersNetworkConfiguration = Nothing - , _eventsRuleEcsParametersPlatformVersion = Nothing - , _eventsRuleEcsParametersTaskCount = Nothing - , _eventsRuleEcsParametersTaskDefinitionArn = taskDefinitionArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-ecsparameters.html#cfn-events-rule-ecsparameters-group -erepGroup :: Lens' EventsRuleEcsParameters (Maybe (Val Text)) -erepGroup = lens _eventsRuleEcsParametersGroup (\s a -> s { _eventsRuleEcsParametersGroup = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-ecsparameters.html#cfn-events-rule-ecsparameters-launchtype -erepLaunchType :: Lens' EventsRuleEcsParameters (Maybe (Val Text)) -erepLaunchType = lens _eventsRuleEcsParametersLaunchType (\s a -> s { _eventsRuleEcsParametersLaunchType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-ecsparameters.html#cfn-events-rule-ecsparameters-networkconfiguration -erepNetworkConfiguration :: Lens' EventsRuleEcsParameters (Maybe EventsRuleNetworkConfiguration) -erepNetworkConfiguration = lens _eventsRuleEcsParametersNetworkConfiguration (\s a -> s { _eventsRuleEcsParametersNetworkConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-ecsparameters.html#cfn-events-rule-ecsparameters-platformversion -erepPlatformVersion :: Lens' EventsRuleEcsParameters (Maybe (Val Text)) -erepPlatformVersion = lens _eventsRuleEcsParametersPlatformVersion (\s a -> s { _eventsRuleEcsParametersPlatformVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-ecsparameters.html#cfn-events-rule-ecsparameters-taskcount -erepTaskCount :: Lens' EventsRuleEcsParameters (Maybe (Val Integer)) -erepTaskCount = lens _eventsRuleEcsParametersTaskCount (\s a -> s { _eventsRuleEcsParametersTaskCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-ecsparameters.html#cfn-events-rule-ecsparameters-taskdefinitionarn -erepTaskDefinitionArn :: Lens' EventsRuleEcsParameters (Val Text) -erepTaskDefinitionArn = lens _eventsRuleEcsParametersTaskDefinitionArn (\s a -> s { _eventsRuleEcsParametersTaskDefinitionArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EventsRuleHttpParameters.hs b/library-gen/Stratosphere/ResourceProperties/EventsRuleHttpParameters.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EventsRuleHttpParameters.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# 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 }) diff --git a/library-gen/Stratosphere/ResourceProperties/EventsRuleInputTransformer.hs b/library-gen/Stratosphere/ResourceProperties/EventsRuleInputTransformer.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EventsRuleInputTransformer.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-inputtransformer.html - -module Stratosphere.ResourceProperties.EventsRuleInputTransformer where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EventsRuleInputTransformer. See --- 'eventsRuleInputTransformer' for a more convenient constructor. -data EventsRuleInputTransformer = - EventsRuleInputTransformer - { _eventsRuleInputTransformerInputPathsMap :: Maybe Object - , _eventsRuleInputTransformerInputTemplate :: Val Text - } deriving (Show, Eq) - -instance ToJSON EventsRuleInputTransformer where - toJSON EventsRuleInputTransformer{..} = - object $ - catMaybes - [ fmap (("InputPathsMap",) . toJSON) _eventsRuleInputTransformerInputPathsMap - , (Just . ("InputTemplate",) . toJSON) _eventsRuleInputTransformerInputTemplate - ] - --- | Constructor for 'EventsRuleInputTransformer' containing required fields --- as arguments. -eventsRuleInputTransformer - :: Val Text -- ^ 'eritInputTemplate' - -> EventsRuleInputTransformer -eventsRuleInputTransformer inputTemplatearg = - EventsRuleInputTransformer - { _eventsRuleInputTransformerInputPathsMap = Nothing - , _eventsRuleInputTransformerInputTemplate = inputTemplatearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-inputtransformer.html#cfn-events-rule-inputtransformer-inputpathsmap -eritInputPathsMap :: Lens' EventsRuleInputTransformer (Maybe Object) -eritInputPathsMap = lens _eventsRuleInputTransformerInputPathsMap (\s a -> s { _eventsRuleInputTransformerInputPathsMap = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-inputtransformer.html#cfn-events-rule-inputtransformer-inputtemplate -eritInputTemplate :: Lens' EventsRuleInputTransformer (Val Text) -eritInputTemplate = lens _eventsRuleInputTransformerInputTemplate (\s a -> s { _eventsRuleInputTransformerInputTemplate = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EventsRuleKinesisParameters.hs b/library-gen/Stratosphere/ResourceProperties/EventsRuleKinesisParameters.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EventsRuleKinesisParameters.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-kinesisparameters.html - -module Stratosphere.ResourceProperties.EventsRuleKinesisParameters where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EventsRuleKinesisParameters. See --- 'eventsRuleKinesisParameters' for a more convenient constructor. -data EventsRuleKinesisParameters = - EventsRuleKinesisParameters - { _eventsRuleKinesisParametersPartitionKeyPath :: Val Text - } deriving (Show, Eq) - -instance ToJSON EventsRuleKinesisParameters where - toJSON EventsRuleKinesisParameters{..} = - object $ - catMaybes - [ (Just . ("PartitionKeyPath",) . toJSON) _eventsRuleKinesisParametersPartitionKeyPath - ] - --- | Constructor for 'EventsRuleKinesisParameters' containing required fields --- as arguments. -eventsRuleKinesisParameters - :: Val Text -- ^ 'erkpPartitionKeyPath' - -> EventsRuleKinesisParameters -eventsRuleKinesisParameters partitionKeyPatharg = - EventsRuleKinesisParameters - { _eventsRuleKinesisParametersPartitionKeyPath = partitionKeyPatharg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-kinesisparameters.html#cfn-events-rule-kinesisparameters-partitionkeypath -erkpPartitionKeyPath :: Lens' EventsRuleKinesisParameters (Val Text) -erkpPartitionKeyPath = lens _eventsRuleKinesisParametersPartitionKeyPath (\s a -> s { _eventsRuleKinesisParametersPartitionKeyPath = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EventsRuleNetworkConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/EventsRuleNetworkConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EventsRuleNetworkConfiguration.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-networkconfiguration.html - -module Stratosphere.ResourceProperties.EventsRuleNetworkConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EventsRuleAwsVpcConfiguration - --- | Full data type definition for EventsRuleNetworkConfiguration. See --- 'eventsRuleNetworkConfiguration' for a more convenient constructor. -data EventsRuleNetworkConfiguration = - EventsRuleNetworkConfiguration - { _eventsRuleNetworkConfigurationAwsVpcConfiguration :: Maybe EventsRuleAwsVpcConfiguration - } deriving (Show, Eq) - -instance ToJSON EventsRuleNetworkConfiguration where - toJSON EventsRuleNetworkConfiguration{..} = - object $ - catMaybes - [ fmap (("AwsVpcConfiguration",) . toJSON) _eventsRuleNetworkConfigurationAwsVpcConfiguration - ] - --- | Constructor for 'EventsRuleNetworkConfiguration' containing required --- fields as arguments. -eventsRuleNetworkConfiguration - :: EventsRuleNetworkConfiguration -eventsRuleNetworkConfiguration = - EventsRuleNetworkConfiguration - { _eventsRuleNetworkConfigurationAwsVpcConfiguration = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-networkconfiguration.html#cfn-events-rule-networkconfiguration-awsvpcconfiguration -erncAwsVpcConfiguration :: Lens' EventsRuleNetworkConfiguration (Maybe EventsRuleAwsVpcConfiguration) -erncAwsVpcConfiguration = lens _eventsRuleNetworkConfigurationAwsVpcConfiguration (\s a -> s { _eventsRuleNetworkConfigurationAwsVpcConfiguration = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EventsRuleRunCommandParameters.hs b/library-gen/Stratosphere/ResourceProperties/EventsRuleRunCommandParameters.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EventsRuleRunCommandParameters.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-runcommandparameters.html - -module Stratosphere.ResourceProperties.EventsRuleRunCommandParameters where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EventsRuleRunCommandTarget - --- | Full data type definition for EventsRuleRunCommandParameters. See --- 'eventsRuleRunCommandParameters' for a more convenient constructor. -data EventsRuleRunCommandParameters = - EventsRuleRunCommandParameters - { _eventsRuleRunCommandParametersRunCommandTargets :: [EventsRuleRunCommandTarget] - } deriving (Show, Eq) - -instance ToJSON EventsRuleRunCommandParameters where - toJSON EventsRuleRunCommandParameters{..} = - object $ - catMaybes - [ (Just . ("RunCommandTargets",) . toJSON) _eventsRuleRunCommandParametersRunCommandTargets - ] - --- | Constructor for 'EventsRuleRunCommandParameters' containing required --- fields as arguments. -eventsRuleRunCommandParameters - :: [EventsRuleRunCommandTarget] -- ^ 'errcpRunCommandTargets' - -> EventsRuleRunCommandParameters -eventsRuleRunCommandParameters runCommandTargetsarg = - EventsRuleRunCommandParameters - { _eventsRuleRunCommandParametersRunCommandTargets = runCommandTargetsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-runcommandparameters.html#cfn-events-rule-runcommandparameters-runcommandtargets -errcpRunCommandTargets :: Lens' EventsRuleRunCommandParameters [EventsRuleRunCommandTarget] -errcpRunCommandTargets = lens _eventsRuleRunCommandParametersRunCommandTargets (\s a -> s { _eventsRuleRunCommandParametersRunCommandTargets = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EventsRuleRunCommandTarget.hs b/library-gen/Stratosphere/ResourceProperties/EventsRuleRunCommandTarget.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EventsRuleRunCommandTarget.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-runcommandtarget.html - -module Stratosphere.ResourceProperties.EventsRuleRunCommandTarget where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EventsRuleRunCommandTarget. See --- 'eventsRuleRunCommandTarget' for a more convenient constructor. -data EventsRuleRunCommandTarget = - EventsRuleRunCommandTarget - { _eventsRuleRunCommandTargetKey :: Val Text - , _eventsRuleRunCommandTargetValues :: ValList Text - } deriving (Show, Eq) - -instance ToJSON EventsRuleRunCommandTarget where - toJSON EventsRuleRunCommandTarget{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _eventsRuleRunCommandTargetKey - , (Just . ("Values",) . toJSON) _eventsRuleRunCommandTargetValues - ] - --- | Constructor for 'EventsRuleRunCommandTarget' containing required fields --- as arguments. -eventsRuleRunCommandTarget - :: Val Text -- ^ 'errctKey' - -> ValList Text -- ^ 'errctValues' - -> EventsRuleRunCommandTarget -eventsRuleRunCommandTarget keyarg valuesarg = - EventsRuleRunCommandTarget - { _eventsRuleRunCommandTargetKey = keyarg - , _eventsRuleRunCommandTargetValues = valuesarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-runcommandtarget.html#cfn-events-rule-runcommandtarget-key -errctKey :: Lens' EventsRuleRunCommandTarget (Val Text) -errctKey = lens _eventsRuleRunCommandTargetKey (\s a -> s { _eventsRuleRunCommandTargetKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-runcommandtarget.html#cfn-events-rule-runcommandtarget-values -errctValues :: Lens' EventsRuleRunCommandTarget (ValList Text) -errctValues = lens _eventsRuleRunCommandTargetValues (\s a -> s { _eventsRuleRunCommandTargetValues = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EventsRuleSqsParameters.hs b/library-gen/Stratosphere/ResourceProperties/EventsRuleSqsParameters.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EventsRuleSqsParameters.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-sqsparameters.html - -module Stratosphere.ResourceProperties.EventsRuleSqsParameters where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EventsRuleSqsParameters. See --- 'eventsRuleSqsParameters' for a more convenient constructor. -data EventsRuleSqsParameters = - EventsRuleSqsParameters - { _eventsRuleSqsParametersMessageGroupId :: Val Text - } deriving (Show, Eq) - -instance ToJSON EventsRuleSqsParameters where - toJSON EventsRuleSqsParameters{..} = - object $ - catMaybes - [ (Just . ("MessageGroupId",) . toJSON) _eventsRuleSqsParametersMessageGroupId - ] - --- | Constructor for 'EventsRuleSqsParameters' containing required fields as --- arguments. -eventsRuleSqsParameters - :: Val Text -- ^ 'erspMessageGroupId' - -> EventsRuleSqsParameters -eventsRuleSqsParameters messageGroupIdarg = - EventsRuleSqsParameters - { _eventsRuleSqsParametersMessageGroupId = messageGroupIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-sqsparameters.html#cfn-events-rule-sqsparameters-messagegroupid -erspMessageGroupId :: Lens' EventsRuleSqsParameters (Val Text) -erspMessageGroupId = lens _eventsRuleSqsParametersMessageGroupId (\s a -> s { _eventsRuleSqsParametersMessageGroupId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/EventsRuleTarget.hs b/library-gen/Stratosphere/ResourceProperties/EventsRuleTarget.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/EventsRuleTarget.hs +++ /dev/null @@ -1,123 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-target.html - -module Stratosphere.ResourceProperties.EventsRuleTarget where - -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 -import Stratosphere.ResourceProperties.EventsRuleSqsParameters - --- | Full data type definition for EventsRuleTarget. See 'eventsRuleTarget' --- for a more convenient constructor. -data EventsRuleTarget = - EventsRuleTarget - { _eventsRuleTargetArn :: Val Text - , _eventsRuleTargetBatchParameters :: Maybe EventsRuleBatchParameters - , _eventsRuleTargetEcsParameters :: Maybe EventsRuleEcsParameters - , _eventsRuleTargetHttpParameters :: Maybe EventsRuleHttpParameters - , _eventsRuleTargetId :: Val Text - , _eventsRuleTargetInput :: Maybe (Val Text) - , _eventsRuleTargetInputPath :: Maybe (Val Text) - , _eventsRuleTargetInputTransformer :: Maybe EventsRuleInputTransformer - , _eventsRuleTargetKinesisParameters :: Maybe EventsRuleKinesisParameters - , _eventsRuleTargetRoleArn :: Maybe (Val Text) - , _eventsRuleTargetRunCommandParameters :: Maybe EventsRuleRunCommandParameters - , _eventsRuleTargetSqsParameters :: Maybe EventsRuleSqsParameters - } deriving (Show, Eq) - -instance ToJSON EventsRuleTarget where - toJSON EventsRuleTarget{..} = - object $ - catMaybes - [ (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 - , fmap (("InputTransformer",) . toJSON) _eventsRuleTargetInputTransformer - , fmap (("KinesisParameters",) . toJSON) _eventsRuleTargetKinesisParameters - , fmap (("RoleArn",) . toJSON) _eventsRuleTargetRoleArn - , fmap (("RunCommandParameters",) . toJSON) _eventsRuleTargetRunCommandParameters - , fmap (("SqsParameters",) . toJSON) _eventsRuleTargetSqsParameters - ] - --- | Constructor for 'EventsRuleTarget' containing required fields as --- arguments. -eventsRuleTarget - :: Val Text -- ^ 'ertArn' - -> Val Text -- ^ 'ertId' - -> EventsRuleTarget -eventsRuleTarget arnarg idarg = - EventsRuleTarget - { _eventsRuleTargetArn = arnarg - , _eventsRuleTargetBatchParameters = Nothing - , _eventsRuleTargetEcsParameters = Nothing - , _eventsRuleTargetHttpParameters = Nothing - , _eventsRuleTargetId = idarg - , _eventsRuleTargetInput = Nothing - , _eventsRuleTargetInputPath = Nothing - , _eventsRuleTargetInputTransformer = Nothing - , _eventsRuleTargetKinesisParameters = Nothing - , _eventsRuleTargetRoleArn = Nothing - , _eventsRuleTargetRunCommandParameters = Nothing - , _eventsRuleTargetSqsParameters = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-target.html#cfn-events-rule-target-arn -ertArn :: Lens' EventsRuleTarget (Val Text) -ertArn = lens _eventsRuleTargetArn (\s a -> s { _eventsRuleTargetArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-target.html#cfn-events-rule-target-batchparameters -ertBatchParameters :: Lens' EventsRuleTarget (Maybe EventsRuleBatchParameters) -ertBatchParameters = lens _eventsRuleTargetBatchParameters (\s a -> s { _eventsRuleTargetBatchParameters = a }) - --- | 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) -ertId = lens _eventsRuleTargetId (\s a -> s { _eventsRuleTargetId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-target.html#cfn-events-rule-target-input -ertInput :: Lens' EventsRuleTarget (Maybe (Val Text)) -ertInput = lens _eventsRuleTargetInput (\s a -> s { _eventsRuleTargetInput = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-target.html#cfn-events-rule-target-inputpath -ertInputPath :: Lens' EventsRuleTarget (Maybe (Val Text)) -ertInputPath = lens _eventsRuleTargetInputPath (\s a -> s { _eventsRuleTargetInputPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-target.html#cfn-events-rule-target-inputtransformer -ertInputTransformer :: Lens' EventsRuleTarget (Maybe EventsRuleInputTransformer) -ertInputTransformer = lens _eventsRuleTargetInputTransformer (\s a -> s { _eventsRuleTargetInputTransformer = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-target.html#cfn-events-rule-target-kinesisparameters -ertKinesisParameters :: Lens' EventsRuleTarget (Maybe EventsRuleKinesisParameters) -ertKinesisParameters = lens _eventsRuleTargetKinesisParameters (\s a -> s { _eventsRuleTargetKinesisParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-target.html#cfn-events-rule-target-rolearn -ertRoleArn :: Lens' EventsRuleTarget (Maybe (Val Text)) -ertRoleArn = lens _eventsRuleTargetRoleArn (\s a -> s { _eventsRuleTargetRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-target.html#cfn-events-rule-target-runcommandparameters -ertRunCommandParameters :: Lens' EventsRuleTarget (Maybe EventsRuleRunCommandParameters) -ertRunCommandParameters = lens _eventsRuleTargetRunCommandParameters (\s a -> s { _eventsRuleTargetRunCommandParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-events-rule-target.html#cfn-events-rule-target-sqsparameters -ertSqsParameters :: Lens' EventsRuleTarget (Maybe EventsRuleSqsParameters) -ertSqsParameters = lens _eventsRuleTargetSqsParameters (\s a -> s { _eventsRuleTargetSqsParameters = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/FMSPolicyIEMap.hs b/library-gen/Stratosphere/ResourceProperties/FMSPolicyIEMap.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/FMSPolicyIEMap.hs +++ /dev/null @@ -1,44 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fms-policy-iemap.html - -module Stratosphere.ResourceProperties.FMSPolicyIEMap where - -import Stratosphere.ResourceImports - - --- | Full data type definition for FMSPolicyIEMap. See 'fmsPolicyIEMap' for a --- more convenient constructor. -data FMSPolicyIEMap = - FMSPolicyIEMap - { _fMSPolicyIEMapACCOUNT :: Maybe (ValList Text) - , _fMSPolicyIEMapORGUNIT :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON FMSPolicyIEMap where - toJSON FMSPolicyIEMap{..} = - object $ - catMaybes - [ fmap (("ACCOUNT",) . toJSON) _fMSPolicyIEMapACCOUNT - , fmap (("ORGUNIT",) . toJSON) _fMSPolicyIEMapORGUNIT - ] - --- | Constructor for 'FMSPolicyIEMap' containing required fields as arguments. -fmsPolicyIEMap - :: FMSPolicyIEMap -fmsPolicyIEMap = - FMSPolicyIEMap - { _fMSPolicyIEMapACCOUNT = Nothing - , _fMSPolicyIEMapORGUNIT = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fms-policy-iemap.html#cfn-fms-policy-iemap-account -fmspiemACCOUNT :: Lens' FMSPolicyIEMap (Maybe (ValList Text)) -fmspiemACCOUNT = lens _fMSPolicyIEMapACCOUNT (\s a -> s { _fMSPolicyIEMapACCOUNT = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fms-policy-iemap.html#cfn-fms-policy-iemap-orgunit -fmspiemORGUNIT :: Lens' FMSPolicyIEMap (Maybe (ValList Text)) -fmspiemORGUNIT = lens _fMSPolicyIEMapORGUNIT (\s a -> s { _fMSPolicyIEMapORGUNIT = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/FMSPolicyPolicyTag.hs b/library-gen/Stratosphere/ResourceProperties/FMSPolicyPolicyTag.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/FMSPolicyPolicyTag.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fms-policy-policytag.html - -module Stratosphere.ResourceProperties.FMSPolicyPolicyTag where - -import Stratosphere.ResourceImports - - --- | Full data type definition for FMSPolicyPolicyTag. See --- 'fmsPolicyPolicyTag' for a more convenient constructor. -data FMSPolicyPolicyTag = - FMSPolicyPolicyTag - { _fMSPolicyPolicyTagKey :: Val Text - , _fMSPolicyPolicyTagValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON FMSPolicyPolicyTag where - toJSON FMSPolicyPolicyTag{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _fMSPolicyPolicyTagKey - , (Just . ("Value",) . toJSON) _fMSPolicyPolicyTagValue - ] - --- | Constructor for 'FMSPolicyPolicyTag' containing required fields as --- arguments. -fmsPolicyPolicyTag - :: Val Text -- ^ 'fmspptKey' - -> Val Text -- ^ 'fmspptValue' - -> FMSPolicyPolicyTag -fmsPolicyPolicyTag keyarg valuearg = - FMSPolicyPolicyTag - { _fMSPolicyPolicyTagKey = keyarg - , _fMSPolicyPolicyTagValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fms-policy-policytag.html#cfn-fms-policy-policytag-key -fmspptKey :: Lens' FMSPolicyPolicyTag (Val Text) -fmspptKey = lens _fMSPolicyPolicyTagKey (\s a -> s { _fMSPolicyPolicyTagKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fms-policy-policytag.html#cfn-fms-policy-policytag-value -fmspptValue :: Lens' FMSPolicyPolicyTag (Val Text) -fmspptValue = lens _fMSPolicyPolicyTagValue (\s a -> s { _fMSPolicyPolicyTagValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/FMSPolicyResourceTag.hs b/library-gen/Stratosphere/ResourceProperties/FMSPolicyResourceTag.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/FMSPolicyResourceTag.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fms-policy-resourcetag.html - -module Stratosphere.ResourceProperties.FMSPolicyResourceTag where - -import Stratosphere.ResourceImports - - --- | Full data type definition for FMSPolicyResourceTag. See --- 'fmsPolicyResourceTag' for a more convenient constructor. -data FMSPolicyResourceTag = - FMSPolicyResourceTag - { _fMSPolicyResourceTagKey :: Val Text - , _fMSPolicyResourceTagValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON FMSPolicyResourceTag where - toJSON FMSPolicyResourceTag{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _fMSPolicyResourceTagKey - , fmap (("Value",) . toJSON) _fMSPolicyResourceTagValue - ] - --- | Constructor for 'FMSPolicyResourceTag' containing required fields as --- arguments. -fmsPolicyResourceTag - :: Val Text -- ^ 'fmsprtKey' - -> FMSPolicyResourceTag -fmsPolicyResourceTag keyarg = - FMSPolicyResourceTag - { _fMSPolicyResourceTagKey = keyarg - , _fMSPolicyResourceTagValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fms-policy-resourcetag.html#cfn-fms-policy-resourcetag-key -fmsprtKey :: Lens' FMSPolicyResourceTag (Val Text) -fmsprtKey = lens _fMSPolicyResourceTagKey (\s a -> s { _fMSPolicyResourceTagKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fms-policy-resourcetag.html#cfn-fms-policy-resourcetag-value -fmsprtValue :: Lens' FMSPolicyResourceTag (Maybe (Val Text)) -fmsprtValue = lens _fMSPolicyResourceTagValue (\s a -> s { _fMSPolicyResourceTagValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/FSxFileSystemLustreConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/FSxFileSystemLustreConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/FSxFileSystemLustreConfiguration.hs +++ /dev/null @@ -1,108 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-lustreconfiguration.html - -module Stratosphere.ResourceProperties.FSxFileSystemLustreConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for FSxFileSystemLustreConfiguration. See --- 'fSxFileSystemLustreConfiguration' for a more convenient constructor. -data FSxFileSystemLustreConfiguration = - FSxFileSystemLustreConfiguration - { _fSxFileSystemLustreConfigurationAutoImportPolicy :: Maybe (Val Text) - , _fSxFileSystemLustreConfigurationAutomaticBackupRetentionDays :: Maybe (Val Integer) - , _fSxFileSystemLustreConfigurationCopyTagsToBackups :: Maybe (Val Bool) - , _fSxFileSystemLustreConfigurationDailyAutomaticBackupStartTime :: Maybe (Val Text) - , _fSxFileSystemLustreConfigurationDeploymentType :: Maybe (Val Text) - , _fSxFileSystemLustreConfigurationDriveCacheType :: Maybe (Val Text) - , _fSxFileSystemLustreConfigurationExportPath :: Maybe (Val Text) - , _fSxFileSystemLustreConfigurationImportPath :: Maybe (Val Text) - , _fSxFileSystemLustreConfigurationImportedFileChunkSize :: Maybe (Val Integer) - , _fSxFileSystemLustreConfigurationPerUnitStorageThroughput :: Maybe (Val Integer) - , _fSxFileSystemLustreConfigurationWeeklyMaintenanceStartTime :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON FSxFileSystemLustreConfiguration where - toJSON FSxFileSystemLustreConfiguration{..} = - object $ - catMaybes - [ fmap (("AutoImportPolicy",) . toJSON) _fSxFileSystemLustreConfigurationAutoImportPolicy - , fmap (("AutomaticBackupRetentionDays",) . toJSON) _fSxFileSystemLustreConfigurationAutomaticBackupRetentionDays - , fmap (("CopyTagsToBackups",) . toJSON) _fSxFileSystemLustreConfigurationCopyTagsToBackups - , fmap (("DailyAutomaticBackupStartTime",) . toJSON) _fSxFileSystemLustreConfigurationDailyAutomaticBackupStartTime - , fmap (("DeploymentType",) . toJSON) _fSxFileSystemLustreConfigurationDeploymentType - , fmap (("DriveCacheType",) . toJSON) _fSxFileSystemLustreConfigurationDriveCacheType - , fmap (("ExportPath",) . toJSON) _fSxFileSystemLustreConfigurationExportPath - , fmap (("ImportPath",) . toJSON) _fSxFileSystemLustreConfigurationImportPath - , fmap (("ImportedFileChunkSize",) . toJSON) _fSxFileSystemLustreConfigurationImportedFileChunkSize - , fmap (("PerUnitStorageThroughput",) . toJSON) _fSxFileSystemLustreConfigurationPerUnitStorageThroughput - , fmap (("WeeklyMaintenanceStartTime",) . toJSON) _fSxFileSystemLustreConfigurationWeeklyMaintenanceStartTime - ] - --- | Constructor for 'FSxFileSystemLustreConfiguration' containing required --- fields as arguments. -fSxFileSystemLustreConfiguration - :: FSxFileSystemLustreConfiguration -fSxFileSystemLustreConfiguration = - FSxFileSystemLustreConfiguration - { _fSxFileSystemLustreConfigurationAutoImportPolicy = Nothing - , _fSxFileSystemLustreConfigurationAutomaticBackupRetentionDays = Nothing - , _fSxFileSystemLustreConfigurationCopyTagsToBackups = Nothing - , _fSxFileSystemLustreConfigurationDailyAutomaticBackupStartTime = Nothing - , _fSxFileSystemLustreConfigurationDeploymentType = Nothing - , _fSxFileSystemLustreConfigurationDriveCacheType = Nothing - , _fSxFileSystemLustreConfigurationExportPath = Nothing - , _fSxFileSystemLustreConfigurationImportPath = Nothing - , _fSxFileSystemLustreConfigurationImportedFileChunkSize = Nothing - , _fSxFileSystemLustreConfigurationPerUnitStorageThroughput = Nothing - , _fSxFileSystemLustreConfigurationWeeklyMaintenanceStartTime = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-lustreconfiguration.html#cfn-fsx-filesystem-lustreconfiguration-autoimportpolicy -fsfslcAutoImportPolicy :: Lens' FSxFileSystemLustreConfiguration (Maybe (Val Text)) -fsfslcAutoImportPolicy = lens _fSxFileSystemLustreConfigurationAutoImportPolicy (\s a -> s { _fSxFileSystemLustreConfigurationAutoImportPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-lustreconfiguration.html#cfn-fsx-filesystem-lustreconfiguration-automaticbackupretentiondays -fsfslcAutomaticBackupRetentionDays :: Lens' FSxFileSystemLustreConfiguration (Maybe (Val Integer)) -fsfslcAutomaticBackupRetentionDays = lens _fSxFileSystemLustreConfigurationAutomaticBackupRetentionDays (\s a -> s { _fSxFileSystemLustreConfigurationAutomaticBackupRetentionDays = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-lustreconfiguration.html#cfn-fsx-filesystem-lustreconfiguration-copytagstobackups -fsfslcCopyTagsToBackups :: Lens' FSxFileSystemLustreConfiguration (Maybe (Val Bool)) -fsfslcCopyTagsToBackups = lens _fSxFileSystemLustreConfigurationCopyTagsToBackups (\s a -> s { _fSxFileSystemLustreConfigurationCopyTagsToBackups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-lustreconfiguration.html#cfn-fsx-filesystem-lustreconfiguration-dailyautomaticbackupstarttime -fsfslcDailyAutomaticBackupStartTime :: Lens' FSxFileSystemLustreConfiguration (Maybe (Val Text)) -fsfslcDailyAutomaticBackupStartTime = lens _fSxFileSystemLustreConfigurationDailyAutomaticBackupStartTime (\s a -> s { _fSxFileSystemLustreConfigurationDailyAutomaticBackupStartTime = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-lustreconfiguration.html#cfn-fsx-filesystem-lustreconfiguration-deploymenttype -fsfslcDeploymentType :: Lens' FSxFileSystemLustreConfiguration (Maybe (Val Text)) -fsfslcDeploymentType = lens _fSxFileSystemLustreConfigurationDeploymentType (\s a -> s { _fSxFileSystemLustreConfigurationDeploymentType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-lustreconfiguration.html#cfn-fsx-filesystem-lustreconfiguration-drivecachetype -fsfslcDriveCacheType :: Lens' FSxFileSystemLustreConfiguration (Maybe (Val Text)) -fsfslcDriveCacheType = lens _fSxFileSystemLustreConfigurationDriveCacheType (\s a -> s { _fSxFileSystemLustreConfigurationDriveCacheType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-lustreconfiguration.html#cfn-fsx-filesystem-lustreconfiguration-exportpath -fsfslcExportPath :: Lens' FSxFileSystemLustreConfiguration (Maybe (Val Text)) -fsfslcExportPath = lens _fSxFileSystemLustreConfigurationExportPath (\s a -> s { _fSxFileSystemLustreConfigurationExportPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-lustreconfiguration.html#cfn-fsx-filesystem-lustreconfiguration-importpath -fsfslcImportPath :: Lens' FSxFileSystemLustreConfiguration (Maybe (Val Text)) -fsfslcImportPath = lens _fSxFileSystemLustreConfigurationImportPath (\s a -> s { _fSxFileSystemLustreConfigurationImportPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-lustreconfiguration.html#cfn-fsx-filesystem-lustreconfiguration-importedfilechunksize -fsfslcImportedFileChunkSize :: Lens' FSxFileSystemLustreConfiguration (Maybe (Val Integer)) -fsfslcImportedFileChunkSize = lens _fSxFileSystemLustreConfigurationImportedFileChunkSize (\s a -> s { _fSxFileSystemLustreConfigurationImportedFileChunkSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-lustreconfiguration.html#cfn-fsx-filesystem-lustreconfiguration-perunitstoragethroughput -fsfslcPerUnitStorageThroughput :: Lens' FSxFileSystemLustreConfiguration (Maybe (Val Integer)) -fsfslcPerUnitStorageThroughput = lens _fSxFileSystemLustreConfigurationPerUnitStorageThroughput (\s a -> s { _fSxFileSystemLustreConfigurationPerUnitStorageThroughput = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-lustreconfiguration.html#cfn-fsx-filesystem-lustreconfiguration-weeklymaintenancestarttime -fsfslcWeeklyMaintenanceStartTime :: Lens' FSxFileSystemLustreConfiguration (Maybe (Val Text)) -fsfslcWeeklyMaintenanceStartTime = lens _fSxFileSystemLustreConfigurationWeeklyMaintenanceStartTime (\s a -> s { _fSxFileSystemLustreConfigurationWeeklyMaintenanceStartTime = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/FSxFileSystemSelfManagedActiveDirectoryConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/FSxFileSystemSelfManagedActiveDirectoryConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/FSxFileSystemSelfManagedActiveDirectoryConfiguration.hs +++ /dev/null @@ -1,75 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-windowsconfiguration-selfmanagedactivedirectoryconfiguration.html - -module Stratosphere.ResourceProperties.FSxFileSystemSelfManagedActiveDirectoryConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- FSxFileSystemSelfManagedActiveDirectoryConfiguration. See --- 'fSxFileSystemSelfManagedActiveDirectoryConfiguration' for a more --- convenient constructor. -data FSxFileSystemSelfManagedActiveDirectoryConfiguration = - FSxFileSystemSelfManagedActiveDirectoryConfiguration - { _fSxFileSystemSelfManagedActiveDirectoryConfigurationDnsIps :: Maybe (ValList Text) - , _fSxFileSystemSelfManagedActiveDirectoryConfigurationDomainName :: Maybe (Val Text) - , _fSxFileSystemSelfManagedActiveDirectoryConfigurationFileSystemAdministratorsGroup :: Maybe (Val Text) - , _fSxFileSystemSelfManagedActiveDirectoryConfigurationOrganizationalUnitDistinguishedName :: Maybe (Val Text) - , _fSxFileSystemSelfManagedActiveDirectoryConfigurationPassword :: Maybe (Val Text) - , _fSxFileSystemSelfManagedActiveDirectoryConfigurationUserName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON FSxFileSystemSelfManagedActiveDirectoryConfiguration where - toJSON FSxFileSystemSelfManagedActiveDirectoryConfiguration{..} = - object $ - catMaybes - [ fmap (("DnsIps",) . toJSON) _fSxFileSystemSelfManagedActiveDirectoryConfigurationDnsIps - , fmap (("DomainName",) . toJSON) _fSxFileSystemSelfManagedActiveDirectoryConfigurationDomainName - , fmap (("FileSystemAdministratorsGroup",) . toJSON) _fSxFileSystemSelfManagedActiveDirectoryConfigurationFileSystemAdministratorsGroup - , fmap (("OrganizationalUnitDistinguishedName",) . toJSON) _fSxFileSystemSelfManagedActiveDirectoryConfigurationOrganizationalUnitDistinguishedName - , fmap (("Password",) . toJSON) _fSxFileSystemSelfManagedActiveDirectoryConfigurationPassword - , fmap (("UserName",) . toJSON) _fSxFileSystemSelfManagedActiveDirectoryConfigurationUserName - ] - --- | Constructor for 'FSxFileSystemSelfManagedActiveDirectoryConfiguration' --- containing required fields as arguments. -fSxFileSystemSelfManagedActiveDirectoryConfiguration - :: FSxFileSystemSelfManagedActiveDirectoryConfiguration -fSxFileSystemSelfManagedActiveDirectoryConfiguration = - FSxFileSystemSelfManagedActiveDirectoryConfiguration - { _fSxFileSystemSelfManagedActiveDirectoryConfigurationDnsIps = Nothing - , _fSxFileSystemSelfManagedActiveDirectoryConfigurationDomainName = Nothing - , _fSxFileSystemSelfManagedActiveDirectoryConfigurationFileSystemAdministratorsGroup = Nothing - , _fSxFileSystemSelfManagedActiveDirectoryConfigurationOrganizationalUnitDistinguishedName = Nothing - , _fSxFileSystemSelfManagedActiveDirectoryConfigurationPassword = Nothing - , _fSxFileSystemSelfManagedActiveDirectoryConfigurationUserName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-windowsconfiguration-selfmanagedactivedirectoryconfiguration.html#cfn-fsx-filesystem-windowsconfiguration-selfmanagedactivedirectoryconfiguration-dnsips -fsfssmadcDnsIps :: Lens' FSxFileSystemSelfManagedActiveDirectoryConfiguration (Maybe (ValList Text)) -fsfssmadcDnsIps = lens _fSxFileSystemSelfManagedActiveDirectoryConfigurationDnsIps (\s a -> s { _fSxFileSystemSelfManagedActiveDirectoryConfigurationDnsIps = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-windowsconfiguration-selfmanagedactivedirectoryconfiguration.html#cfn-fsx-filesystem-windowsconfiguration-selfmanagedactivedirectoryconfiguration-domainname -fsfssmadcDomainName :: Lens' FSxFileSystemSelfManagedActiveDirectoryConfiguration (Maybe (Val Text)) -fsfssmadcDomainName = lens _fSxFileSystemSelfManagedActiveDirectoryConfigurationDomainName (\s a -> s { _fSxFileSystemSelfManagedActiveDirectoryConfigurationDomainName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-windowsconfiguration-selfmanagedactivedirectoryconfiguration.html#cfn-fsx-filesystem-windowsconfiguration-selfmanagedactivedirectoryconfiguration-filesystemadministratorsgroup -fsfssmadcFileSystemAdministratorsGroup :: Lens' FSxFileSystemSelfManagedActiveDirectoryConfiguration (Maybe (Val Text)) -fsfssmadcFileSystemAdministratorsGroup = lens _fSxFileSystemSelfManagedActiveDirectoryConfigurationFileSystemAdministratorsGroup (\s a -> s { _fSxFileSystemSelfManagedActiveDirectoryConfigurationFileSystemAdministratorsGroup = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-windowsconfiguration-selfmanagedactivedirectoryconfiguration.html#cfn-fsx-filesystem-windowsconfiguration-selfmanagedactivedirectoryconfiguration-organizationalunitdistinguishedname -fsfssmadcOrganizationalUnitDistinguishedName :: Lens' FSxFileSystemSelfManagedActiveDirectoryConfiguration (Maybe (Val Text)) -fsfssmadcOrganizationalUnitDistinguishedName = lens _fSxFileSystemSelfManagedActiveDirectoryConfigurationOrganizationalUnitDistinguishedName (\s a -> s { _fSxFileSystemSelfManagedActiveDirectoryConfigurationOrganizationalUnitDistinguishedName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-windowsconfiguration-selfmanagedactivedirectoryconfiguration.html#cfn-fsx-filesystem-windowsconfiguration-selfmanagedactivedirectoryconfiguration-password -fsfssmadcPassword :: Lens' FSxFileSystemSelfManagedActiveDirectoryConfiguration (Maybe (Val Text)) -fsfssmadcPassword = lens _fSxFileSystemSelfManagedActiveDirectoryConfigurationPassword (\s a -> s { _fSxFileSystemSelfManagedActiveDirectoryConfigurationPassword = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-windowsconfiguration-selfmanagedactivedirectoryconfiguration.html#cfn-fsx-filesystem-windowsconfiguration-selfmanagedactivedirectoryconfiguration-username -fsfssmadcUserName :: Lens' FSxFileSystemSelfManagedActiveDirectoryConfiguration (Maybe (Val Text)) -fsfssmadcUserName = lens _fSxFileSystemSelfManagedActiveDirectoryConfigurationUserName (\s a -> s { _fSxFileSystemSelfManagedActiveDirectoryConfigurationUserName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/FSxFileSystemWindowsConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/FSxFileSystemWindowsConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/FSxFileSystemWindowsConfiguration.hs +++ /dev/null @@ -1,94 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-windowsconfiguration.html - -module Stratosphere.ResourceProperties.FSxFileSystemWindowsConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.FSxFileSystemSelfManagedActiveDirectoryConfiguration - --- | Full data type definition for FSxFileSystemWindowsConfiguration. See --- 'fSxFileSystemWindowsConfiguration' for a more convenient constructor. -data FSxFileSystemWindowsConfiguration = - FSxFileSystemWindowsConfiguration - { _fSxFileSystemWindowsConfigurationActiveDirectoryId :: Maybe (Val Text) - , _fSxFileSystemWindowsConfigurationAutomaticBackupRetentionDays :: Maybe (Val Integer) - , _fSxFileSystemWindowsConfigurationCopyTagsToBackups :: Maybe (Val Bool) - , _fSxFileSystemWindowsConfigurationDailyAutomaticBackupStartTime :: Maybe (Val Text) - , _fSxFileSystemWindowsConfigurationDeploymentType :: Maybe (Val Text) - , _fSxFileSystemWindowsConfigurationPreferredSubnetId :: Maybe (Val Text) - , _fSxFileSystemWindowsConfigurationSelfManagedActiveDirectoryConfiguration :: Maybe FSxFileSystemSelfManagedActiveDirectoryConfiguration - , _fSxFileSystemWindowsConfigurationThroughputCapacity :: Maybe (Val Integer) - , _fSxFileSystemWindowsConfigurationWeeklyMaintenanceStartTime :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON FSxFileSystemWindowsConfiguration where - toJSON FSxFileSystemWindowsConfiguration{..} = - object $ - catMaybes - [ fmap (("ActiveDirectoryId",) . toJSON) _fSxFileSystemWindowsConfigurationActiveDirectoryId - , fmap (("AutomaticBackupRetentionDays",) . toJSON) _fSxFileSystemWindowsConfigurationAutomaticBackupRetentionDays - , fmap (("CopyTagsToBackups",) . toJSON) _fSxFileSystemWindowsConfigurationCopyTagsToBackups - , fmap (("DailyAutomaticBackupStartTime",) . toJSON) _fSxFileSystemWindowsConfigurationDailyAutomaticBackupStartTime - , fmap (("DeploymentType",) . toJSON) _fSxFileSystemWindowsConfigurationDeploymentType - , fmap (("PreferredSubnetId",) . toJSON) _fSxFileSystemWindowsConfigurationPreferredSubnetId - , fmap (("SelfManagedActiveDirectoryConfiguration",) . toJSON) _fSxFileSystemWindowsConfigurationSelfManagedActiveDirectoryConfiguration - , fmap (("ThroughputCapacity",) . toJSON) _fSxFileSystemWindowsConfigurationThroughputCapacity - , fmap (("WeeklyMaintenanceStartTime",) . toJSON) _fSxFileSystemWindowsConfigurationWeeklyMaintenanceStartTime - ] - --- | Constructor for 'FSxFileSystemWindowsConfiguration' containing required --- fields as arguments. -fSxFileSystemWindowsConfiguration - :: FSxFileSystemWindowsConfiguration -fSxFileSystemWindowsConfiguration = - FSxFileSystemWindowsConfiguration - { _fSxFileSystemWindowsConfigurationActiveDirectoryId = Nothing - , _fSxFileSystemWindowsConfigurationAutomaticBackupRetentionDays = Nothing - , _fSxFileSystemWindowsConfigurationCopyTagsToBackups = Nothing - , _fSxFileSystemWindowsConfigurationDailyAutomaticBackupStartTime = Nothing - , _fSxFileSystemWindowsConfigurationDeploymentType = Nothing - , _fSxFileSystemWindowsConfigurationPreferredSubnetId = Nothing - , _fSxFileSystemWindowsConfigurationSelfManagedActiveDirectoryConfiguration = Nothing - , _fSxFileSystemWindowsConfigurationThroughputCapacity = Nothing - , _fSxFileSystemWindowsConfigurationWeeklyMaintenanceStartTime = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-windowsconfiguration.html#cfn-fsx-filesystem-windowsconfiguration-activedirectoryid -fsfswcActiveDirectoryId :: Lens' FSxFileSystemWindowsConfiguration (Maybe (Val Text)) -fsfswcActiveDirectoryId = lens _fSxFileSystemWindowsConfigurationActiveDirectoryId (\s a -> s { _fSxFileSystemWindowsConfigurationActiveDirectoryId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-windowsconfiguration.html#cfn-fsx-filesystem-windowsconfiguration-automaticbackupretentiondays -fsfswcAutomaticBackupRetentionDays :: Lens' FSxFileSystemWindowsConfiguration (Maybe (Val Integer)) -fsfswcAutomaticBackupRetentionDays = lens _fSxFileSystemWindowsConfigurationAutomaticBackupRetentionDays (\s a -> s { _fSxFileSystemWindowsConfigurationAutomaticBackupRetentionDays = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-windowsconfiguration.html#cfn-fsx-filesystem-windowsconfiguration-copytagstobackups -fsfswcCopyTagsToBackups :: Lens' FSxFileSystemWindowsConfiguration (Maybe (Val Bool)) -fsfswcCopyTagsToBackups = lens _fSxFileSystemWindowsConfigurationCopyTagsToBackups (\s a -> s { _fSxFileSystemWindowsConfigurationCopyTagsToBackups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-windowsconfiguration.html#cfn-fsx-filesystem-windowsconfiguration-dailyautomaticbackupstarttime -fsfswcDailyAutomaticBackupStartTime :: Lens' FSxFileSystemWindowsConfiguration (Maybe (Val Text)) -fsfswcDailyAutomaticBackupStartTime = lens _fSxFileSystemWindowsConfigurationDailyAutomaticBackupStartTime (\s a -> s { _fSxFileSystemWindowsConfigurationDailyAutomaticBackupStartTime = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-windowsconfiguration.html#cfn-fsx-filesystem-windowsconfiguration-deploymenttype -fsfswcDeploymentType :: Lens' FSxFileSystemWindowsConfiguration (Maybe (Val Text)) -fsfswcDeploymentType = lens _fSxFileSystemWindowsConfigurationDeploymentType (\s a -> s { _fSxFileSystemWindowsConfigurationDeploymentType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-windowsconfiguration.html#cfn-fsx-filesystem-windowsconfiguration-preferredsubnetid -fsfswcPreferredSubnetId :: Lens' FSxFileSystemWindowsConfiguration (Maybe (Val Text)) -fsfswcPreferredSubnetId = lens _fSxFileSystemWindowsConfigurationPreferredSubnetId (\s a -> s { _fSxFileSystemWindowsConfigurationPreferredSubnetId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-windowsconfiguration.html#cfn-fsx-filesystem-windowsconfiguration-selfmanagedactivedirectoryconfiguration -fsfswcSelfManagedActiveDirectoryConfiguration :: Lens' FSxFileSystemWindowsConfiguration (Maybe FSxFileSystemSelfManagedActiveDirectoryConfiguration) -fsfswcSelfManagedActiveDirectoryConfiguration = lens _fSxFileSystemWindowsConfigurationSelfManagedActiveDirectoryConfiguration (\s a -> s { _fSxFileSystemWindowsConfigurationSelfManagedActiveDirectoryConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-windowsconfiguration.html#cfn-fsx-filesystem-windowsconfiguration-throughputcapacity -fsfswcThroughputCapacity :: Lens' FSxFileSystemWindowsConfiguration (Maybe (Val Integer)) -fsfswcThroughputCapacity = lens _fSxFileSystemWindowsConfigurationThroughputCapacity (\s a -> s { _fSxFileSystemWindowsConfigurationThroughputCapacity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-fsx-filesystem-windowsconfiguration.html#cfn-fsx-filesystem-windowsconfiguration-weeklymaintenancestarttime -fsfswcWeeklyMaintenanceStartTime :: Lens' FSxFileSystemWindowsConfiguration (Maybe (Val Text)) -fsfswcWeeklyMaintenanceStartTime = lens _fSxFileSystemWindowsConfigurationWeeklyMaintenanceStartTime (\s a -> s { _fSxFileSystemWindowsConfigurationWeeklyMaintenanceStartTime = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GameLiftAliasRoutingStrategy.hs b/library-gen/Stratosphere/ResourceProperties/GameLiftAliasRoutingStrategy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GameLiftAliasRoutingStrategy.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-alias-routingstrategy.html - -module Stratosphere.ResourceProperties.GameLiftAliasRoutingStrategy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GameLiftAliasRoutingStrategy. See --- 'gameLiftAliasRoutingStrategy' for a more convenient constructor. -data GameLiftAliasRoutingStrategy = - GameLiftAliasRoutingStrategy - { _gameLiftAliasRoutingStrategyFleetId :: Maybe (Val Text) - , _gameLiftAliasRoutingStrategyMessage :: Maybe (Val Text) - , _gameLiftAliasRoutingStrategyType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON GameLiftAliasRoutingStrategy where - toJSON GameLiftAliasRoutingStrategy{..} = - object $ - catMaybes - [ fmap (("FleetId",) . toJSON) _gameLiftAliasRoutingStrategyFleetId - , fmap (("Message",) . toJSON) _gameLiftAliasRoutingStrategyMessage - , fmap (("Type",) . toJSON) _gameLiftAliasRoutingStrategyType - ] - --- | Constructor for 'GameLiftAliasRoutingStrategy' containing required fields --- as arguments. -gameLiftAliasRoutingStrategy - :: GameLiftAliasRoutingStrategy -gameLiftAliasRoutingStrategy = - GameLiftAliasRoutingStrategy - { _gameLiftAliasRoutingStrategyFleetId = Nothing - , _gameLiftAliasRoutingStrategyMessage = Nothing - , _gameLiftAliasRoutingStrategyType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-alias-routingstrategy.html#cfn-gamelift-alias-routingstrategy-fleetid -glarsFleetId :: Lens' GameLiftAliasRoutingStrategy (Maybe (Val Text)) -glarsFleetId = lens _gameLiftAliasRoutingStrategyFleetId (\s a -> s { _gameLiftAliasRoutingStrategyFleetId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-alias-routingstrategy.html#cfn-gamelift-alias-routingstrategy-message -glarsMessage :: Lens' GameLiftAliasRoutingStrategy (Maybe (Val Text)) -glarsMessage = lens _gameLiftAliasRoutingStrategyMessage (\s a -> s { _gameLiftAliasRoutingStrategyMessage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-alias-routingstrategy.html#cfn-gamelift-alias-routingstrategy-type -glarsType :: Lens' GameLiftAliasRoutingStrategy (Maybe (Val Text)) -glarsType = lens _gameLiftAliasRoutingStrategyType (\s a -> s { _gameLiftAliasRoutingStrategyType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GameLiftBuildS3Location.hs b/library-gen/Stratosphere/ResourceProperties/GameLiftBuildS3Location.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GameLiftBuildS3Location.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-build-storagelocation.html - -module Stratosphere.ResourceProperties.GameLiftBuildS3Location where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GameLiftBuildS3Location. See --- 'gameLiftBuildS3Location' for a more convenient constructor. -data GameLiftBuildS3Location = - GameLiftBuildS3Location - { _gameLiftBuildS3LocationBucket :: Val Text - , _gameLiftBuildS3LocationKey :: Val Text - , _gameLiftBuildS3LocationObjectVersion :: Maybe (Val Text) - , _gameLiftBuildS3LocationRoleArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON GameLiftBuildS3Location where - toJSON GameLiftBuildS3Location{..} = - object $ - catMaybes - [ (Just . ("Bucket",) . toJSON) _gameLiftBuildS3LocationBucket - , (Just . ("Key",) . toJSON) _gameLiftBuildS3LocationKey - , fmap (("ObjectVersion",) . toJSON) _gameLiftBuildS3LocationObjectVersion - , (Just . ("RoleArn",) . toJSON) _gameLiftBuildS3LocationRoleArn - ] - --- | Constructor for 'GameLiftBuildS3Location' containing required fields as --- arguments. -gameLiftBuildS3Location - :: Val Text -- ^ 'glbslBucket' - -> Val Text -- ^ 'glbslKey' - -> Val Text -- ^ 'glbslRoleArn' - -> GameLiftBuildS3Location -gameLiftBuildS3Location bucketarg keyarg roleArnarg = - GameLiftBuildS3Location - { _gameLiftBuildS3LocationBucket = bucketarg - , _gameLiftBuildS3LocationKey = keyarg - , _gameLiftBuildS3LocationObjectVersion = Nothing - , _gameLiftBuildS3LocationRoleArn = roleArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-build-storagelocation.html#cfn-gamelift-build-storage-bucket -glbslBucket :: Lens' GameLiftBuildS3Location (Val Text) -glbslBucket = lens _gameLiftBuildS3LocationBucket (\s a -> s { _gameLiftBuildS3LocationBucket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-build-storagelocation.html#cfn-gamelift-build-storage-key -glbslKey :: Lens' GameLiftBuildS3Location (Val Text) -glbslKey = lens _gameLiftBuildS3LocationKey (\s a -> s { _gameLiftBuildS3LocationKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-build-storagelocation.html#cfn-gamelift-build-object-verison -glbslObjectVersion :: Lens' GameLiftBuildS3Location (Maybe (Val Text)) -glbslObjectVersion = lens _gameLiftBuildS3LocationObjectVersion (\s a -> s { _gameLiftBuildS3LocationObjectVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-build-storagelocation.html#cfn-gamelift-build-storage-rolearn -glbslRoleArn :: Lens' GameLiftBuildS3Location (Val Text) -glbslRoleArn = lens _gameLiftBuildS3LocationRoleArn (\s a -> s { _gameLiftBuildS3LocationRoleArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GameLiftFleetCertificateConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/GameLiftFleetCertificateConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GameLiftFleetCertificateConfiguration.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-certificateconfiguration.html - -module Stratosphere.ResourceProperties.GameLiftFleetCertificateConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GameLiftFleetCertificateConfiguration. See --- 'gameLiftFleetCertificateConfiguration' for a more convenient --- constructor. -data GameLiftFleetCertificateConfiguration = - GameLiftFleetCertificateConfiguration - { _gameLiftFleetCertificateConfigurationCertificateType :: Val Text - } deriving (Show, Eq) - -instance ToJSON GameLiftFleetCertificateConfiguration where - toJSON GameLiftFleetCertificateConfiguration{..} = - object $ - catMaybes - [ (Just . ("CertificateType",) . toJSON) _gameLiftFleetCertificateConfigurationCertificateType - ] - --- | Constructor for 'GameLiftFleetCertificateConfiguration' containing --- required fields as arguments. -gameLiftFleetCertificateConfiguration - :: Val Text -- ^ 'glfccCertificateType' - -> GameLiftFleetCertificateConfiguration -gameLiftFleetCertificateConfiguration certificateTypearg = - GameLiftFleetCertificateConfiguration - { _gameLiftFleetCertificateConfigurationCertificateType = certificateTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-certificateconfiguration.html#cfn-gamelift-fleet-certificateconfiguration-certificatetype -glfccCertificateType :: Lens' GameLiftFleetCertificateConfiguration (Val Text) -glfccCertificateType = lens _gameLiftFleetCertificateConfigurationCertificateType (\s a -> s { _gameLiftFleetCertificateConfigurationCertificateType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GameLiftFleetIpPermission.hs b/library-gen/Stratosphere/ResourceProperties/GameLiftFleetIpPermission.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GameLiftFleetIpPermission.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-ec2inboundpermission.html - -module Stratosphere.ResourceProperties.GameLiftFleetIpPermission where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GameLiftFleetIpPermission. See --- 'gameLiftFleetIpPermission' for a more convenient constructor. -data GameLiftFleetIpPermission = - GameLiftFleetIpPermission - { _gameLiftFleetIpPermissionFromPort :: Val Integer - , _gameLiftFleetIpPermissionIpRange :: Val Text - , _gameLiftFleetIpPermissionProtocol :: Val Text - , _gameLiftFleetIpPermissionToPort :: Val Integer - } deriving (Show, Eq) - -instance ToJSON GameLiftFleetIpPermission where - toJSON GameLiftFleetIpPermission{..} = - object $ - catMaybes - [ (Just . ("FromPort",) . toJSON) _gameLiftFleetIpPermissionFromPort - , (Just . ("IpRange",) . toJSON) _gameLiftFleetIpPermissionIpRange - , (Just . ("Protocol",) . toJSON) _gameLiftFleetIpPermissionProtocol - , (Just . ("ToPort",) . toJSON) _gameLiftFleetIpPermissionToPort - ] - --- | Constructor for 'GameLiftFleetIpPermission' containing required fields as --- arguments. -gameLiftFleetIpPermission - :: Val Integer -- ^ 'glfipFromPort' - -> Val Text -- ^ 'glfipIpRange' - -> Val Text -- ^ 'glfipProtocol' - -> Val Integer -- ^ 'glfipToPort' - -> GameLiftFleetIpPermission -gameLiftFleetIpPermission fromPortarg ipRangearg protocolarg toPortarg = - GameLiftFleetIpPermission - { _gameLiftFleetIpPermissionFromPort = fromPortarg - , _gameLiftFleetIpPermissionIpRange = ipRangearg - , _gameLiftFleetIpPermissionProtocol = protocolarg - , _gameLiftFleetIpPermissionToPort = toPortarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-ec2inboundpermission.html#cfn-gamelift-fleet-ec2inboundpermissions-fromport -glfipFromPort :: Lens' GameLiftFleetIpPermission (Val Integer) -glfipFromPort = lens _gameLiftFleetIpPermissionFromPort (\s a -> s { _gameLiftFleetIpPermissionFromPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-ec2inboundpermission.html#cfn-gamelift-fleet-ec2inboundpermissions-iprange -glfipIpRange :: Lens' GameLiftFleetIpPermission (Val Text) -glfipIpRange = lens _gameLiftFleetIpPermissionIpRange (\s a -> s { _gameLiftFleetIpPermissionIpRange = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-ec2inboundpermission.html#cfn-gamelift-fleet-ec2inboundpermissions-protocol -glfipProtocol :: Lens' GameLiftFleetIpPermission (Val Text) -glfipProtocol = lens _gameLiftFleetIpPermissionProtocol (\s a -> s { _gameLiftFleetIpPermissionProtocol = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-ec2inboundpermission.html#cfn-gamelift-fleet-ec2inboundpermissions-toport -glfipToPort :: Lens' GameLiftFleetIpPermission (Val Integer) -glfipToPort = lens _gameLiftFleetIpPermissionToPort (\s a -> s { _gameLiftFleetIpPermissionToPort = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GameLiftFleetResourceCreationLimitPolicy.hs b/library-gen/Stratosphere/ResourceProperties/GameLiftFleetResourceCreationLimitPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GameLiftFleetResourceCreationLimitPolicy.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-resourcecreationlimitpolicy.html - -module Stratosphere.ResourceProperties.GameLiftFleetResourceCreationLimitPolicy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GameLiftFleetResourceCreationLimitPolicy. --- See 'gameLiftFleetResourceCreationLimitPolicy' for a more convenient --- constructor. -data GameLiftFleetResourceCreationLimitPolicy = - GameLiftFleetResourceCreationLimitPolicy - { _gameLiftFleetResourceCreationLimitPolicyNewGameSessionsPerCreator :: Maybe (Val Integer) - , _gameLiftFleetResourceCreationLimitPolicyPolicyPeriodInMinutes :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON GameLiftFleetResourceCreationLimitPolicy where - toJSON GameLiftFleetResourceCreationLimitPolicy{..} = - object $ - catMaybes - [ fmap (("NewGameSessionsPerCreator",) . toJSON) _gameLiftFleetResourceCreationLimitPolicyNewGameSessionsPerCreator - , fmap (("PolicyPeriodInMinutes",) . toJSON) _gameLiftFleetResourceCreationLimitPolicyPolicyPeriodInMinutes - ] - --- | Constructor for 'GameLiftFleetResourceCreationLimitPolicy' containing --- required fields as arguments. -gameLiftFleetResourceCreationLimitPolicy - :: GameLiftFleetResourceCreationLimitPolicy -gameLiftFleetResourceCreationLimitPolicy = - GameLiftFleetResourceCreationLimitPolicy - { _gameLiftFleetResourceCreationLimitPolicyNewGameSessionsPerCreator = Nothing - , _gameLiftFleetResourceCreationLimitPolicyPolicyPeriodInMinutes = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-resourcecreationlimitpolicy.html#cfn-gamelift-fleet-resourcecreationlimitpolicy-newgamesessionspercreator -glfrclpNewGameSessionsPerCreator :: Lens' GameLiftFleetResourceCreationLimitPolicy (Maybe (Val Integer)) -glfrclpNewGameSessionsPerCreator = lens _gameLiftFleetResourceCreationLimitPolicyNewGameSessionsPerCreator (\s a -> s { _gameLiftFleetResourceCreationLimitPolicyNewGameSessionsPerCreator = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-resourcecreationlimitpolicy.html#cfn-gamelift-fleet-resourcecreationlimitpolicy-policyperiodinminutes -glfrclpPolicyPeriodInMinutes :: Lens' GameLiftFleetResourceCreationLimitPolicy (Maybe (Val Integer)) -glfrclpPolicyPeriodInMinutes = lens _gameLiftFleetResourceCreationLimitPolicyPolicyPeriodInMinutes (\s a -> s { _gameLiftFleetResourceCreationLimitPolicyPolicyPeriodInMinutes = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GameLiftFleetRuntimeConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/GameLiftFleetRuntimeConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GameLiftFleetRuntimeConfiguration.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-runtimeconfiguration.html - -module Stratosphere.ResourceProperties.GameLiftFleetRuntimeConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GameLiftFleetServerProcess - --- | Full data type definition for GameLiftFleetRuntimeConfiguration. See --- 'gameLiftFleetRuntimeConfiguration' for a more convenient constructor. -data GameLiftFleetRuntimeConfiguration = - GameLiftFleetRuntimeConfiguration - { _gameLiftFleetRuntimeConfigurationGameSessionActivationTimeoutSeconds :: Maybe (Val Integer) - , _gameLiftFleetRuntimeConfigurationMaxConcurrentGameSessionActivations :: Maybe (Val Integer) - , _gameLiftFleetRuntimeConfigurationServerProcesses :: Maybe [GameLiftFleetServerProcess] - } deriving (Show, Eq) - -instance ToJSON GameLiftFleetRuntimeConfiguration where - toJSON GameLiftFleetRuntimeConfiguration{..} = - object $ - catMaybes - [ fmap (("GameSessionActivationTimeoutSeconds",) . toJSON) _gameLiftFleetRuntimeConfigurationGameSessionActivationTimeoutSeconds - , fmap (("MaxConcurrentGameSessionActivations",) . toJSON) _gameLiftFleetRuntimeConfigurationMaxConcurrentGameSessionActivations - , fmap (("ServerProcesses",) . toJSON) _gameLiftFleetRuntimeConfigurationServerProcesses - ] - --- | Constructor for 'GameLiftFleetRuntimeConfiguration' containing required --- fields as arguments. -gameLiftFleetRuntimeConfiguration - :: GameLiftFleetRuntimeConfiguration -gameLiftFleetRuntimeConfiguration = - GameLiftFleetRuntimeConfiguration - { _gameLiftFleetRuntimeConfigurationGameSessionActivationTimeoutSeconds = Nothing - , _gameLiftFleetRuntimeConfigurationMaxConcurrentGameSessionActivations = Nothing - , _gameLiftFleetRuntimeConfigurationServerProcesses = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-runtimeconfiguration.html#cfn-gamelift-fleet-runtimeconfiguration-gamesessionactivationtimeoutseconds -glfrcGameSessionActivationTimeoutSeconds :: Lens' GameLiftFleetRuntimeConfiguration (Maybe (Val Integer)) -glfrcGameSessionActivationTimeoutSeconds = lens _gameLiftFleetRuntimeConfigurationGameSessionActivationTimeoutSeconds (\s a -> s { _gameLiftFleetRuntimeConfigurationGameSessionActivationTimeoutSeconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-runtimeconfiguration.html#cfn-gamelift-fleet-runtimeconfiguration-maxconcurrentgamesessionactivations -glfrcMaxConcurrentGameSessionActivations :: Lens' GameLiftFleetRuntimeConfiguration (Maybe (Val Integer)) -glfrcMaxConcurrentGameSessionActivations = lens _gameLiftFleetRuntimeConfigurationMaxConcurrentGameSessionActivations (\s a -> s { _gameLiftFleetRuntimeConfigurationMaxConcurrentGameSessionActivations = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-runtimeconfiguration.html#cfn-gamelift-fleet-runtimeconfiguration-serverprocesses -glfrcServerProcesses :: Lens' GameLiftFleetRuntimeConfiguration (Maybe [GameLiftFleetServerProcess]) -glfrcServerProcesses = lens _gameLiftFleetRuntimeConfigurationServerProcesses (\s a -> s { _gameLiftFleetRuntimeConfigurationServerProcesses = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GameLiftFleetServerProcess.hs b/library-gen/Stratosphere/ResourceProperties/GameLiftFleetServerProcess.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GameLiftFleetServerProcess.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-serverprocess.html - -module Stratosphere.ResourceProperties.GameLiftFleetServerProcess where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GameLiftFleetServerProcess. See --- 'gameLiftFleetServerProcess' for a more convenient constructor. -data GameLiftFleetServerProcess = - GameLiftFleetServerProcess - { _gameLiftFleetServerProcessConcurrentExecutions :: Val Integer - , _gameLiftFleetServerProcessLaunchPath :: Val Text - , _gameLiftFleetServerProcessParameters :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON GameLiftFleetServerProcess where - toJSON GameLiftFleetServerProcess{..} = - object $ - catMaybes - [ (Just . ("ConcurrentExecutions",) . toJSON) _gameLiftFleetServerProcessConcurrentExecutions - , (Just . ("LaunchPath",) . toJSON) _gameLiftFleetServerProcessLaunchPath - , fmap (("Parameters",) . toJSON) _gameLiftFleetServerProcessParameters - ] - --- | Constructor for 'GameLiftFleetServerProcess' containing required fields --- as arguments. -gameLiftFleetServerProcess - :: Val Integer -- ^ 'glfspConcurrentExecutions' - -> Val Text -- ^ 'glfspLaunchPath' - -> GameLiftFleetServerProcess -gameLiftFleetServerProcess concurrentExecutionsarg launchPatharg = - GameLiftFleetServerProcess - { _gameLiftFleetServerProcessConcurrentExecutions = concurrentExecutionsarg - , _gameLiftFleetServerProcessLaunchPath = launchPatharg - , _gameLiftFleetServerProcessParameters = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-serverprocess.html#cfn-gamelift-fleet-serverprocess-concurrentexecutions -glfspConcurrentExecutions :: Lens' GameLiftFleetServerProcess (Val Integer) -glfspConcurrentExecutions = lens _gameLiftFleetServerProcessConcurrentExecutions (\s a -> s { _gameLiftFleetServerProcessConcurrentExecutions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-serverprocess.html#cfn-gamelift-fleet-serverprocess-launchpath -glfspLaunchPath :: Lens' GameLiftFleetServerProcess (Val Text) -glfspLaunchPath = lens _gameLiftFleetServerProcessLaunchPath (\s a -> s { _gameLiftFleetServerProcessLaunchPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-fleet-serverprocess.html#cfn-gamelift-fleet-serverprocess-parameters -glfspParameters :: Lens' GameLiftFleetServerProcess (Maybe (Val Text)) -glfspParameters = lens _gameLiftFleetServerProcessParameters (\s a -> s { _gameLiftFleetServerProcessParameters = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GameLiftGameServerGroupAutoScalingPolicy.hs b/library-gen/Stratosphere/ResourceProperties/GameLiftGameServerGroupAutoScalingPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GameLiftGameServerGroupAutoScalingPolicy.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-gameservergroup-autoscalingpolicy.html - -module Stratosphere.ResourceProperties.GameLiftGameServerGroupAutoScalingPolicy where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GameLiftGameServerGroupTargetTrackingConfiguration - --- | Full data type definition for GameLiftGameServerGroupAutoScalingPolicy. --- See 'gameLiftGameServerGroupAutoScalingPolicy' for a more convenient --- constructor. -data GameLiftGameServerGroupAutoScalingPolicy = - GameLiftGameServerGroupAutoScalingPolicy - { _gameLiftGameServerGroupAutoScalingPolicyEstimatedInstanceWarmup :: Maybe (Val Double) - , _gameLiftGameServerGroupAutoScalingPolicyTargetTrackingConfiguration :: GameLiftGameServerGroupTargetTrackingConfiguration - } deriving (Show, Eq) - -instance ToJSON GameLiftGameServerGroupAutoScalingPolicy where - toJSON GameLiftGameServerGroupAutoScalingPolicy{..} = - object $ - catMaybes - [ fmap (("EstimatedInstanceWarmup",) . toJSON) _gameLiftGameServerGroupAutoScalingPolicyEstimatedInstanceWarmup - , (Just . ("TargetTrackingConfiguration",) . toJSON) _gameLiftGameServerGroupAutoScalingPolicyTargetTrackingConfiguration - ] - --- | Constructor for 'GameLiftGameServerGroupAutoScalingPolicy' containing --- required fields as arguments. -gameLiftGameServerGroupAutoScalingPolicy - :: GameLiftGameServerGroupTargetTrackingConfiguration -- ^ 'glgsgaspTargetTrackingConfiguration' - -> GameLiftGameServerGroupAutoScalingPolicy -gameLiftGameServerGroupAutoScalingPolicy targetTrackingConfigurationarg = - GameLiftGameServerGroupAutoScalingPolicy - { _gameLiftGameServerGroupAutoScalingPolicyEstimatedInstanceWarmup = Nothing - , _gameLiftGameServerGroupAutoScalingPolicyTargetTrackingConfiguration = targetTrackingConfigurationarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-gameservergroup-autoscalingpolicy.html#cfn-gamelift-gameservergroup-autoscalingpolicy-estimatedinstancewarmup -glgsgaspEstimatedInstanceWarmup :: Lens' GameLiftGameServerGroupAutoScalingPolicy (Maybe (Val Double)) -glgsgaspEstimatedInstanceWarmup = lens _gameLiftGameServerGroupAutoScalingPolicyEstimatedInstanceWarmup (\s a -> s { _gameLiftGameServerGroupAutoScalingPolicyEstimatedInstanceWarmup = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-gameservergroup-autoscalingpolicy.html#cfn-gamelift-gameservergroup-autoscalingpolicy-targettrackingconfiguration -glgsgaspTargetTrackingConfiguration :: Lens' GameLiftGameServerGroupAutoScalingPolicy GameLiftGameServerGroupTargetTrackingConfiguration -glgsgaspTargetTrackingConfiguration = lens _gameLiftGameServerGroupAutoScalingPolicyTargetTrackingConfiguration (\s a -> s { _gameLiftGameServerGroupAutoScalingPolicyTargetTrackingConfiguration = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GameLiftGameServerGroupInstanceDefinition.hs b/library-gen/Stratosphere/ResourceProperties/GameLiftGameServerGroupInstanceDefinition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GameLiftGameServerGroupInstanceDefinition.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-gameservergroup-instancedefinition.html - -module Stratosphere.ResourceProperties.GameLiftGameServerGroupInstanceDefinition where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GameLiftGameServerGroupInstanceDefinition. --- See 'gameLiftGameServerGroupInstanceDefinition' for a more convenient --- constructor. -data GameLiftGameServerGroupInstanceDefinition = - GameLiftGameServerGroupInstanceDefinition - { _gameLiftGameServerGroupInstanceDefinitionInstanceType :: Val Text - , _gameLiftGameServerGroupInstanceDefinitionWeightedCapacity :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON GameLiftGameServerGroupInstanceDefinition where - toJSON GameLiftGameServerGroupInstanceDefinition{..} = - object $ - catMaybes - [ (Just . ("InstanceType",) . toJSON) _gameLiftGameServerGroupInstanceDefinitionInstanceType - , fmap (("WeightedCapacity",) . toJSON) _gameLiftGameServerGroupInstanceDefinitionWeightedCapacity - ] - --- | Constructor for 'GameLiftGameServerGroupInstanceDefinition' containing --- required fields as arguments. -gameLiftGameServerGroupInstanceDefinition - :: Val Text -- ^ 'glgsgidInstanceType' - -> GameLiftGameServerGroupInstanceDefinition -gameLiftGameServerGroupInstanceDefinition instanceTypearg = - GameLiftGameServerGroupInstanceDefinition - { _gameLiftGameServerGroupInstanceDefinitionInstanceType = instanceTypearg - , _gameLiftGameServerGroupInstanceDefinitionWeightedCapacity = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-gameservergroup-instancedefinition.html#cfn-gamelift-gameservergroup-instancedefinition-instancetype -glgsgidInstanceType :: Lens' GameLiftGameServerGroupInstanceDefinition (Val Text) -glgsgidInstanceType = lens _gameLiftGameServerGroupInstanceDefinitionInstanceType (\s a -> s { _gameLiftGameServerGroupInstanceDefinitionInstanceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-gameservergroup-instancedefinition.html#cfn-gamelift-gameservergroup-instancedefinition-weightedcapacity -glgsgidWeightedCapacity :: Lens' GameLiftGameServerGroupInstanceDefinition (Maybe (Val Text)) -glgsgidWeightedCapacity = lens _gameLiftGameServerGroupInstanceDefinitionWeightedCapacity (\s a -> s { _gameLiftGameServerGroupInstanceDefinitionWeightedCapacity = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GameLiftGameServerGroupInstanceDefinitions.hs b/library-gen/Stratosphere/ResourceProperties/GameLiftGameServerGroupInstanceDefinitions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GameLiftGameServerGroupInstanceDefinitions.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-gameservergroup-instancedefinitions.html - -module Stratosphere.ResourceProperties.GameLiftGameServerGroupInstanceDefinitions where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GameLiftGameServerGroupInstanceDefinition - --- | Full data type definition for GameLiftGameServerGroupInstanceDefinitions. --- See 'gameLiftGameServerGroupInstanceDefinitions' for a more convenient --- constructor. -data GameLiftGameServerGroupInstanceDefinitions = - GameLiftGameServerGroupInstanceDefinitions - { _gameLiftGameServerGroupInstanceDefinitionsInstanceDefinitions :: Maybe [GameLiftGameServerGroupInstanceDefinition] - } deriving (Show, Eq) - -instance ToJSON GameLiftGameServerGroupInstanceDefinitions where - toJSON GameLiftGameServerGroupInstanceDefinitions{..} = - object $ - catMaybes - [ fmap (("InstanceDefinitions",) . toJSON) _gameLiftGameServerGroupInstanceDefinitionsInstanceDefinitions - ] - --- | Constructor for 'GameLiftGameServerGroupInstanceDefinitions' containing --- required fields as arguments. -gameLiftGameServerGroupInstanceDefinitions - :: GameLiftGameServerGroupInstanceDefinitions -gameLiftGameServerGroupInstanceDefinitions = - GameLiftGameServerGroupInstanceDefinitions - { _gameLiftGameServerGroupInstanceDefinitionsInstanceDefinitions = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-gameservergroup-instancedefinitions.html#cfn-gamelift-gameservergroup-instancedefinitions-instancedefinitions -glgsgidInstanceDefinitions :: Lens' GameLiftGameServerGroupInstanceDefinitions (Maybe [GameLiftGameServerGroupInstanceDefinition]) -glgsgidInstanceDefinitions = lens _gameLiftGameServerGroupInstanceDefinitionsInstanceDefinitions (\s a -> s { _gameLiftGameServerGroupInstanceDefinitionsInstanceDefinitions = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GameLiftGameServerGroupLaunchTemplate.hs b/library-gen/Stratosphere/ResourceProperties/GameLiftGameServerGroupLaunchTemplate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GameLiftGameServerGroupLaunchTemplate.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-gameservergroup-launchtemplate.html - -module Stratosphere.ResourceProperties.GameLiftGameServerGroupLaunchTemplate where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GameLiftGameServerGroupLaunchTemplate. See --- 'gameLiftGameServerGroupLaunchTemplate' for a more convenient --- constructor. -data GameLiftGameServerGroupLaunchTemplate = - GameLiftGameServerGroupLaunchTemplate - { _gameLiftGameServerGroupLaunchTemplateLaunchTemplateId :: Maybe (Val Text) - , _gameLiftGameServerGroupLaunchTemplateLaunchTemplateName :: Maybe (Val Text) - , _gameLiftGameServerGroupLaunchTemplateVersion :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON GameLiftGameServerGroupLaunchTemplate where - toJSON GameLiftGameServerGroupLaunchTemplate{..} = - object $ - catMaybes - [ fmap (("LaunchTemplateId",) . toJSON) _gameLiftGameServerGroupLaunchTemplateLaunchTemplateId - , fmap (("LaunchTemplateName",) . toJSON) _gameLiftGameServerGroupLaunchTemplateLaunchTemplateName - , fmap (("Version",) . toJSON) _gameLiftGameServerGroupLaunchTemplateVersion - ] - --- | Constructor for 'GameLiftGameServerGroupLaunchTemplate' containing --- required fields as arguments. -gameLiftGameServerGroupLaunchTemplate - :: GameLiftGameServerGroupLaunchTemplate -gameLiftGameServerGroupLaunchTemplate = - GameLiftGameServerGroupLaunchTemplate - { _gameLiftGameServerGroupLaunchTemplateLaunchTemplateId = Nothing - , _gameLiftGameServerGroupLaunchTemplateLaunchTemplateName = Nothing - , _gameLiftGameServerGroupLaunchTemplateVersion = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-gameservergroup-launchtemplate.html#cfn-gamelift-gameservergroup-launchtemplate-launchtemplateid -glgsgltLaunchTemplateId :: Lens' GameLiftGameServerGroupLaunchTemplate (Maybe (Val Text)) -glgsgltLaunchTemplateId = lens _gameLiftGameServerGroupLaunchTemplateLaunchTemplateId (\s a -> s { _gameLiftGameServerGroupLaunchTemplateLaunchTemplateId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-gameservergroup-launchtemplate.html#cfn-gamelift-gameservergroup-launchtemplate-launchtemplatename -glgsgltLaunchTemplateName :: Lens' GameLiftGameServerGroupLaunchTemplate (Maybe (Val Text)) -glgsgltLaunchTemplateName = lens _gameLiftGameServerGroupLaunchTemplateLaunchTemplateName (\s a -> s { _gameLiftGameServerGroupLaunchTemplateLaunchTemplateName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-gameservergroup-launchtemplate.html#cfn-gamelift-gameservergroup-launchtemplate-version -glgsgltVersion :: Lens' GameLiftGameServerGroupLaunchTemplate (Maybe (Val Text)) -glgsgltVersion = lens _gameLiftGameServerGroupLaunchTemplateVersion (\s a -> s { _gameLiftGameServerGroupLaunchTemplateVersion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GameLiftGameServerGroupTags.hs b/library-gen/Stratosphere/ResourceProperties/GameLiftGameServerGroupTags.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GameLiftGameServerGroupTags.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-gameservergroup-tags.html - -module Stratosphere.ResourceProperties.GameLiftGameServerGroupTags where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for GameLiftGameServerGroupTags. See --- 'gameLiftGameServerGroupTags' for a more convenient constructor. -data GameLiftGameServerGroupTags = - GameLiftGameServerGroupTags - { _gameLiftGameServerGroupTagsTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToJSON GameLiftGameServerGroupTags where - toJSON GameLiftGameServerGroupTags{..} = - object $ - catMaybes - [ fmap (("Tags",) . toJSON) _gameLiftGameServerGroupTagsTags - ] - --- | Constructor for 'GameLiftGameServerGroupTags' containing required fields --- as arguments. -gameLiftGameServerGroupTags - :: GameLiftGameServerGroupTags -gameLiftGameServerGroupTags = - GameLiftGameServerGroupTags - { _gameLiftGameServerGroupTagsTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-gameservergroup-tags.html#cfn-gamelift-gameservergroup-tags-tags -glgsgtTags :: Lens' GameLiftGameServerGroupTags (Maybe [Tag]) -glgsgtTags = lens _gameLiftGameServerGroupTagsTags (\s a -> s { _gameLiftGameServerGroupTagsTags = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GameLiftGameServerGroupTargetTrackingConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/GameLiftGameServerGroupTargetTrackingConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GameLiftGameServerGroupTargetTrackingConfiguration.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-gameservergroup-targettrackingconfiguration.html - -module Stratosphere.ResourceProperties.GameLiftGameServerGroupTargetTrackingConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- GameLiftGameServerGroupTargetTrackingConfiguration. See --- 'gameLiftGameServerGroupTargetTrackingConfiguration' for a more --- convenient constructor. -data GameLiftGameServerGroupTargetTrackingConfiguration = - GameLiftGameServerGroupTargetTrackingConfiguration - { _gameLiftGameServerGroupTargetTrackingConfigurationTargetValue :: Val Double - } deriving (Show, Eq) - -instance ToJSON GameLiftGameServerGroupTargetTrackingConfiguration where - toJSON GameLiftGameServerGroupTargetTrackingConfiguration{..} = - object $ - catMaybes - [ (Just . ("TargetValue",) . toJSON) _gameLiftGameServerGroupTargetTrackingConfigurationTargetValue - ] - --- | Constructor for 'GameLiftGameServerGroupTargetTrackingConfiguration' --- containing required fields as arguments. -gameLiftGameServerGroupTargetTrackingConfiguration - :: Val Double -- ^ 'glgsgttcTargetValue' - -> GameLiftGameServerGroupTargetTrackingConfiguration -gameLiftGameServerGroupTargetTrackingConfiguration targetValuearg = - GameLiftGameServerGroupTargetTrackingConfiguration - { _gameLiftGameServerGroupTargetTrackingConfigurationTargetValue = targetValuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-gameservergroup-targettrackingconfiguration.html#cfn-gamelift-gameservergroup-targettrackingconfiguration-targetvalue -glgsgttcTargetValue :: Lens' GameLiftGameServerGroupTargetTrackingConfiguration (Val Double) -glgsgttcTargetValue = lens _gameLiftGameServerGroupTargetTrackingConfigurationTargetValue (\s a -> s { _gameLiftGameServerGroupTargetTrackingConfigurationTargetValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GameLiftGameServerGroupVpcSubnets.hs b/library-gen/Stratosphere/ResourceProperties/GameLiftGameServerGroupVpcSubnets.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GameLiftGameServerGroupVpcSubnets.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-gameservergroup-vpcsubnets.html - -module Stratosphere.ResourceProperties.GameLiftGameServerGroupVpcSubnets where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GameLiftGameServerGroupVpcSubnets. See --- 'gameLiftGameServerGroupVpcSubnets' for a more convenient constructor. -data GameLiftGameServerGroupVpcSubnets = - GameLiftGameServerGroupVpcSubnets - { _gameLiftGameServerGroupVpcSubnetsVpcSubnets :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON GameLiftGameServerGroupVpcSubnets where - toJSON GameLiftGameServerGroupVpcSubnets{..} = - object $ - catMaybes - [ fmap (("VpcSubnets",) . toJSON) _gameLiftGameServerGroupVpcSubnetsVpcSubnets - ] - --- | Constructor for 'GameLiftGameServerGroupVpcSubnets' containing required --- fields as arguments. -gameLiftGameServerGroupVpcSubnets - :: GameLiftGameServerGroupVpcSubnets -gameLiftGameServerGroupVpcSubnets = - GameLiftGameServerGroupVpcSubnets - { _gameLiftGameServerGroupVpcSubnetsVpcSubnets = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-gameservergroup-vpcsubnets.html#cfn-gamelift-gameservergroup-vpcsubnets-vpcsubnets -glgsgvsVpcSubnets :: Lens' GameLiftGameServerGroupVpcSubnets (Maybe (ValList Text)) -glgsgvsVpcSubnets = lens _gameLiftGameServerGroupVpcSubnetsVpcSubnets (\s a -> s { _gameLiftGameServerGroupVpcSubnetsVpcSubnets = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GameLiftGameSessionQueueDestination.hs b/library-gen/Stratosphere/ResourceProperties/GameLiftGameSessionQueueDestination.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GameLiftGameSessionQueueDestination.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-gamesessionqueue-destination.html - -module Stratosphere.ResourceProperties.GameLiftGameSessionQueueDestination where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GameLiftGameSessionQueueDestination. See --- 'gameLiftGameSessionQueueDestination' for a more convenient constructor. -data GameLiftGameSessionQueueDestination = - GameLiftGameSessionQueueDestination - { _gameLiftGameSessionQueueDestinationDestinationArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON GameLiftGameSessionQueueDestination where - toJSON GameLiftGameSessionQueueDestination{..} = - object $ - catMaybes - [ fmap (("DestinationArn",) . toJSON) _gameLiftGameSessionQueueDestinationDestinationArn - ] - --- | Constructor for 'GameLiftGameSessionQueueDestination' containing required --- fields as arguments. -gameLiftGameSessionQueueDestination - :: GameLiftGameSessionQueueDestination -gameLiftGameSessionQueueDestination = - GameLiftGameSessionQueueDestination - { _gameLiftGameSessionQueueDestinationDestinationArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-gamesessionqueue-destination.html#cfn-gamelift-gamesessionqueue-destination-destinationarn -glgsqdDestinationArn :: Lens' GameLiftGameSessionQueueDestination (Maybe (Val Text)) -glgsqdDestinationArn = lens _gameLiftGameSessionQueueDestinationDestinationArn (\s a -> s { _gameLiftGameSessionQueueDestinationDestinationArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GameLiftGameSessionQueuePlayerLatencyPolicy.hs b/library-gen/Stratosphere/ResourceProperties/GameLiftGameSessionQueuePlayerLatencyPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GameLiftGameSessionQueuePlayerLatencyPolicy.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-gamesessionqueue-playerlatencypolicy.html - -module Stratosphere.ResourceProperties.GameLiftGameSessionQueuePlayerLatencyPolicy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- GameLiftGameSessionQueuePlayerLatencyPolicy. See --- 'gameLiftGameSessionQueuePlayerLatencyPolicy' for a more convenient --- constructor. -data GameLiftGameSessionQueuePlayerLatencyPolicy = - GameLiftGameSessionQueuePlayerLatencyPolicy - { _gameLiftGameSessionQueuePlayerLatencyPolicyMaximumIndividualPlayerLatencyMilliseconds :: Maybe (Val Integer) - , _gameLiftGameSessionQueuePlayerLatencyPolicyPolicyDurationSeconds :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON GameLiftGameSessionQueuePlayerLatencyPolicy where - toJSON GameLiftGameSessionQueuePlayerLatencyPolicy{..} = - object $ - catMaybes - [ fmap (("MaximumIndividualPlayerLatencyMilliseconds",) . toJSON) _gameLiftGameSessionQueuePlayerLatencyPolicyMaximumIndividualPlayerLatencyMilliseconds - , fmap (("PolicyDurationSeconds",) . toJSON) _gameLiftGameSessionQueuePlayerLatencyPolicyPolicyDurationSeconds - ] - --- | Constructor for 'GameLiftGameSessionQueuePlayerLatencyPolicy' containing --- required fields as arguments. -gameLiftGameSessionQueuePlayerLatencyPolicy - :: GameLiftGameSessionQueuePlayerLatencyPolicy -gameLiftGameSessionQueuePlayerLatencyPolicy = - GameLiftGameSessionQueuePlayerLatencyPolicy - { _gameLiftGameSessionQueuePlayerLatencyPolicyMaximumIndividualPlayerLatencyMilliseconds = Nothing - , _gameLiftGameSessionQueuePlayerLatencyPolicyPolicyDurationSeconds = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-gamesessionqueue-playerlatencypolicy.html#cfn-gamelift-gamesessionqueue-playerlatencypolicy-maximumindividualplayerlatencymilliseconds -glgsqplpMaximumIndividualPlayerLatencyMilliseconds :: Lens' GameLiftGameSessionQueuePlayerLatencyPolicy (Maybe (Val Integer)) -glgsqplpMaximumIndividualPlayerLatencyMilliseconds = lens _gameLiftGameSessionQueuePlayerLatencyPolicyMaximumIndividualPlayerLatencyMilliseconds (\s a -> s { _gameLiftGameSessionQueuePlayerLatencyPolicyMaximumIndividualPlayerLatencyMilliseconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-gamesessionqueue-playerlatencypolicy.html#cfn-gamelift-gamesessionqueue-playerlatencypolicy-policydurationseconds -glgsqplpPolicyDurationSeconds :: Lens' GameLiftGameSessionQueuePlayerLatencyPolicy (Maybe (Val Integer)) -glgsqplpPolicyDurationSeconds = lens _gameLiftGameSessionQueuePlayerLatencyPolicyPolicyDurationSeconds (\s a -> s { _gameLiftGameSessionQueuePlayerLatencyPolicyPolicyDurationSeconds = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GameLiftMatchmakingConfigurationGameProperty.hs b/library-gen/Stratosphere/ResourceProperties/GameLiftMatchmakingConfigurationGameProperty.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GameLiftMatchmakingConfigurationGameProperty.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-matchmakingconfiguration-gameproperty.html - -module Stratosphere.ResourceProperties.GameLiftMatchmakingConfigurationGameProperty where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- GameLiftMatchmakingConfigurationGameProperty. See --- 'gameLiftMatchmakingConfigurationGameProperty' for a more convenient --- constructor. -data GameLiftMatchmakingConfigurationGameProperty = - GameLiftMatchmakingConfigurationGameProperty - { _gameLiftMatchmakingConfigurationGamePropertyKey :: Val Text - , _gameLiftMatchmakingConfigurationGamePropertyValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON GameLiftMatchmakingConfigurationGameProperty where - toJSON GameLiftMatchmakingConfigurationGameProperty{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _gameLiftMatchmakingConfigurationGamePropertyKey - , (Just . ("Value",) . toJSON) _gameLiftMatchmakingConfigurationGamePropertyValue - ] - --- | Constructor for 'GameLiftMatchmakingConfigurationGameProperty' containing --- required fields as arguments. -gameLiftMatchmakingConfigurationGameProperty - :: Val Text -- ^ 'glmcgpKey' - -> Val Text -- ^ 'glmcgpValue' - -> GameLiftMatchmakingConfigurationGameProperty -gameLiftMatchmakingConfigurationGameProperty keyarg valuearg = - GameLiftMatchmakingConfigurationGameProperty - { _gameLiftMatchmakingConfigurationGamePropertyKey = keyarg - , _gameLiftMatchmakingConfigurationGamePropertyValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-matchmakingconfiguration-gameproperty.html#cfn-gamelift-matchmakingconfiguration-gameproperty-key -glmcgpKey :: Lens' GameLiftMatchmakingConfigurationGameProperty (Val Text) -glmcgpKey = lens _gameLiftMatchmakingConfigurationGamePropertyKey (\s a -> s { _gameLiftMatchmakingConfigurationGamePropertyKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-matchmakingconfiguration-gameproperty.html#cfn-gamelift-matchmakingconfiguration-gameproperty-value -glmcgpValue :: Lens' GameLiftMatchmakingConfigurationGameProperty (Val Text) -glmcgpValue = lens _gameLiftMatchmakingConfigurationGamePropertyValue (\s a -> s { _gameLiftMatchmakingConfigurationGamePropertyValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GameLiftScriptS3Location.hs b/library-gen/Stratosphere/ResourceProperties/GameLiftScriptS3Location.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GameLiftScriptS3Location.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-script-s3location.html - -module Stratosphere.ResourceProperties.GameLiftScriptS3Location where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GameLiftScriptS3Location. See --- 'gameLiftScriptS3Location' for a more convenient constructor. -data GameLiftScriptS3Location = - GameLiftScriptS3Location - { _gameLiftScriptS3LocationBucket :: Val Text - , _gameLiftScriptS3LocationKey :: Val Text - , _gameLiftScriptS3LocationObjectVersion :: Maybe (Val Text) - , _gameLiftScriptS3LocationRoleArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON GameLiftScriptS3Location where - toJSON GameLiftScriptS3Location{..} = - object $ - catMaybes - [ (Just . ("Bucket",) . toJSON) _gameLiftScriptS3LocationBucket - , (Just . ("Key",) . toJSON) _gameLiftScriptS3LocationKey - , fmap (("ObjectVersion",) . toJSON) _gameLiftScriptS3LocationObjectVersion - , (Just . ("RoleArn",) . toJSON) _gameLiftScriptS3LocationRoleArn - ] - --- | Constructor for 'GameLiftScriptS3Location' containing required fields as --- arguments. -gameLiftScriptS3Location - :: Val Text -- ^ 'glsslBucket' - -> Val Text -- ^ 'glsslKey' - -> Val Text -- ^ 'glsslRoleArn' - -> GameLiftScriptS3Location -gameLiftScriptS3Location bucketarg keyarg roleArnarg = - GameLiftScriptS3Location - { _gameLiftScriptS3LocationBucket = bucketarg - , _gameLiftScriptS3LocationKey = keyarg - , _gameLiftScriptS3LocationObjectVersion = Nothing - , _gameLiftScriptS3LocationRoleArn = roleArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-script-s3location.html#cfn-gamelift-script-s3location-bucket -glsslBucket :: Lens' GameLiftScriptS3Location (Val Text) -glsslBucket = lens _gameLiftScriptS3LocationBucket (\s a -> s { _gameLiftScriptS3LocationBucket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-script-s3location.html#cfn-gamelift-script-s3location-key -glsslKey :: Lens' GameLiftScriptS3Location (Val Text) -glsslKey = lens _gameLiftScriptS3LocationKey (\s a -> s { _gameLiftScriptS3LocationKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-script-s3location.html#cfn-gamelift-script-s3location-objectversion -glsslObjectVersion :: Lens' GameLiftScriptS3Location (Maybe (Val Text)) -glsslObjectVersion = lens _gameLiftScriptS3LocationObjectVersion (\s a -> s { _gameLiftScriptS3LocationObjectVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-gamelift-script-s3location.html#cfn-gamelift-script-s3location-rolearn -glsslRoleArn :: Lens' GameLiftScriptS3Location (Val Text) -glsslRoleArn = lens _gameLiftScriptS3LocationRoleArn (\s a -> s { _gameLiftScriptS3LocationRoleArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlobalAcceleratorEndpointGroupEndpointConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/GlobalAcceleratorEndpointGroupEndpointConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlobalAcceleratorEndpointGroupEndpointConfiguration.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-globalaccelerator-endpointgroup-endpointconfiguration.html - -module Stratosphere.ResourceProperties.GlobalAcceleratorEndpointGroupEndpointConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- GlobalAcceleratorEndpointGroupEndpointConfiguration. See --- 'globalAcceleratorEndpointGroupEndpointConfiguration' for a more --- convenient constructor. -data GlobalAcceleratorEndpointGroupEndpointConfiguration = - GlobalAcceleratorEndpointGroupEndpointConfiguration - { _globalAcceleratorEndpointGroupEndpointConfigurationClientIPPreservationEnabled :: Maybe (Val Bool) - , _globalAcceleratorEndpointGroupEndpointConfigurationEndpointId :: Val Text - , _globalAcceleratorEndpointGroupEndpointConfigurationWeight :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON GlobalAcceleratorEndpointGroupEndpointConfiguration where - toJSON GlobalAcceleratorEndpointGroupEndpointConfiguration{..} = - object $ - catMaybes - [ fmap (("ClientIPPreservationEnabled",) . toJSON) _globalAcceleratorEndpointGroupEndpointConfigurationClientIPPreservationEnabled - , (Just . ("EndpointId",) . toJSON) _globalAcceleratorEndpointGroupEndpointConfigurationEndpointId - , fmap (("Weight",) . toJSON) _globalAcceleratorEndpointGroupEndpointConfigurationWeight - ] - --- | Constructor for 'GlobalAcceleratorEndpointGroupEndpointConfiguration' --- containing required fields as arguments. -globalAcceleratorEndpointGroupEndpointConfiguration - :: Val Text -- ^ 'gaegecEndpointId' - -> GlobalAcceleratorEndpointGroupEndpointConfiguration -globalAcceleratorEndpointGroupEndpointConfiguration endpointIdarg = - GlobalAcceleratorEndpointGroupEndpointConfiguration - { _globalAcceleratorEndpointGroupEndpointConfigurationClientIPPreservationEnabled = Nothing - , _globalAcceleratorEndpointGroupEndpointConfigurationEndpointId = endpointIdarg - , _globalAcceleratorEndpointGroupEndpointConfigurationWeight = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-globalaccelerator-endpointgroup-endpointconfiguration.html#cfn-globalaccelerator-endpointgroup-endpointconfiguration-clientippreservationenabled -gaegecClientIPPreservationEnabled :: Lens' GlobalAcceleratorEndpointGroupEndpointConfiguration (Maybe (Val Bool)) -gaegecClientIPPreservationEnabled = lens _globalAcceleratorEndpointGroupEndpointConfigurationClientIPPreservationEnabled (\s a -> s { _globalAcceleratorEndpointGroupEndpointConfigurationClientIPPreservationEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-globalaccelerator-endpointgroup-endpointconfiguration.html#cfn-globalaccelerator-endpointgroup-endpointconfiguration-endpointid -gaegecEndpointId :: Lens' GlobalAcceleratorEndpointGroupEndpointConfiguration (Val Text) -gaegecEndpointId = lens _globalAcceleratorEndpointGroupEndpointConfigurationEndpointId (\s a -> s { _globalAcceleratorEndpointGroupEndpointConfigurationEndpointId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-globalaccelerator-endpointgroup-endpointconfiguration.html#cfn-globalaccelerator-endpointgroup-endpointconfiguration-weight -gaegecWeight :: Lens' GlobalAcceleratorEndpointGroupEndpointConfiguration (Maybe (Val Integer)) -gaegecWeight = lens _globalAcceleratorEndpointGroupEndpointConfigurationWeight (\s a -> s { _globalAcceleratorEndpointGroupEndpointConfigurationWeight = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlobalAcceleratorListenerPortRange.hs b/library-gen/Stratosphere/ResourceProperties/GlobalAcceleratorListenerPortRange.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlobalAcceleratorListenerPortRange.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-globalaccelerator-listener-portrange.html - -module Stratosphere.ResourceProperties.GlobalAcceleratorListenerPortRange where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GlobalAcceleratorListenerPortRange. See --- 'globalAcceleratorListenerPortRange' for a more convenient constructor. -data GlobalAcceleratorListenerPortRange = - GlobalAcceleratorListenerPortRange - { _globalAcceleratorListenerPortRangeFromPort :: Val Integer - , _globalAcceleratorListenerPortRangeToPort :: Val Integer - } deriving (Show, Eq) - -instance ToJSON GlobalAcceleratorListenerPortRange where - toJSON GlobalAcceleratorListenerPortRange{..} = - object $ - catMaybes - [ (Just . ("FromPort",) . toJSON) _globalAcceleratorListenerPortRangeFromPort - , (Just . ("ToPort",) . toJSON) _globalAcceleratorListenerPortRangeToPort - ] - --- | Constructor for 'GlobalAcceleratorListenerPortRange' containing required --- fields as arguments. -globalAcceleratorListenerPortRange - :: Val Integer -- ^ 'galprFromPort' - -> Val Integer -- ^ 'galprToPort' - -> GlobalAcceleratorListenerPortRange -globalAcceleratorListenerPortRange fromPortarg toPortarg = - GlobalAcceleratorListenerPortRange - { _globalAcceleratorListenerPortRangeFromPort = fromPortarg - , _globalAcceleratorListenerPortRangeToPort = toPortarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-globalaccelerator-listener-portrange.html#cfn-globalaccelerator-listener-portrange-fromport -galprFromPort :: Lens' GlobalAcceleratorListenerPortRange (Val Integer) -galprFromPort = lens _globalAcceleratorListenerPortRangeFromPort (\s a -> s { _globalAcceleratorListenerPortRangeFromPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-globalaccelerator-listener-portrange.html#cfn-globalaccelerator-listener-portrange-toport -galprToPort :: Lens' GlobalAcceleratorListenerPortRange (Val Integer) -galprToPort = lens _globalAcceleratorListenerPortRangeToPort (\s a -> s { _globalAcceleratorListenerPortRangeToPort = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueClassifierCsvClassifier.hs b/library-gen/Stratosphere/ResourceProperties/GlueClassifierCsvClassifier.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueClassifierCsvClassifier.hs +++ /dev/null @@ -1,80 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-csvclassifier.html - -module Stratosphere.ResourceProperties.GlueClassifierCsvClassifier where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GlueClassifierCsvClassifier. See --- 'glueClassifierCsvClassifier' for a more convenient constructor. -data GlueClassifierCsvClassifier = - GlueClassifierCsvClassifier - { _glueClassifierCsvClassifierAllowSingleColumn :: Maybe (Val Bool) - , _glueClassifierCsvClassifierContainsHeader :: Maybe (Val Text) - , _glueClassifierCsvClassifierDelimiter :: Maybe (Val Text) - , _glueClassifierCsvClassifierDisableValueTrimming :: Maybe (Val Bool) - , _glueClassifierCsvClassifierHeader :: Maybe (ValList Text) - , _glueClassifierCsvClassifierName :: Maybe (Val Text) - , _glueClassifierCsvClassifierQuoteSymbol :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON GlueClassifierCsvClassifier where - toJSON GlueClassifierCsvClassifier{..} = - object $ - catMaybes - [ fmap (("AllowSingleColumn",) . toJSON) _glueClassifierCsvClassifierAllowSingleColumn - , fmap (("ContainsHeader",) . toJSON) _glueClassifierCsvClassifierContainsHeader - , fmap (("Delimiter",) . toJSON) _glueClassifierCsvClassifierDelimiter - , fmap (("DisableValueTrimming",) . toJSON) _glueClassifierCsvClassifierDisableValueTrimming - , fmap (("Header",) . toJSON) _glueClassifierCsvClassifierHeader - , fmap (("Name",) . toJSON) _glueClassifierCsvClassifierName - , fmap (("QuoteSymbol",) . toJSON) _glueClassifierCsvClassifierQuoteSymbol - ] - --- | Constructor for 'GlueClassifierCsvClassifier' containing required fields --- as arguments. -glueClassifierCsvClassifier - :: GlueClassifierCsvClassifier -glueClassifierCsvClassifier = - GlueClassifierCsvClassifier - { _glueClassifierCsvClassifierAllowSingleColumn = Nothing - , _glueClassifierCsvClassifierContainsHeader = Nothing - , _glueClassifierCsvClassifierDelimiter = Nothing - , _glueClassifierCsvClassifierDisableValueTrimming = Nothing - , _glueClassifierCsvClassifierHeader = Nothing - , _glueClassifierCsvClassifierName = Nothing - , _glueClassifierCsvClassifierQuoteSymbol = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-csvclassifier.html#cfn-glue-classifier-csvclassifier-allowsinglecolumn -gcccAllowSingleColumn :: Lens' GlueClassifierCsvClassifier (Maybe (Val Bool)) -gcccAllowSingleColumn = lens _glueClassifierCsvClassifierAllowSingleColumn (\s a -> s { _glueClassifierCsvClassifierAllowSingleColumn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-csvclassifier.html#cfn-glue-classifier-csvclassifier-containsheader -gcccContainsHeader :: Lens' GlueClassifierCsvClassifier (Maybe (Val Text)) -gcccContainsHeader = lens _glueClassifierCsvClassifierContainsHeader (\s a -> s { _glueClassifierCsvClassifierContainsHeader = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-csvclassifier.html#cfn-glue-classifier-csvclassifier-delimiter -gcccDelimiter :: Lens' GlueClassifierCsvClassifier (Maybe (Val Text)) -gcccDelimiter = lens _glueClassifierCsvClassifierDelimiter (\s a -> s { _glueClassifierCsvClassifierDelimiter = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-csvclassifier.html#cfn-glue-classifier-csvclassifier-disablevaluetrimming -gcccDisableValueTrimming :: Lens' GlueClassifierCsvClassifier (Maybe (Val Bool)) -gcccDisableValueTrimming = lens _glueClassifierCsvClassifierDisableValueTrimming (\s a -> s { _glueClassifierCsvClassifierDisableValueTrimming = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-csvclassifier.html#cfn-glue-classifier-csvclassifier-header -gcccHeader :: Lens' GlueClassifierCsvClassifier (Maybe (ValList Text)) -gcccHeader = lens _glueClassifierCsvClassifierHeader (\s a -> s { _glueClassifierCsvClassifierHeader = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-csvclassifier.html#cfn-glue-classifier-csvclassifier-name -gcccName :: Lens' GlueClassifierCsvClassifier (Maybe (Val Text)) -gcccName = lens _glueClassifierCsvClassifierName (\s a -> s { _glueClassifierCsvClassifierName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-csvclassifier.html#cfn-glue-classifier-csvclassifier-quotesymbol -gcccQuoteSymbol :: Lens' GlueClassifierCsvClassifier (Maybe (Val Text)) -gcccQuoteSymbol = lens _glueClassifierCsvClassifierQuoteSymbol (\s a -> s { _glueClassifierCsvClassifierQuoteSymbol = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueClassifierGrokClassifier.hs b/library-gen/Stratosphere/ResourceProperties/GlueClassifierGrokClassifier.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueClassifierGrokClassifier.hs +++ /dev/null @@ -1,61 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-grokclassifier.html - -module Stratosphere.ResourceProperties.GlueClassifierGrokClassifier where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GlueClassifierGrokClassifier. See --- 'glueClassifierGrokClassifier' for a more convenient constructor. -data GlueClassifierGrokClassifier = - GlueClassifierGrokClassifier - { _glueClassifierGrokClassifierClassification :: Val Text - , _glueClassifierGrokClassifierCustomPatterns :: Maybe (Val Text) - , _glueClassifierGrokClassifierGrokPattern :: Val Text - , _glueClassifierGrokClassifierName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON GlueClassifierGrokClassifier where - toJSON GlueClassifierGrokClassifier{..} = - object $ - catMaybes - [ (Just . ("Classification",) . toJSON) _glueClassifierGrokClassifierClassification - , fmap (("CustomPatterns",) . toJSON) _glueClassifierGrokClassifierCustomPatterns - , (Just . ("GrokPattern",) . toJSON) _glueClassifierGrokClassifierGrokPattern - , fmap (("Name",) . toJSON) _glueClassifierGrokClassifierName - ] - --- | Constructor for 'GlueClassifierGrokClassifier' containing required fields --- as arguments. -glueClassifierGrokClassifier - :: Val Text -- ^ 'gcgcClassification' - -> Val Text -- ^ 'gcgcGrokPattern' - -> GlueClassifierGrokClassifier -glueClassifierGrokClassifier classificationarg grokPatternarg = - GlueClassifierGrokClassifier - { _glueClassifierGrokClassifierClassification = classificationarg - , _glueClassifierGrokClassifierCustomPatterns = Nothing - , _glueClassifierGrokClassifierGrokPattern = grokPatternarg - , _glueClassifierGrokClassifierName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-grokclassifier.html#cfn-glue-classifier-grokclassifier-classification -gcgcClassification :: Lens' GlueClassifierGrokClassifier (Val Text) -gcgcClassification = lens _glueClassifierGrokClassifierClassification (\s a -> s { _glueClassifierGrokClassifierClassification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-grokclassifier.html#cfn-glue-classifier-grokclassifier-custompatterns -gcgcCustomPatterns :: Lens' GlueClassifierGrokClassifier (Maybe (Val Text)) -gcgcCustomPatterns = lens _glueClassifierGrokClassifierCustomPatterns (\s a -> s { _glueClassifierGrokClassifierCustomPatterns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-grokclassifier.html#cfn-glue-classifier-grokclassifier-grokpattern -gcgcGrokPattern :: Lens' GlueClassifierGrokClassifier (Val Text) -gcgcGrokPattern = lens _glueClassifierGrokClassifierGrokPattern (\s a -> s { _glueClassifierGrokClassifierGrokPattern = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-grokclassifier.html#cfn-glue-classifier-grokclassifier-name -gcgcName :: Lens' GlueClassifierGrokClassifier (Maybe (Val Text)) -gcgcName = lens _glueClassifierGrokClassifierName (\s a -> s { _glueClassifierGrokClassifierName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueClassifierJsonClassifier.hs b/library-gen/Stratosphere/ResourceProperties/GlueClassifierJsonClassifier.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueClassifierJsonClassifier.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-jsonclassifier.html - -module Stratosphere.ResourceProperties.GlueClassifierJsonClassifier where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GlueClassifierJsonClassifier. See --- 'glueClassifierJsonClassifier' for a more convenient constructor. -data GlueClassifierJsonClassifier = - GlueClassifierJsonClassifier - { _glueClassifierJsonClassifierJsonPath :: Val Text - , _glueClassifierJsonClassifierName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON GlueClassifierJsonClassifier where - toJSON GlueClassifierJsonClassifier{..} = - object $ - catMaybes - [ (Just . ("JsonPath",) . toJSON) _glueClassifierJsonClassifierJsonPath - , fmap (("Name",) . toJSON) _glueClassifierJsonClassifierName - ] - --- | Constructor for 'GlueClassifierJsonClassifier' containing required fields --- as arguments. -glueClassifierJsonClassifier - :: Val Text -- ^ 'gcjcJsonPath' - -> GlueClassifierJsonClassifier -glueClassifierJsonClassifier jsonPatharg = - GlueClassifierJsonClassifier - { _glueClassifierJsonClassifierJsonPath = jsonPatharg - , _glueClassifierJsonClassifierName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-jsonclassifier.html#cfn-glue-classifier-jsonclassifier-jsonpath -gcjcJsonPath :: Lens' GlueClassifierJsonClassifier (Val Text) -gcjcJsonPath = lens _glueClassifierJsonClassifierJsonPath (\s a -> s { _glueClassifierJsonClassifierJsonPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-jsonclassifier.html#cfn-glue-classifier-jsonclassifier-name -gcjcName :: Lens' GlueClassifierJsonClassifier (Maybe (Val Text)) -gcjcName = lens _glueClassifierJsonClassifierName (\s a -> s { _glueClassifierJsonClassifierName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueClassifierXMLClassifier.hs b/library-gen/Stratosphere/ResourceProperties/GlueClassifierXMLClassifier.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueClassifierXMLClassifier.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-xmlclassifier.html - -module Stratosphere.ResourceProperties.GlueClassifierXMLClassifier where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GlueClassifierXMLClassifier. See --- 'glueClassifierXMLClassifier' for a more convenient constructor. -data GlueClassifierXMLClassifier = - GlueClassifierXMLClassifier - { _glueClassifierXMLClassifierClassification :: Val Text - , _glueClassifierXMLClassifierName :: Maybe (Val Text) - , _glueClassifierXMLClassifierRowTag :: Val Text - } deriving (Show, Eq) - -instance ToJSON GlueClassifierXMLClassifier where - toJSON GlueClassifierXMLClassifier{..} = - object $ - catMaybes - [ (Just . ("Classification",) . toJSON) _glueClassifierXMLClassifierClassification - , fmap (("Name",) . toJSON) _glueClassifierXMLClassifierName - , (Just . ("RowTag",) . toJSON) _glueClassifierXMLClassifierRowTag - ] - --- | Constructor for 'GlueClassifierXMLClassifier' containing required fields --- as arguments. -glueClassifierXMLClassifier - :: Val Text -- ^ 'gcxmlcClassification' - -> Val Text -- ^ 'gcxmlcRowTag' - -> GlueClassifierXMLClassifier -glueClassifierXMLClassifier classificationarg rowTagarg = - GlueClassifierXMLClassifier - { _glueClassifierXMLClassifierClassification = classificationarg - , _glueClassifierXMLClassifierName = Nothing - , _glueClassifierXMLClassifierRowTag = rowTagarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-xmlclassifier.html#cfn-glue-classifier-xmlclassifier-classification -gcxmlcClassification :: Lens' GlueClassifierXMLClassifier (Val Text) -gcxmlcClassification = lens _glueClassifierXMLClassifierClassification (\s a -> s { _glueClassifierXMLClassifierClassification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-xmlclassifier.html#cfn-glue-classifier-xmlclassifier-name -gcxmlcName :: Lens' GlueClassifierXMLClassifier (Maybe (Val Text)) -gcxmlcName = lens _glueClassifierXMLClassifierName (\s a -> s { _glueClassifierXMLClassifierName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-xmlclassifier.html#cfn-glue-classifier-xmlclassifier-rowtag -gcxmlcRowTag :: Lens' GlueClassifierXMLClassifier (Val Text) -gcxmlcRowTag = lens _glueClassifierXMLClassifierRowTag (\s a -> s { _glueClassifierXMLClassifierRowTag = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueConnectionConnectionInput.hs b/library-gen/Stratosphere/ResourceProperties/GlueConnectionConnectionInput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueConnectionConnectionInput.hs +++ /dev/null @@ -1,75 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-connection-connectioninput.html - -module Stratosphere.ResourceProperties.GlueConnectionConnectionInput where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GlueConnectionPhysicalConnectionRequirements - --- | Full data type definition for GlueConnectionConnectionInput. See --- 'glueConnectionConnectionInput' for a more convenient constructor. -data GlueConnectionConnectionInput = - GlueConnectionConnectionInput - { _glueConnectionConnectionInputConnectionProperties :: Object - , _glueConnectionConnectionInputConnectionType :: Val Text - , _glueConnectionConnectionInputDescription :: Maybe (Val Text) - , _glueConnectionConnectionInputMatchCriteria :: Maybe (ValList Text) - , _glueConnectionConnectionInputName :: Maybe (Val Text) - , _glueConnectionConnectionInputPhysicalConnectionRequirements :: Maybe GlueConnectionPhysicalConnectionRequirements - } deriving (Show, Eq) - -instance ToJSON GlueConnectionConnectionInput where - toJSON GlueConnectionConnectionInput{..} = - object $ - catMaybes - [ (Just . ("ConnectionProperties",) . toJSON) _glueConnectionConnectionInputConnectionProperties - , (Just . ("ConnectionType",) . toJSON) _glueConnectionConnectionInputConnectionType - , fmap (("Description",) . toJSON) _glueConnectionConnectionInputDescription - , fmap (("MatchCriteria",) . toJSON) _glueConnectionConnectionInputMatchCriteria - , fmap (("Name",) . toJSON) _glueConnectionConnectionInputName - , fmap (("PhysicalConnectionRequirements",) . toJSON) _glueConnectionConnectionInputPhysicalConnectionRequirements - ] - --- | Constructor for 'GlueConnectionConnectionInput' containing required --- fields as arguments. -glueConnectionConnectionInput - :: Object -- ^ 'gcciConnectionProperties' - -> Val Text -- ^ 'gcciConnectionType' - -> GlueConnectionConnectionInput -glueConnectionConnectionInput connectionPropertiesarg connectionTypearg = - GlueConnectionConnectionInput - { _glueConnectionConnectionInputConnectionProperties = connectionPropertiesarg - , _glueConnectionConnectionInputConnectionType = connectionTypearg - , _glueConnectionConnectionInputDescription = Nothing - , _glueConnectionConnectionInputMatchCriteria = Nothing - , _glueConnectionConnectionInputName = Nothing - , _glueConnectionConnectionInputPhysicalConnectionRequirements = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-connection-connectioninput.html#cfn-glue-connection-connectioninput-connectionproperties -gcciConnectionProperties :: Lens' GlueConnectionConnectionInput Object -gcciConnectionProperties = lens _glueConnectionConnectionInputConnectionProperties (\s a -> s { _glueConnectionConnectionInputConnectionProperties = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-connection-connectioninput.html#cfn-glue-connection-connectioninput-connectiontype -gcciConnectionType :: Lens' GlueConnectionConnectionInput (Val Text) -gcciConnectionType = lens _glueConnectionConnectionInputConnectionType (\s a -> s { _glueConnectionConnectionInputConnectionType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-connection-connectioninput.html#cfn-glue-connection-connectioninput-description -gcciDescription :: Lens' GlueConnectionConnectionInput (Maybe (Val Text)) -gcciDescription = lens _glueConnectionConnectionInputDescription (\s a -> s { _glueConnectionConnectionInputDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-connection-connectioninput.html#cfn-glue-connection-connectioninput-matchcriteria -gcciMatchCriteria :: Lens' GlueConnectionConnectionInput (Maybe (ValList Text)) -gcciMatchCriteria = lens _glueConnectionConnectionInputMatchCriteria (\s a -> s { _glueConnectionConnectionInputMatchCriteria = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-connection-connectioninput.html#cfn-glue-connection-connectioninput-name -gcciName :: Lens' GlueConnectionConnectionInput (Maybe (Val Text)) -gcciName = lens _glueConnectionConnectionInputName (\s a -> s { _glueConnectionConnectionInputName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-connection-connectioninput.html#cfn-glue-connection-connectioninput-physicalconnectionrequirements -gcciPhysicalConnectionRequirements :: Lens' GlueConnectionConnectionInput (Maybe GlueConnectionPhysicalConnectionRequirements) -gcciPhysicalConnectionRequirements = lens _glueConnectionConnectionInputPhysicalConnectionRequirements (\s a -> s { _glueConnectionConnectionInputPhysicalConnectionRequirements = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueConnectionPhysicalConnectionRequirements.hs b/library-gen/Stratosphere/ResourceProperties/GlueConnectionPhysicalConnectionRequirements.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueConnectionPhysicalConnectionRequirements.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-connection-physicalconnectionrequirements.html - -module Stratosphere.ResourceProperties.GlueConnectionPhysicalConnectionRequirements where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- GlueConnectionPhysicalConnectionRequirements. See --- 'glueConnectionPhysicalConnectionRequirements' for a more convenient --- constructor. -data GlueConnectionPhysicalConnectionRequirements = - GlueConnectionPhysicalConnectionRequirements - { _glueConnectionPhysicalConnectionRequirementsAvailabilityZone :: Maybe (Val Text) - , _glueConnectionPhysicalConnectionRequirementsSecurityGroupIdList :: Maybe (ValList Text) - , _glueConnectionPhysicalConnectionRequirementsSubnetId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON GlueConnectionPhysicalConnectionRequirements where - toJSON GlueConnectionPhysicalConnectionRequirements{..} = - object $ - catMaybes - [ fmap (("AvailabilityZone",) . toJSON) _glueConnectionPhysicalConnectionRequirementsAvailabilityZone - , fmap (("SecurityGroupIdList",) . toJSON) _glueConnectionPhysicalConnectionRequirementsSecurityGroupIdList - , fmap (("SubnetId",) . toJSON) _glueConnectionPhysicalConnectionRequirementsSubnetId - ] - --- | Constructor for 'GlueConnectionPhysicalConnectionRequirements' containing --- required fields as arguments. -glueConnectionPhysicalConnectionRequirements - :: GlueConnectionPhysicalConnectionRequirements -glueConnectionPhysicalConnectionRequirements = - GlueConnectionPhysicalConnectionRequirements - { _glueConnectionPhysicalConnectionRequirementsAvailabilityZone = Nothing - , _glueConnectionPhysicalConnectionRequirementsSecurityGroupIdList = Nothing - , _glueConnectionPhysicalConnectionRequirementsSubnetId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-connection-physicalconnectionrequirements.html#cfn-glue-connection-physicalconnectionrequirements-availabilityzone -gcpcrAvailabilityZone :: Lens' GlueConnectionPhysicalConnectionRequirements (Maybe (Val Text)) -gcpcrAvailabilityZone = lens _glueConnectionPhysicalConnectionRequirementsAvailabilityZone (\s a -> s { _glueConnectionPhysicalConnectionRequirementsAvailabilityZone = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-connection-physicalconnectionrequirements.html#cfn-glue-connection-physicalconnectionrequirements-securitygroupidlist -gcpcrSecurityGroupIdList :: Lens' GlueConnectionPhysicalConnectionRequirements (Maybe (ValList Text)) -gcpcrSecurityGroupIdList = lens _glueConnectionPhysicalConnectionRequirementsSecurityGroupIdList (\s a -> s { _glueConnectionPhysicalConnectionRequirementsSecurityGroupIdList = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-connection-physicalconnectionrequirements.html#cfn-glue-connection-physicalconnectionrequirements-subnetid -gcpcrSubnetId :: Lens' GlueConnectionPhysicalConnectionRequirements (Maybe (Val Text)) -gcpcrSubnetId = lens _glueConnectionPhysicalConnectionRequirementsSubnetId (\s a -> s { _glueConnectionPhysicalConnectionRequirementsSubnetId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueCrawlerCatalogTarget.hs b/library-gen/Stratosphere/ResourceProperties/GlueCrawlerCatalogTarget.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueCrawlerCatalogTarget.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-catalogtarget.html - -module Stratosphere.ResourceProperties.GlueCrawlerCatalogTarget where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GlueCrawlerCatalogTarget. See --- 'glueCrawlerCatalogTarget' for a more convenient constructor. -data GlueCrawlerCatalogTarget = - GlueCrawlerCatalogTarget - { _glueCrawlerCatalogTargetDatabaseName :: Maybe (Val Text) - , _glueCrawlerCatalogTargetTables :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON GlueCrawlerCatalogTarget where - toJSON GlueCrawlerCatalogTarget{..} = - object $ - catMaybes - [ fmap (("DatabaseName",) . toJSON) _glueCrawlerCatalogTargetDatabaseName - , fmap (("Tables",) . toJSON) _glueCrawlerCatalogTargetTables - ] - --- | Constructor for 'GlueCrawlerCatalogTarget' containing required fields as --- arguments. -glueCrawlerCatalogTarget - :: GlueCrawlerCatalogTarget -glueCrawlerCatalogTarget = - GlueCrawlerCatalogTarget - { _glueCrawlerCatalogTargetDatabaseName = Nothing - , _glueCrawlerCatalogTargetTables = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-catalogtarget.html#cfn-glue-crawler-catalogtarget-databasename -gcctDatabaseName :: Lens' GlueCrawlerCatalogTarget (Maybe (Val Text)) -gcctDatabaseName = lens _glueCrawlerCatalogTargetDatabaseName (\s a -> s { _glueCrawlerCatalogTargetDatabaseName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-catalogtarget.html#cfn-glue-crawler-catalogtarget-tables -gcctTables :: Lens' GlueCrawlerCatalogTarget (Maybe (ValList Text)) -gcctTables = lens _glueCrawlerCatalogTargetTables (\s a -> s { _glueCrawlerCatalogTargetTables = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueCrawlerDynamoDBTarget.hs b/library-gen/Stratosphere/ResourceProperties/GlueCrawlerDynamoDBTarget.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueCrawlerDynamoDBTarget.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-dynamodbtarget.html - -module Stratosphere.ResourceProperties.GlueCrawlerDynamoDBTarget where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GlueCrawlerDynamoDBTarget. See --- 'glueCrawlerDynamoDBTarget' for a more convenient constructor. -data GlueCrawlerDynamoDBTarget = - GlueCrawlerDynamoDBTarget - { _glueCrawlerDynamoDBTargetPath :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON GlueCrawlerDynamoDBTarget where - toJSON GlueCrawlerDynamoDBTarget{..} = - object $ - catMaybes - [ fmap (("Path",) . toJSON) _glueCrawlerDynamoDBTargetPath - ] - --- | Constructor for 'GlueCrawlerDynamoDBTarget' containing required fields as --- arguments. -glueCrawlerDynamoDBTarget - :: GlueCrawlerDynamoDBTarget -glueCrawlerDynamoDBTarget = - GlueCrawlerDynamoDBTarget - { _glueCrawlerDynamoDBTargetPath = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-dynamodbtarget.html#cfn-glue-crawler-dynamodbtarget-path -gcddbtPath :: Lens' GlueCrawlerDynamoDBTarget (Maybe (Val Text)) -gcddbtPath = lens _glueCrawlerDynamoDBTargetPath (\s a -> s { _glueCrawlerDynamoDBTargetPath = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueCrawlerJdbcTarget.hs b/library-gen/Stratosphere/ResourceProperties/GlueCrawlerJdbcTarget.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueCrawlerJdbcTarget.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-jdbctarget.html - -module Stratosphere.ResourceProperties.GlueCrawlerJdbcTarget where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GlueCrawlerJdbcTarget. See --- 'glueCrawlerJdbcTarget' for a more convenient constructor. -data GlueCrawlerJdbcTarget = - GlueCrawlerJdbcTarget - { _glueCrawlerJdbcTargetConnectionName :: Maybe (Val Text) - , _glueCrawlerJdbcTargetExclusions :: Maybe (ValList Text) - , _glueCrawlerJdbcTargetPath :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON GlueCrawlerJdbcTarget where - toJSON GlueCrawlerJdbcTarget{..} = - object $ - catMaybes - [ fmap (("ConnectionName",) . toJSON) _glueCrawlerJdbcTargetConnectionName - , fmap (("Exclusions",) . toJSON) _glueCrawlerJdbcTargetExclusions - , fmap (("Path",) . toJSON) _glueCrawlerJdbcTargetPath - ] - --- | Constructor for 'GlueCrawlerJdbcTarget' containing required fields as --- arguments. -glueCrawlerJdbcTarget - :: GlueCrawlerJdbcTarget -glueCrawlerJdbcTarget = - GlueCrawlerJdbcTarget - { _glueCrawlerJdbcTargetConnectionName = Nothing - , _glueCrawlerJdbcTargetExclusions = Nothing - , _glueCrawlerJdbcTargetPath = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-jdbctarget.html#cfn-glue-crawler-jdbctarget-connectionname -gcjtConnectionName :: Lens' GlueCrawlerJdbcTarget (Maybe (Val Text)) -gcjtConnectionName = lens _glueCrawlerJdbcTargetConnectionName (\s a -> s { _glueCrawlerJdbcTargetConnectionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-jdbctarget.html#cfn-glue-crawler-jdbctarget-exclusions -gcjtExclusions :: Lens' GlueCrawlerJdbcTarget (Maybe (ValList Text)) -gcjtExclusions = lens _glueCrawlerJdbcTargetExclusions (\s a -> s { _glueCrawlerJdbcTargetExclusions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-jdbctarget.html#cfn-glue-crawler-jdbctarget-path -gcjtPath :: Lens' GlueCrawlerJdbcTarget (Maybe (Val Text)) -gcjtPath = lens _glueCrawlerJdbcTargetPath (\s a -> s { _glueCrawlerJdbcTargetPath = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueCrawlerS3Target.hs b/library-gen/Stratosphere/ResourceProperties/GlueCrawlerS3Target.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueCrawlerS3Target.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-s3target.html - -module Stratosphere.ResourceProperties.GlueCrawlerS3Target where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GlueCrawlerS3Target. See --- 'glueCrawlerS3Target' for a more convenient constructor. -data GlueCrawlerS3Target = - GlueCrawlerS3Target - { _glueCrawlerS3TargetExclusions :: Maybe (ValList Text) - , _glueCrawlerS3TargetPath :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON GlueCrawlerS3Target where - toJSON GlueCrawlerS3Target{..} = - object $ - catMaybes - [ fmap (("Exclusions",) . toJSON) _glueCrawlerS3TargetExclusions - , fmap (("Path",) . toJSON) _glueCrawlerS3TargetPath - ] - --- | Constructor for 'GlueCrawlerS3Target' containing required fields as --- arguments. -glueCrawlerS3Target - :: GlueCrawlerS3Target -glueCrawlerS3Target = - GlueCrawlerS3Target - { _glueCrawlerS3TargetExclusions = Nothing - , _glueCrawlerS3TargetPath = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-s3target.html#cfn-glue-crawler-s3target-exclusions -gcstExclusions :: Lens' GlueCrawlerS3Target (Maybe (ValList Text)) -gcstExclusions = lens _glueCrawlerS3TargetExclusions (\s a -> s { _glueCrawlerS3TargetExclusions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-s3target.html#cfn-glue-crawler-s3target-path -gcstPath :: Lens' GlueCrawlerS3Target (Maybe (Val Text)) -gcstPath = lens _glueCrawlerS3TargetPath (\s a -> s { _glueCrawlerS3TargetPath = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueCrawlerSchedule.hs b/library-gen/Stratosphere/ResourceProperties/GlueCrawlerSchedule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueCrawlerSchedule.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-schedule.html - -module Stratosphere.ResourceProperties.GlueCrawlerSchedule where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GlueCrawlerSchedule. See --- 'glueCrawlerSchedule' for a more convenient constructor. -data GlueCrawlerSchedule = - GlueCrawlerSchedule - { _glueCrawlerScheduleScheduleExpression :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON GlueCrawlerSchedule where - toJSON GlueCrawlerSchedule{..} = - object $ - catMaybes - [ fmap (("ScheduleExpression",) . toJSON) _glueCrawlerScheduleScheduleExpression - ] - --- | Constructor for 'GlueCrawlerSchedule' containing required fields as --- arguments. -glueCrawlerSchedule - :: GlueCrawlerSchedule -glueCrawlerSchedule = - GlueCrawlerSchedule - { _glueCrawlerScheduleScheduleExpression = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-schedule.html#cfn-glue-crawler-schedule-scheduleexpression -gcsScheduleExpression :: Lens' GlueCrawlerSchedule (Maybe (Val Text)) -gcsScheduleExpression = lens _glueCrawlerScheduleScheduleExpression (\s a -> s { _glueCrawlerScheduleScheduleExpression = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueCrawlerSchemaChangePolicy.hs b/library-gen/Stratosphere/ResourceProperties/GlueCrawlerSchemaChangePolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueCrawlerSchemaChangePolicy.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-schemachangepolicy.html - -module Stratosphere.ResourceProperties.GlueCrawlerSchemaChangePolicy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GlueCrawlerSchemaChangePolicy. See --- 'glueCrawlerSchemaChangePolicy' for a more convenient constructor. -data GlueCrawlerSchemaChangePolicy = - GlueCrawlerSchemaChangePolicy - { _glueCrawlerSchemaChangePolicyDeleteBehavior :: Maybe (Val Text) - , _glueCrawlerSchemaChangePolicyUpdateBehavior :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON GlueCrawlerSchemaChangePolicy where - toJSON GlueCrawlerSchemaChangePolicy{..} = - object $ - catMaybes - [ fmap (("DeleteBehavior",) . toJSON) _glueCrawlerSchemaChangePolicyDeleteBehavior - , fmap (("UpdateBehavior",) . toJSON) _glueCrawlerSchemaChangePolicyUpdateBehavior - ] - --- | Constructor for 'GlueCrawlerSchemaChangePolicy' containing required --- fields as arguments. -glueCrawlerSchemaChangePolicy - :: GlueCrawlerSchemaChangePolicy -glueCrawlerSchemaChangePolicy = - GlueCrawlerSchemaChangePolicy - { _glueCrawlerSchemaChangePolicyDeleteBehavior = Nothing - , _glueCrawlerSchemaChangePolicyUpdateBehavior = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-schemachangepolicy.html#cfn-glue-crawler-schemachangepolicy-deletebehavior -gcscpDeleteBehavior :: Lens' GlueCrawlerSchemaChangePolicy (Maybe (Val Text)) -gcscpDeleteBehavior = lens _glueCrawlerSchemaChangePolicyDeleteBehavior (\s a -> s { _glueCrawlerSchemaChangePolicyDeleteBehavior = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-schemachangepolicy.html#cfn-glue-crawler-schemachangepolicy-updatebehavior -gcscpUpdateBehavior :: Lens' GlueCrawlerSchemaChangePolicy (Maybe (Val Text)) -gcscpUpdateBehavior = lens _glueCrawlerSchemaChangePolicyUpdateBehavior (\s a -> s { _glueCrawlerSchemaChangePolicyUpdateBehavior = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueCrawlerTargets.hs b/library-gen/Stratosphere/ResourceProperties/GlueCrawlerTargets.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueCrawlerTargets.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-targets.html - -module Stratosphere.ResourceProperties.GlueCrawlerTargets where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GlueCrawlerCatalogTarget -import Stratosphere.ResourceProperties.GlueCrawlerDynamoDBTarget -import Stratosphere.ResourceProperties.GlueCrawlerJdbcTarget -import Stratosphere.ResourceProperties.GlueCrawlerS3Target - --- | Full data type definition for GlueCrawlerTargets. See --- 'glueCrawlerTargets' for a more convenient constructor. -data GlueCrawlerTargets = - GlueCrawlerTargets - { _glueCrawlerTargetsCatalogTargets :: Maybe [GlueCrawlerCatalogTarget] - , _glueCrawlerTargetsDynamoDBTargets :: Maybe [GlueCrawlerDynamoDBTarget] - , _glueCrawlerTargetsJdbcTargets :: Maybe [GlueCrawlerJdbcTarget] - , _glueCrawlerTargetsS3Targets :: Maybe [GlueCrawlerS3Target] - } deriving (Show, Eq) - -instance ToJSON GlueCrawlerTargets where - toJSON GlueCrawlerTargets{..} = - object $ - catMaybes - [ fmap (("CatalogTargets",) . toJSON) _glueCrawlerTargetsCatalogTargets - , fmap (("DynamoDBTargets",) . toJSON) _glueCrawlerTargetsDynamoDBTargets - , fmap (("JdbcTargets",) . toJSON) _glueCrawlerTargetsJdbcTargets - , fmap (("S3Targets",) . toJSON) _glueCrawlerTargetsS3Targets - ] - --- | Constructor for 'GlueCrawlerTargets' containing required fields as --- arguments. -glueCrawlerTargets - :: GlueCrawlerTargets -glueCrawlerTargets = - GlueCrawlerTargets - { _glueCrawlerTargetsCatalogTargets = Nothing - , _glueCrawlerTargetsDynamoDBTargets = Nothing - , _glueCrawlerTargetsJdbcTargets = Nothing - , _glueCrawlerTargetsS3Targets = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-targets.html#cfn-glue-crawler-targets-catalogtargets -gctCatalogTargets :: Lens' GlueCrawlerTargets (Maybe [GlueCrawlerCatalogTarget]) -gctCatalogTargets = lens _glueCrawlerTargetsCatalogTargets (\s a -> s { _glueCrawlerTargetsCatalogTargets = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-targets.html#cfn-glue-crawler-targets-dynamodbtargets -gctDynamoDBTargets :: Lens' GlueCrawlerTargets (Maybe [GlueCrawlerDynamoDBTarget]) -gctDynamoDBTargets = lens _glueCrawlerTargetsDynamoDBTargets (\s a -> s { _glueCrawlerTargetsDynamoDBTargets = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-targets.html#cfn-glue-crawler-targets-jdbctargets -gctJdbcTargets :: Lens' GlueCrawlerTargets (Maybe [GlueCrawlerJdbcTarget]) -gctJdbcTargets = lens _glueCrawlerTargetsJdbcTargets (\s a -> s { _glueCrawlerTargetsJdbcTargets = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-crawler-targets.html#cfn-glue-crawler-targets-s3targets -gctS3Targets :: Lens' GlueCrawlerTargets (Maybe [GlueCrawlerS3Target]) -gctS3Targets = lens _glueCrawlerTargetsS3Targets (\s a -> s { _glueCrawlerTargetsS3Targets = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueDataCatalogEncryptionSettingsConnectionPasswordEncryption.hs b/library-gen/Stratosphere/ResourceProperties/GlueDataCatalogEncryptionSettingsConnectionPasswordEncryption.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueDataCatalogEncryptionSettingsConnectionPasswordEncryption.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-datacatalogencryptionsettings-connectionpasswordencryption.html - -module Stratosphere.ResourceProperties.GlueDataCatalogEncryptionSettingsConnectionPasswordEncryption where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- GlueDataCatalogEncryptionSettingsConnectionPasswordEncryption. See --- 'glueDataCatalogEncryptionSettingsConnectionPasswordEncryption' for a --- more convenient constructor. -data GlueDataCatalogEncryptionSettingsConnectionPasswordEncryption = - GlueDataCatalogEncryptionSettingsConnectionPasswordEncryption - { _glueDataCatalogEncryptionSettingsConnectionPasswordEncryptionKmsKeyId :: Maybe (Val Text) - , _glueDataCatalogEncryptionSettingsConnectionPasswordEncryptionReturnConnectionPasswordEncrypted :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON GlueDataCatalogEncryptionSettingsConnectionPasswordEncryption where - toJSON GlueDataCatalogEncryptionSettingsConnectionPasswordEncryption{..} = - object $ - catMaybes - [ fmap (("KmsKeyId",) . toJSON) _glueDataCatalogEncryptionSettingsConnectionPasswordEncryptionKmsKeyId - , fmap (("ReturnConnectionPasswordEncrypted",) . toJSON) _glueDataCatalogEncryptionSettingsConnectionPasswordEncryptionReturnConnectionPasswordEncrypted - ] - --- | Constructor for --- 'GlueDataCatalogEncryptionSettingsConnectionPasswordEncryption' --- containing required fields as arguments. -glueDataCatalogEncryptionSettingsConnectionPasswordEncryption - :: GlueDataCatalogEncryptionSettingsConnectionPasswordEncryption -glueDataCatalogEncryptionSettingsConnectionPasswordEncryption = - GlueDataCatalogEncryptionSettingsConnectionPasswordEncryption - { _glueDataCatalogEncryptionSettingsConnectionPasswordEncryptionKmsKeyId = Nothing - , _glueDataCatalogEncryptionSettingsConnectionPasswordEncryptionReturnConnectionPasswordEncrypted = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-datacatalogencryptionsettings-connectionpasswordencryption.html#cfn-glue-datacatalogencryptionsettings-connectionpasswordencryption-kmskeyid -gdcescpeKmsKeyId :: Lens' GlueDataCatalogEncryptionSettingsConnectionPasswordEncryption (Maybe (Val Text)) -gdcescpeKmsKeyId = lens _glueDataCatalogEncryptionSettingsConnectionPasswordEncryptionKmsKeyId (\s a -> s { _glueDataCatalogEncryptionSettingsConnectionPasswordEncryptionKmsKeyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-datacatalogencryptionsettings-connectionpasswordencryption.html#cfn-glue-datacatalogencryptionsettings-connectionpasswordencryption-returnconnectionpasswordencrypted -gdcescpeReturnConnectionPasswordEncrypted :: Lens' GlueDataCatalogEncryptionSettingsConnectionPasswordEncryption (Maybe (Val Bool)) -gdcescpeReturnConnectionPasswordEncrypted = lens _glueDataCatalogEncryptionSettingsConnectionPasswordEncryptionReturnConnectionPasswordEncrypted (\s a -> s { _glueDataCatalogEncryptionSettingsConnectionPasswordEncryptionReturnConnectionPasswordEncrypted = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueDataCatalogEncryptionSettingsDataCatalogEncryptionSettings.hs b/library-gen/Stratosphere/ResourceProperties/GlueDataCatalogEncryptionSettingsDataCatalogEncryptionSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueDataCatalogEncryptionSettingsDataCatalogEncryptionSettings.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-datacatalogencryptionsettings-datacatalogencryptionsettings.html - -module Stratosphere.ResourceProperties.GlueDataCatalogEncryptionSettingsDataCatalogEncryptionSettings where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GlueDataCatalogEncryptionSettingsConnectionPasswordEncryption -import Stratosphere.ResourceProperties.GlueDataCatalogEncryptionSettingsEncryptionAtRest - --- | Full data type definition for --- GlueDataCatalogEncryptionSettingsDataCatalogEncryptionSettings. See --- 'glueDataCatalogEncryptionSettingsDataCatalogEncryptionSettings' for a --- more convenient constructor. -data GlueDataCatalogEncryptionSettingsDataCatalogEncryptionSettings = - GlueDataCatalogEncryptionSettingsDataCatalogEncryptionSettings - { _glueDataCatalogEncryptionSettingsDataCatalogEncryptionSettingsConnectionPasswordEncryption :: Maybe GlueDataCatalogEncryptionSettingsConnectionPasswordEncryption - , _glueDataCatalogEncryptionSettingsDataCatalogEncryptionSettingsEncryptionAtRest :: Maybe GlueDataCatalogEncryptionSettingsEncryptionAtRest - } deriving (Show, Eq) - -instance ToJSON GlueDataCatalogEncryptionSettingsDataCatalogEncryptionSettings where - toJSON GlueDataCatalogEncryptionSettingsDataCatalogEncryptionSettings{..} = - object $ - catMaybes - [ fmap (("ConnectionPasswordEncryption",) . toJSON) _glueDataCatalogEncryptionSettingsDataCatalogEncryptionSettingsConnectionPasswordEncryption - , fmap (("EncryptionAtRest",) . toJSON) _glueDataCatalogEncryptionSettingsDataCatalogEncryptionSettingsEncryptionAtRest - ] - --- | Constructor for --- 'GlueDataCatalogEncryptionSettingsDataCatalogEncryptionSettings' --- containing required fields as arguments. -glueDataCatalogEncryptionSettingsDataCatalogEncryptionSettings - :: GlueDataCatalogEncryptionSettingsDataCatalogEncryptionSettings -glueDataCatalogEncryptionSettingsDataCatalogEncryptionSettings = - GlueDataCatalogEncryptionSettingsDataCatalogEncryptionSettings - { _glueDataCatalogEncryptionSettingsDataCatalogEncryptionSettingsConnectionPasswordEncryption = Nothing - , _glueDataCatalogEncryptionSettingsDataCatalogEncryptionSettingsEncryptionAtRest = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-datacatalogencryptionsettings-datacatalogencryptionsettings.html#cfn-glue-datacatalogencryptionsettings-datacatalogencryptionsettings-connectionpasswordencryption -gdcesdcesConnectionPasswordEncryption :: Lens' GlueDataCatalogEncryptionSettingsDataCatalogEncryptionSettings (Maybe GlueDataCatalogEncryptionSettingsConnectionPasswordEncryption) -gdcesdcesConnectionPasswordEncryption = lens _glueDataCatalogEncryptionSettingsDataCatalogEncryptionSettingsConnectionPasswordEncryption (\s a -> s { _glueDataCatalogEncryptionSettingsDataCatalogEncryptionSettingsConnectionPasswordEncryption = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-datacatalogencryptionsettings-datacatalogencryptionsettings.html#cfn-glue-datacatalogencryptionsettings-datacatalogencryptionsettings-encryptionatrest -gdcesdcesEncryptionAtRest :: Lens' GlueDataCatalogEncryptionSettingsDataCatalogEncryptionSettings (Maybe GlueDataCatalogEncryptionSettingsEncryptionAtRest) -gdcesdcesEncryptionAtRest = lens _glueDataCatalogEncryptionSettingsDataCatalogEncryptionSettingsEncryptionAtRest (\s a -> s { _glueDataCatalogEncryptionSettingsDataCatalogEncryptionSettingsEncryptionAtRest = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueDataCatalogEncryptionSettingsEncryptionAtRest.hs b/library-gen/Stratosphere/ResourceProperties/GlueDataCatalogEncryptionSettingsEncryptionAtRest.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueDataCatalogEncryptionSettingsEncryptionAtRest.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-datacatalogencryptionsettings-encryptionatrest.html - -module Stratosphere.ResourceProperties.GlueDataCatalogEncryptionSettingsEncryptionAtRest where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- GlueDataCatalogEncryptionSettingsEncryptionAtRest. See --- 'glueDataCatalogEncryptionSettingsEncryptionAtRest' for a more convenient --- constructor. -data GlueDataCatalogEncryptionSettingsEncryptionAtRest = - GlueDataCatalogEncryptionSettingsEncryptionAtRest - { _glueDataCatalogEncryptionSettingsEncryptionAtRestCatalogEncryptionMode :: Maybe (Val Text) - , _glueDataCatalogEncryptionSettingsEncryptionAtRestSseAwsKmsKeyId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON GlueDataCatalogEncryptionSettingsEncryptionAtRest where - toJSON GlueDataCatalogEncryptionSettingsEncryptionAtRest{..} = - object $ - catMaybes - [ fmap (("CatalogEncryptionMode",) . toJSON) _glueDataCatalogEncryptionSettingsEncryptionAtRestCatalogEncryptionMode - , fmap (("SseAwsKmsKeyId",) . toJSON) _glueDataCatalogEncryptionSettingsEncryptionAtRestSseAwsKmsKeyId - ] - --- | Constructor for 'GlueDataCatalogEncryptionSettingsEncryptionAtRest' --- containing required fields as arguments. -glueDataCatalogEncryptionSettingsEncryptionAtRest - :: GlueDataCatalogEncryptionSettingsEncryptionAtRest -glueDataCatalogEncryptionSettingsEncryptionAtRest = - GlueDataCatalogEncryptionSettingsEncryptionAtRest - { _glueDataCatalogEncryptionSettingsEncryptionAtRestCatalogEncryptionMode = Nothing - , _glueDataCatalogEncryptionSettingsEncryptionAtRestSseAwsKmsKeyId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-datacatalogencryptionsettings-encryptionatrest.html#cfn-glue-datacatalogencryptionsettings-encryptionatrest-catalogencryptionmode -gdcesearCatalogEncryptionMode :: Lens' GlueDataCatalogEncryptionSettingsEncryptionAtRest (Maybe (Val Text)) -gdcesearCatalogEncryptionMode = lens _glueDataCatalogEncryptionSettingsEncryptionAtRestCatalogEncryptionMode (\s a -> s { _glueDataCatalogEncryptionSettingsEncryptionAtRestCatalogEncryptionMode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-datacatalogencryptionsettings-encryptionatrest.html#cfn-glue-datacatalogencryptionsettings-encryptionatrest-sseawskmskeyid -gdcesearSseAwsKmsKeyId :: Lens' GlueDataCatalogEncryptionSettingsEncryptionAtRest (Maybe (Val Text)) -gdcesearSseAwsKmsKeyId = lens _glueDataCatalogEncryptionSettingsEncryptionAtRestSseAwsKmsKeyId (\s a -> s { _glueDataCatalogEncryptionSettingsEncryptionAtRestSseAwsKmsKeyId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueDatabaseDatabaseInput.hs b/library-gen/Stratosphere/ResourceProperties/GlueDatabaseDatabaseInput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueDatabaseDatabaseInput.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-database-databaseinput.html - -module Stratosphere.ResourceProperties.GlueDatabaseDatabaseInput where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GlueDatabaseDatabaseInput. See --- 'glueDatabaseDatabaseInput' for a more convenient constructor. -data GlueDatabaseDatabaseInput = - GlueDatabaseDatabaseInput - { _glueDatabaseDatabaseInputDescription :: Maybe (Val Text) - , _glueDatabaseDatabaseInputLocationUri :: Maybe (Val Text) - , _glueDatabaseDatabaseInputName :: Maybe (Val Text) - , _glueDatabaseDatabaseInputParameters :: Maybe Object - } deriving (Show, Eq) - -instance ToJSON GlueDatabaseDatabaseInput where - toJSON GlueDatabaseDatabaseInput{..} = - object $ - catMaybes - [ fmap (("Description",) . toJSON) _glueDatabaseDatabaseInputDescription - , fmap (("LocationUri",) . toJSON) _glueDatabaseDatabaseInputLocationUri - , fmap (("Name",) . toJSON) _glueDatabaseDatabaseInputName - , fmap (("Parameters",) . toJSON) _glueDatabaseDatabaseInputParameters - ] - --- | Constructor for 'GlueDatabaseDatabaseInput' containing required fields as --- arguments. -glueDatabaseDatabaseInput - :: GlueDatabaseDatabaseInput -glueDatabaseDatabaseInput = - GlueDatabaseDatabaseInput - { _glueDatabaseDatabaseInputDescription = Nothing - , _glueDatabaseDatabaseInputLocationUri = Nothing - , _glueDatabaseDatabaseInputName = Nothing - , _glueDatabaseDatabaseInputParameters = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-database-databaseinput.html#cfn-glue-database-databaseinput-description -gddiDescription :: Lens' GlueDatabaseDatabaseInput (Maybe (Val Text)) -gddiDescription = lens _glueDatabaseDatabaseInputDescription (\s a -> s { _glueDatabaseDatabaseInputDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-database-databaseinput.html#cfn-glue-database-databaseinput-locationuri -gddiLocationUri :: Lens' GlueDatabaseDatabaseInput (Maybe (Val Text)) -gddiLocationUri = lens _glueDatabaseDatabaseInputLocationUri (\s a -> s { _glueDatabaseDatabaseInputLocationUri = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-database-databaseinput.html#cfn-glue-database-databaseinput-name -gddiName :: Lens' GlueDatabaseDatabaseInput (Maybe (Val Text)) -gddiName = lens _glueDatabaseDatabaseInputName (\s a -> s { _glueDatabaseDatabaseInputName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-database-databaseinput.html#cfn-glue-database-databaseinput-parameters -gddiParameters :: Lens' GlueDatabaseDatabaseInput (Maybe Object) -gddiParameters = lens _glueDatabaseDatabaseInputParameters (\s a -> s { _glueDatabaseDatabaseInputParameters = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueJobConnectionsList.hs b/library-gen/Stratosphere/ResourceProperties/GlueJobConnectionsList.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueJobConnectionsList.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-job-connectionslist.html - -module Stratosphere.ResourceProperties.GlueJobConnectionsList where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GlueJobConnectionsList. See --- 'glueJobConnectionsList' for a more convenient constructor. -data GlueJobConnectionsList = - GlueJobConnectionsList - { _glueJobConnectionsListConnections :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON GlueJobConnectionsList where - toJSON GlueJobConnectionsList{..} = - object $ - catMaybes - [ fmap (("Connections",) . toJSON) _glueJobConnectionsListConnections - ] - --- | Constructor for 'GlueJobConnectionsList' containing required fields as --- arguments. -glueJobConnectionsList - :: GlueJobConnectionsList -glueJobConnectionsList = - GlueJobConnectionsList - { _glueJobConnectionsListConnections = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-job-connectionslist.html#cfn-glue-job-connectionslist-connections -gjclConnections :: Lens' GlueJobConnectionsList (Maybe (ValList Text)) -gjclConnections = lens _glueJobConnectionsListConnections (\s a -> s { _glueJobConnectionsListConnections = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueJobExecutionProperty.hs b/library-gen/Stratosphere/ResourceProperties/GlueJobExecutionProperty.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueJobExecutionProperty.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-job-executionproperty.html - -module Stratosphere.ResourceProperties.GlueJobExecutionProperty where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GlueJobExecutionProperty. See --- 'glueJobExecutionProperty' for a more convenient constructor. -data GlueJobExecutionProperty = - GlueJobExecutionProperty - { _glueJobExecutionPropertyMaxConcurrentRuns :: Maybe (Val Double) - } deriving (Show, Eq) - -instance ToJSON GlueJobExecutionProperty where - toJSON GlueJobExecutionProperty{..} = - object $ - catMaybes - [ fmap (("MaxConcurrentRuns",) . toJSON) _glueJobExecutionPropertyMaxConcurrentRuns - ] - --- | Constructor for 'GlueJobExecutionProperty' containing required fields as --- arguments. -glueJobExecutionProperty - :: GlueJobExecutionProperty -glueJobExecutionProperty = - GlueJobExecutionProperty - { _glueJobExecutionPropertyMaxConcurrentRuns = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-job-executionproperty.html#cfn-glue-job-executionproperty-maxconcurrentruns -gjepMaxConcurrentRuns :: Lens' GlueJobExecutionProperty (Maybe (Val Double)) -gjepMaxConcurrentRuns = lens _glueJobExecutionPropertyMaxConcurrentRuns (\s a -> s { _glueJobExecutionPropertyMaxConcurrentRuns = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueJobJobCommand.hs b/library-gen/Stratosphere/ResourceProperties/GlueJobJobCommand.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueJobJobCommand.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-job-jobcommand.html - -module Stratosphere.ResourceProperties.GlueJobJobCommand where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GlueJobJobCommand. See 'glueJobJobCommand' --- for a more convenient constructor. -data GlueJobJobCommand = - GlueJobJobCommand - { _glueJobJobCommandName :: Maybe (Val Text) - , _glueJobJobCommandPythonVersion :: Maybe (Val Text) - , _glueJobJobCommandScriptLocation :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON GlueJobJobCommand where - toJSON GlueJobJobCommand{..} = - object $ - catMaybes - [ fmap (("Name",) . toJSON) _glueJobJobCommandName - , fmap (("PythonVersion",) . toJSON) _glueJobJobCommandPythonVersion - , fmap (("ScriptLocation",) . toJSON) _glueJobJobCommandScriptLocation - ] - --- | Constructor for 'GlueJobJobCommand' containing required fields as --- arguments. -glueJobJobCommand - :: GlueJobJobCommand -glueJobJobCommand = - GlueJobJobCommand - { _glueJobJobCommandName = Nothing - , _glueJobJobCommandPythonVersion = Nothing - , _glueJobJobCommandScriptLocation = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-job-jobcommand.html#cfn-glue-job-jobcommand-name -gjjcName :: Lens' GlueJobJobCommand (Maybe (Val Text)) -gjjcName = lens _glueJobJobCommandName (\s a -> s { _glueJobJobCommandName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-job-jobcommand.html#cfn-glue-job-jobcommand-pythonversion -gjjcPythonVersion :: Lens' GlueJobJobCommand (Maybe (Val Text)) -gjjcPythonVersion = lens _glueJobJobCommandPythonVersion (\s a -> s { _glueJobJobCommandPythonVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-job-jobcommand.html#cfn-glue-job-jobcommand-scriptlocation -gjjcScriptLocation :: Lens' GlueJobJobCommand (Maybe (Val Text)) -gjjcScriptLocation = lens _glueJobJobCommandScriptLocation (\s a -> s { _glueJobJobCommandScriptLocation = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueJobNotificationProperty.hs b/library-gen/Stratosphere/ResourceProperties/GlueJobNotificationProperty.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueJobNotificationProperty.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-job-notificationproperty.html - -module Stratosphere.ResourceProperties.GlueJobNotificationProperty where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GlueJobNotificationProperty. See --- 'glueJobNotificationProperty' for a more convenient constructor. -data GlueJobNotificationProperty = - GlueJobNotificationProperty - { _glueJobNotificationPropertyNotifyDelayAfter :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON GlueJobNotificationProperty where - toJSON GlueJobNotificationProperty{..} = - object $ - catMaybes - [ fmap (("NotifyDelayAfter",) . toJSON) _glueJobNotificationPropertyNotifyDelayAfter - ] - --- | Constructor for 'GlueJobNotificationProperty' containing required fields --- as arguments. -glueJobNotificationProperty - :: GlueJobNotificationProperty -glueJobNotificationProperty = - GlueJobNotificationProperty - { _glueJobNotificationPropertyNotifyDelayAfter = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-job-notificationproperty.html#cfn-glue-job-notificationproperty-notifydelayafter -gjnpNotifyDelayAfter :: Lens' GlueJobNotificationProperty (Maybe (Val Integer)) -gjnpNotifyDelayAfter = lens _glueJobNotificationPropertyNotifyDelayAfter (\s a -> s { _glueJobNotificationPropertyNotifyDelayAfter = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueMLTransformFindMatchesParameters.hs b/library-gen/Stratosphere/ResourceProperties/GlueMLTransformFindMatchesParameters.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueMLTransformFindMatchesParameters.hs +++ /dev/null @@ -1,60 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-transformparameters-findmatchesparameters.html - -module Stratosphere.ResourceProperties.GlueMLTransformFindMatchesParameters where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GlueMLTransformFindMatchesParameters. See --- 'glueMLTransformFindMatchesParameters' for a more convenient constructor. -data GlueMLTransformFindMatchesParameters = - GlueMLTransformFindMatchesParameters - { _glueMLTransformFindMatchesParametersAccuracyCostTradeoff :: Maybe (Val Double) - , _glueMLTransformFindMatchesParametersEnforceProvidedLabels :: Maybe (Val Bool) - , _glueMLTransformFindMatchesParametersPrecisionRecallTradeoff :: Maybe (Val Double) - , _glueMLTransformFindMatchesParametersPrimaryKeyColumnName :: Val Text - } deriving (Show, Eq) - -instance ToJSON GlueMLTransformFindMatchesParameters where - toJSON GlueMLTransformFindMatchesParameters{..} = - object $ - catMaybes - [ fmap (("AccuracyCostTradeoff",) . toJSON) _glueMLTransformFindMatchesParametersAccuracyCostTradeoff - , fmap (("EnforceProvidedLabels",) . toJSON) _glueMLTransformFindMatchesParametersEnforceProvidedLabels - , fmap (("PrecisionRecallTradeoff",) . toJSON) _glueMLTransformFindMatchesParametersPrecisionRecallTradeoff - , (Just . ("PrimaryKeyColumnName",) . toJSON) _glueMLTransformFindMatchesParametersPrimaryKeyColumnName - ] - --- | Constructor for 'GlueMLTransformFindMatchesParameters' containing --- required fields as arguments. -glueMLTransformFindMatchesParameters - :: Val Text -- ^ 'gmltfmpPrimaryKeyColumnName' - -> GlueMLTransformFindMatchesParameters -glueMLTransformFindMatchesParameters primaryKeyColumnNamearg = - GlueMLTransformFindMatchesParameters - { _glueMLTransformFindMatchesParametersAccuracyCostTradeoff = Nothing - , _glueMLTransformFindMatchesParametersEnforceProvidedLabels = Nothing - , _glueMLTransformFindMatchesParametersPrecisionRecallTradeoff = Nothing - , _glueMLTransformFindMatchesParametersPrimaryKeyColumnName = primaryKeyColumnNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-transformparameters-findmatchesparameters.html#cfn-glue-mltransform-transformparameters-findmatchesparameters-accuracycosttradeoff -gmltfmpAccuracyCostTradeoff :: Lens' GlueMLTransformFindMatchesParameters (Maybe (Val Double)) -gmltfmpAccuracyCostTradeoff = lens _glueMLTransformFindMatchesParametersAccuracyCostTradeoff (\s a -> s { _glueMLTransformFindMatchesParametersAccuracyCostTradeoff = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-transformparameters-findmatchesparameters.html#cfn-glue-mltransform-transformparameters-findmatchesparameters-enforceprovidedlabels -gmltfmpEnforceProvidedLabels :: Lens' GlueMLTransformFindMatchesParameters (Maybe (Val Bool)) -gmltfmpEnforceProvidedLabels = lens _glueMLTransformFindMatchesParametersEnforceProvidedLabels (\s a -> s { _glueMLTransformFindMatchesParametersEnforceProvidedLabels = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-transformparameters-findmatchesparameters.html#cfn-glue-mltransform-transformparameters-findmatchesparameters-precisionrecalltradeoff -gmltfmpPrecisionRecallTradeoff :: Lens' GlueMLTransformFindMatchesParameters (Maybe (Val Double)) -gmltfmpPrecisionRecallTradeoff = lens _glueMLTransformFindMatchesParametersPrecisionRecallTradeoff (\s a -> s { _glueMLTransformFindMatchesParametersPrecisionRecallTradeoff = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-transformparameters-findmatchesparameters.html#cfn-glue-mltransform-transformparameters-findmatchesparameters-primarykeycolumnname -gmltfmpPrimaryKeyColumnName :: Lens' GlueMLTransformFindMatchesParameters (Val Text) -gmltfmpPrimaryKeyColumnName = lens _glueMLTransformFindMatchesParametersPrimaryKeyColumnName (\s a -> s { _glueMLTransformFindMatchesParametersPrimaryKeyColumnName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueMLTransformGlueTables.hs b/library-gen/Stratosphere/ResourceProperties/GlueMLTransformGlueTables.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueMLTransformGlueTables.hs +++ /dev/null @@ -1,61 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-inputrecordtables-gluetables.html - -module Stratosphere.ResourceProperties.GlueMLTransformGlueTables where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GlueMLTransformGlueTables. See --- 'glueMLTransformGlueTables' for a more convenient constructor. -data GlueMLTransformGlueTables = - GlueMLTransformGlueTables - { _glueMLTransformGlueTablesCatalogId :: Maybe (Val Text) - , _glueMLTransformGlueTablesConnectionName :: Maybe (Val Text) - , _glueMLTransformGlueTablesDatabaseName :: Val Text - , _glueMLTransformGlueTablesTableName :: Val Text - } deriving (Show, Eq) - -instance ToJSON GlueMLTransformGlueTables where - toJSON GlueMLTransformGlueTables{..} = - object $ - catMaybes - [ fmap (("CatalogId",) . toJSON) _glueMLTransformGlueTablesCatalogId - , fmap (("ConnectionName",) . toJSON) _glueMLTransformGlueTablesConnectionName - , (Just . ("DatabaseName",) . toJSON) _glueMLTransformGlueTablesDatabaseName - , (Just . ("TableName",) . toJSON) _glueMLTransformGlueTablesTableName - ] - --- | Constructor for 'GlueMLTransformGlueTables' containing required fields as --- arguments. -glueMLTransformGlueTables - :: Val Text -- ^ 'gmltgtDatabaseName' - -> Val Text -- ^ 'gmltgtTableName' - -> GlueMLTransformGlueTables -glueMLTransformGlueTables databaseNamearg tableNamearg = - GlueMLTransformGlueTables - { _glueMLTransformGlueTablesCatalogId = Nothing - , _glueMLTransformGlueTablesConnectionName = Nothing - , _glueMLTransformGlueTablesDatabaseName = databaseNamearg - , _glueMLTransformGlueTablesTableName = tableNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-inputrecordtables-gluetables.html#cfn-glue-mltransform-inputrecordtables-gluetables-catalogid -gmltgtCatalogId :: Lens' GlueMLTransformGlueTables (Maybe (Val Text)) -gmltgtCatalogId = lens _glueMLTransformGlueTablesCatalogId (\s a -> s { _glueMLTransformGlueTablesCatalogId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-inputrecordtables-gluetables.html#cfn-glue-mltransform-inputrecordtables-gluetables-connectionname -gmltgtConnectionName :: Lens' GlueMLTransformGlueTables (Maybe (Val Text)) -gmltgtConnectionName = lens _glueMLTransformGlueTablesConnectionName (\s a -> s { _glueMLTransformGlueTablesConnectionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-inputrecordtables-gluetables.html#cfn-glue-mltransform-inputrecordtables-gluetables-databasename -gmltgtDatabaseName :: Lens' GlueMLTransformGlueTables (Val Text) -gmltgtDatabaseName = lens _glueMLTransformGlueTablesDatabaseName (\s a -> s { _glueMLTransformGlueTablesDatabaseName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-inputrecordtables-gluetables.html#cfn-glue-mltransform-inputrecordtables-gluetables-tablename -gmltgtTableName :: Lens' GlueMLTransformGlueTables (Val Text) -gmltgtTableName = lens _glueMLTransformGlueTablesTableName (\s a -> s { _glueMLTransformGlueTablesTableName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueMLTransformInputRecordTables.hs b/library-gen/Stratosphere/ResourceProperties/GlueMLTransformInputRecordTables.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueMLTransformInputRecordTables.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-inputrecordtables.html - -module Stratosphere.ResourceProperties.GlueMLTransformInputRecordTables where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GlueMLTransformGlueTables - --- | Full data type definition for GlueMLTransformInputRecordTables. See --- 'glueMLTransformInputRecordTables' for a more convenient constructor. -data GlueMLTransformInputRecordTables = - GlueMLTransformInputRecordTables - { _glueMLTransformInputRecordTablesGlueTables :: Maybe [GlueMLTransformGlueTables] - } deriving (Show, Eq) - -instance ToJSON GlueMLTransformInputRecordTables where - toJSON GlueMLTransformInputRecordTables{..} = - object $ - catMaybes - [ fmap (("GlueTables",) . toJSON) _glueMLTransformInputRecordTablesGlueTables - ] - --- | Constructor for 'GlueMLTransformInputRecordTables' containing required --- fields as arguments. -glueMLTransformInputRecordTables - :: GlueMLTransformInputRecordTables -glueMLTransformInputRecordTables = - GlueMLTransformInputRecordTables - { _glueMLTransformInputRecordTablesGlueTables = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-inputrecordtables.html#cfn-glue-mltransform-inputrecordtables-gluetables -gmltirtGlueTables :: Lens' GlueMLTransformInputRecordTables (Maybe [GlueMLTransformGlueTables]) -gmltirtGlueTables = lens _glueMLTransformInputRecordTablesGlueTables (\s a -> s { _glueMLTransformInputRecordTablesGlueTables = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueMLTransformTransformParameters.hs b/library-gen/Stratosphere/ResourceProperties/GlueMLTransformTransformParameters.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueMLTransformTransformParameters.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-transformparameters.html - -module Stratosphere.ResourceProperties.GlueMLTransformTransformParameters where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GlueMLTransformFindMatchesParameters - --- | Full data type definition for GlueMLTransformTransformParameters. See --- 'glueMLTransformTransformParameters' for a more convenient constructor. -data GlueMLTransformTransformParameters = - GlueMLTransformTransformParameters - { _glueMLTransformTransformParametersFindMatchesParameters :: Maybe GlueMLTransformFindMatchesParameters - , _glueMLTransformTransformParametersTransformType :: Val Text - } deriving (Show, Eq) - -instance ToJSON GlueMLTransformTransformParameters where - toJSON GlueMLTransformTransformParameters{..} = - object $ - catMaybes - [ fmap (("FindMatchesParameters",) . toJSON) _glueMLTransformTransformParametersFindMatchesParameters - , (Just . ("TransformType",) . toJSON) _glueMLTransformTransformParametersTransformType - ] - --- | Constructor for 'GlueMLTransformTransformParameters' containing required --- fields as arguments. -glueMLTransformTransformParameters - :: Val Text -- ^ 'gmlttpTransformType' - -> GlueMLTransformTransformParameters -glueMLTransformTransformParameters transformTypearg = - GlueMLTransformTransformParameters - { _glueMLTransformTransformParametersFindMatchesParameters = Nothing - , _glueMLTransformTransformParametersTransformType = transformTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-transformparameters.html#cfn-glue-mltransform-transformparameters-findmatchesparameters -gmlttpFindMatchesParameters :: Lens' GlueMLTransformTransformParameters (Maybe GlueMLTransformFindMatchesParameters) -gmlttpFindMatchesParameters = lens _glueMLTransformTransformParametersFindMatchesParameters (\s a -> s { _glueMLTransformTransformParametersFindMatchesParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-mltransform-transformparameters.html#cfn-glue-mltransform-transformparameters-transformtype -gmlttpTransformType :: Lens' GlueMLTransformTransformParameters (Val Text) -gmlttpTransformType = lens _glueMLTransformTransformParametersTransformType (\s a -> s { _glueMLTransformTransformParametersTransformType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GluePartitionColumn.hs b/library-gen/Stratosphere/ResourceProperties/GluePartitionColumn.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GluePartitionColumn.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-column.html - -module Stratosphere.ResourceProperties.GluePartitionColumn where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GluePartitionColumn. See --- 'gluePartitionColumn' for a more convenient constructor. -data GluePartitionColumn = - GluePartitionColumn - { _gluePartitionColumnComment :: Maybe (Val Text) - , _gluePartitionColumnName :: Val Text - , _gluePartitionColumnType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON GluePartitionColumn where - toJSON GluePartitionColumn{..} = - object $ - catMaybes - [ fmap (("Comment",) . toJSON) _gluePartitionColumnComment - , (Just . ("Name",) . toJSON) _gluePartitionColumnName - , fmap (("Type",) . toJSON) _gluePartitionColumnType - ] - --- | Constructor for 'GluePartitionColumn' containing required fields as --- arguments. -gluePartitionColumn - :: Val Text -- ^ 'gpcName' - -> GluePartitionColumn -gluePartitionColumn namearg = - GluePartitionColumn - { _gluePartitionColumnComment = Nothing - , _gluePartitionColumnName = namearg - , _gluePartitionColumnType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-column.html#cfn-glue-partition-column-comment -gpcComment :: Lens' GluePartitionColumn (Maybe (Val Text)) -gpcComment = lens _gluePartitionColumnComment (\s a -> s { _gluePartitionColumnComment = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-column.html#cfn-glue-partition-column-name -gpcName :: Lens' GluePartitionColumn (Val Text) -gpcName = lens _gluePartitionColumnName (\s a -> s { _gluePartitionColumnName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-column.html#cfn-glue-partition-column-type -gpcType :: Lens' GluePartitionColumn (Maybe (Val Text)) -gpcType = lens _gluePartitionColumnType (\s a -> s { _gluePartitionColumnType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GluePartitionOrder.hs b/library-gen/Stratosphere/ResourceProperties/GluePartitionOrder.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GluePartitionOrder.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-order.html - -module Stratosphere.ResourceProperties.GluePartitionOrder where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GluePartitionOrder. See --- 'gluePartitionOrder' for a more convenient constructor. -data GluePartitionOrder = - GluePartitionOrder - { _gluePartitionOrderColumn :: Val Text - , _gluePartitionOrderSortOrder :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON GluePartitionOrder where - toJSON GluePartitionOrder{..} = - object $ - catMaybes - [ (Just . ("Column",) . toJSON) _gluePartitionOrderColumn - , fmap (("SortOrder",) . toJSON) _gluePartitionOrderSortOrder - ] - --- | Constructor for 'GluePartitionOrder' containing required fields as --- arguments. -gluePartitionOrder - :: Val Text -- ^ 'gpoColumn' - -> GluePartitionOrder -gluePartitionOrder columnarg = - GluePartitionOrder - { _gluePartitionOrderColumn = columnarg - , _gluePartitionOrderSortOrder = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-order.html#cfn-glue-partition-order-column -gpoColumn :: Lens' GluePartitionOrder (Val Text) -gpoColumn = lens _gluePartitionOrderColumn (\s a -> s { _gluePartitionOrderColumn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-order.html#cfn-glue-partition-order-sortorder -gpoSortOrder :: Lens' GluePartitionOrder (Maybe (Val Integer)) -gpoSortOrder = lens _gluePartitionOrderSortOrder (\s a -> s { _gluePartitionOrderSortOrder = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GluePartitionPartitionInput.hs b/library-gen/Stratosphere/ResourceProperties/GluePartitionPartitionInput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GluePartitionPartitionInput.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-partitioninput.html - -module Stratosphere.ResourceProperties.GluePartitionPartitionInput where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GluePartitionStorageDescriptor - --- | Full data type definition for GluePartitionPartitionInput. See --- 'gluePartitionPartitionInput' for a more convenient constructor. -data GluePartitionPartitionInput = - GluePartitionPartitionInput - { _gluePartitionPartitionInputParameters :: Maybe Object - , _gluePartitionPartitionInputStorageDescriptor :: Maybe GluePartitionStorageDescriptor - , _gluePartitionPartitionInputValues :: ValList Text - } deriving (Show, Eq) - -instance ToJSON GluePartitionPartitionInput where - toJSON GluePartitionPartitionInput{..} = - object $ - catMaybes - [ fmap (("Parameters",) . toJSON) _gluePartitionPartitionInputParameters - , fmap (("StorageDescriptor",) . toJSON) _gluePartitionPartitionInputStorageDescriptor - , (Just . ("Values",) . toJSON) _gluePartitionPartitionInputValues - ] - --- | Constructor for 'GluePartitionPartitionInput' containing required fields --- as arguments. -gluePartitionPartitionInput - :: ValList Text -- ^ 'gppiValues' - -> GluePartitionPartitionInput -gluePartitionPartitionInput valuesarg = - GluePartitionPartitionInput - { _gluePartitionPartitionInputParameters = Nothing - , _gluePartitionPartitionInputStorageDescriptor = Nothing - , _gluePartitionPartitionInputValues = valuesarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-partitioninput.html#cfn-glue-partition-partitioninput-parameters -gppiParameters :: Lens' GluePartitionPartitionInput (Maybe Object) -gppiParameters = lens _gluePartitionPartitionInputParameters (\s a -> s { _gluePartitionPartitionInputParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-partitioninput.html#cfn-glue-partition-partitioninput-storagedescriptor -gppiStorageDescriptor :: Lens' GluePartitionPartitionInput (Maybe GluePartitionStorageDescriptor) -gppiStorageDescriptor = lens _gluePartitionPartitionInputStorageDescriptor (\s a -> s { _gluePartitionPartitionInputStorageDescriptor = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-partitioninput.html#cfn-glue-partition-partitioninput-values -gppiValues :: Lens' GluePartitionPartitionInput (ValList Text) -gppiValues = lens _gluePartitionPartitionInputValues (\s a -> s { _gluePartitionPartitionInputValues = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GluePartitionSerdeInfo.hs b/library-gen/Stratosphere/ResourceProperties/GluePartitionSerdeInfo.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GluePartitionSerdeInfo.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-serdeinfo.html - -module Stratosphere.ResourceProperties.GluePartitionSerdeInfo where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GluePartitionSerdeInfo. See --- 'gluePartitionSerdeInfo' for a more convenient constructor. -data GluePartitionSerdeInfo = - GluePartitionSerdeInfo - { _gluePartitionSerdeInfoName :: Maybe (Val Text) - , _gluePartitionSerdeInfoParameters :: Maybe Object - , _gluePartitionSerdeInfoSerializationLibrary :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON GluePartitionSerdeInfo where - toJSON GluePartitionSerdeInfo{..} = - object $ - catMaybes - [ fmap (("Name",) . toJSON) _gluePartitionSerdeInfoName - , fmap (("Parameters",) . toJSON) _gluePartitionSerdeInfoParameters - , fmap (("SerializationLibrary",) . toJSON) _gluePartitionSerdeInfoSerializationLibrary - ] - --- | Constructor for 'GluePartitionSerdeInfo' containing required fields as --- arguments. -gluePartitionSerdeInfo - :: GluePartitionSerdeInfo -gluePartitionSerdeInfo = - GluePartitionSerdeInfo - { _gluePartitionSerdeInfoName = Nothing - , _gluePartitionSerdeInfoParameters = Nothing - , _gluePartitionSerdeInfoSerializationLibrary = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-serdeinfo.html#cfn-glue-partition-serdeinfo-name -gpsiName :: Lens' GluePartitionSerdeInfo (Maybe (Val Text)) -gpsiName = lens _gluePartitionSerdeInfoName (\s a -> s { _gluePartitionSerdeInfoName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-serdeinfo.html#cfn-glue-partition-serdeinfo-parameters -gpsiParameters :: Lens' GluePartitionSerdeInfo (Maybe Object) -gpsiParameters = lens _gluePartitionSerdeInfoParameters (\s a -> s { _gluePartitionSerdeInfoParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-serdeinfo.html#cfn-glue-partition-serdeinfo-serializationlibrary -gpsiSerializationLibrary :: Lens' GluePartitionSerdeInfo (Maybe (Val Text)) -gpsiSerializationLibrary = lens _gluePartitionSerdeInfoSerializationLibrary (\s a -> s { _gluePartitionSerdeInfoSerializationLibrary = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GluePartitionSkewedInfo.hs b/library-gen/Stratosphere/ResourceProperties/GluePartitionSkewedInfo.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GluePartitionSkewedInfo.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-skewedinfo.html - -module Stratosphere.ResourceProperties.GluePartitionSkewedInfo where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GluePartitionSkewedInfo. See --- 'gluePartitionSkewedInfo' for a more convenient constructor. -data GluePartitionSkewedInfo = - GluePartitionSkewedInfo - { _gluePartitionSkewedInfoSkewedColumnNames :: Maybe (ValList Text) - , _gluePartitionSkewedInfoSkewedColumnValueLocationMaps :: Maybe Object - , _gluePartitionSkewedInfoSkewedColumnValues :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON GluePartitionSkewedInfo where - toJSON GluePartitionSkewedInfo{..} = - object $ - catMaybes - [ fmap (("SkewedColumnNames",) . toJSON) _gluePartitionSkewedInfoSkewedColumnNames - , fmap (("SkewedColumnValueLocationMaps",) . toJSON) _gluePartitionSkewedInfoSkewedColumnValueLocationMaps - , fmap (("SkewedColumnValues",) . toJSON) _gluePartitionSkewedInfoSkewedColumnValues - ] - --- | Constructor for 'GluePartitionSkewedInfo' containing required fields as --- arguments. -gluePartitionSkewedInfo - :: GluePartitionSkewedInfo -gluePartitionSkewedInfo = - GluePartitionSkewedInfo - { _gluePartitionSkewedInfoSkewedColumnNames = Nothing - , _gluePartitionSkewedInfoSkewedColumnValueLocationMaps = Nothing - , _gluePartitionSkewedInfoSkewedColumnValues = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-skewedinfo.html#cfn-glue-partition-skewedinfo-skewedcolumnnames -gpsiSkewedColumnNames :: Lens' GluePartitionSkewedInfo (Maybe (ValList Text)) -gpsiSkewedColumnNames = lens _gluePartitionSkewedInfoSkewedColumnNames (\s a -> s { _gluePartitionSkewedInfoSkewedColumnNames = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-skewedinfo.html#cfn-glue-partition-skewedinfo-skewedcolumnvaluelocationmaps -gpsiSkewedColumnValueLocationMaps :: Lens' GluePartitionSkewedInfo (Maybe Object) -gpsiSkewedColumnValueLocationMaps = lens _gluePartitionSkewedInfoSkewedColumnValueLocationMaps (\s a -> s { _gluePartitionSkewedInfoSkewedColumnValueLocationMaps = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-skewedinfo.html#cfn-glue-partition-skewedinfo-skewedcolumnvalues -gpsiSkewedColumnValues :: Lens' GluePartitionSkewedInfo (Maybe (ValList Text)) -gpsiSkewedColumnValues = lens _gluePartitionSkewedInfoSkewedColumnValues (\s a -> s { _gluePartitionSkewedInfoSkewedColumnValues = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GluePartitionStorageDescriptor.hs b/library-gen/Stratosphere/ResourceProperties/GluePartitionStorageDescriptor.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GluePartitionStorageDescriptor.hs +++ /dev/null @@ -1,118 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-storagedescriptor.html - -module Stratosphere.ResourceProperties.GluePartitionStorageDescriptor where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GluePartitionColumn -import Stratosphere.ResourceProperties.GluePartitionSerdeInfo -import Stratosphere.ResourceProperties.GluePartitionSkewedInfo -import Stratosphere.ResourceProperties.GluePartitionOrder - --- | Full data type definition for GluePartitionStorageDescriptor. See --- 'gluePartitionStorageDescriptor' for a more convenient constructor. -data GluePartitionStorageDescriptor = - GluePartitionStorageDescriptor - { _gluePartitionStorageDescriptorBucketColumns :: Maybe (ValList Text) - , _gluePartitionStorageDescriptorColumns :: Maybe [GluePartitionColumn] - , _gluePartitionStorageDescriptorCompressed :: Maybe (Val Bool) - , _gluePartitionStorageDescriptorInputFormat :: Maybe (Val Text) - , _gluePartitionStorageDescriptorLocation :: Maybe (Val Text) - , _gluePartitionStorageDescriptorNumberOfBuckets :: Maybe (Val Integer) - , _gluePartitionStorageDescriptorOutputFormat :: Maybe (Val Text) - , _gluePartitionStorageDescriptorParameters :: Maybe Object - , _gluePartitionStorageDescriptorSerdeInfo :: Maybe GluePartitionSerdeInfo - , _gluePartitionStorageDescriptorSkewedInfo :: Maybe GluePartitionSkewedInfo - , _gluePartitionStorageDescriptorSortColumns :: Maybe [GluePartitionOrder] - , _gluePartitionStorageDescriptorStoredAsSubDirectories :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON GluePartitionStorageDescriptor where - toJSON GluePartitionStorageDescriptor{..} = - object $ - catMaybes - [ fmap (("BucketColumns",) . toJSON) _gluePartitionStorageDescriptorBucketColumns - , fmap (("Columns",) . toJSON) _gluePartitionStorageDescriptorColumns - , fmap (("Compressed",) . toJSON) _gluePartitionStorageDescriptorCompressed - , fmap (("InputFormat",) . toJSON) _gluePartitionStorageDescriptorInputFormat - , fmap (("Location",) . toJSON) _gluePartitionStorageDescriptorLocation - , fmap (("NumberOfBuckets",) . toJSON) _gluePartitionStorageDescriptorNumberOfBuckets - , fmap (("OutputFormat",) . toJSON) _gluePartitionStorageDescriptorOutputFormat - , fmap (("Parameters",) . toJSON) _gluePartitionStorageDescriptorParameters - , fmap (("SerdeInfo",) . toJSON) _gluePartitionStorageDescriptorSerdeInfo - , fmap (("SkewedInfo",) . toJSON) _gluePartitionStorageDescriptorSkewedInfo - , fmap (("SortColumns",) . toJSON) _gluePartitionStorageDescriptorSortColumns - , fmap (("StoredAsSubDirectories",) . toJSON) _gluePartitionStorageDescriptorStoredAsSubDirectories - ] - --- | Constructor for 'GluePartitionStorageDescriptor' containing required --- fields as arguments. -gluePartitionStorageDescriptor - :: GluePartitionStorageDescriptor -gluePartitionStorageDescriptor = - GluePartitionStorageDescriptor - { _gluePartitionStorageDescriptorBucketColumns = Nothing - , _gluePartitionStorageDescriptorColumns = Nothing - , _gluePartitionStorageDescriptorCompressed = Nothing - , _gluePartitionStorageDescriptorInputFormat = Nothing - , _gluePartitionStorageDescriptorLocation = Nothing - , _gluePartitionStorageDescriptorNumberOfBuckets = Nothing - , _gluePartitionStorageDescriptorOutputFormat = Nothing - , _gluePartitionStorageDescriptorParameters = Nothing - , _gluePartitionStorageDescriptorSerdeInfo = Nothing - , _gluePartitionStorageDescriptorSkewedInfo = Nothing - , _gluePartitionStorageDescriptorSortColumns = Nothing - , _gluePartitionStorageDescriptorStoredAsSubDirectories = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-storagedescriptor.html#cfn-glue-partition-storagedescriptor-bucketcolumns -gpsdBucketColumns :: Lens' GluePartitionStorageDescriptor (Maybe (ValList Text)) -gpsdBucketColumns = lens _gluePartitionStorageDescriptorBucketColumns (\s a -> s { _gluePartitionStorageDescriptorBucketColumns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-storagedescriptor.html#cfn-glue-partition-storagedescriptor-columns -gpsdColumns :: Lens' GluePartitionStorageDescriptor (Maybe [GluePartitionColumn]) -gpsdColumns = lens _gluePartitionStorageDescriptorColumns (\s a -> s { _gluePartitionStorageDescriptorColumns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-storagedescriptor.html#cfn-glue-partition-storagedescriptor-compressed -gpsdCompressed :: Lens' GluePartitionStorageDescriptor (Maybe (Val Bool)) -gpsdCompressed = lens _gluePartitionStorageDescriptorCompressed (\s a -> s { _gluePartitionStorageDescriptorCompressed = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-storagedescriptor.html#cfn-glue-partition-storagedescriptor-inputformat -gpsdInputFormat :: Lens' GluePartitionStorageDescriptor (Maybe (Val Text)) -gpsdInputFormat = lens _gluePartitionStorageDescriptorInputFormat (\s a -> s { _gluePartitionStorageDescriptorInputFormat = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-storagedescriptor.html#cfn-glue-partition-storagedescriptor-location -gpsdLocation :: Lens' GluePartitionStorageDescriptor (Maybe (Val Text)) -gpsdLocation = lens _gluePartitionStorageDescriptorLocation (\s a -> s { _gluePartitionStorageDescriptorLocation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-storagedescriptor.html#cfn-glue-partition-storagedescriptor-numberofbuckets -gpsdNumberOfBuckets :: Lens' GluePartitionStorageDescriptor (Maybe (Val Integer)) -gpsdNumberOfBuckets = lens _gluePartitionStorageDescriptorNumberOfBuckets (\s a -> s { _gluePartitionStorageDescriptorNumberOfBuckets = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-storagedescriptor.html#cfn-glue-partition-storagedescriptor-outputformat -gpsdOutputFormat :: Lens' GluePartitionStorageDescriptor (Maybe (Val Text)) -gpsdOutputFormat = lens _gluePartitionStorageDescriptorOutputFormat (\s a -> s { _gluePartitionStorageDescriptorOutputFormat = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-storagedescriptor.html#cfn-glue-partition-storagedescriptor-parameters -gpsdParameters :: Lens' GluePartitionStorageDescriptor (Maybe Object) -gpsdParameters = lens _gluePartitionStorageDescriptorParameters (\s a -> s { _gluePartitionStorageDescriptorParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-storagedescriptor.html#cfn-glue-partition-storagedescriptor-serdeinfo -gpsdSerdeInfo :: Lens' GluePartitionStorageDescriptor (Maybe GluePartitionSerdeInfo) -gpsdSerdeInfo = lens _gluePartitionStorageDescriptorSerdeInfo (\s a -> s { _gluePartitionStorageDescriptorSerdeInfo = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-storagedescriptor.html#cfn-glue-partition-storagedescriptor-skewedinfo -gpsdSkewedInfo :: Lens' GluePartitionStorageDescriptor (Maybe GluePartitionSkewedInfo) -gpsdSkewedInfo = lens _gluePartitionStorageDescriptorSkewedInfo (\s a -> s { _gluePartitionStorageDescriptorSkewedInfo = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-storagedescriptor.html#cfn-glue-partition-storagedescriptor-sortcolumns -gpsdSortColumns :: Lens' GluePartitionStorageDescriptor (Maybe [GluePartitionOrder]) -gpsdSortColumns = lens _gluePartitionStorageDescriptorSortColumns (\s a -> s { _gluePartitionStorageDescriptorSortColumns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-partition-storagedescriptor.html#cfn-glue-partition-storagedescriptor-storedassubdirectories -gpsdStoredAsSubDirectories :: Lens' GluePartitionStorageDescriptor (Maybe (Val Bool)) -gpsdStoredAsSubDirectories = lens _gluePartitionStorageDescriptorStoredAsSubDirectories (\s a -> s { _gluePartitionStorageDescriptorStoredAsSubDirectories = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueSecurityConfigurationCloudWatchEncryption.hs b/library-gen/Stratosphere/ResourceProperties/GlueSecurityConfigurationCloudWatchEncryption.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueSecurityConfigurationCloudWatchEncryption.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-securityconfiguration-cloudwatchencryption.html - -module Stratosphere.ResourceProperties.GlueSecurityConfigurationCloudWatchEncryption where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- GlueSecurityConfigurationCloudWatchEncryption. See --- 'glueSecurityConfigurationCloudWatchEncryption' for a more convenient --- constructor. -data GlueSecurityConfigurationCloudWatchEncryption = - GlueSecurityConfigurationCloudWatchEncryption - { _glueSecurityConfigurationCloudWatchEncryptionCloudWatchEncryptionMode :: Maybe (Val Text) - , _glueSecurityConfigurationCloudWatchEncryptionKmsKeyArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON GlueSecurityConfigurationCloudWatchEncryption where - toJSON GlueSecurityConfigurationCloudWatchEncryption{..} = - object $ - catMaybes - [ fmap (("CloudWatchEncryptionMode",) . toJSON) _glueSecurityConfigurationCloudWatchEncryptionCloudWatchEncryptionMode - , fmap (("KmsKeyArn",) . toJSON) _glueSecurityConfigurationCloudWatchEncryptionKmsKeyArn - ] - --- | Constructor for 'GlueSecurityConfigurationCloudWatchEncryption' --- containing required fields as arguments. -glueSecurityConfigurationCloudWatchEncryption - :: GlueSecurityConfigurationCloudWatchEncryption -glueSecurityConfigurationCloudWatchEncryption = - GlueSecurityConfigurationCloudWatchEncryption - { _glueSecurityConfigurationCloudWatchEncryptionCloudWatchEncryptionMode = Nothing - , _glueSecurityConfigurationCloudWatchEncryptionKmsKeyArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-securityconfiguration-cloudwatchencryption.html#cfn-glue-securityconfiguration-cloudwatchencryption-cloudwatchencryptionmode -gsccweCloudWatchEncryptionMode :: Lens' GlueSecurityConfigurationCloudWatchEncryption (Maybe (Val Text)) -gsccweCloudWatchEncryptionMode = lens _glueSecurityConfigurationCloudWatchEncryptionCloudWatchEncryptionMode (\s a -> s { _glueSecurityConfigurationCloudWatchEncryptionCloudWatchEncryptionMode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-securityconfiguration-cloudwatchencryption.html#cfn-glue-securityconfiguration-cloudwatchencryption-kmskeyarn -gsccweKmsKeyArn :: Lens' GlueSecurityConfigurationCloudWatchEncryption (Maybe (Val Text)) -gsccweKmsKeyArn = lens _glueSecurityConfigurationCloudWatchEncryptionKmsKeyArn (\s a -> s { _glueSecurityConfigurationCloudWatchEncryptionKmsKeyArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueSecurityConfigurationEncryptionConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/GlueSecurityConfigurationEncryptionConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueSecurityConfigurationEncryptionConfiguration.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-securityconfiguration-encryptionconfiguration.html - -module Stratosphere.ResourceProperties.GlueSecurityConfigurationEncryptionConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GlueSecurityConfigurationCloudWatchEncryption -import Stratosphere.ResourceProperties.GlueSecurityConfigurationJobBookmarksEncryption -import Stratosphere.ResourceProperties.GlueSecurityConfigurationS3Encryption - --- | Full data type definition for --- GlueSecurityConfigurationEncryptionConfiguration. See --- 'glueSecurityConfigurationEncryptionConfiguration' for a more convenient --- constructor. -data GlueSecurityConfigurationEncryptionConfiguration = - GlueSecurityConfigurationEncryptionConfiguration - { _glueSecurityConfigurationEncryptionConfigurationCloudWatchEncryption :: Maybe GlueSecurityConfigurationCloudWatchEncryption - , _glueSecurityConfigurationEncryptionConfigurationJobBookmarksEncryption :: Maybe GlueSecurityConfigurationJobBookmarksEncryption - , _glueSecurityConfigurationEncryptionConfigurationS3Encryptions :: Maybe [GlueSecurityConfigurationS3Encryption] - } deriving (Show, Eq) - -instance ToJSON GlueSecurityConfigurationEncryptionConfiguration where - toJSON GlueSecurityConfigurationEncryptionConfiguration{..} = - object $ - catMaybes - [ fmap (("CloudWatchEncryption",) . toJSON) _glueSecurityConfigurationEncryptionConfigurationCloudWatchEncryption - , fmap (("JobBookmarksEncryption",) . toJSON) _glueSecurityConfigurationEncryptionConfigurationJobBookmarksEncryption - , fmap (("S3Encryptions",) . toJSON) _glueSecurityConfigurationEncryptionConfigurationS3Encryptions - ] - --- | Constructor for 'GlueSecurityConfigurationEncryptionConfiguration' --- containing required fields as arguments. -glueSecurityConfigurationEncryptionConfiguration - :: GlueSecurityConfigurationEncryptionConfiguration -glueSecurityConfigurationEncryptionConfiguration = - GlueSecurityConfigurationEncryptionConfiguration - { _glueSecurityConfigurationEncryptionConfigurationCloudWatchEncryption = Nothing - , _glueSecurityConfigurationEncryptionConfigurationJobBookmarksEncryption = Nothing - , _glueSecurityConfigurationEncryptionConfigurationS3Encryptions = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-securityconfiguration-encryptionconfiguration.html#cfn-glue-securityconfiguration-encryptionconfiguration-cloudwatchencryption -gscecCloudWatchEncryption :: Lens' GlueSecurityConfigurationEncryptionConfiguration (Maybe GlueSecurityConfigurationCloudWatchEncryption) -gscecCloudWatchEncryption = lens _glueSecurityConfigurationEncryptionConfigurationCloudWatchEncryption (\s a -> s { _glueSecurityConfigurationEncryptionConfigurationCloudWatchEncryption = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-securityconfiguration-encryptionconfiguration.html#cfn-glue-securityconfiguration-encryptionconfiguration-jobbookmarksencryption -gscecJobBookmarksEncryption :: Lens' GlueSecurityConfigurationEncryptionConfiguration (Maybe GlueSecurityConfigurationJobBookmarksEncryption) -gscecJobBookmarksEncryption = lens _glueSecurityConfigurationEncryptionConfigurationJobBookmarksEncryption (\s a -> s { _glueSecurityConfigurationEncryptionConfigurationJobBookmarksEncryption = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-securityconfiguration-encryptionconfiguration.html#cfn-glue-securityconfiguration-encryptionconfiguration-s3encryptions -gscecS3Encryptions :: Lens' GlueSecurityConfigurationEncryptionConfiguration (Maybe [GlueSecurityConfigurationS3Encryption]) -gscecS3Encryptions = lens _glueSecurityConfigurationEncryptionConfigurationS3Encryptions (\s a -> s { _glueSecurityConfigurationEncryptionConfigurationS3Encryptions = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueSecurityConfigurationJobBookmarksEncryption.hs b/library-gen/Stratosphere/ResourceProperties/GlueSecurityConfigurationJobBookmarksEncryption.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueSecurityConfigurationJobBookmarksEncryption.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-securityconfiguration-jobbookmarksencryption.html - -module Stratosphere.ResourceProperties.GlueSecurityConfigurationJobBookmarksEncryption where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- GlueSecurityConfigurationJobBookmarksEncryption. See --- 'glueSecurityConfigurationJobBookmarksEncryption' for a more convenient --- constructor. -data GlueSecurityConfigurationJobBookmarksEncryption = - GlueSecurityConfigurationJobBookmarksEncryption - { _glueSecurityConfigurationJobBookmarksEncryptionJobBookmarksEncryptionMode :: Maybe (Val Text) - , _glueSecurityConfigurationJobBookmarksEncryptionKmsKeyArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON GlueSecurityConfigurationJobBookmarksEncryption where - toJSON GlueSecurityConfigurationJobBookmarksEncryption{..} = - object $ - catMaybes - [ fmap (("JobBookmarksEncryptionMode",) . toJSON) _glueSecurityConfigurationJobBookmarksEncryptionJobBookmarksEncryptionMode - , fmap (("KmsKeyArn",) . toJSON) _glueSecurityConfigurationJobBookmarksEncryptionKmsKeyArn - ] - --- | Constructor for 'GlueSecurityConfigurationJobBookmarksEncryption' --- containing required fields as arguments. -glueSecurityConfigurationJobBookmarksEncryption - :: GlueSecurityConfigurationJobBookmarksEncryption -glueSecurityConfigurationJobBookmarksEncryption = - GlueSecurityConfigurationJobBookmarksEncryption - { _glueSecurityConfigurationJobBookmarksEncryptionJobBookmarksEncryptionMode = Nothing - , _glueSecurityConfigurationJobBookmarksEncryptionKmsKeyArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-securityconfiguration-jobbookmarksencryption.html#cfn-glue-securityconfiguration-jobbookmarksencryption-jobbookmarksencryptionmode -gscjbeJobBookmarksEncryptionMode :: Lens' GlueSecurityConfigurationJobBookmarksEncryption (Maybe (Val Text)) -gscjbeJobBookmarksEncryptionMode = lens _glueSecurityConfigurationJobBookmarksEncryptionJobBookmarksEncryptionMode (\s a -> s { _glueSecurityConfigurationJobBookmarksEncryptionJobBookmarksEncryptionMode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-securityconfiguration-jobbookmarksencryption.html#cfn-glue-securityconfiguration-jobbookmarksencryption-kmskeyarn -gscjbeKmsKeyArn :: Lens' GlueSecurityConfigurationJobBookmarksEncryption (Maybe (Val Text)) -gscjbeKmsKeyArn = lens _glueSecurityConfigurationJobBookmarksEncryptionKmsKeyArn (\s a -> s { _glueSecurityConfigurationJobBookmarksEncryptionKmsKeyArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueSecurityConfigurationS3Encryption.hs b/library-gen/Stratosphere/ResourceProperties/GlueSecurityConfigurationS3Encryption.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueSecurityConfigurationS3Encryption.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-securityconfiguration-s3encryption.html - -module Stratosphere.ResourceProperties.GlueSecurityConfigurationS3Encryption where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GlueSecurityConfigurationS3Encryption. See --- 'glueSecurityConfigurationS3Encryption' for a more convenient --- constructor. -data GlueSecurityConfigurationS3Encryption = - GlueSecurityConfigurationS3Encryption - { _glueSecurityConfigurationS3EncryptionKmsKeyArn :: Maybe (Val Text) - , _glueSecurityConfigurationS3EncryptionS3EncryptionMode :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON GlueSecurityConfigurationS3Encryption where - toJSON GlueSecurityConfigurationS3Encryption{..} = - object $ - catMaybes - [ fmap (("KmsKeyArn",) . toJSON) _glueSecurityConfigurationS3EncryptionKmsKeyArn - , fmap (("S3EncryptionMode",) . toJSON) _glueSecurityConfigurationS3EncryptionS3EncryptionMode - ] - --- | Constructor for 'GlueSecurityConfigurationS3Encryption' containing --- required fields as arguments. -glueSecurityConfigurationS3Encryption - :: GlueSecurityConfigurationS3Encryption -glueSecurityConfigurationS3Encryption = - GlueSecurityConfigurationS3Encryption - { _glueSecurityConfigurationS3EncryptionKmsKeyArn = Nothing - , _glueSecurityConfigurationS3EncryptionS3EncryptionMode = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-securityconfiguration-s3encryption.html#cfn-glue-securityconfiguration-s3encryption-kmskeyarn -gscseKmsKeyArn :: Lens' GlueSecurityConfigurationS3Encryption (Maybe (Val Text)) -gscseKmsKeyArn = lens _glueSecurityConfigurationS3EncryptionKmsKeyArn (\s a -> s { _glueSecurityConfigurationS3EncryptionKmsKeyArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-securityconfiguration-s3encryption.html#cfn-glue-securityconfiguration-s3encryption-s3encryptionmode -gscseS3EncryptionMode :: Lens' GlueSecurityConfigurationS3Encryption (Maybe (Val Text)) -gscseS3EncryptionMode = lens _glueSecurityConfigurationS3EncryptionS3EncryptionMode (\s a -> s { _glueSecurityConfigurationS3EncryptionS3EncryptionMode = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueTableColumn.hs b/library-gen/Stratosphere/ResourceProperties/GlueTableColumn.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueTableColumn.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-column.html - -module Stratosphere.ResourceProperties.GlueTableColumn where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GlueTableColumn. See 'glueTableColumn' for --- a more convenient constructor. -data GlueTableColumn = - GlueTableColumn - { _glueTableColumnComment :: Maybe (Val Text) - , _glueTableColumnName :: Val Text - , _glueTableColumnType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON GlueTableColumn where - toJSON GlueTableColumn{..} = - object $ - catMaybes - [ fmap (("Comment",) . toJSON) _glueTableColumnComment - , (Just . ("Name",) . toJSON) _glueTableColumnName - , fmap (("Type",) . toJSON) _glueTableColumnType - ] - --- | Constructor for 'GlueTableColumn' containing required fields as --- arguments. -glueTableColumn - :: Val Text -- ^ 'gtcName' - -> GlueTableColumn -glueTableColumn namearg = - GlueTableColumn - { _glueTableColumnComment = Nothing - , _glueTableColumnName = namearg - , _glueTableColumnType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-column.html#cfn-glue-table-column-comment -gtcComment :: Lens' GlueTableColumn (Maybe (Val Text)) -gtcComment = lens _glueTableColumnComment (\s a -> s { _glueTableColumnComment = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-column.html#cfn-glue-table-column-name -gtcName :: Lens' GlueTableColumn (Val Text) -gtcName = lens _glueTableColumnName (\s a -> s { _glueTableColumnName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-column.html#cfn-glue-table-column-type -gtcType :: Lens' GlueTableColumn (Maybe (Val Text)) -gtcType = lens _glueTableColumnType (\s a -> s { _glueTableColumnType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueTableOrder.hs b/library-gen/Stratosphere/ResourceProperties/GlueTableOrder.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueTableOrder.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-order.html - -module Stratosphere.ResourceProperties.GlueTableOrder where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GlueTableOrder. See 'glueTableOrder' for a --- more convenient constructor. -data GlueTableOrder = - GlueTableOrder - { _glueTableOrderColumn :: Val Text - , _glueTableOrderSortOrder :: Val Integer - } deriving (Show, Eq) - -instance ToJSON GlueTableOrder where - toJSON GlueTableOrder{..} = - object $ - catMaybes - [ (Just . ("Column",) . toJSON) _glueTableOrderColumn - , (Just . ("SortOrder",) . toJSON) _glueTableOrderSortOrder - ] - --- | Constructor for 'GlueTableOrder' containing required fields as arguments. -glueTableOrder - :: Val Text -- ^ 'gtoColumn' - -> Val Integer -- ^ 'gtoSortOrder' - -> GlueTableOrder -glueTableOrder columnarg sortOrderarg = - GlueTableOrder - { _glueTableOrderColumn = columnarg - , _glueTableOrderSortOrder = sortOrderarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-order.html#cfn-glue-table-order-column -gtoColumn :: Lens' GlueTableOrder (Val Text) -gtoColumn = lens _glueTableOrderColumn (\s a -> s { _glueTableOrderColumn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-order.html#cfn-glue-table-order-sortorder -gtoSortOrder :: Lens' GlueTableOrder (Val Integer) -gtoSortOrder = lens _glueTableOrderSortOrder (\s a -> s { _glueTableOrderSortOrder = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueTableSerdeInfo.hs b/library-gen/Stratosphere/ResourceProperties/GlueTableSerdeInfo.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueTableSerdeInfo.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-serdeinfo.html - -module Stratosphere.ResourceProperties.GlueTableSerdeInfo where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GlueTableSerdeInfo. See --- 'glueTableSerdeInfo' for a more convenient constructor. -data GlueTableSerdeInfo = - GlueTableSerdeInfo - { _glueTableSerdeInfoName :: Maybe (Val Text) - , _glueTableSerdeInfoParameters :: Maybe Object - , _glueTableSerdeInfoSerializationLibrary :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON GlueTableSerdeInfo where - toJSON GlueTableSerdeInfo{..} = - object $ - catMaybes - [ fmap (("Name",) . toJSON) _glueTableSerdeInfoName - , fmap (("Parameters",) . toJSON) _glueTableSerdeInfoParameters - , fmap (("SerializationLibrary",) . toJSON) _glueTableSerdeInfoSerializationLibrary - ] - --- | Constructor for 'GlueTableSerdeInfo' containing required fields as --- arguments. -glueTableSerdeInfo - :: GlueTableSerdeInfo -glueTableSerdeInfo = - GlueTableSerdeInfo - { _glueTableSerdeInfoName = Nothing - , _glueTableSerdeInfoParameters = Nothing - , _glueTableSerdeInfoSerializationLibrary = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-serdeinfo.html#cfn-glue-table-serdeinfo-name -gtsiName :: Lens' GlueTableSerdeInfo (Maybe (Val Text)) -gtsiName = lens _glueTableSerdeInfoName (\s a -> s { _glueTableSerdeInfoName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-serdeinfo.html#cfn-glue-table-serdeinfo-parameters -gtsiParameters :: Lens' GlueTableSerdeInfo (Maybe Object) -gtsiParameters = lens _glueTableSerdeInfoParameters (\s a -> s { _glueTableSerdeInfoParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-serdeinfo.html#cfn-glue-table-serdeinfo-serializationlibrary -gtsiSerializationLibrary :: Lens' GlueTableSerdeInfo (Maybe (Val Text)) -gtsiSerializationLibrary = lens _glueTableSerdeInfoSerializationLibrary (\s a -> s { _glueTableSerdeInfoSerializationLibrary = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueTableSkewedInfo.hs b/library-gen/Stratosphere/ResourceProperties/GlueTableSkewedInfo.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueTableSkewedInfo.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-skewedinfo.html - -module Stratosphere.ResourceProperties.GlueTableSkewedInfo where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GlueTableSkewedInfo. See --- 'glueTableSkewedInfo' for a more convenient constructor. -data GlueTableSkewedInfo = - GlueTableSkewedInfo - { _glueTableSkewedInfoSkewedColumnNames :: Maybe (ValList Text) - , _glueTableSkewedInfoSkewedColumnValueLocationMaps :: Maybe Object - , _glueTableSkewedInfoSkewedColumnValues :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON GlueTableSkewedInfo where - toJSON GlueTableSkewedInfo{..} = - object $ - catMaybes - [ fmap (("SkewedColumnNames",) . toJSON) _glueTableSkewedInfoSkewedColumnNames - , fmap (("SkewedColumnValueLocationMaps",) . toJSON) _glueTableSkewedInfoSkewedColumnValueLocationMaps - , fmap (("SkewedColumnValues",) . toJSON) _glueTableSkewedInfoSkewedColumnValues - ] - --- | Constructor for 'GlueTableSkewedInfo' containing required fields as --- arguments. -glueTableSkewedInfo - :: GlueTableSkewedInfo -glueTableSkewedInfo = - GlueTableSkewedInfo - { _glueTableSkewedInfoSkewedColumnNames = Nothing - , _glueTableSkewedInfoSkewedColumnValueLocationMaps = Nothing - , _glueTableSkewedInfoSkewedColumnValues = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-skewedinfo.html#cfn-glue-table-skewedinfo-skewedcolumnnames -gtsiSkewedColumnNames :: Lens' GlueTableSkewedInfo (Maybe (ValList Text)) -gtsiSkewedColumnNames = lens _glueTableSkewedInfoSkewedColumnNames (\s a -> s { _glueTableSkewedInfoSkewedColumnNames = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-skewedinfo.html#cfn-glue-table-skewedinfo-skewedcolumnvaluelocationmaps -gtsiSkewedColumnValueLocationMaps :: Lens' GlueTableSkewedInfo (Maybe Object) -gtsiSkewedColumnValueLocationMaps = lens _glueTableSkewedInfoSkewedColumnValueLocationMaps (\s a -> s { _glueTableSkewedInfoSkewedColumnValueLocationMaps = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-skewedinfo.html#cfn-glue-table-skewedinfo-skewedcolumnvalues -gtsiSkewedColumnValues :: Lens' GlueTableSkewedInfo (Maybe (ValList Text)) -gtsiSkewedColumnValues = lens _glueTableSkewedInfoSkewedColumnValues (\s a -> s { _glueTableSkewedInfoSkewedColumnValues = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueTableStorageDescriptor.hs b/library-gen/Stratosphere/ResourceProperties/GlueTableStorageDescriptor.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueTableStorageDescriptor.hs +++ /dev/null @@ -1,118 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-storagedescriptor.html - -module Stratosphere.ResourceProperties.GlueTableStorageDescriptor where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GlueTableColumn -import Stratosphere.ResourceProperties.GlueTableSerdeInfo -import Stratosphere.ResourceProperties.GlueTableSkewedInfo -import Stratosphere.ResourceProperties.GlueTableOrder - --- | Full data type definition for GlueTableStorageDescriptor. See --- 'glueTableStorageDescriptor' for a more convenient constructor. -data GlueTableStorageDescriptor = - GlueTableStorageDescriptor - { _glueTableStorageDescriptorBucketColumns :: Maybe (ValList Text) - , _glueTableStorageDescriptorColumns :: Maybe [GlueTableColumn] - , _glueTableStorageDescriptorCompressed :: Maybe (Val Bool) - , _glueTableStorageDescriptorInputFormat :: Maybe (Val Text) - , _glueTableStorageDescriptorLocation :: Maybe (Val Text) - , _glueTableStorageDescriptorNumberOfBuckets :: Maybe (Val Integer) - , _glueTableStorageDescriptorOutputFormat :: Maybe (Val Text) - , _glueTableStorageDescriptorParameters :: Maybe Object - , _glueTableStorageDescriptorSerdeInfo :: Maybe GlueTableSerdeInfo - , _glueTableStorageDescriptorSkewedInfo :: Maybe GlueTableSkewedInfo - , _glueTableStorageDescriptorSortColumns :: Maybe [GlueTableOrder] - , _glueTableStorageDescriptorStoredAsSubDirectories :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON GlueTableStorageDescriptor where - toJSON GlueTableStorageDescriptor{..} = - object $ - catMaybes - [ fmap (("BucketColumns",) . toJSON) _glueTableStorageDescriptorBucketColumns - , fmap (("Columns",) . toJSON) _glueTableStorageDescriptorColumns - , fmap (("Compressed",) . toJSON) _glueTableStorageDescriptorCompressed - , fmap (("InputFormat",) . toJSON) _glueTableStorageDescriptorInputFormat - , fmap (("Location",) . toJSON) _glueTableStorageDescriptorLocation - , fmap (("NumberOfBuckets",) . toJSON) _glueTableStorageDescriptorNumberOfBuckets - , fmap (("OutputFormat",) . toJSON) _glueTableStorageDescriptorOutputFormat - , fmap (("Parameters",) . toJSON) _glueTableStorageDescriptorParameters - , fmap (("SerdeInfo",) . toJSON) _glueTableStorageDescriptorSerdeInfo - , fmap (("SkewedInfo",) . toJSON) _glueTableStorageDescriptorSkewedInfo - , fmap (("SortColumns",) . toJSON) _glueTableStorageDescriptorSortColumns - , fmap (("StoredAsSubDirectories",) . toJSON) _glueTableStorageDescriptorStoredAsSubDirectories - ] - --- | Constructor for 'GlueTableStorageDescriptor' containing required fields --- as arguments. -glueTableStorageDescriptor - :: GlueTableStorageDescriptor -glueTableStorageDescriptor = - GlueTableStorageDescriptor - { _glueTableStorageDescriptorBucketColumns = Nothing - , _glueTableStorageDescriptorColumns = Nothing - , _glueTableStorageDescriptorCompressed = Nothing - , _glueTableStorageDescriptorInputFormat = Nothing - , _glueTableStorageDescriptorLocation = Nothing - , _glueTableStorageDescriptorNumberOfBuckets = Nothing - , _glueTableStorageDescriptorOutputFormat = Nothing - , _glueTableStorageDescriptorParameters = Nothing - , _glueTableStorageDescriptorSerdeInfo = Nothing - , _glueTableStorageDescriptorSkewedInfo = Nothing - , _glueTableStorageDescriptorSortColumns = Nothing - , _glueTableStorageDescriptorStoredAsSubDirectories = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-storagedescriptor.html#cfn-glue-table-storagedescriptor-bucketcolumns -gtsdBucketColumns :: Lens' GlueTableStorageDescriptor (Maybe (ValList Text)) -gtsdBucketColumns = lens _glueTableStorageDescriptorBucketColumns (\s a -> s { _glueTableStorageDescriptorBucketColumns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-storagedescriptor.html#cfn-glue-table-storagedescriptor-columns -gtsdColumns :: Lens' GlueTableStorageDescriptor (Maybe [GlueTableColumn]) -gtsdColumns = lens _glueTableStorageDescriptorColumns (\s a -> s { _glueTableStorageDescriptorColumns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-storagedescriptor.html#cfn-glue-table-storagedescriptor-compressed -gtsdCompressed :: Lens' GlueTableStorageDescriptor (Maybe (Val Bool)) -gtsdCompressed = lens _glueTableStorageDescriptorCompressed (\s a -> s { _glueTableStorageDescriptorCompressed = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-storagedescriptor.html#cfn-glue-table-storagedescriptor-inputformat -gtsdInputFormat :: Lens' GlueTableStorageDescriptor (Maybe (Val Text)) -gtsdInputFormat = lens _glueTableStorageDescriptorInputFormat (\s a -> s { _glueTableStorageDescriptorInputFormat = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-storagedescriptor.html#cfn-glue-table-storagedescriptor-location -gtsdLocation :: Lens' GlueTableStorageDescriptor (Maybe (Val Text)) -gtsdLocation = lens _glueTableStorageDescriptorLocation (\s a -> s { _glueTableStorageDescriptorLocation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-storagedescriptor.html#cfn-glue-table-storagedescriptor-numberofbuckets -gtsdNumberOfBuckets :: Lens' GlueTableStorageDescriptor (Maybe (Val Integer)) -gtsdNumberOfBuckets = lens _glueTableStorageDescriptorNumberOfBuckets (\s a -> s { _glueTableStorageDescriptorNumberOfBuckets = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-storagedescriptor.html#cfn-glue-table-storagedescriptor-outputformat -gtsdOutputFormat :: Lens' GlueTableStorageDescriptor (Maybe (Val Text)) -gtsdOutputFormat = lens _glueTableStorageDescriptorOutputFormat (\s a -> s { _glueTableStorageDescriptorOutputFormat = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-storagedescriptor.html#cfn-glue-table-storagedescriptor-parameters -gtsdParameters :: Lens' GlueTableStorageDescriptor (Maybe Object) -gtsdParameters = lens _glueTableStorageDescriptorParameters (\s a -> s { _glueTableStorageDescriptorParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-storagedescriptor.html#cfn-glue-table-storagedescriptor-serdeinfo -gtsdSerdeInfo :: Lens' GlueTableStorageDescriptor (Maybe GlueTableSerdeInfo) -gtsdSerdeInfo = lens _glueTableStorageDescriptorSerdeInfo (\s a -> s { _glueTableStorageDescriptorSerdeInfo = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-storagedescriptor.html#cfn-glue-table-storagedescriptor-skewedinfo -gtsdSkewedInfo :: Lens' GlueTableStorageDescriptor (Maybe GlueTableSkewedInfo) -gtsdSkewedInfo = lens _glueTableStorageDescriptorSkewedInfo (\s a -> s { _glueTableStorageDescriptorSkewedInfo = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-storagedescriptor.html#cfn-glue-table-storagedescriptor-sortcolumns -gtsdSortColumns :: Lens' GlueTableStorageDescriptor (Maybe [GlueTableOrder]) -gtsdSortColumns = lens _glueTableStorageDescriptorSortColumns (\s a -> s { _glueTableStorageDescriptorSortColumns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-storagedescriptor.html#cfn-glue-table-storagedescriptor-storedassubdirectories -gtsdStoredAsSubDirectories :: Lens' GlueTableStorageDescriptor (Maybe (Val Bool)) -gtsdStoredAsSubDirectories = lens _glueTableStorageDescriptorStoredAsSubDirectories (\s a -> s { _glueTableStorageDescriptorStoredAsSubDirectories = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueTableTableInput.hs b/library-gen/Stratosphere/ResourceProperties/GlueTableTableInput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueTableTableInput.hs +++ /dev/null @@ -1,102 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-tableinput.html - -module Stratosphere.ResourceProperties.GlueTableTableInput where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GlueTableColumn -import Stratosphere.ResourceProperties.GlueTableStorageDescriptor - --- | Full data type definition for GlueTableTableInput. See --- 'glueTableTableInput' for a more convenient constructor. -data GlueTableTableInput = - GlueTableTableInput - { _glueTableTableInputDescription :: Maybe (Val Text) - , _glueTableTableInputName :: Maybe (Val Text) - , _glueTableTableInputOwner :: Maybe (Val Text) - , _glueTableTableInputParameters :: Maybe Object - , _glueTableTableInputPartitionKeys :: Maybe [GlueTableColumn] - , _glueTableTableInputRetention :: Maybe (Val Integer) - , _glueTableTableInputStorageDescriptor :: Maybe GlueTableStorageDescriptor - , _glueTableTableInputTableType :: Maybe (Val Text) - , _glueTableTableInputViewExpandedText :: Maybe (Val Text) - , _glueTableTableInputViewOriginalText :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON GlueTableTableInput where - toJSON GlueTableTableInput{..} = - object $ - catMaybes - [ fmap (("Description",) . toJSON) _glueTableTableInputDescription - , fmap (("Name",) . toJSON) _glueTableTableInputName - , fmap (("Owner",) . toJSON) _glueTableTableInputOwner - , fmap (("Parameters",) . toJSON) _glueTableTableInputParameters - , fmap (("PartitionKeys",) . toJSON) _glueTableTableInputPartitionKeys - , fmap (("Retention",) . toJSON) _glueTableTableInputRetention - , fmap (("StorageDescriptor",) . toJSON) _glueTableTableInputStorageDescriptor - , fmap (("TableType",) . toJSON) _glueTableTableInputTableType - , fmap (("ViewExpandedText",) . toJSON) _glueTableTableInputViewExpandedText - , fmap (("ViewOriginalText",) . toJSON) _glueTableTableInputViewOriginalText - ] - --- | Constructor for 'GlueTableTableInput' containing required fields as --- arguments. -glueTableTableInput - :: GlueTableTableInput -glueTableTableInput = - GlueTableTableInput - { _glueTableTableInputDescription = Nothing - , _glueTableTableInputName = Nothing - , _glueTableTableInputOwner = Nothing - , _glueTableTableInputParameters = Nothing - , _glueTableTableInputPartitionKeys = Nothing - , _glueTableTableInputRetention = Nothing - , _glueTableTableInputStorageDescriptor = Nothing - , _glueTableTableInputTableType = Nothing - , _glueTableTableInputViewExpandedText = Nothing - , _glueTableTableInputViewOriginalText = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-tableinput.html#cfn-glue-table-tableinput-description -gttiDescription :: Lens' GlueTableTableInput (Maybe (Val Text)) -gttiDescription = lens _glueTableTableInputDescription (\s a -> s { _glueTableTableInputDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-tableinput.html#cfn-glue-table-tableinput-name -gttiName :: Lens' GlueTableTableInput (Maybe (Val Text)) -gttiName = lens _glueTableTableInputName (\s a -> s { _glueTableTableInputName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-tableinput.html#cfn-glue-table-tableinput-owner -gttiOwner :: Lens' GlueTableTableInput (Maybe (Val Text)) -gttiOwner = lens _glueTableTableInputOwner (\s a -> s { _glueTableTableInputOwner = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-tableinput.html#cfn-glue-table-tableinput-parameters -gttiParameters :: Lens' GlueTableTableInput (Maybe Object) -gttiParameters = lens _glueTableTableInputParameters (\s a -> s { _glueTableTableInputParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-tableinput.html#cfn-glue-table-tableinput-partitionkeys -gttiPartitionKeys :: Lens' GlueTableTableInput (Maybe [GlueTableColumn]) -gttiPartitionKeys = lens _glueTableTableInputPartitionKeys (\s a -> s { _glueTableTableInputPartitionKeys = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-tableinput.html#cfn-glue-table-tableinput-retention -gttiRetention :: Lens' GlueTableTableInput (Maybe (Val Integer)) -gttiRetention = lens _glueTableTableInputRetention (\s a -> s { _glueTableTableInputRetention = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-tableinput.html#cfn-glue-table-tableinput-storagedescriptor -gttiStorageDescriptor :: Lens' GlueTableTableInput (Maybe GlueTableStorageDescriptor) -gttiStorageDescriptor = lens _glueTableTableInputStorageDescriptor (\s a -> s { _glueTableTableInputStorageDescriptor = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-tableinput.html#cfn-glue-table-tableinput-tabletype -gttiTableType :: Lens' GlueTableTableInput (Maybe (Val Text)) -gttiTableType = lens _glueTableTableInputTableType (\s a -> s { _glueTableTableInputTableType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-tableinput.html#cfn-glue-table-tableinput-viewexpandedtext -gttiViewExpandedText :: Lens' GlueTableTableInput (Maybe (Val Text)) -gttiViewExpandedText = lens _glueTableTableInputViewExpandedText (\s a -> s { _glueTableTableInputViewExpandedText = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-table-tableinput.html#cfn-glue-table-tableinput-vieworiginaltext -gttiViewOriginalText :: Lens' GlueTableTableInput (Maybe (Val Text)) -gttiViewOriginalText = lens _glueTableTableInputViewOriginalText (\s a -> s { _glueTableTableInputViewOriginalText = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueTriggerAction.hs b/library-gen/Stratosphere/ResourceProperties/GlueTriggerAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueTriggerAction.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-action.html - -module Stratosphere.ResourceProperties.GlueTriggerAction where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GlueTriggerNotificationProperty - --- | Full data type definition for GlueTriggerAction. See 'glueTriggerAction' --- for a more convenient constructor. -data GlueTriggerAction = - GlueTriggerAction - { _glueTriggerActionArguments :: Maybe Object - , _glueTriggerActionCrawlerName :: Maybe (Val Text) - , _glueTriggerActionJobName :: Maybe (Val Text) - , _glueTriggerActionNotificationProperty :: Maybe GlueTriggerNotificationProperty - , _glueTriggerActionSecurityConfiguration :: Maybe (Val Text) - , _glueTriggerActionTimeout :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON GlueTriggerAction where - toJSON GlueTriggerAction{..} = - object $ - catMaybes - [ fmap (("Arguments",) . toJSON) _glueTriggerActionArguments - , fmap (("CrawlerName",) . toJSON) _glueTriggerActionCrawlerName - , fmap (("JobName",) . toJSON) _glueTriggerActionJobName - , fmap (("NotificationProperty",) . toJSON) _glueTriggerActionNotificationProperty - , fmap (("SecurityConfiguration",) . toJSON) _glueTriggerActionSecurityConfiguration - , fmap (("Timeout",) . toJSON) _glueTriggerActionTimeout - ] - --- | Constructor for 'GlueTriggerAction' containing required fields as --- arguments. -glueTriggerAction - :: GlueTriggerAction -glueTriggerAction = - GlueTriggerAction - { _glueTriggerActionArguments = Nothing - , _glueTriggerActionCrawlerName = Nothing - , _glueTriggerActionJobName = Nothing - , _glueTriggerActionNotificationProperty = Nothing - , _glueTriggerActionSecurityConfiguration = Nothing - , _glueTriggerActionTimeout = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-action.html#cfn-glue-trigger-action-arguments -gtaArguments :: Lens' GlueTriggerAction (Maybe Object) -gtaArguments = lens _glueTriggerActionArguments (\s a -> s { _glueTriggerActionArguments = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-action.html#cfn-glue-trigger-action-crawlername -gtaCrawlerName :: Lens' GlueTriggerAction (Maybe (Val Text)) -gtaCrawlerName = lens _glueTriggerActionCrawlerName (\s a -> s { _glueTriggerActionCrawlerName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-action.html#cfn-glue-trigger-action-jobname -gtaJobName :: Lens' GlueTriggerAction (Maybe (Val Text)) -gtaJobName = lens _glueTriggerActionJobName (\s a -> s { _glueTriggerActionJobName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-action.html#cfn-glue-trigger-action-notificationproperty -gtaNotificationProperty :: Lens' GlueTriggerAction (Maybe GlueTriggerNotificationProperty) -gtaNotificationProperty = lens _glueTriggerActionNotificationProperty (\s a -> s { _glueTriggerActionNotificationProperty = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-action.html#cfn-glue-trigger-action-securityconfiguration -gtaSecurityConfiguration :: Lens' GlueTriggerAction (Maybe (Val Text)) -gtaSecurityConfiguration = lens _glueTriggerActionSecurityConfiguration (\s a -> s { _glueTriggerActionSecurityConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-action.html#cfn-glue-trigger-action-timeout -gtaTimeout :: Lens' GlueTriggerAction (Maybe (Val Integer)) -gtaTimeout = lens _glueTriggerActionTimeout (\s a -> s { _glueTriggerActionTimeout = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueTriggerCondition.hs b/library-gen/Stratosphere/ResourceProperties/GlueTriggerCondition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueTriggerCondition.hs +++ /dev/null @@ -1,66 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-condition.html - -module Stratosphere.ResourceProperties.GlueTriggerCondition where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GlueTriggerCondition. See --- 'glueTriggerCondition' for a more convenient constructor. -data GlueTriggerCondition = - GlueTriggerCondition - { _glueTriggerConditionCrawlState :: Maybe (Val Text) - , _glueTriggerConditionCrawlerName :: Maybe (Val Text) - , _glueTriggerConditionJobName :: Maybe (Val Text) - , _glueTriggerConditionLogicalOperator :: Maybe (Val Text) - , _glueTriggerConditionState :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON GlueTriggerCondition where - toJSON GlueTriggerCondition{..} = - object $ - catMaybes - [ fmap (("CrawlState",) . toJSON) _glueTriggerConditionCrawlState - , fmap (("CrawlerName",) . toJSON) _glueTriggerConditionCrawlerName - , fmap (("JobName",) . toJSON) _glueTriggerConditionJobName - , fmap (("LogicalOperator",) . toJSON) _glueTriggerConditionLogicalOperator - , fmap (("State",) . toJSON) _glueTriggerConditionState - ] - --- | Constructor for 'GlueTriggerCondition' containing required fields as --- arguments. -glueTriggerCondition - :: GlueTriggerCondition -glueTriggerCondition = - GlueTriggerCondition - { _glueTriggerConditionCrawlState = Nothing - , _glueTriggerConditionCrawlerName = Nothing - , _glueTriggerConditionJobName = Nothing - , _glueTriggerConditionLogicalOperator = Nothing - , _glueTriggerConditionState = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-condition.html#cfn-glue-trigger-condition-crawlstate -gtcCrawlState :: Lens' GlueTriggerCondition (Maybe (Val Text)) -gtcCrawlState = lens _glueTriggerConditionCrawlState (\s a -> s { _glueTriggerConditionCrawlState = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-condition.html#cfn-glue-trigger-condition-crawlername -gtcCrawlerName :: Lens' GlueTriggerCondition (Maybe (Val Text)) -gtcCrawlerName = lens _glueTriggerConditionCrawlerName (\s a -> s { _glueTriggerConditionCrawlerName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-condition.html#cfn-glue-trigger-condition-jobname -gtcJobName :: Lens' GlueTriggerCondition (Maybe (Val Text)) -gtcJobName = lens _glueTriggerConditionJobName (\s a -> s { _glueTriggerConditionJobName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-condition.html#cfn-glue-trigger-condition-logicaloperator -gtcLogicalOperator :: Lens' GlueTriggerCondition (Maybe (Val Text)) -gtcLogicalOperator = lens _glueTriggerConditionLogicalOperator (\s a -> s { _glueTriggerConditionLogicalOperator = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-condition.html#cfn-glue-trigger-condition-state -gtcState :: Lens' GlueTriggerCondition (Maybe (Val Text)) -gtcState = lens _glueTriggerConditionState (\s a -> s { _glueTriggerConditionState = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueTriggerNotificationProperty.hs b/library-gen/Stratosphere/ResourceProperties/GlueTriggerNotificationProperty.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueTriggerNotificationProperty.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-notificationproperty.html - -module Stratosphere.ResourceProperties.GlueTriggerNotificationProperty where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GlueTriggerNotificationProperty. See --- 'glueTriggerNotificationProperty' for a more convenient constructor. -data GlueTriggerNotificationProperty = - GlueTriggerNotificationProperty - { _glueTriggerNotificationPropertyNotifyDelayAfter :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON GlueTriggerNotificationProperty where - toJSON GlueTriggerNotificationProperty{..} = - object $ - catMaybes - [ fmap (("NotifyDelayAfter",) . toJSON) _glueTriggerNotificationPropertyNotifyDelayAfter - ] - --- | Constructor for 'GlueTriggerNotificationProperty' containing required --- fields as arguments. -glueTriggerNotificationProperty - :: GlueTriggerNotificationProperty -glueTriggerNotificationProperty = - GlueTriggerNotificationProperty - { _glueTriggerNotificationPropertyNotifyDelayAfter = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-notificationproperty.html#cfn-glue-trigger-notificationproperty-notifydelayafter -gtnpNotifyDelayAfter :: Lens' GlueTriggerNotificationProperty (Maybe (Val Integer)) -gtnpNotifyDelayAfter = lens _glueTriggerNotificationPropertyNotifyDelayAfter (\s a -> s { _glueTriggerNotificationPropertyNotifyDelayAfter = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GlueTriggerPredicate.hs b/library-gen/Stratosphere/ResourceProperties/GlueTriggerPredicate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GlueTriggerPredicate.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-predicate.html - -module Stratosphere.ResourceProperties.GlueTriggerPredicate where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GlueTriggerCondition - --- | Full data type definition for GlueTriggerPredicate. See --- 'glueTriggerPredicate' for a more convenient constructor. -data GlueTriggerPredicate = - GlueTriggerPredicate - { _glueTriggerPredicateConditions :: Maybe [GlueTriggerCondition] - , _glueTriggerPredicateLogical :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON GlueTriggerPredicate where - toJSON GlueTriggerPredicate{..} = - object $ - catMaybes - [ fmap (("Conditions",) . toJSON) _glueTriggerPredicateConditions - , fmap (("Logical",) . toJSON) _glueTriggerPredicateLogical - ] - --- | Constructor for 'GlueTriggerPredicate' containing required fields as --- arguments. -glueTriggerPredicate - :: GlueTriggerPredicate -glueTriggerPredicate = - GlueTriggerPredicate - { _glueTriggerPredicateConditions = Nothing - , _glueTriggerPredicateLogical = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-predicate.html#cfn-glue-trigger-predicate-conditions -gtpConditions :: Lens' GlueTriggerPredicate (Maybe [GlueTriggerCondition]) -gtpConditions = lens _glueTriggerPredicateConditions (\s a -> s { _glueTriggerPredicateConditions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-trigger-predicate.html#cfn-glue-trigger-predicate-logical -gtpLogical :: Lens' GlueTriggerPredicate (Maybe (Val Text)) -gtpLogical = lens _glueTriggerPredicateLogical (\s a -> s { _glueTriggerPredicateLogical = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassConnectorDefinitionConnector.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassConnectorDefinitionConnector.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassConnectorDefinitionConnector.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-connectordefinition-connector.html - -module Stratosphere.ResourceProperties.GreengrassConnectorDefinitionConnector where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GreengrassConnectorDefinitionConnector. See --- 'greengrassConnectorDefinitionConnector' for a more convenient --- constructor. -data GreengrassConnectorDefinitionConnector = - GreengrassConnectorDefinitionConnector - { _greengrassConnectorDefinitionConnectorConnectorArn :: Val Text - , _greengrassConnectorDefinitionConnectorId :: Val Text - , _greengrassConnectorDefinitionConnectorParameters :: Maybe Object - } deriving (Show, Eq) - -instance ToJSON GreengrassConnectorDefinitionConnector where - toJSON GreengrassConnectorDefinitionConnector{..} = - object $ - catMaybes - [ (Just . ("ConnectorArn",) . toJSON) _greengrassConnectorDefinitionConnectorConnectorArn - , (Just . ("Id",) . toJSON) _greengrassConnectorDefinitionConnectorId - , fmap (("Parameters",) . toJSON) _greengrassConnectorDefinitionConnectorParameters - ] - --- | Constructor for 'GreengrassConnectorDefinitionConnector' containing --- required fields as arguments. -greengrassConnectorDefinitionConnector - :: Val Text -- ^ 'gcdcnConnectorArn' - -> Val Text -- ^ 'gcdcnId' - -> GreengrassConnectorDefinitionConnector -greengrassConnectorDefinitionConnector connectorArnarg idarg = - GreengrassConnectorDefinitionConnector - { _greengrassConnectorDefinitionConnectorConnectorArn = connectorArnarg - , _greengrassConnectorDefinitionConnectorId = idarg - , _greengrassConnectorDefinitionConnectorParameters = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-connectordefinition-connector.html#cfn-greengrass-connectordefinition-connector-connectorarn -gcdcnConnectorArn :: Lens' GreengrassConnectorDefinitionConnector (Val Text) -gcdcnConnectorArn = lens _greengrassConnectorDefinitionConnectorConnectorArn (\s a -> s { _greengrassConnectorDefinitionConnectorConnectorArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-connectordefinition-connector.html#cfn-greengrass-connectordefinition-connector-id -gcdcnId :: Lens' GreengrassConnectorDefinitionConnector (Val Text) -gcdcnId = lens _greengrassConnectorDefinitionConnectorId (\s a -> s { _greengrassConnectorDefinitionConnectorId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-connectordefinition-connector.html#cfn-greengrass-connectordefinition-connector-parameters -gcdcnParameters :: Lens' GreengrassConnectorDefinitionConnector (Maybe Object) -gcdcnParameters = lens _greengrassConnectorDefinitionConnectorParameters (\s a -> s { _greengrassConnectorDefinitionConnectorParameters = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassConnectorDefinitionConnectorDefinitionVersion.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassConnectorDefinitionConnectorDefinitionVersion.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassConnectorDefinitionConnectorDefinitionVersion.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-connectordefinition-connectordefinitionversion.html - -module Stratosphere.ResourceProperties.GreengrassConnectorDefinitionConnectorDefinitionVersion where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassConnectorDefinitionConnector - --- | Full data type definition for --- GreengrassConnectorDefinitionConnectorDefinitionVersion. See --- 'greengrassConnectorDefinitionConnectorDefinitionVersion' for a more --- convenient constructor. -data GreengrassConnectorDefinitionConnectorDefinitionVersion = - GreengrassConnectorDefinitionConnectorDefinitionVersion - { _greengrassConnectorDefinitionConnectorDefinitionVersionConnectors :: [GreengrassConnectorDefinitionConnector] - } deriving (Show, Eq) - -instance ToJSON GreengrassConnectorDefinitionConnectorDefinitionVersion where - toJSON GreengrassConnectorDefinitionConnectorDefinitionVersion{..} = - object $ - catMaybes - [ (Just . ("Connectors",) . toJSON) _greengrassConnectorDefinitionConnectorDefinitionVersionConnectors - ] - --- | Constructor for 'GreengrassConnectorDefinitionConnectorDefinitionVersion' --- containing required fields as arguments. -greengrassConnectorDefinitionConnectorDefinitionVersion - :: [GreengrassConnectorDefinitionConnector] -- ^ 'gcdcdvConnectors' - -> GreengrassConnectorDefinitionConnectorDefinitionVersion -greengrassConnectorDefinitionConnectorDefinitionVersion connectorsarg = - GreengrassConnectorDefinitionConnectorDefinitionVersion - { _greengrassConnectorDefinitionConnectorDefinitionVersionConnectors = connectorsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-connectordefinition-connectordefinitionversion.html#cfn-greengrass-connectordefinition-connectordefinitionversion-connectors -gcdcdvConnectors :: Lens' GreengrassConnectorDefinitionConnectorDefinitionVersion [GreengrassConnectorDefinitionConnector] -gcdcdvConnectors = lens _greengrassConnectorDefinitionConnectorDefinitionVersionConnectors (\s a -> s { _greengrassConnectorDefinitionConnectorDefinitionVersionConnectors = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassConnectorDefinitionVersionConnector.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassConnectorDefinitionVersionConnector.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassConnectorDefinitionVersionConnector.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-connectordefinitionversion-connector.html - -module Stratosphere.ResourceProperties.GreengrassConnectorDefinitionVersionConnector where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- GreengrassConnectorDefinitionVersionConnector. See --- 'greengrassConnectorDefinitionVersionConnector' for a more convenient --- constructor. -data GreengrassConnectorDefinitionVersionConnector = - GreengrassConnectorDefinitionVersionConnector - { _greengrassConnectorDefinitionVersionConnectorConnectorArn :: Val Text - , _greengrassConnectorDefinitionVersionConnectorId :: Val Text - , _greengrassConnectorDefinitionVersionConnectorParameters :: Maybe Object - } deriving (Show, Eq) - -instance ToJSON GreengrassConnectorDefinitionVersionConnector where - toJSON GreengrassConnectorDefinitionVersionConnector{..} = - object $ - catMaybes - [ (Just . ("ConnectorArn",) . toJSON) _greengrassConnectorDefinitionVersionConnectorConnectorArn - , (Just . ("Id",) . toJSON) _greengrassConnectorDefinitionVersionConnectorId - , fmap (("Parameters",) . toJSON) _greengrassConnectorDefinitionVersionConnectorParameters - ] - --- | Constructor for 'GreengrassConnectorDefinitionVersionConnector' --- containing required fields as arguments. -greengrassConnectorDefinitionVersionConnector - :: Val Text -- ^ 'gcdvcnConnectorArn' - -> Val Text -- ^ 'gcdvcnId' - -> GreengrassConnectorDefinitionVersionConnector -greengrassConnectorDefinitionVersionConnector connectorArnarg idarg = - GreengrassConnectorDefinitionVersionConnector - { _greengrassConnectorDefinitionVersionConnectorConnectorArn = connectorArnarg - , _greengrassConnectorDefinitionVersionConnectorId = idarg - , _greengrassConnectorDefinitionVersionConnectorParameters = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-connectordefinitionversion-connector.html#cfn-greengrass-connectordefinitionversion-connector-connectorarn -gcdvcnConnectorArn :: Lens' GreengrassConnectorDefinitionVersionConnector (Val Text) -gcdvcnConnectorArn = lens _greengrassConnectorDefinitionVersionConnectorConnectorArn (\s a -> s { _greengrassConnectorDefinitionVersionConnectorConnectorArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-connectordefinitionversion-connector.html#cfn-greengrass-connectordefinitionversion-connector-id -gcdvcnId :: Lens' GreengrassConnectorDefinitionVersionConnector (Val Text) -gcdvcnId = lens _greengrassConnectorDefinitionVersionConnectorId (\s a -> s { _greengrassConnectorDefinitionVersionConnectorId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-connectordefinitionversion-connector.html#cfn-greengrass-connectordefinitionversion-connector-parameters -gcdvcnParameters :: Lens' GreengrassConnectorDefinitionVersionConnector (Maybe Object) -gcdvcnParameters = lens _greengrassConnectorDefinitionVersionConnectorParameters (\s a -> s { _greengrassConnectorDefinitionVersionConnectorParameters = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassCoreDefinitionCore.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassCoreDefinitionCore.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassCoreDefinitionCore.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-coredefinition-core.html - -module Stratosphere.ResourceProperties.GreengrassCoreDefinitionCore where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GreengrassCoreDefinitionCore. See --- 'greengrassCoreDefinitionCore' for a more convenient constructor. -data GreengrassCoreDefinitionCore = - GreengrassCoreDefinitionCore - { _greengrassCoreDefinitionCoreCertificateArn :: Val Text - , _greengrassCoreDefinitionCoreId :: Val Text - , _greengrassCoreDefinitionCoreSyncShadow :: Maybe (Val Bool) - , _greengrassCoreDefinitionCoreThingArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON GreengrassCoreDefinitionCore where - toJSON GreengrassCoreDefinitionCore{..} = - object $ - catMaybes - [ (Just . ("CertificateArn",) . toJSON) _greengrassCoreDefinitionCoreCertificateArn - , (Just . ("Id",) . toJSON) _greengrassCoreDefinitionCoreId - , fmap (("SyncShadow",) . toJSON) _greengrassCoreDefinitionCoreSyncShadow - , (Just . ("ThingArn",) . toJSON) _greengrassCoreDefinitionCoreThingArn - ] - --- | Constructor for 'GreengrassCoreDefinitionCore' containing required fields --- as arguments. -greengrassCoreDefinitionCore - :: Val Text -- ^ 'gcdcrCertificateArn' - -> Val Text -- ^ 'gcdcrId' - -> Val Text -- ^ 'gcdcrThingArn' - -> GreengrassCoreDefinitionCore -greengrassCoreDefinitionCore certificateArnarg idarg thingArnarg = - GreengrassCoreDefinitionCore - { _greengrassCoreDefinitionCoreCertificateArn = certificateArnarg - , _greengrassCoreDefinitionCoreId = idarg - , _greengrassCoreDefinitionCoreSyncShadow = Nothing - , _greengrassCoreDefinitionCoreThingArn = thingArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-coredefinition-core.html#cfn-greengrass-coredefinition-core-certificatearn -gcdcrCertificateArn :: Lens' GreengrassCoreDefinitionCore (Val Text) -gcdcrCertificateArn = lens _greengrassCoreDefinitionCoreCertificateArn (\s a -> s { _greengrassCoreDefinitionCoreCertificateArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-coredefinition-core.html#cfn-greengrass-coredefinition-core-id -gcdcrId :: Lens' GreengrassCoreDefinitionCore (Val Text) -gcdcrId = lens _greengrassCoreDefinitionCoreId (\s a -> s { _greengrassCoreDefinitionCoreId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-coredefinition-core.html#cfn-greengrass-coredefinition-core-syncshadow -gcdcrSyncShadow :: Lens' GreengrassCoreDefinitionCore (Maybe (Val Bool)) -gcdcrSyncShadow = lens _greengrassCoreDefinitionCoreSyncShadow (\s a -> s { _greengrassCoreDefinitionCoreSyncShadow = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-coredefinition-core.html#cfn-greengrass-coredefinition-core-thingarn -gcdcrThingArn :: Lens' GreengrassCoreDefinitionCore (Val Text) -gcdcrThingArn = lens _greengrassCoreDefinitionCoreThingArn (\s a -> s { _greengrassCoreDefinitionCoreThingArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassCoreDefinitionCoreDefinitionVersion.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassCoreDefinitionCoreDefinitionVersion.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassCoreDefinitionCoreDefinitionVersion.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-coredefinition-coredefinitionversion.html - -module Stratosphere.ResourceProperties.GreengrassCoreDefinitionCoreDefinitionVersion where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassCoreDefinitionCore - --- | Full data type definition for --- GreengrassCoreDefinitionCoreDefinitionVersion. See --- 'greengrassCoreDefinitionCoreDefinitionVersion' for a more convenient --- constructor. -data GreengrassCoreDefinitionCoreDefinitionVersion = - GreengrassCoreDefinitionCoreDefinitionVersion - { _greengrassCoreDefinitionCoreDefinitionVersionCores :: [GreengrassCoreDefinitionCore] - } deriving (Show, Eq) - -instance ToJSON GreengrassCoreDefinitionCoreDefinitionVersion where - toJSON GreengrassCoreDefinitionCoreDefinitionVersion{..} = - object $ - catMaybes - [ (Just . ("Cores",) . toJSON) _greengrassCoreDefinitionCoreDefinitionVersionCores - ] - --- | Constructor for 'GreengrassCoreDefinitionCoreDefinitionVersion' --- containing required fields as arguments. -greengrassCoreDefinitionCoreDefinitionVersion - :: [GreengrassCoreDefinitionCore] -- ^ 'gcdcdvCores' - -> GreengrassCoreDefinitionCoreDefinitionVersion -greengrassCoreDefinitionCoreDefinitionVersion coresarg = - GreengrassCoreDefinitionCoreDefinitionVersion - { _greengrassCoreDefinitionCoreDefinitionVersionCores = coresarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-coredefinition-coredefinitionversion.html#cfn-greengrass-coredefinition-coredefinitionversion-cores -gcdcdvCores :: Lens' GreengrassCoreDefinitionCoreDefinitionVersion [GreengrassCoreDefinitionCore] -gcdcdvCores = lens _greengrassCoreDefinitionCoreDefinitionVersionCores (\s a -> s { _greengrassCoreDefinitionCoreDefinitionVersionCores = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassCoreDefinitionVersionCore.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassCoreDefinitionVersionCore.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassCoreDefinitionVersionCore.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-coredefinitionversion-core.html - -module Stratosphere.ResourceProperties.GreengrassCoreDefinitionVersionCore where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GreengrassCoreDefinitionVersionCore. See --- 'greengrassCoreDefinitionVersionCore' for a more convenient constructor. -data GreengrassCoreDefinitionVersionCore = - GreengrassCoreDefinitionVersionCore - { _greengrassCoreDefinitionVersionCoreCertificateArn :: Val Text - , _greengrassCoreDefinitionVersionCoreId :: Val Text - , _greengrassCoreDefinitionVersionCoreSyncShadow :: Maybe (Val Bool) - , _greengrassCoreDefinitionVersionCoreThingArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON GreengrassCoreDefinitionVersionCore where - toJSON GreengrassCoreDefinitionVersionCore{..} = - object $ - catMaybes - [ (Just . ("CertificateArn",) . toJSON) _greengrassCoreDefinitionVersionCoreCertificateArn - , (Just . ("Id",) . toJSON) _greengrassCoreDefinitionVersionCoreId - , fmap (("SyncShadow",) . toJSON) _greengrassCoreDefinitionVersionCoreSyncShadow - , (Just . ("ThingArn",) . toJSON) _greengrassCoreDefinitionVersionCoreThingArn - ] - --- | Constructor for 'GreengrassCoreDefinitionVersionCore' containing required --- fields as arguments. -greengrassCoreDefinitionVersionCore - :: Val Text -- ^ 'gcdvcrCertificateArn' - -> Val Text -- ^ 'gcdvcrId' - -> Val Text -- ^ 'gcdvcrThingArn' - -> GreengrassCoreDefinitionVersionCore -greengrassCoreDefinitionVersionCore certificateArnarg idarg thingArnarg = - GreengrassCoreDefinitionVersionCore - { _greengrassCoreDefinitionVersionCoreCertificateArn = certificateArnarg - , _greengrassCoreDefinitionVersionCoreId = idarg - , _greengrassCoreDefinitionVersionCoreSyncShadow = Nothing - , _greengrassCoreDefinitionVersionCoreThingArn = thingArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-coredefinitionversion-core.html#cfn-greengrass-coredefinitionversion-core-certificatearn -gcdvcrCertificateArn :: Lens' GreengrassCoreDefinitionVersionCore (Val Text) -gcdvcrCertificateArn = lens _greengrassCoreDefinitionVersionCoreCertificateArn (\s a -> s { _greengrassCoreDefinitionVersionCoreCertificateArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-coredefinitionversion-core.html#cfn-greengrass-coredefinitionversion-core-id -gcdvcrId :: Lens' GreengrassCoreDefinitionVersionCore (Val Text) -gcdvcrId = lens _greengrassCoreDefinitionVersionCoreId (\s a -> s { _greengrassCoreDefinitionVersionCoreId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-coredefinitionversion-core.html#cfn-greengrass-coredefinitionversion-core-syncshadow -gcdvcrSyncShadow :: Lens' GreengrassCoreDefinitionVersionCore (Maybe (Val Bool)) -gcdvcrSyncShadow = lens _greengrassCoreDefinitionVersionCoreSyncShadow (\s a -> s { _greengrassCoreDefinitionVersionCoreSyncShadow = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-coredefinitionversion-core.html#cfn-greengrass-coredefinitionversion-core-thingarn -gcdvcrThingArn :: Lens' GreengrassCoreDefinitionVersionCore (Val Text) -gcdvcrThingArn = lens _greengrassCoreDefinitionVersionCoreThingArn (\s a -> s { _greengrassCoreDefinitionVersionCoreThingArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassDeviceDefinitionDevice.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassDeviceDefinitionDevice.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassDeviceDefinitionDevice.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-devicedefinition-device.html - -module Stratosphere.ResourceProperties.GreengrassDeviceDefinitionDevice where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GreengrassDeviceDefinitionDevice. See --- 'greengrassDeviceDefinitionDevice' for a more convenient constructor. -data GreengrassDeviceDefinitionDevice = - GreengrassDeviceDefinitionDevice - { _greengrassDeviceDefinitionDeviceCertificateArn :: Val Text - , _greengrassDeviceDefinitionDeviceId :: Val Text - , _greengrassDeviceDefinitionDeviceSyncShadow :: Maybe (Val Bool) - , _greengrassDeviceDefinitionDeviceThingArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON GreengrassDeviceDefinitionDevice where - toJSON GreengrassDeviceDefinitionDevice{..} = - object $ - catMaybes - [ (Just . ("CertificateArn",) . toJSON) _greengrassDeviceDefinitionDeviceCertificateArn - , (Just . ("Id",) . toJSON) _greengrassDeviceDefinitionDeviceId - , fmap (("SyncShadow",) . toJSON) _greengrassDeviceDefinitionDeviceSyncShadow - , (Just . ("ThingArn",) . toJSON) _greengrassDeviceDefinitionDeviceThingArn - ] - --- | Constructor for 'GreengrassDeviceDefinitionDevice' containing required --- fields as arguments. -greengrassDeviceDefinitionDevice - :: Val Text -- ^ 'gdddCertificateArn' - -> Val Text -- ^ 'gdddId' - -> Val Text -- ^ 'gdddThingArn' - -> GreengrassDeviceDefinitionDevice -greengrassDeviceDefinitionDevice certificateArnarg idarg thingArnarg = - GreengrassDeviceDefinitionDevice - { _greengrassDeviceDefinitionDeviceCertificateArn = certificateArnarg - , _greengrassDeviceDefinitionDeviceId = idarg - , _greengrassDeviceDefinitionDeviceSyncShadow = Nothing - , _greengrassDeviceDefinitionDeviceThingArn = thingArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-devicedefinition-device.html#cfn-greengrass-devicedefinition-device-certificatearn -gdddCertificateArn :: Lens' GreengrassDeviceDefinitionDevice (Val Text) -gdddCertificateArn = lens _greengrassDeviceDefinitionDeviceCertificateArn (\s a -> s { _greengrassDeviceDefinitionDeviceCertificateArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-devicedefinition-device.html#cfn-greengrass-devicedefinition-device-id -gdddId :: Lens' GreengrassDeviceDefinitionDevice (Val Text) -gdddId = lens _greengrassDeviceDefinitionDeviceId (\s a -> s { _greengrassDeviceDefinitionDeviceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-devicedefinition-device.html#cfn-greengrass-devicedefinition-device-syncshadow -gdddSyncShadow :: Lens' GreengrassDeviceDefinitionDevice (Maybe (Val Bool)) -gdddSyncShadow = lens _greengrassDeviceDefinitionDeviceSyncShadow (\s a -> s { _greengrassDeviceDefinitionDeviceSyncShadow = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-devicedefinition-device.html#cfn-greengrass-devicedefinition-device-thingarn -gdddThingArn :: Lens' GreengrassDeviceDefinitionDevice (Val Text) -gdddThingArn = lens _greengrassDeviceDefinitionDeviceThingArn (\s a -> s { _greengrassDeviceDefinitionDeviceThingArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassDeviceDefinitionDeviceDefinitionVersion.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassDeviceDefinitionDeviceDefinitionVersion.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassDeviceDefinitionDeviceDefinitionVersion.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-devicedefinition-devicedefinitionversion.html - -module Stratosphere.ResourceProperties.GreengrassDeviceDefinitionDeviceDefinitionVersion where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassDeviceDefinitionDevice - --- | Full data type definition for --- GreengrassDeviceDefinitionDeviceDefinitionVersion. See --- 'greengrassDeviceDefinitionDeviceDefinitionVersion' for a more convenient --- constructor. -data GreengrassDeviceDefinitionDeviceDefinitionVersion = - GreengrassDeviceDefinitionDeviceDefinitionVersion - { _greengrassDeviceDefinitionDeviceDefinitionVersionDevices :: [GreengrassDeviceDefinitionDevice] - } deriving (Show, Eq) - -instance ToJSON GreengrassDeviceDefinitionDeviceDefinitionVersion where - toJSON GreengrassDeviceDefinitionDeviceDefinitionVersion{..} = - object $ - catMaybes - [ (Just . ("Devices",) . toJSON) _greengrassDeviceDefinitionDeviceDefinitionVersionDevices - ] - --- | Constructor for 'GreengrassDeviceDefinitionDeviceDefinitionVersion' --- containing required fields as arguments. -greengrassDeviceDefinitionDeviceDefinitionVersion - :: [GreengrassDeviceDefinitionDevice] -- ^ 'gddddvDevices' - -> GreengrassDeviceDefinitionDeviceDefinitionVersion -greengrassDeviceDefinitionDeviceDefinitionVersion devicesarg = - GreengrassDeviceDefinitionDeviceDefinitionVersion - { _greengrassDeviceDefinitionDeviceDefinitionVersionDevices = devicesarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-devicedefinition-devicedefinitionversion.html#cfn-greengrass-devicedefinition-devicedefinitionversion-devices -gddddvDevices :: Lens' GreengrassDeviceDefinitionDeviceDefinitionVersion [GreengrassDeviceDefinitionDevice] -gddddvDevices = lens _greengrassDeviceDefinitionDeviceDefinitionVersionDevices (\s a -> s { _greengrassDeviceDefinitionDeviceDefinitionVersionDevices = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassDeviceDefinitionVersionDevice.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassDeviceDefinitionVersionDevice.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassDeviceDefinitionVersionDevice.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-devicedefinitionversion-device.html - -module Stratosphere.ResourceProperties.GreengrassDeviceDefinitionVersionDevice where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GreengrassDeviceDefinitionVersionDevice. --- See 'greengrassDeviceDefinitionVersionDevice' for a more convenient --- constructor. -data GreengrassDeviceDefinitionVersionDevice = - GreengrassDeviceDefinitionVersionDevice - { _greengrassDeviceDefinitionVersionDeviceCertificateArn :: Val Text - , _greengrassDeviceDefinitionVersionDeviceId :: Val Text - , _greengrassDeviceDefinitionVersionDeviceSyncShadow :: Maybe (Val Bool) - , _greengrassDeviceDefinitionVersionDeviceThingArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON GreengrassDeviceDefinitionVersionDevice where - toJSON GreengrassDeviceDefinitionVersionDevice{..} = - object $ - catMaybes - [ (Just . ("CertificateArn",) . toJSON) _greengrassDeviceDefinitionVersionDeviceCertificateArn - , (Just . ("Id",) . toJSON) _greengrassDeviceDefinitionVersionDeviceId - , fmap (("SyncShadow",) . toJSON) _greengrassDeviceDefinitionVersionDeviceSyncShadow - , (Just . ("ThingArn",) . toJSON) _greengrassDeviceDefinitionVersionDeviceThingArn - ] - --- | Constructor for 'GreengrassDeviceDefinitionVersionDevice' containing --- required fields as arguments. -greengrassDeviceDefinitionVersionDevice - :: Val Text -- ^ 'gddvdCertificateArn' - -> Val Text -- ^ 'gddvdId' - -> Val Text -- ^ 'gddvdThingArn' - -> GreengrassDeviceDefinitionVersionDevice -greengrassDeviceDefinitionVersionDevice certificateArnarg idarg thingArnarg = - GreengrassDeviceDefinitionVersionDevice - { _greengrassDeviceDefinitionVersionDeviceCertificateArn = certificateArnarg - , _greengrassDeviceDefinitionVersionDeviceId = idarg - , _greengrassDeviceDefinitionVersionDeviceSyncShadow = Nothing - , _greengrassDeviceDefinitionVersionDeviceThingArn = thingArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-devicedefinitionversion-device.html#cfn-greengrass-devicedefinitionversion-device-certificatearn -gddvdCertificateArn :: Lens' GreengrassDeviceDefinitionVersionDevice (Val Text) -gddvdCertificateArn = lens _greengrassDeviceDefinitionVersionDeviceCertificateArn (\s a -> s { _greengrassDeviceDefinitionVersionDeviceCertificateArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-devicedefinitionversion-device.html#cfn-greengrass-devicedefinitionversion-device-id -gddvdId :: Lens' GreengrassDeviceDefinitionVersionDevice (Val Text) -gddvdId = lens _greengrassDeviceDefinitionVersionDeviceId (\s a -> s { _greengrassDeviceDefinitionVersionDeviceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-devicedefinitionversion-device.html#cfn-greengrass-devicedefinitionversion-device-syncshadow -gddvdSyncShadow :: Lens' GreengrassDeviceDefinitionVersionDevice (Maybe (Val Bool)) -gddvdSyncShadow = lens _greengrassDeviceDefinitionVersionDeviceSyncShadow (\s a -> s { _greengrassDeviceDefinitionVersionDeviceSyncShadow = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-devicedefinitionversion-device.html#cfn-greengrass-devicedefinitionversion-device-thingarn -gddvdThingArn :: Lens' GreengrassDeviceDefinitionVersionDevice (Val Text) -gddvdThingArn = lens _greengrassDeviceDefinitionVersionDeviceThingArn (\s a -> s { _greengrassDeviceDefinitionVersionDeviceThingArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionDefaultConfig.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionDefaultConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionDefaultConfig.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-defaultconfig.html - -module Stratosphere.ResourceProperties.GreengrassFunctionDefinitionDefaultConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionExecution - --- | Full data type definition for GreengrassFunctionDefinitionDefaultConfig. --- See 'greengrassFunctionDefinitionDefaultConfig' for a more convenient --- constructor. -data GreengrassFunctionDefinitionDefaultConfig = - GreengrassFunctionDefinitionDefaultConfig - { _greengrassFunctionDefinitionDefaultConfigExecution :: GreengrassFunctionDefinitionExecution - } deriving (Show, Eq) - -instance ToJSON GreengrassFunctionDefinitionDefaultConfig where - toJSON GreengrassFunctionDefinitionDefaultConfig{..} = - object $ - catMaybes - [ (Just . ("Execution",) . toJSON) _greengrassFunctionDefinitionDefaultConfigExecution - ] - --- | Constructor for 'GreengrassFunctionDefinitionDefaultConfig' containing --- required fields as arguments. -greengrassFunctionDefinitionDefaultConfig - :: GreengrassFunctionDefinitionExecution -- ^ 'gfddcExecution' - -> GreengrassFunctionDefinitionDefaultConfig -greengrassFunctionDefinitionDefaultConfig executionarg = - GreengrassFunctionDefinitionDefaultConfig - { _greengrassFunctionDefinitionDefaultConfigExecution = executionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-defaultconfig.html#cfn-greengrass-functiondefinition-defaultconfig-execution -gfddcExecution :: Lens' GreengrassFunctionDefinitionDefaultConfig GreengrassFunctionDefinitionExecution -gfddcExecution = lens _greengrassFunctionDefinitionDefaultConfigExecution (\s a -> s { _greengrassFunctionDefinitionDefaultConfigExecution = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionEnvironment.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionEnvironment.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionEnvironment.hs +++ /dev/null @@ -1,61 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-environment.html - -module Stratosphere.ResourceProperties.GreengrassFunctionDefinitionEnvironment where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionExecution -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionResourceAccessPolicy - --- | Full data type definition for GreengrassFunctionDefinitionEnvironment. --- See 'greengrassFunctionDefinitionEnvironment' for a more convenient --- constructor. -data GreengrassFunctionDefinitionEnvironment = - GreengrassFunctionDefinitionEnvironment - { _greengrassFunctionDefinitionEnvironmentAccessSysfs :: Maybe (Val Bool) - , _greengrassFunctionDefinitionEnvironmentExecution :: Maybe GreengrassFunctionDefinitionExecution - , _greengrassFunctionDefinitionEnvironmentResourceAccessPolicies :: Maybe [GreengrassFunctionDefinitionResourceAccessPolicy] - , _greengrassFunctionDefinitionEnvironmentVariables :: Maybe Object - } deriving (Show, Eq) - -instance ToJSON GreengrassFunctionDefinitionEnvironment where - toJSON GreengrassFunctionDefinitionEnvironment{..} = - object $ - catMaybes - [ fmap (("AccessSysfs",) . toJSON) _greengrassFunctionDefinitionEnvironmentAccessSysfs - , fmap (("Execution",) . toJSON) _greengrassFunctionDefinitionEnvironmentExecution - , fmap (("ResourceAccessPolicies",) . toJSON) _greengrassFunctionDefinitionEnvironmentResourceAccessPolicies - , fmap (("Variables",) . toJSON) _greengrassFunctionDefinitionEnvironmentVariables - ] - --- | Constructor for 'GreengrassFunctionDefinitionEnvironment' containing --- required fields as arguments. -greengrassFunctionDefinitionEnvironment - :: GreengrassFunctionDefinitionEnvironment -greengrassFunctionDefinitionEnvironment = - GreengrassFunctionDefinitionEnvironment - { _greengrassFunctionDefinitionEnvironmentAccessSysfs = Nothing - , _greengrassFunctionDefinitionEnvironmentExecution = Nothing - , _greengrassFunctionDefinitionEnvironmentResourceAccessPolicies = Nothing - , _greengrassFunctionDefinitionEnvironmentVariables = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-environment.html#cfn-greengrass-functiondefinition-environment-accesssysfs -gfdeAccessSysfs :: Lens' GreengrassFunctionDefinitionEnvironment (Maybe (Val Bool)) -gfdeAccessSysfs = lens _greengrassFunctionDefinitionEnvironmentAccessSysfs (\s a -> s { _greengrassFunctionDefinitionEnvironmentAccessSysfs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-environment.html#cfn-greengrass-functiondefinition-environment-execution -gfdeExecution :: Lens' GreengrassFunctionDefinitionEnvironment (Maybe GreengrassFunctionDefinitionExecution) -gfdeExecution = lens _greengrassFunctionDefinitionEnvironmentExecution (\s a -> s { _greengrassFunctionDefinitionEnvironmentExecution = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-environment.html#cfn-greengrass-functiondefinition-environment-resourceaccesspolicies -gfdeResourceAccessPolicies :: Lens' GreengrassFunctionDefinitionEnvironment (Maybe [GreengrassFunctionDefinitionResourceAccessPolicy]) -gfdeResourceAccessPolicies = lens _greengrassFunctionDefinitionEnvironmentResourceAccessPolicies (\s a -> s { _greengrassFunctionDefinitionEnvironmentResourceAccessPolicies = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-environment.html#cfn-greengrass-functiondefinition-environment-variables -gfdeVariables :: Lens' GreengrassFunctionDefinitionEnvironment (Maybe Object) -gfdeVariables = lens _greengrassFunctionDefinitionEnvironmentVariables (\s a -> s { _greengrassFunctionDefinitionEnvironmentVariables = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionExecution.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionExecution.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionExecution.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-execution.html - -module Stratosphere.ResourceProperties.GreengrassFunctionDefinitionExecution where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionRunAs - --- | Full data type definition for GreengrassFunctionDefinitionExecution. See --- 'greengrassFunctionDefinitionExecution' for a more convenient --- constructor. -data GreengrassFunctionDefinitionExecution = - GreengrassFunctionDefinitionExecution - { _greengrassFunctionDefinitionExecutionIsolationMode :: Maybe (Val Text) - , _greengrassFunctionDefinitionExecutionRunAs :: Maybe GreengrassFunctionDefinitionRunAs - } deriving (Show, Eq) - -instance ToJSON GreengrassFunctionDefinitionExecution where - toJSON GreengrassFunctionDefinitionExecution{..} = - object $ - catMaybes - [ fmap (("IsolationMode",) . toJSON) _greengrassFunctionDefinitionExecutionIsolationMode - , fmap (("RunAs",) . toJSON) _greengrassFunctionDefinitionExecutionRunAs - ] - --- | Constructor for 'GreengrassFunctionDefinitionExecution' containing --- required fields as arguments. -greengrassFunctionDefinitionExecution - :: GreengrassFunctionDefinitionExecution -greengrassFunctionDefinitionExecution = - GreengrassFunctionDefinitionExecution - { _greengrassFunctionDefinitionExecutionIsolationMode = Nothing - , _greengrassFunctionDefinitionExecutionRunAs = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-execution.html#cfn-greengrass-functiondefinition-execution-isolationmode -gfdeIsolationMode :: Lens' GreengrassFunctionDefinitionExecution (Maybe (Val Text)) -gfdeIsolationMode = lens _greengrassFunctionDefinitionExecutionIsolationMode (\s a -> s { _greengrassFunctionDefinitionExecutionIsolationMode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-execution.html#cfn-greengrass-functiondefinition-execution-runas -gfdeRunAs :: Lens' GreengrassFunctionDefinitionExecution (Maybe GreengrassFunctionDefinitionRunAs) -gfdeRunAs = lens _greengrassFunctionDefinitionExecutionRunAs (\s a -> s { _greengrassFunctionDefinitionExecutionRunAs = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionFunction.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionFunction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionFunction.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-function.html - -module Stratosphere.ResourceProperties.GreengrassFunctionDefinitionFunction where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionFunctionConfiguration - --- | Full data type definition for GreengrassFunctionDefinitionFunction. See --- 'greengrassFunctionDefinitionFunction' for a more convenient constructor. -data GreengrassFunctionDefinitionFunction = - GreengrassFunctionDefinitionFunction - { _greengrassFunctionDefinitionFunctionFunctionArn :: Val Text - , _greengrassFunctionDefinitionFunctionFunctionConfiguration :: GreengrassFunctionDefinitionFunctionConfiguration - , _greengrassFunctionDefinitionFunctionId :: Val Text - } deriving (Show, Eq) - -instance ToJSON GreengrassFunctionDefinitionFunction where - toJSON GreengrassFunctionDefinitionFunction{..} = - object $ - catMaybes - [ (Just . ("FunctionArn",) . toJSON) _greengrassFunctionDefinitionFunctionFunctionArn - , (Just . ("FunctionConfiguration",) . toJSON) _greengrassFunctionDefinitionFunctionFunctionConfiguration - , (Just . ("Id",) . toJSON) _greengrassFunctionDefinitionFunctionId - ] - --- | Constructor for 'GreengrassFunctionDefinitionFunction' containing --- required fields as arguments. -greengrassFunctionDefinitionFunction - :: Val Text -- ^ 'gfdfFunctionArn' - -> GreengrassFunctionDefinitionFunctionConfiguration -- ^ 'gfdfFunctionConfiguration' - -> Val Text -- ^ 'gfdfId' - -> GreengrassFunctionDefinitionFunction -greengrassFunctionDefinitionFunction functionArnarg functionConfigurationarg idarg = - GreengrassFunctionDefinitionFunction - { _greengrassFunctionDefinitionFunctionFunctionArn = functionArnarg - , _greengrassFunctionDefinitionFunctionFunctionConfiguration = functionConfigurationarg - , _greengrassFunctionDefinitionFunctionId = idarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-function.html#cfn-greengrass-functiondefinition-function-functionarn -gfdfFunctionArn :: Lens' GreengrassFunctionDefinitionFunction (Val Text) -gfdfFunctionArn = lens _greengrassFunctionDefinitionFunctionFunctionArn (\s a -> s { _greengrassFunctionDefinitionFunctionFunctionArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-function.html#cfn-greengrass-functiondefinition-function-functionconfiguration -gfdfFunctionConfiguration :: Lens' GreengrassFunctionDefinitionFunction GreengrassFunctionDefinitionFunctionConfiguration -gfdfFunctionConfiguration = lens _greengrassFunctionDefinitionFunctionFunctionConfiguration (\s a -> s { _greengrassFunctionDefinitionFunctionFunctionConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-function.html#cfn-greengrass-functiondefinition-function-id -gfdfId :: Lens' GreengrassFunctionDefinitionFunction (Val Text) -gfdfId = lens _greengrassFunctionDefinitionFunctionId (\s a -> s { _greengrassFunctionDefinitionFunctionId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionFunctionConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionFunctionConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionFunctionConfiguration.hs +++ /dev/null @@ -1,82 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-functionconfiguration.html - -module Stratosphere.ResourceProperties.GreengrassFunctionDefinitionFunctionConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionEnvironment - --- | Full data type definition for --- GreengrassFunctionDefinitionFunctionConfiguration. See --- 'greengrassFunctionDefinitionFunctionConfiguration' for a more convenient --- constructor. -data GreengrassFunctionDefinitionFunctionConfiguration = - GreengrassFunctionDefinitionFunctionConfiguration - { _greengrassFunctionDefinitionFunctionConfigurationEncodingType :: Maybe (Val Text) - , _greengrassFunctionDefinitionFunctionConfigurationEnvironment :: Maybe GreengrassFunctionDefinitionEnvironment - , _greengrassFunctionDefinitionFunctionConfigurationExecArgs :: Maybe (Val Text) - , _greengrassFunctionDefinitionFunctionConfigurationExecutable :: Maybe (Val Text) - , _greengrassFunctionDefinitionFunctionConfigurationMemorySize :: Maybe (Val Integer) - , _greengrassFunctionDefinitionFunctionConfigurationPinned :: Maybe (Val Bool) - , _greengrassFunctionDefinitionFunctionConfigurationTimeout :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON GreengrassFunctionDefinitionFunctionConfiguration where - toJSON GreengrassFunctionDefinitionFunctionConfiguration{..} = - object $ - catMaybes - [ fmap (("EncodingType",) . toJSON) _greengrassFunctionDefinitionFunctionConfigurationEncodingType - , fmap (("Environment",) . toJSON) _greengrassFunctionDefinitionFunctionConfigurationEnvironment - , fmap (("ExecArgs",) . toJSON) _greengrassFunctionDefinitionFunctionConfigurationExecArgs - , fmap (("Executable",) . toJSON) _greengrassFunctionDefinitionFunctionConfigurationExecutable - , fmap (("MemorySize",) . toJSON) _greengrassFunctionDefinitionFunctionConfigurationMemorySize - , fmap (("Pinned",) . toJSON) _greengrassFunctionDefinitionFunctionConfigurationPinned - , fmap (("Timeout",) . toJSON) _greengrassFunctionDefinitionFunctionConfigurationTimeout - ] - --- | Constructor for 'GreengrassFunctionDefinitionFunctionConfiguration' --- containing required fields as arguments. -greengrassFunctionDefinitionFunctionConfiguration - :: GreengrassFunctionDefinitionFunctionConfiguration -greengrassFunctionDefinitionFunctionConfiguration = - GreengrassFunctionDefinitionFunctionConfiguration - { _greengrassFunctionDefinitionFunctionConfigurationEncodingType = Nothing - , _greengrassFunctionDefinitionFunctionConfigurationEnvironment = Nothing - , _greengrassFunctionDefinitionFunctionConfigurationExecArgs = Nothing - , _greengrassFunctionDefinitionFunctionConfigurationExecutable = Nothing - , _greengrassFunctionDefinitionFunctionConfigurationMemorySize = Nothing - , _greengrassFunctionDefinitionFunctionConfigurationPinned = Nothing - , _greengrassFunctionDefinitionFunctionConfigurationTimeout = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-functionconfiguration.html#cfn-greengrass-functiondefinition-functionconfiguration-encodingtype -gfdfcEncodingType :: Lens' GreengrassFunctionDefinitionFunctionConfiguration (Maybe (Val Text)) -gfdfcEncodingType = lens _greengrassFunctionDefinitionFunctionConfigurationEncodingType (\s a -> s { _greengrassFunctionDefinitionFunctionConfigurationEncodingType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-functionconfiguration.html#cfn-greengrass-functiondefinition-functionconfiguration-environment -gfdfcEnvironment :: Lens' GreengrassFunctionDefinitionFunctionConfiguration (Maybe GreengrassFunctionDefinitionEnvironment) -gfdfcEnvironment = lens _greengrassFunctionDefinitionFunctionConfigurationEnvironment (\s a -> s { _greengrassFunctionDefinitionFunctionConfigurationEnvironment = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-functionconfiguration.html#cfn-greengrass-functiondefinition-functionconfiguration-execargs -gfdfcExecArgs :: Lens' GreengrassFunctionDefinitionFunctionConfiguration (Maybe (Val Text)) -gfdfcExecArgs = lens _greengrassFunctionDefinitionFunctionConfigurationExecArgs (\s a -> s { _greengrassFunctionDefinitionFunctionConfigurationExecArgs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-functionconfiguration.html#cfn-greengrass-functiondefinition-functionconfiguration-executable -gfdfcExecutable :: Lens' GreengrassFunctionDefinitionFunctionConfiguration (Maybe (Val Text)) -gfdfcExecutable = lens _greengrassFunctionDefinitionFunctionConfigurationExecutable (\s a -> s { _greengrassFunctionDefinitionFunctionConfigurationExecutable = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-functionconfiguration.html#cfn-greengrass-functiondefinition-functionconfiguration-memorysize -gfdfcMemorySize :: Lens' GreengrassFunctionDefinitionFunctionConfiguration (Maybe (Val Integer)) -gfdfcMemorySize = lens _greengrassFunctionDefinitionFunctionConfigurationMemorySize (\s a -> s { _greengrassFunctionDefinitionFunctionConfigurationMemorySize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-functionconfiguration.html#cfn-greengrass-functiondefinition-functionconfiguration-pinned -gfdfcPinned :: Lens' GreengrassFunctionDefinitionFunctionConfiguration (Maybe (Val Bool)) -gfdfcPinned = lens _greengrassFunctionDefinitionFunctionConfigurationPinned (\s a -> s { _greengrassFunctionDefinitionFunctionConfigurationPinned = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-functionconfiguration.html#cfn-greengrass-functiondefinition-functionconfiguration-timeout -gfdfcTimeout :: Lens' GreengrassFunctionDefinitionFunctionConfiguration (Maybe (Val Integer)) -gfdfcTimeout = lens _greengrassFunctionDefinitionFunctionConfigurationTimeout (\s a -> s { _greengrassFunctionDefinitionFunctionConfigurationTimeout = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionFunctionDefinitionVersion.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionFunctionDefinitionVersion.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionFunctionDefinitionVersion.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-functiondefinitionversion.html - -module Stratosphere.ResourceProperties.GreengrassFunctionDefinitionFunctionDefinitionVersion where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionDefaultConfig -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionFunction - --- | Full data type definition for --- GreengrassFunctionDefinitionFunctionDefinitionVersion. See --- 'greengrassFunctionDefinitionFunctionDefinitionVersion' for a more --- convenient constructor. -data GreengrassFunctionDefinitionFunctionDefinitionVersion = - GreengrassFunctionDefinitionFunctionDefinitionVersion - { _greengrassFunctionDefinitionFunctionDefinitionVersionDefaultConfig :: Maybe GreengrassFunctionDefinitionDefaultConfig - , _greengrassFunctionDefinitionFunctionDefinitionVersionFunctions :: [GreengrassFunctionDefinitionFunction] - } deriving (Show, Eq) - -instance ToJSON GreengrassFunctionDefinitionFunctionDefinitionVersion where - toJSON GreengrassFunctionDefinitionFunctionDefinitionVersion{..} = - object $ - catMaybes - [ fmap (("DefaultConfig",) . toJSON) _greengrassFunctionDefinitionFunctionDefinitionVersionDefaultConfig - , (Just . ("Functions",) . toJSON) _greengrassFunctionDefinitionFunctionDefinitionVersionFunctions - ] - --- | Constructor for 'GreengrassFunctionDefinitionFunctionDefinitionVersion' --- containing required fields as arguments. -greengrassFunctionDefinitionFunctionDefinitionVersion - :: [GreengrassFunctionDefinitionFunction] -- ^ 'gfdfdvFunctions' - -> GreengrassFunctionDefinitionFunctionDefinitionVersion -greengrassFunctionDefinitionFunctionDefinitionVersion functionsarg = - GreengrassFunctionDefinitionFunctionDefinitionVersion - { _greengrassFunctionDefinitionFunctionDefinitionVersionDefaultConfig = Nothing - , _greengrassFunctionDefinitionFunctionDefinitionVersionFunctions = functionsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-functiondefinitionversion.html#cfn-greengrass-functiondefinition-functiondefinitionversion-defaultconfig -gfdfdvDefaultConfig :: Lens' GreengrassFunctionDefinitionFunctionDefinitionVersion (Maybe GreengrassFunctionDefinitionDefaultConfig) -gfdfdvDefaultConfig = lens _greengrassFunctionDefinitionFunctionDefinitionVersionDefaultConfig (\s a -> s { _greengrassFunctionDefinitionFunctionDefinitionVersionDefaultConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-functiondefinitionversion.html#cfn-greengrass-functiondefinition-functiondefinitionversion-functions -gfdfdvFunctions :: Lens' GreengrassFunctionDefinitionFunctionDefinitionVersion [GreengrassFunctionDefinitionFunction] -gfdfdvFunctions = lens _greengrassFunctionDefinitionFunctionDefinitionVersionFunctions (\s a -> s { _greengrassFunctionDefinitionFunctionDefinitionVersionFunctions = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionResourceAccessPolicy.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionResourceAccessPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionResourceAccessPolicy.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-resourceaccesspolicy.html - -module Stratosphere.ResourceProperties.GreengrassFunctionDefinitionResourceAccessPolicy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- GreengrassFunctionDefinitionResourceAccessPolicy. See --- 'greengrassFunctionDefinitionResourceAccessPolicy' for a more convenient --- constructor. -data GreengrassFunctionDefinitionResourceAccessPolicy = - GreengrassFunctionDefinitionResourceAccessPolicy - { _greengrassFunctionDefinitionResourceAccessPolicyPermission :: Maybe (Val Text) - , _greengrassFunctionDefinitionResourceAccessPolicyResourceId :: Val Text - } deriving (Show, Eq) - -instance ToJSON GreengrassFunctionDefinitionResourceAccessPolicy where - toJSON GreengrassFunctionDefinitionResourceAccessPolicy{..} = - object $ - catMaybes - [ fmap (("Permission",) . toJSON) _greengrassFunctionDefinitionResourceAccessPolicyPermission - , (Just . ("ResourceId",) . toJSON) _greengrassFunctionDefinitionResourceAccessPolicyResourceId - ] - --- | Constructor for 'GreengrassFunctionDefinitionResourceAccessPolicy' --- containing required fields as arguments. -greengrassFunctionDefinitionResourceAccessPolicy - :: Val Text -- ^ 'gfdrapResourceId' - -> GreengrassFunctionDefinitionResourceAccessPolicy -greengrassFunctionDefinitionResourceAccessPolicy resourceIdarg = - GreengrassFunctionDefinitionResourceAccessPolicy - { _greengrassFunctionDefinitionResourceAccessPolicyPermission = Nothing - , _greengrassFunctionDefinitionResourceAccessPolicyResourceId = resourceIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-resourceaccesspolicy.html#cfn-greengrass-functiondefinition-resourceaccesspolicy-permission -gfdrapPermission :: Lens' GreengrassFunctionDefinitionResourceAccessPolicy (Maybe (Val Text)) -gfdrapPermission = lens _greengrassFunctionDefinitionResourceAccessPolicyPermission (\s a -> s { _greengrassFunctionDefinitionResourceAccessPolicyPermission = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-resourceaccesspolicy.html#cfn-greengrass-functiondefinition-resourceaccesspolicy-resourceid -gfdrapResourceId :: Lens' GreengrassFunctionDefinitionResourceAccessPolicy (Val Text) -gfdrapResourceId = lens _greengrassFunctionDefinitionResourceAccessPolicyResourceId (\s a -> s { _greengrassFunctionDefinitionResourceAccessPolicyResourceId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionRunAs.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionRunAs.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionRunAs.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-runas.html - -module Stratosphere.ResourceProperties.GreengrassFunctionDefinitionRunAs where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GreengrassFunctionDefinitionRunAs. See --- 'greengrassFunctionDefinitionRunAs' for a more convenient constructor. -data GreengrassFunctionDefinitionRunAs = - GreengrassFunctionDefinitionRunAs - { _greengrassFunctionDefinitionRunAsGid :: Maybe (Val Integer) - , _greengrassFunctionDefinitionRunAsUid :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON GreengrassFunctionDefinitionRunAs where - toJSON GreengrassFunctionDefinitionRunAs{..} = - object $ - catMaybes - [ fmap (("Gid",) . toJSON) _greengrassFunctionDefinitionRunAsGid - , fmap (("Uid",) . toJSON) _greengrassFunctionDefinitionRunAsUid - ] - --- | Constructor for 'GreengrassFunctionDefinitionRunAs' containing required --- fields as arguments. -greengrassFunctionDefinitionRunAs - :: GreengrassFunctionDefinitionRunAs -greengrassFunctionDefinitionRunAs = - GreengrassFunctionDefinitionRunAs - { _greengrassFunctionDefinitionRunAsGid = Nothing - , _greengrassFunctionDefinitionRunAsUid = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-runas.html#cfn-greengrass-functiondefinition-runas-gid -gfdraGid :: Lens' GreengrassFunctionDefinitionRunAs (Maybe (Val Integer)) -gfdraGid = lens _greengrassFunctionDefinitionRunAsGid (\s a -> s { _greengrassFunctionDefinitionRunAsGid = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-runas.html#cfn-greengrass-functiondefinition-runas-uid -gfdraUid :: Lens' GreengrassFunctionDefinitionRunAs (Maybe (Val Integer)) -gfdraUid = lens _greengrassFunctionDefinitionRunAsUid (\s a -> s { _greengrassFunctionDefinitionRunAsUid = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionVersionDefaultConfig.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionVersionDefaultConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionVersionDefaultConfig.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinitionversion-defaultconfig.html - -module Stratosphere.ResourceProperties.GreengrassFunctionDefinitionVersionDefaultConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionVersionExecution - --- | Full data type definition for --- GreengrassFunctionDefinitionVersionDefaultConfig. See --- 'greengrassFunctionDefinitionVersionDefaultConfig' for a more convenient --- constructor. -data GreengrassFunctionDefinitionVersionDefaultConfig = - GreengrassFunctionDefinitionVersionDefaultConfig - { _greengrassFunctionDefinitionVersionDefaultConfigExecution :: GreengrassFunctionDefinitionVersionExecution - } deriving (Show, Eq) - -instance ToJSON GreengrassFunctionDefinitionVersionDefaultConfig where - toJSON GreengrassFunctionDefinitionVersionDefaultConfig{..} = - object $ - catMaybes - [ (Just . ("Execution",) . toJSON) _greengrassFunctionDefinitionVersionDefaultConfigExecution - ] - --- | Constructor for 'GreengrassFunctionDefinitionVersionDefaultConfig' --- containing required fields as arguments. -greengrassFunctionDefinitionVersionDefaultConfig - :: GreengrassFunctionDefinitionVersionExecution -- ^ 'gfdvdcExecution' - -> GreengrassFunctionDefinitionVersionDefaultConfig -greengrassFunctionDefinitionVersionDefaultConfig executionarg = - GreengrassFunctionDefinitionVersionDefaultConfig - { _greengrassFunctionDefinitionVersionDefaultConfigExecution = executionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinitionversion-defaultconfig.html#cfn-greengrass-functiondefinitionversion-defaultconfig-execution -gfdvdcExecution :: Lens' GreengrassFunctionDefinitionVersionDefaultConfig GreengrassFunctionDefinitionVersionExecution -gfdvdcExecution = lens _greengrassFunctionDefinitionVersionDefaultConfigExecution (\s a -> s { _greengrassFunctionDefinitionVersionDefaultConfigExecution = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionVersionEnvironment.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionVersionEnvironment.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionVersionEnvironment.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinitionversion-environment.html - -module Stratosphere.ResourceProperties.GreengrassFunctionDefinitionVersionEnvironment where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionVersionExecution -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionVersionResourceAccessPolicy - --- | Full data type definition for --- GreengrassFunctionDefinitionVersionEnvironment. See --- 'greengrassFunctionDefinitionVersionEnvironment' for a more convenient --- constructor. -data GreengrassFunctionDefinitionVersionEnvironment = - GreengrassFunctionDefinitionVersionEnvironment - { _greengrassFunctionDefinitionVersionEnvironmentAccessSysfs :: Maybe (Val Bool) - , _greengrassFunctionDefinitionVersionEnvironmentExecution :: Maybe GreengrassFunctionDefinitionVersionExecution - , _greengrassFunctionDefinitionVersionEnvironmentResourceAccessPolicies :: Maybe [GreengrassFunctionDefinitionVersionResourceAccessPolicy] - , _greengrassFunctionDefinitionVersionEnvironmentVariables :: Maybe Object - } deriving (Show, Eq) - -instance ToJSON GreengrassFunctionDefinitionVersionEnvironment where - toJSON GreengrassFunctionDefinitionVersionEnvironment{..} = - object $ - catMaybes - [ fmap (("AccessSysfs",) . toJSON) _greengrassFunctionDefinitionVersionEnvironmentAccessSysfs - , fmap (("Execution",) . toJSON) _greengrassFunctionDefinitionVersionEnvironmentExecution - , fmap (("ResourceAccessPolicies",) . toJSON) _greengrassFunctionDefinitionVersionEnvironmentResourceAccessPolicies - , fmap (("Variables",) . toJSON) _greengrassFunctionDefinitionVersionEnvironmentVariables - ] - --- | Constructor for 'GreengrassFunctionDefinitionVersionEnvironment' --- containing required fields as arguments. -greengrassFunctionDefinitionVersionEnvironment - :: GreengrassFunctionDefinitionVersionEnvironment -greengrassFunctionDefinitionVersionEnvironment = - GreengrassFunctionDefinitionVersionEnvironment - { _greengrassFunctionDefinitionVersionEnvironmentAccessSysfs = Nothing - , _greengrassFunctionDefinitionVersionEnvironmentExecution = Nothing - , _greengrassFunctionDefinitionVersionEnvironmentResourceAccessPolicies = Nothing - , _greengrassFunctionDefinitionVersionEnvironmentVariables = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinitionversion-environment.html#cfn-greengrass-functiondefinitionversion-environment-accesssysfs -gfdveAccessSysfs :: Lens' GreengrassFunctionDefinitionVersionEnvironment (Maybe (Val Bool)) -gfdveAccessSysfs = lens _greengrassFunctionDefinitionVersionEnvironmentAccessSysfs (\s a -> s { _greengrassFunctionDefinitionVersionEnvironmentAccessSysfs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinitionversion-environment.html#cfn-greengrass-functiondefinitionversion-environment-execution -gfdveExecution :: Lens' GreengrassFunctionDefinitionVersionEnvironment (Maybe GreengrassFunctionDefinitionVersionExecution) -gfdveExecution = lens _greengrassFunctionDefinitionVersionEnvironmentExecution (\s a -> s { _greengrassFunctionDefinitionVersionEnvironmentExecution = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinitionversion-environment.html#cfn-greengrass-functiondefinitionversion-environment-resourceaccesspolicies -gfdveResourceAccessPolicies :: Lens' GreengrassFunctionDefinitionVersionEnvironment (Maybe [GreengrassFunctionDefinitionVersionResourceAccessPolicy]) -gfdveResourceAccessPolicies = lens _greengrassFunctionDefinitionVersionEnvironmentResourceAccessPolicies (\s a -> s { _greengrassFunctionDefinitionVersionEnvironmentResourceAccessPolicies = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinitionversion-environment.html#cfn-greengrass-functiondefinitionversion-environment-variables -gfdveVariables :: Lens' GreengrassFunctionDefinitionVersionEnvironment (Maybe Object) -gfdveVariables = lens _greengrassFunctionDefinitionVersionEnvironmentVariables (\s a -> s { _greengrassFunctionDefinitionVersionEnvironmentVariables = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionVersionExecution.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionVersionExecution.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionVersionExecution.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinitionversion-execution.html - -module Stratosphere.ResourceProperties.GreengrassFunctionDefinitionVersionExecution where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionVersionRunAs - --- | Full data type definition for --- GreengrassFunctionDefinitionVersionExecution. See --- 'greengrassFunctionDefinitionVersionExecution' for a more convenient --- constructor. -data GreengrassFunctionDefinitionVersionExecution = - GreengrassFunctionDefinitionVersionExecution - { _greengrassFunctionDefinitionVersionExecutionIsolationMode :: Maybe (Val Text) - , _greengrassFunctionDefinitionVersionExecutionRunAs :: Maybe GreengrassFunctionDefinitionVersionRunAs - } deriving (Show, Eq) - -instance ToJSON GreengrassFunctionDefinitionVersionExecution where - toJSON GreengrassFunctionDefinitionVersionExecution{..} = - object $ - catMaybes - [ fmap (("IsolationMode",) . toJSON) _greengrassFunctionDefinitionVersionExecutionIsolationMode - , fmap (("RunAs",) . toJSON) _greengrassFunctionDefinitionVersionExecutionRunAs - ] - --- | Constructor for 'GreengrassFunctionDefinitionVersionExecution' containing --- required fields as arguments. -greengrassFunctionDefinitionVersionExecution - :: GreengrassFunctionDefinitionVersionExecution -greengrassFunctionDefinitionVersionExecution = - GreengrassFunctionDefinitionVersionExecution - { _greengrassFunctionDefinitionVersionExecutionIsolationMode = Nothing - , _greengrassFunctionDefinitionVersionExecutionRunAs = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinitionversion-execution.html#cfn-greengrass-functiondefinitionversion-execution-isolationmode -gfdveIsolationMode :: Lens' GreengrassFunctionDefinitionVersionExecution (Maybe (Val Text)) -gfdveIsolationMode = lens _greengrassFunctionDefinitionVersionExecutionIsolationMode (\s a -> s { _greengrassFunctionDefinitionVersionExecutionIsolationMode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinitionversion-execution.html#cfn-greengrass-functiondefinitionversion-execution-runas -gfdveRunAs :: Lens' GreengrassFunctionDefinitionVersionExecution (Maybe GreengrassFunctionDefinitionVersionRunAs) -gfdveRunAs = lens _greengrassFunctionDefinitionVersionExecutionRunAs (\s a -> s { _greengrassFunctionDefinitionVersionExecutionRunAs = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionVersionFunction.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionVersionFunction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionVersionFunction.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinitionversion-function.html - -module Stratosphere.ResourceProperties.GreengrassFunctionDefinitionVersionFunction where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionVersionFunctionConfiguration - --- | Full data type definition for --- GreengrassFunctionDefinitionVersionFunction. See --- 'greengrassFunctionDefinitionVersionFunction' for a more convenient --- constructor. -data GreengrassFunctionDefinitionVersionFunction = - GreengrassFunctionDefinitionVersionFunction - { _greengrassFunctionDefinitionVersionFunctionFunctionArn :: Val Text - , _greengrassFunctionDefinitionVersionFunctionFunctionConfiguration :: GreengrassFunctionDefinitionVersionFunctionConfiguration - , _greengrassFunctionDefinitionVersionFunctionId :: Val Text - } deriving (Show, Eq) - -instance ToJSON GreengrassFunctionDefinitionVersionFunction where - toJSON GreengrassFunctionDefinitionVersionFunction{..} = - object $ - catMaybes - [ (Just . ("FunctionArn",) . toJSON) _greengrassFunctionDefinitionVersionFunctionFunctionArn - , (Just . ("FunctionConfiguration",) . toJSON) _greengrassFunctionDefinitionVersionFunctionFunctionConfiguration - , (Just . ("Id",) . toJSON) _greengrassFunctionDefinitionVersionFunctionId - ] - --- | Constructor for 'GreengrassFunctionDefinitionVersionFunction' containing --- required fields as arguments. -greengrassFunctionDefinitionVersionFunction - :: Val Text -- ^ 'gfdvfFunctionArn' - -> GreengrassFunctionDefinitionVersionFunctionConfiguration -- ^ 'gfdvfFunctionConfiguration' - -> Val Text -- ^ 'gfdvfId' - -> GreengrassFunctionDefinitionVersionFunction -greengrassFunctionDefinitionVersionFunction functionArnarg functionConfigurationarg idarg = - GreengrassFunctionDefinitionVersionFunction - { _greengrassFunctionDefinitionVersionFunctionFunctionArn = functionArnarg - , _greengrassFunctionDefinitionVersionFunctionFunctionConfiguration = functionConfigurationarg - , _greengrassFunctionDefinitionVersionFunctionId = idarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinitionversion-function.html#cfn-greengrass-functiondefinitionversion-function-functionarn -gfdvfFunctionArn :: Lens' GreengrassFunctionDefinitionVersionFunction (Val Text) -gfdvfFunctionArn = lens _greengrassFunctionDefinitionVersionFunctionFunctionArn (\s a -> s { _greengrassFunctionDefinitionVersionFunctionFunctionArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinitionversion-function.html#cfn-greengrass-functiondefinitionversion-function-functionconfiguration -gfdvfFunctionConfiguration :: Lens' GreengrassFunctionDefinitionVersionFunction GreengrassFunctionDefinitionVersionFunctionConfiguration -gfdvfFunctionConfiguration = lens _greengrassFunctionDefinitionVersionFunctionFunctionConfiguration (\s a -> s { _greengrassFunctionDefinitionVersionFunctionFunctionConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinitionversion-function.html#cfn-greengrass-functiondefinitionversion-function-id -gfdvfId :: Lens' GreengrassFunctionDefinitionVersionFunction (Val Text) -gfdvfId = lens _greengrassFunctionDefinitionVersionFunctionId (\s a -> s { _greengrassFunctionDefinitionVersionFunctionId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionVersionFunctionConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionVersionFunctionConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionVersionFunctionConfiguration.hs +++ /dev/null @@ -1,83 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinitionversion-functionconfiguration.html - -module Stratosphere.ResourceProperties.GreengrassFunctionDefinitionVersionFunctionConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionVersionEnvironment - --- | Full data type definition for --- GreengrassFunctionDefinitionVersionFunctionConfiguration. See --- 'greengrassFunctionDefinitionVersionFunctionConfiguration' for a more --- convenient constructor. -data GreengrassFunctionDefinitionVersionFunctionConfiguration = - GreengrassFunctionDefinitionVersionFunctionConfiguration - { _greengrassFunctionDefinitionVersionFunctionConfigurationEncodingType :: Maybe (Val Text) - , _greengrassFunctionDefinitionVersionFunctionConfigurationEnvironment :: Maybe GreengrassFunctionDefinitionVersionEnvironment - , _greengrassFunctionDefinitionVersionFunctionConfigurationExecArgs :: Maybe (Val Text) - , _greengrassFunctionDefinitionVersionFunctionConfigurationExecutable :: Maybe (Val Text) - , _greengrassFunctionDefinitionVersionFunctionConfigurationMemorySize :: Maybe (Val Integer) - , _greengrassFunctionDefinitionVersionFunctionConfigurationPinned :: Maybe (Val Bool) - , _greengrassFunctionDefinitionVersionFunctionConfigurationTimeout :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON GreengrassFunctionDefinitionVersionFunctionConfiguration where - toJSON GreengrassFunctionDefinitionVersionFunctionConfiguration{..} = - object $ - catMaybes - [ fmap (("EncodingType",) . toJSON) _greengrassFunctionDefinitionVersionFunctionConfigurationEncodingType - , fmap (("Environment",) . toJSON) _greengrassFunctionDefinitionVersionFunctionConfigurationEnvironment - , fmap (("ExecArgs",) . toJSON) _greengrassFunctionDefinitionVersionFunctionConfigurationExecArgs - , fmap (("Executable",) . toJSON) _greengrassFunctionDefinitionVersionFunctionConfigurationExecutable - , fmap (("MemorySize",) . toJSON) _greengrassFunctionDefinitionVersionFunctionConfigurationMemorySize - , fmap (("Pinned",) . toJSON) _greengrassFunctionDefinitionVersionFunctionConfigurationPinned - , fmap (("Timeout",) . toJSON) _greengrassFunctionDefinitionVersionFunctionConfigurationTimeout - ] - --- | Constructor for --- 'GreengrassFunctionDefinitionVersionFunctionConfiguration' containing --- required fields as arguments. -greengrassFunctionDefinitionVersionFunctionConfiguration - :: GreengrassFunctionDefinitionVersionFunctionConfiguration -greengrassFunctionDefinitionVersionFunctionConfiguration = - GreengrassFunctionDefinitionVersionFunctionConfiguration - { _greengrassFunctionDefinitionVersionFunctionConfigurationEncodingType = Nothing - , _greengrassFunctionDefinitionVersionFunctionConfigurationEnvironment = Nothing - , _greengrassFunctionDefinitionVersionFunctionConfigurationExecArgs = Nothing - , _greengrassFunctionDefinitionVersionFunctionConfigurationExecutable = Nothing - , _greengrassFunctionDefinitionVersionFunctionConfigurationMemorySize = Nothing - , _greengrassFunctionDefinitionVersionFunctionConfigurationPinned = Nothing - , _greengrassFunctionDefinitionVersionFunctionConfigurationTimeout = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinitionversion-functionconfiguration.html#cfn-greengrass-functiondefinitionversion-functionconfiguration-encodingtype -gfdvfcEncodingType :: Lens' GreengrassFunctionDefinitionVersionFunctionConfiguration (Maybe (Val Text)) -gfdvfcEncodingType = lens _greengrassFunctionDefinitionVersionFunctionConfigurationEncodingType (\s a -> s { _greengrassFunctionDefinitionVersionFunctionConfigurationEncodingType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinitionversion-functionconfiguration.html#cfn-greengrass-functiondefinitionversion-functionconfiguration-environment -gfdvfcEnvironment :: Lens' GreengrassFunctionDefinitionVersionFunctionConfiguration (Maybe GreengrassFunctionDefinitionVersionEnvironment) -gfdvfcEnvironment = lens _greengrassFunctionDefinitionVersionFunctionConfigurationEnvironment (\s a -> s { _greengrassFunctionDefinitionVersionFunctionConfigurationEnvironment = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinitionversion-functionconfiguration.html#cfn-greengrass-functiondefinitionversion-functionconfiguration-execargs -gfdvfcExecArgs :: Lens' GreengrassFunctionDefinitionVersionFunctionConfiguration (Maybe (Val Text)) -gfdvfcExecArgs = lens _greengrassFunctionDefinitionVersionFunctionConfigurationExecArgs (\s a -> s { _greengrassFunctionDefinitionVersionFunctionConfigurationExecArgs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinitionversion-functionconfiguration.html#cfn-greengrass-functiondefinitionversion-functionconfiguration-executable -gfdvfcExecutable :: Lens' GreengrassFunctionDefinitionVersionFunctionConfiguration (Maybe (Val Text)) -gfdvfcExecutable = lens _greengrassFunctionDefinitionVersionFunctionConfigurationExecutable (\s a -> s { _greengrassFunctionDefinitionVersionFunctionConfigurationExecutable = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinitionversion-functionconfiguration.html#cfn-greengrass-functiondefinitionversion-functionconfiguration-memorysize -gfdvfcMemorySize :: Lens' GreengrassFunctionDefinitionVersionFunctionConfiguration (Maybe (Val Integer)) -gfdvfcMemorySize = lens _greengrassFunctionDefinitionVersionFunctionConfigurationMemorySize (\s a -> s { _greengrassFunctionDefinitionVersionFunctionConfigurationMemorySize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinitionversion-functionconfiguration.html#cfn-greengrass-functiondefinitionversion-functionconfiguration-pinned -gfdvfcPinned :: Lens' GreengrassFunctionDefinitionVersionFunctionConfiguration (Maybe (Val Bool)) -gfdvfcPinned = lens _greengrassFunctionDefinitionVersionFunctionConfigurationPinned (\s a -> s { _greengrassFunctionDefinitionVersionFunctionConfigurationPinned = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinitionversion-functionconfiguration.html#cfn-greengrass-functiondefinitionversion-functionconfiguration-timeout -gfdvfcTimeout :: Lens' GreengrassFunctionDefinitionVersionFunctionConfiguration (Maybe (Val Integer)) -gfdvfcTimeout = lens _greengrassFunctionDefinitionVersionFunctionConfigurationTimeout (\s a -> s { _greengrassFunctionDefinitionVersionFunctionConfigurationTimeout = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionVersionResourceAccessPolicy.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionVersionResourceAccessPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionVersionResourceAccessPolicy.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinitionversion-resourceaccesspolicy.html - -module Stratosphere.ResourceProperties.GreengrassFunctionDefinitionVersionResourceAccessPolicy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- GreengrassFunctionDefinitionVersionResourceAccessPolicy. See --- 'greengrassFunctionDefinitionVersionResourceAccessPolicy' for a more --- convenient constructor. -data GreengrassFunctionDefinitionVersionResourceAccessPolicy = - GreengrassFunctionDefinitionVersionResourceAccessPolicy - { _greengrassFunctionDefinitionVersionResourceAccessPolicyPermission :: Maybe (Val Text) - , _greengrassFunctionDefinitionVersionResourceAccessPolicyResourceId :: Val Text - } deriving (Show, Eq) - -instance ToJSON GreengrassFunctionDefinitionVersionResourceAccessPolicy where - toJSON GreengrassFunctionDefinitionVersionResourceAccessPolicy{..} = - object $ - catMaybes - [ fmap (("Permission",) . toJSON) _greengrassFunctionDefinitionVersionResourceAccessPolicyPermission - , (Just . ("ResourceId",) . toJSON) _greengrassFunctionDefinitionVersionResourceAccessPolicyResourceId - ] - --- | Constructor for 'GreengrassFunctionDefinitionVersionResourceAccessPolicy' --- containing required fields as arguments. -greengrassFunctionDefinitionVersionResourceAccessPolicy - :: Val Text -- ^ 'gfdvrapResourceId' - -> GreengrassFunctionDefinitionVersionResourceAccessPolicy -greengrassFunctionDefinitionVersionResourceAccessPolicy resourceIdarg = - GreengrassFunctionDefinitionVersionResourceAccessPolicy - { _greengrassFunctionDefinitionVersionResourceAccessPolicyPermission = Nothing - , _greengrassFunctionDefinitionVersionResourceAccessPolicyResourceId = resourceIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinitionversion-resourceaccesspolicy.html#cfn-greengrass-functiondefinitionversion-resourceaccesspolicy-permission -gfdvrapPermission :: Lens' GreengrassFunctionDefinitionVersionResourceAccessPolicy (Maybe (Val Text)) -gfdvrapPermission = lens _greengrassFunctionDefinitionVersionResourceAccessPolicyPermission (\s a -> s { _greengrassFunctionDefinitionVersionResourceAccessPolicyPermission = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinitionversion-resourceaccesspolicy.html#cfn-greengrass-functiondefinitionversion-resourceaccesspolicy-resourceid -gfdvrapResourceId :: Lens' GreengrassFunctionDefinitionVersionResourceAccessPolicy (Val Text) -gfdvrapResourceId = lens _greengrassFunctionDefinitionVersionResourceAccessPolicyResourceId (\s a -> s { _greengrassFunctionDefinitionVersionResourceAccessPolicyResourceId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionVersionRunAs.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionVersionRunAs.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionVersionRunAs.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinitionversion-runas.html - -module Stratosphere.ResourceProperties.GreengrassFunctionDefinitionVersionRunAs where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GreengrassFunctionDefinitionVersionRunAs. --- See 'greengrassFunctionDefinitionVersionRunAs' for a more convenient --- constructor. -data GreengrassFunctionDefinitionVersionRunAs = - GreengrassFunctionDefinitionVersionRunAs - { _greengrassFunctionDefinitionVersionRunAsGid :: Maybe (Val Integer) - , _greengrassFunctionDefinitionVersionRunAsUid :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON GreengrassFunctionDefinitionVersionRunAs where - toJSON GreengrassFunctionDefinitionVersionRunAs{..} = - object $ - catMaybes - [ fmap (("Gid",) . toJSON) _greengrassFunctionDefinitionVersionRunAsGid - , fmap (("Uid",) . toJSON) _greengrassFunctionDefinitionVersionRunAsUid - ] - --- | Constructor for 'GreengrassFunctionDefinitionVersionRunAs' containing --- required fields as arguments. -greengrassFunctionDefinitionVersionRunAs - :: GreengrassFunctionDefinitionVersionRunAs -greengrassFunctionDefinitionVersionRunAs = - GreengrassFunctionDefinitionVersionRunAs - { _greengrassFunctionDefinitionVersionRunAsGid = Nothing - , _greengrassFunctionDefinitionVersionRunAsUid = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinitionversion-runas.html#cfn-greengrass-functiondefinitionversion-runas-gid -gfdvraGid :: Lens' GreengrassFunctionDefinitionVersionRunAs (Maybe (Val Integer)) -gfdvraGid = lens _greengrassFunctionDefinitionVersionRunAsGid (\s a -> s { _greengrassFunctionDefinitionVersionRunAsGid = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinitionversion-runas.html#cfn-greengrass-functiondefinitionversion-runas-uid -gfdvraUid :: Lens' GreengrassFunctionDefinitionVersionRunAs (Maybe (Val Integer)) -gfdvraUid = lens _greengrassFunctionDefinitionVersionRunAsUid (\s a -> s { _greengrassFunctionDefinitionVersionRunAsUid = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassGroupGroupVersion.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassGroupGroupVersion.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassGroupGroupVersion.hs +++ /dev/null @@ -1,80 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-group-groupversion.html - -module Stratosphere.ResourceProperties.GreengrassGroupGroupVersion where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GreengrassGroupGroupVersion. See --- 'greengrassGroupGroupVersion' for a more convenient constructor. -data GreengrassGroupGroupVersion = - GreengrassGroupGroupVersion - { _greengrassGroupGroupVersionConnectorDefinitionVersionArn :: Maybe (Val Text) - , _greengrassGroupGroupVersionCoreDefinitionVersionArn :: Maybe (Val Text) - , _greengrassGroupGroupVersionDeviceDefinitionVersionArn :: Maybe (Val Text) - , _greengrassGroupGroupVersionFunctionDefinitionVersionArn :: Maybe (Val Text) - , _greengrassGroupGroupVersionLoggerDefinitionVersionArn :: Maybe (Val Text) - , _greengrassGroupGroupVersionResourceDefinitionVersionArn :: Maybe (Val Text) - , _greengrassGroupGroupVersionSubscriptionDefinitionVersionArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON GreengrassGroupGroupVersion where - toJSON GreengrassGroupGroupVersion{..} = - object $ - catMaybes - [ fmap (("ConnectorDefinitionVersionArn",) . toJSON) _greengrassGroupGroupVersionConnectorDefinitionVersionArn - , fmap (("CoreDefinitionVersionArn",) . toJSON) _greengrassGroupGroupVersionCoreDefinitionVersionArn - , fmap (("DeviceDefinitionVersionArn",) . toJSON) _greengrassGroupGroupVersionDeviceDefinitionVersionArn - , fmap (("FunctionDefinitionVersionArn",) . toJSON) _greengrassGroupGroupVersionFunctionDefinitionVersionArn - , fmap (("LoggerDefinitionVersionArn",) . toJSON) _greengrassGroupGroupVersionLoggerDefinitionVersionArn - , fmap (("ResourceDefinitionVersionArn",) . toJSON) _greengrassGroupGroupVersionResourceDefinitionVersionArn - , fmap (("SubscriptionDefinitionVersionArn",) . toJSON) _greengrassGroupGroupVersionSubscriptionDefinitionVersionArn - ] - --- | Constructor for 'GreengrassGroupGroupVersion' containing required fields --- as arguments. -greengrassGroupGroupVersion - :: GreengrassGroupGroupVersion -greengrassGroupGroupVersion = - GreengrassGroupGroupVersion - { _greengrassGroupGroupVersionConnectorDefinitionVersionArn = Nothing - , _greengrassGroupGroupVersionCoreDefinitionVersionArn = Nothing - , _greengrassGroupGroupVersionDeviceDefinitionVersionArn = Nothing - , _greengrassGroupGroupVersionFunctionDefinitionVersionArn = Nothing - , _greengrassGroupGroupVersionLoggerDefinitionVersionArn = Nothing - , _greengrassGroupGroupVersionResourceDefinitionVersionArn = Nothing - , _greengrassGroupGroupVersionSubscriptionDefinitionVersionArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-group-groupversion.html#cfn-greengrass-group-groupversion-connectordefinitionversionarn -gggvConnectorDefinitionVersionArn :: Lens' GreengrassGroupGroupVersion (Maybe (Val Text)) -gggvConnectorDefinitionVersionArn = lens _greengrassGroupGroupVersionConnectorDefinitionVersionArn (\s a -> s { _greengrassGroupGroupVersionConnectorDefinitionVersionArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-group-groupversion.html#cfn-greengrass-group-groupversion-coredefinitionversionarn -gggvCoreDefinitionVersionArn :: Lens' GreengrassGroupGroupVersion (Maybe (Val Text)) -gggvCoreDefinitionVersionArn = lens _greengrassGroupGroupVersionCoreDefinitionVersionArn (\s a -> s { _greengrassGroupGroupVersionCoreDefinitionVersionArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-group-groupversion.html#cfn-greengrass-group-groupversion-devicedefinitionversionarn -gggvDeviceDefinitionVersionArn :: Lens' GreengrassGroupGroupVersion (Maybe (Val Text)) -gggvDeviceDefinitionVersionArn = lens _greengrassGroupGroupVersionDeviceDefinitionVersionArn (\s a -> s { _greengrassGroupGroupVersionDeviceDefinitionVersionArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-group-groupversion.html#cfn-greengrass-group-groupversion-functiondefinitionversionarn -gggvFunctionDefinitionVersionArn :: Lens' GreengrassGroupGroupVersion (Maybe (Val Text)) -gggvFunctionDefinitionVersionArn = lens _greengrassGroupGroupVersionFunctionDefinitionVersionArn (\s a -> s { _greengrassGroupGroupVersionFunctionDefinitionVersionArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-group-groupversion.html#cfn-greengrass-group-groupversion-loggerdefinitionversionarn -gggvLoggerDefinitionVersionArn :: Lens' GreengrassGroupGroupVersion (Maybe (Val Text)) -gggvLoggerDefinitionVersionArn = lens _greengrassGroupGroupVersionLoggerDefinitionVersionArn (\s a -> s { _greengrassGroupGroupVersionLoggerDefinitionVersionArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-group-groupversion.html#cfn-greengrass-group-groupversion-resourcedefinitionversionarn -gggvResourceDefinitionVersionArn :: Lens' GreengrassGroupGroupVersion (Maybe (Val Text)) -gggvResourceDefinitionVersionArn = lens _greengrassGroupGroupVersionResourceDefinitionVersionArn (\s a -> s { _greengrassGroupGroupVersionResourceDefinitionVersionArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-group-groupversion.html#cfn-greengrass-group-groupversion-subscriptiondefinitionversionarn -gggvSubscriptionDefinitionVersionArn :: Lens' GreengrassGroupGroupVersion (Maybe (Val Text)) -gggvSubscriptionDefinitionVersionArn = lens _greengrassGroupGroupVersionSubscriptionDefinitionVersionArn (\s a -> s { _greengrassGroupGroupVersionSubscriptionDefinitionVersionArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassLoggerDefinitionLogger.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassLoggerDefinitionLogger.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassLoggerDefinitionLogger.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-loggerdefinition-logger.html - -module Stratosphere.ResourceProperties.GreengrassLoggerDefinitionLogger where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GreengrassLoggerDefinitionLogger. See --- 'greengrassLoggerDefinitionLogger' for a more convenient constructor. -data GreengrassLoggerDefinitionLogger = - GreengrassLoggerDefinitionLogger - { _greengrassLoggerDefinitionLoggerComponent :: Val Text - , _greengrassLoggerDefinitionLoggerId :: Val Text - , _greengrassLoggerDefinitionLoggerLevel :: Val Text - , _greengrassLoggerDefinitionLoggerSpace :: Maybe (Val Integer) - , _greengrassLoggerDefinitionLoggerType :: Val Text - } deriving (Show, Eq) - -instance ToJSON GreengrassLoggerDefinitionLogger where - toJSON GreengrassLoggerDefinitionLogger{..} = - object $ - catMaybes - [ (Just . ("Component",) . toJSON) _greengrassLoggerDefinitionLoggerComponent - , (Just . ("Id",) . toJSON) _greengrassLoggerDefinitionLoggerId - , (Just . ("Level",) . toJSON) _greengrassLoggerDefinitionLoggerLevel - , fmap (("Space",) . toJSON) _greengrassLoggerDefinitionLoggerSpace - , (Just . ("Type",) . toJSON) _greengrassLoggerDefinitionLoggerType - ] - --- | Constructor for 'GreengrassLoggerDefinitionLogger' containing required --- fields as arguments. -greengrassLoggerDefinitionLogger - :: Val Text -- ^ 'gldlComponent' - -> Val Text -- ^ 'gldlId' - -> Val Text -- ^ 'gldlLevel' - -> Val Text -- ^ 'gldlType' - -> GreengrassLoggerDefinitionLogger -greengrassLoggerDefinitionLogger componentarg idarg levelarg typearg = - GreengrassLoggerDefinitionLogger - { _greengrassLoggerDefinitionLoggerComponent = componentarg - , _greengrassLoggerDefinitionLoggerId = idarg - , _greengrassLoggerDefinitionLoggerLevel = levelarg - , _greengrassLoggerDefinitionLoggerSpace = Nothing - , _greengrassLoggerDefinitionLoggerType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-loggerdefinition-logger.html#cfn-greengrass-loggerdefinition-logger-component -gldlComponent :: Lens' GreengrassLoggerDefinitionLogger (Val Text) -gldlComponent = lens _greengrassLoggerDefinitionLoggerComponent (\s a -> s { _greengrassLoggerDefinitionLoggerComponent = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-loggerdefinition-logger.html#cfn-greengrass-loggerdefinition-logger-id -gldlId :: Lens' GreengrassLoggerDefinitionLogger (Val Text) -gldlId = lens _greengrassLoggerDefinitionLoggerId (\s a -> s { _greengrassLoggerDefinitionLoggerId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-loggerdefinition-logger.html#cfn-greengrass-loggerdefinition-logger-level -gldlLevel :: Lens' GreengrassLoggerDefinitionLogger (Val Text) -gldlLevel = lens _greengrassLoggerDefinitionLoggerLevel (\s a -> s { _greengrassLoggerDefinitionLoggerLevel = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-loggerdefinition-logger.html#cfn-greengrass-loggerdefinition-logger-space -gldlSpace :: Lens' GreengrassLoggerDefinitionLogger (Maybe (Val Integer)) -gldlSpace = lens _greengrassLoggerDefinitionLoggerSpace (\s a -> s { _greengrassLoggerDefinitionLoggerSpace = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-loggerdefinition-logger.html#cfn-greengrass-loggerdefinition-logger-type -gldlType :: Lens' GreengrassLoggerDefinitionLogger (Val Text) -gldlType = lens _greengrassLoggerDefinitionLoggerType (\s a -> s { _greengrassLoggerDefinitionLoggerType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassLoggerDefinitionLoggerDefinitionVersion.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassLoggerDefinitionLoggerDefinitionVersion.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassLoggerDefinitionLoggerDefinitionVersion.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-loggerdefinition-loggerdefinitionversion.html - -module Stratosphere.ResourceProperties.GreengrassLoggerDefinitionLoggerDefinitionVersion where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassLoggerDefinitionLogger - --- | Full data type definition for --- GreengrassLoggerDefinitionLoggerDefinitionVersion. See --- 'greengrassLoggerDefinitionLoggerDefinitionVersion' for a more convenient --- constructor. -data GreengrassLoggerDefinitionLoggerDefinitionVersion = - GreengrassLoggerDefinitionLoggerDefinitionVersion - { _greengrassLoggerDefinitionLoggerDefinitionVersionLoggers :: [GreengrassLoggerDefinitionLogger] - } deriving (Show, Eq) - -instance ToJSON GreengrassLoggerDefinitionLoggerDefinitionVersion where - toJSON GreengrassLoggerDefinitionLoggerDefinitionVersion{..} = - object $ - catMaybes - [ (Just . ("Loggers",) . toJSON) _greengrassLoggerDefinitionLoggerDefinitionVersionLoggers - ] - --- | Constructor for 'GreengrassLoggerDefinitionLoggerDefinitionVersion' --- containing required fields as arguments. -greengrassLoggerDefinitionLoggerDefinitionVersion - :: [GreengrassLoggerDefinitionLogger] -- ^ 'gldldvLoggers' - -> GreengrassLoggerDefinitionLoggerDefinitionVersion -greengrassLoggerDefinitionLoggerDefinitionVersion loggersarg = - GreengrassLoggerDefinitionLoggerDefinitionVersion - { _greengrassLoggerDefinitionLoggerDefinitionVersionLoggers = loggersarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-loggerdefinition-loggerdefinitionversion.html#cfn-greengrass-loggerdefinition-loggerdefinitionversion-loggers -gldldvLoggers :: Lens' GreengrassLoggerDefinitionLoggerDefinitionVersion [GreengrassLoggerDefinitionLogger] -gldldvLoggers = lens _greengrassLoggerDefinitionLoggerDefinitionVersionLoggers (\s a -> s { _greengrassLoggerDefinitionLoggerDefinitionVersionLoggers = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassLoggerDefinitionVersionLogger.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassLoggerDefinitionVersionLogger.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassLoggerDefinitionVersionLogger.hs +++ /dev/null @@ -1,71 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-loggerdefinitionversion-logger.html - -module Stratosphere.ResourceProperties.GreengrassLoggerDefinitionVersionLogger where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GreengrassLoggerDefinitionVersionLogger. --- See 'greengrassLoggerDefinitionVersionLogger' for a more convenient --- constructor. -data GreengrassLoggerDefinitionVersionLogger = - GreengrassLoggerDefinitionVersionLogger - { _greengrassLoggerDefinitionVersionLoggerComponent :: Val Text - , _greengrassLoggerDefinitionVersionLoggerId :: Val Text - , _greengrassLoggerDefinitionVersionLoggerLevel :: Val Text - , _greengrassLoggerDefinitionVersionLoggerSpace :: Maybe (Val Integer) - , _greengrassLoggerDefinitionVersionLoggerType :: Val Text - } deriving (Show, Eq) - -instance ToJSON GreengrassLoggerDefinitionVersionLogger where - toJSON GreengrassLoggerDefinitionVersionLogger{..} = - object $ - catMaybes - [ (Just . ("Component",) . toJSON) _greengrassLoggerDefinitionVersionLoggerComponent - , (Just . ("Id",) . toJSON) _greengrassLoggerDefinitionVersionLoggerId - , (Just . ("Level",) . toJSON) _greengrassLoggerDefinitionVersionLoggerLevel - , fmap (("Space",) . toJSON) _greengrassLoggerDefinitionVersionLoggerSpace - , (Just . ("Type",) . toJSON) _greengrassLoggerDefinitionVersionLoggerType - ] - --- | Constructor for 'GreengrassLoggerDefinitionVersionLogger' containing --- required fields as arguments. -greengrassLoggerDefinitionVersionLogger - :: Val Text -- ^ 'gldvlComponent' - -> Val Text -- ^ 'gldvlId' - -> Val Text -- ^ 'gldvlLevel' - -> Val Text -- ^ 'gldvlType' - -> GreengrassLoggerDefinitionVersionLogger -greengrassLoggerDefinitionVersionLogger componentarg idarg levelarg typearg = - GreengrassLoggerDefinitionVersionLogger - { _greengrassLoggerDefinitionVersionLoggerComponent = componentarg - , _greengrassLoggerDefinitionVersionLoggerId = idarg - , _greengrassLoggerDefinitionVersionLoggerLevel = levelarg - , _greengrassLoggerDefinitionVersionLoggerSpace = Nothing - , _greengrassLoggerDefinitionVersionLoggerType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-loggerdefinitionversion-logger.html#cfn-greengrass-loggerdefinitionversion-logger-component -gldvlComponent :: Lens' GreengrassLoggerDefinitionVersionLogger (Val Text) -gldvlComponent = lens _greengrassLoggerDefinitionVersionLoggerComponent (\s a -> s { _greengrassLoggerDefinitionVersionLoggerComponent = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-loggerdefinitionversion-logger.html#cfn-greengrass-loggerdefinitionversion-logger-id -gldvlId :: Lens' GreengrassLoggerDefinitionVersionLogger (Val Text) -gldvlId = lens _greengrassLoggerDefinitionVersionLoggerId (\s a -> s { _greengrassLoggerDefinitionVersionLoggerId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-loggerdefinitionversion-logger.html#cfn-greengrass-loggerdefinitionversion-logger-level -gldvlLevel :: Lens' GreengrassLoggerDefinitionVersionLogger (Val Text) -gldvlLevel = lens _greengrassLoggerDefinitionVersionLoggerLevel (\s a -> s { _greengrassLoggerDefinitionVersionLoggerLevel = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-loggerdefinitionversion-logger.html#cfn-greengrass-loggerdefinitionversion-logger-space -gldvlSpace :: Lens' GreengrassLoggerDefinitionVersionLogger (Maybe (Val Integer)) -gldvlSpace = lens _greengrassLoggerDefinitionVersionLoggerSpace (\s a -> s { _greengrassLoggerDefinitionVersionLoggerSpace = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-loggerdefinitionversion-logger.html#cfn-greengrass-loggerdefinitionversion-logger-type -gldvlType :: Lens' GreengrassLoggerDefinitionVersionLogger (Val Text) -gldvlType = lens _greengrassLoggerDefinitionVersionLoggerType (\s a -> s { _greengrassLoggerDefinitionVersionLoggerType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionGroupOwnerSetting.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionGroupOwnerSetting.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionGroupOwnerSetting.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-groupownersetting.html - -module Stratosphere.ResourceProperties.GreengrassResourceDefinitionGroupOwnerSetting where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- GreengrassResourceDefinitionGroupOwnerSetting. See --- 'greengrassResourceDefinitionGroupOwnerSetting' for a more convenient --- constructor. -data GreengrassResourceDefinitionGroupOwnerSetting = - GreengrassResourceDefinitionGroupOwnerSetting - { _greengrassResourceDefinitionGroupOwnerSettingAutoAddGroupOwner :: Val Bool - , _greengrassResourceDefinitionGroupOwnerSettingGroupOwner :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON GreengrassResourceDefinitionGroupOwnerSetting where - toJSON GreengrassResourceDefinitionGroupOwnerSetting{..} = - object $ - catMaybes - [ (Just . ("AutoAddGroupOwner",) . toJSON) _greengrassResourceDefinitionGroupOwnerSettingAutoAddGroupOwner - , fmap (("GroupOwner",) . toJSON) _greengrassResourceDefinitionGroupOwnerSettingGroupOwner - ] - --- | Constructor for 'GreengrassResourceDefinitionGroupOwnerSetting' --- containing required fields as arguments. -greengrassResourceDefinitionGroupOwnerSetting - :: Val Bool -- ^ 'grdgosAutoAddGroupOwner' - -> GreengrassResourceDefinitionGroupOwnerSetting -greengrassResourceDefinitionGroupOwnerSetting autoAddGroupOwnerarg = - GreengrassResourceDefinitionGroupOwnerSetting - { _greengrassResourceDefinitionGroupOwnerSettingAutoAddGroupOwner = autoAddGroupOwnerarg - , _greengrassResourceDefinitionGroupOwnerSettingGroupOwner = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-groupownersetting.html#cfn-greengrass-resourcedefinition-groupownersetting-autoaddgroupowner -grdgosAutoAddGroupOwner :: Lens' GreengrassResourceDefinitionGroupOwnerSetting (Val Bool) -grdgosAutoAddGroupOwner = lens _greengrassResourceDefinitionGroupOwnerSettingAutoAddGroupOwner (\s a -> s { _greengrassResourceDefinitionGroupOwnerSettingAutoAddGroupOwner = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-groupownersetting.html#cfn-greengrass-resourcedefinition-groupownersetting-groupowner -grdgosGroupOwner :: Lens' GreengrassResourceDefinitionGroupOwnerSetting (Maybe (Val Text)) -grdgosGroupOwner = lens _greengrassResourceDefinitionGroupOwnerSettingGroupOwner (\s a -> s { _greengrassResourceDefinitionGroupOwnerSettingGroupOwner = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionLocalDeviceResourceData.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionLocalDeviceResourceData.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionLocalDeviceResourceData.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-localdeviceresourcedata.html - -module Stratosphere.ResourceProperties.GreengrassResourceDefinitionLocalDeviceResourceData where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionGroupOwnerSetting - --- | Full data type definition for --- GreengrassResourceDefinitionLocalDeviceResourceData. See --- 'greengrassResourceDefinitionLocalDeviceResourceData' for a more --- convenient constructor. -data GreengrassResourceDefinitionLocalDeviceResourceData = - GreengrassResourceDefinitionLocalDeviceResourceData - { _greengrassResourceDefinitionLocalDeviceResourceDataGroupOwnerSetting :: Maybe GreengrassResourceDefinitionGroupOwnerSetting - , _greengrassResourceDefinitionLocalDeviceResourceDataSourcePath :: Val Text - } deriving (Show, Eq) - -instance ToJSON GreengrassResourceDefinitionLocalDeviceResourceData where - toJSON GreengrassResourceDefinitionLocalDeviceResourceData{..} = - object $ - catMaybes - [ fmap (("GroupOwnerSetting",) . toJSON) _greengrassResourceDefinitionLocalDeviceResourceDataGroupOwnerSetting - , (Just . ("SourcePath",) . toJSON) _greengrassResourceDefinitionLocalDeviceResourceDataSourcePath - ] - --- | Constructor for 'GreengrassResourceDefinitionLocalDeviceResourceData' --- containing required fields as arguments. -greengrassResourceDefinitionLocalDeviceResourceData - :: Val Text -- ^ 'grdldrdSourcePath' - -> GreengrassResourceDefinitionLocalDeviceResourceData -greengrassResourceDefinitionLocalDeviceResourceData sourcePatharg = - GreengrassResourceDefinitionLocalDeviceResourceData - { _greengrassResourceDefinitionLocalDeviceResourceDataGroupOwnerSetting = Nothing - , _greengrassResourceDefinitionLocalDeviceResourceDataSourcePath = sourcePatharg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-localdeviceresourcedata.html#cfn-greengrass-resourcedefinition-localdeviceresourcedata-groupownersetting -grdldrdGroupOwnerSetting :: Lens' GreengrassResourceDefinitionLocalDeviceResourceData (Maybe GreengrassResourceDefinitionGroupOwnerSetting) -grdldrdGroupOwnerSetting = lens _greengrassResourceDefinitionLocalDeviceResourceDataGroupOwnerSetting (\s a -> s { _greengrassResourceDefinitionLocalDeviceResourceDataGroupOwnerSetting = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-localdeviceresourcedata.html#cfn-greengrass-resourcedefinition-localdeviceresourcedata-sourcepath -grdldrdSourcePath :: Lens' GreengrassResourceDefinitionLocalDeviceResourceData (Val Text) -grdldrdSourcePath = lens _greengrassResourceDefinitionLocalDeviceResourceDataSourcePath (\s a -> s { _greengrassResourceDefinitionLocalDeviceResourceDataSourcePath = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionLocalVolumeResourceData.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionLocalVolumeResourceData.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionLocalVolumeResourceData.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-localvolumeresourcedata.html - -module Stratosphere.ResourceProperties.GreengrassResourceDefinitionLocalVolumeResourceData where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionGroupOwnerSetting - --- | Full data type definition for --- GreengrassResourceDefinitionLocalVolumeResourceData. See --- 'greengrassResourceDefinitionLocalVolumeResourceData' for a more --- convenient constructor. -data GreengrassResourceDefinitionLocalVolumeResourceData = - GreengrassResourceDefinitionLocalVolumeResourceData - { _greengrassResourceDefinitionLocalVolumeResourceDataDestinationPath :: Val Text - , _greengrassResourceDefinitionLocalVolumeResourceDataGroupOwnerSetting :: Maybe GreengrassResourceDefinitionGroupOwnerSetting - , _greengrassResourceDefinitionLocalVolumeResourceDataSourcePath :: Val Text - } deriving (Show, Eq) - -instance ToJSON GreengrassResourceDefinitionLocalVolumeResourceData where - toJSON GreengrassResourceDefinitionLocalVolumeResourceData{..} = - object $ - catMaybes - [ (Just . ("DestinationPath",) . toJSON) _greengrassResourceDefinitionLocalVolumeResourceDataDestinationPath - , fmap (("GroupOwnerSetting",) . toJSON) _greengrassResourceDefinitionLocalVolumeResourceDataGroupOwnerSetting - , (Just . ("SourcePath",) . toJSON) _greengrassResourceDefinitionLocalVolumeResourceDataSourcePath - ] - --- | Constructor for 'GreengrassResourceDefinitionLocalVolumeResourceData' --- containing required fields as arguments. -greengrassResourceDefinitionLocalVolumeResourceData - :: Val Text -- ^ 'grdlvrdDestinationPath' - -> Val Text -- ^ 'grdlvrdSourcePath' - -> GreengrassResourceDefinitionLocalVolumeResourceData -greengrassResourceDefinitionLocalVolumeResourceData destinationPatharg sourcePatharg = - GreengrassResourceDefinitionLocalVolumeResourceData - { _greengrassResourceDefinitionLocalVolumeResourceDataDestinationPath = destinationPatharg - , _greengrassResourceDefinitionLocalVolumeResourceDataGroupOwnerSetting = Nothing - , _greengrassResourceDefinitionLocalVolumeResourceDataSourcePath = sourcePatharg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-localvolumeresourcedata.html#cfn-greengrass-resourcedefinition-localvolumeresourcedata-destinationpath -grdlvrdDestinationPath :: Lens' GreengrassResourceDefinitionLocalVolumeResourceData (Val Text) -grdlvrdDestinationPath = lens _greengrassResourceDefinitionLocalVolumeResourceDataDestinationPath (\s a -> s { _greengrassResourceDefinitionLocalVolumeResourceDataDestinationPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-localvolumeresourcedata.html#cfn-greengrass-resourcedefinition-localvolumeresourcedata-groupownersetting -grdlvrdGroupOwnerSetting :: Lens' GreengrassResourceDefinitionLocalVolumeResourceData (Maybe GreengrassResourceDefinitionGroupOwnerSetting) -grdlvrdGroupOwnerSetting = lens _greengrassResourceDefinitionLocalVolumeResourceDataGroupOwnerSetting (\s a -> s { _greengrassResourceDefinitionLocalVolumeResourceDataGroupOwnerSetting = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-localvolumeresourcedata.html#cfn-greengrass-resourcedefinition-localvolumeresourcedata-sourcepath -grdlvrdSourcePath :: Lens' GreengrassResourceDefinitionLocalVolumeResourceData (Val Text) -grdlvrdSourcePath = lens _greengrassResourceDefinitionLocalVolumeResourceDataSourcePath (\s a -> s { _greengrassResourceDefinitionLocalVolumeResourceDataSourcePath = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionResourceDataContainer.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionResourceDataContainer.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionResourceDataContainer.hs +++ /dev/null @@ -1,72 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-resourcedatacontainer.html - -module Stratosphere.ResourceProperties.GreengrassResourceDefinitionResourceDataContainer where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionLocalDeviceResourceData -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionLocalVolumeResourceData -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionS3MachineLearningModelResourceData -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionSageMakerMachineLearningModelResourceData -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionSecretsManagerSecretResourceData - --- | Full data type definition for --- GreengrassResourceDefinitionResourceDataContainer. See --- 'greengrassResourceDefinitionResourceDataContainer' for a more convenient --- constructor. -data GreengrassResourceDefinitionResourceDataContainer = - GreengrassResourceDefinitionResourceDataContainer - { _greengrassResourceDefinitionResourceDataContainerLocalDeviceResourceData :: Maybe GreengrassResourceDefinitionLocalDeviceResourceData - , _greengrassResourceDefinitionResourceDataContainerLocalVolumeResourceData :: Maybe GreengrassResourceDefinitionLocalVolumeResourceData - , _greengrassResourceDefinitionResourceDataContainerS3MachineLearningModelResourceData :: Maybe GreengrassResourceDefinitionS3MachineLearningModelResourceData - , _greengrassResourceDefinitionResourceDataContainerSageMakerMachineLearningModelResourceData :: Maybe GreengrassResourceDefinitionSageMakerMachineLearningModelResourceData - , _greengrassResourceDefinitionResourceDataContainerSecretsManagerSecretResourceData :: Maybe GreengrassResourceDefinitionSecretsManagerSecretResourceData - } deriving (Show, Eq) - -instance ToJSON GreengrassResourceDefinitionResourceDataContainer where - toJSON GreengrassResourceDefinitionResourceDataContainer{..} = - object $ - catMaybes - [ fmap (("LocalDeviceResourceData",) . toJSON) _greengrassResourceDefinitionResourceDataContainerLocalDeviceResourceData - , fmap (("LocalVolumeResourceData",) . toJSON) _greengrassResourceDefinitionResourceDataContainerLocalVolumeResourceData - , fmap (("S3MachineLearningModelResourceData",) . toJSON) _greengrassResourceDefinitionResourceDataContainerS3MachineLearningModelResourceData - , fmap (("SageMakerMachineLearningModelResourceData",) . toJSON) _greengrassResourceDefinitionResourceDataContainerSageMakerMachineLearningModelResourceData - , fmap (("SecretsManagerSecretResourceData",) . toJSON) _greengrassResourceDefinitionResourceDataContainerSecretsManagerSecretResourceData - ] - --- | Constructor for 'GreengrassResourceDefinitionResourceDataContainer' --- containing required fields as arguments. -greengrassResourceDefinitionResourceDataContainer - :: GreengrassResourceDefinitionResourceDataContainer -greengrassResourceDefinitionResourceDataContainer = - GreengrassResourceDefinitionResourceDataContainer - { _greengrassResourceDefinitionResourceDataContainerLocalDeviceResourceData = Nothing - , _greengrassResourceDefinitionResourceDataContainerLocalVolumeResourceData = Nothing - , _greengrassResourceDefinitionResourceDataContainerS3MachineLearningModelResourceData = Nothing - , _greengrassResourceDefinitionResourceDataContainerSageMakerMachineLearningModelResourceData = Nothing - , _greengrassResourceDefinitionResourceDataContainerSecretsManagerSecretResourceData = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-resourcedatacontainer.html#cfn-greengrass-resourcedefinition-resourcedatacontainer-localdeviceresourcedata -grdrdcLocalDeviceResourceData :: Lens' GreengrassResourceDefinitionResourceDataContainer (Maybe GreengrassResourceDefinitionLocalDeviceResourceData) -grdrdcLocalDeviceResourceData = lens _greengrassResourceDefinitionResourceDataContainerLocalDeviceResourceData (\s a -> s { _greengrassResourceDefinitionResourceDataContainerLocalDeviceResourceData = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-resourcedatacontainer.html#cfn-greengrass-resourcedefinition-resourcedatacontainer-localvolumeresourcedata -grdrdcLocalVolumeResourceData :: Lens' GreengrassResourceDefinitionResourceDataContainer (Maybe GreengrassResourceDefinitionLocalVolumeResourceData) -grdrdcLocalVolumeResourceData = lens _greengrassResourceDefinitionResourceDataContainerLocalVolumeResourceData (\s a -> s { _greengrassResourceDefinitionResourceDataContainerLocalVolumeResourceData = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-resourcedatacontainer.html#cfn-greengrass-resourcedefinition-resourcedatacontainer-s3machinelearningmodelresourcedata -grdrdcS3MachineLearningModelResourceData :: Lens' GreengrassResourceDefinitionResourceDataContainer (Maybe GreengrassResourceDefinitionS3MachineLearningModelResourceData) -grdrdcS3MachineLearningModelResourceData = lens _greengrassResourceDefinitionResourceDataContainerS3MachineLearningModelResourceData (\s a -> s { _greengrassResourceDefinitionResourceDataContainerS3MachineLearningModelResourceData = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-resourcedatacontainer.html#cfn-greengrass-resourcedefinition-resourcedatacontainer-sagemakermachinelearningmodelresourcedata -grdrdcSageMakerMachineLearningModelResourceData :: Lens' GreengrassResourceDefinitionResourceDataContainer (Maybe GreengrassResourceDefinitionSageMakerMachineLearningModelResourceData) -grdrdcSageMakerMachineLearningModelResourceData = lens _greengrassResourceDefinitionResourceDataContainerSageMakerMachineLearningModelResourceData (\s a -> s { _greengrassResourceDefinitionResourceDataContainerSageMakerMachineLearningModelResourceData = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-resourcedatacontainer.html#cfn-greengrass-resourcedefinition-resourcedatacontainer-secretsmanagersecretresourcedata -grdrdcSecretsManagerSecretResourceData :: Lens' GreengrassResourceDefinitionResourceDataContainer (Maybe GreengrassResourceDefinitionSecretsManagerSecretResourceData) -grdrdcSecretsManagerSecretResourceData = lens _greengrassResourceDefinitionResourceDataContainerSecretsManagerSecretResourceData (\s a -> s { _greengrassResourceDefinitionResourceDataContainerSecretsManagerSecretResourceData = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionResourceDefinitionVersion.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionResourceDefinitionVersion.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionResourceDefinitionVersion.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-resourcedefinitionversion.html - -module Stratosphere.ResourceProperties.GreengrassResourceDefinitionResourceDefinitionVersion where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionResourceInstance - --- | Full data type definition for --- GreengrassResourceDefinitionResourceDefinitionVersion. See --- 'greengrassResourceDefinitionResourceDefinitionVersion' for a more --- convenient constructor. -data GreengrassResourceDefinitionResourceDefinitionVersion = - GreengrassResourceDefinitionResourceDefinitionVersion - { _greengrassResourceDefinitionResourceDefinitionVersionResources :: [GreengrassResourceDefinitionResourceInstance] - } deriving (Show, Eq) - -instance ToJSON GreengrassResourceDefinitionResourceDefinitionVersion where - toJSON GreengrassResourceDefinitionResourceDefinitionVersion{..} = - object $ - catMaybes - [ (Just . ("Resources",) . toJSON) _greengrassResourceDefinitionResourceDefinitionVersionResources - ] - --- | Constructor for 'GreengrassResourceDefinitionResourceDefinitionVersion' --- containing required fields as arguments. -greengrassResourceDefinitionResourceDefinitionVersion - :: [GreengrassResourceDefinitionResourceInstance] -- ^ 'grdrdvResources' - -> GreengrassResourceDefinitionResourceDefinitionVersion -greengrassResourceDefinitionResourceDefinitionVersion resourcesarg = - GreengrassResourceDefinitionResourceDefinitionVersion - { _greengrassResourceDefinitionResourceDefinitionVersionResources = resourcesarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-resourcedefinitionversion.html#cfn-greengrass-resourcedefinition-resourcedefinitionversion-resources -grdrdvResources :: Lens' GreengrassResourceDefinitionResourceDefinitionVersion [GreengrassResourceDefinitionResourceInstance] -grdrdvResources = lens _greengrassResourceDefinitionResourceDefinitionVersionResources (\s a -> s { _greengrassResourceDefinitionResourceDefinitionVersionResources = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionResourceDownloadOwnerSetting.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionResourceDownloadOwnerSetting.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionResourceDownloadOwnerSetting.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-resourcedownloadownersetting.html - -module Stratosphere.ResourceProperties.GreengrassResourceDefinitionResourceDownloadOwnerSetting where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- GreengrassResourceDefinitionResourceDownloadOwnerSetting. See --- 'greengrassResourceDefinitionResourceDownloadOwnerSetting' for a more --- convenient constructor. -data GreengrassResourceDefinitionResourceDownloadOwnerSetting = - GreengrassResourceDefinitionResourceDownloadOwnerSetting - { _greengrassResourceDefinitionResourceDownloadOwnerSettingGroupOwner :: Val Text - , _greengrassResourceDefinitionResourceDownloadOwnerSettingGroupPermission :: Val Text - } deriving (Show, Eq) - -instance ToJSON GreengrassResourceDefinitionResourceDownloadOwnerSetting where - toJSON GreengrassResourceDefinitionResourceDownloadOwnerSetting{..} = - object $ - catMaybes - [ (Just . ("GroupOwner",) . toJSON) _greengrassResourceDefinitionResourceDownloadOwnerSettingGroupOwner - , (Just . ("GroupPermission",) . toJSON) _greengrassResourceDefinitionResourceDownloadOwnerSettingGroupPermission - ] - --- | Constructor for --- 'GreengrassResourceDefinitionResourceDownloadOwnerSetting' containing --- required fields as arguments. -greengrassResourceDefinitionResourceDownloadOwnerSetting - :: Val Text -- ^ 'grdrdosGroupOwner' - -> Val Text -- ^ 'grdrdosGroupPermission' - -> GreengrassResourceDefinitionResourceDownloadOwnerSetting -greengrassResourceDefinitionResourceDownloadOwnerSetting groupOwnerarg groupPermissionarg = - GreengrassResourceDefinitionResourceDownloadOwnerSetting - { _greengrassResourceDefinitionResourceDownloadOwnerSettingGroupOwner = groupOwnerarg - , _greengrassResourceDefinitionResourceDownloadOwnerSettingGroupPermission = groupPermissionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-resourcedownloadownersetting.html#cfn-greengrass-resourcedefinition-resourcedownloadownersetting-groupowner -grdrdosGroupOwner :: Lens' GreengrassResourceDefinitionResourceDownloadOwnerSetting (Val Text) -grdrdosGroupOwner = lens _greengrassResourceDefinitionResourceDownloadOwnerSettingGroupOwner (\s a -> s { _greengrassResourceDefinitionResourceDownloadOwnerSettingGroupOwner = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-resourcedownloadownersetting.html#cfn-greengrass-resourcedefinition-resourcedownloadownersetting-grouppermission -grdrdosGroupPermission :: Lens' GreengrassResourceDefinitionResourceDownloadOwnerSetting (Val Text) -grdrdosGroupPermission = lens _greengrassResourceDefinitionResourceDownloadOwnerSettingGroupPermission (\s a -> s { _greengrassResourceDefinitionResourceDownloadOwnerSettingGroupPermission = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionResourceInstance.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionResourceInstance.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionResourceInstance.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-resourceinstance.html - -module Stratosphere.ResourceProperties.GreengrassResourceDefinitionResourceInstance where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionResourceDataContainer - --- | Full data type definition for --- GreengrassResourceDefinitionResourceInstance. See --- 'greengrassResourceDefinitionResourceInstance' for a more convenient --- constructor. -data GreengrassResourceDefinitionResourceInstance = - GreengrassResourceDefinitionResourceInstance - { _greengrassResourceDefinitionResourceInstanceId :: Val Text - , _greengrassResourceDefinitionResourceInstanceName :: Val Text - , _greengrassResourceDefinitionResourceInstanceResourceDataContainer :: GreengrassResourceDefinitionResourceDataContainer - } deriving (Show, Eq) - -instance ToJSON GreengrassResourceDefinitionResourceInstance where - toJSON GreengrassResourceDefinitionResourceInstance{..} = - object $ - catMaybes - [ (Just . ("Id",) . toJSON) _greengrassResourceDefinitionResourceInstanceId - , (Just . ("Name",) . toJSON) _greengrassResourceDefinitionResourceInstanceName - , (Just . ("ResourceDataContainer",) . toJSON) _greengrassResourceDefinitionResourceInstanceResourceDataContainer - ] - --- | Constructor for 'GreengrassResourceDefinitionResourceInstance' containing --- required fields as arguments. -greengrassResourceDefinitionResourceInstance - :: Val Text -- ^ 'grdriId' - -> Val Text -- ^ 'grdriName' - -> GreengrassResourceDefinitionResourceDataContainer -- ^ 'grdriResourceDataContainer' - -> GreengrassResourceDefinitionResourceInstance -greengrassResourceDefinitionResourceInstance idarg namearg resourceDataContainerarg = - GreengrassResourceDefinitionResourceInstance - { _greengrassResourceDefinitionResourceInstanceId = idarg - , _greengrassResourceDefinitionResourceInstanceName = namearg - , _greengrassResourceDefinitionResourceInstanceResourceDataContainer = resourceDataContainerarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-resourceinstance.html#cfn-greengrass-resourcedefinition-resourceinstance-id -grdriId :: Lens' GreengrassResourceDefinitionResourceInstance (Val Text) -grdriId = lens _greengrassResourceDefinitionResourceInstanceId (\s a -> s { _greengrassResourceDefinitionResourceInstanceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-resourceinstance.html#cfn-greengrass-resourcedefinition-resourceinstance-name -grdriName :: Lens' GreengrassResourceDefinitionResourceInstance (Val Text) -grdriName = lens _greengrassResourceDefinitionResourceInstanceName (\s a -> s { _greengrassResourceDefinitionResourceInstanceName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-resourceinstance.html#cfn-greengrass-resourcedefinition-resourceinstance-resourcedatacontainer -grdriResourceDataContainer :: Lens' GreengrassResourceDefinitionResourceInstance GreengrassResourceDefinitionResourceDataContainer -grdriResourceDataContainer = lens _greengrassResourceDefinitionResourceInstanceResourceDataContainer (\s a -> s { _greengrassResourceDefinitionResourceInstanceResourceDataContainer = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionS3MachineLearningModelResourceData.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionS3MachineLearningModelResourceData.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionS3MachineLearningModelResourceData.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-s3machinelearningmodelresourcedata.html - -module Stratosphere.ResourceProperties.GreengrassResourceDefinitionS3MachineLearningModelResourceData where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionResourceDownloadOwnerSetting - --- | Full data type definition for --- GreengrassResourceDefinitionS3MachineLearningModelResourceData. See --- 'greengrassResourceDefinitionS3MachineLearningModelResourceData' for a --- more convenient constructor. -data GreengrassResourceDefinitionS3MachineLearningModelResourceData = - GreengrassResourceDefinitionS3MachineLearningModelResourceData - { _greengrassResourceDefinitionS3MachineLearningModelResourceDataDestinationPath :: Val Text - , _greengrassResourceDefinitionS3MachineLearningModelResourceDataOwnerSetting :: Maybe GreengrassResourceDefinitionResourceDownloadOwnerSetting - , _greengrassResourceDefinitionS3MachineLearningModelResourceDataS3Uri :: Val Text - } deriving (Show, Eq) - -instance ToJSON GreengrassResourceDefinitionS3MachineLearningModelResourceData where - toJSON GreengrassResourceDefinitionS3MachineLearningModelResourceData{..} = - object $ - catMaybes - [ (Just . ("DestinationPath",) . toJSON) _greengrassResourceDefinitionS3MachineLearningModelResourceDataDestinationPath - , fmap (("OwnerSetting",) . toJSON) _greengrassResourceDefinitionS3MachineLearningModelResourceDataOwnerSetting - , (Just . ("S3Uri",) . toJSON) _greengrassResourceDefinitionS3MachineLearningModelResourceDataS3Uri - ] - --- | Constructor for --- 'GreengrassResourceDefinitionS3MachineLearningModelResourceData' --- containing required fields as arguments. -greengrassResourceDefinitionS3MachineLearningModelResourceData - :: Val Text -- ^ 'grdsmlmrdDestinationPath' - -> Val Text -- ^ 'grdsmlmrdS3Uri' - -> GreengrassResourceDefinitionS3MachineLearningModelResourceData -greengrassResourceDefinitionS3MachineLearningModelResourceData destinationPatharg s3Uriarg = - GreengrassResourceDefinitionS3MachineLearningModelResourceData - { _greengrassResourceDefinitionS3MachineLearningModelResourceDataDestinationPath = destinationPatharg - , _greengrassResourceDefinitionS3MachineLearningModelResourceDataOwnerSetting = Nothing - , _greengrassResourceDefinitionS3MachineLearningModelResourceDataS3Uri = s3Uriarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-s3machinelearningmodelresourcedata.html#cfn-greengrass-resourcedefinition-s3machinelearningmodelresourcedata-destinationpath -grdsmlmrdDestinationPath :: Lens' GreengrassResourceDefinitionS3MachineLearningModelResourceData (Val Text) -grdsmlmrdDestinationPath = lens _greengrassResourceDefinitionS3MachineLearningModelResourceDataDestinationPath (\s a -> s { _greengrassResourceDefinitionS3MachineLearningModelResourceDataDestinationPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-s3machinelearningmodelresourcedata.html#cfn-greengrass-resourcedefinition-s3machinelearningmodelresourcedata-ownersetting -grdsmlmrdOwnerSetting :: Lens' GreengrassResourceDefinitionS3MachineLearningModelResourceData (Maybe GreengrassResourceDefinitionResourceDownloadOwnerSetting) -grdsmlmrdOwnerSetting = lens _greengrassResourceDefinitionS3MachineLearningModelResourceDataOwnerSetting (\s a -> s { _greengrassResourceDefinitionS3MachineLearningModelResourceDataOwnerSetting = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-s3machinelearningmodelresourcedata.html#cfn-greengrass-resourcedefinition-s3machinelearningmodelresourcedata-s3uri -grdsmlmrdS3Uri :: Lens' GreengrassResourceDefinitionS3MachineLearningModelResourceData (Val Text) -grdsmlmrdS3Uri = lens _greengrassResourceDefinitionS3MachineLearningModelResourceDataS3Uri (\s a -> s { _greengrassResourceDefinitionS3MachineLearningModelResourceDataS3Uri = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionSageMakerMachineLearningModelResourceData.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionSageMakerMachineLearningModelResourceData.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionSageMakerMachineLearningModelResourceData.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-sagemakermachinelearningmodelresourcedata.html - -module Stratosphere.ResourceProperties.GreengrassResourceDefinitionSageMakerMachineLearningModelResourceData where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionResourceDownloadOwnerSetting - --- | Full data type definition for --- GreengrassResourceDefinitionSageMakerMachineLearningModelResourceData. --- See --- 'greengrassResourceDefinitionSageMakerMachineLearningModelResourceData' --- for a more convenient constructor. -data GreengrassResourceDefinitionSageMakerMachineLearningModelResourceData = - GreengrassResourceDefinitionSageMakerMachineLearningModelResourceData - { _greengrassResourceDefinitionSageMakerMachineLearningModelResourceDataDestinationPath :: Val Text - , _greengrassResourceDefinitionSageMakerMachineLearningModelResourceDataOwnerSetting :: Maybe GreengrassResourceDefinitionResourceDownloadOwnerSetting - , _greengrassResourceDefinitionSageMakerMachineLearningModelResourceDataSageMakerJobArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON GreengrassResourceDefinitionSageMakerMachineLearningModelResourceData where - toJSON GreengrassResourceDefinitionSageMakerMachineLearningModelResourceData{..} = - object $ - catMaybes - [ (Just . ("DestinationPath",) . toJSON) _greengrassResourceDefinitionSageMakerMachineLearningModelResourceDataDestinationPath - , fmap (("OwnerSetting",) . toJSON) _greengrassResourceDefinitionSageMakerMachineLearningModelResourceDataOwnerSetting - , (Just . ("SageMakerJobArn",) . toJSON) _greengrassResourceDefinitionSageMakerMachineLearningModelResourceDataSageMakerJobArn - ] - --- | Constructor for --- 'GreengrassResourceDefinitionSageMakerMachineLearningModelResourceData' --- containing required fields as arguments. -greengrassResourceDefinitionSageMakerMachineLearningModelResourceData - :: Val Text -- ^ 'grdsmmlmrdDestinationPath' - -> Val Text -- ^ 'grdsmmlmrdSageMakerJobArn' - -> GreengrassResourceDefinitionSageMakerMachineLearningModelResourceData -greengrassResourceDefinitionSageMakerMachineLearningModelResourceData destinationPatharg sageMakerJobArnarg = - GreengrassResourceDefinitionSageMakerMachineLearningModelResourceData - { _greengrassResourceDefinitionSageMakerMachineLearningModelResourceDataDestinationPath = destinationPatharg - , _greengrassResourceDefinitionSageMakerMachineLearningModelResourceDataOwnerSetting = Nothing - , _greengrassResourceDefinitionSageMakerMachineLearningModelResourceDataSageMakerJobArn = sageMakerJobArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-sagemakermachinelearningmodelresourcedata.html#cfn-greengrass-resourcedefinition-sagemakermachinelearningmodelresourcedata-destinationpath -grdsmmlmrdDestinationPath :: Lens' GreengrassResourceDefinitionSageMakerMachineLearningModelResourceData (Val Text) -grdsmmlmrdDestinationPath = lens _greengrassResourceDefinitionSageMakerMachineLearningModelResourceDataDestinationPath (\s a -> s { _greengrassResourceDefinitionSageMakerMachineLearningModelResourceDataDestinationPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-sagemakermachinelearningmodelresourcedata.html#cfn-greengrass-resourcedefinition-sagemakermachinelearningmodelresourcedata-ownersetting -grdsmmlmrdOwnerSetting :: Lens' GreengrassResourceDefinitionSageMakerMachineLearningModelResourceData (Maybe GreengrassResourceDefinitionResourceDownloadOwnerSetting) -grdsmmlmrdOwnerSetting = lens _greengrassResourceDefinitionSageMakerMachineLearningModelResourceDataOwnerSetting (\s a -> s { _greengrassResourceDefinitionSageMakerMachineLearningModelResourceDataOwnerSetting = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-sagemakermachinelearningmodelresourcedata.html#cfn-greengrass-resourcedefinition-sagemakermachinelearningmodelresourcedata-sagemakerjobarn -grdsmmlmrdSageMakerJobArn :: Lens' GreengrassResourceDefinitionSageMakerMachineLearningModelResourceData (Val Text) -grdsmmlmrdSageMakerJobArn = lens _greengrassResourceDefinitionSageMakerMachineLearningModelResourceDataSageMakerJobArn (\s a -> s { _greengrassResourceDefinitionSageMakerMachineLearningModelResourceDataSageMakerJobArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionSecretsManagerSecretResourceData.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionSecretsManagerSecretResourceData.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionSecretsManagerSecretResourceData.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-secretsmanagersecretresourcedata.html - -module Stratosphere.ResourceProperties.GreengrassResourceDefinitionSecretsManagerSecretResourceData where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- GreengrassResourceDefinitionSecretsManagerSecretResourceData. See --- 'greengrassResourceDefinitionSecretsManagerSecretResourceData' for a more --- convenient constructor. -data GreengrassResourceDefinitionSecretsManagerSecretResourceData = - GreengrassResourceDefinitionSecretsManagerSecretResourceData - { _greengrassResourceDefinitionSecretsManagerSecretResourceDataARN :: Val Text - , _greengrassResourceDefinitionSecretsManagerSecretResourceDataAdditionalStagingLabelsToDownload :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON GreengrassResourceDefinitionSecretsManagerSecretResourceData where - toJSON GreengrassResourceDefinitionSecretsManagerSecretResourceData{..} = - object $ - catMaybes - [ (Just . ("ARN",) . toJSON) _greengrassResourceDefinitionSecretsManagerSecretResourceDataARN - , fmap (("AdditionalStagingLabelsToDownload",) . toJSON) _greengrassResourceDefinitionSecretsManagerSecretResourceDataAdditionalStagingLabelsToDownload - ] - --- | Constructor for --- 'GreengrassResourceDefinitionSecretsManagerSecretResourceData' containing --- required fields as arguments. -greengrassResourceDefinitionSecretsManagerSecretResourceData - :: Val Text -- ^ 'grdsmsrdARN' - -> GreengrassResourceDefinitionSecretsManagerSecretResourceData -greengrassResourceDefinitionSecretsManagerSecretResourceData aRNarg = - GreengrassResourceDefinitionSecretsManagerSecretResourceData - { _greengrassResourceDefinitionSecretsManagerSecretResourceDataARN = aRNarg - , _greengrassResourceDefinitionSecretsManagerSecretResourceDataAdditionalStagingLabelsToDownload = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-secretsmanagersecretresourcedata.html#cfn-greengrass-resourcedefinition-secretsmanagersecretresourcedata-arn -grdsmsrdARN :: Lens' GreengrassResourceDefinitionSecretsManagerSecretResourceData (Val Text) -grdsmsrdARN = lens _greengrassResourceDefinitionSecretsManagerSecretResourceDataARN (\s a -> s { _greengrassResourceDefinitionSecretsManagerSecretResourceDataARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinition-secretsmanagersecretresourcedata.html#cfn-greengrass-resourcedefinition-secretsmanagersecretresourcedata-additionalstaginglabelstodownload -grdsmsrdAdditionalStagingLabelsToDownload :: Lens' GreengrassResourceDefinitionSecretsManagerSecretResourceData (Maybe (ValList Text)) -grdsmsrdAdditionalStagingLabelsToDownload = lens _greengrassResourceDefinitionSecretsManagerSecretResourceDataAdditionalStagingLabelsToDownload (\s a -> s { _greengrassResourceDefinitionSecretsManagerSecretResourceDataAdditionalStagingLabelsToDownload = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionGroupOwnerSetting.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionGroupOwnerSetting.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionGroupOwnerSetting.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-groupownersetting.html - -module Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionGroupOwnerSetting where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- GreengrassResourceDefinitionVersionGroupOwnerSetting. See --- 'greengrassResourceDefinitionVersionGroupOwnerSetting' for a more --- convenient constructor. -data GreengrassResourceDefinitionVersionGroupOwnerSetting = - GreengrassResourceDefinitionVersionGroupOwnerSetting - { _greengrassResourceDefinitionVersionGroupOwnerSettingAutoAddGroupOwner :: Val Bool - , _greengrassResourceDefinitionVersionGroupOwnerSettingGroupOwner :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON GreengrassResourceDefinitionVersionGroupOwnerSetting where - toJSON GreengrassResourceDefinitionVersionGroupOwnerSetting{..} = - object $ - catMaybes - [ (Just . ("AutoAddGroupOwner",) . toJSON) _greengrassResourceDefinitionVersionGroupOwnerSettingAutoAddGroupOwner - , fmap (("GroupOwner",) . toJSON) _greengrassResourceDefinitionVersionGroupOwnerSettingGroupOwner - ] - --- | Constructor for 'GreengrassResourceDefinitionVersionGroupOwnerSetting' --- containing required fields as arguments. -greengrassResourceDefinitionVersionGroupOwnerSetting - :: Val Bool -- ^ 'grdvgosAutoAddGroupOwner' - -> GreengrassResourceDefinitionVersionGroupOwnerSetting -greengrassResourceDefinitionVersionGroupOwnerSetting autoAddGroupOwnerarg = - GreengrassResourceDefinitionVersionGroupOwnerSetting - { _greengrassResourceDefinitionVersionGroupOwnerSettingAutoAddGroupOwner = autoAddGroupOwnerarg - , _greengrassResourceDefinitionVersionGroupOwnerSettingGroupOwner = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-groupownersetting.html#cfn-greengrass-resourcedefinitionversion-groupownersetting-autoaddgroupowner -grdvgosAutoAddGroupOwner :: Lens' GreengrassResourceDefinitionVersionGroupOwnerSetting (Val Bool) -grdvgosAutoAddGroupOwner = lens _greengrassResourceDefinitionVersionGroupOwnerSettingAutoAddGroupOwner (\s a -> s { _greengrassResourceDefinitionVersionGroupOwnerSettingAutoAddGroupOwner = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-groupownersetting.html#cfn-greengrass-resourcedefinitionversion-groupownersetting-groupowner -grdvgosGroupOwner :: Lens' GreengrassResourceDefinitionVersionGroupOwnerSetting (Maybe (Val Text)) -grdvgosGroupOwner = lens _greengrassResourceDefinitionVersionGroupOwnerSettingGroupOwner (\s a -> s { _greengrassResourceDefinitionVersionGroupOwnerSettingGroupOwner = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionLocalDeviceResourceData.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionLocalDeviceResourceData.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionLocalDeviceResourceData.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-localdeviceresourcedata.html - -module Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionLocalDeviceResourceData where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionGroupOwnerSetting - --- | Full data type definition for --- GreengrassResourceDefinitionVersionLocalDeviceResourceData. See --- 'greengrassResourceDefinitionVersionLocalDeviceResourceData' for a more --- convenient constructor. -data GreengrassResourceDefinitionVersionLocalDeviceResourceData = - GreengrassResourceDefinitionVersionLocalDeviceResourceData - { _greengrassResourceDefinitionVersionLocalDeviceResourceDataGroupOwnerSetting :: Maybe GreengrassResourceDefinitionVersionGroupOwnerSetting - , _greengrassResourceDefinitionVersionLocalDeviceResourceDataSourcePath :: Val Text - } deriving (Show, Eq) - -instance ToJSON GreengrassResourceDefinitionVersionLocalDeviceResourceData where - toJSON GreengrassResourceDefinitionVersionLocalDeviceResourceData{..} = - object $ - catMaybes - [ fmap (("GroupOwnerSetting",) . toJSON) _greengrassResourceDefinitionVersionLocalDeviceResourceDataGroupOwnerSetting - , (Just . ("SourcePath",) . toJSON) _greengrassResourceDefinitionVersionLocalDeviceResourceDataSourcePath - ] - --- | Constructor for --- 'GreengrassResourceDefinitionVersionLocalDeviceResourceData' containing --- required fields as arguments. -greengrassResourceDefinitionVersionLocalDeviceResourceData - :: Val Text -- ^ 'grdvldrdSourcePath' - -> GreengrassResourceDefinitionVersionLocalDeviceResourceData -greengrassResourceDefinitionVersionLocalDeviceResourceData sourcePatharg = - GreengrassResourceDefinitionVersionLocalDeviceResourceData - { _greengrassResourceDefinitionVersionLocalDeviceResourceDataGroupOwnerSetting = Nothing - , _greengrassResourceDefinitionVersionLocalDeviceResourceDataSourcePath = sourcePatharg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-localdeviceresourcedata.html#cfn-greengrass-resourcedefinitionversion-localdeviceresourcedata-groupownersetting -grdvldrdGroupOwnerSetting :: Lens' GreengrassResourceDefinitionVersionLocalDeviceResourceData (Maybe GreengrassResourceDefinitionVersionGroupOwnerSetting) -grdvldrdGroupOwnerSetting = lens _greengrassResourceDefinitionVersionLocalDeviceResourceDataGroupOwnerSetting (\s a -> s { _greengrassResourceDefinitionVersionLocalDeviceResourceDataGroupOwnerSetting = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-localdeviceresourcedata.html#cfn-greengrass-resourcedefinitionversion-localdeviceresourcedata-sourcepath -grdvldrdSourcePath :: Lens' GreengrassResourceDefinitionVersionLocalDeviceResourceData (Val Text) -grdvldrdSourcePath = lens _greengrassResourceDefinitionVersionLocalDeviceResourceDataSourcePath (\s a -> s { _greengrassResourceDefinitionVersionLocalDeviceResourceDataSourcePath = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionLocalVolumeResourceData.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionLocalVolumeResourceData.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionLocalVolumeResourceData.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-localvolumeresourcedata.html - -module Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionLocalVolumeResourceData where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionGroupOwnerSetting - --- | Full data type definition for --- GreengrassResourceDefinitionVersionLocalVolumeResourceData. See --- 'greengrassResourceDefinitionVersionLocalVolumeResourceData' for a more --- convenient constructor. -data GreengrassResourceDefinitionVersionLocalVolumeResourceData = - GreengrassResourceDefinitionVersionLocalVolumeResourceData - { _greengrassResourceDefinitionVersionLocalVolumeResourceDataDestinationPath :: Val Text - , _greengrassResourceDefinitionVersionLocalVolumeResourceDataGroupOwnerSetting :: Maybe GreengrassResourceDefinitionVersionGroupOwnerSetting - , _greengrassResourceDefinitionVersionLocalVolumeResourceDataSourcePath :: Val Text - } deriving (Show, Eq) - -instance ToJSON GreengrassResourceDefinitionVersionLocalVolumeResourceData where - toJSON GreengrassResourceDefinitionVersionLocalVolumeResourceData{..} = - object $ - catMaybes - [ (Just . ("DestinationPath",) . toJSON) _greengrassResourceDefinitionVersionLocalVolumeResourceDataDestinationPath - , fmap (("GroupOwnerSetting",) . toJSON) _greengrassResourceDefinitionVersionLocalVolumeResourceDataGroupOwnerSetting - , (Just . ("SourcePath",) . toJSON) _greengrassResourceDefinitionVersionLocalVolumeResourceDataSourcePath - ] - --- | Constructor for --- 'GreengrassResourceDefinitionVersionLocalVolumeResourceData' containing --- required fields as arguments. -greengrassResourceDefinitionVersionLocalVolumeResourceData - :: Val Text -- ^ 'grdvlvrdDestinationPath' - -> Val Text -- ^ 'grdvlvrdSourcePath' - -> GreengrassResourceDefinitionVersionLocalVolumeResourceData -greengrassResourceDefinitionVersionLocalVolumeResourceData destinationPatharg sourcePatharg = - GreengrassResourceDefinitionVersionLocalVolumeResourceData - { _greengrassResourceDefinitionVersionLocalVolumeResourceDataDestinationPath = destinationPatharg - , _greengrassResourceDefinitionVersionLocalVolumeResourceDataGroupOwnerSetting = Nothing - , _greengrassResourceDefinitionVersionLocalVolumeResourceDataSourcePath = sourcePatharg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-localvolumeresourcedata.html#cfn-greengrass-resourcedefinitionversion-localvolumeresourcedata-destinationpath -grdvlvrdDestinationPath :: Lens' GreengrassResourceDefinitionVersionLocalVolumeResourceData (Val Text) -grdvlvrdDestinationPath = lens _greengrassResourceDefinitionVersionLocalVolumeResourceDataDestinationPath (\s a -> s { _greengrassResourceDefinitionVersionLocalVolumeResourceDataDestinationPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-localvolumeresourcedata.html#cfn-greengrass-resourcedefinitionversion-localvolumeresourcedata-groupownersetting -grdvlvrdGroupOwnerSetting :: Lens' GreengrassResourceDefinitionVersionLocalVolumeResourceData (Maybe GreengrassResourceDefinitionVersionGroupOwnerSetting) -grdvlvrdGroupOwnerSetting = lens _greengrassResourceDefinitionVersionLocalVolumeResourceDataGroupOwnerSetting (\s a -> s { _greengrassResourceDefinitionVersionLocalVolumeResourceDataGroupOwnerSetting = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-localvolumeresourcedata.html#cfn-greengrass-resourcedefinitionversion-localvolumeresourcedata-sourcepath -grdvlvrdSourcePath :: Lens' GreengrassResourceDefinitionVersionLocalVolumeResourceData (Val Text) -grdvlvrdSourcePath = lens _greengrassResourceDefinitionVersionLocalVolumeResourceDataSourcePath (\s a -> s { _greengrassResourceDefinitionVersionLocalVolumeResourceDataSourcePath = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionResourceDataContainer.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionResourceDataContainer.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionResourceDataContainer.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-resourcedatacontainer.html - -module Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionResourceDataContainer where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionLocalDeviceResourceData -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionLocalVolumeResourceData -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionS3MachineLearningModelResourceData -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceData -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionSecretsManagerSecretResourceData - --- | Full data type definition for --- GreengrassResourceDefinitionVersionResourceDataContainer. See --- 'greengrassResourceDefinitionVersionResourceDataContainer' for a more --- convenient constructor. -data GreengrassResourceDefinitionVersionResourceDataContainer = - GreengrassResourceDefinitionVersionResourceDataContainer - { _greengrassResourceDefinitionVersionResourceDataContainerLocalDeviceResourceData :: Maybe GreengrassResourceDefinitionVersionLocalDeviceResourceData - , _greengrassResourceDefinitionVersionResourceDataContainerLocalVolumeResourceData :: Maybe GreengrassResourceDefinitionVersionLocalVolumeResourceData - , _greengrassResourceDefinitionVersionResourceDataContainerS3MachineLearningModelResourceData :: Maybe GreengrassResourceDefinitionVersionS3MachineLearningModelResourceData - , _greengrassResourceDefinitionVersionResourceDataContainerSageMakerMachineLearningModelResourceData :: Maybe GreengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceData - , _greengrassResourceDefinitionVersionResourceDataContainerSecretsManagerSecretResourceData :: Maybe GreengrassResourceDefinitionVersionSecretsManagerSecretResourceData - } deriving (Show, Eq) - -instance ToJSON GreengrassResourceDefinitionVersionResourceDataContainer where - toJSON GreengrassResourceDefinitionVersionResourceDataContainer{..} = - object $ - catMaybes - [ fmap (("LocalDeviceResourceData",) . toJSON) _greengrassResourceDefinitionVersionResourceDataContainerLocalDeviceResourceData - , fmap (("LocalVolumeResourceData",) . toJSON) _greengrassResourceDefinitionVersionResourceDataContainerLocalVolumeResourceData - , fmap (("S3MachineLearningModelResourceData",) . toJSON) _greengrassResourceDefinitionVersionResourceDataContainerS3MachineLearningModelResourceData - , fmap (("SageMakerMachineLearningModelResourceData",) . toJSON) _greengrassResourceDefinitionVersionResourceDataContainerSageMakerMachineLearningModelResourceData - , fmap (("SecretsManagerSecretResourceData",) . toJSON) _greengrassResourceDefinitionVersionResourceDataContainerSecretsManagerSecretResourceData - ] - --- | Constructor for --- 'GreengrassResourceDefinitionVersionResourceDataContainer' containing --- required fields as arguments. -greengrassResourceDefinitionVersionResourceDataContainer - :: GreengrassResourceDefinitionVersionResourceDataContainer -greengrassResourceDefinitionVersionResourceDataContainer = - GreengrassResourceDefinitionVersionResourceDataContainer - { _greengrassResourceDefinitionVersionResourceDataContainerLocalDeviceResourceData = Nothing - , _greengrassResourceDefinitionVersionResourceDataContainerLocalVolumeResourceData = Nothing - , _greengrassResourceDefinitionVersionResourceDataContainerS3MachineLearningModelResourceData = Nothing - , _greengrassResourceDefinitionVersionResourceDataContainerSageMakerMachineLearningModelResourceData = Nothing - , _greengrassResourceDefinitionVersionResourceDataContainerSecretsManagerSecretResourceData = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-resourcedatacontainer.html#cfn-greengrass-resourcedefinitionversion-resourcedatacontainer-localdeviceresourcedata -grdvrdcLocalDeviceResourceData :: Lens' GreengrassResourceDefinitionVersionResourceDataContainer (Maybe GreengrassResourceDefinitionVersionLocalDeviceResourceData) -grdvrdcLocalDeviceResourceData = lens _greengrassResourceDefinitionVersionResourceDataContainerLocalDeviceResourceData (\s a -> s { _greengrassResourceDefinitionVersionResourceDataContainerLocalDeviceResourceData = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-resourcedatacontainer.html#cfn-greengrass-resourcedefinitionversion-resourcedatacontainer-localvolumeresourcedata -grdvrdcLocalVolumeResourceData :: Lens' GreengrassResourceDefinitionVersionResourceDataContainer (Maybe GreengrassResourceDefinitionVersionLocalVolumeResourceData) -grdvrdcLocalVolumeResourceData = lens _greengrassResourceDefinitionVersionResourceDataContainerLocalVolumeResourceData (\s a -> s { _greengrassResourceDefinitionVersionResourceDataContainerLocalVolumeResourceData = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-resourcedatacontainer.html#cfn-greengrass-resourcedefinitionversion-resourcedatacontainer-s3machinelearningmodelresourcedata -grdvrdcS3MachineLearningModelResourceData :: Lens' GreengrassResourceDefinitionVersionResourceDataContainer (Maybe GreengrassResourceDefinitionVersionS3MachineLearningModelResourceData) -grdvrdcS3MachineLearningModelResourceData = lens _greengrassResourceDefinitionVersionResourceDataContainerS3MachineLearningModelResourceData (\s a -> s { _greengrassResourceDefinitionVersionResourceDataContainerS3MachineLearningModelResourceData = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-resourcedatacontainer.html#cfn-greengrass-resourcedefinitionversion-resourcedatacontainer-sagemakermachinelearningmodelresourcedata -grdvrdcSageMakerMachineLearningModelResourceData :: Lens' GreengrassResourceDefinitionVersionResourceDataContainer (Maybe GreengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceData) -grdvrdcSageMakerMachineLearningModelResourceData = lens _greengrassResourceDefinitionVersionResourceDataContainerSageMakerMachineLearningModelResourceData (\s a -> s { _greengrassResourceDefinitionVersionResourceDataContainerSageMakerMachineLearningModelResourceData = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-resourcedatacontainer.html#cfn-greengrass-resourcedefinitionversion-resourcedatacontainer-secretsmanagersecretresourcedata -grdvrdcSecretsManagerSecretResourceData :: Lens' GreengrassResourceDefinitionVersionResourceDataContainer (Maybe GreengrassResourceDefinitionVersionSecretsManagerSecretResourceData) -grdvrdcSecretsManagerSecretResourceData = lens _greengrassResourceDefinitionVersionResourceDataContainerSecretsManagerSecretResourceData (\s a -> s { _greengrassResourceDefinitionVersionResourceDataContainerSecretsManagerSecretResourceData = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionResourceDownloadOwnerSetting.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionResourceDownloadOwnerSetting.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionResourceDownloadOwnerSetting.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-resourcedownloadownersetting.html - -module Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionResourceDownloadOwnerSetting where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- GreengrassResourceDefinitionVersionResourceDownloadOwnerSetting. See --- 'greengrassResourceDefinitionVersionResourceDownloadOwnerSetting' for a --- more convenient constructor. -data GreengrassResourceDefinitionVersionResourceDownloadOwnerSetting = - GreengrassResourceDefinitionVersionResourceDownloadOwnerSetting - { _greengrassResourceDefinitionVersionResourceDownloadOwnerSettingGroupOwner :: Val Text - , _greengrassResourceDefinitionVersionResourceDownloadOwnerSettingGroupPermission :: Val Text - } deriving (Show, Eq) - -instance ToJSON GreengrassResourceDefinitionVersionResourceDownloadOwnerSetting where - toJSON GreengrassResourceDefinitionVersionResourceDownloadOwnerSetting{..} = - object $ - catMaybes - [ (Just . ("GroupOwner",) . toJSON) _greengrassResourceDefinitionVersionResourceDownloadOwnerSettingGroupOwner - , (Just . ("GroupPermission",) . toJSON) _greengrassResourceDefinitionVersionResourceDownloadOwnerSettingGroupPermission - ] - --- | Constructor for --- 'GreengrassResourceDefinitionVersionResourceDownloadOwnerSetting' --- containing required fields as arguments. -greengrassResourceDefinitionVersionResourceDownloadOwnerSetting - :: Val Text -- ^ 'grdvrdosGroupOwner' - -> Val Text -- ^ 'grdvrdosGroupPermission' - -> GreengrassResourceDefinitionVersionResourceDownloadOwnerSetting -greengrassResourceDefinitionVersionResourceDownloadOwnerSetting groupOwnerarg groupPermissionarg = - GreengrassResourceDefinitionVersionResourceDownloadOwnerSetting - { _greengrassResourceDefinitionVersionResourceDownloadOwnerSettingGroupOwner = groupOwnerarg - , _greengrassResourceDefinitionVersionResourceDownloadOwnerSettingGroupPermission = groupPermissionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-resourcedownloadownersetting.html#cfn-greengrass-resourcedefinitionversion-resourcedownloadownersetting-groupowner -grdvrdosGroupOwner :: Lens' GreengrassResourceDefinitionVersionResourceDownloadOwnerSetting (Val Text) -grdvrdosGroupOwner = lens _greengrassResourceDefinitionVersionResourceDownloadOwnerSettingGroupOwner (\s a -> s { _greengrassResourceDefinitionVersionResourceDownloadOwnerSettingGroupOwner = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-resourcedownloadownersetting.html#cfn-greengrass-resourcedefinitionversion-resourcedownloadownersetting-grouppermission -grdvrdosGroupPermission :: Lens' GreengrassResourceDefinitionVersionResourceDownloadOwnerSetting (Val Text) -grdvrdosGroupPermission = lens _greengrassResourceDefinitionVersionResourceDownloadOwnerSettingGroupPermission (\s a -> s { _greengrassResourceDefinitionVersionResourceDownloadOwnerSettingGroupPermission = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionResourceInstance.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionResourceInstance.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionResourceInstance.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-resourceinstance.html - -module Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionResourceInstance where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionResourceDataContainer - --- | Full data type definition for --- GreengrassResourceDefinitionVersionResourceInstance. See --- 'greengrassResourceDefinitionVersionResourceInstance' for a more --- convenient constructor. -data GreengrassResourceDefinitionVersionResourceInstance = - GreengrassResourceDefinitionVersionResourceInstance - { _greengrassResourceDefinitionVersionResourceInstanceId :: Val Text - , _greengrassResourceDefinitionVersionResourceInstanceName :: Val Text - , _greengrassResourceDefinitionVersionResourceInstanceResourceDataContainer :: GreengrassResourceDefinitionVersionResourceDataContainer - } deriving (Show, Eq) - -instance ToJSON GreengrassResourceDefinitionVersionResourceInstance where - toJSON GreengrassResourceDefinitionVersionResourceInstance{..} = - object $ - catMaybes - [ (Just . ("Id",) . toJSON) _greengrassResourceDefinitionVersionResourceInstanceId - , (Just . ("Name",) . toJSON) _greengrassResourceDefinitionVersionResourceInstanceName - , (Just . ("ResourceDataContainer",) . toJSON) _greengrassResourceDefinitionVersionResourceInstanceResourceDataContainer - ] - --- | Constructor for 'GreengrassResourceDefinitionVersionResourceInstance' --- containing required fields as arguments. -greengrassResourceDefinitionVersionResourceInstance - :: Val Text -- ^ 'grdvriId' - -> Val Text -- ^ 'grdvriName' - -> GreengrassResourceDefinitionVersionResourceDataContainer -- ^ 'grdvriResourceDataContainer' - -> GreengrassResourceDefinitionVersionResourceInstance -greengrassResourceDefinitionVersionResourceInstance idarg namearg resourceDataContainerarg = - GreengrassResourceDefinitionVersionResourceInstance - { _greengrassResourceDefinitionVersionResourceInstanceId = idarg - , _greengrassResourceDefinitionVersionResourceInstanceName = namearg - , _greengrassResourceDefinitionVersionResourceInstanceResourceDataContainer = resourceDataContainerarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-resourceinstance.html#cfn-greengrass-resourcedefinitionversion-resourceinstance-id -grdvriId :: Lens' GreengrassResourceDefinitionVersionResourceInstance (Val Text) -grdvriId = lens _greengrassResourceDefinitionVersionResourceInstanceId (\s a -> s { _greengrassResourceDefinitionVersionResourceInstanceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-resourceinstance.html#cfn-greengrass-resourcedefinitionversion-resourceinstance-name -grdvriName :: Lens' GreengrassResourceDefinitionVersionResourceInstance (Val Text) -grdvriName = lens _greengrassResourceDefinitionVersionResourceInstanceName (\s a -> s { _greengrassResourceDefinitionVersionResourceInstanceName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-resourceinstance.html#cfn-greengrass-resourcedefinitionversion-resourceinstance-resourcedatacontainer -grdvriResourceDataContainer :: Lens' GreengrassResourceDefinitionVersionResourceInstance GreengrassResourceDefinitionVersionResourceDataContainer -grdvriResourceDataContainer = lens _greengrassResourceDefinitionVersionResourceInstanceResourceDataContainer (\s a -> s { _greengrassResourceDefinitionVersionResourceInstanceResourceDataContainer = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionS3MachineLearningModelResourceData.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionS3MachineLearningModelResourceData.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionS3MachineLearningModelResourceData.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-s3machinelearningmodelresourcedata.html - -module Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionS3MachineLearningModelResourceData where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionResourceDownloadOwnerSetting - --- | Full data type definition for --- GreengrassResourceDefinitionVersionS3MachineLearningModelResourceData. --- See --- 'greengrassResourceDefinitionVersionS3MachineLearningModelResourceData' --- for a more convenient constructor. -data GreengrassResourceDefinitionVersionS3MachineLearningModelResourceData = - GreengrassResourceDefinitionVersionS3MachineLearningModelResourceData - { _greengrassResourceDefinitionVersionS3MachineLearningModelResourceDataDestinationPath :: Val Text - , _greengrassResourceDefinitionVersionS3MachineLearningModelResourceDataOwnerSetting :: Maybe GreengrassResourceDefinitionVersionResourceDownloadOwnerSetting - , _greengrassResourceDefinitionVersionS3MachineLearningModelResourceDataS3Uri :: Val Text - } deriving (Show, Eq) - -instance ToJSON GreengrassResourceDefinitionVersionS3MachineLearningModelResourceData where - toJSON GreengrassResourceDefinitionVersionS3MachineLearningModelResourceData{..} = - object $ - catMaybes - [ (Just . ("DestinationPath",) . toJSON) _greengrassResourceDefinitionVersionS3MachineLearningModelResourceDataDestinationPath - , fmap (("OwnerSetting",) . toJSON) _greengrassResourceDefinitionVersionS3MachineLearningModelResourceDataOwnerSetting - , (Just . ("S3Uri",) . toJSON) _greengrassResourceDefinitionVersionS3MachineLearningModelResourceDataS3Uri - ] - --- | Constructor for --- 'GreengrassResourceDefinitionVersionS3MachineLearningModelResourceData' --- containing required fields as arguments. -greengrassResourceDefinitionVersionS3MachineLearningModelResourceData - :: Val Text -- ^ 'grdvsmlmrdDestinationPath' - -> Val Text -- ^ 'grdvsmlmrdS3Uri' - -> GreengrassResourceDefinitionVersionS3MachineLearningModelResourceData -greengrassResourceDefinitionVersionS3MachineLearningModelResourceData destinationPatharg s3Uriarg = - GreengrassResourceDefinitionVersionS3MachineLearningModelResourceData - { _greengrassResourceDefinitionVersionS3MachineLearningModelResourceDataDestinationPath = destinationPatharg - , _greengrassResourceDefinitionVersionS3MachineLearningModelResourceDataOwnerSetting = Nothing - , _greengrassResourceDefinitionVersionS3MachineLearningModelResourceDataS3Uri = s3Uriarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-s3machinelearningmodelresourcedata.html#cfn-greengrass-resourcedefinitionversion-s3machinelearningmodelresourcedata-destinationpath -grdvsmlmrdDestinationPath :: Lens' GreengrassResourceDefinitionVersionS3MachineLearningModelResourceData (Val Text) -grdvsmlmrdDestinationPath = lens _greengrassResourceDefinitionVersionS3MachineLearningModelResourceDataDestinationPath (\s a -> s { _greengrassResourceDefinitionVersionS3MachineLearningModelResourceDataDestinationPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-s3machinelearningmodelresourcedata.html#cfn-greengrass-resourcedefinitionversion-s3machinelearningmodelresourcedata-ownersetting -grdvsmlmrdOwnerSetting :: Lens' GreengrassResourceDefinitionVersionS3MachineLearningModelResourceData (Maybe GreengrassResourceDefinitionVersionResourceDownloadOwnerSetting) -grdvsmlmrdOwnerSetting = lens _greengrassResourceDefinitionVersionS3MachineLearningModelResourceDataOwnerSetting (\s a -> s { _greengrassResourceDefinitionVersionS3MachineLearningModelResourceDataOwnerSetting = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-s3machinelearningmodelresourcedata.html#cfn-greengrass-resourcedefinitionversion-s3machinelearningmodelresourcedata-s3uri -grdvsmlmrdS3Uri :: Lens' GreengrassResourceDefinitionVersionS3MachineLearningModelResourceData (Val Text) -grdvsmlmrdS3Uri = lens _greengrassResourceDefinitionVersionS3MachineLearningModelResourceDataS3Uri (\s a -> s { _greengrassResourceDefinitionVersionS3MachineLearningModelResourceDataS3Uri = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceData.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceData.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceData.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-sagemakermachinelearningmodelresourcedata.html - -module Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceData where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionResourceDownloadOwnerSetting - --- | Full data type definition for --- GreengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceData. --- See --- 'greengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceData' --- for a more convenient constructor. -data GreengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceData = - GreengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceData - { _greengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceDataDestinationPath :: Val Text - , _greengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceDataOwnerSetting :: Maybe GreengrassResourceDefinitionVersionResourceDownloadOwnerSetting - , _greengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceDataSageMakerJobArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON GreengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceData where - toJSON GreengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceData{..} = - object $ - catMaybes - [ (Just . ("DestinationPath",) . toJSON) _greengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceDataDestinationPath - , fmap (("OwnerSetting",) . toJSON) _greengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceDataOwnerSetting - , (Just . ("SageMakerJobArn",) . toJSON) _greengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceDataSageMakerJobArn - ] - --- | Constructor for --- 'GreengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceData' --- containing required fields as arguments. -greengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceData - :: Val Text -- ^ 'grdvsmmlmrdDestinationPath' - -> Val Text -- ^ 'grdvsmmlmrdSageMakerJobArn' - -> GreengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceData -greengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceData destinationPatharg sageMakerJobArnarg = - GreengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceData - { _greengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceDataDestinationPath = destinationPatharg - , _greengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceDataOwnerSetting = Nothing - , _greengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceDataSageMakerJobArn = sageMakerJobArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-sagemakermachinelearningmodelresourcedata.html#cfn-greengrass-resourcedefinitionversion-sagemakermachinelearningmodelresourcedata-destinationpath -grdvsmmlmrdDestinationPath :: Lens' GreengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceData (Val Text) -grdvsmmlmrdDestinationPath = lens _greengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceDataDestinationPath (\s a -> s { _greengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceDataDestinationPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-sagemakermachinelearningmodelresourcedata.html#cfn-greengrass-resourcedefinitionversion-sagemakermachinelearningmodelresourcedata-ownersetting -grdvsmmlmrdOwnerSetting :: Lens' GreengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceData (Maybe GreengrassResourceDefinitionVersionResourceDownloadOwnerSetting) -grdvsmmlmrdOwnerSetting = lens _greengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceDataOwnerSetting (\s a -> s { _greengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceDataOwnerSetting = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-sagemakermachinelearningmodelresourcedata.html#cfn-greengrass-resourcedefinitionversion-sagemakermachinelearningmodelresourcedata-sagemakerjobarn -grdvsmmlmrdSageMakerJobArn :: Lens' GreengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceData (Val Text) -grdvsmmlmrdSageMakerJobArn = lens _greengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceDataSageMakerJobArn (\s a -> s { _greengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceDataSageMakerJobArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionSecretsManagerSecretResourceData.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionSecretsManagerSecretResourceData.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassResourceDefinitionVersionSecretsManagerSecretResourceData.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-secretsmanagersecretresourcedata.html - -module Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionSecretsManagerSecretResourceData where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- GreengrassResourceDefinitionVersionSecretsManagerSecretResourceData. See --- 'greengrassResourceDefinitionVersionSecretsManagerSecretResourceData' for --- a more convenient constructor. -data GreengrassResourceDefinitionVersionSecretsManagerSecretResourceData = - GreengrassResourceDefinitionVersionSecretsManagerSecretResourceData - { _greengrassResourceDefinitionVersionSecretsManagerSecretResourceDataARN :: Val Text - , _greengrassResourceDefinitionVersionSecretsManagerSecretResourceDataAdditionalStagingLabelsToDownload :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON GreengrassResourceDefinitionVersionSecretsManagerSecretResourceData where - toJSON GreengrassResourceDefinitionVersionSecretsManagerSecretResourceData{..} = - object $ - catMaybes - [ (Just . ("ARN",) . toJSON) _greengrassResourceDefinitionVersionSecretsManagerSecretResourceDataARN - , fmap (("AdditionalStagingLabelsToDownload",) . toJSON) _greengrassResourceDefinitionVersionSecretsManagerSecretResourceDataAdditionalStagingLabelsToDownload - ] - --- | Constructor for --- 'GreengrassResourceDefinitionVersionSecretsManagerSecretResourceData' --- containing required fields as arguments. -greengrassResourceDefinitionVersionSecretsManagerSecretResourceData - :: Val Text -- ^ 'grdvsmsrdARN' - -> GreengrassResourceDefinitionVersionSecretsManagerSecretResourceData -greengrassResourceDefinitionVersionSecretsManagerSecretResourceData aRNarg = - GreengrassResourceDefinitionVersionSecretsManagerSecretResourceData - { _greengrassResourceDefinitionVersionSecretsManagerSecretResourceDataARN = aRNarg - , _greengrassResourceDefinitionVersionSecretsManagerSecretResourceDataAdditionalStagingLabelsToDownload = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-secretsmanagersecretresourcedata.html#cfn-greengrass-resourcedefinitionversion-secretsmanagersecretresourcedata-arn -grdvsmsrdARN :: Lens' GreengrassResourceDefinitionVersionSecretsManagerSecretResourceData (Val Text) -grdvsmsrdARN = lens _greengrassResourceDefinitionVersionSecretsManagerSecretResourceDataARN (\s a -> s { _greengrassResourceDefinitionVersionSecretsManagerSecretResourceDataARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-resourcedefinitionversion-secretsmanagersecretresourcedata.html#cfn-greengrass-resourcedefinitionversion-secretsmanagersecretresourcedata-additionalstaginglabelstodownload -grdvsmsrdAdditionalStagingLabelsToDownload :: Lens' GreengrassResourceDefinitionVersionSecretsManagerSecretResourceData (Maybe (ValList Text)) -grdvsmsrdAdditionalStagingLabelsToDownload = lens _greengrassResourceDefinitionVersionSecretsManagerSecretResourceDataAdditionalStagingLabelsToDownload (\s a -> s { _greengrassResourceDefinitionVersionSecretsManagerSecretResourceDataAdditionalStagingLabelsToDownload = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassSubscriptionDefinitionSubscription.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassSubscriptionDefinitionSubscription.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassSubscriptionDefinitionSubscription.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-subscriptiondefinition-subscription.html - -module Stratosphere.ResourceProperties.GreengrassSubscriptionDefinitionSubscription where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- GreengrassSubscriptionDefinitionSubscription. See --- 'greengrassSubscriptionDefinitionSubscription' for a more convenient --- constructor. -data GreengrassSubscriptionDefinitionSubscription = - GreengrassSubscriptionDefinitionSubscription - { _greengrassSubscriptionDefinitionSubscriptionId :: Val Text - , _greengrassSubscriptionDefinitionSubscriptionSource :: Val Text - , _greengrassSubscriptionDefinitionSubscriptionSubject :: Val Text - , _greengrassSubscriptionDefinitionSubscriptionTarget :: Val Text - } deriving (Show, Eq) - -instance ToJSON GreengrassSubscriptionDefinitionSubscription where - toJSON GreengrassSubscriptionDefinitionSubscription{..} = - object $ - catMaybes - [ (Just . ("Id",) . toJSON) _greengrassSubscriptionDefinitionSubscriptionId - , (Just . ("Source",) . toJSON) _greengrassSubscriptionDefinitionSubscriptionSource - , (Just . ("Subject",) . toJSON) _greengrassSubscriptionDefinitionSubscriptionSubject - , (Just . ("Target",) . toJSON) _greengrassSubscriptionDefinitionSubscriptionTarget - ] - --- | Constructor for 'GreengrassSubscriptionDefinitionSubscription' containing --- required fields as arguments. -greengrassSubscriptionDefinitionSubscription - :: Val Text -- ^ 'gsdsId' - -> Val Text -- ^ 'gsdsSource' - -> Val Text -- ^ 'gsdsSubject' - -> Val Text -- ^ 'gsdsTarget' - -> GreengrassSubscriptionDefinitionSubscription -greengrassSubscriptionDefinitionSubscription idarg sourcearg subjectarg targetarg = - GreengrassSubscriptionDefinitionSubscription - { _greengrassSubscriptionDefinitionSubscriptionId = idarg - , _greengrassSubscriptionDefinitionSubscriptionSource = sourcearg - , _greengrassSubscriptionDefinitionSubscriptionSubject = subjectarg - , _greengrassSubscriptionDefinitionSubscriptionTarget = targetarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-subscriptiondefinition-subscription.html#cfn-greengrass-subscriptiondefinition-subscription-id -gsdsId :: Lens' GreengrassSubscriptionDefinitionSubscription (Val Text) -gsdsId = lens _greengrassSubscriptionDefinitionSubscriptionId (\s a -> s { _greengrassSubscriptionDefinitionSubscriptionId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-subscriptiondefinition-subscription.html#cfn-greengrass-subscriptiondefinition-subscription-source -gsdsSource :: Lens' GreengrassSubscriptionDefinitionSubscription (Val Text) -gsdsSource = lens _greengrassSubscriptionDefinitionSubscriptionSource (\s a -> s { _greengrassSubscriptionDefinitionSubscriptionSource = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-subscriptiondefinition-subscription.html#cfn-greengrass-subscriptiondefinition-subscription-subject -gsdsSubject :: Lens' GreengrassSubscriptionDefinitionSubscription (Val Text) -gsdsSubject = lens _greengrassSubscriptionDefinitionSubscriptionSubject (\s a -> s { _greengrassSubscriptionDefinitionSubscriptionSubject = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-subscriptiondefinition-subscription.html#cfn-greengrass-subscriptiondefinition-subscription-target -gsdsTarget :: Lens' GreengrassSubscriptionDefinitionSubscription (Val Text) -gsdsTarget = lens _greengrassSubscriptionDefinitionSubscriptionTarget (\s a -> s { _greengrassSubscriptionDefinitionSubscriptionTarget = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassSubscriptionDefinitionSubscriptionDefinitionVersion.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassSubscriptionDefinitionSubscriptionDefinitionVersion.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassSubscriptionDefinitionSubscriptionDefinitionVersion.hs +++ /dev/null @@ -1,42 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-subscriptiondefinition-subscriptiondefinitionversion.html - -module Stratosphere.ResourceProperties.GreengrassSubscriptionDefinitionSubscriptionDefinitionVersion where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassSubscriptionDefinitionSubscription - --- | Full data type definition for --- GreengrassSubscriptionDefinitionSubscriptionDefinitionVersion. See --- 'greengrassSubscriptionDefinitionSubscriptionDefinitionVersion' for a --- more convenient constructor. -data GreengrassSubscriptionDefinitionSubscriptionDefinitionVersion = - GreengrassSubscriptionDefinitionSubscriptionDefinitionVersion - { _greengrassSubscriptionDefinitionSubscriptionDefinitionVersionSubscriptions :: [GreengrassSubscriptionDefinitionSubscription] - } deriving (Show, Eq) - -instance ToJSON GreengrassSubscriptionDefinitionSubscriptionDefinitionVersion where - toJSON GreengrassSubscriptionDefinitionSubscriptionDefinitionVersion{..} = - object $ - catMaybes - [ (Just . ("Subscriptions",) . toJSON) _greengrassSubscriptionDefinitionSubscriptionDefinitionVersionSubscriptions - ] - --- | Constructor for --- 'GreengrassSubscriptionDefinitionSubscriptionDefinitionVersion' --- containing required fields as arguments. -greengrassSubscriptionDefinitionSubscriptionDefinitionVersion - :: [GreengrassSubscriptionDefinitionSubscription] -- ^ 'gsdsdvSubscriptions' - -> GreengrassSubscriptionDefinitionSubscriptionDefinitionVersion -greengrassSubscriptionDefinitionSubscriptionDefinitionVersion subscriptionsarg = - GreengrassSubscriptionDefinitionSubscriptionDefinitionVersion - { _greengrassSubscriptionDefinitionSubscriptionDefinitionVersionSubscriptions = subscriptionsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-subscriptiondefinition-subscriptiondefinitionversion.html#cfn-greengrass-subscriptiondefinition-subscriptiondefinitionversion-subscriptions -gsdsdvSubscriptions :: Lens' GreengrassSubscriptionDefinitionSubscriptionDefinitionVersion [GreengrassSubscriptionDefinitionSubscription] -gsdsdvSubscriptions = lens _greengrassSubscriptionDefinitionSubscriptionDefinitionVersionSubscriptions (\s a -> s { _greengrassSubscriptionDefinitionSubscriptionDefinitionVersionSubscriptions = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GreengrassSubscriptionDefinitionVersionSubscription.hs b/library-gen/Stratosphere/ResourceProperties/GreengrassSubscriptionDefinitionVersionSubscription.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GreengrassSubscriptionDefinitionVersionSubscription.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-subscriptiondefinitionversion-subscription.html - -module Stratosphere.ResourceProperties.GreengrassSubscriptionDefinitionVersionSubscription where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- GreengrassSubscriptionDefinitionVersionSubscription. See --- 'greengrassSubscriptionDefinitionVersionSubscription' for a more --- convenient constructor. -data GreengrassSubscriptionDefinitionVersionSubscription = - GreengrassSubscriptionDefinitionVersionSubscription - { _greengrassSubscriptionDefinitionVersionSubscriptionId :: Val Text - , _greengrassSubscriptionDefinitionVersionSubscriptionSource :: Val Text - , _greengrassSubscriptionDefinitionVersionSubscriptionSubject :: Val Text - , _greengrassSubscriptionDefinitionVersionSubscriptionTarget :: Val Text - } deriving (Show, Eq) - -instance ToJSON GreengrassSubscriptionDefinitionVersionSubscription where - toJSON GreengrassSubscriptionDefinitionVersionSubscription{..} = - object $ - catMaybes - [ (Just . ("Id",) . toJSON) _greengrassSubscriptionDefinitionVersionSubscriptionId - , (Just . ("Source",) . toJSON) _greengrassSubscriptionDefinitionVersionSubscriptionSource - , (Just . ("Subject",) . toJSON) _greengrassSubscriptionDefinitionVersionSubscriptionSubject - , (Just . ("Target",) . toJSON) _greengrassSubscriptionDefinitionVersionSubscriptionTarget - ] - --- | Constructor for 'GreengrassSubscriptionDefinitionVersionSubscription' --- containing required fields as arguments. -greengrassSubscriptionDefinitionVersionSubscription - :: Val Text -- ^ 'gsdvsId' - -> Val Text -- ^ 'gsdvsSource' - -> Val Text -- ^ 'gsdvsSubject' - -> Val Text -- ^ 'gsdvsTarget' - -> GreengrassSubscriptionDefinitionVersionSubscription -greengrassSubscriptionDefinitionVersionSubscription idarg sourcearg subjectarg targetarg = - GreengrassSubscriptionDefinitionVersionSubscription - { _greengrassSubscriptionDefinitionVersionSubscriptionId = idarg - , _greengrassSubscriptionDefinitionVersionSubscriptionSource = sourcearg - , _greengrassSubscriptionDefinitionVersionSubscriptionSubject = subjectarg - , _greengrassSubscriptionDefinitionVersionSubscriptionTarget = targetarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-subscriptiondefinitionversion-subscription.html#cfn-greengrass-subscriptiondefinitionversion-subscription-id -gsdvsId :: Lens' GreengrassSubscriptionDefinitionVersionSubscription (Val Text) -gsdvsId = lens _greengrassSubscriptionDefinitionVersionSubscriptionId (\s a -> s { _greengrassSubscriptionDefinitionVersionSubscriptionId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-subscriptiondefinitionversion-subscription.html#cfn-greengrass-subscriptiondefinitionversion-subscription-source -gsdvsSource :: Lens' GreengrassSubscriptionDefinitionVersionSubscription (Val Text) -gsdvsSource = lens _greengrassSubscriptionDefinitionVersionSubscriptionSource (\s a -> s { _greengrassSubscriptionDefinitionVersionSubscriptionSource = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-subscriptiondefinitionversion-subscription.html#cfn-greengrass-subscriptiondefinitionversion-subscription-subject -gsdvsSubject :: Lens' GreengrassSubscriptionDefinitionVersionSubscription (Val Text) -gsdvsSubject = lens _greengrassSubscriptionDefinitionVersionSubscriptionSubject (\s a -> s { _greengrassSubscriptionDefinitionVersionSubscriptionSubject = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-subscriptiondefinitionversion-subscription.html#cfn-greengrass-subscriptiondefinitionversion-subscription-target -gsdvsTarget :: Lens' GreengrassSubscriptionDefinitionVersionSubscription (Val Text) -gsdvsTarget = lens _greengrassSubscriptionDefinitionVersionSubscriptionTarget (\s a -> s { _greengrassSubscriptionDefinitionVersionSubscriptionTarget = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GuardDutyDetectorCFNDataSourceConfigurations.hs b/library-gen/Stratosphere/ResourceProperties/GuardDutyDetectorCFNDataSourceConfigurations.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GuardDutyDetectorCFNDataSourceConfigurations.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-guardduty-detector-cfndatasourceconfigurations.html - -module Stratosphere.ResourceProperties.GuardDutyDetectorCFNDataSourceConfigurations where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GuardDutyDetectorCFNS3LogsConfiguration - --- | Full data type definition for --- GuardDutyDetectorCFNDataSourceConfigurations. See --- 'guardDutyDetectorCFNDataSourceConfigurations' for a more convenient --- constructor. -data GuardDutyDetectorCFNDataSourceConfigurations = - GuardDutyDetectorCFNDataSourceConfigurations - { _guardDutyDetectorCFNDataSourceConfigurationsS3Logs :: Maybe GuardDutyDetectorCFNS3LogsConfiguration - } deriving (Show, Eq) - -instance ToJSON GuardDutyDetectorCFNDataSourceConfigurations where - toJSON GuardDutyDetectorCFNDataSourceConfigurations{..} = - object $ - catMaybes - [ fmap (("S3Logs",) . toJSON) _guardDutyDetectorCFNDataSourceConfigurationsS3Logs - ] - --- | Constructor for 'GuardDutyDetectorCFNDataSourceConfigurations' containing --- required fields as arguments. -guardDutyDetectorCFNDataSourceConfigurations - :: GuardDutyDetectorCFNDataSourceConfigurations -guardDutyDetectorCFNDataSourceConfigurations = - GuardDutyDetectorCFNDataSourceConfigurations - { _guardDutyDetectorCFNDataSourceConfigurationsS3Logs = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-guardduty-detector-cfndatasourceconfigurations.html#cfn-guardduty-detector-cfndatasourceconfigurations-s3logs -gddcfndscS3Logs :: Lens' GuardDutyDetectorCFNDataSourceConfigurations (Maybe GuardDutyDetectorCFNS3LogsConfiguration) -gddcfndscS3Logs = lens _guardDutyDetectorCFNDataSourceConfigurationsS3Logs (\s a -> s { _guardDutyDetectorCFNDataSourceConfigurationsS3Logs = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GuardDutyDetectorCFNS3LogsConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/GuardDutyDetectorCFNS3LogsConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GuardDutyDetectorCFNS3LogsConfiguration.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-guardduty-detector-cfns3logsconfiguration.html - -module Stratosphere.ResourceProperties.GuardDutyDetectorCFNS3LogsConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GuardDutyDetectorCFNS3LogsConfiguration. --- See 'guardDutyDetectorCFNS3LogsConfiguration' for a more convenient --- constructor. -data GuardDutyDetectorCFNS3LogsConfiguration = - GuardDutyDetectorCFNS3LogsConfiguration - { _guardDutyDetectorCFNS3LogsConfigurationEnable :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON GuardDutyDetectorCFNS3LogsConfiguration where - toJSON GuardDutyDetectorCFNS3LogsConfiguration{..} = - object $ - catMaybes - [ fmap (("Enable",) . toJSON) _guardDutyDetectorCFNS3LogsConfigurationEnable - ] - --- | Constructor for 'GuardDutyDetectorCFNS3LogsConfiguration' containing --- required fields as arguments. -guardDutyDetectorCFNS3LogsConfiguration - :: GuardDutyDetectorCFNS3LogsConfiguration -guardDutyDetectorCFNS3LogsConfiguration = - GuardDutyDetectorCFNS3LogsConfiguration - { _guardDutyDetectorCFNS3LogsConfigurationEnable = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-guardduty-detector-cfns3logsconfiguration.html#cfn-guardduty-detector-cfns3logsconfiguration-enable -gddcfnslcEnable :: Lens' GuardDutyDetectorCFNS3LogsConfiguration (Maybe (Val Bool)) -gddcfnslcEnable = lens _guardDutyDetectorCFNS3LogsConfigurationEnable (\s a -> s { _guardDutyDetectorCFNS3LogsConfigurationEnable = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GuardDutyFilterCondition.hs b/library-gen/Stratosphere/ResourceProperties/GuardDutyFilterCondition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GuardDutyFilterCondition.hs +++ /dev/null @@ -1,66 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-guardduty-filter-condition.html - -module Stratosphere.ResourceProperties.GuardDutyFilterCondition where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GuardDutyFilterCondition. See --- 'guardDutyFilterCondition' for a more convenient constructor. -data GuardDutyFilterCondition = - GuardDutyFilterCondition - { _guardDutyFilterConditionEq :: Maybe (ValList Text) - , _guardDutyFilterConditionGte :: Maybe (Val Integer) - , _guardDutyFilterConditionLt :: Maybe (Val Integer) - , _guardDutyFilterConditionLte :: Maybe (Val Integer) - , _guardDutyFilterConditionNeq :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON GuardDutyFilterCondition where - toJSON GuardDutyFilterCondition{..} = - object $ - catMaybes - [ fmap (("Eq",) . toJSON) _guardDutyFilterConditionEq - , fmap (("Gte",) . toJSON) _guardDutyFilterConditionGte - , fmap (("Lt",) . toJSON) _guardDutyFilterConditionLt - , fmap (("Lte",) . toJSON) _guardDutyFilterConditionLte - , fmap (("Neq",) . toJSON) _guardDutyFilterConditionNeq - ] - --- | Constructor for 'GuardDutyFilterCondition' containing required fields as --- arguments. -guardDutyFilterCondition - :: GuardDutyFilterCondition -guardDutyFilterCondition = - GuardDutyFilterCondition - { _guardDutyFilterConditionEq = Nothing - , _guardDutyFilterConditionGte = Nothing - , _guardDutyFilterConditionLt = Nothing - , _guardDutyFilterConditionLte = Nothing - , _guardDutyFilterConditionNeq = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-guardduty-filter-condition.html#cfn-guardduty-filter-condition-eq -gdfcEq :: Lens' GuardDutyFilterCondition (Maybe (ValList Text)) -gdfcEq = lens _guardDutyFilterConditionEq (\s a -> s { _guardDutyFilterConditionEq = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-guardduty-filter-condition.html#cfn-guardduty-filter-condition-gte -gdfcGte :: Lens' GuardDutyFilterCondition (Maybe (Val Integer)) -gdfcGte = lens _guardDutyFilterConditionGte (\s a -> s { _guardDutyFilterConditionGte = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-guardduty-filter-condition.html#cfn-guardduty-filter-condition-lt -gdfcLt :: Lens' GuardDutyFilterCondition (Maybe (Val Integer)) -gdfcLt = lens _guardDutyFilterConditionLt (\s a -> s { _guardDutyFilterConditionLt = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-guardduty-filter-condition.html#cfn-guardduty-filter-condition-lte -gdfcLte :: Lens' GuardDutyFilterCondition (Maybe (Val Integer)) -gdfcLte = lens _guardDutyFilterConditionLte (\s a -> s { _guardDutyFilterConditionLte = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-guardduty-filter-condition.html#cfn-guardduty-filter-condition-neq -gdfcNeq :: Lens' GuardDutyFilterCondition (Maybe (ValList Text)) -gdfcNeq = lens _guardDutyFilterConditionNeq (\s a -> s { _guardDutyFilterConditionNeq = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/GuardDutyFilterFindingCriteria.hs b/library-gen/Stratosphere/ResourceProperties/GuardDutyFilterFindingCriteria.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/GuardDutyFilterFindingCriteria.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-guardduty-filter-findingcriteria.html - -module Stratosphere.ResourceProperties.GuardDutyFilterFindingCriteria where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GuardDutyFilterCondition - --- | Full data type definition for GuardDutyFilterFindingCriteria. See --- 'guardDutyFilterFindingCriteria' for a more convenient constructor. -data GuardDutyFilterFindingCriteria = - GuardDutyFilterFindingCriteria - { _guardDutyFilterFindingCriteriaCriterion :: Maybe Object - , _guardDutyFilterFindingCriteriaItemType :: Maybe GuardDutyFilterCondition - } deriving (Show, Eq) - -instance ToJSON GuardDutyFilterFindingCriteria where - toJSON GuardDutyFilterFindingCriteria{..} = - object $ - catMaybes - [ fmap (("Criterion",) . toJSON) _guardDutyFilterFindingCriteriaCriterion - , fmap (("ItemType",) . toJSON) _guardDutyFilterFindingCriteriaItemType - ] - --- | Constructor for 'GuardDutyFilterFindingCriteria' containing required --- fields as arguments. -guardDutyFilterFindingCriteria - :: GuardDutyFilterFindingCriteria -guardDutyFilterFindingCriteria = - GuardDutyFilterFindingCriteria - { _guardDutyFilterFindingCriteriaCriterion = Nothing - , _guardDutyFilterFindingCriteriaItemType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-guardduty-filter-findingcriteria.html#cfn-guardduty-filter-findingcriteria-criterion -gdffcCriterion :: Lens' GuardDutyFilterFindingCriteria (Maybe Object) -gdffcCriterion = lens _guardDutyFilterFindingCriteriaCriterion (\s a -> s { _guardDutyFilterFindingCriteriaCriterion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-guardduty-filter-findingcriteria.html#cfn-guardduty-filter-findingcriteria-itemtype -gdffcItemType :: Lens' GuardDutyFilterFindingCriteria (Maybe GuardDutyFilterCondition) -gdffcItemType = lens _guardDutyFilterFindingCriteriaItemType (\s a -> s { _guardDutyFilterFindingCriteriaItemType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IAMGroupPolicy.hs b/library-gen/Stratosphere/ResourceProperties/IAMGroupPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IAMGroupPolicy.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-policy.html - -module Stratosphere.ResourceProperties.IAMGroupPolicy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IAMGroupPolicy. See 'iamGroupPolicy' for a --- more convenient constructor. -data IAMGroupPolicy = - IAMGroupPolicy - { _iAMGroupPolicyPolicyDocument :: Object - , _iAMGroupPolicyPolicyName :: Val Text - } deriving (Show, Eq) - -instance ToJSON IAMGroupPolicy where - toJSON IAMGroupPolicy{..} = - object $ - catMaybes - [ (Just . ("PolicyDocument",) . toJSON) _iAMGroupPolicyPolicyDocument - , (Just . ("PolicyName",) . toJSON) _iAMGroupPolicyPolicyName - ] - --- | Constructor for 'IAMGroupPolicy' containing required fields as arguments. -iamGroupPolicy - :: Object -- ^ 'iamgpPolicyDocument' - -> Val Text -- ^ 'iamgpPolicyName' - -> IAMGroupPolicy -iamGroupPolicy policyDocumentarg policyNamearg = - IAMGroupPolicy - { _iAMGroupPolicyPolicyDocument = policyDocumentarg - , _iAMGroupPolicyPolicyName = policyNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-policy.html#cfn-iam-policies-policydocument -iamgpPolicyDocument :: Lens' IAMGroupPolicy Object -iamgpPolicyDocument = lens _iAMGroupPolicyPolicyDocument (\s a -> s { _iAMGroupPolicyPolicyDocument = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-policy.html#cfn-iam-policies-policyname -iamgpPolicyName :: Lens' IAMGroupPolicy (Val Text) -iamgpPolicyName = lens _iAMGroupPolicyPolicyName (\s a -> s { _iAMGroupPolicyPolicyName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IAMRolePolicy.hs b/library-gen/Stratosphere/ResourceProperties/IAMRolePolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IAMRolePolicy.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-policy.html - -module Stratosphere.ResourceProperties.IAMRolePolicy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IAMRolePolicy. See 'iamRolePolicy' for a --- more convenient constructor. -data IAMRolePolicy = - IAMRolePolicy - { _iAMRolePolicyPolicyDocument :: Object - , _iAMRolePolicyPolicyName :: Val Text - } deriving (Show, Eq) - -instance ToJSON IAMRolePolicy where - toJSON IAMRolePolicy{..} = - object $ - catMaybes - [ (Just . ("PolicyDocument",) . toJSON) _iAMRolePolicyPolicyDocument - , (Just . ("PolicyName",) . toJSON) _iAMRolePolicyPolicyName - ] - --- | Constructor for 'IAMRolePolicy' containing required fields as arguments. -iamRolePolicy - :: Object -- ^ 'iamrpPolicyDocument' - -> Val Text -- ^ 'iamrpPolicyName' - -> IAMRolePolicy -iamRolePolicy policyDocumentarg policyNamearg = - IAMRolePolicy - { _iAMRolePolicyPolicyDocument = policyDocumentarg - , _iAMRolePolicyPolicyName = policyNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-policy.html#cfn-iam-policies-policydocument -iamrpPolicyDocument :: Lens' IAMRolePolicy Object -iamrpPolicyDocument = lens _iAMRolePolicyPolicyDocument (\s a -> s { _iAMRolePolicyPolicyDocument = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-policy.html#cfn-iam-policies-policyname -iamrpPolicyName :: Lens' IAMRolePolicy (Val Text) -iamrpPolicyName = lens _iAMRolePolicyPolicyName (\s a -> s { _iAMRolePolicyPolicyName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IAMUserLoginProfile.hs b/library-gen/Stratosphere/ResourceProperties/IAMUserLoginProfile.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IAMUserLoginProfile.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-user-loginprofile.html - -module Stratosphere.ResourceProperties.IAMUserLoginProfile where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IAMUserLoginProfile. See --- 'iamUserLoginProfile' for a more convenient constructor. -data IAMUserLoginProfile = - IAMUserLoginProfile - { _iAMUserLoginProfilePassword :: Val Text - , _iAMUserLoginProfilePasswordResetRequired :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON IAMUserLoginProfile where - toJSON IAMUserLoginProfile{..} = - object $ - catMaybes - [ (Just . ("Password",) . toJSON) _iAMUserLoginProfilePassword - , fmap (("PasswordResetRequired",) . toJSON) _iAMUserLoginProfilePasswordResetRequired - ] - --- | Constructor for 'IAMUserLoginProfile' containing required fields as --- arguments. -iamUserLoginProfile - :: Val Text -- ^ 'iamulpPassword' - -> IAMUserLoginProfile -iamUserLoginProfile passwordarg = - IAMUserLoginProfile - { _iAMUserLoginProfilePassword = passwordarg - , _iAMUserLoginProfilePasswordResetRequired = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-user-loginprofile.html#cfn-iam-user-loginprofile-password -iamulpPassword :: Lens' IAMUserLoginProfile (Val Text) -iamulpPassword = lens _iAMUserLoginProfilePassword (\s a -> s { _iAMUserLoginProfilePassword = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-user-loginprofile.html#cfn-iam-user-loginprofile-passwordresetrequired -iamulpPasswordResetRequired :: Lens' IAMUserLoginProfile (Maybe (Val Bool)) -iamulpPasswordResetRequired = lens _iAMUserLoginProfilePasswordResetRequired (\s a -> s { _iAMUserLoginProfilePasswordResetRequired = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IAMUserPolicy.hs b/library-gen/Stratosphere/ResourceProperties/IAMUserPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IAMUserPolicy.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-policy.html - -module Stratosphere.ResourceProperties.IAMUserPolicy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IAMUserPolicy. See 'iamUserPolicy' for a --- more convenient constructor. -data IAMUserPolicy = - IAMUserPolicy - { _iAMUserPolicyPolicyDocument :: Object - , _iAMUserPolicyPolicyName :: Val Text - } deriving (Show, Eq) - -instance ToJSON IAMUserPolicy where - toJSON IAMUserPolicy{..} = - object $ - catMaybes - [ (Just . ("PolicyDocument",) . toJSON) _iAMUserPolicyPolicyDocument - , (Just . ("PolicyName",) . toJSON) _iAMUserPolicyPolicyName - ] - --- | Constructor for 'IAMUserPolicy' containing required fields as arguments. -iamUserPolicy - :: Object -- ^ 'iamupPolicyDocument' - -> Val Text -- ^ 'iamupPolicyName' - -> IAMUserPolicy -iamUserPolicy policyDocumentarg policyNamearg = - IAMUserPolicy - { _iAMUserPolicyPolicyDocument = policyDocumentarg - , _iAMUserPolicyPolicyName = policyNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-policy.html#cfn-iam-policies-policydocument -iamupPolicyDocument :: Lens' IAMUserPolicy Object -iamupPolicyDocument = lens _iAMUserPolicyPolicyDocument (\s a -> s { _iAMUserPolicyPolicyDocument = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-policy.html#cfn-iam-policies-policyname -iamupPolicyName :: Lens' IAMUserPolicy (Val Text) -iamupPolicyName = lens _iAMUserPolicyPolicyName (\s a -> s { _iAMUserPolicyPolicyName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ImageBuilderDistributionConfigurationDistribution.hs b/library-gen/Stratosphere/ResourceProperties/ImageBuilderDistributionConfigurationDistribution.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ImageBuilderDistributionConfigurationDistribution.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-distributionconfiguration-distribution.html - -module Stratosphere.ResourceProperties.ImageBuilderDistributionConfigurationDistribution where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ImageBuilderDistributionConfigurationDistribution. See --- 'imageBuilderDistributionConfigurationDistribution' for a more convenient --- constructor. -data ImageBuilderDistributionConfigurationDistribution = - ImageBuilderDistributionConfigurationDistribution - { _imageBuilderDistributionConfigurationDistributionAmiDistributionConfiguration :: Maybe Object - , _imageBuilderDistributionConfigurationDistributionLicenseConfigurationArns :: Maybe (ValList Text) - , _imageBuilderDistributionConfigurationDistributionRegion :: Val Text - } deriving (Show, Eq) - -instance ToJSON ImageBuilderDistributionConfigurationDistribution where - toJSON ImageBuilderDistributionConfigurationDistribution{..} = - object $ - catMaybes - [ fmap (("AmiDistributionConfiguration",) . toJSON) _imageBuilderDistributionConfigurationDistributionAmiDistributionConfiguration - , fmap (("LicenseConfigurationArns",) . toJSON) _imageBuilderDistributionConfigurationDistributionLicenseConfigurationArns - , (Just . ("Region",) . toJSON) _imageBuilderDistributionConfigurationDistributionRegion - ] - --- | Constructor for 'ImageBuilderDistributionConfigurationDistribution' --- containing required fields as arguments. -imageBuilderDistributionConfigurationDistribution - :: Val Text -- ^ 'ibdcdRegion' - -> ImageBuilderDistributionConfigurationDistribution -imageBuilderDistributionConfigurationDistribution regionarg = - ImageBuilderDistributionConfigurationDistribution - { _imageBuilderDistributionConfigurationDistributionAmiDistributionConfiguration = Nothing - , _imageBuilderDistributionConfigurationDistributionLicenseConfigurationArns = Nothing - , _imageBuilderDistributionConfigurationDistributionRegion = regionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-distributionconfiguration-distribution.html#cfn-imagebuilder-distributionconfiguration-distribution-amidistributionconfiguration -ibdcdAmiDistributionConfiguration :: Lens' ImageBuilderDistributionConfigurationDistribution (Maybe Object) -ibdcdAmiDistributionConfiguration = lens _imageBuilderDistributionConfigurationDistributionAmiDistributionConfiguration (\s a -> s { _imageBuilderDistributionConfigurationDistributionAmiDistributionConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-distributionconfiguration-distribution.html#cfn-imagebuilder-distributionconfiguration-distribution-licenseconfigurationarns -ibdcdLicenseConfigurationArns :: Lens' ImageBuilderDistributionConfigurationDistribution (Maybe (ValList Text)) -ibdcdLicenseConfigurationArns = lens _imageBuilderDistributionConfigurationDistributionLicenseConfigurationArns (\s a -> s { _imageBuilderDistributionConfigurationDistributionLicenseConfigurationArns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-distributionconfiguration-distribution.html#cfn-imagebuilder-distributionconfiguration-distribution-region -ibdcdRegion :: Lens' ImageBuilderDistributionConfigurationDistribution (Val Text) -ibdcdRegion = lens _imageBuilderDistributionConfigurationDistributionRegion (\s a -> s { _imageBuilderDistributionConfigurationDistributionRegion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ImageBuilderImageImageTestsConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ImageBuilderImageImageTestsConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ImageBuilderImageImageTestsConfiguration.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-image-imagetestsconfiguration.html - -module Stratosphere.ResourceProperties.ImageBuilderImageImageTestsConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ImageBuilderImageImageTestsConfiguration. --- See 'imageBuilderImageImageTestsConfiguration' for a more convenient --- constructor. -data ImageBuilderImageImageTestsConfiguration = - ImageBuilderImageImageTestsConfiguration - { _imageBuilderImageImageTestsConfigurationImageTestsEnabled :: Maybe (Val Bool) - , _imageBuilderImageImageTestsConfigurationTimeoutMinutes :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON ImageBuilderImageImageTestsConfiguration where - toJSON ImageBuilderImageImageTestsConfiguration{..} = - object $ - catMaybes - [ fmap (("ImageTestsEnabled",) . toJSON) _imageBuilderImageImageTestsConfigurationImageTestsEnabled - , fmap (("TimeoutMinutes",) . toJSON) _imageBuilderImageImageTestsConfigurationTimeoutMinutes - ] - --- | Constructor for 'ImageBuilderImageImageTestsConfiguration' containing --- required fields as arguments. -imageBuilderImageImageTestsConfiguration - :: ImageBuilderImageImageTestsConfiguration -imageBuilderImageImageTestsConfiguration = - ImageBuilderImageImageTestsConfiguration - { _imageBuilderImageImageTestsConfigurationImageTestsEnabled = Nothing - , _imageBuilderImageImageTestsConfigurationTimeoutMinutes = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-image-imagetestsconfiguration.html#cfn-imagebuilder-image-imagetestsconfiguration-imagetestsenabled -ibiitcImageTestsEnabled :: Lens' ImageBuilderImageImageTestsConfiguration (Maybe (Val Bool)) -ibiitcImageTestsEnabled = lens _imageBuilderImageImageTestsConfigurationImageTestsEnabled (\s a -> s { _imageBuilderImageImageTestsConfigurationImageTestsEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-image-imagetestsconfiguration.html#cfn-imagebuilder-image-imagetestsconfiguration-timeoutminutes -ibiitcTimeoutMinutes :: Lens' ImageBuilderImageImageTestsConfiguration (Maybe (Val Integer)) -ibiitcTimeoutMinutes = lens _imageBuilderImageImageTestsConfigurationTimeoutMinutes (\s a -> s { _imageBuilderImageImageTestsConfigurationTimeoutMinutes = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ImageBuilderImagePipelineImageTestsConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ImageBuilderImagePipelineImageTestsConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ImageBuilderImagePipelineImageTestsConfiguration.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagepipeline-imagetestsconfiguration.html - -module Stratosphere.ResourceProperties.ImageBuilderImagePipelineImageTestsConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ImageBuilderImagePipelineImageTestsConfiguration. See --- 'imageBuilderImagePipelineImageTestsConfiguration' for a more convenient --- constructor. -data ImageBuilderImagePipelineImageTestsConfiguration = - ImageBuilderImagePipelineImageTestsConfiguration - { _imageBuilderImagePipelineImageTestsConfigurationImageTestsEnabled :: Maybe (Val Bool) - , _imageBuilderImagePipelineImageTestsConfigurationTimeoutMinutes :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON ImageBuilderImagePipelineImageTestsConfiguration where - toJSON ImageBuilderImagePipelineImageTestsConfiguration{..} = - object $ - catMaybes - [ fmap (("ImageTestsEnabled",) . toJSON) _imageBuilderImagePipelineImageTestsConfigurationImageTestsEnabled - , fmap (("TimeoutMinutes",) . toJSON) _imageBuilderImagePipelineImageTestsConfigurationTimeoutMinutes - ] - --- | Constructor for 'ImageBuilderImagePipelineImageTestsConfiguration' --- containing required fields as arguments. -imageBuilderImagePipelineImageTestsConfiguration - :: ImageBuilderImagePipelineImageTestsConfiguration -imageBuilderImagePipelineImageTestsConfiguration = - ImageBuilderImagePipelineImageTestsConfiguration - { _imageBuilderImagePipelineImageTestsConfigurationImageTestsEnabled = Nothing - , _imageBuilderImagePipelineImageTestsConfigurationTimeoutMinutes = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagepipeline-imagetestsconfiguration.html#cfn-imagebuilder-imagepipeline-imagetestsconfiguration-imagetestsenabled -ibipitcImageTestsEnabled :: Lens' ImageBuilderImagePipelineImageTestsConfiguration (Maybe (Val Bool)) -ibipitcImageTestsEnabled = lens _imageBuilderImagePipelineImageTestsConfigurationImageTestsEnabled (\s a -> s { _imageBuilderImagePipelineImageTestsConfigurationImageTestsEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagepipeline-imagetestsconfiguration.html#cfn-imagebuilder-imagepipeline-imagetestsconfiguration-timeoutminutes -ibipitcTimeoutMinutes :: Lens' ImageBuilderImagePipelineImageTestsConfiguration (Maybe (Val Integer)) -ibipitcTimeoutMinutes = lens _imageBuilderImagePipelineImageTestsConfigurationTimeoutMinutes (\s a -> s { _imageBuilderImagePipelineImageTestsConfigurationTimeoutMinutes = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ImageBuilderImagePipelineSchedule.hs b/library-gen/Stratosphere/ResourceProperties/ImageBuilderImagePipelineSchedule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ImageBuilderImagePipelineSchedule.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagepipeline-schedule.html - -module Stratosphere.ResourceProperties.ImageBuilderImagePipelineSchedule where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ImageBuilderImagePipelineSchedule. See --- 'imageBuilderImagePipelineSchedule' for a more convenient constructor. -data ImageBuilderImagePipelineSchedule = - ImageBuilderImagePipelineSchedule - { _imageBuilderImagePipelineSchedulePipelineExecutionStartCondition :: Maybe (Val Text) - , _imageBuilderImagePipelineScheduleScheduleExpression :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ImageBuilderImagePipelineSchedule where - toJSON ImageBuilderImagePipelineSchedule{..} = - object $ - catMaybes - [ fmap (("PipelineExecutionStartCondition",) . toJSON) _imageBuilderImagePipelineSchedulePipelineExecutionStartCondition - , fmap (("ScheduleExpression",) . toJSON) _imageBuilderImagePipelineScheduleScheduleExpression - ] - --- | Constructor for 'ImageBuilderImagePipelineSchedule' containing required --- fields as arguments. -imageBuilderImagePipelineSchedule - :: ImageBuilderImagePipelineSchedule -imageBuilderImagePipelineSchedule = - ImageBuilderImagePipelineSchedule - { _imageBuilderImagePipelineSchedulePipelineExecutionStartCondition = Nothing - , _imageBuilderImagePipelineScheduleScheduleExpression = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagepipeline-schedule.html#cfn-imagebuilder-imagepipeline-schedule-pipelineexecutionstartcondition -ibipsPipelineExecutionStartCondition :: Lens' ImageBuilderImagePipelineSchedule (Maybe (Val Text)) -ibipsPipelineExecutionStartCondition = lens _imageBuilderImagePipelineSchedulePipelineExecutionStartCondition (\s a -> s { _imageBuilderImagePipelineSchedulePipelineExecutionStartCondition = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagepipeline-schedule.html#cfn-imagebuilder-imagepipeline-schedule-scheduleexpression -ibipsScheduleExpression :: Lens' ImageBuilderImagePipelineSchedule (Maybe (Val Text)) -ibipsScheduleExpression = lens _imageBuilderImagePipelineScheduleScheduleExpression (\s a -> s { _imageBuilderImagePipelineScheduleScheduleExpression = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ImageBuilderImageRecipeComponentConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ImageBuilderImageRecipeComponentConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ImageBuilderImageRecipeComponentConfiguration.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-componentconfiguration.html - -module Stratosphere.ResourceProperties.ImageBuilderImageRecipeComponentConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ImageBuilderImageRecipeComponentConfiguration. See --- 'imageBuilderImageRecipeComponentConfiguration' for a more convenient --- constructor. -data ImageBuilderImageRecipeComponentConfiguration = - ImageBuilderImageRecipeComponentConfiguration - { _imageBuilderImageRecipeComponentConfigurationComponentArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ImageBuilderImageRecipeComponentConfiguration where - toJSON ImageBuilderImageRecipeComponentConfiguration{..} = - object $ - catMaybes - [ fmap (("ComponentArn",) . toJSON) _imageBuilderImageRecipeComponentConfigurationComponentArn - ] - --- | Constructor for 'ImageBuilderImageRecipeComponentConfiguration' --- containing required fields as arguments. -imageBuilderImageRecipeComponentConfiguration - :: ImageBuilderImageRecipeComponentConfiguration -imageBuilderImageRecipeComponentConfiguration = - ImageBuilderImageRecipeComponentConfiguration - { _imageBuilderImageRecipeComponentConfigurationComponentArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-componentconfiguration.html#cfn-imagebuilder-imagerecipe-componentconfiguration-componentarn -ibirccComponentArn :: Lens' ImageBuilderImageRecipeComponentConfiguration (Maybe (Val Text)) -ibirccComponentArn = lens _imageBuilderImageRecipeComponentConfigurationComponentArn (\s a -> s { _imageBuilderImageRecipeComponentConfigurationComponentArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification.hs b/library-gen/Stratosphere/ResourceProperties/ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification.hs +++ /dev/null @@ -1,83 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification.html - -module Stratosphere.ResourceProperties.ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification. See --- 'imageBuilderImageRecipeEbsInstanceBlockDeviceSpecification' for a more --- convenient constructor. -data ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification = - ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification - { _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationDeleteOnTermination :: Maybe (Val Bool) - , _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationEncrypted :: Maybe (Val Bool) - , _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationIops :: Maybe (Val Integer) - , _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationKmsKeyId :: Maybe (Val Text) - , _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationSnapshotId :: Maybe (Val Text) - , _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationVolumeSize :: Maybe (Val Integer) - , _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationVolumeType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification where - toJSON ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification{..} = - object $ - catMaybes - [ fmap (("DeleteOnTermination",) . toJSON) _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationDeleteOnTermination - , fmap (("Encrypted",) . toJSON) _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationEncrypted - , fmap (("Iops",) . toJSON) _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationIops - , fmap (("KmsKeyId",) . toJSON) _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationKmsKeyId - , fmap (("SnapshotId",) . toJSON) _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationSnapshotId - , fmap (("VolumeSize",) . toJSON) _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationVolumeSize - , fmap (("VolumeType",) . toJSON) _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationVolumeType - ] - --- | Constructor for --- 'ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification' containing --- required fields as arguments. -imageBuilderImageRecipeEbsInstanceBlockDeviceSpecification - :: ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification -imageBuilderImageRecipeEbsInstanceBlockDeviceSpecification = - ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification - { _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationDeleteOnTermination = Nothing - , _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationEncrypted = Nothing - , _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationIops = Nothing - , _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationKmsKeyId = Nothing - , _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationSnapshotId = Nothing - , _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationVolumeSize = Nothing - , _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationVolumeType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification.html#cfn-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification-deleteontermination -ibireibdsDeleteOnTermination :: Lens' ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification (Maybe (Val Bool)) -ibireibdsDeleteOnTermination = lens _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationDeleteOnTermination (\s a -> s { _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationDeleteOnTermination = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification.html#cfn-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification-encrypted -ibireibdsEncrypted :: Lens' ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification (Maybe (Val Bool)) -ibireibdsEncrypted = lens _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationEncrypted (\s a -> s { _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationEncrypted = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification.html#cfn-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification-iops -ibireibdsIops :: Lens' ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification (Maybe (Val Integer)) -ibireibdsIops = lens _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationIops (\s a -> s { _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationIops = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification.html#cfn-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification-kmskeyid -ibireibdsKmsKeyId :: Lens' ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification (Maybe (Val Text)) -ibireibdsKmsKeyId = lens _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationKmsKeyId (\s a -> s { _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationKmsKeyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification.html#cfn-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification-snapshotid -ibireibdsSnapshotId :: Lens' ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification (Maybe (Val Text)) -ibireibdsSnapshotId = lens _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationSnapshotId (\s a -> s { _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationSnapshotId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification.html#cfn-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification-volumesize -ibireibdsVolumeSize :: Lens' ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification (Maybe (Val Integer)) -ibireibdsVolumeSize = lens _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationVolumeSize (\s a -> s { _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationVolumeSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification.html#cfn-imagebuilder-imagerecipe-ebsinstanceblockdevicespecification-volumetype -ibireibdsVolumeType :: Lens' ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification (Maybe (Val Text)) -ibireibdsVolumeType = lens _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationVolumeType (\s a -> s { _imageBuilderImageRecipeEbsInstanceBlockDeviceSpecificationVolumeType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ImageBuilderImageRecipeInstanceBlockDeviceMapping.hs b/library-gen/Stratosphere/ResourceProperties/ImageBuilderImageRecipeInstanceBlockDeviceMapping.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ImageBuilderImageRecipeInstanceBlockDeviceMapping.hs +++ /dev/null @@ -1,61 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-instanceblockdevicemapping.html - -module Stratosphere.ResourceProperties.ImageBuilderImageRecipeInstanceBlockDeviceMapping where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification - --- | Full data type definition for --- ImageBuilderImageRecipeInstanceBlockDeviceMapping. See --- 'imageBuilderImageRecipeInstanceBlockDeviceMapping' for a more convenient --- constructor. -data ImageBuilderImageRecipeInstanceBlockDeviceMapping = - ImageBuilderImageRecipeInstanceBlockDeviceMapping - { _imageBuilderImageRecipeInstanceBlockDeviceMappingDeviceName :: Maybe (Val Text) - , _imageBuilderImageRecipeInstanceBlockDeviceMappingEbs :: Maybe ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification - , _imageBuilderImageRecipeInstanceBlockDeviceMappingNoDevice :: Maybe (Val Text) - , _imageBuilderImageRecipeInstanceBlockDeviceMappingVirtualName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ImageBuilderImageRecipeInstanceBlockDeviceMapping where - toJSON ImageBuilderImageRecipeInstanceBlockDeviceMapping{..} = - object $ - catMaybes - [ fmap (("DeviceName",) . toJSON) _imageBuilderImageRecipeInstanceBlockDeviceMappingDeviceName - , fmap (("Ebs",) . toJSON) _imageBuilderImageRecipeInstanceBlockDeviceMappingEbs - , fmap (("NoDevice",) . toJSON) _imageBuilderImageRecipeInstanceBlockDeviceMappingNoDevice - , fmap (("VirtualName",) . toJSON) _imageBuilderImageRecipeInstanceBlockDeviceMappingVirtualName - ] - --- | Constructor for 'ImageBuilderImageRecipeInstanceBlockDeviceMapping' --- containing required fields as arguments. -imageBuilderImageRecipeInstanceBlockDeviceMapping - :: ImageBuilderImageRecipeInstanceBlockDeviceMapping -imageBuilderImageRecipeInstanceBlockDeviceMapping = - ImageBuilderImageRecipeInstanceBlockDeviceMapping - { _imageBuilderImageRecipeInstanceBlockDeviceMappingDeviceName = Nothing - , _imageBuilderImageRecipeInstanceBlockDeviceMappingEbs = Nothing - , _imageBuilderImageRecipeInstanceBlockDeviceMappingNoDevice = Nothing - , _imageBuilderImageRecipeInstanceBlockDeviceMappingVirtualName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-instanceblockdevicemapping.html#cfn-imagebuilder-imagerecipe-instanceblockdevicemapping-devicename -ibiribdmDeviceName :: Lens' ImageBuilderImageRecipeInstanceBlockDeviceMapping (Maybe (Val Text)) -ibiribdmDeviceName = lens _imageBuilderImageRecipeInstanceBlockDeviceMappingDeviceName (\s a -> s { _imageBuilderImageRecipeInstanceBlockDeviceMappingDeviceName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-instanceblockdevicemapping.html#cfn-imagebuilder-imagerecipe-instanceblockdevicemapping-ebs -ibiribdmEbs :: Lens' ImageBuilderImageRecipeInstanceBlockDeviceMapping (Maybe ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification) -ibiribdmEbs = lens _imageBuilderImageRecipeInstanceBlockDeviceMappingEbs (\s a -> s { _imageBuilderImageRecipeInstanceBlockDeviceMappingEbs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-instanceblockdevicemapping.html#cfn-imagebuilder-imagerecipe-instanceblockdevicemapping-nodevice -ibiribdmNoDevice :: Lens' ImageBuilderImageRecipeInstanceBlockDeviceMapping (Maybe (Val Text)) -ibiribdmNoDevice = lens _imageBuilderImageRecipeInstanceBlockDeviceMappingNoDevice (\s a -> s { _imageBuilderImageRecipeInstanceBlockDeviceMappingNoDevice = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-imagerecipe-instanceblockdevicemapping.html#cfn-imagebuilder-imagerecipe-instanceblockdevicemapping-virtualname -ibiribdmVirtualName :: Lens' ImageBuilderImageRecipeInstanceBlockDeviceMapping (Maybe (Val Text)) -ibiribdmVirtualName = lens _imageBuilderImageRecipeInstanceBlockDeviceMappingVirtualName (\s a -> s { _imageBuilderImageRecipeInstanceBlockDeviceMappingVirtualName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ImageBuilderInfrastructureConfigurationLogging.hs b/library-gen/Stratosphere/ResourceProperties/ImageBuilderInfrastructureConfigurationLogging.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ImageBuilderInfrastructureConfigurationLogging.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-infrastructureconfiguration-logging.html - -module Stratosphere.ResourceProperties.ImageBuilderInfrastructureConfigurationLogging where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ImageBuilderInfrastructureConfigurationS3Logs - --- | Full data type definition for --- ImageBuilderInfrastructureConfigurationLogging. See --- 'imageBuilderInfrastructureConfigurationLogging' for a more convenient --- constructor. -data ImageBuilderInfrastructureConfigurationLogging = - ImageBuilderInfrastructureConfigurationLogging - { _imageBuilderInfrastructureConfigurationLoggingS3Logs :: Maybe ImageBuilderInfrastructureConfigurationS3Logs - } deriving (Show, Eq) - -instance ToJSON ImageBuilderInfrastructureConfigurationLogging where - toJSON ImageBuilderInfrastructureConfigurationLogging{..} = - object $ - catMaybes - [ fmap (("S3Logs",) . toJSON) _imageBuilderInfrastructureConfigurationLoggingS3Logs - ] - --- | Constructor for 'ImageBuilderInfrastructureConfigurationLogging' --- containing required fields as arguments. -imageBuilderInfrastructureConfigurationLogging - :: ImageBuilderInfrastructureConfigurationLogging -imageBuilderInfrastructureConfigurationLogging = - ImageBuilderInfrastructureConfigurationLogging - { _imageBuilderInfrastructureConfigurationLoggingS3Logs = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-infrastructureconfiguration-logging.html#cfn-imagebuilder-infrastructureconfiguration-logging-s3logs -ibiclS3Logs :: Lens' ImageBuilderInfrastructureConfigurationLogging (Maybe ImageBuilderInfrastructureConfigurationS3Logs) -ibiclS3Logs = lens _imageBuilderInfrastructureConfigurationLoggingS3Logs (\s a -> s { _imageBuilderInfrastructureConfigurationLoggingS3Logs = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ImageBuilderInfrastructureConfigurationS3Logs.hs b/library-gen/Stratosphere/ResourceProperties/ImageBuilderInfrastructureConfigurationS3Logs.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ImageBuilderInfrastructureConfigurationS3Logs.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-infrastructureconfiguration-s3logs.html - -module Stratosphere.ResourceProperties.ImageBuilderInfrastructureConfigurationS3Logs where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ImageBuilderInfrastructureConfigurationS3Logs. See --- 'imageBuilderInfrastructureConfigurationS3Logs' for a more convenient --- constructor. -data ImageBuilderInfrastructureConfigurationS3Logs = - ImageBuilderInfrastructureConfigurationS3Logs - { _imageBuilderInfrastructureConfigurationS3LogsS3BucketName :: Maybe (Val Text) - , _imageBuilderInfrastructureConfigurationS3LogsS3KeyPrefix :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ImageBuilderInfrastructureConfigurationS3Logs where - toJSON ImageBuilderInfrastructureConfigurationS3Logs{..} = - object $ - catMaybes - [ fmap (("S3BucketName",) . toJSON) _imageBuilderInfrastructureConfigurationS3LogsS3BucketName - , fmap (("S3KeyPrefix",) . toJSON) _imageBuilderInfrastructureConfigurationS3LogsS3KeyPrefix - ] - --- | Constructor for 'ImageBuilderInfrastructureConfigurationS3Logs' --- containing required fields as arguments. -imageBuilderInfrastructureConfigurationS3Logs - :: ImageBuilderInfrastructureConfigurationS3Logs -imageBuilderInfrastructureConfigurationS3Logs = - ImageBuilderInfrastructureConfigurationS3Logs - { _imageBuilderInfrastructureConfigurationS3LogsS3BucketName = Nothing - , _imageBuilderInfrastructureConfigurationS3LogsS3KeyPrefix = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-infrastructureconfiguration-s3logs.html#cfn-imagebuilder-infrastructureconfiguration-s3logs-s3bucketname -ibicslS3BucketName :: Lens' ImageBuilderInfrastructureConfigurationS3Logs (Maybe (Val Text)) -ibicslS3BucketName = lens _imageBuilderInfrastructureConfigurationS3LogsS3BucketName (\s a -> s { _imageBuilderInfrastructureConfigurationS3LogsS3BucketName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-imagebuilder-infrastructureconfiguration-s3logs.html#cfn-imagebuilder-infrastructureconfiguration-s3logs-s3keyprefix -ibicslS3KeyPrefix :: Lens' ImageBuilderInfrastructureConfigurationS3Logs (Maybe (Val Text)) -ibicslS3KeyPrefix = lens _imageBuilderInfrastructureConfigurationS3LogsS3KeyPrefix (\s a -> s { _imageBuilderInfrastructureConfigurationS3LogsS3KeyPrefix = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoT1ClickProjectDeviceTemplate.hs b/library-gen/Stratosphere/ResourceProperties/IoT1ClickProjectDeviceTemplate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoT1ClickProjectDeviceTemplate.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot1click-project-devicetemplate.html - -module Stratosphere.ResourceProperties.IoT1ClickProjectDeviceTemplate where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoT1ClickProjectDeviceTemplate. See --- 'ioT1ClickProjectDeviceTemplate' for a more convenient constructor. -data IoT1ClickProjectDeviceTemplate = - IoT1ClickProjectDeviceTemplate - { _ioT1ClickProjectDeviceTemplateCallbackOverrides :: Maybe Object - , _ioT1ClickProjectDeviceTemplateDeviceType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoT1ClickProjectDeviceTemplate where - toJSON IoT1ClickProjectDeviceTemplate{..} = - object $ - catMaybes - [ fmap (("CallbackOverrides",) . toJSON) _ioT1ClickProjectDeviceTemplateCallbackOverrides - , fmap (("DeviceType",) . toJSON) _ioT1ClickProjectDeviceTemplateDeviceType - ] - --- | Constructor for 'IoT1ClickProjectDeviceTemplate' containing required --- fields as arguments. -ioT1ClickProjectDeviceTemplate - :: IoT1ClickProjectDeviceTemplate -ioT1ClickProjectDeviceTemplate = - IoT1ClickProjectDeviceTemplate - { _ioT1ClickProjectDeviceTemplateCallbackOverrides = Nothing - , _ioT1ClickProjectDeviceTemplateDeviceType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot1click-project-devicetemplate.html#cfn-iot1click-project-devicetemplate-callbackoverrides -itcpdtCallbackOverrides :: Lens' IoT1ClickProjectDeviceTemplate (Maybe Object) -itcpdtCallbackOverrides = lens _ioT1ClickProjectDeviceTemplateCallbackOverrides (\s a -> s { _ioT1ClickProjectDeviceTemplateCallbackOverrides = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot1click-project-devicetemplate.html#cfn-iot1click-project-devicetemplate-devicetype -itcpdtDeviceType :: Lens' IoT1ClickProjectDeviceTemplate (Maybe (Val Text)) -itcpdtDeviceType = lens _ioT1ClickProjectDeviceTemplateDeviceType (\s a -> s { _ioT1ClickProjectDeviceTemplateDeviceType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoT1ClickProjectPlacementTemplate.hs b/library-gen/Stratosphere/ResourceProperties/IoT1ClickProjectPlacementTemplate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoT1ClickProjectPlacementTemplate.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot1click-project-placementtemplate.html - -module Stratosphere.ResourceProperties.IoT1ClickProjectPlacementTemplate where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoT1ClickProjectPlacementTemplate. See --- 'ioT1ClickProjectPlacementTemplate' for a more convenient constructor. -data IoT1ClickProjectPlacementTemplate = - IoT1ClickProjectPlacementTemplate - { _ioT1ClickProjectPlacementTemplateDefaultAttributes :: Maybe Object - , _ioT1ClickProjectPlacementTemplateDeviceTemplates :: Maybe Object - } deriving (Show, Eq) - -instance ToJSON IoT1ClickProjectPlacementTemplate where - toJSON IoT1ClickProjectPlacementTemplate{..} = - object $ - catMaybes - [ fmap (("DefaultAttributes",) . toJSON) _ioT1ClickProjectPlacementTemplateDefaultAttributes - , fmap (("DeviceTemplates",) . toJSON) _ioT1ClickProjectPlacementTemplateDeviceTemplates - ] - --- | Constructor for 'IoT1ClickProjectPlacementTemplate' containing required --- fields as arguments. -ioT1ClickProjectPlacementTemplate - :: IoT1ClickProjectPlacementTemplate -ioT1ClickProjectPlacementTemplate = - IoT1ClickProjectPlacementTemplate - { _ioT1ClickProjectPlacementTemplateDefaultAttributes = Nothing - , _ioT1ClickProjectPlacementTemplateDeviceTemplates = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot1click-project-placementtemplate.html#cfn-iot1click-project-placementtemplate-defaultattributes -itcpptDefaultAttributes :: Lens' IoT1ClickProjectPlacementTemplate (Maybe Object) -itcpptDefaultAttributes = lens _ioT1ClickProjectPlacementTemplateDefaultAttributes (\s a -> s { _ioT1ClickProjectPlacementTemplateDefaultAttributes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot1click-project-placementtemplate.html#cfn-iot1click-project-placementtemplate-devicetemplates -itcpptDeviceTemplates :: Lens' IoT1ClickProjectPlacementTemplate (Maybe Object) -itcpptDeviceTemplates = lens _ioT1ClickProjectPlacementTemplateDeviceTemplates (\s a -> s { _ioT1ClickProjectPlacementTemplateDeviceTemplates = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsChannelChannelStorage.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsChannelChannelStorage.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsChannelChannelStorage.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-channel-channelstorage.html - -module Stratosphere.ResourceProperties.IoTAnalyticsChannelChannelStorage where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTAnalyticsChannelCustomerManagedS3 -import Stratosphere.ResourceProperties.IoTAnalyticsChannelServiceManagedS3 - --- | Full data type definition for IoTAnalyticsChannelChannelStorage. See --- 'ioTAnalyticsChannelChannelStorage' for a more convenient constructor. -data IoTAnalyticsChannelChannelStorage = - IoTAnalyticsChannelChannelStorage - { _ioTAnalyticsChannelChannelStorageCustomerManagedS3 :: Maybe IoTAnalyticsChannelCustomerManagedS3 - , _ioTAnalyticsChannelChannelStorageServiceManagedS3 :: Maybe IoTAnalyticsChannelServiceManagedS3 - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsChannelChannelStorage where - toJSON IoTAnalyticsChannelChannelStorage{..} = - object $ - catMaybes - [ fmap (("CustomerManagedS3",) . toJSON) _ioTAnalyticsChannelChannelStorageCustomerManagedS3 - , fmap (("ServiceManagedS3",) . toJSON) _ioTAnalyticsChannelChannelStorageServiceManagedS3 - ] - --- | Constructor for 'IoTAnalyticsChannelChannelStorage' containing required --- fields as arguments. -ioTAnalyticsChannelChannelStorage - :: IoTAnalyticsChannelChannelStorage -ioTAnalyticsChannelChannelStorage = - IoTAnalyticsChannelChannelStorage - { _ioTAnalyticsChannelChannelStorageCustomerManagedS3 = Nothing - , _ioTAnalyticsChannelChannelStorageServiceManagedS3 = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-channel-channelstorage.html#cfn-iotanalytics-channel-channelstorage-customermanageds3 -itaccsCustomerManagedS3 :: Lens' IoTAnalyticsChannelChannelStorage (Maybe IoTAnalyticsChannelCustomerManagedS3) -itaccsCustomerManagedS3 = lens _ioTAnalyticsChannelChannelStorageCustomerManagedS3 (\s a -> s { _ioTAnalyticsChannelChannelStorageCustomerManagedS3 = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-channel-channelstorage.html#cfn-iotanalytics-channel-channelstorage-servicemanageds3 -itaccsServiceManagedS3 :: Lens' IoTAnalyticsChannelChannelStorage (Maybe IoTAnalyticsChannelServiceManagedS3) -itaccsServiceManagedS3 = lens _ioTAnalyticsChannelChannelStorageServiceManagedS3 (\s a -> s { _ioTAnalyticsChannelChannelStorageServiceManagedS3 = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsChannelCustomerManagedS3.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsChannelCustomerManagedS3.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsChannelCustomerManagedS3.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-channel-customermanageds3.html - -module Stratosphere.ResourceProperties.IoTAnalyticsChannelCustomerManagedS3 where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTAnalyticsChannelCustomerManagedS3. See --- 'ioTAnalyticsChannelCustomerManagedS3' for a more convenient constructor. -data IoTAnalyticsChannelCustomerManagedS3 = - IoTAnalyticsChannelCustomerManagedS3 - { _ioTAnalyticsChannelCustomerManagedS3Bucket :: Val Text - , _ioTAnalyticsChannelCustomerManagedS3KeyPrefix :: Maybe (Val Text) - , _ioTAnalyticsChannelCustomerManagedS3RoleArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsChannelCustomerManagedS3 where - toJSON IoTAnalyticsChannelCustomerManagedS3{..} = - object $ - catMaybes - [ (Just . ("Bucket",) . toJSON) _ioTAnalyticsChannelCustomerManagedS3Bucket - , fmap (("KeyPrefix",) . toJSON) _ioTAnalyticsChannelCustomerManagedS3KeyPrefix - , (Just . ("RoleArn",) . toJSON) _ioTAnalyticsChannelCustomerManagedS3RoleArn - ] - --- | Constructor for 'IoTAnalyticsChannelCustomerManagedS3' containing --- required fields as arguments. -ioTAnalyticsChannelCustomerManagedS3 - :: Val Text -- ^ 'itaccmsBucket' - -> Val Text -- ^ 'itaccmsRoleArn' - -> IoTAnalyticsChannelCustomerManagedS3 -ioTAnalyticsChannelCustomerManagedS3 bucketarg roleArnarg = - IoTAnalyticsChannelCustomerManagedS3 - { _ioTAnalyticsChannelCustomerManagedS3Bucket = bucketarg - , _ioTAnalyticsChannelCustomerManagedS3KeyPrefix = Nothing - , _ioTAnalyticsChannelCustomerManagedS3RoleArn = roleArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-channel-customermanageds3.html#cfn-iotanalytics-channel-customermanageds3-bucket -itaccmsBucket :: Lens' IoTAnalyticsChannelCustomerManagedS3 (Val Text) -itaccmsBucket = lens _ioTAnalyticsChannelCustomerManagedS3Bucket (\s a -> s { _ioTAnalyticsChannelCustomerManagedS3Bucket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-channel-customermanageds3.html#cfn-iotanalytics-channel-customermanageds3-keyprefix -itaccmsKeyPrefix :: Lens' IoTAnalyticsChannelCustomerManagedS3 (Maybe (Val Text)) -itaccmsKeyPrefix = lens _ioTAnalyticsChannelCustomerManagedS3KeyPrefix (\s a -> s { _ioTAnalyticsChannelCustomerManagedS3KeyPrefix = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-channel-customermanageds3.html#cfn-iotanalytics-channel-customermanageds3-rolearn -itaccmsRoleArn :: Lens' IoTAnalyticsChannelCustomerManagedS3 (Val Text) -itaccmsRoleArn = lens _ioTAnalyticsChannelCustomerManagedS3RoleArn (\s a -> s { _ioTAnalyticsChannelCustomerManagedS3RoleArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsChannelRetentionPeriod.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsChannelRetentionPeriod.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsChannelRetentionPeriod.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-channel-retentionperiod.html - -module Stratosphere.ResourceProperties.IoTAnalyticsChannelRetentionPeriod where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTAnalyticsChannelRetentionPeriod. See --- 'ioTAnalyticsChannelRetentionPeriod' for a more convenient constructor. -data IoTAnalyticsChannelRetentionPeriod = - IoTAnalyticsChannelRetentionPeriod - { _ioTAnalyticsChannelRetentionPeriodNumberOfDays :: Maybe (Val Integer) - , _ioTAnalyticsChannelRetentionPeriodUnlimited :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsChannelRetentionPeriod where - toJSON IoTAnalyticsChannelRetentionPeriod{..} = - object $ - catMaybes - [ fmap (("NumberOfDays",) . toJSON) _ioTAnalyticsChannelRetentionPeriodNumberOfDays - , fmap (("Unlimited",) . toJSON) _ioTAnalyticsChannelRetentionPeriodUnlimited - ] - --- | Constructor for 'IoTAnalyticsChannelRetentionPeriod' containing required --- fields as arguments. -ioTAnalyticsChannelRetentionPeriod - :: IoTAnalyticsChannelRetentionPeriod -ioTAnalyticsChannelRetentionPeriod = - IoTAnalyticsChannelRetentionPeriod - { _ioTAnalyticsChannelRetentionPeriodNumberOfDays = Nothing - , _ioTAnalyticsChannelRetentionPeriodUnlimited = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-channel-retentionperiod.html#cfn-iotanalytics-channel-retentionperiod-numberofdays -itacrpNumberOfDays :: Lens' IoTAnalyticsChannelRetentionPeriod (Maybe (Val Integer)) -itacrpNumberOfDays = lens _ioTAnalyticsChannelRetentionPeriodNumberOfDays (\s a -> s { _ioTAnalyticsChannelRetentionPeriodNumberOfDays = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-channel-retentionperiod.html#cfn-iotanalytics-channel-retentionperiod-unlimited -itacrpUnlimited :: Lens' IoTAnalyticsChannelRetentionPeriod (Maybe (Val Bool)) -itacrpUnlimited = lens _ioTAnalyticsChannelRetentionPeriodUnlimited (\s a -> s { _ioTAnalyticsChannelRetentionPeriodUnlimited = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsChannelServiceManagedS3.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsChannelServiceManagedS3.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsChannelServiceManagedS3.hs +++ /dev/null @@ -1,32 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-channel-servicemanageds3.html - -module Stratosphere.ResourceProperties.IoTAnalyticsChannelServiceManagedS3 where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTAnalyticsChannelServiceManagedS3. See --- 'ioTAnalyticsChannelServiceManagedS3' for a more convenient constructor. -data IoTAnalyticsChannelServiceManagedS3 = - IoTAnalyticsChannelServiceManagedS3 - { - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsChannelServiceManagedS3 where - toJSON _ = toJSON ([] :: [String]) - --- | Constructor for 'IoTAnalyticsChannelServiceManagedS3' containing required --- fields as arguments. -ioTAnalyticsChannelServiceManagedS3 - :: IoTAnalyticsChannelServiceManagedS3 -ioTAnalyticsChannelServiceManagedS3 = - IoTAnalyticsChannelServiceManagedS3 - { - } - - diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetAction.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetAction.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-action.html - -module Stratosphere.ResourceProperties.IoTAnalyticsDatasetAction where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetContainerAction -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetQueryAction - --- | Full data type definition for IoTAnalyticsDatasetAction. See --- 'ioTAnalyticsDatasetAction' for a more convenient constructor. -data IoTAnalyticsDatasetAction = - IoTAnalyticsDatasetAction - { _ioTAnalyticsDatasetActionActionName :: Val Text - , _ioTAnalyticsDatasetActionContainerAction :: Maybe IoTAnalyticsDatasetContainerAction - , _ioTAnalyticsDatasetActionQueryAction :: Maybe IoTAnalyticsDatasetQueryAction - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsDatasetAction where - toJSON IoTAnalyticsDatasetAction{..} = - object $ - catMaybes - [ (Just . ("ActionName",) . toJSON) _ioTAnalyticsDatasetActionActionName - , fmap (("ContainerAction",) . toJSON) _ioTAnalyticsDatasetActionContainerAction - , fmap (("QueryAction",) . toJSON) _ioTAnalyticsDatasetActionQueryAction - ] - --- | Constructor for 'IoTAnalyticsDatasetAction' containing required fields as --- arguments. -ioTAnalyticsDatasetAction - :: Val Text -- ^ 'itadaActionName' - -> IoTAnalyticsDatasetAction -ioTAnalyticsDatasetAction actionNamearg = - IoTAnalyticsDatasetAction - { _ioTAnalyticsDatasetActionActionName = actionNamearg - , _ioTAnalyticsDatasetActionContainerAction = Nothing - , _ioTAnalyticsDatasetActionQueryAction = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-action.html#cfn-iotanalytics-dataset-action-actionname -itadaActionName :: Lens' IoTAnalyticsDatasetAction (Val Text) -itadaActionName = lens _ioTAnalyticsDatasetActionActionName (\s a -> s { _ioTAnalyticsDatasetActionActionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-action.html#cfn-iotanalytics-dataset-action-containeraction -itadaContainerAction :: Lens' IoTAnalyticsDatasetAction (Maybe IoTAnalyticsDatasetContainerAction) -itadaContainerAction = lens _ioTAnalyticsDatasetActionContainerAction (\s a -> s { _ioTAnalyticsDatasetActionContainerAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-action.html#cfn-iotanalytics-dataset-action-queryaction -itadaQueryAction :: Lens' IoTAnalyticsDatasetAction (Maybe IoTAnalyticsDatasetQueryAction) -itadaQueryAction = lens _ioTAnalyticsDatasetActionQueryAction (\s a -> s { _ioTAnalyticsDatasetActionQueryAction = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetContainerAction.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetContainerAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetContainerAction.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-containeraction.html - -module Stratosphere.ResourceProperties.IoTAnalyticsDatasetContainerAction where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetResourceConfiguration -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetVariable - --- | Full data type definition for IoTAnalyticsDatasetContainerAction. See --- 'ioTAnalyticsDatasetContainerAction' for a more convenient constructor. -data IoTAnalyticsDatasetContainerAction = - IoTAnalyticsDatasetContainerAction - { _ioTAnalyticsDatasetContainerActionExecutionRoleArn :: Val Text - , _ioTAnalyticsDatasetContainerActionImage :: Val Text - , _ioTAnalyticsDatasetContainerActionResourceConfiguration :: IoTAnalyticsDatasetResourceConfiguration - , _ioTAnalyticsDatasetContainerActionVariables :: Maybe [IoTAnalyticsDatasetVariable] - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsDatasetContainerAction where - toJSON IoTAnalyticsDatasetContainerAction{..} = - object $ - catMaybes - [ (Just . ("ExecutionRoleArn",) . toJSON) _ioTAnalyticsDatasetContainerActionExecutionRoleArn - , (Just . ("Image",) . toJSON) _ioTAnalyticsDatasetContainerActionImage - , (Just . ("ResourceConfiguration",) . toJSON) _ioTAnalyticsDatasetContainerActionResourceConfiguration - , fmap (("Variables",) . toJSON) _ioTAnalyticsDatasetContainerActionVariables - ] - --- | Constructor for 'IoTAnalyticsDatasetContainerAction' containing required --- fields as arguments. -ioTAnalyticsDatasetContainerAction - :: Val Text -- ^ 'itadcaExecutionRoleArn' - -> Val Text -- ^ 'itadcaImage' - -> IoTAnalyticsDatasetResourceConfiguration -- ^ 'itadcaResourceConfiguration' - -> IoTAnalyticsDatasetContainerAction -ioTAnalyticsDatasetContainerAction executionRoleArnarg imagearg resourceConfigurationarg = - IoTAnalyticsDatasetContainerAction - { _ioTAnalyticsDatasetContainerActionExecutionRoleArn = executionRoleArnarg - , _ioTAnalyticsDatasetContainerActionImage = imagearg - , _ioTAnalyticsDatasetContainerActionResourceConfiguration = resourceConfigurationarg - , _ioTAnalyticsDatasetContainerActionVariables = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-containeraction.html#cfn-iotanalytics-dataset-containeraction-executionrolearn -itadcaExecutionRoleArn :: Lens' IoTAnalyticsDatasetContainerAction (Val Text) -itadcaExecutionRoleArn = lens _ioTAnalyticsDatasetContainerActionExecutionRoleArn (\s a -> s { _ioTAnalyticsDatasetContainerActionExecutionRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-containeraction.html#cfn-iotanalytics-dataset-containeraction-image -itadcaImage :: Lens' IoTAnalyticsDatasetContainerAction (Val Text) -itadcaImage = lens _ioTAnalyticsDatasetContainerActionImage (\s a -> s { _ioTAnalyticsDatasetContainerActionImage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-containeraction.html#cfn-iotanalytics-dataset-containeraction-resourceconfiguration -itadcaResourceConfiguration :: Lens' IoTAnalyticsDatasetContainerAction IoTAnalyticsDatasetResourceConfiguration -itadcaResourceConfiguration = lens _ioTAnalyticsDatasetContainerActionResourceConfiguration (\s a -> s { _ioTAnalyticsDatasetContainerActionResourceConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-containeraction.html#cfn-iotanalytics-dataset-containeraction-variables -itadcaVariables :: Lens' IoTAnalyticsDatasetContainerAction (Maybe [IoTAnalyticsDatasetVariable]) -itadcaVariables = lens _ioTAnalyticsDatasetContainerActionVariables (\s a -> s { _ioTAnalyticsDatasetContainerActionVariables = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetDatasetContentDeliveryRule.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetDatasetContentDeliveryRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetDatasetContentDeliveryRule.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-datasetcontentdeliveryrule.html - -module Stratosphere.ResourceProperties.IoTAnalyticsDatasetDatasetContentDeliveryRule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination - --- | Full data type definition for --- IoTAnalyticsDatasetDatasetContentDeliveryRule. See --- 'ioTAnalyticsDatasetDatasetContentDeliveryRule' for a more convenient --- constructor. -data IoTAnalyticsDatasetDatasetContentDeliveryRule = - IoTAnalyticsDatasetDatasetContentDeliveryRule - { _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestination :: IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination - , _ioTAnalyticsDatasetDatasetContentDeliveryRuleEntryName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsDatasetDatasetContentDeliveryRule where - toJSON IoTAnalyticsDatasetDatasetContentDeliveryRule{..} = - object $ - catMaybes - [ (Just . ("Destination",) . toJSON) _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestination - , fmap (("EntryName",) . toJSON) _ioTAnalyticsDatasetDatasetContentDeliveryRuleEntryName - ] - --- | Constructor for 'IoTAnalyticsDatasetDatasetContentDeliveryRule' --- containing required fields as arguments. -ioTAnalyticsDatasetDatasetContentDeliveryRule - :: IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination -- ^ 'itaddcdrDestination' - -> IoTAnalyticsDatasetDatasetContentDeliveryRule -ioTAnalyticsDatasetDatasetContentDeliveryRule destinationarg = - IoTAnalyticsDatasetDatasetContentDeliveryRule - { _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestination = destinationarg - , _ioTAnalyticsDatasetDatasetContentDeliveryRuleEntryName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-datasetcontentdeliveryrule.html#cfn-iotanalytics-dataset-datasetcontentdeliveryrule-destination -itaddcdrDestination :: Lens' IoTAnalyticsDatasetDatasetContentDeliveryRule IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination -itaddcdrDestination = lens _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestination (\s a -> s { _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestination = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-datasetcontentdeliveryrule.html#cfn-iotanalytics-dataset-datasetcontentdeliveryrule-entryname -itaddcdrEntryName :: Lens' IoTAnalyticsDatasetDatasetContentDeliveryRule (Maybe (Val Text)) -itaddcdrEntryName = lens _ioTAnalyticsDatasetDatasetContentDeliveryRuleEntryName (\s a -> s { _ioTAnalyticsDatasetDatasetContentDeliveryRuleEntryName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-datasetcontentdeliveryruledestination.html - -module Stratosphere.ResourceProperties.IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetIotEventsDestinationConfiguration -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetS3DestinationConfiguration - --- | Full data type definition for --- IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination. See --- 'ioTAnalyticsDatasetDatasetContentDeliveryRuleDestination' for a more --- convenient constructor. -data IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination = - IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination - { _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestinationIotEventsDestinationConfiguration :: Maybe IoTAnalyticsDatasetIotEventsDestinationConfiguration - , _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestinationS3DestinationConfiguration :: Maybe IoTAnalyticsDatasetS3DestinationConfiguration - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination where - toJSON IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination{..} = - object $ - catMaybes - [ fmap (("IotEventsDestinationConfiguration",) . toJSON) _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestinationIotEventsDestinationConfiguration - , fmap (("S3DestinationConfiguration",) . toJSON) _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestinationS3DestinationConfiguration - ] - --- | Constructor for --- 'IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination' containing --- required fields as arguments. -ioTAnalyticsDatasetDatasetContentDeliveryRuleDestination - :: IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination -ioTAnalyticsDatasetDatasetContentDeliveryRuleDestination = - IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination - { _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestinationIotEventsDestinationConfiguration = Nothing - , _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestinationS3DestinationConfiguration = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-datasetcontentdeliveryruledestination.html#cfn-iotanalytics-dataset-datasetcontentdeliveryruledestination-ioteventsdestinationconfiguration -itaddcdrdIotEventsDestinationConfiguration :: Lens' IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination (Maybe IoTAnalyticsDatasetIotEventsDestinationConfiguration) -itaddcdrdIotEventsDestinationConfiguration = lens _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestinationIotEventsDestinationConfiguration (\s a -> s { _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestinationIotEventsDestinationConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-datasetcontentdeliveryruledestination.html#cfn-iotanalytics-dataset-datasetcontentdeliveryruledestination-s3destinationconfiguration -itaddcdrdS3DestinationConfiguration :: Lens' IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination (Maybe IoTAnalyticsDatasetS3DestinationConfiguration) -itaddcdrdS3DestinationConfiguration = lens _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestinationS3DestinationConfiguration (\s a -> s { _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestinationS3DestinationConfiguration = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetDatasetContentVersionValue.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetDatasetContentVersionValue.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetDatasetContentVersionValue.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-variable-datasetcontentversionvalue.html - -module Stratosphere.ResourceProperties.IoTAnalyticsDatasetDatasetContentVersionValue where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- IoTAnalyticsDatasetDatasetContentVersionValue. See --- 'ioTAnalyticsDatasetDatasetContentVersionValue' for a more convenient --- constructor. -data IoTAnalyticsDatasetDatasetContentVersionValue = - IoTAnalyticsDatasetDatasetContentVersionValue - { _ioTAnalyticsDatasetDatasetContentVersionValueDatasetName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsDatasetDatasetContentVersionValue where - toJSON IoTAnalyticsDatasetDatasetContentVersionValue{..} = - object $ - catMaybes - [ fmap (("DatasetName",) . toJSON) _ioTAnalyticsDatasetDatasetContentVersionValueDatasetName - ] - --- | Constructor for 'IoTAnalyticsDatasetDatasetContentVersionValue' --- containing required fields as arguments. -ioTAnalyticsDatasetDatasetContentVersionValue - :: IoTAnalyticsDatasetDatasetContentVersionValue -ioTAnalyticsDatasetDatasetContentVersionValue = - IoTAnalyticsDatasetDatasetContentVersionValue - { _ioTAnalyticsDatasetDatasetContentVersionValueDatasetName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-variable-datasetcontentversionvalue.html#cfn-iotanalytics-dataset-variable-datasetcontentversionvalue-datasetname -itaddcvvDatasetName :: Lens' IoTAnalyticsDatasetDatasetContentVersionValue (Maybe (Val Text)) -itaddcvvDatasetName = lens _ioTAnalyticsDatasetDatasetContentVersionValueDatasetName (\s a -> s { _ioTAnalyticsDatasetDatasetContentVersionValueDatasetName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetDeltaTime.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetDeltaTime.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetDeltaTime.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-deltatime.html - -module Stratosphere.ResourceProperties.IoTAnalyticsDatasetDeltaTime where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTAnalyticsDatasetDeltaTime. See --- 'ioTAnalyticsDatasetDeltaTime' for a more convenient constructor. -data IoTAnalyticsDatasetDeltaTime = - IoTAnalyticsDatasetDeltaTime - { _ioTAnalyticsDatasetDeltaTimeOffsetSeconds :: Val Integer - , _ioTAnalyticsDatasetDeltaTimeTimeExpression :: Val Text - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsDatasetDeltaTime where - toJSON IoTAnalyticsDatasetDeltaTime{..} = - object $ - catMaybes - [ (Just . ("OffsetSeconds",) . toJSON) _ioTAnalyticsDatasetDeltaTimeOffsetSeconds - , (Just . ("TimeExpression",) . toJSON) _ioTAnalyticsDatasetDeltaTimeTimeExpression - ] - --- | Constructor for 'IoTAnalyticsDatasetDeltaTime' containing required fields --- as arguments. -ioTAnalyticsDatasetDeltaTime - :: Val Integer -- ^ 'itaddtOffsetSeconds' - -> Val Text -- ^ 'itaddtTimeExpression' - -> IoTAnalyticsDatasetDeltaTime -ioTAnalyticsDatasetDeltaTime offsetSecondsarg timeExpressionarg = - IoTAnalyticsDatasetDeltaTime - { _ioTAnalyticsDatasetDeltaTimeOffsetSeconds = offsetSecondsarg - , _ioTAnalyticsDatasetDeltaTimeTimeExpression = timeExpressionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-deltatime.html#cfn-iotanalytics-dataset-deltatime-offsetseconds -itaddtOffsetSeconds :: Lens' IoTAnalyticsDatasetDeltaTime (Val Integer) -itaddtOffsetSeconds = lens _ioTAnalyticsDatasetDeltaTimeOffsetSeconds (\s a -> s { _ioTAnalyticsDatasetDeltaTimeOffsetSeconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-deltatime.html#cfn-iotanalytics-dataset-deltatime-timeexpression -itaddtTimeExpression :: Lens' IoTAnalyticsDatasetDeltaTime (Val Text) -itaddtTimeExpression = lens _ioTAnalyticsDatasetDeltaTimeTimeExpression (\s a -> s { _ioTAnalyticsDatasetDeltaTimeTimeExpression = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetFilter.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetFilter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetFilter.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-filter.html - -module Stratosphere.ResourceProperties.IoTAnalyticsDatasetFilter where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetDeltaTime - --- | Full data type definition for IoTAnalyticsDatasetFilter. See --- 'ioTAnalyticsDatasetFilter' for a more convenient constructor. -data IoTAnalyticsDatasetFilter = - IoTAnalyticsDatasetFilter - { _ioTAnalyticsDatasetFilterDeltaTime :: Maybe IoTAnalyticsDatasetDeltaTime - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsDatasetFilter where - toJSON IoTAnalyticsDatasetFilter{..} = - object $ - catMaybes - [ fmap (("DeltaTime",) . toJSON) _ioTAnalyticsDatasetFilterDeltaTime - ] - --- | Constructor for 'IoTAnalyticsDatasetFilter' containing required fields as --- arguments. -ioTAnalyticsDatasetFilter - :: IoTAnalyticsDatasetFilter -ioTAnalyticsDatasetFilter = - IoTAnalyticsDatasetFilter - { _ioTAnalyticsDatasetFilterDeltaTime = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-filter.html#cfn-iotanalytics-dataset-filter-deltatime -itadfDeltaTime :: Lens' IoTAnalyticsDatasetFilter (Maybe IoTAnalyticsDatasetDeltaTime) -itadfDeltaTime = lens _ioTAnalyticsDatasetFilterDeltaTime (\s a -> s { _ioTAnalyticsDatasetFilterDeltaTime = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetGlueConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetGlueConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetGlueConfiguration.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-glueconfiguration.html - -module Stratosphere.ResourceProperties.IoTAnalyticsDatasetGlueConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTAnalyticsDatasetGlueConfiguration. See --- 'ioTAnalyticsDatasetGlueConfiguration' for a more convenient constructor. -data IoTAnalyticsDatasetGlueConfiguration = - IoTAnalyticsDatasetGlueConfiguration - { _ioTAnalyticsDatasetGlueConfigurationDatabaseName :: Val Text - , _ioTAnalyticsDatasetGlueConfigurationTableName :: Val Text - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsDatasetGlueConfiguration where - toJSON IoTAnalyticsDatasetGlueConfiguration{..} = - object $ - catMaybes - [ (Just . ("DatabaseName",) . toJSON) _ioTAnalyticsDatasetGlueConfigurationDatabaseName - , (Just . ("TableName",) . toJSON) _ioTAnalyticsDatasetGlueConfigurationTableName - ] - --- | Constructor for 'IoTAnalyticsDatasetGlueConfiguration' containing --- required fields as arguments. -ioTAnalyticsDatasetGlueConfiguration - :: Val Text -- ^ 'itadgcDatabaseName' - -> Val Text -- ^ 'itadgcTableName' - -> IoTAnalyticsDatasetGlueConfiguration -ioTAnalyticsDatasetGlueConfiguration databaseNamearg tableNamearg = - IoTAnalyticsDatasetGlueConfiguration - { _ioTAnalyticsDatasetGlueConfigurationDatabaseName = databaseNamearg - , _ioTAnalyticsDatasetGlueConfigurationTableName = tableNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-glueconfiguration.html#cfn-iotanalytics-dataset-glueconfiguration-databasename -itadgcDatabaseName :: Lens' IoTAnalyticsDatasetGlueConfiguration (Val Text) -itadgcDatabaseName = lens _ioTAnalyticsDatasetGlueConfigurationDatabaseName (\s a -> s { _ioTAnalyticsDatasetGlueConfigurationDatabaseName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-glueconfiguration.html#cfn-iotanalytics-dataset-glueconfiguration-tablename -itadgcTableName :: Lens' IoTAnalyticsDatasetGlueConfiguration (Val Text) -itadgcTableName = lens _ioTAnalyticsDatasetGlueConfigurationTableName (\s a -> s { _ioTAnalyticsDatasetGlueConfigurationTableName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetIotEventsDestinationConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetIotEventsDestinationConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetIotEventsDestinationConfiguration.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-ioteventsdestinationconfiguration.html - -module Stratosphere.ResourceProperties.IoTAnalyticsDatasetIotEventsDestinationConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- IoTAnalyticsDatasetIotEventsDestinationConfiguration. See --- 'ioTAnalyticsDatasetIotEventsDestinationConfiguration' for a more --- convenient constructor. -data IoTAnalyticsDatasetIotEventsDestinationConfiguration = - IoTAnalyticsDatasetIotEventsDestinationConfiguration - { _ioTAnalyticsDatasetIotEventsDestinationConfigurationInputName :: Val Text - , _ioTAnalyticsDatasetIotEventsDestinationConfigurationRoleArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsDatasetIotEventsDestinationConfiguration where - toJSON IoTAnalyticsDatasetIotEventsDestinationConfiguration{..} = - object $ - catMaybes - [ (Just . ("InputName",) . toJSON) _ioTAnalyticsDatasetIotEventsDestinationConfigurationInputName - , (Just . ("RoleArn",) . toJSON) _ioTAnalyticsDatasetIotEventsDestinationConfigurationRoleArn - ] - --- | Constructor for 'IoTAnalyticsDatasetIotEventsDestinationConfiguration' --- containing required fields as arguments. -ioTAnalyticsDatasetIotEventsDestinationConfiguration - :: Val Text -- ^ 'itadiedcInputName' - -> Val Text -- ^ 'itadiedcRoleArn' - -> IoTAnalyticsDatasetIotEventsDestinationConfiguration -ioTAnalyticsDatasetIotEventsDestinationConfiguration inputNamearg roleArnarg = - IoTAnalyticsDatasetIotEventsDestinationConfiguration - { _ioTAnalyticsDatasetIotEventsDestinationConfigurationInputName = inputNamearg - , _ioTAnalyticsDatasetIotEventsDestinationConfigurationRoleArn = roleArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-ioteventsdestinationconfiguration.html#cfn-iotanalytics-dataset-ioteventsdestinationconfiguration-inputname -itadiedcInputName :: Lens' IoTAnalyticsDatasetIotEventsDestinationConfiguration (Val Text) -itadiedcInputName = lens _ioTAnalyticsDatasetIotEventsDestinationConfigurationInputName (\s a -> s { _ioTAnalyticsDatasetIotEventsDestinationConfigurationInputName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-ioteventsdestinationconfiguration.html#cfn-iotanalytics-dataset-ioteventsdestinationconfiguration-rolearn -itadiedcRoleArn :: Lens' IoTAnalyticsDatasetIotEventsDestinationConfiguration (Val Text) -itadiedcRoleArn = lens _ioTAnalyticsDatasetIotEventsDestinationConfigurationRoleArn (\s a -> s { _ioTAnalyticsDatasetIotEventsDestinationConfigurationRoleArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetOutputFileUriValue.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetOutputFileUriValue.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetOutputFileUriValue.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-variable-outputfileurivalue.html - -module Stratosphere.ResourceProperties.IoTAnalyticsDatasetOutputFileUriValue where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTAnalyticsDatasetOutputFileUriValue. See --- 'ioTAnalyticsDatasetOutputFileUriValue' for a more convenient --- constructor. -data IoTAnalyticsDatasetOutputFileUriValue = - IoTAnalyticsDatasetOutputFileUriValue - { _ioTAnalyticsDatasetOutputFileUriValueFileName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsDatasetOutputFileUriValue where - toJSON IoTAnalyticsDatasetOutputFileUriValue{..} = - object $ - catMaybes - [ fmap (("FileName",) . toJSON) _ioTAnalyticsDatasetOutputFileUriValueFileName - ] - --- | Constructor for 'IoTAnalyticsDatasetOutputFileUriValue' containing --- required fields as arguments. -ioTAnalyticsDatasetOutputFileUriValue - :: IoTAnalyticsDatasetOutputFileUriValue -ioTAnalyticsDatasetOutputFileUriValue = - IoTAnalyticsDatasetOutputFileUriValue - { _ioTAnalyticsDatasetOutputFileUriValueFileName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-variable-outputfileurivalue.html#cfn-iotanalytics-dataset-variable-outputfileurivalue-filename -itadofuvFileName :: Lens' IoTAnalyticsDatasetOutputFileUriValue (Maybe (Val Text)) -itadofuvFileName = lens _ioTAnalyticsDatasetOutputFileUriValueFileName (\s a -> s { _ioTAnalyticsDatasetOutputFileUriValueFileName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetQueryAction.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetQueryAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetQueryAction.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-queryaction.html - -module Stratosphere.ResourceProperties.IoTAnalyticsDatasetQueryAction where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetFilter - --- | Full data type definition for IoTAnalyticsDatasetQueryAction. See --- 'ioTAnalyticsDatasetQueryAction' for a more convenient constructor. -data IoTAnalyticsDatasetQueryAction = - IoTAnalyticsDatasetQueryAction - { _ioTAnalyticsDatasetQueryActionFilters :: Maybe [IoTAnalyticsDatasetFilter] - , _ioTAnalyticsDatasetQueryActionSqlQuery :: Val Text - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsDatasetQueryAction where - toJSON IoTAnalyticsDatasetQueryAction{..} = - object $ - catMaybes - [ fmap (("Filters",) . toJSON) _ioTAnalyticsDatasetQueryActionFilters - , (Just . ("SqlQuery",) . toJSON) _ioTAnalyticsDatasetQueryActionSqlQuery - ] - --- | Constructor for 'IoTAnalyticsDatasetQueryAction' containing required --- fields as arguments. -ioTAnalyticsDatasetQueryAction - :: Val Text -- ^ 'itadqaSqlQuery' - -> IoTAnalyticsDatasetQueryAction -ioTAnalyticsDatasetQueryAction sqlQueryarg = - IoTAnalyticsDatasetQueryAction - { _ioTAnalyticsDatasetQueryActionFilters = Nothing - , _ioTAnalyticsDatasetQueryActionSqlQuery = sqlQueryarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-queryaction.html#cfn-iotanalytics-dataset-queryaction-filters -itadqaFilters :: Lens' IoTAnalyticsDatasetQueryAction (Maybe [IoTAnalyticsDatasetFilter]) -itadqaFilters = lens _ioTAnalyticsDatasetQueryActionFilters (\s a -> s { _ioTAnalyticsDatasetQueryActionFilters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-queryaction.html#cfn-iotanalytics-dataset-queryaction-sqlquery -itadqaSqlQuery :: Lens' IoTAnalyticsDatasetQueryAction (Val Text) -itadqaSqlQuery = lens _ioTAnalyticsDatasetQueryActionSqlQuery (\s a -> s { _ioTAnalyticsDatasetQueryActionSqlQuery = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetResourceConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetResourceConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetResourceConfiguration.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-resourceconfiguration.html - -module Stratosphere.ResourceProperties.IoTAnalyticsDatasetResourceConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTAnalyticsDatasetResourceConfiguration. --- See 'ioTAnalyticsDatasetResourceConfiguration' for a more convenient --- constructor. -data IoTAnalyticsDatasetResourceConfiguration = - IoTAnalyticsDatasetResourceConfiguration - { _ioTAnalyticsDatasetResourceConfigurationComputeType :: Val Text - , _ioTAnalyticsDatasetResourceConfigurationVolumeSizeInGB :: Val Integer - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsDatasetResourceConfiguration where - toJSON IoTAnalyticsDatasetResourceConfiguration{..} = - object $ - catMaybes - [ (Just . ("ComputeType",) . toJSON) _ioTAnalyticsDatasetResourceConfigurationComputeType - , (Just . ("VolumeSizeInGB",) . toJSON) _ioTAnalyticsDatasetResourceConfigurationVolumeSizeInGB - ] - --- | Constructor for 'IoTAnalyticsDatasetResourceConfiguration' containing --- required fields as arguments. -ioTAnalyticsDatasetResourceConfiguration - :: Val Text -- ^ 'itadrcComputeType' - -> Val Integer -- ^ 'itadrcVolumeSizeInGB' - -> IoTAnalyticsDatasetResourceConfiguration -ioTAnalyticsDatasetResourceConfiguration computeTypearg volumeSizeInGBarg = - IoTAnalyticsDatasetResourceConfiguration - { _ioTAnalyticsDatasetResourceConfigurationComputeType = computeTypearg - , _ioTAnalyticsDatasetResourceConfigurationVolumeSizeInGB = volumeSizeInGBarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-resourceconfiguration.html#cfn-iotanalytics-dataset-resourceconfiguration-computetype -itadrcComputeType :: Lens' IoTAnalyticsDatasetResourceConfiguration (Val Text) -itadrcComputeType = lens _ioTAnalyticsDatasetResourceConfigurationComputeType (\s a -> s { _ioTAnalyticsDatasetResourceConfigurationComputeType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-resourceconfiguration.html#cfn-iotanalytics-dataset-resourceconfiguration-volumesizeingb -itadrcVolumeSizeInGB :: Lens' IoTAnalyticsDatasetResourceConfiguration (Val Integer) -itadrcVolumeSizeInGB = lens _ioTAnalyticsDatasetResourceConfigurationVolumeSizeInGB (\s a -> s { _ioTAnalyticsDatasetResourceConfigurationVolumeSizeInGB = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetRetentionPeriod.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetRetentionPeriod.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetRetentionPeriod.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-retentionperiod.html - -module Stratosphere.ResourceProperties.IoTAnalyticsDatasetRetentionPeriod where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTAnalyticsDatasetRetentionPeriod. See --- 'ioTAnalyticsDatasetRetentionPeriod' for a more convenient constructor. -data IoTAnalyticsDatasetRetentionPeriod = - IoTAnalyticsDatasetRetentionPeriod - { _ioTAnalyticsDatasetRetentionPeriodNumberOfDays :: Val Integer - , _ioTAnalyticsDatasetRetentionPeriodUnlimited :: Val Bool - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsDatasetRetentionPeriod where - toJSON IoTAnalyticsDatasetRetentionPeriod{..} = - object $ - catMaybes - [ (Just . ("NumberOfDays",) . toJSON) _ioTAnalyticsDatasetRetentionPeriodNumberOfDays - , (Just . ("Unlimited",) . toJSON) _ioTAnalyticsDatasetRetentionPeriodUnlimited - ] - --- | Constructor for 'IoTAnalyticsDatasetRetentionPeriod' containing required --- fields as arguments. -ioTAnalyticsDatasetRetentionPeriod - :: Val Integer -- ^ 'itadsrpNumberOfDays' - -> Val Bool -- ^ 'itadsrpUnlimited' - -> IoTAnalyticsDatasetRetentionPeriod -ioTAnalyticsDatasetRetentionPeriod numberOfDaysarg unlimitedarg = - IoTAnalyticsDatasetRetentionPeriod - { _ioTAnalyticsDatasetRetentionPeriodNumberOfDays = numberOfDaysarg - , _ioTAnalyticsDatasetRetentionPeriodUnlimited = unlimitedarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-retentionperiod.html#cfn-iotanalytics-dataset-retentionperiod-numberofdays -itadsrpNumberOfDays :: Lens' IoTAnalyticsDatasetRetentionPeriod (Val Integer) -itadsrpNumberOfDays = lens _ioTAnalyticsDatasetRetentionPeriodNumberOfDays (\s a -> s { _ioTAnalyticsDatasetRetentionPeriodNumberOfDays = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-retentionperiod.html#cfn-iotanalytics-dataset-retentionperiod-unlimited -itadsrpUnlimited :: Lens' IoTAnalyticsDatasetRetentionPeriod (Val Bool) -itadsrpUnlimited = lens _ioTAnalyticsDatasetRetentionPeriodUnlimited (\s a -> s { _ioTAnalyticsDatasetRetentionPeriodUnlimited = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetS3DestinationConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetS3DestinationConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetS3DestinationConfiguration.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-s3destinationconfiguration.html - -module Stratosphere.ResourceProperties.IoTAnalyticsDatasetS3DestinationConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetGlueConfiguration - --- | Full data type definition for --- IoTAnalyticsDatasetS3DestinationConfiguration. See --- 'ioTAnalyticsDatasetS3DestinationConfiguration' for a more convenient --- constructor. -data IoTAnalyticsDatasetS3DestinationConfiguration = - IoTAnalyticsDatasetS3DestinationConfiguration - { _ioTAnalyticsDatasetS3DestinationConfigurationBucket :: Val Text - , _ioTAnalyticsDatasetS3DestinationConfigurationGlueConfiguration :: Maybe IoTAnalyticsDatasetGlueConfiguration - , _ioTAnalyticsDatasetS3DestinationConfigurationKey :: Val Text - , _ioTAnalyticsDatasetS3DestinationConfigurationRoleArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsDatasetS3DestinationConfiguration where - toJSON IoTAnalyticsDatasetS3DestinationConfiguration{..} = - object $ - catMaybes - [ (Just . ("Bucket",) . toJSON) _ioTAnalyticsDatasetS3DestinationConfigurationBucket - , fmap (("GlueConfiguration",) . toJSON) _ioTAnalyticsDatasetS3DestinationConfigurationGlueConfiguration - , (Just . ("Key",) . toJSON) _ioTAnalyticsDatasetS3DestinationConfigurationKey - , (Just . ("RoleArn",) . toJSON) _ioTAnalyticsDatasetS3DestinationConfigurationRoleArn - ] - --- | Constructor for 'IoTAnalyticsDatasetS3DestinationConfiguration' --- containing required fields as arguments. -ioTAnalyticsDatasetS3DestinationConfiguration - :: Val Text -- ^ 'itadsdcBucket' - -> Val Text -- ^ 'itadsdcKey' - -> Val Text -- ^ 'itadsdcRoleArn' - -> IoTAnalyticsDatasetS3DestinationConfiguration -ioTAnalyticsDatasetS3DestinationConfiguration bucketarg keyarg roleArnarg = - IoTAnalyticsDatasetS3DestinationConfiguration - { _ioTAnalyticsDatasetS3DestinationConfigurationBucket = bucketarg - , _ioTAnalyticsDatasetS3DestinationConfigurationGlueConfiguration = Nothing - , _ioTAnalyticsDatasetS3DestinationConfigurationKey = keyarg - , _ioTAnalyticsDatasetS3DestinationConfigurationRoleArn = roleArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-s3destinationconfiguration.html#cfn-iotanalytics-dataset-s3destinationconfiguration-bucket -itadsdcBucket :: Lens' IoTAnalyticsDatasetS3DestinationConfiguration (Val Text) -itadsdcBucket = lens _ioTAnalyticsDatasetS3DestinationConfigurationBucket (\s a -> s { _ioTAnalyticsDatasetS3DestinationConfigurationBucket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-s3destinationconfiguration.html#cfn-iotanalytics-dataset-s3destinationconfiguration-glueconfiguration -itadsdcGlueConfiguration :: Lens' IoTAnalyticsDatasetS3DestinationConfiguration (Maybe IoTAnalyticsDatasetGlueConfiguration) -itadsdcGlueConfiguration = lens _ioTAnalyticsDatasetS3DestinationConfigurationGlueConfiguration (\s a -> s { _ioTAnalyticsDatasetS3DestinationConfigurationGlueConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-s3destinationconfiguration.html#cfn-iotanalytics-dataset-s3destinationconfiguration-key -itadsdcKey :: Lens' IoTAnalyticsDatasetS3DestinationConfiguration (Val Text) -itadsdcKey = lens _ioTAnalyticsDatasetS3DestinationConfigurationKey (\s a -> s { _ioTAnalyticsDatasetS3DestinationConfigurationKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-s3destinationconfiguration.html#cfn-iotanalytics-dataset-s3destinationconfiguration-rolearn -itadsdcRoleArn :: Lens' IoTAnalyticsDatasetS3DestinationConfiguration (Val Text) -itadsdcRoleArn = lens _ioTAnalyticsDatasetS3DestinationConfigurationRoleArn (\s a -> s { _ioTAnalyticsDatasetS3DestinationConfigurationRoleArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetSchedule.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetSchedule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetSchedule.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-trigger-schedule.html - -module Stratosphere.ResourceProperties.IoTAnalyticsDatasetSchedule where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTAnalyticsDatasetSchedule. See --- 'ioTAnalyticsDatasetSchedule' for a more convenient constructor. -data IoTAnalyticsDatasetSchedule = - IoTAnalyticsDatasetSchedule - { _ioTAnalyticsDatasetScheduleScheduleExpression :: Val Text - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsDatasetSchedule where - toJSON IoTAnalyticsDatasetSchedule{..} = - object $ - catMaybes - [ (Just . ("ScheduleExpression",) . toJSON) _ioTAnalyticsDatasetScheduleScheduleExpression - ] - --- | Constructor for 'IoTAnalyticsDatasetSchedule' containing required fields --- as arguments. -ioTAnalyticsDatasetSchedule - :: Val Text -- ^ 'itadsScheduleExpression' - -> IoTAnalyticsDatasetSchedule -ioTAnalyticsDatasetSchedule scheduleExpressionarg = - IoTAnalyticsDatasetSchedule - { _ioTAnalyticsDatasetScheduleScheduleExpression = scheduleExpressionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-trigger-schedule.html#cfn-iotanalytics-dataset-trigger-schedule-scheduleexpression -itadsScheduleExpression :: Lens' IoTAnalyticsDatasetSchedule (Val Text) -itadsScheduleExpression = lens _ioTAnalyticsDatasetScheduleScheduleExpression (\s a -> s { _ioTAnalyticsDatasetScheduleScheduleExpression = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetTrigger.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetTrigger.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetTrigger.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-trigger.html - -module Stratosphere.ResourceProperties.IoTAnalyticsDatasetTrigger where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetSchedule -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetTriggeringDataset - --- | Full data type definition for IoTAnalyticsDatasetTrigger. See --- 'ioTAnalyticsDatasetTrigger' for a more convenient constructor. -data IoTAnalyticsDatasetTrigger = - IoTAnalyticsDatasetTrigger - { _ioTAnalyticsDatasetTriggerSchedule :: Maybe IoTAnalyticsDatasetSchedule - , _ioTAnalyticsDatasetTriggerTriggeringDataset :: Maybe IoTAnalyticsDatasetTriggeringDataset - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsDatasetTrigger where - toJSON IoTAnalyticsDatasetTrigger{..} = - object $ - catMaybes - [ fmap (("Schedule",) . toJSON) _ioTAnalyticsDatasetTriggerSchedule - , fmap (("TriggeringDataset",) . toJSON) _ioTAnalyticsDatasetTriggerTriggeringDataset - ] - --- | Constructor for 'IoTAnalyticsDatasetTrigger' containing required fields --- as arguments. -ioTAnalyticsDatasetTrigger - :: IoTAnalyticsDatasetTrigger -ioTAnalyticsDatasetTrigger = - IoTAnalyticsDatasetTrigger - { _ioTAnalyticsDatasetTriggerSchedule = Nothing - , _ioTAnalyticsDatasetTriggerTriggeringDataset = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-trigger.html#cfn-iotanalytics-dataset-trigger-schedule -itadtSchedule :: Lens' IoTAnalyticsDatasetTrigger (Maybe IoTAnalyticsDatasetSchedule) -itadtSchedule = lens _ioTAnalyticsDatasetTriggerSchedule (\s a -> s { _ioTAnalyticsDatasetTriggerSchedule = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-trigger.html#cfn-iotanalytics-dataset-trigger-triggeringdataset -itadtTriggeringDataset :: Lens' IoTAnalyticsDatasetTrigger (Maybe IoTAnalyticsDatasetTriggeringDataset) -itadtTriggeringDataset = lens _ioTAnalyticsDatasetTriggerTriggeringDataset (\s a -> s { _ioTAnalyticsDatasetTriggerTriggeringDataset = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetTriggeringDataset.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetTriggeringDataset.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetTriggeringDataset.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-triggeringdataset.html - -module Stratosphere.ResourceProperties.IoTAnalyticsDatasetTriggeringDataset where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTAnalyticsDatasetTriggeringDataset. See --- 'ioTAnalyticsDatasetTriggeringDataset' for a more convenient constructor. -data IoTAnalyticsDatasetTriggeringDataset = - IoTAnalyticsDatasetTriggeringDataset - { _ioTAnalyticsDatasetTriggeringDatasetDatasetName :: Val Text - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsDatasetTriggeringDataset where - toJSON IoTAnalyticsDatasetTriggeringDataset{..} = - object $ - catMaybes - [ (Just . ("DatasetName",) . toJSON) _ioTAnalyticsDatasetTriggeringDatasetDatasetName - ] - --- | Constructor for 'IoTAnalyticsDatasetTriggeringDataset' containing --- required fields as arguments. -ioTAnalyticsDatasetTriggeringDataset - :: Val Text -- ^ 'itadtdDatasetName' - -> IoTAnalyticsDatasetTriggeringDataset -ioTAnalyticsDatasetTriggeringDataset datasetNamearg = - IoTAnalyticsDatasetTriggeringDataset - { _ioTAnalyticsDatasetTriggeringDatasetDatasetName = datasetNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-triggeringdataset.html#cfn-iotanalytics-dataset-triggeringdataset-datasetname -itadtdDatasetName :: Lens' IoTAnalyticsDatasetTriggeringDataset (Val Text) -itadtdDatasetName = lens _ioTAnalyticsDatasetTriggeringDatasetDatasetName (\s a -> s { _ioTAnalyticsDatasetTriggeringDatasetDatasetName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetVariable.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetVariable.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetVariable.hs +++ /dev/null @@ -1,68 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-variable.html - -module Stratosphere.ResourceProperties.IoTAnalyticsDatasetVariable where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetDatasetContentVersionValue -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetOutputFileUriValue - --- | Full data type definition for IoTAnalyticsDatasetVariable. See --- 'ioTAnalyticsDatasetVariable' for a more convenient constructor. -data IoTAnalyticsDatasetVariable = - IoTAnalyticsDatasetVariable - { _ioTAnalyticsDatasetVariableDatasetContentVersionValue :: Maybe IoTAnalyticsDatasetDatasetContentVersionValue - , _ioTAnalyticsDatasetVariableDoubleValue :: Maybe (Val Double) - , _ioTAnalyticsDatasetVariableOutputFileUriValue :: Maybe IoTAnalyticsDatasetOutputFileUriValue - , _ioTAnalyticsDatasetVariableStringValue :: Maybe (Val Text) - , _ioTAnalyticsDatasetVariableVariableName :: Val Text - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsDatasetVariable where - toJSON IoTAnalyticsDatasetVariable{..} = - object $ - catMaybes - [ fmap (("DatasetContentVersionValue",) . toJSON) _ioTAnalyticsDatasetVariableDatasetContentVersionValue - , fmap (("DoubleValue",) . toJSON) _ioTAnalyticsDatasetVariableDoubleValue - , fmap (("OutputFileUriValue",) . toJSON) _ioTAnalyticsDatasetVariableOutputFileUriValue - , fmap (("StringValue",) . toJSON) _ioTAnalyticsDatasetVariableStringValue - , (Just . ("VariableName",) . toJSON) _ioTAnalyticsDatasetVariableVariableName - ] - --- | Constructor for 'IoTAnalyticsDatasetVariable' containing required fields --- as arguments. -ioTAnalyticsDatasetVariable - :: Val Text -- ^ 'itadvVariableName' - -> IoTAnalyticsDatasetVariable -ioTAnalyticsDatasetVariable variableNamearg = - IoTAnalyticsDatasetVariable - { _ioTAnalyticsDatasetVariableDatasetContentVersionValue = Nothing - , _ioTAnalyticsDatasetVariableDoubleValue = Nothing - , _ioTAnalyticsDatasetVariableOutputFileUriValue = Nothing - , _ioTAnalyticsDatasetVariableStringValue = Nothing - , _ioTAnalyticsDatasetVariableVariableName = variableNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-variable.html#cfn-iotanalytics-dataset-variable-datasetcontentversionvalue -itadvDatasetContentVersionValue :: Lens' IoTAnalyticsDatasetVariable (Maybe IoTAnalyticsDatasetDatasetContentVersionValue) -itadvDatasetContentVersionValue = lens _ioTAnalyticsDatasetVariableDatasetContentVersionValue (\s a -> s { _ioTAnalyticsDatasetVariableDatasetContentVersionValue = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-variable.html#cfn-iotanalytics-dataset-variable-doublevalue -itadvDoubleValue :: Lens' IoTAnalyticsDatasetVariable (Maybe (Val Double)) -itadvDoubleValue = lens _ioTAnalyticsDatasetVariableDoubleValue (\s a -> s { _ioTAnalyticsDatasetVariableDoubleValue = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-variable.html#cfn-iotanalytics-dataset-variable-outputfileurivalue -itadvOutputFileUriValue :: Lens' IoTAnalyticsDatasetVariable (Maybe IoTAnalyticsDatasetOutputFileUriValue) -itadvOutputFileUriValue = lens _ioTAnalyticsDatasetVariableOutputFileUriValue (\s a -> s { _ioTAnalyticsDatasetVariableOutputFileUriValue = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-variable.html#cfn-iotanalytics-dataset-variable-stringvalue -itadvStringValue :: Lens' IoTAnalyticsDatasetVariable (Maybe (Val Text)) -itadvStringValue = lens _ioTAnalyticsDatasetVariableStringValue (\s a -> s { _ioTAnalyticsDatasetVariableStringValue = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-variable.html#cfn-iotanalytics-dataset-variable-variablename -itadvVariableName :: Lens' IoTAnalyticsDatasetVariable (Val Text) -itadvVariableName = lens _ioTAnalyticsDatasetVariableVariableName (\s a -> s { _ioTAnalyticsDatasetVariableVariableName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetVersioningConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetVersioningConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetVersioningConfiguration.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-versioningconfiguration.html - -module Stratosphere.ResourceProperties.IoTAnalyticsDatasetVersioningConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTAnalyticsDatasetVersioningConfiguration. --- See 'ioTAnalyticsDatasetVersioningConfiguration' for a more convenient --- constructor. -data IoTAnalyticsDatasetVersioningConfiguration = - IoTAnalyticsDatasetVersioningConfiguration - { _ioTAnalyticsDatasetVersioningConfigurationMaxVersions :: Maybe (Val Integer) - , _ioTAnalyticsDatasetVersioningConfigurationUnlimited :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsDatasetVersioningConfiguration where - toJSON IoTAnalyticsDatasetVersioningConfiguration{..} = - object $ - catMaybes - [ fmap (("MaxVersions",) . toJSON) _ioTAnalyticsDatasetVersioningConfigurationMaxVersions - , fmap (("Unlimited",) . toJSON) _ioTAnalyticsDatasetVersioningConfigurationUnlimited - ] - --- | Constructor for 'IoTAnalyticsDatasetVersioningConfiguration' containing --- required fields as arguments. -ioTAnalyticsDatasetVersioningConfiguration - :: IoTAnalyticsDatasetVersioningConfiguration -ioTAnalyticsDatasetVersioningConfiguration = - IoTAnalyticsDatasetVersioningConfiguration - { _ioTAnalyticsDatasetVersioningConfigurationMaxVersions = Nothing - , _ioTAnalyticsDatasetVersioningConfigurationUnlimited = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-versioningconfiguration.html#cfn-iotanalytics-dataset-versioningconfiguration-maxversions -itadvcMaxVersions :: Lens' IoTAnalyticsDatasetVersioningConfiguration (Maybe (Val Integer)) -itadvcMaxVersions = lens _ioTAnalyticsDatasetVersioningConfigurationMaxVersions (\s a -> s { _ioTAnalyticsDatasetVersioningConfigurationMaxVersions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-versioningconfiguration.html#cfn-iotanalytics-dataset-versioningconfiguration-unlimited -itadvcUnlimited :: Lens' IoTAnalyticsDatasetVersioningConfiguration (Maybe (Val Bool)) -itadvcUnlimited = lens _ioTAnalyticsDatasetVersioningConfigurationUnlimited (\s a -> s { _ioTAnalyticsDatasetVersioningConfigurationUnlimited = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatastoreCustomerManagedS3.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatastoreCustomerManagedS3.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatastoreCustomerManagedS3.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-datastore-customermanageds3.html - -module Stratosphere.ResourceProperties.IoTAnalyticsDatastoreCustomerManagedS3 where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTAnalyticsDatastoreCustomerManagedS3. See --- 'ioTAnalyticsDatastoreCustomerManagedS3' for a more convenient --- constructor. -data IoTAnalyticsDatastoreCustomerManagedS3 = - IoTAnalyticsDatastoreCustomerManagedS3 - { _ioTAnalyticsDatastoreCustomerManagedS3Bucket :: Val Text - , _ioTAnalyticsDatastoreCustomerManagedS3KeyPrefix :: Maybe (Val Text) - , _ioTAnalyticsDatastoreCustomerManagedS3RoleArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsDatastoreCustomerManagedS3 where - toJSON IoTAnalyticsDatastoreCustomerManagedS3{..} = - object $ - catMaybes - [ (Just . ("Bucket",) . toJSON) _ioTAnalyticsDatastoreCustomerManagedS3Bucket - , fmap (("KeyPrefix",) . toJSON) _ioTAnalyticsDatastoreCustomerManagedS3KeyPrefix - , (Just . ("RoleArn",) . toJSON) _ioTAnalyticsDatastoreCustomerManagedS3RoleArn - ] - --- | Constructor for 'IoTAnalyticsDatastoreCustomerManagedS3' containing --- required fields as arguments. -ioTAnalyticsDatastoreCustomerManagedS3 - :: Val Text -- ^ 'itadcmsBucket' - -> Val Text -- ^ 'itadcmsRoleArn' - -> IoTAnalyticsDatastoreCustomerManagedS3 -ioTAnalyticsDatastoreCustomerManagedS3 bucketarg roleArnarg = - IoTAnalyticsDatastoreCustomerManagedS3 - { _ioTAnalyticsDatastoreCustomerManagedS3Bucket = bucketarg - , _ioTAnalyticsDatastoreCustomerManagedS3KeyPrefix = Nothing - , _ioTAnalyticsDatastoreCustomerManagedS3RoleArn = roleArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-datastore-customermanageds3.html#cfn-iotanalytics-datastore-customermanageds3-bucket -itadcmsBucket :: Lens' IoTAnalyticsDatastoreCustomerManagedS3 (Val Text) -itadcmsBucket = lens _ioTAnalyticsDatastoreCustomerManagedS3Bucket (\s a -> s { _ioTAnalyticsDatastoreCustomerManagedS3Bucket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-datastore-customermanageds3.html#cfn-iotanalytics-datastore-customermanageds3-keyprefix -itadcmsKeyPrefix :: Lens' IoTAnalyticsDatastoreCustomerManagedS3 (Maybe (Val Text)) -itadcmsKeyPrefix = lens _ioTAnalyticsDatastoreCustomerManagedS3KeyPrefix (\s a -> s { _ioTAnalyticsDatastoreCustomerManagedS3KeyPrefix = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-datastore-customermanageds3.html#cfn-iotanalytics-datastore-customermanageds3-rolearn -itadcmsRoleArn :: Lens' IoTAnalyticsDatastoreCustomerManagedS3 (Val Text) -itadcmsRoleArn = lens _ioTAnalyticsDatastoreCustomerManagedS3RoleArn (\s a -> s { _ioTAnalyticsDatastoreCustomerManagedS3RoleArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatastoreDatastoreStorage.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatastoreDatastoreStorage.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatastoreDatastoreStorage.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-datastore-datastorestorage.html - -module Stratosphere.ResourceProperties.IoTAnalyticsDatastoreDatastoreStorage where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTAnalyticsDatastoreCustomerManagedS3 -import Stratosphere.ResourceProperties.IoTAnalyticsDatastoreServiceManagedS3 - --- | Full data type definition for IoTAnalyticsDatastoreDatastoreStorage. See --- 'ioTAnalyticsDatastoreDatastoreStorage' for a more convenient --- constructor. -data IoTAnalyticsDatastoreDatastoreStorage = - IoTAnalyticsDatastoreDatastoreStorage - { _ioTAnalyticsDatastoreDatastoreStorageCustomerManagedS3 :: Maybe IoTAnalyticsDatastoreCustomerManagedS3 - , _ioTAnalyticsDatastoreDatastoreStorageServiceManagedS3 :: Maybe IoTAnalyticsDatastoreServiceManagedS3 - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsDatastoreDatastoreStorage where - toJSON IoTAnalyticsDatastoreDatastoreStorage{..} = - object $ - catMaybes - [ fmap (("CustomerManagedS3",) . toJSON) _ioTAnalyticsDatastoreDatastoreStorageCustomerManagedS3 - , fmap (("ServiceManagedS3",) . toJSON) _ioTAnalyticsDatastoreDatastoreStorageServiceManagedS3 - ] - --- | Constructor for 'IoTAnalyticsDatastoreDatastoreStorage' containing --- required fields as arguments. -ioTAnalyticsDatastoreDatastoreStorage - :: IoTAnalyticsDatastoreDatastoreStorage -ioTAnalyticsDatastoreDatastoreStorage = - IoTAnalyticsDatastoreDatastoreStorage - { _ioTAnalyticsDatastoreDatastoreStorageCustomerManagedS3 = Nothing - , _ioTAnalyticsDatastoreDatastoreStorageServiceManagedS3 = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-datastore-datastorestorage.html#cfn-iotanalytics-datastore-datastorestorage-customermanageds3 -itaddsCustomerManagedS3 :: Lens' IoTAnalyticsDatastoreDatastoreStorage (Maybe IoTAnalyticsDatastoreCustomerManagedS3) -itaddsCustomerManagedS3 = lens _ioTAnalyticsDatastoreDatastoreStorageCustomerManagedS3 (\s a -> s { _ioTAnalyticsDatastoreDatastoreStorageCustomerManagedS3 = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-datastore-datastorestorage.html#cfn-iotanalytics-datastore-datastorestorage-servicemanageds3 -itaddsServiceManagedS3 :: Lens' IoTAnalyticsDatastoreDatastoreStorage (Maybe IoTAnalyticsDatastoreServiceManagedS3) -itaddsServiceManagedS3 = lens _ioTAnalyticsDatastoreDatastoreStorageServiceManagedS3 (\s a -> s { _ioTAnalyticsDatastoreDatastoreStorageServiceManagedS3 = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatastoreRetentionPeriod.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatastoreRetentionPeriod.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatastoreRetentionPeriod.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-datastore-retentionperiod.html - -module Stratosphere.ResourceProperties.IoTAnalyticsDatastoreRetentionPeriod where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTAnalyticsDatastoreRetentionPeriod. See --- 'ioTAnalyticsDatastoreRetentionPeriod' for a more convenient constructor. -data IoTAnalyticsDatastoreRetentionPeriod = - IoTAnalyticsDatastoreRetentionPeriod - { _ioTAnalyticsDatastoreRetentionPeriodNumberOfDays :: Maybe (Val Integer) - , _ioTAnalyticsDatastoreRetentionPeriodUnlimited :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsDatastoreRetentionPeriod where - toJSON IoTAnalyticsDatastoreRetentionPeriod{..} = - object $ - catMaybes - [ fmap (("NumberOfDays",) . toJSON) _ioTAnalyticsDatastoreRetentionPeriodNumberOfDays - , fmap (("Unlimited",) . toJSON) _ioTAnalyticsDatastoreRetentionPeriodUnlimited - ] - --- | Constructor for 'IoTAnalyticsDatastoreRetentionPeriod' containing --- required fields as arguments. -ioTAnalyticsDatastoreRetentionPeriod - :: IoTAnalyticsDatastoreRetentionPeriod -ioTAnalyticsDatastoreRetentionPeriod = - IoTAnalyticsDatastoreRetentionPeriod - { _ioTAnalyticsDatastoreRetentionPeriodNumberOfDays = Nothing - , _ioTAnalyticsDatastoreRetentionPeriodUnlimited = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-datastore-retentionperiod.html#cfn-iotanalytics-datastore-retentionperiod-numberofdays -itadstrpNumberOfDays :: Lens' IoTAnalyticsDatastoreRetentionPeriod (Maybe (Val Integer)) -itadstrpNumberOfDays = lens _ioTAnalyticsDatastoreRetentionPeriodNumberOfDays (\s a -> s { _ioTAnalyticsDatastoreRetentionPeriodNumberOfDays = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-datastore-retentionperiod.html#cfn-iotanalytics-datastore-retentionperiod-unlimited -itadstrpUnlimited :: Lens' IoTAnalyticsDatastoreRetentionPeriod (Maybe (Val Bool)) -itadstrpUnlimited = lens _ioTAnalyticsDatastoreRetentionPeriodUnlimited (\s a -> s { _ioTAnalyticsDatastoreRetentionPeriodUnlimited = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatastoreServiceManagedS3.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatastoreServiceManagedS3.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatastoreServiceManagedS3.hs +++ /dev/null @@ -1,33 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-datastore-servicemanageds3.html - -module Stratosphere.ResourceProperties.IoTAnalyticsDatastoreServiceManagedS3 where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTAnalyticsDatastoreServiceManagedS3. See --- 'ioTAnalyticsDatastoreServiceManagedS3' for a more convenient --- constructor. -data IoTAnalyticsDatastoreServiceManagedS3 = - IoTAnalyticsDatastoreServiceManagedS3 - { - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsDatastoreServiceManagedS3 where - toJSON _ = toJSON ([] :: [String]) - --- | Constructor for 'IoTAnalyticsDatastoreServiceManagedS3' containing --- required fields as arguments. -ioTAnalyticsDatastoreServiceManagedS3 - :: IoTAnalyticsDatastoreServiceManagedS3 -ioTAnalyticsDatastoreServiceManagedS3 = - IoTAnalyticsDatastoreServiceManagedS3 - { - } - - diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineActivity.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineActivity.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineActivity.hs +++ /dev/null @@ -1,110 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-activity.html - -module Stratosphere.ResourceProperties.IoTAnalyticsPipelineActivity where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTAnalyticsPipelineAddAttributes -import Stratosphere.ResourceProperties.IoTAnalyticsPipelineChannel -import Stratosphere.ResourceProperties.IoTAnalyticsPipelineDatastore -import Stratosphere.ResourceProperties.IoTAnalyticsPipelineDeviceRegistryEnrich -import Stratosphere.ResourceProperties.IoTAnalyticsPipelineDeviceShadowEnrich -import Stratosphere.ResourceProperties.IoTAnalyticsPipelineFilter -import Stratosphere.ResourceProperties.IoTAnalyticsPipelineLambda -import Stratosphere.ResourceProperties.IoTAnalyticsPipelineMath -import Stratosphere.ResourceProperties.IoTAnalyticsPipelineRemoveAttributes -import Stratosphere.ResourceProperties.IoTAnalyticsPipelineSelectAttributes - --- | Full data type definition for IoTAnalyticsPipelineActivity. See --- 'ioTAnalyticsPipelineActivity' for a more convenient constructor. -data IoTAnalyticsPipelineActivity = - IoTAnalyticsPipelineActivity - { _ioTAnalyticsPipelineActivityAddAttributes :: Maybe IoTAnalyticsPipelineAddAttributes - , _ioTAnalyticsPipelineActivityChannel :: Maybe IoTAnalyticsPipelineChannel - , _ioTAnalyticsPipelineActivityDatastore :: Maybe IoTAnalyticsPipelineDatastore - , _ioTAnalyticsPipelineActivityDeviceRegistryEnrich :: Maybe IoTAnalyticsPipelineDeviceRegistryEnrich - , _ioTAnalyticsPipelineActivityDeviceShadowEnrich :: Maybe IoTAnalyticsPipelineDeviceShadowEnrich - , _ioTAnalyticsPipelineActivityFilter :: Maybe IoTAnalyticsPipelineFilter - , _ioTAnalyticsPipelineActivityLambda :: Maybe IoTAnalyticsPipelineLambda - , _ioTAnalyticsPipelineActivityMath :: Maybe IoTAnalyticsPipelineMath - , _ioTAnalyticsPipelineActivityRemoveAttributes :: Maybe IoTAnalyticsPipelineRemoveAttributes - , _ioTAnalyticsPipelineActivitySelectAttributes :: Maybe IoTAnalyticsPipelineSelectAttributes - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsPipelineActivity where - toJSON IoTAnalyticsPipelineActivity{..} = - object $ - catMaybes - [ fmap (("AddAttributes",) . toJSON) _ioTAnalyticsPipelineActivityAddAttributes - , fmap (("Channel",) . toJSON) _ioTAnalyticsPipelineActivityChannel - , fmap (("Datastore",) . toJSON) _ioTAnalyticsPipelineActivityDatastore - , fmap (("DeviceRegistryEnrich",) . toJSON) _ioTAnalyticsPipelineActivityDeviceRegistryEnrich - , fmap (("DeviceShadowEnrich",) . toJSON) _ioTAnalyticsPipelineActivityDeviceShadowEnrich - , fmap (("Filter",) . toJSON) _ioTAnalyticsPipelineActivityFilter - , fmap (("Lambda",) . toJSON) _ioTAnalyticsPipelineActivityLambda - , fmap (("Math",) . toJSON) _ioTAnalyticsPipelineActivityMath - , fmap (("RemoveAttributes",) . toJSON) _ioTAnalyticsPipelineActivityRemoveAttributes - , fmap (("SelectAttributes",) . toJSON) _ioTAnalyticsPipelineActivitySelectAttributes - ] - --- | Constructor for 'IoTAnalyticsPipelineActivity' containing required fields --- as arguments. -ioTAnalyticsPipelineActivity - :: IoTAnalyticsPipelineActivity -ioTAnalyticsPipelineActivity = - IoTAnalyticsPipelineActivity - { _ioTAnalyticsPipelineActivityAddAttributes = Nothing - , _ioTAnalyticsPipelineActivityChannel = Nothing - , _ioTAnalyticsPipelineActivityDatastore = Nothing - , _ioTAnalyticsPipelineActivityDeviceRegistryEnrich = Nothing - , _ioTAnalyticsPipelineActivityDeviceShadowEnrich = Nothing - , _ioTAnalyticsPipelineActivityFilter = Nothing - , _ioTAnalyticsPipelineActivityLambda = Nothing - , _ioTAnalyticsPipelineActivityMath = Nothing - , _ioTAnalyticsPipelineActivityRemoveAttributes = Nothing - , _ioTAnalyticsPipelineActivitySelectAttributes = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-activity.html#cfn-iotanalytics-pipeline-activity-addattributes -itapaAddAttributes :: Lens' IoTAnalyticsPipelineActivity (Maybe IoTAnalyticsPipelineAddAttributes) -itapaAddAttributes = lens _ioTAnalyticsPipelineActivityAddAttributes (\s a -> s { _ioTAnalyticsPipelineActivityAddAttributes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-activity.html#cfn-iotanalytics-pipeline-activity-channel -itapaChannel :: Lens' IoTAnalyticsPipelineActivity (Maybe IoTAnalyticsPipelineChannel) -itapaChannel = lens _ioTAnalyticsPipelineActivityChannel (\s a -> s { _ioTAnalyticsPipelineActivityChannel = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-activity.html#cfn-iotanalytics-pipeline-activity-datastore -itapaDatastore :: Lens' IoTAnalyticsPipelineActivity (Maybe IoTAnalyticsPipelineDatastore) -itapaDatastore = lens _ioTAnalyticsPipelineActivityDatastore (\s a -> s { _ioTAnalyticsPipelineActivityDatastore = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-activity.html#cfn-iotanalytics-pipeline-activity-deviceregistryenrich -itapaDeviceRegistryEnrich :: Lens' IoTAnalyticsPipelineActivity (Maybe IoTAnalyticsPipelineDeviceRegistryEnrich) -itapaDeviceRegistryEnrich = lens _ioTAnalyticsPipelineActivityDeviceRegistryEnrich (\s a -> s { _ioTAnalyticsPipelineActivityDeviceRegistryEnrich = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-activity.html#cfn-iotanalytics-pipeline-activity-deviceshadowenrich -itapaDeviceShadowEnrich :: Lens' IoTAnalyticsPipelineActivity (Maybe IoTAnalyticsPipelineDeviceShadowEnrich) -itapaDeviceShadowEnrich = lens _ioTAnalyticsPipelineActivityDeviceShadowEnrich (\s a -> s { _ioTAnalyticsPipelineActivityDeviceShadowEnrich = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-activity.html#cfn-iotanalytics-pipeline-activity-filter -itapaFilter :: Lens' IoTAnalyticsPipelineActivity (Maybe IoTAnalyticsPipelineFilter) -itapaFilter = lens _ioTAnalyticsPipelineActivityFilter (\s a -> s { _ioTAnalyticsPipelineActivityFilter = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-activity.html#cfn-iotanalytics-pipeline-activity-lambda -itapaLambda :: Lens' IoTAnalyticsPipelineActivity (Maybe IoTAnalyticsPipelineLambda) -itapaLambda = lens _ioTAnalyticsPipelineActivityLambda (\s a -> s { _ioTAnalyticsPipelineActivityLambda = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-activity.html#cfn-iotanalytics-pipeline-activity-math -itapaMath :: Lens' IoTAnalyticsPipelineActivity (Maybe IoTAnalyticsPipelineMath) -itapaMath = lens _ioTAnalyticsPipelineActivityMath (\s a -> s { _ioTAnalyticsPipelineActivityMath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-activity.html#cfn-iotanalytics-pipeline-activity-removeattributes -itapaRemoveAttributes :: Lens' IoTAnalyticsPipelineActivity (Maybe IoTAnalyticsPipelineRemoveAttributes) -itapaRemoveAttributes = lens _ioTAnalyticsPipelineActivityRemoveAttributes (\s a -> s { _ioTAnalyticsPipelineActivityRemoveAttributes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-activity.html#cfn-iotanalytics-pipeline-activity-selectattributes -itapaSelectAttributes :: Lens' IoTAnalyticsPipelineActivity (Maybe IoTAnalyticsPipelineSelectAttributes) -itapaSelectAttributes = lens _ioTAnalyticsPipelineActivitySelectAttributes (\s a -> s { _ioTAnalyticsPipelineActivitySelectAttributes = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineAddAttributes.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineAddAttributes.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineAddAttributes.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-addattributes.html - -module Stratosphere.ResourceProperties.IoTAnalyticsPipelineAddAttributes where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTAnalyticsPipelineAddAttributes. See --- 'ioTAnalyticsPipelineAddAttributes' for a more convenient constructor. -data IoTAnalyticsPipelineAddAttributes = - IoTAnalyticsPipelineAddAttributes - { _ioTAnalyticsPipelineAddAttributesAttributes :: Maybe Object - , _ioTAnalyticsPipelineAddAttributesName :: Maybe (Val Text) - , _ioTAnalyticsPipelineAddAttributesNext :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsPipelineAddAttributes where - toJSON IoTAnalyticsPipelineAddAttributes{..} = - object $ - catMaybes - [ fmap (("Attributes",) . toJSON) _ioTAnalyticsPipelineAddAttributesAttributes - , fmap (("Name",) . toJSON) _ioTAnalyticsPipelineAddAttributesName - , fmap (("Next",) . toJSON) _ioTAnalyticsPipelineAddAttributesNext - ] - --- | Constructor for 'IoTAnalyticsPipelineAddAttributes' containing required --- fields as arguments. -ioTAnalyticsPipelineAddAttributes - :: IoTAnalyticsPipelineAddAttributes -ioTAnalyticsPipelineAddAttributes = - IoTAnalyticsPipelineAddAttributes - { _ioTAnalyticsPipelineAddAttributesAttributes = Nothing - , _ioTAnalyticsPipelineAddAttributesName = Nothing - , _ioTAnalyticsPipelineAddAttributesNext = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-addattributes.html#cfn-iotanalytics-pipeline-addattributes-attributes -itapaaAttributes :: Lens' IoTAnalyticsPipelineAddAttributes (Maybe Object) -itapaaAttributes = lens _ioTAnalyticsPipelineAddAttributesAttributes (\s a -> s { _ioTAnalyticsPipelineAddAttributesAttributes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-addattributes.html#cfn-iotanalytics-pipeline-addattributes-name -itapaaName :: Lens' IoTAnalyticsPipelineAddAttributes (Maybe (Val Text)) -itapaaName = lens _ioTAnalyticsPipelineAddAttributesName (\s a -> s { _ioTAnalyticsPipelineAddAttributesName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-addattributes.html#cfn-iotanalytics-pipeline-addattributes-next -itapaaNext :: Lens' IoTAnalyticsPipelineAddAttributes (Maybe (Val Text)) -itapaaNext = lens _ioTAnalyticsPipelineAddAttributesNext (\s a -> s { _ioTAnalyticsPipelineAddAttributesNext = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineChannel.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineChannel.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineChannel.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-channel.html - -module Stratosphere.ResourceProperties.IoTAnalyticsPipelineChannel where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTAnalyticsPipelineChannel. See --- 'ioTAnalyticsPipelineChannel' for a more convenient constructor. -data IoTAnalyticsPipelineChannel = - IoTAnalyticsPipelineChannel - { _ioTAnalyticsPipelineChannelChannelName :: Maybe (Val Text) - , _ioTAnalyticsPipelineChannelName :: Maybe (Val Text) - , _ioTAnalyticsPipelineChannelNext :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsPipelineChannel where - toJSON IoTAnalyticsPipelineChannel{..} = - object $ - catMaybes - [ fmap (("ChannelName",) . toJSON) _ioTAnalyticsPipelineChannelChannelName - , fmap (("Name",) . toJSON) _ioTAnalyticsPipelineChannelName - , fmap (("Next",) . toJSON) _ioTAnalyticsPipelineChannelNext - ] - --- | Constructor for 'IoTAnalyticsPipelineChannel' containing required fields --- as arguments. -ioTAnalyticsPipelineChannel - :: IoTAnalyticsPipelineChannel -ioTAnalyticsPipelineChannel = - IoTAnalyticsPipelineChannel - { _ioTAnalyticsPipelineChannelChannelName = Nothing - , _ioTAnalyticsPipelineChannelName = Nothing - , _ioTAnalyticsPipelineChannelNext = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-channel.html#cfn-iotanalytics-pipeline-channel-channelname -itapcChannelName :: Lens' IoTAnalyticsPipelineChannel (Maybe (Val Text)) -itapcChannelName = lens _ioTAnalyticsPipelineChannelChannelName (\s a -> s { _ioTAnalyticsPipelineChannelChannelName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-channel.html#cfn-iotanalytics-pipeline-channel-name -itapcName :: Lens' IoTAnalyticsPipelineChannel (Maybe (Val Text)) -itapcName = lens _ioTAnalyticsPipelineChannelName (\s a -> s { _ioTAnalyticsPipelineChannelName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-channel.html#cfn-iotanalytics-pipeline-channel-next -itapcNext :: Lens' IoTAnalyticsPipelineChannel (Maybe (Val Text)) -itapcNext = lens _ioTAnalyticsPipelineChannelNext (\s a -> s { _ioTAnalyticsPipelineChannelNext = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineDatastore.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineDatastore.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineDatastore.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-datastore.html - -module Stratosphere.ResourceProperties.IoTAnalyticsPipelineDatastore where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTAnalyticsPipelineDatastore. See --- 'ioTAnalyticsPipelineDatastore' for a more convenient constructor. -data IoTAnalyticsPipelineDatastore = - IoTAnalyticsPipelineDatastore - { _ioTAnalyticsPipelineDatastoreDatastoreName :: Maybe (Val Text) - , _ioTAnalyticsPipelineDatastoreName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsPipelineDatastore where - toJSON IoTAnalyticsPipelineDatastore{..} = - object $ - catMaybes - [ fmap (("DatastoreName",) . toJSON) _ioTAnalyticsPipelineDatastoreDatastoreName - , fmap (("Name",) . toJSON) _ioTAnalyticsPipelineDatastoreName - ] - --- | Constructor for 'IoTAnalyticsPipelineDatastore' containing required --- fields as arguments. -ioTAnalyticsPipelineDatastore - :: IoTAnalyticsPipelineDatastore -ioTAnalyticsPipelineDatastore = - IoTAnalyticsPipelineDatastore - { _ioTAnalyticsPipelineDatastoreDatastoreName = Nothing - , _ioTAnalyticsPipelineDatastoreName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-datastore.html#cfn-iotanalytics-pipeline-datastore-datastorename -itapdDatastoreName :: Lens' IoTAnalyticsPipelineDatastore (Maybe (Val Text)) -itapdDatastoreName = lens _ioTAnalyticsPipelineDatastoreDatastoreName (\s a -> s { _ioTAnalyticsPipelineDatastoreDatastoreName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-datastore.html#cfn-iotanalytics-pipeline-datastore-name -itapdName :: Lens' IoTAnalyticsPipelineDatastore (Maybe (Val Text)) -itapdName = lens _ioTAnalyticsPipelineDatastoreName (\s a -> s { _ioTAnalyticsPipelineDatastoreName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineDeviceRegistryEnrich.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineDeviceRegistryEnrich.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineDeviceRegistryEnrich.hs +++ /dev/null @@ -1,67 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-deviceregistryenrich.html - -module Stratosphere.ResourceProperties.IoTAnalyticsPipelineDeviceRegistryEnrich where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTAnalyticsPipelineDeviceRegistryEnrich. --- See 'ioTAnalyticsPipelineDeviceRegistryEnrich' for a more convenient --- constructor. -data IoTAnalyticsPipelineDeviceRegistryEnrich = - IoTAnalyticsPipelineDeviceRegistryEnrich - { _ioTAnalyticsPipelineDeviceRegistryEnrichAttribute :: Maybe (Val Text) - , _ioTAnalyticsPipelineDeviceRegistryEnrichName :: Maybe (Val Text) - , _ioTAnalyticsPipelineDeviceRegistryEnrichNext :: Maybe (Val Text) - , _ioTAnalyticsPipelineDeviceRegistryEnrichRoleArn :: Maybe (Val Text) - , _ioTAnalyticsPipelineDeviceRegistryEnrichThingName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsPipelineDeviceRegistryEnrich where - toJSON IoTAnalyticsPipelineDeviceRegistryEnrich{..} = - object $ - catMaybes - [ fmap (("Attribute",) . toJSON) _ioTAnalyticsPipelineDeviceRegistryEnrichAttribute - , fmap (("Name",) . toJSON) _ioTAnalyticsPipelineDeviceRegistryEnrichName - , fmap (("Next",) . toJSON) _ioTAnalyticsPipelineDeviceRegistryEnrichNext - , fmap (("RoleArn",) . toJSON) _ioTAnalyticsPipelineDeviceRegistryEnrichRoleArn - , fmap (("ThingName",) . toJSON) _ioTAnalyticsPipelineDeviceRegistryEnrichThingName - ] - --- | Constructor for 'IoTAnalyticsPipelineDeviceRegistryEnrich' containing --- required fields as arguments. -ioTAnalyticsPipelineDeviceRegistryEnrich - :: IoTAnalyticsPipelineDeviceRegistryEnrich -ioTAnalyticsPipelineDeviceRegistryEnrich = - IoTAnalyticsPipelineDeviceRegistryEnrich - { _ioTAnalyticsPipelineDeviceRegistryEnrichAttribute = Nothing - , _ioTAnalyticsPipelineDeviceRegistryEnrichName = Nothing - , _ioTAnalyticsPipelineDeviceRegistryEnrichNext = Nothing - , _ioTAnalyticsPipelineDeviceRegistryEnrichRoleArn = Nothing - , _ioTAnalyticsPipelineDeviceRegistryEnrichThingName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-deviceregistryenrich.html#cfn-iotanalytics-pipeline-deviceregistryenrich-attribute -itapdreAttribute :: Lens' IoTAnalyticsPipelineDeviceRegistryEnrich (Maybe (Val Text)) -itapdreAttribute = lens _ioTAnalyticsPipelineDeviceRegistryEnrichAttribute (\s a -> s { _ioTAnalyticsPipelineDeviceRegistryEnrichAttribute = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-deviceregistryenrich.html#cfn-iotanalytics-pipeline-deviceregistryenrich-name -itapdreName :: Lens' IoTAnalyticsPipelineDeviceRegistryEnrich (Maybe (Val Text)) -itapdreName = lens _ioTAnalyticsPipelineDeviceRegistryEnrichName (\s a -> s { _ioTAnalyticsPipelineDeviceRegistryEnrichName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-deviceregistryenrich.html#cfn-iotanalytics-pipeline-deviceregistryenrich-next -itapdreNext :: Lens' IoTAnalyticsPipelineDeviceRegistryEnrich (Maybe (Val Text)) -itapdreNext = lens _ioTAnalyticsPipelineDeviceRegistryEnrichNext (\s a -> s { _ioTAnalyticsPipelineDeviceRegistryEnrichNext = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-deviceregistryenrich.html#cfn-iotanalytics-pipeline-deviceregistryenrich-rolearn -itapdreRoleArn :: Lens' IoTAnalyticsPipelineDeviceRegistryEnrich (Maybe (Val Text)) -itapdreRoleArn = lens _ioTAnalyticsPipelineDeviceRegistryEnrichRoleArn (\s a -> s { _ioTAnalyticsPipelineDeviceRegistryEnrichRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-deviceregistryenrich.html#cfn-iotanalytics-pipeline-deviceregistryenrich-thingname -itapdreThingName :: Lens' IoTAnalyticsPipelineDeviceRegistryEnrich (Maybe (Val Text)) -itapdreThingName = lens _ioTAnalyticsPipelineDeviceRegistryEnrichThingName (\s a -> s { _ioTAnalyticsPipelineDeviceRegistryEnrichThingName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineDeviceShadowEnrich.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineDeviceShadowEnrich.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineDeviceShadowEnrich.hs +++ /dev/null @@ -1,67 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-deviceshadowenrich.html - -module Stratosphere.ResourceProperties.IoTAnalyticsPipelineDeviceShadowEnrich where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTAnalyticsPipelineDeviceShadowEnrich. See --- 'ioTAnalyticsPipelineDeviceShadowEnrich' for a more convenient --- constructor. -data IoTAnalyticsPipelineDeviceShadowEnrich = - IoTAnalyticsPipelineDeviceShadowEnrich - { _ioTAnalyticsPipelineDeviceShadowEnrichAttribute :: Maybe (Val Text) - , _ioTAnalyticsPipelineDeviceShadowEnrichName :: Maybe (Val Text) - , _ioTAnalyticsPipelineDeviceShadowEnrichNext :: Maybe (Val Text) - , _ioTAnalyticsPipelineDeviceShadowEnrichRoleArn :: Maybe (Val Text) - , _ioTAnalyticsPipelineDeviceShadowEnrichThingName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsPipelineDeviceShadowEnrich where - toJSON IoTAnalyticsPipelineDeviceShadowEnrich{..} = - object $ - catMaybes - [ fmap (("Attribute",) . toJSON) _ioTAnalyticsPipelineDeviceShadowEnrichAttribute - , fmap (("Name",) . toJSON) _ioTAnalyticsPipelineDeviceShadowEnrichName - , fmap (("Next",) . toJSON) _ioTAnalyticsPipelineDeviceShadowEnrichNext - , fmap (("RoleArn",) . toJSON) _ioTAnalyticsPipelineDeviceShadowEnrichRoleArn - , fmap (("ThingName",) . toJSON) _ioTAnalyticsPipelineDeviceShadowEnrichThingName - ] - --- | Constructor for 'IoTAnalyticsPipelineDeviceShadowEnrich' containing --- required fields as arguments. -ioTAnalyticsPipelineDeviceShadowEnrich - :: IoTAnalyticsPipelineDeviceShadowEnrich -ioTAnalyticsPipelineDeviceShadowEnrich = - IoTAnalyticsPipelineDeviceShadowEnrich - { _ioTAnalyticsPipelineDeviceShadowEnrichAttribute = Nothing - , _ioTAnalyticsPipelineDeviceShadowEnrichName = Nothing - , _ioTAnalyticsPipelineDeviceShadowEnrichNext = Nothing - , _ioTAnalyticsPipelineDeviceShadowEnrichRoleArn = Nothing - , _ioTAnalyticsPipelineDeviceShadowEnrichThingName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-deviceshadowenrich.html#cfn-iotanalytics-pipeline-deviceshadowenrich-attribute -itapdseAttribute :: Lens' IoTAnalyticsPipelineDeviceShadowEnrich (Maybe (Val Text)) -itapdseAttribute = lens _ioTAnalyticsPipelineDeviceShadowEnrichAttribute (\s a -> s { _ioTAnalyticsPipelineDeviceShadowEnrichAttribute = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-deviceshadowenrich.html#cfn-iotanalytics-pipeline-deviceshadowenrich-name -itapdseName :: Lens' IoTAnalyticsPipelineDeviceShadowEnrich (Maybe (Val Text)) -itapdseName = lens _ioTAnalyticsPipelineDeviceShadowEnrichName (\s a -> s { _ioTAnalyticsPipelineDeviceShadowEnrichName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-deviceshadowenrich.html#cfn-iotanalytics-pipeline-deviceshadowenrich-next -itapdseNext :: Lens' IoTAnalyticsPipelineDeviceShadowEnrich (Maybe (Val Text)) -itapdseNext = lens _ioTAnalyticsPipelineDeviceShadowEnrichNext (\s a -> s { _ioTAnalyticsPipelineDeviceShadowEnrichNext = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-deviceshadowenrich.html#cfn-iotanalytics-pipeline-deviceshadowenrich-rolearn -itapdseRoleArn :: Lens' IoTAnalyticsPipelineDeviceShadowEnrich (Maybe (Val Text)) -itapdseRoleArn = lens _ioTAnalyticsPipelineDeviceShadowEnrichRoleArn (\s a -> s { _ioTAnalyticsPipelineDeviceShadowEnrichRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-deviceshadowenrich.html#cfn-iotanalytics-pipeline-deviceshadowenrich-thingname -itapdseThingName :: Lens' IoTAnalyticsPipelineDeviceShadowEnrich (Maybe (Val Text)) -itapdseThingName = lens _ioTAnalyticsPipelineDeviceShadowEnrichThingName (\s a -> s { _ioTAnalyticsPipelineDeviceShadowEnrichThingName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineFilter.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineFilter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineFilter.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-filter.html - -module Stratosphere.ResourceProperties.IoTAnalyticsPipelineFilter where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTAnalyticsPipelineFilter. See --- 'ioTAnalyticsPipelineFilter' for a more convenient constructor. -data IoTAnalyticsPipelineFilter = - IoTAnalyticsPipelineFilter - { _ioTAnalyticsPipelineFilterFilter :: Maybe (Val Text) - , _ioTAnalyticsPipelineFilterName :: Maybe (Val Text) - , _ioTAnalyticsPipelineFilterNext :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsPipelineFilter where - toJSON IoTAnalyticsPipelineFilter{..} = - object $ - catMaybes - [ fmap (("Filter",) . toJSON) _ioTAnalyticsPipelineFilterFilter - , fmap (("Name",) . toJSON) _ioTAnalyticsPipelineFilterName - , fmap (("Next",) . toJSON) _ioTAnalyticsPipelineFilterNext - ] - --- | Constructor for 'IoTAnalyticsPipelineFilter' containing required fields --- as arguments. -ioTAnalyticsPipelineFilter - :: IoTAnalyticsPipelineFilter -ioTAnalyticsPipelineFilter = - IoTAnalyticsPipelineFilter - { _ioTAnalyticsPipelineFilterFilter = Nothing - , _ioTAnalyticsPipelineFilterName = Nothing - , _ioTAnalyticsPipelineFilterNext = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-filter.html#cfn-iotanalytics-pipeline-filter-filter -itapfFilter :: Lens' IoTAnalyticsPipelineFilter (Maybe (Val Text)) -itapfFilter = lens _ioTAnalyticsPipelineFilterFilter (\s a -> s { _ioTAnalyticsPipelineFilterFilter = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-filter.html#cfn-iotanalytics-pipeline-filter-name -itapfName :: Lens' IoTAnalyticsPipelineFilter (Maybe (Val Text)) -itapfName = lens _ioTAnalyticsPipelineFilterName (\s a -> s { _ioTAnalyticsPipelineFilterName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-filter.html#cfn-iotanalytics-pipeline-filter-next -itapfNext :: Lens' IoTAnalyticsPipelineFilter (Maybe (Val Text)) -itapfNext = lens _ioTAnalyticsPipelineFilterNext (\s a -> s { _ioTAnalyticsPipelineFilterNext = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineLambda.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineLambda.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineLambda.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-lambda.html - -module Stratosphere.ResourceProperties.IoTAnalyticsPipelineLambda where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTAnalyticsPipelineLambda. See --- 'ioTAnalyticsPipelineLambda' for a more convenient constructor. -data IoTAnalyticsPipelineLambda = - IoTAnalyticsPipelineLambda - { _ioTAnalyticsPipelineLambdaBatchSize :: Maybe (Val Integer) - , _ioTAnalyticsPipelineLambdaLambdaName :: Maybe (Val Text) - , _ioTAnalyticsPipelineLambdaName :: Maybe (Val Text) - , _ioTAnalyticsPipelineLambdaNext :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsPipelineLambda where - toJSON IoTAnalyticsPipelineLambda{..} = - object $ - catMaybes - [ fmap (("BatchSize",) . toJSON) _ioTAnalyticsPipelineLambdaBatchSize - , fmap (("LambdaName",) . toJSON) _ioTAnalyticsPipelineLambdaLambdaName - , fmap (("Name",) . toJSON) _ioTAnalyticsPipelineLambdaName - , fmap (("Next",) . toJSON) _ioTAnalyticsPipelineLambdaNext - ] - --- | Constructor for 'IoTAnalyticsPipelineLambda' containing required fields --- as arguments. -ioTAnalyticsPipelineLambda - :: IoTAnalyticsPipelineLambda -ioTAnalyticsPipelineLambda = - IoTAnalyticsPipelineLambda - { _ioTAnalyticsPipelineLambdaBatchSize = Nothing - , _ioTAnalyticsPipelineLambdaLambdaName = Nothing - , _ioTAnalyticsPipelineLambdaName = Nothing - , _ioTAnalyticsPipelineLambdaNext = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-lambda.html#cfn-iotanalytics-pipeline-lambda-batchsize -itaplBatchSize :: Lens' IoTAnalyticsPipelineLambda (Maybe (Val Integer)) -itaplBatchSize = lens _ioTAnalyticsPipelineLambdaBatchSize (\s a -> s { _ioTAnalyticsPipelineLambdaBatchSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-lambda.html#cfn-iotanalytics-pipeline-lambda-lambdaname -itaplLambdaName :: Lens' IoTAnalyticsPipelineLambda (Maybe (Val Text)) -itaplLambdaName = lens _ioTAnalyticsPipelineLambdaLambdaName (\s a -> s { _ioTAnalyticsPipelineLambdaLambdaName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-lambda.html#cfn-iotanalytics-pipeline-lambda-name -itaplName :: Lens' IoTAnalyticsPipelineLambda (Maybe (Val Text)) -itaplName = lens _ioTAnalyticsPipelineLambdaName (\s a -> s { _ioTAnalyticsPipelineLambdaName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-lambda.html#cfn-iotanalytics-pipeline-lambda-next -itaplNext :: Lens' IoTAnalyticsPipelineLambda (Maybe (Val Text)) -itaplNext = lens _ioTAnalyticsPipelineLambdaNext (\s a -> s { _ioTAnalyticsPipelineLambdaNext = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineMath.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineMath.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineMath.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-math.html - -module Stratosphere.ResourceProperties.IoTAnalyticsPipelineMath where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTAnalyticsPipelineMath. See --- 'ioTAnalyticsPipelineMath' for a more convenient constructor. -data IoTAnalyticsPipelineMath = - IoTAnalyticsPipelineMath - { _ioTAnalyticsPipelineMathAttribute :: Maybe (Val Text) - , _ioTAnalyticsPipelineMathMath :: Maybe (Val Text) - , _ioTAnalyticsPipelineMathName :: Maybe (Val Text) - , _ioTAnalyticsPipelineMathNext :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsPipelineMath where - toJSON IoTAnalyticsPipelineMath{..} = - object $ - catMaybes - [ fmap (("Attribute",) . toJSON) _ioTAnalyticsPipelineMathAttribute - , fmap (("Math",) . toJSON) _ioTAnalyticsPipelineMathMath - , fmap (("Name",) . toJSON) _ioTAnalyticsPipelineMathName - , fmap (("Next",) . toJSON) _ioTAnalyticsPipelineMathNext - ] - --- | Constructor for 'IoTAnalyticsPipelineMath' containing required fields as --- arguments. -ioTAnalyticsPipelineMath - :: IoTAnalyticsPipelineMath -ioTAnalyticsPipelineMath = - IoTAnalyticsPipelineMath - { _ioTAnalyticsPipelineMathAttribute = Nothing - , _ioTAnalyticsPipelineMathMath = Nothing - , _ioTAnalyticsPipelineMathName = Nothing - , _ioTAnalyticsPipelineMathNext = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-math.html#cfn-iotanalytics-pipeline-math-attribute -itapmAttribute :: Lens' IoTAnalyticsPipelineMath (Maybe (Val Text)) -itapmAttribute = lens _ioTAnalyticsPipelineMathAttribute (\s a -> s { _ioTAnalyticsPipelineMathAttribute = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-math.html#cfn-iotanalytics-pipeline-math-math -itapmMath :: Lens' IoTAnalyticsPipelineMath (Maybe (Val Text)) -itapmMath = lens _ioTAnalyticsPipelineMathMath (\s a -> s { _ioTAnalyticsPipelineMathMath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-math.html#cfn-iotanalytics-pipeline-math-name -itapmName :: Lens' IoTAnalyticsPipelineMath (Maybe (Val Text)) -itapmName = lens _ioTAnalyticsPipelineMathName (\s a -> s { _ioTAnalyticsPipelineMathName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-math.html#cfn-iotanalytics-pipeline-math-next -itapmNext :: Lens' IoTAnalyticsPipelineMath (Maybe (Val Text)) -itapmNext = lens _ioTAnalyticsPipelineMathNext (\s a -> s { _ioTAnalyticsPipelineMathNext = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineRemoveAttributes.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineRemoveAttributes.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineRemoveAttributes.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-removeattributes.html - -module Stratosphere.ResourceProperties.IoTAnalyticsPipelineRemoveAttributes where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTAnalyticsPipelineRemoveAttributes. See --- 'ioTAnalyticsPipelineRemoveAttributes' for a more convenient constructor. -data IoTAnalyticsPipelineRemoveAttributes = - IoTAnalyticsPipelineRemoveAttributes - { _ioTAnalyticsPipelineRemoveAttributesAttributes :: Maybe (ValList Text) - , _ioTAnalyticsPipelineRemoveAttributesName :: Maybe (Val Text) - , _ioTAnalyticsPipelineRemoveAttributesNext :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsPipelineRemoveAttributes where - toJSON IoTAnalyticsPipelineRemoveAttributes{..} = - object $ - catMaybes - [ fmap (("Attributes",) . toJSON) _ioTAnalyticsPipelineRemoveAttributesAttributes - , fmap (("Name",) . toJSON) _ioTAnalyticsPipelineRemoveAttributesName - , fmap (("Next",) . toJSON) _ioTAnalyticsPipelineRemoveAttributesNext - ] - --- | Constructor for 'IoTAnalyticsPipelineRemoveAttributes' containing --- required fields as arguments. -ioTAnalyticsPipelineRemoveAttributes - :: IoTAnalyticsPipelineRemoveAttributes -ioTAnalyticsPipelineRemoveAttributes = - IoTAnalyticsPipelineRemoveAttributes - { _ioTAnalyticsPipelineRemoveAttributesAttributes = Nothing - , _ioTAnalyticsPipelineRemoveAttributesName = Nothing - , _ioTAnalyticsPipelineRemoveAttributesNext = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-removeattributes.html#cfn-iotanalytics-pipeline-removeattributes-attributes -itapraAttributes :: Lens' IoTAnalyticsPipelineRemoveAttributes (Maybe (ValList Text)) -itapraAttributes = lens _ioTAnalyticsPipelineRemoveAttributesAttributes (\s a -> s { _ioTAnalyticsPipelineRemoveAttributesAttributes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-removeattributes.html#cfn-iotanalytics-pipeline-removeattributes-name -itapraName :: Lens' IoTAnalyticsPipelineRemoveAttributes (Maybe (Val Text)) -itapraName = lens _ioTAnalyticsPipelineRemoveAttributesName (\s a -> s { _ioTAnalyticsPipelineRemoveAttributesName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-removeattributes.html#cfn-iotanalytics-pipeline-removeattributes-next -itapraNext :: Lens' IoTAnalyticsPipelineRemoveAttributes (Maybe (Val Text)) -itapraNext = lens _ioTAnalyticsPipelineRemoveAttributesNext (\s a -> s { _ioTAnalyticsPipelineRemoveAttributesNext = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineSelectAttributes.hs b/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineSelectAttributes.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineSelectAttributes.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-selectattributes.html - -module Stratosphere.ResourceProperties.IoTAnalyticsPipelineSelectAttributes where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTAnalyticsPipelineSelectAttributes. See --- 'ioTAnalyticsPipelineSelectAttributes' for a more convenient constructor. -data IoTAnalyticsPipelineSelectAttributes = - IoTAnalyticsPipelineSelectAttributes - { _ioTAnalyticsPipelineSelectAttributesAttributes :: Maybe (ValList Text) - , _ioTAnalyticsPipelineSelectAttributesName :: Maybe (Val Text) - , _ioTAnalyticsPipelineSelectAttributesNext :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTAnalyticsPipelineSelectAttributes where - toJSON IoTAnalyticsPipelineSelectAttributes{..} = - object $ - catMaybes - [ fmap (("Attributes",) . toJSON) _ioTAnalyticsPipelineSelectAttributesAttributes - , fmap (("Name",) . toJSON) _ioTAnalyticsPipelineSelectAttributesName - , fmap (("Next",) . toJSON) _ioTAnalyticsPipelineSelectAttributesNext - ] - --- | Constructor for 'IoTAnalyticsPipelineSelectAttributes' containing --- required fields as arguments. -ioTAnalyticsPipelineSelectAttributes - :: IoTAnalyticsPipelineSelectAttributes -ioTAnalyticsPipelineSelectAttributes = - IoTAnalyticsPipelineSelectAttributes - { _ioTAnalyticsPipelineSelectAttributesAttributes = Nothing - , _ioTAnalyticsPipelineSelectAttributesName = Nothing - , _ioTAnalyticsPipelineSelectAttributesNext = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-selectattributes.html#cfn-iotanalytics-pipeline-selectattributes-attributes -itapsaAttributes :: Lens' IoTAnalyticsPipelineSelectAttributes (Maybe (ValList Text)) -itapsaAttributes = lens _ioTAnalyticsPipelineSelectAttributesAttributes (\s a -> s { _ioTAnalyticsPipelineSelectAttributesAttributes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-selectattributes.html#cfn-iotanalytics-pipeline-selectattributes-name -itapsaName :: Lens' IoTAnalyticsPipelineSelectAttributes (Maybe (Val Text)) -itapsaName = lens _ioTAnalyticsPipelineSelectAttributesName (\s a -> s { _ioTAnalyticsPipelineSelectAttributesName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-pipeline-selectattributes.html#cfn-iotanalytics-pipeline-selectattributes-next -itapsaNext :: Lens' IoTAnalyticsPipelineSelectAttributes (Maybe (Val Text)) -itapsaNext = lens _ioTAnalyticsPipelineSelectAttributesNext (\s a -> s { _ioTAnalyticsPipelineSelectAttributesNext = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelAction.hs b/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelAction.hs +++ /dev/null @@ -1,134 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-action.html - -module Stratosphere.ResourceProperties.IoTEventsDetectorModelAction where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTEventsDetectorModelClearTimer -import Stratosphere.ResourceProperties.IoTEventsDetectorModelDynamoDB -import Stratosphere.ResourceProperties.IoTEventsDetectorModelDynamoDBv2 -import Stratosphere.ResourceProperties.IoTEventsDetectorModelFirehose -import Stratosphere.ResourceProperties.IoTEventsDetectorModelIotEvents -import Stratosphere.ResourceProperties.IoTEventsDetectorModelIotSiteWise -import Stratosphere.ResourceProperties.IoTEventsDetectorModelIotTopicPublish -import Stratosphere.ResourceProperties.IoTEventsDetectorModelLambda -import Stratosphere.ResourceProperties.IoTEventsDetectorModelResetTimer -import Stratosphere.ResourceProperties.IoTEventsDetectorModelSetTimer -import Stratosphere.ResourceProperties.IoTEventsDetectorModelSetVariable -import Stratosphere.ResourceProperties.IoTEventsDetectorModelSns -import Stratosphere.ResourceProperties.IoTEventsDetectorModelSqs - --- | Full data type definition for IoTEventsDetectorModelAction. See --- 'ioTEventsDetectorModelAction' for a more convenient constructor. -data IoTEventsDetectorModelAction = - IoTEventsDetectorModelAction - { _ioTEventsDetectorModelActionClearTimer :: Maybe IoTEventsDetectorModelClearTimer - , _ioTEventsDetectorModelActionDynamoDB :: Maybe IoTEventsDetectorModelDynamoDB - , _ioTEventsDetectorModelActionDynamoDBv2 :: Maybe IoTEventsDetectorModelDynamoDBv2 - , _ioTEventsDetectorModelActionFirehose :: Maybe IoTEventsDetectorModelFirehose - , _ioTEventsDetectorModelActionIotEvents :: Maybe IoTEventsDetectorModelIotEvents - , _ioTEventsDetectorModelActionIotSiteWise :: Maybe IoTEventsDetectorModelIotSiteWise - , _ioTEventsDetectorModelActionIotTopicPublish :: Maybe IoTEventsDetectorModelIotTopicPublish - , _ioTEventsDetectorModelActionLambda :: Maybe IoTEventsDetectorModelLambda - , _ioTEventsDetectorModelActionResetTimer :: Maybe IoTEventsDetectorModelResetTimer - , _ioTEventsDetectorModelActionSetTimer :: Maybe IoTEventsDetectorModelSetTimer - , _ioTEventsDetectorModelActionSetVariable :: Maybe IoTEventsDetectorModelSetVariable - , _ioTEventsDetectorModelActionSns :: Maybe IoTEventsDetectorModelSns - , _ioTEventsDetectorModelActionSqs :: Maybe IoTEventsDetectorModelSqs - } deriving (Show, Eq) - -instance ToJSON IoTEventsDetectorModelAction where - toJSON IoTEventsDetectorModelAction{..} = - object $ - catMaybes - [ fmap (("ClearTimer",) . toJSON) _ioTEventsDetectorModelActionClearTimer - , fmap (("DynamoDB",) . toJSON) _ioTEventsDetectorModelActionDynamoDB - , fmap (("DynamoDBv2",) . toJSON) _ioTEventsDetectorModelActionDynamoDBv2 - , fmap (("Firehose",) . toJSON) _ioTEventsDetectorModelActionFirehose - , fmap (("IotEvents",) . toJSON) _ioTEventsDetectorModelActionIotEvents - , fmap (("IotSiteWise",) . toJSON) _ioTEventsDetectorModelActionIotSiteWise - , fmap (("IotTopicPublish",) . toJSON) _ioTEventsDetectorModelActionIotTopicPublish - , fmap (("Lambda",) . toJSON) _ioTEventsDetectorModelActionLambda - , fmap (("ResetTimer",) . toJSON) _ioTEventsDetectorModelActionResetTimer - , fmap (("SetTimer",) . toJSON) _ioTEventsDetectorModelActionSetTimer - , fmap (("SetVariable",) . toJSON) _ioTEventsDetectorModelActionSetVariable - , fmap (("Sns",) . toJSON) _ioTEventsDetectorModelActionSns - , fmap (("Sqs",) . toJSON) _ioTEventsDetectorModelActionSqs - ] - --- | Constructor for 'IoTEventsDetectorModelAction' containing required fields --- as arguments. -ioTEventsDetectorModelAction - :: IoTEventsDetectorModelAction -ioTEventsDetectorModelAction = - IoTEventsDetectorModelAction - { _ioTEventsDetectorModelActionClearTimer = Nothing - , _ioTEventsDetectorModelActionDynamoDB = Nothing - , _ioTEventsDetectorModelActionDynamoDBv2 = Nothing - , _ioTEventsDetectorModelActionFirehose = Nothing - , _ioTEventsDetectorModelActionIotEvents = Nothing - , _ioTEventsDetectorModelActionIotSiteWise = Nothing - , _ioTEventsDetectorModelActionIotTopicPublish = Nothing - , _ioTEventsDetectorModelActionLambda = Nothing - , _ioTEventsDetectorModelActionResetTimer = Nothing - , _ioTEventsDetectorModelActionSetTimer = Nothing - , _ioTEventsDetectorModelActionSetVariable = Nothing - , _ioTEventsDetectorModelActionSns = Nothing - , _ioTEventsDetectorModelActionSqs = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-action.html#cfn-iotevents-detectormodel-action-cleartimer -itedmaClearTimer :: Lens' IoTEventsDetectorModelAction (Maybe IoTEventsDetectorModelClearTimer) -itedmaClearTimer = lens _ioTEventsDetectorModelActionClearTimer (\s a -> s { _ioTEventsDetectorModelActionClearTimer = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-action.html#cfn-iotevents-detectormodel-action-dynamodb -itedmaDynamoDB :: Lens' IoTEventsDetectorModelAction (Maybe IoTEventsDetectorModelDynamoDB) -itedmaDynamoDB = lens _ioTEventsDetectorModelActionDynamoDB (\s a -> s { _ioTEventsDetectorModelActionDynamoDB = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-action.html#cfn-iotevents-detectormodel-action-dynamodbv2 -itedmaDynamoDBv2 :: Lens' IoTEventsDetectorModelAction (Maybe IoTEventsDetectorModelDynamoDBv2) -itedmaDynamoDBv2 = lens _ioTEventsDetectorModelActionDynamoDBv2 (\s a -> s { _ioTEventsDetectorModelActionDynamoDBv2 = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-action.html#cfn-iotevents-detectormodel-action-firehose -itedmaFirehose :: Lens' IoTEventsDetectorModelAction (Maybe IoTEventsDetectorModelFirehose) -itedmaFirehose = lens _ioTEventsDetectorModelActionFirehose (\s a -> s { _ioTEventsDetectorModelActionFirehose = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-action.html#cfn-iotevents-detectormodel-action-iotevents -itedmaIotEvents :: Lens' IoTEventsDetectorModelAction (Maybe IoTEventsDetectorModelIotEvents) -itedmaIotEvents = lens _ioTEventsDetectorModelActionIotEvents (\s a -> s { _ioTEventsDetectorModelActionIotEvents = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-action.html#cfn-iotevents-detectormodel-action-iotsitewise -itedmaIotSiteWise :: Lens' IoTEventsDetectorModelAction (Maybe IoTEventsDetectorModelIotSiteWise) -itedmaIotSiteWise = lens _ioTEventsDetectorModelActionIotSiteWise (\s a -> s { _ioTEventsDetectorModelActionIotSiteWise = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-action.html#cfn-iotevents-detectormodel-action-iottopicpublish -itedmaIotTopicPublish :: Lens' IoTEventsDetectorModelAction (Maybe IoTEventsDetectorModelIotTopicPublish) -itedmaIotTopicPublish = lens _ioTEventsDetectorModelActionIotTopicPublish (\s a -> s { _ioTEventsDetectorModelActionIotTopicPublish = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-action.html#cfn-iotevents-detectormodel-action-lambda -itedmaLambda :: Lens' IoTEventsDetectorModelAction (Maybe IoTEventsDetectorModelLambda) -itedmaLambda = lens _ioTEventsDetectorModelActionLambda (\s a -> s { _ioTEventsDetectorModelActionLambda = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-action.html#cfn-iotevents-detectormodel-action-resettimer -itedmaResetTimer :: Lens' IoTEventsDetectorModelAction (Maybe IoTEventsDetectorModelResetTimer) -itedmaResetTimer = lens _ioTEventsDetectorModelActionResetTimer (\s a -> s { _ioTEventsDetectorModelActionResetTimer = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-action.html#cfn-iotevents-detectormodel-action-settimer -itedmaSetTimer :: Lens' IoTEventsDetectorModelAction (Maybe IoTEventsDetectorModelSetTimer) -itedmaSetTimer = lens _ioTEventsDetectorModelActionSetTimer (\s a -> s { _ioTEventsDetectorModelActionSetTimer = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-action.html#cfn-iotevents-detectormodel-action-setvariable -itedmaSetVariable :: Lens' IoTEventsDetectorModelAction (Maybe IoTEventsDetectorModelSetVariable) -itedmaSetVariable = lens _ioTEventsDetectorModelActionSetVariable (\s a -> s { _ioTEventsDetectorModelActionSetVariable = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-action.html#cfn-iotevents-detectormodel-action-sns -itedmaSns :: Lens' IoTEventsDetectorModelAction (Maybe IoTEventsDetectorModelSns) -itedmaSns = lens _ioTEventsDetectorModelActionSns (\s a -> s { _ioTEventsDetectorModelActionSns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-action.html#cfn-iotevents-detectormodel-action-sqs -itedmaSqs :: Lens' IoTEventsDetectorModelAction (Maybe IoTEventsDetectorModelSqs) -itedmaSqs = lens _ioTEventsDetectorModelActionSqs (\s a -> s { _ioTEventsDetectorModelActionSqs = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelAssetPropertyTimestamp.hs b/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelAssetPropertyTimestamp.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelAssetPropertyTimestamp.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-assetpropertytimestamp.html - -module Stratosphere.ResourceProperties.IoTEventsDetectorModelAssetPropertyTimestamp where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- IoTEventsDetectorModelAssetPropertyTimestamp. See --- 'ioTEventsDetectorModelAssetPropertyTimestamp' for a more convenient --- constructor. -data IoTEventsDetectorModelAssetPropertyTimestamp = - IoTEventsDetectorModelAssetPropertyTimestamp - { _ioTEventsDetectorModelAssetPropertyTimestampOffsetInNanos :: Maybe (Val Text) - , _ioTEventsDetectorModelAssetPropertyTimestampTimeInSeconds :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTEventsDetectorModelAssetPropertyTimestamp where - toJSON IoTEventsDetectorModelAssetPropertyTimestamp{..} = - object $ - catMaybes - [ fmap (("OffsetInNanos",) . toJSON) _ioTEventsDetectorModelAssetPropertyTimestampOffsetInNanos - , fmap (("TimeInSeconds",) . toJSON) _ioTEventsDetectorModelAssetPropertyTimestampTimeInSeconds - ] - --- | Constructor for 'IoTEventsDetectorModelAssetPropertyTimestamp' containing --- required fields as arguments. -ioTEventsDetectorModelAssetPropertyTimestamp - :: IoTEventsDetectorModelAssetPropertyTimestamp -ioTEventsDetectorModelAssetPropertyTimestamp = - IoTEventsDetectorModelAssetPropertyTimestamp - { _ioTEventsDetectorModelAssetPropertyTimestampOffsetInNanos = Nothing - , _ioTEventsDetectorModelAssetPropertyTimestampTimeInSeconds = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-assetpropertytimestamp.html#cfn-iotevents-detectormodel-assetpropertytimestamp-offsetinnanos -itedmaptOffsetInNanos :: Lens' IoTEventsDetectorModelAssetPropertyTimestamp (Maybe (Val Text)) -itedmaptOffsetInNanos = lens _ioTEventsDetectorModelAssetPropertyTimestampOffsetInNanos (\s a -> s { _ioTEventsDetectorModelAssetPropertyTimestampOffsetInNanos = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-assetpropertytimestamp.html#cfn-iotevents-detectormodel-assetpropertytimestamp-timeinseconds -itedmaptTimeInSeconds :: Lens' IoTEventsDetectorModelAssetPropertyTimestamp (Maybe (Val Text)) -itedmaptTimeInSeconds = lens _ioTEventsDetectorModelAssetPropertyTimestampTimeInSeconds (\s a -> s { _ioTEventsDetectorModelAssetPropertyTimestampTimeInSeconds = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelAssetPropertyValue.hs b/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelAssetPropertyValue.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelAssetPropertyValue.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-assetpropertyvalue.html - -module Stratosphere.ResourceProperties.IoTEventsDetectorModelAssetPropertyValue where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTEventsDetectorModelAssetPropertyTimestamp -import Stratosphere.ResourceProperties.IoTEventsDetectorModelAssetPropertyVariant - --- | Full data type definition for IoTEventsDetectorModelAssetPropertyValue. --- See 'ioTEventsDetectorModelAssetPropertyValue' for a more convenient --- constructor. -data IoTEventsDetectorModelAssetPropertyValue = - IoTEventsDetectorModelAssetPropertyValue - { _ioTEventsDetectorModelAssetPropertyValueQuality :: Maybe (Val Text) - , _ioTEventsDetectorModelAssetPropertyValueTimestamp :: Maybe IoTEventsDetectorModelAssetPropertyTimestamp - , _ioTEventsDetectorModelAssetPropertyValueValue :: Maybe IoTEventsDetectorModelAssetPropertyVariant - } deriving (Show, Eq) - -instance ToJSON IoTEventsDetectorModelAssetPropertyValue where - toJSON IoTEventsDetectorModelAssetPropertyValue{..} = - object $ - catMaybes - [ fmap (("Quality",) . toJSON) _ioTEventsDetectorModelAssetPropertyValueQuality - , fmap (("Timestamp",) . toJSON) _ioTEventsDetectorModelAssetPropertyValueTimestamp - , fmap (("Value",) . toJSON) _ioTEventsDetectorModelAssetPropertyValueValue - ] - --- | Constructor for 'IoTEventsDetectorModelAssetPropertyValue' containing --- required fields as arguments. -ioTEventsDetectorModelAssetPropertyValue - :: IoTEventsDetectorModelAssetPropertyValue -ioTEventsDetectorModelAssetPropertyValue = - IoTEventsDetectorModelAssetPropertyValue - { _ioTEventsDetectorModelAssetPropertyValueQuality = Nothing - , _ioTEventsDetectorModelAssetPropertyValueTimestamp = Nothing - , _ioTEventsDetectorModelAssetPropertyValueValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-assetpropertyvalue.html#cfn-iotevents-detectormodel-assetpropertyvalue-quality -itedmapvQuality :: Lens' IoTEventsDetectorModelAssetPropertyValue (Maybe (Val Text)) -itedmapvQuality = lens _ioTEventsDetectorModelAssetPropertyValueQuality (\s a -> s { _ioTEventsDetectorModelAssetPropertyValueQuality = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-assetpropertyvalue.html#cfn-iotevents-detectormodel-assetpropertyvalue-timestamp -itedmapvTimestamp :: Lens' IoTEventsDetectorModelAssetPropertyValue (Maybe IoTEventsDetectorModelAssetPropertyTimestamp) -itedmapvTimestamp = lens _ioTEventsDetectorModelAssetPropertyValueTimestamp (\s a -> s { _ioTEventsDetectorModelAssetPropertyValueTimestamp = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-assetpropertyvalue.html#cfn-iotevents-detectormodel-assetpropertyvalue-value -itedmapvValue :: Lens' IoTEventsDetectorModelAssetPropertyValue (Maybe IoTEventsDetectorModelAssetPropertyVariant) -itedmapvValue = lens _ioTEventsDetectorModelAssetPropertyValueValue (\s a -> s { _ioTEventsDetectorModelAssetPropertyValueValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelAssetPropertyVariant.hs b/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelAssetPropertyVariant.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelAssetPropertyVariant.hs +++ /dev/null @@ -1,60 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-assetpropertyvariant.html - -module Stratosphere.ResourceProperties.IoTEventsDetectorModelAssetPropertyVariant where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTEventsDetectorModelAssetPropertyVariant. --- See 'ioTEventsDetectorModelAssetPropertyVariant' for a more convenient --- constructor. -data IoTEventsDetectorModelAssetPropertyVariant = - IoTEventsDetectorModelAssetPropertyVariant - { _ioTEventsDetectorModelAssetPropertyVariantBooleanValue :: Maybe (Val Text) - , _ioTEventsDetectorModelAssetPropertyVariantDoubleValue :: Maybe (Val Text) - , _ioTEventsDetectorModelAssetPropertyVariantIntegerValue :: Maybe (Val Text) - , _ioTEventsDetectorModelAssetPropertyVariantStringValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTEventsDetectorModelAssetPropertyVariant where - toJSON IoTEventsDetectorModelAssetPropertyVariant{..} = - object $ - catMaybes - [ fmap (("BooleanValue",) . toJSON) _ioTEventsDetectorModelAssetPropertyVariantBooleanValue - , fmap (("DoubleValue",) . toJSON) _ioTEventsDetectorModelAssetPropertyVariantDoubleValue - , fmap (("IntegerValue",) . toJSON) _ioTEventsDetectorModelAssetPropertyVariantIntegerValue - , fmap (("StringValue",) . toJSON) _ioTEventsDetectorModelAssetPropertyVariantStringValue - ] - --- | Constructor for 'IoTEventsDetectorModelAssetPropertyVariant' containing --- required fields as arguments. -ioTEventsDetectorModelAssetPropertyVariant - :: IoTEventsDetectorModelAssetPropertyVariant -ioTEventsDetectorModelAssetPropertyVariant = - IoTEventsDetectorModelAssetPropertyVariant - { _ioTEventsDetectorModelAssetPropertyVariantBooleanValue = Nothing - , _ioTEventsDetectorModelAssetPropertyVariantDoubleValue = Nothing - , _ioTEventsDetectorModelAssetPropertyVariantIntegerValue = Nothing - , _ioTEventsDetectorModelAssetPropertyVariantStringValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-assetpropertyvariant.html#cfn-iotevents-detectormodel-assetpropertyvariant-booleanvalue -itedmapvBooleanValue :: Lens' IoTEventsDetectorModelAssetPropertyVariant (Maybe (Val Text)) -itedmapvBooleanValue = lens _ioTEventsDetectorModelAssetPropertyVariantBooleanValue (\s a -> s { _ioTEventsDetectorModelAssetPropertyVariantBooleanValue = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-assetpropertyvariant.html#cfn-iotevents-detectormodel-assetpropertyvariant-doublevalue -itedmapvDoubleValue :: Lens' IoTEventsDetectorModelAssetPropertyVariant (Maybe (Val Text)) -itedmapvDoubleValue = lens _ioTEventsDetectorModelAssetPropertyVariantDoubleValue (\s a -> s { _ioTEventsDetectorModelAssetPropertyVariantDoubleValue = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-assetpropertyvariant.html#cfn-iotevents-detectormodel-assetpropertyvariant-integervalue -itedmapvIntegerValue :: Lens' IoTEventsDetectorModelAssetPropertyVariant (Maybe (Val Text)) -itedmapvIntegerValue = lens _ioTEventsDetectorModelAssetPropertyVariantIntegerValue (\s a -> s { _ioTEventsDetectorModelAssetPropertyVariantIntegerValue = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-assetpropertyvariant.html#cfn-iotevents-detectormodel-assetpropertyvariant-stringvalue -itedmapvStringValue :: Lens' IoTEventsDetectorModelAssetPropertyVariant (Maybe (Val Text)) -itedmapvStringValue = lens _ioTEventsDetectorModelAssetPropertyVariantStringValue (\s a -> s { _ioTEventsDetectorModelAssetPropertyVariantStringValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelClearTimer.hs b/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelClearTimer.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelClearTimer.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-cleartimer.html - -module Stratosphere.ResourceProperties.IoTEventsDetectorModelClearTimer where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTEventsDetectorModelClearTimer. See --- 'ioTEventsDetectorModelClearTimer' for a more convenient constructor. -data IoTEventsDetectorModelClearTimer = - IoTEventsDetectorModelClearTimer - { _ioTEventsDetectorModelClearTimerTimerName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTEventsDetectorModelClearTimer where - toJSON IoTEventsDetectorModelClearTimer{..} = - object $ - catMaybes - [ fmap (("TimerName",) . toJSON) _ioTEventsDetectorModelClearTimerTimerName - ] - --- | Constructor for 'IoTEventsDetectorModelClearTimer' containing required --- fields as arguments. -ioTEventsDetectorModelClearTimer - :: IoTEventsDetectorModelClearTimer -ioTEventsDetectorModelClearTimer = - IoTEventsDetectorModelClearTimer - { _ioTEventsDetectorModelClearTimerTimerName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-cleartimer.html#cfn-iotevents-detectormodel-cleartimer-timername -itedmctTimerName :: Lens' IoTEventsDetectorModelClearTimer (Maybe (Val Text)) -itedmctTimerName = lens _ioTEventsDetectorModelClearTimerTimerName (\s a -> s { _ioTEventsDetectorModelClearTimerTimerName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelDetectorModelDefinition.hs b/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelDetectorModelDefinition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelDetectorModelDefinition.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-detectormodeldefinition.html - -module Stratosphere.ResourceProperties.IoTEventsDetectorModelDetectorModelDefinition where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTEventsDetectorModelState - --- | Full data type definition for --- IoTEventsDetectorModelDetectorModelDefinition. See --- 'ioTEventsDetectorModelDetectorModelDefinition' for a more convenient --- constructor. -data IoTEventsDetectorModelDetectorModelDefinition = - IoTEventsDetectorModelDetectorModelDefinition - { _ioTEventsDetectorModelDetectorModelDefinitionInitialStateName :: Maybe (Val Text) - , _ioTEventsDetectorModelDetectorModelDefinitionStates :: Maybe [IoTEventsDetectorModelState] - } deriving (Show, Eq) - -instance ToJSON IoTEventsDetectorModelDetectorModelDefinition where - toJSON IoTEventsDetectorModelDetectorModelDefinition{..} = - object $ - catMaybes - [ fmap (("InitialStateName",) . toJSON) _ioTEventsDetectorModelDetectorModelDefinitionInitialStateName - , fmap (("States",) . toJSON) _ioTEventsDetectorModelDetectorModelDefinitionStates - ] - --- | Constructor for 'IoTEventsDetectorModelDetectorModelDefinition' --- containing required fields as arguments. -ioTEventsDetectorModelDetectorModelDefinition - :: IoTEventsDetectorModelDetectorModelDefinition -ioTEventsDetectorModelDetectorModelDefinition = - IoTEventsDetectorModelDetectorModelDefinition - { _ioTEventsDetectorModelDetectorModelDefinitionInitialStateName = Nothing - , _ioTEventsDetectorModelDetectorModelDefinitionStates = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-detectormodeldefinition.html#cfn-iotevents-detectormodel-detectormodeldefinition-initialstatename -itedmdmdInitialStateName :: Lens' IoTEventsDetectorModelDetectorModelDefinition (Maybe (Val Text)) -itedmdmdInitialStateName = lens _ioTEventsDetectorModelDetectorModelDefinitionInitialStateName (\s a -> s { _ioTEventsDetectorModelDetectorModelDefinitionInitialStateName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-detectormodeldefinition.html#cfn-iotevents-detectormodel-detectormodeldefinition-states -itedmdmdStates :: Lens' IoTEventsDetectorModelDetectorModelDefinition (Maybe [IoTEventsDetectorModelState]) -itedmdmdStates = lens _ioTEventsDetectorModelDetectorModelDefinitionStates (\s a -> s { _ioTEventsDetectorModelDetectorModelDefinitionStates = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelDynamoDB.hs b/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelDynamoDB.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelDynamoDB.hs +++ /dev/null @@ -1,101 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-dynamodb.html - -module Stratosphere.ResourceProperties.IoTEventsDetectorModelDynamoDB where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTEventsDetectorModelPayload - --- | Full data type definition for IoTEventsDetectorModelDynamoDB. See --- 'ioTEventsDetectorModelDynamoDB' for a more convenient constructor. -data IoTEventsDetectorModelDynamoDB = - IoTEventsDetectorModelDynamoDB - { _ioTEventsDetectorModelDynamoDBHashKeyField :: Maybe (Val Text) - , _ioTEventsDetectorModelDynamoDBHashKeyType :: Maybe (Val Text) - , _ioTEventsDetectorModelDynamoDBHashKeyValue :: Maybe (Val Text) - , _ioTEventsDetectorModelDynamoDBOperation :: Maybe (Val Text) - , _ioTEventsDetectorModelDynamoDBPayload :: Maybe IoTEventsDetectorModelPayload - , _ioTEventsDetectorModelDynamoDBPayloadField :: Maybe (Val Text) - , _ioTEventsDetectorModelDynamoDBRangeKeyField :: Maybe (Val Text) - , _ioTEventsDetectorModelDynamoDBRangeKeyType :: Maybe (Val Text) - , _ioTEventsDetectorModelDynamoDBRangeKeyValue :: Maybe (Val Text) - , _ioTEventsDetectorModelDynamoDBTableName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTEventsDetectorModelDynamoDB where - toJSON IoTEventsDetectorModelDynamoDB{..} = - object $ - catMaybes - [ fmap (("HashKeyField",) . toJSON) _ioTEventsDetectorModelDynamoDBHashKeyField - , fmap (("HashKeyType",) . toJSON) _ioTEventsDetectorModelDynamoDBHashKeyType - , fmap (("HashKeyValue",) . toJSON) _ioTEventsDetectorModelDynamoDBHashKeyValue - , fmap (("Operation",) . toJSON) _ioTEventsDetectorModelDynamoDBOperation - , fmap (("Payload",) . toJSON) _ioTEventsDetectorModelDynamoDBPayload - , fmap (("PayloadField",) . toJSON) _ioTEventsDetectorModelDynamoDBPayloadField - , fmap (("RangeKeyField",) . toJSON) _ioTEventsDetectorModelDynamoDBRangeKeyField - , fmap (("RangeKeyType",) . toJSON) _ioTEventsDetectorModelDynamoDBRangeKeyType - , fmap (("RangeKeyValue",) . toJSON) _ioTEventsDetectorModelDynamoDBRangeKeyValue - , fmap (("TableName",) . toJSON) _ioTEventsDetectorModelDynamoDBTableName - ] - --- | Constructor for 'IoTEventsDetectorModelDynamoDB' containing required --- fields as arguments. -ioTEventsDetectorModelDynamoDB - :: IoTEventsDetectorModelDynamoDB -ioTEventsDetectorModelDynamoDB = - IoTEventsDetectorModelDynamoDB - { _ioTEventsDetectorModelDynamoDBHashKeyField = Nothing - , _ioTEventsDetectorModelDynamoDBHashKeyType = Nothing - , _ioTEventsDetectorModelDynamoDBHashKeyValue = Nothing - , _ioTEventsDetectorModelDynamoDBOperation = Nothing - , _ioTEventsDetectorModelDynamoDBPayload = Nothing - , _ioTEventsDetectorModelDynamoDBPayloadField = Nothing - , _ioTEventsDetectorModelDynamoDBRangeKeyField = Nothing - , _ioTEventsDetectorModelDynamoDBRangeKeyType = Nothing - , _ioTEventsDetectorModelDynamoDBRangeKeyValue = Nothing - , _ioTEventsDetectorModelDynamoDBTableName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-dynamodb.html#cfn-iotevents-detectormodel-dynamodb-hashkeyfield -itedmddbHashKeyField :: Lens' IoTEventsDetectorModelDynamoDB (Maybe (Val Text)) -itedmddbHashKeyField = lens _ioTEventsDetectorModelDynamoDBHashKeyField (\s a -> s { _ioTEventsDetectorModelDynamoDBHashKeyField = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-dynamodb.html#cfn-iotevents-detectormodel-dynamodb-hashkeytype -itedmddbHashKeyType :: Lens' IoTEventsDetectorModelDynamoDB (Maybe (Val Text)) -itedmddbHashKeyType = lens _ioTEventsDetectorModelDynamoDBHashKeyType (\s a -> s { _ioTEventsDetectorModelDynamoDBHashKeyType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-dynamodb.html#cfn-iotevents-detectormodel-dynamodb-hashkeyvalue -itedmddbHashKeyValue :: Lens' IoTEventsDetectorModelDynamoDB (Maybe (Val Text)) -itedmddbHashKeyValue = lens _ioTEventsDetectorModelDynamoDBHashKeyValue (\s a -> s { _ioTEventsDetectorModelDynamoDBHashKeyValue = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-dynamodb.html#cfn-iotevents-detectormodel-dynamodb-operation -itedmddbOperation :: Lens' IoTEventsDetectorModelDynamoDB (Maybe (Val Text)) -itedmddbOperation = lens _ioTEventsDetectorModelDynamoDBOperation (\s a -> s { _ioTEventsDetectorModelDynamoDBOperation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-dynamodb.html#cfn-iotevents-detectormodel-dynamodb-payload -itedmddbPayload :: Lens' IoTEventsDetectorModelDynamoDB (Maybe IoTEventsDetectorModelPayload) -itedmddbPayload = lens _ioTEventsDetectorModelDynamoDBPayload (\s a -> s { _ioTEventsDetectorModelDynamoDBPayload = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-dynamodb.html#cfn-iotevents-detectormodel-dynamodb-payloadfield -itedmddbPayloadField :: Lens' IoTEventsDetectorModelDynamoDB (Maybe (Val Text)) -itedmddbPayloadField = lens _ioTEventsDetectorModelDynamoDBPayloadField (\s a -> s { _ioTEventsDetectorModelDynamoDBPayloadField = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-dynamodb.html#cfn-iotevents-detectormodel-dynamodb-rangekeyfield -itedmddbRangeKeyField :: Lens' IoTEventsDetectorModelDynamoDB (Maybe (Val Text)) -itedmddbRangeKeyField = lens _ioTEventsDetectorModelDynamoDBRangeKeyField (\s a -> s { _ioTEventsDetectorModelDynamoDBRangeKeyField = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-dynamodb.html#cfn-iotevents-detectormodel-dynamodb-rangekeytype -itedmddbRangeKeyType :: Lens' IoTEventsDetectorModelDynamoDB (Maybe (Val Text)) -itedmddbRangeKeyType = lens _ioTEventsDetectorModelDynamoDBRangeKeyType (\s a -> s { _ioTEventsDetectorModelDynamoDBRangeKeyType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-dynamodb.html#cfn-iotevents-detectormodel-dynamodb-rangekeyvalue -itedmddbRangeKeyValue :: Lens' IoTEventsDetectorModelDynamoDB (Maybe (Val Text)) -itedmddbRangeKeyValue = lens _ioTEventsDetectorModelDynamoDBRangeKeyValue (\s a -> s { _ioTEventsDetectorModelDynamoDBRangeKeyValue = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-dynamodb.html#cfn-iotevents-detectormodel-dynamodb-tablename -itedmddbTableName :: Lens' IoTEventsDetectorModelDynamoDB (Maybe (Val Text)) -itedmddbTableName = lens _ioTEventsDetectorModelDynamoDBTableName (\s a -> s { _ioTEventsDetectorModelDynamoDBTableName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelDynamoDBv2.hs b/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelDynamoDBv2.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelDynamoDBv2.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-dynamodbv2.html - -module Stratosphere.ResourceProperties.IoTEventsDetectorModelDynamoDBv2 where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTEventsDetectorModelPayload - --- | Full data type definition for IoTEventsDetectorModelDynamoDBv2. See --- 'ioTEventsDetectorModelDynamoDBv2' for a more convenient constructor. -data IoTEventsDetectorModelDynamoDBv2 = - IoTEventsDetectorModelDynamoDBv2 - { _ioTEventsDetectorModelDynamoDBv2Payload :: Maybe IoTEventsDetectorModelPayload - , _ioTEventsDetectorModelDynamoDBv2TableName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTEventsDetectorModelDynamoDBv2 where - toJSON IoTEventsDetectorModelDynamoDBv2{..} = - object $ - catMaybes - [ fmap (("Payload",) . toJSON) _ioTEventsDetectorModelDynamoDBv2Payload - , fmap (("TableName",) . toJSON) _ioTEventsDetectorModelDynamoDBv2TableName - ] - --- | Constructor for 'IoTEventsDetectorModelDynamoDBv2' containing required --- fields as arguments. -ioTEventsDetectorModelDynamoDBv2 - :: IoTEventsDetectorModelDynamoDBv2 -ioTEventsDetectorModelDynamoDBv2 = - IoTEventsDetectorModelDynamoDBv2 - { _ioTEventsDetectorModelDynamoDBv2Payload = Nothing - , _ioTEventsDetectorModelDynamoDBv2TableName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-dynamodbv2.html#cfn-iotevents-detectormodel-dynamodbv2-payload -itedmddbvPayload :: Lens' IoTEventsDetectorModelDynamoDBv2 (Maybe IoTEventsDetectorModelPayload) -itedmddbvPayload = lens _ioTEventsDetectorModelDynamoDBv2Payload (\s a -> s { _ioTEventsDetectorModelDynamoDBv2Payload = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-dynamodbv2.html#cfn-iotevents-detectormodel-dynamodbv2-tablename -itedmddbvTableName :: Lens' IoTEventsDetectorModelDynamoDBv2 (Maybe (Val Text)) -itedmddbvTableName = lens _ioTEventsDetectorModelDynamoDBv2TableName (\s a -> s { _ioTEventsDetectorModelDynamoDBv2TableName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelEvent.hs b/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelEvent.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelEvent.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-event.html - -module Stratosphere.ResourceProperties.IoTEventsDetectorModelEvent where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTEventsDetectorModelAction - --- | Full data type definition for IoTEventsDetectorModelEvent. See --- 'ioTEventsDetectorModelEvent' for a more convenient constructor. -data IoTEventsDetectorModelEvent = - IoTEventsDetectorModelEvent - { _ioTEventsDetectorModelEventActions :: Maybe [IoTEventsDetectorModelAction] - , _ioTEventsDetectorModelEventCondition :: Maybe (Val Text) - , _ioTEventsDetectorModelEventEventName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTEventsDetectorModelEvent where - toJSON IoTEventsDetectorModelEvent{..} = - object $ - catMaybes - [ fmap (("Actions",) . toJSON) _ioTEventsDetectorModelEventActions - , fmap (("Condition",) . toJSON) _ioTEventsDetectorModelEventCondition - , fmap (("EventName",) . toJSON) _ioTEventsDetectorModelEventEventName - ] - --- | Constructor for 'IoTEventsDetectorModelEvent' containing required fields --- as arguments. -ioTEventsDetectorModelEvent - :: IoTEventsDetectorModelEvent -ioTEventsDetectorModelEvent = - IoTEventsDetectorModelEvent - { _ioTEventsDetectorModelEventActions = Nothing - , _ioTEventsDetectorModelEventCondition = Nothing - , _ioTEventsDetectorModelEventEventName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-event.html#cfn-iotevents-detectormodel-event-actions -itedmeActions :: Lens' IoTEventsDetectorModelEvent (Maybe [IoTEventsDetectorModelAction]) -itedmeActions = lens _ioTEventsDetectorModelEventActions (\s a -> s { _ioTEventsDetectorModelEventActions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-event.html#cfn-iotevents-detectormodel-event-condition -itedmeCondition :: Lens' IoTEventsDetectorModelEvent (Maybe (Val Text)) -itedmeCondition = lens _ioTEventsDetectorModelEventCondition (\s a -> s { _ioTEventsDetectorModelEventCondition = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-event.html#cfn-iotevents-detectormodel-event-eventname -itedmeEventName :: Lens' IoTEventsDetectorModelEvent (Maybe (Val Text)) -itedmeEventName = lens _ioTEventsDetectorModelEventEventName (\s a -> s { _ioTEventsDetectorModelEventEventName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelFirehose.hs b/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelFirehose.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelFirehose.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-firehose.html - -module Stratosphere.ResourceProperties.IoTEventsDetectorModelFirehose where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTEventsDetectorModelPayload - --- | Full data type definition for IoTEventsDetectorModelFirehose. See --- 'ioTEventsDetectorModelFirehose' for a more convenient constructor. -data IoTEventsDetectorModelFirehose = - IoTEventsDetectorModelFirehose - { _ioTEventsDetectorModelFirehoseDeliveryStreamName :: Maybe (Val Text) - , _ioTEventsDetectorModelFirehosePayload :: Maybe IoTEventsDetectorModelPayload - , _ioTEventsDetectorModelFirehoseSeparator :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTEventsDetectorModelFirehose where - toJSON IoTEventsDetectorModelFirehose{..} = - object $ - catMaybes - [ fmap (("DeliveryStreamName",) . toJSON) _ioTEventsDetectorModelFirehoseDeliveryStreamName - , fmap (("Payload",) . toJSON) _ioTEventsDetectorModelFirehosePayload - , fmap (("Separator",) . toJSON) _ioTEventsDetectorModelFirehoseSeparator - ] - --- | Constructor for 'IoTEventsDetectorModelFirehose' containing required --- fields as arguments. -ioTEventsDetectorModelFirehose - :: IoTEventsDetectorModelFirehose -ioTEventsDetectorModelFirehose = - IoTEventsDetectorModelFirehose - { _ioTEventsDetectorModelFirehoseDeliveryStreamName = Nothing - , _ioTEventsDetectorModelFirehosePayload = Nothing - , _ioTEventsDetectorModelFirehoseSeparator = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-firehose.html#cfn-iotevents-detectormodel-firehose-deliverystreamname -itedmfDeliveryStreamName :: Lens' IoTEventsDetectorModelFirehose (Maybe (Val Text)) -itedmfDeliveryStreamName = lens _ioTEventsDetectorModelFirehoseDeliveryStreamName (\s a -> s { _ioTEventsDetectorModelFirehoseDeliveryStreamName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-firehose.html#cfn-iotevents-detectormodel-firehose-payload -itedmfPayload :: Lens' IoTEventsDetectorModelFirehose (Maybe IoTEventsDetectorModelPayload) -itedmfPayload = lens _ioTEventsDetectorModelFirehosePayload (\s a -> s { _ioTEventsDetectorModelFirehosePayload = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-firehose.html#cfn-iotevents-detectormodel-firehose-separator -itedmfSeparator :: Lens' IoTEventsDetectorModelFirehose (Maybe (Val Text)) -itedmfSeparator = lens _ioTEventsDetectorModelFirehoseSeparator (\s a -> s { _ioTEventsDetectorModelFirehoseSeparator = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelIotEvents.hs b/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelIotEvents.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelIotEvents.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-iotevents.html - -module Stratosphere.ResourceProperties.IoTEventsDetectorModelIotEvents where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTEventsDetectorModelPayload - --- | Full data type definition for IoTEventsDetectorModelIotEvents. See --- 'ioTEventsDetectorModelIotEvents' for a more convenient constructor. -data IoTEventsDetectorModelIotEvents = - IoTEventsDetectorModelIotEvents - { _ioTEventsDetectorModelIotEventsInputName :: Maybe (Val Text) - , _ioTEventsDetectorModelIotEventsPayload :: Maybe IoTEventsDetectorModelPayload - } deriving (Show, Eq) - -instance ToJSON IoTEventsDetectorModelIotEvents where - toJSON IoTEventsDetectorModelIotEvents{..} = - object $ - catMaybes - [ fmap (("InputName",) . toJSON) _ioTEventsDetectorModelIotEventsInputName - , fmap (("Payload",) . toJSON) _ioTEventsDetectorModelIotEventsPayload - ] - --- | Constructor for 'IoTEventsDetectorModelIotEvents' containing required --- fields as arguments. -ioTEventsDetectorModelIotEvents - :: IoTEventsDetectorModelIotEvents -ioTEventsDetectorModelIotEvents = - IoTEventsDetectorModelIotEvents - { _ioTEventsDetectorModelIotEventsInputName = Nothing - , _ioTEventsDetectorModelIotEventsPayload = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-iotevents.html#cfn-iotevents-detectormodel-iotevents-inputname -itedmieInputName :: Lens' IoTEventsDetectorModelIotEvents (Maybe (Val Text)) -itedmieInputName = lens _ioTEventsDetectorModelIotEventsInputName (\s a -> s { _ioTEventsDetectorModelIotEventsInputName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-iotevents.html#cfn-iotevents-detectormodel-iotevents-payload -itedmiePayload :: Lens' IoTEventsDetectorModelIotEvents (Maybe IoTEventsDetectorModelPayload) -itedmiePayload = lens _ioTEventsDetectorModelIotEventsPayload (\s a -> s { _ioTEventsDetectorModelIotEventsPayload = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelIotSiteWise.hs b/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelIotSiteWise.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelIotSiteWise.hs +++ /dev/null @@ -1,66 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-iotsitewise.html - -module Stratosphere.ResourceProperties.IoTEventsDetectorModelIotSiteWise where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTEventsDetectorModelAssetPropertyValue - --- | Full data type definition for IoTEventsDetectorModelIotSiteWise. See --- 'ioTEventsDetectorModelIotSiteWise' for a more convenient constructor. -data IoTEventsDetectorModelIotSiteWise = - IoTEventsDetectorModelIotSiteWise - { _ioTEventsDetectorModelIotSiteWiseAssetId :: Maybe (Val Text) - , _ioTEventsDetectorModelIotSiteWiseEntryId :: Maybe (Val Text) - , _ioTEventsDetectorModelIotSiteWisePropertyAlias :: Maybe (Val Text) - , _ioTEventsDetectorModelIotSiteWisePropertyId :: Maybe (Val Text) - , _ioTEventsDetectorModelIotSiteWisePropertyValue :: Maybe IoTEventsDetectorModelAssetPropertyValue - } deriving (Show, Eq) - -instance ToJSON IoTEventsDetectorModelIotSiteWise where - toJSON IoTEventsDetectorModelIotSiteWise{..} = - object $ - catMaybes - [ fmap (("AssetId",) . toJSON) _ioTEventsDetectorModelIotSiteWiseAssetId - , fmap (("EntryId",) . toJSON) _ioTEventsDetectorModelIotSiteWiseEntryId - , fmap (("PropertyAlias",) . toJSON) _ioTEventsDetectorModelIotSiteWisePropertyAlias - , fmap (("PropertyId",) . toJSON) _ioTEventsDetectorModelIotSiteWisePropertyId - , fmap (("PropertyValue",) . toJSON) _ioTEventsDetectorModelIotSiteWisePropertyValue - ] - --- | Constructor for 'IoTEventsDetectorModelIotSiteWise' containing required --- fields as arguments. -ioTEventsDetectorModelIotSiteWise - :: IoTEventsDetectorModelIotSiteWise -ioTEventsDetectorModelIotSiteWise = - IoTEventsDetectorModelIotSiteWise - { _ioTEventsDetectorModelIotSiteWiseAssetId = Nothing - , _ioTEventsDetectorModelIotSiteWiseEntryId = Nothing - , _ioTEventsDetectorModelIotSiteWisePropertyAlias = Nothing - , _ioTEventsDetectorModelIotSiteWisePropertyId = Nothing - , _ioTEventsDetectorModelIotSiteWisePropertyValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-iotsitewise.html#cfn-iotevents-detectormodel-iotsitewise-assetid -itedmiswAssetId :: Lens' IoTEventsDetectorModelIotSiteWise (Maybe (Val Text)) -itedmiswAssetId = lens _ioTEventsDetectorModelIotSiteWiseAssetId (\s a -> s { _ioTEventsDetectorModelIotSiteWiseAssetId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-iotsitewise.html#cfn-iotevents-detectormodel-iotsitewise-entryid -itedmiswEntryId :: Lens' IoTEventsDetectorModelIotSiteWise (Maybe (Val Text)) -itedmiswEntryId = lens _ioTEventsDetectorModelIotSiteWiseEntryId (\s a -> s { _ioTEventsDetectorModelIotSiteWiseEntryId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-iotsitewise.html#cfn-iotevents-detectormodel-iotsitewise-propertyalias -itedmiswPropertyAlias :: Lens' IoTEventsDetectorModelIotSiteWise (Maybe (Val Text)) -itedmiswPropertyAlias = lens _ioTEventsDetectorModelIotSiteWisePropertyAlias (\s a -> s { _ioTEventsDetectorModelIotSiteWisePropertyAlias = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-iotsitewise.html#cfn-iotevents-detectormodel-iotsitewise-propertyid -itedmiswPropertyId :: Lens' IoTEventsDetectorModelIotSiteWise (Maybe (Val Text)) -itedmiswPropertyId = lens _ioTEventsDetectorModelIotSiteWisePropertyId (\s a -> s { _ioTEventsDetectorModelIotSiteWisePropertyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-iotsitewise.html#cfn-iotevents-detectormodel-iotsitewise-propertyvalue -itedmiswPropertyValue :: Lens' IoTEventsDetectorModelIotSiteWise (Maybe IoTEventsDetectorModelAssetPropertyValue) -itedmiswPropertyValue = lens _ioTEventsDetectorModelIotSiteWisePropertyValue (\s a -> s { _ioTEventsDetectorModelIotSiteWisePropertyValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelIotTopicPublish.hs b/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelIotTopicPublish.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelIotTopicPublish.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-iottopicpublish.html - -module Stratosphere.ResourceProperties.IoTEventsDetectorModelIotTopicPublish where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTEventsDetectorModelPayload - --- | Full data type definition for IoTEventsDetectorModelIotTopicPublish. See --- 'ioTEventsDetectorModelIotTopicPublish' for a more convenient --- constructor. -data IoTEventsDetectorModelIotTopicPublish = - IoTEventsDetectorModelIotTopicPublish - { _ioTEventsDetectorModelIotTopicPublishMqttTopic :: Maybe (Val Text) - , _ioTEventsDetectorModelIotTopicPublishPayload :: Maybe IoTEventsDetectorModelPayload - } deriving (Show, Eq) - -instance ToJSON IoTEventsDetectorModelIotTopicPublish where - toJSON IoTEventsDetectorModelIotTopicPublish{..} = - object $ - catMaybes - [ fmap (("MqttTopic",) . toJSON) _ioTEventsDetectorModelIotTopicPublishMqttTopic - , fmap (("Payload",) . toJSON) _ioTEventsDetectorModelIotTopicPublishPayload - ] - --- | Constructor for 'IoTEventsDetectorModelIotTopicPublish' containing --- required fields as arguments. -ioTEventsDetectorModelIotTopicPublish - :: IoTEventsDetectorModelIotTopicPublish -ioTEventsDetectorModelIotTopicPublish = - IoTEventsDetectorModelIotTopicPublish - { _ioTEventsDetectorModelIotTopicPublishMqttTopic = Nothing - , _ioTEventsDetectorModelIotTopicPublishPayload = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-iottopicpublish.html#cfn-iotevents-detectormodel-iottopicpublish-mqtttopic -itedmitpMqttTopic :: Lens' IoTEventsDetectorModelIotTopicPublish (Maybe (Val Text)) -itedmitpMqttTopic = lens _ioTEventsDetectorModelIotTopicPublishMqttTopic (\s a -> s { _ioTEventsDetectorModelIotTopicPublishMqttTopic = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-iottopicpublish.html#cfn-iotevents-detectormodel-iottopicpublish-payload -itedmitpPayload :: Lens' IoTEventsDetectorModelIotTopicPublish (Maybe IoTEventsDetectorModelPayload) -itedmitpPayload = lens _ioTEventsDetectorModelIotTopicPublishPayload (\s a -> s { _ioTEventsDetectorModelIotTopicPublishPayload = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelLambda.hs b/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelLambda.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelLambda.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-lambda.html - -module Stratosphere.ResourceProperties.IoTEventsDetectorModelLambda where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTEventsDetectorModelPayload - --- | Full data type definition for IoTEventsDetectorModelLambda. See --- 'ioTEventsDetectorModelLambda' for a more convenient constructor. -data IoTEventsDetectorModelLambda = - IoTEventsDetectorModelLambda - { _ioTEventsDetectorModelLambdaFunctionArn :: Maybe (Val Text) - , _ioTEventsDetectorModelLambdaPayload :: Maybe IoTEventsDetectorModelPayload - } deriving (Show, Eq) - -instance ToJSON IoTEventsDetectorModelLambda where - toJSON IoTEventsDetectorModelLambda{..} = - object $ - catMaybes - [ fmap (("FunctionArn",) . toJSON) _ioTEventsDetectorModelLambdaFunctionArn - , fmap (("Payload",) . toJSON) _ioTEventsDetectorModelLambdaPayload - ] - --- | Constructor for 'IoTEventsDetectorModelLambda' containing required fields --- as arguments. -ioTEventsDetectorModelLambda - :: IoTEventsDetectorModelLambda -ioTEventsDetectorModelLambda = - IoTEventsDetectorModelLambda - { _ioTEventsDetectorModelLambdaFunctionArn = Nothing - , _ioTEventsDetectorModelLambdaPayload = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-lambda.html#cfn-iotevents-detectormodel-lambda-functionarn -itedmlFunctionArn :: Lens' IoTEventsDetectorModelLambda (Maybe (Val Text)) -itedmlFunctionArn = lens _ioTEventsDetectorModelLambdaFunctionArn (\s a -> s { _ioTEventsDetectorModelLambdaFunctionArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-lambda.html#cfn-iotevents-detectormodel-lambda-payload -itedmlPayload :: Lens' IoTEventsDetectorModelLambda (Maybe IoTEventsDetectorModelPayload) -itedmlPayload = lens _ioTEventsDetectorModelLambdaPayload (\s a -> s { _ioTEventsDetectorModelLambdaPayload = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelOnEnter.hs b/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelOnEnter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelOnEnter.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-onenter.html - -module Stratosphere.ResourceProperties.IoTEventsDetectorModelOnEnter where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTEventsDetectorModelEvent - --- | Full data type definition for IoTEventsDetectorModelOnEnter. See --- 'ioTEventsDetectorModelOnEnter' for a more convenient constructor. -data IoTEventsDetectorModelOnEnter = - IoTEventsDetectorModelOnEnter - { _ioTEventsDetectorModelOnEnterEvents :: Maybe [IoTEventsDetectorModelEvent] - } deriving (Show, Eq) - -instance ToJSON IoTEventsDetectorModelOnEnter where - toJSON IoTEventsDetectorModelOnEnter{..} = - object $ - catMaybes - [ fmap (("Events",) . toJSON) _ioTEventsDetectorModelOnEnterEvents - ] - --- | Constructor for 'IoTEventsDetectorModelOnEnter' containing required --- fields as arguments. -ioTEventsDetectorModelOnEnter - :: IoTEventsDetectorModelOnEnter -ioTEventsDetectorModelOnEnter = - IoTEventsDetectorModelOnEnter - { _ioTEventsDetectorModelOnEnterEvents = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-onenter.html#cfn-iotevents-detectormodel-onenter-events -itedmoenEvents :: Lens' IoTEventsDetectorModelOnEnter (Maybe [IoTEventsDetectorModelEvent]) -itedmoenEvents = lens _ioTEventsDetectorModelOnEnterEvents (\s a -> s { _ioTEventsDetectorModelOnEnterEvents = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelOnExit.hs b/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelOnExit.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelOnExit.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-onexit.html - -module Stratosphere.ResourceProperties.IoTEventsDetectorModelOnExit where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTEventsDetectorModelEvent - --- | Full data type definition for IoTEventsDetectorModelOnExit. See --- 'ioTEventsDetectorModelOnExit' for a more convenient constructor. -data IoTEventsDetectorModelOnExit = - IoTEventsDetectorModelOnExit - { _ioTEventsDetectorModelOnExitEvents :: Maybe [IoTEventsDetectorModelEvent] - } deriving (Show, Eq) - -instance ToJSON IoTEventsDetectorModelOnExit where - toJSON IoTEventsDetectorModelOnExit{..} = - object $ - catMaybes - [ fmap (("Events",) . toJSON) _ioTEventsDetectorModelOnExitEvents - ] - --- | Constructor for 'IoTEventsDetectorModelOnExit' containing required fields --- as arguments. -ioTEventsDetectorModelOnExit - :: IoTEventsDetectorModelOnExit -ioTEventsDetectorModelOnExit = - IoTEventsDetectorModelOnExit - { _ioTEventsDetectorModelOnExitEvents = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-onexit.html#cfn-iotevents-detectormodel-onexit-events -itedmoexEvents :: Lens' IoTEventsDetectorModelOnExit (Maybe [IoTEventsDetectorModelEvent]) -itedmoexEvents = lens _ioTEventsDetectorModelOnExitEvents (\s a -> s { _ioTEventsDetectorModelOnExitEvents = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelOnInput.hs b/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelOnInput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelOnInput.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-oninput.html - -module Stratosphere.ResourceProperties.IoTEventsDetectorModelOnInput where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTEventsDetectorModelEvent -import Stratosphere.ResourceProperties.IoTEventsDetectorModelTransitionEvent - --- | Full data type definition for IoTEventsDetectorModelOnInput. See --- 'ioTEventsDetectorModelOnInput' for a more convenient constructor. -data IoTEventsDetectorModelOnInput = - IoTEventsDetectorModelOnInput - { _ioTEventsDetectorModelOnInputEvents :: Maybe [IoTEventsDetectorModelEvent] - , _ioTEventsDetectorModelOnInputTransitionEvents :: Maybe [IoTEventsDetectorModelTransitionEvent] - } deriving (Show, Eq) - -instance ToJSON IoTEventsDetectorModelOnInput where - toJSON IoTEventsDetectorModelOnInput{..} = - object $ - catMaybes - [ fmap (("Events",) . toJSON) _ioTEventsDetectorModelOnInputEvents - , fmap (("TransitionEvents",) . toJSON) _ioTEventsDetectorModelOnInputTransitionEvents - ] - --- | Constructor for 'IoTEventsDetectorModelOnInput' containing required --- fields as arguments. -ioTEventsDetectorModelOnInput - :: IoTEventsDetectorModelOnInput -ioTEventsDetectorModelOnInput = - IoTEventsDetectorModelOnInput - { _ioTEventsDetectorModelOnInputEvents = Nothing - , _ioTEventsDetectorModelOnInputTransitionEvents = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-oninput.html#cfn-iotevents-detectormodel-oninput-events -itedmoiEvents :: Lens' IoTEventsDetectorModelOnInput (Maybe [IoTEventsDetectorModelEvent]) -itedmoiEvents = lens _ioTEventsDetectorModelOnInputEvents (\s a -> s { _ioTEventsDetectorModelOnInputEvents = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-oninput.html#cfn-iotevents-detectormodel-oninput-transitionevents -itedmoiTransitionEvents :: Lens' IoTEventsDetectorModelOnInput (Maybe [IoTEventsDetectorModelTransitionEvent]) -itedmoiTransitionEvents = lens _ioTEventsDetectorModelOnInputTransitionEvents (\s a -> s { _ioTEventsDetectorModelOnInputTransitionEvents = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelPayload.hs b/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelPayload.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelPayload.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-payload.html - -module Stratosphere.ResourceProperties.IoTEventsDetectorModelPayload where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTEventsDetectorModelPayload. See --- 'ioTEventsDetectorModelPayload' for a more convenient constructor. -data IoTEventsDetectorModelPayload = - IoTEventsDetectorModelPayload - { _ioTEventsDetectorModelPayloadContentExpression :: Maybe (Val Text) - , _ioTEventsDetectorModelPayloadType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTEventsDetectorModelPayload where - toJSON IoTEventsDetectorModelPayload{..} = - object $ - catMaybes - [ fmap (("ContentExpression",) . toJSON) _ioTEventsDetectorModelPayloadContentExpression - , fmap (("Type",) . toJSON) _ioTEventsDetectorModelPayloadType - ] - --- | Constructor for 'IoTEventsDetectorModelPayload' containing required --- fields as arguments. -ioTEventsDetectorModelPayload - :: IoTEventsDetectorModelPayload -ioTEventsDetectorModelPayload = - IoTEventsDetectorModelPayload - { _ioTEventsDetectorModelPayloadContentExpression = Nothing - , _ioTEventsDetectorModelPayloadType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-payload.html#cfn-iotevents-detectormodel-payload-contentexpression -itedmpContentExpression :: Lens' IoTEventsDetectorModelPayload (Maybe (Val Text)) -itedmpContentExpression = lens _ioTEventsDetectorModelPayloadContentExpression (\s a -> s { _ioTEventsDetectorModelPayloadContentExpression = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-payload.html#cfn-iotevents-detectormodel-payload-type -itedmpType :: Lens' IoTEventsDetectorModelPayload (Maybe (Val Text)) -itedmpType = lens _ioTEventsDetectorModelPayloadType (\s a -> s { _ioTEventsDetectorModelPayloadType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelResetTimer.hs b/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelResetTimer.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelResetTimer.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-resettimer.html - -module Stratosphere.ResourceProperties.IoTEventsDetectorModelResetTimer where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTEventsDetectorModelResetTimer. See --- 'ioTEventsDetectorModelResetTimer' for a more convenient constructor. -data IoTEventsDetectorModelResetTimer = - IoTEventsDetectorModelResetTimer - { _ioTEventsDetectorModelResetTimerTimerName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTEventsDetectorModelResetTimer where - toJSON IoTEventsDetectorModelResetTimer{..} = - object $ - catMaybes - [ fmap (("TimerName",) . toJSON) _ioTEventsDetectorModelResetTimerTimerName - ] - --- | Constructor for 'IoTEventsDetectorModelResetTimer' containing required --- fields as arguments. -ioTEventsDetectorModelResetTimer - :: IoTEventsDetectorModelResetTimer -ioTEventsDetectorModelResetTimer = - IoTEventsDetectorModelResetTimer - { _ioTEventsDetectorModelResetTimerTimerName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-resettimer.html#cfn-iotevents-detectormodel-resettimer-timername -itedmrtTimerName :: Lens' IoTEventsDetectorModelResetTimer (Maybe (Val Text)) -itedmrtTimerName = lens _ioTEventsDetectorModelResetTimerTimerName (\s a -> s { _ioTEventsDetectorModelResetTimerTimerName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelSetTimer.hs b/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelSetTimer.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelSetTimer.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-settimer.html - -module Stratosphere.ResourceProperties.IoTEventsDetectorModelSetTimer where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTEventsDetectorModelSetTimer. See --- 'ioTEventsDetectorModelSetTimer' for a more convenient constructor. -data IoTEventsDetectorModelSetTimer = - IoTEventsDetectorModelSetTimer - { _ioTEventsDetectorModelSetTimerDurationExpression :: Maybe (Val Text) - , _ioTEventsDetectorModelSetTimerSeconds :: Maybe (Val Integer) - , _ioTEventsDetectorModelSetTimerTimerName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTEventsDetectorModelSetTimer where - toJSON IoTEventsDetectorModelSetTimer{..} = - object $ - catMaybes - [ fmap (("DurationExpression",) . toJSON) _ioTEventsDetectorModelSetTimerDurationExpression - , fmap (("Seconds",) . toJSON) _ioTEventsDetectorModelSetTimerSeconds - , fmap (("TimerName",) . toJSON) _ioTEventsDetectorModelSetTimerTimerName - ] - --- | Constructor for 'IoTEventsDetectorModelSetTimer' containing required --- fields as arguments. -ioTEventsDetectorModelSetTimer - :: IoTEventsDetectorModelSetTimer -ioTEventsDetectorModelSetTimer = - IoTEventsDetectorModelSetTimer - { _ioTEventsDetectorModelSetTimerDurationExpression = Nothing - , _ioTEventsDetectorModelSetTimerSeconds = Nothing - , _ioTEventsDetectorModelSetTimerTimerName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-settimer.html#cfn-iotevents-detectormodel-settimer-durationexpression -itedmstDurationExpression :: Lens' IoTEventsDetectorModelSetTimer (Maybe (Val Text)) -itedmstDurationExpression = lens _ioTEventsDetectorModelSetTimerDurationExpression (\s a -> s { _ioTEventsDetectorModelSetTimerDurationExpression = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-settimer.html#cfn-iotevents-detectormodel-settimer-seconds -itedmstSeconds :: Lens' IoTEventsDetectorModelSetTimer (Maybe (Val Integer)) -itedmstSeconds = lens _ioTEventsDetectorModelSetTimerSeconds (\s a -> s { _ioTEventsDetectorModelSetTimerSeconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-settimer.html#cfn-iotevents-detectormodel-settimer-timername -itedmstTimerName :: Lens' IoTEventsDetectorModelSetTimer (Maybe (Val Text)) -itedmstTimerName = lens _ioTEventsDetectorModelSetTimerTimerName (\s a -> s { _ioTEventsDetectorModelSetTimerTimerName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelSetVariable.hs b/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelSetVariable.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelSetVariable.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-setvariable.html - -module Stratosphere.ResourceProperties.IoTEventsDetectorModelSetVariable where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTEventsDetectorModelSetVariable. See --- 'ioTEventsDetectorModelSetVariable' for a more convenient constructor. -data IoTEventsDetectorModelSetVariable = - IoTEventsDetectorModelSetVariable - { _ioTEventsDetectorModelSetVariableValue :: Maybe (Val Text) - , _ioTEventsDetectorModelSetVariableVariableName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTEventsDetectorModelSetVariable where - toJSON IoTEventsDetectorModelSetVariable{..} = - object $ - catMaybes - [ fmap (("Value",) . toJSON) _ioTEventsDetectorModelSetVariableValue - , fmap (("VariableName",) . toJSON) _ioTEventsDetectorModelSetVariableVariableName - ] - --- | Constructor for 'IoTEventsDetectorModelSetVariable' containing required --- fields as arguments. -ioTEventsDetectorModelSetVariable - :: IoTEventsDetectorModelSetVariable -ioTEventsDetectorModelSetVariable = - IoTEventsDetectorModelSetVariable - { _ioTEventsDetectorModelSetVariableValue = Nothing - , _ioTEventsDetectorModelSetVariableVariableName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-setvariable.html#cfn-iotevents-detectormodel-setvariable-value -itedmsvValue :: Lens' IoTEventsDetectorModelSetVariable (Maybe (Val Text)) -itedmsvValue = lens _ioTEventsDetectorModelSetVariableValue (\s a -> s { _ioTEventsDetectorModelSetVariableValue = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-setvariable.html#cfn-iotevents-detectormodel-setvariable-variablename -itedmsvVariableName :: Lens' IoTEventsDetectorModelSetVariable (Maybe (Val Text)) -itedmsvVariableName = lens _ioTEventsDetectorModelSetVariableVariableName (\s a -> s { _ioTEventsDetectorModelSetVariableVariableName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelSns.hs b/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelSns.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelSns.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-sns.html - -module Stratosphere.ResourceProperties.IoTEventsDetectorModelSns where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTEventsDetectorModelPayload - --- | Full data type definition for IoTEventsDetectorModelSns. See --- 'ioTEventsDetectorModelSns' for a more convenient constructor. -data IoTEventsDetectorModelSns = - IoTEventsDetectorModelSns - { _ioTEventsDetectorModelSnsPayload :: Maybe IoTEventsDetectorModelPayload - , _ioTEventsDetectorModelSnsTargetArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTEventsDetectorModelSns where - toJSON IoTEventsDetectorModelSns{..} = - object $ - catMaybes - [ fmap (("Payload",) . toJSON) _ioTEventsDetectorModelSnsPayload - , fmap (("TargetArn",) . toJSON) _ioTEventsDetectorModelSnsTargetArn - ] - --- | Constructor for 'IoTEventsDetectorModelSns' containing required fields as --- arguments. -ioTEventsDetectorModelSns - :: IoTEventsDetectorModelSns -ioTEventsDetectorModelSns = - IoTEventsDetectorModelSns - { _ioTEventsDetectorModelSnsPayload = Nothing - , _ioTEventsDetectorModelSnsTargetArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-sns.html#cfn-iotevents-detectormodel-sns-payload -itedmsnPayload :: Lens' IoTEventsDetectorModelSns (Maybe IoTEventsDetectorModelPayload) -itedmsnPayload = lens _ioTEventsDetectorModelSnsPayload (\s a -> s { _ioTEventsDetectorModelSnsPayload = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-sns.html#cfn-iotevents-detectormodel-sns-targetarn -itedmsnTargetArn :: Lens' IoTEventsDetectorModelSns (Maybe (Val Text)) -itedmsnTargetArn = lens _ioTEventsDetectorModelSnsTargetArn (\s a -> s { _ioTEventsDetectorModelSnsTargetArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelSqs.hs b/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelSqs.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelSqs.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-sqs.html - -module Stratosphere.ResourceProperties.IoTEventsDetectorModelSqs where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTEventsDetectorModelPayload - --- | Full data type definition for IoTEventsDetectorModelSqs. See --- 'ioTEventsDetectorModelSqs' for a more convenient constructor. -data IoTEventsDetectorModelSqs = - IoTEventsDetectorModelSqs - { _ioTEventsDetectorModelSqsPayload :: Maybe IoTEventsDetectorModelPayload - , _ioTEventsDetectorModelSqsQueueUrl :: Maybe (Val Text) - , _ioTEventsDetectorModelSqsUseBase64 :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON IoTEventsDetectorModelSqs where - toJSON IoTEventsDetectorModelSqs{..} = - object $ - catMaybes - [ fmap (("Payload",) . toJSON) _ioTEventsDetectorModelSqsPayload - , fmap (("QueueUrl",) . toJSON) _ioTEventsDetectorModelSqsQueueUrl - , fmap (("UseBase64",) . toJSON) _ioTEventsDetectorModelSqsUseBase64 - ] - --- | Constructor for 'IoTEventsDetectorModelSqs' containing required fields as --- arguments. -ioTEventsDetectorModelSqs - :: IoTEventsDetectorModelSqs -ioTEventsDetectorModelSqs = - IoTEventsDetectorModelSqs - { _ioTEventsDetectorModelSqsPayload = Nothing - , _ioTEventsDetectorModelSqsQueueUrl = Nothing - , _ioTEventsDetectorModelSqsUseBase64 = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-sqs.html#cfn-iotevents-detectormodel-sqs-payload -itedmsqPayload :: Lens' IoTEventsDetectorModelSqs (Maybe IoTEventsDetectorModelPayload) -itedmsqPayload = lens _ioTEventsDetectorModelSqsPayload (\s a -> s { _ioTEventsDetectorModelSqsPayload = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-sqs.html#cfn-iotevents-detectormodel-sqs-queueurl -itedmsqQueueUrl :: Lens' IoTEventsDetectorModelSqs (Maybe (Val Text)) -itedmsqQueueUrl = lens _ioTEventsDetectorModelSqsQueueUrl (\s a -> s { _ioTEventsDetectorModelSqsQueueUrl = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-sqs.html#cfn-iotevents-detectormodel-sqs-usebase64 -itedmsqUseBase64 :: Lens' IoTEventsDetectorModelSqs (Maybe (Val Bool)) -itedmsqUseBase64 = lens _ioTEventsDetectorModelSqsUseBase64 (\s a -> s { _ioTEventsDetectorModelSqsUseBase64 = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelState.hs b/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelState.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelState.hs +++ /dev/null @@ -1,61 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-state.html - -module Stratosphere.ResourceProperties.IoTEventsDetectorModelState where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTEventsDetectorModelOnEnter -import Stratosphere.ResourceProperties.IoTEventsDetectorModelOnExit -import Stratosphere.ResourceProperties.IoTEventsDetectorModelOnInput - --- | Full data type definition for IoTEventsDetectorModelState. See --- 'ioTEventsDetectorModelState' for a more convenient constructor. -data IoTEventsDetectorModelState = - IoTEventsDetectorModelState - { _ioTEventsDetectorModelStateOnEnter :: Maybe IoTEventsDetectorModelOnEnter - , _ioTEventsDetectorModelStateOnExit :: Maybe IoTEventsDetectorModelOnExit - , _ioTEventsDetectorModelStateOnInput :: Maybe IoTEventsDetectorModelOnInput - , _ioTEventsDetectorModelStateStateName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTEventsDetectorModelState where - toJSON IoTEventsDetectorModelState{..} = - object $ - catMaybes - [ fmap (("OnEnter",) . toJSON) _ioTEventsDetectorModelStateOnEnter - , fmap (("OnExit",) . toJSON) _ioTEventsDetectorModelStateOnExit - , fmap (("OnInput",) . toJSON) _ioTEventsDetectorModelStateOnInput - , fmap (("StateName",) . toJSON) _ioTEventsDetectorModelStateStateName - ] - --- | Constructor for 'IoTEventsDetectorModelState' containing required fields --- as arguments. -ioTEventsDetectorModelState - :: IoTEventsDetectorModelState -ioTEventsDetectorModelState = - IoTEventsDetectorModelState - { _ioTEventsDetectorModelStateOnEnter = Nothing - , _ioTEventsDetectorModelStateOnExit = Nothing - , _ioTEventsDetectorModelStateOnInput = Nothing - , _ioTEventsDetectorModelStateStateName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-state.html#cfn-iotevents-detectormodel-state-onenter -itedmsOnEnter :: Lens' IoTEventsDetectorModelState (Maybe IoTEventsDetectorModelOnEnter) -itedmsOnEnter = lens _ioTEventsDetectorModelStateOnEnter (\s a -> s { _ioTEventsDetectorModelStateOnEnter = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-state.html#cfn-iotevents-detectormodel-state-onexit -itedmsOnExit :: Lens' IoTEventsDetectorModelState (Maybe IoTEventsDetectorModelOnExit) -itedmsOnExit = lens _ioTEventsDetectorModelStateOnExit (\s a -> s { _ioTEventsDetectorModelStateOnExit = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-state.html#cfn-iotevents-detectormodel-state-oninput -itedmsOnInput :: Lens' IoTEventsDetectorModelState (Maybe IoTEventsDetectorModelOnInput) -itedmsOnInput = lens _ioTEventsDetectorModelStateOnInput (\s a -> s { _ioTEventsDetectorModelStateOnInput = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-state.html#cfn-iotevents-detectormodel-state-statename -itedmsStateName :: Lens' IoTEventsDetectorModelState (Maybe (Val Text)) -itedmsStateName = lens _ioTEventsDetectorModelStateStateName (\s a -> s { _ioTEventsDetectorModelStateStateName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelTransitionEvent.hs b/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelTransitionEvent.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTEventsDetectorModelTransitionEvent.hs +++ /dev/null @@ -1,60 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-transitionevent.html - -module Stratosphere.ResourceProperties.IoTEventsDetectorModelTransitionEvent where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTEventsDetectorModelAction - --- | Full data type definition for IoTEventsDetectorModelTransitionEvent. See --- 'ioTEventsDetectorModelTransitionEvent' for a more convenient --- constructor. -data IoTEventsDetectorModelTransitionEvent = - IoTEventsDetectorModelTransitionEvent - { _ioTEventsDetectorModelTransitionEventActions :: Maybe [IoTEventsDetectorModelAction] - , _ioTEventsDetectorModelTransitionEventCondition :: Maybe (Val Text) - , _ioTEventsDetectorModelTransitionEventEventName :: Maybe (Val Text) - , _ioTEventsDetectorModelTransitionEventNextState :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTEventsDetectorModelTransitionEvent where - toJSON IoTEventsDetectorModelTransitionEvent{..} = - object $ - catMaybes - [ fmap (("Actions",) . toJSON) _ioTEventsDetectorModelTransitionEventActions - , fmap (("Condition",) . toJSON) _ioTEventsDetectorModelTransitionEventCondition - , fmap (("EventName",) . toJSON) _ioTEventsDetectorModelTransitionEventEventName - , fmap (("NextState",) . toJSON) _ioTEventsDetectorModelTransitionEventNextState - ] - --- | Constructor for 'IoTEventsDetectorModelTransitionEvent' containing --- required fields as arguments. -ioTEventsDetectorModelTransitionEvent - :: IoTEventsDetectorModelTransitionEvent -ioTEventsDetectorModelTransitionEvent = - IoTEventsDetectorModelTransitionEvent - { _ioTEventsDetectorModelTransitionEventActions = Nothing - , _ioTEventsDetectorModelTransitionEventCondition = Nothing - , _ioTEventsDetectorModelTransitionEventEventName = Nothing - , _ioTEventsDetectorModelTransitionEventNextState = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-transitionevent.html#cfn-iotevents-detectormodel-transitionevent-actions -itedmteActions :: Lens' IoTEventsDetectorModelTransitionEvent (Maybe [IoTEventsDetectorModelAction]) -itedmteActions = lens _ioTEventsDetectorModelTransitionEventActions (\s a -> s { _ioTEventsDetectorModelTransitionEventActions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-transitionevent.html#cfn-iotevents-detectormodel-transitionevent-condition -itedmteCondition :: Lens' IoTEventsDetectorModelTransitionEvent (Maybe (Val Text)) -itedmteCondition = lens _ioTEventsDetectorModelTransitionEventCondition (\s a -> s { _ioTEventsDetectorModelTransitionEventCondition = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-transitionevent.html#cfn-iotevents-detectormodel-transitionevent-eventname -itedmteEventName :: Lens' IoTEventsDetectorModelTransitionEvent (Maybe (Val Text)) -itedmteEventName = lens _ioTEventsDetectorModelTransitionEventEventName (\s a -> s { _ioTEventsDetectorModelTransitionEventEventName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-detectormodel-transitionevent.html#cfn-iotevents-detectormodel-transitionevent-nextstate -itedmteNextState :: Lens' IoTEventsDetectorModelTransitionEvent (Maybe (Val Text)) -itedmteNextState = lens _ioTEventsDetectorModelTransitionEventNextState (\s a -> s { _ioTEventsDetectorModelTransitionEventNextState = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTEventsInputAttribute.hs b/library-gen/Stratosphere/ResourceProperties/IoTEventsInputAttribute.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTEventsInputAttribute.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-input-attribute.html - -module Stratosphere.ResourceProperties.IoTEventsInputAttribute where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTEventsInputAttribute. See --- 'ioTEventsInputAttribute' for a more convenient constructor. -data IoTEventsInputAttribute = - IoTEventsInputAttribute - { _ioTEventsInputAttributeJsonPath :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTEventsInputAttribute where - toJSON IoTEventsInputAttribute{..} = - object $ - catMaybes - [ fmap (("JsonPath",) . toJSON) _ioTEventsInputAttributeJsonPath - ] - --- | Constructor for 'IoTEventsInputAttribute' containing required fields as --- arguments. -ioTEventsInputAttribute - :: IoTEventsInputAttribute -ioTEventsInputAttribute = - IoTEventsInputAttribute - { _ioTEventsInputAttributeJsonPath = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-input-attribute.html#cfn-iotevents-input-attribute-jsonpath -iteiaJsonPath :: Lens' IoTEventsInputAttribute (Maybe (Val Text)) -iteiaJsonPath = lens _ioTEventsInputAttributeJsonPath (\s a -> s { _ioTEventsInputAttributeJsonPath = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTEventsInputInputDefinition.hs b/library-gen/Stratosphere/ResourceProperties/IoTEventsInputInputDefinition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTEventsInputInputDefinition.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-input-inputdefinition.html - -module Stratosphere.ResourceProperties.IoTEventsInputInputDefinition where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTEventsInputAttribute - --- | Full data type definition for IoTEventsInputInputDefinition. See --- 'ioTEventsInputInputDefinition' for a more convenient constructor. -data IoTEventsInputInputDefinition = - IoTEventsInputInputDefinition - { _ioTEventsInputInputDefinitionAttributes :: Maybe [IoTEventsInputAttribute] - } deriving (Show, Eq) - -instance ToJSON IoTEventsInputInputDefinition where - toJSON IoTEventsInputInputDefinition{..} = - object $ - catMaybes - [ fmap (("Attributes",) . toJSON) _ioTEventsInputInputDefinitionAttributes - ] - --- | Constructor for 'IoTEventsInputInputDefinition' containing required --- fields as arguments. -ioTEventsInputInputDefinition - :: IoTEventsInputInputDefinition -ioTEventsInputInputDefinition = - IoTEventsInputInputDefinition - { _ioTEventsInputInputDefinitionAttributes = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotevents-input-inputdefinition.html#cfn-iotevents-input-inputdefinition-attributes -iteiidAttributes :: Lens' IoTEventsInputInputDefinition (Maybe [IoTEventsInputAttribute]) -iteiidAttributes = lens _ioTEventsInputInputDefinitionAttributes (\s a -> s { _ioTEventsInputInputDefinitionAttributes = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTProvisioningTemplateProvisioningHook.hs b/library-gen/Stratosphere/ResourceProperties/IoTProvisioningTemplateProvisioningHook.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTProvisioningTemplateProvisioningHook.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# 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 }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTProvisioningTemplateTags.hs b/library-gen/Stratosphere/ResourceProperties/IoTProvisioningTemplateTags.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTProvisioningTemplateTags.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-provisioningtemplate-tags.html - -module Stratosphere.ResourceProperties.IoTProvisioningTemplateTags where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTProvisioningTemplateTags. See --- 'ioTProvisioningTemplateTags' for a more convenient constructor. -data IoTProvisioningTemplateTags = - IoTProvisioningTemplateTags - { _ioTProvisioningTemplateTagsTags :: Maybe [Object] - } deriving (Show, Eq) - -instance ToJSON IoTProvisioningTemplateTags where - toJSON IoTProvisioningTemplateTags{..} = - object $ - catMaybes - [ fmap (("Tags",) . toJSON) _ioTProvisioningTemplateTagsTags - ] - --- | Constructor for 'IoTProvisioningTemplateTags' containing required fields --- as arguments. -ioTProvisioningTemplateTags - :: IoTProvisioningTemplateTags -ioTProvisioningTemplateTags = - IoTProvisioningTemplateTags - { _ioTProvisioningTemplateTagsTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-provisioningtemplate-tags.html#cfn-iot-provisioningtemplate-tags-tags -itpttTags :: Lens' IoTProvisioningTemplateTags (Maybe [Object]) -itpttTags = lens _ioTProvisioningTemplateTagsTags (\s a -> s { _ioTProvisioningTemplateTagsTags = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTThingAttributePayload.hs b/library-gen/Stratosphere/ResourceProperties/IoTThingAttributePayload.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTThingAttributePayload.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-thing-attributepayload.html - -module Stratosphere.ResourceProperties.IoTThingAttributePayload where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTThingAttributePayload. See --- 'ioTThingAttributePayload' for a more convenient constructor. -data IoTThingAttributePayload = - IoTThingAttributePayload - { _ioTThingAttributePayloadAttributes :: Maybe Object - } deriving (Show, Eq) - -instance ToJSON IoTThingAttributePayload where - toJSON IoTThingAttributePayload{..} = - object $ - catMaybes - [ fmap (("Attributes",) . toJSON) _ioTThingAttributePayloadAttributes - ] - --- | Constructor for 'IoTThingAttributePayload' containing required fields as --- arguments. -ioTThingAttributePayload - :: IoTThingAttributePayload -ioTThingAttributePayload = - IoTThingAttributePayload - { _ioTThingAttributePayloadAttributes = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-thing-attributepayload.html#cfn-iot-thing-attributepayload-attributes -ittapAttributes :: Lens' IoTThingAttributePayload (Maybe Object) -ittapAttributes = lens _ioTThingAttributePayloadAttributes (\s a -> s { _ioTThingAttributePayloadAttributes = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTThingsGraphFlowTemplateDefinitionDocument.hs b/library-gen/Stratosphere/ResourceProperties/IoTThingsGraphFlowTemplateDefinitionDocument.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTThingsGraphFlowTemplateDefinitionDocument.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotthingsgraph-flowtemplate-definitiondocument.html - -module Stratosphere.ResourceProperties.IoTThingsGraphFlowTemplateDefinitionDocument where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- IoTThingsGraphFlowTemplateDefinitionDocument. See --- 'ioTThingsGraphFlowTemplateDefinitionDocument' for a more convenient --- constructor. -data IoTThingsGraphFlowTemplateDefinitionDocument = - IoTThingsGraphFlowTemplateDefinitionDocument - { _ioTThingsGraphFlowTemplateDefinitionDocumentLanguage :: Val Text - , _ioTThingsGraphFlowTemplateDefinitionDocumentText :: Val Text - } deriving (Show, Eq) - -instance ToJSON IoTThingsGraphFlowTemplateDefinitionDocument where - toJSON IoTThingsGraphFlowTemplateDefinitionDocument{..} = - object $ - catMaybes - [ (Just . ("Language",) . toJSON) _ioTThingsGraphFlowTemplateDefinitionDocumentLanguage - , (Just . ("Text",) . toJSON) _ioTThingsGraphFlowTemplateDefinitionDocumentText - ] - --- | Constructor for 'IoTThingsGraphFlowTemplateDefinitionDocument' containing --- required fields as arguments. -ioTThingsGraphFlowTemplateDefinitionDocument - :: Val Text -- ^ 'ittgftddLanguage' - -> Val Text -- ^ 'ittgftddText' - -> IoTThingsGraphFlowTemplateDefinitionDocument -ioTThingsGraphFlowTemplateDefinitionDocument languagearg textarg = - IoTThingsGraphFlowTemplateDefinitionDocument - { _ioTThingsGraphFlowTemplateDefinitionDocumentLanguage = languagearg - , _ioTThingsGraphFlowTemplateDefinitionDocumentText = textarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotthingsgraph-flowtemplate-definitiondocument.html#cfn-iotthingsgraph-flowtemplate-definitiondocument-language -ittgftddLanguage :: Lens' IoTThingsGraphFlowTemplateDefinitionDocument (Val Text) -ittgftddLanguage = lens _ioTThingsGraphFlowTemplateDefinitionDocumentLanguage (\s a -> s { _ioTThingsGraphFlowTemplateDefinitionDocumentLanguage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotthingsgraph-flowtemplate-definitiondocument.html#cfn-iotthingsgraph-flowtemplate-definitiondocument-text -ittgftddText :: Lens' IoTThingsGraphFlowTemplateDefinitionDocument (Val Text) -ittgftddText = lens _ioTThingsGraphFlowTemplateDefinitionDocumentText (\s a -> s { _ioTThingsGraphFlowTemplateDefinitionDocumentText = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleAction.hs b/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleAction.hs +++ /dev/null @@ -1,166 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-action.html - -module Stratosphere.ResourceProperties.IoTTopicRuleAction where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTTopicRuleCloudwatchAlarmAction -import Stratosphere.ResourceProperties.IoTTopicRuleCloudwatchMetricAction -import Stratosphere.ResourceProperties.IoTTopicRuleDynamoDBAction -import Stratosphere.ResourceProperties.IoTTopicRuleDynamoDBV2Action -import Stratosphere.ResourceProperties.IoTTopicRuleElasticsearchAction -import Stratosphere.ResourceProperties.IoTTopicRuleFirehoseAction -import Stratosphere.ResourceProperties.IoTTopicRuleHttpAction -import Stratosphere.ResourceProperties.IoTTopicRuleIotAnalyticsAction -import Stratosphere.ResourceProperties.IoTTopicRuleIotEventsAction -import Stratosphere.ResourceProperties.IoTTopicRuleIotSiteWiseAction -import Stratosphere.ResourceProperties.IoTTopicRuleKinesisAction -import Stratosphere.ResourceProperties.IoTTopicRuleLambdaAction -import Stratosphere.ResourceProperties.IoTTopicRuleRepublishAction -import Stratosphere.ResourceProperties.IoTTopicRuleS3Action -import Stratosphere.ResourceProperties.IoTTopicRuleSnsAction -import Stratosphere.ResourceProperties.IoTTopicRuleSqsAction -import Stratosphere.ResourceProperties.IoTTopicRuleStepFunctionsAction - --- | Full data type definition for IoTTopicRuleAction. See --- 'ioTTopicRuleAction' for a more convenient constructor. -data IoTTopicRuleAction = - IoTTopicRuleAction - { _ioTTopicRuleActionCloudwatchAlarm :: Maybe IoTTopicRuleCloudwatchAlarmAction - , _ioTTopicRuleActionCloudwatchMetric :: Maybe IoTTopicRuleCloudwatchMetricAction - , _ioTTopicRuleActionDynamoDB :: Maybe IoTTopicRuleDynamoDBAction - , _ioTTopicRuleActionDynamoDBv2 :: Maybe IoTTopicRuleDynamoDBV2Action - , _ioTTopicRuleActionElasticsearch :: Maybe IoTTopicRuleElasticsearchAction - , _ioTTopicRuleActionFirehose :: Maybe IoTTopicRuleFirehoseAction - , _ioTTopicRuleActionHttp :: Maybe IoTTopicRuleHttpAction - , _ioTTopicRuleActionIotAnalytics :: Maybe IoTTopicRuleIotAnalyticsAction - , _ioTTopicRuleActionIotEvents :: Maybe IoTTopicRuleIotEventsAction - , _ioTTopicRuleActionIotSiteWise :: Maybe IoTTopicRuleIotSiteWiseAction - , _ioTTopicRuleActionKinesis :: Maybe IoTTopicRuleKinesisAction - , _ioTTopicRuleActionLambda :: Maybe IoTTopicRuleLambdaAction - , _ioTTopicRuleActionRepublish :: Maybe IoTTopicRuleRepublishAction - , _ioTTopicRuleActionS3 :: Maybe IoTTopicRuleS3Action - , _ioTTopicRuleActionSns :: Maybe IoTTopicRuleSnsAction - , _ioTTopicRuleActionSqs :: Maybe IoTTopicRuleSqsAction - , _ioTTopicRuleActionStepFunctions :: Maybe IoTTopicRuleStepFunctionsAction - } deriving (Show, Eq) - -instance ToJSON IoTTopicRuleAction where - toJSON IoTTopicRuleAction{..} = - object $ - catMaybes - [ fmap (("CloudwatchAlarm",) . toJSON) _ioTTopicRuleActionCloudwatchAlarm - , fmap (("CloudwatchMetric",) . toJSON) _ioTTopicRuleActionCloudwatchMetric - , fmap (("DynamoDB",) . toJSON) _ioTTopicRuleActionDynamoDB - , fmap (("DynamoDBv2",) . toJSON) _ioTTopicRuleActionDynamoDBv2 - , fmap (("Elasticsearch",) . toJSON) _ioTTopicRuleActionElasticsearch - , fmap (("Firehose",) . toJSON) _ioTTopicRuleActionFirehose - , fmap (("Http",) . toJSON) _ioTTopicRuleActionHttp - , fmap (("IotAnalytics",) . toJSON) _ioTTopicRuleActionIotAnalytics - , fmap (("IotEvents",) . toJSON) _ioTTopicRuleActionIotEvents - , fmap (("IotSiteWise",) . toJSON) _ioTTopicRuleActionIotSiteWise - , fmap (("Kinesis",) . toJSON) _ioTTopicRuleActionKinesis - , fmap (("Lambda",) . toJSON) _ioTTopicRuleActionLambda - , fmap (("Republish",) . toJSON) _ioTTopicRuleActionRepublish - , fmap (("S3",) . toJSON) _ioTTopicRuleActionS3 - , fmap (("Sns",) . toJSON) _ioTTopicRuleActionSns - , fmap (("Sqs",) . toJSON) _ioTTopicRuleActionSqs - , fmap (("StepFunctions",) . toJSON) _ioTTopicRuleActionStepFunctions - ] - --- | Constructor for 'IoTTopicRuleAction' containing required fields as --- arguments. -ioTTopicRuleAction - :: IoTTopicRuleAction -ioTTopicRuleAction = - IoTTopicRuleAction - { _ioTTopicRuleActionCloudwatchAlarm = Nothing - , _ioTTopicRuleActionCloudwatchMetric = Nothing - , _ioTTopicRuleActionDynamoDB = Nothing - , _ioTTopicRuleActionDynamoDBv2 = Nothing - , _ioTTopicRuleActionElasticsearch = Nothing - , _ioTTopicRuleActionFirehose = Nothing - , _ioTTopicRuleActionHttp = Nothing - , _ioTTopicRuleActionIotAnalytics = Nothing - , _ioTTopicRuleActionIotEvents = Nothing - , _ioTTopicRuleActionIotSiteWise = Nothing - , _ioTTopicRuleActionKinesis = Nothing - , _ioTTopicRuleActionLambda = Nothing - , _ioTTopicRuleActionRepublish = Nothing - , _ioTTopicRuleActionS3 = Nothing - , _ioTTopicRuleActionSns = Nothing - , _ioTTopicRuleActionSqs = Nothing - , _ioTTopicRuleActionStepFunctions = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-action.html#cfn-iot-topicrule-action-cloudwatchalarm -ittraCloudwatchAlarm :: Lens' IoTTopicRuleAction (Maybe IoTTopicRuleCloudwatchAlarmAction) -ittraCloudwatchAlarm = lens _ioTTopicRuleActionCloudwatchAlarm (\s a -> s { _ioTTopicRuleActionCloudwatchAlarm = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-action.html#cfn-iot-topicrule-action-cloudwatchmetric -ittraCloudwatchMetric :: Lens' IoTTopicRuleAction (Maybe IoTTopicRuleCloudwatchMetricAction) -ittraCloudwatchMetric = lens _ioTTopicRuleActionCloudwatchMetric (\s a -> s { _ioTTopicRuleActionCloudwatchMetric = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-action.html#cfn-iot-topicrule-action-dynamodb -ittraDynamoDB :: Lens' IoTTopicRuleAction (Maybe IoTTopicRuleDynamoDBAction) -ittraDynamoDB = lens _ioTTopicRuleActionDynamoDB (\s a -> s { _ioTTopicRuleActionDynamoDB = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-action.html#cfn-iot-topicrule-action-dynamodbv2 -ittraDynamoDBv2 :: Lens' IoTTopicRuleAction (Maybe IoTTopicRuleDynamoDBV2Action) -ittraDynamoDBv2 = lens _ioTTopicRuleActionDynamoDBv2 (\s a -> s { _ioTTopicRuleActionDynamoDBv2 = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-action.html#cfn-iot-topicrule-action-elasticsearch -ittraElasticsearch :: Lens' IoTTopicRuleAction (Maybe IoTTopicRuleElasticsearchAction) -ittraElasticsearch = lens _ioTTopicRuleActionElasticsearch (\s a -> s { _ioTTopicRuleActionElasticsearch = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-action.html#cfn-iot-topicrule-action-firehose -ittraFirehose :: Lens' IoTTopicRuleAction (Maybe IoTTopicRuleFirehoseAction) -ittraFirehose = lens _ioTTopicRuleActionFirehose (\s a -> s { _ioTTopicRuleActionFirehose = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-action.html#cfn-iot-topicrule-action-http -ittraHttp :: Lens' IoTTopicRuleAction (Maybe IoTTopicRuleHttpAction) -ittraHttp = lens _ioTTopicRuleActionHttp (\s a -> s { _ioTTopicRuleActionHttp = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-action.html#cfn-iot-topicrule-action-iotanalytics -ittraIotAnalytics :: Lens' IoTTopicRuleAction (Maybe IoTTopicRuleIotAnalyticsAction) -ittraIotAnalytics = lens _ioTTopicRuleActionIotAnalytics (\s a -> s { _ioTTopicRuleActionIotAnalytics = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-action.html#cfn-iot-topicrule-action-iotevents -ittraIotEvents :: Lens' IoTTopicRuleAction (Maybe IoTTopicRuleIotEventsAction) -ittraIotEvents = lens _ioTTopicRuleActionIotEvents (\s a -> s { _ioTTopicRuleActionIotEvents = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-action.html#cfn-iot-topicrule-action-iotsitewise -ittraIotSiteWise :: Lens' IoTTopicRuleAction (Maybe IoTTopicRuleIotSiteWiseAction) -ittraIotSiteWise = lens _ioTTopicRuleActionIotSiteWise (\s a -> s { _ioTTopicRuleActionIotSiteWise = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-action.html#cfn-iot-topicrule-action-kinesis -ittraKinesis :: Lens' IoTTopicRuleAction (Maybe IoTTopicRuleKinesisAction) -ittraKinesis = lens _ioTTopicRuleActionKinesis (\s a -> s { _ioTTopicRuleActionKinesis = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-action.html#cfn-iot-topicrule-action-lambda -ittraLambda :: Lens' IoTTopicRuleAction (Maybe IoTTopicRuleLambdaAction) -ittraLambda = lens _ioTTopicRuleActionLambda (\s a -> s { _ioTTopicRuleActionLambda = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-action.html#cfn-iot-topicrule-action-republish -ittraRepublish :: Lens' IoTTopicRuleAction (Maybe IoTTopicRuleRepublishAction) -ittraRepublish = lens _ioTTopicRuleActionRepublish (\s a -> s { _ioTTopicRuleActionRepublish = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-action.html#cfn-iot-topicrule-action-s3 -ittraS3 :: Lens' IoTTopicRuleAction (Maybe IoTTopicRuleS3Action) -ittraS3 = lens _ioTTopicRuleActionS3 (\s a -> s { _ioTTopicRuleActionS3 = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-action.html#cfn-iot-topicrule-action-sns -ittraSns :: Lens' IoTTopicRuleAction (Maybe IoTTopicRuleSnsAction) -ittraSns = lens _ioTTopicRuleActionSns (\s a -> s { _ioTTopicRuleActionSns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-action.html#cfn-iot-topicrule-action-sqs -ittraSqs :: Lens' IoTTopicRuleAction (Maybe IoTTopicRuleSqsAction) -ittraSqs = lens _ioTTopicRuleActionSqs (\s a -> s { _ioTTopicRuleActionSqs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-action.html#cfn-iot-topicrule-action-stepfunctions -ittraStepFunctions :: Lens' IoTTopicRuleAction (Maybe IoTTopicRuleStepFunctionsAction) -ittraStepFunctions = lens _ioTTopicRuleActionStepFunctions (\s a -> s { _ioTTopicRuleActionStepFunctions = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleAssetPropertyTimestamp.hs b/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleAssetPropertyTimestamp.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleAssetPropertyTimestamp.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-assetpropertytimestamp.html - -module Stratosphere.ResourceProperties.IoTTopicRuleAssetPropertyTimestamp where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTTopicRuleAssetPropertyTimestamp. See --- 'ioTTopicRuleAssetPropertyTimestamp' for a more convenient constructor. -data IoTTopicRuleAssetPropertyTimestamp = - IoTTopicRuleAssetPropertyTimestamp - { _ioTTopicRuleAssetPropertyTimestampOffsetInNanos :: Maybe (Val Text) - , _ioTTopicRuleAssetPropertyTimestampTimeInSeconds :: Val Text - } deriving (Show, Eq) - -instance ToJSON IoTTopicRuleAssetPropertyTimestamp where - toJSON IoTTopicRuleAssetPropertyTimestamp{..} = - object $ - catMaybes - [ fmap (("OffsetInNanos",) . toJSON) _ioTTopicRuleAssetPropertyTimestampOffsetInNanos - , (Just . ("TimeInSeconds",) . toJSON) _ioTTopicRuleAssetPropertyTimestampTimeInSeconds - ] - --- | Constructor for 'IoTTopicRuleAssetPropertyTimestamp' containing required --- fields as arguments. -ioTTopicRuleAssetPropertyTimestamp - :: Val Text -- ^ 'ittraptTimeInSeconds' - -> IoTTopicRuleAssetPropertyTimestamp -ioTTopicRuleAssetPropertyTimestamp timeInSecondsarg = - IoTTopicRuleAssetPropertyTimestamp - { _ioTTopicRuleAssetPropertyTimestampOffsetInNanos = Nothing - , _ioTTopicRuleAssetPropertyTimestampTimeInSeconds = timeInSecondsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-assetpropertytimestamp.html#cfn-iot-topicrule-assetpropertytimestamp-offsetinnanos -ittraptOffsetInNanos :: Lens' IoTTopicRuleAssetPropertyTimestamp (Maybe (Val Text)) -ittraptOffsetInNanos = lens _ioTTopicRuleAssetPropertyTimestampOffsetInNanos (\s a -> s { _ioTTopicRuleAssetPropertyTimestampOffsetInNanos = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-assetpropertytimestamp.html#cfn-iot-topicrule-assetpropertytimestamp-timeinseconds -ittraptTimeInSeconds :: Lens' IoTTopicRuleAssetPropertyTimestamp (Val Text) -ittraptTimeInSeconds = lens _ioTTopicRuleAssetPropertyTimestampTimeInSeconds (\s a -> s { _ioTTopicRuleAssetPropertyTimestampTimeInSeconds = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleAssetPropertyValue.hs b/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleAssetPropertyValue.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleAssetPropertyValue.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-assetpropertyvalue.html - -module Stratosphere.ResourceProperties.IoTTopicRuleAssetPropertyValue where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTTopicRuleAssetPropertyTimestamp -import Stratosphere.ResourceProperties.IoTTopicRuleAssetPropertyVariant - --- | Full data type definition for IoTTopicRuleAssetPropertyValue. See --- 'ioTTopicRuleAssetPropertyValue' for a more convenient constructor. -data IoTTopicRuleAssetPropertyValue = - IoTTopicRuleAssetPropertyValue - { _ioTTopicRuleAssetPropertyValueQuality :: Maybe (Val Text) - , _ioTTopicRuleAssetPropertyValueTimestamp :: IoTTopicRuleAssetPropertyTimestamp - , _ioTTopicRuleAssetPropertyValueValue :: IoTTopicRuleAssetPropertyVariant - } deriving (Show, Eq) - -instance ToJSON IoTTopicRuleAssetPropertyValue where - toJSON IoTTopicRuleAssetPropertyValue{..} = - object $ - catMaybes - [ fmap (("Quality",) . toJSON) _ioTTopicRuleAssetPropertyValueQuality - , (Just . ("Timestamp",) . toJSON) _ioTTopicRuleAssetPropertyValueTimestamp - , (Just . ("Value",) . toJSON) _ioTTopicRuleAssetPropertyValueValue - ] - --- | Constructor for 'IoTTopicRuleAssetPropertyValue' containing required --- fields as arguments. -ioTTopicRuleAssetPropertyValue - :: IoTTopicRuleAssetPropertyTimestamp -- ^ 'ittrapvTimestamp' - -> IoTTopicRuleAssetPropertyVariant -- ^ 'ittrapvValue' - -> IoTTopicRuleAssetPropertyValue -ioTTopicRuleAssetPropertyValue timestamparg valuearg = - IoTTopicRuleAssetPropertyValue - { _ioTTopicRuleAssetPropertyValueQuality = Nothing - , _ioTTopicRuleAssetPropertyValueTimestamp = timestamparg - , _ioTTopicRuleAssetPropertyValueValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-assetpropertyvalue.html#cfn-iot-topicrule-assetpropertyvalue-quality -ittrapvQuality :: Lens' IoTTopicRuleAssetPropertyValue (Maybe (Val Text)) -ittrapvQuality = lens _ioTTopicRuleAssetPropertyValueQuality (\s a -> s { _ioTTopicRuleAssetPropertyValueQuality = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-assetpropertyvalue.html#cfn-iot-topicrule-assetpropertyvalue-timestamp -ittrapvTimestamp :: Lens' IoTTopicRuleAssetPropertyValue IoTTopicRuleAssetPropertyTimestamp -ittrapvTimestamp = lens _ioTTopicRuleAssetPropertyValueTimestamp (\s a -> s { _ioTTopicRuleAssetPropertyValueTimestamp = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-assetpropertyvalue.html#cfn-iot-topicrule-assetpropertyvalue-value -ittrapvValue :: Lens' IoTTopicRuleAssetPropertyValue IoTTopicRuleAssetPropertyVariant -ittrapvValue = lens _ioTTopicRuleAssetPropertyValueValue (\s a -> s { _ioTTopicRuleAssetPropertyValueValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleAssetPropertyVariant.hs b/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleAssetPropertyVariant.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleAssetPropertyVariant.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-assetpropertyvariant.html - -module Stratosphere.ResourceProperties.IoTTopicRuleAssetPropertyVariant where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTTopicRuleAssetPropertyVariant. See --- 'ioTTopicRuleAssetPropertyVariant' for a more convenient constructor. -data IoTTopicRuleAssetPropertyVariant = - IoTTopicRuleAssetPropertyVariant - { _ioTTopicRuleAssetPropertyVariantBooleanValue :: Maybe (Val Text) - , _ioTTopicRuleAssetPropertyVariantDoubleValue :: Maybe (Val Text) - , _ioTTopicRuleAssetPropertyVariantIntegerValue :: Maybe (Val Text) - , _ioTTopicRuleAssetPropertyVariantStringValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTTopicRuleAssetPropertyVariant where - toJSON IoTTopicRuleAssetPropertyVariant{..} = - object $ - catMaybes - [ fmap (("BooleanValue",) . toJSON) _ioTTopicRuleAssetPropertyVariantBooleanValue - , fmap (("DoubleValue",) . toJSON) _ioTTopicRuleAssetPropertyVariantDoubleValue - , fmap (("IntegerValue",) . toJSON) _ioTTopicRuleAssetPropertyVariantIntegerValue - , fmap (("StringValue",) . toJSON) _ioTTopicRuleAssetPropertyVariantStringValue - ] - --- | Constructor for 'IoTTopicRuleAssetPropertyVariant' containing required --- fields as arguments. -ioTTopicRuleAssetPropertyVariant - :: IoTTopicRuleAssetPropertyVariant -ioTTopicRuleAssetPropertyVariant = - IoTTopicRuleAssetPropertyVariant - { _ioTTopicRuleAssetPropertyVariantBooleanValue = Nothing - , _ioTTopicRuleAssetPropertyVariantDoubleValue = Nothing - , _ioTTopicRuleAssetPropertyVariantIntegerValue = Nothing - , _ioTTopicRuleAssetPropertyVariantStringValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-assetpropertyvariant.html#cfn-iot-topicrule-assetpropertyvariant-booleanvalue -ittrapvBooleanValue :: Lens' IoTTopicRuleAssetPropertyVariant (Maybe (Val Text)) -ittrapvBooleanValue = lens _ioTTopicRuleAssetPropertyVariantBooleanValue (\s a -> s { _ioTTopicRuleAssetPropertyVariantBooleanValue = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-assetpropertyvariant.html#cfn-iot-topicrule-assetpropertyvariant-doublevalue -ittrapvDoubleValue :: Lens' IoTTopicRuleAssetPropertyVariant (Maybe (Val Text)) -ittrapvDoubleValue = lens _ioTTopicRuleAssetPropertyVariantDoubleValue (\s a -> s { _ioTTopicRuleAssetPropertyVariantDoubleValue = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-assetpropertyvariant.html#cfn-iot-topicrule-assetpropertyvariant-integervalue -ittrapvIntegerValue :: Lens' IoTTopicRuleAssetPropertyVariant (Maybe (Val Text)) -ittrapvIntegerValue = lens _ioTTopicRuleAssetPropertyVariantIntegerValue (\s a -> s { _ioTTopicRuleAssetPropertyVariantIntegerValue = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-assetpropertyvariant.html#cfn-iot-topicrule-assetpropertyvariant-stringvalue -ittrapvStringValue :: Lens' IoTTopicRuleAssetPropertyVariant (Maybe (Val Text)) -ittrapvStringValue = lens _ioTTopicRuleAssetPropertyVariantStringValue (\s a -> s { _ioTTopicRuleAssetPropertyVariantStringValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleCloudwatchAlarmAction.hs b/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleCloudwatchAlarmAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleCloudwatchAlarmAction.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-cloudwatchalarmaction.html - -module Stratosphere.ResourceProperties.IoTTopicRuleCloudwatchAlarmAction where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTTopicRuleCloudwatchAlarmAction. See --- 'ioTTopicRuleCloudwatchAlarmAction' for a more convenient constructor. -data IoTTopicRuleCloudwatchAlarmAction = - IoTTopicRuleCloudwatchAlarmAction - { _ioTTopicRuleCloudwatchAlarmActionAlarmName :: Val Text - , _ioTTopicRuleCloudwatchAlarmActionRoleArn :: Val Text - , _ioTTopicRuleCloudwatchAlarmActionStateReason :: Val Text - , _ioTTopicRuleCloudwatchAlarmActionStateValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON IoTTopicRuleCloudwatchAlarmAction where - toJSON IoTTopicRuleCloudwatchAlarmAction{..} = - object $ - catMaybes - [ (Just . ("AlarmName",) . toJSON) _ioTTopicRuleCloudwatchAlarmActionAlarmName - , (Just . ("RoleArn",) . toJSON) _ioTTopicRuleCloudwatchAlarmActionRoleArn - , (Just . ("StateReason",) . toJSON) _ioTTopicRuleCloudwatchAlarmActionStateReason - , (Just . ("StateValue",) . toJSON) _ioTTopicRuleCloudwatchAlarmActionStateValue - ] - --- | Constructor for 'IoTTopicRuleCloudwatchAlarmAction' containing required --- fields as arguments. -ioTTopicRuleCloudwatchAlarmAction - :: Val Text -- ^ 'ittrcaaAlarmName' - -> Val Text -- ^ 'ittrcaaRoleArn' - -> Val Text -- ^ 'ittrcaaStateReason' - -> Val Text -- ^ 'ittrcaaStateValue' - -> IoTTopicRuleCloudwatchAlarmAction -ioTTopicRuleCloudwatchAlarmAction alarmNamearg roleArnarg stateReasonarg stateValuearg = - IoTTopicRuleCloudwatchAlarmAction - { _ioTTopicRuleCloudwatchAlarmActionAlarmName = alarmNamearg - , _ioTTopicRuleCloudwatchAlarmActionRoleArn = roleArnarg - , _ioTTopicRuleCloudwatchAlarmActionStateReason = stateReasonarg - , _ioTTopicRuleCloudwatchAlarmActionStateValue = stateValuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-cloudwatchalarmaction.html#cfn-iot-topicrule-cloudwatchalarmaction-alarmname -ittrcaaAlarmName :: Lens' IoTTopicRuleCloudwatchAlarmAction (Val Text) -ittrcaaAlarmName = lens _ioTTopicRuleCloudwatchAlarmActionAlarmName (\s a -> s { _ioTTopicRuleCloudwatchAlarmActionAlarmName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-cloudwatchalarmaction.html#cfn-iot-topicrule-cloudwatchalarmaction-rolearn -ittrcaaRoleArn :: Lens' IoTTopicRuleCloudwatchAlarmAction (Val Text) -ittrcaaRoleArn = lens _ioTTopicRuleCloudwatchAlarmActionRoleArn (\s a -> s { _ioTTopicRuleCloudwatchAlarmActionRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-cloudwatchalarmaction.html#cfn-iot-topicrule-cloudwatchalarmaction-statereason -ittrcaaStateReason :: Lens' IoTTopicRuleCloudwatchAlarmAction (Val Text) -ittrcaaStateReason = lens _ioTTopicRuleCloudwatchAlarmActionStateReason (\s a -> s { _ioTTopicRuleCloudwatchAlarmActionStateReason = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-cloudwatchalarmaction.html#cfn-iot-topicrule-cloudwatchalarmaction-statevalue -ittrcaaStateValue :: Lens' IoTTopicRuleCloudwatchAlarmAction (Val Text) -ittrcaaStateValue = lens _ioTTopicRuleCloudwatchAlarmActionStateValue (\s a -> s { _ioTTopicRuleCloudwatchAlarmActionStateValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleCloudwatchMetricAction.hs b/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleCloudwatchMetricAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleCloudwatchMetricAction.hs +++ /dev/null @@ -1,78 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-cloudwatchmetricaction.html - -module Stratosphere.ResourceProperties.IoTTopicRuleCloudwatchMetricAction where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTTopicRuleCloudwatchMetricAction. See --- 'ioTTopicRuleCloudwatchMetricAction' for a more convenient constructor. -data IoTTopicRuleCloudwatchMetricAction = - IoTTopicRuleCloudwatchMetricAction - { _ioTTopicRuleCloudwatchMetricActionMetricName :: Val Text - , _ioTTopicRuleCloudwatchMetricActionMetricNamespace :: Val Text - , _ioTTopicRuleCloudwatchMetricActionMetricTimestamp :: Maybe (Val Text) - , _ioTTopicRuleCloudwatchMetricActionMetricUnit :: Val Text - , _ioTTopicRuleCloudwatchMetricActionMetricValue :: Val Text - , _ioTTopicRuleCloudwatchMetricActionRoleArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON IoTTopicRuleCloudwatchMetricAction where - toJSON IoTTopicRuleCloudwatchMetricAction{..} = - object $ - catMaybes - [ (Just . ("MetricName",) . toJSON) _ioTTopicRuleCloudwatchMetricActionMetricName - , (Just . ("MetricNamespace",) . toJSON) _ioTTopicRuleCloudwatchMetricActionMetricNamespace - , fmap (("MetricTimestamp",) . toJSON) _ioTTopicRuleCloudwatchMetricActionMetricTimestamp - , (Just . ("MetricUnit",) . toJSON) _ioTTopicRuleCloudwatchMetricActionMetricUnit - , (Just . ("MetricValue",) . toJSON) _ioTTopicRuleCloudwatchMetricActionMetricValue - , (Just . ("RoleArn",) . toJSON) _ioTTopicRuleCloudwatchMetricActionRoleArn - ] - --- | Constructor for 'IoTTopicRuleCloudwatchMetricAction' containing required --- fields as arguments. -ioTTopicRuleCloudwatchMetricAction - :: Val Text -- ^ 'ittrcmaMetricName' - -> Val Text -- ^ 'ittrcmaMetricNamespace' - -> Val Text -- ^ 'ittrcmaMetricUnit' - -> Val Text -- ^ 'ittrcmaMetricValue' - -> Val Text -- ^ 'ittrcmaRoleArn' - -> IoTTopicRuleCloudwatchMetricAction -ioTTopicRuleCloudwatchMetricAction metricNamearg metricNamespacearg metricUnitarg metricValuearg roleArnarg = - IoTTopicRuleCloudwatchMetricAction - { _ioTTopicRuleCloudwatchMetricActionMetricName = metricNamearg - , _ioTTopicRuleCloudwatchMetricActionMetricNamespace = metricNamespacearg - , _ioTTopicRuleCloudwatchMetricActionMetricTimestamp = Nothing - , _ioTTopicRuleCloudwatchMetricActionMetricUnit = metricUnitarg - , _ioTTopicRuleCloudwatchMetricActionMetricValue = metricValuearg - , _ioTTopicRuleCloudwatchMetricActionRoleArn = roleArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-cloudwatchmetricaction.html#cfn-iot-topicrule-cloudwatchmetricaction-metricname -ittrcmaMetricName :: Lens' IoTTopicRuleCloudwatchMetricAction (Val Text) -ittrcmaMetricName = lens _ioTTopicRuleCloudwatchMetricActionMetricName (\s a -> s { _ioTTopicRuleCloudwatchMetricActionMetricName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-cloudwatchmetricaction.html#cfn-iot-topicrule-cloudwatchmetricaction-metricnamespace -ittrcmaMetricNamespace :: Lens' IoTTopicRuleCloudwatchMetricAction (Val Text) -ittrcmaMetricNamespace = lens _ioTTopicRuleCloudwatchMetricActionMetricNamespace (\s a -> s { _ioTTopicRuleCloudwatchMetricActionMetricNamespace = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-cloudwatchmetricaction.html#cfn-iot-topicrule-cloudwatchmetricaction-metrictimestamp -ittrcmaMetricTimestamp :: Lens' IoTTopicRuleCloudwatchMetricAction (Maybe (Val Text)) -ittrcmaMetricTimestamp = lens _ioTTopicRuleCloudwatchMetricActionMetricTimestamp (\s a -> s { _ioTTopicRuleCloudwatchMetricActionMetricTimestamp = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-cloudwatchmetricaction.html#cfn-iot-topicrule-cloudwatchmetricaction-metricunit -ittrcmaMetricUnit :: Lens' IoTTopicRuleCloudwatchMetricAction (Val Text) -ittrcmaMetricUnit = lens _ioTTopicRuleCloudwatchMetricActionMetricUnit (\s a -> s { _ioTTopicRuleCloudwatchMetricActionMetricUnit = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-cloudwatchmetricaction.html#cfn-iot-topicrule-cloudwatchmetricaction-metricvalue -ittrcmaMetricValue :: Lens' IoTTopicRuleCloudwatchMetricAction (Val Text) -ittrcmaMetricValue = lens _ioTTopicRuleCloudwatchMetricActionMetricValue (\s a -> s { _ioTTopicRuleCloudwatchMetricActionMetricValue = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-cloudwatchmetricaction.html#cfn-iot-topicrule-cloudwatchmetricaction-rolearn -ittrcmaRoleArn :: Lens' IoTTopicRuleCloudwatchMetricAction (Val Text) -ittrcmaRoleArn = lens _ioTTopicRuleCloudwatchMetricActionRoleArn (\s a -> s { _ioTTopicRuleCloudwatchMetricActionRoleArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleDynamoDBAction.hs b/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleDynamoDBAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleDynamoDBAction.hs +++ /dev/null @@ -1,98 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-dynamodbaction.html - -module Stratosphere.ResourceProperties.IoTTopicRuleDynamoDBAction where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTTopicRuleDynamoDBAction. See --- 'ioTTopicRuleDynamoDBAction' for a more convenient constructor. -data IoTTopicRuleDynamoDBAction = - IoTTopicRuleDynamoDBAction - { _ioTTopicRuleDynamoDBActionHashKeyField :: Val Text - , _ioTTopicRuleDynamoDBActionHashKeyType :: Maybe (Val Text) - , _ioTTopicRuleDynamoDBActionHashKeyValue :: Val Text - , _ioTTopicRuleDynamoDBActionPayloadField :: Maybe (Val Text) - , _ioTTopicRuleDynamoDBActionRangeKeyField :: Maybe (Val Text) - , _ioTTopicRuleDynamoDBActionRangeKeyType :: Maybe (Val Text) - , _ioTTopicRuleDynamoDBActionRangeKeyValue :: Maybe (Val Text) - , _ioTTopicRuleDynamoDBActionRoleArn :: Val Text - , _ioTTopicRuleDynamoDBActionTableName :: Val Text - } deriving (Show, Eq) - -instance ToJSON IoTTopicRuleDynamoDBAction where - toJSON IoTTopicRuleDynamoDBAction{..} = - object $ - catMaybes - [ (Just . ("HashKeyField",) . toJSON) _ioTTopicRuleDynamoDBActionHashKeyField - , fmap (("HashKeyType",) . toJSON) _ioTTopicRuleDynamoDBActionHashKeyType - , (Just . ("HashKeyValue",) . toJSON) _ioTTopicRuleDynamoDBActionHashKeyValue - , fmap (("PayloadField",) . toJSON) _ioTTopicRuleDynamoDBActionPayloadField - , fmap (("RangeKeyField",) . toJSON) _ioTTopicRuleDynamoDBActionRangeKeyField - , fmap (("RangeKeyType",) . toJSON) _ioTTopicRuleDynamoDBActionRangeKeyType - , fmap (("RangeKeyValue",) . toJSON) _ioTTopicRuleDynamoDBActionRangeKeyValue - , (Just . ("RoleArn",) . toJSON) _ioTTopicRuleDynamoDBActionRoleArn - , (Just . ("TableName",) . toJSON) _ioTTopicRuleDynamoDBActionTableName - ] - --- | Constructor for 'IoTTopicRuleDynamoDBAction' containing required fields --- as arguments. -ioTTopicRuleDynamoDBAction - :: Val Text -- ^ 'ittrddbaHashKeyField' - -> Val Text -- ^ 'ittrddbaHashKeyValue' - -> Val Text -- ^ 'ittrddbaRoleArn' - -> Val Text -- ^ 'ittrddbaTableName' - -> IoTTopicRuleDynamoDBAction -ioTTopicRuleDynamoDBAction hashKeyFieldarg hashKeyValuearg roleArnarg tableNamearg = - IoTTopicRuleDynamoDBAction - { _ioTTopicRuleDynamoDBActionHashKeyField = hashKeyFieldarg - , _ioTTopicRuleDynamoDBActionHashKeyType = Nothing - , _ioTTopicRuleDynamoDBActionHashKeyValue = hashKeyValuearg - , _ioTTopicRuleDynamoDBActionPayloadField = Nothing - , _ioTTopicRuleDynamoDBActionRangeKeyField = Nothing - , _ioTTopicRuleDynamoDBActionRangeKeyType = Nothing - , _ioTTopicRuleDynamoDBActionRangeKeyValue = Nothing - , _ioTTopicRuleDynamoDBActionRoleArn = roleArnarg - , _ioTTopicRuleDynamoDBActionTableName = tableNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-dynamodbaction.html#cfn-iot-topicrule-dynamodbaction-hashkeyfield -ittrddbaHashKeyField :: Lens' IoTTopicRuleDynamoDBAction (Val Text) -ittrddbaHashKeyField = lens _ioTTopicRuleDynamoDBActionHashKeyField (\s a -> s { _ioTTopicRuleDynamoDBActionHashKeyField = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-dynamodbaction.html#cfn-iot-topicrule-dynamodbaction-hashkeytype -ittrddbaHashKeyType :: Lens' IoTTopicRuleDynamoDBAction (Maybe (Val Text)) -ittrddbaHashKeyType = lens _ioTTopicRuleDynamoDBActionHashKeyType (\s a -> s { _ioTTopicRuleDynamoDBActionHashKeyType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-dynamodbaction.html#cfn-iot-topicrule-dynamodbaction-hashkeyvalue -ittrddbaHashKeyValue :: Lens' IoTTopicRuleDynamoDBAction (Val Text) -ittrddbaHashKeyValue = lens _ioTTopicRuleDynamoDBActionHashKeyValue (\s a -> s { _ioTTopicRuleDynamoDBActionHashKeyValue = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-dynamodbaction.html#cfn-iot-topicrule-dynamodbaction-payloadfield -ittrddbaPayloadField :: Lens' IoTTopicRuleDynamoDBAction (Maybe (Val Text)) -ittrddbaPayloadField = lens _ioTTopicRuleDynamoDBActionPayloadField (\s a -> s { _ioTTopicRuleDynamoDBActionPayloadField = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-dynamodbaction.html#cfn-iot-topicrule-dynamodbaction-rangekeyfield -ittrddbaRangeKeyField :: Lens' IoTTopicRuleDynamoDBAction (Maybe (Val Text)) -ittrddbaRangeKeyField = lens _ioTTopicRuleDynamoDBActionRangeKeyField (\s a -> s { _ioTTopicRuleDynamoDBActionRangeKeyField = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-dynamodbaction.html#cfn-iot-topicrule-dynamodbaction-rangekeytype -ittrddbaRangeKeyType :: Lens' IoTTopicRuleDynamoDBAction (Maybe (Val Text)) -ittrddbaRangeKeyType = lens _ioTTopicRuleDynamoDBActionRangeKeyType (\s a -> s { _ioTTopicRuleDynamoDBActionRangeKeyType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-dynamodbaction.html#cfn-iot-topicrule-dynamodbaction-rangekeyvalue -ittrddbaRangeKeyValue :: Lens' IoTTopicRuleDynamoDBAction (Maybe (Val Text)) -ittrddbaRangeKeyValue = lens _ioTTopicRuleDynamoDBActionRangeKeyValue (\s a -> s { _ioTTopicRuleDynamoDBActionRangeKeyValue = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-dynamodbaction.html#cfn-iot-topicrule-dynamodbaction-rolearn -ittrddbaRoleArn :: Lens' IoTTopicRuleDynamoDBAction (Val Text) -ittrddbaRoleArn = lens _ioTTopicRuleDynamoDBActionRoleArn (\s a -> s { _ioTTopicRuleDynamoDBActionRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-dynamodbaction.html#cfn-iot-topicrule-dynamodbaction-tablename -ittrddbaTableName :: Lens' IoTTopicRuleDynamoDBAction (Val Text) -ittrddbaTableName = lens _ioTTopicRuleDynamoDBActionTableName (\s a -> s { _ioTTopicRuleDynamoDBActionTableName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleDynamoDBV2Action.hs b/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleDynamoDBV2Action.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleDynamoDBV2Action.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-dynamodbv2action.html - -module Stratosphere.ResourceProperties.IoTTopicRuleDynamoDBV2Action where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTTopicRulePutItemInput - --- | Full data type definition for IoTTopicRuleDynamoDBV2Action. See --- 'ioTTopicRuleDynamoDBV2Action' for a more convenient constructor. -data IoTTopicRuleDynamoDBV2Action = - IoTTopicRuleDynamoDBV2Action - { _ioTTopicRuleDynamoDBV2ActionPutItem :: Maybe IoTTopicRulePutItemInput - , _ioTTopicRuleDynamoDBV2ActionRoleArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTTopicRuleDynamoDBV2Action where - toJSON IoTTopicRuleDynamoDBV2Action{..} = - object $ - catMaybes - [ fmap (("PutItem",) . toJSON) _ioTTopicRuleDynamoDBV2ActionPutItem - , fmap (("RoleArn",) . toJSON) _ioTTopicRuleDynamoDBV2ActionRoleArn - ] - --- | Constructor for 'IoTTopicRuleDynamoDBV2Action' containing required fields --- as arguments. -ioTTopicRuleDynamoDBV2Action - :: IoTTopicRuleDynamoDBV2Action -ioTTopicRuleDynamoDBV2Action = - IoTTopicRuleDynamoDBV2Action - { _ioTTopicRuleDynamoDBV2ActionPutItem = Nothing - , _ioTTopicRuleDynamoDBV2ActionRoleArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-dynamodbv2action.html#cfn-iot-topicrule-dynamodbv2action-putitem -ittrddbvaPutItem :: Lens' IoTTopicRuleDynamoDBV2Action (Maybe IoTTopicRulePutItemInput) -ittrddbvaPutItem = lens _ioTTopicRuleDynamoDBV2ActionPutItem (\s a -> s { _ioTTopicRuleDynamoDBV2ActionPutItem = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-dynamodbv2action.html#cfn-iot-topicrule-dynamodbv2action-rolearn -ittrddbvaRoleArn :: Lens' IoTTopicRuleDynamoDBV2Action (Maybe (Val Text)) -ittrddbvaRoleArn = lens _ioTTopicRuleDynamoDBV2ActionRoleArn (\s a -> s { _ioTTopicRuleDynamoDBV2ActionRoleArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleElasticsearchAction.hs b/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleElasticsearchAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleElasticsearchAction.hs +++ /dev/null @@ -1,71 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-elasticsearchaction.html - -module Stratosphere.ResourceProperties.IoTTopicRuleElasticsearchAction where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTTopicRuleElasticsearchAction. See --- 'ioTTopicRuleElasticsearchAction' for a more convenient constructor. -data IoTTopicRuleElasticsearchAction = - IoTTopicRuleElasticsearchAction - { _ioTTopicRuleElasticsearchActionEndpoint :: Val Text - , _ioTTopicRuleElasticsearchActionId :: Val Text - , _ioTTopicRuleElasticsearchActionIndex :: Val Text - , _ioTTopicRuleElasticsearchActionRoleArn :: Val Text - , _ioTTopicRuleElasticsearchActionType :: Val Text - } deriving (Show, Eq) - -instance ToJSON IoTTopicRuleElasticsearchAction where - toJSON IoTTopicRuleElasticsearchAction{..} = - object $ - catMaybes - [ (Just . ("Endpoint",) . toJSON) _ioTTopicRuleElasticsearchActionEndpoint - , (Just . ("Id",) . toJSON) _ioTTopicRuleElasticsearchActionId - , (Just . ("Index",) . toJSON) _ioTTopicRuleElasticsearchActionIndex - , (Just . ("RoleArn",) . toJSON) _ioTTopicRuleElasticsearchActionRoleArn - , (Just . ("Type",) . toJSON) _ioTTopicRuleElasticsearchActionType - ] - --- | Constructor for 'IoTTopicRuleElasticsearchAction' containing required --- fields as arguments. -ioTTopicRuleElasticsearchAction - :: Val Text -- ^ 'ittreaEndpoint' - -> Val Text -- ^ 'ittreaId' - -> Val Text -- ^ 'ittreaIndex' - -> Val Text -- ^ 'ittreaRoleArn' - -> Val Text -- ^ 'ittreaType' - -> IoTTopicRuleElasticsearchAction -ioTTopicRuleElasticsearchAction endpointarg idarg indexarg roleArnarg typearg = - IoTTopicRuleElasticsearchAction - { _ioTTopicRuleElasticsearchActionEndpoint = endpointarg - , _ioTTopicRuleElasticsearchActionId = idarg - , _ioTTopicRuleElasticsearchActionIndex = indexarg - , _ioTTopicRuleElasticsearchActionRoleArn = roleArnarg - , _ioTTopicRuleElasticsearchActionType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-elasticsearchaction.html#cfn-iot-topicrule-elasticsearchaction-endpoint -ittreaEndpoint :: Lens' IoTTopicRuleElasticsearchAction (Val Text) -ittreaEndpoint = lens _ioTTopicRuleElasticsearchActionEndpoint (\s a -> s { _ioTTopicRuleElasticsearchActionEndpoint = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-elasticsearchaction.html#cfn-iot-topicrule-elasticsearchaction-id -ittreaId :: Lens' IoTTopicRuleElasticsearchAction (Val Text) -ittreaId = lens _ioTTopicRuleElasticsearchActionId (\s a -> s { _ioTTopicRuleElasticsearchActionId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-elasticsearchaction.html#cfn-iot-topicrule-elasticsearchaction-index -ittreaIndex :: Lens' IoTTopicRuleElasticsearchAction (Val Text) -ittreaIndex = lens _ioTTopicRuleElasticsearchActionIndex (\s a -> s { _ioTTopicRuleElasticsearchActionIndex = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-elasticsearchaction.html#cfn-iot-topicrule-elasticsearchaction-rolearn -ittreaRoleArn :: Lens' IoTTopicRuleElasticsearchAction (Val Text) -ittreaRoleArn = lens _ioTTopicRuleElasticsearchActionRoleArn (\s a -> s { _ioTTopicRuleElasticsearchActionRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-elasticsearchaction.html#cfn-iot-topicrule-elasticsearchaction-type -ittreaType :: Lens' IoTTopicRuleElasticsearchAction (Val Text) -ittreaType = lens _ioTTopicRuleElasticsearchActionType (\s a -> s { _ioTTopicRuleElasticsearchActionType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleFirehoseAction.hs b/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleFirehoseAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleFirehoseAction.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-firehoseaction.html - -module Stratosphere.ResourceProperties.IoTTopicRuleFirehoseAction where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTTopicRuleFirehoseAction. See --- 'ioTTopicRuleFirehoseAction' for a more convenient constructor. -data IoTTopicRuleFirehoseAction = - IoTTopicRuleFirehoseAction - { _ioTTopicRuleFirehoseActionDeliveryStreamName :: Val Text - , _ioTTopicRuleFirehoseActionRoleArn :: Val Text - , _ioTTopicRuleFirehoseActionSeparator :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTTopicRuleFirehoseAction where - toJSON IoTTopicRuleFirehoseAction{..} = - object $ - catMaybes - [ (Just . ("DeliveryStreamName",) . toJSON) _ioTTopicRuleFirehoseActionDeliveryStreamName - , (Just . ("RoleArn",) . toJSON) _ioTTopicRuleFirehoseActionRoleArn - , fmap (("Separator",) . toJSON) _ioTTopicRuleFirehoseActionSeparator - ] - --- | Constructor for 'IoTTopicRuleFirehoseAction' containing required fields --- as arguments. -ioTTopicRuleFirehoseAction - :: Val Text -- ^ 'ittrfaDeliveryStreamName' - -> Val Text -- ^ 'ittrfaRoleArn' - -> IoTTopicRuleFirehoseAction -ioTTopicRuleFirehoseAction deliveryStreamNamearg roleArnarg = - IoTTopicRuleFirehoseAction - { _ioTTopicRuleFirehoseActionDeliveryStreamName = deliveryStreamNamearg - , _ioTTopicRuleFirehoseActionRoleArn = roleArnarg - , _ioTTopicRuleFirehoseActionSeparator = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-firehoseaction.html#cfn-iot-topicrule-firehoseaction-deliverystreamname -ittrfaDeliveryStreamName :: Lens' IoTTopicRuleFirehoseAction (Val Text) -ittrfaDeliveryStreamName = lens _ioTTopicRuleFirehoseActionDeliveryStreamName (\s a -> s { _ioTTopicRuleFirehoseActionDeliveryStreamName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-firehoseaction.html#cfn-iot-topicrule-firehoseaction-rolearn -ittrfaRoleArn :: Lens' IoTTopicRuleFirehoseAction (Val Text) -ittrfaRoleArn = lens _ioTTopicRuleFirehoseActionRoleArn (\s a -> s { _ioTTopicRuleFirehoseActionRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-firehoseaction.html#cfn-iot-topicrule-firehoseaction-separator -ittrfaSeparator :: Lens' IoTTopicRuleFirehoseAction (Maybe (Val Text)) -ittrfaSeparator = lens _ioTTopicRuleFirehoseActionSeparator (\s a -> s { _ioTTopicRuleFirehoseActionSeparator = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleHttpAction.hs b/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleHttpAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleHttpAction.hs +++ /dev/null @@ -1,61 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-httpaction.html - -module Stratosphere.ResourceProperties.IoTTopicRuleHttpAction where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTTopicRuleHttpAuthorization -import Stratosphere.ResourceProperties.IoTTopicRuleHttpActionHeader - --- | Full data type definition for IoTTopicRuleHttpAction. See --- 'ioTTopicRuleHttpAction' for a more convenient constructor. -data IoTTopicRuleHttpAction = - IoTTopicRuleHttpAction - { _ioTTopicRuleHttpActionAuth :: Maybe IoTTopicRuleHttpAuthorization - , _ioTTopicRuleHttpActionConfirmationUrl :: Maybe (Val Text) - , _ioTTopicRuleHttpActionHeaders :: Maybe [IoTTopicRuleHttpActionHeader] - , _ioTTopicRuleHttpActionUrl :: Val Text - } deriving (Show, Eq) - -instance ToJSON IoTTopicRuleHttpAction where - toJSON IoTTopicRuleHttpAction{..} = - object $ - catMaybes - [ fmap (("Auth",) . toJSON) _ioTTopicRuleHttpActionAuth - , fmap (("ConfirmationUrl",) . toJSON) _ioTTopicRuleHttpActionConfirmationUrl - , fmap (("Headers",) . toJSON) _ioTTopicRuleHttpActionHeaders - , (Just . ("Url",) . toJSON) _ioTTopicRuleHttpActionUrl - ] - --- | Constructor for 'IoTTopicRuleHttpAction' containing required fields as --- arguments. -ioTTopicRuleHttpAction - :: Val Text -- ^ 'ittrhaUrl' - -> IoTTopicRuleHttpAction -ioTTopicRuleHttpAction urlarg = - IoTTopicRuleHttpAction - { _ioTTopicRuleHttpActionAuth = Nothing - , _ioTTopicRuleHttpActionConfirmationUrl = Nothing - , _ioTTopicRuleHttpActionHeaders = Nothing - , _ioTTopicRuleHttpActionUrl = urlarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-httpaction.html#cfn-iot-topicrule-httpaction-auth -ittrhaAuth :: Lens' IoTTopicRuleHttpAction (Maybe IoTTopicRuleHttpAuthorization) -ittrhaAuth = lens _ioTTopicRuleHttpActionAuth (\s a -> s { _ioTTopicRuleHttpActionAuth = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-httpaction.html#cfn-iot-topicrule-httpaction-confirmationurl -ittrhaConfirmationUrl :: Lens' IoTTopicRuleHttpAction (Maybe (Val Text)) -ittrhaConfirmationUrl = lens _ioTTopicRuleHttpActionConfirmationUrl (\s a -> s { _ioTTopicRuleHttpActionConfirmationUrl = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-httpaction.html#cfn-iot-topicrule-httpaction-headers -ittrhaHeaders :: Lens' IoTTopicRuleHttpAction (Maybe [IoTTopicRuleHttpActionHeader]) -ittrhaHeaders = lens _ioTTopicRuleHttpActionHeaders (\s a -> s { _ioTTopicRuleHttpActionHeaders = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-httpaction.html#cfn-iot-topicrule-httpaction-url -ittrhaUrl :: Lens' IoTTopicRuleHttpAction (Val Text) -ittrhaUrl = lens _ioTTopicRuleHttpActionUrl (\s a -> s { _ioTTopicRuleHttpActionUrl = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleHttpActionHeader.hs b/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleHttpActionHeader.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleHttpActionHeader.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-httpactionheader.html - -module Stratosphere.ResourceProperties.IoTTopicRuleHttpActionHeader where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTTopicRuleHttpActionHeader. See --- 'ioTTopicRuleHttpActionHeader' for a more convenient constructor. -data IoTTopicRuleHttpActionHeader = - IoTTopicRuleHttpActionHeader - { _ioTTopicRuleHttpActionHeaderKey :: Val Text - , _ioTTopicRuleHttpActionHeaderValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON IoTTopicRuleHttpActionHeader where - toJSON IoTTopicRuleHttpActionHeader{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _ioTTopicRuleHttpActionHeaderKey - , (Just . ("Value",) . toJSON) _ioTTopicRuleHttpActionHeaderValue - ] - --- | Constructor for 'IoTTopicRuleHttpActionHeader' containing required fields --- as arguments. -ioTTopicRuleHttpActionHeader - :: Val Text -- ^ 'ittrhahKey' - -> Val Text -- ^ 'ittrhahValue' - -> IoTTopicRuleHttpActionHeader -ioTTopicRuleHttpActionHeader keyarg valuearg = - IoTTopicRuleHttpActionHeader - { _ioTTopicRuleHttpActionHeaderKey = keyarg - , _ioTTopicRuleHttpActionHeaderValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-httpactionheader.html#cfn-iot-topicrule-httpactionheader-key -ittrhahKey :: Lens' IoTTopicRuleHttpActionHeader (Val Text) -ittrhahKey = lens _ioTTopicRuleHttpActionHeaderKey (\s a -> s { _ioTTopicRuleHttpActionHeaderKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-httpactionheader.html#cfn-iot-topicrule-httpactionheader-value -ittrhahValue :: Lens' IoTTopicRuleHttpActionHeader (Val Text) -ittrhahValue = lens _ioTTopicRuleHttpActionHeaderValue (\s a -> s { _ioTTopicRuleHttpActionHeaderValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleHttpAuthorization.hs b/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleHttpAuthorization.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleHttpAuthorization.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-httpauthorization.html - -module Stratosphere.ResourceProperties.IoTTopicRuleHttpAuthorization where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTTopicRuleSigV4Authorization - --- | Full data type definition for IoTTopicRuleHttpAuthorization. See --- 'ioTTopicRuleHttpAuthorization' for a more convenient constructor. -data IoTTopicRuleHttpAuthorization = - IoTTopicRuleHttpAuthorization - { _ioTTopicRuleHttpAuthorizationSigv4 :: Maybe IoTTopicRuleSigV4Authorization - } deriving (Show, Eq) - -instance ToJSON IoTTopicRuleHttpAuthorization where - toJSON IoTTopicRuleHttpAuthorization{..} = - object $ - catMaybes - [ fmap (("Sigv4",) . toJSON) _ioTTopicRuleHttpAuthorizationSigv4 - ] - --- | Constructor for 'IoTTopicRuleHttpAuthorization' containing required --- fields as arguments. -ioTTopicRuleHttpAuthorization - :: IoTTopicRuleHttpAuthorization -ioTTopicRuleHttpAuthorization = - IoTTopicRuleHttpAuthorization - { _ioTTopicRuleHttpAuthorizationSigv4 = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-httpauthorization.html#cfn-iot-topicrule-httpauthorization-sigv4 -ittrhaSigv4 :: Lens' IoTTopicRuleHttpAuthorization (Maybe IoTTopicRuleSigV4Authorization) -ittrhaSigv4 = lens _ioTTopicRuleHttpAuthorizationSigv4 (\s a -> s { _ioTTopicRuleHttpAuthorizationSigv4 = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleIotAnalyticsAction.hs b/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleIotAnalyticsAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleIotAnalyticsAction.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-iotanalyticsaction.html - -module Stratosphere.ResourceProperties.IoTTopicRuleIotAnalyticsAction where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTTopicRuleIotAnalyticsAction. See --- 'ioTTopicRuleIotAnalyticsAction' for a more convenient constructor. -data IoTTopicRuleIotAnalyticsAction = - IoTTopicRuleIotAnalyticsAction - { _ioTTopicRuleIotAnalyticsActionChannelName :: Val Text - , _ioTTopicRuleIotAnalyticsActionRoleArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON IoTTopicRuleIotAnalyticsAction where - toJSON IoTTopicRuleIotAnalyticsAction{..} = - object $ - catMaybes - [ (Just . ("ChannelName",) . toJSON) _ioTTopicRuleIotAnalyticsActionChannelName - , (Just . ("RoleArn",) . toJSON) _ioTTopicRuleIotAnalyticsActionRoleArn - ] - --- | Constructor for 'IoTTopicRuleIotAnalyticsAction' containing required --- fields as arguments. -ioTTopicRuleIotAnalyticsAction - :: Val Text -- ^ 'ittriaaChannelName' - -> Val Text -- ^ 'ittriaaRoleArn' - -> IoTTopicRuleIotAnalyticsAction -ioTTopicRuleIotAnalyticsAction channelNamearg roleArnarg = - IoTTopicRuleIotAnalyticsAction - { _ioTTopicRuleIotAnalyticsActionChannelName = channelNamearg - , _ioTTopicRuleIotAnalyticsActionRoleArn = roleArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-iotanalyticsaction.html#cfn-iot-topicrule-iotanalyticsaction-channelname -ittriaaChannelName :: Lens' IoTTopicRuleIotAnalyticsAction (Val Text) -ittriaaChannelName = lens _ioTTopicRuleIotAnalyticsActionChannelName (\s a -> s { _ioTTopicRuleIotAnalyticsActionChannelName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-iotanalyticsaction.html#cfn-iot-topicrule-iotanalyticsaction-rolearn -ittriaaRoleArn :: Lens' IoTTopicRuleIotAnalyticsAction (Val Text) -ittriaaRoleArn = lens _ioTTopicRuleIotAnalyticsActionRoleArn (\s a -> s { _ioTTopicRuleIotAnalyticsActionRoleArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleIotEventsAction.hs b/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleIotEventsAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleIotEventsAction.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-ioteventsaction.html - -module Stratosphere.ResourceProperties.IoTTopicRuleIotEventsAction where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTTopicRuleIotEventsAction. See --- 'ioTTopicRuleIotEventsAction' for a more convenient constructor. -data IoTTopicRuleIotEventsAction = - IoTTopicRuleIotEventsAction - { _ioTTopicRuleIotEventsActionInputName :: Val Text - , _ioTTopicRuleIotEventsActionMessageId :: Maybe (Val Text) - , _ioTTopicRuleIotEventsActionRoleArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON IoTTopicRuleIotEventsAction where - toJSON IoTTopicRuleIotEventsAction{..} = - object $ - catMaybes - [ (Just . ("InputName",) . toJSON) _ioTTopicRuleIotEventsActionInputName - , fmap (("MessageId",) . toJSON) _ioTTopicRuleIotEventsActionMessageId - , (Just . ("RoleArn",) . toJSON) _ioTTopicRuleIotEventsActionRoleArn - ] - --- | Constructor for 'IoTTopicRuleIotEventsAction' containing required fields --- as arguments. -ioTTopicRuleIotEventsAction - :: Val Text -- ^ 'ittrieaInputName' - -> Val Text -- ^ 'ittrieaRoleArn' - -> IoTTopicRuleIotEventsAction -ioTTopicRuleIotEventsAction inputNamearg roleArnarg = - IoTTopicRuleIotEventsAction - { _ioTTopicRuleIotEventsActionInputName = inputNamearg - , _ioTTopicRuleIotEventsActionMessageId = Nothing - , _ioTTopicRuleIotEventsActionRoleArn = roleArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-ioteventsaction.html#cfn-iot-topicrule-ioteventsaction-inputname -ittrieaInputName :: Lens' IoTTopicRuleIotEventsAction (Val Text) -ittrieaInputName = lens _ioTTopicRuleIotEventsActionInputName (\s a -> s { _ioTTopicRuleIotEventsActionInputName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-ioteventsaction.html#cfn-iot-topicrule-ioteventsaction-messageid -ittrieaMessageId :: Lens' IoTTopicRuleIotEventsAction (Maybe (Val Text)) -ittrieaMessageId = lens _ioTTopicRuleIotEventsActionMessageId (\s a -> s { _ioTTopicRuleIotEventsActionMessageId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-ioteventsaction.html#cfn-iot-topicrule-ioteventsaction-rolearn -ittrieaRoleArn :: Lens' IoTTopicRuleIotEventsAction (Val Text) -ittrieaRoleArn = lens _ioTTopicRuleIotEventsActionRoleArn (\s a -> s { _ioTTopicRuleIotEventsActionRoleArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleIotSiteWiseAction.hs b/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleIotSiteWiseAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleIotSiteWiseAction.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-iotsitewiseaction.html - -module Stratosphere.ResourceProperties.IoTTopicRuleIotSiteWiseAction where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTTopicRulePutAssetPropertyValueEntry - --- | Full data type definition for IoTTopicRuleIotSiteWiseAction. See --- 'ioTTopicRuleIotSiteWiseAction' for a more convenient constructor. -data IoTTopicRuleIotSiteWiseAction = - IoTTopicRuleIotSiteWiseAction - { _ioTTopicRuleIotSiteWiseActionPutAssetPropertyValueEntries :: [IoTTopicRulePutAssetPropertyValueEntry] - , _ioTTopicRuleIotSiteWiseActionRoleArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON IoTTopicRuleIotSiteWiseAction where - toJSON IoTTopicRuleIotSiteWiseAction{..} = - object $ - catMaybes - [ (Just . ("PutAssetPropertyValueEntries",) . toJSON) _ioTTopicRuleIotSiteWiseActionPutAssetPropertyValueEntries - , (Just . ("RoleArn",) . toJSON) _ioTTopicRuleIotSiteWiseActionRoleArn - ] - --- | Constructor for 'IoTTopicRuleIotSiteWiseAction' containing required --- fields as arguments. -ioTTopicRuleIotSiteWiseAction - :: [IoTTopicRulePutAssetPropertyValueEntry] -- ^ 'ittriswaPutAssetPropertyValueEntries' - -> Val Text -- ^ 'ittriswaRoleArn' - -> IoTTopicRuleIotSiteWiseAction -ioTTopicRuleIotSiteWiseAction putAssetPropertyValueEntriesarg roleArnarg = - IoTTopicRuleIotSiteWiseAction - { _ioTTopicRuleIotSiteWiseActionPutAssetPropertyValueEntries = putAssetPropertyValueEntriesarg - , _ioTTopicRuleIotSiteWiseActionRoleArn = roleArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-iotsitewiseaction.html#cfn-iot-topicrule-iotsitewiseaction-putassetpropertyvalueentries -ittriswaPutAssetPropertyValueEntries :: Lens' IoTTopicRuleIotSiteWiseAction [IoTTopicRulePutAssetPropertyValueEntry] -ittriswaPutAssetPropertyValueEntries = lens _ioTTopicRuleIotSiteWiseActionPutAssetPropertyValueEntries (\s a -> s { _ioTTopicRuleIotSiteWiseActionPutAssetPropertyValueEntries = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-iotsitewiseaction.html#cfn-iot-topicrule-iotsitewiseaction-rolearn -ittriswaRoleArn :: Lens' IoTTopicRuleIotSiteWiseAction (Val Text) -ittriswaRoleArn = lens _ioTTopicRuleIotSiteWiseActionRoleArn (\s a -> s { _ioTTopicRuleIotSiteWiseActionRoleArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleKinesisAction.hs b/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleKinesisAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleKinesisAction.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-kinesisaction.html - -module Stratosphere.ResourceProperties.IoTTopicRuleKinesisAction where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTTopicRuleKinesisAction. See --- 'ioTTopicRuleKinesisAction' for a more convenient constructor. -data IoTTopicRuleKinesisAction = - IoTTopicRuleKinesisAction - { _ioTTopicRuleKinesisActionPartitionKey :: Maybe (Val Text) - , _ioTTopicRuleKinesisActionRoleArn :: Val Text - , _ioTTopicRuleKinesisActionStreamName :: Val Text - } deriving (Show, Eq) - -instance ToJSON IoTTopicRuleKinesisAction where - toJSON IoTTopicRuleKinesisAction{..} = - object $ - catMaybes - [ fmap (("PartitionKey",) . toJSON) _ioTTopicRuleKinesisActionPartitionKey - , (Just . ("RoleArn",) . toJSON) _ioTTopicRuleKinesisActionRoleArn - , (Just . ("StreamName",) . toJSON) _ioTTopicRuleKinesisActionStreamName - ] - --- | Constructor for 'IoTTopicRuleKinesisAction' containing required fields as --- arguments. -ioTTopicRuleKinesisAction - :: Val Text -- ^ 'ittrkaRoleArn' - -> Val Text -- ^ 'ittrkaStreamName' - -> IoTTopicRuleKinesisAction -ioTTopicRuleKinesisAction roleArnarg streamNamearg = - IoTTopicRuleKinesisAction - { _ioTTopicRuleKinesisActionPartitionKey = Nothing - , _ioTTopicRuleKinesisActionRoleArn = roleArnarg - , _ioTTopicRuleKinesisActionStreamName = streamNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-kinesisaction.html#cfn-iot-topicrule-kinesisaction-partitionkey -ittrkaPartitionKey :: Lens' IoTTopicRuleKinesisAction (Maybe (Val Text)) -ittrkaPartitionKey = lens _ioTTopicRuleKinesisActionPartitionKey (\s a -> s { _ioTTopicRuleKinesisActionPartitionKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-kinesisaction.html#cfn-iot-topicrule-kinesisaction-rolearn -ittrkaRoleArn :: Lens' IoTTopicRuleKinesisAction (Val Text) -ittrkaRoleArn = lens _ioTTopicRuleKinesisActionRoleArn (\s a -> s { _ioTTopicRuleKinesisActionRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-kinesisaction.html#cfn-iot-topicrule-kinesisaction-streamname -ittrkaStreamName :: Lens' IoTTopicRuleKinesisAction (Val Text) -ittrkaStreamName = lens _ioTTopicRuleKinesisActionStreamName (\s a -> s { _ioTTopicRuleKinesisActionStreamName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleLambdaAction.hs b/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleLambdaAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleLambdaAction.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-lambdaaction.html - -module Stratosphere.ResourceProperties.IoTTopicRuleLambdaAction where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTTopicRuleLambdaAction. See --- 'ioTTopicRuleLambdaAction' for a more convenient constructor. -data IoTTopicRuleLambdaAction = - IoTTopicRuleLambdaAction - { _ioTTopicRuleLambdaActionFunctionArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON IoTTopicRuleLambdaAction where - toJSON IoTTopicRuleLambdaAction{..} = - object $ - catMaybes - [ fmap (("FunctionArn",) . toJSON) _ioTTopicRuleLambdaActionFunctionArn - ] - --- | Constructor for 'IoTTopicRuleLambdaAction' containing required fields as --- arguments. -ioTTopicRuleLambdaAction - :: IoTTopicRuleLambdaAction -ioTTopicRuleLambdaAction = - IoTTopicRuleLambdaAction - { _ioTTopicRuleLambdaActionFunctionArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-lambdaaction.html#cfn-iot-topicrule-lambdaaction-functionarn -ittrlaFunctionArn :: Lens' IoTTopicRuleLambdaAction (Maybe (Val Text)) -ittrlaFunctionArn = lens _ioTTopicRuleLambdaActionFunctionArn (\s a -> s { _ioTTopicRuleLambdaActionFunctionArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTTopicRulePutAssetPropertyValueEntry.hs b/library-gen/Stratosphere/ResourceProperties/IoTTopicRulePutAssetPropertyValueEntry.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTTopicRulePutAssetPropertyValueEntry.hs +++ /dev/null @@ -1,68 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-putassetpropertyvalueentry.html - -module Stratosphere.ResourceProperties.IoTTopicRulePutAssetPropertyValueEntry where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTTopicRuleAssetPropertyValue - --- | Full data type definition for IoTTopicRulePutAssetPropertyValueEntry. See --- 'ioTTopicRulePutAssetPropertyValueEntry' for a more convenient --- constructor. -data IoTTopicRulePutAssetPropertyValueEntry = - IoTTopicRulePutAssetPropertyValueEntry - { _ioTTopicRulePutAssetPropertyValueEntryAssetId :: Maybe (Val Text) - , _ioTTopicRulePutAssetPropertyValueEntryEntryId :: Maybe (Val Text) - , _ioTTopicRulePutAssetPropertyValueEntryPropertyAlias :: Maybe (Val Text) - , _ioTTopicRulePutAssetPropertyValueEntryPropertyId :: Maybe (Val Text) - , _ioTTopicRulePutAssetPropertyValueEntryPropertyValues :: [IoTTopicRuleAssetPropertyValue] - } deriving (Show, Eq) - -instance ToJSON IoTTopicRulePutAssetPropertyValueEntry where - toJSON IoTTopicRulePutAssetPropertyValueEntry{..} = - object $ - catMaybes - [ fmap (("AssetId",) . toJSON) _ioTTopicRulePutAssetPropertyValueEntryAssetId - , fmap (("EntryId",) . toJSON) _ioTTopicRulePutAssetPropertyValueEntryEntryId - , fmap (("PropertyAlias",) . toJSON) _ioTTopicRulePutAssetPropertyValueEntryPropertyAlias - , fmap (("PropertyId",) . toJSON) _ioTTopicRulePutAssetPropertyValueEntryPropertyId - , (Just . ("PropertyValues",) . toJSON) _ioTTopicRulePutAssetPropertyValueEntryPropertyValues - ] - --- | Constructor for 'IoTTopicRulePutAssetPropertyValueEntry' containing --- required fields as arguments. -ioTTopicRulePutAssetPropertyValueEntry - :: [IoTTopicRuleAssetPropertyValue] -- ^ 'ittrpapvePropertyValues' - -> IoTTopicRulePutAssetPropertyValueEntry -ioTTopicRulePutAssetPropertyValueEntry propertyValuesarg = - IoTTopicRulePutAssetPropertyValueEntry - { _ioTTopicRulePutAssetPropertyValueEntryAssetId = Nothing - , _ioTTopicRulePutAssetPropertyValueEntryEntryId = Nothing - , _ioTTopicRulePutAssetPropertyValueEntryPropertyAlias = Nothing - , _ioTTopicRulePutAssetPropertyValueEntryPropertyId = Nothing - , _ioTTopicRulePutAssetPropertyValueEntryPropertyValues = propertyValuesarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-putassetpropertyvalueentry.html#cfn-iot-topicrule-putassetpropertyvalueentry-assetid -ittrpapveAssetId :: Lens' IoTTopicRulePutAssetPropertyValueEntry (Maybe (Val Text)) -ittrpapveAssetId = lens _ioTTopicRulePutAssetPropertyValueEntryAssetId (\s a -> s { _ioTTopicRulePutAssetPropertyValueEntryAssetId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-putassetpropertyvalueentry.html#cfn-iot-topicrule-putassetpropertyvalueentry-entryid -ittrpapveEntryId :: Lens' IoTTopicRulePutAssetPropertyValueEntry (Maybe (Val Text)) -ittrpapveEntryId = lens _ioTTopicRulePutAssetPropertyValueEntryEntryId (\s a -> s { _ioTTopicRulePutAssetPropertyValueEntryEntryId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-putassetpropertyvalueentry.html#cfn-iot-topicrule-putassetpropertyvalueentry-propertyalias -ittrpapvePropertyAlias :: Lens' IoTTopicRulePutAssetPropertyValueEntry (Maybe (Val Text)) -ittrpapvePropertyAlias = lens _ioTTopicRulePutAssetPropertyValueEntryPropertyAlias (\s a -> s { _ioTTopicRulePutAssetPropertyValueEntryPropertyAlias = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-putassetpropertyvalueentry.html#cfn-iot-topicrule-putassetpropertyvalueentry-propertyid -ittrpapvePropertyId :: Lens' IoTTopicRulePutAssetPropertyValueEntry (Maybe (Val Text)) -ittrpapvePropertyId = lens _ioTTopicRulePutAssetPropertyValueEntryPropertyId (\s a -> s { _ioTTopicRulePutAssetPropertyValueEntryPropertyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-putassetpropertyvalueentry.html#cfn-iot-topicrule-putassetpropertyvalueentry-propertyvalues -ittrpapvePropertyValues :: Lens' IoTTopicRulePutAssetPropertyValueEntry [IoTTopicRuleAssetPropertyValue] -ittrpapvePropertyValues = lens _ioTTopicRulePutAssetPropertyValueEntryPropertyValues (\s a -> s { _ioTTopicRulePutAssetPropertyValueEntryPropertyValues = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTTopicRulePutItemInput.hs b/library-gen/Stratosphere/ResourceProperties/IoTTopicRulePutItemInput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTTopicRulePutItemInput.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-putiteminput.html - -module Stratosphere.ResourceProperties.IoTTopicRulePutItemInput where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTTopicRulePutItemInput. See --- 'ioTTopicRulePutItemInput' for a more convenient constructor. -data IoTTopicRulePutItemInput = - IoTTopicRulePutItemInput - { _ioTTopicRulePutItemInputTableName :: Val Text - } deriving (Show, Eq) - -instance ToJSON IoTTopicRulePutItemInput where - toJSON IoTTopicRulePutItemInput{..} = - object $ - catMaybes - [ (Just . ("TableName",) . toJSON) _ioTTopicRulePutItemInputTableName - ] - --- | Constructor for 'IoTTopicRulePutItemInput' containing required fields as --- arguments. -ioTTopicRulePutItemInput - :: Val Text -- ^ 'ittrpiiTableName' - -> IoTTopicRulePutItemInput -ioTTopicRulePutItemInput tableNamearg = - IoTTopicRulePutItemInput - { _ioTTopicRulePutItemInputTableName = tableNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-putiteminput.html#cfn-iot-topicrule-putiteminput-tablename -ittrpiiTableName :: Lens' IoTTopicRulePutItemInput (Val Text) -ittrpiiTableName = lens _ioTTopicRulePutItemInputTableName (\s a -> s { _ioTTopicRulePutItemInputTableName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleRepublishAction.hs b/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleRepublishAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleRepublishAction.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-republishaction.html - -module Stratosphere.ResourceProperties.IoTTopicRuleRepublishAction where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTTopicRuleRepublishAction. See --- 'ioTTopicRuleRepublishAction' for a more convenient constructor. -data IoTTopicRuleRepublishAction = - IoTTopicRuleRepublishAction - { _ioTTopicRuleRepublishActionQos :: Maybe (Val Integer) - , _ioTTopicRuleRepublishActionRoleArn :: Val Text - , _ioTTopicRuleRepublishActionTopic :: Val Text - } deriving (Show, Eq) - -instance ToJSON IoTTopicRuleRepublishAction where - toJSON IoTTopicRuleRepublishAction{..} = - object $ - catMaybes - [ fmap (("Qos",) . toJSON) _ioTTopicRuleRepublishActionQos - , (Just . ("RoleArn",) . toJSON) _ioTTopicRuleRepublishActionRoleArn - , (Just . ("Topic",) . toJSON) _ioTTopicRuleRepublishActionTopic - ] - --- | Constructor for 'IoTTopicRuleRepublishAction' containing required fields --- as arguments. -ioTTopicRuleRepublishAction - :: Val Text -- ^ 'ittrraRoleArn' - -> Val Text -- ^ 'ittrraTopic' - -> IoTTopicRuleRepublishAction -ioTTopicRuleRepublishAction roleArnarg topicarg = - IoTTopicRuleRepublishAction - { _ioTTopicRuleRepublishActionQos = Nothing - , _ioTTopicRuleRepublishActionRoleArn = roleArnarg - , _ioTTopicRuleRepublishActionTopic = topicarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-republishaction.html#cfn-iot-topicrule-republishaction-qos -ittrraQos :: Lens' IoTTopicRuleRepublishAction (Maybe (Val Integer)) -ittrraQos = lens _ioTTopicRuleRepublishActionQos (\s a -> s { _ioTTopicRuleRepublishActionQos = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-republishaction.html#cfn-iot-topicrule-republishaction-rolearn -ittrraRoleArn :: Lens' IoTTopicRuleRepublishAction (Val Text) -ittrraRoleArn = lens _ioTTopicRuleRepublishActionRoleArn (\s a -> s { _ioTTopicRuleRepublishActionRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-republishaction.html#cfn-iot-topicrule-republishaction-topic -ittrraTopic :: Lens' IoTTopicRuleRepublishAction (Val Text) -ittrraTopic = lens _ioTTopicRuleRepublishActionTopic (\s a -> s { _ioTTopicRuleRepublishActionTopic = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleS3Action.hs b/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleS3Action.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleS3Action.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-s3action.html - -module Stratosphere.ResourceProperties.IoTTopicRuleS3Action where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTTopicRuleS3Action. See --- 'ioTTopicRuleS3Action' for a more convenient constructor. -data IoTTopicRuleS3Action = - IoTTopicRuleS3Action - { _ioTTopicRuleS3ActionBucketName :: Val Text - , _ioTTopicRuleS3ActionKey :: Val Text - , _ioTTopicRuleS3ActionRoleArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON IoTTopicRuleS3Action where - toJSON IoTTopicRuleS3Action{..} = - object $ - catMaybes - [ (Just . ("BucketName",) . toJSON) _ioTTopicRuleS3ActionBucketName - , (Just . ("Key",) . toJSON) _ioTTopicRuleS3ActionKey - , (Just . ("RoleArn",) . toJSON) _ioTTopicRuleS3ActionRoleArn - ] - --- | Constructor for 'IoTTopicRuleS3Action' containing required fields as --- arguments. -ioTTopicRuleS3Action - :: Val Text -- ^ 'ittrs3aBucketName' - -> Val Text -- ^ 'ittrs3aKey' - -> Val Text -- ^ 'ittrs3aRoleArn' - -> IoTTopicRuleS3Action -ioTTopicRuleS3Action bucketNamearg keyarg roleArnarg = - IoTTopicRuleS3Action - { _ioTTopicRuleS3ActionBucketName = bucketNamearg - , _ioTTopicRuleS3ActionKey = keyarg - , _ioTTopicRuleS3ActionRoleArn = roleArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-s3action.html#cfn-iot-topicrule-s3action-bucketname -ittrs3aBucketName :: Lens' IoTTopicRuleS3Action (Val Text) -ittrs3aBucketName = lens _ioTTopicRuleS3ActionBucketName (\s a -> s { _ioTTopicRuleS3ActionBucketName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-s3action.html#cfn-iot-topicrule-s3action-key -ittrs3aKey :: Lens' IoTTopicRuleS3Action (Val Text) -ittrs3aKey = lens _ioTTopicRuleS3ActionKey (\s a -> s { _ioTTopicRuleS3ActionKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-s3action.html#cfn-iot-topicrule-s3action-rolearn -ittrs3aRoleArn :: Lens' IoTTopicRuleS3Action (Val Text) -ittrs3aRoleArn = lens _ioTTopicRuleS3ActionRoleArn (\s a -> s { _ioTTopicRuleS3ActionRoleArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleSigV4Authorization.hs b/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleSigV4Authorization.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleSigV4Authorization.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-sigv4authorization.html - -module Stratosphere.ResourceProperties.IoTTopicRuleSigV4Authorization where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTTopicRuleSigV4Authorization. See --- 'ioTTopicRuleSigV4Authorization' for a more convenient constructor. -data IoTTopicRuleSigV4Authorization = - IoTTopicRuleSigV4Authorization - { _ioTTopicRuleSigV4AuthorizationRoleArn :: Val Text - , _ioTTopicRuleSigV4AuthorizationServiceName :: Val Text - , _ioTTopicRuleSigV4AuthorizationSigningRegion :: Val Text - } deriving (Show, Eq) - -instance ToJSON IoTTopicRuleSigV4Authorization where - toJSON IoTTopicRuleSigV4Authorization{..} = - object $ - catMaybes - [ (Just . ("RoleArn",) . toJSON) _ioTTopicRuleSigV4AuthorizationRoleArn - , (Just . ("ServiceName",) . toJSON) _ioTTopicRuleSigV4AuthorizationServiceName - , (Just . ("SigningRegion",) . toJSON) _ioTTopicRuleSigV4AuthorizationSigningRegion - ] - --- | Constructor for 'IoTTopicRuleSigV4Authorization' containing required --- fields as arguments. -ioTTopicRuleSigV4Authorization - :: Val Text -- ^ 'ittrsvaRoleArn' - -> Val Text -- ^ 'ittrsvaServiceName' - -> Val Text -- ^ 'ittrsvaSigningRegion' - -> IoTTopicRuleSigV4Authorization -ioTTopicRuleSigV4Authorization roleArnarg serviceNamearg signingRegionarg = - IoTTopicRuleSigV4Authorization - { _ioTTopicRuleSigV4AuthorizationRoleArn = roleArnarg - , _ioTTopicRuleSigV4AuthorizationServiceName = serviceNamearg - , _ioTTopicRuleSigV4AuthorizationSigningRegion = signingRegionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-sigv4authorization.html#cfn-iot-topicrule-sigv4authorization-rolearn -ittrsvaRoleArn :: Lens' IoTTopicRuleSigV4Authorization (Val Text) -ittrsvaRoleArn = lens _ioTTopicRuleSigV4AuthorizationRoleArn (\s a -> s { _ioTTopicRuleSigV4AuthorizationRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-sigv4authorization.html#cfn-iot-topicrule-sigv4authorization-servicename -ittrsvaServiceName :: Lens' IoTTopicRuleSigV4Authorization (Val Text) -ittrsvaServiceName = lens _ioTTopicRuleSigV4AuthorizationServiceName (\s a -> s { _ioTTopicRuleSigV4AuthorizationServiceName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-sigv4authorization.html#cfn-iot-topicrule-sigv4authorization-signingregion -ittrsvaSigningRegion :: Lens' IoTTopicRuleSigV4Authorization (Val Text) -ittrsvaSigningRegion = lens _ioTTopicRuleSigV4AuthorizationSigningRegion (\s a -> s { _ioTTopicRuleSigV4AuthorizationSigningRegion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleSnsAction.hs b/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleSnsAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleSnsAction.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-snsaction.html - -module Stratosphere.ResourceProperties.IoTTopicRuleSnsAction where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTTopicRuleSnsAction. See --- 'ioTTopicRuleSnsAction' for a more convenient constructor. -data IoTTopicRuleSnsAction = - IoTTopicRuleSnsAction - { _ioTTopicRuleSnsActionMessageFormat :: Maybe (Val Text) - , _ioTTopicRuleSnsActionRoleArn :: Val Text - , _ioTTopicRuleSnsActionTargetArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON IoTTopicRuleSnsAction where - toJSON IoTTopicRuleSnsAction{..} = - object $ - catMaybes - [ fmap (("MessageFormat",) . toJSON) _ioTTopicRuleSnsActionMessageFormat - , (Just . ("RoleArn",) . toJSON) _ioTTopicRuleSnsActionRoleArn - , (Just . ("TargetArn",) . toJSON) _ioTTopicRuleSnsActionTargetArn - ] - --- | Constructor for 'IoTTopicRuleSnsAction' containing required fields as --- arguments. -ioTTopicRuleSnsAction - :: Val Text -- ^ 'ittrsnaRoleArn' - -> Val Text -- ^ 'ittrsnaTargetArn' - -> IoTTopicRuleSnsAction -ioTTopicRuleSnsAction roleArnarg targetArnarg = - IoTTopicRuleSnsAction - { _ioTTopicRuleSnsActionMessageFormat = Nothing - , _ioTTopicRuleSnsActionRoleArn = roleArnarg - , _ioTTopicRuleSnsActionTargetArn = targetArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-snsaction.html#cfn-iot-topicrule-snsaction-messageformat -ittrsnaMessageFormat :: Lens' IoTTopicRuleSnsAction (Maybe (Val Text)) -ittrsnaMessageFormat = lens _ioTTopicRuleSnsActionMessageFormat (\s a -> s { _ioTTopicRuleSnsActionMessageFormat = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-snsaction.html#cfn-iot-topicrule-snsaction-rolearn -ittrsnaRoleArn :: Lens' IoTTopicRuleSnsAction (Val Text) -ittrsnaRoleArn = lens _ioTTopicRuleSnsActionRoleArn (\s a -> s { _ioTTopicRuleSnsActionRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-snsaction.html#cfn-iot-topicrule-snsaction-targetarn -ittrsnaTargetArn :: Lens' IoTTopicRuleSnsAction (Val Text) -ittrsnaTargetArn = lens _ioTTopicRuleSnsActionTargetArn (\s a -> s { _ioTTopicRuleSnsActionTargetArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleSqsAction.hs b/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleSqsAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleSqsAction.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-sqsaction.html - -module Stratosphere.ResourceProperties.IoTTopicRuleSqsAction where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTTopicRuleSqsAction. See --- 'ioTTopicRuleSqsAction' for a more convenient constructor. -data IoTTopicRuleSqsAction = - IoTTopicRuleSqsAction - { _ioTTopicRuleSqsActionQueueUrl :: Val Text - , _ioTTopicRuleSqsActionRoleArn :: Val Text - , _ioTTopicRuleSqsActionUseBase64 :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON IoTTopicRuleSqsAction where - toJSON IoTTopicRuleSqsAction{..} = - object $ - catMaybes - [ (Just . ("QueueUrl",) . toJSON) _ioTTopicRuleSqsActionQueueUrl - , (Just . ("RoleArn",) . toJSON) _ioTTopicRuleSqsActionRoleArn - , fmap (("UseBase64",) . toJSON) _ioTTopicRuleSqsActionUseBase64 - ] - --- | Constructor for 'IoTTopicRuleSqsAction' containing required fields as --- arguments. -ioTTopicRuleSqsAction - :: Val Text -- ^ 'ittrsqaQueueUrl' - -> Val Text -- ^ 'ittrsqaRoleArn' - -> IoTTopicRuleSqsAction -ioTTopicRuleSqsAction queueUrlarg roleArnarg = - IoTTopicRuleSqsAction - { _ioTTopicRuleSqsActionQueueUrl = queueUrlarg - , _ioTTopicRuleSqsActionRoleArn = roleArnarg - , _ioTTopicRuleSqsActionUseBase64 = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-sqsaction.html#cfn-iot-topicrule-sqsaction-queueurl -ittrsqaQueueUrl :: Lens' IoTTopicRuleSqsAction (Val Text) -ittrsqaQueueUrl = lens _ioTTopicRuleSqsActionQueueUrl (\s a -> s { _ioTTopicRuleSqsActionQueueUrl = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-sqsaction.html#cfn-iot-topicrule-sqsaction-rolearn -ittrsqaRoleArn :: Lens' IoTTopicRuleSqsAction (Val Text) -ittrsqaRoleArn = lens _ioTTopicRuleSqsActionRoleArn (\s a -> s { _ioTTopicRuleSqsActionRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-sqsaction.html#cfn-iot-topicrule-sqsaction-usebase64 -ittrsqaUseBase64 :: Lens' IoTTopicRuleSqsAction (Maybe (Val Bool)) -ittrsqaUseBase64 = lens _ioTTopicRuleSqsActionUseBase64 (\s a -> s { _ioTTopicRuleSqsActionUseBase64 = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleStepFunctionsAction.hs b/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleStepFunctionsAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleStepFunctionsAction.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-stepfunctionsaction.html - -module Stratosphere.ResourceProperties.IoTTopicRuleStepFunctionsAction where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTTopicRuleStepFunctionsAction. See --- 'ioTTopicRuleStepFunctionsAction' for a more convenient constructor. -data IoTTopicRuleStepFunctionsAction = - IoTTopicRuleStepFunctionsAction - { _ioTTopicRuleStepFunctionsActionExecutionNamePrefix :: Maybe (Val Text) - , _ioTTopicRuleStepFunctionsActionRoleArn :: Val Text - , _ioTTopicRuleStepFunctionsActionStateMachineName :: Val Text - } deriving (Show, Eq) - -instance ToJSON IoTTopicRuleStepFunctionsAction where - toJSON IoTTopicRuleStepFunctionsAction{..} = - object $ - catMaybes - [ fmap (("ExecutionNamePrefix",) . toJSON) _ioTTopicRuleStepFunctionsActionExecutionNamePrefix - , (Just . ("RoleArn",) . toJSON) _ioTTopicRuleStepFunctionsActionRoleArn - , (Just . ("StateMachineName",) . toJSON) _ioTTopicRuleStepFunctionsActionStateMachineName - ] - --- | Constructor for 'IoTTopicRuleStepFunctionsAction' containing required --- fields as arguments. -ioTTopicRuleStepFunctionsAction - :: Val Text -- ^ 'ittrsfaRoleArn' - -> Val Text -- ^ 'ittrsfaStateMachineName' - -> IoTTopicRuleStepFunctionsAction -ioTTopicRuleStepFunctionsAction roleArnarg stateMachineNamearg = - IoTTopicRuleStepFunctionsAction - { _ioTTopicRuleStepFunctionsActionExecutionNamePrefix = Nothing - , _ioTTopicRuleStepFunctionsActionRoleArn = roleArnarg - , _ioTTopicRuleStepFunctionsActionStateMachineName = stateMachineNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-stepfunctionsaction.html#cfn-iot-topicrule-stepfunctionsaction-executionnameprefix -ittrsfaExecutionNamePrefix :: Lens' IoTTopicRuleStepFunctionsAction (Maybe (Val Text)) -ittrsfaExecutionNamePrefix = lens _ioTTopicRuleStepFunctionsActionExecutionNamePrefix (\s a -> s { _ioTTopicRuleStepFunctionsActionExecutionNamePrefix = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-stepfunctionsaction.html#cfn-iot-topicrule-stepfunctionsaction-rolearn -ittrsfaRoleArn :: Lens' IoTTopicRuleStepFunctionsAction (Val Text) -ittrsfaRoleArn = lens _ioTTopicRuleStepFunctionsActionRoleArn (\s a -> s { _ioTTopicRuleStepFunctionsActionRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-stepfunctionsaction.html#cfn-iot-topicrule-stepfunctionsaction-statemachinename -ittrsfaStateMachineName :: Lens' IoTTopicRuleStepFunctionsAction (Val Text) -ittrsfaStateMachineName = lens _ioTTopicRuleStepFunctionsActionStateMachineName (\s a -> s { _ioTTopicRuleStepFunctionsActionStateMachineName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleTopicRulePayload.hs b/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleTopicRulePayload.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/IoTTopicRuleTopicRulePayload.hs +++ /dev/null @@ -1,76 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-topicrulepayload.html - -module Stratosphere.ResourceProperties.IoTTopicRuleTopicRulePayload where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTTopicRuleAction - --- | Full data type definition for IoTTopicRuleTopicRulePayload. See --- 'ioTTopicRuleTopicRulePayload' for a more convenient constructor. -data IoTTopicRuleTopicRulePayload = - IoTTopicRuleTopicRulePayload - { _ioTTopicRuleTopicRulePayloadActions :: [IoTTopicRuleAction] - , _ioTTopicRuleTopicRulePayloadAwsIotSqlVersion :: Maybe (Val Text) - , _ioTTopicRuleTopicRulePayloadDescription :: Maybe (Val Text) - , _ioTTopicRuleTopicRulePayloadErrorAction :: Maybe IoTTopicRuleAction - , _ioTTopicRuleTopicRulePayloadRuleDisabled :: Val Bool - , _ioTTopicRuleTopicRulePayloadSql :: Val Text - } deriving (Show, Eq) - -instance ToJSON IoTTopicRuleTopicRulePayload where - toJSON IoTTopicRuleTopicRulePayload{..} = - object $ - catMaybes - [ (Just . ("Actions",) . toJSON) _ioTTopicRuleTopicRulePayloadActions - , fmap (("AwsIotSqlVersion",) . toJSON) _ioTTopicRuleTopicRulePayloadAwsIotSqlVersion - , fmap (("Description",) . toJSON) _ioTTopicRuleTopicRulePayloadDescription - , fmap (("ErrorAction",) . toJSON) _ioTTopicRuleTopicRulePayloadErrorAction - , (Just . ("RuleDisabled",) . toJSON) _ioTTopicRuleTopicRulePayloadRuleDisabled - , (Just . ("Sql",) . toJSON) _ioTTopicRuleTopicRulePayloadSql - ] - --- | Constructor for 'IoTTopicRuleTopicRulePayload' containing required fields --- as arguments. -ioTTopicRuleTopicRulePayload - :: [IoTTopicRuleAction] -- ^ 'ittrtrpActions' - -> Val Bool -- ^ 'ittrtrpRuleDisabled' - -> Val Text -- ^ 'ittrtrpSql' - -> IoTTopicRuleTopicRulePayload -ioTTopicRuleTopicRulePayload actionsarg ruleDisabledarg sqlarg = - IoTTopicRuleTopicRulePayload - { _ioTTopicRuleTopicRulePayloadActions = actionsarg - , _ioTTopicRuleTopicRulePayloadAwsIotSqlVersion = Nothing - , _ioTTopicRuleTopicRulePayloadDescription = Nothing - , _ioTTopicRuleTopicRulePayloadErrorAction = Nothing - , _ioTTopicRuleTopicRulePayloadRuleDisabled = ruleDisabledarg - , _ioTTopicRuleTopicRulePayloadSql = sqlarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-topicrulepayload.html#cfn-iot-topicrule-topicrulepayload-actions -ittrtrpActions :: Lens' IoTTopicRuleTopicRulePayload [IoTTopicRuleAction] -ittrtrpActions = lens _ioTTopicRuleTopicRulePayloadActions (\s a -> s { _ioTTopicRuleTopicRulePayloadActions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-topicrulepayload.html#cfn-iot-topicrule-topicrulepayload-awsiotsqlversion -ittrtrpAwsIotSqlVersion :: Lens' IoTTopicRuleTopicRulePayload (Maybe (Val Text)) -ittrtrpAwsIotSqlVersion = lens _ioTTopicRuleTopicRulePayloadAwsIotSqlVersion (\s a -> s { _ioTTopicRuleTopicRulePayloadAwsIotSqlVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-topicrulepayload.html#cfn-iot-topicrule-topicrulepayload-description -ittrtrpDescription :: Lens' IoTTopicRuleTopicRulePayload (Maybe (Val Text)) -ittrtrpDescription = lens _ioTTopicRuleTopicRulePayloadDescription (\s a -> s { _ioTTopicRuleTopicRulePayloadDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-topicrulepayload.html#cfn-iot-topicrule-topicrulepayload-erroraction -ittrtrpErrorAction :: Lens' IoTTopicRuleTopicRulePayload (Maybe IoTTopicRuleAction) -ittrtrpErrorAction = lens _ioTTopicRuleTopicRulePayloadErrorAction (\s a -> s { _ioTTopicRuleTopicRulePayloadErrorAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-topicrulepayload.html#cfn-iot-topicrule-topicrulepayload-ruledisabled -ittrtrpRuleDisabled :: Lens' IoTTopicRuleTopicRulePayload (Val Bool) -ittrtrpRuleDisabled = lens _ioTTopicRuleTopicRulePayloadRuleDisabled (\s a -> s { _ioTTopicRuleTopicRulePayloadRuleDisabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iot-topicrule-topicrulepayload.html#cfn-iot-topicrule-topicrulepayload-sql -ittrtrpSql :: Lens' IoTTopicRuleTopicRulePayload (Val Text) -ittrtrpSql = lens _ioTTopicRuleTopicRulePayloadSql (\s a -> s { _ioTTopicRuleTopicRulePayloadSql = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationCSVMappingParameters.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationCSVMappingParameters.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationCSVMappingParameters.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-csvmappingparameters.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationCSVMappingParameters where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsApplicationCSVMappingParameters. See --- 'kinesisAnalyticsApplicationCSVMappingParameters' for a more convenient --- constructor. -data KinesisAnalyticsApplicationCSVMappingParameters = - KinesisAnalyticsApplicationCSVMappingParameters - { _kinesisAnalyticsApplicationCSVMappingParametersRecordColumnDelimiter :: Val Text - , _kinesisAnalyticsApplicationCSVMappingParametersRecordRowDelimiter :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsApplicationCSVMappingParameters where - toJSON KinesisAnalyticsApplicationCSVMappingParameters{..} = - object $ - catMaybes - [ (Just . ("RecordColumnDelimiter",) . toJSON) _kinesisAnalyticsApplicationCSVMappingParametersRecordColumnDelimiter - , (Just . ("RecordRowDelimiter",) . toJSON) _kinesisAnalyticsApplicationCSVMappingParametersRecordRowDelimiter - ] - --- | Constructor for 'KinesisAnalyticsApplicationCSVMappingParameters' --- containing required fields as arguments. -kinesisAnalyticsApplicationCSVMappingParameters - :: Val Text -- ^ 'kaacsvmpRecordColumnDelimiter' - -> Val Text -- ^ 'kaacsvmpRecordRowDelimiter' - -> KinesisAnalyticsApplicationCSVMappingParameters -kinesisAnalyticsApplicationCSVMappingParameters recordColumnDelimiterarg recordRowDelimiterarg = - KinesisAnalyticsApplicationCSVMappingParameters - { _kinesisAnalyticsApplicationCSVMappingParametersRecordColumnDelimiter = recordColumnDelimiterarg - , _kinesisAnalyticsApplicationCSVMappingParametersRecordRowDelimiter = recordRowDelimiterarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-csvmappingparameters.html#cfn-kinesisanalytics-application-csvmappingparameters-recordcolumndelimiter -kaacsvmpRecordColumnDelimiter :: Lens' KinesisAnalyticsApplicationCSVMappingParameters (Val Text) -kaacsvmpRecordColumnDelimiter = lens _kinesisAnalyticsApplicationCSVMappingParametersRecordColumnDelimiter (\s a -> s { _kinesisAnalyticsApplicationCSVMappingParametersRecordColumnDelimiter = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-csvmappingparameters.html#cfn-kinesisanalytics-application-csvmappingparameters-recordrowdelimiter -kaacsvmpRecordRowDelimiter :: Lens' KinesisAnalyticsApplicationCSVMappingParameters (Val Text) -kaacsvmpRecordRowDelimiter = lens _kinesisAnalyticsApplicationCSVMappingParametersRecordRowDelimiter (\s a -> s { _kinesisAnalyticsApplicationCSVMappingParametersRecordRowDelimiter = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationInput.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationInput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationInput.hs +++ /dev/null @@ -1,79 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-input.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInput where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputParallelism -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputProcessingConfiguration -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputSchema -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationKinesisFirehoseInput -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationKinesisStreamsInput - --- | Full data type definition for KinesisAnalyticsApplicationInput. See --- 'kinesisAnalyticsApplicationInput' for a more convenient constructor. -data KinesisAnalyticsApplicationInput = - KinesisAnalyticsApplicationInput - { _kinesisAnalyticsApplicationInputInputParallelism :: Maybe KinesisAnalyticsApplicationInputParallelism - , _kinesisAnalyticsApplicationInputInputProcessingConfiguration :: Maybe KinesisAnalyticsApplicationInputProcessingConfiguration - , _kinesisAnalyticsApplicationInputInputSchema :: KinesisAnalyticsApplicationInputSchema - , _kinesisAnalyticsApplicationInputKinesisFirehoseInput :: Maybe KinesisAnalyticsApplicationKinesisFirehoseInput - , _kinesisAnalyticsApplicationInputKinesisStreamsInput :: Maybe KinesisAnalyticsApplicationKinesisStreamsInput - , _kinesisAnalyticsApplicationInputNamePrefix :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsApplicationInput where - toJSON KinesisAnalyticsApplicationInput{..} = - object $ - catMaybes - [ fmap (("InputParallelism",) . toJSON) _kinesisAnalyticsApplicationInputInputParallelism - , fmap (("InputProcessingConfiguration",) . toJSON) _kinesisAnalyticsApplicationInputInputProcessingConfiguration - , (Just . ("InputSchema",) . toJSON) _kinesisAnalyticsApplicationInputInputSchema - , fmap (("KinesisFirehoseInput",) . toJSON) _kinesisAnalyticsApplicationInputKinesisFirehoseInput - , fmap (("KinesisStreamsInput",) . toJSON) _kinesisAnalyticsApplicationInputKinesisStreamsInput - , (Just . ("NamePrefix",) . toJSON) _kinesisAnalyticsApplicationInputNamePrefix - ] - --- | Constructor for 'KinesisAnalyticsApplicationInput' containing required --- fields as arguments. -kinesisAnalyticsApplicationInput - :: KinesisAnalyticsApplicationInputSchema -- ^ 'kaaiInputSchema' - -> Val Text -- ^ 'kaaiNamePrefix' - -> KinesisAnalyticsApplicationInput -kinesisAnalyticsApplicationInput inputSchemaarg namePrefixarg = - KinesisAnalyticsApplicationInput - { _kinesisAnalyticsApplicationInputInputParallelism = Nothing - , _kinesisAnalyticsApplicationInputInputProcessingConfiguration = Nothing - , _kinesisAnalyticsApplicationInputInputSchema = inputSchemaarg - , _kinesisAnalyticsApplicationInputKinesisFirehoseInput = Nothing - , _kinesisAnalyticsApplicationInputKinesisStreamsInput = Nothing - , _kinesisAnalyticsApplicationInputNamePrefix = namePrefixarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-input.html#cfn-kinesisanalytics-application-input-inputparallelism -kaaiInputParallelism :: Lens' KinesisAnalyticsApplicationInput (Maybe KinesisAnalyticsApplicationInputParallelism) -kaaiInputParallelism = lens _kinesisAnalyticsApplicationInputInputParallelism (\s a -> s { _kinesisAnalyticsApplicationInputInputParallelism = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-input.html#cfn-kinesisanalytics-application-input-inputprocessingconfiguration -kaaiInputProcessingConfiguration :: Lens' KinesisAnalyticsApplicationInput (Maybe KinesisAnalyticsApplicationInputProcessingConfiguration) -kaaiInputProcessingConfiguration = lens _kinesisAnalyticsApplicationInputInputProcessingConfiguration (\s a -> s { _kinesisAnalyticsApplicationInputInputProcessingConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-input.html#cfn-kinesisanalytics-application-input-inputschema -kaaiInputSchema :: Lens' KinesisAnalyticsApplicationInput KinesisAnalyticsApplicationInputSchema -kaaiInputSchema = lens _kinesisAnalyticsApplicationInputInputSchema (\s a -> s { _kinesisAnalyticsApplicationInputInputSchema = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-input.html#cfn-kinesisanalytics-application-input-kinesisfirehoseinput -kaaiKinesisFirehoseInput :: Lens' KinesisAnalyticsApplicationInput (Maybe KinesisAnalyticsApplicationKinesisFirehoseInput) -kaaiKinesisFirehoseInput = lens _kinesisAnalyticsApplicationInputKinesisFirehoseInput (\s a -> s { _kinesisAnalyticsApplicationInputKinesisFirehoseInput = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-input.html#cfn-kinesisanalytics-application-input-kinesisstreamsinput -kaaiKinesisStreamsInput :: Lens' KinesisAnalyticsApplicationInput (Maybe KinesisAnalyticsApplicationKinesisStreamsInput) -kaaiKinesisStreamsInput = lens _kinesisAnalyticsApplicationInputKinesisStreamsInput (\s a -> s { _kinesisAnalyticsApplicationInputKinesisStreamsInput = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-input.html#cfn-kinesisanalytics-application-input-nameprefix -kaaiNamePrefix :: Lens' KinesisAnalyticsApplicationInput (Val Text) -kaaiNamePrefix = lens _kinesisAnalyticsApplicationInputNamePrefix (\s a -> s { _kinesisAnalyticsApplicationInputNamePrefix = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationInputLambdaProcessor.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationInputLambdaProcessor.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationInputLambdaProcessor.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-inputlambdaprocessor.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputLambdaProcessor where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsApplicationInputLambdaProcessor. See --- 'kinesisAnalyticsApplicationInputLambdaProcessor' for a more convenient --- constructor. -data KinesisAnalyticsApplicationInputLambdaProcessor = - KinesisAnalyticsApplicationInputLambdaProcessor - { _kinesisAnalyticsApplicationInputLambdaProcessorResourceARN :: Val Text - , _kinesisAnalyticsApplicationInputLambdaProcessorRoleARN :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsApplicationInputLambdaProcessor where - toJSON KinesisAnalyticsApplicationInputLambdaProcessor{..} = - object $ - catMaybes - [ (Just . ("ResourceARN",) . toJSON) _kinesisAnalyticsApplicationInputLambdaProcessorResourceARN - , (Just . ("RoleARN",) . toJSON) _kinesisAnalyticsApplicationInputLambdaProcessorRoleARN - ] - --- | Constructor for 'KinesisAnalyticsApplicationInputLambdaProcessor' --- containing required fields as arguments. -kinesisAnalyticsApplicationInputLambdaProcessor - :: Val Text -- ^ 'kaailpResourceARN' - -> Val Text -- ^ 'kaailpRoleARN' - -> KinesisAnalyticsApplicationInputLambdaProcessor -kinesisAnalyticsApplicationInputLambdaProcessor resourceARNarg roleARNarg = - KinesisAnalyticsApplicationInputLambdaProcessor - { _kinesisAnalyticsApplicationInputLambdaProcessorResourceARN = resourceARNarg - , _kinesisAnalyticsApplicationInputLambdaProcessorRoleARN = roleARNarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-inputlambdaprocessor.html#cfn-kinesisanalytics-application-inputlambdaprocessor-resourcearn -kaailpResourceARN :: Lens' KinesisAnalyticsApplicationInputLambdaProcessor (Val Text) -kaailpResourceARN = lens _kinesisAnalyticsApplicationInputLambdaProcessorResourceARN (\s a -> s { _kinesisAnalyticsApplicationInputLambdaProcessorResourceARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-inputlambdaprocessor.html#cfn-kinesisanalytics-application-inputlambdaprocessor-rolearn -kaailpRoleARN :: Lens' KinesisAnalyticsApplicationInputLambdaProcessor (Val Text) -kaailpRoleARN = lens _kinesisAnalyticsApplicationInputLambdaProcessorRoleARN (\s a -> s { _kinesisAnalyticsApplicationInputLambdaProcessorRoleARN = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationInputParallelism.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationInputParallelism.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationInputParallelism.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-inputparallelism.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputParallelism where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsApplicationInputParallelism. See --- 'kinesisAnalyticsApplicationInputParallelism' for a more convenient --- constructor. -data KinesisAnalyticsApplicationInputParallelism = - KinesisAnalyticsApplicationInputParallelism - { _kinesisAnalyticsApplicationInputParallelismCount :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsApplicationInputParallelism where - toJSON KinesisAnalyticsApplicationInputParallelism{..} = - object $ - catMaybes - [ fmap (("Count",) . toJSON) _kinesisAnalyticsApplicationInputParallelismCount - ] - --- | Constructor for 'KinesisAnalyticsApplicationInputParallelism' containing --- required fields as arguments. -kinesisAnalyticsApplicationInputParallelism - :: KinesisAnalyticsApplicationInputParallelism -kinesisAnalyticsApplicationInputParallelism = - KinesisAnalyticsApplicationInputParallelism - { _kinesisAnalyticsApplicationInputParallelismCount = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-inputparallelism.html#cfn-kinesisanalytics-application-inputparallelism-count -kaaipCount :: Lens' KinesisAnalyticsApplicationInputParallelism (Maybe (Val Integer)) -kaaipCount = lens _kinesisAnalyticsApplicationInputParallelismCount (\s a -> s { _kinesisAnalyticsApplicationInputParallelismCount = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationInputProcessingConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationInputProcessingConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationInputProcessingConfiguration.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-inputprocessingconfiguration.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputProcessingConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputLambdaProcessor - --- | Full data type definition for --- KinesisAnalyticsApplicationInputProcessingConfiguration. See --- 'kinesisAnalyticsApplicationInputProcessingConfiguration' for a more --- convenient constructor. -data KinesisAnalyticsApplicationInputProcessingConfiguration = - KinesisAnalyticsApplicationInputProcessingConfiguration - { _kinesisAnalyticsApplicationInputProcessingConfigurationInputLambdaProcessor :: Maybe KinesisAnalyticsApplicationInputLambdaProcessor - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsApplicationInputProcessingConfiguration where - toJSON KinesisAnalyticsApplicationInputProcessingConfiguration{..} = - object $ - catMaybes - [ fmap (("InputLambdaProcessor",) . toJSON) _kinesisAnalyticsApplicationInputProcessingConfigurationInputLambdaProcessor - ] - --- | Constructor for 'KinesisAnalyticsApplicationInputProcessingConfiguration' --- containing required fields as arguments. -kinesisAnalyticsApplicationInputProcessingConfiguration - :: KinesisAnalyticsApplicationInputProcessingConfiguration -kinesisAnalyticsApplicationInputProcessingConfiguration = - KinesisAnalyticsApplicationInputProcessingConfiguration - { _kinesisAnalyticsApplicationInputProcessingConfigurationInputLambdaProcessor = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-inputprocessingconfiguration.html#cfn-kinesisanalytics-application-inputprocessingconfiguration-inputlambdaprocessor -kaaipcInputLambdaProcessor :: Lens' KinesisAnalyticsApplicationInputProcessingConfiguration (Maybe KinesisAnalyticsApplicationInputLambdaProcessor) -kaaipcInputLambdaProcessor = lens _kinesisAnalyticsApplicationInputProcessingConfigurationInputLambdaProcessor (\s a -> s { _kinesisAnalyticsApplicationInputProcessingConfigurationInputLambdaProcessor = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationInputSchema.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationInputSchema.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationInputSchema.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-inputschema.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputSchema where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationRecordColumn -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationRecordFormat - --- | Full data type definition for KinesisAnalyticsApplicationInputSchema. See --- 'kinesisAnalyticsApplicationInputSchema' for a more convenient --- constructor. -data KinesisAnalyticsApplicationInputSchema = - KinesisAnalyticsApplicationInputSchema - { _kinesisAnalyticsApplicationInputSchemaRecordColumns :: [KinesisAnalyticsApplicationRecordColumn] - , _kinesisAnalyticsApplicationInputSchemaRecordEncoding :: Maybe (Val Text) - , _kinesisAnalyticsApplicationInputSchemaRecordFormat :: KinesisAnalyticsApplicationRecordFormat - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsApplicationInputSchema where - toJSON KinesisAnalyticsApplicationInputSchema{..} = - object $ - catMaybes - [ (Just . ("RecordColumns",) . toJSON) _kinesisAnalyticsApplicationInputSchemaRecordColumns - , fmap (("RecordEncoding",) . toJSON) _kinesisAnalyticsApplicationInputSchemaRecordEncoding - , (Just . ("RecordFormat",) . toJSON) _kinesisAnalyticsApplicationInputSchemaRecordFormat - ] - --- | Constructor for 'KinesisAnalyticsApplicationInputSchema' containing --- required fields as arguments. -kinesisAnalyticsApplicationInputSchema - :: [KinesisAnalyticsApplicationRecordColumn] -- ^ 'kaaisRecordColumns' - -> KinesisAnalyticsApplicationRecordFormat -- ^ 'kaaisRecordFormat' - -> KinesisAnalyticsApplicationInputSchema -kinesisAnalyticsApplicationInputSchema recordColumnsarg recordFormatarg = - KinesisAnalyticsApplicationInputSchema - { _kinesisAnalyticsApplicationInputSchemaRecordColumns = recordColumnsarg - , _kinesisAnalyticsApplicationInputSchemaRecordEncoding = Nothing - , _kinesisAnalyticsApplicationInputSchemaRecordFormat = recordFormatarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-inputschema.html#cfn-kinesisanalytics-application-inputschema-recordcolumns -kaaisRecordColumns :: Lens' KinesisAnalyticsApplicationInputSchema [KinesisAnalyticsApplicationRecordColumn] -kaaisRecordColumns = lens _kinesisAnalyticsApplicationInputSchemaRecordColumns (\s a -> s { _kinesisAnalyticsApplicationInputSchemaRecordColumns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-inputschema.html#cfn-kinesisanalytics-application-inputschema-recordencoding -kaaisRecordEncoding :: Lens' KinesisAnalyticsApplicationInputSchema (Maybe (Val Text)) -kaaisRecordEncoding = lens _kinesisAnalyticsApplicationInputSchemaRecordEncoding (\s a -> s { _kinesisAnalyticsApplicationInputSchemaRecordEncoding = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-inputschema.html#cfn-kinesisanalytics-application-inputschema-recordformat -kaaisRecordFormat :: Lens' KinesisAnalyticsApplicationInputSchema KinesisAnalyticsApplicationRecordFormat -kaaisRecordFormat = lens _kinesisAnalyticsApplicationInputSchemaRecordFormat (\s a -> s { _kinesisAnalyticsApplicationInputSchemaRecordFormat = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationJSONMappingParameters.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationJSONMappingParameters.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationJSONMappingParameters.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-jsonmappingparameters.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationJSONMappingParameters where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsApplicationJSONMappingParameters. See --- 'kinesisAnalyticsApplicationJSONMappingParameters' for a more convenient --- constructor. -data KinesisAnalyticsApplicationJSONMappingParameters = - KinesisAnalyticsApplicationJSONMappingParameters - { _kinesisAnalyticsApplicationJSONMappingParametersRecordRowPath :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsApplicationJSONMappingParameters where - toJSON KinesisAnalyticsApplicationJSONMappingParameters{..} = - object $ - catMaybes - [ (Just . ("RecordRowPath",) . toJSON) _kinesisAnalyticsApplicationJSONMappingParametersRecordRowPath - ] - --- | Constructor for 'KinesisAnalyticsApplicationJSONMappingParameters' --- containing required fields as arguments. -kinesisAnalyticsApplicationJSONMappingParameters - :: Val Text -- ^ 'kaajsonmpRecordRowPath' - -> KinesisAnalyticsApplicationJSONMappingParameters -kinesisAnalyticsApplicationJSONMappingParameters recordRowPatharg = - KinesisAnalyticsApplicationJSONMappingParameters - { _kinesisAnalyticsApplicationJSONMappingParametersRecordRowPath = recordRowPatharg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-jsonmappingparameters.html#cfn-kinesisanalytics-application-jsonmappingparameters-recordrowpath -kaajsonmpRecordRowPath :: Lens' KinesisAnalyticsApplicationJSONMappingParameters (Val Text) -kaajsonmpRecordRowPath = lens _kinesisAnalyticsApplicationJSONMappingParametersRecordRowPath (\s a -> s { _kinesisAnalyticsApplicationJSONMappingParametersRecordRowPath = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationKinesisFirehoseInput.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationKinesisFirehoseInput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationKinesisFirehoseInput.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-kinesisfirehoseinput.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationKinesisFirehoseInput where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsApplicationKinesisFirehoseInput. See --- 'kinesisAnalyticsApplicationKinesisFirehoseInput' for a more convenient --- constructor. -data KinesisAnalyticsApplicationKinesisFirehoseInput = - KinesisAnalyticsApplicationKinesisFirehoseInput - { _kinesisAnalyticsApplicationKinesisFirehoseInputResourceARN :: Val Text - , _kinesisAnalyticsApplicationKinesisFirehoseInputRoleARN :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsApplicationKinesisFirehoseInput where - toJSON KinesisAnalyticsApplicationKinesisFirehoseInput{..} = - object $ - catMaybes - [ (Just . ("ResourceARN",) . toJSON) _kinesisAnalyticsApplicationKinesisFirehoseInputResourceARN - , (Just . ("RoleARN",) . toJSON) _kinesisAnalyticsApplicationKinesisFirehoseInputRoleARN - ] - --- | Constructor for 'KinesisAnalyticsApplicationKinesisFirehoseInput' --- containing required fields as arguments. -kinesisAnalyticsApplicationKinesisFirehoseInput - :: Val Text -- ^ 'kaakfiResourceARN' - -> Val Text -- ^ 'kaakfiRoleARN' - -> KinesisAnalyticsApplicationKinesisFirehoseInput -kinesisAnalyticsApplicationKinesisFirehoseInput resourceARNarg roleARNarg = - KinesisAnalyticsApplicationKinesisFirehoseInput - { _kinesisAnalyticsApplicationKinesisFirehoseInputResourceARN = resourceARNarg - , _kinesisAnalyticsApplicationKinesisFirehoseInputRoleARN = roleARNarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-kinesisfirehoseinput.html#cfn-kinesisanalytics-application-kinesisfirehoseinput-resourcearn -kaakfiResourceARN :: Lens' KinesisAnalyticsApplicationKinesisFirehoseInput (Val Text) -kaakfiResourceARN = lens _kinesisAnalyticsApplicationKinesisFirehoseInputResourceARN (\s a -> s { _kinesisAnalyticsApplicationKinesisFirehoseInputResourceARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-kinesisfirehoseinput.html#cfn-kinesisanalytics-application-kinesisfirehoseinput-rolearn -kaakfiRoleARN :: Lens' KinesisAnalyticsApplicationKinesisFirehoseInput (Val Text) -kaakfiRoleARN = lens _kinesisAnalyticsApplicationKinesisFirehoseInputRoleARN (\s a -> s { _kinesisAnalyticsApplicationKinesisFirehoseInputRoleARN = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationKinesisStreamsInput.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationKinesisStreamsInput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationKinesisStreamsInput.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-kinesisstreamsinput.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationKinesisStreamsInput where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsApplicationKinesisStreamsInput. See --- 'kinesisAnalyticsApplicationKinesisStreamsInput' for a more convenient --- constructor. -data KinesisAnalyticsApplicationKinesisStreamsInput = - KinesisAnalyticsApplicationKinesisStreamsInput - { _kinesisAnalyticsApplicationKinesisStreamsInputResourceARN :: Val Text - , _kinesisAnalyticsApplicationKinesisStreamsInputRoleARN :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsApplicationKinesisStreamsInput where - toJSON KinesisAnalyticsApplicationKinesisStreamsInput{..} = - object $ - catMaybes - [ (Just . ("ResourceARN",) . toJSON) _kinesisAnalyticsApplicationKinesisStreamsInputResourceARN - , (Just . ("RoleARN",) . toJSON) _kinesisAnalyticsApplicationKinesisStreamsInputRoleARN - ] - --- | Constructor for 'KinesisAnalyticsApplicationKinesisStreamsInput' --- containing required fields as arguments. -kinesisAnalyticsApplicationKinesisStreamsInput - :: Val Text -- ^ 'kaaksiResourceARN' - -> Val Text -- ^ 'kaaksiRoleARN' - -> KinesisAnalyticsApplicationKinesisStreamsInput -kinesisAnalyticsApplicationKinesisStreamsInput resourceARNarg roleARNarg = - KinesisAnalyticsApplicationKinesisStreamsInput - { _kinesisAnalyticsApplicationKinesisStreamsInputResourceARN = resourceARNarg - , _kinesisAnalyticsApplicationKinesisStreamsInputRoleARN = roleARNarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-kinesisstreamsinput.html#cfn-kinesisanalytics-application-kinesisstreamsinput-resourcearn -kaaksiResourceARN :: Lens' KinesisAnalyticsApplicationKinesisStreamsInput (Val Text) -kaaksiResourceARN = lens _kinesisAnalyticsApplicationKinesisStreamsInputResourceARN (\s a -> s { _kinesisAnalyticsApplicationKinesisStreamsInputResourceARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-kinesisstreamsinput.html#cfn-kinesisanalytics-application-kinesisstreamsinput-rolearn -kaaksiRoleARN :: Lens' KinesisAnalyticsApplicationKinesisStreamsInput (Val Text) -kaaksiRoleARN = lens _kinesisAnalyticsApplicationKinesisStreamsInputRoleARN (\s a -> s { _kinesisAnalyticsApplicationKinesisStreamsInputRoleARN = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationMappingParameters.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationMappingParameters.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationMappingParameters.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-mappingparameters.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationMappingParameters where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationCSVMappingParameters -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationJSONMappingParameters - --- | Full data type definition for --- KinesisAnalyticsApplicationMappingParameters. See --- 'kinesisAnalyticsApplicationMappingParameters' for a more convenient --- constructor. -data KinesisAnalyticsApplicationMappingParameters = - KinesisAnalyticsApplicationMappingParameters - { _kinesisAnalyticsApplicationMappingParametersCSVMappingParameters :: Maybe KinesisAnalyticsApplicationCSVMappingParameters - , _kinesisAnalyticsApplicationMappingParametersJSONMappingParameters :: Maybe KinesisAnalyticsApplicationJSONMappingParameters - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsApplicationMappingParameters where - toJSON KinesisAnalyticsApplicationMappingParameters{..} = - object $ - catMaybes - [ fmap (("CSVMappingParameters",) . toJSON) _kinesisAnalyticsApplicationMappingParametersCSVMappingParameters - , fmap (("JSONMappingParameters",) . toJSON) _kinesisAnalyticsApplicationMappingParametersJSONMappingParameters - ] - --- | Constructor for 'KinesisAnalyticsApplicationMappingParameters' containing --- required fields as arguments. -kinesisAnalyticsApplicationMappingParameters - :: KinesisAnalyticsApplicationMappingParameters -kinesisAnalyticsApplicationMappingParameters = - KinesisAnalyticsApplicationMappingParameters - { _kinesisAnalyticsApplicationMappingParametersCSVMappingParameters = Nothing - , _kinesisAnalyticsApplicationMappingParametersJSONMappingParameters = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-mappingparameters.html#cfn-kinesisanalytics-application-mappingparameters-csvmappingparameters -kaampCSVMappingParameters :: Lens' KinesisAnalyticsApplicationMappingParameters (Maybe KinesisAnalyticsApplicationCSVMappingParameters) -kaampCSVMappingParameters = lens _kinesisAnalyticsApplicationMappingParametersCSVMappingParameters (\s a -> s { _kinesisAnalyticsApplicationMappingParametersCSVMappingParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-mappingparameters.html#cfn-kinesisanalytics-application-mappingparameters-jsonmappingparameters -kaampJSONMappingParameters :: Lens' KinesisAnalyticsApplicationMappingParameters (Maybe KinesisAnalyticsApplicationJSONMappingParameters) -kaampJSONMappingParameters = lens _kinesisAnalyticsApplicationMappingParametersJSONMappingParameters (\s a -> s { _kinesisAnalyticsApplicationMappingParametersJSONMappingParameters = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationOutputDestinationSchema.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationOutputDestinationSchema.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationOutputDestinationSchema.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-destinationschema.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputDestinationSchema where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsApplicationOutputDestinationSchema. See --- 'kinesisAnalyticsApplicationOutputDestinationSchema' for a more --- convenient constructor. -data KinesisAnalyticsApplicationOutputDestinationSchema = - KinesisAnalyticsApplicationOutputDestinationSchema - { _kinesisAnalyticsApplicationOutputDestinationSchemaRecordFormatType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsApplicationOutputDestinationSchema where - toJSON KinesisAnalyticsApplicationOutputDestinationSchema{..} = - object $ - catMaybes - [ fmap (("RecordFormatType",) . toJSON) _kinesisAnalyticsApplicationOutputDestinationSchemaRecordFormatType - ] - --- | Constructor for 'KinesisAnalyticsApplicationOutputDestinationSchema' --- containing required fields as arguments. -kinesisAnalyticsApplicationOutputDestinationSchema - :: KinesisAnalyticsApplicationOutputDestinationSchema -kinesisAnalyticsApplicationOutputDestinationSchema = - KinesisAnalyticsApplicationOutputDestinationSchema - { _kinesisAnalyticsApplicationOutputDestinationSchemaRecordFormatType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-destinationschema.html#cfn-kinesisanalytics-applicationoutput-destinationschema-recordformattype -kaaodsRecordFormatType :: Lens' KinesisAnalyticsApplicationOutputDestinationSchema (Maybe (Val Text)) -kaaodsRecordFormatType = lens _kinesisAnalyticsApplicationOutputDestinationSchemaRecordFormatType (\s a -> s { _kinesisAnalyticsApplicationOutputDestinationSchemaRecordFormatType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationOutputKinesisFirehoseOutput.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationOutputKinesisFirehoseOutput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationOutputKinesisFirehoseOutput.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-kinesisfirehoseoutput.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputKinesisFirehoseOutput where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsApplicationOutputKinesisFirehoseOutput. See --- 'kinesisAnalyticsApplicationOutputKinesisFirehoseOutput' for a more --- convenient constructor. -data KinesisAnalyticsApplicationOutputKinesisFirehoseOutput = - KinesisAnalyticsApplicationOutputKinesisFirehoseOutput - { _kinesisAnalyticsApplicationOutputKinesisFirehoseOutputResourceARN :: Val Text - , _kinesisAnalyticsApplicationOutputKinesisFirehoseOutputRoleARN :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsApplicationOutputKinesisFirehoseOutput where - toJSON KinesisAnalyticsApplicationOutputKinesisFirehoseOutput{..} = - object $ - catMaybes - [ (Just . ("ResourceARN",) . toJSON) _kinesisAnalyticsApplicationOutputKinesisFirehoseOutputResourceARN - , (Just . ("RoleARN",) . toJSON) _kinesisAnalyticsApplicationOutputKinesisFirehoseOutputRoleARN - ] - --- | Constructor for 'KinesisAnalyticsApplicationOutputKinesisFirehoseOutput' --- containing required fields as arguments. -kinesisAnalyticsApplicationOutputKinesisFirehoseOutput - :: Val Text -- ^ 'kaaokfoResourceARN' - -> Val Text -- ^ 'kaaokfoRoleARN' - -> KinesisAnalyticsApplicationOutputKinesisFirehoseOutput -kinesisAnalyticsApplicationOutputKinesisFirehoseOutput resourceARNarg roleARNarg = - KinesisAnalyticsApplicationOutputKinesisFirehoseOutput - { _kinesisAnalyticsApplicationOutputKinesisFirehoseOutputResourceARN = resourceARNarg - , _kinesisAnalyticsApplicationOutputKinesisFirehoseOutputRoleARN = roleARNarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-kinesisfirehoseoutput.html#cfn-kinesisanalytics-applicationoutput-kinesisfirehoseoutput-resourcearn -kaaokfoResourceARN :: Lens' KinesisAnalyticsApplicationOutputKinesisFirehoseOutput (Val Text) -kaaokfoResourceARN = lens _kinesisAnalyticsApplicationOutputKinesisFirehoseOutputResourceARN (\s a -> s { _kinesisAnalyticsApplicationOutputKinesisFirehoseOutputResourceARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-kinesisfirehoseoutput.html#cfn-kinesisanalytics-applicationoutput-kinesisfirehoseoutput-rolearn -kaaokfoRoleARN :: Lens' KinesisAnalyticsApplicationOutputKinesisFirehoseOutput (Val Text) -kaaokfoRoleARN = lens _kinesisAnalyticsApplicationOutputKinesisFirehoseOutputRoleARN (\s a -> s { _kinesisAnalyticsApplicationOutputKinesisFirehoseOutputRoleARN = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationOutputKinesisStreamsOutput.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationOutputKinesisStreamsOutput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationOutputKinesisStreamsOutput.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-kinesisstreamsoutput.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputKinesisStreamsOutput where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsApplicationOutputKinesisStreamsOutput. See --- 'kinesisAnalyticsApplicationOutputKinesisStreamsOutput' for a more --- convenient constructor. -data KinesisAnalyticsApplicationOutputKinesisStreamsOutput = - KinesisAnalyticsApplicationOutputKinesisStreamsOutput - { _kinesisAnalyticsApplicationOutputKinesisStreamsOutputResourceARN :: Val Text - , _kinesisAnalyticsApplicationOutputKinesisStreamsOutputRoleARN :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsApplicationOutputKinesisStreamsOutput where - toJSON KinesisAnalyticsApplicationOutputKinesisStreamsOutput{..} = - object $ - catMaybes - [ (Just . ("ResourceARN",) . toJSON) _kinesisAnalyticsApplicationOutputKinesisStreamsOutputResourceARN - , (Just . ("RoleARN",) . toJSON) _kinesisAnalyticsApplicationOutputKinesisStreamsOutputRoleARN - ] - --- | Constructor for 'KinesisAnalyticsApplicationOutputKinesisStreamsOutput' --- containing required fields as arguments. -kinesisAnalyticsApplicationOutputKinesisStreamsOutput - :: Val Text -- ^ 'kaaoksoResourceARN' - -> Val Text -- ^ 'kaaoksoRoleARN' - -> KinesisAnalyticsApplicationOutputKinesisStreamsOutput -kinesisAnalyticsApplicationOutputKinesisStreamsOutput resourceARNarg roleARNarg = - KinesisAnalyticsApplicationOutputKinesisStreamsOutput - { _kinesisAnalyticsApplicationOutputKinesisStreamsOutputResourceARN = resourceARNarg - , _kinesisAnalyticsApplicationOutputKinesisStreamsOutputRoleARN = roleARNarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-kinesisstreamsoutput.html#cfn-kinesisanalytics-applicationoutput-kinesisstreamsoutput-resourcearn -kaaoksoResourceARN :: Lens' KinesisAnalyticsApplicationOutputKinesisStreamsOutput (Val Text) -kaaoksoResourceARN = lens _kinesisAnalyticsApplicationOutputKinesisStreamsOutputResourceARN (\s a -> s { _kinesisAnalyticsApplicationOutputKinesisStreamsOutputResourceARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-kinesisstreamsoutput.html#cfn-kinesisanalytics-applicationoutput-kinesisstreamsoutput-rolearn -kaaoksoRoleARN :: Lens' KinesisAnalyticsApplicationOutputKinesisStreamsOutput (Val Text) -kaaoksoRoleARN = lens _kinesisAnalyticsApplicationOutputKinesisStreamsOutputRoleARN (\s a -> s { _kinesisAnalyticsApplicationOutputKinesisStreamsOutputRoleARN = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationOutputLambdaOutput.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationOutputLambdaOutput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationOutputLambdaOutput.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-lambdaoutput.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputLambdaOutput where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsApplicationOutputLambdaOutput. See --- 'kinesisAnalyticsApplicationOutputLambdaOutput' for a more convenient --- constructor. -data KinesisAnalyticsApplicationOutputLambdaOutput = - KinesisAnalyticsApplicationOutputLambdaOutput - { _kinesisAnalyticsApplicationOutputLambdaOutputResourceARN :: Val Text - , _kinesisAnalyticsApplicationOutputLambdaOutputRoleARN :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsApplicationOutputLambdaOutput where - toJSON KinesisAnalyticsApplicationOutputLambdaOutput{..} = - object $ - catMaybes - [ (Just . ("ResourceARN",) . toJSON) _kinesisAnalyticsApplicationOutputLambdaOutputResourceARN - , (Just . ("RoleARN",) . toJSON) _kinesisAnalyticsApplicationOutputLambdaOutputRoleARN - ] - --- | Constructor for 'KinesisAnalyticsApplicationOutputLambdaOutput' --- containing required fields as arguments. -kinesisAnalyticsApplicationOutputLambdaOutput - :: Val Text -- ^ 'kaaoloResourceARN' - -> Val Text -- ^ 'kaaoloRoleARN' - -> KinesisAnalyticsApplicationOutputLambdaOutput -kinesisAnalyticsApplicationOutputLambdaOutput resourceARNarg roleARNarg = - KinesisAnalyticsApplicationOutputLambdaOutput - { _kinesisAnalyticsApplicationOutputLambdaOutputResourceARN = resourceARNarg - , _kinesisAnalyticsApplicationOutputLambdaOutputRoleARN = roleARNarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-lambdaoutput.html#cfn-kinesisanalytics-applicationoutput-lambdaoutput-resourcearn -kaaoloResourceARN :: Lens' KinesisAnalyticsApplicationOutputLambdaOutput (Val Text) -kaaoloResourceARN = lens _kinesisAnalyticsApplicationOutputLambdaOutputResourceARN (\s a -> s { _kinesisAnalyticsApplicationOutputLambdaOutputResourceARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-lambdaoutput.html#cfn-kinesisanalytics-applicationoutput-lambdaoutput-rolearn -kaaoloRoleARN :: Lens' KinesisAnalyticsApplicationOutputLambdaOutput (Val Text) -kaaoloRoleARN = lens _kinesisAnalyticsApplicationOutputLambdaOutputRoleARN (\s a -> s { _kinesisAnalyticsApplicationOutputLambdaOutputRoleARN = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationOutputOutput.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationOutputOutput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationOutputOutput.hs +++ /dev/null @@ -1,71 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-output.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputOutput where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputDestinationSchema -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputKinesisFirehoseOutput -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputKinesisStreamsOutput -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputLambdaOutput - --- | Full data type definition for KinesisAnalyticsApplicationOutputOutput. --- See 'kinesisAnalyticsApplicationOutputOutput' for a more convenient --- constructor. -data KinesisAnalyticsApplicationOutputOutput = - KinesisAnalyticsApplicationOutputOutput - { _kinesisAnalyticsApplicationOutputOutputDestinationSchema :: KinesisAnalyticsApplicationOutputDestinationSchema - , _kinesisAnalyticsApplicationOutputOutputKinesisFirehoseOutput :: Maybe KinesisAnalyticsApplicationOutputKinesisFirehoseOutput - , _kinesisAnalyticsApplicationOutputOutputKinesisStreamsOutput :: Maybe KinesisAnalyticsApplicationOutputKinesisStreamsOutput - , _kinesisAnalyticsApplicationOutputOutputLambdaOutput :: Maybe KinesisAnalyticsApplicationOutputLambdaOutput - , _kinesisAnalyticsApplicationOutputOutputName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsApplicationOutputOutput where - toJSON KinesisAnalyticsApplicationOutputOutput{..} = - object $ - catMaybes - [ (Just . ("DestinationSchema",) . toJSON) _kinesisAnalyticsApplicationOutputOutputDestinationSchema - , fmap (("KinesisFirehoseOutput",) . toJSON) _kinesisAnalyticsApplicationOutputOutputKinesisFirehoseOutput - , fmap (("KinesisStreamsOutput",) . toJSON) _kinesisAnalyticsApplicationOutputOutputKinesisStreamsOutput - , fmap (("LambdaOutput",) . toJSON) _kinesisAnalyticsApplicationOutputOutputLambdaOutput - , fmap (("Name",) . toJSON) _kinesisAnalyticsApplicationOutputOutputName - ] - --- | Constructor for 'KinesisAnalyticsApplicationOutputOutput' containing --- required fields as arguments. -kinesisAnalyticsApplicationOutputOutput - :: KinesisAnalyticsApplicationOutputDestinationSchema -- ^ 'kaaooDestinationSchema' - -> KinesisAnalyticsApplicationOutputOutput -kinesisAnalyticsApplicationOutputOutput destinationSchemaarg = - KinesisAnalyticsApplicationOutputOutput - { _kinesisAnalyticsApplicationOutputOutputDestinationSchema = destinationSchemaarg - , _kinesisAnalyticsApplicationOutputOutputKinesisFirehoseOutput = Nothing - , _kinesisAnalyticsApplicationOutputOutputKinesisStreamsOutput = Nothing - , _kinesisAnalyticsApplicationOutputOutputLambdaOutput = Nothing - , _kinesisAnalyticsApplicationOutputOutputName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-output.html#cfn-kinesisanalytics-applicationoutput-output-destinationschema -kaaooDestinationSchema :: Lens' KinesisAnalyticsApplicationOutputOutput KinesisAnalyticsApplicationOutputDestinationSchema -kaaooDestinationSchema = lens _kinesisAnalyticsApplicationOutputOutputDestinationSchema (\s a -> s { _kinesisAnalyticsApplicationOutputOutputDestinationSchema = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-output.html#cfn-kinesisanalytics-applicationoutput-output-kinesisfirehoseoutput -kaaooKinesisFirehoseOutput :: Lens' KinesisAnalyticsApplicationOutputOutput (Maybe KinesisAnalyticsApplicationOutputKinesisFirehoseOutput) -kaaooKinesisFirehoseOutput = lens _kinesisAnalyticsApplicationOutputOutputKinesisFirehoseOutput (\s a -> s { _kinesisAnalyticsApplicationOutputOutputKinesisFirehoseOutput = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-output.html#cfn-kinesisanalytics-applicationoutput-output-kinesisstreamsoutput -kaaooKinesisStreamsOutput :: Lens' KinesisAnalyticsApplicationOutputOutput (Maybe KinesisAnalyticsApplicationOutputKinesisStreamsOutput) -kaaooKinesisStreamsOutput = lens _kinesisAnalyticsApplicationOutputOutputKinesisStreamsOutput (\s a -> s { _kinesisAnalyticsApplicationOutputOutputKinesisStreamsOutput = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-output.html#cfn-kinesisanalytics-applicationoutput-output-lambdaoutput -kaaooLambdaOutput :: Lens' KinesisAnalyticsApplicationOutputOutput (Maybe KinesisAnalyticsApplicationOutputLambdaOutput) -kaaooLambdaOutput = lens _kinesisAnalyticsApplicationOutputOutputLambdaOutput (\s a -> s { _kinesisAnalyticsApplicationOutputOutputLambdaOutput = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationoutput-output.html#cfn-kinesisanalytics-applicationoutput-output-name -kaaooName :: Lens' KinesisAnalyticsApplicationOutputOutput (Maybe (Val Text)) -kaaooName = lens _kinesisAnalyticsApplicationOutputOutputName (\s a -> s { _kinesisAnalyticsApplicationOutputOutputName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationRecordColumn.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationRecordColumn.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationRecordColumn.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-recordcolumn.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationRecordColumn where - -import Stratosphere.ResourceImports - - --- | Full data type definition for KinesisAnalyticsApplicationRecordColumn. --- See 'kinesisAnalyticsApplicationRecordColumn' for a more convenient --- constructor. -data KinesisAnalyticsApplicationRecordColumn = - KinesisAnalyticsApplicationRecordColumn - { _kinesisAnalyticsApplicationRecordColumnMapping :: Maybe (Val Text) - , _kinesisAnalyticsApplicationRecordColumnName :: Val Text - , _kinesisAnalyticsApplicationRecordColumnSqlType :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsApplicationRecordColumn where - toJSON KinesisAnalyticsApplicationRecordColumn{..} = - object $ - catMaybes - [ fmap (("Mapping",) . toJSON) _kinesisAnalyticsApplicationRecordColumnMapping - , (Just . ("Name",) . toJSON) _kinesisAnalyticsApplicationRecordColumnName - , (Just . ("SqlType",) . toJSON) _kinesisAnalyticsApplicationRecordColumnSqlType - ] - --- | Constructor for 'KinesisAnalyticsApplicationRecordColumn' containing --- required fields as arguments. -kinesisAnalyticsApplicationRecordColumn - :: Val Text -- ^ 'kaarcName' - -> Val Text -- ^ 'kaarcSqlType' - -> KinesisAnalyticsApplicationRecordColumn -kinesisAnalyticsApplicationRecordColumn namearg sqlTypearg = - KinesisAnalyticsApplicationRecordColumn - { _kinesisAnalyticsApplicationRecordColumnMapping = Nothing - , _kinesisAnalyticsApplicationRecordColumnName = namearg - , _kinesisAnalyticsApplicationRecordColumnSqlType = sqlTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-recordcolumn.html#cfn-kinesisanalytics-application-recordcolumn-mapping -kaarcMapping :: Lens' KinesisAnalyticsApplicationRecordColumn (Maybe (Val Text)) -kaarcMapping = lens _kinesisAnalyticsApplicationRecordColumnMapping (\s a -> s { _kinesisAnalyticsApplicationRecordColumnMapping = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-recordcolumn.html#cfn-kinesisanalytics-application-recordcolumn-name -kaarcName :: Lens' KinesisAnalyticsApplicationRecordColumn (Val Text) -kaarcName = lens _kinesisAnalyticsApplicationRecordColumnName (\s a -> s { _kinesisAnalyticsApplicationRecordColumnName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-recordcolumn.html#cfn-kinesisanalytics-application-recordcolumn-sqltype -kaarcSqlType :: Lens' KinesisAnalyticsApplicationRecordColumn (Val Text) -kaarcSqlType = lens _kinesisAnalyticsApplicationRecordColumnSqlType (\s a -> s { _kinesisAnalyticsApplicationRecordColumnSqlType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationRecordFormat.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationRecordFormat.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationRecordFormat.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-recordformat.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationRecordFormat where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationMappingParameters - --- | Full data type definition for KinesisAnalyticsApplicationRecordFormat. --- See 'kinesisAnalyticsApplicationRecordFormat' for a more convenient --- constructor. -data KinesisAnalyticsApplicationRecordFormat = - KinesisAnalyticsApplicationRecordFormat - { _kinesisAnalyticsApplicationRecordFormatMappingParameters :: Maybe KinesisAnalyticsApplicationMappingParameters - , _kinesisAnalyticsApplicationRecordFormatRecordFormatType :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsApplicationRecordFormat where - toJSON KinesisAnalyticsApplicationRecordFormat{..} = - object $ - catMaybes - [ fmap (("MappingParameters",) . toJSON) _kinesisAnalyticsApplicationRecordFormatMappingParameters - , (Just . ("RecordFormatType",) . toJSON) _kinesisAnalyticsApplicationRecordFormatRecordFormatType - ] - --- | Constructor for 'KinesisAnalyticsApplicationRecordFormat' containing --- required fields as arguments. -kinesisAnalyticsApplicationRecordFormat - :: Val Text -- ^ 'kaarfRecordFormatType' - -> KinesisAnalyticsApplicationRecordFormat -kinesisAnalyticsApplicationRecordFormat recordFormatTypearg = - KinesisAnalyticsApplicationRecordFormat - { _kinesisAnalyticsApplicationRecordFormatMappingParameters = Nothing - , _kinesisAnalyticsApplicationRecordFormatRecordFormatType = recordFormatTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-recordformat.html#cfn-kinesisanalytics-application-recordformat-mappingparameters -kaarfMappingParameters :: Lens' KinesisAnalyticsApplicationRecordFormat (Maybe KinesisAnalyticsApplicationMappingParameters) -kaarfMappingParameters = lens _kinesisAnalyticsApplicationRecordFormatMappingParameters (\s a -> s { _kinesisAnalyticsApplicationRecordFormatMappingParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-application-recordformat.html#cfn-kinesisanalytics-application-recordformat-recordformattype -kaarfRecordFormatType :: Lens' KinesisAnalyticsApplicationRecordFormat (Val Text) -kaarfRecordFormatType = lens _kinesisAnalyticsApplicationRecordFormatRecordFormatType (\s a -> s { _kinesisAnalyticsApplicationRecordFormatRecordFormatType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-csvmappingparameters.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters. See --- 'kinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters' for --- a more convenient constructor. -data KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters = - KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters - { _kinesisAnalyticsApplicationReferenceDataSourceCSVMappingParametersRecordColumnDelimiter :: Val Text - , _kinesisAnalyticsApplicationReferenceDataSourceCSVMappingParametersRecordRowDelimiter :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters where - toJSON KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters{..} = - object $ - catMaybes - [ (Just . ("RecordColumnDelimiter",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceCSVMappingParametersRecordColumnDelimiter - , (Just . ("RecordRowDelimiter",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceCSVMappingParametersRecordRowDelimiter - ] - --- | Constructor for --- 'KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters' --- containing required fields as arguments. -kinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters - :: Val Text -- ^ 'kaardscsvmpRecordColumnDelimiter' - -> Val Text -- ^ 'kaardscsvmpRecordRowDelimiter' - -> KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters -kinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters recordColumnDelimiterarg recordRowDelimiterarg = - KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters - { _kinesisAnalyticsApplicationReferenceDataSourceCSVMappingParametersRecordColumnDelimiter = recordColumnDelimiterarg - , _kinesisAnalyticsApplicationReferenceDataSourceCSVMappingParametersRecordRowDelimiter = recordRowDelimiterarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-csvmappingparameters.html#cfn-kinesisanalytics-applicationreferencedatasource-csvmappingparameters-recordcolumndelimiter -kaardscsvmpRecordColumnDelimiter :: Lens' KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters (Val Text) -kaardscsvmpRecordColumnDelimiter = lens _kinesisAnalyticsApplicationReferenceDataSourceCSVMappingParametersRecordColumnDelimiter (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceCSVMappingParametersRecordColumnDelimiter = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-csvmappingparameters.html#cfn-kinesisanalytics-applicationreferencedatasource-csvmappingparameters-recordrowdelimiter -kaardscsvmpRecordRowDelimiter :: Lens' KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters (Val Text) -kaardscsvmpRecordRowDelimiter = lens _kinesisAnalyticsApplicationReferenceDataSourceCSVMappingParametersRecordRowDelimiter (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceCSVMappingParametersRecordRowDelimiter = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters.hs +++ /dev/null @@ -1,42 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-jsonmappingparameters.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters. See --- 'kinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters' for --- a more convenient constructor. -data KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters = - KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters - { _kinesisAnalyticsApplicationReferenceDataSourceJSONMappingParametersRecordRowPath :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters where - toJSON KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters{..} = - object $ - catMaybes - [ (Just . ("RecordRowPath",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceJSONMappingParametersRecordRowPath - ] - --- | Constructor for --- 'KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters' --- containing required fields as arguments. -kinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters - :: Val Text -- ^ 'kaardsjsonmpRecordRowPath' - -> KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters -kinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters recordRowPatharg = - KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters - { _kinesisAnalyticsApplicationReferenceDataSourceJSONMappingParametersRecordRowPath = recordRowPatharg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-jsonmappingparameters.html#cfn-kinesisanalytics-applicationreferencedatasource-jsonmappingparameters-recordrowpath -kaardsjsonmpRecordRowPath :: Lens' KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters (Val Text) -kaardsjsonmpRecordRowPath = lens _kinesisAnalyticsApplicationReferenceDataSourceJSONMappingParametersRecordRowPath (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceJSONMappingParametersRecordRowPath = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceMappingParameters.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceMappingParameters.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceMappingParameters.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-mappingparameters.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceMappingParameters where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters - --- | Full data type definition for --- KinesisAnalyticsApplicationReferenceDataSourceMappingParameters. See --- 'kinesisAnalyticsApplicationReferenceDataSourceMappingParameters' for a --- more convenient constructor. -data KinesisAnalyticsApplicationReferenceDataSourceMappingParameters = - KinesisAnalyticsApplicationReferenceDataSourceMappingParameters - { _kinesisAnalyticsApplicationReferenceDataSourceMappingParametersCSVMappingParameters :: Maybe KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters - , _kinesisAnalyticsApplicationReferenceDataSourceMappingParametersJSONMappingParameters :: Maybe KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsApplicationReferenceDataSourceMappingParameters where - toJSON KinesisAnalyticsApplicationReferenceDataSourceMappingParameters{..} = - object $ - catMaybes - [ fmap (("CSVMappingParameters",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceMappingParametersCSVMappingParameters - , fmap (("JSONMappingParameters",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceMappingParametersJSONMappingParameters - ] - --- | Constructor for --- 'KinesisAnalyticsApplicationReferenceDataSourceMappingParameters' --- containing required fields as arguments. -kinesisAnalyticsApplicationReferenceDataSourceMappingParameters - :: KinesisAnalyticsApplicationReferenceDataSourceMappingParameters -kinesisAnalyticsApplicationReferenceDataSourceMappingParameters = - KinesisAnalyticsApplicationReferenceDataSourceMappingParameters - { _kinesisAnalyticsApplicationReferenceDataSourceMappingParametersCSVMappingParameters = Nothing - , _kinesisAnalyticsApplicationReferenceDataSourceMappingParametersJSONMappingParameters = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-mappingparameters.html#cfn-kinesisanalytics-applicationreferencedatasource-mappingparameters-csvmappingparameters -kaardsmpCSVMappingParameters :: Lens' KinesisAnalyticsApplicationReferenceDataSourceMappingParameters (Maybe KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters) -kaardsmpCSVMappingParameters = lens _kinesisAnalyticsApplicationReferenceDataSourceMappingParametersCSVMappingParameters (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceMappingParametersCSVMappingParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-mappingparameters.html#cfn-kinesisanalytics-applicationreferencedatasource-mappingparameters-jsonmappingparameters -kaardsmpJSONMappingParameters :: Lens' KinesisAnalyticsApplicationReferenceDataSourceMappingParameters (Maybe KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters) -kaardsmpJSONMappingParameters = lens _kinesisAnalyticsApplicationReferenceDataSourceMappingParametersJSONMappingParameters (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceMappingParametersJSONMappingParameters = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceRecordColumn.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceRecordColumn.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceRecordColumn.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-recordcolumn.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceRecordColumn where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsApplicationReferenceDataSourceRecordColumn. See --- 'kinesisAnalyticsApplicationReferenceDataSourceRecordColumn' for a more --- convenient constructor. -data KinesisAnalyticsApplicationReferenceDataSourceRecordColumn = - KinesisAnalyticsApplicationReferenceDataSourceRecordColumn - { _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnMapping :: Maybe (Val Text) - , _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnName :: Val Text - , _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnSqlType :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsApplicationReferenceDataSourceRecordColumn where - toJSON KinesisAnalyticsApplicationReferenceDataSourceRecordColumn{..} = - object $ - catMaybes - [ fmap (("Mapping",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnMapping - , (Just . ("Name",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnName - , (Just . ("SqlType",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnSqlType - ] - --- | Constructor for --- 'KinesisAnalyticsApplicationReferenceDataSourceRecordColumn' containing --- required fields as arguments. -kinesisAnalyticsApplicationReferenceDataSourceRecordColumn - :: Val Text -- ^ 'kaardsrcName' - -> Val Text -- ^ 'kaardsrcSqlType' - -> KinesisAnalyticsApplicationReferenceDataSourceRecordColumn -kinesisAnalyticsApplicationReferenceDataSourceRecordColumn namearg sqlTypearg = - KinesisAnalyticsApplicationReferenceDataSourceRecordColumn - { _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnMapping = Nothing - , _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnName = namearg - , _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnSqlType = sqlTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-recordcolumn.html#cfn-kinesisanalytics-applicationreferencedatasource-recordcolumn-mapping -kaardsrcMapping :: Lens' KinesisAnalyticsApplicationReferenceDataSourceRecordColumn (Maybe (Val Text)) -kaardsrcMapping = lens _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnMapping (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnMapping = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-recordcolumn.html#cfn-kinesisanalytics-applicationreferencedatasource-recordcolumn-name -kaardsrcName :: Lens' KinesisAnalyticsApplicationReferenceDataSourceRecordColumn (Val Text) -kaardsrcName = lens _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnName (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-recordcolumn.html#cfn-kinesisanalytics-applicationreferencedatasource-recordcolumn-sqltype -kaardsrcSqlType :: Lens' KinesisAnalyticsApplicationReferenceDataSourceRecordColumn (Val Text) -kaardsrcSqlType = lens _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnSqlType (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnSqlType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceRecordFormat.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceRecordFormat.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceRecordFormat.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-recordformat.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceRecordFormat where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceMappingParameters - --- | Full data type definition for --- KinesisAnalyticsApplicationReferenceDataSourceRecordFormat. See --- 'kinesisAnalyticsApplicationReferenceDataSourceRecordFormat' for a more --- convenient constructor. -data KinesisAnalyticsApplicationReferenceDataSourceRecordFormat = - KinesisAnalyticsApplicationReferenceDataSourceRecordFormat - { _kinesisAnalyticsApplicationReferenceDataSourceRecordFormatMappingParameters :: Maybe KinesisAnalyticsApplicationReferenceDataSourceMappingParameters - , _kinesisAnalyticsApplicationReferenceDataSourceRecordFormatRecordFormatType :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsApplicationReferenceDataSourceRecordFormat where - toJSON KinesisAnalyticsApplicationReferenceDataSourceRecordFormat{..} = - object $ - catMaybes - [ fmap (("MappingParameters",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceRecordFormatMappingParameters - , (Just . ("RecordFormatType",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceRecordFormatRecordFormatType - ] - --- | Constructor for --- 'KinesisAnalyticsApplicationReferenceDataSourceRecordFormat' containing --- required fields as arguments. -kinesisAnalyticsApplicationReferenceDataSourceRecordFormat - :: Val Text -- ^ 'kaardsrfRecordFormatType' - -> KinesisAnalyticsApplicationReferenceDataSourceRecordFormat -kinesisAnalyticsApplicationReferenceDataSourceRecordFormat recordFormatTypearg = - KinesisAnalyticsApplicationReferenceDataSourceRecordFormat - { _kinesisAnalyticsApplicationReferenceDataSourceRecordFormatMappingParameters = Nothing - , _kinesisAnalyticsApplicationReferenceDataSourceRecordFormatRecordFormatType = recordFormatTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-recordformat.html#cfn-kinesisanalytics-applicationreferencedatasource-recordformat-mappingparameters -kaardsrfMappingParameters :: Lens' KinesisAnalyticsApplicationReferenceDataSourceRecordFormat (Maybe KinesisAnalyticsApplicationReferenceDataSourceMappingParameters) -kaardsrfMappingParameters = lens _kinesisAnalyticsApplicationReferenceDataSourceRecordFormatMappingParameters (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceRecordFormatMappingParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-recordformat.html#cfn-kinesisanalytics-applicationreferencedatasource-recordformat-recordformattype -kaardsrfRecordFormatType :: Lens' KinesisAnalyticsApplicationReferenceDataSourceRecordFormat (Val Text) -kaardsrfRecordFormatType = lens _kinesisAnalyticsApplicationReferenceDataSourceRecordFormatRecordFormatType (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceRecordFormatRecordFormatType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-referencedatasource.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource - --- | Full data type definition for --- KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource. See --- 'kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource' for a --- more convenient constructor. -data KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource = - KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource - { _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceReferenceSchema :: KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema - , _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceS3ReferenceDataSource :: Maybe KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource - , _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceTableName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource where - toJSON KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource{..} = - object $ - catMaybes - [ (Just . ("ReferenceSchema",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceReferenceSchema - , fmap (("S3ReferenceDataSource",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceS3ReferenceDataSource - , fmap (("TableName",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceTableName - ] - --- | Constructor for --- 'KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource' --- containing required fields as arguments. -kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource - :: KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema -- ^ 'kaardsrdsReferenceSchema' - -> KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource -kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource referenceSchemaarg = - KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource - { _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceReferenceSchema = referenceSchemaarg - , _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceS3ReferenceDataSource = Nothing - , _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceTableName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-referencedatasource.html#cfn-kinesisanalytics-applicationreferencedatasource-referencedatasource-referenceschema -kaardsrdsReferenceSchema :: Lens' KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema -kaardsrdsReferenceSchema = lens _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceReferenceSchema (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceReferenceSchema = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-referencedatasource.html#cfn-kinesisanalytics-applicationreferencedatasource-referencedatasource-s3referencedatasource -kaardsrdsS3ReferenceDataSource :: Lens' KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource (Maybe KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource) -kaardsrdsS3ReferenceDataSource = lens _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceS3ReferenceDataSource (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceS3ReferenceDataSource = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-referencedatasource.html#cfn-kinesisanalytics-applicationreferencedatasource-referencedatasource-tablename -kaardsrdsTableName :: Lens' KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource (Maybe (Val Text)) -kaardsrdsTableName = lens _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceTableName (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceTableName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-referenceschema.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceRecordColumn -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceRecordFormat - --- | Full data type definition for --- KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema. See --- 'kinesisAnalyticsApplicationReferenceDataSourceReferenceSchema' for a --- more convenient constructor. -data KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema = - KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema - { _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordColumns :: [KinesisAnalyticsApplicationReferenceDataSourceRecordColumn] - , _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordEncoding :: Maybe (Val Text) - , _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordFormat :: KinesisAnalyticsApplicationReferenceDataSourceRecordFormat - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema where - toJSON KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema{..} = - object $ - catMaybes - [ (Just . ("RecordColumns",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordColumns - , fmap (("RecordEncoding",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordEncoding - , (Just . ("RecordFormat",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordFormat - ] - --- | Constructor for --- 'KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema' --- containing required fields as arguments. -kinesisAnalyticsApplicationReferenceDataSourceReferenceSchema - :: [KinesisAnalyticsApplicationReferenceDataSourceRecordColumn] -- ^ 'kaardsrsRecordColumns' - -> KinesisAnalyticsApplicationReferenceDataSourceRecordFormat -- ^ 'kaardsrsRecordFormat' - -> KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema -kinesisAnalyticsApplicationReferenceDataSourceReferenceSchema recordColumnsarg recordFormatarg = - KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema - { _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordColumns = recordColumnsarg - , _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordEncoding = Nothing - , _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordFormat = recordFormatarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-referenceschema.html#cfn-kinesisanalytics-applicationreferencedatasource-referenceschema-recordcolumns -kaardsrsRecordColumns :: Lens' KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema [KinesisAnalyticsApplicationReferenceDataSourceRecordColumn] -kaardsrsRecordColumns = lens _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordColumns (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordColumns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-referenceschema.html#cfn-kinesisanalytics-applicationreferencedatasource-referenceschema-recordencoding -kaardsrsRecordEncoding :: Lens' KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema (Maybe (Val Text)) -kaardsrsRecordEncoding = lens _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordEncoding (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordEncoding = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-referenceschema.html#cfn-kinesisanalytics-applicationreferencedatasource-referenceschema-recordformat -kaardsrsRecordFormat :: Lens' KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema KinesisAnalyticsApplicationReferenceDataSourceRecordFormat -kaardsrsRecordFormat = lens _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordFormat (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordFormat = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-s3referencedatasource.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource. See --- 'kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource' for --- a more convenient constructor. -data KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource = - KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource - { _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceBucketARN :: Val Text - , _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceFileKey :: Val Text - , _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceReferenceRoleARN :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource where - toJSON KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource{..} = - object $ - catMaybes - [ (Just . ("BucketARN",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceBucketARN - , (Just . ("FileKey",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceFileKey - , (Just . ("ReferenceRoleARN",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceReferenceRoleARN - ] - --- | Constructor for --- 'KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource' --- containing required fields as arguments. -kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource - :: Val Text -- ^ 'kaardssrdsBucketARN' - -> Val Text -- ^ 'kaardssrdsFileKey' - -> Val Text -- ^ 'kaardssrdsReferenceRoleARN' - -> KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource -kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource bucketARNarg fileKeyarg referenceRoleARNarg = - KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource - { _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceBucketARN = bucketARNarg - , _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceFileKey = fileKeyarg - , _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceReferenceRoleARN = referenceRoleARNarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-s3referencedatasource.html#cfn-kinesisanalytics-applicationreferencedatasource-s3referencedatasource-bucketarn -kaardssrdsBucketARN :: Lens' KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource (Val Text) -kaardssrdsBucketARN = lens _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceBucketARN (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceBucketARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-s3referencedatasource.html#cfn-kinesisanalytics-applicationreferencedatasource-s3referencedatasource-filekey -kaardssrdsFileKey :: Lens' KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource (Val Text) -kaardssrdsFileKey = lens _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceFileKey (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceFileKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalytics-applicationreferencedatasource-s3referencedatasource.html#cfn-kinesisanalytics-applicationreferencedatasource-s3referencedatasource-referencerolearn -kaardssrdsReferenceRoleARN :: Lens' KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource (Val Text) -kaardssrdsReferenceRoleARN = lens _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceReferenceRoleARN (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceReferenceRoleARN = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationApplicationCodeConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationApplicationCodeConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationApplicationCodeConfiguration.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-applicationcodeconfiguration.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationApplicationCodeConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCodeContent - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationApplicationCodeConfiguration. See --- 'kinesisAnalyticsV2ApplicationApplicationCodeConfiguration' for a more --- convenient constructor. -data KinesisAnalyticsV2ApplicationApplicationCodeConfiguration = - KinesisAnalyticsV2ApplicationApplicationCodeConfiguration - { _kinesisAnalyticsV2ApplicationApplicationCodeConfigurationCodeContent :: KinesisAnalyticsV2ApplicationCodeContent - , _kinesisAnalyticsV2ApplicationApplicationCodeConfigurationCodeContentType :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationApplicationCodeConfiguration where - toJSON KinesisAnalyticsV2ApplicationApplicationCodeConfiguration{..} = - object $ - catMaybes - [ (Just . ("CodeContent",) . toJSON) _kinesisAnalyticsV2ApplicationApplicationCodeConfigurationCodeContent - , (Just . ("CodeContentType",) . toJSON) _kinesisAnalyticsV2ApplicationApplicationCodeConfigurationCodeContentType - ] - --- | Constructor for --- 'KinesisAnalyticsV2ApplicationApplicationCodeConfiguration' containing --- required fields as arguments. -kinesisAnalyticsV2ApplicationApplicationCodeConfiguration - :: KinesisAnalyticsV2ApplicationCodeContent -- ^ 'kavaaccCodeContent' - -> Val Text -- ^ 'kavaaccCodeContentType' - -> KinesisAnalyticsV2ApplicationApplicationCodeConfiguration -kinesisAnalyticsV2ApplicationApplicationCodeConfiguration codeContentarg codeContentTypearg = - KinesisAnalyticsV2ApplicationApplicationCodeConfiguration - { _kinesisAnalyticsV2ApplicationApplicationCodeConfigurationCodeContent = codeContentarg - , _kinesisAnalyticsV2ApplicationApplicationCodeConfigurationCodeContentType = codeContentTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-applicationcodeconfiguration.html#cfn-kinesisanalyticsv2-application-applicationcodeconfiguration-codecontent -kavaaccCodeContent :: Lens' KinesisAnalyticsV2ApplicationApplicationCodeConfiguration KinesisAnalyticsV2ApplicationCodeContent -kavaaccCodeContent = lens _kinesisAnalyticsV2ApplicationApplicationCodeConfigurationCodeContent (\s a -> s { _kinesisAnalyticsV2ApplicationApplicationCodeConfigurationCodeContent = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-applicationcodeconfiguration.html#cfn-kinesisanalyticsv2-application-applicationcodeconfiguration-codecontenttype -kavaaccCodeContentType :: Lens' KinesisAnalyticsV2ApplicationApplicationCodeConfiguration (Val Text) -kavaaccCodeContentType = lens _kinesisAnalyticsV2ApplicationApplicationCodeConfigurationCodeContentType (\s a -> s { _kinesisAnalyticsV2ApplicationApplicationCodeConfigurationCodeContentType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationApplicationConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationApplicationConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationApplicationConfiguration.hs +++ /dev/null @@ -1,72 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-applicationconfiguration.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationApplicationConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationApplicationCodeConfiguration -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationEnvironmentProperties -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationSqlApplicationConfiguration - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationApplicationConfiguration. See --- 'kinesisAnalyticsV2ApplicationApplicationConfiguration' for a more --- convenient constructor. -data KinesisAnalyticsV2ApplicationApplicationConfiguration = - KinesisAnalyticsV2ApplicationApplicationConfiguration - { _kinesisAnalyticsV2ApplicationApplicationConfigurationApplicationCodeConfiguration :: Maybe KinesisAnalyticsV2ApplicationApplicationCodeConfiguration - , _kinesisAnalyticsV2ApplicationApplicationConfigurationApplicationSnapshotConfiguration :: Maybe KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration - , _kinesisAnalyticsV2ApplicationApplicationConfigurationEnvironmentProperties :: Maybe KinesisAnalyticsV2ApplicationEnvironmentProperties - , _kinesisAnalyticsV2ApplicationApplicationConfigurationFlinkApplicationConfiguration :: Maybe KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration - , _kinesisAnalyticsV2ApplicationApplicationConfigurationSqlApplicationConfiguration :: Maybe KinesisAnalyticsV2ApplicationSqlApplicationConfiguration - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationApplicationConfiguration where - toJSON KinesisAnalyticsV2ApplicationApplicationConfiguration{..} = - object $ - catMaybes - [ fmap (("ApplicationCodeConfiguration",) . toJSON) _kinesisAnalyticsV2ApplicationApplicationConfigurationApplicationCodeConfiguration - , fmap (("ApplicationSnapshotConfiguration",) . toJSON) _kinesisAnalyticsV2ApplicationApplicationConfigurationApplicationSnapshotConfiguration - , fmap (("EnvironmentProperties",) . toJSON) _kinesisAnalyticsV2ApplicationApplicationConfigurationEnvironmentProperties - , fmap (("FlinkApplicationConfiguration",) . toJSON) _kinesisAnalyticsV2ApplicationApplicationConfigurationFlinkApplicationConfiguration - , fmap (("SqlApplicationConfiguration",) . toJSON) _kinesisAnalyticsV2ApplicationApplicationConfigurationSqlApplicationConfiguration - ] - --- | Constructor for 'KinesisAnalyticsV2ApplicationApplicationConfiguration' --- containing required fields as arguments. -kinesisAnalyticsV2ApplicationApplicationConfiguration - :: KinesisAnalyticsV2ApplicationApplicationConfiguration -kinesisAnalyticsV2ApplicationApplicationConfiguration = - KinesisAnalyticsV2ApplicationApplicationConfiguration - { _kinesisAnalyticsV2ApplicationApplicationConfigurationApplicationCodeConfiguration = Nothing - , _kinesisAnalyticsV2ApplicationApplicationConfigurationApplicationSnapshotConfiguration = Nothing - , _kinesisAnalyticsV2ApplicationApplicationConfigurationEnvironmentProperties = Nothing - , _kinesisAnalyticsV2ApplicationApplicationConfigurationFlinkApplicationConfiguration = Nothing - , _kinesisAnalyticsV2ApplicationApplicationConfigurationSqlApplicationConfiguration = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-applicationconfiguration.html#cfn-kinesisanalyticsv2-application-applicationconfiguration-applicationcodeconfiguration -kavaacApplicationCodeConfiguration :: Lens' KinesisAnalyticsV2ApplicationApplicationConfiguration (Maybe KinesisAnalyticsV2ApplicationApplicationCodeConfiguration) -kavaacApplicationCodeConfiguration = lens _kinesisAnalyticsV2ApplicationApplicationConfigurationApplicationCodeConfiguration (\s a -> s { _kinesisAnalyticsV2ApplicationApplicationConfigurationApplicationCodeConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-applicationconfiguration.html#cfn-kinesisanalyticsv2-application-applicationconfiguration-applicationsnapshotconfiguration -kavaacApplicationSnapshotConfiguration :: Lens' KinesisAnalyticsV2ApplicationApplicationConfiguration (Maybe KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration) -kavaacApplicationSnapshotConfiguration = lens _kinesisAnalyticsV2ApplicationApplicationConfigurationApplicationSnapshotConfiguration (\s a -> s { _kinesisAnalyticsV2ApplicationApplicationConfigurationApplicationSnapshotConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-applicationconfiguration.html#cfn-kinesisanalyticsv2-application-applicationconfiguration-environmentproperties -kavaacEnvironmentProperties :: Lens' KinesisAnalyticsV2ApplicationApplicationConfiguration (Maybe KinesisAnalyticsV2ApplicationEnvironmentProperties) -kavaacEnvironmentProperties = lens _kinesisAnalyticsV2ApplicationApplicationConfigurationEnvironmentProperties (\s a -> s { _kinesisAnalyticsV2ApplicationApplicationConfigurationEnvironmentProperties = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-applicationconfiguration.html#cfn-kinesisanalyticsv2-application-applicationconfiguration-flinkapplicationconfiguration -kavaacFlinkApplicationConfiguration :: Lens' KinesisAnalyticsV2ApplicationApplicationConfiguration (Maybe KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration) -kavaacFlinkApplicationConfiguration = lens _kinesisAnalyticsV2ApplicationApplicationConfigurationFlinkApplicationConfiguration (\s a -> s { _kinesisAnalyticsV2ApplicationApplicationConfigurationFlinkApplicationConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-applicationconfiguration.html#cfn-kinesisanalyticsv2-application-applicationconfiguration-sqlapplicationconfiguration -kavaacSqlApplicationConfiguration :: Lens' KinesisAnalyticsV2ApplicationApplicationConfiguration (Maybe KinesisAnalyticsV2ApplicationSqlApplicationConfiguration) -kavaacSqlApplicationConfiguration = lens _kinesisAnalyticsV2ApplicationApplicationConfigurationSqlApplicationConfiguration (\s a -> s { _kinesisAnalyticsV2ApplicationApplicationConfigurationSqlApplicationConfiguration = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration.hs +++ /dev/null @@ -1,42 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-applicationsnapshotconfiguration.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration. See --- 'kinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration' for a --- more convenient constructor. -data KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration = - KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration - { _kinesisAnalyticsV2ApplicationApplicationSnapshotConfigurationSnapshotsEnabled :: Val Bool - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration where - toJSON KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration{..} = - object $ - catMaybes - [ (Just . ("SnapshotsEnabled",) . toJSON) _kinesisAnalyticsV2ApplicationApplicationSnapshotConfigurationSnapshotsEnabled - ] - --- | Constructor for --- 'KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration' --- containing required fields as arguments. -kinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration - :: Val Bool -- ^ 'kavaascSnapshotsEnabled' - -> KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration -kinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration snapshotsEnabledarg = - KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration - { _kinesisAnalyticsV2ApplicationApplicationSnapshotConfigurationSnapshotsEnabled = snapshotsEnabledarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-applicationsnapshotconfiguration.html#cfn-kinesisanalyticsv2-application-applicationsnapshotconfiguration-snapshotsenabled -kavaascSnapshotsEnabled :: Lens' KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration (Val Bool) -kavaascSnapshotsEnabled = lens _kinesisAnalyticsV2ApplicationApplicationSnapshotConfigurationSnapshotsEnabled (\s a -> s { _kinesisAnalyticsV2ApplicationApplicationSnapshotConfigurationSnapshotsEnabled = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationCSVMappingParameters.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationCSVMappingParameters.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationCSVMappingParameters.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-csvmappingparameters.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCSVMappingParameters where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationCSVMappingParameters. See --- 'kinesisAnalyticsV2ApplicationCSVMappingParameters' for a more convenient --- constructor. -data KinesisAnalyticsV2ApplicationCSVMappingParameters = - KinesisAnalyticsV2ApplicationCSVMappingParameters - { _kinesisAnalyticsV2ApplicationCSVMappingParametersRecordColumnDelimiter :: Val Text - , _kinesisAnalyticsV2ApplicationCSVMappingParametersRecordRowDelimiter :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationCSVMappingParameters where - toJSON KinesisAnalyticsV2ApplicationCSVMappingParameters{..} = - object $ - catMaybes - [ (Just . ("RecordColumnDelimiter",) . toJSON) _kinesisAnalyticsV2ApplicationCSVMappingParametersRecordColumnDelimiter - , (Just . ("RecordRowDelimiter",) . toJSON) _kinesisAnalyticsV2ApplicationCSVMappingParametersRecordRowDelimiter - ] - --- | Constructor for 'KinesisAnalyticsV2ApplicationCSVMappingParameters' --- containing required fields as arguments. -kinesisAnalyticsV2ApplicationCSVMappingParameters - :: Val Text -- ^ 'kavacsvmpRecordColumnDelimiter' - -> Val Text -- ^ 'kavacsvmpRecordRowDelimiter' - -> KinesisAnalyticsV2ApplicationCSVMappingParameters -kinesisAnalyticsV2ApplicationCSVMappingParameters recordColumnDelimiterarg recordRowDelimiterarg = - KinesisAnalyticsV2ApplicationCSVMappingParameters - { _kinesisAnalyticsV2ApplicationCSVMappingParametersRecordColumnDelimiter = recordColumnDelimiterarg - , _kinesisAnalyticsV2ApplicationCSVMappingParametersRecordRowDelimiter = recordRowDelimiterarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-csvmappingparameters.html#cfn-kinesisanalyticsv2-application-csvmappingparameters-recordcolumndelimiter -kavacsvmpRecordColumnDelimiter :: Lens' KinesisAnalyticsV2ApplicationCSVMappingParameters (Val Text) -kavacsvmpRecordColumnDelimiter = lens _kinesisAnalyticsV2ApplicationCSVMappingParametersRecordColumnDelimiter (\s a -> s { _kinesisAnalyticsV2ApplicationCSVMappingParametersRecordColumnDelimiter = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-csvmappingparameters.html#cfn-kinesisanalyticsv2-application-csvmappingparameters-recordrowdelimiter -kavacsvmpRecordRowDelimiter :: Lens' KinesisAnalyticsV2ApplicationCSVMappingParameters (Val Text) -kavacsvmpRecordRowDelimiter = lens _kinesisAnalyticsV2ApplicationCSVMappingParametersRecordRowDelimiter (\s a -> s { _kinesisAnalyticsV2ApplicationCSVMappingParametersRecordRowDelimiter = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationCheckpointConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationCheckpointConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationCheckpointConfiguration.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-checkpointconfiguration.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCheckpointConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationCheckpointConfiguration. See --- 'kinesisAnalyticsV2ApplicationCheckpointConfiguration' for a more --- convenient constructor. -data KinesisAnalyticsV2ApplicationCheckpointConfiguration = - KinesisAnalyticsV2ApplicationCheckpointConfiguration - { _kinesisAnalyticsV2ApplicationCheckpointConfigurationCheckpointInterval :: Maybe (Val Integer) - , _kinesisAnalyticsV2ApplicationCheckpointConfigurationCheckpointingEnabled :: Maybe (Val Bool) - , _kinesisAnalyticsV2ApplicationCheckpointConfigurationConfigurationType :: Val Text - , _kinesisAnalyticsV2ApplicationCheckpointConfigurationMinPauseBetweenCheckpoints :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationCheckpointConfiguration where - toJSON KinesisAnalyticsV2ApplicationCheckpointConfiguration{..} = - object $ - catMaybes - [ fmap (("CheckpointInterval",) . toJSON) _kinesisAnalyticsV2ApplicationCheckpointConfigurationCheckpointInterval - , fmap (("CheckpointingEnabled",) . toJSON) _kinesisAnalyticsV2ApplicationCheckpointConfigurationCheckpointingEnabled - , (Just . ("ConfigurationType",) . toJSON) _kinesisAnalyticsV2ApplicationCheckpointConfigurationConfigurationType - , fmap (("MinPauseBetweenCheckpoints",) . toJSON) _kinesisAnalyticsV2ApplicationCheckpointConfigurationMinPauseBetweenCheckpoints - ] - --- | Constructor for 'KinesisAnalyticsV2ApplicationCheckpointConfiguration' --- containing required fields as arguments. -kinesisAnalyticsV2ApplicationCheckpointConfiguration - :: Val Text -- ^ 'kavaccConfigurationType' - -> KinesisAnalyticsV2ApplicationCheckpointConfiguration -kinesisAnalyticsV2ApplicationCheckpointConfiguration configurationTypearg = - KinesisAnalyticsV2ApplicationCheckpointConfiguration - { _kinesisAnalyticsV2ApplicationCheckpointConfigurationCheckpointInterval = Nothing - , _kinesisAnalyticsV2ApplicationCheckpointConfigurationCheckpointingEnabled = Nothing - , _kinesisAnalyticsV2ApplicationCheckpointConfigurationConfigurationType = configurationTypearg - , _kinesisAnalyticsV2ApplicationCheckpointConfigurationMinPauseBetweenCheckpoints = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-checkpointconfiguration.html#cfn-kinesisanalyticsv2-application-checkpointconfiguration-checkpointinterval -kavaccCheckpointInterval :: Lens' KinesisAnalyticsV2ApplicationCheckpointConfiguration (Maybe (Val Integer)) -kavaccCheckpointInterval = lens _kinesisAnalyticsV2ApplicationCheckpointConfigurationCheckpointInterval (\s a -> s { _kinesisAnalyticsV2ApplicationCheckpointConfigurationCheckpointInterval = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-checkpointconfiguration.html#cfn-kinesisanalyticsv2-application-checkpointconfiguration-checkpointingenabled -kavaccCheckpointingEnabled :: Lens' KinesisAnalyticsV2ApplicationCheckpointConfiguration (Maybe (Val Bool)) -kavaccCheckpointingEnabled = lens _kinesisAnalyticsV2ApplicationCheckpointConfigurationCheckpointingEnabled (\s a -> s { _kinesisAnalyticsV2ApplicationCheckpointConfigurationCheckpointingEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-checkpointconfiguration.html#cfn-kinesisanalyticsv2-application-checkpointconfiguration-configurationtype -kavaccConfigurationType :: Lens' KinesisAnalyticsV2ApplicationCheckpointConfiguration (Val Text) -kavaccConfigurationType = lens _kinesisAnalyticsV2ApplicationCheckpointConfigurationConfigurationType (\s a -> s { _kinesisAnalyticsV2ApplicationCheckpointConfigurationConfigurationType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-checkpointconfiguration.html#cfn-kinesisanalyticsv2-application-checkpointconfiguration-minpausebetweencheckpoints -kavaccMinPauseBetweenCheckpoints :: Lens' KinesisAnalyticsV2ApplicationCheckpointConfiguration (Maybe (Val Integer)) -kavaccMinPauseBetweenCheckpoints = lens _kinesisAnalyticsV2ApplicationCheckpointConfigurationMinPauseBetweenCheckpoints (\s a -> s { _kinesisAnalyticsV2ApplicationCheckpointConfigurationMinPauseBetweenCheckpoints = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption.hs +++ /dev/null @@ -1,43 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationcloudwatchloggingoption-cloudwatchloggingoption.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption. --- See --- 'kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption' --- for a more convenient constructor. -data KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption = - KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption - { _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOptionLogStreamARN :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption where - toJSON KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption{..} = - object $ - catMaybes - [ (Just . ("LogStreamARN",) . toJSON) _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOptionLogStreamARN - ] - --- | Constructor for --- 'KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption' --- containing required fields as arguments. -kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption - :: Val Text -- ^ 'kavacwlocwloLogStreamARN' - -> KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption -kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption logStreamARNarg = - KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption - { _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOptionLogStreamARN = logStreamARNarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationcloudwatchloggingoption-cloudwatchloggingoption.html#cfn-kinesisanalyticsv2-applicationcloudwatchloggingoption-cloudwatchloggingoption-logstreamarn -kavacwlocwloLogStreamARN :: Lens' KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption (Val Text) -kavacwlocwloLogStreamARN = lens _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOptionLogStreamARN (\s a -> s { _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOptionLogStreamARN = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationCodeContent.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationCodeContent.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationCodeContent.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-codecontent.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCodeContent where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationS3ContentLocation - --- | Full data type definition for KinesisAnalyticsV2ApplicationCodeContent. --- See 'kinesisAnalyticsV2ApplicationCodeContent' for a more convenient --- constructor. -data KinesisAnalyticsV2ApplicationCodeContent = - KinesisAnalyticsV2ApplicationCodeContent - { _kinesisAnalyticsV2ApplicationCodeContentS3ContentLocation :: Maybe KinesisAnalyticsV2ApplicationS3ContentLocation - , _kinesisAnalyticsV2ApplicationCodeContentTextContent :: Maybe (Val Text) - , _kinesisAnalyticsV2ApplicationCodeContentZipFileContent :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationCodeContent where - toJSON KinesisAnalyticsV2ApplicationCodeContent{..} = - object $ - catMaybes - [ fmap (("S3ContentLocation",) . toJSON) _kinesisAnalyticsV2ApplicationCodeContentS3ContentLocation - , fmap (("TextContent",) . toJSON) _kinesisAnalyticsV2ApplicationCodeContentTextContent - , fmap (("ZipFileContent",) . toJSON) _kinesisAnalyticsV2ApplicationCodeContentZipFileContent - ] - --- | Constructor for 'KinesisAnalyticsV2ApplicationCodeContent' containing --- required fields as arguments. -kinesisAnalyticsV2ApplicationCodeContent - :: KinesisAnalyticsV2ApplicationCodeContent -kinesisAnalyticsV2ApplicationCodeContent = - KinesisAnalyticsV2ApplicationCodeContent - { _kinesisAnalyticsV2ApplicationCodeContentS3ContentLocation = Nothing - , _kinesisAnalyticsV2ApplicationCodeContentTextContent = Nothing - , _kinesisAnalyticsV2ApplicationCodeContentZipFileContent = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-codecontent.html#cfn-kinesisanalyticsv2-application-codecontent-s3contentlocation -kavaccS3ContentLocation :: Lens' KinesisAnalyticsV2ApplicationCodeContent (Maybe KinesisAnalyticsV2ApplicationS3ContentLocation) -kavaccS3ContentLocation = lens _kinesisAnalyticsV2ApplicationCodeContentS3ContentLocation (\s a -> s { _kinesisAnalyticsV2ApplicationCodeContentS3ContentLocation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-codecontent.html#cfn-kinesisanalyticsv2-application-codecontent-textcontent -kavaccTextContent :: Lens' KinesisAnalyticsV2ApplicationCodeContent (Maybe (Val Text)) -kavaccTextContent = lens _kinesisAnalyticsV2ApplicationCodeContentTextContent (\s a -> s { _kinesisAnalyticsV2ApplicationCodeContentTextContent = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-codecontent.html#cfn-kinesisanalyticsv2-application-codecontent-zipfilecontent -kavaccZipFileContent :: Lens' KinesisAnalyticsV2ApplicationCodeContent (Maybe (Val Text)) -kavaccZipFileContent = lens _kinesisAnalyticsV2ApplicationCodeContentZipFileContent (\s a -> s { _kinesisAnalyticsV2ApplicationCodeContentZipFileContent = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationEnvironmentProperties.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationEnvironmentProperties.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationEnvironmentProperties.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-environmentproperties.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationEnvironmentProperties where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationPropertyGroup - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationEnvironmentProperties. See --- 'kinesisAnalyticsV2ApplicationEnvironmentProperties' for a more --- convenient constructor. -data KinesisAnalyticsV2ApplicationEnvironmentProperties = - KinesisAnalyticsV2ApplicationEnvironmentProperties - { _kinesisAnalyticsV2ApplicationEnvironmentPropertiesPropertyGroups :: Maybe [KinesisAnalyticsV2ApplicationPropertyGroup] - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationEnvironmentProperties where - toJSON KinesisAnalyticsV2ApplicationEnvironmentProperties{..} = - object $ - catMaybes - [ fmap (("PropertyGroups",) . toJSON) _kinesisAnalyticsV2ApplicationEnvironmentPropertiesPropertyGroups - ] - --- | Constructor for 'KinesisAnalyticsV2ApplicationEnvironmentProperties' --- containing required fields as arguments. -kinesisAnalyticsV2ApplicationEnvironmentProperties - :: KinesisAnalyticsV2ApplicationEnvironmentProperties -kinesisAnalyticsV2ApplicationEnvironmentProperties = - KinesisAnalyticsV2ApplicationEnvironmentProperties - { _kinesisAnalyticsV2ApplicationEnvironmentPropertiesPropertyGroups = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-environmentproperties.html#cfn-kinesisanalyticsv2-application-environmentproperties-propertygroups -kavaepPropertyGroups :: Lens' KinesisAnalyticsV2ApplicationEnvironmentProperties (Maybe [KinesisAnalyticsV2ApplicationPropertyGroup]) -kavaepPropertyGroups = lens _kinesisAnalyticsV2ApplicationEnvironmentPropertiesPropertyGroups (\s a -> s { _kinesisAnalyticsV2ApplicationEnvironmentPropertiesPropertyGroups = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-flinkapplicationconfiguration.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCheckpointConfiguration -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationMonitoringConfiguration -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationParallelismConfiguration - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration. See --- 'kinesisAnalyticsV2ApplicationFlinkApplicationConfiguration' for a more --- convenient constructor. -data KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration = - KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration - { _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationCheckpointConfiguration :: Maybe KinesisAnalyticsV2ApplicationCheckpointConfiguration - , _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationMonitoringConfiguration :: Maybe KinesisAnalyticsV2ApplicationMonitoringConfiguration - , _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationParallelismConfiguration :: Maybe KinesisAnalyticsV2ApplicationParallelismConfiguration - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration where - toJSON KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration{..} = - object $ - catMaybes - [ fmap (("CheckpointConfiguration",) . toJSON) _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationCheckpointConfiguration - , fmap (("MonitoringConfiguration",) . toJSON) _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationMonitoringConfiguration - , fmap (("ParallelismConfiguration",) . toJSON) _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationParallelismConfiguration - ] - --- | Constructor for --- 'KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration' containing --- required fields as arguments. -kinesisAnalyticsV2ApplicationFlinkApplicationConfiguration - :: KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration -kinesisAnalyticsV2ApplicationFlinkApplicationConfiguration = - KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration - { _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationCheckpointConfiguration = Nothing - , _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationMonitoringConfiguration = Nothing - , _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationParallelismConfiguration = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-flinkapplicationconfiguration.html#cfn-kinesisanalyticsv2-application-flinkapplicationconfiguration-checkpointconfiguration -kavafacCheckpointConfiguration :: Lens' KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration (Maybe KinesisAnalyticsV2ApplicationCheckpointConfiguration) -kavafacCheckpointConfiguration = lens _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationCheckpointConfiguration (\s a -> s { _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationCheckpointConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-flinkapplicationconfiguration.html#cfn-kinesisanalyticsv2-application-flinkapplicationconfiguration-monitoringconfiguration -kavafacMonitoringConfiguration :: Lens' KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration (Maybe KinesisAnalyticsV2ApplicationMonitoringConfiguration) -kavafacMonitoringConfiguration = lens _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationMonitoringConfiguration (\s a -> s { _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationMonitoringConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-flinkapplicationconfiguration.html#cfn-kinesisanalyticsv2-application-flinkapplicationconfiguration-parallelismconfiguration -kavafacParallelismConfiguration :: Lens' KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration (Maybe KinesisAnalyticsV2ApplicationParallelismConfiguration) -kavafacParallelismConfiguration = lens _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationParallelismConfiguration (\s a -> s { _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationParallelismConfiguration = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationInput.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationInput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationInput.hs +++ /dev/null @@ -1,79 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-input.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInput where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputParallelism -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputProcessingConfiguration -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputSchema -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationKinesisFirehoseInput -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationKinesisStreamsInput - --- | Full data type definition for KinesisAnalyticsV2ApplicationInput. See --- 'kinesisAnalyticsV2ApplicationInput' for a more convenient constructor. -data KinesisAnalyticsV2ApplicationInput = - KinesisAnalyticsV2ApplicationInput - { _kinesisAnalyticsV2ApplicationInputInputParallelism :: Maybe KinesisAnalyticsV2ApplicationInputParallelism - , _kinesisAnalyticsV2ApplicationInputInputProcessingConfiguration :: Maybe KinesisAnalyticsV2ApplicationInputProcessingConfiguration - , _kinesisAnalyticsV2ApplicationInputInputSchema :: KinesisAnalyticsV2ApplicationInputSchema - , _kinesisAnalyticsV2ApplicationInputKinesisFirehoseInput :: Maybe KinesisAnalyticsV2ApplicationKinesisFirehoseInput - , _kinesisAnalyticsV2ApplicationInputKinesisStreamsInput :: Maybe KinesisAnalyticsV2ApplicationKinesisStreamsInput - , _kinesisAnalyticsV2ApplicationInputNamePrefix :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationInput where - toJSON KinesisAnalyticsV2ApplicationInput{..} = - object $ - catMaybes - [ fmap (("InputParallelism",) . toJSON) _kinesisAnalyticsV2ApplicationInputInputParallelism - , fmap (("InputProcessingConfiguration",) . toJSON) _kinesisAnalyticsV2ApplicationInputInputProcessingConfiguration - , (Just . ("InputSchema",) . toJSON) _kinesisAnalyticsV2ApplicationInputInputSchema - , fmap (("KinesisFirehoseInput",) . toJSON) _kinesisAnalyticsV2ApplicationInputKinesisFirehoseInput - , fmap (("KinesisStreamsInput",) . toJSON) _kinesisAnalyticsV2ApplicationInputKinesisStreamsInput - , (Just . ("NamePrefix",) . toJSON) _kinesisAnalyticsV2ApplicationInputNamePrefix - ] - --- | Constructor for 'KinesisAnalyticsV2ApplicationInput' containing required --- fields as arguments. -kinesisAnalyticsV2ApplicationInput - :: KinesisAnalyticsV2ApplicationInputSchema -- ^ 'kavaiInputSchema' - -> Val Text -- ^ 'kavaiNamePrefix' - -> KinesisAnalyticsV2ApplicationInput -kinesisAnalyticsV2ApplicationInput inputSchemaarg namePrefixarg = - KinesisAnalyticsV2ApplicationInput - { _kinesisAnalyticsV2ApplicationInputInputParallelism = Nothing - , _kinesisAnalyticsV2ApplicationInputInputProcessingConfiguration = Nothing - , _kinesisAnalyticsV2ApplicationInputInputSchema = inputSchemaarg - , _kinesisAnalyticsV2ApplicationInputKinesisFirehoseInput = Nothing - , _kinesisAnalyticsV2ApplicationInputKinesisStreamsInput = Nothing - , _kinesisAnalyticsV2ApplicationInputNamePrefix = namePrefixarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-input.html#cfn-kinesisanalyticsv2-application-input-inputparallelism -kavaiInputParallelism :: Lens' KinesisAnalyticsV2ApplicationInput (Maybe KinesisAnalyticsV2ApplicationInputParallelism) -kavaiInputParallelism = lens _kinesisAnalyticsV2ApplicationInputInputParallelism (\s a -> s { _kinesisAnalyticsV2ApplicationInputInputParallelism = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-input.html#cfn-kinesisanalyticsv2-application-input-inputprocessingconfiguration -kavaiInputProcessingConfiguration :: Lens' KinesisAnalyticsV2ApplicationInput (Maybe KinesisAnalyticsV2ApplicationInputProcessingConfiguration) -kavaiInputProcessingConfiguration = lens _kinesisAnalyticsV2ApplicationInputInputProcessingConfiguration (\s a -> s { _kinesisAnalyticsV2ApplicationInputInputProcessingConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-input.html#cfn-kinesisanalyticsv2-application-input-inputschema -kavaiInputSchema :: Lens' KinesisAnalyticsV2ApplicationInput KinesisAnalyticsV2ApplicationInputSchema -kavaiInputSchema = lens _kinesisAnalyticsV2ApplicationInputInputSchema (\s a -> s { _kinesisAnalyticsV2ApplicationInputInputSchema = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-input.html#cfn-kinesisanalyticsv2-application-input-kinesisfirehoseinput -kavaiKinesisFirehoseInput :: Lens' KinesisAnalyticsV2ApplicationInput (Maybe KinesisAnalyticsV2ApplicationKinesisFirehoseInput) -kavaiKinesisFirehoseInput = lens _kinesisAnalyticsV2ApplicationInputKinesisFirehoseInput (\s a -> s { _kinesisAnalyticsV2ApplicationInputKinesisFirehoseInput = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-input.html#cfn-kinesisanalyticsv2-application-input-kinesisstreamsinput -kavaiKinesisStreamsInput :: Lens' KinesisAnalyticsV2ApplicationInput (Maybe KinesisAnalyticsV2ApplicationKinesisStreamsInput) -kavaiKinesisStreamsInput = lens _kinesisAnalyticsV2ApplicationInputKinesisStreamsInput (\s a -> s { _kinesisAnalyticsV2ApplicationInputKinesisStreamsInput = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-input.html#cfn-kinesisanalyticsv2-application-input-nameprefix -kavaiNamePrefix :: Lens' KinesisAnalyticsV2ApplicationInput (Val Text) -kavaiNamePrefix = lens _kinesisAnalyticsV2ApplicationInputNamePrefix (\s a -> s { _kinesisAnalyticsV2ApplicationInputNamePrefix = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationInputLambdaProcessor.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationInputLambdaProcessor.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationInputLambdaProcessor.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-inputlambdaprocessor.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputLambdaProcessor where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationInputLambdaProcessor. See --- 'kinesisAnalyticsV2ApplicationInputLambdaProcessor' for a more convenient --- constructor. -data KinesisAnalyticsV2ApplicationInputLambdaProcessor = - KinesisAnalyticsV2ApplicationInputLambdaProcessor - { _kinesisAnalyticsV2ApplicationInputLambdaProcessorResourceARN :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationInputLambdaProcessor where - toJSON KinesisAnalyticsV2ApplicationInputLambdaProcessor{..} = - object $ - catMaybes - [ (Just . ("ResourceARN",) . toJSON) _kinesisAnalyticsV2ApplicationInputLambdaProcessorResourceARN - ] - --- | Constructor for 'KinesisAnalyticsV2ApplicationInputLambdaProcessor' --- containing required fields as arguments. -kinesisAnalyticsV2ApplicationInputLambdaProcessor - :: Val Text -- ^ 'kavailpResourceARN' - -> KinesisAnalyticsV2ApplicationInputLambdaProcessor -kinesisAnalyticsV2ApplicationInputLambdaProcessor resourceARNarg = - KinesisAnalyticsV2ApplicationInputLambdaProcessor - { _kinesisAnalyticsV2ApplicationInputLambdaProcessorResourceARN = resourceARNarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-inputlambdaprocessor.html#cfn-kinesisanalyticsv2-application-inputlambdaprocessor-resourcearn -kavailpResourceARN :: Lens' KinesisAnalyticsV2ApplicationInputLambdaProcessor (Val Text) -kavailpResourceARN = lens _kinesisAnalyticsV2ApplicationInputLambdaProcessorResourceARN (\s a -> s { _kinesisAnalyticsV2ApplicationInputLambdaProcessorResourceARN = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationInputParallelism.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationInputParallelism.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationInputParallelism.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-inputparallelism.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputParallelism where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationInputParallelism. See --- 'kinesisAnalyticsV2ApplicationInputParallelism' for a more convenient --- constructor. -data KinesisAnalyticsV2ApplicationInputParallelism = - KinesisAnalyticsV2ApplicationInputParallelism - { _kinesisAnalyticsV2ApplicationInputParallelismCount :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationInputParallelism where - toJSON KinesisAnalyticsV2ApplicationInputParallelism{..} = - object $ - catMaybes - [ fmap (("Count",) . toJSON) _kinesisAnalyticsV2ApplicationInputParallelismCount - ] - --- | Constructor for 'KinesisAnalyticsV2ApplicationInputParallelism' --- containing required fields as arguments. -kinesisAnalyticsV2ApplicationInputParallelism - :: KinesisAnalyticsV2ApplicationInputParallelism -kinesisAnalyticsV2ApplicationInputParallelism = - KinesisAnalyticsV2ApplicationInputParallelism - { _kinesisAnalyticsV2ApplicationInputParallelismCount = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-inputparallelism.html#cfn-kinesisanalyticsv2-application-inputparallelism-count -kavaipCount :: Lens' KinesisAnalyticsV2ApplicationInputParallelism (Maybe (Val Integer)) -kavaipCount = lens _kinesisAnalyticsV2ApplicationInputParallelismCount (\s a -> s { _kinesisAnalyticsV2ApplicationInputParallelismCount = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationInputProcessingConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationInputProcessingConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationInputProcessingConfiguration.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-inputprocessingconfiguration.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputProcessingConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputLambdaProcessor - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationInputProcessingConfiguration. See --- 'kinesisAnalyticsV2ApplicationInputProcessingConfiguration' for a more --- convenient constructor. -data KinesisAnalyticsV2ApplicationInputProcessingConfiguration = - KinesisAnalyticsV2ApplicationInputProcessingConfiguration - { _kinesisAnalyticsV2ApplicationInputProcessingConfigurationInputLambdaProcessor :: Maybe KinesisAnalyticsV2ApplicationInputLambdaProcessor - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationInputProcessingConfiguration where - toJSON KinesisAnalyticsV2ApplicationInputProcessingConfiguration{..} = - object $ - catMaybes - [ fmap (("InputLambdaProcessor",) . toJSON) _kinesisAnalyticsV2ApplicationInputProcessingConfigurationInputLambdaProcessor - ] - --- | Constructor for --- 'KinesisAnalyticsV2ApplicationInputProcessingConfiguration' containing --- required fields as arguments. -kinesisAnalyticsV2ApplicationInputProcessingConfiguration - :: KinesisAnalyticsV2ApplicationInputProcessingConfiguration -kinesisAnalyticsV2ApplicationInputProcessingConfiguration = - KinesisAnalyticsV2ApplicationInputProcessingConfiguration - { _kinesisAnalyticsV2ApplicationInputProcessingConfigurationInputLambdaProcessor = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-inputprocessingconfiguration.html#cfn-kinesisanalyticsv2-application-inputprocessingconfiguration-inputlambdaprocessor -kavaipcInputLambdaProcessor :: Lens' KinesisAnalyticsV2ApplicationInputProcessingConfiguration (Maybe KinesisAnalyticsV2ApplicationInputLambdaProcessor) -kavaipcInputLambdaProcessor = lens _kinesisAnalyticsV2ApplicationInputProcessingConfigurationInputLambdaProcessor (\s a -> s { _kinesisAnalyticsV2ApplicationInputProcessingConfigurationInputLambdaProcessor = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationInputSchema.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationInputSchema.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationInputSchema.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-inputschema.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputSchema where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationRecordColumn -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationRecordFormat - --- | Full data type definition for KinesisAnalyticsV2ApplicationInputSchema. --- See 'kinesisAnalyticsV2ApplicationInputSchema' for a more convenient --- constructor. -data KinesisAnalyticsV2ApplicationInputSchema = - KinesisAnalyticsV2ApplicationInputSchema - { _kinesisAnalyticsV2ApplicationInputSchemaRecordColumns :: [KinesisAnalyticsV2ApplicationRecordColumn] - , _kinesisAnalyticsV2ApplicationInputSchemaRecordEncoding :: Maybe (Val Text) - , _kinesisAnalyticsV2ApplicationInputSchemaRecordFormat :: KinesisAnalyticsV2ApplicationRecordFormat - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationInputSchema where - toJSON KinesisAnalyticsV2ApplicationInputSchema{..} = - object $ - catMaybes - [ (Just . ("RecordColumns",) . toJSON) _kinesisAnalyticsV2ApplicationInputSchemaRecordColumns - , fmap (("RecordEncoding",) . toJSON) _kinesisAnalyticsV2ApplicationInputSchemaRecordEncoding - , (Just . ("RecordFormat",) . toJSON) _kinesisAnalyticsV2ApplicationInputSchemaRecordFormat - ] - --- | Constructor for 'KinesisAnalyticsV2ApplicationInputSchema' containing --- required fields as arguments. -kinesisAnalyticsV2ApplicationInputSchema - :: [KinesisAnalyticsV2ApplicationRecordColumn] -- ^ 'kavaisRecordColumns' - -> KinesisAnalyticsV2ApplicationRecordFormat -- ^ 'kavaisRecordFormat' - -> KinesisAnalyticsV2ApplicationInputSchema -kinesisAnalyticsV2ApplicationInputSchema recordColumnsarg recordFormatarg = - KinesisAnalyticsV2ApplicationInputSchema - { _kinesisAnalyticsV2ApplicationInputSchemaRecordColumns = recordColumnsarg - , _kinesisAnalyticsV2ApplicationInputSchemaRecordEncoding = Nothing - , _kinesisAnalyticsV2ApplicationInputSchemaRecordFormat = recordFormatarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-inputschema.html#cfn-kinesisanalyticsv2-application-inputschema-recordcolumns -kavaisRecordColumns :: Lens' KinesisAnalyticsV2ApplicationInputSchema [KinesisAnalyticsV2ApplicationRecordColumn] -kavaisRecordColumns = lens _kinesisAnalyticsV2ApplicationInputSchemaRecordColumns (\s a -> s { _kinesisAnalyticsV2ApplicationInputSchemaRecordColumns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-inputschema.html#cfn-kinesisanalyticsv2-application-inputschema-recordencoding -kavaisRecordEncoding :: Lens' KinesisAnalyticsV2ApplicationInputSchema (Maybe (Val Text)) -kavaisRecordEncoding = lens _kinesisAnalyticsV2ApplicationInputSchemaRecordEncoding (\s a -> s { _kinesisAnalyticsV2ApplicationInputSchemaRecordEncoding = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-inputschema.html#cfn-kinesisanalyticsv2-application-inputschema-recordformat -kavaisRecordFormat :: Lens' KinesisAnalyticsV2ApplicationInputSchema KinesisAnalyticsV2ApplicationRecordFormat -kavaisRecordFormat = lens _kinesisAnalyticsV2ApplicationInputSchemaRecordFormat (\s a -> s { _kinesisAnalyticsV2ApplicationInputSchemaRecordFormat = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationJSONMappingParameters.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationJSONMappingParameters.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationJSONMappingParameters.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-jsonmappingparameters.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationJSONMappingParameters where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationJSONMappingParameters. See --- 'kinesisAnalyticsV2ApplicationJSONMappingParameters' for a more --- convenient constructor. -data KinesisAnalyticsV2ApplicationJSONMappingParameters = - KinesisAnalyticsV2ApplicationJSONMappingParameters - { _kinesisAnalyticsV2ApplicationJSONMappingParametersRecordRowPath :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationJSONMappingParameters where - toJSON KinesisAnalyticsV2ApplicationJSONMappingParameters{..} = - object $ - catMaybes - [ (Just . ("RecordRowPath",) . toJSON) _kinesisAnalyticsV2ApplicationJSONMappingParametersRecordRowPath - ] - --- | Constructor for 'KinesisAnalyticsV2ApplicationJSONMappingParameters' --- containing required fields as arguments. -kinesisAnalyticsV2ApplicationJSONMappingParameters - :: Val Text -- ^ 'kavajsonmpRecordRowPath' - -> KinesisAnalyticsV2ApplicationJSONMappingParameters -kinesisAnalyticsV2ApplicationJSONMappingParameters recordRowPatharg = - KinesisAnalyticsV2ApplicationJSONMappingParameters - { _kinesisAnalyticsV2ApplicationJSONMappingParametersRecordRowPath = recordRowPatharg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-jsonmappingparameters.html#cfn-kinesisanalyticsv2-application-jsonmappingparameters-recordrowpath -kavajsonmpRecordRowPath :: Lens' KinesisAnalyticsV2ApplicationJSONMappingParameters (Val Text) -kavajsonmpRecordRowPath = lens _kinesisAnalyticsV2ApplicationJSONMappingParametersRecordRowPath (\s a -> s { _kinesisAnalyticsV2ApplicationJSONMappingParametersRecordRowPath = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationKinesisFirehoseInput.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationKinesisFirehoseInput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationKinesisFirehoseInput.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-kinesisfirehoseinput.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationKinesisFirehoseInput where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationKinesisFirehoseInput. See --- 'kinesisAnalyticsV2ApplicationKinesisFirehoseInput' for a more convenient --- constructor. -data KinesisAnalyticsV2ApplicationKinesisFirehoseInput = - KinesisAnalyticsV2ApplicationKinesisFirehoseInput - { _kinesisAnalyticsV2ApplicationKinesisFirehoseInputResourceARN :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationKinesisFirehoseInput where - toJSON KinesisAnalyticsV2ApplicationKinesisFirehoseInput{..} = - object $ - catMaybes - [ (Just . ("ResourceARN",) . toJSON) _kinesisAnalyticsV2ApplicationKinesisFirehoseInputResourceARN - ] - --- | Constructor for 'KinesisAnalyticsV2ApplicationKinesisFirehoseInput' --- containing required fields as arguments. -kinesisAnalyticsV2ApplicationKinesisFirehoseInput - :: Val Text -- ^ 'kavakfiResourceARN' - -> KinesisAnalyticsV2ApplicationKinesisFirehoseInput -kinesisAnalyticsV2ApplicationKinesisFirehoseInput resourceARNarg = - KinesisAnalyticsV2ApplicationKinesisFirehoseInput - { _kinesisAnalyticsV2ApplicationKinesisFirehoseInputResourceARN = resourceARNarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-kinesisfirehoseinput.html#cfn-kinesisanalyticsv2-application-kinesisfirehoseinput-resourcearn -kavakfiResourceARN :: Lens' KinesisAnalyticsV2ApplicationKinesisFirehoseInput (Val Text) -kavakfiResourceARN = lens _kinesisAnalyticsV2ApplicationKinesisFirehoseInputResourceARN (\s a -> s { _kinesisAnalyticsV2ApplicationKinesisFirehoseInputResourceARN = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationKinesisStreamsInput.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationKinesisStreamsInput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationKinesisStreamsInput.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-kinesisstreamsinput.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationKinesisStreamsInput where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationKinesisStreamsInput. See --- 'kinesisAnalyticsV2ApplicationKinesisStreamsInput' for a more convenient --- constructor. -data KinesisAnalyticsV2ApplicationKinesisStreamsInput = - KinesisAnalyticsV2ApplicationKinesisStreamsInput - { _kinesisAnalyticsV2ApplicationKinesisStreamsInputResourceARN :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationKinesisStreamsInput where - toJSON KinesisAnalyticsV2ApplicationKinesisStreamsInput{..} = - object $ - catMaybes - [ (Just . ("ResourceARN",) . toJSON) _kinesisAnalyticsV2ApplicationKinesisStreamsInputResourceARN - ] - --- | Constructor for 'KinesisAnalyticsV2ApplicationKinesisStreamsInput' --- containing required fields as arguments. -kinesisAnalyticsV2ApplicationKinesisStreamsInput - :: Val Text -- ^ 'kavaksiResourceARN' - -> KinesisAnalyticsV2ApplicationKinesisStreamsInput -kinesisAnalyticsV2ApplicationKinesisStreamsInput resourceARNarg = - KinesisAnalyticsV2ApplicationKinesisStreamsInput - { _kinesisAnalyticsV2ApplicationKinesisStreamsInputResourceARN = resourceARNarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-kinesisstreamsinput.html#cfn-kinesisanalyticsv2-application-kinesisstreamsinput-resourcearn -kavaksiResourceARN :: Lens' KinesisAnalyticsV2ApplicationKinesisStreamsInput (Val Text) -kavaksiResourceARN = lens _kinesisAnalyticsV2ApplicationKinesisStreamsInputResourceARN (\s a -> s { _kinesisAnalyticsV2ApplicationKinesisStreamsInputResourceARN = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationMappingParameters.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationMappingParameters.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationMappingParameters.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-mappingparameters.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationMappingParameters where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCSVMappingParameters -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationJSONMappingParameters - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationMappingParameters. See --- 'kinesisAnalyticsV2ApplicationMappingParameters' for a more convenient --- constructor. -data KinesisAnalyticsV2ApplicationMappingParameters = - KinesisAnalyticsV2ApplicationMappingParameters - { _kinesisAnalyticsV2ApplicationMappingParametersCSVMappingParameters :: Maybe KinesisAnalyticsV2ApplicationCSVMappingParameters - , _kinesisAnalyticsV2ApplicationMappingParametersJSONMappingParameters :: Maybe KinesisAnalyticsV2ApplicationJSONMappingParameters - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationMappingParameters where - toJSON KinesisAnalyticsV2ApplicationMappingParameters{..} = - object $ - catMaybes - [ fmap (("CSVMappingParameters",) . toJSON) _kinesisAnalyticsV2ApplicationMappingParametersCSVMappingParameters - , fmap (("JSONMappingParameters",) . toJSON) _kinesisAnalyticsV2ApplicationMappingParametersJSONMappingParameters - ] - --- | Constructor for 'KinesisAnalyticsV2ApplicationMappingParameters' --- containing required fields as arguments. -kinesisAnalyticsV2ApplicationMappingParameters - :: KinesisAnalyticsV2ApplicationMappingParameters -kinesisAnalyticsV2ApplicationMappingParameters = - KinesisAnalyticsV2ApplicationMappingParameters - { _kinesisAnalyticsV2ApplicationMappingParametersCSVMappingParameters = Nothing - , _kinesisAnalyticsV2ApplicationMappingParametersJSONMappingParameters = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-mappingparameters.html#cfn-kinesisanalyticsv2-application-mappingparameters-csvmappingparameters -kavampCSVMappingParameters :: Lens' KinesisAnalyticsV2ApplicationMappingParameters (Maybe KinesisAnalyticsV2ApplicationCSVMappingParameters) -kavampCSVMappingParameters = lens _kinesisAnalyticsV2ApplicationMappingParametersCSVMappingParameters (\s a -> s { _kinesisAnalyticsV2ApplicationMappingParametersCSVMappingParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-mappingparameters.html#cfn-kinesisanalyticsv2-application-mappingparameters-jsonmappingparameters -kavampJSONMappingParameters :: Lens' KinesisAnalyticsV2ApplicationMappingParameters (Maybe KinesisAnalyticsV2ApplicationJSONMappingParameters) -kavampJSONMappingParameters = lens _kinesisAnalyticsV2ApplicationMappingParametersJSONMappingParameters (\s a -> s { _kinesisAnalyticsV2ApplicationMappingParametersJSONMappingParameters = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationMonitoringConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationMonitoringConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationMonitoringConfiguration.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-monitoringconfiguration.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationMonitoringConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationMonitoringConfiguration. See --- 'kinesisAnalyticsV2ApplicationMonitoringConfiguration' for a more --- convenient constructor. -data KinesisAnalyticsV2ApplicationMonitoringConfiguration = - KinesisAnalyticsV2ApplicationMonitoringConfiguration - { _kinesisAnalyticsV2ApplicationMonitoringConfigurationConfigurationType :: Val Text - , _kinesisAnalyticsV2ApplicationMonitoringConfigurationLogLevel :: Maybe (Val Text) - , _kinesisAnalyticsV2ApplicationMonitoringConfigurationMetricsLevel :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationMonitoringConfiguration where - toJSON KinesisAnalyticsV2ApplicationMonitoringConfiguration{..} = - object $ - catMaybes - [ (Just . ("ConfigurationType",) . toJSON) _kinesisAnalyticsV2ApplicationMonitoringConfigurationConfigurationType - , fmap (("LogLevel",) . toJSON) _kinesisAnalyticsV2ApplicationMonitoringConfigurationLogLevel - , fmap (("MetricsLevel",) . toJSON) _kinesisAnalyticsV2ApplicationMonitoringConfigurationMetricsLevel - ] - --- | Constructor for 'KinesisAnalyticsV2ApplicationMonitoringConfiguration' --- containing required fields as arguments. -kinesisAnalyticsV2ApplicationMonitoringConfiguration - :: Val Text -- ^ 'kavamcConfigurationType' - -> KinesisAnalyticsV2ApplicationMonitoringConfiguration -kinesisAnalyticsV2ApplicationMonitoringConfiguration configurationTypearg = - KinesisAnalyticsV2ApplicationMonitoringConfiguration - { _kinesisAnalyticsV2ApplicationMonitoringConfigurationConfigurationType = configurationTypearg - , _kinesisAnalyticsV2ApplicationMonitoringConfigurationLogLevel = Nothing - , _kinesisAnalyticsV2ApplicationMonitoringConfigurationMetricsLevel = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-monitoringconfiguration.html#cfn-kinesisanalyticsv2-application-monitoringconfiguration-configurationtype -kavamcConfigurationType :: Lens' KinesisAnalyticsV2ApplicationMonitoringConfiguration (Val Text) -kavamcConfigurationType = lens _kinesisAnalyticsV2ApplicationMonitoringConfigurationConfigurationType (\s a -> s { _kinesisAnalyticsV2ApplicationMonitoringConfigurationConfigurationType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-monitoringconfiguration.html#cfn-kinesisanalyticsv2-application-monitoringconfiguration-loglevel -kavamcLogLevel :: Lens' KinesisAnalyticsV2ApplicationMonitoringConfiguration (Maybe (Val Text)) -kavamcLogLevel = lens _kinesisAnalyticsV2ApplicationMonitoringConfigurationLogLevel (\s a -> s { _kinesisAnalyticsV2ApplicationMonitoringConfigurationLogLevel = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-monitoringconfiguration.html#cfn-kinesisanalyticsv2-application-monitoringconfiguration-metricslevel -kavamcMetricsLevel :: Lens' KinesisAnalyticsV2ApplicationMonitoringConfiguration (Maybe (Val Text)) -kavamcMetricsLevel = lens _kinesisAnalyticsV2ApplicationMonitoringConfigurationMetricsLevel (\s a -> s { _kinesisAnalyticsV2ApplicationMonitoringConfigurationMetricsLevel = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationOutputDestinationSchema.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationOutputDestinationSchema.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationOutputDestinationSchema.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationoutput-destinationschema.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputDestinationSchema where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationOutputDestinationSchema. See --- 'kinesisAnalyticsV2ApplicationOutputDestinationSchema' for a more --- convenient constructor. -data KinesisAnalyticsV2ApplicationOutputDestinationSchema = - KinesisAnalyticsV2ApplicationOutputDestinationSchema - { _kinesisAnalyticsV2ApplicationOutputDestinationSchemaRecordFormatType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationOutputDestinationSchema where - toJSON KinesisAnalyticsV2ApplicationOutputDestinationSchema{..} = - object $ - catMaybes - [ fmap (("RecordFormatType",) . toJSON) _kinesisAnalyticsV2ApplicationOutputDestinationSchemaRecordFormatType - ] - --- | Constructor for 'KinesisAnalyticsV2ApplicationOutputDestinationSchema' --- containing required fields as arguments. -kinesisAnalyticsV2ApplicationOutputDestinationSchema - :: KinesisAnalyticsV2ApplicationOutputDestinationSchema -kinesisAnalyticsV2ApplicationOutputDestinationSchema = - KinesisAnalyticsV2ApplicationOutputDestinationSchema - { _kinesisAnalyticsV2ApplicationOutputDestinationSchemaRecordFormatType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationoutput-destinationschema.html#cfn-kinesisanalyticsv2-applicationoutput-destinationschema-recordformattype -kavaodsRecordFormatType :: Lens' KinesisAnalyticsV2ApplicationOutputDestinationSchema (Maybe (Val Text)) -kavaodsRecordFormatType = lens _kinesisAnalyticsV2ApplicationOutputDestinationSchemaRecordFormatType (\s a -> s { _kinesisAnalyticsV2ApplicationOutputDestinationSchemaRecordFormatType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput.hs +++ /dev/null @@ -1,42 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationoutput-kinesisfirehoseoutput.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput. See --- 'kinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput' for a more --- convenient constructor. -data KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput = - KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput - { _kinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutputResourceARN :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput where - toJSON KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput{..} = - object $ - catMaybes - [ (Just . ("ResourceARN",) . toJSON) _kinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutputResourceARN - ] - --- | Constructor for --- 'KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput' containing --- required fields as arguments. -kinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput - :: Val Text -- ^ 'kavaokfoResourceARN' - -> KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput -kinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput resourceARNarg = - KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput - { _kinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutputResourceARN = resourceARNarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationoutput-kinesisfirehoseoutput.html#cfn-kinesisanalyticsv2-applicationoutput-kinesisfirehoseoutput-resourcearn -kavaokfoResourceARN :: Lens' KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput (Val Text) -kavaokfoResourceARN = lens _kinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutputResourceARN (\s a -> s { _kinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutputResourceARN = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationoutput-kinesisstreamsoutput.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput. See --- 'kinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput' for a more --- convenient constructor. -data KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput = - KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput - { _kinesisAnalyticsV2ApplicationOutputKinesisStreamsOutputResourceARN :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput where - toJSON KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput{..} = - object $ - catMaybes - [ (Just . ("ResourceARN",) . toJSON) _kinesisAnalyticsV2ApplicationOutputKinesisStreamsOutputResourceARN - ] - --- | Constructor for 'KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput' --- containing required fields as arguments. -kinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput - :: Val Text -- ^ 'kavaoksoResourceARN' - -> KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput -kinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput resourceARNarg = - KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput - { _kinesisAnalyticsV2ApplicationOutputKinesisStreamsOutputResourceARN = resourceARNarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationoutput-kinesisstreamsoutput.html#cfn-kinesisanalyticsv2-applicationoutput-kinesisstreamsoutput-resourcearn -kavaoksoResourceARN :: Lens' KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput (Val Text) -kavaoksoResourceARN = lens _kinesisAnalyticsV2ApplicationOutputKinesisStreamsOutputResourceARN (\s a -> s { _kinesisAnalyticsV2ApplicationOutputKinesisStreamsOutputResourceARN = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationOutputLambdaOutput.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationOutputLambdaOutput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationOutputLambdaOutput.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationoutput-lambdaoutput.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputLambdaOutput where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationOutputLambdaOutput. See --- 'kinesisAnalyticsV2ApplicationOutputLambdaOutput' for a more convenient --- constructor. -data KinesisAnalyticsV2ApplicationOutputLambdaOutput = - KinesisAnalyticsV2ApplicationOutputLambdaOutput - { _kinesisAnalyticsV2ApplicationOutputLambdaOutputResourceARN :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationOutputLambdaOutput where - toJSON KinesisAnalyticsV2ApplicationOutputLambdaOutput{..} = - object $ - catMaybes - [ (Just . ("ResourceARN",) . toJSON) _kinesisAnalyticsV2ApplicationOutputLambdaOutputResourceARN - ] - --- | Constructor for 'KinesisAnalyticsV2ApplicationOutputLambdaOutput' --- containing required fields as arguments. -kinesisAnalyticsV2ApplicationOutputLambdaOutput - :: Val Text -- ^ 'kavaoloResourceARN' - -> KinesisAnalyticsV2ApplicationOutputLambdaOutput -kinesisAnalyticsV2ApplicationOutputLambdaOutput resourceARNarg = - KinesisAnalyticsV2ApplicationOutputLambdaOutput - { _kinesisAnalyticsV2ApplicationOutputLambdaOutputResourceARN = resourceARNarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationoutput-lambdaoutput.html#cfn-kinesisanalyticsv2-applicationoutput-lambdaoutput-resourcearn -kavaoloResourceARN :: Lens' KinesisAnalyticsV2ApplicationOutputLambdaOutput (Val Text) -kavaoloResourceARN = lens _kinesisAnalyticsV2ApplicationOutputLambdaOutputResourceARN (\s a -> s { _kinesisAnalyticsV2ApplicationOutputLambdaOutputResourceARN = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationOutputOutput.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationOutputOutput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationOutputOutput.hs +++ /dev/null @@ -1,71 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationoutput-output.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputOutput where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputDestinationSchema -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputLambdaOutput - --- | Full data type definition for KinesisAnalyticsV2ApplicationOutputOutput. --- See 'kinesisAnalyticsV2ApplicationOutputOutput' for a more convenient --- constructor. -data KinesisAnalyticsV2ApplicationOutputOutput = - KinesisAnalyticsV2ApplicationOutputOutput - { _kinesisAnalyticsV2ApplicationOutputOutputDestinationSchema :: KinesisAnalyticsV2ApplicationOutputDestinationSchema - , _kinesisAnalyticsV2ApplicationOutputOutputKinesisFirehoseOutput :: Maybe KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput - , _kinesisAnalyticsV2ApplicationOutputOutputKinesisStreamsOutput :: Maybe KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput - , _kinesisAnalyticsV2ApplicationOutputOutputLambdaOutput :: Maybe KinesisAnalyticsV2ApplicationOutputLambdaOutput - , _kinesisAnalyticsV2ApplicationOutputOutputName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationOutputOutput where - toJSON KinesisAnalyticsV2ApplicationOutputOutput{..} = - object $ - catMaybes - [ (Just . ("DestinationSchema",) . toJSON) _kinesisAnalyticsV2ApplicationOutputOutputDestinationSchema - , fmap (("KinesisFirehoseOutput",) . toJSON) _kinesisAnalyticsV2ApplicationOutputOutputKinesisFirehoseOutput - , fmap (("KinesisStreamsOutput",) . toJSON) _kinesisAnalyticsV2ApplicationOutputOutputKinesisStreamsOutput - , fmap (("LambdaOutput",) . toJSON) _kinesisAnalyticsV2ApplicationOutputOutputLambdaOutput - , fmap (("Name",) . toJSON) _kinesisAnalyticsV2ApplicationOutputOutputName - ] - --- | Constructor for 'KinesisAnalyticsV2ApplicationOutputOutput' containing --- required fields as arguments. -kinesisAnalyticsV2ApplicationOutputOutput - :: KinesisAnalyticsV2ApplicationOutputDestinationSchema -- ^ 'kavaooDestinationSchema' - -> KinesisAnalyticsV2ApplicationOutputOutput -kinesisAnalyticsV2ApplicationOutputOutput destinationSchemaarg = - KinesisAnalyticsV2ApplicationOutputOutput - { _kinesisAnalyticsV2ApplicationOutputOutputDestinationSchema = destinationSchemaarg - , _kinesisAnalyticsV2ApplicationOutputOutputKinesisFirehoseOutput = Nothing - , _kinesisAnalyticsV2ApplicationOutputOutputKinesisStreamsOutput = Nothing - , _kinesisAnalyticsV2ApplicationOutputOutputLambdaOutput = Nothing - , _kinesisAnalyticsV2ApplicationOutputOutputName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationoutput-output.html#cfn-kinesisanalyticsv2-applicationoutput-output-destinationschema -kavaooDestinationSchema :: Lens' KinesisAnalyticsV2ApplicationOutputOutput KinesisAnalyticsV2ApplicationOutputDestinationSchema -kavaooDestinationSchema = lens _kinesisAnalyticsV2ApplicationOutputOutputDestinationSchema (\s a -> s { _kinesisAnalyticsV2ApplicationOutputOutputDestinationSchema = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationoutput-output.html#cfn-kinesisanalyticsv2-applicationoutput-output-kinesisfirehoseoutput -kavaooKinesisFirehoseOutput :: Lens' KinesisAnalyticsV2ApplicationOutputOutput (Maybe KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput) -kavaooKinesisFirehoseOutput = lens _kinesisAnalyticsV2ApplicationOutputOutputKinesisFirehoseOutput (\s a -> s { _kinesisAnalyticsV2ApplicationOutputOutputKinesisFirehoseOutput = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationoutput-output.html#cfn-kinesisanalyticsv2-applicationoutput-output-kinesisstreamsoutput -kavaooKinesisStreamsOutput :: Lens' KinesisAnalyticsV2ApplicationOutputOutput (Maybe KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput) -kavaooKinesisStreamsOutput = lens _kinesisAnalyticsV2ApplicationOutputOutputKinesisStreamsOutput (\s a -> s { _kinesisAnalyticsV2ApplicationOutputOutputKinesisStreamsOutput = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationoutput-output.html#cfn-kinesisanalyticsv2-applicationoutput-output-lambdaoutput -kavaooLambdaOutput :: Lens' KinesisAnalyticsV2ApplicationOutputOutput (Maybe KinesisAnalyticsV2ApplicationOutputLambdaOutput) -kavaooLambdaOutput = lens _kinesisAnalyticsV2ApplicationOutputOutputLambdaOutput (\s a -> s { _kinesisAnalyticsV2ApplicationOutputOutputLambdaOutput = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationoutput-output.html#cfn-kinesisanalyticsv2-applicationoutput-output-name -kavaooName :: Lens' KinesisAnalyticsV2ApplicationOutputOutput (Maybe (Val Text)) -kavaooName = lens _kinesisAnalyticsV2ApplicationOutputOutputName (\s a -> s { _kinesisAnalyticsV2ApplicationOutputOutputName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationParallelismConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationParallelismConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationParallelismConfiguration.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-parallelismconfiguration.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationParallelismConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationParallelismConfiguration. See --- 'kinesisAnalyticsV2ApplicationParallelismConfiguration' for a more --- convenient constructor. -data KinesisAnalyticsV2ApplicationParallelismConfiguration = - KinesisAnalyticsV2ApplicationParallelismConfiguration - { _kinesisAnalyticsV2ApplicationParallelismConfigurationAutoScalingEnabled :: Maybe (Val Bool) - , _kinesisAnalyticsV2ApplicationParallelismConfigurationConfigurationType :: Val Text - , _kinesisAnalyticsV2ApplicationParallelismConfigurationParallelism :: Maybe (Val Integer) - , _kinesisAnalyticsV2ApplicationParallelismConfigurationParallelismPerKPU :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationParallelismConfiguration where - toJSON KinesisAnalyticsV2ApplicationParallelismConfiguration{..} = - object $ - catMaybes - [ fmap (("AutoScalingEnabled",) . toJSON) _kinesisAnalyticsV2ApplicationParallelismConfigurationAutoScalingEnabled - , (Just . ("ConfigurationType",) . toJSON) _kinesisAnalyticsV2ApplicationParallelismConfigurationConfigurationType - , fmap (("Parallelism",) . toJSON) _kinesisAnalyticsV2ApplicationParallelismConfigurationParallelism - , fmap (("ParallelismPerKPU",) . toJSON) _kinesisAnalyticsV2ApplicationParallelismConfigurationParallelismPerKPU - ] - --- | Constructor for 'KinesisAnalyticsV2ApplicationParallelismConfiguration' --- containing required fields as arguments. -kinesisAnalyticsV2ApplicationParallelismConfiguration - :: Val Text -- ^ 'kavapcConfigurationType' - -> KinesisAnalyticsV2ApplicationParallelismConfiguration -kinesisAnalyticsV2ApplicationParallelismConfiguration configurationTypearg = - KinesisAnalyticsV2ApplicationParallelismConfiguration - { _kinesisAnalyticsV2ApplicationParallelismConfigurationAutoScalingEnabled = Nothing - , _kinesisAnalyticsV2ApplicationParallelismConfigurationConfigurationType = configurationTypearg - , _kinesisAnalyticsV2ApplicationParallelismConfigurationParallelism = Nothing - , _kinesisAnalyticsV2ApplicationParallelismConfigurationParallelismPerKPU = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-parallelismconfiguration.html#cfn-kinesisanalyticsv2-application-parallelismconfiguration-autoscalingenabled -kavapcAutoScalingEnabled :: Lens' KinesisAnalyticsV2ApplicationParallelismConfiguration (Maybe (Val Bool)) -kavapcAutoScalingEnabled = lens _kinesisAnalyticsV2ApplicationParallelismConfigurationAutoScalingEnabled (\s a -> s { _kinesisAnalyticsV2ApplicationParallelismConfigurationAutoScalingEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-parallelismconfiguration.html#cfn-kinesisanalyticsv2-application-parallelismconfiguration-configurationtype -kavapcConfigurationType :: Lens' KinesisAnalyticsV2ApplicationParallelismConfiguration (Val Text) -kavapcConfigurationType = lens _kinesisAnalyticsV2ApplicationParallelismConfigurationConfigurationType (\s a -> s { _kinesisAnalyticsV2ApplicationParallelismConfigurationConfigurationType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-parallelismconfiguration.html#cfn-kinesisanalyticsv2-application-parallelismconfiguration-parallelism -kavapcParallelism :: Lens' KinesisAnalyticsV2ApplicationParallelismConfiguration (Maybe (Val Integer)) -kavapcParallelism = lens _kinesisAnalyticsV2ApplicationParallelismConfigurationParallelism (\s a -> s { _kinesisAnalyticsV2ApplicationParallelismConfigurationParallelism = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-parallelismconfiguration.html#cfn-kinesisanalyticsv2-application-parallelismconfiguration-parallelismperkpu -kavapcParallelismPerKPU :: Lens' KinesisAnalyticsV2ApplicationParallelismConfiguration (Maybe (Val Integer)) -kavapcParallelismPerKPU = lens _kinesisAnalyticsV2ApplicationParallelismConfigurationParallelismPerKPU (\s a -> s { _kinesisAnalyticsV2ApplicationParallelismConfigurationParallelismPerKPU = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationPropertyGroup.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationPropertyGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationPropertyGroup.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-propertygroup.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationPropertyGroup where - -import Stratosphere.ResourceImports - - --- | Full data type definition for KinesisAnalyticsV2ApplicationPropertyGroup. --- See 'kinesisAnalyticsV2ApplicationPropertyGroup' for a more convenient --- constructor. -data KinesisAnalyticsV2ApplicationPropertyGroup = - KinesisAnalyticsV2ApplicationPropertyGroup - { _kinesisAnalyticsV2ApplicationPropertyGroupPropertyGroupId :: Maybe (Val Text) - , _kinesisAnalyticsV2ApplicationPropertyGroupPropertyMap :: Maybe Object - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationPropertyGroup where - toJSON KinesisAnalyticsV2ApplicationPropertyGroup{..} = - object $ - catMaybes - [ fmap (("PropertyGroupId",) . toJSON) _kinesisAnalyticsV2ApplicationPropertyGroupPropertyGroupId - , fmap (("PropertyMap",) . toJSON) _kinesisAnalyticsV2ApplicationPropertyGroupPropertyMap - ] - --- | Constructor for 'KinesisAnalyticsV2ApplicationPropertyGroup' containing --- required fields as arguments. -kinesisAnalyticsV2ApplicationPropertyGroup - :: KinesisAnalyticsV2ApplicationPropertyGroup -kinesisAnalyticsV2ApplicationPropertyGroup = - KinesisAnalyticsV2ApplicationPropertyGroup - { _kinesisAnalyticsV2ApplicationPropertyGroupPropertyGroupId = Nothing - , _kinesisAnalyticsV2ApplicationPropertyGroupPropertyMap = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-propertygroup.html#cfn-kinesisanalyticsv2-application-propertygroup-propertygroupid -kavapgPropertyGroupId :: Lens' KinesisAnalyticsV2ApplicationPropertyGroup (Maybe (Val Text)) -kavapgPropertyGroupId = lens _kinesisAnalyticsV2ApplicationPropertyGroupPropertyGroupId (\s a -> s { _kinesisAnalyticsV2ApplicationPropertyGroupPropertyGroupId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-propertygroup.html#cfn-kinesisanalyticsv2-application-propertygroup-propertymap -kavapgPropertyMap :: Lens' KinesisAnalyticsV2ApplicationPropertyGroup (Maybe Object) -kavapgPropertyMap = lens _kinesisAnalyticsV2ApplicationPropertyGroupPropertyMap (\s a -> s { _kinesisAnalyticsV2ApplicationPropertyGroupPropertyMap = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationRecordColumn.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationRecordColumn.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationRecordColumn.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-recordcolumn.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationRecordColumn where - -import Stratosphere.ResourceImports - - --- | Full data type definition for KinesisAnalyticsV2ApplicationRecordColumn. --- See 'kinesisAnalyticsV2ApplicationRecordColumn' for a more convenient --- constructor. -data KinesisAnalyticsV2ApplicationRecordColumn = - KinesisAnalyticsV2ApplicationRecordColumn - { _kinesisAnalyticsV2ApplicationRecordColumnMapping :: Maybe (Val Text) - , _kinesisAnalyticsV2ApplicationRecordColumnName :: Val Text - , _kinesisAnalyticsV2ApplicationRecordColumnSqlType :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationRecordColumn where - toJSON KinesisAnalyticsV2ApplicationRecordColumn{..} = - object $ - catMaybes - [ fmap (("Mapping",) . toJSON) _kinesisAnalyticsV2ApplicationRecordColumnMapping - , (Just . ("Name",) . toJSON) _kinesisAnalyticsV2ApplicationRecordColumnName - , (Just . ("SqlType",) . toJSON) _kinesisAnalyticsV2ApplicationRecordColumnSqlType - ] - --- | Constructor for 'KinesisAnalyticsV2ApplicationRecordColumn' containing --- required fields as arguments. -kinesisAnalyticsV2ApplicationRecordColumn - :: Val Text -- ^ 'kavarcName' - -> Val Text -- ^ 'kavarcSqlType' - -> KinesisAnalyticsV2ApplicationRecordColumn -kinesisAnalyticsV2ApplicationRecordColumn namearg sqlTypearg = - KinesisAnalyticsV2ApplicationRecordColumn - { _kinesisAnalyticsV2ApplicationRecordColumnMapping = Nothing - , _kinesisAnalyticsV2ApplicationRecordColumnName = namearg - , _kinesisAnalyticsV2ApplicationRecordColumnSqlType = sqlTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-recordcolumn.html#cfn-kinesisanalyticsv2-application-recordcolumn-mapping -kavarcMapping :: Lens' KinesisAnalyticsV2ApplicationRecordColumn (Maybe (Val Text)) -kavarcMapping = lens _kinesisAnalyticsV2ApplicationRecordColumnMapping (\s a -> s { _kinesisAnalyticsV2ApplicationRecordColumnMapping = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-recordcolumn.html#cfn-kinesisanalyticsv2-application-recordcolumn-name -kavarcName :: Lens' KinesisAnalyticsV2ApplicationRecordColumn (Val Text) -kavarcName = lens _kinesisAnalyticsV2ApplicationRecordColumnName (\s a -> s { _kinesisAnalyticsV2ApplicationRecordColumnName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-recordcolumn.html#cfn-kinesisanalyticsv2-application-recordcolumn-sqltype -kavarcSqlType :: Lens' KinesisAnalyticsV2ApplicationRecordColumn (Val Text) -kavarcSqlType = lens _kinesisAnalyticsV2ApplicationRecordColumnSqlType (\s a -> s { _kinesisAnalyticsV2ApplicationRecordColumnSqlType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationRecordFormat.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationRecordFormat.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationRecordFormat.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-recordformat.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationRecordFormat where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationMappingParameters - --- | Full data type definition for KinesisAnalyticsV2ApplicationRecordFormat. --- See 'kinesisAnalyticsV2ApplicationRecordFormat' for a more convenient --- constructor. -data KinesisAnalyticsV2ApplicationRecordFormat = - KinesisAnalyticsV2ApplicationRecordFormat - { _kinesisAnalyticsV2ApplicationRecordFormatMappingParameters :: Maybe KinesisAnalyticsV2ApplicationMappingParameters - , _kinesisAnalyticsV2ApplicationRecordFormatRecordFormatType :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationRecordFormat where - toJSON KinesisAnalyticsV2ApplicationRecordFormat{..} = - object $ - catMaybes - [ fmap (("MappingParameters",) . toJSON) _kinesisAnalyticsV2ApplicationRecordFormatMappingParameters - , (Just . ("RecordFormatType",) . toJSON) _kinesisAnalyticsV2ApplicationRecordFormatRecordFormatType - ] - --- | Constructor for 'KinesisAnalyticsV2ApplicationRecordFormat' containing --- required fields as arguments. -kinesisAnalyticsV2ApplicationRecordFormat - :: Val Text -- ^ 'kavarfRecordFormatType' - -> KinesisAnalyticsV2ApplicationRecordFormat -kinesisAnalyticsV2ApplicationRecordFormat recordFormatTypearg = - KinesisAnalyticsV2ApplicationRecordFormat - { _kinesisAnalyticsV2ApplicationRecordFormatMappingParameters = Nothing - , _kinesisAnalyticsV2ApplicationRecordFormatRecordFormatType = recordFormatTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-recordformat.html#cfn-kinesisanalyticsv2-application-recordformat-mappingparameters -kavarfMappingParameters :: Lens' KinesisAnalyticsV2ApplicationRecordFormat (Maybe KinesisAnalyticsV2ApplicationMappingParameters) -kavarfMappingParameters = lens _kinesisAnalyticsV2ApplicationRecordFormatMappingParameters (\s a -> s { _kinesisAnalyticsV2ApplicationRecordFormatMappingParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-recordformat.html#cfn-kinesisanalyticsv2-application-recordformat-recordformattype -kavarfRecordFormatType :: Lens' KinesisAnalyticsV2ApplicationRecordFormat (Val Text) -kavarfRecordFormatType = lens _kinesisAnalyticsV2ApplicationRecordFormatRecordFormatType (\s a -> s { _kinesisAnalyticsV2ApplicationRecordFormatRecordFormatType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-csvmappingparameters.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters. See --- 'kinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters' --- for a more convenient constructor. -data KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters = - KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters - { _kinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParametersRecordColumnDelimiter :: Val Text - , _kinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParametersRecordRowDelimiter :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters where - toJSON KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters{..} = - object $ - catMaybes - [ (Just . ("RecordColumnDelimiter",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParametersRecordColumnDelimiter - , (Just . ("RecordRowDelimiter",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParametersRecordRowDelimiter - ] - --- | Constructor for --- 'KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters' --- containing required fields as arguments. -kinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters - :: Val Text -- ^ 'kavardscsvmpRecordColumnDelimiter' - -> Val Text -- ^ 'kavardscsvmpRecordRowDelimiter' - -> KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters -kinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters recordColumnDelimiterarg recordRowDelimiterarg = - KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters - { _kinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParametersRecordColumnDelimiter = recordColumnDelimiterarg - , _kinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParametersRecordRowDelimiter = recordRowDelimiterarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-csvmappingparameters.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-csvmappingparameters-recordcolumndelimiter -kavardscsvmpRecordColumnDelimiter :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters (Val Text) -kavardscsvmpRecordColumnDelimiter = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParametersRecordColumnDelimiter (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParametersRecordColumnDelimiter = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-csvmappingparameters.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-csvmappingparameters-recordrowdelimiter -kavardscsvmpRecordRowDelimiter :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters (Val Text) -kavardscsvmpRecordRowDelimiter = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParametersRecordRowDelimiter (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParametersRecordRowDelimiter = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters.hs +++ /dev/null @@ -1,43 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-jsonmappingparameters.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters. --- See --- 'kinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters' --- for a more convenient constructor. -data KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters = - KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters - { _kinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParametersRecordRowPath :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters where - toJSON KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters{..} = - object $ - catMaybes - [ (Just . ("RecordRowPath",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParametersRecordRowPath - ] - --- | Constructor for --- 'KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters' --- containing required fields as arguments. -kinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters - :: Val Text -- ^ 'kavardsjsonmpRecordRowPath' - -> KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters -kinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters recordRowPatharg = - KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters - { _kinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParametersRecordRowPath = recordRowPatharg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-jsonmappingparameters.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-jsonmappingparameters-recordrowpath -kavardsjsonmpRecordRowPath :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters (Val Text) -kavardsjsonmpRecordRowPath = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParametersRecordRowPath (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParametersRecordRowPath = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-mappingparameters.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters. See --- 'kinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters' for a --- more convenient constructor. -data KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters = - KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters - { _kinesisAnalyticsV2ApplicationReferenceDataSourceMappingParametersCSVMappingParameters :: Maybe KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters - , _kinesisAnalyticsV2ApplicationReferenceDataSourceMappingParametersJSONMappingParameters :: Maybe KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters where - toJSON KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters{..} = - object $ - catMaybes - [ fmap (("CSVMappingParameters",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceMappingParametersCSVMappingParameters - , fmap (("JSONMappingParameters",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceMappingParametersJSONMappingParameters - ] - --- | Constructor for --- 'KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters' --- containing required fields as arguments. -kinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters - :: KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters -kinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters = - KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters - { _kinesisAnalyticsV2ApplicationReferenceDataSourceMappingParametersCSVMappingParameters = Nothing - , _kinesisAnalyticsV2ApplicationReferenceDataSourceMappingParametersJSONMappingParameters = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-mappingparameters.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-mappingparameters-csvmappingparameters -kavardsmpCSVMappingParameters :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters (Maybe KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters) -kavardsmpCSVMappingParameters = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceMappingParametersCSVMappingParameters (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceMappingParametersCSVMappingParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-mappingparameters.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-mappingparameters-jsonmappingparameters -kavardsmpJSONMappingParameters :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters (Maybe KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters) -kavardsmpJSONMappingParameters = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceMappingParametersJSONMappingParameters (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceMappingParametersJSONMappingParameters = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-recordcolumn.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn. See --- 'kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn' for a more --- convenient constructor. -data KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn = - KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn - { _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnMapping :: Maybe (Val Text) - , _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnName :: Val Text - , _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnSqlType :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn where - toJSON KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn{..} = - object $ - catMaybes - [ fmap (("Mapping",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnMapping - , (Just . ("Name",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnName - , (Just . ("SqlType",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnSqlType - ] - --- | Constructor for --- 'KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn' containing --- required fields as arguments. -kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn - :: Val Text -- ^ 'kavardsrcName' - -> Val Text -- ^ 'kavardsrcSqlType' - -> KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn -kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn namearg sqlTypearg = - KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn - { _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnMapping = Nothing - , _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnName = namearg - , _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnSqlType = sqlTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-recordcolumn.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-recordcolumn-mapping -kavardsrcMapping :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn (Maybe (Val Text)) -kavardsrcMapping = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnMapping (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnMapping = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-recordcolumn.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-recordcolumn-name -kavardsrcName :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn (Val Text) -kavardsrcName = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnName (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-recordcolumn.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-recordcolumn-sqltype -kavardsrcSqlType :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn (Val Text) -kavardsrcSqlType = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnSqlType (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnSqlType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-recordformat.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat. See --- 'kinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat' for a more --- convenient constructor. -data KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat = - KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat - { _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormatMappingParameters :: Maybe KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters - , _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormatRecordFormatType :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat where - toJSON KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat{..} = - object $ - catMaybes - [ fmap (("MappingParameters",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormatMappingParameters - , (Just . ("RecordFormatType",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormatRecordFormatType - ] - --- | Constructor for --- 'KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat' containing --- required fields as arguments. -kinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat - :: Val Text -- ^ 'kavardsrfRecordFormatType' - -> KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat -kinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat recordFormatTypearg = - KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat - { _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormatMappingParameters = Nothing - , _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormatRecordFormatType = recordFormatTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-recordformat.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-recordformat-mappingparameters -kavardsrfMappingParameters :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat (Maybe KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters) -kavardsrfMappingParameters = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormatMappingParameters (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormatMappingParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-recordformat.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-recordformat-recordformattype -kavardsrfRecordFormatType :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat (Val Text) -kavardsrfRecordFormatType = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormatRecordFormatType (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormatRecordFormatType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-referencedatasource.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource. See --- 'kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource' for --- a more convenient constructor. -data KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource = - KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource - { _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceReferenceSchema :: KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema - , _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceS3ReferenceDataSource :: Maybe KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource - , _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceTableName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource where - toJSON KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource{..} = - object $ - catMaybes - [ (Just . ("ReferenceSchema",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceReferenceSchema - , fmap (("S3ReferenceDataSource",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceS3ReferenceDataSource - , fmap (("TableName",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceTableName - ] - --- | Constructor for --- 'KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource' --- containing required fields as arguments. -kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource - :: KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema -- ^ 'kavardsrdsReferenceSchema' - -> KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource -kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource referenceSchemaarg = - KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource - { _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceReferenceSchema = referenceSchemaarg - , _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceS3ReferenceDataSource = Nothing - , _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceTableName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-referencedatasource.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-referencedatasource-referenceschema -kavardsrdsReferenceSchema :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema -kavardsrdsReferenceSchema = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceReferenceSchema (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceReferenceSchema = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-referencedatasource.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-referencedatasource-s3referencedatasource -kavardsrdsS3ReferenceDataSource :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource (Maybe KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource) -kavardsrdsS3ReferenceDataSource = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceS3ReferenceDataSource (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceS3ReferenceDataSource = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-referencedatasource.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-referencedatasource-tablename -kavardsrdsTableName :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource (Maybe (Val Text)) -kavardsrdsTableName = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceTableName (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceTableName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-referenceschema.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema. See --- 'kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema' for a --- more convenient constructor. -data KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema = - KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema - { _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordColumns :: [KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn] - , _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordEncoding :: Maybe (Val Text) - , _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordFormat :: KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema where - toJSON KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema{..} = - object $ - catMaybes - [ (Just . ("RecordColumns",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordColumns - , fmap (("RecordEncoding",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordEncoding - , (Just . ("RecordFormat",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordFormat - ] - --- | Constructor for --- 'KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema' --- containing required fields as arguments. -kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema - :: [KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn] -- ^ 'kavardsrsRecordColumns' - -> KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat -- ^ 'kavardsrsRecordFormat' - -> KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema -kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema recordColumnsarg recordFormatarg = - KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema - { _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordColumns = recordColumnsarg - , _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordEncoding = Nothing - , _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordFormat = recordFormatarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-referenceschema.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-referenceschema-recordcolumns -kavardsrsRecordColumns :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema [KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn] -kavardsrsRecordColumns = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordColumns (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordColumns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-referenceschema.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-referenceschema-recordencoding -kavardsrsRecordEncoding :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema (Maybe (Val Text)) -kavardsrsRecordEncoding = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordEncoding (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordEncoding = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-referenceschema.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-referenceschema-recordformat -kavardsrsRecordFormat :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat -kavardsrsRecordFormat = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordFormat (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordFormat = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource.hs +++ /dev/null @@ -1,51 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-s3referencedatasource.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource. --- See --- 'kinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource' --- for a more convenient constructor. -data KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource = - KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource - { _kinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSourceBucketARN :: Val Text - , _kinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSourceFileKey :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource where - toJSON KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource{..} = - object $ - catMaybes - [ (Just . ("BucketARN",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSourceBucketARN - , (Just . ("FileKey",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSourceFileKey - ] - --- | Constructor for --- 'KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource' --- containing required fields as arguments. -kinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource - :: Val Text -- ^ 'kavardssrdsBucketARN' - -> Val Text -- ^ 'kavardssrdsFileKey' - -> KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource -kinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource bucketARNarg fileKeyarg = - KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource - { _kinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSourceBucketARN = bucketARNarg - , _kinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSourceFileKey = fileKeyarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-s3referencedatasource.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-s3referencedatasource-bucketarn -kavardssrdsBucketARN :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource (Val Text) -kavardssrdsBucketARN = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSourceBucketARN (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSourceBucketARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-applicationreferencedatasource-s3referencedatasource.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-s3referencedatasource-filekey -kavardssrdsFileKey :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource (Val Text) -kavardssrdsFileKey = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSourceFileKey (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSourceFileKey = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationS3ContentLocation.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationS3ContentLocation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationS3ContentLocation.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-s3contentlocation.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationS3ContentLocation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationS3ContentLocation. See --- 'kinesisAnalyticsV2ApplicationS3ContentLocation' for a more convenient --- constructor. -data KinesisAnalyticsV2ApplicationS3ContentLocation = - KinesisAnalyticsV2ApplicationS3ContentLocation - { _kinesisAnalyticsV2ApplicationS3ContentLocationBucketARN :: Maybe (Val Text) - , _kinesisAnalyticsV2ApplicationS3ContentLocationFileKey :: Maybe (Val Text) - , _kinesisAnalyticsV2ApplicationS3ContentLocationObjectVersion :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationS3ContentLocation where - toJSON KinesisAnalyticsV2ApplicationS3ContentLocation{..} = - object $ - catMaybes - [ fmap (("BucketARN",) . toJSON) _kinesisAnalyticsV2ApplicationS3ContentLocationBucketARN - , fmap (("FileKey",) . toJSON) _kinesisAnalyticsV2ApplicationS3ContentLocationFileKey - , fmap (("ObjectVersion",) . toJSON) _kinesisAnalyticsV2ApplicationS3ContentLocationObjectVersion - ] - --- | Constructor for 'KinesisAnalyticsV2ApplicationS3ContentLocation' --- containing required fields as arguments. -kinesisAnalyticsV2ApplicationS3ContentLocation - :: KinesisAnalyticsV2ApplicationS3ContentLocation -kinesisAnalyticsV2ApplicationS3ContentLocation = - KinesisAnalyticsV2ApplicationS3ContentLocation - { _kinesisAnalyticsV2ApplicationS3ContentLocationBucketARN = Nothing - , _kinesisAnalyticsV2ApplicationS3ContentLocationFileKey = Nothing - , _kinesisAnalyticsV2ApplicationS3ContentLocationObjectVersion = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-s3contentlocation.html#cfn-kinesisanalyticsv2-application-s3contentlocation-bucketarn -kavasclBucketARN :: Lens' KinesisAnalyticsV2ApplicationS3ContentLocation (Maybe (Val Text)) -kavasclBucketARN = lens _kinesisAnalyticsV2ApplicationS3ContentLocationBucketARN (\s a -> s { _kinesisAnalyticsV2ApplicationS3ContentLocationBucketARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-s3contentlocation.html#cfn-kinesisanalyticsv2-application-s3contentlocation-filekey -kavasclFileKey :: Lens' KinesisAnalyticsV2ApplicationS3ContentLocation (Maybe (Val Text)) -kavasclFileKey = lens _kinesisAnalyticsV2ApplicationS3ContentLocationFileKey (\s a -> s { _kinesisAnalyticsV2ApplicationS3ContentLocationFileKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-s3contentlocation.html#cfn-kinesisanalyticsv2-application-s3contentlocation-objectversion -kavasclObjectVersion :: Lens' KinesisAnalyticsV2ApplicationS3ContentLocation (Maybe (Val Text)) -kavasclObjectVersion = lens _kinesisAnalyticsV2ApplicationS3ContentLocationObjectVersion (\s a -> s { _kinesisAnalyticsV2ApplicationS3ContentLocationObjectVersion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationSqlApplicationConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationSqlApplicationConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationSqlApplicationConfiguration.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-sqlapplicationconfiguration.html - -module Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationSqlApplicationConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInput - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationSqlApplicationConfiguration. See --- 'kinesisAnalyticsV2ApplicationSqlApplicationConfiguration' for a more --- convenient constructor. -data KinesisAnalyticsV2ApplicationSqlApplicationConfiguration = - KinesisAnalyticsV2ApplicationSqlApplicationConfiguration - { _kinesisAnalyticsV2ApplicationSqlApplicationConfigurationInputs :: Maybe [KinesisAnalyticsV2ApplicationInput] - } deriving (Show, Eq) - -instance ToJSON KinesisAnalyticsV2ApplicationSqlApplicationConfiguration where - toJSON KinesisAnalyticsV2ApplicationSqlApplicationConfiguration{..} = - object $ - catMaybes - [ fmap (("Inputs",) . toJSON) _kinesisAnalyticsV2ApplicationSqlApplicationConfigurationInputs - ] - --- | Constructor for --- 'KinesisAnalyticsV2ApplicationSqlApplicationConfiguration' containing --- required fields as arguments. -kinesisAnalyticsV2ApplicationSqlApplicationConfiguration - :: KinesisAnalyticsV2ApplicationSqlApplicationConfiguration -kinesisAnalyticsV2ApplicationSqlApplicationConfiguration = - KinesisAnalyticsV2ApplicationSqlApplicationConfiguration - { _kinesisAnalyticsV2ApplicationSqlApplicationConfigurationInputs = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisanalyticsv2-application-sqlapplicationconfiguration.html#cfn-kinesisanalyticsv2-application-sqlapplicationconfiguration-inputs -kavasacInputs :: Lens' KinesisAnalyticsV2ApplicationSqlApplicationConfiguration (Maybe [KinesisAnalyticsV2ApplicationInput]) -kavasacInputs = lens _kinesisAnalyticsV2ApplicationSqlApplicationConfigurationInputs (\s a -> s { _kinesisAnalyticsV2ApplicationSqlApplicationConfigurationInputs = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamBufferingHints.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamBufferingHints.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamBufferingHints.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-bufferinghints.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamBufferingHints where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisFirehoseDeliveryStreamBufferingHints. See --- 'kinesisFirehoseDeliveryStreamBufferingHints' for a more convenient --- constructor. -data KinesisFirehoseDeliveryStreamBufferingHints = - KinesisFirehoseDeliveryStreamBufferingHints - { _kinesisFirehoseDeliveryStreamBufferingHintsIntervalInSeconds :: Maybe (Val Integer) - , _kinesisFirehoseDeliveryStreamBufferingHintsSizeInMBs :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamBufferingHints where - toJSON KinesisFirehoseDeliveryStreamBufferingHints{..} = - object $ - catMaybes - [ fmap (("IntervalInSeconds",) . toJSON) _kinesisFirehoseDeliveryStreamBufferingHintsIntervalInSeconds - , fmap (("SizeInMBs",) . toJSON) _kinesisFirehoseDeliveryStreamBufferingHintsSizeInMBs - ] - --- | Constructor for 'KinesisFirehoseDeliveryStreamBufferingHints' containing --- required fields as arguments. -kinesisFirehoseDeliveryStreamBufferingHints - :: KinesisFirehoseDeliveryStreamBufferingHints -kinesisFirehoseDeliveryStreamBufferingHints = - KinesisFirehoseDeliveryStreamBufferingHints - { _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 (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 (Maybe (Val Integer)) -kfdsbhSizeInMBs = lens _kinesisFirehoseDeliveryStreamBufferingHintsSizeInMBs (\s a -> s { _kinesisFirehoseDeliveryStreamBufferingHintsSizeInMBs = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-cloudwatchloggingoptions.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions. See --- 'kinesisFirehoseDeliveryStreamCloudWatchLoggingOptions' for a more --- convenient constructor. -data KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions = - KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions - { _kinesisFirehoseDeliveryStreamCloudWatchLoggingOptionsEnabled :: Maybe (Val Bool) - , _kinesisFirehoseDeliveryStreamCloudWatchLoggingOptionsLogGroupName :: Maybe (Val Text) - , _kinesisFirehoseDeliveryStreamCloudWatchLoggingOptionsLogStreamName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions where - toJSON KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions{..} = - object $ - catMaybes - [ fmap (("Enabled",) . toJSON) _kinesisFirehoseDeliveryStreamCloudWatchLoggingOptionsEnabled - , fmap (("LogGroupName",) . toJSON) _kinesisFirehoseDeliveryStreamCloudWatchLoggingOptionsLogGroupName - , fmap (("LogStreamName",) . toJSON) _kinesisFirehoseDeliveryStreamCloudWatchLoggingOptionsLogStreamName - ] - --- | Constructor for 'KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions' --- containing required fields as arguments. -kinesisFirehoseDeliveryStreamCloudWatchLoggingOptions - :: KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions -kinesisFirehoseDeliveryStreamCloudWatchLoggingOptions = - KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions - { _kinesisFirehoseDeliveryStreamCloudWatchLoggingOptionsEnabled = Nothing - , _kinesisFirehoseDeliveryStreamCloudWatchLoggingOptionsLogGroupName = Nothing - , _kinesisFirehoseDeliveryStreamCloudWatchLoggingOptionsLogStreamName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-cloudwatchloggingoptions.html#cfn-kinesisfirehose-deliverystream-cloudwatchloggingoptions-enabled -kfdscwloEnabled :: Lens' KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions (Maybe (Val Bool)) -kfdscwloEnabled = lens _kinesisFirehoseDeliveryStreamCloudWatchLoggingOptionsEnabled (\s a -> s { _kinesisFirehoseDeliveryStreamCloudWatchLoggingOptionsEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-cloudwatchloggingoptions.html#cfn-kinesisfirehose-deliverystream-cloudwatchloggingoptions-loggroupname -kfdscwloLogGroupName :: Lens' KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions (Maybe (Val Text)) -kfdscwloLogGroupName = lens _kinesisFirehoseDeliveryStreamCloudWatchLoggingOptionsLogGroupName (\s a -> s { _kinesisFirehoseDeliveryStreamCloudWatchLoggingOptionsLogGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-cloudwatchloggingoptions.html#cfn-kinesisfirehose-deliverystream-cloudwatchloggingoptions-logstreamname -kfdscwloLogStreamName :: Lens' KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions (Maybe (Val Text)) -kfdscwloLogStreamName = lens _kinesisFirehoseDeliveryStreamCloudWatchLoggingOptionsLogStreamName (\s a -> s { _kinesisFirehoseDeliveryStreamCloudWatchLoggingOptionsLogStreamName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamCopyCommand.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamCopyCommand.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamCopyCommand.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-copycommand.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCopyCommand where - -import Stratosphere.ResourceImports - - --- | Full data type definition for KinesisFirehoseDeliveryStreamCopyCommand. --- See 'kinesisFirehoseDeliveryStreamCopyCommand' for a more convenient --- constructor. -data KinesisFirehoseDeliveryStreamCopyCommand = - KinesisFirehoseDeliveryStreamCopyCommand - { _kinesisFirehoseDeliveryStreamCopyCommandCopyOptions :: Maybe (Val Text) - , _kinesisFirehoseDeliveryStreamCopyCommandDataTableColumns :: Maybe (Val Text) - , _kinesisFirehoseDeliveryStreamCopyCommandDataTableName :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamCopyCommand where - toJSON KinesisFirehoseDeliveryStreamCopyCommand{..} = - object $ - catMaybes - [ fmap (("CopyOptions",) . toJSON) _kinesisFirehoseDeliveryStreamCopyCommandCopyOptions - , fmap (("DataTableColumns",) . toJSON) _kinesisFirehoseDeliveryStreamCopyCommandDataTableColumns - , (Just . ("DataTableName",) . toJSON) _kinesisFirehoseDeliveryStreamCopyCommandDataTableName - ] - --- | Constructor for 'KinesisFirehoseDeliveryStreamCopyCommand' containing --- required fields as arguments. -kinesisFirehoseDeliveryStreamCopyCommand - :: Val Text -- ^ 'kfdsccDataTableName' - -> KinesisFirehoseDeliveryStreamCopyCommand -kinesisFirehoseDeliveryStreamCopyCommand dataTableNamearg = - KinesisFirehoseDeliveryStreamCopyCommand - { _kinesisFirehoseDeliveryStreamCopyCommandCopyOptions = Nothing - , _kinesisFirehoseDeliveryStreamCopyCommandDataTableColumns = Nothing - , _kinesisFirehoseDeliveryStreamCopyCommandDataTableName = dataTableNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-copycommand.html#cfn-kinesisfirehose-deliverystream-copycommand-copyoptions -kfdsccCopyOptions :: Lens' KinesisFirehoseDeliveryStreamCopyCommand (Maybe (Val Text)) -kfdsccCopyOptions = lens _kinesisFirehoseDeliveryStreamCopyCommandCopyOptions (\s a -> s { _kinesisFirehoseDeliveryStreamCopyCommandCopyOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-copycommand.html#cfn-kinesisfirehose-deliverystream-copycommand-datatablecolumns -kfdsccDataTableColumns :: Lens' KinesisFirehoseDeliveryStreamCopyCommand (Maybe (Val Text)) -kfdsccDataTableColumns = lens _kinesisFirehoseDeliveryStreamCopyCommandDataTableColumns (\s a -> s { _kinesisFirehoseDeliveryStreamCopyCommandDataTableColumns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-copycommand.html#cfn-kinesisfirehose-deliverystream-copycommand-datatablename -kfdsccDataTableName :: Lens' KinesisFirehoseDeliveryStreamCopyCommand (Val Text) -kfdsccDataTableName = lens _kinesisFirehoseDeliveryStreamCopyCommandDataTableName (\s a -> s { _kinesisFirehoseDeliveryStreamCopyCommandDataTableName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-dataformatconversionconfiguration.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamInputFormatConfiguration -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamOutputFormatConfiguration -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSchemaConfiguration - --- | Full data type definition for --- KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration. See --- 'kinesisFirehoseDeliveryStreamDataFormatConversionConfiguration' for a --- more convenient constructor. -data KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration = - KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration - { _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationEnabled :: Maybe (Val Bool) - , _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationInputFormatConfiguration :: Maybe KinesisFirehoseDeliveryStreamInputFormatConfiguration - , _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationOutputFormatConfiguration :: Maybe KinesisFirehoseDeliveryStreamOutputFormatConfiguration - , _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationSchemaConfiguration :: Maybe KinesisFirehoseDeliveryStreamSchemaConfiguration - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration where - toJSON KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration{..} = - object $ - catMaybes - [ 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 - :: KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration -kinesisFirehoseDeliveryStreamDataFormatConversionConfiguration = - KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration - { _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 (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 (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 (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 (Maybe KinesisFirehoseDeliveryStreamSchemaConfiguration) -kfdsdfccSchemaConfiguration = lens _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationSchemaConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationSchemaConfiguration = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamDeserializer.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamDeserializer.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamDeserializer.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-deserializer.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamDeserializer where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamHiveJsonSerDe -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamOpenXJsonSerDe - --- | Full data type definition for KinesisFirehoseDeliveryStreamDeserializer. --- See 'kinesisFirehoseDeliveryStreamDeserializer' for a more convenient --- constructor. -data KinesisFirehoseDeliveryStreamDeserializer = - KinesisFirehoseDeliveryStreamDeserializer - { _kinesisFirehoseDeliveryStreamDeserializerHiveJsonSerDe :: Maybe KinesisFirehoseDeliveryStreamHiveJsonSerDe - , _kinesisFirehoseDeliveryStreamDeserializerOpenXJsonSerDe :: Maybe KinesisFirehoseDeliveryStreamOpenXJsonSerDe - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamDeserializer where - toJSON KinesisFirehoseDeliveryStreamDeserializer{..} = - object $ - catMaybes - [ fmap (("HiveJsonSerDe",) . toJSON) _kinesisFirehoseDeliveryStreamDeserializerHiveJsonSerDe - , fmap (("OpenXJsonSerDe",) . toJSON) _kinesisFirehoseDeliveryStreamDeserializerOpenXJsonSerDe - ] - --- | Constructor for 'KinesisFirehoseDeliveryStreamDeserializer' containing --- required fields as arguments. -kinesisFirehoseDeliveryStreamDeserializer - :: KinesisFirehoseDeliveryStreamDeserializer -kinesisFirehoseDeliveryStreamDeserializer = - KinesisFirehoseDeliveryStreamDeserializer - { _kinesisFirehoseDeliveryStreamDeserializerHiveJsonSerDe = Nothing - , _kinesisFirehoseDeliveryStreamDeserializerOpenXJsonSerDe = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-deserializer.html#cfn-kinesisfirehose-deliverystream-deserializer-hivejsonserde -kfdsdHiveJsonSerDe :: Lens' KinesisFirehoseDeliveryStreamDeserializer (Maybe KinesisFirehoseDeliveryStreamHiveJsonSerDe) -kfdsdHiveJsonSerDe = lens _kinesisFirehoseDeliveryStreamDeserializerHiveJsonSerDe (\s a -> s { _kinesisFirehoseDeliveryStreamDeserializerHiveJsonSerDe = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-deserializer.html#cfn-kinesisfirehose-deliverystream-deserializer-openxjsonserde -kfdsdOpenXJsonSerDe :: Lens' KinesisFirehoseDeliveryStreamDeserializer (Maybe KinesisFirehoseDeliveryStreamOpenXJsonSerDe) -kfdsdOpenXJsonSerDe = lens _kinesisFirehoseDeliveryStreamDeserializerOpenXJsonSerDe (\s a -> s { _kinesisFirehoseDeliveryStreamDeserializerOpenXJsonSerDe = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamElasticsearchBufferingHints.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamElasticsearchBufferingHints.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamElasticsearchBufferingHints.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-elasticsearchbufferinghints.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamElasticsearchBufferingHints where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisFirehoseDeliveryStreamElasticsearchBufferingHints. See --- 'kinesisFirehoseDeliveryStreamElasticsearchBufferingHints' for a more --- convenient constructor. -data KinesisFirehoseDeliveryStreamElasticsearchBufferingHints = - KinesisFirehoseDeliveryStreamElasticsearchBufferingHints - { _kinesisFirehoseDeliveryStreamElasticsearchBufferingHintsIntervalInSeconds :: Maybe (Val Integer) - , _kinesisFirehoseDeliveryStreamElasticsearchBufferingHintsSizeInMBs :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamElasticsearchBufferingHints where - toJSON KinesisFirehoseDeliveryStreamElasticsearchBufferingHints{..} = - object $ - catMaybes - [ fmap (("IntervalInSeconds",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchBufferingHintsIntervalInSeconds - , fmap (("SizeInMBs",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchBufferingHintsSizeInMBs - ] - --- | Constructor for --- 'KinesisFirehoseDeliveryStreamElasticsearchBufferingHints' containing --- required fields as arguments. -kinesisFirehoseDeliveryStreamElasticsearchBufferingHints - :: KinesisFirehoseDeliveryStreamElasticsearchBufferingHints -kinesisFirehoseDeliveryStreamElasticsearchBufferingHints = - KinesisFirehoseDeliveryStreamElasticsearchBufferingHints - { _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 (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 (Maybe (Val Integer)) -kfdsebhSizeInMBs = lens _kinesisFirehoseDeliveryStreamElasticsearchBufferingHintsSizeInMBs (\s a -> s { _kinesisFirehoseDeliveryStreamElasticsearchBufferingHintsSizeInMBs = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration.hs +++ /dev/null @@ -1,134 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-elasticsearchdestinationconfiguration.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.Types -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamElasticsearchBufferingHints -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessingConfiguration -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamElasticsearchRetryOptions -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamS3DestinationConfiguration -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamVpcConfiguration - --- | Full data type definition for --- KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration. See --- 'kinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration' for --- a more convenient constructor. -data KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration = - KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration - { _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationBufferingHints :: Maybe KinesisFirehoseDeliveryStreamElasticsearchBufferingHints - , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationCloudWatchLoggingOptions :: Maybe KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions - , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationClusterEndpoint :: Maybe (Val Text) - , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationDomainARN :: Maybe (Val Text) - , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationIndexName :: Val Text - , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationIndexRotationPeriod :: Maybe (Val Text) - , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationProcessingConfiguration :: Maybe KinesisFirehoseDeliveryStreamProcessingConfiguration - , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationRetryOptions :: Maybe KinesisFirehoseDeliveryStreamElasticsearchRetryOptions - , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationRoleARN :: Val Text - , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationS3BackupMode :: Maybe (Val KinesisFirehoseElasticsearchS3BackupMode) - , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationS3Configuration :: KinesisFirehoseDeliveryStreamS3DestinationConfiguration - , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationTypeName :: Maybe (Val Text) - , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationVpcConfiguration :: Maybe KinesisFirehoseDeliveryStreamVpcConfiguration - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration where - toJSON KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration{..} = - object $ - catMaybes - [ fmap (("BufferingHints",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationBufferingHints - , fmap (("CloudWatchLoggingOptions",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationCloudWatchLoggingOptions - , fmap (("ClusterEndpoint",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationClusterEndpoint - , fmap (("DomainARN",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationDomainARN - , (Just . ("IndexName",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationIndexName - , fmap (("IndexRotationPeriod",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationIndexRotationPeriod - , fmap (("ProcessingConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationProcessingConfiguration - , fmap (("RetryOptions",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationRetryOptions - , (Just . ("RoleARN",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationRoleARN - , fmap (("S3BackupMode",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationS3BackupMode - , (Just . ("S3Configuration",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationS3Configuration - , fmap (("TypeName",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationTypeName - , fmap (("VpcConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationVpcConfiguration - ] - --- | Constructor for --- 'KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration' --- containing required fields as arguments. -kinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration - :: Val Text -- ^ 'kfdsedcIndexName' - -> Val Text -- ^ 'kfdsedcRoleARN' - -> KinesisFirehoseDeliveryStreamS3DestinationConfiguration -- ^ 'kfdsedcS3Configuration' - -> KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration -kinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration indexNamearg roleARNarg s3Configurationarg = - KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration - { _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationBufferingHints = Nothing - , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationCloudWatchLoggingOptions = Nothing - , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationClusterEndpoint = Nothing - , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationDomainARN = Nothing - , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationIndexName = indexNamearg - , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationIndexRotationPeriod = Nothing - , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationProcessingConfiguration = Nothing - , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationRetryOptions = Nothing - , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationRoleARN = roleARNarg - , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationS3BackupMode = Nothing - , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationS3Configuration = s3Configurationarg - , _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 (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 (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 -kfdsedcIndexName :: Lens' KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration (Val Text) -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 (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 -kfdsedcProcessingConfiguration :: Lens' KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamProcessingConfiguration) -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 (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 -kfdsedcRoleARN :: Lens' KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration (Val Text) -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 (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 -kfdsedcS3Configuration :: Lens' KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration KinesisFirehoseDeliveryStreamS3DestinationConfiguration -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 (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 }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamElasticsearchRetryOptions.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamElasticsearchRetryOptions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamElasticsearchRetryOptions.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-elasticsearchretryoptions.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamElasticsearchRetryOptions where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisFirehoseDeliveryStreamElasticsearchRetryOptions. See --- 'kinesisFirehoseDeliveryStreamElasticsearchRetryOptions' for a more --- convenient constructor. -data KinesisFirehoseDeliveryStreamElasticsearchRetryOptions = - KinesisFirehoseDeliveryStreamElasticsearchRetryOptions - { _kinesisFirehoseDeliveryStreamElasticsearchRetryOptionsDurationInSeconds :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamElasticsearchRetryOptions where - toJSON KinesisFirehoseDeliveryStreamElasticsearchRetryOptions{..} = - object $ - catMaybes - [ fmap (("DurationInSeconds",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchRetryOptionsDurationInSeconds - ] - --- | Constructor for 'KinesisFirehoseDeliveryStreamElasticsearchRetryOptions' --- containing required fields as arguments. -kinesisFirehoseDeliveryStreamElasticsearchRetryOptions - :: KinesisFirehoseDeliveryStreamElasticsearchRetryOptions -kinesisFirehoseDeliveryStreamElasticsearchRetryOptions = - KinesisFirehoseDeliveryStreamElasticsearchRetryOptions - { _kinesisFirehoseDeliveryStreamElasticsearchRetryOptionsDurationInSeconds = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-elasticsearchretryoptions.html#cfn-kinesisfirehose-deliverystream-elasticsearchretryoptions-durationinseconds -kfdseroDurationInSeconds :: Lens' KinesisFirehoseDeliveryStreamElasticsearchRetryOptions (Maybe (Val Integer)) -kfdseroDurationInSeconds = lens _kinesisFirehoseDeliveryStreamElasticsearchRetryOptionsDurationInSeconds (\s a -> s { _kinesisFirehoseDeliveryStreamElasticsearchRetryOptionsDurationInSeconds = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamEncryptionConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamEncryptionConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamEncryptionConfiguration.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-encryptionconfiguration.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamEncryptionConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.Types -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamKMSEncryptionConfig - --- | Full data type definition for --- KinesisFirehoseDeliveryStreamEncryptionConfiguration. See --- 'kinesisFirehoseDeliveryStreamEncryptionConfiguration' for a more --- convenient constructor. -data KinesisFirehoseDeliveryStreamEncryptionConfiguration = - KinesisFirehoseDeliveryStreamEncryptionConfiguration - { _kinesisFirehoseDeliveryStreamEncryptionConfigurationKMSEncryptionConfig :: Maybe KinesisFirehoseDeliveryStreamKMSEncryptionConfig - , _kinesisFirehoseDeliveryStreamEncryptionConfigurationNoEncryptionConfig :: Maybe (Val KinesisFirehoseNoEncryptionConfig) - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamEncryptionConfiguration where - toJSON KinesisFirehoseDeliveryStreamEncryptionConfiguration{..} = - object $ - catMaybes - [ fmap (("KMSEncryptionConfig",) . toJSON) _kinesisFirehoseDeliveryStreamEncryptionConfigurationKMSEncryptionConfig - , fmap (("NoEncryptionConfig",) . toJSON) _kinesisFirehoseDeliveryStreamEncryptionConfigurationNoEncryptionConfig - ] - --- | Constructor for 'KinesisFirehoseDeliveryStreamEncryptionConfiguration' --- containing required fields as arguments. -kinesisFirehoseDeliveryStreamEncryptionConfiguration - :: KinesisFirehoseDeliveryStreamEncryptionConfiguration -kinesisFirehoseDeliveryStreamEncryptionConfiguration = - KinesisFirehoseDeliveryStreamEncryptionConfiguration - { _kinesisFirehoseDeliveryStreamEncryptionConfigurationKMSEncryptionConfig = Nothing - , _kinesisFirehoseDeliveryStreamEncryptionConfigurationNoEncryptionConfig = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-encryptionconfiguration.html#cfn-kinesisfirehose-deliverystream-encryptionconfiguration-kmsencryptionconfig -kfdsecKMSEncryptionConfig :: Lens' KinesisFirehoseDeliveryStreamEncryptionConfiguration (Maybe KinesisFirehoseDeliveryStreamKMSEncryptionConfig) -kfdsecKMSEncryptionConfig = lens _kinesisFirehoseDeliveryStreamEncryptionConfigurationKMSEncryptionConfig (\s a -> s { _kinesisFirehoseDeliveryStreamEncryptionConfigurationKMSEncryptionConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-encryptionconfiguration.html#cfn-kinesisfirehose-deliverystream-encryptionconfiguration-noencryptionconfig -kfdsecNoEncryptionConfig :: Lens' KinesisFirehoseDeliveryStreamEncryptionConfiguration (Maybe (Val KinesisFirehoseNoEncryptionConfig)) -kfdsecNoEncryptionConfig = lens _kinesisFirehoseDeliveryStreamEncryptionConfigurationNoEncryptionConfig (\s a -> s { _kinesisFirehoseDeliveryStreamEncryptionConfigurationNoEncryptionConfig = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration.hs +++ /dev/null @@ -1,125 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-extendeds3destinationconfiguration.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamBufferingHints -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamEncryptionConfiguration -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessingConfiguration -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamS3DestinationConfiguration - --- | Full data type definition for --- KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration. See --- 'kinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration' for a --- more convenient constructor. -data KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration = - KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration - { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBucketARN :: Val Text - , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBufferingHints :: Maybe KinesisFirehoseDeliveryStreamBufferingHints - , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCloudWatchLoggingOptions :: Maybe KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions - , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCompressionFormat :: Maybe (Val Text) - , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationDataFormatConversionConfiguration :: Maybe KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration - , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationEncryptionConfiguration :: Maybe KinesisFirehoseDeliveryStreamEncryptionConfiguration - , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationErrorOutputPrefix :: Maybe (Val Text) - , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationPrefix :: Maybe (Val Text) - , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationProcessingConfiguration :: Maybe KinesisFirehoseDeliveryStreamProcessingConfiguration - , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationRoleARN :: Val Text - , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationS3BackupConfiguration :: Maybe KinesisFirehoseDeliveryStreamS3DestinationConfiguration - , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationS3BackupMode :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration where - toJSON KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration{..} = - object $ - catMaybes - [ (Just . ("BucketARN",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBucketARN - , fmap (("BufferingHints",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBufferingHints - , fmap (("CloudWatchLoggingOptions",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCloudWatchLoggingOptions - , fmap (("CompressionFormat",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCompressionFormat - , fmap (("DataFormatConversionConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationDataFormatConversionConfiguration - , fmap (("EncryptionConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationEncryptionConfiguration - , fmap (("ErrorOutputPrefix",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationErrorOutputPrefix - , fmap (("Prefix",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationPrefix - , fmap (("ProcessingConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationProcessingConfiguration - , (Just . ("RoleARN",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationRoleARN - , fmap (("S3BackupConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationS3BackupConfiguration - , fmap (("S3BackupMode",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationS3BackupMode - ] - --- | Constructor for --- 'KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration' --- containing required fields as arguments. -kinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration - :: Val Text -- ^ 'kfdsesdcBucketARN' - -> Val Text -- ^ 'kfdsesdcRoleARN' - -> KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration -kinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration bucketARNarg roleARNarg = - KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration - { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBucketARN = bucketARNarg - , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBufferingHints = Nothing - , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCloudWatchLoggingOptions = Nothing - , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCompressionFormat = Nothing - , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationDataFormatConversionConfiguration = Nothing - , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationEncryptionConfiguration = Nothing - , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationErrorOutputPrefix = Nothing - , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationPrefix = Nothing - , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationProcessingConfiguration = Nothing - , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationRoleARN = roleARNarg - , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationS3BackupConfiguration = Nothing - , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationS3BackupMode = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-extendeds3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-extendeds3destinationconfiguration-bucketarn -kfdsesdcBucketARN :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (Val Text) -kfdsesdcBucketARN = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBucketARN (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBucketARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-extendeds3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-extendeds3destinationconfiguration-bufferinghints -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 -kfdsesdcCloudWatchLoggingOptions :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions) -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 (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 -kfdsesdcDataFormatConversionConfiguration :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration) -kfdsesdcDataFormatConversionConfiguration = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationDataFormatConversionConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationDataFormatConversionConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-extendeds3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-extendeds3destinationconfiguration-encryptionconfiguration -kfdsesdcEncryptionConfiguration :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamEncryptionConfiguration) -kfdsesdcEncryptionConfiguration = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationEncryptionConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationEncryptionConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-extendeds3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-extendeds3destinationconfiguration-erroroutputprefix -kfdsesdcErrorOutputPrefix :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (Maybe (Val Text)) -kfdsesdcErrorOutputPrefix = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationErrorOutputPrefix (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationErrorOutputPrefix = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-extendeds3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-extendeds3destinationconfiguration-prefix -kfdsesdcPrefix :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (Maybe (Val Text)) -kfdsesdcPrefix = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationPrefix (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationPrefix = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-extendeds3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-extendeds3destinationconfiguration-processingconfiguration -kfdsesdcProcessingConfiguration :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamProcessingConfiguration) -kfdsesdcProcessingConfiguration = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationProcessingConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationProcessingConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-extendeds3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-extendeds3destinationconfiguration-rolearn -kfdsesdcRoleARN :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (Val Text) -kfdsesdcRoleARN = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationRoleARN (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationRoleARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-extendeds3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-extendeds3destinationconfiguration-s3backupconfiguration -kfdsesdcS3BackupConfiguration :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamS3DestinationConfiguration) -kfdsesdcS3BackupConfiguration = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationS3BackupConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationS3BackupConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-extendeds3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-extendeds3destinationconfiguration-s3backupmode -kfdsesdcS3BackupMode :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (Maybe (Val Text)) -kfdsesdcS3BackupMode = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationS3BackupMode (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationS3BackupMode = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamHiveJsonSerDe.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamHiveJsonSerDe.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamHiveJsonSerDe.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-hivejsonserde.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamHiveJsonSerDe where - -import Stratosphere.ResourceImports - - --- | Full data type definition for KinesisFirehoseDeliveryStreamHiveJsonSerDe. --- See 'kinesisFirehoseDeliveryStreamHiveJsonSerDe' for a more convenient --- constructor. -data KinesisFirehoseDeliveryStreamHiveJsonSerDe = - KinesisFirehoseDeliveryStreamHiveJsonSerDe - { _kinesisFirehoseDeliveryStreamHiveJsonSerDeTimestampFormats :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamHiveJsonSerDe where - toJSON KinesisFirehoseDeliveryStreamHiveJsonSerDe{..} = - object $ - catMaybes - [ fmap (("TimestampFormats",) . toJSON) _kinesisFirehoseDeliveryStreamHiveJsonSerDeTimestampFormats - ] - --- | Constructor for 'KinesisFirehoseDeliveryStreamHiveJsonSerDe' containing --- required fields as arguments. -kinesisFirehoseDeliveryStreamHiveJsonSerDe - :: KinesisFirehoseDeliveryStreamHiveJsonSerDe -kinesisFirehoseDeliveryStreamHiveJsonSerDe = - KinesisFirehoseDeliveryStreamHiveJsonSerDe - { _kinesisFirehoseDeliveryStreamHiveJsonSerDeTimestampFormats = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-hivejsonserde.html#cfn-kinesisfirehose-deliverystream-hivejsonserde-timestampformats -kfdshjsdTimestampFormats :: Lens' KinesisFirehoseDeliveryStreamHiveJsonSerDe (Maybe (ValList Text)) -kfdshjsdTimestampFormats = lens _kinesisFirehoseDeliveryStreamHiveJsonSerDeTimestampFormats (\s a -> s { _kinesisFirehoseDeliveryStreamHiveJsonSerDeTimestampFormats = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamHttpEndpointCommonAttribute.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamHttpEndpointCommonAttribute.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamHttpEndpointCommonAttribute.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-httpendpointcommonattribute.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamHttpEndpointCommonAttribute where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisFirehoseDeliveryStreamHttpEndpointCommonAttribute. See --- 'kinesisFirehoseDeliveryStreamHttpEndpointCommonAttribute' for a more --- convenient constructor. -data KinesisFirehoseDeliveryStreamHttpEndpointCommonAttribute = - KinesisFirehoseDeliveryStreamHttpEndpointCommonAttribute - { _kinesisFirehoseDeliveryStreamHttpEndpointCommonAttributeAttributeName :: Val Text - , _kinesisFirehoseDeliveryStreamHttpEndpointCommonAttributeAttributeValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamHttpEndpointCommonAttribute where - toJSON KinesisFirehoseDeliveryStreamHttpEndpointCommonAttribute{..} = - object $ - catMaybes - [ (Just . ("AttributeName",) . toJSON) _kinesisFirehoseDeliveryStreamHttpEndpointCommonAttributeAttributeName - , (Just . ("AttributeValue",) . toJSON) _kinesisFirehoseDeliveryStreamHttpEndpointCommonAttributeAttributeValue - ] - --- | Constructor for --- 'KinesisFirehoseDeliveryStreamHttpEndpointCommonAttribute' containing --- required fields as arguments. -kinesisFirehoseDeliveryStreamHttpEndpointCommonAttribute - :: Val Text -- ^ 'kfdshecaAttributeName' - -> Val Text -- ^ 'kfdshecaAttributeValue' - -> KinesisFirehoseDeliveryStreamHttpEndpointCommonAttribute -kinesisFirehoseDeliveryStreamHttpEndpointCommonAttribute attributeNamearg attributeValuearg = - KinesisFirehoseDeliveryStreamHttpEndpointCommonAttribute - { _kinesisFirehoseDeliveryStreamHttpEndpointCommonAttributeAttributeName = attributeNamearg - , _kinesisFirehoseDeliveryStreamHttpEndpointCommonAttributeAttributeValue = attributeValuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-httpendpointcommonattribute.html#cfn-kinesisfirehose-deliverystream-httpendpointcommonattribute-attributename -kfdshecaAttributeName :: Lens' KinesisFirehoseDeliveryStreamHttpEndpointCommonAttribute (Val Text) -kfdshecaAttributeName = lens _kinesisFirehoseDeliveryStreamHttpEndpointCommonAttributeAttributeName (\s a -> s { _kinesisFirehoseDeliveryStreamHttpEndpointCommonAttributeAttributeName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-httpendpointcommonattribute.html#cfn-kinesisfirehose-deliverystream-httpendpointcommonattribute-attributevalue -kfdshecaAttributeValue :: Lens' KinesisFirehoseDeliveryStreamHttpEndpointCommonAttribute (Val Text) -kfdshecaAttributeValue = lens _kinesisFirehoseDeliveryStreamHttpEndpointCommonAttributeAttributeValue (\s a -> s { _kinesisFirehoseDeliveryStreamHttpEndpointCommonAttributeAttributeValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamHttpEndpointConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamHttpEndpointConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamHttpEndpointConfiguration.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-httpendpointconfiguration.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamHttpEndpointConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisFirehoseDeliveryStreamHttpEndpointConfiguration. See --- 'kinesisFirehoseDeliveryStreamHttpEndpointConfiguration' for a more --- convenient constructor. -data KinesisFirehoseDeliveryStreamHttpEndpointConfiguration = - KinesisFirehoseDeliveryStreamHttpEndpointConfiguration - { _kinesisFirehoseDeliveryStreamHttpEndpointConfigurationAccessKey :: Maybe (Val Text) - , _kinesisFirehoseDeliveryStreamHttpEndpointConfigurationName :: Maybe (Val Text) - , _kinesisFirehoseDeliveryStreamHttpEndpointConfigurationUrl :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamHttpEndpointConfiguration where - toJSON KinesisFirehoseDeliveryStreamHttpEndpointConfiguration{..} = - object $ - catMaybes - [ fmap (("AccessKey",) . toJSON) _kinesisFirehoseDeliveryStreamHttpEndpointConfigurationAccessKey - , fmap (("Name",) . toJSON) _kinesisFirehoseDeliveryStreamHttpEndpointConfigurationName - , (Just . ("Url",) . toJSON) _kinesisFirehoseDeliveryStreamHttpEndpointConfigurationUrl - ] - --- | Constructor for 'KinesisFirehoseDeliveryStreamHttpEndpointConfiguration' --- containing required fields as arguments. -kinesisFirehoseDeliveryStreamHttpEndpointConfiguration - :: Val Text -- ^ 'kfdshecUrl' - -> KinesisFirehoseDeliveryStreamHttpEndpointConfiguration -kinesisFirehoseDeliveryStreamHttpEndpointConfiguration urlarg = - KinesisFirehoseDeliveryStreamHttpEndpointConfiguration - { _kinesisFirehoseDeliveryStreamHttpEndpointConfigurationAccessKey = Nothing - , _kinesisFirehoseDeliveryStreamHttpEndpointConfigurationName = Nothing - , _kinesisFirehoseDeliveryStreamHttpEndpointConfigurationUrl = urlarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-httpendpointconfiguration.html#cfn-kinesisfirehose-deliverystream-httpendpointconfiguration-accesskey -kfdshecAccessKey :: Lens' KinesisFirehoseDeliveryStreamHttpEndpointConfiguration (Maybe (Val Text)) -kfdshecAccessKey = lens _kinesisFirehoseDeliveryStreamHttpEndpointConfigurationAccessKey (\s a -> s { _kinesisFirehoseDeliveryStreamHttpEndpointConfigurationAccessKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-httpendpointconfiguration.html#cfn-kinesisfirehose-deliverystream-httpendpointconfiguration-name -kfdshecName :: Lens' KinesisFirehoseDeliveryStreamHttpEndpointConfiguration (Maybe (Val Text)) -kfdshecName = lens _kinesisFirehoseDeliveryStreamHttpEndpointConfigurationName (\s a -> s { _kinesisFirehoseDeliveryStreamHttpEndpointConfigurationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-httpendpointconfiguration.html#cfn-kinesisfirehose-deliverystream-httpendpointconfiguration-url -kfdshecUrl :: Lens' KinesisFirehoseDeliveryStreamHttpEndpointConfiguration (Val Text) -kfdshecUrl = lens _kinesisFirehoseDeliveryStreamHttpEndpointConfigurationUrl (\s a -> s { _kinesisFirehoseDeliveryStreamHttpEndpointConfigurationUrl = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration.hs +++ /dev/null @@ -1,105 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-httpendpointdestinationconfiguration.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamBufferingHints -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamHttpEndpointConfiguration -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessingConfiguration -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamHttpEndpointRequestConfiguration -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamRetryOptions -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamS3DestinationConfiguration - --- | Full data type definition for --- KinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration. See --- 'kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration' for a --- more convenient constructor. -data KinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration = - KinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration - { _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationBufferingHints :: Maybe KinesisFirehoseDeliveryStreamBufferingHints - , _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationCloudWatchLoggingOptions :: Maybe KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions - , _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationEndpointConfiguration :: KinesisFirehoseDeliveryStreamHttpEndpointConfiguration - , _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationProcessingConfiguration :: Maybe KinesisFirehoseDeliveryStreamProcessingConfiguration - , _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationRequestConfiguration :: Maybe KinesisFirehoseDeliveryStreamHttpEndpointRequestConfiguration - , _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationRetryOptions :: Maybe KinesisFirehoseDeliveryStreamRetryOptions - , _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationRoleARN :: Maybe (Val Text) - , _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationS3BackupMode :: Maybe (Val Text) - , _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationS3Configuration :: KinesisFirehoseDeliveryStreamS3DestinationConfiguration - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration where - toJSON KinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration{..} = - object $ - catMaybes - [ fmap (("BufferingHints",) . toJSON) _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationBufferingHints - , fmap (("CloudWatchLoggingOptions",) . toJSON) _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationCloudWatchLoggingOptions - , (Just . ("EndpointConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationEndpointConfiguration - , fmap (("ProcessingConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationProcessingConfiguration - , fmap (("RequestConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationRequestConfiguration - , fmap (("RetryOptions",) . toJSON) _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationRetryOptions - , fmap (("RoleARN",) . toJSON) _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationRoleARN - , fmap (("S3BackupMode",) . toJSON) _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationS3BackupMode - , (Just . ("S3Configuration",) . toJSON) _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationS3Configuration - ] - --- | Constructor for --- 'KinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration' --- containing required fields as arguments. -kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration - :: KinesisFirehoseDeliveryStreamHttpEndpointConfiguration -- ^ 'kfdshedcEndpointConfiguration' - -> KinesisFirehoseDeliveryStreamS3DestinationConfiguration -- ^ 'kfdshedcS3Configuration' - -> KinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration -kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration endpointConfigurationarg s3Configurationarg = - KinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration - { _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationBufferingHints = Nothing - , _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationCloudWatchLoggingOptions = Nothing - , _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationEndpointConfiguration = endpointConfigurationarg - , _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationProcessingConfiguration = Nothing - , _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationRequestConfiguration = Nothing - , _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationRetryOptions = Nothing - , _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationRoleARN = Nothing - , _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationS3BackupMode = Nothing - , _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationS3Configuration = s3Configurationarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-httpendpointdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-httpendpointdestinationconfiguration-bufferinghints -kfdshedcBufferingHints :: Lens' KinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamBufferingHints) -kfdshedcBufferingHints = lens _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationBufferingHints (\s a -> s { _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationBufferingHints = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-httpendpointdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-httpendpointdestinationconfiguration-cloudwatchloggingoptions -kfdshedcCloudWatchLoggingOptions :: Lens' KinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions) -kfdshedcCloudWatchLoggingOptions = lens _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationCloudWatchLoggingOptions (\s a -> s { _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationCloudWatchLoggingOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-httpendpointdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-httpendpointdestinationconfiguration-endpointconfiguration -kfdshedcEndpointConfiguration :: Lens' KinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration KinesisFirehoseDeliveryStreamHttpEndpointConfiguration -kfdshedcEndpointConfiguration = lens _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationEndpointConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationEndpointConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-httpendpointdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-httpendpointdestinationconfiguration-processingconfiguration -kfdshedcProcessingConfiguration :: Lens' KinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamProcessingConfiguration) -kfdshedcProcessingConfiguration = lens _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationProcessingConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationProcessingConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-httpendpointdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-httpendpointdestinationconfiguration-requestconfiguration -kfdshedcRequestConfiguration :: Lens' KinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamHttpEndpointRequestConfiguration) -kfdshedcRequestConfiguration = lens _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationRequestConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationRequestConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-httpendpointdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-httpendpointdestinationconfiguration-retryoptions -kfdshedcRetryOptions :: Lens' KinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamRetryOptions) -kfdshedcRetryOptions = lens _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationRetryOptions (\s a -> s { _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationRetryOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-httpendpointdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-httpendpointdestinationconfiguration-rolearn -kfdshedcRoleARN :: Lens' KinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration (Maybe (Val Text)) -kfdshedcRoleARN = lens _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationRoleARN (\s a -> s { _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationRoleARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-httpendpointdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-httpendpointdestinationconfiguration-s3backupmode -kfdshedcS3BackupMode :: Lens' KinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration (Maybe (Val Text)) -kfdshedcS3BackupMode = lens _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationS3BackupMode (\s a -> s { _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationS3BackupMode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-httpendpointdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-httpendpointdestinationconfiguration-s3configuration -kfdshedcS3Configuration :: Lens' KinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration KinesisFirehoseDeliveryStreamS3DestinationConfiguration -kfdshedcS3Configuration = lens _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationS3Configuration (\s a -> s { _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfigurationS3Configuration = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamHttpEndpointRequestConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamHttpEndpointRequestConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamHttpEndpointRequestConfiguration.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-httpendpointrequestconfiguration.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamHttpEndpointRequestConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamHttpEndpointCommonAttribute - --- | Full data type definition for --- KinesisFirehoseDeliveryStreamHttpEndpointRequestConfiguration. See --- 'kinesisFirehoseDeliveryStreamHttpEndpointRequestConfiguration' for a --- more convenient constructor. -data KinesisFirehoseDeliveryStreamHttpEndpointRequestConfiguration = - KinesisFirehoseDeliveryStreamHttpEndpointRequestConfiguration - { _kinesisFirehoseDeliveryStreamHttpEndpointRequestConfigurationCommonAttributes :: Maybe [KinesisFirehoseDeliveryStreamHttpEndpointCommonAttribute] - , _kinesisFirehoseDeliveryStreamHttpEndpointRequestConfigurationContentEncoding :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamHttpEndpointRequestConfiguration where - toJSON KinesisFirehoseDeliveryStreamHttpEndpointRequestConfiguration{..} = - object $ - catMaybes - [ fmap (("CommonAttributes",) . toJSON) _kinesisFirehoseDeliveryStreamHttpEndpointRequestConfigurationCommonAttributes - , fmap (("ContentEncoding",) . toJSON) _kinesisFirehoseDeliveryStreamHttpEndpointRequestConfigurationContentEncoding - ] - --- | Constructor for --- 'KinesisFirehoseDeliveryStreamHttpEndpointRequestConfiguration' --- containing required fields as arguments. -kinesisFirehoseDeliveryStreamHttpEndpointRequestConfiguration - :: KinesisFirehoseDeliveryStreamHttpEndpointRequestConfiguration -kinesisFirehoseDeliveryStreamHttpEndpointRequestConfiguration = - KinesisFirehoseDeliveryStreamHttpEndpointRequestConfiguration - { _kinesisFirehoseDeliveryStreamHttpEndpointRequestConfigurationCommonAttributes = Nothing - , _kinesisFirehoseDeliveryStreamHttpEndpointRequestConfigurationContentEncoding = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-httpendpointrequestconfiguration.html#cfn-kinesisfirehose-deliverystream-httpendpointrequestconfiguration-commonattributes -kfdshercCommonAttributes :: Lens' KinesisFirehoseDeliveryStreamHttpEndpointRequestConfiguration (Maybe [KinesisFirehoseDeliveryStreamHttpEndpointCommonAttribute]) -kfdshercCommonAttributes = lens _kinesisFirehoseDeliveryStreamHttpEndpointRequestConfigurationCommonAttributes (\s a -> s { _kinesisFirehoseDeliveryStreamHttpEndpointRequestConfigurationCommonAttributes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-httpendpointrequestconfiguration.html#cfn-kinesisfirehose-deliverystream-httpendpointrequestconfiguration-contentencoding -kfdshercContentEncoding :: Lens' KinesisFirehoseDeliveryStreamHttpEndpointRequestConfiguration (Maybe (Val Text)) -kfdshercContentEncoding = lens _kinesisFirehoseDeliveryStreamHttpEndpointRequestConfigurationContentEncoding (\s a -> s { _kinesisFirehoseDeliveryStreamHttpEndpointRequestConfigurationContentEncoding = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamInputFormatConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamInputFormatConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamInputFormatConfiguration.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-inputformatconfiguration.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamInputFormatConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamDeserializer - --- | Full data type definition for --- KinesisFirehoseDeliveryStreamInputFormatConfiguration. See --- 'kinesisFirehoseDeliveryStreamInputFormatConfiguration' for a more --- convenient constructor. -data KinesisFirehoseDeliveryStreamInputFormatConfiguration = - KinesisFirehoseDeliveryStreamInputFormatConfiguration - { _kinesisFirehoseDeliveryStreamInputFormatConfigurationDeserializer :: Maybe KinesisFirehoseDeliveryStreamDeserializer - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamInputFormatConfiguration where - toJSON KinesisFirehoseDeliveryStreamInputFormatConfiguration{..} = - object $ - catMaybes - [ fmap (("Deserializer",) . toJSON) _kinesisFirehoseDeliveryStreamInputFormatConfigurationDeserializer - ] - --- | Constructor for 'KinesisFirehoseDeliveryStreamInputFormatConfiguration' --- containing required fields as arguments. -kinesisFirehoseDeliveryStreamInputFormatConfiguration - :: KinesisFirehoseDeliveryStreamInputFormatConfiguration -kinesisFirehoseDeliveryStreamInputFormatConfiguration = - KinesisFirehoseDeliveryStreamInputFormatConfiguration - { _kinesisFirehoseDeliveryStreamInputFormatConfigurationDeserializer = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-inputformatconfiguration.html#cfn-kinesisfirehose-deliverystream-inputformatconfiguration-deserializer -kfdsifcDeserializer :: Lens' KinesisFirehoseDeliveryStreamInputFormatConfiguration (Maybe KinesisFirehoseDeliveryStreamDeserializer) -kfdsifcDeserializer = lens _kinesisFirehoseDeliveryStreamInputFormatConfigurationDeserializer (\s a -> s { _kinesisFirehoseDeliveryStreamInputFormatConfigurationDeserializer = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamKMSEncryptionConfig.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamKMSEncryptionConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamKMSEncryptionConfig.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-kmsencryptionconfig.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamKMSEncryptionConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisFirehoseDeliveryStreamKMSEncryptionConfig. See --- 'kinesisFirehoseDeliveryStreamKMSEncryptionConfig' for a more convenient --- constructor. -data KinesisFirehoseDeliveryStreamKMSEncryptionConfig = - KinesisFirehoseDeliveryStreamKMSEncryptionConfig - { _kinesisFirehoseDeliveryStreamKMSEncryptionConfigAWSKMSKeyARN :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamKMSEncryptionConfig where - toJSON KinesisFirehoseDeliveryStreamKMSEncryptionConfig{..} = - object $ - catMaybes - [ (Just . ("AWSKMSKeyARN",) . toJSON) _kinesisFirehoseDeliveryStreamKMSEncryptionConfigAWSKMSKeyARN - ] - --- | Constructor for 'KinesisFirehoseDeliveryStreamKMSEncryptionConfig' --- containing required fields as arguments. -kinesisFirehoseDeliveryStreamKMSEncryptionConfig - :: Val Text -- ^ 'kfdskmsecAWSKMSKeyARN' - -> KinesisFirehoseDeliveryStreamKMSEncryptionConfig -kinesisFirehoseDeliveryStreamKMSEncryptionConfig aWSKMSKeyARNarg = - KinesisFirehoseDeliveryStreamKMSEncryptionConfig - { _kinesisFirehoseDeliveryStreamKMSEncryptionConfigAWSKMSKeyARN = aWSKMSKeyARNarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-kmsencryptionconfig.html#cfn-kinesisfirehose-deliverystream-kmsencryptionconfig-awskmskeyarn -kfdskmsecAWSKMSKeyARN :: Lens' KinesisFirehoseDeliveryStreamKMSEncryptionConfig (Val Text) -kfdskmsecAWSKMSKeyARN = lens _kinesisFirehoseDeliveryStreamKMSEncryptionConfigAWSKMSKeyARN (\s a -> s { _kinesisFirehoseDeliveryStreamKMSEncryptionConfigAWSKMSKeyARN = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-kinesisstreamsourceconfiguration.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration. See --- 'kinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration' for a --- more convenient constructor. -data KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration = - KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration - { _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfigurationKinesisStreamARN :: Val Text - , _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfigurationRoleARN :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration where - toJSON KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration{..} = - object $ - catMaybes - [ (Just . ("KinesisStreamARN",) . toJSON) _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfigurationKinesisStreamARN - , (Just . ("RoleARN",) . toJSON) _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfigurationRoleARN - ] - --- | Constructor for --- 'KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration' --- containing required fields as arguments. -kinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration - :: Val Text -- ^ 'kfdsksscKinesisStreamARN' - -> Val Text -- ^ 'kfdsksscRoleARN' - -> KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration -kinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration kinesisStreamARNarg roleARNarg = - KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration - { _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfigurationKinesisStreamARN = kinesisStreamARNarg - , _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfigurationRoleARN = roleARNarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-kinesisstreamsourceconfiguration.html#cfn-kinesisfirehose-deliverystream-kinesisstreamsourceconfiguration-kinesisstreamarn -kfdsksscKinesisStreamARN :: Lens' KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration (Val Text) -kfdsksscKinesisStreamARN = lens _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfigurationKinesisStreamARN (\s a -> s { _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfigurationKinesisStreamARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-kinesisstreamsourceconfiguration.html#cfn-kinesisfirehose-deliverystream-kinesisstreamsourceconfiguration-rolearn -kfdsksscRoleARN :: Lens' KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration (Val Text) -kfdsksscRoleARN = lens _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfigurationRoleARN (\s a -> s { _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfigurationRoleARN = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamOpenXJsonSerDe.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamOpenXJsonSerDe.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamOpenXJsonSerDe.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-openxjsonserde.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamOpenXJsonSerDe where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisFirehoseDeliveryStreamOpenXJsonSerDe. See --- 'kinesisFirehoseDeliveryStreamOpenXJsonSerDe' for a more convenient --- constructor. -data KinesisFirehoseDeliveryStreamOpenXJsonSerDe = - KinesisFirehoseDeliveryStreamOpenXJsonSerDe - { _kinesisFirehoseDeliveryStreamOpenXJsonSerDeCaseInsensitive :: Maybe (Val Bool) - , _kinesisFirehoseDeliveryStreamOpenXJsonSerDeColumnToJsonKeyMappings :: Maybe Object - , _kinesisFirehoseDeliveryStreamOpenXJsonSerDeConvertDotsInJsonKeysToUnderscores :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamOpenXJsonSerDe where - toJSON KinesisFirehoseDeliveryStreamOpenXJsonSerDe{..} = - object $ - catMaybes - [ fmap (("CaseInsensitive",) . toJSON) _kinesisFirehoseDeliveryStreamOpenXJsonSerDeCaseInsensitive - , fmap (("ColumnToJsonKeyMappings",) . toJSON) _kinesisFirehoseDeliveryStreamOpenXJsonSerDeColumnToJsonKeyMappings - , fmap (("ConvertDotsInJsonKeysToUnderscores",) . toJSON) _kinesisFirehoseDeliveryStreamOpenXJsonSerDeConvertDotsInJsonKeysToUnderscores - ] - --- | Constructor for 'KinesisFirehoseDeliveryStreamOpenXJsonSerDe' containing --- required fields as arguments. -kinesisFirehoseDeliveryStreamOpenXJsonSerDe - :: KinesisFirehoseDeliveryStreamOpenXJsonSerDe -kinesisFirehoseDeliveryStreamOpenXJsonSerDe = - KinesisFirehoseDeliveryStreamOpenXJsonSerDe - { _kinesisFirehoseDeliveryStreamOpenXJsonSerDeCaseInsensitive = Nothing - , _kinesisFirehoseDeliveryStreamOpenXJsonSerDeColumnToJsonKeyMappings = Nothing - , _kinesisFirehoseDeliveryStreamOpenXJsonSerDeConvertDotsInJsonKeysToUnderscores = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-openxjsonserde.html#cfn-kinesisfirehose-deliverystream-openxjsonserde-caseinsensitive -kfdsoxjsdCaseInsensitive :: Lens' KinesisFirehoseDeliveryStreamOpenXJsonSerDe (Maybe (Val Bool)) -kfdsoxjsdCaseInsensitive = lens _kinesisFirehoseDeliveryStreamOpenXJsonSerDeCaseInsensitive (\s a -> s { _kinesisFirehoseDeliveryStreamOpenXJsonSerDeCaseInsensitive = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-openxjsonserde.html#cfn-kinesisfirehose-deliverystream-openxjsonserde-columntojsonkeymappings -kfdsoxjsdColumnToJsonKeyMappings :: Lens' KinesisFirehoseDeliveryStreamOpenXJsonSerDe (Maybe Object) -kfdsoxjsdColumnToJsonKeyMappings = lens _kinesisFirehoseDeliveryStreamOpenXJsonSerDeColumnToJsonKeyMappings (\s a -> s { _kinesisFirehoseDeliveryStreamOpenXJsonSerDeColumnToJsonKeyMappings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-openxjsonserde.html#cfn-kinesisfirehose-deliverystream-openxjsonserde-convertdotsinjsonkeystounderscores -kfdsoxjsdConvertDotsInJsonKeysToUnderscores :: Lens' KinesisFirehoseDeliveryStreamOpenXJsonSerDe (Maybe (Val Bool)) -kfdsoxjsdConvertDotsInJsonKeysToUnderscores = lens _kinesisFirehoseDeliveryStreamOpenXJsonSerDeConvertDotsInJsonKeysToUnderscores (\s a -> s { _kinesisFirehoseDeliveryStreamOpenXJsonSerDeConvertDotsInJsonKeysToUnderscores = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamOrcSerDe.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamOrcSerDe.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamOrcSerDe.hs +++ /dev/null @@ -1,102 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-orcserde.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamOrcSerDe where - -import Stratosphere.ResourceImports - - --- | Full data type definition for KinesisFirehoseDeliveryStreamOrcSerDe. See --- 'kinesisFirehoseDeliveryStreamOrcSerDe' for a more convenient --- constructor. -data KinesisFirehoseDeliveryStreamOrcSerDe = - KinesisFirehoseDeliveryStreamOrcSerDe - { _kinesisFirehoseDeliveryStreamOrcSerDeBlockSizeBytes :: Maybe (Val Integer) - , _kinesisFirehoseDeliveryStreamOrcSerDeBloomFilterColumns :: Maybe (ValList Text) - , _kinesisFirehoseDeliveryStreamOrcSerDeBloomFilterFalsePositiveProbability :: Maybe (Val Double) - , _kinesisFirehoseDeliveryStreamOrcSerDeCompression :: Maybe (Val Text) - , _kinesisFirehoseDeliveryStreamOrcSerDeDictionaryKeyThreshold :: Maybe (Val Double) - , _kinesisFirehoseDeliveryStreamOrcSerDeEnablePadding :: Maybe (Val Bool) - , _kinesisFirehoseDeliveryStreamOrcSerDeFormatVersion :: Maybe (Val Text) - , _kinesisFirehoseDeliveryStreamOrcSerDePaddingTolerance :: Maybe (Val Double) - , _kinesisFirehoseDeliveryStreamOrcSerDeRowIndexStride :: Maybe (Val Integer) - , _kinesisFirehoseDeliveryStreamOrcSerDeStripeSizeBytes :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamOrcSerDe where - toJSON KinesisFirehoseDeliveryStreamOrcSerDe{..} = - object $ - catMaybes - [ fmap (("BlockSizeBytes",) . toJSON) _kinesisFirehoseDeliveryStreamOrcSerDeBlockSizeBytes - , fmap (("BloomFilterColumns",) . toJSON) _kinesisFirehoseDeliveryStreamOrcSerDeBloomFilterColumns - , fmap (("BloomFilterFalsePositiveProbability",) . toJSON) _kinesisFirehoseDeliveryStreamOrcSerDeBloomFilterFalsePositiveProbability - , fmap (("Compression",) . toJSON) _kinesisFirehoseDeliveryStreamOrcSerDeCompression - , fmap (("DictionaryKeyThreshold",) . toJSON) _kinesisFirehoseDeliveryStreamOrcSerDeDictionaryKeyThreshold - , fmap (("EnablePadding",) . toJSON) _kinesisFirehoseDeliveryStreamOrcSerDeEnablePadding - , fmap (("FormatVersion",) . toJSON) _kinesisFirehoseDeliveryStreamOrcSerDeFormatVersion - , fmap (("PaddingTolerance",) . toJSON) _kinesisFirehoseDeliveryStreamOrcSerDePaddingTolerance - , fmap (("RowIndexStride",) . toJSON) _kinesisFirehoseDeliveryStreamOrcSerDeRowIndexStride - , fmap (("StripeSizeBytes",) . toJSON) _kinesisFirehoseDeliveryStreamOrcSerDeStripeSizeBytes - ] - --- | Constructor for 'KinesisFirehoseDeliveryStreamOrcSerDe' containing --- required fields as arguments. -kinesisFirehoseDeliveryStreamOrcSerDe - :: KinesisFirehoseDeliveryStreamOrcSerDe -kinesisFirehoseDeliveryStreamOrcSerDe = - KinesisFirehoseDeliveryStreamOrcSerDe - { _kinesisFirehoseDeliveryStreamOrcSerDeBlockSizeBytes = Nothing - , _kinesisFirehoseDeliveryStreamOrcSerDeBloomFilterColumns = Nothing - , _kinesisFirehoseDeliveryStreamOrcSerDeBloomFilterFalsePositiveProbability = Nothing - , _kinesisFirehoseDeliveryStreamOrcSerDeCompression = Nothing - , _kinesisFirehoseDeliveryStreamOrcSerDeDictionaryKeyThreshold = Nothing - , _kinesisFirehoseDeliveryStreamOrcSerDeEnablePadding = Nothing - , _kinesisFirehoseDeliveryStreamOrcSerDeFormatVersion = Nothing - , _kinesisFirehoseDeliveryStreamOrcSerDePaddingTolerance = Nothing - , _kinesisFirehoseDeliveryStreamOrcSerDeRowIndexStride = Nothing - , _kinesisFirehoseDeliveryStreamOrcSerDeStripeSizeBytes = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-orcserde.html#cfn-kinesisfirehose-deliverystream-orcserde-blocksizebytes -kfdsosdBlockSizeBytes :: Lens' KinesisFirehoseDeliveryStreamOrcSerDe (Maybe (Val Integer)) -kfdsosdBlockSizeBytes = lens _kinesisFirehoseDeliveryStreamOrcSerDeBlockSizeBytes (\s a -> s { _kinesisFirehoseDeliveryStreamOrcSerDeBlockSizeBytes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-orcserde.html#cfn-kinesisfirehose-deliverystream-orcserde-bloomfiltercolumns -kfdsosdBloomFilterColumns :: Lens' KinesisFirehoseDeliveryStreamOrcSerDe (Maybe (ValList Text)) -kfdsosdBloomFilterColumns = lens _kinesisFirehoseDeliveryStreamOrcSerDeBloomFilterColumns (\s a -> s { _kinesisFirehoseDeliveryStreamOrcSerDeBloomFilterColumns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-orcserde.html#cfn-kinesisfirehose-deliverystream-orcserde-bloomfilterfalsepositiveprobability -kfdsosdBloomFilterFalsePositiveProbability :: Lens' KinesisFirehoseDeliveryStreamOrcSerDe (Maybe (Val Double)) -kfdsosdBloomFilterFalsePositiveProbability = lens _kinesisFirehoseDeliveryStreamOrcSerDeBloomFilterFalsePositiveProbability (\s a -> s { _kinesisFirehoseDeliveryStreamOrcSerDeBloomFilterFalsePositiveProbability = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-orcserde.html#cfn-kinesisfirehose-deliverystream-orcserde-compression -kfdsosdCompression :: Lens' KinesisFirehoseDeliveryStreamOrcSerDe (Maybe (Val Text)) -kfdsosdCompression = lens _kinesisFirehoseDeliveryStreamOrcSerDeCompression (\s a -> s { _kinesisFirehoseDeliveryStreamOrcSerDeCompression = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-orcserde.html#cfn-kinesisfirehose-deliverystream-orcserde-dictionarykeythreshold -kfdsosdDictionaryKeyThreshold :: Lens' KinesisFirehoseDeliveryStreamOrcSerDe (Maybe (Val Double)) -kfdsosdDictionaryKeyThreshold = lens _kinesisFirehoseDeliveryStreamOrcSerDeDictionaryKeyThreshold (\s a -> s { _kinesisFirehoseDeliveryStreamOrcSerDeDictionaryKeyThreshold = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-orcserde.html#cfn-kinesisfirehose-deliverystream-orcserde-enablepadding -kfdsosdEnablePadding :: Lens' KinesisFirehoseDeliveryStreamOrcSerDe (Maybe (Val Bool)) -kfdsosdEnablePadding = lens _kinesisFirehoseDeliveryStreamOrcSerDeEnablePadding (\s a -> s { _kinesisFirehoseDeliveryStreamOrcSerDeEnablePadding = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-orcserde.html#cfn-kinesisfirehose-deliverystream-orcserde-formatversion -kfdsosdFormatVersion :: Lens' KinesisFirehoseDeliveryStreamOrcSerDe (Maybe (Val Text)) -kfdsosdFormatVersion = lens _kinesisFirehoseDeliveryStreamOrcSerDeFormatVersion (\s a -> s { _kinesisFirehoseDeliveryStreamOrcSerDeFormatVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-orcserde.html#cfn-kinesisfirehose-deliverystream-orcserde-paddingtolerance -kfdsosdPaddingTolerance :: Lens' KinesisFirehoseDeliveryStreamOrcSerDe (Maybe (Val Double)) -kfdsosdPaddingTolerance = lens _kinesisFirehoseDeliveryStreamOrcSerDePaddingTolerance (\s a -> s { _kinesisFirehoseDeliveryStreamOrcSerDePaddingTolerance = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-orcserde.html#cfn-kinesisfirehose-deliverystream-orcserde-rowindexstride -kfdsosdRowIndexStride :: Lens' KinesisFirehoseDeliveryStreamOrcSerDe (Maybe (Val Integer)) -kfdsosdRowIndexStride = lens _kinesisFirehoseDeliveryStreamOrcSerDeRowIndexStride (\s a -> s { _kinesisFirehoseDeliveryStreamOrcSerDeRowIndexStride = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-orcserde.html#cfn-kinesisfirehose-deliverystream-orcserde-stripesizebytes -kfdsosdStripeSizeBytes :: Lens' KinesisFirehoseDeliveryStreamOrcSerDe (Maybe (Val Integer)) -kfdsosdStripeSizeBytes = lens _kinesisFirehoseDeliveryStreamOrcSerDeStripeSizeBytes (\s a -> s { _kinesisFirehoseDeliveryStreamOrcSerDeStripeSizeBytes = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamOutputFormatConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamOutputFormatConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamOutputFormatConfiguration.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-outputformatconfiguration.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamOutputFormatConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSerializer - --- | Full data type definition for --- KinesisFirehoseDeliveryStreamOutputFormatConfiguration. See --- 'kinesisFirehoseDeliveryStreamOutputFormatConfiguration' for a more --- convenient constructor. -data KinesisFirehoseDeliveryStreamOutputFormatConfiguration = - KinesisFirehoseDeliveryStreamOutputFormatConfiguration - { _kinesisFirehoseDeliveryStreamOutputFormatConfigurationSerializer :: Maybe KinesisFirehoseDeliveryStreamSerializer - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamOutputFormatConfiguration where - toJSON KinesisFirehoseDeliveryStreamOutputFormatConfiguration{..} = - object $ - catMaybes - [ fmap (("Serializer",) . toJSON) _kinesisFirehoseDeliveryStreamOutputFormatConfigurationSerializer - ] - --- | Constructor for 'KinesisFirehoseDeliveryStreamOutputFormatConfiguration' --- containing required fields as arguments. -kinesisFirehoseDeliveryStreamOutputFormatConfiguration - :: KinesisFirehoseDeliveryStreamOutputFormatConfiguration -kinesisFirehoseDeliveryStreamOutputFormatConfiguration = - KinesisFirehoseDeliveryStreamOutputFormatConfiguration - { _kinesisFirehoseDeliveryStreamOutputFormatConfigurationSerializer = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-outputformatconfiguration.html#cfn-kinesisfirehose-deliverystream-outputformatconfiguration-serializer -kfdsofcSerializer :: Lens' KinesisFirehoseDeliveryStreamOutputFormatConfiguration (Maybe KinesisFirehoseDeliveryStreamSerializer) -kfdsofcSerializer = lens _kinesisFirehoseDeliveryStreamOutputFormatConfigurationSerializer (\s a -> s { _kinesisFirehoseDeliveryStreamOutputFormatConfigurationSerializer = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamParquetSerDe.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamParquetSerDe.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamParquetSerDe.hs +++ /dev/null @@ -1,74 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-parquetserde.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamParquetSerDe where - -import Stratosphere.ResourceImports - - --- | Full data type definition for KinesisFirehoseDeliveryStreamParquetSerDe. --- See 'kinesisFirehoseDeliveryStreamParquetSerDe' for a more convenient --- constructor. -data KinesisFirehoseDeliveryStreamParquetSerDe = - KinesisFirehoseDeliveryStreamParquetSerDe - { _kinesisFirehoseDeliveryStreamParquetSerDeBlockSizeBytes :: Maybe (Val Integer) - , _kinesisFirehoseDeliveryStreamParquetSerDeCompression :: Maybe (Val Text) - , _kinesisFirehoseDeliveryStreamParquetSerDeEnableDictionaryCompression :: Maybe (Val Bool) - , _kinesisFirehoseDeliveryStreamParquetSerDeMaxPaddingBytes :: Maybe (Val Integer) - , _kinesisFirehoseDeliveryStreamParquetSerDePageSizeBytes :: Maybe (Val Integer) - , _kinesisFirehoseDeliveryStreamParquetSerDeWriterVersion :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamParquetSerDe where - toJSON KinesisFirehoseDeliveryStreamParquetSerDe{..} = - object $ - catMaybes - [ fmap (("BlockSizeBytes",) . toJSON) _kinesisFirehoseDeliveryStreamParquetSerDeBlockSizeBytes - , fmap (("Compression",) . toJSON) _kinesisFirehoseDeliveryStreamParquetSerDeCompression - , fmap (("EnableDictionaryCompression",) . toJSON) _kinesisFirehoseDeliveryStreamParquetSerDeEnableDictionaryCompression - , fmap (("MaxPaddingBytes",) . toJSON) _kinesisFirehoseDeliveryStreamParquetSerDeMaxPaddingBytes - , fmap (("PageSizeBytes",) . toJSON) _kinesisFirehoseDeliveryStreamParquetSerDePageSizeBytes - , fmap (("WriterVersion",) . toJSON) _kinesisFirehoseDeliveryStreamParquetSerDeWriterVersion - ] - --- | Constructor for 'KinesisFirehoseDeliveryStreamParquetSerDe' containing --- required fields as arguments. -kinesisFirehoseDeliveryStreamParquetSerDe - :: KinesisFirehoseDeliveryStreamParquetSerDe -kinesisFirehoseDeliveryStreamParquetSerDe = - KinesisFirehoseDeliveryStreamParquetSerDe - { _kinesisFirehoseDeliveryStreamParquetSerDeBlockSizeBytes = Nothing - , _kinesisFirehoseDeliveryStreamParquetSerDeCompression = Nothing - , _kinesisFirehoseDeliveryStreamParquetSerDeEnableDictionaryCompression = Nothing - , _kinesisFirehoseDeliveryStreamParquetSerDeMaxPaddingBytes = Nothing - , _kinesisFirehoseDeliveryStreamParquetSerDePageSizeBytes = Nothing - , _kinesisFirehoseDeliveryStreamParquetSerDeWriterVersion = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-parquetserde.html#cfn-kinesisfirehose-deliverystream-parquetserde-blocksizebytes -kfdspsdBlockSizeBytes :: Lens' KinesisFirehoseDeliveryStreamParquetSerDe (Maybe (Val Integer)) -kfdspsdBlockSizeBytes = lens _kinesisFirehoseDeliveryStreamParquetSerDeBlockSizeBytes (\s a -> s { _kinesisFirehoseDeliveryStreamParquetSerDeBlockSizeBytes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-parquetserde.html#cfn-kinesisfirehose-deliverystream-parquetserde-compression -kfdspsdCompression :: Lens' KinesisFirehoseDeliveryStreamParquetSerDe (Maybe (Val Text)) -kfdspsdCompression = lens _kinesisFirehoseDeliveryStreamParquetSerDeCompression (\s a -> s { _kinesisFirehoseDeliveryStreamParquetSerDeCompression = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-parquetserde.html#cfn-kinesisfirehose-deliverystream-parquetserde-enabledictionarycompression -kfdspsdEnableDictionaryCompression :: Lens' KinesisFirehoseDeliveryStreamParquetSerDe (Maybe (Val Bool)) -kfdspsdEnableDictionaryCompression = lens _kinesisFirehoseDeliveryStreamParquetSerDeEnableDictionaryCompression (\s a -> s { _kinesisFirehoseDeliveryStreamParquetSerDeEnableDictionaryCompression = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-parquetserde.html#cfn-kinesisfirehose-deliverystream-parquetserde-maxpaddingbytes -kfdspsdMaxPaddingBytes :: Lens' KinesisFirehoseDeliveryStreamParquetSerDe (Maybe (Val Integer)) -kfdspsdMaxPaddingBytes = lens _kinesisFirehoseDeliveryStreamParquetSerDeMaxPaddingBytes (\s a -> s { _kinesisFirehoseDeliveryStreamParquetSerDeMaxPaddingBytes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-parquetserde.html#cfn-kinesisfirehose-deliverystream-parquetserde-pagesizebytes -kfdspsdPageSizeBytes :: Lens' KinesisFirehoseDeliveryStreamParquetSerDe (Maybe (Val Integer)) -kfdspsdPageSizeBytes = lens _kinesisFirehoseDeliveryStreamParquetSerDePageSizeBytes (\s a -> s { _kinesisFirehoseDeliveryStreamParquetSerDePageSizeBytes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-parquetserde.html#cfn-kinesisfirehose-deliverystream-parquetserde-writerversion -kfdspsdWriterVersion :: Lens' KinesisFirehoseDeliveryStreamParquetSerDe (Maybe (Val Text)) -kfdspsdWriterVersion = lens _kinesisFirehoseDeliveryStreamParquetSerDeWriterVersion (\s a -> s { _kinesisFirehoseDeliveryStreamParquetSerDeWriterVersion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamProcessingConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamProcessingConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamProcessingConfiguration.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-processingconfiguration.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessingConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessor - --- | Full data type definition for --- KinesisFirehoseDeliveryStreamProcessingConfiguration. See --- 'kinesisFirehoseDeliveryStreamProcessingConfiguration' for a more --- convenient constructor. -data KinesisFirehoseDeliveryStreamProcessingConfiguration = - KinesisFirehoseDeliveryStreamProcessingConfiguration - { _kinesisFirehoseDeliveryStreamProcessingConfigurationEnabled :: Maybe (Val Bool) - , _kinesisFirehoseDeliveryStreamProcessingConfigurationProcessors :: Maybe [KinesisFirehoseDeliveryStreamProcessor] - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamProcessingConfiguration where - toJSON KinesisFirehoseDeliveryStreamProcessingConfiguration{..} = - object $ - catMaybes - [ fmap (("Enabled",) . toJSON) _kinesisFirehoseDeliveryStreamProcessingConfigurationEnabled - , fmap (("Processors",) . toJSON) _kinesisFirehoseDeliveryStreamProcessingConfigurationProcessors - ] - --- | Constructor for 'KinesisFirehoseDeliveryStreamProcessingConfiguration' --- containing required fields as arguments. -kinesisFirehoseDeliveryStreamProcessingConfiguration - :: KinesisFirehoseDeliveryStreamProcessingConfiguration -kinesisFirehoseDeliveryStreamProcessingConfiguration = - KinesisFirehoseDeliveryStreamProcessingConfiguration - { _kinesisFirehoseDeliveryStreamProcessingConfigurationEnabled = Nothing - , _kinesisFirehoseDeliveryStreamProcessingConfigurationProcessors = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-processingconfiguration.html#cfn-kinesisfirehose-deliverystream-processingconfiguration-enabled -kfdspcEnabled :: Lens' KinesisFirehoseDeliveryStreamProcessingConfiguration (Maybe (Val Bool)) -kfdspcEnabled = lens _kinesisFirehoseDeliveryStreamProcessingConfigurationEnabled (\s a -> s { _kinesisFirehoseDeliveryStreamProcessingConfigurationEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-processingconfiguration.html#cfn-kinesisfirehose-deliverystream-processingconfiguration-processors -kfdspcProcessors :: Lens' KinesisFirehoseDeliveryStreamProcessingConfiguration (Maybe [KinesisFirehoseDeliveryStreamProcessor]) -kfdspcProcessors = lens _kinesisFirehoseDeliveryStreamProcessingConfigurationProcessors (\s a -> s { _kinesisFirehoseDeliveryStreamProcessingConfigurationProcessors = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamProcessor.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamProcessor.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamProcessor.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-processor.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessor where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessorParameter - --- | Full data type definition for KinesisFirehoseDeliveryStreamProcessor. See --- 'kinesisFirehoseDeliveryStreamProcessor' for a more convenient --- constructor. -data KinesisFirehoseDeliveryStreamProcessor = - KinesisFirehoseDeliveryStreamProcessor - { _kinesisFirehoseDeliveryStreamProcessorParameters :: Maybe [KinesisFirehoseDeliveryStreamProcessorParameter] - , _kinesisFirehoseDeliveryStreamProcessorType :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamProcessor where - toJSON KinesisFirehoseDeliveryStreamProcessor{..} = - object $ - catMaybes - [ fmap (("Parameters",) . toJSON) _kinesisFirehoseDeliveryStreamProcessorParameters - , (Just . ("Type",) . toJSON) _kinesisFirehoseDeliveryStreamProcessorType - ] - --- | Constructor for 'KinesisFirehoseDeliveryStreamProcessor' containing --- required fields as arguments. -kinesisFirehoseDeliveryStreamProcessor - :: Val Text -- ^ 'kfdspType' - -> KinesisFirehoseDeliveryStreamProcessor -kinesisFirehoseDeliveryStreamProcessor typearg = - KinesisFirehoseDeliveryStreamProcessor - { _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 (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 -kfdspType :: Lens' KinesisFirehoseDeliveryStreamProcessor (Val Text) -kfdspType = lens _kinesisFirehoseDeliveryStreamProcessorType (\s a -> s { _kinesisFirehoseDeliveryStreamProcessorType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamProcessorParameter.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamProcessorParameter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamProcessorParameter.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-processorparameter.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessorParameter where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisFirehoseDeliveryStreamProcessorParameter. See --- 'kinesisFirehoseDeliveryStreamProcessorParameter' for a more convenient --- constructor. -data KinesisFirehoseDeliveryStreamProcessorParameter = - KinesisFirehoseDeliveryStreamProcessorParameter - { _kinesisFirehoseDeliveryStreamProcessorParameterParameterName :: Val Text - , _kinesisFirehoseDeliveryStreamProcessorParameterParameterValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamProcessorParameter where - toJSON KinesisFirehoseDeliveryStreamProcessorParameter{..} = - object $ - catMaybes - [ (Just . ("ParameterName",) . toJSON) _kinesisFirehoseDeliveryStreamProcessorParameterParameterName - , (Just . ("ParameterValue",) . toJSON) _kinesisFirehoseDeliveryStreamProcessorParameterParameterValue - ] - --- | Constructor for 'KinesisFirehoseDeliveryStreamProcessorParameter' --- containing required fields as arguments. -kinesisFirehoseDeliveryStreamProcessorParameter - :: Val Text -- ^ 'kfdsppParameterName' - -> Val Text -- ^ 'kfdsppParameterValue' - -> KinesisFirehoseDeliveryStreamProcessorParameter -kinesisFirehoseDeliveryStreamProcessorParameter parameterNamearg parameterValuearg = - KinesisFirehoseDeliveryStreamProcessorParameter - { _kinesisFirehoseDeliveryStreamProcessorParameterParameterName = parameterNamearg - , _kinesisFirehoseDeliveryStreamProcessorParameterParameterValue = parameterValuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-processorparameter.html#cfn-kinesisfirehose-deliverystream-processorparameter-parametername -kfdsppParameterName :: Lens' KinesisFirehoseDeliveryStreamProcessorParameter (Val Text) -kfdsppParameterName = lens _kinesisFirehoseDeliveryStreamProcessorParameterParameterName (\s a -> s { _kinesisFirehoseDeliveryStreamProcessorParameterParameterName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-processorparameter.html#cfn-kinesisfirehose-deliverystream-processorparameter-parametervalue -kfdsppParameterValue :: Lens' KinesisFirehoseDeliveryStreamProcessorParameter (Val Text) -kfdsppParameterValue = lens _kinesisFirehoseDeliveryStreamProcessorParameterParameterValue (\s a -> s { _kinesisFirehoseDeliveryStreamProcessorParameterParameterValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration.hs +++ /dev/null @@ -1,121 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-redshiftdestinationconfiguration.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration where - -import Stratosphere.ResourceImports -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 --- KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration. See --- 'kinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration' for a --- more convenient constructor. -data KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration = - KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration - { _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationCloudWatchLoggingOptions :: Maybe KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions - , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationClusterJDBCURL :: Val Text - , _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) - -instance ToJSON KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration where - toJSON KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration{..} = - object $ - catMaybes - [ fmap (("CloudWatchLoggingOptions",) . toJSON) _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationCloudWatchLoggingOptions - , (Just . ("ClusterJDBCURL",) . toJSON) _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationClusterJDBCURL - , (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 - ] - --- | Constructor for --- 'KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration' --- containing required fields as arguments. -kinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration - :: Val Text -- ^ 'kfdsrdcClusterJDBCURL' - -> KinesisFirehoseDeliveryStreamCopyCommand -- ^ 'kfdsrdcCopyCommand' - -> Val Text -- ^ 'kfdsrdcPassword' - -> Val Text -- ^ 'kfdsrdcRoleARN' - -> KinesisFirehoseDeliveryStreamS3DestinationConfiguration -- ^ 'kfdsrdcS3Configuration' - -> Val Text -- ^ 'kfdsrdcUsername' - -> KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration -kinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration clusterJDBCURLarg copyCommandarg passwordarg roleARNarg s3Configurationarg usernamearg = - KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration - { _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationCloudWatchLoggingOptions = Nothing - , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationClusterJDBCURL = clusterJDBCURLarg - , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationCopyCommand = copyCommandarg - , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationPassword = passwordarg - , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationProcessingConfiguration = Nothing - , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationRetryOptions = Nothing - , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationRoleARN = roleARNarg - , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationS3BackupConfiguration = Nothing - , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationS3BackupMode = Nothing - , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationS3Configuration = s3Configurationarg - , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationUsername = usernamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-redshiftdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-redshiftdestinationconfiguration-cloudwatchloggingoptions -kfdsrdcCloudWatchLoggingOptions :: Lens' KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions) -kfdsrdcCloudWatchLoggingOptions = lens _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationCloudWatchLoggingOptions (\s a -> s { _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationCloudWatchLoggingOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-redshiftdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-redshiftdestinationconfiguration-clusterjdbcurl -kfdsrdcClusterJDBCURL :: Lens' KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration (Val Text) -kfdsrdcClusterJDBCURL = lens _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationClusterJDBCURL (\s a -> s { _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationClusterJDBCURL = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-redshiftdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-redshiftdestinationconfiguration-copycommand -kfdsrdcCopyCommand :: Lens' KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration KinesisFirehoseDeliveryStreamCopyCommand -kfdsrdcCopyCommand = lens _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationCopyCommand (\s a -> s { _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationCopyCommand = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-redshiftdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-redshiftdestinationconfiguration-password -kfdsrdcPassword :: Lens' KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration (Val Text) -kfdsrdcPassword = lens _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationPassword (\s a -> s { _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationPassword = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-redshiftdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-redshiftdestinationconfiguration-processingconfiguration -kfdsrdcProcessingConfiguration :: Lens' KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamProcessingConfiguration) -kfdsrdcProcessingConfiguration = lens _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationProcessingConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationProcessingConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-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 -kfdsrdcS3Configuration = lens _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationS3Configuration (\s a -> s { _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationS3Configuration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-redshiftdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-redshiftdestinationconfiguration-username -kfdsrdcUsername :: Lens' KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration (Val Text) -kfdsrdcUsername = lens _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationUsername (\s a -> s { _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationUsername = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamRedshiftRetryOptions.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamRedshiftRetryOptions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamRedshiftRetryOptions.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# 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 }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamRetryOptions.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamRetryOptions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamRetryOptions.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-retryoptions.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamRetryOptions where - -import Stratosphere.ResourceImports - - --- | Full data type definition for KinesisFirehoseDeliveryStreamRetryOptions. --- See 'kinesisFirehoseDeliveryStreamRetryOptions' for a more convenient --- constructor. -data KinesisFirehoseDeliveryStreamRetryOptions = - KinesisFirehoseDeliveryStreamRetryOptions - { _kinesisFirehoseDeliveryStreamRetryOptionsDurationInSeconds :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamRetryOptions where - toJSON KinesisFirehoseDeliveryStreamRetryOptions{..} = - object $ - catMaybes - [ fmap (("DurationInSeconds",) . toJSON) _kinesisFirehoseDeliveryStreamRetryOptionsDurationInSeconds - ] - --- | Constructor for 'KinesisFirehoseDeliveryStreamRetryOptions' containing --- required fields as arguments. -kinesisFirehoseDeliveryStreamRetryOptions - :: KinesisFirehoseDeliveryStreamRetryOptions -kinesisFirehoseDeliveryStreamRetryOptions = - KinesisFirehoseDeliveryStreamRetryOptions - { _kinesisFirehoseDeliveryStreamRetryOptionsDurationInSeconds = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-retryoptions.html#cfn-kinesisfirehose-deliverystream-retryoptions-durationinseconds -kfdsroDurationInSeconds :: Lens' KinesisFirehoseDeliveryStreamRetryOptions (Maybe (Val Integer)) -kfdsroDurationInSeconds = lens _kinesisFirehoseDeliveryStreamRetryOptionsDurationInSeconds (\s a -> s { _kinesisFirehoseDeliveryStreamRetryOptionsDurationInSeconds = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamS3DestinationConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamS3DestinationConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamS3DestinationConfiguration.hs +++ /dev/null @@ -1,94 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-s3destinationconfiguration.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamS3DestinationConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.Types -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamBufferingHints -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamEncryptionConfiguration - --- | Full data type definition for --- KinesisFirehoseDeliveryStreamS3DestinationConfiguration. See --- 'kinesisFirehoseDeliveryStreamS3DestinationConfiguration' for a more --- convenient constructor. -data KinesisFirehoseDeliveryStreamS3DestinationConfiguration = - KinesisFirehoseDeliveryStreamS3DestinationConfiguration - { _kinesisFirehoseDeliveryStreamS3DestinationConfigurationBucketARN :: Val Text - , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationBufferingHints :: Maybe KinesisFirehoseDeliveryStreamBufferingHints - , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCloudWatchLoggingOptions :: Maybe KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions - , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCompressionFormat :: Maybe (Val KinesisFirehoseS3CompressionFormat) - , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationEncryptionConfiguration :: Maybe KinesisFirehoseDeliveryStreamEncryptionConfiguration - , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationErrorOutputPrefix :: Maybe (Val Text) - , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationPrefix :: Maybe (Val Text) - , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationRoleARN :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamS3DestinationConfiguration where - toJSON KinesisFirehoseDeliveryStreamS3DestinationConfiguration{..} = - object $ - catMaybes - [ (Just . ("BucketARN",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationBucketARN - , fmap (("BufferingHints",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationBufferingHints - , fmap (("CloudWatchLoggingOptions",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCloudWatchLoggingOptions - , fmap (("CompressionFormat",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCompressionFormat - , fmap (("EncryptionConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationEncryptionConfiguration - , fmap (("ErrorOutputPrefix",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationErrorOutputPrefix - , fmap (("Prefix",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationPrefix - , (Just . ("RoleARN",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationRoleARN - ] - --- | Constructor for 'KinesisFirehoseDeliveryStreamS3DestinationConfiguration' --- containing required fields as arguments. -kinesisFirehoseDeliveryStreamS3DestinationConfiguration - :: Val Text -- ^ 'kfdssdcBucketARN' - -> Val Text -- ^ 'kfdssdcRoleARN' - -> KinesisFirehoseDeliveryStreamS3DestinationConfiguration -kinesisFirehoseDeliveryStreamS3DestinationConfiguration bucketARNarg roleARNarg = - KinesisFirehoseDeliveryStreamS3DestinationConfiguration - { _kinesisFirehoseDeliveryStreamS3DestinationConfigurationBucketARN = bucketARNarg - , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationBufferingHints = Nothing - , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCloudWatchLoggingOptions = Nothing - , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCompressionFormat = Nothing - , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationEncryptionConfiguration = Nothing - , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationErrorOutputPrefix = Nothing - , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationPrefix = Nothing - , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationRoleARN = roleARNarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-s3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-s3destinationconfiguration-bucketarn -kfdssdcBucketARN :: Lens' KinesisFirehoseDeliveryStreamS3DestinationConfiguration (Val Text) -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 (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 -kfdssdcCloudWatchLoggingOptions :: Lens' KinesisFirehoseDeliveryStreamS3DestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions) -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 (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 -kfdssdcEncryptionConfiguration :: Lens' KinesisFirehoseDeliveryStreamS3DestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamEncryptionConfiguration) -kfdssdcEncryptionConfiguration = lens _kinesisFirehoseDeliveryStreamS3DestinationConfigurationEncryptionConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamS3DestinationConfigurationEncryptionConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-s3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-s3destinationconfiguration-erroroutputprefix -kfdssdcErrorOutputPrefix :: Lens' KinesisFirehoseDeliveryStreamS3DestinationConfiguration (Maybe (Val Text)) -kfdssdcErrorOutputPrefix = lens _kinesisFirehoseDeliveryStreamS3DestinationConfigurationErrorOutputPrefix (\s a -> s { _kinesisFirehoseDeliveryStreamS3DestinationConfigurationErrorOutputPrefix = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-s3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-s3destinationconfiguration-prefix -kfdssdcPrefix :: Lens' KinesisFirehoseDeliveryStreamS3DestinationConfiguration (Maybe (Val Text)) -kfdssdcPrefix = lens _kinesisFirehoseDeliveryStreamS3DestinationConfigurationPrefix (\s a -> s { _kinesisFirehoseDeliveryStreamS3DestinationConfigurationPrefix = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-s3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-s3destinationconfiguration-rolearn -kfdssdcRoleARN :: Lens' KinesisFirehoseDeliveryStreamS3DestinationConfiguration (Val Text) -kfdssdcRoleARN = lens _kinesisFirehoseDeliveryStreamS3DestinationConfigurationRoleARN (\s a -> s { _kinesisFirehoseDeliveryStreamS3DestinationConfigurationRoleARN = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamSchemaConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamSchemaConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamSchemaConfiguration.hs +++ /dev/null @@ -1,75 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-schemaconfiguration.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSchemaConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisFirehoseDeliveryStreamSchemaConfiguration. See --- 'kinesisFirehoseDeliveryStreamSchemaConfiguration' for a more convenient --- constructor. -data KinesisFirehoseDeliveryStreamSchemaConfiguration = - KinesisFirehoseDeliveryStreamSchemaConfiguration - { _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 - [ 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 - :: KinesisFirehoseDeliveryStreamSchemaConfiguration -kinesisFirehoseDeliveryStreamSchemaConfiguration = - KinesisFirehoseDeliveryStreamSchemaConfiguration - { _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 (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 (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 (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 (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 (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 (Maybe (Val Text)) -kfdsscVersionId = lens _kinesisFirehoseDeliveryStreamSchemaConfigurationVersionId (\s a -> s { _kinesisFirehoseDeliveryStreamSchemaConfigurationVersionId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamSerializer.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamSerializer.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamSerializer.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-serializer.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSerializer where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamOrcSerDe -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamParquetSerDe - --- | Full data type definition for KinesisFirehoseDeliveryStreamSerializer. --- See 'kinesisFirehoseDeliveryStreamSerializer' for a more convenient --- constructor. -data KinesisFirehoseDeliveryStreamSerializer = - KinesisFirehoseDeliveryStreamSerializer - { _kinesisFirehoseDeliveryStreamSerializerOrcSerDe :: Maybe KinesisFirehoseDeliveryStreamOrcSerDe - , _kinesisFirehoseDeliveryStreamSerializerParquetSerDe :: Maybe KinesisFirehoseDeliveryStreamParquetSerDe - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamSerializer where - toJSON KinesisFirehoseDeliveryStreamSerializer{..} = - object $ - catMaybes - [ fmap (("OrcSerDe",) . toJSON) _kinesisFirehoseDeliveryStreamSerializerOrcSerDe - , fmap (("ParquetSerDe",) . toJSON) _kinesisFirehoseDeliveryStreamSerializerParquetSerDe - ] - --- | Constructor for 'KinesisFirehoseDeliveryStreamSerializer' containing --- required fields as arguments. -kinesisFirehoseDeliveryStreamSerializer - :: KinesisFirehoseDeliveryStreamSerializer -kinesisFirehoseDeliveryStreamSerializer = - KinesisFirehoseDeliveryStreamSerializer - { _kinesisFirehoseDeliveryStreamSerializerOrcSerDe = Nothing - , _kinesisFirehoseDeliveryStreamSerializerParquetSerDe = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-serializer.html#cfn-kinesisfirehose-deliverystream-serializer-orcserde -kfdssOrcSerDe :: Lens' KinesisFirehoseDeliveryStreamSerializer (Maybe KinesisFirehoseDeliveryStreamOrcSerDe) -kfdssOrcSerDe = lens _kinesisFirehoseDeliveryStreamSerializerOrcSerDe (\s a -> s { _kinesisFirehoseDeliveryStreamSerializerOrcSerDe = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-serializer.html#cfn-kinesisfirehose-deliverystream-serializer-parquetserde -kfdssParquetSerDe :: Lens' KinesisFirehoseDeliveryStreamSerializer (Maybe KinesisFirehoseDeliveryStreamParquetSerDe) -kfdssParquetSerDe = lens _kinesisFirehoseDeliveryStreamSerializerParquetSerDe (\s a -> s { _kinesisFirehoseDeliveryStreamSerializerParquetSerDe = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration.hs +++ /dev/null @@ -1,104 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-splunkdestinationconfiguration.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessingConfiguration -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSplunkRetryOptions -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamS3DestinationConfiguration - --- | Full data type definition for --- KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration. See --- 'kinesisFirehoseDeliveryStreamSplunkDestinationConfiguration' for a more --- convenient constructor. -data KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration = - KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration - { _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationCloudWatchLoggingOptions :: Maybe KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions - , _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationHECAcknowledgmentTimeoutInSeconds :: Maybe (Val Integer) - , _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationHECEndpoint :: Val Text - , _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationHECEndpointType :: Val Text - , _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationHECToken :: Val Text - , _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationProcessingConfiguration :: Maybe KinesisFirehoseDeliveryStreamProcessingConfiguration - , _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationRetryOptions :: Maybe KinesisFirehoseDeliveryStreamSplunkRetryOptions - , _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationS3BackupMode :: Maybe (Val Text) - , _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationS3Configuration :: KinesisFirehoseDeliveryStreamS3DestinationConfiguration - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration where - toJSON KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration{..} = - object $ - catMaybes - [ fmap (("CloudWatchLoggingOptions",) . toJSON) _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationCloudWatchLoggingOptions - , fmap (("HECAcknowledgmentTimeoutInSeconds",) . toJSON) _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationHECAcknowledgmentTimeoutInSeconds - , (Just . ("HECEndpoint",) . toJSON) _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationHECEndpoint - , (Just . ("HECEndpointType",) . toJSON) _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationHECEndpointType - , (Just . ("HECToken",) . toJSON) _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationHECToken - , fmap (("ProcessingConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationProcessingConfiguration - , fmap (("RetryOptions",) . toJSON) _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationRetryOptions - , fmap (("S3BackupMode",) . toJSON) _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationS3BackupMode - , (Just . ("S3Configuration",) . toJSON) _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationS3Configuration - ] - --- | Constructor for --- 'KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration' containing --- required fields as arguments. -kinesisFirehoseDeliveryStreamSplunkDestinationConfiguration - :: Val Text -- ^ 'kfdsspdcHECEndpoint' - -> Val Text -- ^ 'kfdsspdcHECEndpointType' - -> Val Text -- ^ 'kfdsspdcHECToken' - -> KinesisFirehoseDeliveryStreamS3DestinationConfiguration -- ^ 'kfdsspdcS3Configuration' - -> KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration -kinesisFirehoseDeliveryStreamSplunkDestinationConfiguration hECEndpointarg hECEndpointTypearg hECTokenarg s3Configurationarg = - KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration - { _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationCloudWatchLoggingOptions = Nothing - , _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationHECAcknowledgmentTimeoutInSeconds = Nothing - , _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationHECEndpoint = hECEndpointarg - , _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationHECEndpointType = hECEndpointTypearg - , _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationHECToken = hECTokenarg - , _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationProcessingConfiguration = Nothing - , _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationRetryOptions = Nothing - , _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationS3BackupMode = Nothing - , _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationS3Configuration = s3Configurationarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-splunkdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-splunkdestinationconfiguration-cloudwatchloggingoptions -kfdsspdcCloudWatchLoggingOptions :: Lens' KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions) -kfdsspdcCloudWatchLoggingOptions = lens _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationCloudWatchLoggingOptions (\s a -> s { _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationCloudWatchLoggingOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-splunkdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-splunkdestinationconfiguration-hecacknowledgmenttimeoutinseconds -kfdsspdcHECAcknowledgmentTimeoutInSeconds :: Lens' KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration (Maybe (Val Integer)) -kfdsspdcHECAcknowledgmentTimeoutInSeconds = lens _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationHECAcknowledgmentTimeoutInSeconds (\s a -> s { _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationHECAcknowledgmentTimeoutInSeconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-splunkdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-splunkdestinationconfiguration-hecendpoint -kfdsspdcHECEndpoint :: Lens' KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration (Val Text) -kfdsspdcHECEndpoint = lens _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationHECEndpoint (\s a -> s { _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationHECEndpoint = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-splunkdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-splunkdestinationconfiguration-hecendpointtype -kfdsspdcHECEndpointType :: Lens' KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration (Val Text) -kfdsspdcHECEndpointType = lens _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationHECEndpointType (\s a -> s { _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationHECEndpointType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-splunkdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-splunkdestinationconfiguration-hectoken -kfdsspdcHECToken :: Lens' KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration (Val Text) -kfdsspdcHECToken = lens _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationHECToken (\s a -> s { _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationHECToken = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-splunkdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-splunkdestinationconfiguration-processingconfiguration -kfdsspdcProcessingConfiguration :: Lens' KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamProcessingConfiguration) -kfdsspdcProcessingConfiguration = lens _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationProcessingConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationProcessingConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-splunkdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-splunkdestinationconfiguration-retryoptions -kfdsspdcRetryOptions :: Lens' KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamSplunkRetryOptions) -kfdsspdcRetryOptions = lens _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationRetryOptions (\s a -> s { _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationRetryOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-splunkdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-splunkdestinationconfiguration-s3backupmode -kfdsspdcS3BackupMode :: Lens' KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration (Maybe (Val Text)) -kfdsspdcS3BackupMode = lens _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationS3BackupMode (\s a -> s { _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationS3BackupMode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-splunkdestinationconfiguration.html#cfn-kinesisfirehose-deliverystream-splunkdestinationconfiguration-s3configuration -kfdsspdcS3Configuration :: Lens' KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration KinesisFirehoseDeliveryStreamS3DestinationConfiguration -kfdsspdcS3Configuration = lens _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationS3Configuration (\s a -> s { _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationS3Configuration = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamSplunkRetryOptions.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamSplunkRetryOptions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamSplunkRetryOptions.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-splunkretryoptions.html - -module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSplunkRetryOptions where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- KinesisFirehoseDeliveryStreamSplunkRetryOptions. See --- 'kinesisFirehoseDeliveryStreamSplunkRetryOptions' for a more convenient --- constructor. -data KinesisFirehoseDeliveryStreamSplunkRetryOptions = - KinesisFirehoseDeliveryStreamSplunkRetryOptions - { _kinesisFirehoseDeliveryStreamSplunkRetryOptionsDurationInSeconds :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON KinesisFirehoseDeliveryStreamSplunkRetryOptions where - toJSON KinesisFirehoseDeliveryStreamSplunkRetryOptions{..} = - object $ - catMaybes - [ fmap (("DurationInSeconds",) . toJSON) _kinesisFirehoseDeliveryStreamSplunkRetryOptionsDurationInSeconds - ] - --- | Constructor for 'KinesisFirehoseDeliveryStreamSplunkRetryOptions' --- containing required fields as arguments. -kinesisFirehoseDeliveryStreamSplunkRetryOptions - :: KinesisFirehoseDeliveryStreamSplunkRetryOptions -kinesisFirehoseDeliveryStreamSplunkRetryOptions = - KinesisFirehoseDeliveryStreamSplunkRetryOptions - { _kinesisFirehoseDeliveryStreamSplunkRetryOptionsDurationInSeconds = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-splunkretryoptions.html#cfn-kinesisfirehose-deliverystream-splunkretryoptions-durationinseconds -kfdssroDurationInSeconds :: Lens' KinesisFirehoseDeliveryStreamSplunkRetryOptions (Maybe (Val Integer)) -kfdssroDurationInSeconds = lens _kinesisFirehoseDeliveryStreamSplunkRetryOptionsDurationInSeconds (\s a -> s { _kinesisFirehoseDeliveryStreamSplunkRetryOptionsDurationInSeconds = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamVpcConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamVpcConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamVpcConfiguration.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# 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 }) diff --git a/library-gen/Stratosphere/ResourceProperties/KinesisStreamStreamEncryption.hs b/library-gen/Stratosphere/ResourceProperties/KinesisStreamStreamEncryption.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/KinesisStreamStreamEncryption.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesis-stream-streamencryption.html - -module Stratosphere.ResourceProperties.KinesisStreamStreamEncryption where - -import Stratosphere.ResourceImports - - --- | Full data type definition for KinesisStreamStreamEncryption. See --- 'kinesisStreamStreamEncryption' for a more convenient constructor. -data KinesisStreamStreamEncryption = - KinesisStreamStreamEncryption - { _kinesisStreamStreamEncryptionEncryptionType :: Val Text - , _kinesisStreamStreamEncryptionKeyId :: Val Text - } deriving (Show, Eq) - -instance ToJSON KinesisStreamStreamEncryption where - toJSON KinesisStreamStreamEncryption{..} = - object $ - catMaybes - [ (Just . ("EncryptionType",) . toJSON) _kinesisStreamStreamEncryptionEncryptionType - , (Just . ("KeyId",) . toJSON) _kinesisStreamStreamEncryptionKeyId - ] - --- | Constructor for 'KinesisStreamStreamEncryption' containing required --- fields as arguments. -kinesisStreamStreamEncryption - :: Val Text -- ^ 'ksseEncryptionType' - -> Val Text -- ^ 'ksseKeyId' - -> KinesisStreamStreamEncryption -kinesisStreamStreamEncryption encryptionTypearg keyIdarg = - KinesisStreamStreamEncryption - { _kinesisStreamStreamEncryptionEncryptionType = encryptionTypearg - , _kinesisStreamStreamEncryptionKeyId = keyIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesis-stream-streamencryption.html#cfn-kinesis-stream-streamencryption-encryptiontype -ksseEncryptionType :: Lens' KinesisStreamStreamEncryption (Val Text) -ksseEncryptionType = lens _kinesisStreamStreamEncryptionEncryptionType (\s a -> s { _kinesisStreamStreamEncryptionEncryptionType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesis-stream-streamencryption.html#cfn-kinesis-stream-streamencryption-keyid -ksseKeyId :: Lens' KinesisStreamStreamEncryption (Val Text) -ksseKeyId = lens _kinesisStreamStreamEncryptionKeyId (\s a -> s { _kinesisStreamStreamEncryptionKeyId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/LakeFormationDataLakeSettingsDataLakePrincipal.hs b/library-gen/Stratosphere/ResourceProperties/LakeFormationDataLakeSettingsDataLakePrincipal.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/LakeFormationDataLakeSettingsDataLakePrincipal.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-datalakesettings-datalakeprincipal.html - -module Stratosphere.ResourceProperties.LakeFormationDataLakeSettingsDataLakePrincipal where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- LakeFormationDataLakeSettingsDataLakePrincipal. See --- 'lakeFormationDataLakeSettingsDataLakePrincipal' for a more convenient --- constructor. -data LakeFormationDataLakeSettingsDataLakePrincipal = - LakeFormationDataLakeSettingsDataLakePrincipal - { _lakeFormationDataLakeSettingsDataLakePrincipalDataLakePrincipalIdentifier :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON LakeFormationDataLakeSettingsDataLakePrincipal where - toJSON LakeFormationDataLakeSettingsDataLakePrincipal{..} = - object $ - catMaybes - [ fmap (("DataLakePrincipalIdentifier",) . toJSON) _lakeFormationDataLakeSettingsDataLakePrincipalDataLakePrincipalIdentifier - ] - --- | Constructor for 'LakeFormationDataLakeSettingsDataLakePrincipal' --- containing required fields as arguments. -lakeFormationDataLakeSettingsDataLakePrincipal - :: LakeFormationDataLakeSettingsDataLakePrincipal -lakeFormationDataLakeSettingsDataLakePrincipal = - LakeFormationDataLakeSettingsDataLakePrincipal - { _lakeFormationDataLakeSettingsDataLakePrincipalDataLakePrincipalIdentifier = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-datalakesettings-datalakeprincipal.html#cfn-lakeformation-datalakesettings-datalakeprincipal-datalakeprincipalidentifier -lfdlsdlpDataLakePrincipalIdentifier :: Lens' LakeFormationDataLakeSettingsDataLakePrincipal (Maybe (Val Text)) -lfdlsdlpDataLakePrincipalIdentifier = lens _lakeFormationDataLakeSettingsDataLakePrincipalDataLakePrincipalIdentifier (\s a -> s { _lakeFormationDataLakeSettingsDataLakePrincipalDataLakePrincipalIdentifier = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/LakeFormationPermissionsColumnWildcard.hs b/library-gen/Stratosphere/ResourceProperties/LakeFormationPermissionsColumnWildcard.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/LakeFormationPermissionsColumnWildcard.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-columnwildcard.html - -module Stratosphere.ResourceProperties.LakeFormationPermissionsColumnWildcard where - -import Stratosphere.ResourceImports - - --- | Full data type definition for LakeFormationPermissionsColumnWildcard. See --- 'lakeFormationPermissionsColumnWildcard' for a more convenient --- constructor. -data LakeFormationPermissionsColumnWildcard = - LakeFormationPermissionsColumnWildcard - { _lakeFormationPermissionsColumnWildcardExcludedColumnNames :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON LakeFormationPermissionsColumnWildcard where - toJSON LakeFormationPermissionsColumnWildcard{..} = - object $ - catMaybes - [ fmap (("ExcludedColumnNames",) . toJSON) _lakeFormationPermissionsColumnWildcardExcludedColumnNames - ] - --- | Constructor for 'LakeFormationPermissionsColumnWildcard' containing --- required fields as arguments. -lakeFormationPermissionsColumnWildcard - :: LakeFormationPermissionsColumnWildcard -lakeFormationPermissionsColumnWildcard = - LakeFormationPermissionsColumnWildcard - { _lakeFormationPermissionsColumnWildcardExcludedColumnNames = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-columnwildcard.html#cfn-lakeformation-permissions-columnwildcard-excludedcolumnnames -lfpcwExcludedColumnNames :: Lens' LakeFormationPermissionsColumnWildcard (Maybe (ValList Text)) -lfpcwExcludedColumnNames = lens _lakeFormationPermissionsColumnWildcardExcludedColumnNames (\s a -> s { _lakeFormationPermissionsColumnWildcardExcludedColumnNames = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/LakeFormationPermissionsDataLakePrincipal.hs b/library-gen/Stratosphere/ResourceProperties/LakeFormationPermissionsDataLakePrincipal.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/LakeFormationPermissionsDataLakePrincipal.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-datalakeprincipal.html - -module Stratosphere.ResourceProperties.LakeFormationPermissionsDataLakePrincipal where - -import Stratosphere.ResourceImports - - --- | Full data type definition for LakeFormationPermissionsDataLakePrincipal. --- See 'lakeFormationPermissionsDataLakePrincipal' for a more convenient --- constructor. -data LakeFormationPermissionsDataLakePrincipal = - LakeFormationPermissionsDataLakePrincipal - { _lakeFormationPermissionsDataLakePrincipalDataLakePrincipalIdentifier :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON LakeFormationPermissionsDataLakePrincipal where - toJSON LakeFormationPermissionsDataLakePrincipal{..} = - object $ - catMaybes - [ fmap (("DataLakePrincipalIdentifier",) . toJSON) _lakeFormationPermissionsDataLakePrincipalDataLakePrincipalIdentifier - ] - --- | Constructor for 'LakeFormationPermissionsDataLakePrincipal' containing --- required fields as arguments. -lakeFormationPermissionsDataLakePrincipal - :: LakeFormationPermissionsDataLakePrincipal -lakeFormationPermissionsDataLakePrincipal = - LakeFormationPermissionsDataLakePrincipal - { _lakeFormationPermissionsDataLakePrincipalDataLakePrincipalIdentifier = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-datalakeprincipal.html#cfn-lakeformation-permissions-datalakeprincipal-datalakeprincipalidentifier -lfpdlpDataLakePrincipalIdentifier :: Lens' LakeFormationPermissionsDataLakePrincipal (Maybe (Val Text)) -lfpdlpDataLakePrincipalIdentifier = lens _lakeFormationPermissionsDataLakePrincipalDataLakePrincipalIdentifier (\s a -> s { _lakeFormationPermissionsDataLakePrincipalDataLakePrincipalIdentifier = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/LakeFormationPermissionsDataLocationResource.hs b/library-gen/Stratosphere/ResourceProperties/LakeFormationPermissionsDataLocationResource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/LakeFormationPermissionsDataLocationResource.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-datalocationresource.html - -module Stratosphere.ResourceProperties.LakeFormationPermissionsDataLocationResource where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- LakeFormationPermissionsDataLocationResource. See --- 'lakeFormationPermissionsDataLocationResource' for a more convenient --- constructor. -data LakeFormationPermissionsDataLocationResource = - LakeFormationPermissionsDataLocationResource - { _lakeFormationPermissionsDataLocationResourceS3Resource :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON LakeFormationPermissionsDataLocationResource where - toJSON LakeFormationPermissionsDataLocationResource{..} = - object $ - catMaybes - [ fmap (("S3Resource",) . toJSON) _lakeFormationPermissionsDataLocationResourceS3Resource - ] - --- | Constructor for 'LakeFormationPermissionsDataLocationResource' containing --- required fields as arguments. -lakeFormationPermissionsDataLocationResource - :: LakeFormationPermissionsDataLocationResource -lakeFormationPermissionsDataLocationResource = - LakeFormationPermissionsDataLocationResource - { _lakeFormationPermissionsDataLocationResourceS3Resource = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-datalocationresource.html#cfn-lakeformation-permissions-datalocationresource-s3resource -lfpdlrS3Resource :: Lens' LakeFormationPermissionsDataLocationResource (Maybe (Val Text)) -lfpdlrS3Resource = lens _lakeFormationPermissionsDataLocationResourceS3Resource (\s a -> s { _lakeFormationPermissionsDataLocationResourceS3Resource = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/LakeFormationPermissionsDatabaseResource.hs b/library-gen/Stratosphere/ResourceProperties/LakeFormationPermissionsDatabaseResource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/LakeFormationPermissionsDatabaseResource.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-databaseresource.html - -module Stratosphere.ResourceProperties.LakeFormationPermissionsDatabaseResource where - -import Stratosphere.ResourceImports - - --- | Full data type definition for LakeFormationPermissionsDatabaseResource. --- See 'lakeFormationPermissionsDatabaseResource' for a more convenient --- constructor. -data LakeFormationPermissionsDatabaseResource = - LakeFormationPermissionsDatabaseResource - { _lakeFormationPermissionsDatabaseResourceName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON LakeFormationPermissionsDatabaseResource where - toJSON LakeFormationPermissionsDatabaseResource{..} = - object $ - catMaybes - [ fmap (("Name",) . toJSON) _lakeFormationPermissionsDatabaseResourceName - ] - --- | Constructor for 'LakeFormationPermissionsDatabaseResource' containing --- required fields as arguments. -lakeFormationPermissionsDatabaseResource - :: LakeFormationPermissionsDatabaseResource -lakeFormationPermissionsDatabaseResource = - LakeFormationPermissionsDatabaseResource - { _lakeFormationPermissionsDatabaseResourceName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-databaseresource.html#cfn-lakeformation-permissions-databaseresource-name -lfpdrName :: Lens' LakeFormationPermissionsDatabaseResource (Maybe (Val Text)) -lfpdrName = lens _lakeFormationPermissionsDatabaseResourceName (\s a -> s { _lakeFormationPermissionsDatabaseResourceName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/LakeFormationPermissionsResource.hs b/library-gen/Stratosphere/ResourceProperties/LakeFormationPermissionsResource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/LakeFormationPermissionsResource.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-resource.html - -module Stratosphere.ResourceProperties.LakeFormationPermissionsResource where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.LakeFormationPermissionsDataLocationResource -import Stratosphere.ResourceProperties.LakeFormationPermissionsDatabaseResource -import Stratosphere.ResourceProperties.LakeFormationPermissionsTableResource -import Stratosphere.ResourceProperties.LakeFormationPermissionsTableWithColumnsResource - --- | Full data type definition for LakeFormationPermissionsResource. See --- 'lakeFormationPermissionsResource' for a more convenient constructor. -data LakeFormationPermissionsResource = - LakeFormationPermissionsResource - { _lakeFormationPermissionsResourceDataLocationResource :: Maybe LakeFormationPermissionsDataLocationResource - , _lakeFormationPermissionsResourceDatabaseResource :: Maybe LakeFormationPermissionsDatabaseResource - , _lakeFormationPermissionsResourceTableResource :: Maybe LakeFormationPermissionsTableResource - , _lakeFormationPermissionsResourceTableWithColumnsResource :: Maybe LakeFormationPermissionsTableWithColumnsResource - } deriving (Show, Eq) - -instance ToJSON LakeFormationPermissionsResource where - toJSON LakeFormationPermissionsResource{..} = - object $ - catMaybes - [ fmap (("DataLocationResource",) . toJSON) _lakeFormationPermissionsResourceDataLocationResource - , fmap (("DatabaseResource",) . toJSON) _lakeFormationPermissionsResourceDatabaseResource - , fmap (("TableResource",) . toJSON) _lakeFormationPermissionsResourceTableResource - , fmap (("TableWithColumnsResource",) . toJSON) _lakeFormationPermissionsResourceTableWithColumnsResource - ] - --- | Constructor for 'LakeFormationPermissionsResource' containing required --- fields as arguments. -lakeFormationPermissionsResource - :: LakeFormationPermissionsResource -lakeFormationPermissionsResource = - LakeFormationPermissionsResource - { _lakeFormationPermissionsResourceDataLocationResource = Nothing - , _lakeFormationPermissionsResourceDatabaseResource = Nothing - , _lakeFormationPermissionsResourceTableResource = Nothing - , _lakeFormationPermissionsResourceTableWithColumnsResource = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-resource.html#cfn-lakeformation-permissions-resource-datalocationresource -lfprDataLocationResource :: Lens' LakeFormationPermissionsResource (Maybe LakeFormationPermissionsDataLocationResource) -lfprDataLocationResource = lens _lakeFormationPermissionsResourceDataLocationResource (\s a -> s { _lakeFormationPermissionsResourceDataLocationResource = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-resource.html#cfn-lakeformation-permissions-resource-databaseresource -lfprDatabaseResource :: Lens' LakeFormationPermissionsResource (Maybe LakeFormationPermissionsDatabaseResource) -lfprDatabaseResource = lens _lakeFormationPermissionsResourceDatabaseResource (\s a -> s { _lakeFormationPermissionsResourceDatabaseResource = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-resource.html#cfn-lakeformation-permissions-resource-tableresource -lfprTableResource :: Lens' LakeFormationPermissionsResource (Maybe LakeFormationPermissionsTableResource) -lfprTableResource = lens _lakeFormationPermissionsResourceTableResource (\s a -> s { _lakeFormationPermissionsResourceTableResource = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-resource.html#cfn-lakeformation-permissions-resource-tablewithcolumnsresource -lfprTableWithColumnsResource :: Lens' LakeFormationPermissionsResource (Maybe LakeFormationPermissionsTableWithColumnsResource) -lfprTableWithColumnsResource = lens _lakeFormationPermissionsResourceTableWithColumnsResource (\s a -> s { _lakeFormationPermissionsResourceTableWithColumnsResource = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/LakeFormationPermissionsTableResource.hs b/library-gen/Stratosphere/ResourceProperties/LakeFormationPermissionsTableResource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/LakeFormationPermissionsTableResource.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-tableresource.html - -module Stratosphere.ResourceProperties.LakeFormationPermissionsTableResource where - -import Stratosphere.ResourceImports - - --- | Full data type definition for LakeFormationPermissionsTableResource. See --- 'lakeFormationPermissionsTableResource' for a more convenient --- constructor. -data LakeFormationPermissionsTableResource = - LakeFormationPermissionsTableResource - { _lakeFormationPermissionsTableResourceDatabaseName :: Maybe (Val Text) - , _lakeFormationPermissionsTableResourceName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON LakeFormationPermissionsTableResource where - toJSON LakeFormationPermissionsTableResource{..} = - object $ - catMaybes - [ fmap (("DatabaseName",) . toJSON) _lakeFormationPermissionsTableResourceDatabaseName - , fmap (("Name",) . toJSON) _lakeFormationPermissionsTableResourceName - ] - --- | Constructor for 'LakeFormationPermissionsTableResource' containing --- required fields as arguments. -lakeFormationPermissionsTableResource - :: LakeFormationPermissionsTableResource -lakeFormationPermissionsTableResource = - LakeFormationPermissionsTableResource - { _lakeFormationPermissionsTableResourceDatabaseName = Nothing - , _lakeFormationPermissionsTableResourceName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-tableresource.html#cfn-lakeformation-permissions-tableresource-databasename -lfptrDatabaseName :: Lens' LakeFormationPermissionsTableResource (Maybe (Val Text)) -lfptrDatabaseName = lens _lakeFormationPermissionsTableResourceDatabaseName (\s a -> s { _lakeFormationPermissionsTableResourceDatabaseName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-tableresource.html#cfn-lakeformation-permissions-tableresource-name -lfptrName :: Lens' LakeFormationPermissionsTableResource (Maybe (Val Text)) -lfptrName = lens _lakeFormationPermissionsTableResourceName (\s a -> s { _lakeFormationPermissionsTableResourceName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/LakeFormationPermissionsTableWithColumnsResource.hs b/library-gen/Stratosphere/ResourceProperties/LakeFormationPermissionsTableWithColumnsResource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/LakeFormationPermissionsTableWithColumnsResource.hs +++ /dev/null @@ -1,61 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-tablewithcolumnsresource.html - -module Stratosphere.ResourceProperties.LakeFormationPermissionsTableWithColumnsResource where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.LakeFormationPermissionsColumnWildcard - --- | Full data type definition for --- LakeFormationPermissionsTableWithColumnsResource. See --- 'lakeFormationPermissionsTableWithColumnsResource' for a more convenient --- constructor. -data LakeFormationPermissionsTableWithColumnsResource = - LakeFormationPermissionsTableWithColumnsResource - { _lakeFormationPermissionsTableWithColumnsResourceColumnNames :: Maybe (ValList Text) - , _lakeFormationPermissionsTableWithColumnsResourceColumnWildcard :: Maybe LakeFormationPermissionsColumnWildcard - , _lakeFormationPermissionsTableWithColumnsResourceDatabaseName :: Maybe (Val Text) - , _lakeFormationPermissionsTableWithColumnsResourceName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON LakeFormationPermissionsTableWithColumnsResource where - toJSON LakeFormationPermissionsTableWithColumnsResource{..} = - object $ - catMaybes - [ fmap (("ColumnNames",) . toJSON) _lakeFormationPermissionsTableWithColumnsResourceColumnNames - , fmap (("ColumnWildcard",) . toJSON) _lakeFormationPermissionsTableWithColumnsResourceColumnWildcard - , fmap (("DatabaseName",) . toJSON) _lakeFormationPermissionsTableWithColumnsResourceDatabaseName - , fmap (("Name",) . toJSON) _lakeFormationPermissionsTableWithColumnsResourceName - ] - --- | Constructor for 'LakeFormationPermissionsTableWithColumnsResource' --- containing required fields as arguments. -lakeFormationPermissionsTableWithColumnsResource - :: LakeFormationPermissionsTableWithColumnsResource -lakeFormationPermissionsTableWithColumnsResource = - LakeFormationPermissionsTableWithColumnsResource - { _lakeFormationPermissionsTableWithColumnsResourceColumnNames = Nothing - , _lakeFormationPermissionsTableWithColumnsResourceColumnWildcard = Nothing - , _lakeFormationPermissionsTableWithColumnsResourceDatabaseName = Nothing - , _lakeFormationPermissionsTableWithColumnsResourceName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-tablewithcolumnsresource.html#cfn-lakeformation-permissions-tablewithcolumnsresource-columnnames -lfptwcrColumnNames :: Lens' LakeFormationPermissionsTableWithColumnsResource (Maybe (ValList Text)) -lfptwcrColumnNames = lens _lakeFormationPermissionsTableWithColumnsResourceColumnNames (\s a -> s { _lakeFormationPermissionsTableWithColumnsResourceColumnNames = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-tablewithcolumnsresource.html#cfn-lakeformation-permissions-tablewithcolumnsresource-columnwildcard -lfptwcrColumnWildcard :: Lens' LakeFormationPermissionsTableWithColumnsResource (Maybe LakeFormationPermissionsColumnWildcard) -lfptwcrColumnWildcard = lens _lakeFormationPermissionsTableWithColumnsResourceColumnWildcard (\s a -> s { _lakeFormationPermissionsTableWithColumnsResourceColumnWildcard = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-tablewithcolumnsresource.html#cfn-lakeformation-permissions-tablewithcolumnsresource-databasename -lfptwcrDatabaseName :: Lens' LakeFormationPermissionsTableWithColumnsResource (Maybe (Val Text)) -lfptwcrDatabaseName = lens _lakeFormationPermissionsTableWithColumnsResourceDatabaseName (\s a -> s { _lakeFormationPermissionsTableWithColumnsResourceDatabaseName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lakeformation-permissions-tablewithcolumnsresource.html#cfn-lakeformation-permissions-tablewithcolumnsresource-name -lfptwcrName :: Lens' LakeFormationPermissionsTableWithColumnsResource (Maybe (Val Text)) -lfptwcrName = lens _lakeFormationPermissionsTableWithColumnsResourceName (\s a -> s { _lakeFormationPermissionsTableWithColumnsResourceName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/LambdaAliasAliasRoutingConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/LambdaAliasAliasRoutingConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/LambdaAliasAliasRoutingConfiguration.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-alias-aliasroutingconfiguration.html - -module Stratosphere.ResourceProperties.LambdaAliasAliasRoutingConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.LambdaAliasVersionWeight - --- | Full data type definition for LambdaAliasAliasRoutingConfiguration. See --- 'lambdaAliasAliasRoutingConfiguration' for a more convenient constructor. -data LambdaAliasAliasRoutingConfiguration = - LambdaAliasAliasRoutingConfiguration - { _lambdaAliasAliasRoutingConfigurationAdditionalVersionWeights :: [LambdaAliasVersionWeight] - } deriving (Show, Eq) - -instance ToJSON LambdaAliasAliasRoutingConfiguration where - toJSON LambdaAliasAliasRoutingConfiguration{..} = - object $ - catMaybes - [ (Just . ("AdditionalVersionWeights",) . toJSON) _lambdaAliasAliasRoutingConfigurationAdditionalVersionWeights - ] - --- | Constructor for 'LambdaAliasAliasRoutingConfiguration' containing --- required fields as arguments. -lambdaAliasAliasRoutingConfiguration - :: [LambdaAliasVersionWeight] -- ^ 'laarcAdditionalVersionWeights' - -> LambdaAliasAliasRoutingConfiguration -lambdaAliasAliasRoutingConfiguration additionalVersionWeightsarg = - LambdaAliasAliasRoutingConfiguration - { _lambdaAliasAliasRoutingConfigurationAdditionalVersionWeights = additionalVersionWeightsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-alias-aliasroutingconfiguration.html#cfn-lambda-alias-aliasroutingconfiguration-additionalversionweights -laarcAdditionalVersionWeights :: Lens' LambdaAliasAliasRoutingConfiguration [LambdaAliasVersionWeight] -laarcAdditionalVersionWeights = lens _lambdaAliasAliasRoutingConfigurationAdditionalVersionWeights (\s a -> s { _lambdaAliasAliasRoutingConfigurationAdditionalVersionWeights = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/LambdaAliasProvisionedConcurrencyConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/LambdaAliasProvisionedConcurrencyConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/LambdaAliasProvisionedConcurrencyConfiguration.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-alias-provisionedconcurrencyconfiguration.html - -module Stratosphere.ResourceProperties.LambdaAliasProvisionedConcurrencyConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- LambdaAliasProvisionedConcurrencyConfiguration. See --- 'lambdaAliasProvisionedConcurrencyConfiguration' for a more convenient --- constructor. -data LambdaAliasProvisionedConcurrencyConfiguration = - LambdaAliasProvisionedConcurrencyConfiguration - { _lambdaAliasProvisionedConcurrencyConfigurationProvisionedConcurrentExecutions :: Val Integer - } deriving (Show, Eq) - -instance ToJSON LambdaAliasProvisionedConcurrencyConfiguration where - toJSON LambdaAliasProvisionedConcurrencyConfiguration{..} = - object $ - catMaybes - [ (Just . ("ProvisionedConcurrentExecutions",) . toJSON) _lambdaAliasProvisionedConcurrencyConfigurationProvisionedConcurrentExecutions - ] - --- | Constructor for 'LambdaAliasProvisionedConcurrencyConfiguration' --- containing required fields as arguments. -lambdaAliasProvisionedConcurrencyConfiguration - :: Val Integer -- ^ 'lapccProvisionedConcurrentExecutions' - -> LambdaAliasProvisionedConcurrencyConfiguration -lambdaAliasProvisionedConcurrencyConfiguration provisionedConcurrentExecutionsarg = - LambdaAliasProvisionedConcurrencyConfiguration - { _lambdaAliasProvisionedConcurrencyConfigurationProvisionedConcurrentExecutions = provisionedConcurrentExecutionsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-alias-provisionedconcurrencyconfiguration.html#cfn-lambda-alias-provisionedconcurrencyconfiguration-provisionedconcurrentexecutions -lapccProvisionedConcurrentExecutions :: Lens' LambdaAliasProvisionedConcurrencyConfiguration (Val Integer) -lapccProvisionedConcurrentExecutions = lens _lambdaAliasProvisionedConcurrencyConfigurationProvisionedConcurrentExecutions (\s a -> s { _lambdaAliasProvisionedConcurrencyConfigurationProvisionedConcurrentExecutions = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/LambdaAliasVersionWeight.hs b/library-gen/Stratosphere/ResourceProperties/LambdaAliasVersionWeight.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/LambdaAliasVersionWeight.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-alias-versionweight.html - -module Stratosphere.ResourceProperties.LambdaAliasVersionWeight where - -import Stratosphere.ResourceImports - - --- | Full data type definition for LambdaAliasVersionWeight. See --- 'lambdaAliasVersionWeight' for a more convenient constructor. -data LambdaAliasVersionWeight = - LambdaAliasVersionWeight - { _lambdaAliasVersionWeightFunctionVersion :: Val Text - , _lambdaAliasVersionWeightFunctionWeight :: Val Double - } deriving (Show, Eq) - -instance ToJSON LambdaAliasVersionWeight where - toJSON LambdaAliasVersionWeight{..} = - object $ - catMaybes - [ (Just . ("FunctionVersion",) . toJSON) _lambdaAliasVersionWeightFunctionVersion - , (Just . ("FunctionWeight",) . toJSON) _lambdaAliasVersionWeightFunctionWeight - ] - --- | Constructor for 'LambdaAliasVersionWeight' containing required fields as --- arguments. -lambdaAliasVersionWeight - :: Val Text -- ^ 'lavwFunctionVersion' - -> Val Double -- ^ 'lavwFunctionWeight' - -> LambdaAliasVersionWeight -lambdaAliasVersionWeight functionVersionarg functionWeightarg = - LambdaAliasVersionWeight - { _lambdaAliasVersionWeightFunctionVersion = functionVersionarg - , _lambdaAliasVersionWeightFunctionWeight = functionWeightarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-alias-versionweight.html#cfn-lambda-alias-versionweight-functionversion -lavwFunctionVersion :: Lens' LambdaAliasVersionWeight (Val Text) -lavwFunctionVersion = lens _lambdaAliasVersionWeightFunctionVersion (\s a -> s { _lambdaAliasVersionWeightFunctionVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-alias-versionweight.html#cfn-lambda-alias-versionweight-functionweight -lavwFunctionWeight :: Lens' LambdaAliasVersionWeight (Val Double) -lavwFunctionWeight = lens _lambdaAliasVersionWeightFunctionWeight (\s a -> s { _lambdaAliasVersionWeightFunctionWeight = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/LambdaEventInvokeConfigDestinationConfig.hs b/library-gen/Stratosphere/ResourceProperties/LambdaEventInvokeConfigDestinationConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/LambdaEventInvokeConfigDestinationConfig.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-eventinvokeconfig-destinationconfig.html - -module Stratosphere.ResourceProperties.LambdaEventInvokeConfigDestinationConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.LambdaEventInvokeConfigOnFailure -import Stratosphere.ResourceProperties.LambdaEventInvokeConfigOnSuccess - --- | Full data type definition for LambdaEventInvokeConfigDestinationConfig. --- See 'lambdaEventInvokeConfigDestinationConfig' for a more convenient --- constructor. -data LambdaEventInvokeConfigDestinationConfig = - LambdaEventInvokeConfigDestinationConfig - { _lambdaEventInvokeConfigDestinationConfigOnFailure :: Maybe LambdaEventInvokeConfigOnFailure - , _lambdaEventInvokeConfigDestinationConfigOnSuccess :: Maybe LambdaEventInvokeConfigOnSuccess - } deriving (Show, Eq) - -instance ToJSON LambdaEventInvokeConfigDestinationConfig where - toJSON LambdaEventInvokeConfigDestinationConfig{..} = - object $ - catMaybes - [ fmap (("OnFailure",) . toJSON) _lambdaEventInvokeConfigDestinationConfigOnFailure - , fmap (("OnSuccess",) . toJSON) _lambdaEventInvokeConfigDestinationConfigOnSuccess - ] - --- | Constructor for 'LambdaEventInvokeConfigDestinationConfig' containing --- required fields as arguments. -lambdaEventInvokeConfigDestinationConfig - :: LambdaEventInvokeConfigDestinationConfig -lambdaEventInvokeConfigDestinationConfig = - LambdaEventInvokeConfigDestinationConfig - { _lambdaEventInvokeConfigDestinationConfigOnFailure = Nothing - , _lambdaEventInvokeConfigDestinationConfigOnSuccess = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-eventinvokeconfig-destinationconfig.html#cfn-lambda-eventinvokeconfig-destinationconfig-onfailure -leicdcOnFailure :: Lens' LambdaEventInvokeConfigDestinationConfig (Maybe LambdaEventInvokeConfigOnFailure) -leicdcOnFailure = lens _lambdaEventInvokeConfigDestinationConfigOnFailure (\s a -> s { _lambdaEventInvokeConfigDestinationConfigOnFailure = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-eventinvokeconfig-destinationconfig.html#cfn-lambda-eventinvokeconfig-destinationconfig-onsuccess -leicdcOnSuccess :: Lens' LambdaEventInvokeConfigDestinationConfig (Maybe LambdaEventInvokeConfigOnSuccess) -leicdcOnSuccess = lens _lambdaEventInvokeConfigDestinationConfigOnSuccess (\s a -> s { _lambdaEventInvokeConfigDestinationConfigOnSuccess = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/LambdaEventInvokeConfigOnFailure.hs b/library-gen/Stratosphere/ResourceProperties/LambdaEventInvokeConfigOnFailure.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/LambdaEventInvokeConfigOnFailure.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-eventinvokeconfig-destinationconfig-onfailure.html - -module Stratosphere.ResourceProperties.LambdaEventInvokeConfigOnFailure where - -import Stratosphere.ResourceImports - - --- | Full data type definition for LambdaEventInvokeConfigOnFailure. See --- 'lambdaEventInvokeConfigOnFailure' for a more convenient constructor. -data LambdaEventInvokeConfigOnFailure = - LambdaEventInvokeConfigOnFailure - { _lambdaEventInvokeConfigOnFailureDestination :: Val Text - } deriving (Show, Eq) - -instance ToJSON LambdaEventInvokeConfigOnFailure where - toJSON LambdaEventInvokeConfigOnFailure{..} = - object $ - catMaybes - [ (Just . ("Destination",) . toJSON) _lambdaEventInvokeConfigOnFailureDestination - ] - --- | Constructor for 'LambdaEventInvokeConfigOnFailure' containing required --- fields as arguments. -lambdaEventInvokeConfigOnFailure - :: Val Text -- ^ 'leicofDestination' - -> LambdaEventInvokeConfigOnFailure -lambdaEventInvokeConfigOnFailure destinationarg = - LambdaEventInvokeConfigOnFailure - { _lambdaEventInvokeConfigOnFailureDestination = destinationarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-eventinvokeconfig-destinationconfig-onfailure.html#cfn-lambda-eventinvokeconfig-destinationconfig-onfailure-destination -leicofDestination :: Lens' LambdaEventInvokeConfigOnFailure (Val Text) -leicofDestination = lens _lambdaEventInvokeConfigOnFailureDestination (\s a -> s { _lambdaEventInvokeConfigOnFailureDestination = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/LambdaEventInvokeConfigOnSuccess.hs b/library-gen/Stratosphere/ResourceProperties/LambdaEventInvokeConfigOnSuccess.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/LambdaEventInvokeConfigOnSuccess.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-eventinvokeconfig-destinationconfig-onsuccess.html - -module Stratosphere.ResourceProperties.LambdaEventInvokeConfigOnSuccess where - -import Stratosphere.ResourceImports - - --- | Full data type definition for LambdaEventInvokeConfigOnSuccess. See --- 'lambdaEventInvokeConfigOnSuccess' for a more convenient constructor. -data LambdaEventInvokeConfigOnSuccess = - LambdaEventInvokeConfigOnSuccess - { _lambdaEventInvokeConfigOnSuccessDestination :: Val Text - } deriving (Show, Eq) - -instance ToJSON LambdaEventInvokeConfigOnSuccess where - toJSON LambdaEventInvokeConfigOnSuccess{..} = - object $ - catMaybes - [ (Just . ("Destination",) . toJSON) _lambdaEventInvokeConfigOnSuccessDestination - ] - --- | Constructor for 'LambdaEventInvokeConfigOnSuccess' containing required --- fields as arguments. -lambdaEventInvokeConfigOnSuccess - :: Val Text -- ^ 'leicosDestination' - -> LambdaEventInvokeConfigOnSuccess -lambdaEventInvokeConfigOnSuccess destinationarg = - LambdaEventInvokeConfigOnSuccess - { _lambdaEventInvokeConfigOnSuccessDestination = destinationarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-eventinvokeconfig-destinationconfig-onsuccess.html#cfn-lambda-eventinvokeconfig-destinationconfig-onsuccess-destination -leicosDestination :: Lens' LambdaEventInvokeConfigOnSuccess (Val Text) -leicosDestination = lens _lambdaEventInvokeConfigOnSuccessDestination (\s a -> s { _lambdaEventInvokeConfigOnSuccessDestination = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/LambdaEventSourceMappingDestinationConfig.hs b/library-gen/Stratosphere/ResourceProperties/LambdaEventSourceMappingDestinationConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/LambdaEventSourceMappingDestinationConfig.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-eventsourcemapping-destinationconfig.html - -module Stratosphere.ResourceProperties.LambdaEventSourceMappingDestinationConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.LambdaEventSourceMappingOnFailure - --- | Full data type definition for LambdaEventSourceMappingDestinationConfig. --- See 'lambdaEventSourceMappingDestinationConfig' for a more convenient --- constructor. -data LambdaEventSourceMappingDestinationConfig = - LambdaEventSourceMappingDestinationConfig - { _lambdaEventSourceMappingDestinationConfigOnFailure :: Maybe LambdaEventSourceMappingOnFailure - } deriving (Show, Eq) - -instance ToJSON LambdaEventSourceMappingDestinationConfig where - toJSON LambdaEventSourceMappingDestinationConfig{..} = - object $ - catMaybes - [ fmap (("OnFailure",) . toJSON) _lambdaEventSourceMappingDestinationConfigOnFailure - ] - --- | Constructor for 'LambdaEventSourceMappingDestinationConfig' containing --- required fields as arguments. -lambdaEventSourceMappingDestinationConfig - :: LambdaEventSourceMappingDestinationConfig -lambdaEventSourceMappingDestinationConfig = - LambdaEventSourceMappingDestinationConfig - { _lambdaEventSourceMappingDestinationConfigOnFailure = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-eventsourcemapping-destinationconfig.html#cfn-lambda-eventsourcemapping-destinationconfig-onfailure -lesmdcOnFailure :: Lens' LambdaEventSourceMappingDestinationConfig (Maybe LambdaEventSourceMappingOnFailure) -lesmdcOnFailure = lens _lambdaEventSourceMappingDestinationConfigOnFailure (\s a -> s { _lambdaEventSourceMappingDestinationConfigOnFailure = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/LambdaEventSourceMappingOnFailure.hs b/library-gen/Stratosphere/ResourceProperties/LambdaEventSourceMappingOnFailure.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/LambdaEventSourceMappingOnFailure.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-eventsourcemapping-onfailure.html - -module Stratosphere.ResourceProperties.LambdaEventSourceMappingOnFailure where - -import Stratosphere.ResourceImports - - --- | Full data type definition for LambdaEventSourceMappingOnFailure. See --- 'lambdaEventSourceMappingOnFailure' for a more convenient constructor. -data LambdaEventSourceMappingOnFailure = - LambdaEventSourceMappingOnFailure - { _lambdaEventSourceMappingOnFailureDestination :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON LambdaEventSourceMappingOnFailure where - toJSON LambdaEventSourceMappingOnFailure{..} = - object $ - catMaybes - [ fmap (("Destination",) . toJSON) _lambdaEventSourceMappingOnFailureDestination - ] - --- | Constructor for 'LambdaEventSourceMappingOnFailure' containing required --- fields as arguments. -lambdaEventSourceMappingOnFailure - :: LambdaEventSourceMappingOnFailure -lambdaEventSourceMappingOnFailure = - LambdaEventSourceMappingOnFailure - { _lambdaEventSourceMappingOnFailureDestination = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-eventsourcemapping-onfailure.html#cfn-lambda-eventsourcemapping-onfailure-destination -lesmofDestination :: Lens' LambdaEventSourceMappingOnFailure (Maybe (Val Text)) -lesmofDestination = lens _lambdaEventSourceMappingOnFailureDestination (\s a -> s { _lambdaEventSourceMappingOnFailureDestination = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/LambdaFunctionCode.hs b/library-gen/Stratosphere/ResourceProperties/LambdaFunctionCode.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/LambdaFunctionCode.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-function-code.html - -module Stratosphere.ResourceProperties.LambdaFunctionCode where - -import Stratosphere.ResourceImports - - --- | Full data type definition for LambdaFunctionCode. See --- 'lambdaFunctionCode' for a more convenient constructor. -data LambdaFunctionCode = - LambdaFunctionCode - { _lambdaFunctionCodeS3Bucket :: Maybe (Val Text) - , _lambdaFunctionCodeS3Key :: Maybe (Val Text) - , _lambdaFunctionCodeS3ObjectVersion :: Maybe (Val Text) - , _lambdaFunctionCodeZipFile :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON LambdaFunctionCode where - toJSON LambdaFunctionCode{..} = - object $ - catMaybes - [ fmap (("S3Bucket",) . toJSON) _lambdaFunctionCodeS3Bucket - , fmap (("S3Key",) . toJSON) _lambdaFunctionCodeS3Key - , fmap (("S3ObjectVersion",) . toJSON) _lambdaFunctionCodeS3ObjectVersion - , fmap (("ZipFile",) . toJSON) _lambdaFunctionCodeZipFile - ] - --- | Constructor for 'LambdaFunctionCode' containing required fields as --- arguments. -lambdaFunctionCode - :: LambdaFunctionCode -lambdaFunctionCode = - LambdaFunctionCode - { _lambdaFunctionCodeS3Bucket = Nothing - , _lambdaFunctionCodeS3Key = Nothing - , _lambdaFunctionCodeS3ObjectVersion = Nothing - , _lambdaFunctionCodeZipFile = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-function-code.html#cfn-lambda-function-code-s3bucket -lfcS3Bucket :: Lens' LambdaFunctionCode (Maybe (Val Text)) -lfcS3Bucket = lens _lambdaFunctionCodeS3Bucket (\s a -> s { _lambdaFunctionCodeS3Bucket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-function-code.html#cfn-lambda-function-code-s3key -lfcS3Key :: Lens' LambdaFunctionCode (Maybe (Val Text)) -lfcS3Key = lens _lambdaFunctionCodeS3Key (\s a -> s { _lambdaFunctionCodeS3Key = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-function-code.html#cfn-lambda-function-code-s3objectversion -lfcS3ObjectVersion :: Lens' LambdaFunctionCode (Maybe (Val Text)) -lfcS3ObjectVersion = lens _lambdaFunctionCodeS3ObjectVersion (\s a -> s { _lambdaFunctionCodeS3ObjectVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-function-code.html#cfn-lambda-function-code-zipfile -lfcZipFile :: Lens' LambdaFunctionCode (Maybe (Val Text)) -lfcZipFile = lens _lambdaFunctionCodeZipFile (\s a -> s { _lambdaFunctionCodeZipFile = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/LambdaFunctionDeadLetterConfig.hs b/library-gen/Stratosphere/ResourceProperties/LambdaFunctionDeadLetterConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/LambdaFunctionDeadLetterConfig.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-function-deadletterconfig.html - -module Stratosphere.ResourceProperties.LambdaFunctionDeadLetterConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for LambdaFunctionDeadLetterConfig. See --- 'lambdaFunctionDeadLetterConfig' for a more convenient constructor. -data LambdaFunctionDeadLetterConfig = - LambdaFunctionDeadLetterConfig - { _lambdaFunctionDeadLetterConfigTargetArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON LambdaFunctionDeadLetterConfig where - toJSON LambdaFunctionDeadLetterConfig{..} = - object $ - catMaybes - [ fmap (("TargetArn",) . toJSON) _lambdaFunctionDeadLetterConfigTargetArn - ] - --- | Constructor for 'LambdaFunctionDeadLetterConfig' containing required --- fields as arguments. -lambdaFunctionDeadLetterConfig - :: LambdaFunctionDeadLetterConfig -lambdaFunctionDeadLetterConfig = - LambdaFunctionDeadLetterConfig - { _lambdaFunctionDeadLetterConfigTargetArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-function-deadletterconfig.html#cfn-lambda-function-deadletterconfig-targetarn -lfdlcTargetArn :: Lens' LambdaFunctionDeadLetterConfig (Maybe (Val Text)) -lfdlcTargetArn = lens _lambdaFunctionDeadLetterConfigTargetArn (\s a -> s { _lambdaFunctionDeadLetterConfigTargetArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/LambdaFunctionEnvironment.hs b/library-gen/Stratosphere/ResourceProperties/LambdaFunctionEnvironment.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/LambdaFunctionEnvironment.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-function-environment.html - -module Stratosphere.ResourceProperties.LambdaFunctionEnvironment where - -import Stratosphere.ResourceImports - - --- | Full data type definition for LambdaFunctionEnvironment. See --- 'lambdaFunctionEnvironment' for a more convenient constructor. -data LambdaFunctionEnvironment = - LambdaFunctionEnvironment - { _lambdaFunctionEnvironmentVariables :: Maybe Object - } deriving (Show, Eq) - -instance ToJSON LambdaFunctionEnvironment where - toJSON LambdaFunctionEnvironment{..} = - object $ - catMaybes - [ fmap (("Variables",) . toJSON) _lambdaFunctionEnvironmentVariables - ] - --- | Constructor for 'LambdaFunctionEnvironment' containing required fields as --- arguments. -lambdaFunctionEnvironment - :: LambdaFunctionEnvironment -lambdaFunctionEnvironment = - LambdaFunctionEnvironment - { _lambdaFunctionEnvironmentVariables = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-function-environment.html#cfn-lambda-function-environment-variables -lfeVariables :: Lens' LambdaFunctionEnvironment (Maybe Object) -lfeVariables = lens _lambdaFunctionEnvironmentVariables (\s a -> s { _lambdaFunctionEnvironmentVariables = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/LambdaFunctionFileSystemConfig.hs b/library-gen/Stratosphere/ResourceProperties/LambdaFunctionFileSystemConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/LambdaFunctionFileSystemConfig.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-function-filesystemconfig.html - -module Stratosphere.ResourceProperties.LambdaFunctionFileSystemConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for LambdaFunctionFileSystemConfig. See --- 'lambdaFunctionFileSystemConfig' for a more convenient constructor. -data LambdaFunctionFileSystemConfig = - LambdaFunctionFileSystemConfig - { _lambdaFunctionFileSystemConfigArn :: Val Text - , _lambdaFunctionFileSystemConfigLocalMountPath :: Val Text - } deriving (Show, Eq) - -instance ToJSON LambdaFunctionFileSystemConfig where - toJSON LambdaFunctionFileSystemConfig{..} = - object $ - catMaybes - [ (Just . ("Arn",) . toJSON) _lambdaFunctionFileSystemConfigArn - , (Just . ("LocalMountPath",) . toJSON) _lambdaFunctionFileSystemConfigLocalMountPath - ] - --- | Constructor for 'LambdaFunctionFileSystemConfig' containing required --- fields as arguments. -lambdaFunctionFileSystemConfig - :: Val Text -- ^ 'lffscArn' - -> Val Text -- ^ 'lffscLocalMountPath' - -> LambdaFunctionFileSystemConfig -lambdaFunctionFileSystemConfig arnarg localMountPatharg = - LambdaFunctionFileSystemConfig - { _lambdaFunctionFileSystemConfigArn = arnarg - , _lambdaFunctionFileSystemConfigLocalMountPath = localMountPatharg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-function-filesystemconfig.html#cfn-lambda-function-filesystemconfig-arn -lffscArn :: Lens' LambdaFunctionFileSystemConfig (Val Text) -lffscArn = lens _lambdaFunctionFileSystemConfigArn (\s a -> s { _lambdaFunctionFileSystemConfigArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-function-filesystemconfig.html#cfn-lambda-function-filesystemconfig-localmountpath -lffscLocalMountPath :: Lens' LambdaFunctionFileSystemConfig (Val Text) -lffscLocalMountPath = lens _lambdaFunctionFileSystemConfigLocalMountPath (\s a -> s { _lambdaFunctionFileSystemConfigLocalMountPath = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/LambdaFunctionTracingConfig.hs b/library-gen/Stratosphere/ResourceProperties/LambdaFunctionTracingConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/LambdaFunctionTracingConfig.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-function-tracingconfig.html - -module Stratosphere.ResourceProperties.LambdaFunctionTracingConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for LambdaFunctionTracingConfig. See --- 'lambdaFunctionTracingConfig' for a more convenient constructor. -data LambdaFunctionTracingConfig = - LambdaFunctionTracingConfig - { _lambdaFunctionTracingConfigMode :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON LambdaFunctionTracingConfig where - toJSON LambdaFunctionTracingConfig{..} = - object $ - catMaybes - [ fmap (("Mode",) . toJSON) _lambdaFunctionTracingConfigMode - ] - --- | Constructor for 'LambdaFunctionTracingConfig' containing required fields --- as arguments. -lambdaFunctionTracingConfig - :: LambdaFunctionTracingConfig -lambdaFunctionTracingConfig = - LambdaFunctionTracingConfig - { _lambdaFunctionTracingConfigMode = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-function-tracingconfig.html#cfn-lambda-function-tracingconfig-mode -lftcMode :: Lens' LambdaFunctionTracingConfig (Maybe (Val Text)) -lftcMode = lens _lambdaFunctionTracingConfigMode (\s a -> s { _lambdaFunctionTracingConfigMode = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/LambdaFunctionVpcConfig.hs b/library-gen/Stratosphere/ResourceProperties/LambdaFunctionVpcConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/LambdaFunctionVpcConfig.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-function-vpcconfig.html - -module Stratosphere.ResourceProperties.LambdaFunctionVpcConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for LambdaFunctionVpcConfig. See --- 'lambdaFunctionVpcConfig' for a more convenient constructor. -data LambdaFunctionVpcConfig = - LambdaFunctionVpcConfig - { _lambdaFunctionVpcConfigSecurityGroupIds :: ValList Text - , _lambdaFunctionVpcConfigSubnetIds :: ValList Text - } deriving (Show, Eq) - -instance ToJSON LambdaFunctionVpcConfig where - toJSON LambdaFunctionVpcConfig{..} = - object $ - catMaybes - [ (Just . ("SecurityGroupIds",) . toJSON) _lambdaFunctionVpcConfigSecurityGroupIds - , (Just . ("SubnetIds",) . toJSON) _lambdaFunctionVpcConfigSubnetIds - ] - --- | Constructor for 'LambdaFunctionVpcConfig' containing required fields as --- arguments. -lambdaFunctionVpcConfig - :: ValList Text -- ^ 'lfvcSecurityGroupIds' - -> ValList Text -- ^ 'lfvcSubnetIds' - -> LambdaFunctionVpcConfig -lambdaFunctionVpcConfig securityGroupIdsarg subnetIdsarg = - LambdaFunctionVpcConfig - { _lambdaFunctionVpcConfigSecurityGroupIds = securityGroupIdsarg - , _lambdaFunctionVpcConfigSubnetIds = subnetIdsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-function-vpcconfig.html#cfn-lambda-function-vpcconfig-securitygroupids -lfvcSecurityGroupIds :: Lens' LambdaFunctionVpcConfig (ValList Text) -lfvcSecurityGroupIds = lens _lambdaFunctionVpcConfigSecurityGroupIds (\s a -> s { _lambdaFunctionVpcConfigSecurityGroupIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-function-vpcconfig.html#cfn-lambda-function-vpcconfig-subnetids -lfvcSubnetIds :: Lens' LambdaFunctionVpcConfig (ValList Text) -lfvcSubnetIds = lens _lambdaFunctionVpcConfigSubnetIds (\s a -> s { _lambdaFunctionVpcConfigSubnetIds = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/LambdaLayerVersionContent.hs b/library-gen/Stratosphere/ResourceProperties/LambdaLayerVersionContent.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/LambdaLayerVersionContent.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-layerversion-content.html - -module Stratosphere.ResourceProperties.LambdaLayerVersionContent where - -import Stratosphere.ResourceImports - - --- | Full data type definition for LambdaLayerVersionContent. See --- 'lambdaLayerVersionContent' for a more convenient constructor. -data LambdaLayerVersionContent = - LambdaLayerVersionContent - { _lambdaLayerVersionContentS3Bucket :: Val Text - , _lambdaLayerVersionContentS3Key :: Val Text - , _lambdaLayerVersionContentS3ObjectVersion :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON LambdaLayerVersionContent where - toJSON LambdaLayerVersionContent{..} = - object $ - catMaybes - [ (Just . ("S3Bucket",) . toJSON) _lambdaLayerVersionContentS3Bucket - , (Just . ("S3Key",) . toJSON) _lambdaLayerVersionContentS3Key - , fmap (("S3ObjectVersion",) . toJSON) _lambdaLayerVersionContentS3ObjectVersion - ] - --- | Constructor for 'LambdaLayerVersionContent' containing required fields as --- arguments. -lambdaLayerVersionContent - :: Val Text -- ^ 'llvcS3Bucket' - -> Val Text -- ^ 'llvcS3Key' - -> LambdaLayerVersionContent -lambdaLayerVersionContent s3Bucketarg s3Keyarg = - LambdaLayerVersionContent - { _lambdaLayerVersionContentS3Bucket = s3Bucketarg - , _lambdaLayerVersionContentS3Key = s3Keyarg - , _lambdaLayerVersionContentS3ObjectVersion = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-layerversion-content.html#cfn-lambda-layerversion-content-s3bucket -llvcS3Bucket :: Lens' LambdaLayerVersionContent (Val Text) -llvcS3Bucket = lens _lambdaLayerVersionContentS3Bucket (\s a -> s { _lambdaLayerVersionContentS3Bucket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-layerversion-content.html#cfn-lambda-layerversion-content-s3key -llvcS3Key :: Lens' LambdaLayerVersionContent (Val Text) -llvcS3Key = lens _lambdaLayerVersionContentS3Key (\s a -> s { _lambdaLayerVersionContentS3Key = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-layerversion-content.html#cfn-lambda-layerversion-content-s3objectversion -llvcS3ObjectVersion :: Lens' LambdaLayerVersionContent (Maybe (Val Text)) -llvcS3ObjectVersion = lens _lambdaLayerVersionContentS3ObjectVersion (\s a -> s { _lambdaLayerVersionContentS3ObjectVersion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/LambdaVersionProvisionedConcurrencyConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/LambdaVersionProvisionedConcurrencyConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/LambdaVersionProvisionedConcurrencyConfiguration.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-version-provisionedconcurrencyconfiguration.html - -module Stratosphere.ResourceProperties.LambdaVersionProvisionedConcurrencyConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- LambdaVersionProvisionedConcurrencyConfiguration. See --- 'lambdaVersionProvisionedConcurrencyConfiguration' for a more convenient --- constructor. -data LambdaVersionProvisionedConcurrencyConfiguration = - LambdaVersionProvisionedConcurrencyConfiguration - { _lambdaVersionProvisionedConcurrencyConfigurationProvisionedConcurrentExecutions :: Val Integer - } deriving (Show, Eq) - -instance ToJSON LambdaVersionProvisionedConcurrencyConfiguration where - toJSON LambdaVersionProvisionedConcurrencyConfiguration{..} = - object $ - catMaybes - [ (Just . ("ProvisionedConcurrentExecutions",) . toJSON) _lambdaVersionProvisionedConcurrencyConfigurationProvisionedConcurrentExecutions - ] - --- | Constructor for 'LambdaVersionProvisionedConcurrencyConfiguration' --- containing required fields as arguments. -lambdaVersionProvisionedConcurrencyConfiguration - :: Val Integer -- ^ 'lvpccProvisionedConcurrentExecutions' - -> LambdaVersionProvisionedConcurrencyConfiguration -lambdaVersionProvisionedConcurrencyConfiguration provisionedConcurrentExecutionsarg = - LambdaVersionProvisionedConcurrencyConfiguration - { _lambdaVersionProvisionedConcurrencyConfigurationProvisionedConcurrentExecutions = provisionedConcurrentExecutionsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lambda-version-provisionedconcurrencyconfiguration.html#cfn-lambda-version-provisionedconcurrencyconfiguration-provisionedconcurrentexecutions -lvpccProvisionedConcurrentExecutions :: Lens' LambdaVersionProvisionedConcurrencyConfiguration (Val Integer) -lvpccProvisionedConcurrentExecutions = lens _lambdaVersionProvisionedConcurrencyConfigurationProvisionedConcurrentExecutions (\s a -> s { _lambdaVersionProvisionedConcurrencyConfigurationProvisionedConcurrentExecutions = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/LogsMetricFilterMetricTransformation.hs b/library-gen/Stratosphere/ResourceProperties/LogsMetricFilterMetricTransformation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/LogsMetricFilterMetricTransformation.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-logs-metricfilter-metrictransformation.html - -module Stratosphere.ResourceProperties.LogsMetricFilterMetricTransformation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for LogsMetricFilterMetricTransformation. See --- 'logsMetricFilterMetricTransformation' for a more convenient constructor. -data LogsMetricFilterMetricTransformation = - LogsMetricFilterMetricTransformation - { _logsMetricFilterMetricTransformationDefaultValue :: Maybe (Val Double) - , _logsMetricFilterMetricTransformationMetricName :: Val Text - , _logsMetricFilterMetricTransformationMetricNamespace :: Val Text - , _logsMetricFilterMetricTransformationMetricValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON LogsMetricFilterMetricTransformation where - toJSON LogsMetricFilterMetricTransformation{..} = - object $ - catMaybes - [ fmap (("DefaultValue",) . toJSON) _logsMetricFilterMetricTransformationDefaultValue - , (Just . ("MetricName",) . toJSON) _logsMetricFilterMetricTransformationMetricName - , (Just . ("MetricNamespace",) . toJSON) _logsMetricFilterMetricTransformationMetricNamespace - , (Just . ("MetricValue",) . toJSON) _logsMetricFilterMetricTransformationMetricValue - ] - --- | Constructor for 'LogsMetricFilterMetricTransformation' containing --- required fields as arguments. -logsMetricFilterMetricTransformation - :: Val Text -- ^ 'lmfmtMetricName' - -> Val Text -- ^ 'lmfmtMetricNamespace' - -> Val Text -- ^ 'lmfmtMetricValue' - -> LogsMetricFilterMetricTransformation -logsMetricFilterMetricTransformation metricNamearg metricNamespacearg metricValuearg = - LogsMetricFilterMetricTransformation - { _logsMetricFilterMetricTransformationDefaultValue = Nothing - , _logsMetricFilterMetricTransformationMetricName = metricNamearg - , _logsMetricFilterMetricTransformationMetricNamespace = metricNamespacearg - , _logsMetricFilterMetricTransformationMetricValue = metricValuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-logs-metricfilter-metrictransformation.html#cfn-cwl-metricfilter-metrictransformation-defaultvalue -lmfmtDefaultValue :: Lens' LogsMetricFilterMetricTransformation (Maybe (Val Double)) -lmfmtDefaultValue = lens _logsMetricFilterMetricTransformationDefaultValue (\s a -> s { _logsMetricFilterMetricTransformationDefaultValue = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-logs-metricfilter-metrictransformation.html#cfn-cwl-metricfilter-metrictransformation-metricname -lmfmtMetricName :: Lens' LogsMetricFilterMetricTransformation (Val Text) -lmfmtMetricName = lens _logsMetricFilterMetricTransformationMetricName (\s a -> s { _logsMetricFilterMetricTransformationMetricName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-logs-metricfilter-metrictransformation.html#cfn-cwl-metricfilter-metrictransformation-metricnamespace -lmfmtMetricNamespace :: Lens' LogsMetricFilterMetricTransformation (Val Text) -lmfmtMetricNamespace = lens _logsMetricFilterMetricTransformationMetricNamespace (\s a -> s { _logsMetricFilterMetricTransformationMetricNamespace = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-logs-metricfilter-metrictransformation.html#cfn-cwl-metricfilter-metrictransformation-metricvalue -lmfmtMetricValue :: Lens' LogsMetricFilterMetricTransformation (Val Text) -lmfmtMetricValue = lens _logsMetricFilterMetricTransformationMetricValue (\s a -> s { _logsMetricFilterMetricTransformationMetricValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MSKClusterBrokerLogs.hs b/library-gen/Stratosphere/ResourceProperties/MSKClusterBrokerLogs.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MSKClusterBrokerLogs.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-brokerlogs.html - -module Stratosphere.ResourceProperties.MSKClusterBrokerLogs where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.MSKClusterCloudWatchLogs -import Stratosphere.ResourceProperties.MSKClusterFirehose -import Stratosphere.ResourceProperties.MSKClusterS3 - --- | Full data type definition for MSKClusterBrokerLogs. See --- 'mskClusterBrokerLogs' for a more convenient constructor. -data MSKClusterBrokerLogs = - MSKClusterBrokerLogs - { _mSKClusterBrokerLogsCloudWatchLogs :: Maybe MSKClusterCloudWatchLogs - , _mSKClusterBrokerLogsFirehose :: Maybe MSKClusterFirehose - , _mSKClusterBrokerLogsS3 :: Maybe MSKClusterS3 - } deriving (Show, Eq) - -instance ToJSON MSKClusterBrokerLogs where - toJSON MSKClusterBrokerLogs{..} = - object $ - catMaybes - [ fmap (("CloudWatchLogs",) . toJSON) _mSKClusterBrokerLogsCloudWatchLogs - , fmap (("Firehose",) . toJSON) _mSKClusterBrokerLogsFirehose - , fmap (("S3",) . toJSON) _mSKClusterBrokerLogsS3 - ] - --- | Constructor for 'MSKClusterBrokerLogs' containing required fields as --- arguments. -mskClusterBrokerLogs - :: MSKClusterBrokerLogs -mskClusterBrokerLogs = - MSKClusterBrokerLogs - { _mSKClusterBrokerLogsCloudWatchLogs = Nothing - , _mSKClusterBrokerLogsFirehose = Nothing - , _mSKClusterBrokerLogsS3 = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-brokerlogs.html#cfn-msk-cluster-brokerlogs-cloudwatchlogs -mskcblCloudWatchLogs :: Lens' MSKClusterBrokerLogs (Maybe MSKClusterCloudWatchLogs) -mskcblCloudWatchLogs = lens _mSKClusterBrokerLogsCloudWatchLogs (\s a -> s { _mSKClusterBrokerLogsCloudWatchLogs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-brokerlogs.html#cfn-msk-cluster-brokerlogs-firehose -mskcblFirehose :: Lens' MSKClusterBrokerLogs (Maybe MSKClusterFirehose) -mskcblFirehose = lens _mSKClusterBrokerLogsFirehose (\s a -> s { _mSKClusterBrokerLogsFirehose = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-brokerlogs.html#cfn-msk-cluster-brokerlogs-s3 -mskcblS3 :: Lens' MSKClusterBrokerLogs (Maybe MSKClusterS3) -mskcblS3 = lens _mSKClusterBrokerLogsS3 (\s a -> s { _mSKClusterBrokerLogsS3 = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MSKClusterBrokerNodeGroupInfo.hs b/library-gen/Stratosphere/ResourceProperties/MSKClusterBrokerNodeGroupInfo.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MSKClusterBrokerNodeGroupInfo.hs +++ /dev/null @@ -1,68 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-brokernodegroupinfo.html - -module Stratosphere.ResourceProperties.MSKClusterBrokerNodeGroupInfo where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.MSKClusterStorageInfo - --- | Full data type definition for MSKClusterBrokerNodeGroupInfo. See --- 'mskClusterBrokerNodeGroupInfo' for a more convenient constructor. -data MSKClusterBrokerNodeGroupInfo = - MSKClusterBrokerNodeGroupInfo - { _mSKClusterBrokerNodeGroupInfoBrokerAZDistribution :: Maybe (Val Text) - , _mSKClusterBrokerNodeGroupInfoClientSubnets :: ValList Text - , _mSKClusterBrokerNodeGroupInfoInstanceType :: Val Text - , _mSKClusterBrokerNodeGroupInfoSecurityGroups :: Maybe (ValList Text) - , _mSKClusterBrokerNodeGroupInfoStorageInfo :: Maybe MSKClusterStorageInfo - } deriving (Show, Eq) - -instance ToJSON MSKClusterBrokerNodeGroupInfo where - toJSON MSKClusterBrokerNodeGroupInfo{..} = - object $ - catMaybes - [ fmap (("BrokerAZDistribution",) . toJSON) _mSKClusterBrokerNodeGroupInfoBrokerAZDistribution - , (Just . ("ClientSubnets",) . toJSON) _mSKClusterBrokerNodeGroupInfoClientSubnets - , (Just . ("InstanceType",) . toJSON) _mSKClusterBrokerNodeGroupInfoInstanceType - , fmap (("SecurityGroups",) . toJSON) _mSKClusterBrokerNodeGroupInfoSecurityGroups - , fmap (("StorageInfo",) . toJSON) _mSKClusterBrokerNodeGroupInfoStorageInfo - ] - --- | Constructor for 'MSKClusterBrokerNodeGroupInfo' containing required --- fields as arguments. -mskClusterBrokerNodeGroupInfo - :: ValList Text -- ^ 'mskcbngiClientSubnets' - -> Val Text -- ^ 'mskcbngiInstanceType' - -> MSKClusterBrokerNodeGroupInfo -mskClusterBrokerNodeGroupInfo clientSubnetsarg instanceTypearg = - MSKClusterBrokerNodeGroupInfo - { _mSKClusterBrokerNodeGroupInfoBrokerAZDistribution = Nothing - , _mSKClusterBrokerNodeGroupInfoClientSubnets = clientSubnetsarg - , _mSKClusterBrokerNodeGroupInfoInstanceType = instanceTypearg - , _mSKClusterBrokerNodeGroupInfoSecurityGroups = Nothing - , _mSKClusterBrokerNodeGroupInfoStorageInfo = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-brokernodegroupinfo.html#cfn-msk-cluster-brokernodegroupinfo-brokerazdistribution -mskcbngiBrokerAZDistribution :: Lens' MSKClusterBrokerNodeGroupInfo (Maybe (Val Text)) -mskcbngiBrokerAZDistribution = lens _mSKClusterBrokerNodeGroupInfoBrokerAZDistribution (\s a -> s { _mSKClusterBrokerNodeGroupInfoBrokerAZDistribution = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-brokernodegroupinfo.html#cfn-msk-cluster-brokernodegroupinfo-clientsubnets -mskcbngiClientSubnets :: Lens' MSKClusterBrokerNodeGroupInfo (ValList Text) -mskcbngiClientSubnets = lens _mSKClusterBrokerNodeGroupInfoClientSubnets (\s a -> s { _mSKClusterBrokerNodeGroupInfoClientSubnets = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-brokernodegroupinfo.html#cfn-msk-cluster-brokernodegroupinfo-instancetype -mskcbngiInstanceType :: Lens' MSKClusterBrokerNodeGroupInfo (Val Text) -mskcbngiInstanceType = lens _mSKClusterBrokerNodeGroupInfoInstanceType (\s a -> s { _mSKClusterBrokerNodeGroupInfoInstanceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-brokernodegroupinfo.html#cfn-msk-cluster-brokernodegroupinfo-securitygroups -mskcbngiSecurityGroups :: Lens' MSKClusterBrokerNodeGroupInfo (Maybe (ValList Text)) -mskcbngiSecurityGroups = lens _mSKClusterBrokerNodeGroupInfoSecurityGroups (\s a -> s { _mSKClusterBrokerNodeGroupInfoSecurityGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-brokernodegroupinfo.html#cfn-msk-cluster-brokernodegroupinfo-storageinfo -mskcbngiStorageInfo :: Lens' MSKClusterBrokerNodeGroupInfo (Maybe MSKClusterStorageInfo) -mskcbngiStorageInfo = lens _mSKClusterBrokerNodeGroupInfoStorageInfo (\s a -> s { _mSKClusterBrokerNodeGroupInfoStorageInfo = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MSKClusterClientAuthentication.hs b/library-gen/Stratosphere/ResourceProperties/MSKClusterClientAuthentication.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MSKClusterClientAuthentication.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-clientauthentication.html - -module Stratosphere.ResourceProperties.MSKClusterClientAuthentication where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.MSKClusterTls - --- | Full data type definition for MSKClusterClientAuthentication. See --- 'mskClusterClientAuthentication' for a more convenient constructor. -data MSKClusterClientAuthentication = - MSKClusterClientAuthentication - { _mSKClusterClientAuthenticationTls :: Maybe MSKClusterTls - } deriving (Show, Eq) - -instance ToJSON MSKClusterClientAuthentication where - toJSON MSKClusterClientAuthentication{..} = - object $ - catMaybes - [ fmap (("Tls",) . toJSON) _mSKClusterClientAuthenticationTls - ] - --- | Constructor for 'MSKClusterClientAuthentication' containing required --- fields as arguments. -mskClusterClientAuthentication - :: MSKClusterClientAuthentication -mskClusterClientAuthentication = - MSKClusterClientAuthentication - { _mSKClusterClientAuthenticationTls = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-clientauthentication.html#cfn-msk-cluster-clientauthentication-tls -mskccaTls :: Lens' MSKClusterClientAuthentication (Maybe MSKClusterTls) -mskccaTls = lens _mSKClusterClientAuthenticationTls (\s a -> s { _mSKClusterClientAuthenticationTls = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MSKClusterCloudWatchLogs.hs b/library-gen/Stratosphere/ResourceProperties/MSKClusterCloudWatchLogs.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MSKClusterCloudWatchLogs.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-cloudwatchlogs.html - -module Stratosphere.ResourceProperties.MSKClusterCloudWatchLogs where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MSKClusterCloudWatchLogs. See --- 'mskClusterCloudWatchLogs' for a more convenient constructor. -data MSKClusterCloudWatchLogs = - MSKClusterCloudWatchLogs - { _mSKClusterCloudWatchLogsEnabled :: Val Bool - , _mSKClusterCloudWatchLogsLogGroup :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON MSKClusterCloudWatchLogs where - toJSON MSKClusterCloudWatchLogs{..} = - object $ - catMaybes - [ (Just . ("Enabled",) . toJSON) _mSKClusterCloudWatchLogsEnabled - , fmap (("LogGroup",) . toJSON) _mSKClusterCloudWatchLogsLogGroup - ] - --- | Constructor for 'MSKClusterCloudWatchLogs' containing required fields as --- arguments. -mskClusterCloudWatchLogs - :: Val Bool -- ^ 'mskccwlEnabled' - -> MSKClusterCloudWatchLogs -mskClusterCloudWatchLogs enabledarg = - MSKClusterCloudWatchLogs - { _mSKClusterCloudWatchLogsEnabled = enabledarg - , _mSKClusterCloudWatchLogsLogGroup = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-cloudwatchlogs.html#cfn-msk-cluster-cloudwatchlogs-enabled -mskccwlEnabled :: Lens' MSKClusterCloudWatchLogs (Val Bool) -mskccwlEnabled = lens _mSKClusterCloudWatchLogsEnabled (\s a -> s { _mSKClusterCloudWatchLogsEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-cloudwatchlogs.html#cfn-msk-cluster-cloudwatchlogs-loggroup -mskccwlLogGroup :: Lens' MSKClusterCloudWatchLogs (Maybe (Val Text)) -mskccwlLogGroup = lens _mSKClusterCloudWatchLogsLogGroup (\s a -> s { _mSKClusterCloudWatchLogsLogGroup = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MSKClusterConfigurationInfo.hs b/library-gen/Stratosphere/ResourceProperties/MSKClusterConfigurationInfo.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MSKClusterConfigurationInfo.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-configurationinfo.html - -module Stratosphere.ResourceProperties.MSKClusterConfigurationInfo where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MSKClusterConfigurationInfo. See --- 'mskClusterConfigurationInfo' for a more convenient constructor. -data MSKClusterConfigurationInfo = - MSKClusterConfigurationInfo - { _mSKClusterConfigurationInfoArn :: Val Text - , _mSKClusterConfigurationInfoRevision :: Val Integer - } deriving (Show, Eq) - -instance ToJSON MSKClusterConfigurationInfo where - toJSON MSKClusterConfigurationInfo{..} = - object $ - catMaybes - [ (Just . ("Arn",) . toJSON) _mSKClusterConfigurationInfoArn - , (Just . ("Revision",) . toJSON) _mSKClusterConfigurationInfoRevision - ] - --- | Constructor for 'MSKClusterConfigurationInfo' containing required fields --- as arguments. -mskClusterConfigurationInfo - :: Val Text -- ^ 'mskcciArn' - -> Val Integer -- ^ 'mskcciRevision' - -> MSKClusterConfigurationInfo -mskClusterConfigurationInfo arnarg revisionarg = - MSKClusterConfigurationInfo - { _mSKClusterConfigurationInfoArn = arnarg - , _mSKClusterConfigurationInfoRevision = revisionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-configurationinfo.html#cfn-msk-cluster-configurationinfo-arn -mskcciArn :: Lens' MSKClusterConfigurationInfo (Val Text) -mskcciArn = lens _mSKClusterConfigurationInfoArn (\s a -> s { _mSKClusterConfigurationInfoArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-configurationinfo.html#cfn-msk-cluster-configurationinfo-revision -mskcciRevision :: Lens' MSKClusterConfigurationInfo (Val Integer) -mskcciRevision = lens _mSKClusterConfigurationInfoRevision (\s a -> s { _mSKClusterConfigurationInfoRevision = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MSKClusterEBSStorageInfo.hs b/library-gen/Stratosphere/ResourceProperties/MSKClusterEBSStorageInfo.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MSKClusterEBSStorageInfo.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-ebsstorageinfo.html - -module Stratosphere.ResourceProperties.MSKClusterEBSStorageInfo where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MSKClusterEBSStorageInfo. See --- 'mskClusterEBSStorageInfo' for a more convenient constructor. -data MSKClusterEBSStorageInfo = - MSKClusterEBSStorageInfo - { _mSKClusterEBSStorageInfoVolumeSize :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON MSKClusterEBSStorageInfo where - toJSON MSKClusterEBSStorageInfo{..} = - object $ - catMaybes - [ fmap (("VolumeSize",) . toJSON) _mSKClusterEBSStorageInfoVolumeSize - ] - --- | Constructor for 'MSKClusterEBSStorageInfo' containing required fields as --- arguments. -mskClusterEBSStorageInfo - :: MSKClusterEBSStorageInfo -mskClusterEBSStorageInfo = - MSKClusterEBSStorageInfo - { _mSKClusterEBSStorageInfoVolumeSize = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-ebsstorageinfo.html#cfn-msk-cluster-ebsstorageinfo-volumesize -mskcebssiVolumeSize :: Lens' MSKClusterEBSStorageInfo (Maybe (Val Integer)) -mskcebssiVolumeSize = lens _mSKClusterEBSStorageInfoVolumeSize (\s a -> s { _mSKClusterEBSStorageInfoVolumeSize = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MSKClusterEncryptionAtRest.hs b/library-gen/Stratosphere/ResourceProperties/MSKClusterEncryptionAtRest.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MSKClusterEncryptionAtRest.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-encryptionatrest.html - -module Stratosphere.ResourceProperties.MSKClusterEncryptionAtRest where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MSKClusterEncryptionAtRest. See --- 'mskClusterEncryptionAtRest' for a more convenient constructor. -data MSKClusterEncryptionAtRest = - MSKClusterEncryptionAtRest - { _mSKClusterEncryptionAtRestDataVolumeKMSKeyId :: Val Text - } deriving (Show, Eq) - -instance ToJSON MSKClusterEncryptionAtRest where - toJSON MSKClusterEncryptionAtRest{..} = - object $ - catMaybes - [ (Just . ("DataVolumeKMSKeyId",) . toJSON) _mSKClusterEncryptionAtRestDataVolumeKMSKeyId - ] - --- | Constructor for 'MSKClusterEncryptionAtRest' containing required fields --- as arguments. -mskClusterEncryptionAtRest - :: Val Text -- ^ 'mskcearDataVolumeKMSKeyId' - -> MSKClusterEncryptionAtRest -mskClusterEncryptionAtRest dataVolumeKMSKeyIdarg = - MSKClusterEncryptionAtRest - { _mSKClusterEncryptionAtRestDataVolumeKMSKeyId = dataVolumeKMSKeyIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-encryptionatrest.html#cfn-msk-cluster-encryptionatrest-datavolumekmskeyid -mskcearDataVolumeKMSKeyId :: Lens' MSKClusterEncryptionAtRest (Val Text) -mskcearDataVolumeKMSKeyId = lens _mSKClusterEncryptionAtRestDataVolumeKMSKeyId (\s a -> s { _mSKClusterEncryptionAtRestDataVolumeKMSKeyId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MSKClusterEncryptionInTransit.hs b/library-gen/Stratosphere/ResourceProperties/MSKClusterEncryptionInTransit.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MSKClusterEncryptionInTransit.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-encryptionintransit.html - -module Stratosphere.ResourceProperties.MSKClusterEncryptionInTransit where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MSKClusterEncryptionInTransit. See --- 'mskClusterEncryptionInTransit' for a more convenient constructor. -data MSKClusterEncryptionInTransit = - MSKClusterEncryptionInTransit - { _mSKClusterEncryptionInTransitClientBroker :: Maybe (Val Text) - , _mSKClusterEncryptionInTransitInCluster :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON MSKClusterEncryptionInTransit where - toJSON MSKClusterEncryptionInTransit{..} = - object $ - catMaybes - [ fmap (("ClientBroker",) . toJSON) _mSKClusterEncryptionInTransitClientBroker - , fmap (("InCluster",) . toJSON) _mSKClusterEncryptionInTransitInCluster - ] - --- | Constructor for 'MSKClusterEncryptionInTransit' containing required --- fields as arguments. -mskClusterEncryptionInTransit - :: MSKClusterEncryptionInTransit -mskClusterEncryptionInTransit = - MSKClusterEncryptionInTransit - { _mSKClusterEncryptionInTransitClientBroker = Nothing - , _mSKClusterEncryptionInTransitInCluster = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-encryptionintransit.html#cfn-msk-cluster-encryptionintransit-clientbroker -mskceitClientBroker :: Lens' MSKClusterEncryptionInTransit (Maybe (Val Text)) -mskceitClientBroker = lens _mSKClusterEncryptionInTransitClientBroker (\s a -> s { _mSKClusterEncryptionInTransitClientBroker = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-encryptionintransit.html#cfn-msk-cluster-encryptionintransit-incluster -mskceitInCluster :: Lens' MSKClusterEncryptionInTransit (Maybe (Val Bool)) -mskceitInCluster = lens _mSKClusterEncryptionInTransitInCluster (\s a -> s { _mSKClusterEncryptionInTransitInCluster = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MSKClusterEncryptionInfo.hs b/library-gen/Stratosphere/ResourceProperties/MSKClusterEncryptionInfo.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MSKClusterEncryptionInfo.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-encryptioninfo.html - -module Stratosphere.ResourceProperties.MSKClusterEncryptionInfo where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.MSKClusterEncryptionAtRest -import Stratosphere.ResourceProperties.MSKClusterEncryptionInTransit - --- | Full data type definition for MSKClusterEncryptionInfo. See --- 'mskClusterEncryptionInfo' for a more convenient constructor. -data MSKClusterEncryptionInfo = - MSKClusterEncryptionInfo - { _mSKClusterEncryptionInfoEncryptionAtRest :: Maybe MSKClusterEncryptionAtRest - , _mSKClusterEncryptionInfoEncryptionInTransit :: Maybe MSKClusterEncryptionInTransit - } deriving (Show, Eq) - -instance ToJSON MSKClusterEncryptionInfo where - toJSON MSKClusterEncryptionInfo{..} = - object $ - catMaybes - [ fmap (("EncryptionAtRest",) . toJSON) _mSKClusterEncryptionInfoEncryptionAtRest - , fmap (("EncryptionInTransit",) . toJSON) _mSKClusterEncryptionInfoEncryptionInTransit - ] - --- | Constructor for 'MSKClusterEncryptionInfo' containing required fields as --- arguments. -mskClusterEncryptionInfo - :: MSKClusterEncryptionInfo -mskClusterEncryptionInfo = - MSKClusterEncryptionInfo - { _mSKClusterEncryptionInfoEncryptionAtRest = Nothing - , _mSKClusterEncryptionInfoEncryptionInTransit = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-encryptioninfo.html#cfn-msk-cluster-encryptioninfo-encryptionatrest -mskceiEncryptionAtRest :: Lens' MSKClusterEncryptionInfo (Maybe MSKClusterEncryptionAtRest) -mskceiEncryptionAtRest = lens _mSKClusterEncryptionInfoEncryptionAtRest (\s a -> s { _mSKClusterEncryptionInfoEncryptionAtRest = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-encryptioninfo.html#cfn-msk-cluster-encryptioninfo-encryptionintransit -mskceiEncryptionInTransit :: Lens' MSKClusterEncryptionInfo (Maybe MSKClusterEncryptionInTransit) -mskceiEncryptionInTransit = lens _mSKClusterEncryptionInfoEncryptionInTransit (\s a -> s { _mSKClusterEncryptionInfoEncryptionInTransit = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MSKClusterFirehose.hs b/library-gen/Stratosphere/ResourceProperties/MSKClusterFirehose.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MSKClusterFirehose.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-firehose.html - -module Stratosphere.ResourceProperties.MSKClusterFirehose where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MSKClusterFirehose. See --- 'mskClusterFirehose' for a more convenient constructor. -data MSKClusterFirehose = - MSKClusterFirehose - { _mSKClusterFirehoseDeliveryStream :: Maybe (Val Text) - , _mSKClusterFirehoseEnabled :: Val Bool - } deriving (Show, Eq) - -instance ToJSON MSKClusterFirehose where - toJSON MSKClusterFirehose{..} = - object $ - catMaybes - [ fmap (("DeliveryStream",) . toJSON) _mSKClusterFirehoseDeliveryStream - , (Just . ("Enabled",) . toJSON) _mSKClusterFirehoseEnabled - ] - --- | Constructor for 'MSKClusterFirehose' containing required fields as --- arguments. -mskClusterFirehose - :: Val Bool -- ^ 'mskcfEnabled' - -> MSKClusterFirehose -mskClusterFirehose enabledarg = - MSKClusterFirehose - { _mSKClusterFirehoseDeliveryStream = Nothing - , _mSKClusterFirehoseEnabled = enabledarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-firehose.html#cfn-msk-cluster-firehose-deliverystream -mskcfDeliveryStream :: Lens' MSKClusterFirehose (Maybe (Val Text)) -mskcfDeliveryStream = lens _mSKClusterFirehoseDeliveryStream (\s a -> s { _mSKClusterFirehoseDeliveryStream = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-firehose.html#cfn-msk-cluster-firehose-enabled -mskcfEnabled :: Lens' MSKClusterFirehose (Val Bool) -mskcfEnabled = lens _mSKClusterFirehoseEnabled (\s a -> s { _mSKClusterFirehoseEnabled = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MSKClusterJmxExporter.hs b/library-gen/Stratosphere/ResourceProperties/MSKClusterJmxExporter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MSKClusterJmxExporter.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-jmxexporter.html - -module Stratosphere.ResourceProperties.MSKClusterJmxExporter where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MSKClusterJmxExporter. See --- 'mskClusterJmxExporter' for a more convenient constructor. -data MSKClusterJmxExporter = - MSKClusterJmxExporter - { _mSKClusterJmxExporterEnabledInBroker :: Val Bool - } deriving (Show, Eq) - -instance ToJSON MSKClusterJmxExporter where - toJSON MSKClusterJmxExporter{..} = - object $ - catMaybes - [ (Just . ("EnabledInBroker",) . toJSON) _mSKClusterJmxExporterEnabledInBroker - ] - --- | Constructor for 'MSKClusterJmxExporter' containing required fields as --- arguments. -mskClusterJmxExporter - :: Val Bool -- ^ 'mskcjeEnabledInBroker' - -> MSKClusterJmxExporter -mskClusterJmxExporter enabledInBrokerarg = - MSKClusterJmxExporter - { _mSKClusterJmxExporterEnabledInBroker = enabledInBrokerarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-jmxexporter.html#cfn-msk-cluster-jmxexporter-enabledinbroker -mskcjeEnabledInBroker :: Lens' MSKClusterJmxExporter (Val Bool) -mskcjeEnabledInBroker = lens _mSKClusterJmxExporterEnabledInBroker (\s a -> s { _mSKClusterJmxExporterEnabledInBroker = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MSKClusterLoggingInfo.hs b/library-gen/Stratosphere/ResourceProperties/MSKClusterLoggingInfo.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MSKClusterLoggingInfo.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-logginginfo.html - -module Stratosphere.ResourceProperties.MSKClusterLoggingInfo where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.MSKClusterBrokerLogs - --- | Full data type definition for MSKClusterLoggingInfo. See --- 'mskClusterLoggingInfo' for a more convenient constructor. -data MSKClusterLoggingInfo = - MSKClusterLoggingInfo - { _mSKClusterLoggingInfoBrokerLogs :: MSKClusterBrokerLogs - } deriving (Show, Eq) - -instance ToJSON MSKClusterLoggingInfo where - toJSON MSKClusterLoggingInfo{..} = - object $ - catMaybes - [ (Just . ("BrokerLogs",) . toJSON) _mSKClusterLoggingInfoBrokerLogs - ] - --- | Constructor for 'MSKClusterLoggingInfo' containing required fields as --- arguments. -mskClusterLoggingInfo - :: MSKClusterBrokerLogs -- ^ 'mskcliBrokerLogs' - -> MSKClusterLoggingInfo -mskClusterLoggingInfo brokerLogsarg = - MSKClusterLoggingInfo - { _mSKClusterLoggingInfoBrokerLogs = brokerLogsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-logginginfo.html#cfn-msk-cluster-logginginfo-brokerlogs -mskcliBrokerLogs :: Lens' MSKClusterLoggingInfo MSKClusterBrokerLogs -mskcliBrokerLogs = lens _mSKClusterLoggingInfoBrokerLogs (\s a -> s { _mSKClusterLoggingInfoBrokerLogs = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MSKClusterNodeExporter.hs b/library-gen/Stratosphere/ResourceProperties/MSKClusterNodeExporter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MSKClusterNodeExporter.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-nodeexporter.html - -module Stratosphere.ResourceProperties.MSKClusterNodeExporter where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MSKClusterNodeExporter. See --- 'mskClusterNodeExporter' for a more convenient constructor. -data MSKClusterNodeExporter = - MSKClusterNodeExporter - { _mSKClusterNodeExporterEnabledInBroker :: Val Bool - } deriving (Show, Eq) - -instance ToJSON MSKClusterNodeExporter where - toJSON MSKClusterNodeExporter{..} = - object $ - catMaybes - [ (Just . ("EnabledInBroker",) . toJSON) _mSKClusterNodeExporterEnabledInBroker - ] - --- | Constructor for 'MSKClusterNodeExporter' containing required fields as --- arguments. -mskClusterNodeExporter - :: Val Bool -- ^ 'mskcneEnabledInBroker' - -> MSKClusterNodeExporter -mskClusterNodeExporter enabledInBrokerarg = - MSKClusterNodeExporter - { _mSKClusterNodeExporterEnabledInBroker = enabledInBrokerarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-nodeexporter.html#cfn-msk-cluster-nodeexporter-enabledinbroker -mskcneEnabledInBroker :: Lens' MSKClusterNodeExporter (Val Bool) -mskcneEnabledInBroker = lens _mSKClusterNodeExporterEnabledInBroker (\s a -> s { _mSKClusterNodeExporterEnabledInBroker = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MSKClusterOpenMonitoring.hs b/library-gen/Stratosphere/ResourceProperties/MSKClusterOpenMonitoring.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MSKClusterOpenMonitoring.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-openmonitoring.html - -module Stratosphere.ResourceProperties.MSKClusterOpenMonitoring where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.MSKClusterPrometheus - --- | Full data type definition for MSKClusterOpenMonitoring. See --- 'mskClusterOpenMonitoring' for a more convenient constructor. -data MSKClusterOpenMonitoring = - MSKClusterOpenMonitoring - { _mSKClusterOpenMonitoringPrometheus :: MSKClusterPrometheus - } deriving (Show, Eq) - -instance ToJSON MSKClusterOpenMonitoring where - toJSON MSKClusterOpenMonitoring{..} = - object $ - catMaybes - [ (Just . ("Prometheus",) . toJSON) _mSKClusterOpenMonitoringPrometheus - ] - --- | Constructor for 'MSKClusterOpenMonitoring' containing required fields as --- arguments. -mskClusterOpenMonitoring - :: MSKClusterPrometheus -- ^ 'mskcomPrometheus' - -> MSKClusterOpenMonitoring -mskClusterOpenMonitoring prometheusarg = - MSKClusterOpenMonitoring - { _mSKClusterOpenMonitoringPrometheus = prometheusarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-openmonitoring.html#cfn-msk-cluster-openmonitoring-prometheus -mskcomPrometheus :: Lens' MSKClusterOpenMonitoring MSKClusterPrometheus -mskcomPrometheus = lens _mSKClusterOpenMonitoringPrometheus (\s a -> s { _mSKClusterOpenMonitoringPrometheus = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MSKClusterPrometheus.hs b/library-gen/Stratosphere/ResourceProperties/MSKClusterPrometheus.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MSKClusterPrometheus.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-prometheus.html - -module Stratosphere.ResourceProperties.MSKClusterPrometheus where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.MSKClusterJmxExporter -import Stratosphere.ResourceProperties.MSKClusterNodeExporter - --- | Full data type definition for MSKClusterPrometheus. See --- 'mskClusterPrometheus' for a more convenient constructor. -data MSKClusterPrometheus = - MSKClusterPrometheus - { _mSKClusterPrometheusJmxExporter :: Maybe MSKClusterJmxExporter - , _mSKClusterPrometheusNodeExporter :: Maybe MSKClusterNodeExporter - } deriving (Show, Eq) - -instance ToJSON MSKClusterPrometheus where - toJSON MSKClusterPrometheus{..} = - object $ - catMaybes - [ fmap (("JmxExporter",) . toJSON) _mSKClusterPrometheusJmxExporter - , fmap (("NodeExporter",) . toJSON) _mSKClusterPrometheusNodeExporter - ] - --- | Constructor for 'MSKClusterPrometheus' containing required fields as --- arguments. -mskClusterPrometheus - :: MSKClusterPrometheus -mskClusterPrometheus = - MSKClusterPrometheus - { _mSKClusterPrometheusJmxExporter = Nothing - , _mSKClusterPrometheusNodeExporter = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-prometheus.html#cfn-msk-cluster-prometheus-jmxexporter -mskcpJmxExporter :: Lens' MSKClusterPrometheus (Maybe MSKClusterJmxExporter) -mskcpJmxExporter = lens _mSKClusterPrometheusJmxExporter (\s a -> s { _mSKClusterPrometheusJmxExporter = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-prometheus.html#cfn-msk-cluster-prometheus-nodeexporter -mskcpNodeExporter :: Lens' MSKClusterPrometheus (Maybe MSKClusterNodeExporter) -mskcpNodeExporter = lens _mSKClusterPrometheusNodeExporter (\s a -> s { _mSKClusterPrometheusNodeExporter = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MSKClusterS3.hs b/library-gen/Stratosphere/ResourceProperties/MSKClusterS3.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MSKClusterS3.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-s3.html - -module Stratosphere.ResourceProperties.MSKClusterS3 where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MSKClusterS3. See 'mskClusterS3' for a more --- convenient constructor. -data MSKClusterS3 = - MSKClusterS3 - { _mSKClusterS3Bucket :: Maybe (Val Text) - , _mSKClusterS3Enabled :: Val Bool - , _mSKClusterS3Prefix :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON MSKClusterS3 where - toJSON MSKClusterS3{..} = - object $ - catMaybes - [ fmap (("Bucket",) . toJSON) _mSKClusterS3Bucket - , (Just . ("Enabled",) . toJSON) _mSKClusterS3Enabled - , fmap (("Prefix",) . toJSON) _mSKClusterS3Prefix - ] - --- | Constructor for 'MSKClusterS3' containing required fields as arguments. -mskClusterS3 - :: Val Bool -- ^ 'mskcsEnabled' - -> MSKClusterS3 -mskClusterS3 enabledarg = - MSKClusterS3 - { _mSKClusterS3Bucket = Nothing - , _mSKClusterS3Enabled = enabledarg - , _mSKClusterS3Prefix = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-s3.html#cfn-msk-cluster-s3-bucket -mskcsBucket :: Lens' MSKClusterS3 (Maybe (Val Text)) -mskcsBucket = lens _mSKClusterS3Bucket (\s a -> s { _mSKClusterS3Bucket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-s3.html#cfn-msk-cluster-s3-enabled -mskcsEnabled :: Lens' MSKClusterS3 (Val Bool) -mskcsEnabled = lens _mSKClusterS3Enabled (\s a -> s { _mSKClusterS3Enabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-s3.html#cfn-msk-cluster-s3-prefix -mskcsPrefix :: Lens' MSKClusterS3 (Maybe (Val Text)) -mskcsPrefix = lens _mSKClusterS3Prefix (\s a -> s { _mSKClusterS3Prefix = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MSKClusterStorageInfo.hs b/library-gen/Stratosphere/ResourceProperties/MSKClusterStorageInfo.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MSKClusterStorageInfo.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-storageinfo.html - -module Stratosphere.ResourceProperties.MSKClusterStorageInfo where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.MSKClusterEBSStorageInfo - --- | Full data type definition for MSKClusterStorageInfo. See --- 'mskClusterStorageInfo' for a more convenient constructor. -data MSKClusterStorageInfo = - MSKClusterStorageInfo - { _mSKClusterStorageInfoEBSStorageInfo :: Maybe MSKClusterEBSStorageInfo - } deriving (Show, Eq) - -instance ToJSON MSKClusterStorageInfo where - toJSON MSKClusterStorageInfo{..} = - object $ - catMaybes - [ fmap (("EBSStorageInfo",) . toJSON) _mSKClusterStorageInfoEBSStorageInfo - ] - --- | Constructor for 'MSKClusterStorageInfo' containing required fields as --- arguments. -mskClusterStorageInfo - :: MSKClusterStorageInfo -mskClusterStorageInfo = - MSKClusterStorageInfo - { _mSKClusterStorageInfoEBSStorageInfo = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-storageinfo.html#cfn-msk-cluster-storageinfo-ebsstorageinfo -mskcsiEBSStorageInfo :: Lens' MSKClusterStorageInfo (Maybe MSKClusterEBSStorageInfo) -mskcsiEBSStorageInfo = lens _mSKClusterStorageInfoEBSStorageInfo (\s a -> s { _mSKClusterStorageInfoEBSStorageInfo = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MSKClusterTls.hs b/library-gen/Stratosphere/ResourceProperties/MSKClusterTls.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MSKClusterTls.hs +++ /dev/null @@ -1,37 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-tls.html - -module Stratosphere.ResourceProperties.MSKClusterTls where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MSKClusterTls. See 'mskClusterTls' for a --- more convenient constructor. -data MSKClusterTls = - MSKClusterTls - { _mSKClusterTlsCertificateAuthorityArnList :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON MSKClusterTls where - toJSON MSKClusterTls{..} = - object $ - catMaybes - [ fmap (("CertificateAuthorityArnList",) . toJSON) _mSKClusterTlsCertificateAuthorityArnList - ] - --- | Constructor for 'MSKClusterTls' containing required fields as arguments. -mskClusterTls - :: MSKClusterTls -mskClusterTls = - MSKClusterTls - { _mSKClusterTlsCertificateAuthorityArnList = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-tls.html#cfn-msk-cluster-tls-certificateauthorityarnlist -mskctCertificateAuthorityArnList :: Lens' MSKClusterTls (Maybe (ValList Text)) -mskctCertificateAuthorityArnList = lens _mSKClusterTlsCertificateAuthorityArnList (\s a -> s { _mSKClusterTlsCertificateAuthorityArnList = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MacieFindingsFilterFindingsFilterListItem.hs b/library-gen/Stratosphere/ResourceProperties/MacieFindingsFilterFindingsFilterListItem.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MacieFindingsFilterFindingsFilterListItem.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-macie-findingsfilter-findingsfilterlistitem.html - -module Stratosphere.ResourceProperties.MacieFindingsFilterFindingsFilterListItem where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MacieFindingsFilterFindingsFilterListItem. --- See 'macieFindingsFilterFindingsFilterListItem' for a more convenient --- constructor. -data MacieFindingsFilterFindingsFilterListItem = - MacieFindingsFilterFindingsFilterListItem - { _macieFindingsFilterFindingsFilterListItemId :: Maybe (Val Text) - , _macieFindingsFilterFindingsFilterListItemName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON MacieFindingsFilterFindingsFilterListItem where - toJSON MacieFindingsFilterFindingsFilterListItem{..} = - object $ - catMaybes - [ fmap (("Id",) . toJSON) _macieFindingsFilterFindingsFilterListItemId - , fmap (("Name",) . toJSON) _macieFindingsFilterFindingsFilterListItemName - ] - --- | Constructor for 'MacieFindingsFilterFindingsFilterListItem' containing --- required fields as arguments. -macieFindingsFilterFindingsFilterListItem - :: MacieFindingsFilterFindingsFilterListItem -macieFindingsFilterFindingsFilterListItem = - MacieFindingsFilterFindingsFilterListItem - { _macieFindingsFilterFindingsFilterListItemId = Nothing - , _macieFindingsFilterFindingsFilterListItemName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-macie-findingsfilter-findingsfilterlistitem.html#cfn-macie-findingsfilter-findingsfilterlistitem-id -mffffliId :: Lens' MacieFindingsFilterFindingsFilterListItem (Maybe (Val Text)) -mffffliId = lens _macieFindingsFilterFindingsFilterListItemId (\s a -> s { _macieFindingsFilterFindingsFilterListItemId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-macie-findingsfilter-findingsfilterlistitem.html#cfn-macie-findingsfilter-findingsfilterlistitem-name -mffffliName :: Lens' MacieFindingsFilterFindingsFilterListItem (Maybe (Val Text)) -mffffliName = lens _macieFindingsFilterFindingsFilterListItemName (\s a -> s { _macieFindingsFilterFindingsFilterListItemName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberApprovalThresholdPolicy.hs b/library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberApprovalThresholdPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberApprovalThresholdPolicy.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-approvalthresholdpolicy.html - -module Stratosphere.ResourceProperties.ManagedBlockchainMemberApprovalThresholdPolicy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ManagedBlockchainMemberApprovalThresholdPolicy. See --- 'managedBlockchainMemberApprovalThresholdPolicy' for a more convenient --- constructor. -data ManagedBlockchainMemberApprovalThresholdPolicy = - ManagedBlockchainMemberApprovalThresholdPolicy - { _managedBlockchainMemberApprovalThresholdPolicyProposalDurationInHours :: Maybe (Val Integer) - , _managedBlockchainMemberApprovalThresholdPolicyThresholdComparator :: Maybe (Val Text) - , _managedBlockchainMemberApprovalThresholdPolicyThresholdPercentage :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON ManagedBlockchainMemberApprovalThresholdPolicy where - toJSON ManagedBlockchainMemberApprovalThresholdPolicy{..} = - object $ - catMaybes - [ fmap (("ProposalDurationInHours",) . toJSON) _managedBlockchainMemberApprovalThresholdPolicyProposalDurationInHours - , fmap (("ThresholdComparator",) . toJSON) _managedBlockchainMemberApprovalThresholdPolicyThresholdComparator - , fmap (("ThresholdPercentage",) . toJSON) _managedBlockchainMemberApprovalThresholdPolicyThresholdPercentage - ] - --- | Constructor for 'ManagedBlockchainMemberApprovalThresholdPolicy' --- containing required fields as arguments. -managedBlockchainMemberApprovalThresholdPolicy - :: ManagedBlockchainMemberApprovalThresholdPolicy -managedBlockchainMemberApprovalThresholdPolicy = - ManagedBlockchainMemberApprovalThresholdPolicy - { _managedBlockchainMemberApprovalThresholdPolicyProposalDurationInHours = Nothing - , _managedBlockchainMemberApprovalThresholdPolicyThresholdComparator = Nothing - , _managedBlockchainMemberApprovalThresholdPolicyThresholdPercentage = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-approvalthresholdpolicy.html#cfn-managedblockchain-member-approvalthresholdpolicy-proposaldurationinhours -mbmatpProposalDurationInHours :: Lens' ManagedBlockchainMemberApprovalThresholdPolicy (Maybe (Val Integer)) -mbmatpProposalDurationInHours = lens _managedBlockchainMemberApprovalThresholdPolicyProposalDurationInHours (\s a -> s { _managedBlockchainMemberApprovalThresholdPolicyProposalDurationInHours = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-approvalthresholdpolicy.html#cfn-managedblockchain-member-approvalthresholdpolicy-thresholdcomparator -mbmatpThresholdComparator :: Lens' ManagedBlockchainMemberApprovalThresholdPolicy (Maybe (Val Text)) -mbmatpThresholdComparator = lens _managedBlockchainMemberApprovalThresholdPolicyThresholdComparator (\s a -> s { _managedBlockchainMemberApprovalThresholdPolicyThresholdComparator = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-approvalthresholdpolicy.html#cfn-managedblockchain-member-approvalthresholdpolicy-thresholdpercentage -mbmatpThresholdPercentage :: Lens' ManagedBlockchainMemberApprovalThresholdPolicy (Maybe (Val Integer)) -mbmatpThresholdPercentage = lens _managedBlockchainMemberApprovalThresholdPolicyThresholdPercentage (\s a -> s { _managedBlockchainMemberApprovalThresholdPolicyThresholdPercentage = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberMemberConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberMemberConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberMemberConfiguration.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-memberconfiguration.html - -module Stratosphere.ResourceProperties.ManagedBlockchainMemberMemberConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ManagedBlockchainMemberMemberFrameworkConfiguration - --- | Full data type definition for ManagedBlockchainMemberMemberConfiguration. --- See 'managedBlockchainMemberMemberConfiguration' for a more convenient --- constructor. -data ManagedBlockchainMemberMemberConfiguration = - ManagedBlockchainMemberMemberConfiguration - { _managedBlockchainMemberMemberConfigurationDescription :: Maybe (Val Text) - , _managedBlockchainMemberMemberConfigurationMemberFrameworkConfiguration :: Maybe ManagedBlockchainMemberMemberFrameworkConfiguration - , _managedBlockchainMemberMemberConfigurationName :: Val Text - } deriving (Show, Eq) - -instance ToJSON ManagedBlockchainMemberMemberConfiguration where - toJSON ManagedBlockchainMemberMemberConfiguration{..} = - object $ - catMaybes - [ fmap (("Description",) . toJSON) _managedBlockchainMemberMemberConfigurationDescription - , fmap (("MemberFrameworkConfiguration",) . toJSON) _managedBlockchainMemberMemberConfigurationMemberFrameworkConfiguration - , (Just . ("Name",) . toJSON) _managedBlockchainMemberMemberConfigurationName - ] - --- | Constructor for 'ManagedBlockchainMemberMemberConfiguration' containing --- required fields as arguments. -managedBlockchainMemberMemberConfiguration - :: Val Text -- ^ 'mbmmcName' - -> ManagedBlockchainMemberMemberConfiguration -managedBlockchainMemberMemberConfiguration namearg = - ManagedBlockchainMemberMemberConfiguration - { _managedBlockchainMemberMemberConfigurationDescription = Nothing - , _managedBlockchainMemberMemberConfigurationMemberFrameworkConfiguration = Nothing - , _managedBlockchainMemberMemberConfigurationName = namearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-memberconfiguration.html#cfn-managedblockchain-member-memberconfiguration-description -mbmmcDescription :: Lens' ManagedBlockchainMemberMemberConfiguration (Maybe (Val Text)) -mbmmcDescription = lens _managedBlockchainMemberMemberConfigurationDescription (\s a -> s { _managedBlockchainMemberMemberConfigurationDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-memberconfiguration.html#cfn-managedblockchain-member-memberconfiguration-memberframeworkconfiguration -mbmmcMemberFrameworkConfiguration :: Lens' ManagedBlockchainMemberMemberConfiguration (Maybe ManagedBlockchainMemberMemberFrameworkConfiguration) -mbmmcMemberFrameworkConfiguration = lens _managedBlockchainMemberMemberConfigurationMemberFrameworkConfiguration (\s a -> s { _managedBlockchainMemberMemberConfigurationMemberFrameworkConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-memberconfiguration.html#cfn-managedblockchain-member-memberconfiguration-name -mbmmcName :: Lens' ManagedBlockchainMemberMemberConfiguration (Val Text) -mbmmcName = lens _managedBlockchainMemberMemberConfigurationName (\s a -> s { _managedBlockchainMemberMemberConfigurationName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberMemberFabricConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberMemberFabricConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberMemberFabricConfiguration.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-memberfabricconfiguration.html - -module Stratosphere.ResourceProperties.ManagedBlockchainMemberMemberFabricConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ManagedBlockchainMemberMemberFabricConfiguration. See --- 'managedBlockchainMemberMemberFabricConfiguration' for a more convenient --- constructor. -data ManagedBlockchainMemberMemberFabricConfiguration = - ManagedBlockchainMemberMemberFabricConfiguration - { _managedBlockchainMemberMemberFabricConfigurationAdminPassword :: Val Text - , _managedBlockchainMemberMemberFabricConfigurationAdminUsername :: Val Text - } deriving (Show, Eq) - -instance ToJSON ManagedBlockchainMemberMemberFabricConfiguration where - toJSON ManagedBlockchainMemberMemberFabricConfiguration{..} = - object $ - catMaybes - [ (Just . ("AdminPassword",) . toJSON) _managedBlockchainMemberMemberFabricConfigurationAdminPassword - , (Just . ("AdminUsername",) . toJSON) _managedBlockchainMemberMemberFabricConfigurationAdminUsername - ] - --- | Constructor for 'ManagedBlockchainMemberMemberFabricConfiguration' --- containing required fields as arguments. -managedBlockchainMemberMemberFabricConfiguration - :: Val Text -- ^ 'mbmmfcAdminPassword' - -> Val Text -- ^ 'mbmmfcAdminUsername' - -> ManagedBlockchainMemberMemberFabricConfiguration -managedBlockchainMemberMemberFabricConfiguration adminPasswordarg adminUsernamearg = - ManagedBlockchainMemberMemberFabricConfiguration - { _managedBlockchainMemberMemberFabricConfigurationAdminPassword = adminPasswordarg - , _managedBlockchainMemberMemberFabricConfigurationAdminUsername = adminUsernamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-memberfabricconfiguration.html#cfn-managedblockchain-member-memberfabricconfiguration-adminpassword -mbmmfcAdminPassword :: Lens' ManagedBlockchainMemberMemberFabricConfiguration (Val Text) -mbmmfcAdminPassword = lens _managedBlockchainMemberMemberFabricConfigurationAdminPassword (\s a -> s { _managedBlockchainMemberMemberFabricConfigurationAdminPassword = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-memberfabricconfiguration.html#cfn-managedblockchain-member-memberfabricconfiguration-adminusername -mbmmfcAdminUsername :: Lens' ManagedBlockchainMemberMemberFabricConfiguration (Val Text) -mbmmfcAdminUsername = lens _managedBlockchainMemberMemberFabricConfigurationAdminUsername (\s a -> s { _managedBlockchainMemberMemberFabricConfigurationAdminUsername = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberMemberFrameworkConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberMemberFrameworkConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberMemberFrameworkConfiguration.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-memberframeworkconfiguration.html - -module Stratosphere.ResourceProperties.ManagedBlockchainMemberMemberFrameworkConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ManagedBlockchainMemberMemberFabricConfiguration - --- | Full data type definition for --- ManagedBlockchainMemberMemberFrameworkConfiguration. See --- 'managedBlockchainMemberMemberFrameworkConfiguration' for a more --- convenient constructor. -data ManagedBlockchainMemberMemberFrameworkConfiguration = - ManagedBlockchainMemberMemberFrameworkConfiguration - { _managedBlockchainMemberMemberFrameworkConfigurationMemberFabricConfiguration :: Maybe ManagedBlockchainMemberMemberFabricConfiguration - } deriving (Show, Eq) - -instance ToJSON ManagedBlockchainMemberMemberFrameworkConfiguration where - toJSON ManagedBlockchainMemberMemberFrameworkConfiguration{..} = - object $ - catMaybes - [ fmap (("MemberFabricConfiguration",) . toJSON) _managedBlockchainMemberMemberFrameworkConfigurationMemberFabricConfiguration - ] - --- | Constructor for 'ManagedBlockchainMemberMemberFrameworkConfiguration' --- containing required fields as arguments. -managedBlockchainMemberMemberFrameworkConfiguration - :: ManagedBlockchainMemberMemberFrameworkConfiguration -managedBlockchainMemberMemberFrameworkConfiguration = - ManagedBlockchainMemberMemberFrameworkConfiguration - { _managedBlockchainMemberMemberFrameworkConfigurationMemberFabricConfiguration = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-memberframeworkconfiguration.html#cfn-managedblockchain-member-memberframeworkconfiguration-memberfabricconfiguration -mbmmfcMemberFabricConfiguration :: Lens' ManagedBlockchainMemberMemberFrameworkConfiguration (Maybe ManagedBlockchainMemberMemberFabricConfiguration) -mbmmfcMemberFabricConfiguration = lens _managedBlockchainMemberMemberFrameworkConfigurationMemberFabricConfiguration (\s a -> s { _managedBlockchainMemberMemberFrameworkConfigurationMemberFabricConfiguration = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberNetworkConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberNetworkConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberNetworkConfiguration.hs +++ /dev/null @@ -1,80 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-networkconfiguration.html - -module Stratosphere.ResourceProperties.ManagedBlockchainMemberNetworkConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ManagedBlockchainMemberNetworkFrameworkConfiguration -import Stratosphere.ResourceProperties.ManagedBlockchainMemberVotingPolicy - --- | Full data type definition for --- ManagedBlockchainMemberNetworkConfiguration. See --- 'managedBlockchainMemberNetworkConfiguration' for a more convenient --- constructor. -data ManagedBlockchainMemberNetworkConfiguration = - ManagedBlockchainMemberNetworkConfiguration - { _managedBlockchainMemberNetworkConfigurationDescription :: Maybe (Val Text) - , _managedBlockchainMemberNetworkConfigurationFramework :: Val Text - , _managedBlockchainMemberNetworkConfigurationFrameworkVersion :: Val Text - , _managedBlockchainMemberNetworkConfigurationName :: Val Text - , _managedBlockchainMemberNetworkConfigurationNetworkFrameworkConfiguration :: Maybe ManagedBlockchainMemberNetworkFrameworkConfiguration - , _managedBlockchainMemberNetworkConfigurationVotingPolicy :: ManagedBlockchainMemberVotingPolicy - } deriving (Show, Eq) - -instance ToJSON ManagedBlockchainMemberNetworkConfiguration where - toJSON ManagedBlockchainMemberNetworkConfiguration{..} = - object $ - catMaybes - [ fmap (("Description",) . toJSON) _managedBlockchainMemberNetworkConfigurationDescription - , (Just . ("Framework",) . toJSON) _managedBlockchainMemberNetworkConfigurationFramework - , (Just . ("FrameworkVersion",) . toJSON) _managedBlockchainMemberNetworkConfigurationFrameworkVersion - , (Just . ("Name",) . toJSON) _managedBlockchainMemberNetworkConfigurationName - , fmap (("NetworkFrameworkConfiguration",) . toJSON) _managedBlockchainMemberNetworkConfigurationNetworkFrameworkConfiguration - , (Just . ("VotingPolicy",) . toJSON) _managedBlockchainMemberNetworkConfigurationVotingPolicy - ] - --- | Constructor for 'ManagedBlockchainMemberNetworkConfiguration' containing --- required fields as arguments. -managedBlockchainMemberNetworkConfiguration - :: Val Text -- ^ 'mbmncFramework' - -> Val Text -- ^ 'mbmncFrameworkVersion' - -> Val Text -- ^ 'mbmncName' - -> ManagedBlockchainMemberVotingPolicy -- ^ 'mbmncVotingPolicy' - -> ManagedBlockchainMemberNetworkConfiguration -managedBlockchainMemberNetworkConfiguration frameworkarg frameworkVersionarg namearg votingPolicyarg = - ManagedBlockchainMemberNetworkConfiguration - { _managedBlockchainMemberNetworkConfigurationDescription = Nothing - , _managedBlockchainMemberNetworkConfigurationFramework = frameworkarg - , _managedBlockchainMemberNetworkConfigurationFrameworkVersion = frameworkVersionarg - , _managedBlockchainMemberNetworkConfigurationName = namearg - , _managedBlockchainMemberNetworkConfigurationNetworkFrameworkConfiguration = Nothing - , _managedBlockchainMemberNetworkConfigurationVotingPolicy = votingPolicyarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-networkconfiguration.html#cfn-managedblockchain-member-networkconfiguration-description -mbmncDescription :: Lens' ManagedBlockchainMemberNetworkConfiguration (Maybe (Val Text)) -mbmncDescription = lens _managedBlockchainMemberNetworkConfigurationDescription (\s a -> s { _managedBlockchainMemberNetworkConfigurationDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-networkconfiguration.html#cfn-managedblockchain-member-networkconfiguration-framework -mbmncFramework :: Lens' ManagedBlockchainMemberNetworkConfiguration (Val Text) -mbmncFramework = lens _managedBlockchainMemberNetworkConfigurationFramework (\s a -> s { _managedBlockchainMemberNetworkConfigurationFramework = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-networkconfiguration.html#cfn-managedblockchain-member-networkconfiguration-frameworkversion -mbmncFrameworkVersion :: Lens' ManagedBlockchainMemberNetworkConfiguration (Val Text) -mbmncFrameworkVersion = lens _managedBlockchainMemberNetworkConfigurationFrameworkVersion (\s a -> s { _managedBlockchainMemberNetworkConfigurationFrameworkVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-networkconfiguration.html#cfn-managedblockchain-member-networkconfiguration-name -mbmncName :: Lens' ManagedBlockchainMemberNetworkConfiguration (Val Text) -mbmncName = lens _managedBlockchainMemberNetworkConfigurationName (\s a -> s { _managedBlockchainMemberNetworkConfigurationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-networkconfiguration.html#cfn-managedblockchain-member-networkconfiguration-networkframeworkconfiguration -mbmncNetworkFrameworkConfiguration :: Lens' ManagedBlockchainMemberNetworkConfiguration (Maybe ManagedBlockchainMemberNetworkFrameworkConfiguration) -mbmncNetworkFrameworkConfiguration = lens _managedBlockchainMemberNetworkConfigurationNetworkFrameworkConfiguration (\s a -> s { _managedBlockchainMemberNetworkConfigurationNetworkFrameworkConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-networkconfiguration.html#cfn-managedblockchain-member-networkconfiguration-votingpolicy -mbmncVotingPolicy :: Lens' ManagedBlockchainMemberNetworkConfiguration ManagedBlockchainMemberVotingPolicy -mbmncVotingPolicy = lens _managedBlockchainMemberNetworkConfigurationVotingPolicy (\s a -> s { _managedBlockchainMemberNetworkConfigurationVotingPolicy = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberNetworkFabricConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberNetworkFabricConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberNetworkFabricConfiguration.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-networkfabricconfiguration.html - -module Stratosphere.ResourceProperties.ManagedBlockchainMemberNetworkFabricConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ManagedBlockchainMemberNetworkFabricConfiguration. See --- 'managedBlockchainMemberNetworkFabricConfiguration' for a more convenient --- constructor. -data ManagedBlockchainMemberNetworkFabricConfiguration = - ManagedBlockchainMemberNetworkFabricConfiguration - { _managedBlockchainMemberNetworkFabricConfigurationEdition :: Val Text - } deriving (Show, Eq) - -instance ToJSON ManagedBlockchainMemberNetworkFabricConfiguration where - toJSON ManagedBlockchainMemberNetworkFabricConfiguration{..} = - object $ - catMaybes - [ (Just . ("Edition",) . toJSON) _managedBlockchainMemberNetworkFabricConfigurationEdition - ] - --- | Constructor for 'ManagedBlockchainMemberNetworkFabricConfiguration' --- containing required fields as arguments. -managedBlockchainMemberNetworkFabricConfiguration - :: Val Text -- ^ 'mbmnfcEdition' - -> ManagedBlockchainMemberNetworkFabricConfiguration -managedBlockchainMemberNetworkFabricConfiguration editionarg = - ManagedBlockchainMemberNetworkFabricConfiguration - { _managedBlockchainMemberNetworkFabricConfigurationEdition = editionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-networkfabricconfiguration.html#cfn-managedblockchain-member-networkfabricconfiguration-edition -mbmnfcEdition :: Lens' ManagedBlockchainMemberNetworkFabricConfiguration (Val Text) -mbmnfcEdition = lens _managedBlockchainMemberNetworkFabricConfigurationEdition (\s a -> s { _managedBlockchainMemberNetworkFabricConfigurationEdition = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberNetworkFrameworkConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberNetworkFrameworkConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberNetworkFrameworkConfiguration.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-networkframeworkconfiguration.html - -module Stratosphere.ResourceProperties.ManagedBlockchainMemberNetworkFrameworkConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ManagedBlockchainMemberNetworkFabricConfiguration - --- | Full data type definition for --- ManagedBlockchainMemberNetworkFrameworkConfiguration. See --- 'managedBlockchainMemberNetworkFrameworkConfiguration' for a more --- convenient constructor. -data ManagedBlockchainMemberNetworkFrameworkConfiguration = - ManagedBlockchainMemberNetworkFrameworkConfiguration - { _managedBlockchainMemberNetworkFrameworkConfigurationNetworkFabricConfiguration :: Maybe ManagedBlockchainMemberNetworkFabricConfiguration - } deriving (Show, Eq) - -instance ToJSON ManagedBlockchainMemberNetworkFrameworkConfiguration where - toJSON ManagedBlockchainMemberNetworkFrameworkConfiguration{..} = - object $ - catMaybes - [ fmap (("NetworkFabricConfiguration",) . toJSON) _managedBlockchainMemberNetworkFrameworkConfigurationNetworkFabricConfiguration - ] - --- | Constructor for 'ManagedBlockchainMemberNetworkFrameworkConfiguration' --- containing required fields as arguments. -managedBlockchainMemberNetworkFrameworkConfiguration - :: ManagedBlockchainMemberNetworkFrameworkConfiguration -managedBlockchainMemberNetworkFrameworkConfiguration = - ManagedBlockchainMemberNetworkFrameworkConfiguration - { _managedBlockchainMemberNetworkFrameworkConfigurationNetworkFabricConfiguration = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-networkframeworkconfiguration.html#cfn-managedblockchain-member-networkframeworkconfiguration-networkfabricconfiguration -mbmnfcNetworkFabricConfiguration :: Lens' ManagedBlockchainMemberNetworkFrameworkConfiguration (Maybe ManagedBlockchainMemberNetworkFabricConfiguration) -mbmnfcNetworkFabricConfiguration = lens _managedBlockchainMemberNetworkFrameworkConfigurationNetworkFabricConfiguration (\s a -> s { _managedBlockchainMemberNetworkFrameworkConfigurationNetworkFabricConfiguration = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberVotingPolicy.hs b/library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberVotingPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ManagedBlockchainMemberVotingPolicy.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-votingpolicy.html - -module Stratosphere.ResourceProperties.ManagedBlockchainMemberVotingPolicy where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ManagedBlockchainMemberApprovalThresholdPolicy - --- | Full data type definition for ManagedBlockchainMemberVotingPolicy. See --- 'managedBlockchainMemberVotingPolicy' for a more convenient constructor. -data ManagedBlockchainMemberVotingPolicy = - ManagedBlockchainMemberVotingPolicy - { _managedBlockchainMemberVotingPolicyApprovalThresholdPolicy :: Maybe ManagedBlockchainMemberApprovalThresholdPolicy - } deriving (Show, Eq) - -instance ToJSON ManagedBlockchainMemberVotingPolicy where - toJSON ManagedBlockchainMemberVotingPolicy{..} = - object $ - catMaybes - [ fmap (("ApprovalThresholdPolicy",) . toJSON) _managedBlockchainMemberVotingPolicyApprovalThresholdPolicy - ] - --- | Constructor for 'ManagedBlockchainMemberVotingPolicy' containing required --- fields as arguments. -managedBlockchainMemberVotingPolicy - :: ManagedBlockchainMemberVotingPolicy -managedBlockchainMemberVotingPolicy = - ManagedBlockchainMemberVotingPolicy - { _managedBlockchainMemberVotingPolicyApprovalThresholdPolicy = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-member-votingpolicy.html#cfn-managedblockchain-member-votingpolicy-approvalthresholdpolicy -mbmvpApprovalThresholdPolicy :: Lens' ManagedBlockchainMemberVotingPolicy (Maybe ManagedBlockchainMemberApprovalThresholdPolicy) -mbmvpApprovalThresholdPolicy = lens _managedBlockchainMemberVotingPolicyApprovalThresholdPolicy (\s a -> s { _managedBlockchainMemberVotingPolicyApprovalThresholdPolicy = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ManagedBlockchainNodeNodeConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/ManagedBlockchainNodeNodeConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ManagedBlockchainNodeNodeConfiguration.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-node-nodeconfiguration.html - -module Stratosphere.ResourceProperties.ManagedBlockchainNodeNodeConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ManagedBlockchainNodeNodeConfiguration. See --- 'managedBlockchainNodeNodeConfiguration' for a more convenient --- constructor. -data ManagedBlockchainNodeNodeConfiguration = - ManagedBlockchainNodeNodeConfiguration - { _managedBlockchainNodeNodeConfigurationAvailabilityZone :: Val Text - , _managedBlockchainNodeNodeConfigurationInstanceType :: Val Text - } deriving (Show, Eq) - -instance ToJSON ManagedBlockchainNodeNodeConfiguration where - toJSON ManagedBlockchainNodeNodeConfiguration{..} = - object $ - catMaybes - [ (Just . ("AvailabilityZone",) . toJSON) _managedBlockchainNodeNodeConfigurationAvailabilityZone - , (Just . ("InstanceType",) . toJSON) _managedBlockchainNodeNodeConfigurationInstanceType - ] - --- | Constructor for 'ManagedBlockchainNodeNodeConfiguration' containing --- required fields as arguments. -managedBlockchainNodeNodeConfiguration - :: Val Text -- ^ 'mbnncAvailabilityZone' - -> Val Text -- ^ 'mbnncInstanceType' - -> ManagedBlockchainNodeNodeConfiguration -managedBlockchainNodeNodeConfiguration availabilityZonearg instanceTypearg = - ManagedBlockchainNodeNodeConfiguration - { _managedBlockchainNodeNodeConfigurationAvailabilityZone = availabilityZonearg - , _managedBlockchainNodeNodeConfigurationInstanceType = instanceTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-node-nodeconfiguration.html#cfn-managedblockchain-node-nodeconfiguration-availabilityzone -mbnncAvailabilityZone :: Lens' ManagedBlockchainNodeNodeConfiguration (Val Text) -mbnncAvailabilityZone = lens _managedBlockchainNodeNodeConfigurationAvailabilityZone (\s a -> s { _managedBlockchainNodeNodeConfigurationAvailabilityZone = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-managedblockchain-node-nodeconfiguration.html#cfn-managedblockchain-node-nodeconfiguration-instancetype -mbnncInstanceType :: Lens' ManagedBlockchainNodeNodeConfiguration (Val Text) -mbnncInstanceType = lens _managedBlockchainNodeNodeConfigurationInstanceType (\s a -> s { _managedBlockchainNodeNodeConfigurationInstanceType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaConvertJobTemplateAccelerationSettings.hs b/library-gen/Stratosphere/ResourceProperties/MediaConvertJobTemplateAccelerationSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaConvertJobTemplateAccelerationSettings.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediaconvert-jobtemplate-accelerationsettings.html - -module Stratosphere.ResourceProperties.MediaConvertJobTemplateAccelerationSettings where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- MediaConvertJobTemplateAccelerationSettings. See --- 'mediaConvertJobTemplateAccelerationSettings' for a more convenient --- constructor. -data MediaConvertJobTemplateAccelerationSettings = - MediaConvertJobTemplateAccelerationSettings - { _mediaConvertJobTemplateAccelerationSettingsMode :: Val Text - } deriving (Show, Eq) - -instance ToJSON MediaConvertJobTemplateAccelerationSettings where - toJSON MediaConvertJobTemplateAccelerationSettings{..} = - object $ - catMaybes - [ (Just . ("Mode",) . toJSON) _mediaConvertJobTemplateAccelerationSettingsMode - ] - --- | Constructor for 'MediaConvertJobTemplateAccelerationSettings' containing --- required fields as arguments. -mediaConvertJobTemplateAccelerationSettings - :: Val Text -- ^ 'mcjtasMode' - -> MediaConvertJobTemplateAccelerationSettings -mediaConvertJobTemplateAccelerationSettings modearg = - MediaConvertJobTemplateAccelerationSettings - { _mediaConvertJobTemplateAccelerationSettingsMode = modearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediaconvert-jobtemplate-accelerationsettings.html#cfn-mediaconvert-jobtemplate-accelerationsettings-mode -mcjtasMode :: Lens' MediaConvertJobTemplateAccelerationSettings (Val Text) -mcjtasMode = lens _mediaConvertJobTemplateAccelerationSettingsMode (\s a -> s { _mediaConvertJobTemplateAccelerationSettingsMode = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaConvertJobTemplateHopDestination.hs b/library-gen/Stratosphere/ResourceProperties/MediaConvertJobTemplateHopDestination.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaConvertJobTemplateHopDestination.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediaconvert-jobtemplate-hopdestination.html - -module Stratosphere.ResourceProperties.MediaConvertJobTemplateHopDestination where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MediaConvertJobTemplateHopDestination. See --- 'mediaConvertJobTemplateHopDestination' for a more convenient --- constructor. -data MediaConvertJobTemplateHopDestination = - MediaConvertJobTemplateHopDestination - { _mediaConvertJobTemplateHopDestinationPriority :: Maybe (Val Integer) - , _mediaConvertJobTemplateHopDestinationQueue :: Maybe (Val Text) - , _mediaConvertJobTemplateHopDestinationWaitMinutes :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON MediaConvertJobTemplateHopDestination where - toJSON MediaConvertJobTemplateHopDestination{..} = - object $ - catMaybes - [ fmap (("Priority",) . toJSON) _mediaConvertJobTemplateHopDestinationPriority - , fmap (("Queue",) . toJSON) _mediaConvertJobTemplateHopDestinationQueue - , fmap (("WaitMinutes",) . toJSON) _mediaConvertJobTemplateHopDestinationWaitMinutes - ] - --- | Constructor for 'MediaConvertJobTemplateHopDestination' containing --- required fields as arguments. -mediaConvertJobTemplateHopDestination - :: MediaConvertJobTemplateHopDestination -mediaConvertJobTemplateHopDestination = - MediaConvertJobTemplateHopDestination - { _mediaConvertJobTemplateHopDestinationPriority = Nothing - , _mediaConvertJobTemplateHopDestinationQueue = Nothing - , _mediaConvertJobTemplateHopDestinationWaitMinutes = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediaconvert-jobtemplate-hopdestination.html#cfn-mediaconvert-jobtemplate-hopdestination-priority -mcjthdPriority :: Lens' MediaConvertJobTemplateHopDestination (Maybe (Val Integer)) -mcjthdPriority = lens _mediaConvertJobTemplateHopDestinationPriority (\s a -> s { _mediaConvertJobTemplateHopDestinationPriority = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediaconvert-jobtemplate-hopdestination.html#cfn-mediaconvert-jobtemplate-hopdestination-queue -mcjthdQueue :: Lens' MediaConvertJobTemplateHopDestination (Maybe (Val Text)) -mcjthdQueue = lens _mediaConvertJobTemplateHopDestinationQueue (\s a -> s { _mediaConvertJobTemplateHopDestinationQueue = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediaconvert-jobtemplate-hopdestination.html#cfn-mediaconvert-jobtemplate-hopdestination-waitminutes -mcjthdWaitMinutes :: Lens' MediaConvertJobTemplateHopDestination (Maybe (Val Integer)) -mcjthdWaitMinutes = lens _mediaConvertJobTemplateHopDestinationWaitMinutes (\s a -> s { _mediaConvertJobTemplateHopDestinationWaitMinutes = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelAribSourceSettings.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelAribSourceSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelAribSourceSettings.hs +++ /dev/null @@ -1,32 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-aribsourcesettings.html - -module Stratosphere.ResourceProperties.MediaLiveChannelAribSourceSettings where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MediaLiveChannelAribSourceSettings. See --- 'mediaLiveChannelAribSourceSettings' for a more convenient constructor. -data MediaLiveChannelAribSourceSettings = - MediaLiveChannelAribSourceSettings - { - } deriving (Show, Eq) - -instance ToJSON MediaLiveChannelAribSourceSettings where - toJSON _ = toJSON ([] :: [String]) - --- | Constructor for 'MediaLiveChannelAribSourceSettings' containing required --- fields as arguments. -mediaLiveChannelAribSourceSettings - :: MediaLiveChannelAribSourceSettings -mediaLiveChannelAribSourceSettings = - MediaLiveChannelAribSourceSettings - { - } - - diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelAudioLanguageSelection.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelAudioLanguageSelection.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelAudioLanguageSelection.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-audiolanguageselection.html - -module Stratosphere.ResourceProperties.MediaLiveChannelAudioLanguageSelection where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MediaLiveChannelAudioLanguageSelection. See --- 'mediaLiveChannelAudioLanguageSelection' for a more convenient --- constructor. -data MediaLiveChannelAudioLanguageSelection = - MediaLiveChannelAudioLanguageSelection - { _mediaLiveChannelAudioLanguageSelectionLanguageCode :: Maybe (Val Text) - , _mediaLiveChannelAudioLanguageSelectionLanguageSelectionPolicy :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON MediaLiveChannelAudioLanguageSelection where - toJSON MediaLiveChannelAudioLanguageSelection{..} = - object $ - catMaybes - [ fmap (("LanguageCode",) . toJSON) _mediaLiveChannelAudioLanguageSelectionLanguageCode - , fmap (("LanguageSelectionPolicy",) . toJSON) _mediaLiveChannelAudioLanguageSelectionLanguageSelectionPolicy - ] - --- | Constructor for 'MediaLiveChannelAudioLanguageSelection' containing --- required fields as arguments. -mediaLiveChannelAudioLanguageSelection - :: MediaLiveChannelAudioLanguageSelection -mediaLiveChannelAudioLanguageSelection = - MediaLiveChannelAudioLanguageSelection - { _mediaLiveChannelAudioLanguageSelectionLanguageCode = Nothing - , _mediaLiveChannelAudioLanguageSelectionLanguageSelectionPolicy = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-audiolanguageselection.html#cfn-medialive-channel-audiolanguageselection-languagecode -mlcalsLanguageCode :: Lens' MediaLiveChannelAudioLanguageSelection (Maybe (Val Text)) -mlcalsLanguageCode = lens _mediaLiveChannelAudioLanguageSelectionLanguageCode (\s a -> s { _mediaLiveChannelAudioLanguageSelectionLanguageCode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-audiolanguageselection.html#cfn-medialive-channel-audiolanguageselection-languageselectionpolicy -mlcalsLanguageSelectionPolicy :: Lens' MediaLiveChannelAudioLanguageSelection (Maybe (Val Text)) -mlcalsLanguageSelectionPolicy = lens _mediaLiveChannelAudioLanguageSelectionLanguageSelectionPolicy (\s a -> s { _mediaLiveChannelAudioLanguageSelectionLanguageSelectionPolicy = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelAudioPidSelection.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelAudioPidSelection.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelAudioPidSelection.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-audiopidselection.html - -module Stratosphere.ResourceProperties.MediaLiveChannelAudioPidSelection where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MediaLiveChannelAudioPidSelection. See --- 'mediaLiveChannelAudioPidSelection' for a more convenient constructor. -data MediaLiveChannelAudioPidSelection = - MediaLiveChannelAudioPidSelection - { _mediaLiveChannelAudioPidSelectionPid :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON MediaLiveChannelAudioPidSelection where - toJSON MediaLiveChannelAudioPidSelection{..} = - object $ - catMaybes - [ fmap (("Pid",) . toJSON) _mediaLiveChannelAudioPidSelectionPid - ] - --- | Constructor for 'MediaLiveChannelAudioPidSelection' containing required --- fields as arguments. -mediaLiveChannelAudioPidSelection - :: MediaLiveChannelAudioPidSelection -mediaLiveChannelAudioPidSelection = - MediaLiveChannelAudioPidSelection - { _mediaLiveChannelAudioPidSelectionPid = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-audiopidselection.html#cfn-medialive-channel-audiopidselection-pid -mlcapsPid :: Lens' MediaLiveChannelAudioPidSelection (Maybe (Val Integer)) -mlcapsPid = lens _mediaLiveChannelAudioPidSelectionPid (\s a -> s { _mediaLiveChannelAudioPidSelectionPid = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelAudioSelector.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelAudioSelector.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelAudioSelector.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-audioselector.html - -module Stratosphere.ResourceProperties.MediaLiveChannelAudioSelector where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.MediaLiveChannelAudioSelectorSettings - --- | Full data type definition for MediaLiveChannelAudioSelector. See --- 'mediaLiveChannelAudioSelector' for a more convenient constructor. -data MediaLiveChannelAudioSelector = - MediaLiveChannelAudioSelector - { _mediaLiveChannelAudioSelectorName :: Maybe (Val Text) - , _mediaLiveChannelAudioSelectorSelectorSettings :: Maybe MediaLiveChannelAudioSelectorSettings - } deriving (Show, Eq) - -instance ToJSON MediaLiveChannelAudioSelector where - toJSON MediaLiveChannelAudioSelector{..} = - object $ - catMaybes - [ fmap (("Name",) . toJSON) _mediaLiveChannelAudioSelectorName - , fmap (("SelectorSettings",) . toJSON) _mediaLiveChannelAudioSelectorSelectorSettings - ] - --- | Constructor for 'MediaLiveChannelAudioSelector' containing required --- fields as arguments. -mediaLiveChannelAudioSelector - :: MediaLiveChannelAudioSelector -mediaLiveChannelAudioSelector = - MediaLiveChannelAudioSelector - { _mediaLiveChannelAudioSelectorName = Nothing - , _mediaLiveChannelAudioSelectorSelectorSettings = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-audioselector.html#cfn-medialive-channel-audioselector-name -mlcasName :: Lens' MediaLiveChannelAudioSelector (Maybe (Val Text)) -mlcasName = lens _mediaLiveChannelAudioSelectorName (\s a -> s { _mediaLiveChannelAudioSelectorName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-audioselector.html#cfn-medialive-channel-audioselector-selectorsettings -mlcasSelectorSettings :: Lens' MediaLiveChannelAudioSelector (Maybe MediaLiveChannelAudioSelectorSettings) -mlcasSelectorSettings = lens _mediaLiveChannelAudioSelectorSelectorSettings (\s a -> s { _mediaLiveChannelAudioSelectorSelectorSettings = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelAudioSelectorSettings.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelAudioSelectorSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelAudioSelectorSettings.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-audioselectorsettings.html - -module Stratosphere.ResourceProperties.MediaLiveChannelAudioSelectorSettings where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.MediaLiveChannelAudioLanguageSelection -import Stratosphere.ResourceProperties.MediaLiveChannelAudioPidSelection - --- | Full data type definition for MediaLiveChannelAudioSelectorSettings. See --- 'mediaLiveChannelAudioSelectorSettings' for a more convenient --- constructor. -data MediaLiveChannelAudioSelectorSettings = - MediaLiveChannelAudioSelectorSettings - { _mediaLiveChannelAudioSelectorSettingsAudioLanguageSelection :: Maybe MediaLiveChannelAudioLanguageSelection - , _mediaLiveChannelAudioSelectorSettingsAudioPidSelection :: Maybe MediaLiveChannelAudioPidSelection - } deriving (Show, Eq) - -instance ToJSON MediaLiveChannelAudioSelectorSettings where - toJSON MediaLiveChannelAudioSelectorSettings{..} = - object $ - catMaybes - [ fmap (("AudioLanguageSelection",) . toJSON) _mediaLiveChannelAudioSelectorSettingsAudioLanguageSelection - , fmap (("AudioPidSelection",) . toJSON) _mediaLiveChannelAudioSelectorSettingsAudioPidSelection - ] - --- | Constructor for 'MediaLiveChannelAudioSelectorSettings' containing --- required fields as arguments. -mediaLiveChannelAudioSelectorSettings - :: MediaLiveChannelAudioSelectorSettings -mediaLiveChannelAudioSelectorSettings = - MediaLiveChannelAudioSelectorSettings - { _mediaLiveChannelAudioSelectorSettingsAudioLanguageSelection = Nothing - , _mediaLiveChannelAudioSelectorSettingsAudioPidSelection = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-audioselectorsettings.html#cfn-medialive-channel-audioselectorsettings-audiolanguageselection -mlcassAudioLanguageSelection :: Lens' MediaLiveChannelAudioSelectorSettings (Maybe MediaLiveChannelAudioLanguageSelection) -mlcassAudioLanguageSelection = lens _mediaLiveChannelAudioSelectorSettingsAudioLanguageSelection (\s a -> s { _mediaLiveChannelAudioSelectorSettingsAudioLanguageSelection = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-audioselectorsettings.html#cfn-medialive-channel-audioselectorsettings-audiopidselection -mlcassAudioPidSelection :: Lens' MediaLiveChannelAudioSelectorSettings (Maybe MediaLiveChannelAudioPidSelection) -mlcassAudioPidSelection = lens _mediaLiveChannelAudioSelectorSettingsAudioPidSelection (\s a -> s { _mediaLiveChannelAudioSelectorSettingsAudioPidSelection = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelCaptionSelector.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelCaptionSelector.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelCaptionSelector.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-captionselector.html - -module Stratosphere.ResourceProperties.MediaLiveChannelCaptionSelector where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.MediaLiveChannelCaptionSelectorSettings - --- | Full data type definition for MediaLiveChannelCaptionSelector. See --- 'mediaLiveChannelCaptionSelector' for a more convenient constructor. -data MediaLiveChannelCaptionSelector = - MediaLiveChannelCaptionSelector - { _mediaLiveChannelCaptionSelectorLanguageCode :: Maybe (Val Text) - , _mediaLiveChannelCaptionSelectorName :: Maybe (Val Text) - , _mediaLiveChannelCaptionSelectorSelectorSettings :: Maybe MediaLiveChannelCaptionSelectorSettings - } deriving (Show, Eq) - -instance ToJSON MediaLiveChannelCaptionSelector where - toJSON MediaLiveChannelCaptionSelector{..} = - object $ - catMaybes - [ fmap (("LanguageCode",) . toJSON) _mediaLiveChannelCaptionSelectorLanguageCode - , fmap (("Name",) . toJSON) _mediaLiveChannelCaptionSelectorName - , fmap (("SelectorSettings",) . toJSON) _mediaLiveChannelCaptionSelectorSelectorSettings - ] - --- | Constructor for 'MediaLiveChannelCaptionSelector' containing required --- fields as arguments. -mediaLiveChannelCaptionSelector - :: MediaLiveChannelCaptionSelector -mediaLiveChannelCaptionSelector = - MediaLiveChannelCaptionSelector - { _mediaLiveChannelCaptionSelectorLanguageCode = Nothing - , _mediaLiveChannelCaptionSelectorName = Nothing - , _mediaLiveChannelCaptionSelectorSelectorSettings = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-captionselector.html#cfn-medialive-channel-captionselector-languagecode -mlccsLanguageCode :: Lens' MediaLiveChannelCaptionSelector (Maybe (Val Text)) -mlccsLanguageCode = lens _mediaLiveChannelCaptionSelectorLanguageCode (\s a -> s { _mediaLiveChannelCaptionSelectorLanguageCode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-captionselector.html#cfn-medialive-channel-captionselector-name -mlccsName :: Lens' MediaLiveChannelCaptionSelector (Maybe (Val Text)) -mlccsName = lens _mediaLiveChannelCaptionSelectorName (\s a -> s { _mediaLiveChannelCaptionSelectorName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-captionselector.html#cfn-medialive-channel-captionselector-selectorsettings -mlccsSelectorSettings :: Lens' MediaLiveChannelCaptionSelector (Maybe MediaLiveChannelCaptionSelectorSettings) -mlccsSelectorSettings = lens _mediaLiveChannelCaptionSelectorSelectorSettings (\s a -> s { _mediaLiveChannelCaptionSelectorSelectorSettings = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelCaptionSelectorSettings.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelCaptionSelectorSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelCaptionSelectorSettings.hs +++ /dev/null @@ -1,79 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-captionselectorsettings.html - -module Stratosphere.ResourceProperties.MediaLiveChannelCaptionSelectorSettings where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.MediaLiveChannelAribSourceSettings -import Stratosphere.ResourceProperties.MediaLiveChannelDvbSubSourceSettings -import Stratosphere.ResourceProperties.MediaLiveChannelEmbeddedSourceSettings -import Stratosphere.ResourceProperties.MediaLiveChannelScte20SourceSettings -import Stratosphere.ResourceProperties.MediaLiveChannelScte27SourceSettings -import Stratosphere.ResourceProperties.MediaLiveChannelTeletextSourceSettings - --- | Full data type definition for MediaLiveChannelCaptionSelectorSettings. --- See 'mediaLiveChannelCaptionSelectorSettings' for a more convenient --- constructor. -data MediaLiveChannelCaptionSelectorSettings = - MediaLiveChannelCaptionSelectorSettings - { _mediaLiveChannelCaptionSelectorSettingsAribSourceSettings :: Maybe MediaLiveChannelAribSourceSettings - , _mediaLiveChannelCaptionSelectorSettingsDvbSubSourceSettings :: Maybe MediaLiveChannelDvbSubSourceSettings - , _mediaLiveChannelCaptionSelectorSettingsEmbeddedSourceSettings :: Maybe MediaLiveChannelEmbeddedSourceSettings - , _mediaLiveChannelCaptionSelectorSettingsScte20SourceSettings :: Maybe MediaLiveChannelScte20SourceSettings - , _mediaLiveChannelCaptionSelectorSettingsScte27SourceSettings :: Maybe MediaLiveChannelScte27SourceSettings - , _mediaLiveChannelCaptionSelectorSettingsTeletextSourceSettings :: Maybe MediaLiveChannelTeletextSourceSettings - } deriving (Show, Eq) - -instance ToJSON MediaLiveChannelCaptionSelectorSettings where - toJSON MediaLiveChannelCaptionSelectorSettings{..} = - object $ - catMaybes - [ fmap (("AribSourceSettings",) . toJSON) _mediaLiveChannelCaptionSelectorSettingsAribSourceSettings - , fmap (("DvbSubSourceSettings",) . toJSON) _mediaLiveChannelCaptionSelectorSettingsDvbSubSourceSettings - , fmap (("EmbeddedSourceSettings",) . toJSON) _mediaLiveChannelCaptionSelectorSettingsEmbeddedSourceSettings - , fmap (("Scte20SourceSettings",) . toJSON) _mediaLiveChannelCaptionSelectorSettingsScte20SourceSettings - , fmap (("Scte27SourceSettings",) . toJSON) _mediaLiveChannelCaptionSelectorSettingsScte27SourceSettings - , fmap (("TeletextSourceSettings",) . toJSON) _mediaLiveChannelCaptionSelectorSettingsTeletextSourceSettings - ] - --- | Constructor for 'MediaLiveChannelCaptionSelectorSettings' containing --- required fields as arguments. -mediaLiveChannelCaptionSelectorSettings - :: MediaLiveChannelCaptionSelectorSettings -mediaLiveChannelCaptionSelectorSettings = - MediaLiveChannelCaptionSelectorSettings - { _mediaLiveChannelCaptionSelectorSettingsAribSourceSettings = Nothing - , _mediaLiveChannelCaptionSelectorSettingsDvbSubSourceSettings = Nothing - , _mediaLiveChannelCaptionSelectorSettingsEmbeddedSourceSettings = Nothing - , _mediaLiveChannelCaptionSelectorSettingsScte20SourceSettings = Nothing - , _mediaLiveChannelCaptionSelectorSettingsScte27SourceSettings = Nothing - , _mediaLiveChannelCaptionSelectorSettingsTeletextSourceSettings = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-captionselectorsettings.html#cfn-medialive-channel-captionselectorsettings-aribsourcesettings -mlccssAribSourceSettings :: Lens' MediaLiveChannelCaptionSelectorSettings (Maybe MediaLiveChannelAribSourceSettings) -mlccssAribSourceSettings = lens _mediaLiveChannelCaptionSelectorSettingsAribSourceSettings (\s a -> s { _mediaLiveChannelCaptionSelectorSettingsAribSourceSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-captionselectorsettings.html#cfn-medialive-channel-captionselectorsettings-dvbsubsourcesettings -mlccssDvbSubSourceSettings :: Lens' MediaLiveChannelCaptionSelectorSettings (Maybe MediaLiveChannelDvbSubSourceSettings) -mlccssDvbSubSourceSettings = lens _mediaLiveChannelCaptionSelectorSettingsDvbSubSourceSettings (\s a -> s { _mediaLiveChannelCaptionSelectorSettingsDvbSubSourceSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-captionselectorsettings.html#cfn-medialive-channel-captionselectorsettings-embeddedsourcesettings -mlccssEmbeddedSourceSettings :: Lens' MediaLiveChannelCaptionSelectorSettings (Maybe MediaLiveChannelEmbeddedSourceSettings) -mlccssEmbeddedSourceSettings = lens _mediaLiveChannelCaptionSelectorSettingsEmbeddedSourceSettings (\s a -> s { _mediaLiveChannelCaptionSelectorSettingsEmbeddedSourceSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-captionselectorsettings.html#cfn-medialive-channel-captionselectorsettings-scte20sourcesettings -mlccssScte20SourceSettings :: Lens' MediaLiveChannelCaptionSelectorSettings (Maybe MediaLiveChannelScte20SourceSettings) -mlccssScte20SourceSettings = lens _mediaLiveChannelCaptionSelectorSettingsScte20SourceSettings (\s a -> s { _mediaLiveChannelCaptionSelectorSettingsScte20SourceSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-captionselectorsettings.html#cfn-medialive-channel-captionselectorsettings-scte27sourcesettings -mlccssScte27SourceSettings :: Lens' MediaLiveChannelCaptionSelectorSettings (Maybe MediaLiveChannelScte27SourceSettings) -mlccssScte27SourceSettings = lens _mediaLiveChannelCaptionSelectorSettingsScte27SourceSettings (\s a -> s { _mediaLiveChannelCaptionSelectorSettingsScte27SourceSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-captionselectorsettings.html#cfn-medialive-channel-captionselectorsettings-teletextsourcesettings -mlccssTeletextSourceSettings :: Lens' MediaLiveChannelCaptionSelectorSettings (Maybe MediaLiveChannelTeletextSourceSettings) -mlccssTeletextSourceSettings = lens _mediaLiveChannelCaptionSelectorSettingsTeletextSourceSettings (\s a -> s { _mediaLiveChannelCaptionSelectorSettingsTeletextSourceSettings = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelDvbSubSourceSettings.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelDvbSubSourceSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelDvbSubSourceSettings.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-dvbsubsourcesettings.html - -module Stratosphere.ResourceProperties.MediaLiveChannelDvbSubSourceSettings where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MediaLiveChannelDvbSubSourceSettings. See --- 'mediaLiveChannelDvbSubSourceSettings' for a more convenient constructor. -data MediaLiveChannelDvbSubSourceSettings = - MediaLiveChannelDvbSubSourceSettings - { _mediaLiveChannelDvbSubSourceSettingsPid :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON MediaLiveChannelDvbSubSourceSettings where - toJSON MediaLiveChannelDvbSubSourceSettings{..} = - object $ - catMaybes - [ fmap (("Pid",) . toJSON) _mediaLiveChannelDvbSubSourceSettingsPid - ] - --- | Constructor for 'MediaLiveChannelDvbSubSourceSettings' containing --- required fields as arguments. -mediaLiveChannelDvbSubSourceSettings - :: MediaLiveChannelDvbSubSourceSettings -mediaLiveChannelDvbSubSourceSettings = - MediaLiveChannelDvbSubSourceSettings - { _mediaLiveChannelDvbSubSourceSettingsPid = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-dvbsubsourcesettings.html#cfn-medialive-channel-dvbsubsourcesettings-pid -mlcdsssPid :: Lens' MediaLiveChannelDvbSubSourceSettings (Maybe (Val Integer)) -mlcdsssPid = lens _mediaLiveChannelDvbSubSourceSettingsPid (\s a -> s { _mediaLiveChannelDvbSubSourceSettingsPid = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelEmbeddedSourceSettings.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelEmbeddedSourceSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelEmbeddedSourceSettings.hs +++ /dev/null @@ -1,60 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-embeddedsourcesettings.html - -module Stratosphere.ResourceProperties.MediaLiveChannelEmbeddedSourceSettings where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MediaLiveChannelEmbeddedSourceSettings. See --- 'mediaLiveChannelEmbeddedSourceSettings' for a more convenient --- constructor. -data MediaLiveChannelEmbeddedSourceSettings = - MediaLiveChannelEmbeddedSourceSettings - { _mediaLiveChannelEmbeddedSourceSettingsConvert608To708 :: Maybe (Val Text) - , _mediaLiveChannelEmbeddedSourceSettingsScte20Detection :: Maybe (Val Text) - , _mediaLiveChannelEmbeddedSourceSettingsSource608ChannelNumber :: Maybe (Val Integer) - , _mediaLiveChannelEmbeddedSourceSettingsSource608TrackNumber :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON MediaLiveChannelEmbeddedSourceSettings where - toJSON MediaLiveChannelEmbeddedSourceSettings{..} = - object $ - catMaybes - [ fmap (("Convert608To708",) . toJSON) _mediaLiveChannelEmbeddedSourceSettingsConvert608To708 - , fmap (("Scte20Detection",) . toJSON) _mediaLiveChannelEmbeddedSourceSettingsScte20Detection - , fmap (("Source608ChannelNumber",) . toJSON) _mediaLiveChannelEmbeddedSourceSettingsSource608ChannelNumber - , fmap (("Source608TrackNumber",) . toJSON) _mediaLiveChannelEmbeddedSourceSettingsSource608TrackNumber - ] - --- | Constructor for 'MediaLiveChannelEmbeddedSourceSettings' containing --- required fields as arguments. -mediaLiveChannelEmbeddedSourceSettings - :: MediaLiveChannelEmbeddedSourceSettings -mediaLiveChannelEmbeddedSourceSettings = - MediaLiveChannelEmbeddedSourceSettings - { _mediaLiveChannelEmbeddedSourceSettingsConvert608To708 = Nothing - , _mediaLiveChannelEmbeddedSourceSettingsScte20Detection = Nothing - , _mediaLiveChannelEmbeddedSourceSettingsSource608ChannelNumber = Nothing - , _mediaLiveChannelEmbeddedSourceSettingsSource608TrackNumber = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-embeddedsourcesettings.html#cfn-medialive-channel-embeddedsourcesettings-convert608to708 -mlcessConvert608To708 :: Lens' MediaLiveChannelEmbeddedSourceSettings (Maybe (Val Text)) -mlcessConvert608To708 = lens _mediaLiveChannelEmbeddedSourceSettingsConvert608To708 (\s a -> s { _mediaLiveChannelEmbeddedSourceSettingsConvert608To708 = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-embeddedsourcesettings.html#cfn-medialive-channel-embeddedsourcesettings-scte20detection -mlcessScte20Detection :: Lens' MediaLiveChannelEmbeddedSourceSettings (Maybe (Val Text)) -mlcessScte20Detection = lens _mediaLiveChannelEmbeddedSourceSettingsScte20Detection (\s a -> s { _mediaLiveChannelEmbeddedSourceSettingsScte20Detection = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-embeddedsourcesettings.html#cfn-medialive-channel-embeddedsourcesettings-source608channelnumber -mlcessSource608ChannelNumber :: Lens' MediaLiveChannelEmbeddedSourceSettings (Maybe (Val Integer)) -mlcessSource608ChannelNumber = lens _mediaLiveChannelEmbeddedSourceSettingsSource608ChannelNumber (\s a -> s { _mediaLiveChannelEmbeddedSourceSettingsSource608ChannelNumber = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-embeddedsourcesettings.html#cfn-medialive-channel-embeddedsourcesettings-source608tracknumber -mlcessSource608TrackNumber :: Lens' MediaLiveChannelEmbeddedSourceSettings (Maybe (Val Integer)) -mlcessSource608TrackNumber = lens _mediaLiveChannelEmbeddedSourceSettingsSource608TrackNumber (\s a -> s { _mediaLiveChannelEmbeddedSourceSettingsSource608TrackNumber = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelHlsInputSettings.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelHlsInputSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelHlsInputSettings.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-hlsinputsettings.html - -module Stratosphere.ResourceProperties.MediaLiveChannelHlsInputSettings where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MediaLiveChannelHlsInputSettings. See --- 'mediaLiveChannelHlsInputSettings' for a more convenient constructor. -data MediaLiveChannelHlsInputSettings = - MediaLiveChannelHlsInputSettings - { _mediaLiveChannelHlsInputSettingsBandwidth :: Maybe (Val Integer) - , _mediaLiveChannelHlsInputSettingsBufferSegments :: Maybe (Val Integer) - , _mediaLiveChannelHlsInputSettingsRetries :: Maybe (Val Integer) - , _mediaLiveChannelHlsInputSettingsRetryInterval :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON MediaLiveChannelHlsInputSettings where - toJSON MediaLiveChannelHlsInputSettings{..} = - object $ - catMaybes - [ fmap (("Bandwidth",) . toJSON) _mediaLiveChannelHlsInputSettingsBandwidth - , fmap (("BufferSegments",) . toJSON) _mediaLiveChannelHlsInputSettingsBufferSegments - , fmap (("Retries",) . toJSON) _mediaLiveChannelHlsInputSettingsRetries - , fmap (("RetryInterval",) . toJSON) _mediaLiveChannelHlsInputSettingsRetryInterval - ] - --- | Constructor for 'MediaLiveChannelHlsInputSettings' containing required --- fields as arguments. -mediaLiveChannelHlsInputSettings - :: MediaLiveChannelHlsInputSettings -mediaLiveChannelHlsInputSettings = - MediaLiveChannelHlsInputSettings - { _mediaLiveChannelHlsInputSettingsBandwidth = Nothing - , _mediaLiveChannelHlsInputSettingsBufferSegments = Nothing - , _mediaLiveChannelHlsInputSettingsRetries = Nothing - , _mediaLiveChannelHlsInputSettingsRetryInterval = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-hlsinputsettings.html#cfn-medialive-channel-hlsinputsettings-bandwidth -mlchisBandwidth :: Lens' MediaLiveChannelHlsInputSettings (Maybe (Val Integer)) -mlchisBandwidth = lens _mediaLiveChannelHlsInputSettingsBandwidth (\s a -> s { _mediaLiveChannelHlsInputSettingsBandwidth = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-hlsinputsettings.html#cfn-medialive-channel-hlsinputsettings-buffersegments -mlchisBufferSegments :: Lens' MediaLiveChannelHlsInputSettings (Maybe (Val Integer)) -mlchisBufferSegments = lens _mediaLiveChannelHlsInputSettingsBufferSegments (\s a -> s { _mediaLiveChannelHlsInputSettingsBufferSegments = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-hlsinputsettings.html#cfn-medialive-channel-hlsinputsettings-retries -mlchisRetries :: Lens' MediaLiveChannelHlsInputSettings (Maybe (Val Integer)) -mlchisRetries = lens _mediaLiveChannelHlsInputSettingsRetries (\s a -> s { _mediaLiveChannelHlsInputSettingsRetries = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-hlsinputsettings.html#cfn-medialive-channel-hlsinputsettings-retryinterval -mlchisRetryInterval :: Lens' MediaLiveChannelHlsInputSettings (Maybe (Val Integer)) -mlchisRetryInterval = lens _mediaLiveChannelHlsInputSettingsRetryInterval (\s a -> s { _mediaLiveChannelHlsInputSettingsRetryInterval = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelInputAttachment.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelInputAttachment.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelInputAttachment.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-inputattachment.html - -module Stratosphere.ResourceProperties.MediaLiveChannelInputAttachment where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.MediaLiveChannelInputSettings - --- | Full data type definition for MediaLiveChannelInputAttachment. See --- 'mediaLiveChannelInputAttachment' for a more convenient constructor. -data MediaLiveChannelInputAttachment = - MediaLiveChannelInputAttachment - { _mediaLiveChannelInputAttachmentInputAttachmentName :: Maybe (Val Text) - , _mediaLiveChannelInputAttachmentInputId :: Maybe (Val Text) - , _mediaLiveChannelInputAttachmentInputSettings :: Maybe MediaLiveChannelInputSettings - } deriving (Show, Eq) - -instance ToJSON MediaLiveChannelInputAttachment where - toJSON MediaLiveChannelInputAttachment{..} = - object $ - catMaybes - [ fmap (("InputAttachmentName",) . toJSON) _mediaLiveChannelInputAttachmentInputAttachmentName - , fmap (("InputId",) . toJSON) _mediaLiveChannelInputAttachmentInputId - , fmap (("InputSettings",) . toJSON) _mediaLiveChannelInputAttachmentInputSettings - ] - --- | Constructor for 'MediaLiveChannelInputAttachment' containing required --- fields as arguments. -mediaLiveChannelInputAttachment - :: MediaLiveChannelInputAttachment -mediaLiveChannelInputAttachment = - MediaLiveChannelInputAttachment - { _mediaLiveChannelInputAttachmentInputAttachmentName = Nothing - , _mediaLiveChannelInputAttachmentInputId = Nothing - , _mediaLiveChannelInputAttachmentInputSettings = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-inputattachment.html#cfn-medialive-channel-inputattachment-inputattachmentname -mlciaInputAttachmentName :: Lens' MediaLiveChannelInputAttachment (Maybe (Val Text)) -mlciaInputAttachmentName = lens _mediaLiveChannelInputAttachmentInputAttachmentName (\s a -> s { _mediaLiveChannelInputAttachmentInputAttachmentName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-inputattachment.html#cfn-medialive-channel-inputattachment-inputid -mlciaInputId :: Lens' MediaLiveChannelInputAttachment (Maybe (Val Text)) -mlciaInputId = lens _mediaLiveChannelInputAttachmentInputId (\s a -> s { _mediaLiveChannelInputAttachmentInputId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-inputattachment.html#cfn-medialive-channel-inputattachment-inputsettings -mlciaInputSettings :: Lens' MediaLiveChannelInputAttachment (Maybe MediaLiveChannelInputSettings) -mlciaInputSettings = lens _mediaLiveChannelInputAttachmentInputSettings (\s a -> s { _mediaLiveChannelInputAttachmentInputSettings = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelInputSettings.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelInputSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelInputSettings.hs +++ /dev/null @@ -1,97 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-inputsettings.html - -module Stratosphere.ResourceProperties.MediaLiveChannelInputSettings where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.MediaLiveChannelAudioSelector -import Stratosphere.ResourceProperties.MediaLiveChannelCaptionSelector -import Stratosphere.ResourceProperties.MediaLiveChannelNetworkInputSettings -import Stratosphere.ResourceProperties.MediaLiveChannelVideoSelector - --- | Full data type definition for MediaLiveChannelInputSettings. See --- 'mediaLiveChannelInputSettings' for a more convenient constructor. -data MediaLiveChannelInputSettings = - MediaLiveChannelInputSettings - { _mediaLiveChannelInputSettingsAudioSelectors :: Maybe [MediaLiveChannelAudioSelector] - , _mediaLiveChannelInputSettingsCaptionSelectors :: Maybe [MediaLiveChannelCaptionSelector] - , _mediaLiveChannelInputSettingsDeblockFilter :: Maybe (Val Text) - , _mediaLiveChannelInputSettingsDenoiseFilter :: Maybe (Val Text) - , _mediaLiveChannelInputSettingsFilterStrength :: Maybe (Val Integer) - , _mediaLiveChannelInputSettingsInputFilter :: Maybe (Val Text) - , _mediaLiveChannelInputSettingsNetworkInputSettings :: Maybe MediaLiveChannelNetworkInputSettings - , _mediaLiveChannelInputSettingsSourceEndBehavior :: Maybe (Val Text) - , _mediaLiveChannelInputSettingsVideoSelector :: Maybe MediaLiveChannelVideoSelector - } deriving (Show, Eq) - -instance ToJSON MediaLiveChannelInputSettings where - toJSON MediaLiveChannelInputSettings{..} = - object $ - catMaybes - [ fmap (("AudioSelectors",) . toJSON) _mediaLiveChannelInputSettingsAudioSelectors - , fmap (("CaptionSelectors",) . toJSON) _mediaLiveChannelInputSettingsCaptionSelectors - , fmap (("DeblockFilter",) . toJSON) _mediaLiveChannelInputSettingsDeblockFilter - , fmap (("DenoiseFilter",) . toJSON) _mediaLiveChannelInputSettingsDenoiseFilter - , fmap (("FilterStrength",) . toJSON) _mediaLiveChannelInputSettingsFilterStrength - , fmap (("InputFilter",) . toJSON) _mediaLiveChannelInputSettingsInputFilter - , fmap (("NetworkInputSettings",) . toJSON) _mediaLiveChannelInputSettingsNetworkInputSettings - , fmap (("SourceEndBehavior",) . toJSON) _mediaLiveChannelInputSettingsSourceEndBehavior - , fmap (("VideoSelector",) . toJSON) _mediaLiveChannelInputSettingsVideoSelector - ] - --- | Constructor for 'MediaLiveChannelInputSettings' containing required --- fields as arguments. -mediaLiveChannelInputSettings - :: MediaLiveChannelInputSettings -mediaLiveChannelInputSettings = - MediaLiveChannelInputSettings - { _mediaLiveChannelInputSettingsAudioSelectors = Nothing - , _mediaLiveChannelInputSettingsCaptionSelectors = Nothing - , _mediaLiveChannelInputSettingsDeblockFilter = Nothing - , _mediaLiveChannelInputSettingsDenoiseFilter = Nothing - , _mediaLiveChannelInputSettingsFilterStrength = Nothing - , _mediaLiveChannelInputSettingsInputFilter = Nothing - , _mediaLiveChannelInputSettingsNetworkInputSettings = Nothing - , _mediaLiveChannelInputSettingsSourceEndBehavior = Nothing - , _mediaLiveChannelInputSettingsVideoSelector = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-inputsettings.html#cfn-medialive-channel-inputsettings-audioselectors -mlcisAudioSelectors :: Lens' MediaLiveChannelInputSettings (Maybe [MediaLiveChannelAudioSelector]) -mlcisAudioSelectors = lens _mediaLiveChannelInputSettingsAudioSelectors (\s a -> s { _mediaLiveChannelInputSettingsAudioSelectors = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-inputsettings.html#cfn-medialive-channel-inputsettings-captionselectors -mlcisCaptionSelectors :: Lens' MediaLiveChannelInputSettings (Maybe [MediaLiveChannelCaptionSelector]) -mlcisCaptionSelectors = lens _mediaLiveChannelInputSettingsCaptionSelectors (\s a -> s { _mediaLiveChannelInputSettingsCaptionSelectors = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-inputsettings.html#cfn-medialive-channel-inputsettings-deblockfilter -mlcisDeblockFilter :: Lens' MediaLiveChannelInputSettings (Maybe (Val Text)) -mlcisDeblockFilter = lens _mediaLiveChannelInputSettingsDeblockFilter (\s a -> s { _mediaLiveChannelInputSettingsDeblockFilter = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-inputsettings.html#cfn-medialive-channel-inputsettings-denoisefilter -mlcisDenoiseFilter :: Lens' MediaLiveChannelInputSettings (Maybe (Val Text)) -mlcisDenoiseFilter = lens _mediaLiveChannelInputSettingsDenoiseFilter (\s a -> s { _mediaLiveChannelInputSettingsDenoiseFilter = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-inputsettings.html#cfn-medialive-channel-inputsettings-filterstrength -mlcisFilterStrength :: Lens' MediaLiveChannelInputSettings (Maybe (Val Integer)) -mlcisFilterStrength = lens _mediaLiveChannelInputSettingsFilterStrength (\s a -> s { _mediaLiveChannelInputSettingsFilterStrength = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-inputsettings.html#cfn-medialive-channel-inputsettings-inputfilter -mlcisInputFilter :: Lens' MediaLiveChannelInputSettings (Maybe (Val Text)) -mlcisInputFilter = lens _mediaLiveChannelInputSettingsInputFilter (\s a -> s { _mediaLiveChannelInputSettingsInputFilter = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-inputsettings.html#cfn-medialive-channel-inputsettings-networkinputsettings -mlcisNetworkInputSettings :: Lens' MediaLiveChannelInputSettings (Maybe MediaLiveChannelNetworkInputSettings) -mlcisNetworkInputSettings = lens _mediaLiveChannelInputSettingsNetworkInputSettings (\s a -> s { _mediaLiveChannelInputSettingsNetworkInputSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-inputsettings.html#cfn-medialive-channel-inputsettings-sourceendbehavior -mlcisSourceEndBehavior :: Lens' MediaLiveChannelInputSettings (Maybe (Val Text)) -mlcisSourceEndBehavior = lens _mediaLiveChannelInputSettingsSourceEndBehavior (\s a -> s { _mediaLiveChannelInputSettingsSourceEndBehavior = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-inputsettings.html#cfn-medialive-channel-inputsettings-videoselector -mlcisVideoSelector :: Lens' MediaLiveChannelInputSettings (Maybe MediaLiveChannelVideoSelector) -mlcisVideoSelector = lens _mediaLiveChannelInputSettingsVideoSelector (\s a -> s { _mediaLiveChannelInputSettingsVideoSelector = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelInputSpecification.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelInputSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelInputSpecification.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-inputspecification.html - -module Stratosphere.ResourceProperties.MediaLiveChannelInputSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MediaLiveChannelInputSpecification. See --- 'mediaLiveChannelInputSpecification' for a more convenient constructor. -data MediaLiveChannelInputSpecification = - MediaLiveChannelInputSpecification - { _mediaLiveChannelInputSpecificationCodec :: Maybe (Val Text) - , _mediaLiveChannelInputSpecificationMaximumBitrate :: Maybe (Val Text) - , _mediaLiveChannelInputSpecificationResolution :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON MediaLiveChannelInputSpecification where - toJSON MediaLiveChannelInputSpecification{..} = - object $ - catMaybes - [ fmap (("Codec",) . toJSON) _mediaLiveChannelInputSpecificationCodec - , fmap (("MaximumBitrate",) . toJSON) _mediaLiveChannelInputSpecificationMaximumBitrate - , fmap (("Resolution",) . toJSON) _mediaLiveChannelInputSpecificationResolution - ] - --- | Constructor for 'MediaLiveChannelInputSpecification' containing required --- fields as arguments. -mediaLiveChannelInputSpecification - :: MediaLiveChannelInputSpecification -mediaLiveChannelInputSpecification = - MediaLiveChannelInputSpecification - { _mediaLiveChannelInputSpecificationCodec = Nothing - , _mediaLiveChannelInputSpecificationMaximumBitrate = Nothing - , _mediaLiveChannelInputSpecificationResolution = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-inputspecification.html#cfn-medialive-channel-inputspecification-codec -mlcisCodec :: Lens' MediaLiveChannelInputSpecification (Maybe (Val Text)) -mlcisCodec = lens _mediaLiveChannelInputSpecificationCodec (\s a -> s { _mediaLiveChannelInputSpecificationCodec = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-inputspecification.html#cfn-medialive-channel-inputspecification-maximumbitrate -mlcisMaximumBitrate :: Lens' MediaLiveChannelInputSpecification (Maybe (Val Text)) -mlcisMaximumBitrate = lens _mediaLiveChannelInputSpecificationMaximumBitrate (\s a -> s { _mediaLiveChannelInputSpecificationMaximumBitrate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-inputspecification.html#cfn-medialive-channel-inputspecification-resolution -mlcisResolution :: Lens' MediaLiveChannelInputSpecification (Maybe (Val Text)) -mlcisResolution = lens _mediaLiveChannelInputSpecificationResolution (\s a -> s { _mediaLiveChannelInputSpecificationResolution = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelMediaPackageOutputDestinationSettings.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelMediaPackageOutputDestinationSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelMediaPackageOutputDestinationSettings.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-mediapackageoutputdestinationsettings.html - -module Stratosphere.ResourceProperties.MediaLiveChannelMediaPackageOutputDestinationSettings where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- MediaLiveChannelMediaPackageOutputDestinationSettings. See --- 'mediaLiveChannelMediaPackageOutputDestinationSettings' for a more --- convenient constructor. -data MediaLiveChannelMediaPackageOutputDestinationSettings = - MediaLiveChannelMediaPackageOutputDestinationSettings - { _mediaLiveChannelMediaPackageOutputDestinationSettingsChannelId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON MediaLiveChannelMediaPackageOutputDestinationSettings where - toJSON MediaLiveChannelMediaPackageOutputDestinationSettings{..} = - object $ - catMaybes - [ fmap (("ChannelId",) . toJSON) _mediaLiveChannelMediaPackageOutputDestinationSettingsChannelId - ] - --- | Constructor for 'MediaLiveChannelMediaPackageOutputDestinationSettings' --- containing required fields as arguments. -mediaLiveChannelMediaPackageOutputDestinationSettings - :: MediaLiveChannelMediaPackageOutputDestinationSettings -mediaLiveChannelMediaPackageOutputDestinationSettings = - MediaLiveChannelMediaPackageOutputDestinationSettings - { _mediaLiveChannelMediaPackageOutputDestinationSettingsChannelId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-mediapackageoutputdestinationsettings.html#cfn-medialive-channel-mediapackageoutputdestinationsettings-channelid -mlcmpodsChannelId :: Lens' MediaLiveChannelMediaPackageOutputDestinationSettings (Maybe (Val Text)) -mlcmpodsChannelId = lens _mediaLiveChannelMediaPackageOutputDestinationSettingsChannelId (\s a -> s { _mediaLiveChannelMediaPackageOutputDestinationSettingsChannelId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelMultiplexProgramChannelDestinationSettings.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelMultiplexProgramChannelDestinationSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelMultiplexProgramChannelDestinationSettings.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-multiplexprogramchanneldestinationsettings.html - -module Stratosphere.ResourceProperties.MediaLiveChannelMultiplexProgramChannelDestinationSettings where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- MediaLiveChannelMultiplexProgramChannelDestinationSettings. See --- 'mediaLiveChannelMultiplexProgramChannelDestinationSettings' for a more --- convenient constructor. -data MediaLiveChannelMultiplexProgramChannelDestinationSettings = - MediaLiveChannelMultiplexProgramChannelDestinationSettings - { _mediaLiveChannelMultiplexProgramChannelDestinationSettingsMultiplexId :: Maybe (Val Text) - , _mediaLiveChannelMultiplexProgramChannelDestinationSettingsProgramName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON MediaLiveChannelMultiplexProgramChannelDestinationSettings where - toJSON MediaLiveChannelMultiplexProgramChannelDestinationSettings{..} = - object $ - catMaybes - [ fmap (("MultiplexId",) . toJSON) _mediaLiveChannelMultiplexProgramChannelDestinationSettingsMultiplexId - , fmap (("ProgramName",) . toJSON) _mediaLiveChannelMultiplexProgramChannelDestinationSettingsProgramName - ] - --- | Constructor for --- 'MediaLiveChannelMultiplexProgramChannelDestinationSettings' containing --- required fields as arguments. -mediaLiveChannelMultiplexProgramChannelDestinationSettings - :: MediaLiveChannelMultiplexProgramChannelDestinationSettings -mediaLiveChannelMultiplexProgramChannelDestinationSettings = - MediaLiveChannelMultiplexProgramChannelDestinationSettings - { _mediaLiveChannelMultiplexProgramChannelDestinationSettingsMultiplexId = Nothing - , _mediaLiveChannelMultiplexProgramChannelDestinationSettingsProgramName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-multiplexprogramchanneldestinationsettings.html#cfn-medialive-channel-multiplexprogramchanneldestinationsettings-multiplexid -mlcmpcdsMultiplexId :: Lens' MediaLiveChannelMultiplexProgramChannelDestinationSettings (Maybe (Val Text)) -mlcmpcdsMultiplexId = lens _mediaLiveChannelMultiplexProgramChannelDestinationSettingsMultiplexId (\s a -> s { _mediaLiveChannelMultiplexProgramChannelDestinationSettingsMultiplexId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-multiplexprogramchanneldestinationsettings.html#cfn-medialive-channel-multiplexprogramchanneldestinationsettings-programname -mlcmpcdsProgramName :: Lens' MediaLiveChannelMultiplexProgramChannelDestinationSettings (Maybe (Val Text)) -mlcmpcdsProgramName = lens _mediaLiveChannelMultiplexProgramChannelDestinationSettingsProgramName (\s a -> s { _mediaLiveChannelMultiplexProgramChannelDestinationSettingsProgramName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelNetworkInputSettings.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelNetworkInputSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelNetworkInputSettings.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-networkinputsettings.html - -module Stratosphere.ResourceProperties.MediaLiveChannelNetworkInputSettings where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.MediaLiveChannelHlsInputSettings - --- | Full data type definition for MediaLiveChannelNetworkInputSettings. See --- 'mediaLiveChannelNetworkInputSettings' for a more convenient constructor. -data MediaLiveChannelNetworkInputSettings = - MediaLiveChannelNetworkInputSettings - { _mediaLiveChannelNetworkInputSettingsHlsInputSettings :: Maybe MediaLiveChannelHlsInputSettings - , _mediaLiveChannelNetworkInputSettingsServerValidation :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON MediaLiveChannelNetworkInputSettings where - toJSON MediaLiveChannelNetworkInputSettings{..} = - object $ - catMaybes - [ fmap (("HlsInputSettings",) . toJSON) _mediaLiveChannelNetworkInputSettingsHlsInputSettings - , fmap (("ServerValidation",) . toJSON) _mediaLiveChannelNetworkInputSettingsServerValidation - ] - --- | Constructor for 'MediaLiveChannelNetworkInputSettings' containing --- required fields as arguments. -mediaLiveChannelNetworkInputSettings - :: MediaLiveChannelNetworkInputSettings -mediaLiveChannelNetworkInputSettings = - MediaLiveChannelNetworkInputSettings - { _mediaLiveChannelNetworkInputSettingsHlsInputSettings = Nothing - , _mediaLiveChannelNetworkInputSettingsServerValidation = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-networkinputsettings.html#cfn-medialive-channel-networkinputsettings-hlsinputsettings -mlcnisHlsInputSettings :: Lens' MediaLiveChannelNetworkInputSettings (Maybe MediaLiveChannelHlsInputSettings) -mlcnisHlsInputSettings = lens _mediaLiveChannelNetworkInputSettingsHlsInputSettings (\s a -> s { _mediaLiveChannelNetworkInputSettingsHlsInputSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-networkinputsettings.html#cfn-medialive-channel-networkinputsettings-servervalidation -mlcnisServerValidation :: Lens' MediaLiveChannelNetworkInputSettings (Maybe (Val Text)) -mlcnisServerValidation = lens _mediaLiveChannelNetworkInputSettingsServerValidation (\s a -> s { _mediaLiveChannelNetworkInputSettingsServerValidation = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelOutputDestination.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelOutputDestination.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelOutputDestination.hs +++ /dev/null @@ -1,61 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-outputdestination.html - -module Stratosphere.ResourceProperties.MediaLiveChannelOutputDestination where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.MediaLiveChannelMediaPackageOutputDestinationSettings -import Stratosphere.ResourceProperties.MediaLiveChannelMultiplexProgramChannelDestinationSettings -import Stratosphere.ResourceProperties.MediaLiveChannelOutputDestinationSettings - --- | Full data type definition for MediaLiveChannelOutputDestination. See --- 'mediaLiveChannelOutputDestination' for a more convenient constructor. -data MediaLiveChannelOutputDestination = - MediaLiveChannelOutputDestination - { _mediaLiveChannelOutputDestinationId :: Maybe (Val Text) - , _mediaLiveChannelOutputDestinationMediaPackageSettings :: Maybe [MediaLiveChannelMediaPackageOutputDestinationSettings] - , _mediaLiveChannelOutputDestinationMultiplexSettings :: Maybe MediaLiveChannelMultiplexProgramChannelDestinationSettings - , _mediaLiveChannelOutputDestinationSettings :: Maybe [MediaLiveChannelOutputDestinationSettings] - } deriving (Show, Eq) - -instance ToJSON MediaLiveChannelOutputDestination where - toJSON MediaLiveChannelOutputDestination{..} = - object $ - catMaybes - [ fmap (("Id",) . toJSON) _mediaLiveChannelOutputDestinationId - , fmap (("MediaPackageSettings",) . toJSON) _mediaLiveChannelOutputDestinationMediaPackageSettings - , fmap (("MultiplexSettings",) . toJSON) _mediaLiveChannelOutputDestinationMultiplexSettings - , fmap (("Settings",) . toJSON) _mediaLiveChannelOutputDestinationSettings - ] - --- | Constructor for 'MediaLiveChannelOutputDestination' containing required --- fields as arguments. -mediaLiveChannelOutputDestination - :: MediaLiveChannelOutputDestination -mediaLiveChannelOutputDestination = - MediaLiveChannelOutputDestination - { _mediaLiveChannelOutputDestinationId = Nothing - , _mediaLiveChannelOutputDestinationMediaPackageSettings = Nothing - , _mediaLiveChannelOutputDestinationMultiplexSettings = Nothing - , _mediaLiveChannelOutputDestinationSettings = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-outputdestination.html#cfn-medialive-channel-outputdestination-id -mlcodId :: Lens' MediaLiveChannelOutputDestination (Maybe (Val Text)) -mlcodId = lens _mediaLiveChannelOutputDestinationId (\s a -> s { _mediaLiveChannelOutputDestinationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-outputdestination.html#cfn-medialive-channel-outputdestination-mediapackagesettings -mlcodMediaPackageSettings :: Lens' MediaLiveChannelOutputDestination (Maybe [MediaLiveChannelMediaPackageOutputDestinationSettings]) -mlcodMediaPackageSettings = lens _mediaLiveChannelOutputDestinationMediaPackageSettings (\s a -> s { _mediaLiveChannelOutputDestinationMediaPackageSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-outputdestination.html#cfn-medialive-channel-outputdestination-multiplexsettings -mlcodMultiplexSettings :: Lens' MediaLiveChannelOutputDestination (Maybe MediaLiveChannelMultiplexProgramChannelDestinationSettings) -mlcodMultiplexSettings = lens _mediaLiveChannelOutputDestinationMultiplexSettings (\s a -> s { _mediaLiveChannelOutputDestinationMultiplexSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-outputdestination.html#cfn-medialive-channel-outputdestination-settings -mlcodSettings :: Lens' MediaLiveChannelOutputDestination (Maybe [MediaLiveChannelOutputDestinationSettings]) -mlcodSettings = lens _mediaLiveChannelOutputDestinationSettings (\s a -> s { _mediaLiveChannelOutputDestinationSettings = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelOutputDestinationSettings.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelOutputDestinationSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelOutputDestinationSettings.hs +++ /dev/null @@ -1,60 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-outputdestinationsettings.html - -module Stratosphere.ResourceProperties.MediaLiveChannelOutputDestinationSettings where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MediaLiveChannelOutputDestinationSettings. --- See 'mediaLiveChannelOutputDestinationSettings' for a more convenient --- constructor. -data MediaLiveChannelOutputDestinationSettings = - MediaLiveChannelOutputDestinationSettings - { _mediaLiveChannelOutputDestinationSettingsPasswordParam :: Maybe (Val Text) - , _mediaLiveChannelOutputDestinationSettingsStreamName :: Maybe (Val Text) - , _mediaLiveChannelOutputDestinationSettingsUrl :: Maybe (Val Text) - , _mediaLiveChannelOutputDestinationSettingsUsername :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON MediaLiveChannelOutputDestinationSettings where - toJSON MediaLiveChannelOutputDestinationSettings{..} = - object $ - catMaybes - [ fmap (("PasswordParam",) . toJSON) _mediaLiveChannelOutputDestinationSettingsPasswordParam - , fmap (("StreamName",) . toJSON) _mediaLiveChannelOutputDestinationSettingsStreamName - , fmap (("Url",) . toJSON) _mediaLiveChannelOutputDestinationSettingsUrl - , fmap (("Username",) . toJSON) _mediaLiveChannelOutputDestinationSettingsUsername - ] - --- | Constructor for 'MediaLiveChannelOutputDestinationSettings' containing --- required fields as arguments. -mediaLiveChannelOutputDestinationSettings - :: MediaLiveChannelOutputDestinationSettings -mediaLiveChannelOutputDestinationSettings = - MediaLiveChannelOutputDestinationSettings - { _mediaLiveChannelOutputDestinationSettingsPasswordParam = Nothing - , _mediaLiveChannelOutputDestinationSettingsStreamName = Nothing - , _mediaLiveChannelOutputDestinationSettingsUrl = Nothing - , _mediaLiveChannelOutputDestinationSettingsUsername = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-outputdestinationsettings.html#cfn-medialive-channel-outputdestinationsettings-passwordparam -mlcodsPasswordParam :: Lens' MediaLiveChannelOutputDestinationSettings (Maybe (Val Text)) -mlcodsPasswordParam = lens _mediaLiveChannelOutputDestinationSettingsPasswordParam (\s a -> s { _mediaLiveChannelOutputDestinationSettingsPasswordParam = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-outputdestinationsettings.html#cfn-medialive-channel-outputdestinationsettings-streamname -mlcodsStreamName :: Lens' MediaLiveChannelOutputDestinationSettings (Maybe (Val Text)) -mlcodsStreamName = lens _mediaLiveChannelOutputDestinationSettingsStreamName (\s a -> s { _mediaLiveChannelOutputDestinationSettingsStreamName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-outputdestinationsettings.html#cfn-medialive-channel-outputdestinationsettings-url -mlcodsUrl :: Lens' MediaLiveChannelOutputDestinationSettings (Maybe (Val Text)) -mlcodsUrl = lens _mediaLiveChannelOutputDestinationSettingsUrl (\s a -> s { _mediaLiveChannelOutputDestinationSettingsUrl = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-outputdestinationsettings.html#cfn-medialive-channel-outputdestinationsettings-username -mlcodsUsername :: Lens' MediaLiveChannelOutputDestinationSettings (Maybe (Val Text)) -mlcodsUsername = lens _mediaLiveChannelOutputDestinationSettingsUsername (\s a -> s { _mediaLiveChannelOutputDestinationSettingsUsername = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelScte20SourceSettings.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelScte20SourceSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelScte20SourceSettings.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-scte20sourcesettings.html - -module Stratosphere.ResourceProperties.MediaLiveChannelScte20SourceSettings where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MediaLiveChannelScte20SourceSettings. See --- 'mediaLiveChannelScte20SourceSettings' for a more convenient constructor. -data MediaLiveChannelScte20SourceSettings = - MediaLiveChannelScte20SourceSettings - { _mediaLiveChannelScte20SourceSettingsConvert608To708 :: Maybe (Val Text) - , _mediaLiveChannelScte20SourceSettingsSource608ChannelNumber :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON MediaLiveChannelScte20SourceSettings where - toJSON MediaLiveChannelScte20SourceSettings{..} = - object $ - catMaybes - [ fmap (("Convert608To708",) . toJSON) _mediaLiveChannelScte20SourceSettingsConvert608To708 - , fmap (("Source608ChannelNumber",) . toJSON) _mediaLiveChannelScte20SourceSettingsSource608ChannelNumber - ] - --- | Constructor for 'MediaLiveChannelScte20SourceSettings' containing --- required fields as arguments. -mediaLiveChannelScte20SourceSettings - :: MediaLiveChannelScte20SourceSettings -mediaLiveChannelScte20SourceSettings = - MediaLiveChannelScte20SourceSettings - { _mediaLiveChannelScte20SourceSettingsConvert608To708 = Nothing - , _mediaLiveChannelScte20SourceSettingsSource608ChannelNumber = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-scte20sourcesettings.html#cfn-medialive-channel-scte20sourcesettings-convert608to708 -mlcsssConvert608To708 :: Lens' MediaLiveChannelScte20SourceSettings (Maybe (Val Text)) -mlcsssConvert608To708 = lens _mediaLiveChannelScte20SourceSettingsConvert608To708 (\s a -> s { _mediaLiveChannelScte20SourceSettingsConvert608To708 = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-scte20sourcesettings.html#cfn-medialive-channel-scte20sourcesettings-source608channelnumber -mlcsssSource608ChannelNumber :: Lens' MediaLiveChannelScte20SourceSettings (Maybe (Val Integer)) -mlcsssSource608ChannelNumber = lens _mediaLiveChannelScte20SourceSettingsSource608ChannelNumber (\s a -> s { _mediaLiveChannelScte20SourceSettingsSource608ChannelNumber = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelScte27SourceSettings.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelScte27SourceSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelScte27SourceSettings.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-scte27sourcesettings.html - -module Stratosphere.ResourceProperties.MediaLiveChannelScte27SourceSettings where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MediaLiveChannelScte27SourceSettings. See --- 'mediaLiveChannelScte27SourceSettings' for a more convenient constructor. -data MediaLiveChannelScte27SourceSettings = - MediaLiveChannelScte27SourceSettings - { _mediaLiveChannelScte27SourceSettingsPid :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON MediaLiveChannelScte27SourceSettings where - toJSON MediaLiveChannelScte27SourceSettings{..} = - object $ - catMaybes - [ fmap (("Pid",) . toJSON) _mediaLiveChannelScte27SourceSettingsPid - ] - --- | Constructor for 'MediaLiveChannelScte27SourceSettings' containing --- required fields as arguments. -mediaLiveChannelScte27SourceSettings - :: MediaLiveChannelScte27SourceSettings -mediaLiveChannelScte27SourceSettings = - MediaLiveChannelScte27SourceSettings - { _mediaLiveChannelScte27SourceSettingsPid = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-scte27sourcesettings.html#cfn-medialive-channel-scte27sourcesettings-pid -mlcsssPid :: Lens' MediaLiveChannelScte27SourceSettings (Maybe (Val Integer)) -mlcsssPid = lens _mediaLiveChannelScte27SourceSettingsPid (\s a -> s { _mediaLiveChannelScte27SourceSettingsPid = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelTeletextSourceSettings.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelTeletextSourceSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelTeletextSourceSettings.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-teletextsourcesettings.html - -module Stratosphere.ResourceProperties.MediaLiveChannelTeletextSourceSettings where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MediaLiveChannelTeletextSourceSettings. See --- 'mediaLiveChannelTeletextSourceSettings' for a more convenient --- constructor. -data MediaLiveChannelTeletextSourceSettings = - MediaLiveChannelTeletextSourceSettings - { _mediaLiveChannelTeletextSourceSettingsPageNumber :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON MediaLiveChannelTeletextSourceSettings where - toJSON MediaLiveChannelTeletextSourceSettings{..} = - object $ - catMaybes - [ fmap (("PageNumber",) . toJSON) _mediaLiveChannelTeletextSourceSettingsPageNumber - ] - --- | Constructor for 'MediaLiveChannelTeletextSourceSettings' containing --- required fields as arguments. -mediaLiveChannelTeletextSourceSettings - :: MediaLiveChannelTeletextSourceSettings -mediaLiveChannelTeletextSourceSettings = - MediaLiveChannelTeletextSourceSettings - { _mediaLiveChannelTeletextSourceSettingsPageNumber = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-teletextsourcesettings.html#cfn-medialive-channel-teletextsourcesettings-pagenumber -mlctssPageNumber :: Lens' MediaLiveChannelTeletextSourceSettings (Maybe (Val Text)) -mlctssPageNumber = lens _mediaLiveChannelTeletextSourceSettingsPageNumber (\s a -> s { _mediaLiveChannelTeletextSourceSettingsPageNumber = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelVideoSelector.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelVideoSelector.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelVideoSelector.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-videoselector.html - -module Stratosphere.ResourceProperties.MediaLiveChannelVideoSelector where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.MediaLiveChannelVideoSelectorSettings - --- | Full data type definition for MediaLiveChannelVideoSelector. See --- 'mediaLiveChannelVideoSelector' for a more convenient constructor. -data MediaLiveChannelVideoSelector = - MediaLiveChannelVideoSelector - { _mediaLiveChannelVideoSelectorColorSpace :: Maybe (Val Text) - , _mediaLiveChannelVideoSelectorColorSpaceUsage :: Maybe (Val Text) - , _mediaLiveChannelVideoSelectorSelectorSettings :: Maybe MediaLiveChannelVideoSelectorSettings - } deriving (Show, Eq) - -instance ToJSON MediaLiveChannelVideoSelector where - toJSON MediaLiveChannelVideoSelector{..} = - object $ - catMaybes - [ fmap (("ColorSpace",) . toJSON) _mediaLiveChannelVideoSelectorColorSpace - , fmap (("ColorSpaceUsage",) . toJSON) _mediaLiveChannelVideoSelectorColorSpaceUsage - , fmap (("SelectorSettings",) . toJSON) _mediaLiveChannelVideoSelectorSelectorSettings - ] - --- | Constructor for 'MediaLiveChannelVideoSelector' containing required --- fields as arguments. -mediaLiveChannelVideoSelector - :: MediaLiveChannelVideoSelector -mediaLiveChannelVideoSelector = - MediaLiveChannelVideoSelector - { _mediaLiveChannelVideoSelectorColorSpace = Nothing - , _mediaLiveChannelVideoSelectorColorSpaceUsage = Nothing - , _mediaLiveChannelVideoSelectorSelectorSettings = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-videoselector.html#cfn-medialive-channel-videoselector-colorspace -mlcvsColorSpace :: Lens' MediaLiveChannelVideoSelector (Maybe (Val Text)) -mlcvsColorSpace = lens _mediaLiveChannelVideoSelectorColorSpace (\s a -> s { _mediaLiveChannelVideoSelectorColorSpace = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-videoselector.html#cfn-medialive-channel-videoselector-colorspaceusage -mlcvsColorSpaceUsage :: Lens' MediaLiveChannelVideoSelector (Maybe (Val Text)) -mlcvsColorSpaceUsage = lens _mediaLiveChannelVideoSelectorColorSpaceUsage (\s a -> s { _mediaLiveChannelVideoSelectorColorSpaceUsage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-videoselector.html#cfn-medialive-channel-videoselector-selectorsettings -mlcvsSelectorSettings :: Lens' MediaLiveChannelVideoSelector (Maybe MediaLiveChannelVideoSelectorSettings) -mlcvsSelectorSettings = lens _mediaLiveChannelVideoSelectorSelectorSettings (\s a -> s { _mediaLiveChannelVideoSelectorSelectorSettings = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelVideoSelectorPid.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelVideoSelectorPid.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelVideoSelectorPid.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-videoselectorpid.html - -module Stratosphere.ResourceProperties.MediaLiveChannelVideoSelectorPid where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MediaLiveChannelVideoSelectorPid. See --- 'mediaLiveChannelVideoSelectorPid' for a more convenient constructor. -data MediaLiveChannelVideoSelectorPid = - MediaLiveChannelVideoSelectorPid - { _mediaLiveChannelVideoSelectorPidPid :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON MediaLiveChannelVideoSelectorPid where - toJSON MediaLiveChannelVideoSelectorPid{..} = - object $ - catMaybes - [ fmap (("Pid",) . toJSON) _mediaLiveChannelVideoSelectorPidPid - ] - --- | Constructor for 'MediaLiveChannelVideoSelectorPid' containing required --- fields as arguments. -mediaLiveChannelVideoSelectorPid - :: MediaLiveChannelVideoSelectorPid -mediaLiveChannelVideoSelectorPid = - MediaLiveChannelVideoSelectorPid - { _mediaLiveChannelVideoSelectorPidPid = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-videoselectorpid.html#cfn-medialive-channel-videoselectorpid-pid -mlcvspPid :: Lens' MediaLiveChannelVideoSelectorPid (Maybe (Val Integer)) -mlcvspPid = lens _mediaLiveChannelVideoSelectorPidPid (\s a -> s { _mediaLiveChannelVideoSelectorPidPid = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelVideoSelectorProgramId.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelVideoSelectorProgramId.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelVideoSelectorProgramId.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-videoselectorprogramid.html - -module Stratosphere.ResourceProperties.MediaLiveChannelVideoSelectorProgramId where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MediaLiveChannelVideoSelectorProgramId. See --- 'mediaLiveChannelVideoSelectorProgramId' for a more convenient --- constructor. -data MediaLiveChannelVideoSelectorProgramId = - MediaLiveChannelVideoSelectorProgramId - { _mediaLiveChannelVideoSelectorProgramIdProgramId :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON MediaLiveChannelVideoSelectorProgramId where - toJSON MediaLiveChannelVideoSelectorProgramId{..} = - object $ - catMaybes - [ fmap (("ProgramId",) . toJSON) _mediaLiveChannelVideoSelectorProgramIdProgramId - ] - --- | Constructor for 'MediaLiveChannelVideoSelectorProgramId' containing --- required fields as arguments. -mediaLiveChannelVideoSelectorProgramId - :: MediaLiveChannelVideoSelectorProgramId -mediaLiveChannelVideoSelectorProgramId = - MediaLiveChannelVideoSelectorProgramId - { _mediaLiveChannelVideoSelectorProgramIdProgramId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-videoselectorprogramid.html#cfn-medialive-channel-videoselectorprogramid-programid -mlcvspiProgramId :: Lens' MediaLiveChannelVideoSelectorProgramId (Maybe (Val Integer)) -mlcvspiProgramId = lens _mediaLiveChannelVideoSelectorProgramIdProgramId (\s a -> s { _mediaLiveChannelVideoSelectorProgramIdProgramId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelVideoSelectorSettings.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelVideoSelectorSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveChannelVideoSelectorSettings.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-videoselectorsettings.html - -module Stratosphere.ResourceProperties.MediaLiveChannelVideoSelectorSettings where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.MediaLiveChannelVideoSelectorPid -import Stratosphere.ResourceProperties.MediaLiveChannelVideoSelectorProgramId - --- | Full data type definition for MediaLiveChannelVideoSelectorSettings. See --- 'mediaLiveChannelVideoSelectorSettings' for a more convenient --- constructor. -data MediaLiveChannelVideoSelectorSettings = - MediaLiveChannelVideoSelectorSettings - { _mediaLiveChannelVideoSelectorSettingsVideoSelectorPid :: Maybe MediaLiveChannelVideoSelectorPid - , _mediaLiveChannelVideoSelectorSettingsVideoSelectorProgramId :: Maybe MediaLiveChannelVideoSelectorProgramId - } deriving (Show, Eq) - -instance ToJSON MediaLiveChannelVideoSelectorSettings where - toJSON MediaLiveChannelVideoSelectorSettings{..} = - object $ - catMaybes - [ fmap (("VideoSelectorPid",) . toJSON) _mediaLiveChannelVideoSelectorSettingsVideoSelectorPid - , fmap (("VideoSelectorProgramId",) . toJSON) _mediaLiveChannelVideoSelectorSettingsVideoSelectorProgramId - ] - --- | Constructor for 'MediaLiveChannelVideoSelectorSettings' containing --- required fields as arguments. -mediaLiveChannelVideoSelectorSettings - :: MediaLiveChannelVideoSelectorSettings -mediaLiveChannelVideoSelectorSettings = - MediaLiveChannelVideoSelectorSettings - { _mediaLiveChannelVideoSelectorSettingsVideoSelectorPid = Nothing - , _mediaLiveChannelVideoSelectorSettingsVideoSelectorProgramId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-videoselectorsettings.html#cfn-medialive-channel-videoselectorsettings-videoselectorpid -mlcvssVideoSelectorPid :: Lens' MediaLiveChannelVideoSelectorSettings (Maybe MediaLiveChannelVideoSelectorPid) -mlcvssVideoSelectorPid = lens _mediaLiveChannelVideoSelectorSettingsVideoSelectorPid (\s a -> s { _mediaLiveChannelVideoSelectorSettingsVideoSelectorPid = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-videoselectorsettings.html#cfn-medialive-channel-videoselectorsettings-videoselectorprogramid -mlcvssVideoSelectorProgramId :: Lens' MediaLiveChannelVideoSelectorSettings (Maybe MediaLiveChannelVideoSelectorProgramId) -mlcvssVideoSelectorProgramId = lens _mediaLiveChannelVideoSelectorSettingsVideoSelectorProgramId (\s a -> s { _mediaLiveChannelVideoSelectorSettingsVideoSelectorProgramId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveInputInputDestinationRequest.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveInputInputDestinationRequest.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveInputInputDestinationRequest.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-input-inputdestinationrequest.html - -module Stratosphere.ResourceProperties.MediaLiveInputInputDestinationRequest where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MediaLiveInputInputDestinationRequest. See --- 'mediaLiveInputInputDestinationRequest' for a more convenient --- constructor. -data MediaLiveInputInputDestinationRequest = - MediaLiveInputInputDestinationRequest - { _mediaLiveInputInputDestinationRequestStreamName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON MediaLiveInputInputDestinationRequest where - toJSON MediaLiveInputInputDestinationRequest{..} = - object $ - catMaybes - [ fmap (("StreamName",) . toJSON) _mediaLiveInputInputDestinationRequestStreamName - ] - --- | Constructor for 'MediaLiveInputInputDestinationRequest' containing --- required fields as arguments. -mediaLiveInputInputDestinationRequest - :: MediaLiveInputInputDestinationRequest -mediaLiveInputInputDestinationRequest = - MediaLiveInputInputDestinationRequest - { _mediaLiveInputInputDestinationRequestStreamName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-input-inputdestinationrequest.html#cfn-medialive-input-inputdestinationrequest-streamname -mliidrStreamName :: Lens' MediaLiveInputInputDestinationRequest (Maybe (Val Text)) -mliidrStreamName = lens _mediaLiveInputInputDestinationRequestStreamName (\s a -> s { _mediaLiveInputInputDestinationRequestStreamName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveInputInputSourceRequest.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveInputInputSourceRequest.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveInputInputSourceRequest.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-input-inputsourcerequest.html - -module Stratosphere.ResourceProperties.MediaLiveInputInputSourceRequest where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MediaLiveInputInputSourceRequest. See --- 'mediaLiveInputInputSourceRequest' for a more convenient constructor. -data MediaLiveInputInputSourceRequest = - MediaLiveInputInputSourceRequest - { _mediaLiveInputInputSourceRequestPasswordParam :: Maybe (Val Text) - , _mediaLiveInputInputSourceRequestUrl :: Maybe (Val Text) - , _mediaLiveInputInputSourceRequestUsername :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON MediaLiveInputInputSourceRequest where - toJSON MediaLiveInputInputSourceRequest{..} = - object $ - catMaybes - [ fmap (("PasswordParam",) . toJSON) _mediaLiveInputInputSourceRequestPasswordParam - , fmap (("Url",) . toJSON) _mediaLiveInputInputSourceRequestUrl - , fmap (("Username",) . toJSON) _mediaLiveInputInputSourceRequestUsername - ] - --- | Constructor for 'MediaLiveInputInputSourceRequest' containing required --- fields as arguments. -mediaLiveInputInputSourceRequest - :: MediaLiveInputInputSourceRequest -mediaLiveInputInputSourceRequest = - MediaLiveInputInputSourceRequest - { _mediaLiveInputInputSourceRequestPasswordParam = Nothing - , _mediaLiveInputInputSourceRequestUrl = Nothing - , _mediaLiveInputInputSourceRequestUsername = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-input-inputsourcerequest.html#cfn-medialive-input-inputsourcerequest-passwordparam -mliisrPasswordParam :: Lens' MediaLiveInputInputSourceRequest (Maybe (Val Text)) -mliisrPasswordParam = lens _mediaLiveInputInputSourceRequestPasswordParam (\s a -> s { _mediaLiveInputInputSourceRequestPasswordParam = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-input-inputsourcerequest.html#cfn-medialive-input-inputsourcerequest-url -mliisrUrl :: Lens' MediaLiveInputInputSourceRequest (Maybe (Val Text)) -mliisrUrl = lens _mediaLiveInputInputSourceRequestUrl (\s a -> s { _mediaLiveInputInputSourceRequestUrl = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-input-inputsourcerequest.html#cfn-medialive-input-inputsourcerequest-username -mliisrUsername :: Lens' MediaLiveInputInputSourceRequest (Maybe (Val Text)) -mliisrUsername = lens _mediaLiveInputInputSourceRequestUsername (\s a -> s { _mediaLiveInputInputSourceRequestUsername = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveInputInputVpcRequest.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveInputInputVpcRequest.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveInputInputVpcRequest.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-input-inputvpcrequest.html - -module Stratosphere.ResourceProperties.MediaLiveInputInputVpcRequest where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MediaLiveInputInputVpcRequest. See --- 'mediaLiveInputInputVpcRequest' for a more convenient constructor. -data MediaLiveInputInputVpcRequest = - MediaLiveInputInputVpcRequest - { _mediaLiveInputInputVpcRequestSecurityGroupIds :: Maybe (ValList Text) - , _mediaLiveInputInputVpcRequestSubnetIds :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON MediaLiveInputInputVpcRequest where - toJSON MediaLiveInputInputVpcRequest{..} = - object $ - catMaybes - [ fmap (("SecurityGroupIds",) . toJSON) _mediaLiveInputInputVpcRequestSecurityGroupIds - , fmap (("SubnetIds",) . toJSON) _mediaLiveInputInputVpcRequestSubnetIds - ] - --- | Constructor for 'MediaLiveInputInputVpcRequest' containing required --- fields as arguments. -mediaLiveInputInputVpcRequest - :: MediaLiveInputInputVpcRequest -mediaLiveInputInputVpcRequest = - MediaLiveInputInputVpcRequest - { _mediaLiveInputInputVpcRequestSecurityGroupIds = Nothing - , _mediaLiveInputInputVpcRequestSubnetIds = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-input-inputvpcrequest.html#cfn-medialive-input-inputvpcrequest-securitygroupids -mliivrSecurityGroupIds :: Lens' MediaLiveInputInputVpcRequest (Maybe (ValList Text)) -mliivrSecurityGroupIds = lens _mediaLiveInputInputVpcRequestSecurityGroupIds (\s a -> s { _mediaLiveInputInputVpcRequestSecurityGroupIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-input-inputvpcrequest.html#cfn-medialive-input-inputvpcrequest-subnetids -mliivrSubnetIds :: Lens' MediaLiveInputInputVpcRequest (Maybe (ValList Text)) -mliivrSubnetIds = lens _mediaLiveInputInputVpcRequestSubnetIds (\s a -> s { _mediaLiveInputInputVpcRequestSubnetIds = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveInputMediaConnectFlowRequest.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveInputMediaConnectFlowRequest.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveInputMediaConnectFlowRequest.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-input-mediaconnectflowrequest.html - -module Stratosphere.ResourceProperties.MediaLiveInputMediaConnectFlowRequest where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MediaLiveInputMediaConnectFlowRequest. See --- 'mediaLiveInputMediaConnectFlowRequest' for a more convenient --- constructor. -data MediaLiveInputMediaConnectFlowRequest = - MediaLiveInputMediaConnectFlowRequest - { _mediaLiveInputMediaConnectFlowRequestFlowArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON MediaLiveInputMediaConnectFlowRequest where - toJSON MediaLiveInputMediaConnectFlowRequest{..} = - object $ - catMaybes - [ fmap (("FlowArn",) . toJSON) _mediaLiveInputMediaConnectFlowRequestFlowArn - ] - --- | Constructor for 'MediaLiveInputMediaConnectFlowRequest' containing --- required fields as arguments. -mediaLiveInputMediaConnectFlowRequest - :: MediaLiveInputMediaConnectFlowRequest -mediaLiveInputMediaConnectFlowRequest = - MediaLiveInputMediaConnectFlowRequest - { _mediaLiveInputMediaConnectFlowRequestFlowArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-input-mediaconnectflowrequest.html#cfn-medialive-input-mediaconnectflowrequest-flowarn -mlimcfrFlowArn :: Lens' MediaLiveInputMediaConnectFlowRequest (Maybe (Val Text)) -mlimcfrFlowArn = lens _mediaLiveInputMediaConnectFlowRequestFlowArn (\s a -> s { _mediaLiveInputMediaConnectFlowRequestFlowArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaLiveInputSecurityGroupInputWhitelistRuleCidr.hs b/library-gen/Stratosphere/ResourceProperties/MediaLiveInputSecurityGroupInputWhitelistRuleCidr.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaLiveInputSecurityGroupInputWhitelistRuleCidr.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-inputsecuritygroup-inputwhitelistrulecidr.html - -module Stratosphere.ResourceProperties.MediaLiveInputSecurityGroupInputWhitelistRuleCidr where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- MediaLiveInputSecurityGroupInputWhitelistRuleCidr. See --- 'mediaLiveInputSecurityGroupInputWhitelistRuleCidr' for a more convenient --- constructor. -data MediaLiveInputSecurityGroupInputWhitelistRuleCidr = - MediaLiveInputSecurityGroupInputWhitelistRuleCidr - { _mediaLiveInputSecurityGroupInputWhitelistRuleCidrCidr :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON MediaLiveInputSecurityGroupInputWhitelistRuleCidr where - toJSON MediaLiveInputSecurityGroupInputWhitelistRuleCidr{..} = - object $ - catMaybes - [ fmap (("Cidr",) . toJSON) _mediaLiveInputSecurityGroupInputWhitelistRuleCidrCidr - ] - --- | Constructor for 'MediaLiveInputSecurityGroupInputWhitelistRuleCidr' --- containing required fields as arguments. -mediaLiveInputSecurityGroupInputWhitelistRuleCidr - :: MediaLiveInputSecurityGroupInputWhitelistRuleCidr -mediaLiveInputSecurityGroupInputWhitelistRuleCidr = - MediaLiveInputSecurityGroupInputWhitelistRuleCidr - { _mediaLiveInputSecurityGroupInputWhitelistRuleCidrCidr = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-inputsecuritygroup-inputwhitelistrulecidr.html#cfn-medialive-inputsecuritygroup-inputwhitelistrulecidr-cidr -mlisgiwrcCidr :: Lens' MediaLiveInputSecurityGroupInputWhitelistRuleCidr (Maybe (Val Text)) -mlisgiwrcCidr = lens _mediaLiveInputSecurityGroupInputWhitelistRuleCidrCidr (\s a -> s { _mediaLiveInputSecurityGroupInputWhitelistRuleCidrCidr = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaStoreContainerCorsRule.hs b/library-gen/Stratosphere/ResourceProperties/MediaStoreContainerCorsRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaStoreContainerCorsRule.hs +++ /dev/null @@ -1,66 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediastore-container-corsrule.html - -module Stratosphere.ResourceProperties.MediaStoreContainerCorsRule where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MediaStoreContainerCorsRule. See --- 'mediaStoreContainerCorsRule' for a more convenient constructor. -data MediaStoreContainerCorsRule = - MediaStoreContainerCorsRule - { _mediaStoreContainerCorsRuleAllowedHeaders :: Maybe (ValList Text) - , _mediaStoreContainerCorsRuleAllowedMethods :: Maybe (ValList Text) - , _mediaStoreContainerCorsRuleAllowedOrigins :: Maybe (ValList Text) - , _mediaStoreContainerCorsRuleExposeHeaders :: Maybe (ValList Text) - , _mediaStoreContainerCorsRuleMaxAgeSeconds :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON MediaStoreContainerCorsRule where - toJSON MediaStoreContainerCorsRule{..} = - object $ - catMaybes - [ fmap (("AllowedHeaders",) . toJSON) _mediaStoreContainerCorsRuleAllowedHeaders - , fmap (("AllowedMethods",) . toJSON) _mediaStoreContainerCorsRuleAllowedMethods - , fmap (("AllowedOrigins",) . toJSON) _mediaStoreContainerCorsRuleAllowedOrigins - , fmap (("ExposeHeaders",) . toJSON) _mediaStoreContainerCorsRuleExposeHeaders - , fmap (("MaxAgeSeconds",) . toJSON) _mediaStoreContainerCorsRuleMaxAgeSeconds - ] - --- | Constructor for 'MediaStoreContainerCorsRule' containing required fields --- as arguments. -mediaStoreContainerCorsRule - :: MediaStoreContainerCorsRule -mediaStoreContainerCorsRule = - MediaStoreContainerCorsRule - { _mediaStoreContainerCorsRuleAllowedHeaders = Nothing - , _mediaStoreContainerCorsRuleAllowedMethods = Nothing - , _mediaStoreContainerCorsRuleAllowedOrigins = Nothing - , _mediaStoreContainerCorsRuleExposeHeaders = Nothing - , _mediaStoreContainerCorsRuleMaxAgeSeconds = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediastore-container-corsrule.html#cfn-mediastore-container-corsrule-allowedheaders -msccrAllowedHeaders :: Lens' MediaStoreContainerCorsRule (Maybe (ValList Text)) -msccrAllowedHeaders = lens _mediaStoreContainerCorsRuleAllowedHeaders (\s a -> s { _mediaStoreContainerCorsRuleAllowedHeaders = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediastore-container-corsrule.html#cfn-mediastore-container-corsrule-allowedmethods -msccrAllowedMethods :: Lens' MediaStoreContainerCorsRule (Maybe (ValList Text)) -msccrAllowedMethods = lens _mediaStoreContainerCorsRuleAllowedMethods (\s a -> s { _mediaStoreContainerCorsRuleAllowedMethods = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediastore-container-corsrule.html#cfn-mediastore-container-corsrule-allowedorigins -msccrAllowedOrigins :: Lens' MediaStoreContainerCorsRule (Maybe (ValList Text)) -msccrAllowedOrigins = lens _mediaStoreContainerCorsRuleAllowedOrigins (\s a -> s { _mediaStoreContainerCorsRuleAllowedOrigins = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediastore-container-corsrule.html#cfn-mediastore-container-corsrule-exposeheaders -msccrExposeHeaders :: Lens' MediaStoreContainerCorsRule (Maybe (ValList Text)) -msccrExposeHeaders = lens _mediaStoreContainerCorsRuleExposeHeaders (\s a -> s { _mediaStoreContainerCorsRuleExposeHeaders = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediastore-container-corsrule.html#cfn-mediastore-container-corsrule-maxageseconds -msccrMaxAgeSeconds :: Lens' MediaStoreContainerCorsRule (Maybe (Val Integer)) -msccrMaxAgeSeconds = lens _mediaStoreContainerCorsRuleMaxAgeSeconds (\s a -> s { _mediaStoreContainerCorsRuleMaxAgeSeconds = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaStoreContainerMetricPolicy.hs b/library-gen/Stratosphere/ResourceProperties/MediaStoreContainerMetricPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaStoreContainerMetricPolicy.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediastore-container-metricpolicy.html - -module Stratosphere.ResourceProperties.MediaStoreContainerMetricPolicy where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.MediaStoreContainerMetricPolicyRule - --- | Full data type definition for MediaStoreContainerMetricPolicy. See --- 'mediaStoreContainerMetricPolicy' for a more convenient constructor. -data MediaStoreContainerMetricPolicy = - MediaStoreContainerMetricPolicy - { _mediaStoreContainerMetricPolicyContainerLevelMetrics :: Val Text - , _mediaStoreContainerMetricPolicyMetricPolicyRules :: Maybe [MediaStoreContainerMetricPolicyRule] - } deriving (Show, Eq) - -instance ToJSON MediaStoreContainerMetricPolicy where - toJSON MediaStoreContainerMetricPolicy{..} = - object $ - catMaybes - [ (Just . ("ContainerLevelMetrics",) . toJSON) _mediaStoreContainerMetricPolicyContainerLevelMetrics - , fmap (("MetricPolicyRules",) . toJSON) _mediaStoreContainerMetricPolicyMetricPolicyRules - ] - --- | Constructor for 'MediaStoreContainerMetricPolicy' containing required --- fields as arguments. -mediaStoreContainerMetricPolicy - :: Val Text -- ^ 'mscmpContainerLevelMetrics' - -> MediaStoreContainerMetricPolicy -mediaStoreContainerMetricPolicy containerLevelMetricsarg = - MediaStoreContainerMetricPolicy - { _mediaStoreContainerMetricPolicyContainerLevelMetrics = containerLevelMetricsarg - , _mediaStoreContainerMetricPolicyMetricPolicyRules = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediastore-container-metricpolicy.html#cfn-mediastore-container-metricpolicy-containerlevelmetrics -mscmpContainerLevelMetrics :: Lens' MediaStoreContainerMetricPolicy (Val Text) -mscmpContainerLevelMetrics = lens _mediaStoreContainerMetricPolicyContainerLevelMetrics (\s a -> s { _mediaStoreContainerMetricPolicyContainerLevelMetrics = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediastore-container-metricpolicy.html#cfn-mediastore-container-metricpolicy-metricpolicyrules -mscmpMetricPolicyRules :: Lens' MediaStoreContainerMetricPolicy (Maybe [MediaStoreContainerMetricPolicyRule]) -mscmpMetricPolicyRules = lens _mediaStoreContainerMetricPolicyMetricPolicyRules (\s a -> s { _mediaStoreContainerMetricPolicyMetricPolicyRules = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/MediaStoreContainerMetricPolicyRule.hs b/library-gen/Stratosphere/ResourceProperties/MediaStoreContainerMetricPolicyRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/MediaStoreContainerMetricPolicyRule.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediastore-container-metricpolicyrule.html - -module Stratosphere.ResourceProperties.MediaStoreContainerMetricPolicyRule where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MediaStoreContainerMetricPolicyRule. See --- 'mediaStoreContainerMetricPolicyRule' for a more convenient constructor. -data MediaStoreContainerMetricPolicyRule = - MediaStoreContainerMetricPolicyRule - { _mediaStoreContainerMetricPolicyRuleObjectGroup :: Val Text - , _mediaStoreContainerMetricPolicyRuleObjectGroupName :: Val Text - } deriving (Show, Eq) - -instance ToJSON MediaStoreContainerMetricPolicyRule where - toJSON MediaStoreContainerMetricPolicyRule{..} = - object $ - catMaybes - [ (Just . ("ObjectGroup",) . toJSON) _mediaStoreContainerMetricPolicyRuleObjectGroup - , (Just . ("ObjectGroupName",) . toJSON) _mediaStoreContainerMetricPolicyRuleObjectGroupName - ] - --- | Constructor for 'MediaStoreContainerMetricPolicyRule' containing required --- fields as arguments. -mediaStoreContainerMetricPolicyRule - :: Val Text -- ^ 'mscmprObjectGroup' - -> Val Text -- ^ 'mscmprObjectGroupName' - -> MediaStoreContainerMetricPolicyRule -mediaStoreContainerMetricPolicyRule objectGrouparg objectGroupNamearg = - MediaStoreContainerMetricPolicyRule - { _mediaStoreContainerMetricPolicyRuleObjectGroup = objectGrouparg - , _mediaStoreContainerMetricPolicyRuleObjectGroupName = objectGroupNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediastore-container-metricpolicyrule.html#cfn-mediastore-container-metricpolicyrule-objectgroup -mscmprObjectGroup :: Lens' MediaStoreContainerMetricPolicyRule (Val Text) -mscmprObjectGroup = lens _mediaStoreContainerMetricPolicyRuleObjectGroup (\s a -> s { _mediaStoreContainerMetricPolicyRuleObjectGroup = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediastore-container-metricpolicyrule.html#cfn-mediastore-container-metricpolicyrule-objectgroupname -mscmprObjectGroupName :: Lens' MediaStoreContainerMetricPolicyRule (Val Text) -mscmprObjectGroupName = lens _mediaStoreContainerMetricPolicyRuleObjectGroupName (\s a -> s { _mediaStoreContainerMetricPolicyRuleObjectGroupName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/NeptuneDBClusterDBClusterRole.hs b/library-gen/Stratosphere/ResourceProperties/NeptuneDBClusterDBClusterRole.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/NeptuneDBClusterDBClusterRole.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-neptune-dbcluster-dbclusterrole.html - -module Stratosphere.ResourceProperties.NeptuneDBClusterDBClusterRole where - -import Stratosphere.ResourceImports - - --- | Full data type definition for NeptuneDBClusterDBClusterRole. See --- 'neptuneDBClusterDBClusterRole' for a more convenient constructor. -data NeptuneDBClusterDBClusterRole = - NeptuneDBClusterDBClusterRole - { _neptuneDBClusterDBClusterRoleFeatureName :: Maybe (Val Text) - , _neptuneDBClusterDBClusterRoleRoleArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON NeptuneDBClusterDBClusterRole where - toJSON NeptuneDBClusterDBClusterRole{..} = - object $ - catMaybes - [ fmap (("FeatureName",) . toJSON) _neptuneDBClusterDBClusterRoleFeatureName - , (Just . ("RoleArn",) . toJSON) _neptuneDBClusterDBClusterRoleRoleArn - ] - --- | Constructor for 'NeptuneDBClusterDBClusterRole' containing required --- fields as arguments. -neptuneDBClusterDBClusterRole - :: Val Text -- ^ 'ndbcdbcrRoleArn' - -> NeptuneDBClusterDBClusterRole -neptuneDBClusterDBClusterRole roleArnarg = - NeptuneDBClusterDBClusterRole - { _neptuneDBClusterDBClusterRoleFeatureName = Nothing - , _neptuneDBClusterDBClusterRoleRoleArn = roleArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-neptune-dbcluster-dbclusterrole.html#cfn-neptune-dbcluster-dbclusterrole-featurename -ndbcdbcrFeatureName :: Lens' NeptuneDBClusterDBClusterRole (Maybe (Val Text)) -ndbcdbcrFeatureName = lens _neptuneDBClusterDBClusterRoleFeatureName (\s a -> s { _neptuneDBClusterDBClusterRoleFeatureName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-neptune-dbcluster-dbclusterrole.html#cfn-neptune-dbcluster-dbclusterrole-rolearn -ndbcdbcrRoleArn :: Lens' NeptuneDBClusterDBClusterRole (Val Text) -ndbcdbcrRoleArn = lens _neptuneDBClusterDBClusterRoleRoleArn (\s a -> s { _neptuneDBClusterDBClusterRoleRoleArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/NetworkManagerDeviceLocation.hs b/library-gen/Stratosphere/ResourceProperties/NetworkManagerDeviceLocation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/NetworkManagerDeviceLocation.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-networkmanager-device-location.html - -module Stratosphere.ResourceProperties.NetworkManagerDeviceLocation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for NetworkManagerDeviceLocation. See --- 'networkManagerDeviceLocation' for a more convenient constructor. -data NetworkManagerDeviceLocation = - NetworkManagerDeviceLocation - { _networkManagerDeviceLocationAddress :: Maybe (Val Text) - , _networkManagerDeviceLocationLatitude :: Maybe (Val Text) - , _networkManagerDeviceLocationLongitude :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON NetworkManagerDeviceLocation where - toJSON NetworkManagerDeviceLocation{..} = - object $ - catMaybes - [ fmap (("Address",) . toJSON) _networkManagerDeviceLocationAddress - , fmap (("Latitude",) . toJSON) _networkManagerDeviceLocationLatitude - , fmap (("Longitude",) . toJSON) _networkManagerDeviceLocationLongitude - ] - --- | Constructor for 'NetworkManagerDeviceLocation' containing required fields --- as arguments. -networkManagerDeviceLocation - :: NetworkManagerDeviceLocation -networkManagerDeviceLocation = - NetworkManagerDeviceLocation - { _networkManagerDeviceLocationAddress = Nothing - , _networkManagerDeviceLocationLatitude = Nothing - , _networkManagerDeviceLocationLongitude = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-networkmanager-device-location.html#cfn-networkmanager-device-location-address -nmdlAddress :: Lens' NetworkManagerDeviceLocation (Maybe (Val Text)) -nmdlAddress = lens _networkManagerDeviceLocationAddress (\s a -> s { _networkManagerDeviceLocationAddress = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-networkmanager-device-location.html#cfn-networkmanager-device-location-latitude -nmdlLatitude :: Lens' NetworkManagerDeviceLocation (Maybe (Val Text)) -nmdlLatitude = lens _networkManagerDeviceLocationLatitude (\s a -> s { _networkManagerDeviceLocationLatitude = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-networkmanager-device-location.html#cfn-networkmanager-device-location-longitude -nmdlLongitude :: Lens' NetworkManagerDeviceLocation (Maybe (Val Text)) -nmdlLongitude = lens _networkManagerDeviceLocationLongitude (\s a -> s { _networkManagerDeviceLocationLongitude = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/NetworkManagerLinkBandwidth.hs b/library-gen/Stratosphere/ResourceProperties/NetworkManagerLinkBandwidth.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/NetworkManagerLinkBandwidth.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-networkmanager-link-bandwidth.html - -module Stratosphere.ResourceProperties.NetworkManagerLinkBandwidth where - -import Stratosphere.ResourceImports - - --- | Full data type definition for NetworkManagerLinkBandwidth. See --- 'networkManagerLinkBandwidth' for a more convenient constructor. -data NetworkManagerLinkBandwidth = - NetworkManagerLinkBandwidth - { _networkManagerLinkBandwidthDownloadSpeed :: Maybe (Val Integer) - , _networkManagerLinkBandwidthUploadSpeed :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON NetworkManagerLinkBandwidth where - toJSON NetworkManagerLinkBandwidth{..} = - object $ - catMaybes - [ fmap (("DownloadSpeed",) . toJSON) _networkManagerLinkBandwidthDownloadSpeed - , fmap (("UploadSpeed",) . toJSON) _networkManagerLinkBandwidthUploadSpeed - ] - --- | Constructor for 'NetworkManagerLinkBandwidth' containing required fields --- as arguments. -networkManagerLinkBandwidth - :: NetworkManagerLinkBandwidth -networkManagerLinkBandwidth = - NetworkManagerLinkBandwidth - { _networkManagerLinkBandwidthDownloadSpeed = Nothing - , _networkManagerLinkBandwidthUploadSpeed = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-networkmanager-link-bandwidth.html#cfn-networkmanager-link-bandwidth-downloadspeed -nmlbDownloadSpeed :: Lens' NetworkManagerLinkBandwidth (Maybe (Val Integer)) -nmlbDownloadSpeed = lens _networkManagerLinkBandwidthDownloadSpeed (\s a -> s { _networkManagerLinkBandwidthDownloadSpeed = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-networkmanager-link-bandwidth.html#cfn-networkmanager-link-bandwidth-uploadspeed -nmlbUploadSpeed :: Lens' NetworkManagerLinkBandwidth (Maybe (Val Integer)) -nmlbUploadSpeed = lens _networkManagerLinkBandwidthUploadSpeed (\s a -> s { _networkManagerLinkBandwidthUploadSpeed = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/NetworkManagerSiteLocation.hs b/library-gen/Stratosphere/ResourceProperties/NetworkManagerSiteLocation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/NetworkManagerSiteLocation.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-networkmanager-site-location.html - -module Stratosphere.ResourceProperties.NetworkManagerSiteLocation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for NetworkManagerSiteLocation. See --- 'networkManagerSiteLocation' for a more convenient constructor. -data NetworkManagerSiteLocation = - NetworkManagerSiteLocation - { _networkManagerSiteLocationAddress :: Maybe (Val Text) - , _networkManagerSiteLocationLatitude :: Maybe (Val Text) - , _networkManagerSiteLocationLongitude :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON NetworkManagerSiteLocation where - toJSON NetworkManagerSiteLocation{..} = - object $ - catMaybes - [ fmap (("Address",) . toJSON) _networkManagerSiteLocationAddress - , fmap (("Latitude",) . toJSON) _networkManagerSiteLocationLatitude - , fmap (("Longitude",) . toJSON) _networkManagerSiteLocationLongitude - ] - --- | Constructor for 'NetworkManagerSiteLocation' containing required fields --- as arguments. -networkManagerSiteLocation - :: NetworkManagerSiteLocation -networkManagerSiteLocation = - NetworkManagerSiteLocation - { _networkManagerSiteLocationAddress = Nothing - , _networkManagerSiteLocationLatitude = Nothing - , _networkManagerSiteLocationLongitude = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-networkmanager-site-location.html#cfn-networkmanager-site-location-address -nmslAddress :: Lens' NetworkManagerSiteLocation (Maybe (Val Text)) -nmslAddress = lens _networkManagerSiteLocationAddress (\s a -> s { _networkManagerSiteLocationAddress = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-networkmanager-site-location.html#cfn-networkmanager-site-location-latitude -nmslLatitude :: Lens' NetworkManagerSiteLocation (Maybe (Val Text)) -nmslLatitude = lens _networkManagerSiteLocationLatitude (\s a -> s { _networkManagerSiteLocationLatitude = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-networkmanager-site-location.html#cfn-networkmanager-site-location-longitude -nmslLongitude :: Lens' NetworkManagerSiteLocation (Maybe (Val Text)) -nmslLongitude = lens _networkManagerSiteLocationLongitude (\s a -> s { _networkManagerSiteLocationLongitude = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/OpsWorksAppDataSource.hs b/library-gen/Stratosphere/ResourceProperties/OpsWorksAppDataSource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/OpsWorksAppDataSource.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-app-datasource.html - -module Stratosphere.ResourceProperties.OpsWorksAppDataSource where - -import Stratosphere.ResourceImports - - --- | Full data type definition for OpsWorksAppDataSource. See --- 'opsWorksAppDataSource' for a more convenient constructor. -data OpsWorksAppDataSource = - OpsWorksAppDataSource - { _opsWorksAppDataSourceArn :: Maybe (Val Text) - , _opsWorksAppDataSourceDatabaseName :: Maybe (Val Text) - , _opsWorksAppDataSourceType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON OpsWorksAppDataSource where - toJSON OpsWorksAppDataSource{..} = - object $ - catMaybes - [ fmap (("Arn",) . toJSON) _opsWorksAppDataSourceArn - , fmap (("DatabaseName",) . toJSON) _opsWorksAppDataSourceDatabaseName - , fmap (("Type",) . toJSON) _opsWorksAppDataSourceType - ] - --- | Constructor for 'OpsWorksAppDataSource' containing required fields as --- arguments. -opsWorksAppDataSource - :: OpsWorksAppDataSource -opsWorksAppDataSource = - OpsWorksAppDataSource - { _opsWorksAppDataSourceArn = Nothing - , _opsWorksAppDataSourceDatabaseName = Nothing - , _opsWorksAppDataSourceType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-app-datasource.html#cfn-opsworks-app-datasource-arn -owadsArn :: Lens' OpsWorksAppDataSource (Maybe (Val Text)) -owadsArn = lens _opsWorksAppDataSourceArn (\s a -> s { _opsWorksAppDataSourceArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-app-datasource.html#cfn-opsworks-app-datasource-databasename -owadsDatabaseName :: Lens' OpsWorksAppDataSource (Maybe (Val Text)) -owadsDatabaseName = lens _opsWorksAppDataSourceDatabaseName (\s a -> s { _opsWorksAppDataSourceDatabaseName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-app-datasource.html#cfn-opsworks-app-datasource-type -owadsType :: Lens' OpsWorksAppDataSource (Maybe (Val Text)) -owadsType = lens _opsWorksAppDataSourceType (\s a -> s { _opsWorksAppDataSourceType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/OpsWorksAppEnvironmentVariable.hs b/library-gen/Stratosphere/ResourceProperties/OpsWorksAppEnvironmentVariable.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/OpsWorksAppEnvironmentVariable.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-app-environment.html - -module Stratosphere.ResourceProperties.OpsWorksAppEnvironmentVariable where - -import Stratosphere.ResourceImports - - --- | Full data type definition for OpsWorksAppEnvironmentVariable. See --- 'opsWorksAppEnvironmentVariable' for a more convenient constructor. -data OpsWorksAppEnvironmentVariable = - OpsWorksAppEnvironmentVariable - { _opsWorksAppEnvironmentVariableKey :: Val Text - , _opsWorksAppEnvironmentVariableSecure :: Maybe (Val Bool) - , _opsWorksAppEnvironmentVariableValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON OpsWorksAppEnvironmentVariable where - toJSON OpsWorksAppEnvironmentVariable{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _opsWorksAppEnvironmentVariableKey - , fmap (("Secure",) . toJSON) _opsWorksAppEnvironmentVariableSecure - , (Just . ("Value",) . toJSON) _opsWorksAppEnvironmentVariableValue - ] - --- | Constructor for 'OpsWorksAppEnvironmentVariable' containing required --- fields as arguments. -opsWorksAppEnvironmentVariable - :: Val Text -- ^ 'owaevKey' - -> Val Text -- ^ 'owaevValue' - -> OpsWorksAppEnvironmentVariable -opsWorksAppEnvironmentVariable keyarg valuearg = - OpsWorksAppEnvironmentVariable - { _opsWorksAppEnvironmentVariableKey = keyarg - , _opsWorksAppEnvironmentVariableSecure = Nothing - , _opsWorksAppEnvironmentVariableValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-app-environment.html#cfn-opsworks-app-environment-key -owaevKey :: Lens' OpsWorksAppEnvironmentVariable (Val Text) -owaevKey = lens _opsWorksAppEnvironmentVariableKey (\s a -> s { _opsWorksAppEnvironmentVariableKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-app-environment.html#cfn-opsworks-app-environment-secure -owaevSecure :: Lens' OpsWorksAppEnvironmentVariable (Maybe (Val Bool)) -owaevSecure = lens _opsWorksAppEnvironmentVariableSecure (\s a -> s { _opsWorksAppEnvironmentVariableSecure = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-app-environment.html#value -owaevValue :: Lens' OpsWorksAppEnvironmentVariable (Val Text) -owaevValue = lens _opsWorksAppEnvironmentVariableValue (\s a -> s { _opsWorksAppEnvironmentVariableValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/OpsWorksAppSource.hs b/library-gen/Stratosphere/ResourceProperties/OpsWorksAppSource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/OpsWorksAppSource.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-stack-source.html - -module Stratosphere.ResourceProperties.OpsWorksAppSource where - -import Stratosphere.ResourceImports - - --- | Full data type definition for OpsWorksAppSource. See 'opsWorksAppSource' --- for a more convenient constructor. -data OpsWorksAppSource = - OpsWorksAppSource - { _opsWorksAppSourcePassword :: Maybe (Val Text) - , _opsWorksAppSourceRevision :: Maybe (Val Text) - , _opsWorksAppSourceSshKey :: Maybe (Val Text) - , _opsWorksAppSourceType :: Maybe (Val Text) - , _opsWorksAppSourceUrl :: Maybe (Val Text) - , _opsWorksAppSourceUsername :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON OpsWorksAppSource where - toJSON OpsWorksAppSource{..} = - object $ - catMaybes - [ fmap (("Password",) . toJSON) _opsWorksAppSourcePassword - , fmap (("Revision",) . toJSON) _opsWorksAppSourceRevision - , fmap (("SshKey",) . toJSON) _opsWorksAppSourceSshKey - , fmap (("Type",) . toJSON) _opsWorksAppSourceType - , fmap (("Url",) . toJSON) _opsWorksAppSourceUrl - , fmap (("Username",) . toJSON) _opsWorksAppSourceUsername - ] - --- | Constructor for 'OpsWorksAppSource' containing required fields as --- arguments. -opsWorksAppSource - :: OpsWorksAppSource -opsWorksAppSource = - OpsWorksAppSource - { _opsWorksAppSourcePassword = Nothing - , _opsWorksAppSourceRevision = Nothing - , _opsWorksAppSourceSshKey = Nothing - , _opsWorksAppSourceType = Nothing - , _opsWorksAppSourceUrl = Nothing - , _opsWorksAppSourceUsername = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-stack-source.html#cfn-opsworks-custcookbooksource-pw -owasPassword :: Lens' OpsWorksAppSource (Maybe (Val Text)) -owasPassword = lens _opsWorksAppSourcePassword (\s a -> s { _opsWorksAppSourcePassword = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-stack-source.html#cfn-opsworks-custcookbooksource-revision -owasRevision :: Lens' OpsWorksAppSource (Maybe (Val Text)) -owasRevision = lens _opsWorksAppSourceRevision (\s a -> s { _opsWorksAppSourceRevision = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-stack-source.html#cfn-opsworks-custcookbooksource-sshkey -owasSshKey :: Lens' OpsWorksAppSource (Maybe (Val Text)) -owasSshKey = lens _opsWorksAppSourceSshKey (\s a -> s { _opsWorksAppSourceSshKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-stack-source.html#cfn-opsworks-custcookbooksource-type -owasType :: Lens' OpsWorksAppSource (Maybe (Val Text)) -owasType = lens _opsWorksAppSourceType (\s a -> s { _opsWorksAppSourceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-stack-source.html#cfn-opsworks-custcookbooksource-url -owasUrl :: Lens' OpsWorksAppSource (Maybe (Val Text)) -owasUrl = lens _opsWorksAppSourceUrl (\s a -> s { _opsWorksAppSourceUrl = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-stack-source.html#cfn-opsworks-custcookbooksource-username -owasUsername :: Lens' OpsWorksAppSource (Maybe (Val Text)) -owasUsername = lens _opsWorksAppSourceUsername (\s a -> s { _opsWorksAppSourceUsername = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/OpsWorksAppSslConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/OpsWorksAppSslConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/OpsWorksAppSslConfiguration.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-app-sslconfiguration.html - -module Stratosphere.ResourceProperties.OpsWorksAppSslConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for OpsWorksAppSslConfiguration. See --- 'opsWorksAppSslConfiguration' for a more convenient constructor. -data OpsWorksAppSslConfiguration = - OpsWorksAppSslConfiguration - { _opsWorksAppSslConfigurationCertificate :: Maybe (Val Text) - , _opsWorksAppSslConfigurationChain :: Maybe (Val Text) - , _opsWorksAppSslConfigurationPrivateKey :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON OpsWorksAppSslConfiguration where - toJSON OpsWorksAppSslConfiguration{..} = - object $ - catMaybes - [ fmap (("Certificate",) . toJSON) _opsWorksAppSslConfigurationCertificate - , fmap (("Chain",) . toJSON) _opsWorksAppSslConfigurationChain - , fmap (("PrivateKey",) . toJSON) _opsWorksAppSslConfigurationPrivateKey - ] - --- | Constructor for 'OpsWorksAppSslConfiguration' containing required fields --- as arguments. -opsWorksAppSslConfiguration - :: OpsWorksAppSslConfiguration -opsWorksAppSslConfiguration = - OpsWorksAppSslConfiguration - { _opsWorksAppSslConfigurationCertificate = Nothing - , _opsWorksAppSslConfigurationChain = Nothing - , _opsWorksAppSslConfigurationPrivateKey = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-app-sslconfiguration.html#cfn-opsworks-app-sslconfig-certificate -owascCertificate :: Lens' OpsWorksAppSslConfiguration (Maybe (Val Text)) -owascCertificate = lens _opsWorksAppSslConfigurationCertificate (\s a -> s { _opsWorksAppSslConfigurationCertificate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-app-sslconfiguration.html#cfn-opsworks-app-sslconfig-chain -owascChain :: Lens' OpsWorksAppSslConfiguration (Maybe (Val Text)) -owascChain = lens _opsWorksAppSslConfigurationChain (\s a -> s { _opsWorksAppSslConfigurationChain = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-app-sslconfiguration.html#cfn-opsworks-app-sslconfig-privatekey -owascPrivateKey :: Lens' OpsWorksAppSslConfiguration (Maybe (Val Text)) -owascPrivateKey = lens _opsWorksAppSslConfigurationPrivateKey (\s a -> s { _opsWorksAppSslConfigurationPrivateKey = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/OpsWorksCMServerEngineAttribute.hs b/library-gen/Stratosphere/ResourceProperties/OpsWorksCMServerEngineAttribute.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/OpsWorksCMServerEngineAttribute.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworkscm-server-engineattribute.html - -module Stratosphere.ResourceProperties.OpsWorksCMServerEngineAttribute where - -import Stratosphere.ResourceImports - - --- | Full data type definition for OpsWorksCMServerEngineAttribute. See --- 'opsWorksCMServerEngineAttribute' for a more convenient constructor. -data OpsWorksCMServerEngineAttribute = - OpsWorksCMServerEngineAttribute - { _opsWorksCMServerEngineAttributeName :: Maybe (Val Text) - , _opsWorksCMServerEngineAttributeValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON OpsWorksCMServerEngineAttribute where - toJSON OpsWorksCMServerEngineAttribute{..} = - object $ - catMaybes - [ fmap (("Name",) . toJSON) _opsWorksCMServerEngineAttributeName - , fmap (("Value",) . toJSON) _opsWorksCMServerEngineAttributeValue - ] - --- | Constructor for 'OpsWorksCMServerEngineAttribute' containing required --- fields as arguments. -opsWorksCMServerEngineAttribute - :: OpsWorksCMServerEngineAttribute -opsWorksCMServerEngineAttribute = - OpsWorksCMServerEngineAttribute - { _opsWorksCMServerEngineAttributeName = Nothing - , _opsWorksCMServerEngineAttributeValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworkscm-server-engineattribute.html#cfn-opsworkscm-server-engineattribute-name -owcmseaName :: Lens' OpsWorksCMServerEngineAttribute (Maybe (Val Text)) -owcmseaName = lens _opsWorksCMServerEngineAttributeName (\s a -> s { _opsWorksCMServerEngineAttributeName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworkscm-server-engineattribute.html#cfn-opsworkscm-server-engineattribute-value -owcmseaValue :: Lens' OpsWorksCMServerEngineAttribute (Maybe (Val Text)) -owcmseaValue = lens _opsWorksCMServerEngineAttributeValue (\s a -> s { _opsWorksCMServerEngineAttributeValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/OpsWorksInstanceBlockDeviceMapping.hs b/library-gen/Stratosphere/ResourceProperties/OpsWorksInstanceBlockDeviceMapping.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/OpsWorksInstanceBlockDeviceMapping.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-instance-blockdevicemapping.html - -module Stratosphere.ResourceProperties.OpsWorksInstanceBlockDeviceMapping where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.OpsWorksInstanceEbsBlockDevice - --- | Full data type definition for OpsWorksInstanceBlockDeviceMapping. See --- 'opsWorksInstanceBlockDeviceMapping' for a more convenient constructor. -data OpsWorksInstanceBlockDeviceMapping = - OpsWorksInstanceBlockDeviceMapping - { _opsWorksInstanceBlockDeviceMappingDeviceName :: Maybe (Val Text) - , _opsWorksInstanceBlockDeviceMappingEbs :: Maybe OpsWorksInstanceEbsBlockDevice - , _opsWorksInstanceBlockDeviceMappingNoDevice :: Maybe (Val Text) - , _opsWorksInstanceBlockDeviceMappingVirtualName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON OpsWorksInstanceBlockDeviceMapping where - toJSON OpsWorksInstanceBlockDeviceMapping{..} = - object $ - catMaybes - [ fmap (("DeviceName",) . toJSON) _opsWorksInstanceBlockDeviceMappingDeviceName - , fmap (("Ebs",) . toJSON) _opsWorksInstanceBlockDeviceMappingEbs - , fmap (("NoDevice",) . toJSON) _opsWorksInstanceBlockDeviceMappingNoDevice - , fmap (("VirtualName",) . toJSON) _opsWorksInstanceBlockDeviceMappingVirtualName - ] - --- | Constructor for 'OpsWorksInstanceBlockDeviceMapping' containing required --- fields as arguments. -opsWorksInstanceBlockDeviceMapping - :: OpsWorksInstanceBlockDeviceMapping -opsWorksInstanceBlockDeviceMapping = - OpsWorksInstanceBlockDeviceMapping - { _opsWorksInstanceBlockDeviceMappingDeviceName = Nothing - , _opsWorksInstanceBlockDeviceMappingEbs = Nothing - , _opsWorksInstanceBlockDeviceMappingNoDevice = Nothing - , _opsWorksInstanceBlockDeviceMappingVirtualName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-instance-blockdevicemapping.html#cfn-opsworks-instance-blockdevicemapping-devicename -owibdmDeviceName :: Lens' OpsWorksInstanceBlockDeviceMapping (Maybe (Val Text)) -owibdmDeviceName = lens _opsWorksInstanceBlockDeviceMappingDeviceName (\s a -> s { _opsWorksInstanceBlockDeviceMappingDeviceName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-instance-blockdevicemapping.html#cfn-opsworks-instance-blockdevicemapping-ebs -owibdmEbs :: Lens' OpsWorksInstanceBlockDeviceMapping (Maybe OpsWorksInstanceEbsBlockDevice) -owibdmEbs = lens _opsWorksInstanceBlockDeviceMappingEbs (\s a -> s { _opsWorksInstanceBlockDeviceMappingEbs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-instance-blockdevicemapping.html#cfn-opsworks-instance-blockdevicemapping-nodevice -owibdmNoDevice :: Lens' OpsWorksInstanceBlockDeviceMapping (Maybe (Val Text)) -owibdmNoDevice = lens _opsWorksInstanceBlockDeviceMappingNoDevice (\s a -> s { _opsWorksInstanceBlockDeviceMappingNoDevice = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-instance-blockdevicemapping.html#cfn-opsworks-instance-blockdevicemapping-virtualname -owibdmVirtualName :: Lens' OpsWorksInstanceBlockDeviceMapping (Maybe (Val Text)) -owibdmVirtualName = lens _opsWorksInstanceBlockDeviceMappingVirtualName (\s a -> s { _opsWorksInstanceBlockDeviceMappingVirtualName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/OpsWorksInstanceEbsBlockDevice.hs b/library-gen/Stratosphere/ResourceProperties/OpsWorksInstanceEbsBlockDevice.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/OpsWorksInstanceEbsBlockDevice.hs +++ /dev/null @@ -1,66 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-instance-ebsblockdevice.html - -module Stratosphere.ResourceProperties.OpsWorksInstanceEbsBlockDevice where - -import Stratosphere.ResourceImports - - --- | Full data type definition for OpsWorksInstanceEbsBlockDevice. See --- 'opsWorksInstanceEbsBlockDevice' for a more convenient constructor. -data OpsWorksInstanceEbsBlockDevice = - OpsWorksInstanceEbsBlockDevice - { _opsWorksInstanceEbsBlockDeviceDeleteOnTermination :: Maybe (Val Bool) - , _opsWorksInstanceEbsBlockDeviceIops :: Maybe (Val Integer) - , _opsWorksInstanceEbsBlockDeviceSnapshotId :: Maybe (Val Text) - , _opsWorksInstanceEbsBlockDeviceVolumeSize :: Maybe (Val Integer) - , _opsWorksInstanceEbsBlockDeviceVolumeType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON OpsWorksInstanceEbsBlockDevice where - toJSON OpsWorksInstanceEbsBlockDevice{..} = - object $ - catMaybes - [ fmap (("DeleteOnTermination",) . toJSON) _opsWorksInstanceEbsBlockDeviceDeleteOnTermination - , fmap (("Iops",) . toJSON) _opsWorksInstanceEbsBlockDeviceIops - , fmap (("SnapshotId",) . toJSON) _opsWorksInstanceEbsBlockDeviceSnapshotId - , fmap (("VolumeSize",) . toJSON) _opsWorksInstanceEbsBlockDeviceVolumeSize - , fmap (("VolumeType",) . toJSON) _opsWorksInstanceEbsBlockDeviceVolumeType - ] - --- | Constructor for 'OpsWorksInstanceEbsBlockDevice' containing required --- fields as arguments. -opsWorksInstanceEbsBlockDevice - :: OpsWorksInstanceEbsBlockDevice -opsWorksInstanceEbsBlockDevice = - OpsWorksInstanceEbsBlockDevice - { _opsWorksInstanceEbsBlockDeviceDeleteOnTermination = Nothing - , _opsWorksInstanceEbsBlockDeviceIops = Nothing - , _opsWorksInstanceEbsBlockDeviceSnapshotId = Nothing - , _opsWorksInstanceEbsBlockDeviceVolumeSize = Nothing - , _opsWorksInstanceEbsBlockDeviceVolumeType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-instance-ebsblockdevice.html#cfn-opsworks-instance-ebsblockdevice-deleteontermination -owiebdDeleteOnTermination :: Lens' OpsWorksInstanceEbsBlockDevice (Maybe (Val Bool)) -owiebdDeleteOnTermination = lens _opsWorksInstanceEbsBlockDeviceDeleteOnTermination (\s a -> s { _opsWorksInstanceEbsBlockDeviceDeleteOnTermination = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-instance-ebsblockdevice.html#cfn-opsworks-instance-ebsblockdevice-iops -owiebdIops :: Lens' OpsWorksInstanceEbsBlockDevice (Maybe (Val Integer)) -owiebdIops = lens _opsWorksInstanceEbsBlockDeviceIops (\s a -> s { _opsWorksInstanceEbsBlockDeviceIops = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-instance-ebsblockdevice.html#cfn-opsworks-instance-ebsblockdevice-snapshotid -owiebdSnapshotId :: Lens' OpsWorksInstanceEbsBlockDevice (Maybe (Val Text)) -owiebdSnapshotId = lens _opsWorksInstanceEbsBlockDeviceSnapshotId (\s a -> s { _opsWorksInstanceEbsBlockDeviceSnapshotId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-instance-ebsblockdevice.html#cfn-opsworks-instance-ebsblockdevice-volumesize -owiebdVolumeSize :: Lens' OpsWorksInstanceEbsBlockDevice (Maybe (Val Integer)) -owiebdVolumeSize = lens _opsWorksInstanceEbsBlockDeviceVolumeSize (\s a -> s { _opsWorksInstanceEbsBlockDeviceVolumeSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-instance-ebsblockdevice.html#cfn-opsworks-instance-ebsblockdevice-volumetype -owiebdVolumeType :: Lens' OpsWorksInstanceEbsBlockDevice (Maybe (Val Text)) -owiebdVolumeType = lens _opsWorksInstanceEbsBlockDeviceVolumeType (\s a -> s { _opsWorksInstanceEbsBlockDeviceVolumeType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/OpsWorksInstanceTimeBasedAutoScaling.hs b/library-gen/Stratosphere/ResourceProperties/OpsWorksInstanceTimeBasedAutoScaling.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/OpsWorksInstanceTimeBasedAutoScaling.hs +++ /dev/null @@ -1,80 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-instance-timebasedautoscaling.html - -module Stratosphere.ResourceProperties.OpsWorksInstanceTimeBasedAutoScaling where - -import Stratosphere.ResourceImports - - --- | Full data type definition for OpsWorksInstanceTimeBasedAutoScaling. See --- 'opsWorksInstanceTimeBasedAutoScaling' for a more convenient constructor. -data OpsWorksInstanceTimeBasedAutoScaling = - OpsWorksInstanceTimeBasedAutoScaling - { _opsWorksInstanceTimeBasedAutoScalingFriday :: Maybe Object - , _opsWorksInstanceTimeBasedAutoScalingMonday :: Maybe Object - , _opsWorksInstanceTimeBasedAutoScalingSaturday :: Maybe Object - , _opsWorksInstanceTimeBasedAutoScalingSunday :: Maybe Object - , _opsWorksInstanceTimeBasedAutoScalingThursday :: Maybe Object - , _opsWorksInstanceTimeBasedAutoScalingTuesday :: Maybe Object - , _opsWorksInstanceTimeBasedAutoScalingWednesday :: Maybe Object - } deriving (Show, Eq) - -instance ToJSON OpsWorksInstanceTimeBasedAutoScaling where - toJSON OpsWorksInstanceTimeBasedAutoScaling{..} = - object $ - catMaybes - [ fmap (("Friday",) . toJSON) _opsWorksInstanceTimeBasedAutoScalingFriday - , fmap (("Monday",) . toJSON) _opsWorksInstanceTimeBasedAutoScalingMonday - , fmap (("Saturday",) . toJSON) _opsWorksInstanceTimeBasedAutoScalingSaturday - , fmap (("Sunday",) . toJSON) _opsWorksInstanceTimeBasedAutoScalingSunday - , fmap (("Thursday",) . toJSON) _opsWorksInstanceTimeBasedAutoScalingThursday - , fmap (("Tuesday",) . toJSON) _opsWorksInstanceTimeBasedAutoScalingTuesday - , fmap (("Wednesday",) . toJSON) _opsWorksInstanceTimeBasedAutoScalingWednesday - ] - --- | Constructor for 'OpsWorksInstanceTimeBasedAutoScaling' containing --- required fields as arguments. -opsWorksInstanceTimeBasedAutoScaling - :: OpsWorksInstanceTimeBasedAutoScaling -opsWorksInstanceTimeBasedAutoScaling = - OpsWorksInstanceTimeBasedAutoScaling - { _opsWorksInstanceTimeBasedAutoScalingFriday = Nothing - , _opsWorksInstanceTimeBasedAutoScalingMonday = Nothing - , _opsWorksInstanceTimeBasedAutoScalingSaturday = Nothing - , _opsWorksInstanceTimeBasedAutoScalingSunday = Nothing - , _opsWorksInstanceTimeBasedAutoScalingThursday = Nothing - , _opsWorksInstanceTimeBasedAutoScalingTuesday = Nothing - , _opsWorksInstanceTimeBasedAutoScalingWednesday = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-instance-timebasedautoscaling.html#cfn-opsworks-instance-timebasedautoscaling-friday -owitbasFriday :: Lens' OpsWorksInstanceTimeBasedAutoScaling (Maybe Object) -owitbasFriday = lens _opsWorksInstanceTimeBasedAutoScalingFriday (\s a -> s { _opsWorksInstanceTimeBasedAutoScalingFriday = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-instance-timebasedautoscaling.html#cfn-opsworks-instance-timebasedautoscaling-monday -owitbasMonday :: Lens' OpsWorksInstanceTimeBasedAutoScaling (Maybe Object) -owitbasMonday = lens _opsWorksInstanceTimeBasedAutoScalingMonday (\s a -> s { _opsWorksInstanceTimeBasedAutoScalingMonday = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-instance-timebasedautoscaling.html#cfn-opsworks-instance-timebasedautoscaling-saturday -owitbasSaturday :: Lens' OpsWorksInstanceTimeBasedAutoScaling (Maybe Object) -owitbasSaturday = lens _opsWorksInstanceTimeBasedAutoScalingSaturday (\s a -> s { _opsWorksInstanceTimeBasedAutoScalingSaturday = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-instance-timebasedautoscaling.html#cfn-opsworks-instance-timebasedautoscaling-sunday -owitbasSunday :: Lens' OpsWorksInstanceTimeBasedAutoScaling (Maybe Object) -owitbasSunday = lens _opsWorksInstanceTimeBasedAutoScalingSunday (\s a -> s { _opsWorksInstanceTimeBasedAutoScalingSunday = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-instance-timebasedautoscaling.html#cfn-opsworks-instance-timebasedautoscaling-thursday -owitbasThursday :: Lens' OpsWorksInstanceTimeBasedAutoScaling (Maybe Object) -owitbasThursday = lens _opsWorksInstanceTimeBasedAutoScalingThursday (\s a -> s { _opsWorksInstanceTimeBasedAutoScalingThursday = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-instance-timebasedautoscaling.html#cfn-opsworks-instance-timebasedautoscaling-tuesday -owitbasTuesday :: Lens' OpsWorksInstanceTimeBasedAutoScaling (Maybe Object) -owitbasTuesday = lens _opsWorksInstanceTimeBasedAutoScalingTuesday (\s a -> s { _opsWorksInstanceTimeBasedAutoScalingTuesday = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-instance-timebasedautoscaling.html#cfn-opsworks-instance-timebasedautoscaling-wednesday -owitbasWednesday :: Lens' OpsWorksInstanceTimeBasedAutoScaling (Maybe Object) -owitbasWednesday = lens _opsWorksInstanceTimeBasedAutoScalingWednesday (\s a -> s { _opsWorksInstanceTimeBasedAutoScalingWednesday = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/OpsWorksLayerAutoScalingThresholds.hs b/library-gen/Stratosphere/ResourceProperties/OpsWorksLayerAutoScalingThresholds.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/OpsWorksLayerAutoScalingThresholds.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-loadbasedautoscaling-autoscalingthresholds.html - -module Stratosphere.ResourceProperties.OpsWorksLayerAutoScalingThresholds where - -import Stratosphere.ResourceImports - - --- | Full data type definition for OpsWorksLayerAutoScalingThresholds. See --- 'opsWorksLayerAutoScalingThresholds' for a more convenient constructor. -data OpsWorksLayerAutoScalingThresholds = - OpsWorksLayerAutoScalingThresholds - { _opsWorksLayerAutoScalingThresholdsCpuThreshold :: Maybe (Val Double) - , _opsWorksLayerAutoScalingThresholdsIgnoreMetricsTime :: Maybe (Val Integer) - , _opsWorksLayerAutoScalingThresholdsInstanceCount :: Maybe (Val Integer) - , _opsWorksLayerAutoScalingThresholdsLoadThreshold :: Maybe (Val Double) - , _opsWorksLayerAutoScalingThresholdsMemoryThreshold :: Maybe (Val Double) - , _opsWorksLayerAutoScalingThresholdsThresholdsWaitTime :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON OpsWorksLayerAutoScalingThresholds where - toJSON OpsWorksLayerAutoScalingThresholds{..} = - object $ - catMaybes - [ fmap (("CpuThreshold",) . toJSON) _opsWorksLayerAutoScalingThresholdsCpuThreshold - , fmap (("IgnoreMetricsTime",) . toJSON) _opsWorksLayerAutoScalingThresholdsIgnoreMetricsTime - , fmap (("InstanceCount",) . toJSON) _opsWorksLayerAutoScalingThresholdsInstanceCount - , fmap (("LoadThreshold",) . toJSON) _opsWorksLayerAutoScalingThresholdsLoadThreshold - , fmap (("MemoryThreshold",) . toJSON) _opsWorksLayerAutoScalingThresholdsMemoryThreshold - , fmap (("ThresholdsWaitTime",) . toJSON) _opsWorksLayerAutoScalingThresholdsThresholdsWaitTime - ] - --- | Constructor for 'OpsWorksLayerAutoScalingThresholds' containing required --- fields as arguments. -opsWorksLayerAutoScalingThresholds - :: OpsWorksLayerAutoScalingThresholds -opsWorksLayerAutoScalingThresholds = - OpsWorksLayerAutoScalingThresholds - { _opsWorksLayerAutoScalingThresholdsCpuThreshold = Nothing - , _opsWorksLayerAutoScalingThresholdsIgnoreMetricsTime = Nothing - , _opsWorksLayerAutoScalingThresholdsInstanceCount = Nothing - , _opsWorksLayerAutoScalingThresholdsLoadThreshold = Nothing - , _opsWorksLayerAutoScalingThresholdsMemoryThreshold = Nothing - , _opsWorksLayerAutoScalingThresholdsThresholdsWaitTime = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-loadbasedautoscaling-autoscalingthresholds.html#cfn-opsworks-layer-loadbasedautoscaling-autoscalingthresholds-cputhreshold -owlastCpuThreshold :: Lens' OpsWorksLayerAutoScalingThresholds (Maybe (Val Double)) -owlastCpuThreshold = lens _opsWorksLayerAutoScalingThresholdsCpuThreshold (\s a -> s { _opsWorksLayerAutoScalingThresholdsCpuThreshold = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-loadbasedautoscaling-autoscalingthresholds.html#cfn-opsworks-layer-loadbasedautoscaling-autoscalingthresholds-ignoremetricstime -owlastIgnoreMetricsTime :: Lens' OpsWorksLayerAutoScalingThresholds (Maybe (Val Integer)) -owlastIgnoreMetricsTime = lens _opsWorksLayerAutoScalingThresholdsIgnoreMetricsTime (\s a -> s { _opsWorksLayerAutoScalingThresholdsIgnoreMetricsTime = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-loadbasedautoscaling-autoscalingthresholds.html#cfn-opsworks-layer-loadbasedautoscaling-autoscalingthresholds-instancecount -owlastInstanceCount :: Lens' OpsWorksLayerAutoScalingThresholds (Maybe (Val Integer)) -owlastInstanceCount = lens _opsWorksLayerAutoScalingThresholdsInstanceCount (\s a -> s { _opsWorksLayerAutoScalingThresholdsInstanceCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-loadbasedautoscaling-autoscalingthresholds.html#cfn-opsworks-layer-loadbasedautoscaling-autoscalingthresholds-loadthreshold -owlastLoadThreshold :: Lens' OpsWorksLayerAutoScalingThresholds (Maybe (Val Double)) -owlastLoadThreshold = lens _opsWorksLayerAutoScalingThresholdsLoadThreshold (\s a -> s { _opsWorksLayerAutoScalingThresholdsLoadThreshold = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-loadbasedautoscaling-autoscalingthresholds.html#cfn-opsworks-layer-loadbasedautoscaling-autoscalingthresholds-memorythreshold -owlastMemoryThreshold :: Lens' OpsWorksLayerAutoScalingThresholds (Maybe (Val Double)) -owlastMemoryThreshold = lens _opsWorksLayerAutoScalingThresholdsMemoryThreshold (\s a -> s { _opsWorksLayerAutoScalingThresholdsMemoryThreshold = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-loadbasedautoscaling-autoscalingthresholds.html#cfn-opsworks-layer-loadbasedautoscaling-autoscalingthresholds-thresholdwaittime -owlastThresholdsWaitTime :: Lens' OpsWorksLayerAutoScalingThresholds (Maybe (Val Integer)) -owlastThresholdsWaitTime = lens _opsWorksLayerAutoScalingThresholdsThresholdsWaitTime (\s a -> s { _opsWorksLayerAutoScalingThresholdsThresholdsWaitTime = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/OpsWorksLayerLifecycleEventConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/OpsWorksLayerLifecycleEventConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/OpsWorksLayerLifecycleEventConfiguration.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-lifecycleeventconfiguration.html - -module Stratosphere.ResourceProperties.OpsWorksLayerLifecycleEventConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.OpsWorksLayerShutdownEventConfiguration - --- | Full data type definition for OpsWorksLayerLifecycleEventConfiguration. --- See 'opsWorksLayerLifecycleEventConfiguration' for a more convenient --- constructor. -data OpsWorksLayerLifecycleEventConfiguration = - OpsWorksLayerLifecycleEventConfiguration - { _opsWorksLayerLifecycleEventConfigurationShutdownEventConfiguration :: Maybe OpsWorksLayerShutdownEventConfiguration - } deriving (Show, Eq) - -instance ToJSON OpsWorksLayerLifecycleEventConfiguration where - toJSON OpsWorksLayerLifecycleEventConfiguration{..} = - object $ - catMaybes - [ fmap (("ShutdownEventConfiguration",) . toJSON) _opsWorksLayerLifecycleEventConfigurationShutdownEventConfiguration - ] - --- | Constructor for 'OpsWorksLayerLifecycleEventConfiguration' containing --- required fields as arguments. -opsWorksLayerLifecycleEventConfiguration - :: OpsWorksLayerLifecycleEventConfiguration -opsWorksLayerLifecycleEventConfiguration = - OpsWorksLayerLifecycleEventConfiguration - { _opsWorksLayerLifecycleEventConfigurationShutdownEventConfiguration = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-lifecycleeventconfiguration.html#cfn-opsworks-layer-lifecycleconfiguration-shutdowneventconfiguration -owllecShutdownEventConfiguration :: Lens' OpsWorksLayerLifecycleEventConfiguration (Maybe OpsWorksLayerShutdownEventConfiguration) -owllecShutdownEventConfiguration = lens _opsWorksLayerLifecycleEventConfigurationShutdownEventConfiguration (\s a -> s { _opsWorksLayerLifecycleEventConfigurationShutdownEventConfiguration = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/OpsWorksLayerLoadBasedAutoScaling.hs b/library-gen/Stratosphere/ResourceProperties/OpsWorksLayerLoadBasedAutoScaling.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/OpsWorksLayerLoadBasedAutoScaling.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-loadbasedautoscaling.html - -module Stratosphere.ResourceProperties.OpsWorksLayerLoadBasedAutoScaling where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.OpsWorksLayerAutoScalingThresholds - --- | Full data type definition for OpsWorksLayerLoadBasedAutoScaling. See --- 'opsWorksLayerLoadBasedAutoScaling' for a more convenient constructor. -data OpsWorksLayerLoadBasedAutoScaling = - OpsWorksLayerLoadBasedAutoScaling - { _opsWorksLayerLoadBasedAutoScalingDownScaling :: Maybe OpsWorksLayerAutoScalingThresholds - , _opsWorksLayerLoadBasedAutoScalingEnable :: Maybe (Val Bool) - , _opsWorksLayerLoadBasedAutoScalingUpScaling :: Maybe OpsWorksLayerAutoScalingThresholds - } deriving (Show, Eq) - -instance ToJSON OpsWorksLayerLoadBasedAutoScaling where - toJSON OpsWorksLayerLoadBasedAutoScaling{..} = - object $ - catMaybes - [ fmap (("DownScaling",) . toJSON) _opsWorksLayerLoadBasedAutoScalingDownScaling - , fmap (("Enable",) . toJSON) _opsWorksLayerLoadBasedAutoScalingEnable - , fmap (("UpScaling",) . toJSON) _opsWorksLayerLoadBasedAutoScalingUpScaling - ] - --- | Constructor for 'OpsWorksLayerLoadBasedAutoScaling' containing required --- fields as arguments. -opsWorksLayerLoadBasedAutoScaling - :: OpsWorksLayerLoadBasedAutoScaling -opsWorksLayerLoadBasedAutoScaling = - OpsWorksLayerLoadBasedAutoScaling - { _opsWorksLayerLoadBasedAutoScalingDownScaling = Nothing - , _opsWorksLayerLoadBasedAutoScalingEnable = Nothing - , _opsWorksLayerLoadBasedAutoScalingUpScaling = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-loadbasedautoscaling.html#cfn-opsworks-layer-loadbasedautoscaling-downscaling -owllbasDownScaling :: Lens' OpsWorksLayerLoadBasedAutoScaling (Maybe OpsWorksLayerAutoScalingThresholds) -owllbasDownScaling = lens _opsWorksLayerLoadBasedAutoScalingDownScaling (\s a -> s { _opsWorksLayerLoadBasedAutoScalingDownScaling = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-loadbasedautoscaling.html#cfn-opsworks-layer-loadbasedautoscaling-enable -owllbasEnable :: Lens' OpsWorksLayerLoadBasedAutoScaling (Maybe (Val Bool)) -owllbasEnable = lens _opsWorksLayerLoadBasedAutoScalingEnable (\s a -> s { _opsWorksLayerLoadBasedAutoScalingEnable = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-loadbasedautoscaling.html#cfn-opsworks-layer-loadbasedautoscaling-upscaling -owllbasUpScaling :: Lens' OpsWorksLayerLoadBasedAutoScaling (Maybe OpsWorksLayerAutoScalingThresholds) -owllbasUpScaling = lens _opsWorksLayerLoadBasedAutoScalingUpScaling (\s a -> s { _opsWorksLayerLoadBasedAutoScalingUpScaling = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/OpsWorksLayerRecipes.hs b/library-gen/Stratosphere/ResourceProperties/OpsWorksLayerRecipes.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/OpsWorksLayerRecipes.hs +++ /dev/null @@ -1,66 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-recipes.html - -module Stratosphere.ResourceProperties.OpsWorksLayerRecipes where - -import Stratosphere.ResourceImports - - --- | Full data type definition for OpsWorksLayerRecipes. See --- 'opsWorksLayerRecipes' for a more convenient constructor. -data OpsWorksLayerRecipes = - OpsWorksLayerRecipes - { _opsWorksLayerRecipesConfigure :: Maybe (ValList Text) - , _opsWorksLayerRecipesDeploy :: Maybe (ValList Text) - , _opsWorksLayerRecipesSetup :: Maybe (ValList Text) - , _opsWorksLayerRecipesShutdown :: Maybe (ValList Text) - , _opsWorksLayerRecipesUndeploy :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON OpsWorksLayerRecipes where - toJSON OpsWorksLayerRecipes{..} = - object $ - catMaybes - [ fmap (("Configure",) . toJSON) _opsWorksLayerRecipesConfigure - , fmap (("Deploy",) . toJSON) _opsWorksLayerRecipesDeploy - , fmap (("Setup",) . toJSON) _opsWorksLayerRecipesSetup - , fmap (("Shutdown",) . toJSON) _opsWorksLayerRecipesShutdown - , fmap (("Undeploy",) . toJSON) _opsWorksLayerRecipesUndeploy - ] - --- | Constructor for 'OpsWorksLayerRecipes' containing required fields as --- arguments. -opsWorksLayerRecipes - :: OpsWorksLayerRecipes -opsWorksLayerRecipes = - OpsWorksLayerRecipes - { _opsWorksLayerRecipesConfigure = Nothing - , _opsWorksLayerRecipesDeploy = Nothing - , _opsWorksLayerRecipesSetup = Nothing - , _opsWorksLayerRecipesShutdown = Nothing - , _opsWorksLayerRecipesUndeploy = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-recipes.html#cfn-opsworks-layer-customrecipes-configure -owlrConfigure :: Lens' OpsWorksLayerRecipes (Maybe (ValList Text)) -owlrConfigure = lens _opsWorksLayerRecipesConfigure (\s a -> s { _opsWorksLayerRecipesConfigure = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-recipes.html#cfn-opsworks-layer-customrecipes-deploy -owlrDeploy :: Lens' OpsWorksLayerRecipes (Maybe (ValList Text)) -owlrDeploy = lens _opsWorksLayerRecipesDeploy (\s a -> s { _opsWorksLayerRecipesDeploy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-recipes.html#cfn-opsworks-layer-customrecipes-setup -owlrSetup :: Lens' OpsWorksLayerRecipes (Maybe (ValList Text)) -owlrSetup = lens _opsWorksLayerRecipesSetup (\s a -> s { _opsWorksLayerRecipesSetup = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-recipes.html#cfn-opsworks-layer-customrecipes-shutdown -owlrShutdown :: Lens' OpsWorksLayerRecipes (Maybe (ValList Text)) -owlrShutdown = lens _opsWorksLayerRecipesShutdown (\s a -> s { _opsWorksLayerRecipesShutdown = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-recipes.html#cfn-opsworks-layer-customrecipes-undeploy -owlrUndeploy :: Lens' OpsWorksLayerRecipes (Maybe (ValList Text)) -owlrUndeploy = lens _opsWorksLayerRecipesUndeploy (\s a -> s { _opsWorksLayerRecipesUndeploy = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/OpsWorksLayerShutdownEventConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/OpsWorksLayerShutdownEventConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/OpsWorksLayerShutdownEventConfiguration.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-lifecycleeventconfiguration-shutdowneventconfiguration.html - -module Stratosphere.ResourceProperties.OpsWorksLayerShutdownEventConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for OpsWorksLayerShutdownEventConfiguration. --- See 'opsWorksLayerShutdownEventConfiguration' for a more convenient --- constructor. -data OpsWorksLayerShutdownEventConfiguration = - OpsWorksLayerShutdownEventConfiguration - { _opsWorksLayerShutdownEventConfigurationDelayUntilElbConnectionsDrained :: Maybe (Val Bool) - , _opsWorksLayerShutdownEventConfigurationExecutionTimeout :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON OpsWorksLayerShutdownEventConfiguration where - toJSON OpsWorksLayerShutdownEventConfiguration{..} = - object $ - catMaybes - [ fmap (("DelayUntilElbConnectionsDrained",) . toJSON) _opsWorksLayerShutdownEventConfigurationDelayUntilElbConnectionsDrained - , fmap (("ExecutionTimeout",) . toJSON) _opsWorksLayerShutdownEventConfigurationExecutionTimeout - ] - --- | Constructor for 'OpsWorksLayerShutdownEventConfiguration' containing --- required fields as arguments. -opsWorksLayerShutdownEventConfiguration - :: OpsWorksLayerShutdownEventConfiguration -opsWorksLayerShutdownEventConfiguration = - OpsWorksLayerShutdownEventConfiguration - { _opsWorksLayerShutdownEventConfigurationDelayUntilElbConnectionsDrained = Nothing - , _opsWorksLayerShutdownEventConfigurationExecutionTimeout = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-lifecycleeventconfiguration-shutdowneventconfiguration.html#cfn-opsworks-layer-lifecycleconfiguration-shutdowneventconfiguration-delayuntilelbconnectionsdrained -owlsecDelayUntilElbConnectionsDrained :: Lens' OpsWorksLayerShutdownEventConfiguration (Maybe (Val Bool)) -owlsecDelayUntilElbConnectionsDrained = lens _opsWorksLayerShutdownEventConfigurationDelayUntilElbConnectionsDrained (\s a -> s { _opsWorksLayerShutdownEventConfigurationDelayUntilElbConnectionsDrained = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-lifecycleeventconfiguration-shutdowneventconfiguration.html#cfn-opsworks-layer-lifecycleconfiguration-shutdowneventconfiguration-executiontimeout -owlsecExecutionTimeout :: Lens' OpsWorksLayerShutdownEventConfiguration (Maybe (Val Integer)) -owlsecExecutionTimeout = lens _opsWorksLayerShutdownEventConfigurationExecutionTimeout (\s a -> s { _opsWorksLayerShutdownEventConfigurationExecutionTimeout = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/OpsWorksLayerVolumeConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/OpsWorksLayerVolumeConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/OpsWorksLayerVolumeConfiguration.hs +++ /dev/null @@ -1,80 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-volumeconfiguration.html - -module Stratosphere.ResourceProperties.OpsWorksLayerVolumeConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for OpsWorksLayerVolumeConfiguration. See --- 'opsWorksLayerVolumeConfiguration' for a more convenient constructor. -data OpsWorksLayerVolumeConfiguration = - OpsWorksLayerVolumeConfiguration - { _opsWorksLayerVolumeConfigurationEncrypted :: Maybe (Val Bool) - , _opsWorksLayerVolumeConfigurationIops :: Maybe (Val Integer) - , _opsWorksLayerVolumeConfigurationMountPoint :: Maybe (Val Text) - , _opsWorksLayerVolumeConfigurationNumberOfDisks :: Maybe (Val Integer) - , _opsWorksLayerVolumeConfigurationRaidLevel :: Maybe (Val Integer) - , _opsWorksLayerVolumeConfigurationSize :: Maybe (Val Integer) - , _opsWorksLayerVolumeConfigurationVolumeType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON OpsWorksLayerVolumeConfiguration where - toJSON OpsWorksLayerVolumeConfiguration{..} = - object $ - catMaybes - [ fmap (("Encrypted",) . toJSON) _opsWorksLayerVolumeConfigurationEncrypted - , fmap (("Iops",) . toJSON) _opsWorksLayerVolumeConfigurationIops - , fmap (("MountPoint",) . toJSON) _opsWorksLayerVolumeConfigurationMountPoint - , fmap (("NumberOfDisks",) . toJSON) _opsWorksLayerVolumeConfigurationNumberOfDisks - , fmap (("RaidLevel",) . toJSON) _opsWorksLayerVolumeConfigurationRaidLevel - , fmap (("Size",) . toJSON) _opsWorksLayerVolumeConfigurationSize - , fmap (("VolumeType",) . toJSON) _opsWorksLayerVolumeConfigurationVolumeType - ] - --- | Constructor for 'OpsWorksLayerVolumeConfiguration' containing required --- fields as arguments. -opsWorksLayerVolumeConfiguration - :: OpsWorksLayerVolumeConfiguration -opsWorksLayerVolumeConfiguration = - OpsWorksLayerVolumeConfiguration - { _opsWorksLayerVolumeConfigurationEncrypted = Nothing - , _opsWorksLayerVolumeConfigurationIops = Nothing - , _opsWorksLayerVolumeConfigurationMountPoint = Nothing - , _opsWorksLayerVolumeConfigurationNumberOfDisks = Nothing - , _opsWorksLayerVolumeConfigurationRaidLevel = Nothing - , _opsWorksLayerVolumeConfigurationSize = Nothing - , _opsWorksLayerVolumeConfigurationVolumeType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-volumeconfiguration.html#cfn-opsworks-layer-volumeconfiguration-encrypted -owlvcEncrypted :: Lens' OpsWorksLayerVolumeConfiguration (Maybe (Val Bool)) -owlvcEncrypted = lens _opsWorksLayerVolumeConfigurationEncrypted (\s a -> s { _opsWorksLayerVolumeConfigurationEncrypted = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-volumeconfiguration.html#cfn-opsworks-layer-volconfig-iops -owlvcIops :: Lens' OpsWorksLayerVolumeConfiguration (Maybe (Val Integer)) -owlvcIops = lens _opsWorksLayerVolumeConfigurationIops (\s a -> s { _opsWorksLayerVolumeConfigurationIops = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-volumeconfiguration.html#cfn-opsworks-layer-volconfig-mountpoint -owlvcMountPoint :: Lens' OpsWorksLayerVolumeConfiguration (Maybe (Val Text)) -owlvcMountPoint = lens _opsWorksLayerVolumeConfigurationMountPoint (\s a -> s { _opsWorksLayerVolumeConfigurationMountPoint = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-volumeconfiguration.html#cfn-opsworks-layer-volconfig-numberofdisks -owlvcNumberOfDisks :: Lens' OpsWorksLayerVolumeConfiguration (Maybe (Val Integer)) -owlvcNumberOfDisks = lens _opsWorksLayerVolumeConfigurationNumberOfDisks (\s a -> s { _opsWorksLayerVolumeConfigurationNumberOfDisks = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-volumeconfiguration.html#cfn-opsworks-layer-volconfig-raidlevel -owlvcRaidLevel :: Lens' OpsWorksLayerVolumeConfiguration (Maybe (Val Integer)) -owlvcRaidLevel = lens _opsWorksLayerVolumeConfigurationRaidLevel (\s a -> s { _opsWorksLayerVolumeConfigurationRaidLevel = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-volumeconfiguration.html#cfn-opsworks-layer-volconfig-size -owlvcSize :: Lens' OpsWorksLayerVolumeConfiguration (Maybe (Val Integer)) -owlvcSize = lens _opsWorksLayerVolumeConfigurationSize (\s a -> s { _opsWorksLayerVolumeConfigurationSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-layer-volumeconfiguration.html#cfn-opsworks-layer-volconfig-volumetype -owlvcVolumeType :: Lens' OpsWorksLayerVolumeConfiguration (Maybe (Val Text)) -owlvcVolumeType = lens _opsWorksLayerVolumeConfigurationVolumeType (\s a -> s { _opsWorksLayerVolumeConfigurationVolumeType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/OpsWorksStackChefConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/OpsWorksStackChefConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/OpsWorksStackChefConfiguration.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-stack-chefconfiguration.html - -module Stratosphere.ResourceProperties.OpsWorksStackChefConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for OpsWorksStackChefConfiguration. See --- 'opsWorksStackChefConfiguration' for a more convenient constructor. -data OpsWorksStackChefConfiguration = - OpsWorksStackChefConfiguration - { _opsWorksStackChefConfigurationBerkshelfVersion :: Maybe (Val Text) - , _opsWorksStackChefConfigurationManageBerkshelf :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON OpsWorksStackChefConfiguration where - toJSON OpsWorksStackChefConfiguration{..} = - object $ - catMaybes - [ fmap (("BerkshelfVersion",) . toJSON) _opsWorksStackChefConfigurationBerkshelfVersion - , fmap (("ManageBerkshelf",) . toJSON) _opsWorksStackChefConfigurationManageBerkshelf - ] - --- | Constructor for 'OpsWorksStackChefConfiguration' containing required --- fields as arguments. -opsWorksStackChefConfiguration - :: OpsWorksStackChefConfiguration -opsWorksStackChefConfiguration = - OpsWorksStackChefConfiguration - { _opsWorksStackChefConfigurationBerkshelfVersion = Nothing - , _opsWorksStackChefConfigurationManageBerkshelf = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-stack-chefconfiguration.html#cfn-opsworks-chefconfiguration-berkshelfversion -owsccBerkshelfVersion :: Lens' OpsWorksStackChefConfiguration (Maybe (Val Text)) -owsccBerkshelfVersion = lens _opsWorksStackChefConfigurationBerkshelfVersion (\s a -> s { _opsWorksStackChefConfigurationBerkshelfVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-stack-chefconfiguration.html#cfn-opsworks-chefconfiguration-berkshelfversion -owsccManageBerkshelf :: Lens' OpsWorksStackChefConfiguration (Maybe (Val Bool)) -owsccManageBerkshelf = lens _opsWorksStackChefConfigurationManageBerkshelf (\s a -> s { _opsWorksStackChefConfigurationManageBerkshelf = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/OpsWorksStackElasticIp.hs b/library-gen/Stratosphere/ResourceProperties/OpsWorksStackElasticIp.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/OpsWorksStackElasticIp.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-stack-elasticip.html - -module Stratosphere.ResourceProperties.OpsWorksStackElasticIp where - -import Stratosphere.ResourceImports - - --- | Full data type definition for OpsWorksStackElasticIp. See --- 'opsWorksStackElasticIp' for a more convenient constructor. -data OpsWorksStackElasticIp = - OpsWorksStackElasticIp - { _opsWorksStackElasticIpIp :: Val Text - , _opsWorksStackElasticIpName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON OpsWorksStackElasticIp where - toJSON OpsWorksStackElasticIp{..} = - object $ - catMaybes - [ (Just . ("Ip",) . toJSON) _opsWorksStackElasticIpIp - , fmap (("Name",) . toJSON) _opsWorksStackElasticIpName - ] - --- | Constructor for 'OpsWorksStackElasticIp' containing required fields as --- arguments. -opsWorksStackElasticIp - :: Val Text -- ^ 'owseiIp' - -> OpsWorksStackElasticIp -opsWorksStackElasticIp iparg = - OpsWorksStackElasticIp - { _opsWorksStackElasticIpIp = iparg - , _opsWorksStackElasticIpName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-stack-elasticip.html#cfn-opsworks-stack-elasticip-ip -owseiIp :: Lens' OpsWorksStackElasticIp (Val Text) -owseiIp = lens _opsWorksStackElasticIpIp (\s a -> s { _opsWorksStackElasticIpIp = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-stack-elasticip.html#cfn-opsworks-stack-elasticip-name -owseiName :: Lens' OpsWorksStackElasticIp (Maybe (Val Text)) -owseiName = lens _opsWorksStackElasticIpName (\s a -> s { _opsWorksStackElasticIpName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/OpsWorksStackRdsDbInstance.hs b/library-gen/Stratosphere/ResourceProperties/OpsWorksStackRdsDbInstance.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/OpsWorksStackRdsDbInstance.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-stack-rdsdbinstance.html - -module Stratosphere.ResourceProperties.OpsWorksStackRdsDbInstance where - -import Stratosphere.ResourceImports - - --- | Full data type definition for OpsWorksStackRdsDbInstance. See --- 'opsWorksStackRdsDbInstance' for a more convenient constructor. -data OpsWorksStackRdsDbInstance = - OpsWorksStackRdsDbInstance - { _opsWorksStackRdsDbInstanceDbPassword :: Val Text - , _opsWorksStackRdsDbInstanceDbUser :: Val Text - , _opsWorksStackRdsDbInstanceRdsDbInstanceArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON OpsWorksStackRdsDbInstance where - toJSON OpsWorksStackRdsDbInstance{..} = - object $ - catMaybes - [ (Just . ("DbPassword",) . toJSON) _opsWorksStackRdsDbInstanceDbPassword - , (Just . ("DbUser",) . toJSON) _opsWorksStackRdsDbInstanceDbUser - , (Just . ("RdsDbInstanceArn",) . toJSON) _opsWorksStackRdsDbInstanceRdsDbInstanceArn - ] - --- | Constructor for 'OpsWorksStackRdsDbInstance' containing required fields --- as arguments. -opsWorksStackRdsDbInstance - :: Val Text -- ^ 'owsrdiDbPassword' - -> Val Text -- ^ 'owsrdiDbUser' - -> Val Text -- ^ 'owsrdiRdsDbInstanceArn' - -> OpsWorksStackRdsDbInstance -opsWorksStackRdsDbInstance dbPasswordarg dbUserarg rdsDbInstanceArnarg = - OpsWorksStackRdsDbInstance - { _opsWorksStackRdsDbInstanceDbPassword = dbPasswordarg - , _opsWorksStackRdsDbInstanceDbUser = dbUserarg - , _opsWorksStackRdsDbInstanceRdsDbInstanceArn = rdsDbInstanceArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-stack-rdsdbinstance.html#cfn-opsworks-stack-rdsdbinstance-dbpassword -owsrdiDbPassword :: Lens' OpsWorksStackRdsDbInstance (Val Text) -owsrdiDbPassword = lens _opsWorksStackRdsDbInstanceDbPassword (\s a -> s { _opsWorksStackRdsDbInstanceDbPassword = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-stack-rdsdbinstance.html#cfn-opsworks-stack-rdsdbinstance-dbuser -owsrdiDbUser :: Lens' OpsWorksStackRdsDbInstance (Val Text) -owsrdiDbUser = lens _opsWorksStackRdsDbInstanceDbUser (\s a -> s { _opsWorksStackRdsDbInstanceDbUser = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-stack-rdsdbinstance.html#cfn-opsworks-stack-rdsdbinstance-rdsdbinstancearn -owsrdiRdsDbInstanceArn :: Lens' OpsWorksStackRdsDbInstance (Val Text) -owsrdiRdsDbInstanceArn = lens _opsWorksStackRdsDbInstanceRdsDbInstanceArn (\s a -> s { _opsWorksStackRdsDbInstanceRdsDbInstanceArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/OpsWorksStackSource.hs b/library-gen/Stratosphere/ResourceProperties/OpsWorksStackSource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/OpsWorksStackSource.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-stack-source.html - -module Stratosphere.ResourceProperties.OpsWorksStackSource where - -import Stratosphere.ResourceImports - - --- | Full data type definition for OpsWorksStackSource. See --- 'opsWorksStackSource' for a more convenient constructor. -data OpsWorksStackSource = - OpsWorksStackSource - { _opsWorksStackSourcePassword :: Maybe (Val Text) - , _opsWorksStackSourceRevision :: Maybe (Val Text) - , _opsWorksStackSourceSshKey :: Maybe (Val Text) - , _opsWorksStackSourceType :: Maybe (Val Text) - , _opsWorksStackSourceUrl :: Maybe (Val Text) - , _opsWorksStackSourceUsername :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON OpsWorksStackSource where - toJSON OpsWorksStackSource{..} = - object $ - catMaybes - [ fmap (("Password",) . toJSON) _opsWorksStackSourcePassword - , fmap (("Revision",) . toJSON) _opsWorksStackSourceRevision - , fmap (("SshKey",) . toJSON) _opsWorksStackSourceSshKey - , fmap (("Type",) . toJSON) _opsWorksStackSourceType - , fmap (("Url",) . toJSON) _opsWorksStackSourceUrl - , fmap (("Username",) . toJSON) _opsWorksStackSourceUsername - ] - --- | Constructor for 'OpsWorksStackSource' containing required fields as --- arguments. -opsWorksStackSource - :: OpsWorksStackSource -opsWorksStackSource = - OpsWorksStackSource - { _opsWorksStackSourcePassword = Nothing - , _opsWorksStackSourceRevision = Nothing - , _opsWorksStackSourceSshKey = Nothing - , _opsWorksStackSourceType = Nothing - , _opsWorksStackSourceUrl = Nothing - , _opsWorksStackSourceUsername = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-stack-source.html#cfn-opsworks-custcookbooksource-password -owssPassword :: Lens' OpsWorksStackSource (Maybe (Val Text)) -owssPassword = lens _opsWorksStackSourcePassword (\s a -> s { _opsWorksStackSourcePassword = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-stack-source.html#cfn-opsworks-custcookbooksource-revision -owssRevision :: Lens' OpsWorksStackSource (Maybe (Val Text)) -owssRevision = lens _opsWorksStackSourceRevision (\s a -> s { _opsWorksStackSourceRevision = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-stack-source.html#cfn-opsworks-custcookbooksource-sshkey -owssSshKey :: Lens' OpsWorksStackSource (Maybe (Val Text)) -owssSshKey = lens _opsWorksStackSourceSshKey (\s a -> s { _opsWorksStackSourceSshKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-stack-source.html#cfn-opsworks-custcookbooksource-type -owssType :: Lens' OpsWorksStackSource (Maybe (Val Text)) -owssType = lens _opsWorksStackSourceType (\s a -> s { _opsWorksStackSourceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-stack-source.html#cfn-opsworks-custcookbooksource-url -owssUrl :: Lens' OpsWorksStackSource (Maybe (Val Text)) -owssUrl = lens _opsWorksStackSourceUrl (\s a -> s { _opsWorksStackSourceUrl = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-stack-source.html#cfn-opsworks-custcookbooksource-username -owssUsername :: Lens' OpsWorksStackSource (Maybe (Val Text)) -owssUsername = lens _opsWorksStackSourceUsername (\s a -> s { _opsWorksStackSourceUsername = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/OpsWorksStackStackConfigurationManager.hs b/library-gen/Stratosphere/ResourceProperties/OpsWorksStackStackConfigurationManager.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/OpsWorksStackStackConfigurationManager.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-stack-stackconfigmanager.html - -module Stratosphere.ResourceProperties.OpsWorksStackStackConfigurationManager where - -import Stratosphere.ResourceImports - - --- | Full data type definition for OpsWorksStackStackConfigurationManager. See --- 'opsWorksStackStackConfigurationManager' for a more convenient --- constructor. -data OpsWorksStackStackConfigurationManager = - OpsWorksStackStackConfigurationManager - { _opsWorksStackStackConfigurationManagerName :: Maybe (Val Text) - , _opsWorksStackStackConfigurationManagerVersion :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON OpsWorksStackStackConfigurationManager where - toJSON OpsWorksStackStackConfigurationManager{..} = - object $ - catMaybes - [ fmap (("Name",) . toJSON) _opsWorksStackStackConfigurationManagerName - , fmap (("Version",) . toJSON) _opsWorksStackStackConfigurationManagerVersion - ] - --- | Constructor for 'OpsWorksStackStackConfigurationManager' containing --- required fields as arguments. -opsWorksStackStackConfigurationManager - :: OpsWorksStackStackConfigurationManager -opsWorksStackStackConfigurationManager = - OpsWorksStackStackConfigurationManager - { _opsWorksStackStackConfigurationManagerName = Nothing - , _opsWorksStackStackConfigurationManagerVersion = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-stack-stackconfigmanager.html#cfn-opsworks-configmanager-name -owsscmName :: Lens' OpsWorksStackStackConfigurationManager (Maybe (Val Text)) -owsscmName = lens _opsWorksStackStackConfigurationManagerName (\s a -> s { _opsWorksStackStackConfigurationManagerName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-opsworks-stack-stackconfigmanager.html#cfn-opsworks-configmanager-version -owsscmVersion :: Lens' OpsWorksStackStackConfigurationManager (Maybe (Val Text)) -owsscmVersion = lens _opsWorksStackStackConfigurationManagerVersion (\s a -> s { _opsWorksStackStackConfigurationManagerVersion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointApplicationSettingsCampaignHook.hs b/library-gen/Stratosphere/ResourceProperties/PinpointApplicationSettingsCampaignHook.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointApplicationSettingsCampaignHook.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-applicationsettings-campaignhook.html - -module Stratosphere.ResourceProperties.PinpointApplicationSettingsCampaignHook where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointApplicationSettingsCampaignHook. --- See 'pinpointApplicationSettingsCampaignHook' for a more convenient --- constructor. -data PinpointApplicationSettingsCampaignHook = - PinpointApplicationSettingsCampaignHook - { _pinpointApplicationSettingsCampaignHookLambdaFunctionName :: Maybe (Val Text) - , _pinpointApplicationSettingsCampaignHookMode :: Maybe (Val Text) - , _pinpointApplicationSettingsCampaignHookWebUrl :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON PinpointApplicationSettingsCampaignHook where - toJSON PinpointApplicationSettingsCampaignHook{..} = - object $ - catMaybes - [ fmap (("LambdaFunctionName",) . toJSON) _pinpointApplicationSettingsCampaignHookLambdaFunctionName - , fmap (("Mode",) . toJSON) _pinpointApplicationSettingsCampaignHookMode - , fmap (("WebUrl",) . toJSON) _pinpointApplicationSettingsCampaignHookWebUrl - ] - --- | Constructor for 'PinpointApplicationSettingsCampaignHook' containing --- required fields as arguments. -pinpointApplicationSettingsCampaignHook - :: PinpointApplicationSettingsCampaignHook -pinpointApplicationSettingsCampaignHook = - PinpointApplicationSettingsCampaignHook - { _pinpointApplicationSettingsCampaignHookLambdaFunctionName = Nothing - , _pinpointApplicationSettingsCampaignHookMode = Nothing - , _pinpointApplicationSettingsCampaignHookWebUrl = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-applicationsettings-campaignhook.html#cfn-pinpoint-applicationsettings-campaignhook-lambdafunctionname -paschLambdaFunctionName :: Lens' PinpointApplicationSettingsCampaignHook (Maybe (Val Text)) -paschLambdaFunctionName = lens _pinpointApplicationSettingsCampaignHookLambdaFunctionName (\s a -> s { _pinpointApplicationSettingsCampaignHookLambdaFunctionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-applicationsettings-campaignhook.html#cfn-pinpoint-applicationsettings-campaignhook-mode -paschMode :: Lens' PinpointApplicationSettingsCampaignHook (Maybe (Val Text)) -paschMode = lens _pinpointApplicationSettingsCampaignHookMode (\s a -> s { _pinpointApplicationSettingsCampaignHookMode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-applicationsettings-campaignhook.html#cfn-pinpoint-applicationsettings-campaignhook-weburl -paschWebUrl :: Lens' PinpointApplicationSettingsCampaignHook (Maybe (Val Text)) -paschWebUrl = lens _pinpointApplicationSettingsCampaignHookWebUrl (\s a -> s { _pinpointApplicationSettingsCampaignHookWebUrl = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointApplicationSettingsLimits.hs b/library-gen/Stratosphere/ResourceProperties/PinpointApplicationSettingsLimits.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointApplicationSettingsLimits.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-applicationsettings-limits.html - -module Stratosphere.ResourceProperties.PinpointApplicationSettingsLimits where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointApplicationSettingsLimits. See --- 'pinpointApplicationSettingsLimits' for a more convenient constructor. -data PinpointApplicationSettingsLimits = - PinpointApplicationSettingsLimits - { _pinpointApplicationSettingsLimitsDaily :: Maybe (Val Integer) - , _pinpointApplicationSettingsLimitsMaximumDuration :: Maybe (Val Integer) - , _pinpointApplicationSettingsLimitsMessagesPerSecond :: Maybe (Val Integer) - , _pinpointApplicationSettingsLimitsTotal :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON PinpointApplicationSettingsLimits where - toJSON PinpointApplicationSettingsLimits{..} = - object $ - catMaybes - [ fmap (("Daily",) . toJSON) _pinpointApplicationSettingsLimitsDaily - , fmap (("MaximumDuration",) . toJSON) _pinpointApplicationSettingsLimitsMaximumDuration - , fmap (("MessagesPerSecond",) . toJSON) _pinpointApplicationSettingsLimitsMessagesPerSecond - , fmap (("Total",) . toJSON) _pinpointApplicationSettingsLimitsTotal - ] - --- | Constructor for 'PinpointApplicationSettingsLimits' containing required --- fields as arguments. -pinpointApplicationSettingsLimits - :: PinpointApplicationSettingsLimits -pinpointApplicationSettingsLimits = - PinpointApplicationSettingsLimits - { _pinpointApplicationSettingsLimitsDaily = Nothing - , _pinpointApplicationSettingsLimitsMaximumDuration = Nothing - , _pinpointApplicationSettingsLimitsMessagesPerSecond = Nothing - , _pinpointApplicationSettingsLimitsTotal = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-applicationsettings-limits.html#cfn-pinpoint-applicationsettings-limits-daily -paslDaily :: Lens' PinpointApplicationSettingsLimits (Maybe (Val Integer)) -paslDaily = lens _pinpointApplicationSettingsLimitsDaily (\s a -> s { _pinpointApplicationSettingsLimitsDaily = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-applicationsettings-limits.html#cfn-pinpoint-applicationsettings-limits-maximumduration -paslMaximumDuration :: Lens' PinpointApplicationSettingsLimits (Maybe (Val Integer)) -paslMaximumDuration = lens _pinpointApplicationSettingsLimitsMaximumDuration (\s a -> s { _pinpointApplicationSettingsLimitsMaximumDuration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-applicationsettings-limits.html#cfn-pinpoint-applicationsettings-limits-messagespersecond -paslMessagesPerSecond :: Lens' PinpointApplicationSettingsLimits (Maybe (Val Integer)) -paslMessagesPerSecond = lens _pinpointApplicationSettingsLimitsMessagesPerSecond (\s a -> s { _pinpointApplicationSettingsLimitsMessagesPerSecond = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-applicationsettings-limits.html#cfn-pinpoint-applicationsettings-limits-total -paslTotal :: Lens' PinpointApplicationSettingsLimits (Maybe (Val Integer)) -paslTotal = lens _pinpointApplicationSettingsLimitsTotal (\s a -> s { _pinpointApplicationSettingsLimitsTotal = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointApplicationSettingsQuietTime.hs b/library-gen/Stratosphere/ResourceProperties/PinpointApplicationSettingsQuietTime.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointApplicationSettingsQuietTime.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-applicationsettings-quiettime.html - -module Stratosphere.ResourceProperties.PinpointApplicationSettingsQuietTime where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointApplicationSettingsQuietTime. See --- 'pinpointApplicationSettingsQuietTime' for a more convenient constructor. -data PinpointApplicationSettingsQuietTime = - PinpointApplicationSettingsQuietTime - { _pinpointApplicationSettingsQuietTimeEnd :: Val Text - , _pinpointApplicationSettingsQuietTimeStart :: Val Text - } deriving (Show, Eq) - -instance ToJSON PinpointApplicationSettingsQuietTime where - toJSON PinpointApplicationSettingsQuietTime{..} = - object $ - catMaybes - [ (Just . ("End",) . toJSON) _pinpointApplicationSettingsQuietTimeEnd - , (Just . ("Start",) . toJSON) _pinpointApplicationSettingsQuietTimeStart - ] - --- | Constructor for 'PinpointApplicationSettingsQuietTime' containing --- required fields as arguments. -pinpointApplicationSettingsQuietTime - :: Val Text -- ^ 'pasqtEnd' - -> Val Text -- ^ 'pasqtStart' - -> PinpointApplicationSettingsQuietTime -pinpointApplicationSettingsQuietTime endarg startarg = - PinpointApplicationSettingsQuietTime - { _pinpointApplicationSettingsQuietTimeEnd = endarg - , _pinpointApplicationSettingsQuietTimeStart = startarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-applicationsettings-quiettime.html#cfn-pinpoint-applicationsettings-quiettime-end -pasqtEnd :: Lens' PinpointApplicationSettingsQuietTime (Val Text) -pasqtEnd = lens _pinpointApplicationSettingsQuietTimeEnd (\s a -> s { _pinpointApplicationSettingsQuietTimeEnd = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-applicationsettings-quiettime.html#cfn-pinpoint-applicationsettings-quiettime-start -pasqtStart :: Lens' PinpointApplicationSettingsQuietTime (Val Text) -pasqtStart = lens _pinpointApplicationSettingsQuietTimeStart (\s a -> s { _pinpointApplicationSettingsQuietTimeStart = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointCampaignAttributeDimension.hs b/library-gen/Stratosphere/ResourceProperties/PinpointCampaignAttributeDimension.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointCampaignAttributeDimension.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-attributedimension.html - -module Stratosphere.ResourceProperties.PinpointCampaignAttributeDimension where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointCampaignAttributeDimension. See --- 'pinpointCampaignAttributeDimension' for a more convenient constructor. -data PinpointCampaignAttributeDimension = - PinpointCampaignAttributeDimension - { _pinpointCampaignAttributeDimensionAttributeType :: Maybe (Val Text) - , _pinpointCampaignAttributeDimensionValues :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON PinpointCampaignAttributeDimension where - toJSON PinpointCampaignAttributeDimension{..} = - object $ - catMaybes - [ fmap (("AttributeType",) . toJSON) _pinpointCampaignAttributeDimensionAttributeType - , fmap (("Values",) . toJSON) _pinpointCampaignAttributeDimensionValues - ] - --- | Constructor for 'PinpointCampaignAttributeDimension' containing required --- fields as arguments. -pinpointCampaignAttributeDimension - :: PinpointCampaignAttributeDimension -pinpointCampaignAttributeDimension = - PinpointCampaignAttributeDimension - { _pinpointCampaignAttributeDimensionAttributeType = Nothing - , _pinpointCampaignAttributeDimensionValues = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-attributedimension.html#cfn-pinpoint-campaign-attributedimension-attributetype -pcadAttributeType :: Lens' PinpointCampaignAttributeDimension (Maybe (Val Text)) -pcadAttributeType = lens _pinpointCampaignAttributeDimensionAttributeType (\s a -> s { _pinpointCampaignAttributeDimensionAttributeType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-attributedimension.html#cfn-pinpoint-campaign-attributedimension-values -pcadValues :: Lens' PinpointCampaignAttributeDimension (Maybe (ValList Text)) -pcadValues = lens _pinpointCampaignAttributeDimensionValues (\s a -> s { _pinpointCampaignAttributeDimensionValues = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointCampaignCampaignEmailMessage.hs b/library-gen/Stratosphere/ResourceProperties/PinpointCampaignCampaignEmailMessage.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointCampaignCampaignEmailMessage.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaignemailmessage.html - -module Stratosphere.ResourceProperties.PinpointCampaignCampaignEmailMessage where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointCampaignCampaignEmailMessage. See --- 'pinpointCampaignCampaignEmailMessage' for a more convenient constructor. -data PinpointCampaignCampaignEmailMessage = - PinpointCampaignCampaignEmailMessage - { _pinpointCampaignCampaignEmailMessageBody :: Maybe (Val Text) - , _pinpointCampaignCampaignEmailMessageFromAddress :: Maybe (Val Text) - , _pinpointCampaignCampaignEmailMessageHtmlBody :: Maybe (Val Text) - , _pinpointCampaignCampaignEmailMessageTitle :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON PinpointCampaignCampaignEmailMessage where - toJSON PinpointCampaignCampaignEmailMessage{..} = - object $ - catMaybes - [ fmap (("Body",) . toJSON) _pinpointCampaignCampaignEmailMessageBody - , fmap (("FromAddress",) . toJSON) _pinpointCampaignCampaignEmailMessageFromAddress - , fmap (("HtmlBody",) . toJSON) _pinpointCampaignCampaignEmailMessageHtmlBody - , fmap (("Title",) . toJSON) _pinpointCampaignCampaignEmailMessageTitle - ] - --- | Constructor for 'PinpointCampaignCampaignEmailMessage' containing --- required fields as arguments. -pinpointCampaignCampaignEmailMessage - :: PinpointCampaignCampaignEmailMessage -pinpointCampaignCampaignEmailMessage = - PinpointCampaignCampaignEmailMessage - { _pinpointCampaignCampaignEmailMessageBody = Nothing - , _pinpointCampaignCampaignEmailMessageFromAddress = Nothing - , _pinpointCampaignCampaignEmailMessageHtmlBody = Nothing - , _pinpointCampaignCampaignEmailMessageTitle = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaignemailmessage.html#cfn-pinpoint-campaign-campaignemailmessage-body -pccemBody :: Lens' PinpointCampaignCampaignEmailMessage (Maybe (Val Text)) -pccemBody = lens _pinpointCampaignCampaignEmailMessageBody (\s a -> s { _pinpointCampaignCampaignEmailMessageBody = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaignemailmessage.html#cfn-pinpoint-campaign-campaignemailmessage-fromaddress -pccemFromAddress :: Lens' PinpointCampaignCampaignEmailMessage (Maybe (Val Text)) -pccemFromAddress = lens _pinpointCampaignCampaignEmailMessageFromAddress (\s a -> s { _pinpointCampaignCampaignEmailMessageFromAddress = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaignemailmessage.html#cfn-pinpoint-campaign-campaignemailmessage-htmlbody -pccemHtmlBody :: Lens' PinpointCampaignCampaignEmailMessage (Maybe (Val Text)) -pccemHtmlBody = lens _pinpointCampaignCampaignEmailMessageHtmlBody (\s a -> s { _pinpointCampaignCampaignEmailMessageHtmlBody = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaignemailmessage.html#cfn-pinpoint-campaign-campaignemailmessage-title -pccemTitle :: Lens' PinpointCampaignCampaignEmailMessage (Maybe (Val Text)) -pccemTitle = lens _pinpointCampaignCampaignEmailMessageTitle (\s a -> s { _pinpointCampaignCampaignEmailMessageTitle = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointCampaignCampaignEventFilter.hs b/library-gen/Stratosphere/ResourceProperties/PinpointCampaignCampaignEventFilter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointCampaignCampaignEventFilter.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaigneventfilter.html - -module Stratosphere.ResourceProperties.PinpointCampaignCampaignEventFilter where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.PinpointCampaignEventDimensions - --- | Full data type definition for PinpointCampaignCampaignEventFilter. See --- 'pinpointCampaignCampaignEventFilter' for a more convenient constructor. -data PinpointCampaignCampaignEventFilter = - PinpointCampaignCampaignEventFilter - { _pinpointCampaignCampaignEventFilterDimensions :: Maybe PinpointCampaignEventDimensions - , _pinpointCampaignCampaignEventFilterFilterType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON PinpointCampaignCampaignEventFilter where - toJSON PinpointCampaignCampaignEventFilter{..} = - object $ - catMaybes - [ fmap (("Dimensions",) . toJSON) _pinpointCampaignCampaignEventFilterDimensions - , fmap (("FilterType",) . toJSON) _pinpointCampaignCampaignEventFilterFilterType - ] - --- | Constructor for 'PinpointCampaignCampaignEventFilter' containing required --- fields as arguments. -pinpointCampaignCampaignEventFilter - :: PinpointCampaignCampaignEventFilter -pinpointCampaignCampaignEventFilter = - PinpointCampaignCampaignEventFilter - { _pinpointCampaignCampaignEventFilterDimensions = Nothing - , _pinpointCampaignCampaignEventFilterFilterType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaigneventfilter.html#cfn-pinpoint-campaign-campaigneventfilter-dimensions -pccefDimensions :: Lens' PinpointCampaignCampaignEventFilter (Maybe PinpointCampaignEventDimensions) -pccefDimensions = lens _pinpointCampaignCampaignEventFilterDimensions (\s a -> s { _pinpointCampaignCampaignEventFilterDimensions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaigneventfilter.html#cfn-pinpoint-campaign-campaigneventfilter-filtertype -pccefFilterType :: Lens' PinpointCampaignCampaignEventFilter (Maybe (Val Text)) -pccefFilterType = lens _pinpointCampaignCampaignEventFilterFilterType (\s a -> s { _pinpointCampaignCampaignEventFilterFilterType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointCampaignCampaignHook.hs b/library-gen/Stratosphere/ResourceProperties/PinpointCampaignCampaignHook.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointCampaignCampaignHook.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaignhook.html - -module Stratosphere.ResourceProperties.PinpointCampaignCampaignHook where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointCampaignCampaignHook. See --- 'pinpointCampaignCampaignHook' for a more convenient constructor. -data PinpointCampaignCampaignHook = - PinpointCampaignCampaignHook - { _pinpointCampaignCampaignHookLambdaFunctionName :: Maybe (Val Text) - , _pinpointCampaignCampaignHookMode :: Maybe (Val Text) - , _pinpointCampaignCampaignHookWebUrl :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON PinpointCampaignCampaignHook where - toJSON PinpointCampaignCampaignHook{..} = - object $ - catMaybes - [ fmap (("LambdaFunctionName",) . toJSON) _pinpointCampaignCampaignHookLambdaFunctionName - , fmap (("Mode",) . toJSON) _pinpointCampaignCampaignHookMode - , fmap (("WebUrl",) . toJSON) _pinpointCampaignCampaignHookWebUrl - ] - --- | Constructor for 'PinpointCampaignCampaignHook' containing required fields --- as arguments. -pinpointCampaignCampaignHook - :: PinpointCampaignCampaignHook -pinpointCampaignCampaignHook = - PinpointCampaignCampaignHook - { _pinpointCampaignCampaignHookLambdaFunctionName = Nothing - , _pinpointCampaignCampaignHookMode = Nothing - , _pinpointCampaignCampaignHookWebUrl = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaignhook.html#cfn-pinpoint-campaign-campaignhook-lambdafunctionname -pcchLambdaFunctionName :: Lens' PinpointCampaignCampaignHook (Maybe (Val Text)) -pcchLambdaFunctionName = lens _pinpointCampaignCampaignHookLambdaFunctionName (\s a -> s { _pinpointCampaignCampaignHookLambdaFunctionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaignhook.html#cfn-pinpoint-campaign-campaignhook-mode -pcchMode :: Lens' PinpointCampaignCampaignHook (Maybe (Val Text)) -pcchMode = lens _pinpointCampaignCampaignHookMode (\s a -> s { _pinpointCampaignCampaignHookMode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaignhook.html#cfn-pinpoint-campaign-campaignhook-weburl -pcchWebUrl :: Lens' PinpointCampaignCampaignHook (Maybe (Val Text)) -pcchWebUrl = lens _pinpointCampaignCampaignHookWebUrl (\s a -> s { _pinpointCampaignCampaignHookWebUrl = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointCampaignCampaignSmsMessage.hs b/library-gen/Stratosphere/ResourceProperties/PinpointCampaignCampaignSmsMessage.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointCampaignCampaignSmsMessage.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaignsmsmessage.html - -module Stratosphere.ResourceProperties.PinpointCampaignCampaignSmsMessage where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointCampaignCampaignSmsMessage. See --- 'pinpointCampaignCampaignSmsMessage' for a more convenient constructor. -data PinpointCampaignCampaignSmsMessage = - PinpointCampaignCampaignSmsMessage - { _pinpointCampaignCampaignSmsMessageBody :: Maybe (Val Text) - , _pinpointCampaignCampaignSmsMessageMessageType :: Maybe (Val Text) - , _pinpointCampaignCampaignSmsMessageSenderId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON PinpointCampaignCampaignSmsMessage where - toJSON PinpointCampaignCampaignSmsMessage{..} = - object $ - catMaybes - [ fmap (("Body",) . toJSON) _pinpointCampaignCampaignSmsMessageBody - , fmap (("MessageType",) . toJSON) _pinpointCampaignCampaignSmsMessageMessageType - , fmap (("SenderId",) . toJSON) _pinpointCampaignCampaignSmsMessageSenderId - ] - --- | Constructor for 'PinpointCampaignCampaignSmsMessage' containing required --- fields as arguments. -pinpointCampaignCampaignSmsMessage - :: PinpointCampaignCampaignSmsMessage -pinpointCampaignCampaignSmsMessage = - PinpointCampaignCampaignSmsMessage - { _pinpointCampaignCampaignSmsMessageBody = Nothing - , _pinpointCampaignCampaignSmsMessageMessageType = Nothing - , _pinpointCampaignCampaignSmsMessageSenderId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaignsmsmessage.html#cfn-pinpoint-campaign-campaignsmsmessage-body -pccsmBody :: Lens' PinpointCampaignCampaignSmsMessage (Maybe (Val Text)) -pccsmBody = lens _pinpointCampaignCampaignSmsMessageBody (\s a -> s { _pinpointCampaignCampaignSmsMessageBody = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaignsmsmessage.html#cfn-pinpoint-campaign-campaignsmsmessage-messagetype -pccsmMessageType :: Lens' PinpointCampaignCampaignSmsMessage (Maybe (Val Text)) -pccsmMessageType = lens _pinpointCampaignCampaignSmsMessageMessageType (\s a -> s { _pinpointCampaignCampaignSmsMessageMessageType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaignsmsmessage.html#cfn-pinpoint-campaign-campaignsmsmessage-senderid -pccsmSenderId :: Lens' PinpointCampaignCampaignSmsMessage (Maybe (Val Text)) -pccsmSenderId = lens _pinpointCampaignCampaignSmsMessageSenderId (\s a -> s { _pinpointCampaignCampaignSmsMessageSenderId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointCampaignEventDimensions.hs b/library-gen/Stratosphere/ResourceProperties/PinpointCampaignEventDimensions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointCampaignEventDimensions.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-eventdimensions.html - -module Stratosphere.ResourceProperties.PinpointCampaignEventDimensions where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.PinpointCampaignSetDimension - --- | Full data type definition for PinpointCampaignEventDimensions. See --- 'pinpointCampaignEventDimensions' for a more convenient constructor. -data PinpointCampaignEventDimensions = - PinpointCampaignEventDimensions - { _pinpointCampaignEventDimensionsAttributes :: Maybe Object - , _pinpointCampaignEventDimensionsEventType :: Maybe PinpointCampaignSetDimension - , _pinpointCampaignEventDimensionsMetrics :: Maybe Object - } deriving (Show, Eq) - -instance ToJSON PinpointCampaignEventDimensions where - toJSON PinpointCampaignEventDimensions{..} = - object $ - catMaybes - [ fmap (("Attributes",) . toJSON) _pinpointCampaignEventDimensionsAttributes - , fmap (("EventType",) . toJSON) _pinpointCampaignEventDimensionsEventType - , fmap (("Metrics",) . toJSON) _pinpointCampaignEventDimensionsMetrics - ] - --- | Constructor for 'PinpointCampaignEventDimensions' containing required --- fields as arguments. -pinpointCampaignEventDimensions - :: PinpointCampaignEventDimensions -pinpointCampaignEventDimensions = - PinpointCampaignEventDimensions - { _pinpointCampaignEventDimensionsAttributes = Nothing - , _pinpointCampaignEventDimensionsEventType = Nothing - , _pinpointCampaignEventDimensionsMetrics = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-eventdimensions.html#cfn-pinpoint-campaign-eventdimensions-attributes -pcedAttributes :: Lens' PinpointCampaignEventDimensions (Maybe Object) -pcedAttributes = lens _pinpointCampaignEventDimensionsAttributes (\s a -> s { _pinpointCampaignEventDimensionsAttributes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-eventdimensions.html#cfn-pinpoint-campaign-eventdimensions-eventtype -pcedEventType :: Lens' PinpointCampaignEventDimensions (Maybe PinpointCampaignSetDimension) -pcedEventType = lens _pinpointCampaignEventDimensionsEventType (\s a -> s { _pinpointCampaignEventDimensionsEventType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-eventdimensions.html#cfn-pinpoint-campaign-eventdimensions-metrics -pcedMetrics :: Lens' PinpointCampaignEventDimensions (Maybe Object) -pcedMetrics = lens _pinpointCampaignEventDimensionsMetrics (\s a -> s { _pinpointCampaignEventDimensionsMetrics = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointCampaignLimits.hs b/library-gen/Stratosphere/ResourceProperties/PinpointCampaignLimits.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointCampaignLimits.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-limits.html - -module Stratosphere.ResourceProperties.PinpointCampaignLimits where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointCampaignLimits. See --- 'pinpointCampaignLimits' for a more convenient constructor. -data PinpointCampaignLimits = - PinpointCampaignLimits - { _pinpointCampaignLimitsDaily :: Maybe (Val Integer) - , _pinpointCampaignLimitsMaximumDuration :: Maybe (Val Integer) - , _pinpointCampaignLimitsMessagesPerSecond :: Maybe (Val Integer) - , _pinpointCampaignLimitsTotal :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON PinpointCampaignLimits where - toJSON PinpointCampaignLimits{..} = - object $ - catMaybes - [ fmap (("Daily",) . toJSON) _pinpointCampaignLimitsDaily - , fmap (("MaximumDuration",) . toJSON) _pinpointCampaignLimitsMaximumDuration - , fmap (("MessagesPerSecond",) . toJSON) _pinpointCampaignLimitsMessagesPerSecond - , fmap (("Total",) . toJSON) _pinpointCampaignLimitsTotal - ] - --- | Constructor for 'PinpointCampaignLimits' containing required fields as --- arguments. -pinpointCampaignLimits - :: PinpointCampaignLimits -pinpointCampaignLimits = - PinpointCampaignLimits - { _pinpointCampaignLimitsDaily = Nothing - , _pinpointCampaignLimitsMaximumDuration = Nothing - , _pinpointCampaignLimitsMessagesPerSecond = Nothing - , _pinpointCampaignLimitsTotal = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-limits.html#cfn-pinpoint-campaign-limits-daily -pclDaily :: Lens' PinpointCampaignLimits (Maybe (Val Integer)) -pclDaily = lens _pinpointCampaignLimitsDaily (\s a -> s { _pinpointCampaignLimitsDaily = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-limits.html#cfn-pinpoint-campaign-limits-maximumduration -pclMaximumDuration :: Lens' PinpointCampaignLimits (Maybe (Val Integer)) -pclMaximumDuration = lens _pinpointCampaignLimitsMaximumDuration (\s a -> s { _pinpointCampaignLimitsMaximumDuration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-limits.html#cfn-pinpoint-campaign-limits-messagespersecond -pclMessagesPerSecond :: Lens' PinpointCampaignLimits (Maybe (Val Integer)) -pclMessagesPerSecond = lens _pinpointCampaignLimitsMessagesPerSecond (\s a -> s { _pinpointCampaignLimitsMessagesPerSecond = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-limits.html#cfn-pinpoint-campaign-limits-total -pclTotal :: Lens' PinpointCampaignLimits (Maybe (Val Integer)) -pclTotal = lens _pinpointCampaignLimitsTotal (\s a -> s { _pinpointCampaignLimitsTotal = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointCampaignMessage.hs b/library-gen/Stratosphere/ResourceProperties/PinpointCampaignMessage.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointCampaignMessage.hs +++ /dev/null @@ -1,115 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-message.html - -module Stratosphere.ResourceProperties.PinpointCampaignMessage where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointCampaignMessage. See --- 'pinpointCampaignMessage' for a more convenient constructor. -data PinpointCampaignMessage = - PinpointCampaignMessage - { _pinpointCampaignMessageAction :: Maybe (Val Text) - , _pinpointCampaignMessageBody :: Maybe (Val Text) - , _pinpointCampaignMessageImageIconUrl :: Maybe (Val Text) - , _pinpointCampaignMessageImageSmallIconUrl :: Maybe (Val Text) - , _pinpointCampaignMessageImageUrl :: Maybe (Val Text) - , _pinpointCampaignMessageJsonBody :: Maybe (Val Text) - , _pinpointCampaignMessageMediaUrl :: Maybe (Val Text) - , _pinpointCampaignMessageRawContent :: Maybe (Val Text) - , _pinpointCampaignMessageSilentPush :: Maybe (Val Bool) - , _pinpointCampaignMessageTimeToLive :: Maybe (Val Integer) - , _pinpointCampaignMessageTitle :: Maybe (Val Text) - , _pinpointCampaignMessageUrl :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON PinpointCampaignMessage where - toJSON PinpointCampaignMessage{..} = - object $ - catMaybes - [ fmap (("Action",) . toJSON) _pinpointCampaignMessageAction - , fmap (("Body",) . toJSON) _pinpointCampaignMessageBody - , fmap (("ImageIconUrl",) . toJSON) _pinpointCampaignMessageImageIconUrl - , fmap (("ImageSmallIconUrl",) . toJSON) _pinpointCampaignMessageImageSmallIconUrl - , fmap (("ImageUrl",) . toJSON) _pinpointCampaignMessageImageUrl - , fmap (("JsonBody",) . toJSON) _pinpointCampaignMessageJsonBody - , fmap (("MediaUrl",) . toJSON) _pinpointCampaignMessageMediaUrl - , fmap (("RawContent",) . toJSON) _pinpointCampaignMessageRawContent - , fmap (("SilentPush",) . toJSON) _pinpointCampaignMessageSilentPush - , fmap (("TimeToLive",) . toJSON) _pinpointCampaignMessageTimeToLive - , fmap (("Title",) . toJSON) _pinpointCampaignMessageTitle - , fmap (("Url",) . toJSON) _pinpointCampaignMessageUrl - ] - --- | Constructor for 'PinpointCampaignMessage' containing required fields as --- arguments. -pinpointCampaignMessage - :: PinpointCampaignMessage -pinpointCampaignMessage = - PinpointCampaignMessage - { _pinpointCampaignMessageAction = Nothing - , _pinpointCampaignMessageBody = Nothing - , _pinpointCampaignMessageImageIconUrl = Nothing - , _pinpointCampaignMessageImageSmallIconUrl = Nothing - , _pinpointCampaignMessageImageUrl = Nothing - , _pinpointCampaignMessageJsonBody = Nothing - , _pinpointCampaignMessageMediaUrl = Nothing - , _pinpointCampaignMessageRawContent = Nothing - , _pinpointCampaignMessageSilentPush = Nothing - , _pinpointCampaignMessageTimeToLive = Nothing - , _pinpointCampaignMessageTitle = Nothing - , _pinpointCampaignMessageUrl = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-message.html#cfn-pinpoint-campaign-message-action -pcmAction :: Lens' PinpointCampaignMessage (Maybe (Val Text)) -pcmAction = lens _pinpointCampaignMessageAction (\s a -> s { _pinpointCampaignMessageAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-message.html#cfn-pinpoint-campaign-message-body -pcmBody :: Lens' PinpointCampaignMessage (Maybe (Val Text)) -pcmBody = lens _pinpointCampaignMessageBody (\s a -> s { _pinpointCampaignMessageBody = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-message.html#cfn-pinpoint-campaign-message-imageiconurl -pcmImageIconUrl :: Lens' PinpointCampaignMessage (Maybe (Val Text)) -pcmImageIconUrl = lens _pinpointCampaignMessageImageIconUrl (\s a -> s { _pinpointCampaignMessageImageIconUrl = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-message.html#cfn-pinpoint-campaign-message-imagesmalliconurl -pcmImageSmallIconUrl :: Lens' PinpointCampaignMessage (Maybe (Val Text)) -pcmImageSmallIconUrl = lens _pinpointCampaignMessageImageSmallIconUrl (\s a -> s { _pinpointCampaignMessageImageSmallIconUrl = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-message.html#cfn-pinpoint-campaign-message-imageurl -pcmImageUrl :: Lens' PinpointCampaignMessage (Maybe (Val Text)) -pcmImageUrl = lens _pinpointCampaignMessageImageUrl (\s a -> s { _pinpointCampaignMessageImageUrl = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-message.html#cfn-pinpoint-campaign-message-jsonbody -pcmJsonBody :: Lens' PinpointCampaignMessage (Maybe (Val Text)) -pcmJsonBody = lens _pinpointCampaignMessageJsonBody (\s a -> s { _pinpointCampaignMessageJsonBody = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-message.html#cfn-pinpoint-campaign-message-mediaurl -pcmMediaUrl :: Lens' PinpointCampaignMessage (Maybe (Val Text)) -pcmMediaUrl = lens _pinpointCampaignMessageMediaUrl (\s a -> s { _pinpointCampaignMessageMediaUrl = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-message.html#cfn-pinpoint-campaign-message-rawcontent -pcmRawContent :: Lens' PinpointCampaignMessage (Maybe (Val Text)) -pcmRawContent = lens _pinpointCampaignMessageRawContent (\s a -> s { _pinpointCampaignMessageRawContent = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-message.html#cfn-pinpoint-campaign-message-silentpush -pcmSilentPush :: Lens' PinpointCampaignMessage (Maybe (Val Bool)) -pcmSilentPush = lens _pinpointCampaignMessageSilentPush (\s a -> s { _pinpointCampaignMessageSilentPush = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-message.html#cfn-pinpoint-campaign-message-timetolive -pcmTimeToLive :: Lens' PinpointCampaignMessage (Maybe (Val Integer)) -pcmTimeToLive = lens _pinpointCampaignMessageTimeToLive (\s a -> s { _pinpointCampaignMessageTimeToLive = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-message.html#cfn-pinpoint-campaign-message-title -pcmTitle :: Lens' PinpointCampaignMessage (Maybe (Val Text)) -pcmTitle = lens _pinpointCampaignMessageTitle (\s a -> s { _pinpointCampaignMessageTitle = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-message.html#cfn-pinpoint-campaign-message-url -pcmUrl :: Lens' PinpointCampaignMessage (Maybe (Val Text)) -pcmUrl = lens _pinpointCampaignMessageUrl (\s a -> s { _pinpointCampaignMessageUrl = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointCampaignMessageConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/PinpointCampaignMessageConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointCampaignMessageConfiguration.hs +++ /dev/null @@ -1,82 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-messageconfiguration.html - -module Stratosphere.ResourceProperties.PinpointCampaignMessageConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.PinpointCampaignMessage -import Stratosphere.ResourceProperties.PinpointCampaignCampaignEmailMessage -import Stratosphere.ResourceProperties.PinpointCampaignCampaignSmsMessage - --- | Full data type definition for PinpointCampaignMessageConfiguration. See --- 'pinpointCampaignMessageConfiguration' for a more convenient constructor. -data PinpointCampaignMessageConfiguration = - PinpointCampaignMessageConfiguration - { _pinpointCampaignMessageConfigurationADMMessage :: Maybe PinpointCampaignMessage - , _pinpointCampaignMessageConfigurationAPNSMessage :: Maybe PinpointCampaignMessage - , _pinpointCampaignMessageConfigurationBaiduMessage :: Maybe PinpointCampaignMessage - , _pinpointCampaignMessageConfigurationDefaultMessage :: Maybe PinpointCampaignMessage - , _pinpointCampaignMessageConfigurationEmailMessage :: Maybe PinpointCampaignCampaignEmailMessage - , _pinpointCampaignMessageConfigurationGCMMessage :: Maybe PinpointCampaignMessage - , _pinpointCampaignMessageConfigurationSMSMessage :: Maybe PinpointCampaignCampaignSmsMessage - } deriving (Show, Eq) - -instance ToJSON PinpointCampaignMessageConfiguration where - toJSON PinpointCampaignMessageConfiguration{..} = - object $ - catMaybes - [ fmap (("ADMMessage",) . toJSON) _pinpointCampaignMessageConfigurationADMMessage - , fmap (("APNSMessage",) . toJSON) _pinpointCampaignMessageConfigurationAPNSMessage - , fmap (("BaiduMessage",) . toJSON) _pinpointCampaignMessageConfigurationBaiduMessage - , fmap (("DefaultMessage",) . toJSON) _pinpointCampaignMessageConfigurationDefaultMessage - , fmap (("EmailMessage",) . toJSON) _pinpointCampaignMessageConfigurationEmailMessage - , fmap (("GCMMessage",) . toJSON) _pinpointCampaignMessageConfigurationGCMMessage - , fmap (("SMSMessage",) . toJSON) _pinpointCampaignMessageConfigurationSMSMessage - ] - --- | Constructor for 'PinpointCampaignMessageConfiguration' containing --- required fields as arguments. -pinpointCampaignMessageConfiguration - :: PinpointCampaignMessageConfiguration -pinpointCampaignMessageConfiguration = - PinpointCampaignMessageConfiguration - { _pinpointCampaignMessageConfigurationADMMessage = Nothing - , _pinpointCampaignMessageConfigurationAPNSMessage = Nothing - , _pinpointCampaignMessageConfigurationBaiduMessage = Nothing - , _pinpointCampaignMessageConfigurationDefaultMessage = Nothing - , _pinpointCampaignMessageConfigurationEmailMessage = Nothing - , _pinpointCampaignMessageConfigurationGCMMessage = Nothing - , _pinpointCampaignMessageConfigurationSMSMessage = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-messageconfiguration.html#cfn-pinpoint-campaign-messageconfiguration-admmessage -pcmcADMMessage :: Lens' PinpointCampaignMessageConfiguration (Maybe PinpointCampaignMessage) -pcmcADMMessage = lens _pinpointCampaignMessageConfigurationADMMessage (\s a -> s { _pinpointCampaignMessageConfigurationADMMessage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-messageconfiguration.html#cfn-pinpoint-campaign-messageconfiguration-apnsmessage -pcmcAPNSMessage :: Lens' PinpointCampaignMessageConfiguration (Maybe PinpointCampaignMessage) -pcmcAPNSMessage = lens _pinpointCampaignMessageConfigurationAPNSMessage (\s a -> s { _pinpointCampaignMessageConfigurationAPNSMessage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-messageconfiguration.html#cfn-pinpoint-campaign-messageconfiguration-baidumessage -pcmcBaiduMessage :: Lens' PinpointCampaignMessageConfiguration (Maybe PinpointCampaignMessage) -pcmcBaiduMessage = lens _pinpointCampaignMessageConfigurationBaiduMessage (\s a -> s { _pinpointCampaignMessageConfigurationBaiduMessage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-messageconfiguration.html#cfn-pinpoint-campaign-messageconfiguration-defaultmessage -pcmcDefaultMessage :: Lens' PinpointCampaignMessageConfiguration (Maybe PinpointCampaignMessage) -pcmcDefaultMessage = lens _pinpointCampaignMessageConfigurationDefaultMessage (\s a -> s { _pinpointCampaignMessageConfigurationDefaultMessage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-messageconfiguration.html#cfn-pinpoint-campaign-messageconfiguration-emailmessage -pcmcEmailMessage :: Lens' PinpointCampaignMessageConfiguration (Maybe PinpointCampaignCampaignEmailMessage) -pcmcEmailMessage = lens _pinpointCampaignMessageConfigurationEmailMessage (\s a -> s { _pinpointCampaignMessageConfigurationEmailMessage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-messageconfiguration.html#cfn-pinpoint-campaign-messageconfiguration-gcmmessage -pcmcGCMMessage :: Lens' PinpointCampaignMessageConfiguration (Maybe PinpointCampaignMessage) -pcmcGCMMessage = lens _pinpointCampaignMessageConfigurationGCMMessage (\s a -> s { _pinpointCampaignMessageConfigurationGCMMessage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-messageconfiguration.html#cfn-pinpoint-campaign-messageconfiguration-smsmessage -pcmcSMSMessage :: Lens' PinpointCampaignMessageConfiguration (Maybe PinpointCampaignCampaignSmsMessage) -pcmcSMSMessage = lens _pinpointCampaignMessageConfigurationSMSMessage (\s a -> s { _pinpointCampaignMessageConfigurationSMSMessage = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointCampaignMetricDimension.hs b/library-gen/Stratosphere/ResourceProperties/PinpointCampaignMetricDimension.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointCampaignMetricDimension.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-metricdimension.html - -module Stratosphere.ResourceProperties.PinpointCampaignMetricDimension where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointCampaignMetricDimension. See --- 'pinpointCampaignMetricDimension' for a more convenient constructor. -data PinpointCampaignMetricDimension = - PinpointCampaignMetricDimension - { _pinpointCampaignMetricDimensionComparisonOperator :: Maybe (Val Text) - , _pinpointCampaignMetricDimensionValue :: Maybe (Val Double) - } deriving (Show, Eq) - -instance ToJSON PinpointCampaignMetricDimension where - toJSON PinpointCampaignMetricDimension{..} = - object $ - catMaybes - [ fmap (("ComparisonOperator",) . toJSON) _pinpointCampaignMetricDimensionComparisonOperator - , fmap (("Value",) . toJSON) _pinpointCampaignMetricDimensionValue - ] - --- | Constructor for 'PinpointCampaignMetricDimension' containing required --- fields as arguments. -pinpointCampaignMetricDimension - :: PinpointCampaignMetricDimension -pinpointCampaignMetricDimension = - PinpointCampaignMetricDimension - { _pinpointCampaignMetricDimensionComparisonOperator = Nothing - , _pinpointCampaignMetricDimensionValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-metricdimension.html#cfn-pinpoint-campaign-metricdimension-comparisonoperator -pcmdComparisonOperator :: Lens' PinpointCampaignMetricDimension (Maybe (Val Text)) -pcmdComparisonOperator = lens _pinpointCampaignMetricDimensionComparisonOperator (\s a -> s { _pinpointCampaignMetricDimensionComparisonOperator = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-metricdimension.html#cfn-pinpoint-campaign-metricdimension-value -pcmdValue :: Lens' PinpointCampaignMetricDimension (Maybe (Val Double)) -pcmdValue = lens _pinpointCampaignMetricDimensionValue (\s a -> s { _pinpointCampaignMetricDimensionValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointCampaignQuietTime.hs b/library-gen/Stratosphere/ResourceProperties/PinpointCampaignQuietTime.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointCampaignQuietTime.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-schedule-quiettime.html - -module Stratosphere.ResourceProperties.PinpointCampaignQuietTime where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointCampaignQuietTime. See --- 'pinpointCampaignQuietTime' for a more convenient constructor. -data PinpointCampaignQuietTime = - PinpointCampaignQuietTime - { _pinpointCampaignQuietTimeEnd :: Val Text - , _pinpointCampaignQuietTimeStart :: Val Text - } deriving (Show, Eq) - -instance ToJSON PinpointCampaignQuietTime where - toJSON PinpointCampaignQuietTime{..} = - object $ - catMaybes - [ (Just . ("End",) . toJSON) _pinpointCampaignQuietTimeEnd - , (Just . ("Start",) . toJSON) _pinpointCampaignQuietTimeStart - ] - --- | Constructor for 'PinpointCampaignQuietTime' containing required fields as --- arguments. -pinpointCampaignQuietTime - :: Val Text -- ^ 'pcqtEnd' - -> Val Text -- ^ 'pcqtStart' - -> PinpointCampaignQuietTime -pinpointCampaignQuietTime endarg startarg = - PinpointCampaignQuietTime - { _pinpointCampaignQuietTimeEnd = endarg - , _pinpointCampaignQuietTimeStart = startarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-schedule-quiettime.html#cfn-pinpoint-campaign-schedule-quiettime-end -pcqtEnd :: Lens' PinpointCampaignQuietTime (Val Text) -pcqtEnd = lens _pinpointCampaignQuietTimeEnd (\s a -> s { _pinpointCampaignQuietTimeEnd = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-schedule-quiettime.html#cfn-pinpoint-campaign-schedule-quiettime-start -pcqtStart :: Lens' PinpointCampaignQuietTime (Val Text) -pcqtStart = lens _pinpointCampaignQuietTimeStart (\s a -> s { _pinpointCampaignQuietTimeStart = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointCampaignSchedule.hs b/library-gen/Stratosphere/ResourceProperties/PinpointCampaignSchedule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointCampaignSchedule.hs +++ /dev/null @@ -1,81 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-schedule.html - -module Stratosphere.ResourceProperties.PinpointCampaignSchedule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.PinpointCampaignCampaignEventFilter -import Stratosphere.ResourceProperties.PinpointCampaignQuietTime - --- | Full data type definition for PinpointCampaignSchedule. See --- 'pinpointCampaignSchedule' for a more convenient constructor. -data PinpointCampaignSchedule = - PinpointCampaignSchedule - { _pinpointCampaignScheduleEndTime :: Maybe (Val Text) - , _pinpointCampaignScheduleEventFilter :: Maybe PinpointCampaignCampaignEventFilter - , _pinpointCampaignScheduleFrequency :: Maybe (Val Text) - , _pinpointCampaignScheduleIsLocalTime :: Maybe (Val Bool) - , _pinpointCampaignScheduleQuietTime :: Maybe PinpointCampaignQuietTime - , _pinpointCampaignScheduleStartTime :: Maybe (Val Text) - , _pinpointCampaignScheduleTimeZone :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON PinpointCampaignSchedule where - toJSON PinpointCampaignSchedule{..} = - object $ - catMaybes - [ fmap (("EndTime",) . toJSON) _pinpointCampaignScheduleEndTime - , fmap (("EventFilter",) . toJSON) _pinpointCampaignScheduleEventFilter - , fmap (("Frequency",) . toJSON) _pinpointCampaignScheduleFrequency - , fmap (("IsLocalTime",) . toJSON) _pinpointCampaignScheduleIsLocalTime - , fmap (("QuietTime",) . toJSON) _pinpointCampaignScheduleQuietTime - , fmap (("StartTime",) . toJSON) _pinpointCampaignScheduleStartTime - , fmap (("TimeZone",) . toJSON) _pinpointCampaignScheduleTimeZone - ] - --- | Constructor for 'PinpointCampaignSchedule' containing required fields as --- arguments. -pinpointCampaignSchedule - :: PinpointCampaignSchedule -pinpointCampaignSchedule = - PinpointCampaignSchedule - { _pinpointCampaignScheduleEndTime = Nothing - , _pinpointCampaignScheduleEventFilter = Nothing - , _pinpointCampaignScheduleFrequency = Nothing - , _pinpointCampaignScheduleIsLocalTime = Nothing - , _pinpointCampaignScheduleQuietTime = Nothing - , _pinpointCampaignScheduleStartTime = Nothing - , _pinpointCampaignScheduleTimeZone = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-schedule.html#cfn-pinpoint-campaign-schedule-endtime -pcsEndTime :: Lens' PinpointCampaignSchedule (Maybe (Val Text)) -pcsEndTime = lens _pinpointCampaignScheduleEndTime (\s a -> s { _pinpointCampaignScheduleEndTime = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-schedule.html#cfn-pinpoint-campaign-schedule-eventfilter -pcsEventFilter :: Lens' PinpointCampaignSchedule (Maybe PinpointCampaignCampaignEventFilter) -pcsEventFilter = lens _pinpointCampaignScheduleEventFilter (\s a -> s { _pinpointCampaignScheduleEventFilter = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-schedule.html#cfn-pinpoint-campaign-schedule-frequency -pcsFrequency :: Lens' PinpointCampaignSchedule (Maybe (Val Text)) -pcsFrequency = lens _pinpointCampaignScheduleFrequency (\s a -> s { _pinpointCampaignScheduleFrequency = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-schedule.html#cfn-pinpoint-campaign-schedule-islocaltime -pcsIsLocalTime :: Lens' PinpointCampaignSchedule (Maybe (Val Bool)) -pcsIsLocalTime = lens _pinpointCampaignScheduleIsLocalTime (\s a -> s { _pinpointCampaignScheduleIsLocalTime = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-schedule.html#cfn-pinpoint-campaign-schedule-quiettime -pcsQuietTime :: Lens' PinpointCampaignSchedule (Maybe PinpointCampaignQuietTime) -pcsQuietTime = lens _pinpointCampaignScheduleQuietTime (\s a -> s { _pinpointCampaignScheduleQuietTime = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-schedule.html#cfn-pinpoint-campaign-schedule-starttime -pcsStartTime :: Lens' PinpointCampaignSchedule (Maybe (Val Text)) -pcsStartTime = lens _pinpointCampaignScheduleStartTime (\s a -> s { _pinpointCampaignScheduleStartTime = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-schedule.html#cfn-pinpoint-campaign-schedule-timezone -pcsTimeZone :: Lens' PinpointCampaignSchedule (Maybe (Val Text)) -pcsTimeZone = lens _pinpointCampaignScheduleTimeZone (\s a -> s { _pinpointCampaignScheduleTimeZone = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointCampaignSetDimension.hs b/library-gen/Stratosphere/ResourceProperties/PinpointCampaignSetDimension.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointCampaignSetDimension.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-setdimension.html - -module Stratosphere.ResourceProperties.PinpointCampaignSetDimension where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointCampaignSetDimension. See --- 'pinpointCampaignSetDimension' for a more convenient constructor. -data PinpointCampaignSetDimension = - PinpointCampaignSetDimension - { _pinpointCampaignSetDimensionDimensionType :: Maybe (Val Text) - , _pinpointCampaignSetDimensionValues :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON PinpointCampaignSetDimension where - toJSON PinpointCampaignSetDimension{..} = - object $ - catMaybes - [ fmap (("DimensionType",) . toJSON) _pinpointCampaignSetDimensionDimensionType - , fmap (("Values",) . toJSON) _pinpointCampaignSetDimensionValues - ] - --- | Constructor for 'PinpointCampaignSetDimension' containing required fields --- as arguments. -pinpointCampaignSetDimension - :: PinpointCampaignSetDimension -pinpointCampaignSetDimension = - PinpointCampaignSetDimension - { _pinpointCampaignSetDimensionDimensionType = Nothing - , _pinpointCampaignSetDimensionValues = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-setdimension.html#cfn-pinpoint-campaign-setdimension-dimensiontype -pcsdDimensionType :: Lens' PinpointCampaignSetDimension (Maybe (Val Text)) -pcsdDimensionType = lens _pinpointCampaignSetDimensionDimensionType (\s a -> s { _pinpointCampaignSetDimensionDimensionType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-setdimension.html#cfn-pinpoint-campaign-setdimension-values -pcsdValues :: Lens' PinpointCampaignSetDimension (Maybe (ValList Text)) -pcsdValues = lens _pinpointCampaignSetDimensionValues (\s a -> s { _pinpointCampaignSetDimensionValues = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointCampaignWriteTreatmentResource.hs b/library-gen/Stratosphere/ResourceProperties/PinpointCampaignWriteTreatmentResource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointCampaignWriteTreatmentResource.hs +++ /dev/null @@ -1,68 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-writetreatmentresource.html - -module Stratosphere.ResourceProperties.PinpointCampaignWriteTreatmentResource where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.PinpointCampaignMessageConfiguration -import Stratosphere.ResourceProperties.PinpointCampaignSchedule - --- | Full data type definition for PinpointCampaignWriteTreatmentResource. See --- 'pinpointCampaignWriteTreatmentResource' for a more convenient --- constructor. -data PinpointCampaignWriteTreatmentResource = - PinpointCampaignWriteTreatmentResource - { _pinpointCampaignWriteTreatmentResourceMessageConfiguration :: Maybe PinpointCampaignMessageConfiguration - , _pinpointCampaignWriteTreatmentResourceSchedule :: Maybe PinpointCampaignSchedule - , _pinpointCampaignWriteTreatmentResourceSizePercent :: Maybe (Val Integer) - , _pinpointCampaignWriteTreatmentResourceTreatmentDescription :: Maybe (Val Text) - , _pinpointCampaignWriteTreatmentResourceTreatmentName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON PinpointCampaignWriteTreatmentResource where - toJSON PinpointCampaignWriteTreatmentResource{..} = - object $ - catMaybes - [ fmap (("MessageConfiguration",) . toJSON) _pinpointCampaignWriteTreatmentResourceMessageConfiguration - , fmap (("Schedule",) . toJSON) _pinpointCampaignWriteTreatmentResourceSchedule - , fmap (("SizePercent",) . toJSON) _pinpointCampaignWriteTreatmentResourceSizePercent - , fmap (("TreatmentDescription",) . toJSON) _pinpointCampaignWriteTreatmentResourceTreatmentDescription - , fmap (("TreatmentName",) . toJSON) _pinpointCampaignWriteTreatmentResourceTreatmentName - ] - --- | Constructor for 'PinpointCampaignWriteTreatmentResource' containing --- required fields as arguments. -pinpointCampaignWriteTreatmentResource - :: PinpointCampaignWriteTreatmentResource -pinpointCampaignWriteTreatmentResource = - PinpointCampaignWriteTreatmentResource - { _pinpointCampaignWriteTreatmentResourceMessageConfiguration = Nothing - , _pinpointCampaignWriteTreatmentResourceSchedule = Nothing - , _pinpointCampaignWriteTreatmentResourceSizePercent = Nothing - , _pinpointCampaignWriteTreatmentResourceTreatmentDescription = Nothing - , _pinpointCampaignWriteTreatmentResourceTreatmentName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-writetreatmentresource.html#cfn-pinpoint-campaign-writetreatmentresource-messageconfiguration -pcwtrMessageConfiguration :: Lens' PinpointCampaignWriteTreatmentResource (Maybe PinpointCampaignMessageConfiguration) -pcwtrMessageConfiguration = lens _pinpointCampaignWriteTreatmentResourceMessageConfiguration (\s a -> s { _pinpointCampaignWriteTreatmentResourceMessageConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-writetreatmentresource.html#cfn-pinpoint-campaign-writetreatmentresource-schedule -pcwtrSchedule :: Lens' PinpointCampaignWriteTreatmentResource (Maybe PinpointCampaignSchedule) -pcwtrSchedule = lens _pinpointCampaignWriteTreatmentResourceSchedule (\s a -> s { _pinpointCampaignWriteTreatmentResourceSchedule = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-writetreatmentresource.html#cfn-pinpoint-campaign-writetreatmentresource-sizepercent -pcwtrSizePercent :: Lens' PinpointCampaignWriteTreatmentResource (Maybe (Val Integer)) -pcwtrSizePercent = lens _pinpointCampaignWriteTreatmentResourceSizePercent (\s a -> s { _pinpointCampaignWriteTreatmentResourceSizePercent = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-writetreatmentresource.html#cfn-pinpoint-campaign-writetreatmentresource-treatmentdescription -pcwtrTreatmentDescription :: Lens' PinpointCampaignWriteTreatmentResource (Maybe (Val Text)) -pcwtrTreatmentDescription = lens _pinpointCampaignWriteTreatmentResourceTreatmentDescription (\s a -> s { _pinpointCampaignWriteTreatmentResourceTreatmentDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-writetreatmentresource.html#cfn-pinpoint-campaign-writetreatmentresource-treatmentname -pcwtrTreatmentName :: Lens' PinpointCampaignWriteTreatmentResource (Maybe (Val Text)) -pcwtrTreatmentName = lens _pinpointCampaignWriteTreatmentResourceTreatmentName (\s a -> s { _pinpointCampaignWriteTreatmentResourceTreatmentName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetDeliveryOptions.hs b/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetDeliveryOptions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetDeliveryOptions.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationset-deliveryoptions.html - -module Stratosphere.ResourceProperties.PinpointEmailConfigurationSetDeliveryOptions where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- PinpointEmailConfigurationSetDeliveryOptions. See --- 'pinpointEmailConfigurationSetDeliveryOptions' for a more convenient --- constructor. -data PinpointEmailConfigurationSetDeliveryOptions = - PinpointEmailConfigurationSetDeliveryOptions - { _pinpointEmailConfigurationSetDeliveryOptionsSendingPoolName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON PinpointEmailConfigurationSetDeliveryOptions where - toJSON PinpointEmailConfigurationSetDeliveryOptions{..} = - object $ - catMaybes - [ fmap (("SendingPoolName",) . toJSON) _pinpointEmailConfigurationSetDeliveryOptionsSendingPoolName - ] - --- | Constructor for 'PinpointEmailConfigurationSetDeliveryOptions' containing --- required fields as arguments. -pinpointEmailConfigurationSetDeliveryOptions - :: PinpointEmailConfigurationSetDeliveryOptions -pinpointEmailConfigurationSetDeliveryOptions = - PinpointEmailConfigurationSetDeliveryOptions - { _pinpointEmailConfigurationSetDeliveryOptionsSendingPoolName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationset-deliveryoptions.html#cfn-pinpointemail-configurationset-deliveryoptions-sendingpoolname -pecsdoSendingPoolName :: Lens' PinpointEmailConfigurationSetDeliveryOptions (Maybe (Val Text)) -pecsdoSendingPoolName = lens _pinpointEmailConfigurationSetDeliveryOptionsSendingPoolName (\s a -> s { _pinpointEmailConfigurationSetDeliveryOptionsSendingPoolName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetEventDestinationCloudWatchDestination.hs b/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetEventDestinationCloudWatchDestination.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetEventDestinationCloudWatchDestination.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationseteventdestination-cloudwatchdestination.html - -module Stratosphere.ResourceProperties.PinpointEmailConfigurationSetEventDestinationCloudWatchDestination where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.PinpointEmailConfigurationSetEventDestinationDimensionConfiguration - --- | Full data type definition for --- PinpointEmailConfigurationSetEventDestinationCloudWatchDestination. See --- 'pinpointEmailConfigurationSetEventDestinationCloudWatchDestination' for --- a more convenient constructor. -data PinpointEmailConfigurationSetEventDestinationCloudWatchDestination = - PinpointEmailConfigurationSetEventDestinationCloudWatchDestination - { _pinpointEmailConfigurationSetEventDestinationCloudWatchDestinationDimensionConfigurations :: Maybe [PinpointEmailConfigurationSetEventDestinationDimensionConfiguration] - } deriving (Show, Eq) - -instance ToJSON PinpointEmailConfigurationSetEventDestinationCloudWatchDestination where - toJSON PinpointEmailConfigurationSetEventDestinationCloudWatchDestination{..} = - object $ - catMaybes - [ fmap (("DimensionConfigurations",) . toJSON) _pinpointEmailConfigurationSetEventDestinationCloudWatchDestinationDimensionConfigurations - ] - --- | Constructor for --- 'PinpointEmailConfigurationSetEventDestinationCloudWatchDestination' --- containing required fields as arguments. -pinpointEmailConfigurationSetEventDestinationCloudWatchDestination - :: PinpointEmailConfigurationSetEventDestinationCloudWatchDestination -pinpointEmailConfigurationSetEventDestinationCloudWatchDestination = - PinpointEmailConfigurationSetEventDestinationCloudWatchDestination - { _pinpointEmailConfigurationSetEventDestinationCloudWatchDestinationDimensionConfigurations = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationseteventdestination-cloudwatchdestination.html#cfn-pinpointemail-configurationseteventdestination-cloudwatchdestination-dimensionconfigurations -pecsedcwdDimensionConfigurations :: Lens' PinpointEmailConfigurationSetEventDestinationCloudWatchDestination (Maybe [PinpointEmailConfigurationSetEventDestinationDimensionConfiguration]) -pecsedcwdDimensionConfigurations = lens _pinpointEmailConfigurationSetEventDestinationCloudWatchDestinationDimensionConfigurations (\s a -> s { _pinpointEmailConfigurationSetEventDestinationCloudWatchDestinationDimensionConfigurations = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetEventDestinationDimensionConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetEventDestinationDimensionConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetEventDestinationDimensionConfiguration.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationseteventdestination-dimensionconfiguration.html - -module Stratosphere.ResourceProperties.PinpointEmailConfigurationSetEventDestinationDimensionConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- PinpointEmailConfigurationSetEventDestinationDimensionConfiguration. See --- 'pinpointEmailConfigurationSetEventDestinationDimensionConfiguration' for --- a more convenient constructor. -data PinpointEmailConfigurationSetEventDestinationDimensionConfiguration = - PinpointEmailConfigurationSetEventDestinationDimensionConfiguration - { _pinpointEmailConfigurationSetEventDestinationDimensionConfigurationDefaultDimensionValue :: Val Text - , _pinpointEmailConfigurationSetEventDestinationDimensionConfigurationDimensionName :: Val Text - , _pinpointEmailConfigurationSetEventDestinationDimensionConfigurationDimensionValueSource :: Val Text - } deriving (Show, Eq) - -instance ToJSON PinpointEmailConfigurationSetEventDestinationDimensionConfiguration where - toJSON PinpointEmailConfigurationSetEventDestinationDimensionConfiguration{..} = - object $ - catMaybes - [ (Just . ("DefaultDimensionValue",) . toJSON) _pinpointEmailConfigurationSetEventDestinationDimensionConfigurationDefaultDimensionValue - , (Just . ("DimensionName",) . toJSON) _pinpointEmailConfigurationSetEventDestinationDimensionConfigurationDimensionName - , (Just . ("DimensionValueSource",) . toJSON) _pinpointEmailConfigurationSetEventDestinationDimensionConfigurationDimensionValueSource - ] - --- | Constructor for --- 'PinpointEmailConfigurationSetEventDestinationDimensionConfiguration' --- containing required fields as arguments. -pinpointEmailConfigurationSetEventDestinationDimensionConfiguration - :: Val Text -- ^ 'pecseddcDefaultDimensionValue' - -> Val Text -- ^ 'pecseddcDimensionName' - -> Val Text -- ^ 'pecseddcDimensionValueSource' - -> PinpointEmailConfigurationSetEventDestinationDimensionConfiguration -pinpointEmailConfigurationSetEventDestinationDimensionConfiguration defaultDimensionValuearg dimensionNamearg dimensionValueSourcearg = - PinpointEmailConfigurationSetEventDestinationDimensionConfiguration - { _pinpointEmailConfigurationSetEventDestinationDimensionConfigurationDefaultDimensionValue = defaultDimensionValuearg - , _pinpointEmailConfigurationSetEventDestinationDimensionConfigurationDimensionName = dimensionNamearg - , _pinpointEmailConfigurationSetEventDestinationDimensionConfigurationDimensionValueSource = dimensionValueSourcearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationseteventdestination-dimensionconfiguration.html#cfn-pinpointemail-configurationseteventdestination-dimensionconfiguration-defaultdimensionvalue -pecseddcDefaultDimensionValue :: Lens' PinpointEmailConfigurationSetEventDestinationDimensionConfiguration (Val Text) -pecseddcDefaultDimensionValue = lens _pinpointEmailConfigurationSetEventDestinationDimensionConfigurationDefaultDimensionValue (\s a -> s { _pinpointEmailConfigurationSetEventDestinationDimensionConfigurationDefaultDimensionValue = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationseteventdestination-dimensionconfiguration.html#cfn-pinpointemail-configurationseteventdestination-dimensionconfiguration-dimensionname -pecseddcDimensionName :: Lens' PinpointEmailConfigurationSetEventDestinationDimensionConfiguration (Val Text) -pecseddcDimensionName = lens _pinpointEmailConfigurationSetEventDestinationDimensionConfigurationDimensionName (\s a -> s { _pinpointEmailConfigurationSetEventDestinationDimensionConfigurationDimensionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationseteventdestination-dimensionconfiguration.html#cfn-pinpointemail-configurationseteventdestination-dimensionconfiguration-dimensionvaluesource -pecseddcDimensionValueSource :: Lens' PinpointEmailConfigurationSetEventDestinationDimensionConfiguration (Val Text) -pecseddcDimensionValueSource = lens _pinpointEmailConfigurationSetEventDestinationDimensionConfigurationDimensionValueSource (\s a -> s { _pinpointEmailConfigurationSetEventDestinationDimensionConfigurationDimensionValueSource = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetEventDestinationEventDestination.hs b/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetEventDestinationEventDestination.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetEventDestinationEventDestination.hs +++ /dev/null @@ -1,80 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationseteventdestination-eventdestination.html - -module Stratosphere.ResourceProperties.PinpointEmailConfigurationSetEventDestinationEventDestination where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.PinpointEmailConfigurationSetEventDestinationCloudWatchDestination -import Stratosphere.ResourceProperties.PinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestination -import Stratosphere.ResourceProperties.PinpointEmailConfigurationSetEventDestinationPinpointDestination -import Stratosphere.ResourceProperties.PinpointEmailConfigurationSetEventDestinationSnsDestination - --- | Full data type definition for --- PinpointEmailConfigurationSetEventDestinationEventDestination. See --- 'pinpointEmailConfigurationSetEventDestinationEventDestination' for a --- more convenient constructor. -data PinpointEmailConfigurationSetEventDestinationEventDestination = - PinpointEmailConfigurationSetEventDestinationEventDestination - { _pinpointEmailConfigurationSetEventDestinationEventDestinationCloudWatchDestination :: Maybe PinpointEmailConfigurationSetEventDestinationCloudWatchDestination - , _pinpointEmailConfigurationSetEventDestinationEventDestinationEnabled :: Maybe (Val Bool) - , _pinpointEmailConfigurationSetEventDestinationEventDestinationKinesisFirehoseDestination :: Maybe PinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestination - , _pinpointEmailConfigurationSetEventDestinationEventDestinationMatchingEventTypes :: ValList Text - , _pinpointEmailConfigurationSetEventDestinationEventDestinationPinpointDestination :: Maybe PinpointEmailConfigurationSetEventDestinationPinpointDestination - , _pinpointEmailConfigurationSetEventDestinationEventDestinationSnsDestination :: Maybe PinpointEmailConfigurationSetEventDestinationSnsDestination - } deriving (Show, Eq) - -instance ToJSON PinpointEmailConfigurationSetEventDestinationEventDestination where - toJSON PinpointEmailConfigurationSetEventDestinationEventDestination{..} = - object $ - catMaybes - [ fmap (("CloudWatchDestination",) . toJSON) _pinpointEmailConfigurationSetEventDestinationEventDestinationCloudWatchDestination - , fmap (("Enabled",) . toJSON) _pinpointEmailConfigurationSetEventDestinationEventDestinationEnabled - , fmap (("KinesisFirehoseDestination",) . toJSON) _pinpointEmailConfigurationSetEventDestinationEventDestinationKinesisFirehoseDestination - , (Just . ("MatchingEventTypes",) . toJSON) _pinpointEmailConfigurationSetEventDestinationEventDestinationMatchingEventTypes - , fmap (("PinpointDestination",) . toJSON) _pinpointEmailConfigurationSetEventDestinationEventDestinationPinpointDestination - , fmap (("SnsDestination",) . toJSON) _pinpointEmailConfigurationSetEventDestinationEventDestinationSnsDestination - ] - --- | Constructor for --- 'PinpointEmailConfigurationSetEventDestinationEventDestination' --- containing required fields as arguments. -pinpointEmailConfigurationSetEventDestinationEventDestination - :: ValList Text -- ^ 'pecsededMatchingEventTypes' - -> PinpointEmailConfigurationSetEventDestinationEventDestination -pinpointEmailConfigurationSetEventDestinationEventDestination matchingEventTypesarg = - PinpointEmailConfigurationSetEventDestinationEventDestination - { _pinpointEmailConfigurationSetEventDestinationEventDestinationCloudWatchDestination = Nothing - , _pinpointEmailConfigurationSetEventDestinationEventDestinationEnabled = Nothing - , _pinpointEmailConfigurationSetEventDestinationEventDestinationKinesisFirehoseDestination = Nothing - , _pinpointEmailConfigurationSetEventDestinationEventDestinationMatchingEventTypes = matchingEventTypesarg - , _pinpointEmailConfigurationSetEventDestinationEventDestinationPinpointDestination = Nothing - , _pinpointEmailConfigurationSetEventDestinationEventDestinationSnsDestination = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationseteventdestination-eventdestination.html#cfn-pinpointemail-configurationseteventdestination-eventdestination-cloudwatchdestination -pecsededCloudWatchDestination :: Lens' PinpointEmailConfigurationSetEventDestinationEventDestination (Maybe PinpointEmailConfigurationSetEventDestinationCloudWatchDestination) -pecsededCloudWatchDestination = lens _pinpointEmailConfigurationSetEventDestinationEventDestinationCloudWatchDestination (\s a -> s { _pinpointEmailConfigurationSetEventDestinationEventDestinationCloudWatchDestination = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationseteventdestination-eventdestination.html#cfn-pinpointemail-configurationseteventdestination-eventdestination-enabled -pecsededEnabled :: Lens' PinpointEmailConfigurationSetEventDestinationEventDestination (Maybe (Val Bool)) -pecsededEnabled = lens _pinpointEmailConfigurationSetEventDestinationEventDestinationEnabled (\s a -> s { _pinpointEmailConfigurationSetEventDestinationEventDestinationEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationseteventdestination-eventdestination.html#cfn-pinpointemail-configurationseteventdestination-eventdestination-kinesisfirehosedestination -pecsededKinesisFirehoseDestination :: Lens' PinpointEmailConfigurationSetEventDestinationEventDestination (Maybe PinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestination) -pecsededKinesisFirehoseDestination = lens _pinpointEmailConfigurationSetEventDestinationEventDestinationKinesisFirehoseDestination (\s a -> s { _pinpointEmailConfigurationSetEventDestinationEventDestinationKinesisFirehoseDestination = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationseteventdestination-eventdestination.html#cfn-pinpointemail-configurationseteventdestination-eventdestination-matchingeventtypes -pecsededMatchingEventTypes :: Lens' PinpointEmailConfigurationSetEventDestinationEventDestination (ValList Text) -pecsededMatchingEventTypes = lens _pinpointEmailConfigurationSetEventDestinationEventDestinationMatchingEventTypes (\s a -> s { _pinpointEmailConfigurationSetEventDestinationEventDestinationMatchingEventTypes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationseteventdestination-eventdestination.html#cfn-pinpointemail-configurationseteventdestination-eventdestination-pinpointdestination -pecsededPinpointDestination :: Lens' PinpointEmailConfigurationSetEventDestinationEventDestination (Maybe PinpointEmailConfigurationSetEventDestinationPinpointDestination) -pecsededPinpointDestination = lens _pinpointEmailConfigurationSetEventDestinationEventDestinationPinpointDestination (\s a -> s { _pinpointEmailConfigurationSetEventDestinationEventDestinationPinpointDestination = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationseteventdestination-eventdestination.html#cfn-pinpointemail-configurationseteventdestination-eventdestination-snsdestination -pecsededSnsDestination :: Lens' PinpointEmailConfigurationSetEventDestinationEventDestination (Maybe PinpointEmailConfigurationSetEventDestinationSnsDestination) -pecsededSnsDestination = lens _pinpointEmailConfigurationSetEventDestinationEventDestinationSnsDestination (\s a -> s { _pinpointEmailConfigurationSetEventDestinationEventDestinationSnsDestination = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestination.hs b/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestination.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestination.hs +++ /dev/null @@ -1,51 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationseteventdestination-kinesisfirehosedestination.html - -module Stratosphere.ResourceProperties.PinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestination where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- PinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestination. --- See --- 'pinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestination' --- for a more convenient constructor. -data PinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestination = - PinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestination - { _pinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestinationDeliveryStreamArn :: Val Text - , _pinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestinationIamRoleArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON PinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestination where - toJSON PinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestination{..} = - object $ - catMaybes - [ (Just . ("DeliveryStreamArn",) . toJSON) _pinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestinationDeliveryStreamArn - , (Just . ("IamRoleArn",) . toJSON) _pinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestinationIamRoleArn - ] - --- | Constructor for --- 'PinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestination' --- containing required fields as arguments. -pinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestination - :: Val Text -- ^ 'pecsedkfdDeliveryStreamArn' - -> Val Text -- ^ 'pecsedkfdIamRoleArn' - -> PinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestination -pinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestination deliveryStreamArnarg iamRoleArnarg = - PinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestination - { _pinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestinationDeliveryStreamArn = deliveryStreamArnarg - , _pinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestinationIamRoleArn = iamRoleArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationseteventdestination-kinesisfirehosedestination.html#cfn-pinpointemail-configurationseteventdestination-kinesisfirehosedestination-deliverystreamarn -pecsedkfdDeliveryStreamArn :: Lens' PinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestination (Val Text) -pecsedkfdDeliveryStreamArn = lens _pinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestinationDeliveryStreamArn (\s a -> s { _pinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestinationDeliveryStreamArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationseteventdestination-kinesisfirehosedestination.html#cfn-pinpointemail-configurationseteventdestination-kinesisfirehosedestination-iamrolearn -pecsedkfdIamRoleArn :: Lens' PinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestination (Val Text) -pecsedkfdIamRoleArn = lens _pinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestinationIamRoleArn (\s a -> s { _pinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestinationIamRoleArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetEventDestinationPinpointDestination.hs b/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetEventDestinationPinpointDestination.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetEventDestinationPinpointDestination.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationseteventdestination-pinpointdestination.html - -module Stratosphere.ResourceProperties.PinpointEmailConfigurationSetEventDestinationPinpointDestination where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- PinpointEmailConfigurationSetEventDestinationPinpointDestination. See --- 'pinpointEmailConfigurationSetEventDestinationPinpointDestination' for a --- more convenient constructor. -data PinpointEmailConfigurationSetEventDestinationPinpointDestination = - PinpointEmailConfigurationSetEventDestinationPinpointDestination - { _pinpointEmailConfigurationSetEventDestinationPinpointDestinationApplicationArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON PinpointEmailConfigurationSetEventDestinationPinpointDestination where - toJSON PinpointEmailConfigurationSetEventDestinationPinpointDestination{..} = - object $ - catMaybes - [ fmap (("ApplicationArn",) . toJSON) _pinpointEmailConfigurationSetEventDestinationPinpointDestinationApplicationArn - ] - --- | Constructor for --- 'PinpointEmailConfigurationSetEventDestinationPinpointDestination' --- containing required fields as arguments. -pinpointEmailConfigurationSetEventDestinationPinpointDestination - :: PinpointEmailConfigurationSetEventDestinationPinpointDestination -pinpointEmailConfigurationSetEventDestinationPinpointDestination = - PinpointEmailConfigurationSetEventDestinationPinpointDestination - { _pinpointEmailConfigurationSetEventDestinationPinpointDestinationApplicationArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationseteventdestination-pinpointdestination.html#cfn-pinpointemail-configurationseteventdestination-pinpointdestination-applicationarn -pecsedpdApplicationArn :: Lens' PinpointEmailConfigurationSetEventDestinationPinpointDestination (Maybe (Val Text)) -pecsedpdApplicationArn = lens _pinpointEmailConfigurationSetEventDestinationPinpointDestinationApplicationArn (\s a -> s { _pinpointEmailConfigurationSetEventDestinationPinpointDestinationApplicationArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetEventDestinationSnsDestination.hs b/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetEventDestinationSnsDestination.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetEventDestinationSnsDestination.hs +++ /dev/null @@ -1,42 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationseteventdestination-snsdestination.html - -module Stratosphere.ResourceProperties.PinpointEmailConfigurationSetEventDestinationSnsDestination where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- PinpointEmailConfigurationSetEventDestinationSnsDestination. See --- 'pinpointEmailConfigurationSetEventDestinationSnsDestination' for a more --- convenient constructor. -data PinpointEmailConfigurationSetEventDestinationSnsDestination = - PinpointEmailConfigurationSetEventDestinationSnsDestination - { _pinpointEmailConfigurationSetEventDestinationSnsDestinationTopicArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON PinpointEmailConfigurationSetEventDestinationSnsDestination where - toJSON PinpointEmailConfigurationSetEventDestinationSnsDestination{..} = - object $ - catMaybes - [ (Just . ("TopicArn",) . toJSON) _pinpointEmailConfigurationSetEventDestinationSnsDestinationTopicArn - ] - --- | Constructor for --- 'PinpointEmailConfigurationSetEventDestinationSnsDestination' containing --- required fields as arguments. -pinpointEmailConfigurationSetEventDestinationSnsDestination - :: Val Text -- ^ 'pecsedsdTopicArn' - -> PinpointEmailConfigurationSetEventDestinationSnsDestination -pinpointEmailConfigurationSetEventDestinationSnsDestination topicArnarg = - PinpointEmailConfigurationSetEventDestinationSnsDestination - { _pinpointEmailConfigurationSetEventDestinationSnsDestinationTopicArn = topicArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationseteventdestination-snsdestination.html#cfn-pinpointemail-configurationseteventdestination-snsdestination-topicarn -pecsedsdTopicArn :: Lens' PinpointEmailConfigurationSetEventDestinationSnsDestination (Val Text) -pecsedsdTopicArn = lens _pinpointEmailConfigurationSetEventDestinationSnsDestinationTopicArn (\s a -> s { _pinpointEmailConfigurationSetEventDestinationSnsDestinationTopicArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetReputationOptions.hs b/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetReputationOptions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetReputationOptions.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationset-reputationoptions.html - -module Stratosphere.ResourceProperties.PinpointEmailConfigurationSetReputationOptions where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- PinpointEmailConfigurationSetReputationOptions. See --- 'pinpointEmailConfigurationSetReputationOptions' for a more convenient --- constructor. -data PinpointEmailConfigurationSetReputationOptions = - PinpointEmailConfigurationSetReputationOptions - { _pinpointEmailConfigurationSetReputationOptionsReputationMetricsEnabled :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON PinpointEmailConfigurationSetReputationOptions where - toJSON PinpointEmailConfigurationSetReputationOptions{..} = - object $ - catMaybes - [ fmap (("ReputationMetricsEnabled",) . toJSON) _pinpointEmailConfigurationSetReputationOptionsReputationMetricsEnabled - ] - --- | Constructor for 'PinpointEmailConfigurationSetReputationOptions' --- containing required fields as arguments. -pinpointEmailConfigurationSetReputationOptions - :: PinpointEmailConfigurationSetReputationOptions -pinpointEmailConfigurationSetReputationOptions = - PinpointEmailConfigurationSetReputationOptions - { _pinpointEmailConfigurationSetReputationOptionsReputationMetricsEnabled = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationset-reputationoptions.html#cfn-pinpointemail-configurationset-reputationoptions-reputationmetricsenabled -pecsroReputationMetricsEnabled :: Lens' PinpointEmailConfigurationSetReputationOptions (Maybe (Val Bool)) -pecsroReputationMetricsEnabled = lens _pinpointEmailConfigurationSetReputationOptionsReputationMetricsEnabled (\s a -> s { _pinpointEmailConfigurationSetReputationOptionsReputationMetricsEnabled = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetSendingOptions.hs b/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetSendingOptions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetSendingOptions.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationset-sendingoptions.html - -module Stratosphere.ResourceProperties.PinpointEmailConfigurationSetSendingOptions where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- PinpointEmailConfigurationSetSendingOptions. See --- 'pinpointEmailConfigurationSetSendingOptions' for a more convenient --- constructor. -data PinpointEmailConfigurationSetSendingOptions = - PinpointEmailConfigurationSetSendingOptions - { _pinpointEmailConfigurationSetSendingOptionsSendingEnabled :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON PinpointEmailConfigurationSetSendingOptions where - toJSON PinpointEmailConfigurationSetSendingOptions{..} = - object $ - catMaybes - [ fmap (("SendingEnabled",) . toJSON) _pinpointEmailConfigurationSetSendingOptionsSendingEnabled - ] - --- | Constructor for 'PinpointEmailConfigurationSetSendingOptions' containing --- required fields as arguments. -pinpointEmailConfigurationSetSendingOptions - :: PinpointEmailConfigurationSetSendingOptions -pinpointEmailConfigurationSetSendingOptions = - PinpointEmailConfigurationSetSendingOptions - { _pinpointEmailConfigurationSetSendingOptionsSendingEnabled = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationset-sendingoptions.html#cfn-pinpointemail-configurationset-sendingoptions-sendingenabled -pecssoSendingEnabled :: Lens' PinpointEmailConfigurationSetSendingOptions (Maybe (Val Bool)) -pecssoSendingEnabled = lens _pinpointEmailConfigurationSetSendingOptionsSendingEnabled (\s a -> s { _pinpointEmailConfigurationSetSendingOptionsSendingEnabled = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetTags.hs b/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetTags.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetTags.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationset-tags.html - -module Stratosphere.ResourceProperties.PinpointEmailConfigurationSetTags where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointEmailConfigurationSetTags. See --- 'pinpointEmailConfigurationSetTags' for a more convenient constructor. -data PinpointEmailConfigurationSetTags = - PinpointEmailConfigurationSetTags - { _pinpointEmailConfigurationSetTagsKey :: Maybe (Val Text) - , _pinpointEmailConfigurationSetTagsValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON PinpointEmailConfigurationSetTags where - toJSON PinpointEmailConfigurationSetTags{..} = - object $ - catMaybes - [ fmap (("Key",) . toJSON) _pinpointEmailConfigurationSetTagsKey - , fmap (("Value",) . toJSON) _pinpointEmailConfigurationSetTagsValue - ] - --- | Constructor for 'PinpointEmailConfigurationSetTags' containing required --- fields as arguments. -pinpointEmailConfigurationSetTags - :: PinpointEmailConfigurationSetTags -pinpointEmailConfigurationSetTags = - PinpointEmailConfigurationSetTags - { _pinpointEmailConfigurationSetTagsKey = Nothing - , _pinpointEmailConfigurationSetTagsValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationset-tags.html#cfn-pinpointemail-configurationset-tags-key -pecstKey :: Lens' PinpointEmailConfigurationSetTags (Maybe (Val Text)) -pecstKey = lens _pinpointEmailConfigurationSetTagsKey (\s a -> s { _pinpointEmailConfigurationSetTagsKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationset-tags.html#cfn-pinpointemail-configurationset-tags-value -pecstValue :: Lens' PinpointEmailConfigurationSetTags (Maybe (Val Text)) -pecstValue = lens _pinpointEmailConfigurationSetTagsValue (\s a -> s { _pinpointEmailConfigurationSetTagsValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetTrackingOptions.hs b/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetTrackingOptions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointEmailConfigurationSetTrackingOptions.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationset-trackingoptions.html - -module Stratosphere.ResourceProperties.PinpointEmailConfigurationSetTrackingOptions where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- PinpointEmailConfigurationSetTrackingOptions. See --- 'pinpointEmailConfigurationSetTrackingOptions' for a more convenient --- constructor. -data PinpointEmailConfigurationSetTrackingOptions = - PinpointEmailConfigurationSetTrackingOptions - { _pinpointEmailConfigurationSetTrackingOptionsCustomRedirectDomain :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON PinpointEmailConfigurationSetTrackingOptions where - toJSON PinpointEmailConfigurationSetTrackingOptions{..} = - object $ - catMaybes - [ fmap (("CustomRedirectDomain",) . toJSON) _pinpointEmailConfigurationSetTrackingOptionsCustomRedirectDomain - ] - --- | Constructor for 'PinpointEmailConfigurationSetTrackingOptions' containing --- required fields as arguments. -pinpointEmailConfigurationSetTrackingOptions - :: PinpointEmailConfigurationSetTrackingOptions -pinpointEmailConfigurationSetTrackingOptions = - PinpointEmailConfigurationSetTrackingOptions - { _pinpointEmailConfigurationSetTrackingOptionsCustomRedirectDomain = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-configurationset-trackingoptions.html#cfn-pinpointemail-configurationset-trackingoptions-customredirectdomain -pecstoCustomRedirectDomain :: Lens' PinpointEmailConfigurationSetTrackingOptions (Maybe (Val Text)) -pecstoCustomRedirectDomain = lens _pinpointEmailConfigurationSetTrackingOptionsCustomRedirectDomain (\s a -> s { _pinpointEmailConfigurationSetTrackingOptionsCustomRedirectDomain = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointEmailDedicatedIpPoolTags.hs b/library-gen/Stratosphere/ResourceProperties/PinpointEmailDedicatedIpPoolTags.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointEmailDedicatedIpPoolTags.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-dedicatedippool-tags.html - -module Stratosphere.ResourceProperties.PinpointEmailDedicatedIpPoolTags where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointEmailDedicatedIpPoolTags. See --- 'pinpointEmailDedicatedIpPoolTags' for a more convenient constructor. -data PinpointEmailDedicatedIpPoolTags = - PinpointEmailDedicatedIpPoolTags - { _pinpointEmailDedicatedIpPoolTagsKey :: Maybe (Val Text) - , _pinpointEmailDedicatedIpPoolTagsValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON PinpointEmailDedicatedIpPoolTags where - toJSON PinpointEmailDedicatedIpPoolTags{..} = - object $ - catMaybes - [ fmap (("Key",) . toJSON) _pinpointEmailDedicatedIpPoolTagsKey - , fmap (("Value",) . toJSON) _pinpointEmailDedicatedIpPoolTagsValue - ] - --- | Constructor for 'PinpointEmailDedicatedIpPoolTags' containing required --- fields as arguments. -pinpointEmailDedicatedIpPoolTags - :: PinpointEmailDedicatedIpPoolTags -pinpointEmailDedicatedIpPoolTags = - PinpointEmailDedicatedIpPoolTags - { _pinpointEmailDedicatedIpPoolTagsKey = Nothing - , _pinpointEmailDedicatedIpPoolTagsValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-dedicatedippool-tags.html#cfn-pinpointemail-dedicatedippool-tags-key -pediptKey :: Lens' PinpointEmailDedicatedIpPoolTags (Maybe (Val Text)) -pediptKey = lens _pinpointEmailDedicatedIpPoolTagsKey (\s a -> s { _pinpointEmailDedicatedIpPoolTagsKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-dedicatedippool-tags.html#cfn-pinpointemail-dedicatedippool-tags-value -pediptValue :: Lens' PinpointEmailDedicatedIpPoolTags (Maybe (Val Text)) -pediptValue = lens _pinpointEmailDedicatedIpPoolTagsValue (\s a -> s { _pinpointEmailDedicatedIpPoolTagsValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointEmailIdentityMailFromAttributes.hs b/library-gen/Stratosphere/ResourceProperties/PinpointEmailIdentityMailFromAttributes.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointEmailIdentityMailFromAttributes.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-identity-mailfromattributes.html - -module Stratosphere.ResourceProperties.PinpointEmailIdentityMailFromAttributes where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointEmailIdentityMailFromAttributes. --- See 'pinpointEmailIdentityMailFromAttributes' for a more convenient --- constructor. -data PinpointEmailIdentityMailFromAttributes = - PinpointEmailIdentityMailFromAttributes - { _pinpointEmailIdentityMailFromAttributesBehaviorOnMxFailure :: Maybe (Val Text) - , _pinpointEmailIdentityMailFromAttributesMailFromDomain :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON PinpointEmailIdentityMailFromAttributes where - toJSON PinpointEmailIdentityMailFromAttributes{..} = - object $ - catMaybes - [ fmap (("BehaviorOnMxFailure",) . toJSON) _pinpointEmailIdentityMailFromAttributesBehaviorOnMxFailure - , fmap (("MailFromDomain",) . toJSON) _pinpointEmailIdentityMailFromAttributesMailFromDomain - ] - --- | Constructor for 'PinpointEmailIdentityMailFromAttributes' containing --- required fields as arguments. -pinpointEmailIdentityMailFromAttributes - :: PinpointEmailIdentityMailFromAttributes -pinpointEmailIdentityMailFromAttributes = - PinpointEmailIdentityMailFromAttributes - { _pinpointEmailIdentityMailFromAttributesBehaviorOnMxFailure = Nothing - , _pinpointEmailIdentityMailFromAttributesMailFromDomain = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-identity-mailfromattributes.html#cfn-pinpointemail-identity-mailfromattributes-behavioronmxfailure -peimfaBehaviorOnMxFailure :: Lens' PinpointEmailIdentityMailFromAttributes (Maybe (Val Text)) -peimfaBehaviorOnMxFailure = lens _pinpointEmailIdentityMailFromAttributesBehaviorOnMxFailure (\s a -> s { _pinpointEmailIdentityMailFromAttributesBehaviorOnMxFailure = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-identity-mailfromattributes.html#cfn-pinpointemail-identity-mailfromattributes-mailfromdomain -peimfaMailFromDomain :: Lens' PinpointEmailIdentityMailFromAttributes (Maybe (Val Text)) -peimfaMailFromDomain = lens _pinpointEmailIdentityMailFromAttributesMailFromDomain (\s a -> s { _pinpointEmailIdentityMailFromAttributesMailFromDomain = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointEmailIdentityTags.hs b/library-gen/Stratosphere/ResourceProperties/PinpointEmailIdentityTags.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointEmailIdentityTags.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-identity-tags.html - -module Stratosphere.ResourceProperties.PinpointEmailIdentityTags where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointEmailIdentityTags. See --- 'pinpointEmailIdentityTags' for a more convenient constructor. -data PinpointEmailIdentityTags = - PinpointEmailIdentityTags - { _pinpointEmailIdentityTagsKey :: Maybe (Val Text) - , _pinpointEmailIdentityTagsValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON PinpointEmailIdentityTags where - toJSON PinpointEmailIdentityTags{..} = - object $ - catMaybes - [ fmap (("Key",) . toJSON) _pinpointEmailIdentityTagsKey - , fmap (("Value",) . toJSON) _pinpointEmailIdentityTagsValue - ] - --- | Constructor for 'PinpointEmailIdentityTags' containing required fields as --- arguments. -pinpointEmailIdentityTags - :: PinpointEmailIdentityTags -pinpointEmailIdentityTags = - PinpointEmailIdentityTags - { _pinpointEmailIdentityTagsKey = Nothing - , _pinpointEmailIdentityTagsValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-identity-tags.html#cfn-pinpointemail-identity-tags-key -peitKey :: Lens' PinpointEmailIdentityTags (Maybe (Val Text)) -peitKey = lens _pinpointEmailIdentityTagsKey (\s a -> s { _pinpointEmailIdentityTagsKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpointemail-identity-tags.html#cfn-pinpointemail-identity-tags-value -peitValue :: Lens' PinpointEmailIdentityTags (Maybe (Val Text)) -peitValue = lens _pinpointEmailIdentityTagsValue (\s a -> s { _pinpointEmailIdentityTagsValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointPushTemplateAPNSPushNotificationTemplate.hs b/library-gen/Stratosphere/ResourceProperties/PinpointPushTemplateAPNSPushNotificationTemplate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointPushTemplateAPNSPushNotificationTemplate.hs +++ /dev/null @@ -1,75 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-apnspushnotificationtemplate.html - -module Stratosphere.ResourceProperties.PinpointPushTemplateAPNSPushNotificationTemplate where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- PinpointPushTemplateAPNSPushNotificationTemplate. See --- 'pinpointPushTemplateAPNSPushNotificationTemplate' for a more convenient --- constructor. -data PinpointPushTemplateAPNSPushNotificationTemplate = - PinpointPushTemplateAPNSPushNotificationTemplate - { _pinpointPushTemplateAPNSPushNotificationTemplateAction :: Maybe (Val Text) - , _pinpointPushTemplateAPNSPushNotificationTemplateBody :: Maybe (Val Text) - , _pinpointPushTemplateAPNSPushNotificationTemplateMediaUrl :: Maybe (Val Text) - , _pinpointPushTemplateAPNSPushNotificationTemplateSound :: Maybe (Val Text) - , _pinpointPushTemplateAPNSPushNotificationTemplateTitle :: Maybe (Val Text) - , _pinpointPushTemplateAPNSPushNotificationTemplateUrl :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON PinpointPushTemplateAPNSPushNotificationTemplate where - toJSON PinpointPushTemplateAPNSPushNotificationTemplate{..} = - object $ - catMaybes - [ fmap (("Action",) . toJSON) _pinpointPushTemplateAPNSPushNotificationTemplateAction - , fmap (("Body",) . toJSON) _pinpointPushTemplateAPNSPushNotificationTemplateBody - , fmap (("MediaUrl",) . toJSON) _pinpointPushTemplateAPNSPushNotificationTemplateMediaUrl - , fmap (("Sound",) . toJSON) _pinpointPushTemplateAPNSPushNotificationTemplateSound - , fmap (("Title",) . toJSON) _pinpointPushTemplateAPNSPushNotificationTemplateTitle - , fmap (("Url",) . toJSON) _pinpointPushTemplateAPNSPushNotificationTemplateUrl - ] - --- | Constructor for 'PinpointPushTemplateAPNSPushNotificationTemplate' --- containing required fields as arguments. -pinpointPushTemplateAPNSPushNotificationTemplate - :: PinpointPushTemplateAPNSPushNotificationTemplate -pinpointPushTemplateAPNSPushNotificationTemplate = - PinpointPushTemplateAPNSPushNotificationTemplate - { _pinpointPushTemplateAPNSPushNotificationTemplateAction = Nothing - , _pinpointPushTemplateAPNSPushNotificationTemplateBody = Nothing - , _pinpointPushTemplateAPNSPushNotificationTemplateMediaUrl = Nothing - , _pinpointPushTemplateAPNSPushNotificationTemplateSound = Nothing - , _pinpointPushTemplateAPNSPushNotificationTemplateTitle = Nothing - , _pinpointPushTemplateAPNSPushNotificationTemplateUrl = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-apnspushnotificationtemplate.html#cfn-pinpoint-pushtemplate-apnspushnotificationtemplate-action -pptapnspntAction :: Lens' PinpointPushTemplateAPNSPushNotificationTemplate (Maybe (Val Text)) -pptapnspntAction = lens _pinpointPushTemplateAPNSPushNotificationTemplateAction (\s a -> s { _pinpointPushTemplateAPNSPushNotificationTemplateAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-apnspushnotificationtemplate.html#cfn-pinpoint-pushtemplate-apnspushnotificationtemplate-body -pptapnspntBody :: Lens' PinpointPushTemplateAPNSPushNotificationTemplate (Maybe (Val Text)) -pptapnspntBody = lens _pinpointPushTemplateAPNSPushNotificationTemplateBody (\s a -> s { _pinpointPushTemplateAPNSPushNotificationTemplateBody = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-apnspushnotificationtemplate.html#cfn-pinpoint-pushtemplate-apnspushnotificationtemplate-mediaurl -pptapnspntMediaUrl :: Lens' PinpointPushTemplateAPNSPushNotificationTemplate (Maybe (Val Text)) -pptapnspntMediaUrl = lens _pinpointPushTemplateAPNSPushNotificationTemplateMediaUrl (\s a -> s { _pinpointPushTemplateAPNSPushNotificationTemplateMediaUrl = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-apnspushnotificationtemplate.html#cfn-pinpoint-pushtemplate-apnspushnotificationtemplate-sound -pptapnspntSound :: Lens' PinpointPushTemplateAPNSPushNotificationTemplate (Maybe (Val Text)) -pptapnspntSound = lens _pinpointPushTemplateAPNSPushNotificationTemplateSound (\s a -> s { _pinpointPushTemplateAPNSPushNotificationTemplateSound = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-apnspushnotificationtemplate.html#cfn-pinpoint-pushtemplate-apnspushnotificationtemplate-title -pptapnspntTitle :: Lens' PinpointPushTemplateAPNSPushNotificationTemplate (Maybe (Val Text)) -pptapnspntTitle = lens _pinpointPushTemplateAPNSPushNotificationTemplateTitle (\s a -> s { _pinpointPushTemplateAPNSPushNotificationTemplateTitle = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-apnspushnotificationtemplate.html#cfn-pinpoint-pushtemplate-apnspushnotificationtemplate-url -pptapnspntUrl :: Lens' PinpointPushTemplateAPNSPushNotificationTemplate (Maybe (Val Text)) -pptapnspntUrl = lens _pinpointPushTemplateAPNSPushNotificationTemplateUrl (\s a -> s { _pinpointPushTemplateAPNSPushNotificationTemplateUrl = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointPushTemplateAndroidPushNotificationTemplate.hs b/library-gen/Stratosphere/ResourceProperties/PinpointPushTemplateAndroidPushNotificationTemplate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointPushTemplateAndroidPushNotificationTemplate.hs +++ /dev/null @@ -1,89 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-androidpushnotificationtemplate.html - -module Stratosphere.ResourceProperties.PinpointPushTemplateAndroidPushNotificationTemplate where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- PinpointPushTemplateAndroidPushNotificationTemplate. See --- 'pinpointPushTemplateAndroidPushNotificationTemplate' for a more --- convenient constructor. -data PinpointPushTemplateAndroidPushNotificationTemplate = - PinpointPushTemplateAndroidPushNotificationTemplate - { _pinpointPushTemplateAndroidPushNotificationTemplateAction :: Maybe (Val Text) - , _pinpointPushTemplateAndroidPushNotificationTemplateBody :: Maybe (Val Text) - , _pinpointPushTemplateAndroidPushNotificationTemplateImageIconUrl :: Maybe (Val Text) - , _pinpointPushTemplateAndroidPushNotificationTemplateImageUrl :: Maybe (Val Text) - , _pinpointPushTemplateAndroidPushNotificationTemplateSmallImageIconUrl :: Maybe (Val Text) - , _pinpointPushTemplateAndroidPushNotificationTemplateSound :: Maybe (Val Text) - , _pinpointPushTemplateAndroidPushNotificationTemplateTitle :: Maybe (Val Text) - , _pinpointPushTemplateAndroidPushNotificationTemplateUrl :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON PinpointPushTemplateAndroidPushNotificationTemplate where - toJSON PinpointPushTemplateAndroidPushNotificationTemplate{..} = - object $ - catMaybes - [ fmap (("Action",) . toJSON) _pinpointPushTemplateAndroidPushNotificationTemplateAction - , fmap (("Body",) . toJSON) _pinpointPushTemplateAndroidPushNotificationTemplateBody - , fmap (("ImageIconUrl",) . toJSON) _pinpointPushTemplateAndroidPushNotificationTemplateImageIconUrl - , fmap (("ImageUrl",) . toJSON) _pinpointPushTemplateAndroidPushNotificationTemplateImageUrl - , fmap (("SmallImageIconUrl",) . toJSON) _pinpointPushTemplateAndroidPushNotificationTemplateSmallImageIconUrl - , fmap (("Sound",) . toJSON) _pinpointPushTemplateAndroidPushNotificationTemplateSound - , fmap (("Title",) . toJSON) _pinpointPushTemplateAndroidPushNotificationTemplateTitle - , fmap (("Url",) . toJSON) _pinpointPushTemplateAndroidPushNotificationTemplateUrl - ] - --- | Constructor for 'PinpointPushTemplateAndroidPushNotificationTemplate' --- containing required fields as arguments. -pinpointPushTemplateAndroidPushNotificationTemplate - :: PinpointPushTemplateAndroidPushNotificationTemplate -pinpointPushTemplateAndroidPushNotificationTemplate = - PinpointPushTemplateAndroidPushNotificationTemplate - { _pinpointPushTemplateAndroidPushNotificationTemplateAction = Nothing - , _pinpointPushTemplateAndroidPushNotificationTemplateBody = Nothing - , _pinpointPushTemplateAndroidPushNotificationTemplateImageIconUrl = Nothing - , _pinpointPushTemplateAndroidPushNotificationTemplateImageUrl = Nothing - , _pinpointPushTemplateAndroidPushNotificationTemplateSmallImageIconUrl = Nothing - , _pinpointPushTemplateAndroidPushNotificationTemplateSound = Nothing - , _pinpointPushTemplateAndroidPushNotificationTemplateTitle = Nothing - , _pinpointPushTemplateAndroidPushNotificationTemplateUrl = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-androidpushnotificationtemplate.html#cfn-pinpoint-pushtemplate-androidpushnotificationtemplate-action -pptapntAction :: Lens' PinpointPushTemplateAndroidPushNotificationTemplate (Maybe (Val Text)) -pptapntAction = lens _pinpointPushTemplateAndroidPushNotificationTemplateAction (\s a -> s { _pinpointPushTemplateAndroidPushNotificationTemplateAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-androidpushnotificationtemplate.html#cfn-pinpoint-pushtemplate-androidpushnotificationtemplate-body -pptapntBody :: Lens' PinpointPushTemplateAndroidPushNotificationTemplate (Maybe (Val Text)) -pptapntBody = lens _pinpointPushTemplateAndroidPushNotificationTemplateBody (\s a -> s { _pinpointPushTemplateAndroidPushNotificationTemplateBody = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-androidpushnotificationtemplate.html#cfn-pinpoint-pushtemplate-androidpushnotificationtemplate-imageiconurl -pptapntImageIconUrl :: Lens' PinpointPushTemplateAndroidPushNotificationTemplate (Maybe (Val Text)) -pptapntImageIconUrl = lens _pinpointPushTemplateAndroidPushNotificationTemplateImageIconUrl (\s a -> s { _pinpointPushTemplateAndroidPushNotificationTemplateImageIconUrl = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-androidpushnotificationtemplate.html#cfn-pinpoint-pushtemplate-androidpushnotificationtemplate-imageurl -pptapntImageUrl :: Lens' PinpointPushTemplateAndroidPushNotificationTemplate (Maybe (Val Text)) -pptapntImageUrl = lens _pinpointPushTemplateAndroidPushNotificationTemplateImageUrl (\s a -> s { _pinpointPushTemplateAndroidPushNotificationTemplateImageUrl = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-androidpushnotificationtemplate.html#cfn-pinpoint-pushtemplate-androidpushnotificationtemplate-smallimageiconurl -pptapntSmallImageIconUrl :: Lens' PinpointPushTemplateAndroidPushNotificationTemplate (Maybe (Val Text)) -pptapntSmallImageIconUrl = lens _pinpointPushTemplateAndroidPushNotificationTemplateSmallImageIconUrl (\s a -> s { _pinpointPushTemplateAndroidPushNotificationTemplateSmallImageIconUrl = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-androidpushnotificationtemplate.html#cfn-pinpoint-pushtemplate-androidpushnotificationtemplate-sound -pptapntSound :: Lens' PinpointPushTemplateAndroidPushNotificationTemplate (Maybe (Val Text)) -pptapntSound = lens _pinpointPushTemplateAndroidPushNotificationTemplateSound (\s a -> s { _pinpointPushTemplateAndroidPushNotificationTemplateSound = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-androidpushnotificationtemplate.html#cfn-pinpoint-pushtemplate-androidpushnotificationtemplate-title -pptapntTitle :: Lens' PinpointPushTemplateAndroidPushNotificationTemplate (Maybe (Val Text)) -pptapntTitle = lens _pinpointPushTemplateAndroidPushNotificationTemplateTitle (\s a -> s { _pinpointPushTemplateAndroidPushNotificationTemplateTitle = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-androidpushnotificationtemplate.html#cfn-pinpoint-pushtemplate-androidpushnotificationtemplate-url -pptapntUrl :: Lens' PinpointPushTemplateAndroidPushNotificationTemplate (Maybe (Val Text)) -pptapntUrl = lens _pinpointPushTemplateAndroidPushNotificationTemplateUrl (\s a -> s { _pinpointPushTemplateAndroidPushNotificationTemplateUrl = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointPushTemplateDefaultPushNotificationTemplate.hs b/library-gen/Stratosphere/ResourceProperties/PinpointPushTemplateDefaultPushNotificationTemplate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointPushTemplateDefaultPushNotificationTemplate.hs +++ /dev/null @@ -1,68 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-defaultpushnotificationtemplate.html - -module Stratosphere.ResourceProperties.PinpointPushTemplateDefaultPushNotificationTemplate where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- PinpointPushTemplateDefaultPushNotificationTemplate. See --- 'pinpointPushTemplateDefaultPushNotificationTemplate' for a more --- convenient constructor. -data PinpointPushTemplateDefaultPushNotificationTemplate = - PinpointPushTemplateDefaultPushNotificationTemplate - { _pinpointPushTemplateDefaultPushNotificationTemplateAction :: Maybe (Val Text) - , _pinpointPushTemplateDefaultPushNotificationTemplateBody :: Maybe (Val Text) - , _pinpointPushTemplateDefaultPushNotificationTemplateSound :: Maybe (Val Text) - , _pinpointPushTemplateDefaultPushNotificationTemplateTitle :: Maybe (Val Text) - , _pinpointPushTemplateDefaultPushNotificationTemplateUrl :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON PinpointPushTemplateDefaultPushNotificationTemplate where - toJSON PinpointPushTemplateDefaultPushNotificationTemplate{..} = - object $ - catMaybes - [ fmap (("Action",) . toJSON) _pinpointPushTemplateDefaultPushNotificationTemplateAction - , fmap (("Body",) . toJSON) _pinpointPushTemplateDefaultPushNotificationTemplateBody - , fmap (("Sound",) . toJSON) _pinpointPushTemplateDefaultPushNotificationTemplateSound - , fmap (("Title",) . toJSON) _pinpointPushTemplateDefaultPushNotificationTemplateTitle - , fmap (("Url",) . toJSON) _pinpointPushTemplateDefaultPushNotificationTemplateUrl - ] - --- | Constructor for 'PinpointPushTemplateDefaultPushNotificationTemplate' --- containing required fields as arguments. -pinpointPushTemplateDefaultPushNotificationTemplate - :: PinpointPushTemplateDefaultPushNotificationTemplate -pinpointPushTemplateDefaultPushNotificationTemplate = - PinpointPushTemplateDefaultPushNotificationTemplate - { _pinpointPushTemplateDefaultPushNotificationTemplateAction = Nothing - , _pinpointPushTemplateDefaultPushNotificationTemplateBody = Nothing - , _pinpointPushTemplateDefaultPushNotificationTemplateSound = Nothing - , _pinpointPushTemplateDefaultPushNotificationTemplateTitle = Nothing - , _pinpointPushTemplateDefaultPushNotificationTemplateUrl = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-defaultpushnotificationtemplate.html#cfn-pinpoint-pushtemplate-defaultpushnotificationtemplate-action -pptdpntAction :: Lens' PinpointPushTemplateDefaultPushNotificationTemplate (Maybe (Val Text)) -pptdpntAction = lens _pinpointPushTemplateDefaultPushNotificationTemplateAction (\s a -> s { _pinpointPushTemplateDefaultPushNotificationTemplateAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-defaultpushnotificationtemplate.html#cfn-pinpoint-pushtemplate-defaultpushnotificationtemplate-body -pptdpntBody :: Lens' PinpointPushTemplateDefaultPushNotificationTemplate (Maybe (Val Text)) -pptdpntBody = lens _pinpointPushTemplateDefaultPushNotificationTemplateBody (\s a -> s { _pinpointPushTemplateDefaultPushNotificationTemplateBody = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-defaultpushnotificationtemplate.html#cfn-pinpoint-pushtemplate-defaultpushnotificationtemplate-sound -pptdpntSound :: Lens' PinpointPushTemplateDefaultPushNotificationTemplate (Maybe (Val Text)) -pptdpntSound = lens _pinpointPushTemplateDefaultPushNotificationTemplateSound (\s a -> s { _pinpointPushTemplateDefaultPushNotificationTemplateSound = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-defaultpushnotificationtemplate.html#cfn-pinpoint-pushtemplate-defaultpushnotificationtemplate-title -pptdpntTitle :: Lens' PinpointPushTemplateDefaultPushNotificationTemplate (Maybe (Val Text)) -pptdpntTitle = lens _pinpointPushTemplateDefaultPushNotificationTemplateTitle (\s a -> s { _pinpointPushTemplateDefaultPushNotificationTemplateTitle = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-pushtemplate-defaultpushnotificationtemplate.html#cfn-pinpoint-pushtemplate-defaultpushnotificationtemplate-url -pptdpntUrl :: Lens' PinpointPushTemplateDefaultPushNotificationTemplate (Maybe (Val Text)) -pptdpntUrl = lens _pinpointPushTemplateDefaultPushNotificationTemplateUrl (\s a -> s { _pinpointPushTemplateDefaultPushNotificationTemplateUrl = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointSegmentAttributeDimension.hs b/library-gen/Stratosphere/ResourceProperties/PinpointSegmentAttributeDimension.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointSegmentAttributeDimension.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-attributedimension.html - -module Stratosphere.ResourceProperties.PinpointSegmentAttributeDimension where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointSegmentAttributeDimension. See --- 'pinpointSegmentAttributeDimension' for a more convenient constructor. -data PinpointSegmentAttributeDimension = - PinpointSegmentAttributeDimension - { _pinpointSegmentAttributeDimensionAttributeType :: Maybe (Val Text) - , _pinpointSegmentAttributeDimensionValues :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON PinpointSegmentAttributeDimension where - toJSON PinpointSegmentAttributeDimension{..} = - object $ - catMaybes - [ fmap (("AttributeType",) . toJSON) _pinpointSegmentAttributeDimensionAttributeType - , fmap (("Values",) . toJSON) _pinpointSegmentAttributeDimensionValues - ] - --- | Constructor for 'PinpointSegmentAttributeDimension' containing required --- fields as arguments. -pinpointSegmentAttributeDimension - :: PinpointSegmentAttributeDimension -pinpointSegmentAttributeDimension = - PinpointSegmentAttributeDimension - { _pinpointSegmentAttributeDimensionAttributeType = Nothing - , _pinpointSegmentAttributeDimensionValues = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-attributedimension.html#cfn-pinpoint-segment-attributedimension-attributetype -psadAttributeType :: Lens' PinpointSegmentAttributeDimension (Maybe (Val Text)) -psadAttributeType = lens _pinpointSegmentAttributeDimensionAttributeType (\s a -> s { _pinpointSegmentAttributeDimensionAttributeType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-attributedimension.html#cfn-pinpoint-segment-attributedimension-values -psadValues :: Lens' PinpointSegmentAttributeDimension (Maybe (ValList Text)) -psadValues = lens _pinpointSegmentAttributeDimensionValues (\s a -> s { _pinpointSegmentAttributeDimensionValues = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointSegmentBehavior.hs b/library-gen/Stratosphere/ResourceProperties/PinpointSegmentBehavior.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointSegmentBehavior.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-behavior.html - -module Stratosphere.ResourceProperties.PinpointSegmentBehavior where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.PinpointSegmentRecency - --- | Full data type definition for PinpointSegmentBehavior. See --- 'pinpointSegmentBehavior' for a more convenient constructor. -data PinpointSegmentBehavior = - PinpointSegmentBehavior - { _pinpointSegmentBehaviorRecency :: Maybe PinpointSegmentRecency - } deriving (Show, Eq) - -instance ToJSON PinpointSegmentBehavior where - toJSON PinpointSegmentBehavior{..} = - object $ - catMaybes - [ fmap (("Recency",) . toJSON) _pinpointSegmentBehaviorRecency - ] - --- | Constructor for 'PinpointSegmentBehavior' containing required fields as --- arguments. -pinpointSegmentBehavior - :: PinpointSegmentBehavior -pinpointSegmentBehavior = - PinpointSegmentBehavior - { _pinpointSegmentBehaviorRecency = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-behavior.html#cfn-pinpoint-segment-segmentdimensions-behavior-recency -psbRecency :: Lens' PinpointSegmentBehavior (Maybe PinpointSegmentRecency) -psbRecency = lens _pinpointSegmentBehaviorRecency (\s a -> s { _pinpointSegmentBehaviorRecency = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointSegmentCoordinates.hs b/library-gen/Stratosphere/ResourceProperties/PinpointSegmentCoordinates.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointSegmentCoordinates.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-location-gpspoint-coordinates.html - -module Stratosphere.ResourceProperties.PinpointSegmentCoordinates where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointSegmentCoordinates. See --- 'pinpointSegmentCoordinates' for a more convenient constructor. -data PinpointSegmentCoordinates = - PinpointSegmentCoordinates - { _pinpointSegmentCoordinatesLatitude :: Val Double - , _pinpointSegmentCoordinatesLongitude :: Val Double - } deriving (Show, Eq) - -instance ToJSON PinpointSegmentCoordinates where - toJSON PinpointSegmentCoordinates{..} = - object $ - catMaybes - [ (Just . ("Latitude",) . toJSON) _pinpointSegmentCoordinatesLatitude - , (Just . ("Longitude",) . toJSON) _pinpointSegmentCoordinatesLongitude - ] - --- | Constructor for 'PinpointSegmentCoordinates' containing required fields --- as arguments. -pinpointSegmentCoordinates - :: Val Double -- ^ 'pscLatitude' - -> Val Double -- ^ 'pscLongitude' - -> PinpointSegmentCoordinates -pinpointSegmentCoordinates latitudearg longitudearg = - PinpointSegmentCoordinates - { _pinpointSegmentCoordinatesLatitude = latitudearg - , _pinpointSegmentCoordinatesLongitude = longitudearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-location-gpspoint-coordinates.html#cfn-pinpoint-segment-segmentdimensions-location-gpspoint-coordinates-latitude -pscLatitude :: Lens' PinpointSegmentCoordinates (Val Double) -pscLatitude = lens _pinpointSegmentCoordinatesLatitude (\s a -> s { _pinpointSegmentCoordinatesLatitude = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-location-gpspoint-coordinates.html#cfn-pinpoint-segment-segmentdimensions-location-gpspoint-coordinates-longitude -pscLongitude :: Lens' PinpointSegmentCoordinates (Val Double) -pscLongitude = lens _pinpointSegmentCoordinatesLongitude (\s a -> s { _pinpointSegmentCoordinatesLongitude = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointSegmentDemographic.hs b/library-gen/Stratosphere/ResourceProperties/PinpointSegmentDemographic.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointSegmentDemographic.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-demographic.html - -module Stratosphere.ResourceProperties.PinpointSegmentDemographic where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.PinpointSegmentSetDimension - --- | Full data type definition for PinpointSegmentDemographic. See --- 'pinpointSegmentDemographic' for a more convenient constructor. -data PinpointSegmentDemographic = - PinpointSegmentDemographic - { _pinpointSegmentDemographicAppVersion :: Maybe PinpointSegmentSetDimension - , _pinpointSegmentDemographicChannel :: Maybe PinpointSegmentSetDimension - , _pinpointSegmentDemographicDeviceType :: Maybe PinpointSegmentSetDimension - , _pinpointSegmentDemographicMake :: Maybe PinpointSegmentSetDimension - , _pinpointSegmentDemographicModel :: Maybe PinpointSegmentSetDimension - , _pinpointSegmentDemographicPlatform :: Maybe PinpointSegmentSetDimension - } deriving (Show, Eq) - -instance ToJSON PinpointSegmentDemographic where - toJSON PinpointSegmentDemographic{..} = - object $ - catMaybes - [ fmap (("AppVersion",) . toJSON) _pinpointSegmentDemographicAppVersion - , fmap (("Channel",) . toJSON) _pinpointSegmentDemographicChannel - , fmap (("DeviceType",) . toJSON) _pinpointSegmentDemographicDeviceType - , fmap (("Make",) . toJSON) _pinpointSegmentDemographicMake - , fmap (("Model",) . toJSON) _pinpointSegmentDemographicModel - , fmap (("Platform",) . toJSON) _pinpointSegmentDemographicPlatform - ] - --- | Constructor for 'PinpointSegmentDemographic' containing required fields --- as arguments. -pinpointSegmentDemographic - :: PinpointSegmentDemographic -pinpointSegmentDemographic = - PinpointSegmentDemographic - { _pinpointSegmentDemographicAppVersion = Nothing - , _pinpointSegmentDemographicChannel = Nothing - , _pinpointSegmentDemographicDeviceType = Nothing - , _pinpointSegmentDemographicMake = Nothing - , _pinpointSegmentDemographicModel = Nothing - , _pinpointSegmentDemographicPlatform = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-demographic.html#cfn-pinpoint-segment-segmentdimensions-demographic-appversion -psdAppVersion :: Lens' PinpointSegmentDemographic (Maybe PinpointSegmentSetDimension) -psdAppVersion = lens _pinpointSegmentDemographicAppVersion (\s a -> s { _pinpointSegmentDemographicAppVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-demographic.html#cfn-pinpoint-segment-segmentdimensions-demographic-channel -psdChannel :: Lens' PinpointSegmentDemographic (Maybe PinpointSegmentSetDimension) -psdChannel = lens _pinpointSegmentDemographicChannel (\s a -> s { _pinpointSegmentDemographicChannel = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-demographic.html#cfn-pinpoint-segment-segmentdimensions-demographic-devicetype -psdDeviceType :: Lens' PinpointSegmentDemographic (Maybe PinpointSegmentSetDimension) -psdDeviceType = lens _pinpointSegmentDemographicDeviceType (\s a -> s { _pinpointSegmentDemographicDeviceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-demographic.html#cfn-pinpoint-segment-segmentdimensions-demographic-make -psdMake :: Lens' PinpointSegmentDemographic (Maybe PinpointSegmentSetDimension) -psdMake = lens _pinpointSegmentDemographicMake (\s a -> s { _pinpointSegmentDemographicMake = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-demographic.html#cfn-pinpoint-segment-segmentdimensions-demographic-model -psdModel :: Lens' PinpointSegmentDemographic (Maybe PinpointSegmentSetDimension) -psdModel = lens _pinpointSegmentDemographicModel (\s a -> s { _pinpointSegmentDemographicModel = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-demographic.html#cfn-pinpoint-segment-segmentdimensions-demographic-platform -psdPlatform :: Lens' PinpointSegmentDemographic (Maybe PinpointSegmentSetDimension) -psdPlatform = lens _pinpointSegmentDemographicPlatform (\s a -> s { _pinpointSegmentDemographicPlatform = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointSegmentGPSPoint.hs b/library-gen/Stratosphere/ResourceProperties/PinpointSegmentGPSPoint.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointSegmentGPSPoint.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-location-gpspoint.html - -module Stratosphere.ResourceProperties.PinpointSegmentGPSPoint where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.PinpointSegmentCoordinates - --- | Full data type definition for PinpointSegmentGPSPoint. See --- 'pinpointSegmentGPSPoint' for a more convenient constructor. -data PinpointSegmentGPSPoint = - PinpointSegmentGPSPoint - { _pinpointSegmentGPSPointCoordinates :: PinpointSegmentCoordinates - , _pinpointSegmentGPSPointRangeInKilometers :: Val Double - } deriving (Show, Eq) - -instance ToJSON PinpointSegmentGPSPoint where - toJSON PinpointSegmentGPSPoint{..} = - object $ - catMaybes - [ (Just . ("Coordinates",) . toJSON) _pinpointSegmentGPSPointCoordinates - , (Just . ("RangeInKilometers",) . toJSON) _pinpointSegmentGPSPointRangeInKilometers - ] - --- | Constructor for 'PinpointSegmentGPSPoint' containing required fields as --- arguments. -pinpointSegmentGPSPoint - :: PinpointSegmentCoordinates -- ^ 'psgpspCoordinates' - -> Val Double -- ^ 'psgpspRangeInKilometers' - -> PinpointSegmentGPSPoint -pinpointSegmentGPSPoint coordinatesarg rangeInKilometersarg = - PinpointSegmentGPSPoint - { _pinpointSegmentGPSPointCoordinates = coordinatesarg - , _pinpointSegmentGPSPointRangeInKilometers = rangeInKilometersarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-location-gpspoint.html#cfn-pinpoint-segment-segmentdimensions-location-gpspoint-coordinates -psgpspCoordinates :: Lens' PinpointSegmentGPSPoint PinpointSegmentCoordinates -psgpspCoordinates = lens _pinpointSegmentGPSPointCoordinates (\s a -> s { _pinpointSegmentGPSPointCoordinates = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-location-gpspoint.html#cfn-pinpoint-segment-segmentdimensions-location-gpspoint-rangeinkilometers -psgpspRangeInKilometers :: Lens' PinpointSegmentGPSPoint (Val Double) -psgpspRangeInKilometers = lens _pinpointSegmentGPSPointRangeInKilometers (\s a -> s { _pinpointSegmentGPSPointRangeInKilometers = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointSegmentGroups.hs b/library-gen/Stratosphere/ResourceProperties/PinpointSegmentGroups.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointSegmentGroups.hs +++ /dev/null @@ -1,60 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentgroups-groups.html - -module Stratosphere.ResourceProperties.PinpointSegmentGroups where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.PinpointSegmentSegmentDimensions -import Stratosphere.ResourceProperties.PinpointSegmentSourceSegments - --- | Full data type definition for PinpointSegmentGroups. See --- 'pinpointSegmentGroups' for a more convenient constructor. -data PinpointSegmentGroups = - PinpointSegmentGroups - { _pinpointSegmentGroupsDimensions :: Maybe [PinpointSegmentSegmentDimensions] - , _pinpointSegmentGroupsSourceSegments :: Maybe [PinpointSegmentSourceSegments] - , _pinpointSegmentGroupsSourceType :: Maybe (Val Text) - , _pinpointSegmentGroupsType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON PinpointSegmentGroups where - toJSON PinpointSegmentGroups{..} = - object $ - catMaybes - [ fmap (("Dimensions",) . toJSON) _pinpointSegmentGroupsDimensions - , fmap (("SourceSegments",) . toJSON) _pinpointSegmentGroupsSourceSegments - , fmap (("SourceType",) . toJSON) _pinpointSegmentGroupsSourceType - , fmap (("Type",) . toJSON) _pinpointSegmentGroupsType - ] - --- | Constructor for 'PinpointSegmentGroups' containing required fields as --- arguments. -pinpointSegmentGroups - :: PinpointSegmentGroups -pinpointSegmentGroups = - PinpointSegmentGroups - { _pinpointSegmentGroupsDimensions = Nothing - , _pinpointSegmentGroupsSourceSegments = Nothing - , _pinpointSegmentGroupsSourceType = Nothing - , _pinpointSegmentGroupsType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentgroups-groups.html#cfn-pinpoint-segment-segmentgroups-groups-dimensions -psgDimensions :: Lens' PinpointSegmentGroups (Maybe [PinpointSegmentSegmentDimensions]) -psgDimensions = lens _pinpointSegmentGroupsDimensions (\s a -> s { _pinpointSegmentGroupsDimensions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentgroups-groups.html#cfn-pinpoint-segment-segmentgroups-groups-sourcesegments -psgSourceSegments :: Lens' PinpointSegmentGroups (Maybe [PinpointSegmentSourceSegments]) -psgSourceSegments = lens _pinpointSegmentGroupsSourceSegments (\s a -> s { _pinpointSegmentGroupsSourceSegments = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentgroups-groups.html#cfn-pinpoint-segment-segmentgroups-groups-sourcetype -psgSourceType :: Lens' PinpointSegmentGroups (Maybe (Val Text)) -psgSourceType = lens _pinpointSegmentGroupsSourceType (\s a -> s { _pinpointSegmentGroupsSourceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentgroups-groups.html#cfn-pinpoint-segment-segmentgroups-groups-type -psgType :: Lens' PinpointSegmentGroups (Maybe (Val Text)) -psgType = lens _pinpointSegmentGroupsType (\s a -> s { _pinpointSegmentGroupsType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointSegmentLocation.hs b/library-gen/Stratosphere/ResourceProperties/PinpointSegmentLocation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointSegmentLocation.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-location.html - -module Stratosphere.ResourceProperties.PinpointSegmentLocation where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.PinpointSegmentSetDimension -import Stratosphere.ResourceProperties.PinpointSegmentGPSPoint - --- | Full data type definition for PinpointSegmentLocation. See --- 'pinpointSegmentLocation' for a more convenient constructor. -data PinpointSegmentLocation = - PinpointSegmentLocation - { _pinpointSegmentLocationCountry :: Maybe PinpointSegmentSetDimension - , _pinpointSegmentLocationGPSPoint :: Maybe PinpointSegmentGPSPoint - } deriving (Show, Eq) - -instance ToJSON PinpointSegmentLocation where - toJSON PinpointSegmentLocation{..} = - object $ - catMaybes - [ fmap (("Country",) . toJSON) _pinpointSegmentLocationCountry - , fmap (("GPSPoint",) . toJSON) _pinpointSegmentLocationGPSPoint - ] - --- | Constructor for 'PinpointSegmentLocation' containing required fields as --- arguments. -pinpointSegmentLocation - :: PinpointSegmentLocation -pinpointSegmentLocation = - PinpointSegmentLocation - { _pinpointSegmentLocationCountry = Nothing - , _pinpointSegmentLocationGPSPoint = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-location.html#cfn-pinpoint-segment-segmentdimensions-location-country -pslCountry :: Lens' PinpointSegmentLocation (Maybe PinpointSegmentSetDimension) -pslCountry = lens _pinpointSegmentLocationCountry (\s a -> s { _pinpointSegmentLocationCountry = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-location.html#cfn-pinpoint-segment-segmentdimensions-location-gpspoint -pslGPSPoint :: Lens' PinpointSegmentLocation (Maybe PinpointSegmentGPSPoint) -pslGPSPoint = lens _pinpointSegmentLocationGPSPoint (\s a -> s { _pinpointSegmentLocationGPSPoint = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointSegmentRecency.hs b/library-gen/Stratosphere/ResourceProperties/PinpointSegmentRecency.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointSegmentRecency.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-behavior-recency.html - -module Stratosphere.ResourceProperties.PinpointSegmentRecency where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointSegmentRecency. See --- 'pinpointSegmentRecency' for a more convenient constructor. -data PinpointSegmentRecency = - PinpointSegmentRecency - { _pinpointSegmentRecencyDuration :: Val Text - , _pinpointSegmentRecencyRecencyType :: Val Text - } deriving (Show, Eq) - -instance ToJSON PinpointSegmentRecency where - toJSON PinpointSegmentRecency{..} = - object $ - catMaybes - [ (Just . ("Duration",) . toJSON) _pinpointSegmentRecencyDuration - , (Just . ("RecencyType",) . toJSON) _pinpointSegmentRecencyRecencyType - ] - --- | Constructor for 'PinpointSegmentRecency' containing required fields as --- arguments. -pinpointSegmentRecency - :: Val Text -- ^ 'psrDuration' - -> Val Text -- ^ 'psrRecencyType' - -> PinpointSegmentRecency -pinpointSegmentRecency durationarg recencyTypearg = - PinpointSegmentRecency - { _pinpointSegmentRecencyDuration = durationarg - , _pinpointSegmentRecencyRecencyType = recencyTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-behavior-recency.html#cfn-pinpoint-segment-segmentdimensions-behavior-recency-duration -psrDuration :: Lens' PinpointSegmentRecency (Val Text) -psrDuration = lens _pinpointSegmentRecencyDuration (\s a -> s { _pinpointSegmentRecencyDuration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-behavior-recency.html#cfn-pinpoint-segment-segmentdimensions-behavior-recency-recencytype -psrRecencyType :: Lens' PinpointSegmentRecency (Val Text) -psrRecencyType = lens _pinpointSegmentRecencyRecencyType (\s a -> s { _pinpointSegmentRecencyRecencyType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointSegmentSegmentDimensions.hs b/library-gen/Stratosphere/ResourceProperties/PinpointSegmentSegmentDimensions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointSegmentSegmentDimensions.hs +++ /dev/null @@ -1,75 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions.html - -module Stratosphere.ResourceProperties.PinpointSegmentSegmentDimensions where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.PinpointSegmentBehavior -import Stratosphere.ResourceProperties.PinpointSegmentDemographic -import Stratosphere.ResourceProperties.PinpointSegmentLocation - --- | Full data type definition for PinpointSegmentSegmentDimensions. See --- 'pinpointSegmentSegmentDimensions' for a more convenient constructor. -data PinpointSegmentSegmentDimensions = - PinpointSegmentSegmentDimensions - { _pinpointSegmentSegmentDimensionsAttributes :: Maybe Object - , _pinpointSegmentSegmentDimensionsBehavior :: Maybe PinpointSegmentBehavior - , _pinpointSegmentSegmentDimensionsDemographic :: Maybe PinpointSegmentDemographic - , _pinpointSegmentSegmentDimensionsLocation :: Maybe PinpointSegmentLocation - , _pinpointSegmentSegmentDimensionsMetrics :: Maybe Object - , _pinpointSegmentSegmentDimensionsUserAttributes :: Maybe Object - } deriving (Show, Eq) - -instance ToJSON PinpointSegmentSegmentDimensions where - toJSON PinpointSegmentSegmentDimensions{..} = - object $ - catMaybes - [ fmap (("Attributes",) . toJSON) _pinpointSegmentSegmentDimensionsAttributes - , fmap (("Behavior",) . toJSON) _pinpointSegmentSegmentDimensionsBehavior - , fmap (("Demographic",) . toJSON) _pinpointSegmentSegmentDimensionsDemographic - , fmap (("Location",) . toJSON) _pinpointSegmentSegmentDimensionsLocation - , fmap (("Metrics",) . toJSON) _pinpointSegmentSegmentDimensionsMetrics - , fmap (("UserAttributes",) . toJSON) _pinpointSegmentSegmentDimensionsUserAttributes - ] - --- | Constructor for 'PinpointSegmentSegmentDimensions' containing required --- fields as arguments. -pinpointSegmentSegmentDimensions - :: PinpointSegmentSegmentDimensions -pinpointSegmentSegmentDimensions = - PinpointSegmentSegmentDimensions - { _pinpointSegmentSegmentDimensionsAttributes = Nothing - , _pinpointSegmentSegmentDimensionsBehavior = Nothing - , _pinpointSegmentSegmentDimensionsDemographic = Nothing - , _pinpointSegmentSegmentDimensionsLocation = Nothing - , _pinpointSegmentSegmentDimensionsMetrics = Nothing - , _pinpointSegmentSegmentDimensionsUserAttributes = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions.html#cfn-pinpoint-segment-segmentdimensions-attributes -pssdAttributes :: Lens' PinpointSegmentSegmentDimensions (Maybe Object) -pssdAttributes = lens _pinpointSegmentSegmentDimensionsAttributes (\s a -> s { _pinpointSegmentSegmentDimensionsAttributes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions.html#cfn-pinpoint-segment-segmentdimensions-behavior -pssdBehavior :: Lens' PinpointSegmentSegmentDimensions (Maybe PinpointSegmentBehavior) -pssdBehavior = lens _pinpointSegmentSegmentDimensionsBehavior (\s a -> s { _pinpointSegmentSegmentDimensionsBehavior = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions.html#cfn-pinpoint-segment-segmentdimensions-demographic -pssdDemographic :: Lens' PinpointSegmentSegmentDimensions (Maybe PinpointSegmentDemographic) -pssdDemographic = lens _pinpointSegmentSegmentDimensionsDemographic (\s a -> s { _pinpointSegmentSegmentDimensionsDemographic = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions.html#cfn-pinpoint-segment-segmentdimensions-location -pssdLocation :: Lens' PinpointSegmentSegmentDimensions (Maybe PinpointSegmentLocation) -pssdLocation = lens _pinpointSegmentSegmentDimensionsLocation (\s a -> s { _pinpointSegmentSegmentDimensionsLocation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions.html#cfn-pinpoint-segment-segmentdimensions-metrics -pssdMetrics :: Lens' PinpointSegmentSegmentDimensions (Maybe Object) -pssdMetrics = lens _pinpointSegmentSegmentDimensionsMetrics (\s a -> s { _pinpointSegmentSegmentDimensionsMetrics = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions.html#cfn-pinpoint-segment-segmentdimensions-userattributes -pssdUserAttributes :: Lens' PinpointSegmentSegmentDimensions (Maybe Object) -pssdUserAttributes = lens _pinpointSegmentSegmentDimensionsUserAttributes (\s a -> s { _pinpointSegmentSegmentDimensionsUserAttributes = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointSegmentSegmentGroups.hs b/library-gen/Stratosphere/ResourceProperties/PinpointSegmentSegmentGroups.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointSegmentSegmentGroups.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentgroups.html - -module Stratosphere.ResourceProperties.PinpointSegmentSegmentGroups where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.PinpointSegmentGroups - --- | Full data type definition for PinpointSegmentSegmentGroups. See --- 'pinpointSegmentSegmentGroups' for a more convenient constructor. -data PinpointSegmentSegmentGroups = - PinpointSegmentSegmentGroups - { _pinpointSegmentSegmentGroupsGroups :: Maybe [PinpointSegmentGroups] - , _pinpointSegmentSegmentGroupsInclude :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON PinpointSegmentSegmentGroups where - toJSON PinpointSegmentSegmentGroups{..} = - object $ - catMaybes - [ fmap (("Groups",) . toJSON) _pinpointSegmentSegmentGroupsGroups - , fmap (("Include",) . toJSON) _pinpointSegmentSegmentGroupsInclude - ] - --- | Constructor for 'PinpointSegmentSegmentGroups' containing required fields --- as arguments. -pinpointSegmentSegmentGroups - :: PinpointSegmentSegmentGroups -pinpointSegmentSegmentGroups = - PinpointSegmentSegmentGroups - { _pinpointSegmentSegmentGroupsGroups = Nothing - , _pinpointSegmentSegmentGroupsInclude = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentgroups.html#cfn-pinpoint-segment-segmentgroups-groups -pssgGroups :: Lens' PinpointSegmentSegmentGroups (Maybe [PinpointSegmentGroups]) -pssgGroups = lens _pinpointSegmentSegmentGroupsGroups (\s a -> s { _pinpointSegmentSegmentGroupsGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentgroups.html#cfn-pinpoint-segment-segmentgroups-include -pssgInclude :: Lens' PinpointSegmentSegmentGroups (Maybe (Val Text)) -pssgInclude = lens _pinpointSegmentSegmentGroupsInclude (\s a -> s { _pinpointSegmentSegmentGroupsInclude = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointSegmentSetDimension.hs b/library-gen/Stratosphere/ResourceProperties/PinpointSegmentSetDimension.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointSegmentSetDimension.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-setdimension.html - -module Stratosphere.ResourceProperties.PinpointSegmentSetDimension where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointSegmentSetDimension. See --- 'pinpointSegmentSetDimension' for a more convenient constructor. -data PinpointSegmentSetDimension = - PinpointSegmentSetDimension - { _pinpointSegmentSetDimensionDimensionType :: Maybe (Val Text) - , _pinpointSegmentSetDimensionValues :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON PinpointSegmentSetDimension where - toJSON PinpointSegmentSetDimension{..} = - object $ - catMaybes - [ fmap (("DimensionType",) . toJSON) _pinpointSegmentSetDimensionDimensionType - , fmap (("Values",) . toJSON) _pinpointSegmentSetDimensionValues - ] - --- | Constructor for 'PinpointSegmentSetDimension' containing required fields --- as arguments. -pinpointSegmentSetDimension - :: PinpointSegmentSetDimension -pinpointSegmentSetDimension = - PinpointSegmentSetDimension - { _pinpointSegmentSetDimensionDimensionType = Nothing - , _pinpointSegmentSetDimensionValues = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-setdimension.html#cfn-pinpoint-segment-setdimension-dimensiontype -pssdDimensionType :: Lens' PinpointSegmentSetDimension (Maybe (Val Text)) -pssdDimensionType = lens _pinpointSegmentSetDimensionDimensionType (\s a -> s { _pinpointSegmentSetDimensionDimensionType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-setdimension.html#cfn-pinpoint-segment-setdimension-values -pssdValues :: Lens' PinpointSegmentSetDimension (Maybe (ValList Text)) -pssdValues = lens _pinpointSegmentSetDimensionValues (\s a -> s { _pinpointSegmentSetDimensionValues = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/PinpointSegmentSourceSegments.hs b/library-gen/Stratosphere/ResourceProperties/PinpointSegmentSourceSegments.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/PinpointSegmentSourceSegments.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentgroups-groups-sourcesegments.html - -module Stratosphere.ResourceProperties.PinpointSegmentSourceSegments where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointSegmentSourceSegments. See --- 'pinpointSegmentSourceSegments' for a more convenient constructor. -data PinpointSegmentSourceSegments = - PinpointSegmentSourceSegments - { _pinpointSegmentSourceSegmentsId :: Val Text - , _pinpointSegmentSourceSegmentsVersion :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON PinpointSegmentSourceSegments where - toJSON PinpointSegmentSourceSegments{..} = - object $ - catMaybes - [ (Just . ("Id",) . toJSON) _pinpointSegmentSourceSegmentsId - , fmap (("Version",) . toJSON) _pinpointSegmentSourceSegmentsVersion - ] - --- | Constructor for 'PinpointSegmentSourceSegments' containing required --- fields as arguments. -pinpointSegmentSourceSegments - :: Val Text -- ^ 'psssId' - -> PinpointSegmentSourceSegments -pinpointSegmentSourceSegments idarg = - PinpointSegmentSourceSegments - { _pinpointSegmentSourceSegmentsId = idarg - , _pinpointSegmentSourceSegmentsVersion = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentgroups-groups-sourcesegments.html#cfn-pinpoint-segment-segmentgroups-groups-sourcesegments-id -psssId :: Lens' PinpointSegmentSourceSegments (Val Text) -psssId = lens _pinpointSegmentSourceSegmentsId (\s a -> s { _pinpointSegmentSourceSegmentsId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentgroups-groups-sourcesegments.html#cfn-pinpoint-segment-segmentgroups-groups-sourcesegments-version -psssVersion :: Lens' PinpointSegmentSourceSegments (Maybe (Val Integer)) -psssVersion = lens _pinpointSegmentSourceSegmentsVersion (\s a -> s { _pinpointSegmentSourceSegmentsVersion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/QLDBStreamKinesisConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/QLDBStreamKinesisConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/QLDBStreamKinesisConfiguration.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-qldb-stream-kinesisconfiguration.html - -module Stratosphere.ResourceProperties.QLDBStreamKinesisConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for QLDBStreamKinesisConfiguration. See --- 'qldbStreamKinesisConfiguration' for a more convenient constructor. -data QLDBStreamKinesisConfiguration = - QLDBStreamKinesisConfiguration - { _qLDBStreamKinesisConfigurationAggregationEnabled :: Maybe (Val Bool) - , _qLDBStreamKinesisConfigurationStreamArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON QLDBStreamKinesisConfiguration where - toJSON QLDBStreamKinesisConfiguration{..} = - object $ - catMaybes - [ fmap (("AggregationEnabled",) . toJSON) _qLDBStreamKinesisConfigurationAggregationEnabled - , fmap (("StreamArn",) . toJSON) _qLDBStreamKinesisConfigurationStreamArn - ] - --- | Constructor for 'QLDBStreamKinesisConfiguration' containing required --- fields as arguments. -qldbStreamKinesisConfiguration - :: QLDBStreamKinesisConfiguration -qldbStreamKinesisConfiguration = - QLDBStreamKinesisConfiguration - { _qLDBStreamKinesisConfigurationAggregationEnabled = Nothing - , _qLDBStreamKinesisConfigurationStreamArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-qldb-stream-kinesisconfiguration.html#cfn-qldb-stream-kinesisconfiguration-aggregationenabled -qldbskcAggregationEnabled :: Lens' QLDBStreamKinesisConfiguration (Maybe (Val Bool)) -qldbskcAggregationEnabled = lens _qLDBStreamKinesisConfigurationAggregationEnabled (\s a -> s { _qLDBStreamKinesisConfigurationAggregationEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-qldb-stream-kinesisconfiguration.html#cfn-qldb-stream-kinesisconfiguration-streamarn -qldbskcStreamArn :: Lens' QLDBStreamKinesisConfiguration (Maybe (Val Text)) -qldbskcStreamArn = lens _qLDBStreamKinesisConfigurationStreamArn (\s a -> s { _qLDBStreamKinesisConfigurationStreamArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/RDSDBClusterDBClusterRole.hs b/library-gen/Stratosphere/ResourceProperties/RDSDBClusterDBClusterRole.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/RDSDBClusterDBClusterRole.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbcluster-dbclusterrole.html - -module Stratosphere.ResourceProperties.RDSDBClusterDBClusterRole where - -import Stratosphere.ResourceImports - - --- | Full data type definition for RDSDBClusterDBClusterRole. See --- 'rdsdbClusterDBClusterRole' for a more convenient constructor. -data RDSDBClusterDBClusterRole = - RDSDBClusterDBClusterRole - { _rDSDBClusterDBClusterRoleFeatureName :: Maybe (Val Text) - , _rDSDBClusterDBClusterRoleRoleArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON RDSDBClusterDBClusterRole where - toJSON RDSDBClusterDBClusterRole{..} = - object $ - catMaybes - [ fmap (("FeatureName",) . toJSON) _rDSDBClusterDBClusterRoleFeatureName - , (Just . ("RoleArn",) . toJSON) _rDSDBClusterDBClusterRoleRoleArn - ] - --- | Constructor for 'RDSDBClusterDBClusterRole' containing required fields as --- arguments. -rdsdbClusterDBClusterRole - :: Val Text -- ^ 'rdsdbcdbcrRoleArn' - -> RDSDBClusterDBClusterRole -rdsdbClusterDBClusterRole roleArnarg = - RDSDBClusterDBClusterRole - { _rDSDBClusterDBClusterRoleFeatureName = Nothing - , _rDSDBClusterDBClusterRoleRoleArn = roleArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbcluster-dbclusterrole.html#cfn-rds-dbcluster-dbclusterrole-featurename -rdsdbcdbcrFeatureName :: Lens' RDSDBClusterDBClusterRole (Maybe (Val Text)) -rdsdbcdbcrFeatureName = lens _rDSDBClusterDBClusterRoleFeatureName (\s a -> s { _rDSDBClusterDBClusterRoleFeatureName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbcluster-dbclusterrole.html#cfn-rds-dbcluster-dbclusterrole-rolearn -rdsdbcdbcrRoleArn :: Lens' RDSDBClusterDBClusterRole (Val Text) -rdsdbcdbcrRoleArn = lens _rDSDBClusterDBClusterRoleRoleArn (\s a -> s { _rDSDBClusterDBClusterRoleRoleArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/RDSDBClusterScalingConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/RDSDBClusterScalingConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/RDSDBClusterScalingConfiguration.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbcluster-scalingconfiguration.html - -module Stratosphere.ResourceProperties.RDSDBClusterScalingConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for RDSDBClusterScalingConfiguration. See --- 'rdsdbClusterScalingConfiguration' for a more convenient constructor. -data RDSDBClusterScalingConfiguration = - RDSDBClusterScalingConfiguration - { _rDSDBClusterScalingConfigurationAutoPause :: Maybe (Val Bool) - , _rDSDBClusterScalingConfigurationMaxCapacity :: Maybe (Val Integer) - , _rDSDBClusterScalingConfigurationMinCapacity :: Maybe (Val Integer) - , _rDSDBClusterScalingConfigurationSecondsUntilAutoPause :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON RDSDBClusterScalingConfiguration where - toJSON RDSDBClusterScalingConfiguration{..} = - object $ - catMaybes - [ fmap (("AutoPause",) . toJSON) _rDSDBClusterScalingConfigurationAutoPause - , fmap (("MaxCapacity",) . toJSON) _rDSDBClusterScalingConfigurationMaxCapacity - , fmap (("MinCapacity",) . toJSON) _rDSDBClusterScalingConfigurationMinCapacity - , fmap (("SecondsUntilAutoPause",) . toJSON) _rDSDBClusterScalingConfigurationSecondsUntilAutoPause - ] - --- | Constructor for 'RDSDBClusterScalingConfiguration' containing required --- fields as arguments. -rdsdbClusterScalingConfiguration - :: RDSDBClusterScalingConfiguration -rdsdbClusterScalingConfiguration = - RDSDBClusterScalingConfiguration - { _rDSDBClusterScalingConfigurationAutoPause = Nothing - , _rDSDBClusterScalingConfigurationMaxCapacity = Nothing - , _rDSDBClusterScalingConfigurationMinCapacity = Nothing - , _rDSDBClusterScalingConfigurationSecondsUntilAutoPause = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbcluster-scalingconfiguration.html#cfn-rds-dbcluster-scalingconfiguration-autopause -rdsdbcscAutoPause :: Lens' RDSDBClusterScalingConfiguration (Maybe (Val Bool)) -rdsdbcscAutoPause = lens _rDSDBClusterScalingConfigurationAutoPause (\s a -> s { _rDSDBClusterScalingConfigurationAutoPause = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbcluster-scalingconfiguration.html#cfn-rds-dbcluster-scalingconfiguration-maxcapacity -rdsdbcscMaxCapacity :: Lens' RDSDBClusterScalingConfiguration (Maybe (Val Integer)) -rdsdbcscMaxCapacity = lens _rDSDBClusterScalingConfigurationMaxCapacity (\s a -> s { _rDSDBClusterScalingConfigurationMaxCapacity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbcluster-scalingconfiguration.html#cfn-rds-dbcluster-scalingconfiguration-mincapacity -rdsdbcscMinCapacity :: Lens' RDSDBClusterScalingConfiguration (Maybe (Val Integer)) -rdsdbcscMinCapacity = lens _rDSDBClusterScalingConfigurationMinCapacity (\s a -> s { _rDSDBClusterScalingConfigurationMinCapacity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbcluster-scalingconfiguration.html#cfn-rds-dbcluster-scalingconfiguration-secondsuntilautopause -rdsdbcscSecondsUntilAutoPause :: Lens' RDSDBClusterScalingConfiguration (Maybe (Val Integer)) -rdsdbcscSecondsUntilAutoPause = lens _rDSDBClusterScalingConfigurationSecondsUntilAutoPause (\s a -> s { _rDSDBClusterScalingConfigurationSecondsUntilAutoPause = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/RDSDBInstanceDBInstanceRole.hs b/library-gen/Stratosphere/ResourceProperties/RDSDBInstanceDBInstanceRole.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/RDSDBInstanceDBInstanceRole.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbinstance-dbinstancerole.html - -module Stratosphere.ResourceProperties.RDSDBInstanceDBInstanceRole where - -import Stratosphere.ResourceImports - - --- | Full data type definition for RDSDBInstanceDBInstanceRole. See --- 'rdsdbInstanceDBInstanceRole' for a more convenient constructor. -data RDSDBInstanceDBInstanceRole = - RDSDBInstanceDBInstanceRole - { _rDSDBInstanceDBInstanceRoleFeatureName :: Val Text - , _rDSDBInstanceDBInstanceRoleRoleArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON RDSDBInstanceDBInstanceRole where - toJSON RDSDBInstanceDBInstanceRole{..} = - object $ - catMaybes - [ (Just . ("FeatureName",) . toJSON) _rDSDBInstanceDBInstanceRoleFeatureName - , (Just . ("RoleArn",) . toJSON) _rDSDBInstanceDBInstanceRoleRoleArn - ] - --- | Constructor for 'RDSDBInstanceDBInstanceRole' containing required fields --- as arguments. -rdsdbInstanceDBInstanceRole - :: Val Text -- ^ 'rdsdbidbirFeatureName' - -> Val Text -- ^ 'rdsdbidbirRoleArn' - -> RDSDBInstanceDBInstanceRole -rdsdbInstanceDBInstanceRole featureNamearg roleArnarg = - RDSDBInstanceDBInstanceRole - { _rDSDBInstanceDBInstanceRoleFeatureName = featureNamearg - , _rDSDBInstanceDBInstanceRoleRoleArn = roleArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbinstance-dbinstancerole.html#cfn-rds-dbinstance-dbinstancerole-featurename -rdsdbidbirFeatureName :: Lens' RDSDBInstanceDBInstanceRole (Val Text) -rdsdbidbirFeatureName = lens _rDSDBInstanceDBInstanceRoleFeatureName (\s a -> s { _rDSDBInstanceDBInstanceRoleFeatureName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbinstance-dbinstancerole.html#cfn-rds-dbinstance-dbinstancerole-rolearn -rdsdbidbirRoleArn :: Lens' RDSDBInstanceDBInstanceRole (Val Text) -rdsdbidbirRoleArn = lens _rDSDBInstanceDBInstanceRoleRoleArn (\s a -> s { _rDSDBInstanceDBInstanceRoleRoleArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/RDSDBInstanceProcessorFeature.hs b/library-gen/Stratosphere/ResourceProperties/RDSDBInstanceProcessorFeature.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/RDSDBInstanceProcessorFeature.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbinstance-processorfeature.html - -module Stratosphere.ResourceProperties.RDSDBInstanceProcessorFeature where - -import Stratosphere.ResourceImports - - --- | Full data type definition for RDSDBInstanceProcessorFeature. See --- 'rdsdbInstanceProcessorFeature' for a more convenient constructor. -data RDSDBInstanceProcessorFeature = - RDSDBInstanceProcessorFeature - { _rDSDBInstanceProcessorFeatureName :: Maybe (Val Text) - , _rDSDBInstanceProcessorFeatureValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON RDSDBInstanceProcessorFeature where - toJSON RDSDBInstanceProcessorFeature{..} = - object $ - catMaybes - [ fmap (("Name",) . toJSON) _rDSDBInstanceProcessorFeatureName - , fmap (("Value",) . toJSON) _rDSDBInstanceProcessorFeatureValue - ] - --- | Constructor for 'RDSDBInstanceProcessorFeature' containing required --- fields as arguments. -rdsdbInstanceProcessorFeature - :: RDSDBInstanceProcessorFeature -rdsdbInstanceProcessorFeature = - RDSDBInstanceProcessorFeature - { _rDSDBInstanceProcessorFeatureName = Nothing - , _rDSDBInstanceProcessorFeatureValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbinstance-processorfeature.html#cfn-rds-dbinstance-processorfeature-name -rdsdbipfName :: Lens' RDSDBInstanceProcessorFeature (Maybe (Val Text)) -rdsdbipfName = lens _rDSDBInstanceProcessorFeatureName (\s a -> s { _rDSDBInstanceProcessorFeatureName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbinstance-processorfeature.html#cfn-rds-dbinstance-processorfeature-value -rdsdbipfValue :: Lens' RDSDBInstanceProcessorFeature (Maybe (Val Text)) -rdsdbipfValue = lens _rDSDBInstanceProcessorFeatureValue (\s a -> s { _rDSDBInstanceProcessorFeatureValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/RDSDBProxyAuthFormat.hs b/library-gen/Stratosphere/ResourceProperties/RDSDBProxyAuthFormat.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/RDSDBProxyAuthFormat.hs +++ /dev/null @@ -1,66 +0,0 @@ -{-# 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 }) diff --git a/library-gen/Stratosphere/ResourceProperties/RDSDBProxyTagFormat.hs b/library-gen/Stratosphere/ResourceProperties/RDSDBProxyTagFormat.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/RDSDBProxyTagFormat.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# 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 }) diff --git a/library-gen/Stratosphere/ResourceProperties/RDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormat.hs b/library-gen/Stratosphere/ResourceProperties/RDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormat.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/RDSDBProxyTargetGroupConnectionPoolConfigurationInfoFormat.hs +++ /dev/null @@ -1,69 +0,0 @@ -{-# 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 }) diff --git a/library-gen/Stratosphere/ResourceProperties/RDSDBSecurityGroupIngressProperty.hs b/library-gen/Stratosphere/ResourceProperties/RDSDBSecurityGroupIngressProperty.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/RDSDBSecurityGroupIngressProperty.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-security-group-rule.html - -module Stratosphere.ResourceProperties.RDSDBSecurityGroupIngressProperty where - -import Stratosphere.ResourceImports - - --- | Full data type definition for RDSDBSecurityGroupIngressProperty. See --- 'rdsdbSecurityGroupIngressProperty' for a more convenient constructor. -data RDSDBSecurityGroupIngressProperty = - RDSDBSecurityGroupIngressProperty - { _rDSDBSecurityGroupIngressPropertyCIDRIP :: Maybe (Val Text) - , _rDSDBSecurityGroupIngressPropertyEC2SecurityGroupId :: Maybe (Val Text) - , _rDSDBSecurityGroupIngressPropertyEC2SecurityGroupName :: Maybe (Val Text) - , _rDSDBSecurityGroupIngressPropertyEC2SecurityGroupOwnerId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON RDSDBSecurityGroupIngressProperty where - toJSON RDSDBSecurityGroupIngressProperty{..} = - object $ - catMaybes - [ fmap (("CIDRIP",) . toJSON) _rDSDBSecurityGroupIngressPropertyCIDRIP - , fmap (("EC2SecurityGroupId",) . toJSON) _rDSDBSecurityGroupIngressPropertyEC2SecurityGroupId - , fmap (("EC2SecurityGroupName",) . toJSON) _rDSDBSecurityGroupIngressPropertyEC2SecurityGroupName - , fmap (("EC2SecurityGroupOwnerId",) . toJSON) _rDSDBSecurityGroupIngressPropertyEC2SecurityGroupOwnerId - ] - --- | Constructor for 'RDSDBSecurityGroupIngressProperty' containing required --- fields as arguments. -rdsdbSecurityGroupIngressProperty - :: RDSDBSecurityGroupIngressProperty -rdsdbSecurityGroupIngressProperty = - RDSDBSecurityGroupIngressProperty - { _rDSDBSecurityGroupIngressPropertyCIDRIP = Nothing - , _rDSDBSecurityGroupIngressPropertyEC2SecurityGroupId = Nothing - , _rDSDBSecurityGroupIngressPropertyEC2SecurityGroupName = Nothing - , _rDSDBSecurityGroupIngressPropertyEC2SecurityGroupOwnerId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-security-group-rule.html#cfn-rds-securitygroup-cidrip -rdsdbsgipCIDRIP :: Lens' RDSDBSecurityGroupIngressProperty (Maybe (Val Text)) -rdsdbsgipCIDRIP = lens _rDSDBSecurityGroupIngressPropertyCIDRIP (\s a -> s { _rDSDBSecurityGroupIngressPropertyCIDRIP = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-security-group-rule.html#cfn-rds-securitygroup-ec2securitygroupid -rdsdbsgipEC2SecurityGroupId :: Lens' RDSDBSecurityGroupIngressProperty (Maybe (Val Text)) -rdsdbsgipEC2SecurityGroupId = lens _rDSDBSecurityGroupIngressPropertyEC2SecurityGroupId (\s a -> s { _rDSDBSecurityGroupIngressPropertyEC2SecurityGroupId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-security-group-rule.html#cfn-rds-securitygroup-ec2securitygroupname -rdsdbsgipEC2SecurityGroupName :: Lens' RDSDBSecurityGroupIngressProperty (Maybe (Val Text)) -rdsdbsgipEC2SecurityGroupName = lens _rDSDBSecurityGroupIngressPropertyEC2SecurityGroupName (\s a -> s { _rDSDBSecurityGroupIngressPropertyEC2SecurityGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-security-group-rule.html#cfn-rds-securitygroup-ec2securitygroupownerid -rdsdbsgipEC2SecurityGroupOwnerId :: Lens' RDSDBSecurityGroupIngressProperty (Maybe (Val Text)) -rdsdbsgipEC2SecurityGroupOwnerId = lens _rDSDBSecurityGroupIngressPropertyEC2SecurityGroupOwnerId (\s a -> s { _rDSDBSecurityGroupIngressPropertyEC2SecurityGroupOwnerId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/RDSOptionGroupOptionConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/RDSOptionGroupOptionConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/RDSOptionGroupOptionConfiguration.hs +++ /dev/null @@ -1,74 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-optiongroup-optionconfigurations.html - -module Stratosphere.ResourceProperties.RDSOptionGroupOptionConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.RDSOptionGroupOptionSetting - --- | Full data type definition for RDSOptionGroupOptionConfiguration. See --- 'rdsOptionGroupOptionConfiguration' for a more convenient constructor. -data RDSOptionGroupOptionConfiguration = - RDSOptionGroupOptionConfiguration - { _rDSOptionGroupOptionConfigurationDBSecurityGroupMemberships :: Maybe (ValList Text) - , _rDSOptionGroupOptionConfigurationOptionName :: Val Text - , _rDSOptionGroupOptionConfigurationOptionSettings :: Maybe [RDSOptionGroupOptionSetting] - , _rDSOptionGroupOptionConfigurationOptionVersion :: Maybe (Val Text) - , _rDSOptionGroupOptionConfigurationPort :: Maybe (Val Integer) - , _rDSOptionGroupOptionConfigurationVpcSecurityGroupMemberships :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON RDSOptionGroupOptionConfiguration where - toJSON RDSOptionGroupOptionConfiguration{..} = - object $ - catMaybes - [ fmap (("DBSecurityGroupMemberships",) . toJSON) _rDSOptionGroupOptionConfigurationDBSecurityGroupMemberships - , (Just . ("OptionName",) . toJSON) _rDSOptionGroupOptionConfigurationOptionName - , fmap (("OptionSettings",) . toJSON) _rDSOptionGroupOptionConfigurationOptionSettings - , fmap (("OptionVersion",) . toJSON) _rDSOptionGroupOptionConfigurationOptionVersion - , fmap (("Port",) . toJSON) _rDSOptionGroupOptionConfigurationPort - , fmap (("VpcSecurityGroupMemberships",) . toJSON) _rDSOptionGroupOptionConfigurationVpcSecurityGroupMemberships - ] - --- | Constructor for 'RDSOptionGroupOptionConfiguration' containing required --- fields as arguments. -rdsOptionGroupOptionConfiguration - :: Val Text -- ^ 'rdsogocOptionName' - -> RDSOptionGroupOptionConfiguration -rdsOptionGroupOptionConfiguration optionNamearg = - RDSOptionGroupOptionConfiguration - { _rDSOptionGroupOptionConfigurationDBSecurityGroupMemberships = Nothing - , _rDSOptionGroupOptionConfigurationOptionName = optionNamearg - , _rDSOptionGroupOptionConfigurationOptionSettings = Nothing - , _rDSOptionGroupOptionConfigurationOptionVersion = Nothing - , _rDSOptionGroupOptionConfigurationPort = Nothing - , _rDSOptionGroupOptionConfigurationVpcSecurityGroupMemberships = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-optiongroup-optionconfigurations.html#cfn-rds-optiongroup-optionconfigurations-dbsecuritygroupmemberships -rdsogocDBSecurityGroupMemberships :: Lens' RDSOptionGroupOptionConfiguration (Maybe (ValList Text)) -rdsogocDBSecurityGroupMemberships = lens _rDSOptionGroupOptionConfigurationDBSecurityGroupMemberships (\s a -> s { _rDSOptionGroupOptionConfigurationDBSecurityGroupMemberships = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-optiongroup-optionconfigurations.html#cfn-rds-optiongroup-optionconfigurations-optionname -rdsogocOptionName :: Lens' RDSOptionGroupOptionConfiguration (Val Text) -rdsogocOptionName = lens _rDSOptionGroupOptionConfigurationOptionName (\s a -> s { _rDSOptionGroupOptionConfigurationOptionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-optiongroup-optionconfigurations.html#cfn-rds-optiongroup-optionconfigurations-optionsettings -rdsogocOptionSettings :: Lens' RDSOptionGroupOptionConfiguration (Maybe [RDSOptionGroupOptionSetting]) -rdsogocOptionSettings = lens _rDSOptionGroupOptionConfigurationOptionSettings (\s a -> s { _rDSOptionGroupOptionConfigurationOptionSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-optiongroup-optionconfigurations.html#cfn-rds-optiongroup-optionconfiguration-optionversion -rdsogocOptionVersion :: Lens' RDSOptionGroupOptionConfiguration (Maybe (Val Text)) -rdsogocOptionVersion = lens _rDSOptionGroupOptionConfigurationOptionVersion (\s a -> s { _rDSOptionGroupOptionConfigurationOptionVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-optiongroup-optionconfigurations.html#cfn-rds-optiongroup-optionconfigurations-port -rdsogocPort :: Lens' RDSOptionGroupOptionConfiguration (Maybe (Val Integer)) -rdsogocPort = lens _rDSOptionGroupOptionConfigurationPort (\s a -> s { _rDSOptionGroupOptionConfigurationPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-optiongroup-optionconfigurations.html#cfn-rds-optiongroup-optionconfigurations-vpcsecuritygroupmemberships -rdsogocVpcSecurityGroupMemberships :: Lens' RDSOptionGroupOptionConfiguration (Maybe (ValList Text)) -rdsogocVpcSecurityGroupMemberships = lens _rDSOptionGroupOptionConfigurationVpcSecurityGroupMemberships (\s a -> s { _rDSOptionGroupOptionConfigurationVpcSecurityGroupMemberships = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/RDSOptionGroupOptionSetting.hs b/library-gen/Stratosphere/ResourceProperties/RDSOptionGroupOptionSetting.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/RDSOptionGroupOptionSetting.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-optiongroup-optionconfigurations-optionsettings.html - -module Stratosphere.ResourceProperties.RDSOptionGroupOptionSetting where - -import Stratosphere.ResourceImports - - --- | Full data type definition for RDSOptionGroupOptionSetting. See --- 'rdsOptionGroupOptionSetting' for a more convenient constructor. -data RDSOptionGroupOptionSetting = - RDSOptionGroupOptionSetting - { _rDSOptionGroupOptionSettingName :: Maybe (Val Text) - , _rDSOptionGroupOptionSettingValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON RDSOptionGroupOptionSetting where - toJSON RDSOptionGroupOptionSetting{..} = - object $ - catMaybes - [ fmap (("Name",) . toJSON) _rDSOptionGroupOptionSettingName - , fmap (("Value",) . toJSON) _rDSOptionGroupOptionSettingValue - ] - --- | Constructor for 'RDSOptionGroupOptionSetting' containing required fields --- as arguments. -rdsOptionGroupOptionSetting - :: RDSOptionGroupOptionSetting -rdsOptionGroupOptionSetting = - RDSOptionGroupOptionSetting - { _rDSOptionGroupOptionSettingName = Nothing - , _rDSOptionGroupOptionSettingValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-optiongroup-optionconfigurations-optionsettings.html#cfn-rds-optiongroup-optionconfigurations-optionsettings-name -rdsogosName :: Lens' RDSOptionGroupOptionSetting (Maybe (Val Text)) -rdsogosName = lens _rDSOptionGroupOptionSettingName (\s a -> s { _rDSOptionGroupOptionSettingName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-optiongroup-optionconfigurations-optionsettings.html#cfn-rds-optiongroup-optionconfigurations-optionsettings-value -rdsogosValue :: Lens' RDSOptionGroupOptionSetting (Maybe (Val Text)) -rdsogosValue = lens _rDSOptionGroupOptionSettingValue (\s a -> s { _rDSOptionGroupOptionSettingValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/RedshiftClusterLoggingProperties.hs b/library-gen/Stratosphere/ResourceProperties/RedshiftClusterLoggingProperties.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/RedshiftClusterLoggingProperties.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-redshift-cluster-loggingproperties.html - -module Stratosphere.ResourceProperties.RedshiftClusterLoggingProperties where - -import Stratosphere.ResourceImports - - --- | Full data type definition for RedshiftClusterLoggingProperties. See --- 'redshiftClusterLoggingProperties' for a more convenient constructor. -data RedshiftClusterLoggingProperties = - RedshiftClusterLoggingProperties - { _redshiftClusterLoggingPropertiesBucketName :: Val Text - , _redshiftClusterLoggingPropertiesS3KeyPrefix :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON RedshiftClusterLoggingProperties where - toJSON RedshiftClusterLoggingProperties{..} = - object $ - catMaybes - [ (Just . ("BucketName",) . toJSON) _redshiftClusterLoggingPropertiesBucketName - , fmap (("S3KeyPrefix",) . toJSON) _redshiftClusterLoggingPropertiesS3KeyPrefix - ] - --- | Constructor for 'RedshiftClusterLoggingProperties' containing required --- fields as arguments. -redshiftClusterLoggingProperties - :: Val Text -- ^ 'rclpBucketName' - -> RedshiftClusterLoggingProperties -redshiftClusterLoggingProperties bucketNamearg = - RedshiftClusterLoggingProperties - { _redshiftClusterLoggingPropertiesBucketName = bucketNamearg - , _redshiftClusterLoggingPropertiesS3KeyPrefix = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-redshift-cluster-loggingproperties.html#cfn-redshift-cluster-loggingproperties-bucketname -rclpBucketName :: Lens' RedshiftClusterLoggingProperties (Val Text) -rclpBucketName = lens _redshiftClusterLoggingPropertiesBucketName (\s a -> s { _redshiftClusterLoggingPropertiesBucketName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-redshift-cluster-loggingproperties.html#cfn-redshift-cluster-loggingproperties-s3keyprefix -rclpS3KeyPrefix :: Lens' RedshiftClusterLoggingProperties (Maybe (Val Text)) -rclpS3KeyPrefix = lens _redshiftClusterLoggingPropertiesS3KeyPrefix (\s a -> s { _redshiftClusterLoggingPropertiesS3KeyPrefix = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/RedshiftClusterParameterGroupParameter.hs b/library-gen/Stratosphere/ResourceProperties/RedshiftClusterParameterGroupParameter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/RedshiftClusterParameterGroupParameter.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-property-redshift-clusterparametergroup-parameter.html - -module Stratosphere.ResourceProperties.RedshiftClusterParameterGroupParameter where - -import Stratosphere.ResourceImports - - --- | Full data type definition for RedshiftClusterParameterGroupParameter. See --- 'redshiftClusterParameterGroupParameter' for a more convenient --- constructor. -data RedshiftClusterParameterGroupParameter = - RedshiftClusterParameterGroupParameter - { _redshiftClusterParameterGroupParameterParameterName :: Val Text - , _redshiftClusterParameterGroupParameterParameterValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON RedshiftClusterParameterGroupParameter where - toJSON RedshiftClusterParameterGroupParameter{..} = - object $ - catMaybes - [ (Just . ("ParameterName",) . toJSON) _redshiftClusterParameterGroupParameterParameterName - , (Just . ("ParameterValue",) . toJSON) _redshiftClusterParameterGroupParameterParameterValue - ] - --- | Constructor for 'RedshiftClusterParameterGroupParameter' containing --- required fields as arguments. -redshiftClusterParameterGroupParameter - :: Val Text -- ^ 'rcpgpParameterName' - -> Val Text -- ^ 'rcpgpParameterValue' - -> RedshiftClusterParameterGroupParameter -redshiftClusterParameterGroupParameter parameterNamearg parameterValuearg = - RedshiftClusterParameterGroupParameter - { _redshiftClusterParameterGroupParameterParameterName = parameterNamearg - , _redshiftClusterParameterGroupParameterParameterValue = parameterValuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-property-redshift-clusterparametergroup-parameter.html#cfn-redshift-clusterparametergroup-parameter-parametername -rcpgpParameterName :: Lens' RedshiftClusterParameterGroupParameter (Val Text) -rcpgpParameterName = lens _redshiftClusterParameterGroupParameterParameterName (\s a -> s { _redshiftClusterParameterGroupParameterParameterName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-property-redshift-clusterparametergroup-parameter.html#cfn-redshift-clusterparametergroup-parameter-parametervalue -rcpgpParameterValue :: Lens' RedshiftClusterParameterGroupParameter (Val Text) -rcpgpParameterValue = lens _redshiftClusterParameterGroupParameterParameterValue (\s a -> s { _redshiftClusterParameterGroupParameterParameterValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ResourceGroupsGroupQuery.hs b/library-gen/Stratosphere/ResourceProperties/ResourceGroupsGroupQuery.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ResourceGroupsGroupQuery.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resourcegroups-group-query.html - -module Stratosphere.ResourceProperties.ResourceGroupsGroupQuery where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ResourceGroupsGroupTagFilter - --- | Full data type definition for ResourceGroupsGroupQuery. See --- 'resourceGroupsGroupQuery' for a more convenient constructor. -data ResourceGroupsGroupQuery = - ResourceGroupsGroupQuery - { _resourceGroupsGroupQueryResourceTypeFilters :: Maybe (ValList Text) - , _resourceGroupsGroupQueryStackIdentifier :: Maybe (Val Text) - , _resourceGroupsGroupQueryTagFilters :: Maybe [ResourceGroupsGroupTagFilter] - } deriving (Show, Eq) - -instance ToJSON ResourceGroupsGroupQuery where - toJSON ResourceGroupsGroupQuery{..} = - object $ - catMaybes - [ fmap (("ResourceTypeFilters",) . toJSON) _resourceGroupsGroupQueryResourceTypeFilters - , fmap (("StackIdentifier",) . toJSON) _resourceGroupsGroupQueryStackIdentifier - , fmap (("TagFilters",) . toJSON) _resourceGroupsGroupQueryTagFilters - ] - --- | Constructor for 'ResourceGroupsGroupQuery' containing required fields as --- arguments. -resourceGroupsGroupQuery - :: ResourceGroupsGroupQuery -resourceGroupsGroupQuery = - ResourceGroupsGroupQuery - { _resourceGroupsGroupQueryResourceTypeFilters = Nothing - , _resourceGroupsGroupQueryStackIdentifier = Nothing - , _resourceGroupsGroupQueryTagFilters = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resourcegroups-group-query.html#cfn-resourcegroups-group-query-resourcetypefilters -rggqResourceTypeFilters :: Lens' ResourceGroupsGroupQuery (Maybe (ValList Text)) -rggqResourceTypeFilters = lens _resourceGroupsGroupQueryResourceTypeFilters (\s a -> s { _resourceGroupsGroupQueryResourceTypeFilters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resourcegroups-group-query.html#cfn-resourcegroups-group-query-stackidentifier -rggqStackIdentifier :: Lens' ResourceGroupsGroupQuery (Maybe (Val Text)) -rggqStackIdentifier = lens _resourceGroupsGroupQueryStackIdentifier (\s a -> s { _resourceGroupsGroupQueryStackIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resourcegroups-group-query.html#cfn-resourcegroups-group-query-tagfilters -rggqTagFilters :: Lens' ResourceGroupsGroupQuery (Maybe [ResourceGroupsGroupTagFilter]) -rggqTagFilters = lens _resourceGroupsGroupQueryTagFilters (\s a -> s { _resourceGroupsGroupQueryTagFilters = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ResourceGroupsGroupResourceQuery.hs b/library-gen/Stratosphere/ResourceProperties/ResourceGroupsGroupResourceQuery.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ResourceGroupsGroupResourceQuery.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resourcegroups-group-resourcequery.html - -module Stratosphere.ResourceProperties.ResourceGroupsGroupResourceQuery where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ResourceGroupsGroupQuery - --- | Full data type definition for ResourceGroupsGroupResourceQuery. See --- 'resourceGroupsGroupResourceQuery' for a more convenient constructor. -data ResourceGroupsGroupResourceQuery = - ResourceGroupsGroupResourceQuery - { _resourceGroupsGroupResourceQueryQuery :: Maybe ResourceGroupsGroupQuery - , _resourceGroupsGroupResourceQueryType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ResourceGroupsGroupResourceQuery where - toJSON ResourceGroupsGroupResourceQuery{..} = - object $ - catMaybes - [ fmap (("Query",) . toJSON) _resourceGroupsGroupResourceQueryQuery - , fmap (("Type",) . toJSON) _resourceGroupsGroupResourceQueryType - ] - --- | Constructor for 'ResourceGroupsGroupResourceQuery' containing required --- fields as arguments. -resourceGroupsGroupResourceQuery - :: ResourceGroupsGroupResourceQuery -resourceGroupsGroupResourceQuery = - ResourceGroupsGroupResourceQuery - { _resourceGroupsGroupResourceQueryQuery = Nothing - , _resourceGroupsGroupResourceQueryType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resourcegroups-group-resourcequery.html#cfn-resourcegroups-group-resourcequery-query -rggrqQuery :: Lens' ResourceGroupsGroupResourceQuery (Maybe ResourceGroupsGroupQuery) -rggrqQuery = lens _resourceGroupsGroupResourceQueryQuery (\s a -> s { _resourceGroupsGroupResourceQueryQuery = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resourcegroups-group-resourcequery.html#cfn-resourcegroups-group-resourcequery-type -rggrqType :: Lens' ResourceGroupsGroupResourceQuery (Maybe (Val Text)) -rggrqType = lens _resourceGroupsGroupResourceQueryType (\s a -> s { _resourceGroupsGroupResourceQueryType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ResourceGroupsGroupTagFilter.hs b/library-gen/Stratosphere/ResourceProperties/ResourceGroupsGroupTagFilter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ResourceGroupsGroupTagFilter.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resourcegroups-group-tagfilter.html - -module Stratosphere.ResourceProperties.ResourceGroupsGroupTagFilter where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ResourceGroupsGroupTagFilter. See --- 'resourceGroupsGroupTagFilter' for a more convenient constructor. -data ResourceGroupsGroupTagFilter = - ResourceGroupsGroupTagFilter - { _resourceGroupsGroupTagFilterKey :: Maybe (Val Text) - , _resourceGroupsGroupTagFilterValues :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON ResourceGroupsGroupTagFilter where - toJSON ResourceGroupsGroupTagFilter{..} = - object $ - catMaybes - [ fmap (("Key",) . toJSON) _resourceGroupsGroupTagFilterKey - , fmap (("Values",) . toJSON) _resourceGroupsGroupTagFilterValues - ] - --- | Constructor for 'ResourceGroupsGroupTagFilter' containing required fields --- as arguments. -resourceGroupsGroupTagFilter - :: ResourceGroupsGroupTagFilter -resourceGroupsGroupTagFilter = - ResourceGroupsGroupTagFilter - { _resourceGroupsGroupTagFilterKey = Nothing - , _resourceGroupsGroupTagFilterValues = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resourcegroups-group-tagfilter.html#cfn-resourcegroups-group-tagfilter-key -rggtfKey :: Lens' ResourceGroupsGroupTagFilter (Maybe (Val Text)) -rggtfKey = lens _resourceGroupsGroupTagFilterKey (\s a -> s { _resourceGroupsGroupTagFilterKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resourcegroups-group-tagfilter.html#cfn-resourcegroups-group-tagfilter-values -rggtfValues :: Lens' ResourceGroupsGroupTagFilter (Maybe (ValList Text)) -rggtfValues = lens _resourceGroupsGroupTagFilterValues (\s a -> s { _resourceGroupsGroupTagFilterValues = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/RoboMakerRobotApplicationRobotSoftwareSuite.hs b/library-gen/Stratosphere/ResourceProperties/RoboMakerRobotApplicationRobotSoftwareSuite.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/RoboMakerRobotApplicationRobotSoftwareSuite.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-robotapplication-robotsoftwaresuite.html - -module Stratosphere.ResourceProperties.RoboMakerRobotApplicationRobotSoftwareSuite where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- RoboMakerRobotApplicationRobotSoftwareSuite. See --- 'roboMakerRobotApplicationRobotSoftwareSuite' for a more convenient --- constructor. -data RoboMakerRobotApplicationRobotSoftwareSuite = - RoboMakerRobotApplicationRobotSoftwareSuite - { _roboMakerRobotApplicationRobotSoftwareSuiteName :: Val Text - , _roboMakerRobotApplicationRobotSoftwareSuiteVersion :: Val Text - } deriving (Show, Eq) - -instance ToJSON RoboMakerRobotApplicationRobotSoftwareSuite where - toJSON RoboMakerRobotApplicationRobotSoftwareSuite{..} = - object $ - catMaybes - [ (Just . ("Name",) . toJSON) _roboMakerRobotApplicationRobotSoftwareSuiteName - , (Just . ("Version",) . toJSON) _roboMakerRobotApplicationRobotSoftwareSuiteVersion - ] - --- | Constructor for 'RoboMakerRobotApplicationRobotSoftwareSuite' containing --- required fields as arguments. -roboMakerRobotApplicationRobotSoftwareSuite - :: Val Text -- ^ 'rmrarssName' - -> Val Text -- ^ 'rmrarssVersion' - -> RoboMakerRobotApplicationRobotSoftwareSuite -roboMakerRobotApplicationRobotSoftwareSuite namearg versionarg = - RoboMakerRobotApplicationRobotSoftwareSuite - { _roboMakerRobotApplicationRobotSoftwareSuiteName = namearg - , _roboMakerRobotApplicationRobotSoftwareSuiteVersion = versionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-robotapplication-robotsoftwaresuite.html#cfn-robomaker-robotapplication-robotsoftwaresuite-name -rmrarssName :: Lens' RoboMakerRobotApplicationRobotSoftwareSuite (Val Text) -rmrarssName = lens _roboMakerRobotApplicationRobotSoftwareSuiteName (\s a -> s { _roboMakerRobotApplicationRobotSoftwareSuiteName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-robotapplication-robotsoftwaresuite.html#cfn-robomaker-robotapplication-robotsoftwaresuite-version -rmrarssVersion :: Lens' RoboMakerRobotApplicationRobotSoftwareSuite (Val Text) -rmrarssVersion = lens _roboMakerRobotApplicationRobotSoftwareSuiteVersion (\s a -> s { _roboMakerRobotApplicationRobotSoftwareSuiteVersion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/RoboMakerRobotApplicationSourceConfig.hs b/library-gen/Stratosphere/ResourceProperties/RoboMakerRobotApplicationSourceConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/RoboMakerRobotApplicationSourceConfig.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-robotapplication-sourceconfig.html - -module Stratosphere.ResourceProperties.RoboMakerRobotApplicationSourceConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for RoboMakerRobotApplicationSourceConfig. See --- 'roboMakerRobotApplicationSourceConfig' for a more convenient --- constructor. -data RoboMakerRobotApplicationSourceConfig = - RoboMakerRobotApplicationSourceConfig - { _roboMakerRobotApplicationSourceConfigArchitecture :: Val Text - , _roboMakerRobotApplicationSourceConfigS3Bucket :: Val Text - , _roboMakerRobotApplicationSourceConfigS3Key :: Val Text - } deriving (Show, Eq) - -instance ToJSON RoboMakerRobotApplicationSourceConfig where - toJSON RoboMakerRobotApplicationSourceConfig{..} = - object $ - catMaybes - [ (Just . ("Architecture",) . toJSON) _roboMakerRobotApplicationSourceConfigArchitecture - , (Just . ("S3Bucket",) . toJSON) _roboMakerRobotApplicationSourceConfigS3Bucket - , (Just . ("S3Key",) . toJSON) _roboMakerRobotApplicationSourceConfigS3Key - ] - --- | Constructor for 'RoboMakerRobotApplicationSourceConfig' containing --- required fields as arguments. -roboMakerRobotApplicationSourceConfig - :: Val Text -- ^ 'rmrascArchitecture' - -> Val Text -- ^ 'rmrascS3Bucket' - -> Val Text -- ^ 'rmrascS3Key' - -> RoboMakerRobotApplicationSourceConfig -roboMakerRobotApplicationSourceConfig architecturearg s3Bucketarg s3Keyarg = - RoboMakerRobotApplicationSourceConfig - { _roboMakerRobotApplicationSourceConfigArchitecture = architecturearg - , _roboMakerRobotApplicationSourceConfigS3Bucket = s3Bucketarg - , _roboMakerRobotApplicationSourceConfigS3Key = s3Keyarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-robotapplication-sourceconfig.html#cfn-robomaker-robotapplication-sourceconfig-architecture -rmrascArchitecture :: Lens' RoboMakerRobotApplicationSourceConfig (Val Text) -rmrascArchitecture = lens _roboMakerRobotApplicationSourceConfigArchitecture (\s a -> s { _roboMakerRobotApplicationSourceConfigArchitecture = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-robotapplication-sourceconfig.html#cfn-robomaker-robotapplication-sourceconfig-s3bucket -rmrascS3Bucket :: Lens' RoboMakerRobotApplicationSourceConfig (Val Text) -rmrascS3Bucket = lens _roboMakerRobotApplicationSourceConfigS3Bucket (\s a -> s { _roboMakerRobotApplicationSourceConfigS3Bucket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-robotapplication-sourceconfig.html#cfn-robomaker-robotapplication-sourceconfig-s3key -rmrascS3Key :: Lens' RoboMakerRobotApplicationSourceConfig (Val Text) -rmrascS3Key = lens _roboMakerRobotApplicationSourceConfigS3Key (\s a -> s { _roboMakerRobotApplicationSourceConfigS3Key = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/RoboMakerSimulationApplicationRenderingEngine.hs b/library-gen/Stratosphere/ResourceProperties/RoboMakerSimulationApplicationRenderingEngine.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/RoboMakerSimulationApplicationRenderingEngine.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-simulationapplication-renderingengine.html - -module Stratosphere.ResourceProperties.RoboMakerSimulationApplicationRenderingEngine where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- RoboMakerSimulationApplicationRenderingEngine. See --- 'roboMakerSimulationApplicationRenderingEngine' for a more convenient --- constructor. -data RoboMakerSimulationApplicationRenderingEngine = - RoboMakerSimulationApplicationRenderingEngine - { _roboMakerSimulationApplicationRenderingEngineName :: Val Text - , _roboMakerSimulationApplicationRenderingEngineVersion :: Val Text - } deriving (Show, Eq) - -instance ToJSON RoboMakerSimulationApplicationRenderingEngine where - toJSON RoboMakerSimulationApplicationRenderingEngine{..} = - object $ - catMaybes - [ (Just . ("Name",) . toJSON) _roboMakerSimulationApplicationRenderingEngineName - , (Just . ("Version",) . toJSON) _roboMakerSimulationApplicationRenderingEngineVersion - ] - --- | Constructor for 'RoboMakerSimulationApplicationRenderingEngine' --- containing required fields as arguments. -roboMakerSimulationApplicationRenderingEngine - :: Val Text -- ^ 'rmsareName' - -> Val Text -- ^ 'rmsareVersion' - -> RoboMakerSimulationApplicationRenderingEngine -roboMakerSimulationApplicationRenderingEngine namearg versionarg = - RoboMakerSimulationApplicationRenderingEngine - { _roboMakerSimulationApplicationRenderingEngineName = namearg - , _roboMakerSimulationApplicationRenderingEngineVersion = versionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-simulationapplication-renderingengine.html#cfn-robomaker-simulationapplication-renderingengine-name -rmsareName :: Lens' RoboMakerSimulationApplicationRenderingEngine (Val Text) -rmsareName = lens _roboMakerSimulationApplicationRenderingEngineName (\s a -> s { _roboMakerSimulationApplicationRenderingEngineName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-simulationapplication-renderingengine.html#cfn-robomaker-simulationapplication-renderingengine-version -rmsareVersion :: Lens' RoboMakerSimulationApplicationRenderingEngine (Val Text) -rmsareVersion = lens _roboMakerSimulationApplicationRenderingEngineVersion (\s a -> s { _roboMakerSimulationApplicationRenderingEngineVersion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/RoboMakerSimulationApplicationRobotSoftwareSuite.hs b/library-gen/Stratosphere/ResourceProperties/RoboMakerSimulationApplicationRobotSoftwareSuite.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/RoboMakerSimulationApplicationRobotSoftwareSuite.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-simulationapplication-robotsoftwaresuite.html - -module Stratosphere.ResourceProperties.RoboMakerSimulationApplicationRobotSoftwareSuite where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- RoboMakerSimulationApplicationRobotSoftwareSuite. See --- 'roboMakerSimulationApplicationRobotSoftwareSuite' for a more convenient --- constructor. -data RoboMakerSimulationApplicationRobotSoftwareSuite = - RoboMakerSimulationApplicationRobotSoftwareSuite - { _roboMakerSimulationApplicationRobotSoftwareSuiteName :: Val Text - , _roboMakerSimulationApplicationRobotSoftwareSuiteVersion :: Val Text - } deriving (Show, Eq) - -instance ToJSON RoboMakerSimulationApplicationRobotSoftwareSuite where - toJSON RoboMakerSimulationApplicationRobotSoftwareSuite{..} = - object $ - catMaybes - [ (Just . ("Name",) . toJSON) _roboMakerSimulationApplicationRobotSoftwareSuiteName - , (Just . ("Version",) . toJSON) _roboMakerSimulationApplicationRobotSoftwareSuiteVersion - ] - --- | Constructor for 'RoboMakerSimulationApplicationRobotSoftwareSuite' --- containing required fields as arguments. -roboMakerSimulationApplicationRobotSoftwareSuite - :: Val Text -- ^ 'rmsarssName' - -> Val Text -- ^ 'rmsarssVersion' - -> RoboMakerSimulationApplicationRobotSoftwareSuite -roboMakerSimulationApplicationRobotSoftwareSuite namearg versionarg = - RoboMakerSimulationApplicationRobotSoftwareSuite - { _roboMakerSimulationApplicationRobotSoftwareSuiteName = namearg - , _roboMakerSimulationApplicationRobotSoftwareSuiteVersion = versionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-simulationapplication-robotsoftwaresuite.html#cfn-robomaker-simulationapplication-robotsoftwaresuite-name -rmsarssName :: Lens' RoboMakerSimulationApplicationRobotSoftwareSuite (Val Text) -rmsarssName = lens _roboMakerSimulationApplicationRobotSoftwareSuiteName (\s a -> s { _roboMakerSimulationApplicationRobotSoftwareSuiteName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-simulationapplication-robotsoftwaresuite.html#cfn-robomaker-simulationapplication-robotsoftwaresuite-version -rmsarssVersion :: Lens' RoboMakerSimulationApplicationRobotSoftwareSuite (Val Text) -rmsarssVersion = lens _roboMakerSimulationApplicationRobotSoftwareSuiteVersion (\s a -> s { _roboMakerSimulationApplicationRobotSoftwareSuiteVersion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/RoboMakerSimulationApplicationSimulationSoftwareSuite.hs b/library-gen/Stratosphere/ResourceProperties/RoboMakerSimulationApplicationSimulationSoftwareSuite.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/RoboMakerSimulationApplicationSimulationSoftwareSuite.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-simulationapplication-simulationsoftwaresuite.html - -module Stratosphere.ResourceProperties.RoboMakerSimulationApplicationSimulationSoftwareSuite where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- RoboMakerSimulationApplicationSimulationSoftwareSuite. See --- 'roboMakerSimulationApplicationSimulationSoftwareSuite' for a more --- convenient constructor. -data RoboMakerSimulationApplicationSimulationSoftwareSuite = - RoboMakerSimulationApplicationSimulationSoftwareSuite - { _roboMakerSimulationApplicationSimulationSoftwareSuiteName :: Val Text - , _roboMakerSimulationApplicationSimulationSoftwareSuiteVersion :: Val Text - } deriving (Show, Eq) - -instance ToJSON RoboMakerSimulationApplicationSimulationSoftwareSuite where - toJSON RoboMakerSimulationApplicationSimulationSoftwareSuite{..} = - object $ - catMaybes - [ (Just . ("Name",) . toJSON) _roboMakerSimulationApplicationSimulationSoftwareSuiteName - , (Just . ("Version",) . toJSON) _roboMakerSimulationApplicationSimulationSoftwareSuiteVersion - ] - --- | Constructor for 'RoboMakerSimulationApplicationSimulationSoftwareSuite' --- containing required fields as arguments. -roboMakerSimulationApplicationSimulationSoftwareSuite - :: Val Text -- ^ 'rmsasssName' - -> Val Text -- ^ 'rmsasssVersion' - -> RoboMakerSimulationApplicationSimulationSoftwareSuite -roboMakerSimulationApplicationSimulationSoftwareSuite namearg versionarg = - RoboMakerSimulationApplicationSimulationSoftwareSuite - { _roboMakerSimulationApplicationSimulationSoftwareSuiteName = namearg - , _roboMakerSimulationApplicationSimulationSoftwareSuiteVersion = versionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-simulationapplication-simulationsoftwaresuite.html#cfn-robomaker-simulationapplication-simulationsoftwaresuite-name -rmsasssName :: Lens' RoboMakerSimulationApplicationSimulationSoftwareSuite (Val Text) -rmsasssName = lens _roboMakerSimulationApplicationSimulationSoftwareSuiteName (\s a -> s { _roboMakerSimulationApplicationSimulationSoftwareSuiteName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-simulationapplication-simulationsoftwaresuite.html#cfn-robomaker-simulationapplication-simulationsoftwaresuite-version -rmsasssVersion :: Lens' RoboMakerSimulationApplicationSimulationSoftwareSuite (Val Text) -rmsasssVersion = lens _roboMakerSimulationApplicationSimulationSoftwareSuiteVersion (\s a -> s { _roboMakerSimulationApplicationSimulationSoftwareSuiteVersion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/RoboMakerSimulationApplicationSourceConfig.hs b/library-gen/Stratosphere/ResourceProperties/RoboMakerSimulationApplicationSourceConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/RoboMakerSimulationApplicationSourceConfig.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-simulationapplication-sourceconfig.html - -module Stratosphere.ResourceProperties.RoboMakerSimulationApplicationSourceConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for RoboMakerSimulationApplicationSourceConfig. --- See 'roboMakerSimulationApplicationSourceConfig' for a more convenient --- constructor. -data RoboMakerSimulationApplicationSourceConfig = - RoboMakerSimulationApplicationSourceConfig - { _roboMakerSimulationApplicationSourceConfigArchitecture :: Val Text - , _roboMakerSimulationApplicationSourceConfigS3Bucket :: Val Text - , _roboMakerSimulationApplicationSourceConfigS3Key :: Val Text - } deriving (Show, Eq) - -instance ToJSON RoboMakerSimulationApplicationSourceConfig where - toJSON RoboMakerSimulationApplicationSourceConfig{..} = - object $ - catMaybes - [ (Just . ("Architecture",) . toJSON) _roboMakerSimulationApplicationSourceConfigArchitecture - , (Just . ("S3Bucket",) . toJSON) _roboMakerSimulationApplicationSourceConfigS3Bucket - , (Just . ("S3Key",) . toJSON) _roboMakerSimulationApplicationSourceConfigS3Key - ] - --- | Constructor for 'RoboMakerSimulationApplicationSourceConfig' containing --- required fields as arguments. -roboMakerSimulationApplicationSourceConfig - :: Val Text -- ^ 'rmsascArchitecture' - -> Val Text -- ^ 'rmsascS3Bucket' - -> Val Text -- ^ 'rmsascS3Key' - -> RoboMakerSimulationApplicationSourceConfig -roboMakerSimulationApplicationSourceConfig architecturearg s3Bucketarg s3Keyarg = - RoboMakerSimulationApplicationSourceConfig - { _roboMakerSimulationApplicationSourceConfigArchitecture = architecturearg - , _roboMakerSimulationApplicationSourceConfigS3Bucket = s3Bucketarg - , _roboMakerSimulationApplicationSourceConfigS3Key = s3Keyarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-simulationapplication-sourceconfig.html#cfn-robomaker-simulationapplication-sourceconfig-architecture -rmsascArchitecture :: Lens' RoboMakerSimulationApplicationSourceConfig (Val Text) -rmsascArchitecture = lens _roboMakerSimulationApplicationSourceConfigArchitecture (\s a -> s { _roboMakerSimulationApplicationSourceConfigArchitecture = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-simulationapplication-sourceconfig.html#cfn-robomaker-simulationapplication-sourceconfig-s3bucket -rmsascS3Bucket :: Lens' RoboMakerSimulationApplicationSourceConfig (Val Text) -rmsascS3Bucket = lens _roboMakerSimulationApplicationSourceConfigS3Bucket (\s a -> s { _roboMakerSimulationApplicationSourceConfigS3Bucket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-robomaker-simulationapplication-sourceconfig.html#cfn-robomaker-simulationapplication-sourceconfig-s3key -rmsascS3Key :: Lens' RoboMakerSimulationApplicationSourceConfig (Val Text) -rmsascS3Key = lens _roboMakerSimulationApplicationSourceConfigS3Key (\s a -> s { _roboMakerSimulationApplicationSourceConfigS3Key = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/Route53HealthCheckAlarmIdentifier.hs b/library-gen/Stratosphere/ResourceProperties/Route53HealthCheckAlarmIdentifier.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/Route53HealthCheckAlarmIdentifier.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-healthcheck-alarmidentifier.html - -module Stratosphere.ResourceProperties.Route53HealthCheckAlarmIdentifier where - -import Stratosphere.ResourceImports - - --- | Full data type definition for Route53HealthCheckAlarmIdentifier. See --- 'route53HealthCheckAlarmIdentifier' for a more convenient constructor. -data Route53HealthCheckAlarmIdentifier = - Route53HealthCheckAlarmIdentifier - { _route53HealthCheckAlarmIdentifierName :: Val Text - , _route53HealthCheckAlarmIdentifierRegion :: Val Text - } deriving (Show, Eq) - -instance ToJSON Route53HealthCheckAlarmIdentifier where - toJSON Route53HealthCheckAlarmIdentifier{..} = - object $ - catMaybes - [ (Just . ("Name",) . toJSON) _route53HealthCheckAlarmIdentifierName - , (Just . ("Region",) . toJSON) _route53HealthCheckAlarmIdentifierRegion - ] - --- | Constructor for 'Route53HealthCheckAlarmIdentifier' containing required --- fields as arguments. -route53HealthCheckAlarmIdentifier - :: Val Text -- ^ 'rhcaiName' - -> Val Text -- ^ 'rhcaiRegion' - -> Route53HealthCheckAlarmIdentifier -route53HealthCheckAlarmIdentifier namearg regionarg = - Route53HealthCheckAlarmIdentifier - { _route53HealthCheckAlarmIdentifierName = namearg - , _route53HealthCheckAlarmIdentifierRegion = regionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-healthcheck-alarmidentifier.html#cfn-route53-healthcheck-alarmidentifier-name -rhcaiName :: Lens' Route53HealthCheckAlarmIdentifier (Val Text) -rhcaiName = lens _route53HealthCheckAlarmIdentifierName (\s a -> s { _route53HealthCheckAlarmIdentifierName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-healthcheck-alarmidentifier.html#cfn-route53-healthcheck-alarmidentifier-region -rhcaiRegion :: Lens' Route53HealthCheckAlarmIdentifier (Val Text) -rhcaiRegion = lens _route53HealthCheckAlarmIdentifierRegion (\s a -> s { _route53HealthCheckAlarmIdentifierRegion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/Route53HealthCheckHealthCheckConfig.hs b/library-gen/Stratosphere/ResourceProperties/Route53HealthCheckHealthCheckConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/Route53HealthCheckHealthCheckConfig.hs +++ /dev/null @@ -1,144 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-healthcheck-healthcheckconfig.html - -module Stratosphere.ResourceProperties.Route53HealthCheckHealthCheckConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Route53HealthCheckAlarmIdentifier - --- | Full data type definition for Route53HealthCheckHealthCheckConfig. See --- 'route53HealthCheckHealthCheckConfig' for a more convenient constructor. -data Route53HealthCheckHealthCheckConfig = - Route53HealthCheckHealthCheckConfig - { _route53HealthCheckHealthCheckConfigAlarmIdentifier :: Maybe Route53HealthCheckAlarmIdentifier - , _route53HealthCheckHealthCheckConfigChildHealthChecks :: Maybe (ValList Text) - , _route53HealthCheckHealthCheckConfigEnableSNI :: Maybe (Val Bool) - , _route53HealthCheckHealthCheckConfigFailureThreshold :: Maybe (Val Integer) - , _route53HealthCheckHealthCheckConfigFullyQualifiedDomainName :: Maybe (Val Text) - , _route53HealthCheckHealthCheckConfigHealthThreshold :: Maybe (Val Integer) - , _route53HealthCheckHealthCheckConfigIPAddress :: Maybe (Val Text) - , _route53HealthCheckHealthCheckConfigInsufficientDataHealthStatus :: Maybe (Val Text) - , _route53HealthCheckHealthCheckConfigInverted :: Maybe (Val Bool) - , _route53HealthCheckHealthCheckConfigMeasureLatency :: Maybe (Val Bool) - , _route53HealthCheckHealthCheckConfigPort :: Maybe (Val Integer) - , _route53HealthCheckHealthCheckConfigRegions :: Maybe (ValList Text) - , _route53HealthCheckHealthCheckConfigRequestInterval :: Maybe (Val Integer) - , _route53HealthCheckHealthCheckConfigResourcePath :: Maybe (Val Text) - , _route53HealthCheckHealthCheckConfigSearchString :: Maybe (Val Text) - , _route53HealthCheckHealthCheckConfigType :: Val Text - } deriving (Show, Eq) - -instance ToJSON Route53HealthCheckHealthCheckConfig where - toJSON Route53HealthCheckHealthCheckConfig{..} = - object $ - catMaybes - [ fmap (("AlarmIdentifier",) . toJSON) _route53HealthCheckHealthCheckConfigAlarmIdentifier - , fmap (("ChildHealthChecks",) . toJSON) _route53HealthCheckHealthCheckConfigChildHealthChecks - , fmap (("EnableSNI",) . toJSON) _route53HealthCheckHealthCheckConfigEnableSNI - , fmap (("FailureThreshold",) . toJSON) _route53HealthCheckHealthCheckConfigFailureThreshold - , fmap (("FullyQualifiedDomainName",) . toJSON) _route53HealthCheckHealthCheckConfigFullyQualifiedDomainName - , fmap (("HealthThreshold",) . toJSON) _route53HealthCheckHealthCheckConfigHealthThreshold - , fmap (("IPAddress",) . toJSON) _route53HealthCheckHealthCheckConfigIPAddress - , fmap (("InsufficientDataHealthStatus",) . toJSON) _route53HealthCheckHealthCheckConfigInsufficientDataHealthStatus - , fmap (("Inverted",) . toJSON) _route53HealthCheckHealthCheckConfigInverted - , fmap (("MeasureLatency",) . toJSON) _route53HealthCheckHealthCheckConfigMeasureLatency - , fmap (("Port",) . toJSON) _route53HealthCheckHealthCheckConfigPort - , fmap (("Regions",) . toJSON) _route53HealthCheckHealthCheckConfigRegions - , fmap (("RequestInterval",) . toJSON) _route53HealthCheckHealthCheckConfigRequestInterval - , fmap (("ResourcePath",) . toJSON) _route53HealthCheckHealthCheckConfigResourcePath - , fmap (("SearchString",) . toJSON) _route53HealthCheckHealthCheckConfigSearchString - , (Just . ("Type",) . toJSON) _route53HealthCheckHealthCheckConfigType - ] - --- | Constructor for 'Route53HealthCheckHealthCheckConfig' containing required --- fields as arguments. -route53HealthCheckHealthCheckConfig - :: Val Text -- ^ 'rhchccType' - -> Route53HealthCheckHealthCheckConfig -route53HealthCheckHealthCheckConfig typearg = - Route53HealthCheckHealthCheckConfig - { _route53HealthCheckHealthCheckConfigAlarmIdentifier = Nothing - , _route53HealthCheckHealthCheckConfigChildHealthChecks = Nothing - , _route53HealthCheckHealthCheckConfigEnableSNI = Nothing - , _route53HealthCheckHealthCheckConfigFailureThreshold = Nothing - , _route53HealthCheckHealthCheckConfigFullyQualifiedDomainName = Nothing - , _route53HealthCheckHealthCheckConfigHealthThreshold = Nothing - , _route53HealthCheckHealthCheckConfigIPAddress = Nothing - , _route53HealthCheckHealthCheckConfigInsufficientDataHealthStatus = Nothing - , _route53HealthCheckHealthCheckConfigInverted = Nothing - , _route53HealthCheckHealthCheckConfigMeasureLatency = Nothing - , _route53HealthCheckHealthCheckConfigPort = Nothing - , _route53HealthCheckHealthCheckConfigRegions = Nothing - , _route53HealthCheckHealthCheckConfigRequestInterval = Nothing - , _route53HealthCheckHealthCheckConfigResourcePath = Nothing - , _route53HealthCheckHealthCheckConfigSearchString = Nothing - , _route53HealthCheckHealthCheckConfigType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-healthcheck-healthcheckconfig.html#cfn-route53-healthcheck-healthcheckconfig-alarmidentifier -rhchccAlarmIdentifier :: Lens' Route53HealthCheckHealthCheckConfig (Maybe Route53HealthCheckAlarmIdentifier) -rhchccAlarmIdentifier = lens _route53HealthCheckHealthCheckConfigAlarmIdentifier (\s a -> s { _route53HealthCheckHealthCheckConfigAlarmIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-healthcheck-healthcheckconfig.html#cfn-route53-healthcheck-healthcheckconfig-childhealthchecks -rhchccChildHealthChecks :: Lens' Route53HealthCheckHealthCheckConfig (Maybe (ValList Text)) -rhchccChildHealthChecks = lens _route53HealthCheckHealthCheckConfigChildHealthChecks (\s a -> s { _route53HealthCheckHealthCheckConfigChildHealthChecks = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-healthcheck-healthcheckconfig.html#cfn-route53-healthcheck-healthcheckconfig-enablesni -rhchccEnableSNI :: Lens' Route53HealthCheckHealthCheckConfig (Maybe (Val Bool)) -rhchccEnableSNI = lens _route53HealthCheckHealthCheckConfigEnableSNI (\s a -> s { _route53HealthCheckHealthCheckConfigEnableSNI = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-healthcheck-healthcheckconfig.html#cfn-route53-healthcheck-healthcheckconfig-failurethreshold -rhchccFailureThreshold :: Lens' Route53HealthCheckHealthCheckConfig (Maybe (Val Integer)) -rhchccFailureThreshold = lens _route53HealthCheckHealthCheckConfigFailureThreshold (\s a -> s { _route53HealthCheckHealthCheckConfigFailureThreshold = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-healthcheck-healthcheckconfig.html#cfn-route53-healthcheck-healthcheckconfig-fullyqualifieddomainname -rhchccFullyQualifiedDomainName :: Lens' Route53HealthCheckHealthCheckConfig (Maybe (Val Text)) -rhchccFullyQualifiedDomainName = lens _route53HealthCheckHealthCheckConfigFullyQualifiedDomainName (\s a -> s { _route53HealthCheckHealthCheckConfigFullyQualifiedDomainName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-healthcheck-healthcheckconfig.html#cfn-route53-healthcheck-healthcheckconfig-healththreshold -rhchccHealthThreshold :: Lens' Route53HealthCheckHealthCheckConfig (Maybe (Val Integer)) -rhchccHealthThreshold = lens _route53HealthCheckHealthCheckConfigHealthThreshold (\s a -> s { _route53HealthCheckHealthCheckConfigHealthThreshold = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-healthcheck-healthcheckconfig.html#cfn-route53-healthcheck-healthcheckconfig-ipaddress -rhchccIPAddress :: Lens' Route53HealthCheckHealthCheckConfig (Maybe (Val Text)) -rhchccIPAddress = lens _route53HealthCheckHealthCheckConfigIPAddress (\s a -> s { _route53HealthCheckHealthCheckConfigIPAddress = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-healthcheck-healthcheckconfig.html#cfn-route53-healthcheck-healthcheckconfig-insufficientdatahealthstatus -rhchccInsufficientDataHealthStatus :: Lens' Route53HealthCheckHealthCheckConfig (Maybe (Val Text)) -rhchccInsufficientDataHealthStatus = lens _route53HealthCheckHealthCheckConfigInsufficientDataHealthStatus (\s a -> s { _route53HealthCheckHealthCheckConfigInsufficientDataHealthStatus = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-healthcheck-healthcheckconfig.html#cfn-route53-healthcheck-healthcheckconfig-inverted -rhchccInverted :: Lens' Route53HealthCheckHealthCheckConfig (Maybe (Val Bool)) -rhchccInverted = lens _route53HealthCheckHealthCheckConfigInverted (\s a -> s { _route53HealthCheckHealthCheckConfigInverted = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-healthcheck-healthcheckconfig.html#cfn-route53-healthcheck-healthcheckconfig-measurelatency -rhchccMeasureLatency :: Lens' Route53HealthCheckHealthCheckConfig (Maybe (Val Bool)) -rhchccMeasureLatency = lens _route53HealthCheckHealthCheckConfigMeasureLatency (\s a -> s { _route53HealthCheckHealthCheckConfigMeasureLatency = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-healthcheck-healthcheckconfig.html#cfn-route53-healthcheck-healthcheckconfig-port -rhchccPort :: Lens' Route53HealthCheckHealthCheckConfig (Maybe (Val Integer)) -rhchccPort = lens _route53HealthCheckHealthCheckConfigPort (\s a -> s { _route53HealthCheckHealthCheckConfigPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-healthcheck-healthcheckconfig.html#cfn-route53-healthcheck-healthcheckconfig-regions -rhchccRegions :: Lens' Route53HealthCheckHealthCheckConfig (Maybe (ValList Text)) -rhchccRegions = lens _route53HealthCheckHealthCheckConfigRegions (\s a -> s { _route53HealthCheckHealthCheckConfigRegions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-healthcheck-healthcheckconfig.html#cfn-route53-healthcheck-healthcheckconfig-requestinterval -rhchccRequestInterval :: Lens' Route53HealthCheckHealthCheckConfig (Maybe (Val Integer)) -rhchccRequestInterval = lens _route53HealthCheckHealthCheckConfigRequestInterval (\s a -> s { _route53HealthCheckHealthCheckConfigRequestInterval = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-healthcheck-healthcheckconfig.html#cfn-route53-healthcheck-healthcheckconfig-resourcepath -rhchccResourcePath :: Lens' Route53HealthCheckHealthCheckConfig (Maybe (Val Text)) -rhchccResourcePath = lens _route53HealthCheckHealthCheckConfigResourcePath (\s a -> s { _route53HealthCheckHealthCheckConfigResourcePath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-healthcheck-healthcheckconfig.html#cfn-route53-healthcheck-healthcheckconfig-searchstring -rhchccSearchString :: Lens' Route53HealthCheckHealthCheckConfig (Maybe (Val Text)) -rhchccSearchString = lens _route53HealthCheckHealthCheckConfigSearchString (\s a -> s { _route53HealthCheckHealthCheckConfigSearchString = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-healthcheck-healthcheckconfig.html#cfn-route53-healthcheck-healthcheckconfig-type -rhchccType :: Lens' Route53HealthCheckHealthCheckConfig (Val Text) -rhchccType = lens _route53HealthCheckHealthCheckConfigType (\s a -> s { _route53HealthCheckHealthCheckConfigType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/Route53HealthCheckHealthCheckTag.hs b/library-gen/Stratosphere/ResourceProperties/Route53HealthCheckHealthCheckTag.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/Route53HealthCheckHealthCheckTag.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-healthcheck-healthchecktag.html - -module Stratosphere.ResourceProperties.Route53HealthCheckHealthCheckTag where - -import Stratosphere.ResourceImports - - --- | Full data type definition for Route53HealthCheckHealthCheckTag. See --- 'route53HealthCheckHealthCheckTag' for a more convenient constructor. -data Route53HealthCheckHealthCheckTag = - Route53HealthCheckHealthCheckTag - { _route53HealthCheckHealthCheckTagKey :: Val Text - , _route53HealthCheckHealthCheckTagValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON Route53HealthCheckHealthCheckTag where - toJSON Route53HealthCheckHealthCheckTag{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _route53HealthCheckHealthCheckTagKey - , (Just . ("Value",) . toJSON) _route53HealthCheckHealthCheckTagValue - ] - --- | Constructor for 'Route53HealthCheckHealthCheckTag' containing required --- fields as arguments. -route53HealthCheckHealthCheckTag - :: Val Text -- ^ 'rhchctKey' - -> Val Text -- ^ 'rhchctValue' - -> Route53HealthCheckHealthCheckTag -route53HealthCheckHealthCheckTag keyarg valuearg = - Route53HealthCheckHealthCheckTag - { _route53HealthCheckHealthCheckTagKey = keyarg - , _route53HealthCheckHealthCheckTagValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-healthcheck-healthchecktag.html#cfn-route53-healthchecktags-key -rhchctKey :: Lens' Route53HealthCheckHealthCheckTag (Val Text) -rhchctKey = lens _route53HealthCheckHealthCheckTagKey (\s a -> s { _route53HealthCheckHealthCheckTagKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-healthcheck-healthchecktag.html#cfn-route53-healthchecktags-value -rhchctValue :: Lens' Route53HealthCheckHealthCheckTag (Val Text) -rhchctValue = lens _route53HealthCheckHealthCheckTagValue (\s a -> s { _route53HealthCheckHealthCheckTagValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/Route53HostedZoneHostedZoneConfig.hs b/library-gen/Stratosphere/ResourceProperties/Route53HostedZoneHostedZoneConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/Route53HostedZoneHostedZoneConfig.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-hostedzone-hostedzoneconfig.html - -module Stratosphere.ResourceProperties.Route53HostedZoneHostedZoneConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for Route53HostedZoneHostedZoneConfig. See --- 'route53HostedZoneHostedZoneConfig' for a more convenient constructor. -data Route53HostedZoneHostedZoneConfig = - Route53HostedZoneHostedZoneConfig - { _route53HostedZoneHostedZoneConfigComment :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON Route53HostedZoneHostedZoneConfig where - toJSON Route53HostedZoneHostedZoneConfig{..} = - object $ - catMaybes - [ fmap (("Comment",) . toJSON) _route53HostedZoneHostedZoneConfigComment - ] - --- | Constructor for 'Route53HostedZoneHostedZoneConfig' containing required --- fields as arguments. -route53HostedZoneHostedZoneConfig - :: Route53HostedZoneHostedZoneConfig -route53HostedZoneHostedZoneConfig = - Route53HostedZoneHostedZoneConfig - { _route53HostedZoneHostedZoneConfigComment = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-hostedzone-hostedzoneconfig.html#cfn-route53-hostedzone-hostedzoneconfig-comment -rhzhzcComment :: Lens' Route53HostedZoneHostedZoneConfig (Maybe (Val Text)) -rhzhzcComment = lens _route53HostedZoneHostedZoneConfigComment (\s a -> s { _route53HostedZoneHostedZoneConfigComment = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/Route53HostedZoneHostedZoneTag.hs b/library-gen/Stratosphere/ResourceProperties/Route53HostedZoneHostedZoneTag.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/Route53HostedZoneHostedZoneTag.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-hostedzone-hostedzonetags.html - -module Stratosphere.ResourceProperties.Route53HostedZoneHostedZoneTag where - -import Stratosphere.ResourceImports - - --- | Full data type definition for Route53HostedZoneHostedZoneTag. See --- 'route53HostedZoneHostedZoneTag' for a more convenient constructor. -data Route53HostedZoneHostedZoneTag = - Route53HostedZoneHostedZoneTag - { _route53HostedZoneHostedZoneTagKey :: Val Text - , _route53HostedZoneHostedZoneTagValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON Route53HostedZoneHostedZoneTag where - toJSON Route53HostedZoneHostedZoneTag{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _route53HostedZoneHostedZoneTagKey - , (Just . ("Value",) . toJSON) _route53HostedZoneHostedZoneTagValue - ] - --- | Constructor for 'Route53HostedZoneHostedZoneTag' containing required --- fields as arguments. -route53HostedZoneHostedZoneTag - :: Val Text -- ^ 'rhzhztKey' - -> Val Text -- ^ 'rhzhztValue' - -> Route53HostedZoneHostedZoneTag -route53HostedZoneHostedZoneTag keyarg valuearg = - Route53HostedZoneHostedZoneTag - { _route53HostedZoneHostedZoneTagKey = keyarg - , _route53HostedZoneHostedZoneTagValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-hostedzone-hostedzonetags.html#cfn-route53-hostedzonetags-key -rhzhztKey :: Lens' Route53HostedZoneHostedZoneTag (Val Text) -rhzhztKey = lens _route53HostedZoneHostedZoneTagKey (\s a -> s { _route53HostedZoneHostedZoneTagKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-hostedzone-hostedzonetags.html#cfn-route53-hostedzonetags-value -rhzhztValue :: Lens' Route53HostedZoneHostedZoneTag (Val Text) -rhzhztValue = lens _route53HostedZoneHostedZoneTagValue (\s a -> s { _route53HostedZoneHostedZoneTagValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/Route53HostedZoneQueryLoggingConfig.hs b/library-gen/Stratosphere/ResourceProperties/Route53HostedZoneQueryLoggingConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/Route53HostedZoneQueryLoggingConfig.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-hostedzone-queryloggingconfig.html - -module Stratosphere.ResourceProperties.Route53HostedZoneQueryLoggingConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for Route53HostedZoneQueryLoggingConfig. See --- 'route53HostedZoneQueryLoggingConfig' for a more convenient constructor. -data Route53HostedZoneQueryLoggingConfig = - Route53HostedZoneQueryLoggingConfig - { _route53HostedZoneQueryLoggingConfigCloudWatchLogsLogGroupArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON Route53HostedZoneQueryLoggingConfig where - toJSON Route53HostedZoneQueryLoggingConfig{..} = - object $ - catMaybes - [ (Just . ("CloudWatchLogsLogGroupArn",) . toJSON) _route53HostedZoneQueryLoggingConfigCloudWatchLogsLogGroupArn - ] - --- | Constructor for 'Route53HostedZoneQueryLoggingConfig' containing required --- fields as arguments. -route53HostedZoneQueryLoggingConfig - :: Val Text -- ^ 'rhzqlcCloudWatchLogsLogGroupArn' - -> Route53HostedZoneQueryLoggingConfig -route53HostedZoneQueryLoggingConfig cloudWatchLogsLogGroupArnarg = - Route53HostedZoneQueryLoggingConfig - { _route53HostedZoneQueryLoggingConfigCloudWatchLogsLogGroupArn = cloudWatchLogsLogGroupArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-hostedzone-queryloggingconfig.html#cfn-route53-hostedzone-queryloggingconfig-cloudwatchlogsloggrouparn -rhzqlcCloudWatchLogsLogGroupArn :: Lens' Route53HostedZoneQueryLoggingConfig (Val Text) -rhzqlcCloudWatchLogsLogGroupArn = lens _route53HostedZoneQueryLoggingConfigCloudWatchLogsLogGroupArn (\s a -> s { _route53HostedZoneQueryLoggingConfigCloudWatchLogsLogGroupArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/Route53HostedZoneVPC.hs b/library-gen/Stratosphere/ResourceProperties/Route53HostedZoneVPC.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/Route53HostedZoneVPC.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53-hostedzone-hostedzonevpcs.html - -module Stratosphere.ResourceProperties.Route53HostedZoneVPC where - -import Stratosphere.ResourceImports - - --- | Full data type definition for Route53HostedZoneVPC. See --- 'route53HostedZoneVPC' for a more convenient constructor. -data Route53HostedZoneVPC = - Route53HostedZoneVPC - { _route53HostedZoneVPCVPCId :: Val Text - , _route53HostedZoneVPCVPCRegion :: Val Text - } deriving (Show, Eq) - -instance ToJSON Route53HostedZoneVPC where - toJSON Route53HostedZoneVPC{..} = - object $ - catMaybes - [ (Just . ("VPCId",) . toJSON) _route53HostedZoneVPCVPCId - , (Just . ("VPCRegion",) . toJSON) _route53HostedZoneVPCVPCRegion - ] - --- | Constructor for 'Route53HostedZoneVPC' containing required fields as --- arguments. -route53HostedZoneVPC - :: Val Text -- ^ 'rhzvpcVPCId' - -> Val Text -- ^ 'rhzvpcVPCRegion' - -> Route53HostedZoneVPC -route53HostedZoneVPC vPCIdarg vPCRegionarg = - Route53HostedZoneVPC - { _route53HostedZoneVPCVPCId = vPCIdarg - , _route53HostedZoneVPCVPCRegion = vPCRegionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53-hostedzone-hostedzonevpcs.html#cfn-route53-hostedzone-hostedzonevpcs-vpcid -rhzvpcVPCId :: Lens' Route53HostedZoneVPC (Val Text) -rhzvpcVPCId = lens _route53HostedZoneVPCVPCId (\s a -> s { _route53HostedZoneVPCVPCId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53-hostedzone-hostedzonevpcs.html#cfn-route53-hostedzone-hostedzonevpcs-vpcregion -rhzvpcVPCRegion :: Lens' Route53HostedZoneVPC (Val Text) -rhzvpcVPCRegion = lens _route53HostedZoneVPCVPCRegion (\s a -> s { _route53HostedZoneVPCVPCRegion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/Route53RecordSetAliasTarget.hs b/library-gen/Stratosphere/ResourceProperties/Route53RecordSetAliasTarget.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/Route53RecordSetAliasTarget.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-aliastarget.html - -module Stratosphere.ResourceProperties.Route53RecordSetAliasTarget where - -import Stratosphere.ResourceImports - - --- | Full data type definition for Route53RecordSetAliasTarget. See --- 'route53RecordSetAliasTarget' for a more convenient constructor. -data Route53RecordSetAliasTarget = - Route53RecordSetAliasTarget - { _route53RecordSetAliasTargetDNSName :: Val Text - , _route53RecordSetAliasTargetEvaluateTargetHealth :: Maybe (Val Bool) - , _route53RecordSetAliasTargetHostedZoneId :: Val Text - } deriving (Show, Eq) - -instance ToJSON Route53RecordSetAliasTarget where - toJSON Route53RecordSetAliasTarget{..} = - object $ - catMaybes - [ (Just . ("DNSName",) . toJSON) _route53RecordSetAliasTargetDNSName - , fmap (("EvaluateTargetHealth",) . toJSON) _route53RecordSetAliasTargetEvaluateTargetHealth - , (Just . ("HostedZoneId",) . toJSON) _route53RecordSetAliasTargetHostedZoneId - ] - --- | Constructor for 'Route53RecordSetAliasTarget' containing required fields --- as arguments. -route53RecordSetAliasTarget - :: Val Text -- ^ 'rrsatDNSName' - -> Val Text -- ^ 'rrsatHostedZoneId' - -> Route53RecordSetAliasTarget -route53RecordSetAliasTarget dNSNamearg hostedZoneIdarg = - Route53RecordSetAliasTarget - { _route53RecordSetAliasTargetDNSName = dNSNamearg - , _route53RecordSetAliasTargetEvaluateTargetHealth = Nothing - , _route53RecordSetAliasTargetHostedZoneId = hostedZoneIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-aliastarget.html#cfn-route53-aliastarget-dnshostname -rrsatDNSName :: Lens' Route53RecordSetAliasTarget (Val Text) -rrsatDNSName = lens _route53RecordSetAliasTargetDNSName (\s a -> s { _route53RecordSetAliasTargetDNSName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-aliastarget.html#cfn-route53-aliastarget-evaluatetargethealth -rrsatEvaluateTargetHealth :: Lens' Route53RecordSetAliasTarget (Maybe (Val Bool)) -rrsatEvaluateTargetHealth = lens _route53RecordSetAliasTargetEvaluateTargetHealth (\s a -> s { _route53RecordSetAliasTargetEvaluateTargetHealth = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-aliastarget.html#cfn-route53-aliastarget-hostedzoneid -rrsatHostedZoneId :: Lens' Route53RecordSetAliasTarget (Val Text) -rrsatHostedZoneId = lens _route53RecordSetAliasTargetHostedZoneId (\s a -> s { _route53RecordSetAliasTargetHostedZoneId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/Route53RecordSetGeoLocation.hs b/library-gen/Stratosphere/ResourceProperties/Route53RecordSetGeoLocation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/Route53RecordSetGeoLocation.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset-geolocation.html - -module Stratosphere.ResourceProperties.Route53RecordSetGeoLocation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for Route53RecordSetGeoLocation. See --- 'route53RecordSetGeoLocation' for a more convenient constructor. -data Route53RecordSetGeoLocation = - Route53RecordSetGeoLocation - { _route53RecordSetGeoLocationContinentCode :: Maybe (Val Text) - , _route53RecordSetGeoLocationCountryCode :: Maybe (Val Text) - , _route53RecordSetGeoLocationSubdivisionCode :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON Route53RecordSetGeoLocation where - toJSON Route53RecordSetGeoLocation{..} = - object $ - catMaybes - [ fmap (("ContinentCode",) . toJSON) _route53RecordSetGeoLocationContinentCode - , fmap (("CountryCode",) . toJSON) _route53RecordSetGeoLocationCountryCode - , fmap (("SubdivisionCode",) . toJSON) _route53RecordSetGeoLocationSubdivisionCode - ] - --- | Constructor for 'Route53RecordSetGeoLocation' containing required fields --- as arguments. -route53RecordSetGeoLocation - :: Route53RecordSetGeoLocation -route53RecordSetGeoLocation = - Route53RecordSetGeoLocation - { _route53RecordSetGeoLocationContinentCode = Nothing - , _route53RecordSetGeoLocationCountryCode = Nothing - , _route53RecordSetGeoLocationSubdivisionCode = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset-geolocation.html#cfn-route53-recordset-geolocation-continentcode -rrsglContinentCode :: Lens' Route53RecordSetGeoLocation (Maybe (Val Text)) -rrsglContinentCode = lens _route53RecordSetGeoLocationContinentCode (\s a -> s { _route53RecordSetGeoLocationContinentCode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset-geolocation.html#cfn-route53-recordset-geolocation-countrycode -rrsglCountryCode :: Lens' Route53RecordSetGeoLocation (Maybe (Val Text)) -rrsglCountryCode = lens _route53RecordSetGeoLocationCountryCode (\s a -> s { _route53RecordSetGeoLocationCountryCode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset-geolocation.html#cfn-route53-recordset-geolocation-subdivisioncode -rrsglSubdivisionCode :: Lens' Route53RecordSetGeoLocation (Maybe (Val Text)) -rrsglSubdivisionCode = lens _route53RecordSetGeoLocationSubdivisionCode (\s a -> s { _route53RecordSetGeoLocationSubdivisionCode = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/Route53RecordSetGroupAliasTarget.hs b/library-gen/Stratosphere/ResourceProperties/Route53RecordSetGroupAliasTarget.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/Route53RecordSetGroupAliasTarget.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-aliastarget.html - -module Stratosphere.ResourceProperties.Route53RecordSetGroupAliasTarget where - -import Stratosphere.ResourceImports - - --- | Full data type definition for Route53RecordSetGroupAliasTarget. See --- 'route53RecordSetGroupAliasTarget' for a more convenient constructor. -data Route53RecordSetGroupAliasTarget = - Route53RecordSetGroupAliasTarget - { _route53RecordSetGroupAliasTargetDNSName :: Val Text - , _route53RecordSetGroupAliasTargetEvaluateTargetHealth :: Maybe (Val Bool) - , _route53RecordSetGroupAliasTargetHostedZoneId :: Val Text - } deriving (Show, Eq) - -instance ToJSON Route53RecordSetGroupAliasTarget where - toJSON Route53RecordSetGroupAliasTarget{..} = - object $ - catMaybes - [ (Just . ("DNSName",) . toJSON) _route53RecordSetGroupAliasTargetDNSName - , fmap (("EvaluateTargetHealth",) . toJSON) _route53RecordSetGroupAliasTargetEvaluateTargetHealth - , (Just . ("HostedZoneId",) . toJSON) _route53RecordSetGroupAliasTargetHostedZoneId - ] - --- | Constructor for 'Route53RecordSetGroupAliasTarget' containing required --- fields as arguments. -route53RecordSetGroupAliasTarget - :: Val Text -- ^ 'rrsgatDNSName' - -> Val Text -- ^ 'rrsgatHostedZoneId' - -> Route53RecordSetGroupAliasTarget -route53RecordSetGroupAliasTarget dNSNamearg hostedZoneIdarg = - Route53RecordSetGroupAliasTarget - { _route53RecordSetGroupAliasTargetDNSName = dNSNamearg - , _route53RecordSetGroupAliasTargetEvaluateTargetHealth = Nothing - , _route53RecordSetGroupAliasTargetHostedZoneId = hostedZoneIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-aliastarget.html#cfn-route53-aliastarget-dnshostname -rrsgatDNSName :: Lens' Route53RecordSetGroupAliasTarget (Val Text) -rrsgatDNSName = lens _route53RecordSetGroupAliasTargetDNSName (\s a -> s { _route53RecordSetGroupAliasTargetDNSName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-aliastarget.html#cfn-route53-aliastarget-evaluatetargethealth -rrsgatEvaluateTargetHealth :: Lens' Route53RecordSetGroupAliasTarget (Maybe (Val Bool)) -rrsgatEvaluateTargetHealth = lens _route53RecordSetGroupAliasTargetEvaluateTargetHealth (\s a -> s { _route53RecordSetGroupAliasTargetEvaluateTargetHealth = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-aliastarget.html#cfn-route53-aliastarget-hostedzoneid -rrsgatHostedZoneId :: Lens' Route53RecordSetGroupAliasTarget (Val Text) -rrsgatHostedZoneId = lens _route53RecordSetGroupAliasTargetHostedZoneId (\s a -> s { _route53RecordSetGroupAliasTargetHostedZoneId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/Route53RecordSetGroupGeoLocation.hs b/library-gen/Stratosphere/ResourceProperties/Route53RecordSetGroupGeoLocation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/Route53RecordSetGroupGeoLocation.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset-geolocation.html - -module Stratosphere.ResourceProperties.Route53RecordSetGroupGeoLocation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for Route53RecordSetGroupGeoLocation. See --- 'route53RecordSetGroupGeoLocation' for a more convenient constructor. -data Route53RecordSetGroupGeoLocation = - Route53RecordSetGroupGeoLocation - { _route53RecordSetGroupGeoLocationContinentCode :: Maybe (Val Text) - , _route53RecordSetGroupGeoLocationCountryCode :: Maybe (Val Text) - , _route53RecordSetGroupGeoLocationSubdivisionCode :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON Route53RecordSetGroupGeoLocation where - toJSON Route53RecordSetGroupGeoLocation{..} = - object $ - catMaybes - [ fmap (("ContinentCode",) . toJSON) _route53RecordSetGroupGeoLocationContinentCode - , fmap (("CountryCode",) . toJSON) _route53RecordSetGroupGeoLocationCountryCode - , fmap (("SubdivisionCode",) . toJSON) _route53RecordSetGroupGeoLocationSubdivisionCode - ] - --- | Constructor for 'Route53RecordSetGroupGeoLocation' containing required --- fields as arguments. -route53RecordSetGroupGeoLocation - :: Route53RecordSetGroupGeoLocation -route53RecordSetGroupGeoLocation = - Route53RecordSetGroupGeoLocation - { _route53RecordSetGroupGeoLocationContinentCode = Nothing - , _route53RecordSetGroupGeoLocationCountryCode = Nothing - , _route53RecordSetGroupGeoLocationSubdivisionCode = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset-geolocation.html#cfn-route53-recordsetgroup-geolocation-continentcode -rrsgglContinentCode :: Lens' Route53RecordSetGroupGeoLocation (Maybe (Val Text)) -rrsgglContinentCode = lens _route53RecordSetGroupGeoLocationContinentCode (\s a -> s { _route53RecordSetGroupGeoLocationContinentCode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset-geolocation.html#cfn-route53-recordset-geolocation-countrycode -rrsgglCountryCode :: Lens' Route53RecordSetGroupGeoLocation (Maybe (Val Text)) -rrsgglCountryCode = lens _route53RecordSetGroupGeoLocationCountryCode (\s a -> s { _route53RecordSetGroupGeoLocationCountryCode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset-geolocation.html#cfn-route53-recordset-geolocation-subdivisioncode -rrsgglSubdivisionCode :: Lens' Route53RecordSetGroupGeoLocation (Maybe (Val Text)) -rrsgglSubdivisionCode = lens _route53RecordSetGroupGeoLocationSubdivisionCode (\s a -> s { _route53RecordSetGroupGeoLocationSubdivisionCode = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/Route53RecordSetGroupRecordSet.hs b/library-gen/Stratosphere/ResourceProperties/Route53RecordSetGroupRecordSet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/Route53RecordSetGroupRecordSet.hs +++ /dev/null @@ -1,139 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html - -module Stratosphere.ResourceProperties.Route53RecordSetGroupRecordSet where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Route53RecordSetGroupAliasTarget -import Stratosphere.ResourceProperties.Route53RecordSetGroupGeoLocation - --- | Full data type definition for Route53RecordSetGroupRecordSet. See --- 'route53RecordSetGroupRecordSet' for a more convenient constructor. -data Route53RecordSetGroupRecordSet = - Route53RecordSetGroupRecordSet - { _route53RecordSetGroupRecordSetAliasTarget :: Maybe Route53RecordSetGroupAliasTarget - , _route53RecordSetGroupRecordSetComment :: Maybe (Val Text) - , _route53RecordSetGroupRecordSetFailover :: Maybe (Val Text) - , _route53RecordSetGroupRecordSetGeoLocation :: Maybe Route53RecordSetGroupGeoLocation - , _route53RecordSetGroupRecordSetHealthCheckId :: Maybe (Val Text) - , _route53RecordSetGroupRecordSetHostedZoneId :: Maybe (Val Text) - , _route53RecordSetGroupRecordSetHostedZoneName :: Maybe (Val Text) - , _route53RecordSetGroupRecordSetMultiValueAnswer :: Maybe (Val Bool) - , _route53RecordSetGroupRecordSetName :: Val Text - , _route53RecordSetGroupRecordSetRegion :: Maybe (Val Text) - , _route53RecordSetGroupRecordSetResourceRecords :: Maybe (ValList Text) - , _route53RecordSetGroupRecordSetSetIdentifier :: Maybe (Val Text) - , _route53RecordSetGroupRecordSetTTL :: Maybe (Val Text) - , _route53RecordSetGroupRecordSetType :: Val Text - , _route53RecordSetGroupRecordSetWeight :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON Route53RecordSetGroupRecordSet where - toJSON Route53RecordSetGroupRecordSet{..} = - object $ - catMaybes - [ fmap (("AliasTarget",) . toJSON) _route53RecordSetGroupRecordSetAliasTarget - , fmap (("Comment",) . toJSON) _route53RecordSetGroupRecordSetComment - , fmap (("Failover",) . toJSON) _route53RecordSetGroupRecordSetFailover - , fmap (("GeoLocation",) . toJSON) _route53RecordSetGroupRecordSetGeoLocation - , fmap (("HealthCheckId",) . toJSON) _route53RecordSetGroupRecordSetHealthCheckId - , fmap (("HostedZoneId",) . toJSON) _route53RecordSetGroupRecordSetHostedZoneId - , fmap (("HostedZoneName",) . toJSON) _route53RecordSetGroupRecordSetHostedZoneName - , fmap (("MultiValueAnswer",) . toJSON) _route53RecordSetGroupRecordSetMultiValueAnswer - , (Just . ("Name",) . toJSON) _route53RecordSetGroupRecordSetName - , fmap (("Region",) . toJSON) _route53RecordSetGroupRecordSetRegion - , fmap (("ResourceRecords",) . toJSON) _route53RecordSetGroupRecordSetResourceRecords - , fmap (("SetIdentifier",) . toJSON) _route53RecordSetGroupRecordSetSetIdentifier - , fmap (("TTL",) . toJSON) _route53RecordSetGroupRecordSetTTL - , (Just . ("Type",) . toJSON) _route53RecordSetGroupRecordSetType - , fmap (("Weight",) . toJSON) _route53RecordSetGroupRecordSetWeight - ] - --- | Constructor for 'Route53RecordSetGroupRecordSet' containing required --- fields as arguments. -route53RecordSetGroupRecordSet - :: Val Text -- ^ 'rrsgrsName' - -> Val Text -- ^ 'rrsgrsType' - -> Route53RecordSetGroupRecordSet -route53RecordSetGroupRecordSet namearg typearg = - Route53RecordSetGroupRecordSet - { _route53RecordSetGroupRecordSetAliasTarget = Nothing - , _route53RecordSetGroupRecordSetComment = Nothing - , _route53RecordSetGroupRecordSetFailover = Nothing - , _route53RecordSetGroupRecordSetGeoLocation = Nothing - , _route53RecordSetGroupRecordSetHealthCheckId = Nothing - , _route53RecordSetGroupRecordSetHostedZoneId = Nothing - , _route53RecordSetGroupRecordSetHostedZoneName = Nothing - , _route53RecordSetGroupRecordSetMultiValueAnswer = Nothing - , _route53RecordSetGroupRecordSetName = namearg - , _route53RecordSetGroupRecordSetRegion = Nothing - , _route53RecordSetGroupRecordSetResourceRecords = Nothing - , _route53RecordSetGroupRecordSetSetIdentifier = Nothing - , _route53RecordSetGroupRecordSetTTL = Nothing - , _route53RecordSetGroupRecordSetType = typearg - , _route53RecordSetGroupRecordSetWeight = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-aliastarget -rrsgrsAliasTarget :: Lens' Route53RecordSetGroupRecordSet (Maybe Route53RecordSetGroupAliasTarget) -rrsgrsAliasTarget = lens _route53RecordSetGroupRecordSetAliasTarget (\s a -> s { _route53RecordSetGroupRecordSetAliasTarget = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-comment -rrsgrsComment :: Lens' Route53RecordSetGroupRecordSet (Maybe (Val Text)) -rrsgrsComment = lens _route53RecordSetGroupRecordSetComment (\s a -> s { _route53RecordSetGroupRecordSetComment = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-failover -rrsgrsFailover :: Lens' Route53RecordSetGroupRecordSet (Maybe (Val Text)) -rrsgrsFailover = lens _route53RecordSetGroupRecordSetFailover (\s a -> s { _route53RecordSetGroupRecordSetFailover = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-geolocation -rrsgrsGeoLocation :: Lens' Route53RecordSetGroupRecordSet (Maybe Route53RecordSetGroupGeoLocation) -rrsgrsGeoLocation = lens _route53RecordSetGroupRecordSetGeoLocation (\s a -> s { _route53RecordSetGroupRecordSetGeoLocation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-healthcheckid -rrsgrsHealthCheckId :: Lens' Route53RecordSetGroupRecordSet (Maybe (Val Text)) -rrsgrsHealthCheckId = lens _route53RecordSetGroupRecordSetHealthCheckId (\s a -> s { _route53RecordSetGroupRecordSetHealthCheckId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-hostedzoneid -rrsgrsHostedZoneId :: Lens' Route53RecordSetGroupRecordSet (Maybe (Val Text)) -rrsgrsHostedZoneId = lens _route53RecordSetGroupRecordSetHostedZoneId (\s a -> s { _route53RecordSetGroupRecordSetHostedZoneId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-hostedzonename -rrsgrsHostedZoneName :: Lens' Route53RecordSetGroupRecordSet (Maybe (Val Text)) -rrsgrsHostedZoneName = lens _route53RecordSetGroupRecordSetHostedZoneName (\s a -> s { _route53RecordSetGroupRecordSetHostedZoneName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-multivalueanswer -rrsgrsMultiValueAnswer :: Lens' Route53RecordSetGroupRecordSet (Maybe (Val Bool)) -rrsgrsMultiValueAnswer = lens _route53RecordSetGroupRecordSetMultiValueAnswer (\s a -> s { _route53RecordSetGroupRecordSetMultiValueAnswer = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-name -rrsgrsName :: Lens' Route53RecordSetGroupRecordSet (Val Text) -rrsgrsName = lens _route53RecordSetGroupRecordSetName (\s a -> s { _route53RecordSetGroupRecordSetName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-region -rrsgrsRegion :: Lens' Route53RecordSetGroupRecordSet (Maybe (Val Text)) -rrsgrsRegion = lens _route53RecordSetGroupRecordSetRegion (\s a -> s { _route53RecordSetGroupRecordSetRegion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-resourcerecords -rrsgrsResourceRecords :: Lens' Route53RecordSetGroupRecordSet (Maybe (ValList Text)) -rrsgrsResourceRecords = lens _route53RecordSetGroupRecordSetResourceRecords (\s a -> s { _route53RecordSetGroupRecordSetResourceRecords = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-setidentifier -rrsgrsSetIdentifier :: Lens' Route53RecordSetGroupRecordSet (Maybe (Val Text)) -rrsgrsSetIdentifier = lens _route53RecordSetGroupRecordSetSetIdentifier (\s a -> s { _route53RecordSetGroupRecordSetSetIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-ttl -rrsgrsTTL :: Lens' Route53RecordSetGroupRecordSet (Maybe (Val Text)) -rrsgrsTTL = lens _route53RecordSetGroupRecordSetTTL (\s a -> s { _route53RecordSetGroupRecordSetTTL = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-type -rrsgrsType :: Lens' Route53RecordSetGroupRecordSet (Val Text) -rrsgrsType = lens _route53RecordSetGroupRecordSetType (\s a -> s { _route53RecordSetGroupRecordSetType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-weight -rrsgrsWeight :: Lens' Route53RecordSetGroupRecordSet (Maybe (Val Integer)) -rrsgrsWeight = lens _route53RecordSetGroupRecordSetWeight (\s a -> s { _route53RecordSetGroupRecordSetWeight = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/Route53ResolverResolverEndpointIpAddressRequest.hs b/library-gen/Stratosphere/ResourceProperties/Route53ResolverResolverEndpointIpAddressRequest.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/Route53ResolverResolverEndpointIpAddressRequest.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53resolver-resolverendpoint-ipaddressrequest.html - -module Stratosphere.ResourceProperties.Route53ResolverResolverEndpointIpAddressRequest where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- Route53ResolverResolverEndpointIpAddressRequest. See --- 'route53ResolverResolverEndpointIpAddressRequest' for a more convenient --- constructor. -data Route53ResolverResolverEndpointIpAddressRequest = - Route53ResolverResolverEndpointIpAddressRequest - { _route53ResolverResolverEndpointIpAddressRequestIp :: Maybe (Val Text) - , _route53ResolverResolverEndpointIpAddressRequestSubnetId :: Val Text - } deriving (Show, Eq) - -instance ToJSON Route53ResolverResolverEndpointIpAddressRequest where - toJSON Route53ResolverResolverEndpointIpAddressRequest{..} = - object $ - catMaybes - [ fmap (("Ip",) . toJSON) _route53ResolverResolverEndpointIpAddressRequestIp - , (Just . ("SubnetId",) . toJSON) _route53ResolverResolverEndpointIpAddressRequestSubnetId - ] - --- | Constructor for 'Route53ResolverResolverEndpointIpAddressRequest' --- containing required fields as arguments. -route53ResolverResolverEndpointIpAddressRequest - :: Val Text -- ^ 'rrreiarSubnetId' - -> Route53ResolverResolverEndpointIpAddressRequest -route53ResolverResolverEndpointIpAddressRequest subnetIdarg = - Route53ResolverResolverEndpointIpAddressRequest - { _route53ResolverResolverEndpointIpAddressRequestIp = Nothing - , _route53ResolverResolverEndpointIpAddressRequestSubnetId = subnetIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53resolver-resolverendpoint-ipaddressrequest.html#cfn-route53resolver-resolverendpoint-ipaddressrequest-ip -rrreiarIp :: Lens' Route53ResolverResolverEndpointIpAddressRequest (Maybe (Val Text)) -rrreiarIp = lens _route53ResolverResolverEndpointIpAddressRequestIp (\s a -> s { _route53ResolverResolverEndpointIpAddressRequestIp = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53resolver-resolverendpoint-ipaddressrequest.html#cfn-route53resolver-resolverendpoint-ipaddressrequest-subnetid -rrreiarSubnetId :: Lens' Route53ResolverResolverEndpointIpAddressRequest (Val Text) -rrreiarSubnetId = lens _route53ResolverResolverEndpointIpAddressRequestSubnetId (\s a -> s { _route53ResolverResolverEndpointIpAddressRequestSubnetId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/Route53ResolverResolverRuleTargetAddress.hs b/library-gen/Stratosphere/ResourceProperties/Route53ResolverResolverRuleTargetAddress.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/Route53ResolverResolverRuleTargetAddress.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53resolver-resolverrule-targetaddress.html - -module Stratosphere.ResourceProperties.Route53ResolverResolverRuleTargetAddress where - -import Stratosphere.ResourceImports - - --- | Full data type definition for Route53ResolverResolverRuleTargetAddress. --- See 'route53ResolverResolverRuleTargetAddress' for a more convenient --- constructor. -data Route53ResolverResolverRuleTargetAddress = - Route53ResolverResolverRuleTargetAddress - { _route53ResolverResolverRuleTargetAddressIp :: Val Text - , _route53ResolverResolverRuleTargetAddressPort :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON Route53ResolverResolverRuleTargetAddress where - toJSON Route53ResolverResolverRuleTargetAddress{..} = - object $ - catMaybes - [ (Just . ("Ip",) . toJSON) _route53ResolverResolverRuleTargetAddressIp - , fmap (("Port",) . toJSON) _route53ResolverResolverRuleTargetAddressPort - ] - --- | Constructor for 'Route53ResolverResolverRuleTargetAddress' containing --- required fields as arguments. -route53ResolverResolverRuleTargetAddress - :: Val Text -- ^ 'rrrrtaIp' - -> Route53ResolverResolverRuleTargetAddress -route53ResolverResolverRuleTargetAddress iparg = - Route53ResolverResolverRuleTargetAddress - { _route53ResolverResolverRuleTargetAddressIp = iparg - , _route53ResolverResolverRuleTargetAddressPort = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53resolver-resolverrule-targetaddress.html#cfn-route53resolver-resolverrule-targetaddress-ip -rrrrtaIp :: Lens' Route53ResolverResolverRuleTargetAddress (Val Text) -rrrrtaIp = lens _route53ResolverResolverRuleTargetAddressIp (\s a -> s { _route53ResolverResolverRuleTargetAddressIp = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53resolver-resolverrule-targetaddress.html#cfn-route53resolver-resolverrule-targetaddress-port -rrrrtaPort :: Lens' Route53ResolverResolverRuleTargetAddress (Maybe (Val Text)) -rrrrtaPort = lens _route53ResolverResolverRuleTargetAddressPort (\s a -> s { _route53ResolverResolverRuleTargetAddressPort = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3AccessPointPublicAccessBlockConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/S3AccessPointPublicAccessBlockConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3AccessPointPublicAccessBlockConfiguration.hs +++ /dev/null @@ -1,61 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-accesspoint-publicaccessblockconfiguration.html - -module Stratosphere.ResourceProperties.S3AccessPointPublicAccessBlockConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- S3AccessPointPublicAccessBlockConfiguration. See --- 's3AccessPointPublicAccessBlockConfiguration' for a more convenient --- constructor. -data S3AccessPointPublicAccessBlockConfiguration = - S3AccessPointPublicAccessBlockConfiguration - { _s3AccessPointPublicAccessBlockConfigurationBlockPublicAcls :: Maybe (Val Bool) - , _s3AccessPointPublicAccessBlockConfigurationBlockPublicPolicy :: Maybe (Val Bool) - , _s3AccessPointPublicAccessBlockConfigurationIgnorePublicAcls :: Maybe (Val Bool) - , _s3AccessPointPublicAccessBlockConfigurationRestrictPublicBuckets :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON S3AccessPointPublicAccessBlockConfiguration where - toJSON S3AccessPointPublicAccessBlockConfiguration{..} = - object $ - catMaybes - [ fmap (("BlockPublicAcls",) . toJSON) _s3AccessPointPublicAccessBlockConfigurationBlockPublicAcls - , fmap (("BlockPublicPolicy",) . toJSON) _s3AccessPointPublicAccessBlockConfigurationBlockPublicPolicy - , fmap (("IgnorePublicAcls",) . toJSON) _s3AccessPointPublicAccessBlockConfigurationIgnorePublicAcls - , fmap (("RestrictPublicBuckets",) . toJSON) _s3AccessPointPublicAccessBlockConfigurationRestrictPublicBuckets - ] - --- | Constructor for 'S3AccessPointPublicAccessBlockConfiguration' containing --- required fields as arguments. -s3AccessPointPublicAccessBlockConfiguration - :: S3AccessPointPublicAccessBlockConfiguration -s3AccessPointPublicAccessBlockConfiguration = - S3AccessPointPublicAccessBlockConfiguration - { _s3AccessPointPublicAccessBlockConfigurationBlockPublicAcls = Nothing - , _s3AccessPointPublicAccessBlockConfigurationBlockPublicPolicy = Nothing - , _s3AccessPointPublicAccessBlockConfigurationIgnorePublicAcls = Nothing - , _s3AccessPointPublicAccessBlockConfigurationRestrictPublicBuckets = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-accesspoint-publicaccessblockconfiguration.html#cfn-s3-accesspoint-publicaccessblockconfiguration-blockpublicacls -sappabcBlockPublicAcls :: Lens' S3AccessPointPublicAccessBlockConfiguration (Maybe (Val Bool)) -sappabcBlockPublicAcls = lens _s3AccessPointPublicAccessBlockConfigurationBlockPublicAcls (\s a -> s { _s3AccessPointPublicAccessBlockConfigurationBlockPublicAcls = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-accesspoint-publicaccessblockconfiguration.html#cfn-s3-accesspoint-publicaccessblockconfiguration-blockpublicpolicy -sappabcBlockPublicPolicy :: Lens' S3AccessPointPublicAccessBlockConfiguration (Maybe (Val Bool)) -sappabcBlockPublicPolicy = lens _s3AccessPointPublicAccessBlockConfigurationBlockPublicPolicy (\s a -> s { _s3AccessPointPublicAccessBlockConfigurationBlockPublicPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-accesspoint-publicaccessblockconfiguration.html#cfn-s3-accesspoint-publicaccessblockconfiguration-ignorepublicacls -sappabcIgnorePublicAcls :: Lens' S3AccessPointPublicAccessBlockConfiguration (Maybe (Val Bool)) -sappabcIgnorePublicAcls = lens _s3AccessPointPublicAccessBlockConfigurationIgnorePublicAcls (\s a -> s { _s3AccessPointPublicAccessBlockConfigurationIgnorePublicAcls = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-accesspoint-publicaccessblockconfiguration.html#cfn-s3-accesspoint-publicaccessblockconfiguration-restrictpublicbuckets -sappabcRestrictPublicBuckets :: Lens' S3AccessPointPublicAccessBlockConfiguration (Maybe (Val Bool)) -sappabcRestrictPublicBuckets = lens _s3AccessPointPublicAccessBlockConfigurationRestrictPublicBuckets (\s a -> s { _s3AccessPointPublicAccessBlockConfigurationRestrictPublicBuckets = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3AccessPointVpcConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/S3AccessPointVpcConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3AccessPointVpcConfiguration.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-accesspoint-vpcconfiguration.html - -module Stratosphere.ResourceProperties.S3AccessPointVpcConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for S3AccessPointVpcConfiguration. See --- 's3AccessPointVpcConfiguration' for a more convenient constructor. -data S3AccessPointVpcConfiguration = - S3AccessPointVpcConfiguration - { _s3AccessPointVpcConfigurationVpcId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON S3AccessPointVpcConfiguration where - toJSON S3AccessPointVpcConfiguration{..} = - object $ - catMaybes - [ fmap (("VpcId",) . toJSON) _s3AccessPointVpcConfigurationVpcId - ] - --- | Constructor for 'S3AccessPointVpcConfiguration' containing required --- fields as arguments. -s3AccessPointVpcConfiguration - :: S3AccessPointVpcConfiguration -s3AccessPointVpcConfiguration = - S3AccessPointVpcConfiguration - { _s3AccessPointVpcConfigurationVpcId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-accesspoint-vpcconfiguration.html#cfn-s3-accesspoint-vpcconfiguration-vpcid -sapvcVpcId :: Lens' S3AccessPointVpcConfiguration (Maybe (Val Text)) -sapvcVpcId = lens _s3AccessPointVpcConfigurationVpcId (\s a -> s { _s3AccessPointVpcConfigurationVpcId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketAbortIncompleteMultipartUpload.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketAbortIncompleteMultipartUpload.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketAbortIncompleteMultipartUpload.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-abortincompletemultipartupload.html - -module Stratosphere.ResourceProperties.S3BucketAbortIncompleteMultipartUpload where - -import Stratosphere.ResourceImports - - --- | Full data type definition for S3BucketAbortIncompleteMultipartUpload. See --- 's3BucketAbortIncompleteMultipartUpload' for a more convenient --- constructor. -data S3BucketAbortIncompleteMultipartUpload = - S3BucketAbortIncompleteMultipartUpload - { _s3BucketAbortIncompleteMultipartUploadDaysAfterInitiation :: Val Integer - } deriving (Show, Eq) - -instance ToJSON S3BucketAbortIncompleteMultipartUpload where - toJSON S3BucketAbortIncompleteMultipartUpload{..} = - object $ - catMaybes - [ (Just . ("DaysAfterInitiation",) . toJSON) _s3BucketAbortIncompleteMultipartUploadDaysAfterInitiation - ] - --- | Constructor for 'S3BucketAbortIncompleteMultipartUpload' containing --- required fields as arguments. -s3BucketAbortIncompleteMultipartUpload - :: Val Integer -- ^ 'sbaimuDaysAfterInitiation' - -> S3BucketAbortIncompleteMultipartUpload -s3BucketAbortIncompleteMultipartUpload daysAfterInitiationarg = - S3BucketAbortIncompleteMultipartUpload - { _s3BucketAbortIncompleteMultipartUploadDaysAfterInitiation = daysAfterInitiationarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-abortincompletemultipartupload.html#cfn-s3-bucket-abortincompletemultipartupload-daysafterinitiation -sbaimuDaysAfterInitiation :: Lens' S3BucketAbortIncompleteMultipartUpload (Val Integer) -sbaimuDaysAfterInitiation = lens _s3BucketAbortIncompleteMultipartUploadDaysAfterInitiation (\s a -> s { _s3BucketAbortIncompleteMultipartUploadDaysAfterInitiation = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketAccelerateConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketAccelerateConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketAccelerateConfiguration.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-accelerateconfiguration.html - -module Stratosphere.ResourceProperties.S3BucketAccelerateConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for S3BucketAccelerateConfiguration. See --- 's3BucketAccelerateConfiguration' for a more convenient constructor. -data S3BucketAccelerateConfiguration = - S3BucketAccelerateConfiguration - { _s3BucketAccelerateConfigurationAccelerationStatus :: Val Text - } deriving (Show, Eq) - -instance ToJSON S3BucketAccelerateConfiguration where - toJSON S3BucketAccelerateConfiguration{..} = - object $ - catMaybes - [ (Just . ("AccelerationStatus",) . toJSON) _s3BucketAccelerateConfigurationAccelerationStatus - ] - --- | Constructor for 'S3BucketAccelerateConfiguration' containing required --- fields as arguments. -s3BucketAccelerateConfiguration - :: Val Text -- ^ 'sbacAccelerationStatus' - -> S3BucketAccelerateConfiguration -s3BucketAccelerateConfiguration accelerationStatusarg = - S3BucketAccelerateConfiguration - { _s3BucketAccelerateConfigurationAccelerationStatus = accelerationStatusarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-accelerateconfiguration.html#cfn-s3-bucket-accelerateconfiguration-accelerationstatus -sbacAccelerationStatus :: Lens' S3BucketAccelerateConfiguration (Val Text) -sbacAccelerationStatus = lens _s3BucketAccelerateConfigurationAccelerationStatus (\s a -> s { _s3BucketAccelerateConfigurationAccelerationStatus = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketAccessControlTranslation.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketAccessControlTranslation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketAccessControlTranslation.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-accesscontroltranslation.html - -module Stratosphere.ResourceProperties.S3BucketAccessControlTranslation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for S3BucketAccessControlTranslation. See --- 's3BucketAccessControlTranslation' for a more convenient constructor. -data S3BucketAccessControlTranslation = - S3BucketAccessControlTranslation - { _s3BucketAccessControlTranslationOwner :: Val Text - } deriving (Show, Eq) - -instance ToJSON S3BucketAccessControlTranslation where - toJSON S3BucketAccessControlTranslation{..} = - object $ - catMaybes - [ (Just . ("Owner",) . toJSON) _s3BucketAccessControlTranslationOwner - ] - --- | Constructor for 'S3BucketAccessControlTranslation' containing required --- fields as arguments. -s3BucketAccessControlTranslation - :: Val Text -- ^ 'sbactOwner' - -> S3BucketAccessControlTranslation -s3BucketAccessControlTranslation ownerarg = - S3BucketAccessControlTranslation - { _s3BucketAccessControlTranslationOwner = ownerarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-accesscontroltranslation.html#cfn-s3-bucket-accesscontroltranslation-owner -sbactOwner :: Lens' S3BucketAccessControlTranslation (Val Text) -sbactOwner = lens _s3BucketAccessControlTranslationOwner (\s a -> s { _s3BucketAccessControlTranslationOwner = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketAnalyticsConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketAnalyticsConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketAnalyticsConfiguration.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-analyticsconfiguration.html - -module Stratosphere.ResourceProperties.S3BucketAnalyticsConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.S3BucketStorageClassAnalysis -import Stratosphere.ResourceProperties.S3BucketTagFilter - --- | Full data type definition for S3BucketAnalyticsConfiguration. See --- 's3BucketAnalyticsConfiguration' for a more convenient constructor. -data S3BucketAnalyticsConfiguration = - S3BucketAnalyticsConfiguration - { _s3BucketAnalyticsConfigurationId :: Val Text - , _s3BucketAnalyticsConfigurationPrefix :: Maybe (Val Text) - , _s3BucketAnalyticsConfigurationStorageClassAnalysis :: S3BucketStorageClassAnalysis - , _s3BucketAnalyticsConfigurationTagFilters :: Maybe [S3BucketTagFilter] - } deriving (Show, Eq) - -instance ToJSON S3BucketAnalyticsConfiguration where - toJSON S3BucketAnalyticsConfiguration{..} = - object $ - catMaybes - [ (Just . ("Id",) . toJSON) _s3BucketAnalyticsConfigurationId - , fmap (("Prefix",) . toJSON) _s3BucketAnalyticsConfigurationPrefix - , (Just . ("StorageClassAnalysis",) . toJSON) _s3BucketAnalyticsConfigurationStorageClassAnalysis - , fmap (("TagFilters",) . toJSON) _s3BucketAnalyticsConfigurationTagFilters - ] - --- | Constructor for 'S3BucketAnalyticsConfiguration' containing required --- fields as arguments. -s3BucketAnalyticsConfiguration - :: Val Text -- ^ 'sbacId' - -> S3BucketStorageClassAnalysis -- ^ 'sbacStorageClassAnalysis' - -> S3BucketAnalyticsConfiguration -s3BucketAnalyticsConfiguration idarg storageClassAnalysisarg = - S3BucketAnalyticsConfiguration - { _s3BucketAnalyticsConfigurationId = idarg - , _s3BucketAnalyticsConfigurationPrefix = Nothing - , _s3BucketAnalyticsConfigurationStorageClassAnalysis = storageClassAnalysisarg - , _s3BucketAnalyticsConfigurationTagFilters = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-analyticsconfiguration.html#cfn-s3-bucket-analyticsconfiguration-id -sbacId :: Lens' S3BucketAnalyticsConfiguration (Val Text) -sbacId = lens _s3BucketAnalyticsConfigurationId (\s a -> s { _s3BucketAnalyticsConfigurationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-analyticsconfiguration.html#cfn-s3-bucket-analyticsconfiguration-prefix -sbacPrefix :: Lens' S3BucketAnalyticsConfiguration (Maybe (Val Text)) -sbacPrefix = lens _s3BucketAnalyticsConfigurationPrefix (\s a -> s { _s3BucketAnalyticsConfigurationPrefix = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-analyticsconfiguration.html#cfn-s3-bucket-analyticsconfiguration-storageclassanalysis -sbacStorageClassAnalysis :: Lens' S3BucketAnalyticsConfiguration S3BucketStorageClassAnalysis -sbacStorageClassAnalysis = lens _s3BucketAnalyticsConfigurationStorageClassAnalysis (\s a -> s { _s3BucketAnalyticsConfigurationStorageClassAnalysis = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-analyticsconfiguration.html#cfn-s3-bucket-analyticsconfiguration-tagfilters -sbacTagFilters :: Lens' S3BucketAnalyticsConfiguration (Maybe [S3BucketTagFilter]) -sbacTagFilters = lens _s3BucketAnalyticsConfigurationTagFilters (\s a -> s { _s3BucketAnalyticsConfigurationTagFilters = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketBucketEncryption.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketBucketEncryption.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketBucketEncryption.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-bucketencryption.html - -module Stratosphere.ResourceProperties.S3BucketBucketEncryption where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.S3BucketServerSideEncryptionRule - --- | Full data type definition for S3BucketBucketEncryption. See --- 's3BucketBucketEncryption' for a more convenient constructor. -data S3BucketBucketEncryption = - S3BucketBucketEncryption - { _s3BucketBucketEncryptionServerSideEncryptionConfiguration :: [S3BucketServerSideEncryptionRule] - } deriving (Show, Eq) - -instance ToJSON S3BucketBucketEncryption where - toJSON S3BucketBucketEncryption{..} = - object $ - catMaybes - [ (Just . ("ServerSideEncryptionConfiguration",) . toJSON) _s3BucketBucketEncryptionServerSideEncryptionConfiguration - ] - --- | Constructor for 'S3BucketBucketEncryption' containing required fields as --- arguments. -s3BucketBucketEncryption - :: [S3BucketServerSideEncryptionRule] -- ^ 'sbbeServerSideEncryptionConfiguration' - -> S3BucketBucketEncryption -s3BucketBucketEncryption serverSideEncryptionConfigurationarg = - S3BucketBucketEncryption - { _s3BucketBucketEncryptionServerSideEncryptionConfiguration = serverSideEncryptionConfigurationarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-bucketencryption.html#cfn-s3-bucket-bucketencryption-serversideencryptionconfiguration -sbbeServerSideEncryptionConfiguration :: Lens' S3BucketBucketEncryption [S3BucketServerSideEncryptionRule] -sbbeServerSideEncryptionConfiguration = lens _s3BucketBucketEncryptionServerSideEncryptionConfiguration (\s a -> s { _s3BucketBucketEncryptionServerSideEncryptionConfiguration = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketCorsConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketCorsConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketCorsConfiguration.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-cors.html - -module Stratosphere.ResourceProperties.S3BucketCorsConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.S3BucketCorsRule - --- | Full data type definition for S3BucketCorsConfiguration. See --- 's3BucketCorsConfiguration' for a more convenient constructor. -data S3BucketCorsConfiguration = - S3BucketCorsConfiguration - { _s3BucketCorsConfigurationCorsRules :: [S3BucketCorsRule] - } deriving (Show, Eq) - -instance ToJSON S3BucketCorsConfiguration where - toJSON S3BucketCorsConfiguration{..} = - object $ - catMaybes - [ (Just . ("CorsRules",) . toJSON) _s3BucketCorsConfigurationCorsRules - ] - --- | Constructor for 'S3BucketCorsConfiguration' containing required fields as --- arguments. -s3BucketCorsConfiguration - :: [S3BucketCorsRule] -- ^ 'sbccCorsRules' - -> S3BucketCorsConfiguration -s3BucketCorsConfiguration corsRulesarg = - S3BucketCorsConfiguration - { _s3BucketCorsConfigurationCorsRules = corsRulesarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-cors.html#cfn-s3-bucket-cors-corsrule -sbccCorsRules :: Lens' S3BucketCorsConfiguration [S3BucketCorsRule] -sbccCorsRules = lens _s3BucketCorsConfigurationCorsRules (\s a -> s { _s3BucketCorsConfigurationCorsRules = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketCorsRule.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketCorsRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketCorsRule.hs +++ /dev/null @@ -1,75 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-cors-corsrule.html - -module Stratosphere.ResourceProperties.S3BucketCorsRule where - -import Stratosphere.ResourceImports - - --- | Full data type definition for S3BucketCorsRule. See 's3BucketCorsRule' --- for a more convenient constructor. -data S3BucketCorsRule = - S3BucketCorsRule - { _s3BucketCorsRuleAllowedHeaders :: Maybe (ValList Text) - , _s3BucketCorsRuleAllowedMethods :: ValList Text - , _s3BucketCorsRuleAllowedOrigins :: ValList Text - , _s3BucketCorsRuleExposedHeaders :: Maybe (ValList Text) - , _s3BucketCorsRuleId :: Maybe (Val Text) - , _s3BucketCorsRuleMaxAge :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON S3BucketCorsRule where - toJSON S3BucketCorsRule{..} = - object $ - catMaybes - [ fmap (("AllowedHeaders",) . toJSON) _s3BucketCorsRuleAllowedHeaders - , (Just . ("AllowedMethods",) . toJSON) _s3BucketCorsRuleAllowedMethods - , (Just . ("AllowedOrigins",) . toJSON) _s3BucketCorsRuleAllowedOrigins - , fmap (("ExposedHeaders",) . toJSON) _s3BucketCorsRuleExposedHeaders - , fmap (("Id",) . toJSON) _s3BucketCorsRuleId - , fmap (("MaxAge",) . toJSON) _s3BucketCorsRuleMaxAge - ] - --- | Constructor for 'S3BucketCorsRule' containing required fields as --- arguments. -s3BucketCorsRule - :: ValList Text -- ^ 'sbcrAllowedMethods' - -> ValList Text -- ^ 'sbcrAllowedOrigins' - -> S3BucketCorsRule -s3BucketCorsRule allowedMethodsarg allowedOriginsarg = - S3BucketCorsRule - { _s3BucketCorsRuleAllowedHeaders = Nothing - , _s3BucketCorsRuleAllowedMethods = allowedMethodsarg - , _s3BucketCorsRuleAllowedOrigins = allowedOriginsarg - , _s3BucketCorsRuleExposedHeaders = Nothing - , _s3BucketCorsRuleId = Nothing - , _s3BucketCorsRuleMaxAge = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-cors-corsrule.html#cfn-s3-bucket-cors-corsrule-allowedheaders -sbcrAllowedHeaders :: Lens' S3BucketCorsRule (Maybe (ValList Text)) -sbcrAllowedHeaders = lens _s3BucketCorsRuleAllowedHeaders (\s a -> s { _s3BucketCorsRuleAllowedHeaders = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-cors-corsrule.html#cfn-s3-bucket-cors-corsrule-allowedmethods -sbcrAllowedMethods :: Lens' S3BucketCorsRule (ValList Text) -sbcrAllowedMethods = lens _s3BucketCorsRuleAllowedMethods (\s a -> s { _s3BucketCorsRuleAllowedMethods = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-cors-corsrule.html#cfn-s3-bucket-cors-corsrule-allowedorigins -sbcrAllowedOrigins :: Lens' S3BucketCorsRule (ValList Text) -sbcrAllowedOrigins = lens _s3BucketCorsRuleAllowedOrigins (\s a -> s { _s3BucketCorsRuleAllowedOrigins = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-cors-corsrule.html#cfn-s3-bucket-cors-corsrule-exposedheaders -sbcrExposedHeaders :: Lens' S3BucketCorsRule (Maybe (ValList Text)) -sbcrExposedHeaders = lens _s3BucketCorsRuleExposedHeaders (\s a -> s { _s3BucketCorsRuleExposedHeaders = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-cors-corsrule.html#cfn-s3-bucket-cors-corsrule-id -sbcrId :: Lens' S3BucketCorsRule (Maybe (Val Text)) -sbcrId = lens _s3BucketCorsRuleId (\s a -> s { _s3BucketCorsRuleId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-cors-corsrule.html#cfn-s3-bucket-cors-corsrule-maxage -sbcrMaxAge :: Lens' S3BucketCorsRule (Maybe (Val Integer)) -sbcrMaxAge = lens _s3BucketCorsRuleMaxAge (\s a -> s { _s3BucketCorsRuleMaxAge = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketDataExport.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketDataExport.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketDataExport.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-dataexport.html - -module Stratosphere.ResourceProperties.S3BucketDataExport where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.S3BucketDestination - --- | Full data type definition for S3BucketDataExport. See --- 's3BucketDataExport' for a more convenient constructor. -data S3BucketDataExport = - S3BucketDataExport - { _s3BucketDataExportDestination :: S3BucketDestination - , _s3BucketDataExportOutputSchemaVersion :: Val Text - } deriving (Show, Eq) - -instance ToJSON S3BucketDataExport where - toJSON S3BucketDataExport{..} = - object $ - catMaybes - [ (Just . ("Destination",) . toJSON) _s3BucketDataExportDestination - , (Just . ("OutputSchemaVersion",) . toJSON) _s3BucketDataExportOutputSchemaVersion - ] - --- | Constructor for 'S3BucketDataExport' containing required fields as --- arguments. -s3BucketDataExport - :: S3BucketDestination -- ^ 'sbdeDestination' - -> Val Text -- ^ 'sbdeOutputSchemaVersion' - -> S3BucketDataExport -s3BucketDataExport destinationarg outputSchemaVersionarg = - S3BucketDataExport - { _s3BucketDataExportDestination = destinationarg - , _s3BucketDataExportOutputSchemaVersion = outputSchemaVersionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-dataexport.html#cfn-s3-bucket-dataexport-destination -sbdeDestination :: Lens' S3BucketDataExport S3BucketDestination -sbdeDestination = lens _s3BucketDataExportDestination (\s a -> s { _s3BucketDataExportDestination = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-dataexport.html#cfn-s3-bucket-dataexport-outputschemaversion -sbdeOutputSchemaVersion :: Lens' S3BucketDataExport (Val Text) -sbdeOutputSchemaVersion = lens _s3BucketDataExportOutputSchemaVersion (\s a -> s { _s3BucketDataExportOutputSchemaVersion = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketDefaultRetention.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketDefaultRetention.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketDefaultRetention.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-defaultretention.html - -module Stratosphere.ResourceProperties.S3BucketDefaultRetention where - -import Stratosphere.ResourceImports - - --- | Full data type definition for S3BucketDefaultRetention. See --- 's3BucketDefaultRetention' for a more convenient constructor. -data S3BucketDefaultRetention = - S3BucketDefaultRetention - { _s3BucketDefaultRetentionDays :: Maybe (Val Integer) - , _s3BucketDefaultRetentionMode :: Maybe (Val Text) - , _s3BucketDefaultRetentionYears :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON S3BucketDefaultRetention where - toJSON S3BucketDefaultRetention{..} = - object $ - catMaybes - [ fmap (("Days",) . toJSON) _s3BucketDefaultRetentionDays - , fmap (("Mode",) . toJSON) _s3BucketDefaultRetentionMode - , fmap (("Years",) . toJSON) _s3BucketDefaultRetentionYears - ] - --- | Constructor for 'S3BucketDefaultRetention' containing required fields as --- arguments. -s3BucketDefaultRetention - :: S3BucketDefaultRetention -s3BucketDefaultRetention = - S3BucketDefaultRetention - { _s3BucketDefaultRetentionDays = Nothing - , _s3BucketDefaultRetentionMode = Nothing - , _s3BucketDefaultRetentionYears = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-defaultretention.html#cfn-s3-bucket-defaultretention-days -sbdrDays :: Lens' S3BucketDefaultRetention (Maybe (Val Integer)) -sbdrDays = lens _s3BucketDefaultRetentionDays (\s a -> s { _s3BucketDefaultRetentionDays = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-defaultretention.html#cfn-s3-bucket-defaultretention-mode -sbdrMode :: Lens' S3BucketDefaultRetention (Maybe (Val Text)) -sbdrMode = lens _s3BucketDefaultRetentionMode (\s a -> s { _s3BucketDefaultRetentionMode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-defaultretention.html#cfn-s3-bucket-defaultretention-years -sbdrYears :: Lens' S3BucketDefaultRetention (Maybe (Val Integer)) -sbdrYears = lens _s3BucketDefaultRetentionYears (\s a -> s { _s3BucketDefaultRetentionYears = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketDeleteMarkerReplication.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketDeleteMarkerReplication.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketDeleteMarkerReplication.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# 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 }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketDestination.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketDestination.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketDestination.hs +++ /dev/null @@ -1,61 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-destination.html - -module Stratosphere.ResourceProperties.S3BucketDestination where - -import Stratosphere.ResourceImports - - --- | Full data type definition for S3BucketDestination. See --- 's3BucketDestination' for a more convenient constructor. -data S3BucketDestination = - S3BucketDestination - { _s3BucketDestinationBucketAccountId :: Maybe (Val Text) - , _s3BucketDestinationBucketArn :: Val Text - , _s3BucketDestinationFormat :: Val Text - , _s3BucketDestinationPrefix :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON S3BucketDestination where - toJSON S3BucketDestination{..} = - object $ - catMaybes - [ fmap (("BucketAccountId",) . toJSON) _s3BucketDestinationBucketAccountId - , (Just . ("BucketArn",) . toJSON) _s3BucketDestinationBucketArn - , (Just . ("Format",) . toJSON) _s3BucketDestinationFormat - , fmap (("Prefix",) . toJSON) _s3BucketDestinationPrefix - ] - --- | Constructor for 'S3BucketDestination' containing required fields as --- arguments. -s3BucketDestination - :: Val Text -- ^ 'sbdBucketArn' - -> Val Text -- ^ 'sbdFormat' - -> S3BucketDestination -s3BucketDestination bucketArnarg formatarg = - S3BucketDestination - { _s3BucketDestinationBucketAccountId = Nothing - , _s3BucketDestinationBucketArn = bucketArnarg - , _s3BucketDestinationFormat = formatarg - , _s3BucketDestinationPrefix = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-destination.html#cfn-s3-bucket-destination-bucketaccountid -sbdBucketAccountId :: Lens' S3BucketDestination (Maybe (Val Text)) -sbdBucketAccountId = lens _s3BucketDestinationBucketAccountId (\s a -> s { _s3BucketDestinationBucketAccountId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-destination.html#cfn-s3-bucket-destination-bucketarn -sbdBucketArn :: Lens' S3BucketDestination (Val Text) -sbdBucketArn = lens _s3BucketDestinationBucketArn (\s a -> s { _s3BucketDestinationBucketArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-destination.html#cfn-s3-bucket-destination-format -sbdFormat :: Lens' S3BucketDestination (Val Text) -sbdFormat = lens _s3BucketDestinationFormat (\s a -> s { _s3BucketDestinationFormat = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-destination.html#cfn-s3-bucket-destination-prefix -sbdPrefix :: Lens' S3BucketDestination (Maybe (Val Text)) -sbdPrefix = lens _s3BucketDestinationPrefix (\s a -> s { _s3BucketDestinationPrefix = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketEncryptionConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketEncryptionConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketEncryptionConfiguration.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-encryptionconfiguration.html - -module Stratosphere.ResourceProperties.S3BucketEncryptionConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for S3BucketEncryptionConfiguration. See --- 's3BucketEncryptionConfiguration' for a more convenient constructor. -data S3BucketEncryptionConfiguration = - S3BucketEncryptionConfiguration - { _s3BucketEncryptionConfigurationReplicaKmsKeyID :: Val Text - } deriving (Show, Eq) - -instance ToJSON S3BucketEncryptionConfiguration where - toJSON S3BucketEncryptionConfiguration{..} = - object $ - catMaybes - [ (Just . ("ReplicaKmsKeyID",) . toJSON) _s3BucketEncryptionConfigurationReplicaKmsKeyID - ] - --- | Constructor for 'S3BucketEncryptionConfiguration' containing required --- fields as arguments. -s3BucketEncryptionConfiguration - :: Val Text -- ^ 'sbecReplicaKmsKeyID' - -> S3BucketEncryptionConfiguration -s3BucketEncryptionConfiguration replicaKmsKeyIDarg = - S3BucketEncryptionConfiguration - { _s3BucketEncryptionConfigurationReplicaKmsKeyID = replicaKmsKeyIDarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-encryptionconfiguration.html#cfn-s3-bucket-encryptionconfiguration-replicakmskeyid -sbecReplicaKmsKeyID :: Lens' S3BucketEncryptionConfiguration (Val Text) -sbecReplicaKmsKeyID = lens _s3BucketEncryptionConfigurationReplicaKmsKeyID (\s a -> s { _s3BucketEncryptionConfigurationReplicaKmsKeyID = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketFilterRule.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketFilterRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketFilterRule.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-notificationconfiguration-config-filter-s3key-rules.html - -module Stratosphere.ResourceProperties.S3BucketFilterRule where - -import Stratosphere.ResourceImports - - --- | Full data type definition for S3BucketFilterRule. See --- 's3BucketFilterRule' for a more convenient constructor. -data S3BucketFilterRule = - S3BucketFilterRule - { _s3BucketFilterRuleName :: Val Text - , _s3BucketFilterRuleValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON S3BucketFilterRule where - toJSON S3BucketFilterRule{..} = - object $ - catMaybes - [ (Just . ("Name",) . toJSON) _s3BucketFilterRuleName - , (Just . ("Value",) . toJSON) _s3BucketFilterRuleValue - ] - --- | Constructor for 'S3BucketFilterRule' containing required fields as --- arguments. -s3BucketFilterRule - :: Val Text -- ^ 'sbfrName' - -> Val Text -- ^ 'sbfrValue' - -> S3BucketFilterRule -s3BucketFilterRule namearg valuearg = - S3BucketFilterRule - { _s3BucketFilterRuleName = namearg - , _s3BucketFilterRuleValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-notificationconfiguration-config-filter-s3key-rules.html#cfn-s3-bucket-notificationconfiguraiton-config-filter-s3key-rules-name -sbfrName :: Lens' S3BucketFilterRule (Val Text) -sbfrName = lens _s3BucketFilterRuleName (\s a -> s { _s3BucketFilterRuleName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-notificationconfiguration-config-filter-s3key-rules.html#cfn-s3-bucket-notificationconfiguraiton-config-filter-s3key-rules-value -sbfrValue :: Lens' S3BucketFilterRule (Val Text) -sbfrValue = lens _s3BucketFilterRuleValue (\s a -> s { _s3BucketFilterRuleValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketInventoryConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketInventoryConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketInventoryConfiguration.hs +++ /dev/null @@ -1,85 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-inventoryconfiguration.html - -module Stratosphere.ResourceProperties.S3BucketInventoryConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.S3BucketDestination - --- | Full data type definition for S3BucketInventoryConfiguration. See --- 's3BucketInventoryConfiguration' for a more convenient constructor. -data S3BucketInventoryConfiguration = - S3BucketInventoryConfiguration - { _s3BucketInventoryConfigurationDestination :: S3BucketDestination - , _s3BucketInventoryConfigurationEnabled :: Val Bool - , _s3BucketInventoryConfigurationId :: Val Text - , _s3BucketInventoryConfigurationIncludedObjectVersions :: Val Text - , _s3BucketInventoryConfigurationOptionalFields :: Maybe (ValList Text) - , _s3BucketInventoryConfigurationPrefix :: Maybe (Val Text) - , _s3BucketInventoryConfigurationScheduleFrequency :: Val Text - } deriving (Show, Eq) - -instance ToJSON S3BucketInventoryConfiguration where - toJSON S3BucketInventoryConfiguration{..} = - object $ - catMaybes - [ (Just . ("Destination",) . toJSON) _s3BucketInventoryConfigurationDestination - , (Just . ("Enabled",) . toJSON) _s3BucketInventoryConfigurationEnabled - , (Just . ("Id",) . toJSON) _s3BucketInventoryConfigurationId - , (Just . ("IncludedObjectVersions",) . toJSON) _s3BucketInventoryConfigurationIncludedObjectVersions - , fmap (("OptionalFields",) . toJSON) _s3BucketInventoryConfigurationOptionalFields - , fmap (("Prefix",) . toJSON) _s3BucketInventoryConfigurationPrefix - , (Just . ("ScheduleFrequency",) . toJSON) _s3BucketInventoryConfigurationScheduleFrequency - ] - --- | Constructor for 'S3BucketInventoryConfiguration' containing required --- fields as arguments. -s3BucketInventoryConfiguration - :: S3BucketDestination -- ^ 'sbicDestination' - -> Val Bool -- ^ 'sbicEnabled' - -> Val Text -- ^ 'sbicId' - -> Val Text -- ^ 'sbicIncludedObjectVersions' - -> Val Text -- ^ 'sbicScheduleFrequency' - -> S3BucketInventoryConfiguration -s3BucketInventoryConfiguration destinationarg enabledarg idarg includedObjectVersionsarg scheduleFrequencyarg = - S3BucketInventoryConfiguration - { _s3BucketInventoryConfigurationDestination = destinationarg - , _s3BucketInventoryConfigurationEnabled = enabledarg - , _s3BucketInventoryConfigurationId = idarg - , _s3BucketInventoryConfigurationIncludedObjectVersions = includedObjectVersionsarg - , _s3BucketInventoryConfigurationOptionalFields = Nothing - , _s3BucketInventoryConfigurationPrefix = Nothing - , _s3BucketInventoryConfigurationScheduleFrequency = scheduleFrequencyarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-inventoryconfiguration.html#cfn-s3-bucket-inventoryconfiguration-destination -sbicDestination :: Lens' S3BucketInventoryConfiguration S3BucketDestination -sbicDestination = lens _s3BucketInventoryConfigurationDestination (\s a -> s { _s3BucketInventoryConfigurationDestination = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-inventoryconfiguration.html#cfn-s3-bucket-inventoryconfiguration-enabled -sbicEnabled :: Lens' S3BucketInventoryConfiguration (Val Bool) -sbicEnabled = lens _s3BucketInventoryConfigurationEnabled (\s a -> s { _s3BucketInventoryConfigurationEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-inventoryconfiguration.html#cfn-s3-bucket-inventoryconfiguration-id -sbicId :: Lens' S3BucketInventoryConfiguration (Val Text) -sbicId = lens _s3BucketInventoryConfigurationId (\s a -> s { _s3BucketInventoryConfigurationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-inventoryconfiguration.html#cfn-s3-bucket-inventoryconfiguration-includedobjectversions -sbicIncludedObjectVersions :: Lens' S3BucketInventoryConfiguration (Val Text) -sbicIncludedObjectVersions = lens _s3BucketInventoryConfigurationIncludedObjectVersions (\s a -> s { _s3BucketInventoryConfigurationIncludedObjectVersions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-inventoryconfiguration.html#cfn-s3-bucket-inventoryconfiguration-optionalfields -sbicOptionalFields :: Lens' S3BucketInventoryConfiguration (Maybe (ValList Text)) -sbicOptionalFields = lens _s3BucketInventoryConfigurationOptionalFields (\s a -> s { _s3BucketInventoryConfigurationOptionalFields = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-inventoryconfiguration.html#cfn-s3-bucket-inventoryconfiguration-prefix -sbicPrefix :: Lens' S3BucketInventoryConfiguration (Maybe (Val Text)) -sbicPrefix = lens _s3BucketInventoryConfigurationPrefix (\s a -> s { _s3BucketInventoryConfigurationPrefix = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-inventoryconfiguration.html#cfn-s3-bucket-inventoryconfiguration-schedulefrequency -sbicScheduleFrequency :: Lens' S3BucketInventoryConfiguration (Val Text) -sbicScheduleFrequency = lens _s3BucketInventoryConfigurationScheduleFrequency (\s a -> s { _s3BucketInventoryConfigurationScheduleFrequency = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketLambdaConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketLambdaConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketLambdaConfiguration.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-notificationconfig-lambdaconfig.html - -module Stratosphere.ResourceProperties.S3BucketLambdaConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.S3BucketNotificationFilter - --- | Full data type definition for S3BucketLambdaConfiguration. See --- 's3BucketLambdaConfiguration' for a more convenient constructor. -data S3BucketLambdaConfiguration = - S3BucketLambdaConfiguration - { _s3BucketLambdaConfigurationEvent :: Val Text - , _s3BucketLambdaConfigurationFilter :: Maybe S3BucketNotificationFilter - , _s3BucketLambdaConfigurationFunction :: Val Text - } deriving (Show, Eq) - -instance ToJSON S3BucketLambdaConfiguration where - toJSON S3BucketLambdaConfiguration{..} = - object $ - catMaybes - [ (Just . ("Event",) . toJSON) _s3BucketLambdaConfigurationEvent - , fmap (("Filter",) . toJSON) _s3BucketLambdaConfigurationFilter - , (Just . ("Function",) . toJSON) _s3BucketLambdaConfigurationFunction - ] - --- | Constructor for 'S3BucketLambdaConfiguration' containing required fields --- as arguments. -s3BucketLambdaConfiguration - :: Val Text -- ^ 'sblcEvent' - -> Val Text -- ^ 'sblcFunction' - -> S3BucketLambdaConfiguration -s3BucketLambdaConfiguration eventarg functionarg = - S3BucketLambdaConfiguration - { _s3BucketLambdaConfigurationEvent = eventarg - , _s3BucketLambdaConfigurationFilter = Nothing - , _s3BucketLambdaConfigurationFunction = functionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-notificationconfig-lambdaconfig.html#cfn-s3-bucket-notificationconfig-lambdaconfig-event -sblcEvent :: Lens' S3BucketLambdaConfiguration (Val Text) -sblcEvent = lens _s3BucketLambdaConfigurationEvent (\s a -> s { _s3BucketLambdaConfigurationEvent = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-notificationconfig-lambdaconfig.html#cfn-s3-bucket-notificationconfig-lambdaconfig-filter -sblcFilter :: Lens' S3BucketLambdaConfiguration (Maybe S3BucketNotificationFilter) -sblcFilter = lens _s3BucketLambdaConfigurationFilter (\s a -> s { _s3BucketLambdaConfigurationFilter = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-notificationconfig-lambdaconfig.html#cfn-s3-bucket-notificationconfig-lambdaconfig-function -sblcFunction :: Lens' S3BucketLambdaConfiguration (Val Text) -sblcFunction = lens _s3BucketLambdaConfigurationFunction (\s a -> s { _s3BucketLambdaConfigurationFunction = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketLifecycleConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketLifecycleConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketLifecycleConfiguration.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-lifecycleconfig.html - -module Stratosphere.ResourceProperties.S3BucketLifecycleConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.S3BucketRule - --- | Full data type definition for S3BucketLifecycleConfiguration. See --- 's3BucketLifecycleConfiguration' for a more convenient constructor. -data S3BucketLifecycleConfiguration = - S3BucketLifecycleConfiguration - { _s3BucketLifecycleConfigurationRules :: [S3BucketRule] - } deriving (Show, Eq) - -instance ToJSON S3BucketLifecycleConfiguration where - toJSON S3BucketLifecycleConfiguration{..} = - object $ - catMaybes - [ (Just . ("Rules",) . toJSON) _s3BucketLifecycleConfigurationRules - ] - --- | Constructor for 'S3BucketLifecycleConfiguration' containing required --- fields as arguments. -s3BucketLifecycleConfiguration - :: [S3BucketRule] -- ^ 'sblcRules' - -> S3BucketLifecycleConfiguration -s3BucketLifecycleConfiguration rulesarg = - S3BucketLifecycleConfiguration - { _s3BucketLifecycleConfigurationRules = rulesarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-lifecycleconfig.html#cfn-s3-bucket-lifecycleconfig-rules -sblcRules :: Lens' S3BucketLifecycleConfiguration [S3BucketRule] -sblcRules = lens _s3BucketLifecycleConfigurationRules (\s a -> s { _s3BucketLifecycleConfigurationRules = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketLoggingConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketLoggingConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketLoggingConfiguration.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-loggingconfig.html - -module Stratosphere.ResourceProperties.S3BucketLoggingConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for S3BucketLoggingConfiguration. See --- 's3BucketLoggingConfiguration' for a more convenient constructor. -data S3BucketLoggingConfiguration = - S3BucketLoggingConfiguration - { _s3BucketLoggingConfigurationDestinationBucketName :: Maybe (Val Text) - , _s3BucketLoggingConfigurationLogFilePrefix :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON S3BucketLoggingConfiguration where - toJSON S3BucketLoggingConfiguration{..} = - object $ - catMaybes - [ fmap (("DestinationBucketName",) . toJSON) _s3BucketLoggingConfigurationDestinationBucketName - , fmap (("LogFilePrefix",) . toJSON) _s3BucketLoggingConfigurationLogFilePrefix - ] - --- | Constructor for 'S3BucketLoggingConfiguration' containing required fields --- as arguments. -s3BucketLoggingConfiguration - :: S3BucketLoggingConfiguration -s3BucketLoggingConfiguration = - S3BucketLoggingConfiguration - { _s3BucketLoggingConfigurationDestinationBucketName = Nothing - , _s3BucketLoggingConfigurationLogFilePrefix = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-loggingconfig.html#cfn-s3-bucket-loggingconfig-destinationbucketname -sblcDestinationBucketName :: Lens' S3BucketLoggingConfiguration (Maybe (Val Text)) -sblcDestinationBucketName = lens _s3BucketLoggingConfigurationDestinationBucketName (\s a -> s { _s3BucketLoggingConfigurationDestinationBucketName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-loggingconfig.html#cfn-s3-bucket-loggingconfig-logfileprefix -sblcLogFilePrefix :: Lens' S3BucketLoggingConfiguration (Maybe (Val Text)) -sblcLogFilePrefix = lens _s3BucketLoggingConfigurationLogFilePrefix (\s a -> s { _s3BucketLoggingConfigurationLogFilePrefix = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketMetrics.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketMetrics.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketMetrics.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# 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 }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketMetricsConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketMetricsConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketMetricsConfiguration.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-metricsconfiguration.html - -module Stratosphere.ResourceProperties.S3BucketMetricsConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.S3BucketTagFilter - --- | Full data type definition for S3BucketMetricsConfiguration. See --- 's3BucketMetricsConfiguration' for a more convenient constructor. -data S3BucketMetricsConfiguration = - S3BucketMetricsConfiguration - { _s3BucketMetricsConfigurationId :: Val Text - , _s3BucketMetricsConfigurationPrefix :: Maybe (Val Text) - , _s3BucketMetricsConfigurationTagFilters :: Maybe [S3BucketTagFilter] - } deriving (Show, Eq) - -instance ToJSON S3BucketMetricsConfiguration where - toJSON S3BucketMetricsConfiguration{..} = - object $ - catMaybes - [ (Just . ("Id",) . toJSON) _s3BucketMetricsConfigurationId - , fmap (("Prefix",) . toJSON) _s3BucketMetricsConfigurationPrefix - , fmap (("TagFilters",) . toJSON) _s3BucketMetricsConfigurationTagFilters - ] - --- | Constructor for 'S3BucketMetricsConfiguration' containing required fields --- as arguments. -s3BucketMetricsConfiguration - :: Val Text -- ^ 'sbmcId' - -> S3BucketMetricsConfiguration -s3BucketMetricsConfiguration idarg = - S3BucketMetricsConfiguration - { _s3BucketMetricsConfigurationId = idarg - , _s3BucketMetricsConfigurationPrefix = Nothing - , _s3BucketMetricsConfigurationTagFilters = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-metricsconfiguration.html#cfn-s3-bucket-metricsconfiguration-id -sbmcId :: Lens' S3BucketMetricsConfiguration (Val Text) -sbmcId = lens _s3BucketMetricsConfigurationId (\s a -> s { _s3BucketMetricsConfigurationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-metricsconfiguration.html#cfn-s3-bucket-metricsconfiguration-prefix -sbmcPrefix :: Lens' S3BucketMetricsConfiguration (Maybe (Val Text)) -sbmcPrefix = lens _s3BucketMetricsConfigurationPrefix (\s a -> s { _s3BucketMetricsConfigurationPrefix = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-metricsconfiguration.html#cfn-s3-bucket-metricsconfiguration-tagfilters -sbmcTagFilters :: Lens' S3BucketMetricsConfiguration (Maybe [S3BucketTagFilter]) -sbmcTagFilters = lens _s3BucketMetricsConfigurationTagFilters (\s a -> s { _s3BucketMetricsConfigurationTagFilters = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketNoncurrentVersionTransition.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketNoncurrentVersionTransition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketNoncurrentVersionTransition.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-lifecycleconfig-rule-noncurrentversiontransition.html - -module Stratosphere.ResourceProperties.S3BucketNoncurrentVersionTransition where - -import Stratosphere.ResourceImports - - --- | Full data type definition for S3BucketNoncurrentVersionTransition. See --- 's3BucketNoncurrentVersionTransition' for a more convenient constructor. -data S3BucketNoncurrentVersionTransition = - S3BucketNoncurrentVersionTransition - { _s3BucketNoncurrentVersionTransitionStorageClass :: Val Text - , _s3BucketNoncurrentVersionTransitionTransitionInDays :: Val Integer - } deriving (Show, Eq) - -instance ToJSON S3BucketNoncurrentVersionTransition where - toJSON S3BucketNoncurrentVersionTransition{..} = - object $ - catMaybes - [ (Just . ("StorageClass",) . toJSON) _s3BucketNoncurrentVersionTransitionStorageClass - , (Just . ("TransitionInDays",) . toJSON) _s3BucketNoncurrentVersionTransitionTransitionInDays - ] - --- | Constructor for 'S3BucketNoncurrentVersionTransition' containing required --- fields as arguments. -s3BucketNoncurrentVersionTransition - :: Val Text -- ^ 'sbnvtStorageClass' - -> Val Integer -- ^ 'sbnvtTransitionInDays' - -> S3BucketNoncurrentVersionTransition -s3BucketNoncurrentVersionTransition storageClassarg transitionInDaysarg = - S3BucketNoncurrentVersionTransition - { _s3BucketNoncurrentVersionTransitionStorageClass = storageClassarg - , _s3BucketNoncurrentVersionTransitionTransitionInDays = transitionInDaysarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-lifecycleconfig-rule-noncurrentversiontransition.html#cfn-s3-bucket-lifecycleconfig-rule-noncurrentversiontransition-storageclass -sbnvtStorageClass :: Lens' S3BucketNoncurrentVersionTransition (Val Text) -sbnvtStorageClass = lens _s3BucketNoncurrentVersionTransitionStorageClass (\s a -> s { _s3BucketNoncurrentVersionTransitionStorageClass = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-lifecycleconfig-rule-noncurrentversiontransition.html#cfn-s3-bucket-lifecycleconfig-rule-noncurrentversiontransition-transitionindays -sbnvtTransitionInDays :: Lens' S3BucketNoncurrentVersionTransition (Val Integer) -sbnvtTransitionInDays = lens _s3BucketNoncurrentVersionTransitionTransitionInDays (\s a -> s { _s3BucketNoncurrentVersionTransitionTransitionInDays = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketNotificationConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketNotificationConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketNotificationConfiguration.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-notificationconfig.html - -module Stratosphere.ResourceProperties.S3BucketNotificationConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.S3BucketLambdaConfiguration -import Stratosphere.ResourceProperties.S3BucketQueueConfiguration -import Stratosphere.ResourceProperties.S3BucketTopicConfiguration - --- | Full data type definition for S3BucketNotificationConfiguration. See --- 's3BucketNotificationConfiguration' for a more convenient constructor. -data S3BucketNotificationConfiguration = - S3BucketNotificationConfiguration - { _s3BucketNotificationConfigurationLambdaConfigurations :: Maybe [S3BucketLambdaConfiguration] - , _s3BucketNotificationConfigurationQueueConfigurations :: Maybe [S3BucketQueueConfiguration] - , _s3BucketNotificationConfigurationTopicConfigurations :: Maybe [S3BucketTopicConfiguration] - } deriving (Show, Eq) - -instance ToJSON S3BucketNotificationConfiguration where - toJSON S3BucketNotificationConfiguration{..} = - object $ - catMaybes - [ fmap (("LambdaConfigurations",) . toJSON) _s3BucketNotificationConfigurationLambdaConfigurations - , fmap (("QueueConfigurations",) . toJSON) _s3BucketNotificationConfigurationQueueConfigurations - , fmap (("TopicConfigurations",) . toJSON) _s3BucketNotificationConfigurationTopicConfigurations - ] - --- | Constructor for 'S3BucketNotificationConfiguration' containing required --- fields as arguments. -s3BucketNotificationConfiguration - :: S3BucketNotificationConfiguration -s3BucketNotificationConfiguration = - S3BucketNotificationConfiguration - { _s3BucketNotificationConfigurationLambdaConfigurations = Nothing - , _s3BucketNotificationConfigurationQueueConfigurations = Nothing - , _s3BucketNotificationConfigurationTopicConfigurations = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-notificationconfig.html#cfn-s3-bucket-notificationconfig-lambdaconfig -sbncLambdaConfigurations :: Lens' S3BucketNotificationConfiguration (Maybe [S3BucketLambdaConfiguration]) -sbncLambdaConfigurations = lens _s3BucketNotificationConfigurationLambdaConfigurations (\s a -> s { _s3BucketNotificationConfigurationLambdaConfigurations = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-notificationconfig.html#cfn-s3-bucket-notificationconfig-queueconfig -sbncQueueConfigurations :: Lens' S3BucketNotificationConfiguration (Maybe [S3BucketQueueConfiguration]) -sbncQueueConfigurations = lens _s3BucketNotificationConfigurationQueueConfigurations (\s a -> s { _s3BucketNotificationConfigurationQueueConfigurations = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-notificationconfig.html#cfn-s3-bucket-notificationconfig-topicconfig -sbncTopicConfigurations :: Lens' S3BucketNotificationConfiguration (Maybe [S3BucketTopicConfiguration]) -sbncTopicConfigurations = lens _s3BucketNotificationConfigurationTopicConfigurations (\s a -> s { _s3BucketNotificationConfigurationTopicConfigurations = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketNotificationFilter.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketNotificationFilter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketNotificationFilter.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-notificationconfiguration-config-filter.html - -module Stratosphere.ResourceProperties.S3BucketNotificationFilter where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.S3BucketS3KeyFilter - --- | Full data type definition for S3BucketNotificationFilter. See --- 's3BucketNotificationFilter' for a more convenient constructor. -data S3BucketNotificationFilter = - S3BucketNotificationFilter - { _s3BucketNotificationFilterS3Key :: S3BucketS3KeyFilter - } deriving (Show, Eq) - -instance ToJSON S3BucketNotificationFilter where - toJSON S3BucketNotificationFilter{..} = - object $ - catMaybes - [ (Just . ("S3Key",) . toJSON) _s3BucketNotificationFilterS3Key - ] - --- | Constructor for 'S3BucketNotificationFilter' containing required fields --- as arguments. -s3BucketNotificationFilter - :: S3BucketS3KeyFilter -- ^ 'sbnfS3Key' - -> S3BucketNotificationFilter -s3BucketNotificationFilter s3Keyarg = - S3BucketNotificationFilter - { _s3BucketNotificationFilterS3Key = s3Keyarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-notificationconfiguration-config-filter.html#cfn-s3-bucket-notificationconfiguraiton-config-filter-s3key -sbnfS3Key :: Lens' S3BucketNotificationFilter S3BucketS3KeyFilter -sbnfS3Key = lens _s3BucketNotificationFilterS3Key (\s a -> s { _s3BucketNotificationFilterS3Key = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketObjectLockConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketObjectLockConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketObjectLockConfiguration.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-objectlockconfiguration.html - -module Stratosphere.ResourceProperties.S3BucketObjectLockConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.S3BucketObjectLockRule - --- | Full data type definition for S3BucketObjectLockConfiguration. See --- 's3BucketObjectLockConfiguration' for a more convenient constructor. -data S3BucketObjectLockConfiguration = - S3BucketObjectLockConfiguration - { _s3BucketObjectLockConfigurationObjectLockEnabled :: Maybe (Val Text) - , _s3BucketObjectLockConfigurationRule :: Maybe S3BucketObjectLockRule - } deriving (Show, Eq) - -instance ToJSON S3BucketObjectLockConfiguration where - toJSON S3BucketObjectLockConfiguration{..} = - object $ - catMaybes - [ fmap (("ObjectLockEnabled",) . toJSON) _s3BucketObjectLockConfigurationObjectLockEnabled - , fmap (("Rule",) . toJSON) _s3BucketObjectLockConfigurationRule - ] - --- | Constructor for 'S3BucketObjectLockConfiguration' containing required --- fields as arguments. -s3BucketObjectLockConfiguration - :: S3BucketObjectLockConfiguration -s3BucketObjectLockConfiguration = - S3BucketObjectLockConfiguration - { _s3BucketObjectLockConfigurationObjectLockEnabled = Nothing - , _s3BucketObjectLockConfigurationRule = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-objectlockconfiguration.html#cfn-s3-bucket-objectlockconfiguration-objectlockenabled -sbolcObjectLockEnabled :: Lens' S3BucketObjectLockConfiguration (Maybe (Val Text)) -sbolcObjectLockEnabled = lens _s3BucketObjectLockConfigurationObjectLockEnabled (\s a -> s { _s3BucketObjectLockConfigurationObjectLockEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-objectlockconfiguration.html#cfn-s3-bucket-objectlockconfiguration-rule -sbolcRule :: Lens' S3BucketObjectLockConfiguration (Maybe S3BucketObjectLockRule) -sbolcRule = lens _s3BucketObjectLockConfigurationRule (\s a -> s { _s3BucketObjectLockConfigurationRule = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketObjectLockRule.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketObjectLockRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketObjectLockRule.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-objectlockrule.html - -module Stratosphere.ResourceProperties.S3BucketObjectLockRule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.S3BucketDefaultRetention - --- | Full data type definition for S3BucketObjectLockRule. See --- 's3BucketObjectLockRule' for a more convenient constructor. -data S3BucketObjectLockRule = - S3BucketObjectLockRule - { _s3BucketObjectLockRuleDefaultRetention :: Maybe S3BucketDefaultRetention - } deriving (Show, Eq) - -instance ToJSON S3BucketObjectLockRule where - toJSON S3BucketObjectLockRule{..} = - object $ - catMaybes - [ fmap (("DefaultRetention",) . toJSON) _s3BucketObjectLockRuleDefaultRetention - ] - --- | Constructor for 'S3BucketObjectLockRule' containing required fields as --- arguments. -s3BucketObjectLockRule - :: S3BucketObjectLockRule -s3BucketObjectLockRule = - S3BucketObjectLockRule - { _s3BucketObjectLockRuleDefaultRetention = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-objectlockrule.html#cfn-s3-bucket-objectlockrule-defaultretention -sbolrDefaultRetention :: Lens' S3BucketObjectLockRule (Maybe S3BucketDefaultRetention) -sbolrDefaultRetention = lens _s3BucketObjectLockRuleDefaultRetention (\s a -> s { _s3BucketObjectLockRuleDefaultRetention = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketPublicAccessBlockConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketPublicAccessBlockConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketPublicAccessBlockConfiguration.hs +++ /dev/null @@ -1,60 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-publicaccessblockconfiguration.html - -module Stratosphere.ResourceProperties.S3BucketPublicAccessBlockConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for S3BucketPublicAccessBlockConfiguration. See --- 's3BucketPublicAccessBlockConfiguration' for a more convenient --- constructor. -data S3BucketPublicAccessBlockConfiguration = - S3BucketPublicAccessBlockConfiguration - { _s3BucketPublicAccessBlockConfigurationBlockPublicAcls :: Maybe (Val Bool) - , _s3BucketPublicAccessBlockConfigurationBlockPublicPolicy :: Maybe (Val Bool) - , _s3BucketPublicAccessBlockConfigurationIgnorePublicAcls :: Maybe (Val Bool) - , _s3BucketPublicAccessBlockConfigurationRestrictPublicBuckets :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON S3BucketPublicAccessBlockConfiguration where - toJSON S3BucketPublicAccessBlockConfiguration{..} = - object $ - catMaybes - [ fmap (("BlockPublicAcls",) . toJSON) _s3BucketPublicAccessBlockConfigurationBlockPublicAcls - , fmap (("BlockPublicPolicy",) . toJSON) _s3BucketPublicAccessBlockConfigurationBlockPublicPolicy - , fmap (("IgnorePublicAcls",) . toJSON) _s3BucketPublicAccessBlockConfigurationIgnorePublicAcls - , fmap (("RestrictPublicBuckets",) . toJSON) _s3BucketPublicAccessBlockConfigurationRestrictPublicBuckets - ] - --- | Constructor for 'S3BucketPublicAccessBlockConfiguration' containing --- required fields as arguments. -s3BucketPublicAccessBlockConfiguration - :: S3BucketPublicAccessBlockConfiguration -s3BucketPublicAccessBlockConfiguration = - S3BucketPublicAccessBlockConfiguration - { _s3BucketPublicAccessBlockConfigurationBlockPublicAcls = Nothing - , _s3BucketPublicAccessBlockConfigurationBlockPublicPolicy = Nothing - , _s3BucketPublicAccessBlockConfigurationIgnorePublicAcls = Nothing - , _s3BucketPublicAccessBlockConfigurationRestrictPublicBuckets = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-publicaccessblockconfiguration.html#cfn-s3-bucket-publicaccessblockconfiguration-blockpublicacls -sbpabcBlockPublicAcls :: Lens' S3BucketPublicAccessBlockConfiguration (Maybe (Val Bool)) -sbpabcBlockPublicAcls = lens _s3BucketPublicAccessBlockConfigurationBlockPublicAcls (\s a -> s { _s3BucketPublicAccessBlockConfigurationBlockPublicAcls = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-publicaccessblockconfiguration.html#cfn-s3-bucket-publicaccessblockconfiguration-blockpublicpolicy -sbpabcBlockPublicPolicy :: Lens' S3BucketPublicAccessBlockConfiguration (Maybe (Val Bool)) -sbpabcBlockPublicPolicy = lens _s3BucketPublicAccessBlockConfigurationBlockPublicPolicy (\s a -> s { _s3BucketPublicAccessBlockConfigurationBlockPublicPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-publicaccessblockconfiguration.html#cfn-s3-bucket-publicaccessblockconfiguration-ignorepublicacls -sbpabcIgnorePublicAcls :: Lens' S3BucketPublicAccessBlockConfiguration (Maybe (Val Bool)) -sbpabcIgnorePublicAcls = lens _s3BucketPublicAccessBlockConfigurationIgnorePublicAcls (\s a -> s { _s3BucketPublicAccessBlockConfigurationIgnorePublicAcls = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-publicaccessblockconfiguration.html#cfn-s3-bucket-publicaccessblockconfiguration-restrictpublicbuckets -sbpabcRestrictPublicBuckets :: Lens' S3BucketPublicAccessBlockConfiguration (Maybe (Val Bool)) -sbpabcRestrictPublicBuckets = lens _s3BucketPublicAccessBlockConfigurationRestrictPublicBuckets (\s a -> s { _s3BucketPublicAccessBlockConfigurationRestrictPublicBuckets = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketQueueConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketQueueConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketQueueConfiguration.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-notificationconfig-queueconfig.html - -module Stratosphere.ResourceProperties.S3BucketQueueConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.S3BucketNotificationFilter - --- | Full data type definition for S3BucketQueueConfiguration. See --- 's3BucketQueueConfiguration' for a more convenient constructor. -data S3BucketQueueConfiguration = - S3BucketQueueConfiguration - { _s3BucketQueueConfigurationEvent :: Val Text - , _s3BucketQueueConfigurationFilter :: Maybe S3BucketNotificationFilter - , _s3BucketQueueConfigurationQueue :: Val Text - } deriving (Show, Eq) - -instance ToJSON S3BucketQueueConfiguration where - toJSON S3BucketQueueConfiguration{..} = - object $ - catMaybes - [ (Just . ("Event",) . toJSON) _s3BucketQueueConfigurationEvent - , fmap (("Filter",) . toJSON) _s3BucketQueueConfigurationFilter - , (Just . ("Queue",) . toJSON) _s3BucketQueueConfigurationQueue - ] - --- | Constructor for 'S3BucketQueueConfiguration' containing required fields --- as arguments. -s3BucketQueueConfiguration - :: Val Text -- ^ 'sbqcEvent' - -> Val Text -- ^ 'sbqcQueue' - -> S3BucketQueueConfiguration -s3BucketQueueConfiguration eventarg queuearg = - S3BucketQueueConfiguration - { _s3BucketQueueConfigurationEvent = eventarg - , _s3BucketQueueConfigurationFilter = Nothing - , _s3BucketQueueConfigurationQueue = queuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-notificationconfig-queueconfig.html#cfn-s3-bucket-notificationconfig-queueconfig-event -sbqcEvent :: Lens' S3BucketQueueConfiguration (Val Text) -sbqcEvent = lens _s3BucketQueueConfigurationEvent (\s a -> s { _s3BucketQueueConfigurationEvent = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-notificationconfig-queueconfig.html#cfn-s3-bucket-notificationconfig-queueconfig-filter -sbqcFilter :: Lens' S3BucketQueueConfiguration (Maybe S3BucketNotificationFilter) -sbqcFilter = lens _s3BucketQueueConfigurationFilter (\s a -> s { _s3BucketQueueConfigurationFilter = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-notificationconfig-queueconfig.html#cfn-s3-bucket-notificationconfig-queueconfig-queue -sbqcQueue :: Lens' S3BucketQueueConfiguration (Val Text) -sbqcQueue = lens _s3BucketQueueConfigurationQueue (\s a -> s { _s3BucketQueueConfigurationQueue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketRedirectAllRequestsTo.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketRedirectAllRequestsTo.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketRedirectAllRequestsTo.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-websiteconfiguration-redirectallrequeststo.html - -module Stratosphere.ResourceProperties.S3BucketRedirectAllRequestsTo where - -import Stratosphere.ResourceImports - - --- | Full data type definition for S3BucketRedirectAllRequestsTo. See --- 's3BucketRedirectAllRequestsTo' for a more convenient constructor. -data S3BucketRedirectAllRequestsTo = - S3BucketRedirectAllRequestsTo - { _s3BucketRedirectAllRequestsToHostName :: Val Text - , _s3BucketRedirectAllRequestsToProtocol :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON S3BucketRedirectAllRequestsTo where - toJSON S3BucketRedirectAllRequestsTo{..} = - object $ - catMaybes - [ (Just . ("HostName",) . toJSON) _s3BucketRedirectAllRequestsToHostName - , fmap (("Protocol",) . toJSON) _s3BucketRedirectAllRequestsToProtocol - ] - --- | Constructor for 'S3BucketRedirectAllRequestsTo' containing required --- fields as arguments. -s3BucketRedirectAllRequestsTo - :: Val Text -- ^ 'sbrartHostName' - -> S3BucketRedirectAllRequestsTo -s3BucketRedirectAllRequestsTo hostNamearg = - S3BucketRedirectAllRequestsTo - { _s3BucketRedirectAllRequestsToHostName = hostNamearg - , _s3BucketRedirectAllRequestsToProtocol = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-websiteconfiguration-redirectallrequeststo.html#cfn-s3-websiteconfiguration-redirectallrequeststo-hostname -sbrartHostName :: Lens' S3BucketRedirectAllRequestsTo (Val Text) -sbrartHostName = lens _s3BucketRedirectAllRequestsToHostName (\s a -> s { _s3BucketRedirectAllRequestsToHostName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-websiteconfiguration-redirectallrequeststo.html#cfn-s3-websiteconfiguration-redirectallrequeststo-protocol -sbrartProtocol :: Lens' S3BucketRedirectAllRequestsTo (Maybe (Val Text)) -sbrartProtocol = lens _s3BucketRedirectAllRequestsToProtocol (\s a -> s { _s3BucketRedirectAllRequestsToProtocol = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketRedirectRule.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketRedirectRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketRedirectRule.hs +++ /dev/null @@ -1,66 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-websiteconfiguration-routingrules-redirectrule.html - -module Stratosphere.ResourceProperties.S3BucketRedirectRule where - -import Stratosphere.ResourceImports - - --- | Full data type definition for S3BucketRedirectRule. See --- 's3BucketRedirectRule' for a more convenient constructor. -data S3BucketRedirectRule = - S3BucketRedirectRule - { _s3BucketRedirectRuleHostName :: Maybe (Val Text) - , _s3BucketRedirectRuleHttpRedirectCode :: Maybe (Val Text) - , _s3BucketRedirectRuleProtocol :: Maybe (Val Text) - , _s3BucketRedirectRuleReplaceKeyPrefixWith :: Maybe (Val Text) - , _s3BucketRedirectRuleReplaceKeyWith :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON S3BucketRedirectRule where - toJSON S3BucketRedirectRule{..} = - object $ - catMaybes - [ fmap (("HostName",) . toJSON) _s3BucketRedirectRuleHostName - , fmap (("HttpRedirectCode",) . toJSON) _s3BucketRedirectRuleHttpRedirectCode - , fmap (("Protocol",) . toJSON) _s3BucketRedirectRuleProtocol - , fmap (("ReplaceKeyPrefixWith",) . toJSON) _s3BucketRedirectRuleReplaceKeyPrefixWith - , fmap (("ReplaceKeyWith",) . toJSON) _s3BucketRedirectRuleReplaceKeyWith - ] - --- | Constructor for 'S3BucketRedirectRule' containing required fields as --- arguments. -s3BucketRedirectRule - :: S3BucketRedirectRule -s3BucketRedirectRule = - S3BucketRedirectRule - { _s3BucketRedirectRuleHostName = Nothing - , _s3BucketRedirectRuleHttpRedirectCode = Nothing - , _s3BucketRedirectRuleProtocol = Nothing - , _s3BucketRedirectRuleReplaceKeyPrefixWith = Nothing - , _s3BucketRedirectRuleReplaceKeyWith = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-websiteconfiguration-routingrules-redirectrule.html#cfn-s3-websiteconfiguration-redirectrule-hostname -sbrrHostName :: Lens' S3BucketRedirectRule (Maybe (Val Text)) -sbrrHostName = lens _s3BucketRedirectRuleHostName (\s a -> s { _s3BucketRedirectRuleHostName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-websiteconfiguration-routingrules-redirectrule.html#cfn-s3-websiteconfiguration-redirectrule-httpredirectcode -sbrrHttpRedirectCode :: Lens' S3BucketRedirectRule (Maybe (Val Text)) -sbrrHttpRedirectCode = lens _s3BucketRedirectRuleHttpRedirectCode (\s a -> s { _s3BucketRedirectRuleHttpRedirectCode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-websiteconfiguration-routingrules-redirectrule.html#cfn-s3-websiteconfiguration-redirectrule-protocol -sbrrProtocol :: Lens' S3BucketRedirectRule (Maybe (Val Text)) -sbrrProtocol = lens _s3BucketRedirectRuleProtocol (\s a -> s { _s3BucketRedirectRuleProtocol = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-websiteconfiguration-routingrules-redirectrule.html#cfn-s3-websiteconfiguration-redirectrule-replacekeyprefixwith -sbrrReplaceKeyPrefixWith :: Lens' S3BucketRedirectRule (Maybe (Val Text)) -sbrrReplaceKeyPrefixWith = lens _s3BucketRedirectRuleReplaceKeyPrefixWith (\s a -> s { _s3BucketRedirectRuleReplaceKeyPrefixWith = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-websiteconfiguration-routingrules-redirectrule.html#cfn-s3-websiteconfiguration-redirectrule-replacekeywith -sbrrReplaceKeyWith :: Lens' S3BucketRedirectRule (Maybe (Val Text)) -sbrrReplaceKeyWith = lens _s3BucketRedirectRuleReplaceKeyWith (\s a -> s { _s3BucketRedirectRuleReplaceKeyWith = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketReplicationConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketReplicationConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketReplicationConfiguration.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationconfiguration.html - -module Stratosphere.ResourceProperties.S3BucketReplicationConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.S3BucketReplicationRule - --- | Full data type definition for S3BucketReplicationConfiguration. See --- 's3BucketReplicationConfiguration' for a more convenient constructor. -data S3BucketReplicationConfiguration = - S3BucketReplicationConfiguration - { _s3BucketReplicationConfigurationRole :: Val Text - , _s3BucketReplicationConfigurationRules :: [S3BucketReplicationRule] - } deriving (Show, Eq) - -instance ToJSON S3BucketReplicationConfiguration where - toJSON S3BucketReplicationConfiguration{..} = - object $ - catMaybes - [ (Just . ("Role",) . toJSON) _s3BucketReplicationConfigurationRole - , (Just . ("Rules",) . toJSON) _s3BucketReplicationConfigurationRules - ] - --- | Constructor for 'S3BucketReplicationConfiguration' containing required --- fields as arguments. -s3BucketReplicationConfiguration - :: Val Text -- ^ 'sbrcRole' - -> [S3BucketReplicationRule] -- ^ 'sbrcRules' - -> S3BucketReplicationConfiguration -s3BucketReplicationConfiguration rolearg rulesarg = - S3BucketReplicationConfiguration - { _s3BucketReplicationConfigurationRole = rolearg - , _s3BucketReplicationConfigurationRules = rulesarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationconfiguration.html#cfn-s3-bucket-replicationconfiguration-role -sbrcRole :: Lens' S3BucketReplicationConfiguration (Val Text) -sbrcRole = lens _s3BucketReplicationConfigurationRole (\s a -> s { _s3BucketReplicationConfigurationRole = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationconfiguration.html#cfn-s3-bucket-replicationconfiguration-rules -sbrcRules :: Lens' S3BucketReplicationConfiguration [S3BucketReplicationRule] -sbrcRules = lens _s3BucketReplicationConfigurationRules (\s a -> s { _s3BucketReplicationConfigurationRules = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketReplicationDestination.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketReplicationDestination.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketReplicationDestination.hs +++ /dev/null @@ -1,84 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationconfiguration-rules-destination.html - -module Stratosphere.ResourceProperties.S3BucketReplicationDestination where - -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. -data S3BucketReplicationDestination = - S3BucketReplicationDestination - { _s3BucketReplicationDestinationAccessControlTranslation :: Maybe S3BucketAccessControlTranslation - , _s3BucketReplicationDestinationAccount :: Maybe (Val Text) - , _s3BucketReplicationDestinationBucket :: Val Text - , _s3BucketReplicationDestinationEncryptionConfiguration :: Maybe S3BucketEncryptionConfiguration - , _s3BucketReplicationDestinationMetrics :: Maybe S3BucketMetrics - , _s3BucketReplicationDestinationReplicationTime :: Maybe S3BucketReplicationTime - , _s3BucketReplicationDestinationStorageClass :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON S3BucketReplicationDestination where - toJSON S3BucketReplicationDestination{..} = - object $ - catMaybes - [ fmap (("AccessControlTranslation",) . toJSON) _s3BucketReplicationDestinationAccessControlTranslation - , fmap (("Account",) . toJSON) _s3BucketReplicationDestinationAccount - , (Just . ("Bucket",) . toJSON) _s3BucketReplicationDestinationBucket - , fmap (("EncryptionConfiguration",) . toJSON) _s3BucketReplicationDestinationEncryptionConfiguration - , fmap (("Metrics",) . toJSON) _s3BucketReplicationDestinationMetrics - , fmap (("ReplicationTime",) . toJSON) _s3BucketReplicationDestinationReplicationTime - , fmap (("StorageClass",) . toJSON) _s3BucketReplicationDestinationStorageClass - ] - --- | Constructor for 'S3BucketReplicationDestination' containing required --- fields as arguments. -s3BucketReplicationDestination - :: Val Text -- ^ 'sbrdBucket' - -> S3BucketReplicationDestination -s3BucketReplicationDestination bucketarg = - S3BucketReplicationDestination - { _s3BucketReplicationDestinationAccessControlTranslation = Nothing - , _s3BucketReplicationDestinationAccount = Nothing - , _s3BucketReplicationDestinationBucket = bucketarg - , _s3BucketReplicationDestinationEncryptionConfiguration = Nothing - , _s3BucketReplicationDestinationMetrics = Nothing - , _s3BucketReplicationDestinationReplicationTime = Nothing - , _s3BucketReplicationDestinationStorageClass = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationconfiguration-rules-destination.html#cfn-s3-bucket-replicationdestination-accesscontroltranslation -sbrdAccessControlTranslation :: Lens' S3BucketReplicationDestination (Maybe S3BucketAccessControlTranslation) -sbrdAccessControlTranslation = lens _s3BucketReplicationDestinationAccessControlTranslation (\s a -> s { _s3BucketReplicationDestinationAccessControlTranslation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationconfiguration-rules-destination.html#cfn-s3-bucket-replicationdestination-account -sbrdAccount :: Lens' S3BucketReplicationDestination (Maybe (Val Text)) -sbrdAccount = lens _s3BucketReplicationDestinationAccount (\s a -> s { _s3BucketReplicationDestinationAccount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationconfiguration-rules-destination.html#cfn-s3-bucket-replicationconfiguration-rules-destination-bucket -sbrdBucket :: Lens' S3BucketReplicationDestination (Val Text) -sbrdBucket = lens _s3BucketReplicationDestinationBucket (\s a -> s { _s3BucketReplicationDestinationBucket = a }) - --- | 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)) -sbrdStorageClass = lens _s3BucketReplicationDestinationStorageClass (\s a -> s { _s3BucketReplicationDestinationStorageClass = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketReplicationRule.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketReplicationRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketReplicationRule.hs +++ /dev/null @@ -1,92 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationconfiguration-rules.html - -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 - { _s3BucketReplicationRuleDeleteMarkerReplication :: Maybe S3BucketDeleteMarkerReplication - , _s3BucketReplicationRuleDestination :: S3BucketReplicationDestination - , _s3BucketReplicationRuleFilter :: Maybe S3BucketReplicationRuleFilter - , _s3BucketReplicationRuleId :: Maybe (Val Text) - , _s3BucketReplicationRulePrefix :: Maybe (Val Text) - , _s3BucketReplicationRulePriority :: Maybe (Val Integer) - , _s3BucketReplicationRuleSourceSelectionCriteria :: Maybe S3BucketSourceSelectionCriteria - , _s3BucketReplicationRuleStatus :: Val Text - } deriving (Show, Eq) - -instance ToJSON S3BucketReplicationRule where - toJSON S3BucketReplicationRule{..} = - object $ - catMaybes - [ fmap (("DeleteMarkerReplication",) . toJSON) _s3BucketReplicationRuleDeleteMarkerReplication - , (Just . ("Destination",) . toJSON) _s3BucketReplicationRuleDestination - , fmap (("Filter",) . toJSON) _s3BucketReplicationRuleFilter - , fmap (("Id",) . toJSON) _s3BucketReplicationRuleId - , fmap (("Prefix",) . toJSON) _s3BucketReplicationRulePrefix - , fmap (("Priority",) . toJSON) _s3BucketReplicationRulePriority - , fmap (("SourceSelectionCriteria",) . toJSON) _s3BucketReplicationRuleSourceSelectionCriteria - , (Just . ("Status",) . toJSON) _s3BucketReplicationRuleStatus - ] - --- | Constructor for 'S3BucketReplicationRule' containing required fields as --- arguments. -s3BucketReplicationRule - :: S3BucketReplicationDestination -- ^ 'sbrrDestination' - -> Val Text -- ^ 'sbrrStatus' - -> S3BucketReplicationRule -s3BucketReplicationRule destinationarg statusarg = - S3BucketReplicationRule - { _s3BucketReplicationRuleDeleteMarkerReplication = Nothing - , _s3BucketReplicationRuleDestination = destinationarg - , _s3BucketReplicationRuleFilter = Nothing - , _s3BucketReplicationRuleId = Nothing - , _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 (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) -sbrrSourceSelectionCriteria = lens _s3BucketReplicationRuleSourceSelectionCriteria (\s a -> s { _s3BucketReplicationRuleSourceSelectionCriteria = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-replicationconfiguration-rules.html#cfn-s3-bucket-replicationconfiguration-rules-status -sbrrStatus :: Lens' S3BucketReplicationRule (Val Text) -sbrrStatus = lens _s3BucketReplicationRuleStatus (\s a -> s { _s3BucketReplicationRuleStatus = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketReplicationRuleAndOperator.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketReplicationRuleAndOperator.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketReplicationRuleAndOperator.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# 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 }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketReplicationRuleFilter.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketReplicationRuleFilter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketReplicationRuleFilter.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# 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 }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketReplicationTime.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketReplicationTime.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketReplicationTime.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# 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 }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketReplicationTimeValue.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketReplicationTimeValue.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketReplicationTimeValue.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# 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 }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketRoutingRule.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketRoutingRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketRoutingRule.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-websiteconfiguration-routingrules.html - -module Stratosphere.ResourceProperties.S3BucketRoutingRule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.S3BucketRedirectRule -import Stratosphere.ResourceProperties.S3BucketRoutingRuleCondition - --- | Full data type definition for S3BucketRoutingRule. See --- 's3BucketRoutingRule' for a more convenient constructor. -data S3BucketRoutingRule = - S3BucketRoutingRule - { _s3BucketRoutingRuleRedirectRule :: S3BucketRedirectRule - , _s3BucketRoutingRuleRoutingRuleCondition :: Maybe S3BucketRoutingRuleCondition - } deriving (Show, Eq) - -instance ToJSON S3BucketRoutingRule where - toJSON S3BucketRoutingRule{..} = - object $ - catMaybes - [ (Just . ("RedirectRule",) . toJSON) _s3BucketRoutingRuleRedirectRule - , fmap (("RoutingRuleCondition",) . toJSON) _s3BucketRoutingRuleRoutingRuleCondition - ] - --- | Constructor for 'S3BucketRoutingRule' containing required fields as --- arguments. -s3BucketRoutingRule - :: S3BucketRedirectRule -- ^ 'sbrrRedirectRule' - -> S3BucketRoutingRule -s3BucketRoutingRule redirectRulearg = - S3BucketRoutingRule - { _s3BucketRoutingRuleRedirectRule = redirectRulearg - , _s3BucketRoutingRuleRoutingRuleCondition = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-websiteconfiguration-routingrules.html#cfn-s3-websiteconfiguration-routingrules-redirectrule -sbrrRedirectRule :: Lens' S3BucketRoutingRule S3BucketRedirectRule -sbrrRedirectRule = lens _s3BucketRoutingRuleRedirectRule (\s a -> s { _s3BucketRoutingRuleRedirectRule = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-websiteconfiguration-routingrules.html#cfn-s3-websiteconfiguration-routingrules-routingrulecondition -sbrrRoutingRuleCondition :: Lens' S3BucketRoutingRule (Maybe S3BucketRoutingRuleCondition) -sbrrRoutingRuleCondition = lens _s3BucketRoutingRuleRoutingRuleCondition (\s a -> s { _s3BucketRoutingRuleRoutingRuleCondition = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketRoutingRuleCondition.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketRoutingRuleCondition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketRoutingRuleCondition.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-websiteconfiguration-routingrules-routingrulecondition.html - -module Stratosphere.ResourceProperties.S3BucketRoutingRuleCondition where - -import Stratosphere.ResourceImports - - --- | Full data type definition for S3BucketRoutingRuleCondition. See --- 's3BucketRoutingRuleCondition' for a more convenient constructor. -data S3BucketRoutingRuleCondition = - S3BucketRoutingRuleCondition - { _s3BucketRoutingRuleConditionHttpErrorCodeReturnedEquals :: Maybe (Val Text) - , _s3BucketRoutingRuleConditionKeyPrefixEquals :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON S3BucketRoutingRuleCondition where - toJSON S3BucketRoutingRuleCondition{..} = - object $ - catMaybes - [ fmap (("HttpErrorCodeReturnedEquals",) . toJSON) _s3BucketRoutingRuleConditionHttpErrorCodeReturnedEquals - , fmap (("KeyPrefixEquals",) . toJSON) _s3BucketRoutingRuleConditionKeyPrefixEquals - ] - --- | Constructor for 'S3BucketRoutingRuleCondition' containing required fields --- as arguments. -s3BucketRoutingRuleCondition - :: S3BucketRoutingRuleCondition -s3BucketRoutingRuleCondition = - S3BucketRoutingRuleCondition - { _s3BucketRoutingRuleConditionHttpErrorCodeReturnedEquals = Nothing - , _s3BucketRoutingRuleConditionKeyPrefixEquals = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-websiteconfiguration-routingrules-routingrulecondition.html#cfn-s3-websiteconfiguration-routingrules-routingrulecondition-httperrorcodereturnedequals -sbrrcHttpErrorCodeReturnedEquals :: Lens' S3BucketRoutingRuleCondition (Maybe (Val Text)) -sbrrcHttpErrorCodeReturnedEquals = lens _s3BucketRoutingRuleConditionHttpErrorCodeReturnedEquals (\s a -> s { _s3BucketRoutingRuleConditionHttpErrorCodeReturnedEquals = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-websiteconfiguration-routingrules-routingrulecondition.html#cfn-s3-websiteconfiguration-routingrules-routingrulecondition-keyprefixequals -sbrrcKeyPrefixEquals :: Lens' S3BucketRoutingRuleCondition (Maybe (Val Text)) -sbrrcKeyPrefixEquals = lens _s3BucketRoutingRuleConditionKeyPrefixEquals (\s a -> s { _s3BucketRoutingRuleConditionKeyPrefixEquals = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketRule.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketRule.hs +++ /dev/null @@ -1,118 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-lifecycleconfig-rule.html - -module Stratosphere.ResourceProperties.S3BucketRule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.S3BucketAbortIncompleteMultipartUpload -import Stratosphere.ResourceProperties.S3BucketNoncurrentVersionTransition -import Stratosphere.ResourceProperties.S3BucketTagFilter -import Stratosphere.ResourceProperties.S3BucketTransition - --- | Full data type definition for S3BucketRule. See 's3BucketRule' for a more --- convenient constructor. -data S3BucketRule = - S3BucketRule - { _s3BucketRuleAbortIncompleteMultipartUpload :: Maybe S3BucketAbortIncompleteMultipartUpload - , _s3BucketRuleExpirationDate :: Maybe (Val Text) - , _s3BucketRuleExpirationInDays :: Maybe (Val Integer) - , _s3BucketRuleId :: Maybe (Val Text) - , _s3BucketRuleNoncurrentVersionExpirationInDays :: Maybe (Val Integer) - , _s3BucketRuleNoncurrentVersionTransition :: Maybe S3BucketNoncurrentVersionTransition - , _s3BucketRuleNoncurrentVersionTransitions :: Maybe [S3BucketNoncurrentVersionTransition] - , _s3BucketRulePrefix :: Maybe (Val Text) - , _s3BucketRuleStatus :: Val Text - , _s3BucketRuleTagFilters :: Maybe [S3BucketTagFilter] - , _s3BucketRuleTransition :: Maybe S3BucketTransition - , _s3BucketRuleTransitions :: Maybe [S3BucketTransition] - } deriving (Show, Eq) - -instance ToJSON S3BucketRule where - toJSON S3BucketRule{..} = - object $ - catMaybes - [ fmap (("AbortIncompleteMultipartUpload",) . toJSON) _s3BucketRuleAbortIncompleteMultipartUpload - , fmap (("ExpirationDate",) . toJSON) _s3BucketRuleExpirationDate - , fmap (("ExpirationInDays",) . toJSON) _s3BucketRuleExpirationInDays - , fmap (("Id",) . toJSON) _s3BucketRuleId - , fmap (("NoncurrentVersionExpirationInDays",) . toJSON) _s3BucketRuleNoncurrentVersionExpirationInDays - , fmap (("NoncurrentVersionTransition",) . toJSON) _s3BucketRuleNoncurrentVersionTransition - , fmap (("NoncurrentVersionTransitions",) . toJSON) _s3BucketRuleNoncurrentVersionTransitions - , fmap (("Prefix",) . toJSON) _s3BucketRulePrefix - , (Just . ("Status",) . toJSON) _s3BucketRuleStatus - , fmap (("TagFilters",) . toJSON) _s3BucketRuleTagFilters - , fmap (("Transition",) . toJSON) _s3BucketRuleTransition - , fmap (("Transitions",) . toJSON) _s3BucketRuleTransitions - ] - --- | Constructor for 'S3BucketRule' containing required fields as arguments. -s3BucketRule - :: Val Text -- ^ 'sbrStatus' - -> S3BucketRule -s3BucketRule statusarg = - S3BucketRule - { _s3BucketRuleAbortIncompleteMultipartUpload = Nothing - , _s3BucketRuleExpirationDate = Nothing - , _s3BucketRuleExpirationInDays = Nothing - , _s3BucketRuleId = Nothing - , _s3BucketRuleNoncurrentVersionExpirationInDays = Nothing - , _s3BucketRuleNoncurrentVersionTransition = Nothing - , _s3BucketRuleNoncurrentVersionTransitions = Nothing - , _s3BucketRulePrefix = Nothing - , _s3BucketRuleStatus = statusarg - , _s3BucketRuleTagFilters = Nothing - , _s3BucketRuleTransition = Nothing - , _s3BucketRuleTransitions = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-lifecycleconfig-rule.html#cfn-s3-bucket-rule-abortincompletemultipartupload -sbrAbortIncompleteMultipartUpload :: Lens' S3BucketRule (Maybe S3BucketAbortIncompleteMultipartUpload) -sbrAbortIncompleteMultipartUpload = lens _s3BucketRuleAbortIncompleteMultipartUpload (\s a -> s { _s3BucketRuleAbortIncompleteMultipartUpload = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-lifecycleconfig-rule.html#cfn-s3-bucket-lifecycleconfig-rule-expirationdate -sbrExpirationDate :: Lens' S3BucketRule (Maybe (Val Text)) -sbrExpirationDate = lens _s3BucketRuleExpirationDate (\s a -> s { _s3BucketRuleExpirationDate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-lifecycleconfig-rule.html#cfn-s3-bucket-lifecycleconfig-rule-expirationindays -sbrExpirationInDays :: Lens' S3BucketRule (Maybe (Val Integer)) -sbrExpirationInDays = lens _s3BucketRuleExpirationInDays (\s a -> s { _s3BucketRuleExpirationInDays = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-lifecycleconfig-rule.html#cfn-s3-bucket-lifecycleconfig-rule-id -sbrId :: Lens' S3BucketRule (Maybe (Val Text)) -sbrId = lens _s3BucketRuleId (\s a -> s { _s3BucketRuleId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-lifecycleconfig-rule.html#cfn-s3-bucket-lifecycleconfig-rule-noncurrentversionexpirationindays -sbrNoncurrentVersionExpirationInDays :: Lens' S3BucketRule (Maybe (Val Integer)) -sbrNoncurrentVersionExpirationInDays = lens _s3BucketRuleNoncurrentVersionExpirationInDays (\s a -> s { _s3BucketRuleNoncurrentVersionExpirationInDays = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-lifecycleconfig-rule.html#cfn-s3-bucket-lifecycleconfig-rule-noncurrentversiontransition -sbrNoncurrentVersionTransition :: Lens' S3BucketRule (Maybe S3BucketNoncurrentVersionTransition) -sbrNoncurrentVersionTransition = lens _s3BucketRuleNoncurrentVersionTransition (\s a -> s { _s3BucketRuleNoncurrentVersionTransition = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-lifecycleconfig-rule.html#cfn-s3-bucket-lifecycleconfig-rule-noncurrentversiontransitions -sbrNoncurrentVersionTransitions :: Lens' S3BucketRule (Maybe [S3BucketNoncurrentVersionTransition]) -sbrNoncurrentVersionTransitions = lens _s3BucketRuleNoncurrentVersionTransitions (\s a -> s { _s3BucketRuleNoncurrentVersionTransitions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-lifecycleconfig-rule.html#cfn-s3-bucket-lifecycleconfig-rule-prefix -sbrPrefix :: Lens' S3BucketRule (Maybe (Val Text)) -sbrPrefix = lens _s3BucketRulePrefix (\s a -> s { _s3BucketRulePrefix = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-lifecycleconfig-rule.html#cfn-s3-bucket-lifecycleconfig-rule-status -sbrStatus :: Lens' S3BucketRule (Val Text) -sbrStatus = lens _s3BucketRuleStatus (\s a -> s { _s3BucketRuleStatus = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-lifecycleconfig-rule.html#cfn-s3-bucket-rule-tagfilters -sbrTagFilters :: Lens' S3BucketRule (Maybe [S3BucketTagFilter]) -sbrTagFilters = lens _s3BucketRuleTagFilters (\s a -> s { _s3BucketRuleTagFilters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-lifecycleconfig-rule.html#cfn-s3-bucket-lifecycleconfig-rule-transition -sbrTransition :: Lens' S3BucketRule (Maybe S3BucketTransition) -sbrTransition = lens _s3BucketRuleTransition (\s a -> s { _s3BucketRuleTransition = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-lifecycleconfig-rule.html#cfn-s3-bucket-lifecycleconfig-rule-transitions -sbrTransitions :: Lens' S3BucketRule (Maybe [S3BucketTransition]) -sbrTransitions = lens _s3BucketRuleTransitions (\s a -> s { _s3BucketRuleTransitions = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketS3KeyFilter.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketS3KeyFilter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketS3KeyFilter.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-notificationconfiguration-config-filter-s3key.html - -module Stratosphere.ResourceProperties.S3BucketS3KeyFilter where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.S3BucketFilterRule - --- | Full data type definition for S3BucketS3KeyFilter. See --- 's3BucketS3KeyFilter' for a more convenient constructor. -data S3BucketS3KeyFilter = - S3BucketS3KeyFilter - { _s3BucketS3KeyFilterRules :: [S3BucketFilterRule] - } deriving (Show, Eq) - -instance ToJSON S3BucketS3KeyFilter where - toJSON S3BucketS3KeyFilter{..} = - object $ - catMaybes - [ (Just . ("Rules",) . toJSON) _s3BucketS3KeyFilterRules - ] - --- | Constructor for 'S3BucketS3KeyFilter' containing required fields as --- arguments. -s3BucketS3KeyFilter - :: [S3BucketFilterRule] -- ^ 'sbskfRules' - -> S3BucketS3KeyFilter -s3BucketS3KeyFilter rulesarg = - S3BucketS3KeyFilter - { _s3BucketS3KeyFilterRules = rulesarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-notificationconfiguration-config-filter-s3key.html#cfn-s3-bucket-notificationconfiguraiton-config-filter-s3key-rules -sbskfRules :: Lens' S3BucketS3KeyFilter [S3BucketFilterRule] -sbskfRules = lens _s3BucketS3KeyFilterRules (\s a -> s { _s3BucketS3KeyFilterRules = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketServerSideEncryptionByDefault.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketServerSideEncryptionByDefault.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketServerSideEncryptionByDefault.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-serversideencryptionbydefault.html - -module Stratosphere.ResourceProperties.S3BucketServerSideEncryptionByDefault where - -import Stratosphere.ResourceImports - - --- | Full data type definition for S3BucketServerSideEncryptionByDefault. See --- 's3BucketServerSideEncryptionByDefault' for a more convenient --- constructor. -data S3BucketServerSideEncryptionByDefault = - S3BucketServerSideEncryptionByDefault - { _s3BucketServerSideEncryptionByDefaultKMSMasterKeyID :: Maybe (Val Text) - , _s3BucketServerSideEncryptionByDefaultSSEAlgorithm :: Val Text - } deriving (Show, Eq) - -instance ToJSON S3BucketServerSideEncryptionByDefault where - toJSON S3BucketServerSideEncryptionByDefault{..} = - object $ - catMaybes - [ fmap (("KMSMasterKeyID",) . toJSON) _s3BucketServerSideEncryptionByDefaultKMSMasterKeyID - , (Just . ("SSEAlgorithm",) . toJSON) _s3BucketServerSideEncryptionByDefaultSSEAlgorithm - ] - --- | Constructor for 'S3BucketServerSideEncryptionByDefault' containing --- required fields as arguments. -s3BucketServerSideEncryptionByDefault - :: Val Text -- ^ 'sbssebdSSEAlgorithm' - -> S3BucketServerSideEncryptionByDefault -s3BucketServerSideEncryptionByDefault sSEAlgorithmarg = - S3BucketServerSideEncryptionByDefault - { _s3BucketServerSideEncryptionByDefaultKMSMasterKeyID = Nothing - , _s3BucketServerSideEncryptionByDefaultSSEAlgorithm = sSEAlgorithmarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-serversideencryptionbydefault.html#cfn-s3-bucket-serversideencryptionbydefault-kmsmasterkeyid -sbssebdKMSMasterKeyID :: Lens' S3BucketServerSideEncryptionByDefault (Maybe (Val Text)) -sbssebdKMSMasterKeyID = lens _s3BucketServerSideEncryptionByDefaultKMSMasterKeyID (\s a -> s { _s3BucketServerSideEncryptionByDefaultKMSMasterKeyID = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-serversideencryptionbydefault.html#cfn-s3-bucket-serversideencryptionbydefault-ssealgorithm -sbssebdSSEAlgorithm :: Lens' S3BucketServerSideEncryptionByDefault (Val Text) -sbssebdSSEAlgorithm = lens _s3BucketServerSideEncryptionByDefaultSSEAlgorithm (\s a -> s { _s3BucketServerSideEncryptionByDefaultSSEAlgorithm = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketServerSideEncryptionRule.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketServerSideEncryptionRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketServerSideEncryptionRule.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-serversideencryptionrule.html - -module Stratosphere.ResourceProperties.S3BucketServerSideEncryptionRule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.S3BucketServerSideEncryptionByDefault - --- | Full data type definition for S3BucketServerSideEncryptionRule. See --- 's3BucketServerSideEncryptionRule' for a more convenient constructor. -data S3BucketServerSideEncryptionRule = - S3BucketServerSideEncryptionRule - { _s3BucketServerSideEncryptionRuleServerSideEncryptionByDefault :: Maybe S3BucketServerSideEncryptionByDefault - } deriving (Show, Eq) - -instance ToJSON S3BucketServerSideEncryptionRule where - toJSON S3BucketServerSideEncryptionRule{..} = - object $ - catMaybes - [ fmap (("ServerSideEncryptionByDefault",) . toJSON) _s3BucketServerSideEncryptionRuleServerSideEncryptionByDefault - ] - --- | Constructor for 'S3BucketServerSideEncryptionRule' containing required --- fields as arguments. -s3BucketServerSideEncryptionRule - :: S3BucketServerSideEncryptionRule -s3BucketServerSideEncryptionRule = - S3BucketServerSideEncryptionRule - { _s3BucketServerSideEncryptionRuleServerSideEncryptionByDefault = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-serversideencryptionrule.html#cfn-s3-bucket-serversideencryptionrule-serversideencryptionbydefault -sbsserServerSideEncryptionByDefault :: Lens' S3BucketServerSideEncryptionRule (Maybe S3BucketServerSideEncryptionByDefault) -sbsserServerSideEncryptionByDefault = lens _s3BucketServerSideEncryptionRuleServerSideEncryptionByDefault (\s a -> s { _s3BucketServerSideEncryptionRuleServerSideEncryptionByDefault = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketSourceSelectionCriteria.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketSourceSelectionCriteria.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketSourceSelectionCriteria.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-sourceselectioncriteria.html - -module Stratosphere.ResourceProperties.S3BucketSourceSelectionCriteria where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.S3BucketSseKmsEncryptedObjects - --- | Full data type definition for S3BucketSourceSelectionCriteria. See --- 's3BucketSourceSelectionCriteria' for a more convenient constructor. -data S3BucketSourceSelectionCriteria = - S3BucketSourceSelectionCriteria - { _s3BucketSourceSelectionCriteriaSseKmsEncryptedObjects :: S3BucketSseKmsEncryptedObjects - } deriving (Show, Eq) - -instance ToJSON S3BucketSourceSelectionCriteria where - toJSON S3BucketSourceSelectionCriteria{..} = - object $ - catMaybes - [ (Just . ("SseKmsEncryptedObjects",) . toJSON) _s3BucketSourceSelectionCriteriaSseKmsEncryptedObjects - ] - --- | Constructor for 'S3BucketSourceSelectionCriteria' containing required --- fields as arguments. -s3BucketSourceSelectionCriteria - :: S3BucketSseKmsEncryptedObjects -- ^ 'sbsscSseKmsEncryptedObjects' - -> S3BucketSourceSelectionCriteria -s3BucketSourceSelectionCriteria sseKmsEncryptedObjectsarg = - S3BucketSourceSelectionCriteria - { _s3BucketSourceSelectionCriteriaSseKmsEncryptedObjects = sseKmsEncryptedObjectsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-sourceselectioncriteria.html#cfn-s3-bucket-sourceselectioncriteria-ssekmsencryptedobjects -sbsscSseKmsEncryptedObjects :: Lens' S3BucketSourceSelectionCriteria S3BucketSseKmsEncryptedObjects -sbsscSseKmsEncryptedObjects = lens _s3BucketSourceSelectionCriteriaSseKmsEncryptedObjects (\s a -> s { _s3BucketSourceSelectionCriteriaSseKmsEncryptedObjects = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketSseKmsEncryptedObjects.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketSseKmsEncryptedObjects.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketSseKmsEncryptedObjects.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-ssekmsencryptedobjects.html - -module Stratosphere.ResourceProperties.S3BucketSseKmsEncryptedObjects where - -import Stratosphere.ResourceImports - - --- | Full data type definition for S3BucketSseKmsEncryptedObjects. See --- 's3BucketSseKmsEncryptedObjects' for a more convenient constructor. -data S3BucketSseKmsEncryptedObjects = - S3BucketSseKmsEncryptedObjects - { _s3BucketSseKmsEncryptedObjectsStatus :: Val Text - } deriving (Show, Eq) - -instance ToJSON S3BucketSseKmsEncryptedObjects where - toJSON S3BucketSseKmsEncryptedObjects{..} = - object $ - catMaybes - [ (Just . ("Status",) . toJSON) _s3BucketSseKmsEncryptedObjectsStatus - ] - --- | Constructor for 'S3BucketSseKmsEncryptedObjects' containing required --- fields as arguments. -s3BucketSseKmsEncryptedObjects - :: Val Text -- ^ 'sbskeoStatus' - -> S3BucketSseKmsEncryptedObjects -s3BucketSseKmsEncryptedObjects statusarg = - S3BucketSseKmsEncryptedObjects - { _s3BucketSseKmsEncryptedObjectsStatus = statusarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-ssekmsencryptedobjects.html#cfn-s3-bucket-ssekmsencryptedobjects-status -sbskeoStatus :: Lens' S3BucketSseKmsEncryptedObjects (Val Text) -sbskeoStatus = lens _s3BucketSseKmsEncryptedObjectsStatus (\s a -> s { _s3BucketSseKmsEncryptedObjectsStatus = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketStorageClassAnalysis.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketStorageClassAnalysis.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketStorageClassAnalysis.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-storageclassanalysis.html - -module Stratosphere.ResourceProperties.S3BucketStorageClassAnalysis where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.S3BucketDataExport - --- | Full data type definition for S3BucketStorageClassAnalysis. See --- 's3BucketStorageClassAnalysis' for a more convenient constructor. -data S3BucketStorageClassAnalysis = - S3BucketStorageClassAnalysis - { _s3BucketStorageClassAnalysisDataExport :: Maybe S3BucketDataExport - } deriving (Show, Eq) - -instance ToJSON S3BucketStorageClassAnalysis where - toJSON S3BucketStorageClassAnalysis{..} = - object $ - catMaybes - [ fmap (("DataExport",) . toJSON) _s3BucketStorageClassAnalysisDataExport - ] - --- | Constructor for 'S3BucketStorageClassAnalysis' containing required fields --- as arguments. -s3BucketStorageClassAnalysis - :: S3BucketStorageClassAnalysis -s3BucketStorageClassAnalysis = - S3BucketStorageClassAnalysis - { _s3BucketStorageClassAnalysisDataExport = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-storageclassanalysis.html#cfn-s3-bucket-storageclassanalysis-dataexport -sbscaDataExport :: Lens' S3BucketStorageClassAnalysis (Maybe S3BucketDataExport) -sbscaDataExport = lens _s3BucketStorageClassAnalysisDataExport (\s a -> s { _s3BucketStorageClassAnalysisDataExport = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketTagFilter.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketTagFilter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketTagFilter.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-tagfilter.html - -module Stratosphere.ResourceProperties.S3BucketTagFilter where - -import Stratosphere.ResourceImports - - --- | Full data type definition for S3BucketTagFilter. See 's3BucketTagFilter' --- for a more convenient constructor. -data S3BucketTagFilter = - S3BucketTagFilter - { _s3BucketTagFilterKey :: Val Text - , _s3BucketTagFilterValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON S3BucketTagFilter where - toJSON S3BucketTagFilter{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _s3BucketTagFilterKey - , (Just . ("Value",) . toJSON) _s3BucketTagFilterValue - ] - --- | Constructor for 'S3BucketTagFilter' containing required fields as --- arguments. -s3BucketTagFilter - :: Val Text -- ^ 'sbtfKey' - -> Val Text -- ^ 'sbtfValue' - -> S3BucketTagFilter -s3BucketTagFilter keyarg valuearg = - S3BucketTagFilter - { _s3BucketTagFilterKey = keyarg - , _s3BucketTagFilterValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-tagfilter.html#cfn-s3-bucket-tagfilter-key -sbtfKey :: Lens' S3BucketTagFilter (Val Text) -sbtfKey = lens _s3BucketTagFilterKey (\s a -> s { _s3BucketTagFilterKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-tagfilter.html#cfn-s3-bucket-tagfilter-value -sbtfValue :: Lens' S3BucketTagFilter (Val Text) -sbtfValue = lens _s3BucketTagFilterValue (\s a -> s { _s3BucketTagFilterValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketTopicConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketTopicConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketTopicConfiguration.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-notificationconfig-topicconfig.html - -module Stratosphere.ResourceProperties.S3BucketTopicConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.S3BucketNotificationFilter - --- | Full data type definition for S3BucketTopicConfiguration. See --- 's3BucketTopicConfiguration' for a more convenient constructor. -data S3BucketTopicConfiguration = - S3BucketTopicConfiguration - { _s3BucketTopicConfigurationEvent :: Val Text - , _s3BucketTopicConfigurationFilter :: Maybe S3BucketNotificationFilter - , _s3BucketTopicConfigurationTopic :: Val Text - } deriving (Show, Eq) - -instance ToJSON S3BucketTopicConfiguration where - toJSON S3BucketTopicConfiguration{..} = - object $ - catMaybes - [ (Just . ("Event",) . toJSON) _s3BucketTopicConfigurationEvent - , fmap (("Filter",) . toJSON) _s3BucketTopicConfigurationFilter - , (Just . ("Topic",) . toJSON) _s3BucketTopicConfigurationTopic - ] - --- | Constructor for 'S3BucketTopicConfiguration' containing required fields --- as arguments. -s3BucketTopicConfiguration - :: Val Text -- ^ 'sbtcEvent' - -> Val Text -- ^ 'sbtcTopic' - -> S3BucketTopicConfiguration -s3BucketTopicConfiguration eventarg topicarg = - S3BucketTopicConfiguration - { _s3BucketTopicConfigurationEvent = eventarg - , _s3BucketTopicConfigurationFilter = Nothing - , _s3BucketTopicConfigurationTopic = topicarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-notificationconfig-topicconfig.html#cfn-s3-bucket-notificationconfig-topicconfig-event -sbtcEvent :: Lens' S3BucketTopicConfiguration (Val Text) -sbtcEvent = lens _s3BucketTopicConfigurationEvent (\s a -> s { _s3BucketTopicConfigurationEvent = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-notificationconfig-topicconfig.html#cfn-s3-bucket-notificationconfig-topicconfig-filter -sbtcFilter :: Lens' S3BucketTopicConfiguration (Maybe S3BucketNotificationFilter) -sbtcFilter = lens _s3BucketTopicConfigurationFilter (\s a -> s { _s3BucketTopicConfigurationFilter = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-notificationconfig-topicconfig.html#cfn-s3-bucket-notificationconfig-topicconfig-topic -sbtcTopic :: Lens' S3BucketTopicConfiguration (Val Text) -sbtcTopic = lens _s3BucketTopicConfigurationTopic (\s a -> s { _s3BucketTopicConfigurationTopic = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketTransition.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketTransition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketTransition.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-lifecycleconfig-rule-transition.html - -module Stratosphere.ResourceProperties.S3BucketTransition where - -import Stratosphere.ResourceImports - - --- | Full data type definition for S3BucketTransition. See --- 's3BucketTransition' for a more convenient constructor. -data S3BucketTransition = - S3BucketTransition - { _s3BucketTransitionStorageClass :: Val Text - , _s3BucketTransitionTransitionDate :: Maybe (Val Text) - , _s3BucketTransitionTransitionInDays :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON S3BucketTransition where - toJSON S3BucketTransition{..} = - object $ - catMaybes - [ (Just . ("StorageClass",) . toJSON) _s3BucketTransitionStorageClass - , fmap (("TransitionDate",) . toJSON) _s3BucketTransitionTransitionDate - , fmap (("TransitionInDays",) . toJSON) _s3BucketTransitionTransitionInDays - ] - --- | Constructor for 'S3BucketTransition' containing required fields as --- arguments. -s3BucketTransition - :: Val Text -- ^ 'sbtStorageClass' - -> S3BucketTransition -s3BucketTransition storageClassarg = - S3BucketTransition - { _s3BucketTransitionStorageClass = storageClassarg - , _s3BucketTransitionTransitionDate = Nothing - , _s3BucketTransitionTransitionInDays = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-lifecycleconfig-rule-transition.html#cfn-s3-bucket-lifecycleconfig-rule-transition-storageclass -sbtStorageClass :: Lens' S3BucketTransition (Val Text) -sbtStorageClass = lens _s3BucketTransitionStorageClass (\s a -> s { _s3BucketTransitionStorageClass = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-lifecycleconfig-rule-transition.html#cfn-s3-bucket-lifecycleconfig-rule-transition-transitiondate -sbtTransitionDate :: Lens' S3BucketTransition (Maybe (Val Text)) -sbtTransitionDate = lens _s3BucketTransitionTransitionDate (\s a -> s { _s3BucketTransitionTransitionDate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-lifecycleconfig-rule-transition.html#cfn-s3-bucket-lifecycleconfig-rule-transition-transitionindays -sbtTransitionInDays :: Lens' S3BucketTransition (Maybe (Val Integer)) -sbtTransitionInDays = lens _s3BucketTransitionTransitionInDays (\s a -> s { _s3BucketTransitionTransitionInDays = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketVersioningConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketVersioningConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketVersioningConfiguration.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-versioningconfig.html - -module Stratosphere.ResourceProperties.S3BucketVersioningConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for S3BucketVersioningConfiguration. See --- 's3BucketVersioningConfiguration' for a more convenient constructor. -data S3BucketVersioningConfiguration = - S3BucketVersioningConfiguration - { _s3BucketVersioningConfigurationStatus :: Val Text - } deriving (Show, Eq) - -instance ToJSON S3BucketVersioningConfiguration where - toJSON S3BucketVersioningConfiguration{..} = - object $ - catMaybes - [ (Just . ("Status",) . toJSON) _s3BucketVersioningConfigurationStatus - ] - --- | Constructor for 'S3BucketVersioningConfiguration' containing required --- fields as arguments. -s3BucketVersioningConfiguration - :: Val Text -- ^ 'sbvcStatus' - -> S3BucketVersioningConfiguration -s3BucketVersioningConfiguration statusarg = - S3BucketVersioningConfiguration - { _s3BucketVersioningConfigurationStatus = statusarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-versioningconfig.html#cfn-s3-bucket-versioningconfig-status -sbvcStatus :: Lens' S3BucketVersioningConfiguration (Val Text) -sbvcStatus = lens _s3BucketVersioningConfigurationStatus (\s a -> s { _s3BucketVersioningConfigurationStatus = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/S3BucketWebsiteConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/S3BucketWebsiteConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/S3BucketWebsiteConfiguration.hs +++ /dev/null @@ -1,60 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-websiteconfiguration.html - -module Stratosphere.ResourceProperties.S3BucketWebsiteConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.S3BucketRedirectAllRequestsTo -import Stratosphere.ResourceProperties.S3BucketRoutingRule - --- | Full data type definition for S3BucketWebsiteConfiguration. See --- 's3BucketWebsiteConfiguration' for a more convenient constructor. -data S3BucketWebsiteConfiguration = - S3BucketWebsiteConfiguration - { _s3BucketWebsiteConfigurationErrorDocument :: Maybe (Val Text) - , _s3BucketWebsiteConfigurationIndexDocument :: Maybe (Val Text) - , _s3BucketWebsiteConfigurationRedirectAllRequestsTo :: Maybe S3BucketRedirectAllRequestsTo - , _s3BucketWebsiteConfigurationRoutingRules :: Maybe [S3BucketRoutingRule] - } deriving (Show, Eq) - -instance ToJSON S3BucketWebsiteConfiguration where - toJSON S3BucketWebsiteConfiguration{..} = - object $ - catMaybes - [ fmap (("ErrorDocument",) . toJSON) _s3BucketWebsiteConfigurationErrorDocument - , fmap (("IndexDocument",) . toJSON) _s3BucketWebsiteConfigurationIndexDocument - , fmap (("RedirectAllRequestsTo",) . toJSON) _s3BucketWebsiteConfigurationRedirectAllRequestsTo - , fmap (("RoutingRules",) . toJSON) _s3BucketWebsiteConfigurationRoutingRules - ] - --- | Constructor for 'S3BucketWebsiteConfiguration' containing required fields --- as arguments. -s3BucketWebsiteConfiguration - :: S3BucketWebsiteConfiguration -s3BucketWebsiteConfiguration = - S3BucketWebsiteConfiguration - { _s3BucketWebsiteConfigurationErrorDocument = Nothing - , _s3BucketWebsiteConfigurationIndexDocument = Nothing - , _s3BucketWebsiteConfigurationRedirectAllRequestsTo = Nothing - , _s3BucketWebsiteConfigurationRoutingRules = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-websiteconfiguration.html#cfn-s3-websiteconfiguration-errordocument -sbwcErrorDocument :: Lens' S3BucketWebsiteConfiguration (Maybe (Val Text)) -sbwcErrorDocument = lens _s3BucketWebsiteConfigurationErrorDocument (\s a -> s { _s3BucketWebsiteConfigurationErrorDocument = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-websiteconfiguration.html#cfn-s3-websiteconfiguration-indexdocument -sbwcIndexDocument :: Lens' S3BucketWebsiteConfiguration (Maybe (Val Text)) -sbwcIndexDocument = lens _s3BucketWebsiteConfigurationIndexDocument (\s a -> s { _s3BucketWebsiteConfigurationIndexDocument = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-websiteconfiguration.html#cfn-s3-websiteconfiguration-redirectallrequeststo -sbwcRedirectAllRequestsTo :: Lens' S3BucketWebsiteConfiguration (Maybe S3BucketRedirectAllRequestsTo) -sbwcRedirectAllRequestsTo = lens _s3BucketWebsiteConfigurationRedirectAllRequestsTo (\s a -> s { _s3BucketWebsiteConfigurationRedirectAllRequestsTo = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-websiteconfiguration.html#cfn-s3-websiteconfiguration-routingrules -sbwcRoutingRules :: Lens' S3BucketWebsiteConfiguration (Maybe [S3BucketRoutingRule]) -sbwcRoutingRules = lens _s3BucketWebsiteConfigurationRoutingRules (\s a -> s { _s3BucketWebsiteConfigurationRoutingRules = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SESConfigurationSetEventDestinationCloudWatchDestination.hs b/library-gen/Stratosphere/ResourceProperties/SESConfigurationSetEventDestinationCloudWatchDestination.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SESConfigurationSetEventDestinationCloudWatchDestination.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-configurationseteventdestination-cloudwatchdestination.html - -module Stratosphere.ResourceProperties.SESConfigurationSetEventDestinationCloudWatchDestination where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SESConfigurationSetEventDestinationDimensionConfiguration - --- | Full data type definition for --- SESConfigurationSetEventDestinationCloudWatchDestination. See --- 'sesConfigurationSetEventDestinationCloudWatchDestination' for a more --- convenient constructor. -data SESConfigurationSetEventDestinationCloudWatchDestination = - SESConfigurationSetEventDestinationCloudWatchDestination - { _sESConfigurationSetEventDestinationCloudWatchDestinationDimensionConfigurations :: Maybe [SESConfigurationSetEventDestinationDimensionConfiguration] - } deriving (Show, Eq) - -instance ToJSON SESConfigurationSetEventDestinationCloudWatchDestination where - toJSON SESConfigurationSetEventDestinationCloudWatchDestination{..} = - object $ - catMaybes - [ fmap (("DimensionConfigurations",) . toJSON) _sESConfigurationSetEventDestinationCloudWatchDestinationDimensionConfigurations - ] - --- | Constructor for --- 'SESConfigurationSetEventDestinationCloudWatchDestination' containing --- required fields as arguments. -sesConfigurationSetEventDestinationCloudWatchDestination - :: SESConfigurationSetEventDestinationCloudWatchDestination -sesConfigurationSetEventDestinationCloudWatchDestination = - SESConfigurationSetEventDestinationCloudWatchDestination - { _sESConfigurationSetEventDestinationCloudWatchDestinationDimensionConfigurations = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-configurationseteventdestination-cloudwatchdestination.html#cfn-ses-configurationseteventdestination-cloudwatchdestination-dimensionconfigurations -sescsedcwdDimensionConfigurations :: Lens' SESConfigurationSetEventDestinationCloudWatchDestination (Maybe [SESConfigurationSetEventDestinationDimensionConfiguration]) -sescsedcwdDimensionConfigurations = lens _sESConfigurationSetEventDestinationCloudWatchDestinationDimensionConfigurations (\s a -> s { _sESConfigurationSetEventDestinationCloudWatchDestinationDimensionConfigurations = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SESConfigurationSetEventDestinationDimensionConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/SESConfigurationSetEventDestinationDimensionConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SESConfigurationSetEventDestinationDimensionConfiguration.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-configurationseteventdestination-dimensionconfiguration.html - -module Stratosphere.ResourceProperties.SESConfigurationSetEventDestinationDimensionConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- SESConfigurationSetEventDestinationDimensionConfiguration. See --- 'sesConfigurationSetEventDestinationDimensionConfiguration' for a more --- convenient constructor. -data SESConfigurationSetEventDestinationDimensionConfiguration = - SESConfigurationSetEventDestinationDimensionConfiguration - { _sESConfigurationSetEventDestinationDimensionConfigurationDefaultDimensionValue :: Val Text - , _sESConfigurationSetEventDestinationDimensionConfigurationDimensionName :: Val Text - , _sESConfigurationSetEventDestinationDimensionConfigurationDimensionValueSource :: Val Text - } deriving (Show, Eq) - -instance ToJSON SESConfigurationSetEventDestinationDimensionConfiguration where - toJSON SESConfigurationSetEventDestinationDimensionConfiguration{..} = - object $ - catMaybes - [ (Just . ("DefaultDimensionValue",) . toJSON) _sESConfigurationSetEventDestinationDimensionConfigurationDefaultDimensionValue - , (Just . ("DimensionName",) . toJSON) _sESConfigurationSetEventDestinationDimensionConfigurationDimensionName - , (Just . ("DimensionValueSource",) . toJSON) _sESConfigurationSetEventDestinationDimensionConfigurationDimensionValueSource - ] - --- | Constructor for --- 'SESConfigurationSetEventDestinationDimensionConfiguration' containing --- required fields as arguments. -sesConfigurationSetEventDestinationDimensionConfiguration - :: Val Text -- ^ 'sescseddcDefaultDimensionValue' - -> Val Text -- ^ 'sescseddcDimensionName' - -> Val Text -- ^ 'sescseddcDimensionValueSource' - -> SESConfigurationSetEventDestinationDimensionConfiguration -sesConfigurationSetEventDestinationDimensionConfiguration defaultDimensionValuearg dimensionNamearg dimensionValueSourcearg = - SESConfigurationSetEventDestinationDimensionConfiguration - { _sESConfigurationSetEventDestinationDimensionConfigurationDefaultDimensionValue = defaultDimensionValuearg - , _sESConfigurationSetEventDestinationDimensionConfigurationDimensionName = dimensionNamearg - , _sESConfigurationSetEventDestinationDimensionConfigurationDimensionValueSource = dimensionValueSourcearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-configurationseteventdestination-dimensionconfiguration.html#cfn-ses-configurationseteventdestination-dimensionconfiguration-defaultdimensionvalue -sescseddcDefaultDimensionValue :: Lens' SESConfigurationSetEventDestinationDimensionConfiguration (Val Text) -sescseddcDefaultDimensionValue = lens _sESConfigurationSetEventDestinationDimensionConfigurationDefaultDimensionValue (\s a -> s { _sESConfigurationSetEventDestinationDimensionConfigurationDefaultDimensionValue = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-configurationseteventdestination-dimensionconfiguration.html#cfn-ses-configurationseteventdestination-dimensionconfiguration-dimensionname -sescseddcDimensionName :: Lens' SESConfigurationSetEventDestinationDimensionConfiguration (Val Text) -sescseddcDimensionName = lens _sESConfigurationSetEventDestinationDimensionConfigurationDimensionName (\s a -> s { _sESConfigurationSetEventDestinationDimensionConfigurationDimensionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-configurationseteventdestination-dimensionconfiguration.html#cfn-ses-configurationseteventdestination-dimensionconfiguration-dimensionvaluesource -sescseddcDimensionValueSource :: Lens' SESConfigurationSetEventDestinationDimensionConfiguration (Val Text) -sescseddcDimensionValueSource = lens _sESConfigurationSetEventDestinationDimensionConfigurationDimensionValueSource (\s a -> s { _sESConfigurationSetEventDestinationDimensionConfigurationDimensionValueSource = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SESConfigurationSetEventDestinationEventDestination.hs b/library-gen/Stratosphere/ResourceProperties/SESConfigurationSetEventDestinationEventDestination.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SESConfigurationSetEventDestinationEventDestination.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-configurationseteventdestination-eventdestination.html - -module Stratosphere.ResourceProperties.SESConfigurationSetEventDestinationEventDestination where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SESConfigurationSetEventDestinationCloudWatchDestination -import Stratosphere.ResourceProperties.SESConfigurationSetEventDestinationKinesisFirehoseDestination - --- | Full data type definition for --- SESConfigurationSetEventDestinationEventDestination. See --- 'sesConfigurationSetEventDestinationEventDestination' for a more --- convenient constructor. -data SESConfigurationSetEventDestinationEventDestination = - SESConfigurationSetEventDestinationEventDestination - { _sESConfigurationSetEventDestinationEventDestinationCloudWatchDestination :: Maybe SESConfigurationSetEventDestinationCloudWatchDestination - , _sESConfigurationSetEventDestinationEventDestinationEnabled :: Maybe (Val Bool) - , _sESConfigurationSetEventDestinationEventDestinationKinesisFirehoseDestination :: Maybe SESConfigurationSetEventDestinationKinesisFirehoseDestination - , _sESConfigurationSetEventDestinationEventDestinationMatchingEventTypes :: ValList Text - , _sESConfigurationSetEventDestinationEventDestinationName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON SESConfigurationSetEventDestinationEventDestination where - toJSON SESConfigurationSetEventDestinationEventDestination{..} = - object $ - catMaybes - [ fmap (("CloudWatchDestination",) . toJSON) _sESConfigurationSetEventDestinationEventDestinationCloudWatchDestination - , fmap (("Enabled",) . toJSON) _sESConfigurationSetEventDestinationEventDestinationEnabled - , fmap (("KinesisFirehoseDestination",) . toJSON) _sESConfigurationSetEventDestinationEventDestinationKinesisFirehoseDestination - , (Just . ("MatchingEventTypes",) . toJSON) _sESConfigurationSetEventDestinationEventDestinationMatchingEventTypes - , fmap (("Name",) . toJSON) _sESConfigurationSetEventDestinationEventDestinationName - ] - --- | Constructor for 'SESConfigurationSetEventDestinationEventDestination' --- containing required fields as arguments. -sesConfigurationSetEventDestinationEventDestination - :: ValList Text -- ^ 'sescsededMatchingEventTypes' - -> SESConfigurationSetEventDestinationEventDestination -sesConfigurationSetEventDestinationEventDestination matchingEventTypesarg = - SESConfigurationSetEventDestinationEventDestination - { _sESConfigurationSetEventDestinationEventDestinationCloudWatchDestination = Nothing - , _sESConfigurationSetEventDestinationEventDestinationEnabled = Nothing - , _sESConfigurationSetEventDestinationEventDestinationKinesisFirehoseDestination = Nothing - , _sESConfigurationSetEventDestinationEventDestinationMatchingEventTypes = matchingEventTypesarg - , _sESConfigurationSetEventDestinationEventDestinationName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-configurationseteventdestination-eventdestination.html#cfn-ses-configurationseteventdestination-eventdestination-cloudwatchdestination -sescsededCloudWatchDestination :: Lens' SESConfigurationSetEventDestinationEventDestination (Maybe SESConfigurationSetEventDestinationCloudWatchDestination) -sescsededCloudWatchDestination = lens _sESConfigurationSetEventDestinationEventDestinationCloudWatchDestination (\s a -> s { _sESConfigurationSetEventDestinationEventDestinationCloudWatchDestination = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-configurationseteventdestination-eventdestination.html#cfn-ses-configurationseteventdestination-eventdestination-enabled -sescsededEnabled :: Lens' SESConfigurationSetEventDestinationEventDestination (Maybe (Val Bool)) -sescsededEnabled = lens _sESConfigurationSetEventDestinationEventDestinationEnabled (\s a -> s { _sESConfigurationSetEventDestinationEventDestinationEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-configurationseteventdestination-eventdestination.html#cfn-ses-configurationseteventdestination-eventdestination-kinesisfirehosedestination -sescsededKinesisFirehoseDestination :: Lens' SESConfigurationSetEventDestinationEventDestination (Maybe SESConfigurationSetEventDestinationKinesisFirehoseDestination) -sescsededKinesisFirehoseDestination = lens _sESConfigurationSetEventDestinationEventDestinationKinesisFirehoseDestination (\s a -> s { _sESConfigurationSetEventDestinationEventDestinationKinesisFirehoseDestination = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-configurationseteventdestination-eventdestination.html#cfn-ses-configurationseteventdestination-eventdestination-matchingeventtypes -sescsededMatchingEventTypes :: Lens' SESConfigurationSetEventDestinationEventDestination (ValList Text) -sescsededMatchingEventTypes = lens _sESConfigurationSetEventDestinationEventDestinationMatchingEventTypes (\s a -> s { _sESConfigurationSetEventDestinationEventDestinationMatchingEventTypes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-configurationseteventdestination-eventdestination.html#cfn-ses-configurationseteventdestination-eventdestination-name -sescsededName :: Lens' SESConfigurationSetEventDestinationEventDestination (Maybe (Val Text)) -sescsededName = lens _sESConfigurationSetEventDestinationEventDestinationName (\s a -> s { _sESConfigurationSetEventDestinationEventDestinationName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SESConfigurationSetEventDestinationKinesisFirehoseDestination.hs b/library-gen/Stratosphere/ResourceProperties/SESConfigurationSetEventDestinationKinesisFirehoseDestination.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SESConfigurationSetEventDestinationKinesisFirehoseDestination.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-configurationseteventdestination-kinesisfirehosedestination.html - -module Stratosphere.ResourceProperties.SESConfigurationSetEventDestinationKinesisFirehoseDestination where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- SESConfigurationSetEventDestinationKinesisFirehoseDestination. See --- 'sesConfigurationSetEventDestinationKinesisFirehoseDestination' for a --- more convenient constructor. -data SESConfigurationSetEventDestinationKinesisFirehoseDestination = - SESConfigurationSetEventDestinationKinesisFirehoseDestination - { _sESConfigurationSetEventDestinationKinesisFirehoseDestinationDeliveryStreamARN :: Val Text - , _sESConfigurationSetEventDestinationKinesisFirehoseDestinationIAMRoleARN :: Val Text - } deriving (Show, Eq) - -instance ToJSON SESConfigurationSetEventDestinationKinesisFirehoseDestination where - toJSON SESConfigurationSetEventDestinationKinesisFirehoseDestination{..} = - object $ - catMaybes - [ (Just . ("DeliveryStreamARN",) . toJSON) _sESConfigurationSetEventDestinationKinesisFirehoseDestinationDeliveryStreamARN - , (Just . ("IAMRoleARN",) . toJSON) _sESConfigurationSetEventDestinationKinesisFirehoseDestinationIAMRoleARN - ] - --- | Constructor for --- 'SESConfigurationSetEventDestinationKinesisFirehoseDestination' --- containing required fields as arguments. -sesConfigurationSetEventDestinationKinesisFirehoseDestination - :: Val Text -- ^ 'sescsedkfdDeliveryStreamARN' - -> Val Text -- ^ 'sescsedkfdIAMRoleARN' - -> SESConfigurationSetEventDestinationKinesisFirehoseDestination -sesConfigurationSetEventDestinationKinesisFirehoseDestination deliveryStreamARNarg iAMRoleARNarg = - SESConfigurationSetEventDestinationKinesisFirehoseDestination - { _sESConfigurationSetEventDestinationKinesisFirehoseDestinationDeliveryStreamARN = deliveryStreamARNarg - , _sESConfigurationSetEventDestinationKinesisFirehoseDestinationIAMRoleARN = iAMRoleARNarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-configurationseteventdestination-kinesisfirehosedestination.html#cfn-ses-configurationseteventdestination-kinesisfirehosedestination-deliverystreamarn -sescsedkfdDeliveryStreamARN :: Lens' SESConfigurationSetEventDestinationKinesisFirehoseDestination (Val Text) -sescsedkfdDeliveryStreamARN = lens _sESConfigurationSetEventDestinationKinesisFirehoseDestinationDeliveryStreamARN (\s a -> s { _sESConfigurationSetEventDestinationKinesisFirehoseDestinationDeliveryStreamARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-configurationseteventdestination-kinesisfirehosedestination.html#cfn-ses-configurationseteventdestination-kinesisfirehosedestination-iamrolearn -sescsedkfdIAMRoleARN :: Lens' SESConfigurationSetEventDestinationKinesisFirehoseDestination (Val Text) -sescsedkfdIAMRoleARN = lens _sESConfigurationSetEventDestinationKinesisFirehoseDestinationIAMRoleARN (\s a -> s { _sESConfigurationSetEventDestinationKinesisFirehoseDestinationIAMRoleARN = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SESReceiptFilterFilter.hs b/library-gen/Stratosphere/ResourceProperties/SESReceiptFilterFilter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SESReceiptFilterFilter.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptfilter-filter.html - -module Stratosphere.ResourceProperties.SESReceiptFilterFilter where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SESReceiptFilterIpFilter - --- | Full data type definition for SESReceiptFilterFilter. See --- 'sesReceiptFilterFilter' for a more convenient constructor. -data SESReceiptFilterFilter = - SESReceiptFilterFilter - { _sESReceiptFilterFilterIpFilter :: SESReceiptFilterIpFilter - , _sESReceiptFilterFilterName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON SESReceiptFilterFilter where - toJSON SESReceiptFilterFilter{..} = - object $ - catMaybes - [ (Just . ("IpFilter",) . toJSON) _sESReceiptFilterFilterIpFilter - , fmap (("Name",) . toJSON) _sESReceiptFilterFilterName - ] - --- | Constructor for 'SESReceiptFilterFilter' containing required fields as --- arguments. -sesReceiptFilterFilter - :: SESReceiptFilterIpFilter -- ^ 'sesrffIpFilter' - -> SESReceiptFilterFilter -sesReceiptFilterFilter ipFilterarg = - SESReceiptFilterFilter - { _sESReceiptFilterFilterIpFilter = ipFilterarg - , _sESReceiptFilterFilterName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptfilter-filter.html#cfn-ses-receiptfilter-filter-ipfilter -sesrffIpFilter :: Lens' SESReceiptFilterFilter SESReceiptFilterIpFilter -sesrffIpFilter = lens _sESReceiptFilterFilterIpFilter (\s a -> s { _sESReceiptFilterFilterIpFilter = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptfilter-filter.html#cfn-ses-receiptfilter-filter-name -sesrffName :: Lens' SESReceiptFilterFilter (Maybe (Val Text)) -sesrffName = lens _sESReceiptFilterFilterName (\s a -> s { _sESReceiptFilterFilterName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SESReceiptFilterIpFilter.hs b/library-gen/Stratosphere/ResourceProperties/SESReceiptFilterIpFilter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SESReceiptFilterIpFilter.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptfilter-ipfilter.html - -module Stratosphere.ResourceProperties.SESReceiptFilterIpFilter where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SESReceiptFilterIpFilter. See --- 'sesReceiptFilterIpFilter' for a more convenient constructor. -data SESReceiptFilterIpFilter = - SESReceiptFilterIpFilter - { _sESReceiptFilterIpFilterCidr :: Val Text - , _sESReceiptFilterIpFilterPolicy :: Val Text - } deriving (Show, Eq) - -instance ToJSON SESReceiptFilterIpFilter where - toJSON SESReceiptFilterIpFilter{..} = - object $ - catMaybes - [ (Just . ("Cidr",) . toJSON) _sESReceiptFilterIpFilterCidr - , (Just . ("Policy",) . toJSON) _sESReceiptFilterIpFilterPolicy - ] - --- | Constructor for 'SESReceiptFilterIpFilter' containing required fields as --- arguments. -sesReceiptFilterIpFilter - :: Val Text -- ^ 'sesrfifCidr' - -> Val Text -- ^ 'sesrfifPolicy' - -> SESReceiptFilterIpFilter -sesReceiptFilterIpFilter cidrarg policyarg = - SESReceiptFilterIpFilter - { _sESReceiptFilterIpFilterCidr = cidrarg - , _sESReceiptFilterIpFilterPolicy = policyarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptfilter-ipfilter.html#cfn-ses-receiptfilter-ipfilter-cidr -sesrfifCidr :: Lens' SESReceiptFilterIpFilter (Val Text) -sesrfifCidr = lens _sESReceiptFilterIpFilterCidr (\s a -> s { _sESReceiptFilterIpFilterCidr = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptfilter-ipfilter.html#cfn-ses-receiptfilter-ipfilter-policy -sesrfifPolicy :: Lens' SESReceiptFilterIpFilter (Val Text) -sesrfifPolicy = lens _sESReceiptFilterIpFilterPolicy (\s a -> s { _sESReceiptFilterIpFilterPolicy = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SESReceiptRuleAction.hs b/library-gen/Stratosphere/ResourceProperties/SESReceiptRuleAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SESReceiptRuleAction.hs +++ /dev/null @@ -1,86 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-action.html - -module Stratosphere.ResourceProperties.SESReceiptRuleAction where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SESReceiptRuleAddHeaderAction -import Stratosphere.ResourceProperties.SESReceiptRuleBounceAction -import Stratosphere.ResourceProperties.SESReceiptRuleLambdaAction -import Stratosphere.ResourceProperties.SESReceiptRuleS3Action -import Stratosphere.ResourceProperties.SESReceiptRuleSNSAction -import Stratosphere.ResourceProperties.SESReceiptRuleStopAction -import Stratosphere.ResourceProperties.SESReceiptRuleWorkmailAction - --- | Full data type definition for SESReceiptRuleAction. See --- 'sesReceiptRuleAction' for a more convenient constructor. -data SESReceiptRuleAction = - SESReceiptRuleAction - { _sESReceiptRuleActionAddHeaderAction :: Maybe SESReceiptRuleAddHeaderAction - , _sESReceiptRuleActionBounceAction :: Maybe SESReceiptRuleBounceAction - , _sESReceiptRuleActionLambdaAction :: Maybe SESReceiptRuleLambdaAction - , _sESReceiptRuleActionS3Action :: Maybe SESReceiptRuleS3Action - , _sESReceiptRuleActionSNSAction :: Maybe SESReceiptRuleSNSAction - , _sESReceiptRuleActionStopAction :: Maybe SESReceiptRuleStopAction - , _sESReceiptRuleActionWorkmailAction :: Maybe SESReceiptRuleWorkmailAction - } deriving (Show, Eq) - -instance ToJSON SESReceiptRuleAction where - toJSON SESReceiptRuleAction{..} = - object $ - catMaybes - [ fmap (("AddHeaderAction",) . toJSON) _sESReceiptRuleActionAddHeaderAction - , fmap (("BounceAction",) . toJSON) _sESReceiptRuleActionBounceAction - , fmap (("LambdaAction",) . toJSON) _sESReceiptRuleActionLambdaAction - , fmap (("S3Action",) . toJSON) _sESReceiptRuleActionS3Action - , fmap (("SNSAction",) . toJSON) _sESReceiptRuleActionSNSAction - , fmap (("StopAction",) . toJSON) _sESReceiptRuleActionStopAction - , fmap (("WorkmailAction",) . toJSON) _sESReceiptRuleActionWorkmailAction - ] - --- | Constructor for 'SESReceiptRuleAction' containing required fields as --- arguments. -sesReceiptRuleAction - :: SESReceiptRuleAction -sesReceiptRuleAction = - SESReceiptRuleAction - { _sESReceiptRuleActionAddHeaderAction = Nothing - , _sESReceiptRuleActionBounceAction = Nothing - , _sESReceiptRuleActionLambdaAction = Nothing - , _sESReceiptRuleActionS3Action = Nothing - , _sESReceiptRuleActionSNSAction = Nothing - , _sESReceiptRuleActionStopAction = Nothing - , _sESReceiptRuleActionWorkmailAction = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-action.html#cfn-ses-receiptrule-action-addheaderaction -sesrraAddHeaderAction :: Lens' SESReceiptRuleAction (Maybe SESReceiptRuleAddHeaderAction) -sesrraAddHeaderAction = lens _sESReceiptRuleActionAddHeaderAction (\s a -> s { _sESReceiptRuleActionAddHeaderAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-action.html#cfn-ses-receiptrule-action-bounceaction -sesrraBounceAction :: Lens' SESReceiptRuleAction (Maybe SESReceiptRuleBounceAction) -sesrraBounceAction = lens _sESReceiptRuleActionBounceAction (\s a -> s { _sESReceiptRuleActionBounceAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-action.html#cfn-ses-receiptrule-action-lambdaaction -sesrraLambdaAction :: Lens' SESReceiptRuleAction (Maybe SESReceiptRuleLambdaAction) -sesrraLambdaAction = lens _sESReceiptRuleActionLambdaAction (\s a -> s { _sESReceiptRuleActionLambdaAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-action.html#cfn-ses-receiptrule-action-s3action -sesrraS3Action :: Lens' SESReceiptRuleAction (Maybe SESReceiptRuleS3Action) -sesrraS3Action = lens _sESReceiptRuleActionS3Action (\s a -> s { _sESReceiptRuleActionS3Action = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-action.html#cfn-ses-receiptrule-action-snsaction -sesrraSNSAction :: Lens' SESReceiptRuleAction (Maybe SESReceiptRuleSNSAction) -sesrraSNSAction = lens _sESReceiptRuleActionSNSAction (\s a -> s { _sESReceiptRuleActionSNSAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-action.html#cfn-ses-receiptrule-action-stopaction -sesrraStopAction :: Lens' SESReceiptRuleAction (Maybe SESReceiptRuleStopAction) -sesrraStopAction = lens _sESReceiptRuleActionStopAction (\s a -> s { _sESReceiptRuleActionStopAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-action.html#cfn-ses-receiptrule-action-workmailaction -sesrraWorkmailAction :: Lens' SESReceiptRuleAction (Maybe SESReceiptRuleWorkmailAction) -sesrraWorkmailAction = lens _sESReceiptRuleActionWorkmailAction (\s a -> s { _sESReceiptRuleActionWorkmailAction = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SESReceiptRuleAddHeaderAction.hs b/library-gen/Stratosphere/ResourceProperties/SESReceiptRuleAddHeaderAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SESReceiptRuleAddHeaderAction.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-addheaderaction.html - -module Stratosphere.ResourceProperties.SESReceiptRuleAddHeaderAction where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SESReceiptRuleAddHeaderAction. See --- 'sesReceiptRuleAddHeaderAction' for a more convenient constructor. -data SESReceiptRuleAddHeaderAction = - SESReceiptRuleAddHeaderAction - { _sESReceiptRuleAddHeaderActionHeaderName :: Val Text - , _sESReceiptRuleAddHeaderActionHeaderValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON SESReceiptRuleAddHeaderAction where - toJSON SESReceiptRuleAddHeaderAction{..} = - object $ - catMaybes - [ (Just . ("HeaderName",) . toJSON) _sESReceiptRuleAddHeaderActionHeaderName - , (Just . ("HeaderValue",) . toJSON) _sESReceiptRuleAddHeaderActionHeaderValue - ] - --- | Constructor for 'SESReceiptRuleAddHeaderAction' containing required --- fields as arguments. -sesReceiptRuleAddHeaderAction - :: Val Text -- ^ 'sesrrahaHeaderName' - -> Val Text -- ^ 'sesrrahaHeaderValue' - -> SESReceiptRuleAddHeaderAction -sesReceiptRuleAddHeaderAction headerNamearg headerValuearg = - SESReceiptRuleAddHeaderAction - { _sESReceiptRuleAddHeaderActionHeaderName = headerNamearg - , _sESReceiptRuleAddHeaderActionHeaderValue = headerValuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-addheaderaction.html#cfn-ses-receiptrule-addheaderaction-headername -sesrrahaHeaderName :: Lens' SESReceiptRuleAddHeaderAction (Val Text) -sesrrahaHeaderName = lens _sESReceiptRuleAddHeaderActionHeaderName (\s a -> s { _sESReceiptRuleAddHeaderActionHeaderName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-addheaderaction.html#cfn-ses-receiptrule-addheaderaction-headervalue -sesrrahaHeaderValue :: Lens' SESReceiptRuleAddHeaderAction (Val Text) -sesrrahaHeaderValue = lens _sESReceiptRuleAddHeaderActionHeaderValue (\s a -> s { _sESReceiptRuleAddHeaderActionHeaderValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SESReceiptRuleBounceAction.hs b/library-gen/Stratosphere/ResourceProperties/SESReceiptRuleBounceAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SESReceiptRuleBounceAction.hs +++ /dev/null @@ -1,69 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-bounceaction.html - -module Stratosphere.ResourceProperties.SESReceiptRuleBounceAction where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SESReceiptRuleBounceAction. See --- 'sesReceiptRuleBounceAction' for a more convenient constructor. -data SESReceiptRuleBounceAction = - SESReceiptRuleBounceAction - { _sESReceiptRuleBounceActionMessage :: Val Text - , _sESReceiptRuleBounceActionSender :: Val Text - , _sESReceiptRuleBounceActionSmtpReplyCode :: Val Text - , _sESReceiptRuleBounceActionStatusCode :: Maybe (Val Text) - , _sESReceiptRuleBounceActionTopicArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON SESReceiptRuleBounceAction where - toJSON SESReceiptRuleBounceAction{..} = - object $ - catMaybes - [ (Just . ("Message",) . toJSON) _sESReceiptRuleBounceActionMessage - , (Just . ("Sender",) . toJSON) _sESReceiptRuleBounceActionSender - , (Just . ("SmtpReplyCode",) . toJSON) _sESReceiptRuleBounceActionSmtpReplyCode - , fmap (("StatusCode",) . toJSON) _sESReceiptRuleBounceActionStatusCode - , fmap (("TopicArn",) . toJSON) _sESReceiptRuleBounceActionTopicArn - ] - --- | Constructor for 'SESReceiptRuleBounceAction' containing required fields --- as arguments. -sesReceiptRuleBounceAction - :: Val Text -- ^ 'sesrrbaMessage' - -> Val Text -- ^ 'sesrrbaSender' - -> Val Text -- ^ 'sesrrbaSmtpReplyCode' - -> SESReceiptRuleBounceAction -sesReceiptRuleBounceAction messagearg senderarg smtpReplyCodearg = - SESReceiptRuleBounceAction - { _sESReceiptRuleBounceActionMessage = messagearg - , _sESReceiptRuleBounceActionSender = senderarg - , _sESReceiptRuleBounceActionSmtpReplyCode = smtpReplyCodearg - , _sESReceiptRuleBounceActionStatusCode = Nothing - , _sESReceiptRuleBounceActionTopicArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-bounceaction.html#cfn-ses-receiptrule-bounceaction-message -sesrrbaMessage :: Lens' SESReceiptRuleBounceAction (Val Text) -sesrrbaMessage = lens _sESReceiptRuleBounceActionMessage (\s a -> s { _sESReceiptRuleBounceActionMessage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-bounceaction.html#cfn-ses-receiptrule-bounceaction-sender -sesrrbaSender :: Lens' SESReceiptRuleBounceAction (Val Text) -sesrrbaSender = lens _sESReceiptRuleBounceActionSender (\s a -> s { _sESReceiptRuleBounceActionSender = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-bounceaction.html#cfn-ses-receiptrule-bounceaction-smtpreplycode -sesrrbaSmtpReplyCode :: Lens' SESReceiptRuleBounceAction (Val Text) -sesrrbaSmtpReplyCode = lens _sESReceiptRuleBounceActionSmtpReplyCode (\s a -> s { _sESReceiptRuleBounceActionSmtpReplyCode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-bounceaction.html#cfn-ses-receiptrule-bounceaction-statuscode -sesrrbaStatusCode :: Lens' SESReceiptRuleBounceAction (Maybe (Val Text)) -sesrrbaStatusCode = lens _sESReceiptRuleBounceActionStatusCode (\s a -> s { _sESReceiptRuleBounceActionStatusCode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-bounceaction.html#cfn-ses-receiptrule-bounceaction-topicarn -sesrrbaTopicArn :: Lens' SESReceiptRuleBounceAction (Maybe (Val Text)) -sesrrbaTopicArn = lens _sESReceiptRuleBounceActionTopicArn (\s a -> s { _sESReceiptRuleBounceActionTopicArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SESReceiptRuleLambdaAction.hs b/library-gen/Stratosphere/ResourceProperties/SESReceiptRuleLambdaAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SESReceiptRuleLambdaAction.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-lambdaaction.html - -module Stratosphere.ResourceProperties.SESReceiptRuleLambdaAction where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SESReceiptRuleLambdaAction. See --- 'sesReceiptRuleLambdaAction' for a more convenient constructor. -data SESReceiptRuleLambdaAction = - SESReceiptRuleLambdaAction - { _sESReceiptRuleLambdaActionFunctionArn :: Val Text - , _sESReceiptRuleLambdaActionInvocationType :: Maybe (Val Text) - , _sESReceiptRuleLambdaActionTopicArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON SESReceiptRuleLambdaAction where - toJSON SESReceiptRuleLambdaAction{..} = - object $ - catMaybes - [ (Just . ("FunctionArn",) . toJSON) _sESReceiptRuleLambdaActionFunctionArn - , fmap (("InvocationType",) . toJSON) _sESReceiptRuleLambdaActionInvocationType - , fmap (("TopicArn",) . toJSON) _sESReceiptRuleLambdaActionTopicArn - ] - --- | Constructor for 'SESReceiptRuleLambdaAction' containing required fields --- as arguments. -sesReceiptRuleLambdaAction - :: Val Text -- ^ 'sesrrlaFunctionArn' - -> SESReceiptRuleLambdaAction -sesReceiptRuleLambdaAction functionArnarg = - SESReceiptRuleLambdaAction - { _sESReceiptRuleLambdaActionFunctionArn = functionArnarg - , _sESReceiptRuleLambdaActionInvocationType = Nothing - , _sESReceiptRuleLambdaActionTopicArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-lambdaaction.html#cfn-ses-receiptrule-lambdaaction-functionarn -sesrrlaFunctionArn :: Lens' SESReceiptRuleLambdaAction (Val Text) -sesrrlaFunctionArn = lens _sESReceiptRuleLambdaActionFunctionArn (\s a -> s { _sESReceiptRuleLambdaActionFunctionArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-lambdaaction.html#cfn-ses-receiptrule-lambdaaction-invocationtype -sesrrlaInvocationType :: Lens' SESReceiptRuleLambdaAction (Maybe (Val Text)) -sesrrlaInvocationType = lens _sESReceiptRuleLambdaActionInvocationType (\s a -> s { _sESReceiptRuleLambdaActionInvocationType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-lambdaaction.html#cfn-ses-receiptrule-lambdaaction-topicarn -sesrrlaTopicArn :: Lens' SESReceiptRuleLambdaAction (Maybe (Val Text)) -sesrrlaTopicArn = lens _sESReceiptRuleLambdaActionTopicArn (\s a -> s { _sESReceiptRuleLambdaActionTopicArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SESReceiptRuleRule.hs b/library-gen/Stratosphere/ResourceProperties/SESReceiptRuleRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SESReceiptRuleRule.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-rule.html - -module Stratosphere.ResourceProperties.SESReceiptRuleRule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SESReceiptRuleAction - --- | Full data type definition for SESReceiptRuleRule. See --- 'sesReceiptRuleRule' for a more convenient constructor. -data SESReceiptRuleRule = - SESReceiptRuleRule - { _sESReceiptRuleRuleActions :: Maybe [SESReceiptRuleAction] - , _sESReceiptRuleRuleEnabled :: Maybe (Val Bool) - , _sESReceiptRuleRuleName :: Maybe (Val Text) - , _sESReceiptRuleRuleRecipients :: Maybe (ValList Text) - , _sESReceiptRuleRuleScanEnabled :: Maybe (Val Bool) - , _sESReceiptRuleRuleTlsPolicy :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON SESReceiptRuleRule where - toJSON SESReceiptRuleRule{..} = - object $ - catMaybes - [ fmap (("Actions",) . toJSON) _sESReceiptRuleRuleActions - , fmap (("Enabled",) . toJSON) _sESReceiptRuleRuleEnabled - , fmap (("Name",) . toJSON) _sESReceiptRuleRuleName - , fmap (("Recipients",) . toJSON) _sESReceiptRuleRuleRecipients - , fmap (("ScanEnabled",) . toJSON) _sESReceiptRuleRuleScanEnabled - , fmap (("TlsPolicy",) . toJSON) _sESReceiptRuleRuleTlsPolicy - ] - --- | Constructor for 'SESReceiptRuleRule' containing required fields as --- arguments. -sesReceiptRuleRule - :: SESReceiptRuleRule -sesReceiptRuleRule = - SESReceiptRuleRule - { _sESReceiptRuleRuleActions = Nothing - , _sESReceiptRuleRuleEnabled = Nothing - , _sESReceiptRuleRuleName = Nothing - , _sESReceiptRuleRuleRecipients = Nothing - , _sESReceiptRuleRuleScanEnabled = Nothing - , _sESReceiptRuleRuleTlsPolicy = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-rule.html#cfn-ses-receiptrule-rule-actions -sesrrrActions :: Lens' SESReceiptRuleRule (Maybe [SESReceiptRuleAction]) -sesrrrActions = lens _sESReceiptRuleRuleActions (\s a -> s { _sESReceiptRuleRuleActions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-rule.html#cfn-ses-receiptrule-rule-enabled -sesrrrEnabled :: Lens' SESReceiptRuleRule (Maybe (Val Bool)) -sesrrrEnabled = lens _sESReceiptRuleRuleEnabled (\s a -> s { _sESReceiptRuleRuleEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-rule.html#cfn-ses-receiptrule-rule-name -sesrrrName :: Lens' SESReceiptRuleRule (Maybe (Val Text)) -sesrrrName = lens _sESReceiptRuleRuleName (\s a -> s { _sESReceiptRuleRuleName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-rule.html#cfn-ses-receiptrule-rule-recipients -sesrrrRecipients :: Lens' SESReceiptRuleRule (Maybe (ValList Text)) -sesrrrRecipients = lens _sESReceiptRuleRuleRecipients (\s a -> s { _sESReceiptRuleRuleRecipients = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-rule.html#cfn-ses-receiptrule-rule-scanenabled -sesrrrScanEnabled :: Lens' SESReceiptRuleRule (Maybe (Val Bool)) -sesrrrScanEnabled = lens _sESReceiptRuleRuleScanEnabled (\s a -> s { _sESReceiptRuleRuleScanEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-rule.html#cfn-ses-receiptrule-rule-tlspolicy -sesrrrTlsPolicy :: Lens' SESReceiptRuleRule (Maybe (Val Text)) -sesrrrTlsPolicy = lens _sESReceiptRuleRuleTlsPolicy (\s a -> s { _sESReceiptRuleRuleTlsPolicy = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SESReceiptRuleS3Action.hs b/library-gen/Stratosphere/ResourceProperties/SESReceiptRuleS3Action.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SESReceiptRuleS3Action.hs +++ /dev/null @@ -1,60 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-s3action.html - -module Stratosphere.ResourceProperties.SESReceiptRuleS3Action where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SESReceiptRuleS3Action. See --- 'sesReceiptRuleS3Action' for a more convenient constructor. -data SESReceiptRuleS3Action = - SESReceiptRuleS3Action - { _sESReceiptRuleS3ActionBucketName :: Val Text - , _sESReceiptRuleS3ActionKmsKeyArn :: Maybe (Val Text) - , _sESReceiptRuleS3ActionObjectKeyPrefix :: Maybe (Val Text) - , _sESReceiptRuleS3ActionTopicArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON SESReceiptRuleS3Action where - toJSON SESReceiptRuleS3Action{..} = - object $ - catMaybes - [ (Just . ("BucketName",) . toJSON) _sESReceiptRuleS3ActionBucketName - , fmap (("KmsKeyArn",) . toJSON) _sESReceiptRuleS3ActionKmsKeyArn - , fmap (("ObjectKeyPrefix",) . toJSON) _sESReceiptRuleS3ActionObjectKeyPrefix - , fmap (("TopicArn",) . toJSON) _sESReceiptRuleS3ActionTopicArn - ] - --- | Constructor for 'SESReceiptRuleS3Action' containing required fields as --- arguments. -sesReceiptRuleS3Action - :: Val Text -- ^ 'sesrrsaBucketName' - -> SESReceiptRuleS3Action -sesReceiptRuleS3Action bucketNamearg = - SESReceiptRuleS3Action - { _sESReceiptRuleS3ActionBucketName = bucketNamearg - , _sESReceiptRuleS3ActionKmsKeyArn = Nothing - , _sESReceiptRuleS3ActionObjectKeyPrefix = Nothing - , _sESReceiptRuleS3ActionTopicArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-s3action.html#cfn-ses-receiptrule-s3action-bucketname -sesrrsaBucketName :: Lens' SESReceiptRuleS3Action (Val Text) -sesrrsaBucketName = lens _sESReceiptRuleS3ActionBucketName (\s a -> s { _sESReceiptRuleS3ActionBucketName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-s3action.html#cfn-ses-receiptrule-s3action-kmskeyarn -sesrrsaKmsKeyArn :: Lens' SESReceiptRuleS3Action (Maybe (Val Text)) -sesrrsaKmsKeyArn = lens _sESReceiptRuleS3ActionKmsKeyArn (\s a -> s { _sESReceiptRuleS3ActionKmsKeyArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-s3action.html#cfn-ses-receiptrule-s3action-objectkeyprefix -sesrrsaObjectKeyPrefix :: Lens' SESReceiptRuleS3Action (Maybe (Val Text)) -sesrrsaObjectKeyPrefix = lens _sESReceiptRuleS3ActionObjectKeyPrefix (\s a -> s { _sESReceiptRuleS3ActionObjectKeyPrefix = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-s3action.html#cfn-ses-receiptrule-s3action-topicarn -sesrrsaTopicArn :: Lens' SESReceiptRuleS3Action (Maybe (Val Text)) -sesrrsaTopicArn = lens _sESReceiptRuleS3ActionTopicArn (\s a -> s { _sESReceiptRuleS3ActionTopicArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SESReceiptRuleSNSAction.hs b/library-gen/Stratosphere/ResourceProperties/SESReceiptRuleSNSAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SESReceiptRuleSNSAction.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-snsaction.html - -module Stratosphere.ResourceProperties.SESReceiptRuleSNSAction where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SESReceiptRuleSNSAction. See --- 'sesReceiptRuleSNSAction' for a more convenient constructor. -data SESReceiptRuleSNSAction = - SESReceiptRuleSNSAction - { _sESReceiptRuleSNSActionEncoding :: Maybe (Val Text) - , _sESReceiptRuleSNSActionTopicArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON SESReceiptRuleSNSAction where - toJSON SESReceiptRuleSNSAction{..} = - object $ - catMaybes - [ fmap (("Encoding",) . toJSON) _sESReceiptRuleSNSActionEncoding - , fmap (("TopicArn",) . toJSON) _sESReceiptRuleSNSActionTopicArn - ] - --- | Constructor for 'SESReceiptRuleSNSAction' containing required fields as --- arguments. -sesReceiptRuleSNSAction - :: SESReceiptRuleSNSAction -sesReceiptRuleSNSAction = - SESReceiptRuleSNSAction - { _sESReceiptRuleSNSActionEncoding = Nothing - , _sESReceiptRuleSNSActionTopicArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-snsaction.html#cfn-ses-receiptrule-snsaction-encoding -sesrrsnsaEncoding :: Lens' SESReceiptRuleSNSAction (Maybe (Val Text)) -sesrrsnsaEncoding = lens _sESReceiptRuleSNSActionEncoding (\s a -> s { _sESReceiptRuleSNSActionEncoding = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-snsaction.html#cfn-ses-receiptrule-snsaction-topicarn -sesrrsnsaTopicArn :: Lens' SESReceiptRuleSNSAction (Maybe (Val Text)) -sesrrsnsaTopicArn = lens _sESReceiptRuleSNSActionTopicArn (\s a -> s { _sESReceiptRuleSNSActionTopicArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SESReceiptRuleStopAction.hs b/library-gen/Stratosphere/ResourceProperties/SESReceiptRuleStopAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SESReceiptRuleStopAction.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-stopaction.html - -module Stratosphere.ResourceProperties.SESReceiptRuleStopAction where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SESReceiptRuleStopAction. See --- 'sesReceiptRuleStopAction' for a more convenient constructor. -data SESReceiptRuleStopAction = - SESReceiptRuleStopAction - { _sESReceiptRuleStopActionScope :: Val Text - , _sESReceiptRuleStopActionTopicArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON SESReceiptRuleStopAction where - toJSON SESReceiptRuleStopAction{..} = - object $ - catMaybes - [ (Just . ("Scope",) . toJSON) _sESReceiptRuleStopActionScope - , fmap (("TopicArn",) . toJSON) _sESReceiptRuleStopActionTopicArn - ] - --- | Constructor for 'SESReceiptRuleStopAction' containing required fields as --- arguments. -sesReceiptRuleStopAction - :: Val Text -- ^ 'sesrrstaScope' - -> SESReceiptRuleStopAction -sesReceiptRuleStopAction scopearg = - SESReceiptRuleStopAction - { _sESReceiptRuleStopActionScope = scopearg - , _sESReceiptRuleStopActionTopicArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-stopaction.html#cfn-ses-receiptrule-stopaction-scope -sesrrstaScope :: Lens' SESReceiptRuleStopAction (Val Text) -sesrrstaScope = lens _sESReceiptRuleStopActionScope (\s a -> s { _sESReceiptRuleStopActionScope = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-stopaction.html#cfn-ses-receiptrule-stopaction-topicarn -sesrrstaTopicArn :: Lens' SESReceiptRuleStopAction (Maybe (Val Text)) -sesrrstaTopicArn = lens _sESReceiptRuleStopActionTopicArn (\s a -> s { _sESReceiptRuleStopActionTopicArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SESReceiptRuleWorkmailAction.hs b/library-gen/Stratosphere/ResourceProperties/SESReceiptRuleWorkmailAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SESReceiptRuleWorkmailAction.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-workmailaction.html - -module Stratosphere.ResourceProperties.SESReceiptRuleWorkmailAction where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SESReceiptRuleWorkmailAction. See --- 'sesReceiptRuleWorkmailAction' for a more convenient constructor. -data SESReceiptRuleWorkmailAction = - SESReceiptRuleWorkmailAction - { _sESReceiptRuleWorkmailActionOrganizationArn :: Val Text - , _sESReceiptRuleWorkmailActionTopicArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON SESReceiptRuleWorkmailAction where - toJSON SESReceiptRuleWorkmailAction{..} = - object $ - catMaybes - [ (Just . ("OrganizationArn",) . toJSON) _sESReceiptRuleWorkmailActionOrganizationArn - , fmap (("TopicArn",) . toJSON) _sESReceiptRuleWorkmailActionTopicArn - ] - --- | Constructor for 'SESReceiptRuleWorkmailAction' containing required fields --- as arguments. -sesReceiptRuleWorkmailAction - :: Val Text -- ^ 'sesrrwaOrganizationArn' - -> SESReceiptRuleWorkmailAction -sesReceiptRuleWorkmailAction organizationArnarg = - SESReceiptRuleWorkmailAction - { _sESReceiptRuleWorkmailActionOrganizationArn = organizationArnarg - , _sESReceiptRuleWorkmailActionTopicArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-workmailaction.html#cfn-ses-receiptrule-workmailaction-organizationarn -sesrrwaOrganizationArn :: Lens' SESReceiptRuleWorkmailAction (Val Text) -sesrrwaOrganizationArn = lens _sESReceiptRuleWorkmailActionOrganizationArn (\s a -> s { _sESReceiptRuleWorkmailActionOrganizationArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-receiptrule-workmailaction.html#cfn-ses-receiptrule-workmailaction-topicarn -sesrrwaTopicArn :: Lens' SESReceiptRuleWorkmailAction (Maybe (Val Text)) -sesrrwaTopicArn = lens _sESReceiptRuleWorkmailActionTopicArn (\s a -> s { _sESReceiptRuleWorkmailActionTopicArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SESTemplateTemplate.hs b/library-gen/Stratosphere/ResourceProperties/SESTemplateTemplate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SESTemplateTemplate.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-template-template.html - -module Stratosphere.ResourceProperties.SESTemplateTemplate where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SESTemplateTemplate. See --- 'sesTemplateTemplate' for a more convenient constructor. -data SESTemplateTemplate = - SESTemplateTemplate - { _sESTemplateTemplateHtmlPart :: Maybe (Val Text) - , _sESTemplateTemplateSubjectPart :: Maybe (Val Text) - , _sESTemplateTemplateTemplateName :: Maybe (Val Text) - , _sESTemplateTemplateTextPart :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON SESTemplateTemplate where - toJSON SESTemplateTemplate{..} = - object $ - catMaybes - [ fmap (("HtmlPart",) . toJSON) _sESTemplateTemplateHtmlPart - , fmap (("SubjectPart",) . toJSON) _sESTemplateTemplateSubjectPart - , fmap (("TemplateName",) . toJSON) _sESTemplateTemplateTemplateName - , fmap (("TextPart",) . toJSON) _sESTemplateTemplateTextPart - ] - --- | Constructor for 'SESTemplateTemplate' containing required fields as --- arguments. -sesTemplateTemplate - :: SESTemplateTemplate -sesTemplateTemplate = - SESTemplateTemplate - { _sESTemplateTemplateHtmlPart = Nothing - , _sESTemplateTemplateSubjectPart = Nothing - , _sESTemplateTemplateTemplateName = Nothing - , _sESTemplateTemplateTextPart = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-template-template.html#cfn-ses-template-template-htmlpart -sesttHtmlPart :: Lens' SESTemplateTemplate (Maybe (Val Text)) -sesttHtmlPart = lens _sESTemplateTemplateHtmlPart (\s a -> s { _sESTemplateTemplateHtmlPart = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-template-template.html#cfn-ses-template-template-subjectpart -sesttSubjectPart :: Lens' SESTemplateTemplate (Maybe (Val Text)) -sesttSubjectPart = lens _sESTemplateTemplateSubjectPart (\s a -> s { _sESTemplateTemplateSubjectPart = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-template-template.html#cfn-ses-template-template-templatename -sesttTemplateName :: Lens' SESTemplateTemplate (Maybe (Val Text)) -sesttTemplateName = lens _sESTemplateTemplateTemplateName (\s a -> s { _sESTemplateTemplateTemplateName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ses-template-template.html#cfn-ses-template-template-textpart -sesttTextPart :: Lens' SESTemplateTemplate (Maybe (Val Text)) -sesttTextPart = lens _sESTemplateTemplateTextPart (\s a -> s { _sESTemplateTemplateTextPart = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SNSTopicSubscription.hs b/library-gen/Stratosphere/ResourceProperties/SNSTopicSubscription.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SNSTopicSubscription.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sns-subscription.html - -module Stratosphere.ResourceProperties.SNSTopicSubscription where - -import Stratosphere.ResourceImports -import Stratosphere.Types - --- | Full data type definition for SNSTopicSubscription. See --- 'snsTopicSubscription' for a more convenient constructor. -data SNSTopicSubscription = - SNSTopicSubscription - { _sNSTopicSubscriptionEndpoint :: Val Text - , _sNSTopicSubscriptionProtocol :: Val SNSProtocol - } deriving (Show, Eq) - -instance ToJSON SNSTopicSubscription where - toJSON SNSTopicSubscription{..} = - object $ - catMaybes - [ (Just . ("Endpoint",) . toJSON) _sNSTopicSubscriptionEndpoint - , (Just . ("Protocol",) . toJSON) _sNSTopicSubscriptionProtocol - ] - --- | Constructor for 'SNSTopicSubscription' containing required fields as --- arguments. -snsTopicSubscription - :: Val Text -- ^ 'snstsEndpoint' - -> Val SNSProtocol -- ^ 'snstsProtocol' - -> SNSTopicSubscription -snsTopicSubscription endpointarg protocolarg = - SNSTopicSubscription - { _sNSTopicSubscriptionEndpoint = endpointarg - , _sNSTopicSubscriptionProtocol = protocolarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sns-subscription.html#cfn-sns-topic-subscription-endpoint -snstsEndpoint :: Lens' SNSTopicSubscription (Val Text) -snstsEndpoint = lens _sNSTopicSubscriptionEndpoint (\s a -> s { _sNSTopicSubscriptionEndpoint = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sns-subscription.html#cfn-sns-topic-subscription-protocol -snstsProtocol :: Lens' SNSTopicSubscription (Val SNSProtocol) -snstsProtocol = lens _sNSTopicSubscriptionProtocol (\s a -> s { _sNSTopicSubscriptionProtocol = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SSMAssociationInstanceAssociationOutputLocation.hs b/library-gen/Stratosphere/ResourceProperties/SSMAssociationInstanceAssociationOutputLocation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SSMAssociationInstanceAssociationOutputLocation.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-association-instanceassociationoutputlocation.html - -module Stratosphere.ResourceProperties.SSMAssociationInstanceAssociationOutputLocation where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SSMAssociationS3OutputLocation - --- | Full data type definition for --- SSMAssociationInstanceAssociationOutputLocation. See --- 'ssmAssociationInstanceAssociationOutputLocation' for a more convenient --- constructor. -data SSMAssociationInstanceAssociationOutputLocation = - SSMAssociationInstanceAssociationOutputLocation - { _sSMAssociationInstanceAssociationOutputLocationS3Location :: Maybe SSMAssociationS3OutputLocation - } deriving (Show, Eq) - -instance ToJSON SSMAssociationInstanceAssociationOutputLocation where - toJSON SSMAssociationInstanceAssociationOutputLocation{..} = - object $ - catMaybes - [ fmap (("S3Location",) . toJSON) _sSMAssociationInstanceAssociationOutputLocationS3Location - ] - --- | Constructor for 'SSMAssociationInstanceAssociationOutputLocation' --- containing required fields as arguments. -ssmAssociationInstanceAssociationOutputLocation - :: SSMAssociationInstanceAssociationOutputLocation -ssmAssociationInstanceAssociationOutputLocation = - SSMAssociationInstanceAssociationOutputLocation - { _sSMAssociationInstanceAssociationOutputLocationS3Location = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-association-instanceassociationoutputlocation.html#cfn-ssm-association-instanceassociationoutputlocation-s3location -ssmaiaolS3Location :: Lens' SSMAssociationInstanceAssociationOutputLocation (Maybe SSMAssociationS3OutputLocation) -ssmaiaolS3Location = lens _sSMAssociationInstanceAssociationOutputLocationS3Location (\s a -> s { _sSMAssociationInstanceAssociationOutputLocationS3Location = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SSMAssociationParameterValues.hs b/library-gen/Stratosphere/ResourceProperties/SSMAssociationParameterValues.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SSMAssociationParameterValues.hs +++ /dev/null @@ -1,38 +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 :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON SSMAssociationParameterValues where - toJSON SSMAssociationParameterValues{..} = - object $ - catMaybes - [ fmap (("ParameterValues",) . toJSON) _sSMAssociationParameterValuesParameterValues - ] - --- | Constructor for 'SSMAssociationParameterValues' containing required --- fields as arguments. -ssmAssociationParameterValues - :: SSMAssociationParameterValues -ssmAssociationParameterValues = - SSMAssociationParameterValues - { _sSMAssociationParameterValuesParameterValues = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-association-parametervalues.html#cfn-ssm-association-parametervalues-parametervalues -ssmapvParameterValues :: Lens' SSMAssociationParameterValues (Maybe (ValList Text)) -ssmapvParameterValues = lens _sSMAssociationParameterValuesParameterValues (\s a -> s { _sSMAssociationParameterValuesParameterValues = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SSMAssociationS3OutputLocation.hs b/library-gen/Stratosphere/ResourceProperties/SSMAssociationS3OutputLocation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SSMAssociationS3OutputLocation.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-association-s3outputlocation.html - -module Stratosphere.ResourceProperties.SSMAssociationS3OutputLocation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SSMAssociationS3OutputLocation. See --- 'ssmAssociationS3OutputLocation' for a more convenient constructor. -data SSMAssociationS3OutputLocation = - SSMAssociationS3OutputLocation - { _sSMAssociationS3OutputLocationOutputS3BucketName :: Maybe (Val Text) - , _sSMAssociationS3OutputLocationOutputS3KeyPrefix :: Maybe (Val Text) - , _sSMAssociationS3OutputLocationOutputS3Region :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON SSMAssociationS3OutputLocation where - toJSON SSMAssociationS3OutputLocation{..} = - object $ - catMaybes - [ fmap (("OutputS3BucketName",) . toJSON) _sSMAssociationS3OutputLocationOutputS3BucketName - , fmap (("OutputS3KeyPrefix",) . toJSON) _sSMAssociationS3OutputLocationOutputS3KeyPrefix - , fmap (("OutputS3Region",) . toJSON) _sSMAssociationS3OutputLocationOutputS3Region - ] - --- | Constructor for 'SSMAssociationS3OutputLocation' containing required --- fields as arguments. -ssmAssociationS3OutputLocation - :: SSMAssociationS3OutputLocation -ssmAssociationS3OutputLocation = - SSMAssociationS3OutputLocation - { _sSMAssociationS3OutputLocationOutputS3BucketName = Nothing - , _sSMAssociationS3OutputLocationOutputS3KeyPrefix = Nothing - , _sSMAssociationS3OutputLocationOutputS3Region = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-association-s3outputlocation.html#cfn-ssm-association-s3outputlocation-outputs3bucketname -ssmasolOutputS3BucketName :: Lens' SSMAssociationS3OutputLocation (Maybe (Val Text)) -ssmasolOutputS3BucketName = lens _sSMAssociationS3OutputLocationOutputS3BucketName (\s a -> s { _sSMAssociationS3OutputLocationOutputS3BucketName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-association-s3outputlocation.html#cfn-ssm-association-s3outputlocation-outputs3keyprefix -ssmasolOutputS3KeyPrefix :: Lens' SSMAssociationS3OutputLocation (Maybe (Val Text)) -ssmasolOutputS3KeyPrefix = lens _sSMAssociationS3OutputLocationOutputS3KeyPrefix (\s a -> s { _sSMAssociationS3OutputLocationOutputS3KeyPrefix = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-association-s3outputlocation.html#cfn-ssm-association-s3outputlocation-outputs3region -ssmasolOutputS3Region :: Lens' SSMAssociationS3OutputLocation (Maybe (Val Text)) -ssmasolOutputS3Region = lens _sSMAssociationS3OutputLocationOutputS3Region (\s a -> s { _sSMAssociationS3OutputLocationOutputS3Region = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SSMAssociationTarget.hs b/library-gen/Stratosphere/ResourceProperties/SSMAssociationTarget.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SSMAssociationTarget.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-association-target.html - -module Stratosphere.ResourceProperties.SSMAssociationTarget where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SSMAssociationTarget. See --- 'ssmAssociationTarget' for a more convenient constructor. -data SSMAssociationTarget = - SSMAssociationTarget - { _sSMAssociationTargetKey :: Val Text - , _sSMAssociationTargetValues :: ValList Text - } deriving (Show, Eq) - -instance ToJSON SSMAssociationTarget where - toJSON SSMAssociationTarget{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _sSMAssociationTargetKey - , (Just . ("Values",) . toJSON) _sSMAssociationTargetValues - ] - --- | Constructor for 'SSMAssociationTarget' containing required fields as --- arguments. -ssmAssociationTarget - :: Val Text -- ^ 'ssmatKey' - -> ValList Text -- ^ 'ssmatValues' - -> SSMAssociationTarget -ssmAssociationTarget keyarg valuesarg = - SSMAssociationTarget - { _sSMAssociationTargetKey = keyarg - , _sSMAssociationTargetValues = valuesarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-association-target.html#cfn-ssm-association-target-key -ssmatKey :: Lens' SSMAssociationTarget (Val Text) -ssmatKey = lens _sSMAssociationTargetKey (\s a -> s { _sSMAssociationTargetKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-association-target.html#cfn-ssm-association-target-values -ssmatValues :: Lens' SSMAssociationTarget (ValList Text) -ssmatValues = lens _sSMAssociationTargetValues (\s a -> s { _sSMAssociationTargetValues = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTargetTargets.hs b/library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTargetTargets.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTargetTargets.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtarget-targets.html - -module Stratosphere.ResourceProperties.SSMMaintenanceWindowTargetTargets where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SSMMaintenanceWindowTargetTargets. See --- 'ssmMaintenanceWindowTargetTargets' for a more convenient constructor. -data SSMMaintenanceWindowTargetTargets = - SSMMaintenanceWindowTargetTargets - { _sSMMaintenanceWindowTargetTargetsKey :: Val Text - , _sSMMaintenanceWindowTargetTargetsValues :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON SSMMaintenanceWindowTargetTargets where - toJSON SSMMaintenanceWindowTargetTargets{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _sSMMaintenanceWindowTargetTargetsKey - , fmap (("Values",) . toJSON) _sSMMaintenanceWindowTargetTargetsValues - ] - --- | Constructor for 'SSMMaintenanceWindowTargetTargets' containing required --- fields as arguments. -ssmMaintenanceWindowTargetTargets - :: Val Text -- ^ 'ssmmwtartKey' - -> SSMMaintenanceWindowTargetTargets -ssmMaintenanceWindowTargetTargets keyarg = - SSMMaintenanceWindowTargetTargets - { _sSMMaintenanceWindowTargetTargetsKey = keyarg - , _sSMMaintenanceWindowTargetTargetsValues = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtarget-targets.html#cfn-ssm-maintenancewindowtarget-targets-key -ssmmwtartKey :: Lens' SSMMaintenanceWindowTargetTargets (Val Text) -ssmmwtartKey = lens _sSMMaintenanceWindowTargetTargetsKey (\s a -> s { _sSMMaintenanceWindowTargetTargetsKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtarget-targets.html#cfn-ssm-maintenancewindowtarget-targets-values -ssmmwtartValues :: Lens' SSMMaintenanceWindowTargetTargets (Maybe (ValList Text)) -ssmmwtartValues = lens _sSMMaintenanceWindowTargetTargetsValues (\s a -> s { _sSMMaintenanceWindowTargetTargetsValues = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskLoggingInfo.hs b/library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskLoggingInfo.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskLoggingInfo.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-logginginfo.html - -module Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskLoggingInfo where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SSMMaintenanceWindowTaskLoggingInfo. See --- 'ssmMaintenanceWindowTaskLoggingInfo' for a more convenient constructor. -data SSMMaintenanceWindowTaskLoggingInfo = - SSMMaintenanceWindowTaskLoggingInfo - { _sSMMaintenanceWindowTaskLoggingInfoRegion :: Val Text - , _sSMMaintenanceWindowTaskLoggingInfoS3Bucket :: Val Text - , _sSMMaintenanceWindowTaskLoggingInfoS3Prefix :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON SSMMaintenanceWindowTaskLoggingInfo where - toJSON SSMMaintenanceWindowTaskLoggingInfo{..} = - object $ - catMaybes - [ (Just . ("Region",) . toJSON) _sSMMaintenanceWindowTaskLoggingInfoRegion - , (Just . ("S3Bucket",) . toJSON) _sSMMaintenanceWindowTaskLoggingInfoS3Bucket - , fmap (("S3Prefix",) . toJSON) _sSMMaintenanceWindowTaskLoggingInfoS3Prefix - ] - --- | Constructor for 'SSMMaintenanceWindowTaskLoggingInfo' containing required --- fields as arguments. -ssmMaintenanceWindowTaskLoggingInfo - :: Val Text -- ^ 'ssmmwtliRegion' - -> Val Text -- ^ 'ssmmwtliS3Bucket' - -> SSMMaintenanceWindowTaskLoggingInfo -ssmMaintenanceWindowTaskLoggingInfo regionarg s3Bucketarg = - SSMMaintenanceWindowTaskLoggingInfo - { _sSMMaintenanceWindowTaskLoggingInfoRegion = regionarg - , _sSMMaintenanceWindowTaskLoggingInfoS3Bucket = s3Bucketarg - , _sSMMaintenanceWindowTaskLoggingInfoS3Prefix = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-logginginfo.html#cfn-ssm-maintenancewindowtask-logginginfo-region -ssmmwtliRegion :: Lens' SSMMaintenanceWindowTaskLoggingInfo (Val Text) -ssmmwtliRegion = lens _sSMMaintenanceWindowTaskLoggingInfoRegion (\s a -> s { _sSMMaintenanceWindowTaskLoggingInfoRegion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-logginginfo.html#cfn-ssm-maintenancewindowtask-logginginfo-s3bucket -ssmmwtliS3Bucket :: Lens' SSMMaintenanceWindowTaskLoggingInfo (Val Text) -ssmmwtliS3Bucket = lens _sSMMaintenanceWindowTaskLoggingInfoS3Bucket (\s a -> s { _sSMMaintenanceWindowTaskLoggingInfoS3Bucket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-logginginfo.html#cfn-ssm-maintenancewindowtask-logginginfo-s3prefix -ssmmwtliS3Prefix :: Lens' SSMMaintenanceWindowTaskLoggingInfo (Maybe (Val Text)) -ssmmwtliS3Prefix = lens _sSMMaintenanceWindowTaskLoggingInfoS3Prefix (\s a -> s { _sSMMaintenanceWindowTaskLoggingInfoS3Prefix = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters.hs b/library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowautomationparameters.html - -module Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters. See --- 'ssmMaintenanceWindowTaskMaintenanceWindowAutomationParameters' for a --- more convenient constructor. -data SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters = - SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters - { _sSMMaintenanceWindowTaskMaintenanceWindowAutomationParametersDocumentVersion :: Maybe (Val Text) - , _sSMMaintenanceWindowTaskMaintenanceWindowAutomationParametersParameters :: Maybe Object - } deriving (Show, Eq) - -instance ToJSON SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters where - toJSON SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters{..} = - object $ - catMaybes - [ fmap (("DocumentVersion",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowAutomationParametersDocumentVersion - , fmap (("Parameters",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowAutomationParametersParameters - ] - --- | Constructor for --- 'SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters' --- containing required fields as arguments. -ssmMaintenanceWindowTaskMaintenanceWindowAutomationParameters - :: SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters -ssmMaintenanceWindowTaskMaintenanceWindowAutomationParameters = - SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters - { _sSMMaintenanceWindowTaskMaintenanceWindowAutomationParametersDocumentVersion = Nothing - , _sSMMaintenanceWindowTaskMaintenanceWindowAutomationParametersParameters = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowautomationparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowautomationparameters-documentversion -ssmmwtmwapDocumentVersion :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters (Maybe (Val Text)) -ssmmwtmwapDocumentVersion = lens _sSMMaintenanceWindowTaskMaintenanceWindowAutomationParametersDocumentVersion (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowAutomationParametersDocumentVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowautomationparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowautomationparameters-parameters -ssmmwtmwapParameters :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters (Maybe Object) -ssmmwtmwapParameters = lens _sSMMaintenanceWindowTaskMaintenanceWindowAutomationParametersParameters (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowAutomationParametersParameters = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters.hs b/library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowlambdaparameters.html - -module Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters. See --- 'ssmMaintenanceWindowTaskMaintenanceWindowLambdaParameters' for a more --- convenient constructor. -data SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters = - SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters - { _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersClientContext :: Maybe (Val Text) - , _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersPayload :: Maybe (Val Text) - , _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersQualifier :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters where - toJSON SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters{..} = - object $ - catMaybes - [ fmap (("ClientContext",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersClientContext - , fmap (("Payload",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersPayload - , fmap (("Qualifier",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersQualifier - ] - --- | Constructor for --- 'SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters' containing --- required fields as arguments. -ssmMaintenanceWindowTaskMaintenanceWindowLambdaParameters - :: SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters -ssmMaintenanceWindowTaskMaintenanceWindowLambdaParameters = - SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters - { _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersClientContext = Nothing - , _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersPayload = Nothing - , _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersQualifier = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowlambdaparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowlambdaparameters-clientcontext -ssmmwtmwlpClientContext :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters (Maybe (Val Text)) -ssmmwtmwlpClientContext = lens _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersClientContext (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersClientContext = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowlambdaparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowlambdaparameters-payload -ssmmwtmwlpPayload :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters (Maybe (Val Text)) -ssmmwtmwlpPayload = lens _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersPayload (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersPayload = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowlambdaparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowlambdaparameters-qualifier -ssmmwtmwlpQualifier :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters (Maybe (Val Text)) -ssmmwtmwlpQualifier = lens _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersQualifier (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersQualifier = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters.hs b/library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters.hs +++ /dev/null @@ -1,97 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowruncommandparameters.html - -module Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskNotificationConfig - --- | Full data type definition for --- SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters. See --- 'ssmMaintenanceWindowTaskMaintenanceWindowRunCommandParameters' for a --- more convenient constructor. -data SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters = - SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters - { _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersComment :: Maybe (Val Text) - , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersDocumentHash :: Maybe (Val Text) - , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersDocumentHashType :: Maybe (Val Text) - , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersNotificationConfig :: Maybe SSMMaintenanceWindowTaskNotificationConfig - , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersOutputS3BucketName :: Maybe (Val Text) - , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersOutputS3KeyPrefix :: Maybe (Val Text) - , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersParameters :: Maybe Object - , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersServiceRoleArn :: Maybe (Val Text) - , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersTimeoutSeconds :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters where - toJSON SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters{..} = - object $ - catMaybes - [ fmap (("Comment",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersComment - , fmap (("DocumentHash",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersDocumentHash - , fmap (("DocumentHashType",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersDocumentHashType - , fmap (("NotificationConfig",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersNotificationConfig - , fmap (("OutputS3BucketName",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersOutputS3BucketName - , fmap (("OutputS3KeyPrefix",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersOutputS3KeyPrefix - , fmap (("Parameters",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersParameters - , fmap (("ServiceRoleArn",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersServiceRoleArn - , fmap (("TimeoutSeconds",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersTimeoutSeconds - ] - --- | Constructor for --- 'SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters' --- containing required fields as arguments. -ssmMaintenanceWindowTaskMaintenanceWindowRunCommandParameters - :: SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters -ssmMaintenanceWindowTaskMaintenanceWindowRunCommandParameters = - SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters - { _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersComment = Nothing - , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersDocumentHash = Nothing - , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersDocumentHashType = Nothing - , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersNotificationConfig = Nothing - , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersOutputS3BucketName = Nothing - , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersOutputS3KeyPrefix = Nothing - , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersParameters = Nothing - , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersServiceRoleArn = Nothing - , _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersTimeoutSeconds = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowruncommandparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowruncommandparameters-comment -ssmmwtmwrcpComment :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters (Maybe (Val Text)) -ssmmwtmwrcpComment = lens _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersComment (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersComment = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowruncommandparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowruncommandparameters-documenthash -ssmmwtmwrcpDocumentHash :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters (Maybe (Val Text)) -ssmmwtmwrcpDocumentHash = lens _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersDocumentHash (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersDocumentHash = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowruncommandparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowruncommandparameters-documenthashtype -ssmmwtmwrcpDocumentHashType :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters (Maybe (Val Text)) -ssmmwtmwrcpDocumentHashType = lens _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersDocumentHashType (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersDocumentHashType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowruncommandparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowruncommandparameters-notificationconfig -ssmmwtmwrcpNotificationConfig :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters (Maybe SSMMaintenanceWindowTaskNotificationConfig) -ssmmwtmwrcpNotificationConfig = lens _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersNotificationConfig (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersNotificationConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowruncommandparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowruncommandparameters-outputs3bucketname -ssmmwtmwrcpOutputS3BucketName :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters (Maybe (Val Text)) -ssmmwtmwrcpOutputS3BucketName = lens _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersOutputS3BucketName (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersOutputS3BucketName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowruncommandparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowruncommandparameters-outputs3keyprefix -ssmmwtmwrcpOutputS3KeyPrefix :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters (Maybe (Val Text)) -ssmmwtmwrcpOutputS3KeyPrefix = lens _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersOutputS3KeyPrefix (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersOutputS3KeyPrefix = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowruncommandparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowruncommandparameters-parameters -ssmmwtmwrcpParameters :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters (Maybe Object) -ssmmwtmwrcpParameters = lens _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersParameters (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowruncommandparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowruncommandparameters-servicerolearn -ssmmwtmwrcpServiceRoleArn :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters (Maybe (Val Text)) -ssmmwtmwrcpServiceRoleArn = lens _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersServiceRoleArn (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersServiceRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowruncommandparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowruncommandparameters-timeoutseconds -ssmmwtmwrcpTimeoutSeconds :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters (Maybe (Val Integer)) -ssmmwtmwrcpTimeoutSeconds = lens _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersTimeoutSeconds (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersTimeoutSeconds = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters.hs b/library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowstepfunctionsparameters.html - -module Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters. See --- 'ssmMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters' for a --- more convenient constructor. -data SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters = - SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters - { _sSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParametersInput :: Maybe (Val Text) - , _sSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParametersName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters where - toJSON SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters{..} = - object $ - catMaybes - [ fmap (("Input",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParametersInput - , fmap (("Name",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParametersName - ] - --- | Constructor for --- 'SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters' --- containing required fields as arguments. -ssmMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters - :: SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters -ssmMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters = - SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters - { _sSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParametersInput = Nothing - , _sSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParametersName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowstepfunctionsparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowstepfunctionsparameters-input -ssmmwtmwsfpInput :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters (Maybe (Val Text)) -ssmmwtmwsfpInput = lens _sSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParametersInput (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParametersInput = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-maintenancewindowstepfunctionsparameters.html#cfn-ssm-maintenancewindowtask-maintenancewindowstepfunctionsparameters-name -ssmmwtmwsfpName :: Lens' SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters (Maybe (Val Text)) -ssmmwtmwsfpName = lens _sSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParametersName (\s a -> s { _sSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParametersName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskNotificationConfig.hs b/library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskNotificationConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskNotificationConfig.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-notificationconfig.html - -module Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskNotificationConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SSMMaintenanceWindowTaskNotificationConfig. --- See 'ssmMaintenanceWindowTaskNotificationConfig' for a more convenient --- constructor. -data SSMMaintenanceWindowTaskNotificationConfig = - SSMMaintenanceWindowTaskNotificationConfig - { _sSMMaintenanceWindowTaskNotificationConfigNotificationArn :: Val Text - , _sSMMaintenanceWindowTaskNotificationConfigNotificationEvents :: Maybe (ValList Text) - , _sSMMaintenanceWindowTaskNotificationConfigNotificationType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON SSMMaintenanceWindowTaskNotificationConfig where - toJSON SSMMaintenanceWindowTaskNotificationConfig{..} = - object $ - catMaybes - [ (Just . ("NotificationArn",) . toJSON) _sSMMaintenanceWindowTaskNotificationConfigNotificationArn - , fmap (("NotificationEvents",) . toJSON) _sSMMaintenanceWindowTaskNotificationConfigNotificationEvents - , fmap (("NotificationType",) . toJSON) _sSMMaintenanceWindowTaskNotificationConfigNotificationType - ] - --- | Constructor for 'SSMMaintenanceWindowTaskNotificationConfig' containing --- required fields as arguments. -ssmMaintenanceWindowTaskNotificationConfig - :: Val Text -- ^ 'ssmmwtncNotificationArn' - -> SSMMaintenanceWindowTaskNotificationConfig -ssmMaintenanceWindowTaskNotificationConfig notificationArnarg = - SSMMaintenanceWindowTaskNotificationConfig - { _sSMMaintenanceWindowTaskNotificationConfigNotificationArn = notificationArnarg - , _sSMMaintenanceWindowTaskNotificationConfigNotificationEvents = Nothing - , _sSMMaintenanceWindowTaskNotificationConfigNotificationType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-notificationconfig.html#cfn-ssm-maintenancewindowtask-notificationconfig-notificationarn -ssmmwtncNotificationArn :: Lens' SSMMaintenanceWindowTaskNotificationConfig (Val Text) -ssmmwtncNotificationArn = lens _sSMMaintenanceWindowTaskNotificationConfigNotificationArn (\s a -> s { _sSMMaintenanceWindowTaskNotificationConfigNotificationArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-notificationconfig.html#cfn-ssm-maintenancewindowtask-notificationconfig-notificationevents -ssmmwtncNotificationEvents :: Lens' SSMMaintenanceWindowTaskNotificationConfig (Maybe (ValList Text)) -ssmmwtncNotificationEvents = lens _sSMMaintenanceWindowTaskNotificationConfigNotificationEvents (\s a -> s { _sSMMaintenanceWindowTaskNotificationConfigNotificationEvents = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-notificationconfig.html#cfn-ssm-maintenancewindowtask-notificationconfig-notificationtype -ssmmwtncNotificationType :: Lens' SSMMaintenanceWindowTaskNotificationConfig (Maybe (Val Text)) -ssmmwtncNotificationType = lens _sSMMaintenanceWindowTaskNotificationConfigNotificationType (\s a -> s { _sSMMaintenanceWindowTaskNotificationConfigNotificationType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskTarget.hs b/library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskTarget.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskTarget.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-target.html - -module Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskTarget where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SSMMaintenanceWindowTaskTarget. See --- 'ssmMaintenanceWindowTaskTarget' for a more convenient constructor. -data SSMMaintenanceWindowTaskTarget = - SSMMaintenanceWindowTaskTarget - { _sSMMaintenanceWindowTaskTargetKey :: Val Text - , _sSMMaintenanceWindowTaskTargetValues :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON SSMMaintenanceWindowTaskTarget where - toJSON SSMMaintenanceWindowTaskTarget{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _sSMMaintenanceWindowTaskTargetKey - , fmap (("Values",) . toJSON) _sSMMaintenanceWindowTaskTargetValues - ] - --- | Constructor for 'SSMMaintenanceWindowTaskTarget' containing required --- fields as arguments. -ssmMaintenanceWindowTaskTarget - :: Val Text -- ^ 'ssmmwtastKey' - -> SSMMaintenanceWindowTaskTarget -ssmMaintenanceWindowTaskTarget keyarg = - SSMMaintenanceWindowTaskTarget - { _sSMMaintenanceWindowTaskTargetKey = keyarg - , _sSMMaintenanceWindowTaskTargetValues = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-target.html#cfn-ssm-maintenancewindowtask-target-key -ssmmwtastKey :: Lens' SSMMaintenanceWindowTaskTarget (Val Text) -ssmmwtastKey = lens _sSMMaintenanceWindowTaskTargetKey (\s a -> s { _sSMMaintenanceWindowTaskTargetKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-target.html#cfn-ssm-maintenancewindowtask-target-values -ssmmwtastValues :: Lens' SSMMaintenanceWindowTaskTarget (Maybe (ValList Text)) -ssmmwtastValues = lens _sSMMaintenanceWindowTaskTargetValues (\s a -> s { _sSMMaintenanceWindowTaskTargetValues = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskTaskInvocationParameters.hs b/library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskTaskInvocationParameters.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskTaskInvocationParameters.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-taskinvocationparameters.html - -module Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskTaskInvocationParameters where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters -import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters -import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters -import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters - --- | Full data type definition for --- SSMMaintenanceWindowTaskTaskInvocationParameters. See --- 'ssmMaintenanceWindowTaskTaskInvocationParameters' for a more convenient --- constructor. -data SSMMaintenanceWindowTaskTaskInvocationParameters = - SSMMaintenanceWindowTaskTaskInvocationParameters - { _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowAutomationParameters :: Maybe SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters - , _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowLambdaParameters :: Maybe SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters - , _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowRunCommandParameters :: Maybe SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters - , _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowStepFunctionsParameters :: Maybe SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters - } deriving (Show, Eq) - -instance ToJSON SSMMaintenanceWindowTaskTaskInvocationParameters where - toJSON SSMMaintenanceWindowTaskTaskInvocationParameters{..} = - object $ - catMaybes - [ fmap (("MaintenanceWindowAutomationParameters",) . toJSON) _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowAutomationParameters - , fmap (("MaintenanceWindowLambdaParameters",) . toJSON) _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowLambdaParameters - , fmap (("MaintenanceWindowRunCommandParameters",) . toJSON) _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowRunCommandParameters - , fmap (("MaintenanceWindowStepFunctionsParameters",) . toJSON) _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowStepFunctionsParameters - ] - --- | Constructor for 'SSMMaintenanceWindowTaskTaskInvocationParameters' --- containing required fields as arguments. -ssmMaintenanceWindowTaskTaskInvocationParameters - :: SSMMaintenanceWindowTaskTaskInvocationParameters -ssmMaintenanceWindowTaskTaskInvocationParameters = - SSMMaintenanceWindowTaskTaskInvocationParameters - { _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowAutomationParameters = Nothing - , _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowLambdaParameters = Nothing - , _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowRunCommandParameters = Nothing - , _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowStepFunctionsParameters = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-taskinvocationparameters.html#cfn-ssm-maintenancewindowtask-taskinvocationparameters-maintenancewindowautomationparameters -ssmmwttipMaintenanceWindowAutomationParameters :: Lens' SSMMaintenanceWindowTaskTaskInvocationParameters (Maybe SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters) -ssmmwttipMaintenanceWindowAutomationParameters = lens _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowAutomationParameters (\s a -> s { _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowAutomationParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-taskinvocationparameters.html#cfn-ssm-maintenancewindowtask-taskinvocationparameters-maintenancewindowlambdaparameters -ssmmwttipMaintenanceWindowLambdaParameters :: Lens' SSMMaintenanceWindowTaskTaskInvocationParameters (Maybe SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters) -ssmmwttipMaintenanceWindowLambdaParameters = lens _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowLambdaParameters (\s a -> s { _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowLambdaParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-taskinvocationparameters.html#cfn-ssm-maintenancewindowtask-taskinvocationparameters-maintenancewindowruncommandparameters -ssmmwttipMaintenanceWindowRunCommandParameters :: Lens' SSMMaintenanceWindowTaskTaskInvocationParameters (Maybe SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters) -ssmmwttipMaintenanceWindowRunCommandParameters = lens _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowRunCommandParameters (\s a -> s { _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowRunCommandParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-maintenancewindowtask-taskinvocationparameters.html#cfn-ssm-maintenancewindowtask-taskinvocationparameters-maintenancewindowstepfunctionsparameters -ssmmwttipMaintenanceWindowStepFunctionsParameters :: Lens' SSMMaintenanceWindowTaskTaskInvocationParameters (Maybe SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters) -ssmmwttipMaintenanceWindowStepFunctionsParameters = lens _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowStepFunctionsParameters (\s a -> s { _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowStepFunctionsParameters = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SSMPatchBaselinePatchFilter.hs b/library-gen/Stratosphere/ResourceProperties/SSMPatchBaselinePatchFilter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SSMPatchBaselinePatchFilter.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-patchbaseline-patchfilter.html - -module Stratosphere.ResourceProperties.SSMPatchBaselinePatchFilter where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SSMPatchBaselinePatchFilter. See --- 'ssmPatchBaselinePatchFilter' for a more convenient constructor. -data SSMPatchBaselinePatchFilter = - SSMPatchBaselinePatchFilter - { _sSMPatchBaselinePatchFilterKey :: Maybe (Val Text) - , _sSMPatchBaselinePatchFilterValues :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON SSMPatchBaselinePatchFilter where - toJSON SSMPatchBaselinePatchFilter{..} = - object $ - catMaybes - [ fmap (("Key",) . toJSON) _sSMPatchBaselinePatchFilterKey - , fmap (("Values",) . toJSON) _sSMPatchBaselinePatchFilterValues - ] - --- | Constructor for 'SSMPatchBaselinePatchFilter' containing required fields --- as arguments. -ssmPatchBaselinePatchFilter - :: SSMPatchBaselinePatchFilter -ssmPatchBaselinePatchFilter = - SSMPatchBaselinePatchFilter - { _sSMPatchBaselinePatchFilterKey = Nothing - , _sSMPatchBaselinePatchFilterValues = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-patchbaseline-patchfilter.html#cfn-ssm-patchbaseline-patchfilter-key -ssmpbpfKey :: Lens' SSMPatchBaselinePatchFilter (Maybe (Val Text)) -ssmpbpfKey = lens _sSMPatchBaselinePatchFilterKey (\s a -> s { _sSMPatchBaselinePatchFilterKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-patchbaseline-patchfilter.html#cfn-ssm-patchbaseline-patchfilter-values -ssmpbpfValues :: Lens' SSMPatchBaselinePatchFilter (Maybe (ValList Text)) -ssmpbpfValues = lens _sSMPatchBaselinePatchFilterValues (\s a -> s { _sSMPatchBaselinePatchFilterValues = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SSMPatchBaselinePatchFilterGroup.hs b/library-gen/Stratosphere/ResourceProperties/SSMPatchBaselinePatchFilterGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SSMPatchBaselinePatchFilterGroup.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-patchbaseline-patchfiltergroup.html - -module Stratosphere.ResourceProperties.SSMPatchBaselinePatchFilterGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SSMPatchBaselinePatchFilter - --- | Full data type definition for SSMPatchBaselinePatchFilterGroup. See --- 'ssmPatchBaselinePatchFilterGroup' for a more convenient constructor. -data SSMPatchBaselinePatchFilterGroup = - SSMPatchBaselinePatchFilterGroup - { _sSMPatchBaselinePatchFilterGroupPatchFilters :: Maybe [SSMPatchBaselinePatchFilter] - } deriving (Show, Eq) - -instance ToJSON SSMPatchBaselinePatchFilterGroup where - toJSON SSMPatchBaselinePatchFilterGroup{..} = - object $ - catMaybes - [ fmap (("PatchFilters",) . toJSON) _sSMPatchBaselinePatchFilterGroupPatchFilters - ] - --- | Constructor for 'SSMPatchBaselinePatchFilterGroup' containing required --- fields as arguments. -ssmPatchBaselinePatchFilterGroup - :: SSMPatchBaselinePatchFilterGroup -ssmPatchBaselinePatchFilterGroup = - SSMPatchBaselinePatchFilterGroup - { _sSMPatchBaselinePatchFilterGroupPatchFilters = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-patchbaseline-patchfiltergroup.html#cfn-ssm-patchbaseline-patchfiltergroup-patchfilters -ssmpbpfgPatchFilters :: Lens' SSMPatchBaselinePatchFilterGroup (Maybe [SSMPatchBaselinePatchFilter]) -ssmpbpfgPatchFilters = lens _sSMPatchBaselinePatchFilterGroupPatchFilters (\s a -> s { _sSMPatchBaselinePatchFilterGroupPatchFilters = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SSMPatchBaselinePatchSource.hs b/library-gen/Stratosphere/ResourceProperties/SSMPatchBaselinePatchSource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SSMPatchBaselinePatchSource.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-patchbaseline-patchsource.html - -module Stratosphere.ResourceProperties.SSMPatchBaselinePatchSource where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SSMPatchBaselinePatchSource. See --- 'ssmPatchBaselinePatchSource' for a more convenient constructor. -data SSMPatchBaselinePatchSource = - SSMPatchBaselinePatchSource - { _sSMPatchBaselinePatchSourceConfiguration :: Maybe (Val Text) - , _sSMPatchBaselinePatchSourceName :: Maybe (Val Text) - , _sSMPatchBaselinePatchSourceProducts :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON SSMPatchBaselinePatchSource where - toJSON SSMPatchBaselinePatchSource{..} = - object $ - catMaybes - [ fmap (("Configuration",) . toJSON) _sSMPatchBaselinePatchSourceConfiguration - , fmap (("Name",) . toJSON) _sSMPatchBaselinePatchSourceName - , fmap (("Products",) . toJSON) _sSMPatchBaselinePatchSourceProducts - ] - --- | Constructor for 'SSMPatchBaselinePatchSource' containing required fields --- as arguments. -ssmPatchBaselinePatchSource - :: SSMPatchBaselinePatchSource -ssmPatchBaselinePatchSource = - SSMPatchBaselinePatchSource - { _sSMPatchBaselinePatchSourceConfiguration = Nothing - , _sSMPatchBaselinePatchSourceName = Nothing - , _sSMPatchBaselinePatchSourceProducts = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-patchbaseline-patchsource.html#cfn-ssm-patchbaseline-patchsource-configuration -ssmpbpsConfiguration :: Lens' SSMPatchBaselinePatchSource (Maybe (Val Text)) -ssmpbpsConfiguration = lens _sSMPatchBaselinePatchSourceConfiguration (\s a -> s { _sSMPatchBaselinePatchSourceConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-patchbaseline-patchsource.html#cfn-ssm-patchbaseline-patchsource-name -ssmpbpsName :: Lens' SSMPatchBaselinePatchSource (Maybe (Val Text)) -ssmpbpsName = lens _sSMPatchBaselinePatchSourceName (\s a -> s { _sSMPatchBaselinePatchSourceName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-patchbaseline-patchsource.html#cfn-ssm-patchbaseline-patchsource-products -ssmpbpsProducts :: Lens' SSMPatchBaselinePatchSource (Maybe (ValList Text)) -ssmpbpsProducts = lens _sSMPatchBaselinePatchSourceProducts (\s a -> s { _sSMPatchBaselinePatchSourceProducts = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SSMPatchBaselineRule.hs b/library-gen/Stratosphere/ResourceProperties/SSMPatchBaselineRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SSMPatchBaselineRule.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-patchbaseline-rule.html - -module Stratosphere.ResourceProperties.SSMPatchBaselineRule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SSMPatchBaselinePatchFilterGroup - --- | Full data type definition for SSMPatchBaselineRule. See --- 'ssmPatchBaselineRule' for a more convenient constructor. -data SSMPatchBaselineRule = - SSMPatchBaselineRule - { _sSMPatchBaselineRuleApproveAfterDays :: Maybe (Val Integer) - , _sSMPatchBaselineRuleComplianceLevel :: Maybe (Val Text) - , _sSMPatchBaselineRuleEnableNonSecurity :: Maybe (Val Bool) - , _sSMPatchBaselineRulePatchFilterGroup :: Maybe SSMPatchBaselinePatchFilterGroup - } deriving (Show, Eq) - -instance ToJSON SSMPatchBaselineRule where - toJSON SSMPatchBaselineRule{..} = - object $ - catMaybes - [ fmap (("ApproveAfterDays",) . toJSON) _sSMPatchBaselineRuleApproveAfterDays - , fmap (("ComplianceLevel",) . toJSON) _sSMPatchBaselineRuleComplianceLevel - , fmap (("EnableNonSecurity",) . toJSON) _sSMPatchBaselineRuleEnableNonSecurity - , fmap (("PatchFilterGroup",) . toJSON) _sSMPatchBaselineRulePatchFilterGroup - ] - --- | Constructor for 'SSMPatchBaselineRule' containing required fields as --- arguments. -ssmPatchBaselineRule - :: SSMPatchBaselineRule -ssmPatchBaselineRule = - SSMPatchBaselineRule - { _sSMPatchBaselineRuleApproveAfterDays = Nothing - , _sSMPatchBaselineRuleComplianceLevel = Nothing - , _sSMPatchBaselineRuleEnableNonSecurity = Nothing - , _sSMPatchBaselineRulePatchFilterGroup = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-patchbaseline-rule.html#cfn-ssm-patchbaseline-rule-approveafterdays -ssmpbrApproveAfterDays :: Lens' SSMPatchBaselineRule (Maybe (Val Integer)) -ssmpbrApproveAfterDays = lens _sSMPatchBaselineRuleApproveAfterDays (\s a -> s { _sSMPatchBaselineRuleApproveAfterDays = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-patchbaseline-rule.html#cfn-ssm-patchbaseline-rule-compliancelevel -ssmpbrComplianceLevel :: Lens' SSMPatchBaselineRule (Maybe (Val Text)) -ssmpbrComplianceLevel = lens _sSMPatchBaselineRuleComplianceLevel (\s a -> s { _sSMPatchBaselineRuleComplianceLevel = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-patchbaseline-rule.html#cfn-ssm-patchbaseline-rule-enablenonsecurity -ssmpbrEnableNonSecurity :: Lens' SSMPatchBaselineRule (Maybe (Val Bool)) -ssmpbrEnableNonSecurity = lens _sSMPatchBaselineRuleEnableNonSecurity (\s a -> s { _sSMPatchBaselineRuleEnableNonSecurity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-patchbaseline-rule.html#cfn-ssm-patchbaseline-rule-patchfiltergroup -ssmpbrPatchFilterGroup :: Lens' SSMPatchBaselineRule (Maybe SSMPatchBaselinePatchFilterGroup) -ssmpbrPatchFilterGroup = lens _sSMPatchBaselineRulePatchFilterGroup (\s a -> s { _sSMPatchBaselineRulePatchFilterGroup = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SSMPatchBaselineRuleGroup.hs b/library-gen/Stratosphere/ResourceProperties/SSMPatchBaselineRuleGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SSMPatchBaselineRuleGroup.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-patchbaseline-rulegroup.html - -module Stratosphere.ResourceProperties.SSMPatchBaselineRuleGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SSMPatchBaselineRule - --- | Full data type definition for SSMPatchBaselineRuleGroup. See --- 'ssmPatchBaselineRuleGroup' for a more convenient constructor. -data SSMPatchBaselineRuleGroup = - SSMPatchBaselineRuleGroup - { _sSMPatchBaselineRuleGroupPatchRules :: Maybe [SSMPatchBaselineRule] - } deriving (Show, Eq) - -instance ToJSON SSMPatchBaselineRuleGroup where - toJSON SSMPatchBaselineRuleGroup{..} = - object $ - catMaybes - [ fmap (("PatchRules",) . toJSON) _sSMPatchBaselineRuleGroupPatchRules - ] - --- | Constructor for 'SSMPatchBaselineRuleGroup' containing required fields as --- arguments. -ssmPatchBaselineRuleGroup - :: SSMPatchBaselineRuleGroup -ssmPatchBaselineRuleGroup = - SSMPatchBaselineRuleGroup - { _sSMPatchBaselineRuleGroupPatchRules = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-patchbaseline-rulegroup.html#cfn-ssm-patchbaseline-rulegroup-patchrules -ssmpbrgPatchRules :: Lens' SSMPatchBaselineRuleGroup (Maybe [SSMPatchBaselineRule]) -ssmpbrgPatchRules = lens _sSMPatchBaselineRuleGroupPatchRules (\s a -> s { _sSMPatchBaselineRuleGroupPatchRules = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SSMResourceDataSyncAwsOrganizationsSource.hs b/library-gen/Stratosphere/ResourceProperties/SSMResourceDataSyncAwsOrganizationsSource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SSMResourceDataSyncAwsOrganizationsSource.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-resourcedatasync-awsorganizationssource.html - -module Stratosphere.ResourceProperties.SSMResourceDataSyncAwsOrganizationsSource where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SSMResourceDataSyncAwsOrganizationsSource. --- See 'ssmResourceDataSyncAwsOrganizationsSource' for a more convenient --- constructor. -data SSMResourceDataSyncAwsOrganizationsSource = - SSMResourceDataSyncAwsOrganizationsSource - { _sSMResourceDataSyncAwsOrganizationsSourceOrganizationSourceType :: Val Text - , _sSMResourceDataSyncAwsOrganizationsSourceOrganizationalUnits :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON SSMResourceDataSyncAwsOrganizationsSource where - toJSON SSMResourceDataSyncAwsOrganizationsSource{..} = - object $ - catMaybes - [ (Just . ("OrganizationSourceType",) . toJSON) _sSMResourceDataSyncAwsOrganizationsSourceOrganizationSourceType - , fmap (("OrganizationalUnits",) . toJSON) _sSMResourceDataSyncAwsOrganizationsSourceOrganizationalUnits - ] - --- | Constructor for 'SSMResourceDataSyncAwsOrganizationsSource' containing --- required fields as arguments. -ssmResourceDataSyncAwsOrganizationsSource - :: Val Text -- ^ 'ssmrdsaosOrganizationSourceType' - -> SSMResourceDataSyncAwsOrganizationsSource -ssmResourceDataSyncAwsOrganizationsSource organizationSourceTypearg = - SSMResourceDataSyncAwsOrganizationsSource - { _sSMResourceDataSyncAwsOrganizationsSourceOrganizationSourceType = organizationSourceTypearg - , _sSMResourceDataSyncAwsOrganizationsSourceOrganizationalUnits = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-resourcedatasync-awsorganizationssource.html#cfn-ssm-resourcedatasync-awsorganizationssource-organizationsourcetype -ssmrdsaosOrganizationSourceType :: Lens' SSMResourceDataSyncAwsOrganizationsSource (Val Text) -ssmrdsaosOrganizationSourceType = lens _sSMResourceDataSyncAwsOrganizationsSourceOrganizationSourceType (\s a -> s { _sSMResourceDataSyncAwsOrganizationsSourceOrganizationSourceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-resourcedatasync-awsorganizationssource.html#cfn-ssm-resourcedatasync-awsorganizationssource-organizationalunits -ssmrdsaosOrganizationalUnits :: Lens' SSMResourceDataSyncAwsOrganizationsSource (Maybe (ValList Text)) -ssmrdsaosOrganizationalUnits = lens _sSMResourceDataSyncAwsOrganizationsSourceOrganizationalUnits (\s a -> s { _sSMResourceDataSyncAwsOrganizationsSourceOrganizationalUnits = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SSMResourceDataSyncS3Destination.hs b/library-gen/Stratosphere/ResourceProperties/SSMResourceDataSyncS3Destination.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SSMResourceDataSyncS3Destination.hs +++ /dev/null @@ -1,69 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-resourcedatasync-s3destination.html - -module Stratosphere.ResourceProperties.SSMResourceDataSyncS3Destination where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SSMResourceDataSyncS3Destination. See --- 'ssmResourceDataSyncS3Destination' for a more convenient constructor. -data SSMResourceDataSyncS3Destination = - SSMResourceDataSyncS3Destination - { _sSMResourceDataSyncS3DestinationBucketName :: Val Text - , _sSMResourceDataSyncS3DestinationBucketPrefix :: Maybe (Val Text) - , _sSMResourceDataSyncS3DestinationBucketRegion :: Val Text - , _sSMResourceDataSyncS3DestinationKMSKeyArn :: Maybe (Val Text) - , _sSMResourceDataSyncS3DestinationSyncFormat :: Val Text - } deriving (Show, Eq) - -instance ToJSON SSMResourceDataSyncS3Destination where - toJSON SSMResourceDataSyncS3Destination{..} = - object $ - catMaybes - [ (Just . ("BucketName",) . toJSON) _sSMResourceDataSyncS3DestinationBucketName - , fmap (("BucketPrefix",) . toJSON) _sSMResourceDataSyncS3DestinationBucketPrefix - , (Just . ("BucketRegion",) . toJSON) _sSMResourceDataSyncS3DestinationBucketRegion - , fmap (("KMSKeyArn",) . toJSON) _sSMResourceDataSyncS3DestinationKMSKeyArn - , (Just . ("SyncFormat",) . toJSON) _sSMResourceDataSyncS3DestinationSyncFormat - ] - --- | Constructor for 'SSMResourceDataSyncS3Destination' containing required --- fields as arguments. -ssmResourceDataSyncS3Destination - :: Val Text -- ^ 'ssmrdssdBucketName' - -> Val Text -- ^ 'ssmrdssdBucketRegion' - -> Val Text -- ^ 'ssmrdssdSyncFormat' - -> SSMResourceDataSyncS3Destination -ssmResourceDataSyncS3Destination bucketNamearg bucketRegionarg syncFormatarg = - SSMResourceDataSyncS3Destination - { _sSMResourceDataSyncS3DestinationBucketName = bucketNamearg - , _sSMResourceDataSyncS3DestinationBucketPrefix = Nothing - , _sSMResourceDataSyncS3DestinationBucketRegion = bucketRegionarg - , _sSMResourceDataSyncS3DestinationKMSKeyArn = Nothing - , _sSMResourceDataSyncS3DestinationSyncFormat = syncFormatarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-resourcedatasync-s3destination.html#cfn-ssm-resourcedatasync-s3destination-bucketname -ssmrdssdBucketName :: Lens' SSMResourceDataSyncS3Destination (Val Text) -ssmrdssdBucketName = lens _sSMResourceDataSyncS3DestinationBucketName (\s a -> s { _sSMResourceDataSyncS3DestinationBucketName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-resourcedatasync-s3destination.html#cfn-ssm-resourcedatasync-s3destination-bucketprefix -ssmrdssdBucketPrefix :: Lens' SSMResourceDataSyncS3Destination (Maybe (Val Text)) -ssmrdssdBucketPrefix = lens _sSMResourceDataSyncS3DestinationBucketPrefix (\s a -> s { _sSMResourceDataSyncS3DestinationBucketPrefix = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-resourcedatasync-s3destination.html#cfn-ssm-resourcedatasync-s3destination-bucketregion -ssmrdssdBucketRegion :: Lens' SSMResourceDataSyncS3Destination (Val Text) -ssmrdssdBucketRegion = lens _sSMResourceDataSyncS3DestinationBucketRegion (\s a -> s { _sSMResourceDataSyncS3DestinationBucketRegion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-resourcedatasync-s3destination.html#cfn-ssm-resourcedatasync-s3destination-kmskeyarn -ssmrdssdKMSKeyArn :: Lens' SSMResourceDataSyncS3Destination (Maybe (Val Text)) -ssmrdssdKMSKeyArn = lens _sSMResourceDataSyncS3DestinationKMSKeyArn (\s a -> s { _sSMResourceDataSyncS3DestinationKMSKeyArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-resourcedatasync-s3destination.html#cfn-ssm-resourcedatasync-s3destination-syncformat -ssmrdssdSyncFormat :: Lens' SSMResourceDataSyncS3Destination (Val Text) -ssmrdssdSyncFormat = lens _sSMResourceDataSyncS3DestinationSyncFormat (\s a -> s { _sSMResourceDataSyncS3DestinationSyncFormat = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SSMResourceDataSyncSyncSource.hs b/library-gen/Stratosphere/ResourceProperties/SSMResourceDataSyncSyncSource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SSMResourceDataSyncSyncSource.hs +++ /dev/null @@ -1,61 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-resourcedatasync-syncsource.html - -module Stratosphere.ResourceProperties.SSMResourceDataSyncSyncSource where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SSMResourceDataSyncAwsOrganizationsSource - --- | Full data type definition for SSMResourceDataSyncSyncSource. See --- 'ssmResourceDataSyncSyncSource' for a more convenient constructor. -data SSMResourceDataSyncSyncSource = - SSMResourceDataSyncSyncSource - { _sSMResourceDataSyncSyncSourceAwsOrganizationsSource :: Maybe SSMResourceDataSyncAwsOrganizationsSource - , _sSMResourceDataSyncSyncSourceIncludeFutureRegions :: Maybe (Val Bool) - , _sSMResourceDataSyncSyncSourceSourceRegions :: ValList Text - , _sSMResourceDataSyncSyncSourceSourceType :: Val Text - } deriving (Show, Eq) - -instance ToJSON SSMResourceDataSyncSyncSource where - toJSON SSMResourceDataSyncSyncSource{..} = - object $ - catMaybes - [ fmap (("AwsOrganizationsSource",) . toJSON) _sSMResourceDataSyncSyncSourceAwsOrganizationsSource - , fmap (("IncludeFutureRegions",) . toJSON) _sSMResourceDataSyncSyncSourceIncludeFutureRegions - , (Just . ("SourceRegions",) . toJSON) _sSMResourceDataSyncSyncSourceSourceRegions - , (Just . ("SourceType",) . toJSON) _sSMResourceDataSyncSyncSourceSourceType - ] - --- | Constructor for 'SSMResourceDataSyncSyncSource' containing required --- fields as arguments. -ssmResourceDataSyncSyncSource - :: ValList Text -- ^ 'ssmrdsssSourceRegions' - -> Val Text -- ^ 'ssmrdsssSourceType' - -> SSMResourceDataSyncSyncSource -ssmResourceDataSyncSyncSource sourceRegionsarg sourceTypearg = - SSMResourceDataSyncSyncSource - { _sSMResourceDataSyncSyncSourceAwsOrganizationsSource = Nothing - , _sSMResourceDataSyncSyncSourceIncludeFutureRegions = Nothing - , _sSMResourceDataSyncSyncSourceSourceRegions = sourceRegionsarg - , _sSMResourceDataSyncSyncSourceSourceType = sourceTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-resourcedatasync-syncsource.html#cfn-ssm-resourcedatasync-syncsource-awsorganizationssource -ssmrdsssAwsOrganizationsSource :: Lens' SSMResourceDataSyncSyncSource (Maybe SSMResourceDataSyncAwsOrganizationsSource) -ssmrdsssAwsOrganizationsSource = lens _sSMResourceDataSyncSyncSourceAwsOrganizationsSource (\s a -> s { _sSMResourceDataSyncSyncSourceAwsOrganizationsSource = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-resourcedatasync-syncsource.html#cfn-ssm-resourcedatasync-syncsource-includefutureregions -ssmrdsssIncludeFutureRegions :: Lens' SSMResourceDataSyncSyncSource (Maybe (Val Bool)) -ssmrdsssIncludeFutureRegions = lens _sSMResourceDataSyncSyncSourceIncludeFutureRegions (\s a -> s { _sSMResourceDataSyncSyncSourceIncludeFutureRegions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-resourcedatasync-syncsource.html#cfn-ssm-resourcedatasync-syncsource-sourceregions -ssmrdsssSourceRegions :: Lens' SSMResourceDataSyncSyncSource (ValList Text) -ssmrdsssSourceRegions = lens _sSMResourceDataSyncSyncSourceSourceRegions (\s a -> s { _sSMResourceDataSyncSyncSourceSourceRegions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ssm-resourcedatasync-syncsource.html#cfn-ssm-resourcedatasync-syncsource-sourcetype -ssmrdsssSourceType :: Lens' SSMResourceDataSyncSyncSource (Val Text) -ssmrdsssSourceType = lens _sSMResourceDataSyncSyncSourceSourceType (\s a -> s { _sSMResourceDataSyncSyncSourceSourceType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerCodeRepositoryGitConfig.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerCodeRepositoryGitConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerCodeRepositoryGitConfig.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-coderepository-gitconfig.html - -module Stratosphere.ResourceProperties.SageMakerCodeRepositoryGitConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SageMakerCodeRepositoryGitConfig. See --- 'sageMakerCodeRepositoryGitConfig' for a more convenient constructor. -data SageMakerCodeRepositoryGitConfig = - SageMakerCodeRepositoryGitConfig - { _sageMakerCodeRepositoryGitConfigBranch :: Maybe (Val Text) - , _sageMakerCodeRepositoryGitConfigRepositoryUrl :: Val Text - , _sageMakerCodeRepositoryGitConfigSecretArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON SageMakerCodeRepositoryGitConfig where - toJSON SageMakerCodeRepositoryGitConfig{..} = - object $ - catMaybes - [ fmap (("Branch",) . toJSON) _sageMakerCodeRepositoryGitConfigBranch - , (Just . ("RepositoryUrl",) . toJSON) _sageMakerCodeRepositoryGitConfigRepositoryUrl - , fmap (("SecretArn",) . toJSON) _sageMakerCodeRepositoryGitConfigSecretArn - ] - --- | Constructor for 'SageMakerCodeRepositoryGitConfig' containing required --- fields as arguments. -sageMakerCodeRepositoryGitConfig - :: Val Text -- ^ 'smcrgcRepositoryUrl' - -> SageMakerCodeRepositoryGitConfig -sageMakerCodeRepositoryGitConfig repositoryUrlarg = - SageMakerCodeRepositoryGitConfig - { _sageMakerCodeRepositoryGitConfigBranch = Nothing - , _sageMakerCodeRepositoryGitConfigRepositoryUrl = repositoryUrlarg - , _sageMakerCodeRepositoryGitConfigSecretArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-coderepository-gitconfig.html#cfn-sagemaker-coderepository-gitconfig-branch -smcrgcBranch :: Lens' SageMakerCodeRepositoryGitConfig (Maybe (Val Text)) -smcrgcBranch = lens _sageMakerCodeRepositoryGitConfigBranch (\s a -> s { _sageMakerCodeRepositoryGitConfigBranch = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-coderepository-gitconfig.html#cfn-sagemaker-coderepository-gitconfig-repositoryurl -smcrgcRepositoryUrl :: Lens' SageMakerCodeRepositoryGitConfig (Val Text) -smcrgcRepositoryUrl = lens _sageMakerCodeRepositoryGitConfigRepositoryUrl (\s a -> s { _sageMakerCodeRepositoryGitConfigRepositoryUrl = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-coderepository-gitconfig.html#cfn-sagemaker-coderepository-gitconfig-secretarn -smcrgcSecretArn :: Lens' SageMakerCodeRepositoryGitConfig (Maybe (Val Text)) -smcrgcSecretArn = lens _sageMakerCodeRepositoryGitConfigSecretArn (\s a -> s { _sageMakerCodeRepositoryGitConfigSecretArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerEndpointConfigCaptureContentTypeHeader.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerEndpointConfigCaptureContentTypeHeader.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerEndpointConfigCaptureContentTypeHeader.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-datacaptureconfig-capturecontenttypeheader.html - -module Stratosphere.ResourceProperties.SageMakerEndpointConfigCaptureContentTypeHeader where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- SageMakerEndpointConfigCaptureContentTypeHeader. See --- 'sageMakerEndpointConfigCaptureContentTypeHeader' for a more convenient --- constructor. -data SageMakerEndpointConfigCaptureContentTypeHeader = - SageMakerEndpointConfigCaptureContentTypeHeader - { _sageMakerEndpointConfigCaptureContentTypeHeaderCsvContentTypes :: Maybe (ValList Text) - , _sageMakerEndpointConfigCaptureContentTypeHeaderJsonContentTypes :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON SageMakerEndpointConfigCaptureContentTypeHeader where - toJSON SageMakerEndpointConfigCaptureContentTypeHeader{..} = - object $ - catMaybes - [ fmap (("CsvContentTypes",) . toJSON) _sageMakerEndpointConfigCaptureContentTypeHeaderCsvContentTypes - , fmap (("JsonContentTypes",) . toJSON) _sageMakerEndpointConfigCaptureContentTypeHeaderJsonContentTypes - ] - --- | Constructor for 'SageMakerEndpointConfigCaptureContentTypeHeader' --- containing required fields as arguments. -sageMakerEndpointConfigCaptureContentTypeHeader - :: SageMakerEndpointConfigCaptureContentTypeHeader -sageMakerEndpointConfigCaptureContentTypeHeader = - SageMakerEndpointConfigCaptureContentTypeHeader - { _sageMakerEndpointConfigCaptureContentTypeHeaderCsvContentTypes = Nothing - , _sageMakerEndpointConfigCaptureContentTypeHeaderJsonContentTypes = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-datacaptureconfig-capturecontenttypeheader.html#cfn-sagemaker-endpointconfig-datacaptureconfig-capturecontenttypeheader-csvcontenttypes -smecccthCsvContentTypes :: Lens' SageMakerEndpointConfigCaptureContentTypeHeader (Maybe (ValList Text)) -smecccthCsvContentTypes = lens _sageMakerEndpointConfigCaptureContentTypeHeaderCsvContentTypes (\s a -> s { _sageMakerEndpointConfigCaptureContentTypeHeaderCsvContentTypes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-datacaptureconfig-capturecontenttypeheader.html#cfn-sagemaker-endpointconfig-datacaptureconfig-capturecontenttypeheader-jsoncontenttypes -smecccthJsonContentTypes :: Lens' SageMakerEndpointConfigCaptureContentTypeHeader (Maybe (ValList Text)) -smecccthJsonContentTypes = lens _sageMakerEndpointConfigCaptureContentTypeHeaderJsonContentTypes (\s a -> s { _sageMakerEndpointConfigCaptureContentTypeHeaderJsonContentTypes = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerEndpointConfigCaptureOption.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerEndpointConfigCaptureOption.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerEndpointConfigCaptureOption.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-captureoption.html - -module Stratosphere.ResourceProperties.SageMakerEndpointConfigCaptureOption where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SageMakerEndpointConfigCaptureOption. See --- 'sageMakerEndpointConfigCaptureOption' for a more convenient constructor. -data SageMakerEndpointConfigCaptureOption = - SageMakerEndpointConfigCaptureOption - { _sageMakerEndpointConfigCaptureOptionCaptureMode :: Val Text - } deriving (Show, Eq) - -instance ToJSON SageMakerEndpointConfigCaptureOption where - toJSON SageMakerEndpointConfigCaptureOption{..} = - object $ - catMaybes - [ (Just . ("CaptureMode",) . toJSON) _sageMakerEndpointConfigCaptureOptionCaptureMode - ] - --- | Constructor for 'SageMakerEndpointConfigCaptureOption' containing --- required fields as arguments. -sageMakerEndpointConfigCaptureOption - :: Val Text -- ^ 'smeccoCaptureMode' - -> SageMakerEndpointConfigCaptureOption -sageMakerEndpointConfigCaptureOption captureModearg = - SageMakerEndpointConfigCaptureOption - { _sageMakerEndpointConfigCaptureOptionCaptureMode = captureModearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-captureoption.html#cfn-sagemaker-endpointconfig-captureoption-capturemode -smeccoCaptureMode :: Lens' SageMakerEndpointConfigCaptureOption (Val Text) -smeccoCaptureMode = lens _sageMakerEndpointConfigCaptureOptionCaptureMode (\s a -> s { _sageMakerEndpointConfigCaptureOptionCaptureMode = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerEndpointConfigDataCaptureConfig.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerEndpointConfigDataCaptureConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerEndpointConfigDataCaptureConfig.hs +++ /dev/null @@ -1,78 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-datacaptureconfig.html - -module Stratosphere.ResourceProperties.SageMakerEndpointConfigDataCaptureConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SageMakerEndpointConfigCaptureContentTypeHeader -import Stratosphere.ResourceProperties.SageMakerEndpointConfigCaptureOption - --- | Full data type definition for SageMakerEndpointConfigDataCaptureConfig. --- See 'sageMakerEndpointConfigDataCaptureConfig' for a more convenient --- constructor. -data SageMakerEndpointConfigDataCaptureConfig = - SageMakerEndpointConfigDataCaptureConfig - { _sageMakerEndpointConfigDataCaptureConfigCaptureContentTypeHeader :: Maybe SageMakerEndpointConfigCaptureContentTypeHeader - , _sageMakerEndpointConfigDataCaptureConfigCaptureOptions :: [SageMakerEndpointConfigCaptureOption] - , _sageMakerEndpointConfigDataCaptureConfigDestinationS3Uri :: Val Text - , _sageMakerEndpointConfigDataCaptureConfigEnableCapture :: Maybe (Val Bool) - , _sageMakerEndpointConfigDataCaptureConfigInitialSamplingPercentage :: Val Integer - , _sageMakerEndpointConfigDataCaptureConfigKmsKeyId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON SageMakerEndpointConfigDataCaptureConfig where - toJSON SageMakerEndpointConfigDataCaptureConfig{..} = - object $ - catMaybes - [ fmap (("CaptureContentTypeHeader",) . toJSON) _sageMakerEndpointConfigDataCaptureConfigCaptureContentTypeHeader - , (Just . ("CaptureOptions",) . toJSON) _sageMakerEndpointConfigDataCaptureConfigCaptureOptions - , (Just . ("DestinationS3Uri",) . toJSON) _sageMakerEndpointConfigDataCaptureConfigDestinationS3Uri - , fmap (("EnableCapture",) . toJSON) _sageMakerEndpointConfigDataCaptureConfigEnableCapture - , (Just . ("InitialSamplingPercentage",) . toJSON) _sageMakerEndpointConfigDataCaptureConfigInitialSamplingPercentage - , fmap (("KmsKeyId",) . toJSON) _sageMakerEndpointConfigDataCaptureConfigKmsKeyId - ] - --- | Constructor for 'SageMakerEndpointConfigDataCaptureConfig' containing --- required fields as arguments. -sageMakerEndpointConfigDataCaptureConfig - :: [SageMakerEndpointConfigCaptureOption] -- ^ 'smecdccCaptureOptions' - -> Val Text -- ^ 'smecdccDestinationS3Uri' - -> Val Integer -- ^ 'smecdccInitialSamplingPercentage' - -> SageMakerEndpointConfigDataCaptureConfig -sageMakerEndpointConfigDataCaptureConfig captureOptionsarg destinationS3Uriarg initialSamplingPercentagearg = - SageMakerEndpointConfigDataCaptureConfig - { _sageMakerEndpointConfigDataCaptureConfigCaptureContentTypeHeader = Nothing - , _sageMakerEndpointConfigDataCaptureConfigCaptureOptions = captureOptionsarg - , _sageMakerEndpointConfigDataCaptureConfigDestinationS3Uri = destinationS3Uriarg - , _sageMakerEndpointConfigDataCaptureConfigEnableCapture = Nothing - , _sageMakerEndpointConfigDataCaptureConfigInitialSamplingPercentage = initialSamplingPercentagearg - , _sageMakerEndpointConfigDataCaptureConfigKmsKeyId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-datacaptureconfig.html#cfn-sagemaker-endpointconfig-datacaptureconfig-capturecontenttypeheader -smecdccCaptureContentTypeHeader :: Lens' SageMakerEndpointConfigDataCaptureConfig (Maybe SageMakerEndpointConfigCaptureContentTypeHeader) -smecdccCaptureContentTypeHeader = lens _sageMakerEndpointConfigDataCaptureConfigCaptureContentTypeHeader (\s a -> s { _sageMakerEndpointConfigDataCaptureConfigCaptureContentTypeHeader = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-datacaptureconfig.html#cfn-sagemaker-endpointconfig-datacaptureconfig-captureoptions -smecdccCaptureOptions :: Lens' SageMakerEndpointConfigDataCaptureConfig [SageMakerEndpointConfigCaptureOption] -smecdccCaptureOptions = lens _sageMakerEndpointConfigDataCaptureConfigCaptureOptions (\s a -> s { _sageMakerEndpointConfigDataCaptureConfigCaptureOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-datacaptureconfig.html#cfn-sagemaker-endpointconfig-datacaptureconfig-destinations3uri -smecdccDestinationS3Uri :: Lens' SageMakerEndpointConfigDataCaptureConfig (Val Text) -smecdccDestinationS3Uri = lens _sageMakerEndpointConfigDataCaptureConfigDestinationS3Uri (\s a -> s { _sageMakerEndpointConfigDataCaptureConfigDestinationS3Uri = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-datacaptureconfig.html#cfn-sagemaker-endpointconfig-datacaptureconfig-enablecapture -smecdccEnableCapture :: Lens' SageMakerEndpointConfigDataCaptureConfig (Maybe (Val Bool)) -smecdccEnableCapture = lens _sageMakerEndpointConfigDataCaptureConfigEnableCapture (\s a -> s { _sageMakerEndpointConfigDataCaptureConfigEnableCapture = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-datacaptureconfig.html#cfn-sagemaker-endpointconfig-datacaptureconfig-initialsamplingpercentage -smecdccInitialSamplingPercentage :: Lens' SageMakerEndpointConfigDataCaptureConfig (Val Integer) -smecdccInitialSamplingPercentage = lens _sageMakerEndpointConfigDataCaptureConfigInitialSamplingPercentage (\s a -> s { _sageMakerEndpointConfigDataCaptureConfigInitialSamplingPercentage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-datacaptureconfig.html#cfn-sagemaker-endpointconfig-datacaptureconfig-kmskeyid -smecdccKmsKeyId :: Lens' SageMakerEndpointConfigDataCaptureConfig (Maybe (Val Text)) -smecdccKmsKeyId = lens _sageMakerEndpointConfigDataCaptureConfigKmsKeyId (\s a -> s { _sageMakerEndpointConfigDataCaptureConfigKmsKeyId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerEndpointConfigProductionVariant.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerEndpointConfigProductionVariant.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerEndpointConfigProductionVariant.hs +++ /dev/null @@ -1,79 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-productionvariant.html - -module Stratosphere.ResourceProperties.SageMakerEndpointConfigProductionVariant where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SageMakerEndpointConfigProductionVariant. --- See 'sageMakerEndpointConfigProductionVariant' for a more convenient --- constructor. -data SageMakerEndpointConfigProductionVariant = - SageMakerEndpointConfigProductionVariant - { _sageMakerEndpointConfigProductionVariantAcceleratorType :: Maybe (Val Text) - , _sageMakerEndpointConfigProductionVariantInitialInstanceCount :: Val Integer - , _sageMakerEndpointConfigProductionVariantInitialVariantWeight :: Val Double - , _sageMakerEndpointConfigProductionVariantInstanceType :: Val Text - , _sageMakerEndpointConfigProductionVariantModelName :: Val Text - , _sageMakerEndpointConfigProductionVariantVariantName :: Val Text - } deriving (Show, Eq) - -instance ToJSON SageMakerEndpointConfigProductionVariant where - toJSON SageMakerEndpointConfigProductionVariant{..} = - object $ - catMaybes - [ fmap (("AcceleratorType",) . toJSON) _sageMakerEndpointConfigProductionVariantAcceleratorType - , (Just . ("InitialInstanceCount",) . toJSON) _sageMakerEndpointConfigProductionVariantInitialInstanceCount - , (Just . ("InitialVariantWeight",) . toJSON) _sageMakerEndpointConfigProductionVariantInitialVariantWeight - , (Just . ("InstanceType",) . toJSON) _sageMakerEndpointConfigProductionVariantInstanceType - , (Just . ("ModelName",) . toJSON) _sageMakerEndpointConfigProductionVariantModelName - , (Just . ("VariantName",) . toJSON) _sageMakerEndpointConfigProductionVariantVariantName - ] - --- | Constructor for 'SageMakerEndpointConfigProductionVariant' containing --- required fields as arguments. -sageMakerEndpointConfigProductionVariant - :: Val Integer -- ^ 'smecpvInitialInstanceCount' - -> Val Double -- ^ 'smecpvInitialVariantWeight' - -> Val Text -- ^ 'smecpvInstanceType' - -> Val Text -- ^ 'smecpvModelName' - -> Val Text -- ^ 'smecpvVariantName' - -> SageMakerEndpointConfigProductionVariant -sageMakerEndpointConfigProductionVariant initialInstanceCountarg initialVariantWeightarg instanceTypearg modelNamearg variantNamearg = - SageMakerEndpointConfigProductionVariant - { _sageMakerEndpointConfigProductionVariantAcceleratorType = Nothing - , _sageMakerEndpointConfigProductionVariantInitialInstanceCount = initialInstanceCountarg - , _sageMakerEndpointConfigProductionVariantInitialVariantWeight = initialVariantWeightarg - , _sageMakerEndpointConfigProductionVariantInstanceType = instanceTypearg - , _sageMakerEndpointConfigProductionVariantModelName = modelNamearg - , _sageMakerEndpointConfigProductionVariantVariantName = variantNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-productionvariant.html#cfn-sagemaker-endpointconfig-productionvariant-acceleratortype -smecpvAcceleratorType :: Lens' SageMakerEndpointConfigProductionVariant (Maybe (Val Text)) -smecpvAcceleratorType = lens _sageMakerEndpointConfigProductionVariantAcceleratorType (\s a -> s { _sageMakerEndpointConfigProductionVariantAcceleratorType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-productionvariant.html#cfn-sagemaker-endpointconfig-productionvariant-initialinstancecount -smecpvInitialInstanceCount :: Lens' SageMakerEndpointConfigProductionVariant (Val Integer) -smecpvInitialInstanceCount = lens _sageMakerEndpointConfigProductionVariantInitialInstanceCount (\s a -> s { _sageMakerEndpointConfigProductionVariantInitialInstanceCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-productionvariant.html#cfn-sagemaker-endpointconfig-productionvariant-initialvariantweight -smecpvInitialVariantWeight :: Lens' SageMakerEndpointConfigProductionVariant (Val Double) -smecpvInitialVariantWeight = lens _sageMakerEndpointConfigProductionVariantInitialVariantWeight (\s a -> s { _sageMakerEndpointConfigProductionVariantInitialVariantWeight = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-productionvariant.html#cfn-sagemaker-endpointconfig-productionvariant-instancetype -smecpvInstanceType :: Lens' SageMakerEndpointConfigProductionVariant (Val Text) -smecpvInstanceType = lens _sageMakerEndpointConfigProductionVariantInstanceType (\s a -> s { _sageMakerEndpointConfigProductionVariantInstanceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-productionvariant.html#cfn-sagemaker-endpointconfig-productionvariant-modelname -smecpvModelName :: Lens' SageMakerEndpointConfigProductionVariant (Val Text) -smecpvModelName = lens _sageMakerEndpointConfigProductionVariantModelName (\s a -> s { _sageMakerEndpointConfigProductionVariantModelName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpointconfig-productionvariant.html#cfn-sagemaker-endpointconfig-productionvariant-variantname -smecpvVariantName :: Lens' SageMakerEndpointConfigProductionVariant (Val Text) -smecpvVariantName = lens _sageMakerEndpointConfigProductionVariantVariantName (\s a -> s { _sageMakerEndpointConfigProductionVariantVariantName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerEndpointVariantProperty.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerEndpointVariantProperty.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerEndpointVariantProperty.hs +++ /dev/null @@ -1,38 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpoint-variantproperty.html - -module Stratosphere.ResourceProperties.SageMakerEndpointVariantProperty where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SageMakerEndpointVariantProperty. See --- 'sageMakerEndpointVariantProperty' for a more convenient constructor. -data SageMakerEndpointVariantProperty = - SageMakerEndpointVariantProperty - { _sageMakerEndpointVariantPropertyVariantPropertyType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON SageMakerEndpointVariantProperty where - toJSON SageMakerEndpointVariantProperty{..} = - object $ - catMaybes - [ fmap (("VariantPropertyType",) . toJSON) _sageMakerEndpointVariantPropertyVariantPropertyType - ] - --- | Constructor for 'SageMakerEndpointVariantProperty' containing required --- fields as arguments. -sageMakerEndpointVariantProperty - :: SageMakerEndpointVariantProperty -sageMakerEndpointVariantProperty = - SageMakerEndpointVariantProperty - { _sageMakerEndpointVariantPropertyVariantPropertyType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-endpoint-variantproperty.html#cfn-sagemaker-endpoint-variantproperty-variantpropertytype -smevpVariantPropertyType :: Lens' SageMakerEndpointVariantProperty (Maybe (Val Text)) -smevpVariantPropertyType = lens _sageMakerEndpointVariantPropertyVariantPropertyType (\s a -> s { _sageMakerEndpointVariantPropertyVariantPropertyType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerModelContainerDefinition.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerModelContainerDefinition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerModelContainerDefinition.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-model-containerdefinition.html - -module Stratosphere.ResourceProperties.SageMakerModelContainerDefinition where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SageMakerModelContainerDefinition. See --- 'sageMakerModelContainerDefinition' for a more convenient constructor. -data SageMakerModelContainerDefinition = - SageMakerModelContainerDefinition - { _sageMakerModelContainerDefinitionContainerHostname :: Maybe (Val Text) - , _sageMakerModelContainerDefinitionEnvironment :: Maybe Object - , _sageMakerModelContainerDefinitionImage :: Maybe (Val Text) - , _sageMakerModelContainerDefinitionMode :: Maybe (Val Text) - , _sageMakerModelContainerDefinitionModelDataUrl :: Maybe (Val Text) - , _sageMakerModelContainerDefinitionModelPackageName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON SageMakerModelContainerDefinition where - toJSON SageMakerModelContainerDefinition{..} = - object $ - catMaybes - [ fmap (("ContainerHostname",) . toJSON) _sageMakerModelContainerDefinitionContainerHostname - , fmap (("Environment",) . toJSON) _sageMakerModelContainerDefinitionEnvironment - , fmap (("Image",) . toJSON) _sageMakerModelContainerDefinitionImage - , fmap (("Mode",) . toJSON) _sageMakerModelContainerDefinitionMode - , fmap (("ModelDataUrl",) . toJSON) _sageMakerModelContainerDefinitionModelDataUrl - , fmap (("ModelPackageName",) . toJSON) _sageMakerModelContainerDefinitionModelPackageName - ] - --- | Constructor for 'SageMakerModelContainerDefinition' containing required --- fields as arguments. -sageMakerModelContainerDefinition - :: SageMakerModelContainerDefinition -sageMakerModelContainerDefinition = - SageMakerModelContainerDefinition - { _sageMakerModelContainerDefinitionContainerHostname = Nothing - , _sageMakerModelContainerDefinitionEnvironment = Nothing - , _sageMakerModelContainerDefinitionImage = Nothing - , _sageMakerModelContainerDefinitionMode = Nothing - , _sageMakerModelContainerDefinitionModelDataUrl = Nothing - , _sageMakerModelContainerDefinitionModelPackageName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-model-containerdefinition.html#cfn-sagemaker-model-containerdefinition-containerhostname -smmcdContainerHostname :: Lens' SageMakerModelContainerDefinition (Maybe (Val Text)) -smmcdContainerHostname = lens _sageMakerModelContainerDefinitionContainerHostname (\s a -> s { _sageMakerModelContainerDefinitionContainerHostname = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-model-containerdefinition.html#cfn-sagemaker-model-containerdefinition-environment -smmcdEnvironment :: Lens' SageMakerModelContainerDefinition (Maybe Object) -smmcdEnvironment = lens _sageMakerModelContainerDefinitionEnvironment (\s a -> s { _sageMakerModelContainerDefinitionEnvironment = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-model-containerdefinition.html#cfn-sagemaker-model-containerdefinition-image -smmcdImage :: Lens' SageMakerModelContainerDefinition (Maybe (Val Text)) -smmcdImage = lens _sageMakerModelContainerDefinitionImage (\s a -> s { _sageMakerModelContainerDefinitionImage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-model-containerdefinition.html#cfn-sagemaker-model-containerdefinition-mode -smmcdMode :: Lens' SageMakerModelContainerDefinition (Maybe (Val Text)) -smmcdMode = lens _sageMakerModelContainerDefinitionMode (\s a -> s { _sageMakerModelContainerDefinitionMode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-model-containerdefinition.html#cfn-sagemaker-model-containerdefinition-modeldataurl -smmcdModelDataUrl :: Lens' SageMakerModelContainerDefinition (Maybe (Val Text)) -smmcdModelDataUrl = lens _sageMakerModelContainerDefinitionModelDataUrl (\s a -> s { _sageMakerModelContainerDefinitionModelDataUrl = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-model-containerdefinition.html#cfn-sagemaker-model-containerdefinition-modelpackagename -smmcdModelPackageName :: Lens' SageMakerModelContainerDefinition (Maybe (Val Text)) -smmcdModelPackageName = lens _sageMakerModelContainerDefinitionModelPackageName (\s a -> s { _sageMakerModelContainerDefinitionModelPackageName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerModelVpcConfig.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerModelVpcConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerModelVpcConfig.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-model-vpcconfig.html - -module Stratosphere.ResourceProperties.SageMakerModelVpcConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SageMakerModelVpcConfig. See --- 'sageMakerModelVpcConfig' for a more convenient constructor. -data SageMakerModelVpcConfig = - SageMakerModelVpcConfig - { _sageMakerModelVpcConfigSecurityGroupIds :: ValList Text - , _sageMakerModelVpcConfigSubnets :: ValList Text - } deriving (Show, Eq) - -instance ToJSON SageMakerModelVpcConfig where - toJSON SageMakerModelVpcConfig{..} = - object $ - catMaybes - [ (Just . ("SecurityGroupIds",) . toJSON) _sageMakerModelVpcConfigSecurityGroupIds - , (Just . ("Subnets",) . toJSON) _sageMakerModelVpcConfigSubnets - ] - --- | Constructor for 'SageMakerModelVpcConfig' containing required fields as --- arguments. -sageMakerModelVpcConfig - :: ValList Text -- ^ 'smmvcSecurityGroupIds' - -> ValList Text -- ^ 'smmvcSubnets' - -> SageMakerModelVpcConfig -sageMakerModelVpcConfig securityGroupIdsarg subnetsarg = - SageMakerModelVpcConfig - { _sageMakerModelVpcConfigSecurityGroupIds = securityGroupIdsarg - , _sageMakerModelVpcConfigSubnets = subnetsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-model-vpcconfig.html#cfn-sagemaker-model-vpcconfig-securitygroupids -smmvcSecurityGroupIds :: Lens' SageMakerModelVpcConfig (ValList Text) -smmvcSecurityGroupIds = lens _sageMakerModelVpcConfigSecurityGroupIds (\s a -> s { _sageMakerModelVpcConfigSecurityGroupIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-model-vpcconfig.html#cfn-sagemaker-model-vpcconfig-subnets -smmvcSubnets :: Lens' SageMakerModelVpcConfig (ValList Text) -smmvcSubnets = lens _sageMakerModelVpcConfigSubnets (\s a -> s { _sageMakerModelVpcConfigSubnets = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleBaselineConfig.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleBaselineConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleBaselineConfig.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-baselineconfig.html - -module Stratosphere.ResourceProperties.SageMakerMonitoringScheduleBaselineConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleConstraintsResource -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleStatisticsResource - --- | Full data type definition for SageMakerMonitoringScheduleBaselineConfig. --- See 'sageMakerMonitoringScheduleBaselineConfig' for a more convenient --- constructor. -data SageMakerMonitoringScheduleBaselineConfig = - SageMakerMonitoringScheduleBaselineConfig - { _sageMakerMonitoringScheduleBaselineConfigConstraintsResource :: Maybe SageMakerMonitoringScheduleConstraintsResource - , _sageMakerMonitoringScheduleBaselineConfigStatisticsResource :: Maybe SageMakerMonitoringScheduleStatisticsResource - } deriving (Show, Eq) - -instance ToJSON SageMakerMonitoringScheduleBaselineConfig where - toJSON SageMakerMonitoringScheduleBaselineConfig{..} = - object $ - catMaybes - [ fmap (("ConstraintsResource",) . toJSON) _sageMakerMonitoringScheduleBaselineConfigConstraintsResource - , fmap (("StatisticsResource",) . toJSON) _sageMakerMonitoringScheduleBaselineConfigStatisticsResource - ] - --- | Constructor for 'SageMakerMonitoringScheduleBaselineConfig' containing --- required fields as arguments. -sageMakerMonitoringScheduleBaselineConfig - :: SageMakerMonitoringScheduleBaselineConfig -sageMakerMonitoringScheduleBaselineConfig = - SageMakerMonitoringScheduleBaselineConfig - { _sageMakerMonitoringScheduleBaselineConfigConstraintsResource = Nothing - , _sageMakerMonitoringScheduleBaselineConfigStatisticsResource = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-baselineconfig.html#cfn-sagemaker-monitoringschedule-baselineconfig-constraintsresource -smmsbcConstraintsResource :: Lens' SageMakerMonitoringScheduleBaselineConfig (Maybe SageMakerMonitoringScheduleConstraintsResource) -smmsbcConstraintsResource = lens _sageMakerMonitoringScheduleBaselineConfigConstraintsResource (\s a -> s { _sageMakerMonitoringScheduleBaselineConfigConstraintsResource = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-baselineconfig.html#cfn-sagemaker-monitoringschedule-baselineconfig-statisticsresource -smmsbcStatisticsResource :: Lens' SageMakerMonitoringScheduleBaselineConfig (Maybe SageMakerMonitoringScheduleStatisticsResource) -smmsbcStatisticsResource = lens _sageMakerMonitoringScheduleBaselineConfigStatisticsResource (\s a -> s { _sageMakerMonitoringScheduleBaselineConfigStatisticsResource = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleClusterConfig.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleClusterConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleClusterConfig.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-clusterconfig.html - -module Stratosphere.ResourceProperties.SageMakerMonitoringScheduleClusterConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SageMakerMonitoringScheduleClusterConfig. --- See 'sageMakerMonitoringScheduleClusterConfig' for a more convenient --- constructor. -data SageMakerMonitoringScheduleClusterConfig = - SageMakerMonitoringScheduleClusterConfig - { _sageMakerMonitoringScheduleClusterConfigInstanceCount :: Val Integer - , _sageMakerMonitoringScheduleClusterConfigInstanceType :: Val Text - , _sageMakerMonitoringScheduleClusterConfigVolumeKmsKeyId :: Maybe (Val Text) - , _sageMakerMonitoringScheduleClusterConfigVolumeSizeInGB :: Val Integer - } deriving (Show, Eq) - -instance ToJSON SageMakerMonitoringScheduleClusterConfig where - toJSON SageMakerMonitoringScheduleClusterConfig{..} = - object $ - catMaybes - [ (Just . ("InstanceCount",) . toJSON) _sageMakerMonitoringScheduleClusterConfigInstanceCount - , (Just . ("InstanceType",) . toJSON) _sageMakerMonitoringScheduleClusterConfigInstanceType - , fmap (("VolumeKmsKeyId",) . toJSON) _sageMakerMonitoringScheduleClusterConfigVolumeKmsKeyId - , (Just . ("VolumeSizeInGB",) . toJSON) _sageMakerMonitoringScheduleClusterConfigVolumeSizeInGB - ] - --- | Constructor for 'SageMakerMonitoringScheduleClusterConfig' containing --- required fields as arguments. -sageMakerMonitoringScheduleClusterConfig - :: Val Integer -- ^ 'smmsccInstanceCount' - -> Val Text -- ^ 'smmsccInstanceType' - -> Val Integer -- ^ 'smmsccVolumeSizeInGB' - -> SageMakerMonitoringScheduleClusterConfig -sageMakerMonitoringScheduleClusterConfig instanceCountarg instanceTypearg volumeSizeInGBarg = - SageMakerMonitoringScheduleClusterConfig - { _sageMakerMonitoringScheduleClusterConfigInstanceCount = instanceCountarg - , _sageMakerMonitoringScheduleClusterConfigInstanceType = instanceTypearg - , _sageMakerMonitoringScheduleClusterConfigVolumeKmsKeyId = Nothing - , _sageMakerMonitoringScheduleClusterConfigVolumeSizeInGB = volumeSizeInGBarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-clusterconfig.html#cfn-sagemaker-monitoringschedule-clusterconfig-instancecount -smmsccInstanceCount :: Lens' SageMakerMonitoringScheduleClusterConfig (Val Integer) -smmsccInstanceCount = lens _sageMakerMonitoringScheduleClusterConfigInstanceCount (\s a -> s { _sageMakerMonitoringScheduleClusterConfigInstanceCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-clusterconfig.html#cfn-sagemaker-monitoringschedule-clusterconfig-instancetype -smmsccInstanceType :: Lens' SageMakerMonitoringScheduleClusterConfig (Val Text) -smmsccInstanceType = lens _sageMakerMonitoringScheduleClusterConfigInstanceType (\s a -> s { _sageMakerMonitoringScheduleClusterConfigInstanceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-clusterconfig.html#cfn-sagemaker-monitoringschedule-clusterconfig-volumekmskeyid -smmsccVolumeKmsKeyId :: Lens' SageMakerMonitoringScheduleClusterConfig (Maybe (Val Text)) -smmsccVolumeKmsKeyId = lens _sageMakerMonitoringScheduleClusterConfigVolumeKmsKeyId (\s a -> s { _sageMakerMonitoringScheduleClusterConfigVolumeKmsKeyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-clusterconfig.html#cfn-sagemaker-monitoringschedule-clusterconfig-volumesizeingb -smmsccVolumeSizeInGB :: Lens' SageMakerMonitoringScheduleClusterConfig (Val Integer) -smmsccVolumeSizeInGB = lens _sageMakerMonitoringScheduleClusterConfigVolumeSizeInGB (\s a -> s { _sageMakerMonitoringScheduleClusterConfigVolumeSizeInGB = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleConstraintsResource.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleConstraintsResource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleConstraintsResource.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-constraintsresource.html - -module Stratosphere.ResourceProperties.SageMakerMonitoringScheduleConstraintsResource where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- SageMakerMonitoringScheduleConstraintsResource. See --- 'sageMakerMonitoringScheduleConstraintsResource' for a more convenient --- constructor. -data SageMakerMonitoringScheduleConstraintsResource = - SageMakerMonitoringScheduleConstraintsResource - { _sageMakerMonitoringScheduleConstraintsResourceS3Uri :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON SageMakerMonitoringScheduleConstraintsResource where - toJSON SageMakerMonitoringScheduleConstraintsResource{..} = - object $ - catMaybes - [ fmap (("S3Uri",) . toJSON) _sageMakerMonitoringScheduleConstraintsResourceS3Uri - ] - --- | Constructor for 'SageMakerMonitoringScheduleConstraintsResource' --- containing required fields as arguments. -sageMakerMonitoringScheduleConstraintsResource - :: SageMakerMonitoringScheduleConstraintsResource -sageMakerMonitoringScheduleConstraintsResource = - SageMakerMonitoringScheduleConstraintsResource - { _sageMakerMonitoringScheduleConstraintsResourceS3Uri = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-constraintsresource.html#cfn-sagemaker-monitoringschedule-constraintsresource-s3uri -smmscrS3Uri :: Lens' SageMakerMonitoringScheduleConstraintsResource (Maybe (Val Text)) -smmscrS3Uri = lens _sageMakerMonitoringScheduleConstraintsResourceS3Uri (\s a -> s { _sageMakerMonitoringScheduleConstraintsResourceS3Uri = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleEndpointInput.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleEndpointInput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleEndpointInput.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-endpointinput.html - -module Stratosphere.ResourceProperties.SageMakerMonitoringScheduleEndpointInput where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SageMakerMonitoringScheduleEndpointInput. --- See 'sageMakerMonitoringScheduleEndpointInput' for a more convenient --- constructor. -data SageMakerMonitoringScheduleEndpointInput = - SageMakerMonitoringScheduleEndpointInput - { _sageMakerMonitoringScheduleEndpointInputEndpointName :: Val Text - , _sageMakerMonitoringScheduleEndpointInputLocalPath :: Val Text - , _sageMakerMonitoringScheduleEndpointInputS3DataDistributionType :: Maybe (Val Text) - , _sageMakerMonitoringScheduleEndpointInputS3InputMode :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON SageMakerMonitoringScheduleEndpointInput where - toJSON SageMakerMonitoringScheduleEndpointInput{..} = - object $ - catMaybes - [ (Just . ("EndpointName",) . toJSON) _sageMakerMonitoringScheduleEndpointInputEndpointName - , (Just . ("LocalPath",) . toJSON) _sageMakerMonitoringScheduleEndpointInputLocalPath - , fmap (("S3DataDistributionType",) . toJSON) _sageMakerMonitoringScheduleEndpointInputS3DataDistributionType - , fmap (("S3InputMode",) . toJSON) _sageMakerMonitoringScheduleEndpointInputS3InputMode - ] - --- | Constructor for 'SageMakerMonitoringScheduleEndpointInput' containing --- required fields as arguments. -sageMakerMonitoringScheduleEndpointInput - :: Val Text -- ^ 'smmseiEndpointName' - -> Val Text -- ^ 'smmseiLocalPath' - -> SageMakerMonitoringScheduleEndpointInput -sageMakerMonitoringScheduleEndpointInput endpointNamearg localPatharg = - SageMakerMonitoringScheduleEndpointInput - { _sageMakerMonitoringScheduleEndpointInputEndpointName = endpointNamearg - , _sageMakerMonitoringScheduleEndpointInputLocalPath = localPatharg - , _sageMakerMonitoringScheduleEndpointInputS3DataDistributionType = Nothing - , _sageMakerMonitoringScheduleEndpointInputS3InputMode = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-endpointinput.html#cfn-sagemaker-monitoringschedule-endpointinput-endpointname -smmseiEndpointName :: Lens' SageMakerMonitoringScheduleEndpointInput (Val Text) -smmseiEndpointName = lens _sageMakerMonitoringScheduleEndpointInputEndpointName (\s a -> s { _sageMakerMonitoringScheduleEndpointInputEndpointName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-endpointinput.html#cfn-sagemaker-monitoringschedule-endpointinput-localpath -smmseiLocalPath :: Lens' SageMakerMonitoringScheduleEndpointInput (Val Text) -smmseiLocalPath = lens _sageMakerMonitoringScheduleEndpointInputLocalPath (\s a -> s { _sageMakerMonitoringScheduleEndpointInputLocalPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-endpointinput.html#cfn-sagemaker-monitoringschedule-endpointinput-s3datadistributiontype -smmseiS3DataDistributionType :: Lens' SageMakerMonitoringScheduleEndpointInput (Maybe (Val Text)) -smmseiS3DataDistributionType = lens _sageMakerMonitoringScheduleEndpointInputS3DataDistributionType (\s a -> s { _sageMakerMonitoringScheduleEndpointInputS3DataDistributionType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-endpointinput.html#cfn-sagemaker-monitoringschedule-endpointinput-s3inputmode -smmseiS3InputMode :: Lens' SageMakerMonitoringScheduleEndpointInput (Maybe (Val Text)) -smmseiS3InputMode = lens _sageMakerMonitoringScheduleEndpointInputS3InputMode (\s a -> s { _sageMakerMonitoringScheduleEndpointInputS3InputMode = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleMonitoringAppSpecification.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleMonitoringAppSpecification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleMonitoringAppSpecification.hs +++ /dev/null @@ -1,69 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringappspecification.html - -module Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringAppSpecification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- SageMakerMonitoringScheduleMonitoringAppSpecification. See --- 'sageMakerMonitoringScheduleMonitoringAppSpecification' for a more --- convenient constructor. -data SageMakerMonitoringScheduleMonitoringAppSpecification = - SageMakerMonitoringScheduleMonitoringAppSpecification - { _sageMakerMonitoringScheduleMonitoringAppSpecificationContainerArguments :: Maybe (ValList Text) - , _sageMakerMonitoringScheduleMonitoringAppSpecificationContainerEntrypoint :: Maybe (ValList Text) - , _sageMakerMonitoringScheduleMonitoringAppSpecificationImageUri :: Val Text - , _sageMakerMonitoringScheduleMonitoringAppSpecificationPostAnalyticsProcessorSourceUri :: Maybe (Val Text) - , _sageMakerMonitoringScheduleMonitoringAppSpecificationRecordPreprocessorSourceUri :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON SageMakerMonitoringScheduleMonitoringAppSpecification where - toJSON SageMakerMonitoringScheduleMonitoringAppSpecification{..} = - object $ - catMaybes - [ fmap (("ContainerArguments",) . toJSON) _sageMakerMonitoringScheduleMonitoringAppSpecificationContainerArguments - , fmap (("ContainerEntrypoint",) . toJSON) _sageMakerMonitoringScheduleMonitoringAppSpecificationContainerEntrypoint - , (Just . ("ImageUri",) . toJSON) _sageMakerMonitoringScheduleMonitoringAppSpecificationImageUri - , fmap (("PostAnalyticsProcessorSourceUri",) . toJSON) _sageMakerMonitoringScheduleMonitoringAppSpecificationPostAnalyticsProcessorSourceUri - , fmap (("RecordPreprocessorSourceUri",) . toJSON) _sageMakerMonitoringScheduleMonitoringAppSpecificationRecordPreprocessorSourceUri - ] - --- | Constructor for 'SageMakerMonitoringScheduleMonitoringAppSpecification' --- containing required fields as arguments. -sageMakerMonitoringScheduleMonitoringAppSpecification - :: Val Text -- ^ 'smmsmasImageUri' - -> SageMakerMonitoringScheduleMonitoringAppSpecification -sageMakerMonitoringScheduleMonitoringAppSpecification imageUriarg = - SageMakerMonitoringScheduleMonitoringAppSpecification - { _sageMakerMonitoringScheduleMonitoringAppSpecificationContainerArguments = Nothing - , _sageMakerMonitoringScheduleMonitoringAppSpecificationContainerEntrypoint = Nothing - , _sageMakerMonitoringScheduleMonitoringAppSpecificationImageUri = imageUriarg - , _sageMakerMonitoringScheduleMonitoringAppSpecificationPostAnalyticsProcessorSourceUri = Nothing - , _sageMakerMonitoringScheduleMonitoringAppSpecificationRecordPreprocessorSourceUri = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringappspecification.html#cfn-sagemaker-monitoringschedule-monitoringappspecification-containerarguments -smmsmasContainerArguments :: Lens' SageMakerMonitoringScheduleMonitoringAppSpecification (Maybe (ValList Text)) -smmsmasContainerArguments = lens _sageMakerMonitoringScheduleMonitoringAppSpecificationContainerArguments (\s a -> s { _sageMakerMonitoringScheduleMonitoringAppSpecificationContainerArguments = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringappspecification.html#cfn-sagemaker-monitoringschedule-monitoringappspecification-containerentrypoint -smmsmasContainerEntrypoint :: Lens' SageMakerMonitoringScheduleMonitoringAppSpecification (Maybe (ValList Text)) -smmsmasContainerEntrypoint = lens _sageMakerMonitoringScheduleMonitoringAppSpecificationContainerEntrypoint (\s a -> s { _sageMakerMonitoringScheduleMonitoringAppSpecificationContainerEntrypoint = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringappspecification.html#cfn-sagemaker-monitoringschedule-monitoringappspecification-imageuri -smmsmasImageUri :: Lens' SageMakerMonitoringScheduleMonitoringAppSpecification (Val Text) -smmsmasImageUri = lens _sageMakerMonitoringScheduleMonitoringAppSpecificationImageUri (\s a -> s { _sageMakerMonitoringScheduleMonitoringAppSpecificationImageUri = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringappspecification.html#cfn-sagemaker-monitoringschedule-monitoringappspecification-postanalyticsprocessorsourceuri -smmsmasPostAnalyticsProcessorSourceUri :: Lens' SageMakerMonitoringScheduleMonitoringAppSpecification (Maybe (Val Text)) -smmsmasPostAnalyticsProcessorSourceUri = lens _sageMakerMonitoringScheduleMonitoringAppSpecificationPostAnalyticsProcessorSourceUri (\s a -> s { _sageMakerMonitoringScheduleMonitoringAppSpecificationPostAnalyticsProcessorSourceUri = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringappspecification.html#cfn-sagemaker-monitoringschedule-monitoringappspecification-recordpreprocessorsourceuri -smmsmasRecordPreprocessorSourceUri :: Lens' SageMakerMonitoringScheduleMonitoringAppSpecification (Maybe (Val Text)) -smmsmasRecordPreprocessorSourceUri = lens _sageMakerMonitoringScheduleMonitoringAppSpecificationRecordPreprocessorSourceUri (\s a -> s { _sageMakerMonitoringScheduleMonitoringAppSpecificationRecordPreprocessorSourceUri = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleMonitoringExecutionSummary.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleMonitoringExecutionSummary.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleMonitoringExecutionSummary.hs +++ /dev/null @@ -1,94 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringexecutionsummary.html - -module Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringExecutionSummary where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- SageMakerMonitoringScheduleMonitoringExecutionSummary. See --- 'sageMakerMonitoringScheduleMonitoringExecutionSummary' for a more --- convenient constructor. -data SageMakerMonitoringScheduleMonitoringExecutionSummary = - SageMakerMonitoringScheduleMonitoringExecutionSummary - { _sageMakerMonitoringScheduleMonitoringExecutionSummaryCreationTime :: Val Text - , _sageMakerMonitoringScheduleMonitoringExecutionSummaryEndpointName :: Maybe (Val Text) - , _sageMakerMonitoringScheduleMonitoringExecutionSummaryFailureReason :: Maybe (Val Text) - , _sageMakerMonitoringScheduleMonitoringExecutionSummaryLastModifiedTime :: Val Text - , _sageMakerMonitoringScheduleMonitoringExecutionSummaryMonitoringExecutionStatus :: Val Text - , _sageMakerMonitoringScheduleMonitoringExecutionSummaryMonitoringScheduleName :: Val Text - , _sageMakerMonitoringScheduleMonitoringExecutionSummaryProcessingJobArn :: Maybe (Val Text) - , _sageMakerMonitoringScheduleMonitoringExecutionSummaryScheduledTime :: Val Text - } deriving (Show, Eq) - -instance ToJSON SageMakerMonitoringScheduleMonitoringExecutionSummary where - toJSON SageMakerMonitoringScheduleMonitoringExecutionSummary{..} = - object $ - catMaybes - [ (Just . ("CreationTime",) . toJSON) _sageMakerMonitoringScheduleMonitoringExecutionSummaryCreationTime - , fmap (("EndpointName",) . toJSON) _sageMakerMonitoringScheduleMonitoringExecutionSummaryEndpointName - , fmap (("FailureReason",) . toJSON) _sageMakerMonitoringScheduleMonitoringExecutionSummaryFailureReason - , (Just . ("LastModifiedTime",) . toJSON) _sageMakerMonitoringScheduleMonitoringExecutionSummaryLastModifiedTime - , (Just . ("MonitoringExecutionStatus",) . toJSON) _sageMakerMonitoringScheduleMonitoringExecutionSummaryMonitoringExecutionStatus - , (Just . ("MonitoringScheduleName",) . toJSON) _sageMakerMonitoringScheduleMonitoringExecutionSummaryMonitoringScheduleName - , fmap (("ProcessingJobArn",) . toJSON) _sageMakerMonitoringScheduleMonitoringExecutionSummaryProcessingJobArn - , (Just . ("ScheduledTime",) . toJSON) _sageMakerMonitoringScheduleMonitoringExecutionSummaryScheduledTime - ] - --- | Constructor for 'SageMakerMonitoringScheduleMonitoringExecutionSummary' --- containing required fields as arguments. -sageMakerMonitoringScheduleMonitoringExecutionSummary - :: Val Text -- ^ 'smmsmesCreationTime' - -> Val Text -- ^ 'smmsmesLastModifiedTime' - -> Val Text -- ^ 'smmsmesMonitoringExecutionStatus' - -> Val Text -- ^ 'smmsmesMonitoringScheduleName' - -> Val Text -- ^ 'smmsmesScheduledTime' - -> SageMakerMonitoringScheduleMonitoringExecutionSummary -sageMakerMonitoringScheduleMonitoringExecutionSummary creationTimearg lastModifiedTimearg monitoringExecutionStatusarg monitoringScheduleNamearg scheduledTimearg = - SageMakerMonitoringScheduleMonitoringExecutionSummary - { _sageMakerMonitoringScheduleMonitoringExecutionSummaryCreationTime = creationTimearg - , _sageMakerMonitoringScheduleMonitoringExecutionSummaryEndpointName = Nothing - , _sageMakerMonitoringScheduleMonitoringExecutionSummaryFailureReason = Nothing - , _sageMakerMonitoringScheduleMonitoringExecutionSummaryLastModifiedTime = lastModifiedTimearg - , _sageMakerMonitoringScheduleMonitoringExecutionSummaryMonitoringExecutionStatus = monitoringExecutionStatusarg - , _sageMakerMonitoringScheduleMonitoringExecutionSummaryMonitoringScheduleName = monitoringScheduleNamearg - , _sageMakerMonitoringScheduleMonitoringExecutionSummaryProcessingJobArn = Nothing - , _sageMakerMonitoringScheduleMonitoringExecutionSummaryScheduledTime = scheduledTimearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringexecutionsummary.html#cfn-sagemaker-monitoringschedule-monitoringexecutionsummary-creationtime -smmsmesCreationTime :: Lens' SageMakerMonitoringScheduleMonitoringExecutionSummary (Val Text) -smmsmesCreationTime = lens _sageMakerMonitoringScheduleMonitoringExecutionSummaryCreationTime (\s a -> s { _sageMakerMonitoringScheduleMonitoringExecutionSummaryCreationTime = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringexecutionsummary.html#cfn-sagemaker-monitoringschedule-monitoringexecutionsummary-endpointname -smmsmesEndpointName :: Lens' SageMakerMonitoringScheduleMonitoringExecutionSummary (Maybe (Val Text)) -smmsmesEndpointName = lens _sageMakerMonitoringScheduleMonitoringExecutionSummaryEndpointName (\s a -> s { _sageMakerMonitoringScheduleMonitoringExecutionSummaryEndpointName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringexecutionsummary.html#cfn-sagemaker-monitoringschedule-monitoringexecutionsummary-failurereason -smmsmesFailureReason :: Lens' SageMakerMonitoringScheduleMonitoringExecutionSummary (Maybe (Val Text)) -smmsmesFailureReason = lens _sageMakerMonitoringScheduleMonitoringExecutionSummaryFailureReason (\s a -> s { _sageMakerMonitoringScheduleMonitoringExecutionSummaryFailureReason = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringexecutionsummary.html#cfn-sagemaker-monitoringschedule-monitoringexecutionsummary-lastmodifiedtime -smmsmesLastModifiedTime :: Lens' SageMakerMonitoringScheduleMonitoringExecutionSummary (Val Text) -smmsmesLastModifiedTime = lens _sageMakerMonitoringScheduleMonitoringExecutionSummaryLastModifiedTime (\s a -> s { _sageMakerMonitoringScheduleMonitoringExecutionSummaryLastModifiedTime = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringexecutionsummary.html#cfn-sagemaker-monitoringschedule-monitoringexecutionsummary-monitoringexecutionstatus -smmsmesMonitoringExecutionStatus :: Lens' SageMakerMonitoringScheduleMonitoringExecutionSummary (Val Text) -smmsmesMonitoringExecutionStatus = lens _sageMakerMonitoringScheduleMonitoringExecutionSummaryMonitoringExecutionStatus (\s a -> s { _sageMakerMonitoringScheduleMonitoringExecutionSummaryMonitoringExecutionStatus = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringexecutionsummary.html#cfn-sagemaker-monitoringschedule-monitoringexecutionsummary-monitoringschedulename -smmsmesMonitoringScheduleName :: Lens' SageMakerMonitoringScheduleMonitoringExecutionSummary (Val Text) -smmsmesMonitoringScheduleName = lens _sageMakerMonitoringScheduleMonitoringExecutionSummaryMonitoringScheduleName (\s a -> s { _sageMakerMonitoringScheduleMonitoringExecutionSummaryMonitoringScheduleName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringexecutionsummary.html#cfn-sagemaker-monitoringschedule-monitoringexecutionsummary-processingjobarn -smmsmesProcessingJobArn :: Lens' SageMakerMonitoringScheduleMonitoringExecutionSummary (Maybe (Val Text)) -smmsmesProcessingJobArn = lens _sageMakerMonitoringScheduleMonitoringExecutionSummaryProcessingJobArn (\s a -> s { _sageMakerMonitoringScheduleMonitoringExecutionSummaryProcessingJobArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringexecutionsummary.html#cfn-sagemaker-monitoringschedule-monitoringexecutionsummary-scheduledtime -smmsmesScheduledTime :: Lens' SageMakerMonitoringScheduleMonitoringExecutionSummary (Val Text) -smmsmesScheduledTime = lens _sageMakerMonitoringScheduleMonitoringExecutionSummaryScheduledTime (\s a -> s { _sageMakerMonitoringScheduleMonitoringExecutionSummaryScheduledTime = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleMonitoringInput.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleMonitoringInput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleMonitoringInput.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringinput.html - -module Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringInput where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleEndpointInput - --- | Full data type definition for SageMakerMonitoringScheduleMonitoringInput. --- See 'sageMakerMonitoringScheduleMonitoringInput' for a more convenient --- constructor. -data SageMakerMonitoringScheduleMonitoringInput = - SageMakerMonitoringScheduleMonitoringInput - { _sageMakerMonitoringScheduleMonitoringInputEndpointInput :: SageMakerMonitoringScheduleEndpointInput - } deriving (Show, Eq) - -instance ToJSON SageMakerMonitoringScheduleMonitoringInput where - toJSON SageMakerMonitoringScheduleMonitoringInput{..} = - object $ - catMaybes - [ (Just . ("EndpointInput",) . toJSON) _sageMakerMonitoringScheduleMonitoringInputEndpointInput - ] - --- | Constructor for 'SageMakerMonitoringScheduleMonitoringInput' containing --- required fields as arguments. -sageMakerMonitoringScheduleMonitoringInput - :: SageMakerMonitoringScheduleEndpointInput -- ^ 'smmsmiEndpointInput' - -> SageMakerMonitoringScheduleMonitoringInput -sageMakerMonitoringScheduleMonitoringInput endpointInputarg = - SageMakerMonitoringScheduleMonitoringInput - { _sageMakerMonitoringScheduleMonitoringInputEndpointInput = endpointInputarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringinput.html#cfn-sagemaker-monitoringschedule-monitoringinput-endpointinput -smmsmiEndpointInput :: Lens' SageMakerMonitoringScheduleMonitoringInput SageMakerMonitoringScheduleEndpointInput -smmsmiEndpointInput = lens _sageMakerMonitoringScheduleMonitoringInputEndpointInput (\s a -> s { _sageMakerMonitoringScheduleMonitoringInputEndpointInput = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleMonitoringInputs.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleMonitoringInputs.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleMonitoringInputs.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringinputs.html - -module Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringInputs where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringInput - --- | Full data type definition for --- SageMakerMonitoringScheduleMonitoringInputs. See --- 'sageMakerMonitoringScheduleMonitoringInputs' for a more convenient --- constructor. -data SageMakerMonitoringScheduleMonitoringInputs = - SageMakerMonitoringScheduleMonitoringInputs - { _sageMakerMonitoringScheduleMonitoringInputsMonitoringInputs :: Maybe [SageMakerMonitoringScheduleMonitoringInput] - } deriving (Show, Eq) - -instance ToJSON SageMakerMonitoringScheduleMonitoringInputs where - toJSON SageMakerMonitoringScheduleMonitoringInputs{..} = - object $ - catMaybes - [ fmap (("MonitoringInputs",) . toJSON) _sageMakerMonitoringScheduleMonitoringInputsMonitoringInputs - ] - --- | Constructor for 'SageMakerMonitoringScheduleMonitoringInputs' containing --- required fields as arguments. -sageMakerMonitoringScheduleMonitoringInputs - :: SageMakerMonitoringScheduleMonitoringInputs -sageMakerMonitoringScheduleMonitoringInputs = - SageMakerMonitoringScheduleMonitoringInputs - { _sageMakerMonitoringScheduleMonitoringInputsMonitoringInputs = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringinputs.html#cfn-sagemaker-monitoringschedule-monitoringinputs-monitoringinputs -smmsmiMonitoringInputs :: Lens' SageMakerMonitoringScheduleMonitoringInputs (Maybe [SageMakerMonitoringScheduleMonitoringInput]) -smmsmiMonitoringInputs = lens _sageMakerMonitoringScheduleMonitoringInputsMonitoringInputs (\s a -> s { _sageMakerMonitoringScheduleMonitoringInputsMonitoringInputs = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleMonitoringJobDefinition.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleMonitoringJobDefinition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleMonitoringJobDefinition.hs +++ /dev/null @@ -1,100 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringjobdefinition.html - -module Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringJobDefinition where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleBaselineConfig -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringAppSpecification -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringInputs -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringOutputConfig -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringResources -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleNetworkConfig -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleStoppingCondition - --- | Full data type definition for --- SageMakerMonitoringScheduleMonitoringJobDefinition. See --- 'sageMakerMonitoringScheduleMonitoringJobDefinition' for a more --- convenient constructor. -data SageMakerMonitoringScheduleMonitoringJobDefinition = - SageMakerMonitoringScheduleMonitoringJobDefinition - { _sageMakerMonitoringScheduleMonitoringJobDefinitionBaselineConfig :: Maybe SageMakerMonitoringScheduleBaselineConfig - , _sageMakerMonitoringScheduleMonitoringJobDefinitionMonitoringAppSpecification :: SageMakerMonitoringScheduleMonitoringAppSpecification - , _sageMakerMonitoringScheduleMonitoringJobDefinitionMonitoringInputs :: SageMakerMonitoringScheduleMonitoringInputs - , _sageMakerMonitoringScheduleMonitoringJobDefinitionMonitoringOutputConfig :: SageMakerMonitoringScheduleMonitoringOutputConfig - , _sageMakerMonitoringScheduleMonitoringJobDefinitionMonitoringResources :: SageMakerMonitoringScheduleMonitoringResources - , _sageMakerMonitoringScheduleMonitoringJobDefinitionNetworkConfig :: Maybe SageMakerMonitoringScheduleNetworkConfig - , _sageMakerMonitoringScheduleMonitoringJobDefinitionRoleArn :: Val Text - , _sageMakerMonitoringScheduleMonitoringJobDefinitionStoppingCondition :: Maybe SageMakerMonitoringScheduleStoppingCondition - } deriving (Show, Eq) - -instance ToJSON SageMakerMonitoringScheduleMonitoringJobDefinition where - toJSON SageMakerMonitoringScheduleMonitoringJobDefinition{..} = - object $ - catMaybes - [ fmap (("BaselineConfig",) . toJSON) _sageMakerMonitoringScheduleMonitoringJobDefinitionBaselineConfig - , (Just . ("MonitoringAppSpecification",) . toJSON) _sageMakerMonitoringScheduleMonitoringJobDefinitionMonitoringAppSpecification - , (Just . ("MonitoringInputs",) . toJSON) _sageMakerMonitoringScheduleMonitoringJobDefinitionMonitoringInputs - , (Just . ("MonitoringOutputConfig",) . toJSON) _sageMakerMonitoringScheduleMonitoringJobDefinitionMonitoringOutputConfig - , (Just . ("MonitoringResources",) . toJSON) _sageMakerMonitoringScheduleMonitoringJobDefinitionMonitoringResources - , fmap (("NetworkConfig",) . toJSON) _sageMakerMonitoringScheduleMonitoringJobDefinitionNetworkConfig - , (Just . ("RoleArn",) . toJSON) _sageMakerMonitoringScheduleMonitoringJobDefinitionRoleArn - , fmap (("StoppingCondition",) . toJSON) _sageMakerMonitoringScheduleMonitoringJobDefinitionStoppingCondition - ] - --- | Constructor for 'SageMakerMonitoringScheduleMonitoringJobDefinition' --- containing required fields as arguments. -sageMakerMonitoringScheduleMonitoringJobDefinition - :: SageMakerMonitoringScheduleMonitoringAppSpecification -- ^ 'smmsmjdMonitoringAppSpecification' - -> SageMakerMonitoringScheduleMonitoringInputs -- ^ 'smmsmjdMonitoringInputs' - -> SageMakerMonitoringScheduleMonitoringOutputConfig -- ^ 'smmsmjdMonitoringOutputConfig' - -> SageMakerMonitoringScheduleMonitoringResources -- ^ 'smmsmjdMonitoringResources' - -> Val Text -- ^ 'smmsmjdRoleArn' - -> SageMakerMonitoringScheduleMonitoringJobDefinition -sageMakerMonitoringScheduleMonitoringJobDefinition monitoringAppSpecificationarg monitoringInputsarg monitoringOutputConfigarg monitoringResourcesarg roleArnarg = - SageMakerMonitoringScheduleMonitoringJobDefinition - { _sageMakerMonitoringScheduleMonitoringJobDefinitionBaselineConfig = Nothing - , _sageMakerMonitoringScheduleMonitoringJobDefinitionMonitoringAppSpecification = monitoringAppSpecificationarg - , _sageMakerMonitoringScheduleMonitoringJobDefinitionMonitoringInputs = monitoringInputsarg - , _sageMakerMonitoringScheduleMonitoringJobDefinitionMonitoringOutputConfig = monitoringOutputConfigarg - , _sageMakerMonitoringScheduleMonitoringJobDefinitionMonitoringResources = monitoringResourcesarg - , _sageMakerMonitoringScheduleMonitoringJobDefinitionNetworkConfig = Nothing - , _sageMakerMonitoringScheduleMonitoringJobDefinitionRoleArn = roleArnarg - , _sageMakerMonitoringScheduleMonitoringJobDefinitionStoppingCondition = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringjobdefinition.html#cfn-sagemaker-monitoringschedule-monitoringjobdefinition-baselineconfig -smmsmjdBaselineConfig :: Lens' SageMakerMonitoringScheduleMonitoringJobDefinition (Maybe SageMakerMonitoringScheduleBaselineConfig) -smmsmjdBaselineConfig = lens _sageMakerMonitoringScheduleMonitoringJobDefinitionBaselineConfig (\s a -> s { _sageMakerMonitoringScheduleMonitoringJobDefinitionBaselineConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringjobdefinition.html#cfn-sagemaker-monitoringschedule-monitoringjobdefinition-monitoringappspecification -smmsmjdMonitoringAppSpecification :: Lens' SageMakerMonitoringScheduleMonitoringJobDefinition SageMakerMonitoringScheduleMonitoringAppSpecification -smmsmjdMonitoringAppSpecification = lens _sageMakerMonitoringScheduleMonitoringJobDefinitionMonitoringAppSpecification (\s a -> s { _sageMakerMonitoringScheduleMonitoringJobDefinitionMonitoringAppSpecification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringjobdefinition.html#cfn-sagemaker-monitoringschedule-monitoringjobdefinition-monitoringinputs -smmsmjdMonitoringInputs :: Lens' SageMakerMonitoringScheduleMonitoringJobDefinition SageMakerMonitoringScheduleMonitoringInputs -smmsmjdMonitoringInputs = lens _sageMakerMonitoringScheduleMonitoringJobDefinitionMonitoringInputs (\s a -> s { _sageMakerMonitoringScheduleMonitoringJobDefinitionMonitoringInputs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringjobdefinition.html#cfn-sagemaker-monitoringschedule-monitoringjobdefinition-monitoringoutputconfig -smmsmjdMonitoringOutputConfig :: Lens' SageMakerMonitoringScheduleMonitoringJobDefinition SageMakerMonitoringScheduleMonitoringOutputConfig -smmsmjdMonitoringOutputConfig = lens _sageMakerMonitoringScheduleMonitoringJobDefinitionMonitoringOutputConfig (\s a -> s { _sageMakerMonitoringScheduleMonitoringJobDefinitionMonitoringOutputConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringjobdefinition.html#cfn-sagemaker-monitoringschedule-monitoringjobdefinition-monitoringresources -smmsmjdMonitoringResources :: Lens' SageMakerMonitoringScheduleMonitoringJobDefinition SageMakerMonitoringScheduleMonitoringResources -smmsmjdMonitoringResources = lens _sageMakerMonitoringScheduleMonitoringJobDefinitionMonitoringResources (\s a -> s { _sageMakerMonitoringScheduleMonitoringJobDefinitionMonitoringResources = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringjobdefinition.html#cfn-sagemaker-monitoringschedule-monitoringjobdefinition-networkconfig -smmsmjdNetworkConfig :: Lens' SageMakerMonitoringScheduleMonitoringJobDefinition (Maybe SageMakerMonitoringScheduleNetworkConfig) -smmsmjdNetworkConfig = lens _sageMakerMonitoringScheduleMonitoringJobDefinitionNetworkConfig (\s a -> s { _sageMakerMonitoringScheduleMonitoringJobDefinitionNetworkConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringjobdefinition.html#cfn-sagemaker-monitoringschedule-monitoringjobdefinition-rolearn -smmsmjdRoleArn :: Lens' SageMakerMonitoringScheduleMonitoringJobDefinition (Val Text) -smmsmjdRoleArn = lens _sageMakerMonitoringScheduleMonitoringJobDefinitionRoleArn (\s a -> s { _sageMakerMonitoringScheduleMonitoringJobDefinitionRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringjobdefinition.html#cfn-sagemaker-monitoringschedule-monitoringjobdefinition-stoppingcondition -smmsmjdStoppingCondition :: Lens' SageMakerMonitoringScheduleMonitoringJobDefinition (Maybe SageMakerMonitoringScheduleStoppingCondition) -smmsmjdStoppingCondition = lens _sageMakerMonitoringScheduleMonitoringJobDefinitionStoppingCondition (\s a -> s { _sageMakerMonitoringScheduleMonitoringJobDefinitionStoppingCondition = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleMonitoringOutput.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleMonitoringOutput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleMonitoringOutput.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringoutput.html - -module Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringOutput where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleS3Output - --- | Full data type definition for --- SageMakerMonitoringScheduleMonitoringOutput. See --- 'sageMakerMonitoringScheduleMonitoringOutput' for a more convenient --- constructor. -data SageMakerMonitoringScheduleMonitoringOutput = - SageMakerMonitoringScheduleMonitoringOutput - { _sageMakerMonitoringScheduleMonitoringOutputS3Output :: SageMakerMonitoringScheduleS3Output - } deriving (Show, Eq) - -instance ToJSON SageMakerMonitoringScheduleMonitoringOutput where - toJSON SageMakerMonitoringScheduleMonitoringOutput{..} = - object $ - catMaybes - [ (Just . ("S3Output",) . toJSON) _sageMakerMonitoringScheduleMonitoringOutputS3Output - ] - --- | Constructor for 'SageMakerMonitoringScheduleMonitoringOutput' containing --- required fields as arguments. -sageMakerMonitoringScheduleMonitoringOutput - :: SageMakerMonitoringScheduleS3Output -- ^ 'smmsmoS3Output' - -> SageMakerMonitoringScheduleMonitoringOutput -sageMakerMonitoringScheduleMonitoringOutput s3Outputarg = - SageMakerMonitoringScheduleMonitoringOutput - { _sageMakerMonitoringScheduleMonitoringOutputS3Output = s3Outputarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringoutput.html#cfn-sagemaker-monitoringschedule-monitoringoutput-s3output -smmsmoS3Output :: Lens' SageMakerMonitoringScheduleMonitoringOutput SageMakerMonitoringScheduleS3Output -smmsmoS3Output = lens _sageMakerMonitoringScheduleMonitoringOutputS3Output (\s a -> s { _sageMakerMonitoringScheduleMonitoringOutputS3Output = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleMonitoringOutputConfig.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleMonitoringOutputConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleMonitoringOutputConfig.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringoutputconfig.html - -module Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringOutputConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringOutput - --- | Full data type definition for --- SageMakerMonitoringScheduleMonitoringOutputConfig. See --- 'sageMakerMonitoringScheduleMonitoringOutputConfig' for a more convenient --- constructor. -data SageMakerMonitoringScheduleMonitoringOutputConfig = - SageMakerMonitoringScheduleMonitoringOutputConfig - { _sageMakerMonitoringScheduleMonitoringOutputConfigKmsKeyId :: Maybe (Val Text) - , _sageMakerMonitoringScheduleMonitoringOutputConfigMonitoringOutputs :: [SageMakerMonitoringScheduleMonitoringOutput] - } deriving (Show, Eq) - -instance ToJSON SageMakerMonitoringScheduleMonitoringOutputConfig where - toJSON SageMakerMonitoringScheduleMonitoringOutputConfig{..} = - object $ - catMaybes - [ fmap (("KmsKeyId",) . toJSON) _sageMakerMonitoringScheduleMonitoringOutputConfigKmsKeyId - , (Just . ("MonitoringOutputs",) . toJSON) _sageMakerMonitoringScheduleMonitoringOutputConfigMonitoringOutputs - ] - --- | Constructor for 'SageMakerMonitoringScheduleMonitoringOutputConfig' --- containing required fields as arguments. -sageMakerMonitoringScheduleMonitoringOutputConfig - :: [SageMakerMonitoringScheduleMonitoringOutput] -- ^ 'smmsmocMonitoringOutputs' - -> SageMakerMonitoringScheduleMonitoringOutputConfig -sageMakerMonitoringScheduleMonitoringOutputConfig monitoringOutputsarg = - SageMakerMonitoringScheduleMonitoringOutputConfig - { _sageMakerMonitoringScheduleMonitoringOutputConfigKmsKeyId = Nothing - , _sageMakerMonitoringScheduleMonitoringOutputConfigMonitoringOutputs = monitoringOutputsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringoutputconfig.html#cfn-sagemaker-monitoringschedule-monitoringoutputconfig-kmskeyid -smmsmocKmsKeyId :: Lens' SageMakerMonitoringScheduleMonitoringOutputConfig (Maybe (Val Text)) -smmsmocKmsKeyId = lens _sageMakerMonitoringScheduleMonitoringOutputConfigKmsKeyId (\s a -> s { _sageMakerMonitoringScheduleMonitoringOutputConfigKmsKeyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringoutputconfig.html#cfn-sagemaker-monitoringschedule-monitoringoutputconfig-monitoringoutputs -smmsmocMonitoringOutputs :: Lens' SageMakerMonitoringScheduleMonitoringOutputConfig [SageMakerMonitoringScheduleMonitoringOutput] -smmsmocMonitoringOutputs = lens _sageMakerMonitoringScheduleMonitoringOutputConfigMonitoringOutputs (\s a -> s { _sageMakerMonitoringScheduleMonitoringOutputConfigMonitoringOutputs = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleMonitoringResources.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleMonitoringResources.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleMonitoringResources.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringresources.html - -module Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringResources where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleClusterConfig - --- | Full data type definition for --- SageMakerMonitoringScheduleMonitoringResources. See --- 'sageMakerMonitoringScheduleMonitoringResources' for a more convenient --- constructor. -data SageMakerMonitoringScheduleMonitoringResources = - SageMakerMonitoringScheduleMonitoringResources - { _sageMakerMonitoringScheduleMonitoringResourcesClusterConfig :: SageMakerMonitoringScheduleClusterConfig - } deriving (Show, Eq) - -instance ToJSON SageMakerMonitoringScheduleMonitoringResources where - toJSON SageMakerMonitoringScheduleMonitoringResources{..} = - object $ - catMaybes - [ (Just . ("ClusterConfig",) . toJSON) _sageMakerMonitoringScheduleMonitoringResourcesClusterConfig - ] - --- | Constructor for 'SageMakerMonitoringScheduleMonitoringResources' --- containing required fields as arguments. -sageMakerMonitoringScheduleMonitoringResources - :: SageMakerMonitoringScheduleClusterConfig -- ^ 'smmsmrClusterConfig' - -> SageMakerMonitoringScheduleMonitoringResources -sageMakerMonitoringScheduleMonitoringResources clusterConfigarg = - SageMakerMonitoringScheduleMonitoringResources - { _sageMakerMonitoringScheduleMonitoringResourcesClusterConfig = clusterConfigarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringresources.html#cfn-sagemaker-monitoringschedule-monitoringresources-clusterconfig -smmsmrClusterConfig :: Lens' SageMakerMonitoringScheduleMonitoringResources SageMakerMonitoringScheduleClusterConfig -smmsmrClusterConfig = lens _sageMakerMonitoringScheduleMonitoringResourcesClusterConfig (\s a -> s { _sageMakerMonitoringScheduleMonitoringResourcesClusterConfig = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleMonitoringScheduleConfig.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleMonitoringScheduleConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleMonitoringScheduleConfig.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringscheduleconfig.html - -module Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringScheduleConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringJobDefinition -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleScheduleConfig - --- | Full data type definition for --- SageMakerMonitoringScheduleMonitoringScheduleConfig. See --- 'sageMakerMonitoringScheduleMonitoringScheduleConfig' for a more --- convenient constructor. -data SageMakerMonitoringScheduleMonitoringScheduleConfig = - SageMakerMonitoringScheduleMonitoringScheduleConfig - { _sageMakerMonitoringScheduleMonitoringScheduleConfigMonitoringJobDefinition :: SageMakerMonitoringScheduleMonitoringJobDefinition - , _sageMakerMonitoringScheduleMonitoringScheduleConfigScheduleConfig :: Maybe SageMakerMonitoringScheduleScheduleConfig - } deriving (Show, Eq) - -instance ToJSON SageMakerMonitoringScheduleMonitoringScheduleConfig where - toJSON SageMakerMonitoringScheduleMonitoringScheduleConfig{..} = - object $ - catMaybes - [ (Just . ("MonitoringJobDefinition",) . toJSON) _sageMakerMonitoringScheduleMonitoringScheduleConfigMonitoringJobDefinition - , fmap (("ScheduleConfig",) . toJSON) _sageMakerMonitoringScheduleMonitoringScheduleConfigScheduleConfig - ] - --- | Constructor for 'SageMakerMonitoringScheduleMonitoringScheduleConfig' --- containing required fields as arguments. -sageMakerMonitoringScheduleMonitoringScheduleConfig - :: SageMakerMonitoringScheduleMonitoringJobDefinition -- ^ 'smmsmscMonitoringJobDefinition' - -> SageMakerMonitoringScheduleMonitoringScheduleConfig -sageMakerMonitoringScheduleMonitoringScheduleConfig monitoringJobDefinitionarg = - SageMakerMonitoringScheduleMonitoringScheduleConfig - { _sageMakerMonitoringScheduleMonitoringScheduleConfigMonitoringJobDefinition = monitoringJobDefinitionarg - , _sageMakerMonitoringScheduleMonitoringScheduleConfigScheduleConfig = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringscheduleconfig.html#cfn-sagemaker-monitoringschedule-monitoringscheduleconfig-monitoringjobdefinition -smmsmscMonitoringJobDefinition :: Lens' SageMakerMonitoringScheduleMonitoringScheduleConfig SageMakerMonitoringScheduleMonitoringJobDefinition -smmsmscMonitoringJobDefinition = lens _sageMakerMonitoringScheduleMonitoringScheduleConfigMonitoringJobDefinition (\s a -> s { _sageMakerMonitoringScheduleMonitoringScheduleConfigMonitoringJobDefinition = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-monitoringscheduleconfig.html#cfn-sagemaker-monitoringschedule-monitoringscheduleconfig-scheduleconfig -smmsmscScheduleConfig :: Lens' SageMakerMonitoringScheduleMonitoringScheduleConfig (Maybe SageMakerMonitoringScheduleScheduleConfig) -smmsmscScheduleConfig = lens _sageMakerMonitoringScheduleMonitoringScheduleConfigScheduleConfig (\s a -> s { _sageMakerMonitoringScheduleMonitoringScheduleConfigScheduleConfig = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleNetworkConfig.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleNetworkConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleNetworkConfig.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-networkconfig.html - -module Stratosphere.ResourceProperties.SageMakerMonitoringScheduleNetworkConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleVpcConfig - --- | Full data type definition for SageMakerMonitoringScheduleNetworkConfig. --- See 'sageMakerMonitoringScheduleNetworkConfig' for a more convenient --- constructor. -data SageMakerMonitoringScheduleNetworkConfig = - SageMakerMonitoringScheduleNetworkConfig - { _sageMakerMonitoringScheduleNetworkConfigEnableInterContainerTrafficEncryption :: Maybe (Val Bool) - , _sageMakerMonitoringScheduleNetworkConfigEnableNetworkIsolation :: Maybe (Val Bool) - , _sageMakerMonitoringScheduleNetworkConfigVpcConfig :: Maybe SageMakerMonitoringScheduleVpcConfig - } deriving (Show, Eq) - -instance ToJSON SageMakerMonitoringScheduleNetworkConfig where - toJSON SageMakerMonitoringScheduleNetworkConfig{..} = - object $ - catMaybes - [ fmap (("EnableInterContainerTrafficEncryption",) . toJSON) _sageMakerMonitoringScheduleNetworkConfigEnableInterContainerTrafficEncryption - , fmap (("EnableNetworkIsolation",) . toJSON) _sageMakerMonitoringScheduleNetworkConfigEnableNetworkIsolation - , fmap (("VpcConfig",) . toJSON) _sageMakerMonitoringScheduleNetworkConfigVpcConfig - ] - --- | Constructor for 'SageMakerMonitoringScheduleNetworkConfig' containing --- required fields as arguments. -sageMakerMonitoringScheduleNetworkConfig - :: SageMakerMonitoringScheduleNetworkConfig -sageMakerMonitoringScheduleNetworkConfig = - SageMakerMonitoringScheduleNetworkConfig - { _sageMakerMonitoringScheduleNetworkConfigEnableInterContainerTrafficEncryption = Nothing - , _sageMakerMonitoringScheduleNetworkConfigEnableNetworkIsolation = Nothing - , _sageMakerMonitoringScheduleNetworkConfigVpcConfig = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-networkconfig.html#cfn-sagemaker-monitoringschedule-networkconfig-enableintercontainertrafficencryption -smmsncEnableInterContainerTrafficEncryption :: Lens' SageMakerMonitoringScheduleNetworkConfig (Maybe (Val Bool)) -smmsncEnableInterContainerTrafficEncryption = lens _sageMakerMonitoringScheduleNetworkConfigEnableInterContainerTrafficEncryption (\s a -> s { _sageMakerMonitoringScheduleNetworkConfigEnableInterContainerTrafficEncryption = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-networkconfig.html#cfn-sagemaker-monitoringschedule-networkconfig-enablenetworkisolation -smmsncEnableNetworkIsolation :: Lens' SageMakerMonitoringScheduleNetworkConfig (Maybe (Val Bool)) -smmsncEnableNetworkIsolation = lens _sageMakerMonitoringScheduleNetworkConfigEnableNetworkIsolation (\s a -> s { _sageMakerMonitoringScheduleNetworkConfigEnableNetworkIsolation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-networkconfig.html#cfn-sagemaker-monitoringschedule-networkconfig-vpcconfig -smmsncVpcConfig :: Lens' SageMakerMonitoringScheduleNetworkConfig (Maybe SageMakerMonitoringScheduleVpcConfig) -smmsncVpcConfig = lens _sageMakerMonitoringScheduleNetworkConfigVpcConfig (\s a -> s { _sageMakerMonitoringScheduleNetworkConfigVpcConfig = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleS3Output.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleS3Output.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleS3Output.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-s3output.html - -module Stratosphere.ResourceProperties.SageMakerMonitoringScheduleS3Output where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SageMakerMonitoringScheduleS3Output. See --- 'sageMakerMonitoringScheduleS3Output' for a more convenient constructor. -data SageMakerMonitoringScheduleS3Output = - SageMakerMonitoringScheduleS3Output - { _sageMakerMonitoringScheduleS3OutputLocalPath :: Val Text - , _sageMakerMonitoringScheduleS3OutputS3UploadMode :: Maybe (Val Text) - , _sageMakerMonitoringScheduleS3OutputS3Uri :: Val Text - } deriving (Show, Eq) - -instance ToJSON SageMakerMonitoringScheduleS3Output where - toJSON SageMakerMonitoringScheduleS3Output{..} = - object $ - catMaybes - [ (Just . ("LocalPath",) . toJSON) _sageMakerMonitoringScheduleS3OutputLocalPath - , fmap (("S3UploadMode",) . toJSON) _sageMakerMonitoringScheduleS3OutputS3UploadMode - , (Just . ("S3Uri",) . toJSON) _sageMakerMonitoringScheduleS3OutputS3Uri - ] - --- | Constructor for 'SageMakerMonitoringScheduleS3Output' containing required --- fields as arguments. -sageMakerMonitoringScheduleS3Output - :: Val Text -- ^ 'smmssoLocalPath' - -> Val Text -- ^ 'smmssoS3Uri' - -> SageMakerMonitoringScheduleS3Output -sageMakerMonitoringScheduleS3Output localPatharg s3Uriarg = - SageMakerMonitoringScheduleS3Output - { _sageMakerMonitoringScheduleS3OutputLocalPath = localPatharg - , _sageMakerMonitoringScheduleS3OutputS3UploadMode = Nothing - , _sageMakerMonitoringScheduleS3OutputS3Uri = s3Uriarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-s3output.html#cfn-sagemaker-monitoringschedule-s3output-localpath -smmssoLocalPath :: Lens' SageMakerMonitoringScheduleS3Output (Val Text) -smmssoLocalPath = lens _sageMakerMonitoringScheduleS3OutputLocalPath (\s a -> s { _sageMakerMonitoringScheduleS3OutputLocalPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-s3output.html#cfn-sagemaker-monitoringschedule-s3output-s3uploadmode -smmssoS3UploadMode :: Lens' SageMakerMonitoringScheduleS3Output (Maybe (Val Text)) -smmssoS3UploadMode = lens _sageMakerMonitoringScheduleS3OutputS3UploadMode (\s a -> s { _sageMakerMonitoringScheduleS3OutputS3UploadMode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-s3output.html#cfn-sagemaker-monitoringschedule-s3output-s3uri -smmssoS3Uri :: Lens' SageMakerMonitoringScheduleS3Output (Val Text) -smmssoS3Uri = lens _sageMakerMonitoringScheduleS3OutputS3Uri (\s a -> s { _sageMakerMonitoringScheduleS3OutputS3Uri = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleScheduleConfig.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleScheduleConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleScheduleConfig.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-scheduleconfig.html - -module Stratosphere.ResourceProperties.SageMakerMonitoringScheduleScheduleConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SageMakerMonitoringScheduleScheduleConfig. --- See 'sageMakerMonitoringScheduleScheduleConfig' for a more convenient --- constructor. -data SageMakerMonitoringScheduleScheduleConfig = - SageMakerMonitoringScheduleScheduleConfig - { _sageMakerMonitoringScheduleScheduleConfigScheduleExpression :: Val Text - } deriving (Show, Eq) - -instance ToJSON SageMakerMonitoringScheduleScheduleConfig where - toJSON SageMakerMonitoringScheduleScheduleConfig{..} = - object $ - catMaybes - [ (Just . ("ScheduleExpression",) . toJSON) _sageMakerMonitoringScheduleScheduleConfigScheduleExpression - ] - --- | Constructor for 'SageMakerMonitoringScheduleScheduleConfig' containing --- required fields as arguments. -sageMakerMonitoringScheduleScheduleConfig - :: Val Text -- ^ 'smmsscScheduleExpression' - -> SageMakerMonitoringScheduleScheduleConfig -sageMakerMonitoringScheduleScheduleConfig scheduleExpressionarg = - SageMakerMonitoringScheduleScheduleConfig - { _sageMakerMonitoringScheduleScheduleConfigScheduleExpression = scheduleExpressionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-scheduleconfig.html#cfn-sagemaker-monitoringschedule-scheduleconfig-scheduleexpression -smmsscScheduleExpression :: Lens' SageMakerMonitoringScheduleScheduleConfig (Val Text) -smmsscScheduleExpression = lens _sageMakerMonitoringScheduleScheduleConfigScheduleExpression (\s a -> s { _sageMakerMonitoringScheduleScheduleConfigScheduleExpression = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleStatisticsResource.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleStatisticsResource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleStatisticsResource.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-statisticsresource.html - -module Stratosphere.ResourceProperties.SageMakerMonitoringScheduleStatisticsResource where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- SageMakerMonitoringScheduleStatisticsResource. See --- 'sageMakerMonitoringScheduleStatisticsResource' for a more convenient --- constructor. -data SageMakerMonitoringScheduleStatisticsResource = - SageMakerMonitoringScheduleStatisticsResource - { _sageMakerMonitoringScheduleStatisticsResourceS3Uri :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON SageMakerMonitoringScheduleStatisticsResource where - toJSON SageMakerMonitoringScheduleStatisticsResource{..} = - object $ - catMaybes - [ fmap (("S3Uri",) . toJSON) _sageMakerMonitoringScheduleStatisticsResourceS3Uri - ] - --- | Constructor for 'SageMakerMonitoringScheduleStatisticsResource' --- containing required fields as arguments. -sageMakerMonitoringScheduleStatisticsResource - :: SageMakerMonitoringScheduleStatisticsResource -sageMakerMonitoringScheduleStatisticsResource = - SageMakerMonitoringScheduleStatisticsResource - { _sageMakerMonitoringScheduleStatisticsResourceS3Uri = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-statisticsresource.html#cfn-sagemaker-monitoringschedule-statisticsresource-s3uri -smmssrS3Uri :: Lens' SageMakerMonitoringScheduleStatisticsResource (Maybe (Val Text)) -smmssrS3Uri = lens _sageMakerMonitoringScheduleStatisticsResourceS3Uri (\s a -> s { _sageMakerMonitoringScheduleStatisticsResourceS3Uri = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleStoppingCondition.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleStoppingCondition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleStoppingCondition.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-stoppingcondition.html - -module Stratosphere.ResourceProperties.SageMakerMonitoringScheduleStoppingCondition where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- SageMakerMonitoringScheduleStoppingCondition. See --- 'sageMakerMonitoringScheduleStoppingCondition' for a more convenient --- constructor. -data SageMakerMonitoringScheduleStoppingCondition = - SageMakerMonitoringScheduleStoppingCondition - { _sageMakerMonitoringScheduleStoppingConditionMaxRuntimeInSeconds :: Val Integer - } deriving (Show, Eq) - -instance ToJSON SageMakerMonitoringScheduleStoppingCondition where - toJSON SageMakerMonitoringScheduleStoppingCondition{..} = - object $ - catMaybes - [ (Just . ("MaxRuntimeInSeconds",) . toJSON) _sageMakerMonitoringScheduleStoppingConditionMaxRuntimeInSeconds - ] - --- | Constructor for 'SageMakerMonitoringScheduleStoppingCondition' containing --- required fields as arguments. -sageMakerMonitoringScheduleStoppingCondition - :: Val Integer -- ^ 'smmsscMaxRuntimeInSeconds' - -> SageMakerMonitoringScheduleStoppingCondition -sageMakerMonitoringScheduleStoppingCondition maxRuntimeInSecondsarg = - SageMakerMonitoringScheduleStoppingCondition - { _sageMakerMonitoringScheduleStoppingConditionMaxRuntimeInSeconds = maxRuntimeInSecondsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-stoppingcondition.html#cfn-sagemaker-monitoringschedule-stoppingcondition-maxruntimeinseconds -smmsscMaxRuntimeInSeconds :: Lens' SageMakerMonitoringScheduleStoppingCondition (Val Integer) -smmsscMaxRuntimeInSeconds = lens _sageMakerMonitoringScheduleStoppingConditionMaxRuntimeInSeconds (\s a -> s { _sageMakerMonitoringScheduleStoppingConditionMaxRuntimeInSeconds = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleVpcConfig.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleVpcConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerMonitoringScheduleVpcConfig.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-vpcconfig.html - -module Stratosphere.ResourceProperties.SageMakerMonitoringScheduleVpcConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SageMakerMonitoringScheduleVpcConfig. See --- 'sageMakerMonitoringScheduleVpcConfig' for a more convenient constructor. -data SageMakerMonitoringScheduleVpcConfig = - SageMakerMonitoringScheduleVpcConfig - { _sageMakerMonitoringScheduleVpcConfigSecurityGroupIds :: ValList Text - , _sageMakerMonitoringScheduleVpcConfigSubnets :: ValList Text - } deriving (Show, Eq) - -instance ToJSON SageMakerMonitoringScheduleVpcConfig where - toJSON SageMakerMonitoringScheduleVpcConfig{..} = - object $ - catMaybes - [ (Just . ("SecurityGroupIds",) . toJSON) _sageMakerMonitoringScheduleVpcConfigSecurityGroupIds - , (Just . ("Subnets",) . toJSON) _sageMakerMonitoringScheduleVpcConfigSubnets - ] - --- | Constructor for 'SageMakerMonitoringScheduleVpcConfig' containing --- required fields as arguments. -sageMakerMonitoringScheduleVpcConfig - :: ValList Text -- ^ 'smmsvcSecurityGroupIds' - -> ValList Text -- ^ 'smmsvcSubnets' - -> SageMakerMonitoringScheduleVpcConfig -sageMakerMonitoringScheduleVpcConfig securityGroupIdsarg subnetsarg = - SageMakerMonitoringScheduleVpcConfig - { _sageMakerMonitoringScheduleVpcConfigSecurityGroupIds = securityGroupIdsarg - , _sageMakerMonitoringScheduleVpcConfigSubnets = subnetsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-vpcconfig.html#cfn-sagemaker-monitoringschedule-vpcconfig-securitygroupids -smmsvcSecurityGroupIds :: Lens' SageMakerMonitoringScheduleVpcConfig (ValList Text) -smmsvcSecurityGroupIds = lens _sageMakerMonitoringScheduleVpcConfigSecurityGroupIds (\s a -> s { _sageMakerMonitoringScheduleVpcConfigSecurityGroupIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-monitoringschedule-vpcconfig.html#cfn-sagemaker-monitoringschedule-vpcconfig-subnets -smmsvcSubnets :: Lens' SageMakerMonitoringScheduleVpcConfig (ValList Text) -smmsvcSubnets = lens _sageMakerMonitoringScheduleVpcConfigSubnets (\s a -> s { _sageMakerMonitoringScheduleVpcConfigSubnets = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook.hs +++ /dev/null @@ -1,42 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-notebookinstancelifecycleconfig-notebookinstancelifecyclehook.html - -module Stratosphere.ResourceProperties.SageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- SageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook. --- See --- 'sageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook' --- for a more convenient constructor. -data SageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook = - SageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook - { _sageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHookContent :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON SageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook where - toJSON SageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook{..} = - object $ - catMaybes - [ fmap (("Content",) . toJSON) _sageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHookContent - ] - --- | Constructor for --- 'SageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook' --- containing required fields as arguments. -sageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook - :: SageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook -sageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook = - SageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook - { _sageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHookContent = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-notebookinstancelifecycleconfig-notebookinstancelifecyclehook.html#cfn-sagemaker-notebookinstancelifecycleconfig-notebookinstancelifecyclehook-content -smnilcnilhContent :: Lens' SageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook (Maybe (Val Text)) -smnilcnilhContent = lens _sageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHookContent (\s a -> s { _sageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHookContent = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerWorkteamCognitoMemberDefinition.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerWorkteamCognitoMemberDefinition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerWorkteamCognitoMemberDefinition.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-workteam-cognitomemberdefinition.html - -module Stratosphere.ResourceProperties.SageMakerWorkteamCognitoMemberDefinition where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SageMakerWorkteamCognitoMemberDefinition. --- See 'sageMakerWorkteamCognitoMemberDefinition' for a more convenient --- constructor. -data SageMakerWorkteamCognitoMemberDefinition = - SageMakerWorkteamCognitoMemberDefinition - { _sageMakerWorkteamCognitoMemberDefinitionCognitoClientId :: Val Text - , _sageMakerWorkteamCognitoMemberDefinitionCognitoUserGroup :: Val Text - , _sageMakerWorkteamCognitoMemberDefinitionCognitoUserPool :: Val Text - } deriving (Show, Eq) - -instance ToJSON SageMakerWorkteamCognitoMemberDefinition where - toJSON SageMakerWorkteamCognitoMemberDefinition{..} = - object $ - catMaybes - [ (Just . ("CognitoClientId",) . toJSON) _sageMakerWorkteamCognitoMemberDefinitionCognitoClientId - , (Just . ("CognitoUserGroup",) . toJSON) _sageMakerWorkteamCognitoMemberDefinitionCognitoUserGroup - , (Just . ("CognitoUserPool",) . toJSON) _sageMakerWorkteamCognitoMemberDefinitionCognitoUserPool - ] - --- | Constructor for 'SageMakerWorkteamCognitoMemberDefinition' containing --- required fields as arguments. -sageMakerWorkteamCognitoMemberDefinition - :: Val Text -- ^ 'smwcmdCognitoClientId' - -> Val Text -- ^ 'smwcmdCognitoUserGroup' - -> Val Text -- ^ 'smwcmdCognitoUserPool' - -> SageMakerWorkteamCognitoMemberDefinition -sageMakerWorkteamCognitoMemberDefinition cognitoClientIdarg cognitoUserGrouparg cognitoUserPoolarg = - SageMakerWorkteamCognitoMemberDefinition - { _sageMakerWorkteamCognitoMemberDefinitionCognitoClientId = cognitoClientIdarg - , _sageMakerWorkteamCognitoMemberDefinitionCognitoUserGroup = cognitoUserGrouparg - , _sageMakerWorkteamCognitoMemberDefinitionCognitoUserPool = cognitoUserPoolarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-workteam-cognitomemberdefinition.html#cfn-sagemaker-workteam-cognitomemberdefinition-cognitoclientid -smwcmdCognitoClientId :: Lens' SageMakerWorkteamCognitoMemberDefinition (Val Text) -smwcmdCognitoClientId = lens _sageMakerWorkteamCognitoMemberDefinitionCognitoClientId (\s a -> s { _sageMakerWorkteamCognitoMemberDefinitionCognitoClientId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-workteam-cognitomemberdefinition.html#cfn-sagemaker-workteam-cognitomemberdefinition-cognitousergroup -smwcmdCognitoUserGroup :: Lens' SageMakerWorkteamCognitoMemberDefinition (Val Text) -smwcmdCognitoUserGroup = lens _sageMakerWorkteamCognitoMemberDefinitionCognitoUserGroup (\s a -> s { _sageMakerWorkteamCognitoMemberDefinitionCognitoUserGroup = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-workteam-cognitomemberdefinition.html#cfn-sagemaker-workteam-cognitomemberdefinition-cognitouserpool -smwcmdCognitoUserPool :: Lens' SageMakerWorkteamCognitoMemberDefinition (Val Text) -smwcmdCognitoUserPool = lens _sageMakerWorkteamCognitoMemberDefinitionCognitoUserPool (\s a -> s { _sageMakerWorkteamCognitoMemberDefinitionCognitoUserPool = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerWorkteamMemberDefinition.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerWorkteamMemberDefinition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerWorkteamMemberDefinition.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-workteam-memberdefinition.html - -module Stratosphere.ResourceProperties.SageMakerWorkteamMemberDefinition where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SageMakerWorkteamCognitoMemberDefinition - --- | Full data type definition for SageMakerWorkteamMemberDefinition. See --- 'sageMakerWorkteamMemberDefinition' for a more convenient constructor. -data SageMakerWorkteamMemberDefinition = - SageMakerWorkteamMemberDefinition - { _sageMakerWorkteamMemberDefinitionCognitoMemberDefinition :: SageMakerWorkteamCognitoMemberDefinition - } deriving (Show, Eq) - -instance ToJSON SageMakerWorkteamMemberDefinition where - toJSON SageMakerWorkteamMemberDefinition{..} = - object $ - catMaybes - [ (Just . ("CognitoMemberDefinition",) . toJSON) _sageMakerWorkteamMemberDefinitionCognitoMemberDefinition - ] - --- | Constructor for 'SageMakerWorkteamMemberDefinition' containing required --- fields as arguments. -sageMakerWorkteamMemberDefinition - :: SageMakerWorkteamCognitoMemberDefinition -- ^ 'smwmdCognitoMemberDefinition' - -> SageMakerWorkteamMemberDefinition -sageMakerWorkteamMemberDefinition cognitoMemberDefinitionarg = - SageMakerWorkteamMemberDefinition - { _sageMakerWorkteamMemberDefinitionCognitoMemberDefinition = cognitoMemberDefinitionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-workteam-memberdefinition.html#cfn-sagemaker-workteam-memberdefinition-cognitomemberdefinition -smwmdCognitoMemberDefinition :: Lens' SageMakerWorkteamMemberDefinition SageMakerWorkteamCognitoMemberDefinition -smwmdCognitoMemberDefinition = lens _sageMakerWorkteamMemberDefinitionCognitoMemberDefinition (\s a -> s { _sageMakerWorkteamMemberDefinitionCognitoMemberDefinition = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SageMakerWorkteamNotificationConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/SageMakerWorkteamNotificationConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SageMakerWorkteamNotificationConfiguration.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-workteam-notificationconfiguration.html - -module Stratosphere.ResourceProperties.SageMakerWorkteamNotificationConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SageMakerWorkteamNotificationConfiguration. --- See 'sageMakerWorkteamNotificationConfiguration' for a more convenient --- constructor. -data SageMakerWorkteamNotificationConfiguration = - SageMakerWorkteamNotificationConfiguration - { _sageMakerWorkteamNotificationConfigurationNotificationTopicArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON SageMakerWorkteamNotificationConfiguration where - toJSON SageMakerWorkteamNotificationConfiguration{..} = - object $ - catMaybes - [ (Just . ("NotificationTopicArn",) . toJSON) _sageMakerWorkteamNotificationConfigurationNotificationTopicArn - ] - --- | Constructor for 'SageMakerWorkteamNotificationConfiguration' containing --- required fields as arguments. -sageMakerWorkteamNotificationConfiguration - :: Val Text -- ^ 'smwncNotificationTopicArn' - -> SageMakerWorkteamNotificationConfiguration -sageMakerWorkteamNotificationConfiguration notificationTopicArnarg = - SageMakerWorkteamNotificationConfiguration - { _sageMakerWorkteamNotificationConfigurationNotificationTopicArn = notificationTopicArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-workteam-notificationconfiguration.html#cfn-sagemaker-workteam-notificationconfiguration-notificationtopicarn -smwncNotificationTopicArn :: Lens' SageMakerWorkteamNotificationConfiguration (Val Text) -smwncNotificationTopicArn = lens _sageMakerWorkteamNotificationConfigurationNotificationTopicArn (\s a -> s { _sageMakerWorkteamNotificationConfigurationNotificationTopicArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SecretsManagerRotationScheduleHostedRotationLambda.hs b/library-gen/Stratosphere/ResourceProperties/SecretsManagerRotationScheduleHostedRotationLambda.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SecretsManagerRotationScheduleHostedRotationLambda.hs +++ /dev/null @@ -1,83 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-rotationschedule-hostedrotationlambda.html - -module Stratosphere.ResourceProperties.SecretsManagerRotationScheduleHostedRotationLambda where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- SecretsManagerRotationScheduleHostedRotationLambda. See --- 'secretsManagerRotationScheduleHostedRotationLambda' for a more --- convenient constructor. -data SecretsManagerRotationScheduleHostedRotationLambda = - SecretsManagerRotationScheduleHostedRotationLambda - { _secretsManagerRotationScheduleHostedRotationLambdaKmsKeyArn :: Maybe (Val Text) - , _secretsManagerRotationScheduleHostedRotationLambdaMasterSecretArn :: Maybe (Val Text) - , _secretsManagerRotationScheduleHostedRotationLambdaMasterSecretKmsKeyArn :: Maybe (Val Text) - , _secretsManagerRotationScheduleHostedRotationLambdaRotationLambdaName :: Maybe (Val Text) - , _secretsManagerRotationScheduleHostedRotationLambdaRotationType :: Val Text - , _secretsManagerRotationScheduleHostedRotationLambdaVpcSecurityGroupIds :: Maybe (Val Text) - , _secretsManagerRotationScheduleHostedRotationLambdaVpcSubnetIds :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON SecretsManagerRotationScheduleHostedRotationLambda where - toJSON SecretsManagerRotationScheduleHostedRotationLambda{..} = - object $ - catMaybes - [ fmap (("KmsKeyArn",) . toJSON) _secretsManagerRotationScheduleHostedRotationLambdaKmsKeyArn - , fmap (("MasterSecretArn",) . toJSON) _secretsManagerRotationScheduleHostedRotationLambdaMasterSecretArn - , fmap (("MasterSecretKmsKeyArn",) . toJSON) _secretsManagerRotationScheduleHostedRotationLambdaMasterSecretKmsKeyArn - , fmap (("RotationLambdaName",) . toJSON) _secretsManagerRotationScheduleHostedRotationLambdaRotationLambdaName - , (Just . ("RotationType",) . toJSON) _secretsManagerRotationScheduleHostedRotationLambdaRotationType - , fmap (("VpcSecurityGroupIds",) . toJSON) _secretsManagerRotationScheduleHostedRotationLambdaVpcSecurityGroupIds - , fmap (("VpcSubnetIds",) . toJSON) _secretsManagerRotationScheduleHostedRotationLambdaVpcSubnetIds - ] - --- | Constructor for 'SecretsManagerRotationScheduleHostedRotationLambda' --- containing required fields as arguments. -secretsManagerRotationScheduleHostedRotationLambda - :: Val Text -- ^ 'smrshrlRotationType' - -> SecretsManagerRotationScheduleHostedRotationLambda -secretsManagerRotationScheduleHostedRotationLambda rotationTypearg = - SecretsManagerRotationScheduleHostedRotationLambda - { _secretsManagerRotationScheduleHostedRotationLambdaKmsKeyArn = Nothing - , _secretsManagerRotationScheduleHostedRotationLambdaMasterSecretArn = Nothing - , _secretsManagerRotationScheduleHostedRotationLambdaMasterSecretKmsKeyArn = Nothing - , _secretsManagerRotationScheduleHostedRotationLambdaRotationLambdaName = Nothing - , _secretsManagerRotationScheduleHostedRotationLambdaRotationType = rotationTypearg - , _secretsManagerRotationScheduleHostedRotationLambdaVpcSecurityGroupIds = Nothing - , _secretsManagerRotationScheduleHostedRotationLambdaVpcSubnetIds = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-rotationschedule-hostedrotationlambda.html#cfn-secretsmanager-rotationschedule-hostedrotationlambda-kmskeyarn -smrshrlKmsKeyArn :: Lens' SecretsManagerRotationScheduleHostedRotationLambda (Maybe (Val Text)) -smrshrlKmsKeyArn = lens _secretsManagerRotationScheduleHostedRotationLambdaKmsKeyArn (\s a -> s { _secretsManagerRotationScheduleHostedRotationLambdaKmsKeyArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-rotationschedule-hostedrotationlambda.html#cfn-secretsmanager-rotationschedule-hostedrotationlambda-mastersecretarn -smrshrlMasterSecretArn :: Lens' SecretsManagerRotationScheduleHostedRotationLambda (Maybe (Val Text)) -smrshrlMasterSecretArn = lens _secretsManagerRotationScheduleHostedRotationLambdaMasterSecretArn (\s a -> s { _secretsManagerRotationScheduleHostedRotationLambdaMasterSecretArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-rotationschedule-hostedrotationlambda.html#cfn-secretsmanager-rotationschedule-hostedrotationlambda-mastersecretkmskeyarn -smrshrlMasterSecretKmsKeyArn :: Lens' SecretsManagerRotationScheduleHostedRotationLambda (Maybe (Val Text)) -smrshrlMasterSecretKmsKeyArn = lens _secretsManagerRotationScheduleHostedRotationLambdaMasterSecretKmsKeyArn (\s a -> s { _secretsManagerRotationScheduleHostedRotationLambdaMasterSecretKmsKeyArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-rotationschedule-hostedrotationlambda.html#cfn-secretsmanager-rotationschedule-hostedrotationlambda-rotationlambdaname -smrshrlRotationLambdaName :: Lens' SecretsManagerRotationScheduleHostedRotationLambda (Maybe (Val Text)) -smrshrlRotationLambdaName = lens _secretsManagerRotationScheduleHostedRotationLambdaRotationLambdaName (\s a -> s { _secretsManagerRotationScheduleHostedRotationLambdaRotationLambdaName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-rotationschedule-hostedrotationlambda.html#cfn-secretsmanager-rotationschedule-hostedrotationlambda-rotationtype -smrshrlRotationType :: Lens' SecretsManagerRotationScheduleHostedRotationLambda (Val Text) -smrshrlRotationType = lens _secretsManagerRotationScheduleHostedRotationLambdaRotationType (\s a -> s { _secretsManagerRotationScheduleHostedRotationLambdaRotationType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-rotationschedule-hostedrotationlambda.html#cfn-secretsmanager-rotationschedule-hostedrotationlambda-vpcsecuritygroupids -smrshrlVpcSecurityGroupIds :: Lens' SecretsManagerRotationScheduleHostedRotationLambda (Maybe (Val Text)) -smrshrlVpcSecurityGroupIds = lens _secretsManagerRotationScheduleHostedRotationLambdaVpcSecurityGroupIds (\s a -> s { _secretsManagerRotationScheduleHostedRotationLambdaVpcSecurityGroupIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-rotationschedule-hostedrotationlambda.html#cfn-secretsmanager-rotationschedule-hostedrotationlambda-vpcsubnetids -smrshrlVpcSubnetIds :: Lens' SecretsManagerRotationScheduleHostedRotationLambda (Maybe (Val Text)) -smrshrlVpcSubnetIds = lens _secretsManagerRotationScheduleHostedRotationLambdaVpcSubnetIds (\s a -> s { _secretsManagerRotationScheduleHostedRotationLambdaVpcSubnetIds = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SecretsManagerRotationScheduleRotationRules.hs b/library-gen/Stratosphere/ResourceProperties/SecretsManagerRotationScheduleRotationRules.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SecretsManagerRotationScheduleRotationRules.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-rotationschedule-rotationrules.html - -module Stratosphere.ResourceProperties.SecretsManagerRotationScheduleRotationRules where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- SecretsManagerRotationScheduleRotationRules. See --- 'secretsManagerRotationScheduleRotationRules' for a more convenient --- constructor. -data SecretsManagerRotationScheduleRotationRules = - SecretsManagerRotationScheduleRotationRules - { _secretsManagerRotationScheduleRotationRulesAutomaticallyAfterDays :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON SecretsManagerRotationScheduleRotationRules where - toJSON SecretsManagerRotationScheduleRotationRules{..} = - object $ - catMaybes - [ fmap (("AutomaticallyAfterDays",) . toJSON) _secretsManagerRotationScheduleRotationRulesAutomaticallyAfterDays - ] - --- | Constructor for 'SecretsManagerRotationScheduleRotationRules' containing --- required fields as arguments. -secretsManagerRotationScheduleRotationRules - :: SecretsManagerRotationScheduleRotationRules -secretsManagerRotationScheduleRotationRules = - SecretsManagerRotationScheduleRotationRules - { _secretsManagerRotationScheduleRotationRulesAutomaticallyAfterDays = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-rotationschedule-rotationrules.html#cfn-secretsmanager-rotationschedule-rotationrules-automaticallyafterdays -smrsrrAutomaticallyAfterDays :: Lens' SecretsManagerRotationScheduleRotationRules (Maybe (Val Integer)) -smrsrrAutomaticallyAfterDays = lens _secretsManagerRotationScheduleRotationRulesAutomaticallyAfterDays (\s a -> s { _secretsManagerRotationScheduleRotationRulesAutomaticallyAfterDays = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SecretsManagerSecretGenerateSecretString.hs b/library-gen/Stratosphere/ResourceProperties/SecretsManagerSecretGenerateSecretString.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SecretsManagerSecretGenerateSecretString.hs +++ /dev/null @@ -1,102 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-secret-generatesecretstring.html - -module Stratosphere.ResourceProperties.SecretsManagerSecretGenerateSecretString where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SecretsManagerSecretGenerateSecretString. --- See 'secretsManagerSecretGenerateSecretString' for a more convenient --- constructor. -data SecretsManagerSecretGenerateSecretString = - SecretsManagerSecretGenerateSecretString - { _secretsManagerSecretGenerateSecretStringExcludeCharacters :: Maybe (Val Text) - , _secretsManagerSecretGenerateSecretStringExcludeLowercase :: Maybe (Val Bool) - , _secretsManagerSecretGenerateSecretStringExcludeNumbers :: Maybe (Val Bool) - , _secretsManagerSecretGenerateSecretStringExcludePunctuation :: Maybe (Val Bool) - , _secretsManagerSecretGenerateSecretStringExcludeUppercase :: Maybe (Val Bool) - , _secretsManagerSecretGenerateSecretStringGenerateStringKey :: Maybe (Val Text) - , _secretsManagerSecretGenerateSecretStringIncludeSpace :: Maybe (Val Bool) - , _secretsManagerSecretGenerateSecretStringPasswordLength :: Maybe (Val Integer) - , _secretsManagerSecretGenerateSecretStringRequireEachIncludedType :: Maybe (Val Bool) - , _secretsManagerSecretGenerateSecretStringSecretStringTemplate :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON SecretsManagerSecretGenerateSecretString where - toJSON SecretsManagerSecretGenerateSecretString{..} = - object $ - catMaybes - [ fmap (("ExcludeCharacters",) . toJSON) _secretsManagerSecretGenerateSecretStringExcludeCharacters - , fmap (("ExcludeLowercase",) . toJSON) _secretsManagerSecretGenerateSecretStringExcludeLowercase - , fmap (("ExcludeNumbers",) . toJSON) _secretsManagerSecretGenerateSecretStringExcludeNumbers - , fmap (("ExcludePunctuation",) . toJSON) _secretsManagerSecretGenerateSecretStringExcludePunctuation - , fmap (("ExcludeUppercase",) . toJSON) _secretsManagerSecretGenerateSecretStringExcludeUppercase - , fmap (("GenerateStringKey",) . toJSON) _secretsManagerSecretGenerateSecretStringGenerateStringKey - , fmap (("IncludeSpace",) . toJSON) _secretsManagerSecretGenerateSecretStringIncludeSpace - , fmap (("PasswordLength",) . toJSON) _secretsManagerSecretGenerateSecretStringPasswordLength - , fmap (("RequireEachIncludedType",) . toJSON) _secretsManagerSecretGenerateSecretStringRequireEachIncludedType - , fmap (("SecretStringTemplate",) . toJSON) _secretsManagerSecretGenerateSecretStringSecretStringTemplate - ] - --- | Constructor for 'SecretsManagerSecretGenerateSecretString' containing --- required fields as arguments. -secretsManagerSecretGenerateSecretString - :: SecretsManagerSecretGenerateSecretString -secretsManagerSecretGenerateSecretString = - SecretsManagerSecretGenerateSecretString - { _secretsManagerSecretGenerateSecretStringExcludeCharacters = Nothing - , _secretsManagerSecretGenerateSecretStringExcludeLowercase = Nothing - , _secretsManagerSecretGenerateSecretStringExcludeNumbers = Nothing - , _secretsManagerSecretGenerateSecretStringExcludePunctuation = Nothing - , _secretsManagerSecretGenerateSecretStringExcludeUppercase = Nothing - , _secretsManagerSecretGenerateSecretStringGenerateStringKey = Nothing - , _secretsManagerSecretGenerateSecretStringIncludeSpace = Nothing - , _secretsManagerSecretGenerateSecretStringPasswordLength = Nothing - , _secretsManagerSecretGenerateSecretStringRequireEachIncludedType = Nothing - , _secretsManagerSecretGenerateSecretStringSecretStringTemplate = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-secret-generatesecretstring.html#cfn-secretsmanager-secret-generatesecretstring-excludecharacters -smsgssExcludeCharacters :: Lens' SecretsManagerSecretGenerateSecretString (Maybe (Val Text)) -smsgssExcludeCharacters = lens _secretsManagerSecretGenerateSecretStringExcludeCharacters (\s a -> s { _secretsManagerSecretGenerateSecretStringExcludeCharacters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-secret-generatesecretstring.html#cfn-secretsmanager-secret-generatesecretstring-excludelowercase -smsgssExcludeLowercase :: Lens' SecretsManagerSecretGenerateSecretString (Maybe (Val Bool)) -smsgssExcludeLowercase = lens _secretsManagerSecretGenerateSecretStringExcludeLowercase (\s a -> s { _secretsManagerSecretGenerateSecretStringExcludeLowercase = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-secret-generatesecretstring.html#cfn-secretsmanager-secret-generatesecretstring-excludenumbers -smsgssExcludeNumbers :: Lens' SecretsManagerSecretGenerateSecretString (Maybe (Val Bool)) -smsgssExcludeNumbers = lens _secretsManagerSecretGenerateSecretStringExcludeNumbers (\s a -> s { _secretsManagerSecretGenerateSecretStringExcludeNumbers = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-secret-generatesecretstring.html#cfn-secretsmanager-secret-generatesecretstring-excludepunctuation -smsgssExcludePunctuation :: Lens' SecretsManagerSecretGenerateSecretString (Maybe (Val Bool)) -smsgssExcludePunctuation = lens _secretsManagerSecretGenerateSecretStringExcludePunctuation (\s a -> s { _secretsManagerSecretGenerateSecretStringExcludePunctuation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-secret-generatesecretstring.html#cfn-secretsmanager-secret-generatesecretstring-excludeuppercase -smsgssExcludeUppercase :: Lens' SecretsManagerSecretGenerateSecretString (Maybe (Val Bool)) -smsgssExcludeUppercase = lens _secretsManagerSecretGenerateSecretStringExcludeUppercase (\s a -> s { _secretsManagerSecretGenerateSecretStringExcludeUppercase = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-secret-generatesecretstring.html#cfn-secretsmanager-secret-generatesecretstring-generatestringkey -smsgssGenerateStringKey :: Lens' SecretsManagerSecretGenerateSecretString (Maybe (Val Text)) -smsgssGenerateStringKey = lens _secretsManagerSecretGenerateSecretStringGenerateStringKey (\s a -> s { _secretsManagerSecretGenerateSecretStringGenerateStringKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-secret-generatesecretstring.html#cfn-secretsmanager-secret-generatesecretstring-includespace -smsgssIncludeSpace :: Lens' SecretsManagerSecretGenerateSecretString (Maybe (Val Bool)) -smsgssIncludeSpace = lens _secretsManagerSecretGenerateSecretStringIncludeSpace (\s a -> s { _secretsManagerSecretGenerateSecretStringIncludeSpace = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-secret-generatesecretstring.html#cfn-secretsmanager-secret-generatesecretstring-passwordlength -smsgssPasswordLength :: Lens' SecretsManagerSecretGenerateSecretString (Maybe (Val Integer)) -smsgssPasswordLength = lens _secretsManagerSecretGenerateSecretStringPasswordLength (\s a -> s { _secretsManagerSecretGenerateSecretStringPasswordLength = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-secret-generatesecretstring.html#cfn-secretsmanager-secret-generatesecretstring-requireeachincludedtype -smsgssRequireEachIncludedType :: Lens' SecretsManagerSecretGenerateSecretString (Maybe (Val Bool)) -smsgssRequireEachIncludedType = lens _secretsManagerSecretGenerateSecretStringRequireEachIncludedType (\s a -> s { _secretsManagerSecretGenerateSecretStringRequireEachIncludedType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-secretsmanager-secret-generatesecretstring.html#cfn-secretsmanager-secret-generatesecretstring-secretstringtemplate -smsgssSecretStringTemplate :: Lens' SecretsManagerSecretGenerateSecretString (Maybe (Val Text)) -smsgssSecretStringTemplate = lens _secretsManagerSecretGenerateSecretStringSecretStringTemplate (\s a -> s { _secretsManagerSecretGenerateSecretStringSecretStringTemplate = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ServiceCatalogCloudFormationProductProvisioningArtifactProperties.hs b/library-gen/Stratosphere/ResourceProperties/ServiceCatalogCloudFormationProductProvisioningArtifactProperties.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ServiceCatalogCloudFormationProductProvisioningArtifactProperties.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicecatalog-cloudformationproduct-provisioningartifactproperties.html - -module Stratosphere.ResourceProperties.ServiceCatalogCloudFormationProductProvisioningArtifactProperties where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ServiceCatalogCloudFormationProductProvisioningArtifactProperties. See --- 'serviceCatalogCloudFormationProductProvisioningArtifactProperties' for a --- more convenient constructor. -data ServiceCatalogCloudFormationProductProvisioningArtifactProperties = - ServiceCatalogCloudFormationProductProvisioningArtifactProperties - { _serviceCatalogCloudFormationProductProvisioningArtifactPropertiesDescription :: Maybe (Val Text) - , _serviceCatalogCloudFormationProductProvisioningArtifactPropertiesDisableTemplateValidation :: Maybe (Val Bool) - , _serviceCatalogCloudFormationProductProvisioningArtifactPropertiesInfo :: Object - , _serviceCatalogCloudFormationProductProvisioningArtifactPropertiesName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ServiceCatalogCloudFormationProductProvisioningArtifactProperties where - toJSON ServiceCatalogCloudFormationProductProvisioningArtifactProperties{..} = - object $ - catMaybes - [ fmap (("Description",) . toJSON) _serviceCatalogCloudFormationProductProvisioningArtifactPropertiesDescription - , fmap (("DisableTemplateValidation",) . toJSON) _serviceCatalogCloudFormationProductProvisioningArtifactPropertiesDisableTemplateValidation - , (Just . ("Info",) . toJSON) _serviceCatalogCloudFormationProductProvisioningArtifactPropertiesInfo - , fmap (("Name",) . toJSON) _serviceCatalogCloudFormationProductProvisioningArtifactPropertiesName - ] - --- | Constructor for --- 'ServiceCatalogCloudFormationProductProvisioningArtifactProperties' --- containing required fields as arguments. -serviceCatalogCloudFormationProductProvisioningArtifactProperties - :: Object -- ^ 'sccfppapInfo' - -> ServiceCatalogCloudFormationProductProvisioningArtifactProperties -serviceCatalogCloudFormationProductProvisioningArtifactProperties infoarg = - ServiceCatalogCloudFormationProductProvisioningArtifactProperties - { _serviceCatalogCloudFormationProductProvisioningArtifactPropertiesDescription = Nothing - , _serviceCatalogCloudFormationProductProvisioningArtifactPropertiesDisableTemplateValidation = Nothing - , _serviceCatalogCloudFormationProductProvisioningArtifactPropertiesInfo = infoarg - , _serviceCatalogCloudFormationProductProvisioningArtifactPropertiesName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicecatalog-cloudformationproduct-provisioningartifactproperties.html#cfn-servicecatalog-cloudformationproduct-provisioningartifactproperties-description -sccfppapDescription :: Lens' ServiceCatalogCloudFormationProductProvisioningArtifactProperties (Maybe (Val Text)) -sccfppapDescription = lens _serviceCatalogCloudFormationProductProvisioningArtifactPropertiesDescription (\s a -> s { _serviceCatalogCloudFormationProductProvisioningArtifactPropertiesDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicecatalog-cloudformationproduct-provisioningartifactproperties.html#cfn-servicecatalog-cloudformationproduct-provisioningartifactproperties-disabletemplatevalidation -sccfppapDisableTemplateValidation :: Lens' ServiceCatalogCloudFormationProductProvisioningArtifactProperties (Maybe (Val Bool)) -sccfppapDisableTemplateValidation = lens _serviceCatalogCloudFormationProductProvisioningArtifactPropertiesDisableTemplateValidation (\s a -> s { _serviceCatalogCloudFormationProductProvisioningArtifactPropertiesDisableTemplateValidation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicecatalog-cloudformationproduct-provisioningartifactproperties.html#cfn-servicecatalog-cloudformationproduct-provisioningartifactproperties-info -sccfppapInfo :: Lens' ServiceCatalogCloudFormationProductProvisioningArtifactProperties Object -sccfppapInfo = lens _serviceCatalogCloudFormationProductProvisioningArtifactPropertiesInfo (\s a -> s { _serviceCatalogCloudFormationProductProvisioningArtifactPropertiesInfo = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicecatalog-cloudformationproduct-provisioningartifactproperties.html#cfn-servicecatalog-cloudformationproduct-provisioningartifactproperties-name -sccfppapName :: Lens' ServiceCatalogCloudFormationProductProvisioningArtifactProperties (Maybe (Val Text)) -sccfppapName = lens _serviceCatalogCloudFormationProductProvisioningArtifactPropertiesName (\s a -> s { _serviceCatalogCloudFormationProductProvisioningArtifactPropertiesName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ServiceCatalogCloudFormationProvisionedProductProvisioningParameter.hs b/library-gen/Stratosphere/ResourceProperties/ServiceCatalogCloudFormationProvisionedProductProvisioningParameter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ServiceCatalogCloudFormationProvisionedProductProvisioningParameter.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicecatalog-cloudformationprovisionedproduct-provisioningparameter.html - -module Stratosphere.ResourceProperties.ServiceCatalogCloudFormationProvisionedProductProvisioningParameter where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ServiceCatalogCloudFormationProvisionedProductProvisioningParameter. See --- 'serviceCatalogCloudFormationProvisionedProductProvisioningParameter' for --- a more convenient constructor. -data ServiceCatalogCloudFormationProvisionedProductProvisioningParameter = - ServiceCatalogCloudFormationProvisionedProductProvisioningParameter - { _serviceCatalogCloudFormationProvisionedProductProvisioningParameterKey :: Val Text - , _serviceCatalogCloudFormationProvisionedProductProvisioningParameterValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON ServiceCatalogCloudFormationProvisionedProductProvisioningParameter where - toJSON ServiceCatalogCloudFormationProvisionedProductProvisioningParameter{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _serviceCatalogCloudFormationProvisionedProductProvisioningParameterKey - , (Just . ("Value",) . toJSON) _serviceCatalogCloudFormationProvisionedProductProvisioningParameterValue - ] - --- | Constructor for --- 'ServiceCatalogCloudFormationProvisionedProductProvisioningParameter' --- containing required fields as arguments. -serviceCatalogCloudFormationProvisionedProductProvisioningParameter - :: Val Text -- ^ 'sccfppppKey' - -> Val Text -- ^ 'sccfppppValue' - -> ServiceCatalogCloudFormationProvisionedProductProvisioningParameter -serviceCatalogCloudFormationProvisionedProductProvisioningParameter keyarg valuearg = - ServiceCatalogCloudFormationProvisionedProductProvisioningParameter - { _serviceCatalogCloudFormationProvisionedProductProvisioningParameterKey = keyarg - , _serviceCatalogCloudFormationProvisionedProductProvisioningParameterValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicecatalog-cloudformationprovisionedproduct-provisioningparameter.html#cfn-servicecatalog-cloudformationprovisionedproduct-provisioningparameter-key -sccfppppKey :: Lens' ServiceCatalogCloudFormationProvisionedProductProvisioningParameter (Val Text) -sccfppppKey = lens _serviceCatalogCloudFormationProvisionedProductProvisioningParameterKey (\s a -> s { _serviceCatalogCloudFormationProvisionedProductProvisioningParameterKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicecatalog-cloudformationprovisionedproduct-provisioningparameter.html#cfn-servicecatalog-cloudformationprovisionedproduct-provisioningparameter-value -sccfppppValue :: Lens' ServiceCatalogCloudFormationProvisionedProductProvisioningParameter (Val Text) -sccfppppValue = lens _serviceCatalogCloudFormationProvisionedProductProvisioningParameterValue (\s a -> s { _serviceCatalogCloudFormationProvisionedProductProvisioningParameterValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ServiceCatalogCloudFormationProvisionedProductProvisioningPreferences.hs b/library-gen/Stratosphere/ResourceProperties/ServiceCatalogCloudFormationProvisionedProductProvisioningPreferences.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ServiceCatalogCloudFormationProvisionedProductProvisioningPreferences.hs +++ /dev/null @@ -1,84 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicecatalog-cloudformationprovisionedproduct-provisioningpreferences.html - -module Stratosphere.ResourceProperties.ServiceCatalogCloudFormationProvisionedProductProvisioningPreferences where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ServiceCatalogCloudFormationProvisionedProductProvisioningPreferences. --- See --- 'serviceCatalogCloudFormationProvisionedProductProvisioningPreferences' --- for a more convenient constructor. -data ServiceCatalogCloudFormationProvisionedProductProvisioningPreferences = - ServiceCatalogCloudFormationProvisionedProductProvisioningPreferences - { _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetAccounts :: Maybe (ValList Text) - , _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetFailureToleranceCount :: Maybe (Val Integer) - , _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetFailureTolerancePercentage :: Maybe (Val Integer) - , _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetMaxConcurrencyCount :: Maybe (Val Integer) - , _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetMaxConcurrencyPercentage :: Maybe (Val Integer) - , _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetOperationType :: Maybe (Val Text) - , _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetRegions :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToJSON ServiceCatalogCloudFormationProvisionedProductProvisioningPreferences where - toJSON ServiceCatalogCloudFormationProvisionedProductProvisioningPreferences{..} = - object $ - catMaybes - [ fmap (("StackSetAccounts",) . toJSON) _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetAccounts - , fmap (("StackSetFailureToleranceCount",) . toJSON) _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetFailureToleranceCount - , fmap (("StackSetFailureTolerancePercentage",) . toJSON) _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetFailureTolerancePercentage - , fmap (("StackSetMaxConcurrencyCount",) . toJSON) _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetMaxConcurrencyCount - , fmap (("StackSetMaxConcurrencyPercentage",) . toJSON) _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetMaxConcurrencyPercentage - , fmap (("StackSetOperationType",) . toJSON) _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetOperationType - , fmap (("StackSetRegions",) . toJSON) _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetRegions - ] - --- | Constructor for --- 'ServiceCatalogCloudFormationProvisionedProductProvisioningPreferences' --- containing required fields as arguments. -serviceCatalogCloudFormationProvisionedProductProvisioningPreferences - :: ServiceCatalogCloudFormationProvisionedProductProvisioningPreferences -serviceCatalogCloudFormationProvisionedProductProvisioningPreferences = - ServiceCatalogCloudFormationProvisionedProductProvisioningPreferences - { _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetAccounts = Nothing - , _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetFailureToleranceCount = Nothing - , _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetFailureTolerancePercentage = Nothing - , _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetMaxConcurrencyCount = Nothing - , _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetMaxConcurrencyPercentage = Nothing - , _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetOperationType = Nothing - , _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetRegions = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicecatalog-cloudformationprovisionedproduct-provisioningpreferences.html#cfn-servicecatalog-cloudformationprovisionedproduct-provisioningpreferences-stacksetaccounts -sccfppppStackSetAccounts :: Lens' ServiceCatalogCloudFormationProvisionedProductProvisioningPreferences (Maybe (ValList Text)) -sccfppppStackSetAccounts = lens _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetAccounts (\s a -> s { _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetAccounts = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicecatalog-cloudformationprovisionedproduct-provisioningpreferences.html#cfn-servicecatalog-cloudformationprovisionedproduct-provisioningpreferences-stacksetfailuretolerancecount -sccfppppStackSetFailureToleranceCount :: Lens' ServiceCatalogCloudFormationProvisionedProductProvisioningPreferences (Maybe (Val Integer)) -sccfppppStackSetFailureToleranceCount = lens _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetFailureToleranceCount (\s a -> s { _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetFailureToleranceCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicecatalog-cloudformationprovisionedproduct-provisioningpreferences.html#cfn-servicecatalog-cloudformationprovisionedproduct-provisioningpreferences-stacksetfailuretolerancepercentage -sccfppppStackSetFailureTolerancePercentage :: Lens' ServiceCatalogCloudFormationProvisionedProductProvisioningPreferences (Maybe (Val Integer)) -sccfppppStackSetFailureTolerancePercentage = lens _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetFailureTolerancePercentage (\s a -> s { _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetFailureTolerancePercentage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicecatalog-cloudformationprovisionedproduct-provisioningpreferences.html#cfn-servicecatalog-cloudformationprovisionedproduct-provisioningpreferences-stacksetmaxconcurrencycount -sccfppppStackSetMaxConcurrencyCount :: Lens' ServiceCatalogCloudFormationProvisionedProductProvisioningPreferences (Maybe (Val Integer)) -sccfppppStackSetMaxConcurrencyCount = lens _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetMaxConcurrencyCount (\s a -> s { _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetMaxConcurrencyCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicecatalog-cloudformationprovisionedproduct-provisioningpreferences.html#cfn-servicecatalog-cloudformationprovisionedproduct-provisioningpreferences-stacksetmaxconcurrencypercentage -sccfppppStackSetMaxConcurrencyPercentage :: Lens' ServiceCatalogCloudFormationProvisionedProductProvisioningPreferences (Maybe (Val Integer)) -sccfppppStackSetMaxConcurrencyPercentage = lens _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetMaxConcurrencyPercentage (\s a -> s { _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetMaxConcurrencyPercentage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicecatalog-cloudformationprovisionedproduct-provisioningpreferences.html#cfn-servicecatalog-cloudformationprovisionedproduct-provisioningpreferences-stacksetoperationtype -sccfppppStackSetOperationType :: Lens' ServiceCatalogCloudFormationProvisionedProductProvisioningPreferences (Maybe (Val Text)) -sccfppppStackSetOperationType = lens _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetOperationType (\s a -> s { _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetOperationType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicecatalog-cloudformationprovisionedproduct-provisioningpreferences.html#cfn-servicecatalog-cloudformationprovisionedproduct-provisioningpreferences-stacksetregions -sccfppppStackSetRegions :: Lens' ServiceCatalogCloudFormationProvisionedProductProvisioningPreferences (Maybe (ValList Text)) -sccfppppStackSetRegions = lens _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetRegions (\s a -> s { _serviceCatalogCloudFormationProvisionedProductProvisioningPreferencesStackSetRegions = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ServiceDiscoveryServiceDnsConfig.hs b/library-gen/Stratosphere/ResourceProperties/ServiceDiscoveryServiceDnsConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ServiceDiscoveryServiceDnsConfig.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-dnsconfig.html - -module Stratosphere.ResourceProperties.ServiceDiscoveryServiceDnsConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ServiceDiscoveryServiceDnsRecord - --- | Full data type definition for ServiceDiscoveryServiceDnsConfig. See --- 'serviceDiscoveryServiceDnsConfig' for a more convenient constructor. -data ServiceDiscoveryServiceDnsConfig = - ServiceDiscoveryServiceDnsConfig - { _serviceDiscoveryServiceDnsConfigDnsRecords :: [ServiceDiscoveryServiceDnsRecord] - , _serviceDiscoveryServiceDnsConfigNamespaceId :: Maybe (Val Text) - , _serviceDiscoveryServiceDnsConfigRoutingPolicy :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ServiceDiscoveryServiceDnsConfig where - toJSON ServiceDiscoveryServiceDnsConfig{..} = - object $ - catMaybes - [ (Just . ("DnsRecords",) . toJSON) _serviceDiscoveryServiceDnsConfigDnsRecords - , fmap (("NamespaceId",) . toJSON) _serviceDiscoveryServiceDnsConfigNamespaceId - , fmap (("RoutingPolicy",) . toJSON) _serviceDiscoveryServiceDnsConfigRoutingPolicy - ] - --- | Constructor for 'ServiceDiscoveryServiceDnsConfig' containing required --- fields as arguments. -serviceDiscoveryServiceDnsConfig - :: [ServiceDiscoveryServiceDnsRecord] -- ^ 'sdsdcDnsRecords' - -> ServiceDiscoveryServiceDnsConfig -serviceDiscoveryServiceDnsConfig dnsRecordsarg = - ServiceDiscoveryServiceDnsConfig - { _serviceDiscoveryServiceDnsConfigDnsRecords = dnsRecordsarg - , _serviceDiscoveryServiceDnsConfigNamespaceId = Nothing - , _serviceDiscoveryServiceDnsConfigRoutingPolicy = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-dnsconfig.html#cfn-servicediscovery-service-dnsconfig-dnsrecords -sdsdcDnsRecords :: Lens' ServiceDiscoveryServiceDnsConfig [ServiceDiscoveryServiceDnsRecord] -sdsdcDnsRecords = lens _serviceDiscoveryServiceDnsConfigDnsRecords (\s a -> s { _serviceDiscoveryServiceDnsConfigDnsRecords = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-dnsconfig.html#cfn-servicediscovery-service-dnsconfig-namespaceid -sdsdcNamespaceId :: Lens' ServiceDiscoveryServiceDnsConfig (Maybe (Val Text)) -sdsdcNamespaceId = lens _serviceDiscoveryServiceDnsConfigNamespaceId (\s a -> s { _serviceDiscoveryServiceDnsConfigNamespaceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-dnsconfig.html#cfn-servicediscovery-service-dnsconfig-routingpolicy -sdsdcRoutingPolicy :: Lens' ServiceDiscoveryServiceDnsConfig (Maybe (Val Text)) -sdsdcRoutingPolicy = lens _serviceDiscoveryServiceDnsConfigRoutingPolicy (\s a -> s { _serviceDiscoveryServiceDnsConfigRoutingPolicy = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ServiceDiscoveryServiceDnsRecord.hs b/library-gen/Stratosphere/ResourceProperties/ServiceDiscoveryServiceDnsRecord.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ServiceDiscoveryServiceDnsRecord.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-dnsrecord.html - -module Stratosphere.ResourceProperties.ServiceDiscoveryServiceDnsRecord where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ServiceDiscoveryServiceDnsRecord. See --- 'serviceDiscoveryServiceDnsRecord' for a more convenient constructor. -data ServiceDiscoveryServiceDnsRecord = - ServiceDiscoveryServiceDnsRecord - { _serviceDiscoveryServiceDnsRecordTTL :: Val Double - , _serviceDiscoveryServiceDnsRecordType :: Val Text - } deriving (Show, Eq) - -instance ToJSON ServiceDiscoveryServiceDnsRecord where - toJSON ServiceDiscoveryServiceDnsRecord{..} = - object $ - catMaybes - [ (Just . ("TTL",) . toJSON) _serviceDiscoveryServiceDnsRecordTTL - , (Just . ("Type",) . toJSON) _serviceDiscoveryServiceDnsRecordType - ] - --- | Constructor for 'ServiceDiscoveryServiceDnsRecord' containing required --- fields as arguments. -serviceDiscoveryServiceDnsRecord - :: Val Double -- ^ 'sdsdrTTL' - -> Val Text -- ^ 'sdsdrType' - -> ServiceDiscoveryServiceDnsRecord -serviceDiscoveryServiceDnsRecord tTLarg typearg = - ServiceDiscoveryServiceDnsRecord - { _serviceDiscoveryServiceDnsRecordTTL = tTLarg - , _serviceDiscoveryServiceDnsRecordType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-dnsrecord.html#cfn-servicediscovery-service-dnsrecord-ttl -sdsdrTTL :: Lens' ServiceDiscoveryServiceDnsRecord (Val Double) -sdsdrTTL = lens _serviceDiscoveryServiceDnsRecordTTL (\s a -> s { _serviceDiscoveryServiceDnsRecordTTL = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-dnsrecord.html#cfn-servicediscovery-service-dnsrecord-type -sdsdrType :: Lens' ServiceDiscoveryServiceDnsRecord (Val Text) -sdsdrType = lens _serviceDiscoveryServiceDnsRecordType (\s a -> s { _serviceDiscoveryServiceDnsRecordType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ServiceDiscoveryServiceHealthCheckConfig.hs b/library-gen/Stratosphere/ResourceProperties/ServiceDiscoveryServiceHealthCheckConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ServiceDiscoveryServiceHealthCheckConfig.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-healthcheckconfig.html - -module Stratosphere.ResourceProperties.ServiceDiscoveryServiceHealthCheckConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ServiceDiscoveryServiceHealthCheckConfig. --- See 'serviceDiscoveryServiceHealthCheckConfig' for a more convenient --- constructor. -data ServiceDiscoveryServiceHealthCheckConfig = - ServiceDiscoveryServiceHealthCheckConfig - { _serviceDiscoveryServiceHealthCheckConfigFailureThreshold :: Maybe (Val Double) - , _serviceDiscoveryServiceHealthCheckConfigResourcePath :: Maybe (Val Text) - , _serviceDiscoveryServiceHealthCheckConfigType :: Val Text - } deriving (Show, Eq) - -instance ToJSON ServiceDiscoveryServiceHealthCheckConfig where - toJSON ServiceDiscoveryServiceHealthCheckConfig{..} = - object $ - catMaybes - [ fmap (("FailureThreshold",) . toJSON) _serviceDiscoveryServiceHealthCheckConfigFailureThreshold - , fmap (("ResourcePath",) . toJSON) _serviceDiscoveryServiceHealthCheckConfigResourcePath - , (Just . ("Type",) . toJSON) _serviceDiscoveryServiceHealthCheckConfigType - ] - --- | Constructor for 'ServiceDiscoveryServiceHealthCheckConfig' containing --- required fields as arguments. -serviceDiscoveryServiceHealthCheckConfig - :: Val Text -- ^ 'sdshccType' - -> ServiceDiscoveryServiceHealthCheckConfig -serviceDiscoveryServiceHealthCheckConfig typearg = - ServiceDiscoveryServiceHealthCheckConfig - { _serviceDiscoveryServiceHealthCheckConfigFailureThreshold = Nothing - , _serviceDiscoveryServiceHealthCheckConfigResourcePath = Nothing - , _serviceDiscoveryServiceHealthCheckConfigType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-healthcheckconfig.html#cfn-servicediscovery-service-healthcheckconfig-failurethreshold -sdshccFailureThreshold :: Lens' ServiceDiscoveryServiceHealthCheckConfig (Maybe (Val Double)) -sdshccFailureThreshold = lens _serviceDiscoveryServiceHealthCheckConfigFailureThreshold (\s a -> s { _serviceDiscoveryServiceHealthCheckConfigFailureThreshold = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-healthcheckconfig.html#cfn-servicediscovery-service-healthcheckconfig-resourcepath -sdshccResourcePath :: Lens' ServiceDiscoveryServiceHealthCheckConfig (Maybe (Val Text)) -sdshccResourcePath = lens _serviceDiscoveryServiceHealthCheckConfigResourcePath (\s a -> s { _serviceDiscoveryServiceHealthCheckConfigResourcePath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-healthcheckconfig.html#cfn-servicediscovery-service-healthcheckconfig-type -sdshccType :: Lens' ServiceDiscoveryServiceHealthCheckConfig (Val Text) -sdshccType = lens _serviceDiscoveryServiceHealthCheckConfigType (\s a -> s { _serviceDiscoveryServiceHealthCheckConfigType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/ServiceDiscoveryServiceHealthCheckCustomConfig.hs b/library-gen/Stratosphere/ResourceProperties/ServiceDiscoveryServiceHealthCheckCustomConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/ServiceDiscoveryServiceHealthCheckCustomConfig.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-healthcheckcustomconfig.html - -module Stratosphere.ResourceProperties.ServiceDiscoveryServiceHealthCheckCustomConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ServiceDiscoveryServiceHealthCheckCustomConfig. See --- 'serviceDiscoveryServiceHealthCheckCustomConfig' for a more convenient --- constructor. -data ServiceDiscoveryServiceHealthCheckCustomConfig = - ServiceDiscoveryServiceHealthCheckCustomConfig - { _serviceDiscoveryServiceHealthCheckCustomConfigFailureThreshold :: Maybe (Val Double) - } deriving (Show, Eq) - -instance ToJSON ServiceDiscoveryServiceHealthCheckCustomConfig where - toJSON ServiceDiscoveryServiceHealthCheckCustomConfig{..} = - object $ - catMaybes - [ fmap (("FailureThreshold",) . toJSON) _serviceDiscoveryServiceHealthCheckCustomConfigFailureThreshold - ] - --- | Constructor for 'ServiceDiscoveryServiceHealthCheckCustomConfig' --- containing required fields as arguments. -serviceDiscoveryServiceHealthCheckCustomConfig - :: ServiceDiscoveryServiceHealthCheckCustomConfig -serviceDiscoveryServiceHealthCheckCustomConfig = - ServiceDiscoveryServiceHealthCheckCustomConfig - { _serviceDiscoveryServiceHealthCheckCustomConfigFailureThreshold = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-healthcheckcustomconfig.html#cfn-servicediscovery-service-healthcheckcustomconfig-failurethreshold -sdshcccFailureThreshold :: Lens' ServiceDiscoveryServiceHealthCheckCustomConfig (Maybe (Val Double)) -sdshcccFailureThreshold = lens _serviceDiscoveryServiceHealthCheckCustomConfigFailureThreshold (\s a -> s { _serviceDiscoveryServiceHealthCheckCustomConfigFailureThreshold = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/StepFunctionsActivityTagsEntry.hs b/library-gen/Stratosphere/ResourceProperties/StepFunctionsActivityTagsEntry.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/StepFunctionsActivityTagsEntry.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stepfunctions-activity-tagsentry.html - -module Stratosphere.ResourceProperties.StepFunctionsActivityTagsEntry where - -import Stratosphere.ResourceImports - - --- | Full data type definition for StepFunctionsActivityTagsEntry. See --- 'stepFunctionsActivityTagsEntry' for a more convenient constructor. -data StepFunctionsActivityTagsEntry = - StepFunctionsActivityTagsEntry - { _stepFunctionsActivityTagsEntryKey :: Val Text - , _stepFunctionsActivityTagsEntryValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON StepFunctionsActivityTagsEntry where - toJSON StepFunctionsActivityTagsEntry{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _stepFunctionsActivityTagsEntryKey - , (Just . ("Value",) . toJSON) _stepFunctionsActivityTagsEntryValue - ] - --- | Constructor for 'StepFunctionsActivityTagsEntry' containing required --- fields as arguments. -stepFunctionsActivityTagsEntry - :: Val Text -- ^ 'sfateKey' - -> Val Text -- ^ 'sfateValue' - -> StepFunctionsActivityTagsEntry -stepFunctionsActivityTagsEntry keyarg valuearg = - StepFunctionsActivityTagsEntry - { _stepFunctionsActivityTagsEntryKey = keyarg - , _stepFunctionsActivityTagsEntryValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stepfunctions-activity-tagsentry.html#cfn-stepfunctions-activity-tagsentry-key -sfateKey :: Lens' StepFunctionsActivityTagsEntry (Val Text) -sfateKey = lens _stepFunctionsActivityTagsEntryKey (\s a -> s { _stepFunctionsActivityTagsEntryKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stepfunctions-activity-tagsentry.html#cfn-stepfunctions-activity-tagsentry-value -sfateValue :: Lens' StepFunctionsActivityTagsEntry (Val Text) -sfateValue = lens _stepFunctionsActivityTagsEntryValue (\s a -> s { _stepFunctionsActivityTagsEntryValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/StepFunctionsStateMachineCloudWatchLogsLogGroup.hs b/library-gen/Stratosphere/ResourceProperties/StepFunctionsStateMachineCloudWatchLogsLogGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/StepFunctionsStateMachineCloudWatchLogsLogGroup.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stepfunctions-statemachine-logdestination-cloudwatchlogsloggroup.html - -module Stratosphere.ResourceProperties.StepFunctionsStateMachineCloudWatchLogsLogGroup where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- StepFunctionsStateMachineCloudWatchLogsLogGroup. See --- 'stepFunctionsStateMachineCloudWatchLogsLogGroup' for a more convenient --- constructor. -data StepFunctionsStateMachineCloudWatchLogsLogGroup = - StepFunctionsStateMachineCloudWatchLogsLogGroup - { _stepFunctionsStateMachineCloudWatchLogsLogGroupLogGroupArn :: Val Text - } deriving (Show, Eq) - -instance ToJSON StepFunctionsStateMachineCloudWatchLogsLogGroup where - toJSON StepFunctionsStateMachineCloudWatchLogsLogGroup{..} = - object $ - catMaybes - [ (Just . ("LogGroupArn",) . toJSON) _stepFunctionsStateMachineCloudWatchLogsLogGroupLogGroupArn - ] - --- | Constructor for 'StepFunctionsStateMachineCloudWatchLogsLogGroup' --- containing required fields as arguments. -stepFunctionsStateMachineCloudWatchLogsLogGroup - :: Val Text -- ^ 'sfsmcwllgLogGroupArn' - -> StepFunctionsStateMachineCloudWatchLogsLogGroup -stepFunctionsStateMachineCloudWatchLogsLogGroup logGroupArnarg = - StepFunctionsStateMachineCloudWatchLogsLogGroup - { _stepFunctionsStateMachineCloudWatchLogsLogGroupLogGroupArn = logGroupArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stepfunctions-statemachine-logdestination-cloudwatchlogsloggroup.html#cfn-stepfunctions-statemachine-logdestination-cloudwatchlogsloggroup-loggrouparn -sfsmcwllgLogGroupArn :: Lens' StepFunctionsStateMachineCloudWatchLogsLogGroup (Val Text) -sfsmcwllgLogGroupArn = lens _stepFunctionsStateMachineCloudWatchLogsLogGroupLogGroupArn (\s a -> s { _stepFunctionsStateMachineCloudWatchLogsLogGroupLogGroupArn = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/StepFunctionsStateMachineLogDestination.hs b/library-gen/Stratosphere/ResourceProperties/StepFunctionsStateMachineLogDestination.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/StepFunctionsStateMachineLogDestination.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stepfunctions-statemachine-logdestination.html - -module Stratosphere.ResourceProperties.StepFunctionsStateMachineLogDestination where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.StepFunctionsStateMachineCloudWatchLogsLogGroup - --- | Full data type definition for StepFunctionsStateMachineLogDestination. --- See 'stepFunctionsStateMachineLogDestination' for a more convenient --- constructor. -data StepFunctionsStateMachineLogDestination = - StepFunctionsStateMachineLogDestination - { _stepFunctionsStateMachineLogDestinationCloudWatchLogsLogGroup :: Maybe StepFunctionsStateMachineCloudWatchLogsLogGroup - } deriving (Show, Eq) - -instance ToJSON StepFunctionsStateMachineLogDestination where - toJSON StepFunctionsStateMachineLogDestination{..} = - object $ - catMaybes - [ fmap (("CloudWatchLogsLogGroup",) . toJSON) _stepFunctionsStateMachineLogDestinationCloudWatchLogsLogGroup - ] - --- | Constructor for 'StepFunctionsStateMachineLogDestination' containing --- required fields as arguments. -stepFunctionsStateMachineLogDestination - :: StepFunctionsStateMachineLogDestination -stepFunctionsStateMachineLogDestination = - StepFunctionsStateMachineLogDestination - { _stepFunctionsStateMachineLogDestinationCloudWatchLogsLogGroup = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stepfunctions-statemachine-logdestination.html#cfn-stepfunctions-statemachine-logdestination-cloudwatchlogsloggroup -sfsmldCloudWatchLogsLogGroup :: Lens' StepFunctionsStateMachineLogDestination (Maybe StepFunctionsStateMachineCloudWatchLogsLogGroup) -sfsmldCloudWatchLogsLogGroup = lens _stepFunctionsStateMachineLogDestinationCloudWatchLogsLogGroup (\s a -> s { _stepFunctionsStateMachineLogDestinationCloudWatchLogsLogGroup = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/StepFunctionsStateMachineLoggingConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/StepFunctionsStateMachineLoggingConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/StepFunctionsStateMachineLoggingConfiguration.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stepfunctions-statemachine-loggingconfiguration.html - -module Stratosphere.ResourceProperties.StepFunctionsStateMachineLoggingConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.StepFunctionsStateMachineLogDestination - --- | Full data type definition for --- StepFunctionsStateMachineLoggingConfiguration. See --- 'stepFunctionsStateMachineLoggingConfiguration' for a more convenient --- constructor. -data StepFunctionsStateMachineLoggingConfiguration = - StepFunctionsStateMachineLoggingConfiguration - { _stepFunctionsStateMachineLoggingConfigurationDestinations :: Maybe [StepFunctionsStateMachineLogDestination] - , _stepFunctionsStateMachineLoggingConfigurationIncludeExecutionData :: Maybe (Val Bool) - , _stepFunctionsStateMachineLoggingConfigurationLevel :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON StepFunctionsStateMachineLoggingConfiguration where - toJSON StepFunctionsStateMachineLoggingConfiguration{..} = - object $ - catMaybes - [ fmap (("Destinations",) . toJSON) _stepFunctionsStateMachineLoggingConfigurationDestinations - , fmap (("IncludeExecutionData",) . toJSON) _stepFunctionsStateMachineLoggingConfigurationIncludeExecutionData - , fmap (("Level",) . toJSON) _stepFunctionsStateMachineLoggingConfigurationLevel - ] - --- | Constructor for 'StepFunctionsStateMachineLoggingConfiguration' --- containing required fields as arguments. -stepFunctionsStateMachineLoggingConfiguration - :: StepFunctionsStateMachineLoggingConfiguration -stepFunctionsStateMachineLoggingConfiguration = - StepFunctionsStateMachineLoggingConfiguration - { _stepFunctionsStateMachineLoggingConfigurationDestinations = Nothing - , _stepFunctionsStateMachineLoggingConfigurationIncludeExecutionData = Nothing - , _stepFunctionsStateMachineLoggingConfigurationLevel = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stepfunctions-statemachine-loggingconfiguration.html#cfn-stepfunctions-statemachine-loggingconfiguration-destinations -sfsmlcDestinations :: Lens' StepFunctionsStateMachineLoggingConfiguration (Maybe [StepFunctionsStateMachineLogDestination]) -sfsmlcDestinations = lens _stepFunctionsStateMachineLoggingConfigurationDestinations (\s a -> s { _stepFunctionsStateMachineLoggingConfigurationDestinations = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stepfunctions-statemachine-loggingconfiguration.html#cfn-stepfunctions-statemachine-loggingconfiguration-includeexecutiondata -sfsmlcIncludeExecutionData :: Lens' StepFunctionsStateMachineLoggingConfiguration (Maybe (Val Bool)) -sfsmlcIncludeExecutionData = lens _stepFunctionsStateMachineLoggingConfigurationIncludeExecutionData (\s a -> s { _stepFunctionsStateMachineLoggingConfigurationIncludeExecutionData = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stepfunctions-statemachine-loggingconfiguration.html#cfn-stepfunctions-statemachine-loggingconfiguration-level -sfsmlcLevel :: Lens' StepFunctionsStateMachineLoggingConfiguration (Maybe (Val Text)) -sfsmlcLevel = lens _stepFunctionsStateMachineLoggingConfigurationLevel (\s a -> s { _stepFunctionsStateMachineLoggingConfigurationLevel = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/StepFunctionsStateMachineS3Location.hs b/library-gen/Stratosphere/ResourceProperties/StepFunctionsStateMachineS3Location.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/StepFunctionsStateMachineS3Location.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# 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 }) diff --git a/library-gen/Stratosphere/ResourceProperties/StepFunctionsStateMachineTagsEntry.hs b/library-gen/Stratosphere/ResourceProperties/StepFunctionsStateMachineTagsEntry.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/StepFunctionsStateMachineTagsEntry.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stepfunctions-statemachine-tagsentry.html - -module Stratosphere.ResourceProperties.StepFunctionsStateMachineTagsEntry where - -import Stratosphere.ResourceImports - - --- | Full data type definition for StepFunctionsStateMachineTagsEntry. See --- 'stepFunctionsStateMachineTagsEntry' for a more convenient constructor. -data StepFunctionsStateMachineTagsEntry = - StepFunctionsStateMachineTagsEntry - { _stepFunctionsStateMachineTagsEntryKey :: Val Text - , _stepFunctionsStateMachineTagsEntryValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON StepFunctionsStateMachineTagsEntry where - toJSON StepFunctionsStateMachineTagsEntry{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _stepFunctionsStateMachineTagsEntryKey - , (Just . ("Value",) . toJSON) _stepFunctionsStateMachineTagsEntryValue - ] - --- | Constructor for 'StepFunctionsStateMachineTagsEntry' containing required --- fields as arguments. -stepFunctionsStateMachineTagsEntry - :: Val Text -- ^ 'sfsmteKey' - -> Val Text -- ^ 'sfsmteValue' - -> StepFunctionsStateMachineTagsEntry -stepFunctionsStateMachineTagsEntry keyarg valuearg = - StepFunctionsStateMachineTagsEntry - { _stepFunctionsStateMachineTagsEntryKey = keyarg - , _stepFunctionsStateMachineTagsEntryValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stepfunctions-statemachine-tagsentry.html#cfn-stepfunctions-statemachine-tagsentry-key -sfsmteKey :: Lens' StepFunctionsStateMachineTagsEntry (Val Text) -sfsmteKey = lens _stepFunctionsStateMachineTagsEntryKey (\s a -> s { _stepFunctionsStateMachineTagsEntryKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stepfunctions-statemachine-tagsentry.html#cfn-stepfunctions-statemachine-tagsentry-value -sfsmteValue :: Lens' StepFunctionsStateMachineTagsEntry (Val Text) -sfsmteValue = lens _stepFunctionsStateMachineTagsEntryValue (\s a -> s { _stepFunctionsStateMachineTagsEntryValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/StepFunctionsStateMachineTracingConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/StepFunctionsStateMachineTracingConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/StepFunctionsStateMachineTracingConfiguration.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stepfunctions-statemachine-tracingconfiguration.html - -module Stratosphere.ResourceProperties.StepFunctionsStateMachineTracingConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- StepFunctionsStateMachineTracingConfiguration. See --- 'stepFunctionsStateMachineTracingConfiguration' for a more convenient --- constructor. -data StepFunctionsStateMachineTracingConfiguration = - StepFunctionsStateMachineTracingConfiguration - { _stepFunctionsStateMachineTracingConfigurationEnabled :: Val Bool - } deriving (Show, Eq) - -instance ToJSON StepFunctionsStateMachineTracingConfiguration where - toJSON StepFunctionsStateMachineTracingConfiguration{..} = - object $ - catMaybes - [ (Just . ("Enabled",) . toJSON) _stepFunctionsStateMachineTracingConfigurationEnabled - ] - --- | Constructor for 'StepFunctionsStateMachineTracingConfiguration' --- containing required fields as arguments. -stepFunctionsStateMachineTracingConfiguration - :: Val Bool -- ^ 'sfsmtcEnabled' - -> StepFunctionsStateMachineTracingConfiguration -stepFunctionsStateMachineTracingConfiguration enabledarg = - StepFunctionsStateMachineTracingConfiguration - { _stepFunctionsStateMachineTracingConfigurationEnabled = enabledarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stepfunctions-statemachine-tracingconfiguration.html#cfn-stepfunctions-statemachine-tracingconfiguration-enabled -sfsmtcEnabled :: Lens' StepFunctionsStateMachineTracingConfiguration (Val Bool) -sfsmtcEnabled = lens _stepFunctionsStateMachineTracingConfigurationEnabled (\s a -> s { _stepFunctionsStateMachineTracingConfigurationEnabled = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SyntheticsCanaryCode.hs b/library-gen/Stratosphere/ResourceProperties/SyntheticsCanaryCode.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SyntheticsCanaryCode.hs +++ /dev/null @@ -1,66 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-synthetics-canary-code.html - -module Stratosphere.ResourceProperties.SyntheticsCanaryCode where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SyntheticsCanaryCode. See --- 'syntheticsCanaryCode' for a more convenient constructor. -data SyntheticsCanaryCode = - SyntheticsCanaryCode - { _syntheticsCanaryCodeHandler :: Maybe (Val Text) - , _syntheticsCanaryCodeS3Bucket :: Maybe (Val Text) - , _syntheticsCanaryCodeS3Key :: Maybe (Val Text) - , _syntheticsCanaryCodeS3ObjectVersion :: Maybe (Val Text) - , _syntheticsCanaryCodeScript :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON SyntheticsCanaryCode where - toJSON SyntheticsCanaryCode{..} = - object $ - catMaybes - [ fmap (("Handler",) . toJSON) _syntheticsCanaryCodeHandler - , fmap (("S3Bucket",) . toJSON) _syntheticsCanaryCodeS3Bucket - , fmap (("S3Key",) . toJSON) _syntheticsCanaryCodeS3Key - , fmap (("S3ObjectVersion",) . toJSON) _syntheticsCanaryCodeS3ObjectVersion - , fmap (("Script",) . toJSON) _syntheticsCanaryCodeScript - ] - --- | Constructor for 'SyntheticsCanaryCode' containing required fields as --- arguments. -syntheticsCanaryCode - :: SyntheticsCanaryCode -syntheticsCanaryCode = - SyntheticsCanaryCode - { _syntheticsCanaryCodeHandler = Nothing - , _syntheticsCanaryCodeS3Bucket = Nothing - , _syntheticsCanaryCodeS3Key = Nothing - , _syntheticsCanaryCodeS3ObjectVersion = Nothing - , _syntheticsCanaryCodeScript = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-synthetics-canary-code.html#cfn-synthetics-canary-code-handler -sccHandler :: Lens' SyntheticsCanaryCode (Maybe (Val Text)) -sccHandler = lens _syntheticsCanaryCodeHandler (\s a -> s { _syntheticsCanaryCodeHandler = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-synthetics-canary-code.html#cfn-synthetics-canary-code-s3bucket -sccS3Bucket :: Lens' SyntheticsCanaryCode (Maybe (Val Text)) -sccS3Bucket = lens _syntheticsCanaryCodeS3Bucket (\s a -> s { _syntheticsCanaryCodeS3Bucket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-synthetics-canary-code.html#cfn-synthetics-canary-code-s3key -sccS3Key :: Lens' SyntheticsCanaryCode (Maybe (Val Text)) -sccS3Key = lens _syntheticsCanaryCodeS3Key (\s a -> s { _syntheticsCanaryCodeS3Key = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-synthetics-canary-code.html#cfn-synthetics-canary-code-s3objectversion -sccS3ObjectVersion :: Lens' SyntheticsCanaryCode (Maybe (Val Text)) -sccS3ObjectVersion = lens _syntheticsCanaryCodeS3ObjectVersion (\s a -> s { _syntheticsCanaryCodeS3ObjectVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-synthetics-canary-code.html#cfn-synthetics-canary-code-script -sccScript :: Lens' SyntheticsCanaryCode (Maybe (Val Text)) -sccScript = lens _syntheticsCanaryCodeScript (\s a -> s { _syntheticsCanaryCodeScript = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SyntheticsCanaryRunConfig.hs b/library-gen/Stratosphere/ResourceProperties/SyntheticsCanaryRunConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SyntheticsCanaryRunConfig.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-synthetics-canary-runconfig.html - -module Stratosphere.ResourceProperties.SyntheticsCanaryRunConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SyntheticsCanaryRunConfig. See --- 'syntheticsCanaryRunConfig' for a more convenient constructor. -data SyntheticsCanaryRunConfig = - SyntheticsCanaryRunConfig - { _syntheticsCanaryRunConfigMemoryInMB :: Maybe (Val Integer) - , _syntheticsCanaryRunConfigTimeoutInSeconds :: Val Integer - } deriving (Show, Eq) - -instance ToJSON SyntheticsCanaryRunConfig where - toJSON SyntheticsCanaryRunConfig{..} = - object $ - catMaybes - [ fmap (("MemoryInMB",) . toJSON) _syntheticsCanaryRunConfigMemoryInMB - , (Just . ("TimeoutInSeconds",) . toJSON) _syntheticsCanaryRunConfigTimeoutInSeconds - ] - --- | Constructor for 'SyntheticsCanaryRunConfig' containing required fields as --- arguments. -syntheticsCanaryRunConfig - :: Val Integer -- ^ 'scrcTimeoutInSeconds' - -> SyntheticsCanaryRunConfig -syntheticsCanaryRunConfig timeoutInSecondsarg = - SyntheticsCanaryRunConfig - { _syntheticsCanaryRunConfigMemoryInMB = Nothing - , _syntheticsCanaryRunConfigTimeoutInSeconds = timeoutInSecondsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-synthetics-canary-runconfig.html#cfn-synthetics-canary-runconfig-memoryinmb -scrcMemoryInMB :: Lens' SyntheticsCanaryRunConfig (Maybe (Val Integer)) -scrcMemoryInMB = lens _syntheticsCanaryRunConfigMemoryInMB (\s a -> s { _syntheticsCanaryRunConfigMemoryInMB = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-synthetics-canary-runconfig.html#cfn-synthetics-canary-runconfig-timeoutinseconds -scrcTimeoutInSeconds :: Lens' SyntheticsCanaryRunConfig (Val Integer) -scrcTimeoutInSeconds = lens _syntheticsCanaryRunConfigTimeoutInSeconds (\s a -> s { _syntheticsCanaryRunConfigTimeoutInSeconds = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SyntheticsCanarySchedule.hs b/library-gen/Stratosphere/ResourceProperties/SyntheticsCanarySchedule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SyntheticsCanarySchedule.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-synthetics-canary-schedule.html - -module Stratosphere.ResourceProperties.SyntheticsCanarySchedule where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SyntheticsCanarySchedule. See --- 'syntheticsCanarySchedule' for a more convenient constructor. -data SyntheticsCanarySchedule = - SyntheticsCanarySchedule - { _syntheticsCanaryScheduleDurationInSeconds :: Maybe (Val Text) - , _syntheticsCanaryScheduleExpression :: Val Text - } deriving (Show, Eq) - -instance ToJSON SyntheticsCanarySchedule where - toJSON SyntheticsCanarySchedule{..} = - object $ - catMaybes - [ fmap (("DurationInSeconds",) . toJSON) _syntheticsCanaryScheduleDurationInSeconds - , (Just . ("Expression",) . toJSON) _syntheticsCanaryScheduleExpression - ] - --- | Constructor for 'SyntheticsCanarySchedule' containing required fields as --- arguments. -syntheticsCanarySchedule - :: Val Text -- ^ 'scsExpression' - -> SyntheticsCanarySchedule -syntheticsCanarySchedule expressionarg = - SyntheticsCanarySchedule - { _syntheticsCanaryScheduleDurationInSeconds = Nothing - , _syntheticsCanaryScheduleExpression = expressionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-synthetics-canary-schedule.html#cfn-synthetics-canary-schedule-durationinseconds -scsDurationInSeconds :: Lens' SyntheticsCanarySchedule (Maybe (Val Text)) -scsDurationInSeconds = lens _syntheticsCanaryScheduleDurationInSeconds (\s a -> s { _syntheticsCanaryScheduleDurationInSeconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-synthetics-canary-schedule.html#cfn-synthetics-canary-schedule-expression -scsExpression :: Lens' SyntheticsCanarySchedule (Val Text) -scsExpression = lens _syntheticsCanaryScheduleExpression (\s a -> s { _syntheticsCanaryScheduleExpression = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/SyntheticsCanaryVPCConfig.hs b/library-gen/Stratosphere/ResourceProperties/SyntheticsCanaryVPCConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/SyntheticsCanaryVPCConfig.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-synthetics-canary-vpcconfig.html - -module Stratosphere.ResourceProperties.SyntheticsCanaryVPCConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SyntheticsCanaryVPCConfig. See --- 'syntheticsCanaryVPCConfig' for a more convenient constructor. -data SyntheticsCanaryVPCConfig = - SyntheticsCanaryVPCConfig - { _syntheticsCanaryVPCConfigSecurityGroupIds :: ValList Text - , _syntheticsCanaryVPCConfigSubnetIds :: ValList Text - , _syntheticsCanaryVPCConfigVpcId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON SyntheticsCanaryVPCConfig where - toJSON SyntheticsCanaryVPCConfig{..} = - object $ - catMaybes - [ (Just . ("SecurityGroupIds",) . toJSON) _syntheticsCanaryVPCConfigSecurityGroupIds - , (Just . ("SubnetIds",) . toJSON) _syntheticsCanaryVPCConfigSubnetIds - , fmap (("VpcId",) . toJSON) _syntheticsCanaryVPCConfigVpcId - ] - --- | Constructor for 'SyntheticsCanaryVPCConfig' containing required fields as --- arguments. -syntheticsCanaryVPCConfig - :: ValList Text -- ^ 'scvpccSecurityGroupIds' - -> ValList Text -- ^ 'scvpccSubnetIds' - -> SyntheticsCanaryVPCConfig -syntheticsCanaryVPCConfig securityGroupIdsarg subnetIdsarg = - SyntheticsCanaryVPCConfig - { _syntheticsCanaryVPCConfigSecurityGroupIds = securityGroupIdsarg - , _syntheticsCanaryVPCConfigSubnetIds = subnetIdsarg - , _syntheticsCanaryVPCConfigVpcId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-synthetics-canary-vpcconfig.html#cfn-synthetics-canary-vpcconfig-securitygroupids -scvpccSecurityGroupIds :: Lens' SyntheticsCanaryVPCConfig (ValList Text) -scvpccSecurityGroupIds = lens _syntheticsCanaryVPCConfigSecurityGroupIds (\s a -> s { _syntheticsCanaryVPCConfigSecurityGroupIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-synthetics-canary-vpcconfig.html#cfn-synthetics-canary-vpcconfig-subnetids -scvpccSubnetIds :: Lens' SyntheticsCanaryVPCConfig (ValList Text) -scvpccSubnetIds = lens _syntheticsCanaryVPCConfigSubnetIds (\s a -> s { _syntheticsCanaryVPCConfigSubnetIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-synthetics-canary-vpcconfig.html#cfn-synthetics-canary-vpcconfig-vpcid -scvpccVpcId :: Lens' SyntheticsCanaryVPCConfig (Maybe (Val Text)) -scvpccVpcId = lens _syntheticsCanaryVPCConfigVpcId (\s a -> s { _syntheticsCanaryVPCConfigVpcId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/Tag.hs b/library-gen/Stratosphere/ResourceProperties/Tag.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/Tag.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resource-tags.html - -module Stratosphere.ResourceProperties.Tag where - -import Stratosphere.ResourceImports - - --- | Full data type definition for Tag. See 'tag' for a more convenient --- constructor. -data Tag = - Tag - { _tagKey :: Val Text - , _tagValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON Tag where - toJSON Tag{..} = - object $ - catMaybes - [ (Just . ("Key",) . toJSON) _tagKey - , (Just . ("Value",) . toJSON) _tagValue - ] - --- | Constructor for 'Tag' containing required fields as arguments. -tag - :: Val Text -- ^ 'tagKey' - -> Val Text -- ^ 'tagValue' - -> Tag -tag keyarg valuearg = - Tag - { _tagKey = keyarg - , _tagValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resource-tags.html#cfn-resource-tags-key -tagKey :: Lens' Tag (Val Text) -tagKey = lens _tagKey (\s a -> s { _tagKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resource-tags.html#cfn-resource-tags-value -tagValue :: Lens' Tag (Val Text) -tagValue = lens _tagValue (\s a -> s { _tagValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/TransferServerEndpointDetails.hs b/library-gen/Stratosphere/ResourceProperties/TransferServerEndpointDetails.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/TransferServerEndpointDetails.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-transfer-server-endpointdetails.html - -module Stratosphere.ResourceProperties.TransferServerEndpointDetails where - -import Stratosphere.ResourceImports - - --- | Full data type definition for TransferServerEndpointDetails. See --- 'transferServerEndpointDetails' for a more convenient constructor. -data TransferServerEndpointDetails = - TransferServerEndpointDetails - { _transferServerEndpointDetailsAddressAllocationIds :: Maybe (ValList Text) - , _transferServerEndpointDetailsSubnetIds :: Maybe (ValList Text) - , _transferServerEndpointDetailsVpcEndpointId :: Maybe (Val Text) - , _transferServerEndpointDetailsVpcId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON TransferServerEndpointDetails where - toJSON TransferServerEndpointDetails{..} = - object $ - catMaybes - [ fmap (("AddressAllocationIds",) . toJSON) _transferServerEndpointDetailsAddressAllocationIds - , fmap (("SubnetIds",) . toJSON) _transferServerEndpointDetailsSubnetIds - , fmap (("VpcEndpointId",) . toJSON) _transferServerEndpointDetailsVpcEndpointId - , fmap (("VpcId",) . toJSON) _transferServerEndpointDetailsVpcId - ] - --- | Constructor for 'TransferServerEndpointDetails' containing required --- fields as arguments. -transferServerEndpointDetails - :: TransferServerEndpointDetails -transferServerEndpointDetails = - TransferServerEndpointDetails - { _transferServerEndpointDetailsAddressAllocationIds = Nothing - , _transferServerEndpointDetailsSubnetIds = Nothing - , _transferServerEndpointDetailsVpcEndpointId = Nothing - , _transferServerEndpointDetailsVpcId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-transfer-server-endpointdetails.html#cfn-transfer-server-endpointdetails-addressallocationids -tsedAddressAllocationIds :: Lens' TransferServerEndpointDetails (Maybe (ValList Text)) -tsedAddressAllocationIds = lens _transferServerEndpointDetailsAddressAllocationIds (\s a -> s { _transferServerEndpointDetailsAddressAllocationIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-transfer-server-endpointdetails.html#cfn-transfer-server-endpointdetails-subnetids -tsedSubnetIds :: Lens' TransferServerEndpointDetails (Maybe (ValList Text)) -tsedSubnetIds = lens _transferServerEndpointDetailsSubnetIds (\s a -> s { _transferServerEndpointDetailsSubnetIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-transfer-server-endpointdetails.html#cfn-transfer-server-endpointdetails-vpcendpointid -tsedVpcEndpointId :: Lens' TransferServerEndpointDetails (Maybe (Val Text)) -tsedVpcEndpointId = lens _transferServerEndpointDetailsVpcEndpointId (\s a -> s { _transferServerEndpointDetailsVpcEndpointId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-transfer-server-endpointdetails.html#cfn-transfer-server-endpointdetails-vpcid -tsedVpcId :: Lens' TransferServerEndpointDetails (Maybe (Val Text)) -tsedVpcId = lens _transferServerEndpointDetailsVpcId (\s a -> s { _transferServerEndpointDetailsVpcId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/TransferServerIdentityProviderDetails.hs b/library-gen/Stratosphere/ResourceProperties/TransferServerIdentityProviderDetails.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/TransferServerIdentityProviderDetails.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-transfer-server-identityproviderdetails.html - -module Stratosphere.ResourceProperties.TransferServerIdentityProviderDetails where - -import Stratosphere.ResourceImports - - --- | Full data type definition for TransferServerIdentityProviderDetails. See --- 'transferServerIdentityProviderDetails' for a more convenient --- constructor. -data TransferServerIdentityProviderDetails = - TransferServerIdentityProviderDetails - { _transferServerIdentityProviderDetailsInvocationRole :: Val Text - , _transferServerIdentityProviderDetailsUrl :: Val Text - } deriving (Show, Eq) - -instance ToJSON TransferServerIdentityProviderDetails where - toJSON TransferServerIdentityProviderDetails{..} = - object $ - catMaybes - [ (Just . ("InvocationRole",) . toJSON) _transferServerIdentityProviderDetailsInvocationRole - , (Just . ("Url",) . toJSON) _transferServerIdentityProviderDetailsUrl - ] - --- | Constructor for 'TransferServerIdentityProviderDetails' containing --- required fields as arguments. -transferServerIdentityProviderDetails - :: Val Text -- ^ 'tsipdInvocationRole' - -> Val Text -- ^ 'tsipdUrl' - -> TransferServerIdentityProviderDetails -transferServerIdentityProviderDetails invocationRolearg urlarg = - TransferServerIdentityProviderDetails - { _transferServerIdentityProviderDetailsInvocationRole = invocationRolearg - , _transferServerIdentityProviderDetailsUrl = urlarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-transfer-server-identityproviderdetails.html#cfn-transfer-server-identityproviderdetails-invocationrole -tsipdInvocationRole :: Lens' TransferServerIdentityProviderDetails (Val Text) -tsipdInvocationRole = lens _transferServerIdentityProviderDetailsInvocationRole (\s a -> s { _transferServerIdentityProviderDetailsInvocationRole = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-transfer-server-identityproviderdetails.html#cfn-transfer-server-identityproviderdetails-url -tsipdUrl :: Lens' TransferServerIdentityProviderDetails (Val Text) -tsipdUrl = lens _transferServerIdentityProviderDetailsUrl (\s a -> s { _transferServerIdentityProviderDetailsUrl = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/TransferUserHomeDirectoryMapEntry.hs b/library-gen/Stratosphere/ResourceProperties/TransferUserHomeDirectoryMapEntry.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/TransferUserHomeDirectoryMapEntry.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-transfer-user-homedirectorymapentry.html - -module Stratosphere.ResourceProperties.TransferUserHomeDirectoryMapEntry where - -import Stratosphere.ResourceImports - - --- | Full data type definition for TransferUserHomeDirectoryMapEntry. See --- 'transferUserHomeDirectoryMapEntry' for a more convenient constructor. -data TransferUserHomeDirectoryMapEntry = - TransferUserHomeDirectoryMapEntry - { _transferUserHomeDirectoryMapEntryEntry :: Val Text - , _transferUserHomeDirectoryMapEntryTarget :: Val Text - } deriving (Show, Eq) - -instance ToJSON TransferUserHomeDirectoryMapEntry where - toJSON TransferUserHomeDirectoryMapEntry{..} = - object $ - catMaybes - [ (Just . ("Entry",) . toJSON) _transferUserHomeDirectoryMapEntryEntry - , (Just . ("Target",) . toJSON) _transferUserHomeDirectoryMapEntryTarget - ] - --- | Constructor for 'TransferUserHomeDirectoryMapEntry' containing required --- fields as arguments. -transferUserHomeDirectoryMapEntry - :: Val Text -- ^ 'tuhdmeEntry' - -> Val Text -- ^ 'tuhdmeTarget' - -> TransferUserHomeDirectoryMapEntry -transferUserHomeDirectoryMapEntry entryarg targetarg = - TransferUserHomeDirectoryMapEntry - { _transferUserHomeDirectoryMapEntryEntry = entryarg - , _transferUserHomeDirectoryMapEntryTarget = targetarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-transfer-user-homedirectorymapentry.html#cfn-transfer-user-homedirectorymapentry-entry -tuhdmeEntry :: Lens' TransferUserHomeDirectoryMapEntry (Val Text) -tuhdmeEntry = lens _transferUserHomeDirectoryMapEntryEntry (\s a -> s { _transferUserHomeDirectoryMapEntryEntry = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-transfer-user-homedirectorymapentry.html#cfn-transfer-user-homedirectorymapentry-target -tuhdmeTarget :: Lens' TransferUserHomeDirectoryMapEntry (Val Text) -tuhdmeTarget = lens _transferUserHomeDirectoryMapEntryTarget (\s a -> s { _transferUserHomeDirectoryMapEntryTarget = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFByteMatchSetByteMatchTuple.hs b/library-gen/Stratosphere/ResourceProperties/WAFByteMatchSetByteMatchTuple.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFByteMatchSetByteMatchTuple.hs +++ /dev/null @@ -1,69 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-bytematchset-bytematchtuples.html - -module Stratosphere.ResourceProperties.WAFByteMatchSetByteMatchTuple where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFByteMatchSetFieldToMatch - --- | Full data type definition for WAFByteMatchSetByteMatchTuple. See --- 'wafByteMatchSetByteMatchTuple' for a more convenient constructor. -data WAFByteMatchSetByteMatchTuple = - WAFByteMatchSetByteMatchTuple - { _wAFByteMatchSetByteMatchTupleFieldToMatch :: WAFByteMatchSetFieldToMatch - , _wAFByteMatchSetByteMatchTuplePositionalConstraint :: Val Text - , _wAFByteMatchSetByteMatchTupleTargetString :: Maybe (Val Text) - , _wAFByteMatchSetByteMatchTupleTargetStringBase64 :: Maybe (Val Text) - , _wAFByteMatchSetByteMatchTupleTextTransformation :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFByteMatchSetByteMatchTuple where - toJSON WAFByteMatchSetByteMatchTuple{..} = - object $ - catMaybes - [ (Just . ("FieldToMatch",) . toJSON) _wAFByteMatchSetByteMatchTupleFieldToMatch - , (Just . ("PositionalConstraint",) . toJSON) _wAFByteMatchSetByteMatchTuplePositionalConstraint - , fmap (("TargetString",) . toJSON) _wAFByteMatchSetByteMatchTupleTargetString - , fmap (("TargetStringBase64",) . toJSON) _wAFByteMatchSetByteMatchTupleTargetStringBase64 - , (Just . ("TextTransformation",) . toJSON) _wAFByteMatchSetByteMatchTupleTextTransformation - ] - --- | Constructor for 'WAFByteMatchSetByteMatchTuple' containing required --- fields as arguments. -wafByteMatchSetByteMatchTuple - :: WAFByteMatchSetFieldToMatch -- ^ 'wafbmsbmtFieldToMatch' - -> Val Text -- ^ 'wafbmsbmtPositionalConstraint' - -> Val Text -- ^ 'wafbmsbmtTextTransformation' - -> WAFByteMatchSetByteMatchTuple -wafByteMatchSetByteMatchTuple fieldToMatcharg positionalConstraintarg textTransformationarg = - WAFByteMatchSetByteMatchTuple - { _wAFByteMatchSetByteMatchTupleFieldToMatch = fieldToMatcharg - , _wAFByteMatchSetByteMatchTuplePositionalConstraint = positionalConstraintarg - , _wAFByteMatchSetByteMatchTupleTargetString = Nothing - , _wAFByteMatchSetByteMatchTupleTargetStringBase64 = Nothing - , _wAFByteMatchSetByteMatchTupleTextTransformation = textTransformationarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-bytematchset-bytematchtuples.html#cfn-waf-bytematchset-bytematchtuples-fieldtomatch -wafbmsbmtFieldToMatch :: Lens' WAFByteMatchSetByteMatchTuple WAFByteMatchSetFieldToMatch -wafbmsbmtFieldToMatch = lens _wAFByteMatchSetByteMatchTupleFieldToMatch (\s a -> s { _wAFByteMatchSetByteMatchTupleFieldToMatch = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-bytematchset-bytematchtuples.html#cfn-waf-bytematchset-bytematchtuples-positionalconstraint -wafbmsbmtPositionalConstraint :: Lens' WAFByteMatchSetByteMatchTuple (Val Text) -wafbmsbmtPositionalConstraint = lens _wAFByteMatchSetByteMatchTuplePositionalConstraint (\s a -> s { _wAFByteMatchSetByteMatchTuplePositionalConstraint = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-bytematchset-bytematchtuples.html#cfn-waf-bytematchset-bytematchtuples-targetstring -wafbmsbmtTargetString :: Lens' WAFByteMatchSetByteMatchTuple (Maybe (Val Text)) -wafbmsbmtTargetString = lens _wAFByteMatchSetByteMatchTupleTargetString (\s a -> s { _wAFByteMatchSetByteMatchTupleTargetString = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-bytematchset-bytematchtuples.html#cfn-waf-bytematchset-bytematchtuples-targetstringbase64 -wafbmsbmtTargetStringBase64 :: Lens' WAFByteMatchSetByteMatchTuple (Maybe (Val Text)) -wafbmsbmtTargetStringBase64 = lens _wAFByteMatchSetByteMatchTupleTargetStringBase64 (\s a -> s { _wAFByteMatchSetByteMatchTupleTargetStringBase64 = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-bytematchset-bytematchtuples.html#cfn-waf-bytematchset-bytematchtuples-texttransformation -wafbmsbmtTextTransformation :: Lens' WAFByteMatchSetByteMatchTuple (Val Text) -wafbmsbmtTextTransformation = lens _wAFByteMatchSetByteMatchTupleTextTransformation (\s a -> s { _wAFByteMatchSetByteMatchTupleTextTransformation = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFByteMatchSetFieldToMatch.hs b/library-gen/Stratosphere/ResourceProperties/WAFByteMatchSetFieldToMatch.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFByteMatchSetFieldToMatch.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-bytematchset-bytematchtuples-fieldtomatch.html - -module Stratosphere.ResourceProperties.WAFByteMatchSetFieldToMatch where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFByteMatchSetFieldToMatch. See --- 'wafByteMatchSetFieldToMatch' for a more convenient constructor. -data WAFByteMatchSetFieldToMatch = - WAFByteMatchSetFieldToMatch - { _wAFByteMatchSetFieldToMatchData :: Maybe (Val Text) - , _wAFByteMatchSetFieldToMatchType :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFByteMatchSetFieldToMatch where - toJSON WAFByteMatchSetFieldToMatch{..} = - object $ - catMaybes - [ fmap (("Data",) . toJSON) _wAFByteMatchSetFieldToMatchData - , (Just . ("Type",) . toJSON) _wAFByteMatchSetFieldToMatchType - ] - --- | Constructor for 'WAFByteMatchSetFieldToMatch' containing required fields --- as arguments. -wafByteMatchSetFieldToMatch - :: Val Text -- ^ 'wafbmsftmType' - -> WAFByteMatchSetFieldToMatch -wafByteMatchSetFieldToMatch typearg = - WAFByteMatchSetFieldToMatch - { _wAFByteMatchSetFieldToMatchData = Nothing - , _wAFByteMatchSetFieldToMatchType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-bytematchset-bytematchtuples-fieldtomatch.html#cfn-waf-bytematchset-bytematchtuples-fieldtomatch-data -wafbmsftmData :: Lens' WAFByteMatchSetFieldToMatch (Maybe (Val Text)) -wafbmsftmData = lens _wAFByteMatchSetFieldToMatchData (\s a -> s { _wAFByteMatchSetFieldToMatchData = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-bytematchset-bytematchtuples-fieldtomatch.html#cfn-waf-bytematchset-bytematchtuples-fieldtomatch-type -wafbmsftmType :: Lens' WAFByteMatchSetFieldToMatch (Val Text) -wafbmsftmType = lens _wAFByteMatchSetFieldToMatchType (\s a -> s { _wAFByteMatchSetFieldToMatchType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFIPSetIPSetDescriptor.hs b/library-gen/Stratosphere/ResourceProperties/WAFIPSetIPSetDescriptor.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFIPSetIPSetDescriptor.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-ipset-ipsetdescriptors.html - -module Stratosphere.ResourceProperties.WAFIPSetIPSetDescriptor where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFIPSetIPSetDescriptor. See --- 'wafipSetIPSetDescriptor' for a more convenient constructor. -data WAFIPSetIPSetDescriptor = - WAFIPSetIPSetDescriptor - { _wAFIPSetIPSetDescriptorType :: Val Text - , _wAFIPSetIPSetDescriptorValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFIPSetIPSetDescriptor where - toJSON WAFIPSetIPSetDescriptor{..} = - object $ - catMaybes - [ (Just . ("Type",) . toJSON) _wAFIPSetIPSetDescriptorType - , (Just . ("Value",) . toJSON) _wAFIPSetIPSetDescriptorValue - ] - --- | Constructor for 'WAFIPSetIPSetDescriptor' containing required fields as --- arguments. -wafipSetIPSetDescriptor - :: Val Text -- ^ 'wafipsipsdType' - -> Val Text -- ^ 'wafipsipsdValue' - -> WAFIPSetIPSetDescriptor -wafipSetIPSetDescriptor typearg valuearg = - WAFIPSetIPSetDescriptor - { _wAFIPSetIPSetDescriptorType = typearg - , _wAFIPSetIPSetDescriptorValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-ipset-ipsetdescriptors.html#cfn-waf-ipset-ipsetdescriptors-type -wafipsipsdType :: Lens' WAFIPSetIPSetDescriptor (Val Text) -wafipsipsdType = lens _wAFIPSetIPSetDescriptorType (\s a -> s { _wAFIPSetIPSetDescriptorType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-ipset-ipsetdescriptors.html#cfn-waf-ipset-ipsetdescriptors-value -wafipsipsdValue :: Lens' WAFIPSetIPSetDescriptor (Val Text) -wafipsipsdValue = lens _wAFIPSetIPSetDescriptorValue (\s a -> s { _wAFIPSetIPSetDescriptorValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFRegionalByteMatchSetByteMatchTuple.hs b/library-gen/Stratosphere/ResourceProperties/WAFRegionalByteMatchSetByteMatchTuple.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFRegionalByteMatchSetByteMatchTuple.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-bytematchset-bytematchtuple.html - -module Stratosphere.ResourceProperties.WAFRegionalByteMatchSetByteMatchTuple where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFRegionalByteMatchSetFieldToMatch - --- | Full data type definition for WAFRegionalByteMatchSetByteMatchTuple. See --- 'wafRegionalByteMatchSetByteMatchTuple' for a more convenient --- constructor. -data WAFRegionalByteMatchSetByteMatchTuple = - WAFRegionalByteMatchSetByteMatchTuple - { _wAFRegionalByteMatchSetByteMatchTupleFieldToMatch :: WAFRegionalByteMatchSetFieldToMatch - , _wAFRegionalByteMatchSetByteMatchTuplePositionalConstraint :: Val Text - , _wAFRegionalByteMatchSetByteMatchTupleTargetString :: Maybe (Val Text) - , _wAFRegionalByteMatchSetByteMatchTupleTargetStringBase64 :: Maybe (Val Text) - , _wAFRegionalByteMatchSetByteMatchTupleTextTransformation :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFRegionalByteMatchSetByteMatchTuple where - toJSON WAFRegionalByteMatchSetByteMatchTuple{..} = - object $ - catMaybes - [ (Just . ("FieldToMatch",) . toJSON) _wAFRegionalByteMatchSetByteMatchTupleFieldToMatch - , (Just . ("PositionalConstraint",) . toJSON) _wAFRegionalByteMatchSetByteMatchTuplePositionalConstraint - , fmap (("TargetString",) . toJSON) _wAFRegionalByteMatchSetByteMatchTupleTargetString - , fmap (("TargetStringBase64",) . toJSON) _wAFRegionalByteMatchSetByteMatchTupleTargetStringBase64 - , (Just . ("TextTransformation",) . toJSON) _wAFRegionalByteMatchSetByteMatchTupleTextTransformation - ] - --- | Constructor for 'WAFRegionalByteMatchSetByteMatchTuple' containing --- required fields as arguments. -wafRegionalByteMatchSetByteMatchTuple - :: WAFRegionalByteMatchSetFieldToMatch -- ^ 'wafrbmsbmtFieldToMatch' - -> Val Text -- ^ 'wafrbmsbmtPositionalConstraint' - -> Val Text -- ^ 'wafrbmsbmtTextTransformation' - -> WAFRegionalByteMatchSetByteMatchTuple -wafRegionalByteMatchSetByteMatchTuple fieldToMatcharg positionalConstraintarg textTransformationarg = - WAFRegionalByteMatchSetByteMatchTuple - { _wAFRegionalByteMatchSetByteMatchTupleFieldToMatch = fieldToMatcharg - , _wAFRegionalByteMatchSetByteMatchTuplePositionalConstraint = positionalConstraintarg - , _wAFRegionalByteMatchSetByteMatchTupleTargetString = Nothing - , _wAFRegionalByteMatchSetByteMatchTupleTargetStringBase64 = Nothing - , _wAFRegionalByteMatchSetByteMatchTupleTextTransformation = textTransformationarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-bytematchset-bytematchtuple.html#cfn-wafregional-bytematchset-bytematchtuple-fieldtomatch -wafrbmsbmtFieldToMatch :: Lens' WAFRegionalByteMatchSetByteMatchTuple WAFRegionalByteMatchSetFieldToMatch -wafrbmsbmtFieldToMatch = lens _wAFRegionalByteMatchSetByteMatchTupleFieldToMatch (\s a -> s { _wAFRegionalByteMatchSetByteMatchTupleFieldToMatch = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-bytematchset-bytematchtuple.html#cfn-wafregional-bytematchset-bytematchtuple-positionalconstraint -wafrbmsbmtPositionalConstraint :: Lens' WAFRegionalByteMatchSetByteMatchTuple (Val Text) -wafrbmsbmtPositionalConstraint = lens _wAFRegionalByteMatchSetByteMatchTuplePositionalConstraint (\s a -> s { _wAFRegionalByteMatchSetByteMatchTuplePositionalConstraint = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-bytematchset-bytematchtuple.html#cfn-wafregional-bytematchset-bytematchtuple-targetstring -wafrbmsbmtTargetString :: Lens' WAFRegionalByteMatchSetByteMatchTuple (Maybe (Val Text)) -wafrbmsbmtTargetString = lens _wAFRegionalByteMatchSetByteMatchTupleTargetString (\s a -> s { _wAFRegionalByteMatchSetByteMatchTupleTargetString = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-bytematchset-bytematchtuple.html#cfn-wafregional-bytematchset-bytematchtuple-targetstringbase64 -wafrbmsbmtTargetStringBase64 :: Lens' WAFRegionalByteMatchSetByteMatchTuple (Maybe (Val Text)) -wafrbmsbmtTargetStringBase64 = lens _wAFRegionalByteMatchSetByteMatchTupleTargetStringBase64 (\s a -> s { _wAFRegionalByteMatchSetByteMatchTupleTargetStringBase64 = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-bytematchset-bytematchtuple.html#cfn-wafregional-bytematchset-bytematchtuple-texttransformation -wafrbmsbmtTextTransformation :: Lens' WAFRegionalByteMatchSetByteMatchTuple (Val Text) -wafrbmsbmtTextTransformation = lens _wAFRegionalByteMatchSetByteMatchTupleTextTransformation (\s a -> s { _wAFRegionalByteMatchSetByteMatchTupleTextTransformation = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFRegionalByteMatchSetFieldToMatch.hs b/library-gen/Stratosphere/ResourceProperties/WAFRegionalByteMatchSetFieldToMatch.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFRegionalByteMatchSetFieldToMatch.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-bytematchset-fieldtomatch.html - -module Stratosphere.ResourceProperties.WAFRegionalByteMatchSetFieldToMatch where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFRegionalByteMatchSetFieldToMatch. See --- 'wafRegionalByteMatchSetFieldToMatch' for a more convenient constructor. -data WAFRegionalByteMatchSetFieldToMatch = - WAFRegionalByteMatchSetFieldToMatch - { _wAFRegionalByteMatchSetFieldToMatchData :: Maybe (Val Text) - , _wAFRegionalByteMatchSetFieldToMatchType :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFRegionalByteMatchSetFieldToMatch where - toJSON WAFRegionalByteMatchSetFieldToMatch{..} = - object $ - catMaybes - [ fmap (("Data",) . toJSON) _wAFRegionalByteMatchSetFieldToMatchData - , (Just . ("Type",) . toJSON) _wAFRegionalByteMatchSetFieldToMatchType - ] - --- | Constructor for 'WAFRegionalByteMatchSetFieldToMatch' containing required --- fields as arguments. -wafRegionalByteMatchSetFieldToMatch - :: Val Text -- ^ 'wafrbmsftmType' - -> WAFRegionalByteMatchSetFieldToMatch -wafRegionalByteMatchSetFieldToMatch typearg = - WAFRegionalByteMatchSetFieldToMatch - { _wAFRegionalByteMatchSetFieldToMatchData = Nothing - , _wAFRegionalByteMatchSetFieldToMatchType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-bytematchset-fieldtomatch.html#cfn-wafregional-bytematchset-fieldtomatch-data -wafrbmsftmData :: Lens' WAFRegionalByteMatchSetFieldToMatch (Maybe (Val Text)) -wafrbmsftmData = lens _wAFRegionalByteMatchSetFieldToMatchData (\s a -> s { _wAFRegionalByteMatchSetFieldToMatchData = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-bytematchset-fieldtomatch.html#cfn-wafregional-bytematchset-fieldtomatch-type -wafrbmsftmType :: Lens' WAFRegionalByteMatchSetFieldToMatch (Val Text) -wafrbmsftmType = lens _wAFRegionalByteMatchSetFieldToMatchType (\s a -> s { _wAFRegionalByteMatchSetFieldToMatchType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFRegionalGeoMatchSetGeoMatchConstraint.hs b/library-gen/Stratosphere/ResourceProperties/WAFRegionalGeoMatchSetGeoMatchConstraint.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFRegionalGeoMatchSetGeoMatchConstraint.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-geomatchset-geomatchconstraint.html - -module Stratosphere.ResourceProperties.WAFRegionalGeoMatchSetGeoMatchConstraint where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFRegionalGeoMatchSetGeoMatchConstraint. --- See 'wafRegionalGeoMatchSetGeoMatchConstraint' for a more convenient --- constructor. -data WAFRegionalGeoMatchSetGeoMatchConstraint = - WAFRegionalGeoMatchSetGeoMatchConstraint - { _wAFRegionalGeoMatchSetGeoMatchConstraintType :: Val Text - , _wAFRegionalGeoMatchSetGeoMatchConstraintValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFRegionalGeoMatchSetGeoMatchConstraint where - toJSON WAFRegionalGeoMatchSetGeoMatchConstraint{..} = - object $ - catMaybes - [ (Just . ("Type",) . toJSON) _wAFRegionalGeoMatchSetGeoMatchConstraintType - , (Just . ("Value",) . toJSON) _wAFRegionalGeoMatchSetGeoMatchConstraintValue - ] - --- | Constructor for 'WAFRegionalGeoMatchSetGeoMatchConstraint' containing --- required fields as arguments. -wafRegionalGeoMatchSetGeoMatchConstraint - :: Val Text -- ^ 'wafrgmsgmcType' - -> Val Text -- ^ 'wafrgmsgmcValue' - -> WAFRegionalGeoMatchSetGeoMatchConstraint -wafRegionalGeoMatchSetGeoMatchConstraint typearg valuearg = - WAFRegionalGeoMatchSetGeoMatchConstraint - { _wAFRegionalGeoMatchSetGeoMatchConstraintType = typearg - , _wAFRegionalGeoMatchSetGeoMatchConstraintValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-geomatchset-geomatchconstraint.html#cfn-wafregional-geomatchset-geomatchconstraint-type -wafrgmsgmcType :: Lens' WAFRegionalGeoMatchSetGeoMatchConstraint (Val Text) -wafrgmsgmcType = lens _wAFRegionalGeoMatchSetGeoMatchConstraintType (\s a -> s { _wAFRegionalGeoMatchSetGeoMatchConstraintType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-geomatchset-geomatchconstraint.html#cfn-wafregional-geomatchset-geomatchconstraint-value -wafrgmsgmcValue :: Lens' WAFRegionalGeoMatchSetGeoMatchConstraint (Val Text) -wafrgmsgmcValue = lens _wAFRegionalGeoMatchSetGeoMatchConstraintValue (\s a -> s { _wAFRegionalGeoMatchSetGeoMatchConstraintValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFRegionalIPSetIPSetDescriptor.hs b/library-gen/Stratosphere/ResourceProperties/WAFRegionalIPSetIPSetDescriptor.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFRegionalIPSetIPSetDescriptor.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-ipset-ipsetdescriptor.html - -module Stratosphere.ResourceProperties.WAFRegionalIPSetIPSetDescriptor where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFRegionalIPSetIPSetDescriptor. See --- 'wafRegionalIPSetIPSetDescriptor' for a more convenient constructor. -data WAFRegionalIPSetIPSetDescriptor = - WAFRegionalIPSetIPSetDescriptor - { _wAFRegionalIPSetIPSetDescriptorType :: Val Text - , _wAFRegionalIPSetIPSetDescriptorValue :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFRegionalIPSetIPSetDescriptor where - toJSON WAFRegionalIPSetIPSetDescriptor{..} = - object $ - catMaybes - [ (Just . ("Type",) . toJSON) _wAFRegionalIPSetIPSetDescriptorType - , (Just . ("Value",) . toJSON) _wAFRegionalIPSetIPSetDescriptorValue - ] - --- | Constructor for 'WAFRegionalIPSetIPSetDescriptor' containing required --- fields as arguments. -wafRegionalIPSetIPSetDescriptor - :: Val Text -- ^ 'wafripsipsdType' - -> Val Text -- ^ 'wafripsipsdValue' - -> WAFRegionalIPSetIPSetDescriptor -wafRegionalIPSetIPSetDescriptor typearg valuearg = - WAFRegionalIPSetIPSetDescriptor - { _wAFRegionalIPSetIPSetDescriptorType = typearg - , _wAFRegionalIPSetIPSetDescriptorValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-ipset-ipsetdescriptor.html#cfn-wafregional-ipset-ipsetdescriptor-type -wafripsipsdType :: Lens' WAFRegionalIPSetIPSetDescriptor (Val Text) -wafripsipsdType = lens _wAFRegionalIPSetIPSetDescriptorType (\s a -> s { _wAFRegionalIPSetIPSetDescriptorType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-ipset-ipsetdescriptor.html#cfn-wafregional-ipset-ipsetdescriptor-value -wafripsipsdValue :: Lens' WAFRegionalIPSetIPSetDescriptor (Val Text) -wafripsipsdValue = lens _wAFRegionalIPSetIPSetDescriptorValue (\s a -> s { _wAFRegionalIPSetIPSetDescriptorValue = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFRegionalRateBasedRulePredicate.hs b/library-gen/Stratosphere/ResourceProperties/WAFRegionalRateBasedRulePredicate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFRegionalRateBasedRulePredicate.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-ratebasedrule-predicate.html - -module Stratosphere.ResourceProperties.WAFRegionalRateBasedRulePredicate where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFRegionalRateBasedRulePredicate. See --- 'wafRegionalRateBasedRulePredicate' for a more convenient constructor. -data WAFRegionalRateBasedRulePredicate = - WAFRegionalRateBasedRulePredicate - { _wAFRegionalRateBasedRulePredicateDataId :: Val Text - , _wAFRegionalRateBasedRulePredicateNegated :: Val Bool - , _wAFRegionalRateBasedRulePredicateType :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFRegionalRateBasedRulePredicate where - toJSON WAFRegionalRateBasedRulePredicate{..} = - object $ - catMaybes - [ (Just . ("DataId",) . toJSON) _wAFRegionalRateBasedRulePredicateDataId - , (Just . ("Negated",) . toJSON) _wAFRegionalRateBasedRulePredicateNegated - , (Just . ("Type",) . toJSON) _wAFRegionalRateBasedRulePredicateType - ] - --- | Constructor for 'WAFRegionalRateBasedRulePredicate' containing required --- fields as arguments. -wafRegionalRateBasedRulePredicate - :: Val Text -- ^ 'wafrrbrpDataId' - -> Val Bool -- ^ 'wafrrbrpNegated' - -> Val Text -- ^ 'wafrrbrpType' - -> WAFRegionalRateBasedRulePredicate -wafRegionalRateBasedRulePredicate dataIdarg negatedarg typearg = - WAFRegionalRateBasedRulePredicate - { _wAFRegionalRateBasedRulePredicateDataId = dataIdarg - , _wAFRegionalRateBasedRulePredicateNegated = negatedarg - , _wAFRegionalRateBasedRulePredicateType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-ratebasedrule-predicate.html#cfn-wafregional-ratebasedrule-predicate-dataid -wafrrbrpDataId :: Lens' WAFRegionalRateBasedRulePredicate (Val Text) -wafrrbrpDataId = lens _wAFRegionalRateBasedRulePredicateDataId (\s a -> s { _wAFRegionalRateBasedRulePredicateDataId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-ratebasedrule-predicate.html#cfn-wafregional-ratebasedrule-predicate-negated -wafrrbrpNegated :: Lens' WAFRegionalRateBasedRulePredicate (Val Bool) -wafrrbrpNegated = lens _wAFRegionalRateBasedRulePredicateNegated (\s a -> s { _wAFRegionalRateBasedRulePredicateNegated = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-ratebasedrule-predicate.html#cfn-wafregional-ratebasedrule-predicate-type -wafrrbrpType :: Lens' WAFRegionalRateBasedRulePredicate (Val Text) -wafrrbrpType = lens _wAFRegionalRateBasedRulePredicateType (\s a -> s { _wAFRegionalRateBasedRulePredicateType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFRegionalRulePredicate.hs b/library-gen/Stratosphere/ResourceProperties/WAFRegionalRulePredicate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFRegionalRulePredicate.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-rule-predicate.html - -module Stratosphere.ResourceProperties.WAFRegionalRulePredicate where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFRegionalRulePredicate. See --- 'wafRegionalRulePredicate' for a more convenient constructor. -data WAFRegionalRulePredicate = - WAFRegionalRulePredicate - { _wAFRegionalRulePredicateDataId :: Val Text - , _wAFRegionalRulePredicateNegated :: Val Bool - , _wAFRegionalRulePredicateType :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFRegionalRulePredicate where - toJSON WAFRegionalRulePredicate{..} = - object $ - catMaybes - [ (Just . ("DataId",) . toJSON) _wAFRegionalRulePredicateDataId - , (Just . ("Negated",) . toJSON) _wAFRegionalRulePredicateNegated - , (Just . ("Type",) . toJSON) _wAFRegionalRulePredicateType - ] - --- | Constructor for 'WAFRegionalRulePredicate' containing required fields as --- arguments. -wafRegionalRulePredicate - :: Val Text -- ^ 'wafrrpDataId' - -> Val Bool -- ^ 'wafrrpNegated' - -> Val Text -- ^ 'wafrrpType' - -> WAFRegionalRulePredicate -wafRegionalRulePredicate dataIdarg negatedarg typearg = - WAFRegionalRulePredicate - { _wAFRegionalRulePredicateDataId = dataIdarg - , _wAFRegionalRulePredicateNegated = negatedarg - , _wAFRegionalRulePredicateType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-rule-predicate.html#cfn-wafregional-rule-predicate-dataid -wafrrpDataId :: Lens' WAFRegionalRulePredicate (Val Text) -wafrrpDataId = lens _wAFRegionalRulePredicateDataId (\s a -> s { _wAFRegionalRulePredicateDataId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-rule-predicate.html#cfn-wafregional-rule-predicate-negated -wafrrpNegated :: Lens' WAFRegionalRulePredicate (Val Bool) -wafrrpNegated = lens _wAFRegionalRulePredicateNegated (\s a -> s { _wAFRegionalRulePredicateNegated = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-rule-predicate.html#cfn-wafregional-rule-predicate-type -wafrrpType :: Lens' WAFRegionalRulePredicate (Val Text) -wafrrpType = lens _wAFRegionalRulePredicateType (\s a -> s { _wAFRegionalRulePredicateType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFRegionalSizeConstraintSetFieldToMatch.hs b/library-gen/Stratosphere/ResourceProperties/WAFRegionalSizeConstraintSetFieldToMatch.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFRegionalSizeConstraintSetFieldToMatch.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-sizeconstraintset-fieldtomatch.html - -module Stratosphere.ResourceProperties.WAFRegionalSizeConstraintSetFieldToMatch where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFRegionalSizeConstraintSetFieldToMatch. --- See 'wafRegionalSizeConstraintSetFieldToMatch' for a more convenient --- constructor. -data WAFRegionalSizeConstraintSetFieldToMatch = - WAFRegionalSizeConstraintSetFieldToMatch - { _wAFRegionalSizeConstraintSetFieldToMatchData :: Maybe (Val Text) - , _wAFRegionalSizeConstraintSetFieldToMatchType :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFRegionalSizeConstraintSetFieldToMatch where - toJSON WAFRegionalSizeConstraintSetFieldToMatch{..} = - object $ - catMaybes - [ fmap (("Data",) . toJSON) _wAFRegionalSizeConstraintSetFieldToMatchData - , (Just . ("Type",) . toJSON) _wAFRegionalSizeConstraintSetFieldToMatchType - ] - --- | Constructor for 'WAFRegionalSizeConstraintSetFieldToMatch' containing --- required fields as arguments. -wafRegionalSizeConstraintSetFieldToMatch - :: Val Text -- ^ 'wafrscsftmType' - -> WAFRegionalSizeConstraintSetFieldToMatch -wafRegionalSizeConstraintSetFieldToMatch typearg = - WAFRegionalSizeConstraintSetFieldToMatch - { _wAFRegionalSizeConstraintSetFieldToMatchData = Nothing - , _wAFRegionalSizeConstraintSetFieldToMatchType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-sizeconstraintset-fieldtomatch.html#cfn-wafregional-sizeconstraintset-fieldtomatch-data -wafrscsftmData :: Lens' WAFRegionalSizeConstraintSetFieldToMatch (Maybe (Val Text)) -wafrscsftmData = lens _wAFRegionalSizeConstraintSetFieldToMatchData (\s a -> s { _wAFRegionalSizeConstraintSetFieldToMatchData = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-sizeconstraintset-fieldtomatch.html#cfn-wafregional-sizeconstraintset-fieldtomatch-type -wafrscsftmType :: Lens' WAFRegionalSizeConstraintSetFieldToMatch (Val Text) -wafrscsftmType = lens _wAFRegionalSizeConstraintSetFieldToMatchType (\s a -> s { _wAFRegionalSizeConstraintSetFieldToMatchType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFRegionalSizeConstraintSetSizeConstraint.hs b/library-gen/Stratosphere/ResourceProperties/WAFRegionalSizeConstraintSetSizeConstraint.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFRegionalSizeConstraintSetSizeConstraint.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-sizeconstraintset-sizeconstraint.html - -module Stratosphere.ResourceProperties.WAFRegionalSizeConstraintSetSizeConstraint where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFRegionalSizeConstraintSetFieldToMatch - --- | Full data type definition for WAFRegionalSizeConstraintSetSizeConstraint. --- See 'wafRegionalSizeConstraintSetSizeConstraint' for a more convenient --- constructor. -data WAFRegionalSizeConstraintSetSizeConstraint = - WAFRegionalSizeConstraintSetSizeConstraint - { _wAFRegionalSizeConstraintSetSizeConstraintComparisonOperator :: Val Text - , _wAFRegionalSizeConstraintSetSizeConstraintFieldToMatch :: WAFRegionalSizeConstraintSetFieldToMatch - , _wAFRegionalSizeConstraintSetSizeConstraintSize :: Val Integer - , _wAFRegionalSizeConstraintSetSizeConstraintTextTransformation :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFRegionalSizeConstraintSetSizeConstraint where - toJSON WAFRegionalSizeConstraintSetSizeConstraint{..} = - object $ - catMaybes - [ (Just . ("ComparisonOperator",) . toJSON) _wAFRegionalSizeConstraintSetSizeConstraintComparisonOperator - , (Just . ("FieldToMatch",) . toJSON) _wAFRegionalSizeConstraintSetSizeConstraintFieldToMatch - , (Just . ("Size",) . toJSON) _wAFRegionalSizeConstraintSetSizeConstraintSize - , (Just . ("TextTransformation",) . toJSON) _wAFRegionalSizeConstraintSetSizeConstraintTextTransformation - ] - --- | Constructor for 'WAFRegionalSizeConstraintSetSizeConstraint' containing --- required fields as arguments. -wafRegionalSizeConstraintSetSizeConstraint - :: Val Text -- ^ 'wafrscsscComparisonOperator' - -> WAFRegionalSizeConstraintSetFieldToMatch -- ^ 'wafrscsscFieldToMatch' - -> Val Integer -- ^ 'wafrscsscSize' - -> Val Text -- ^ 'wafrscsscTextTransformation' - -> WAFRegionalSizeConstraintSetSizeConstraint -wafRegionalSizeConstraintSetSizeConstraint comparisonOperatorarg fieldToMatcharg sizearg textTransformationarg = - WAFRegionalSizeConstraintSetSizeConstraint - { _wAFRegionalSizeConstraintSetSizeConstraintComparisonOperator = comparisonOperatorarg - , _wAFRegionalSizeConstraintSetSizeConstraintFieldToMatch = fieldToMatcharg - , _wAFRegionalSizeConstraintSetSizeConstraintSize = sizearg - , _wAFRegionalSizeConstraintSetSizeConstraintTextTransformation = textTransformationarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-sizeconstraintset-sizeconstraint.html#cfn-wafregional-sizeconstraintset-sizeconstraint-comparisonoperator -wafrscsscComparisonOperator :: Lens' WAFRegionalSizeConstraintSetSizeConstraint (Val Text) -wafrscsscComparisonOperator = lens _wAFRegionalSizeConstraintSetSizeConstraintComparisonOperator (\s a -> s { _wAFRegionalSizeConstraintSetSizeConstraintComparisonOperator = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-sizeconstraintset-sizeconstraint.html#cfn-wafregional-sizeconstraintset-sizeconstraint-fieldtomatch -wafrscsscFieldToMatch :: Lens' WAFRegionalSizeConstraintSetSizeConstraint WAFRegionalSizeConstraintSetFieldToMatch -wafrscsscFieldToMatch = lens _wAFRegionalSizeConstraintSetSizeConstraintFieldToMatch (\s a -> s { _wAFRegionalSizeConstraintSetSizeConstraintFieldToMatch = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-sizeconstraintset-sizeconstraint.html#cfn-wafregional-sizeconstraintset-sizeconstraint-size -wafrscsscSize :: Lens' WAFRegionalSizeConstraintSetSizeConstraint (Val Integer) -wafrscsscSize = lens _wAFRegionalSizeConstraintSetSizeConstraintSize (\s a -> s { _wAFRegionalSizeConstraintSetSizeConstraintSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-sizeconstraintset-sizeconstraint.html#cfn-wafregional-sizeconstraintset-sizeconstraint-texttransformation -wafrscsscTextTransformation :: Lens' WAFRegionalSizeConstraintSetSizeConstraint (Val Text) -wafrscsscTextTransformation = lens _wAFRegionalSizeConstraintSetSizeConstraintTextTransformation (\s a -> s { _wAFRegionalSizeConstraintSetSizeConstraintTextTransformation = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFRegionalSqlInjectionMatchSetFieldToMatch.hs b/library-gen/Stratosphere/ResourceProperties/WAFRegionalSqlInjectionMatchSetFieldToMatch.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFRegionalSqlInjectionMatchSetFieldToMatch.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-sqlinjectionmatchset-fieldtomatch.html - -module Stratosphere.ResourceProperties.WAFRegionalSqlInjectionMatchSetFieldToMatch where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- WAFRegionalSqlInjectionMatchSetFieldToMatch. See --- 'wafRegionalSqlInjectionMatchSetFieldToMatch' for a more convenient --- constructor. -data WAFRegionalSqlInjectionMatchSetFieldToMatch = - WAFRegionalSqlInjectionMatchSetFieldToMatch - { _wAFRegionalSqlInjectionMatchSetFieldToMatchData :: Maybe (Val Text) - , _wAFRegionalSqlInjectionMatchSetFieldToMatchType :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFRegionalSqlInjectionMatchSetFieldToMatch where - toJSON WAFRegionalSqlInjectionMatchSetFieldToMatch{..} = - object $ - catMaybes - [ fmap (("Data",) . toJSON) _wAFRegionalSqlInjectionMatchSetFieldToMatchData - , (Just . ("Type",) . toJSON) _wAFRegionalSqlInjectionMatchSetFieldToMatchType - ] - --- | Constructor for 'WAFRegionalSqlInjectionMatchSetFieldToMatch' containing --- required fields as arguments. -wafRegionalSqlInjectionMatchSetFieldToMatch - :: Val Text -- ^ 'wafrsimsftmType' - -> WAFRegionalSqlInjectionMatchSetFieldToMatch -wafRegionalSqlInjectionMatchSetFieldToMatch typearg = - WAFRegionalSqlInjectionMatchSetFieldToMatch - { _wAFRegionalSqlInjectionMatchSetFieldToMatchData = Nothing - , _wAFRegionalSqlInjectionMatchSetFieldToMatchType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-sqlinjectionmatchset-fieldtomatch.html#cfn-wafregional-sqlinjectionmatchset-fieldtomatch-data -wafrsimsftmData :: Lens' WAFRegionalSqlInjectionMatchSetFieldToMatch (Maybe (Val Text)) -wafrsimsftmData = lens _wAFRegionalSqlInjectionMatchSetFieldToMatchData (\s a -> s { _wAFRegionalSqlInjectionMatchSetFieldToMatchData = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-sqlinjectionmatchset-fieldtomatch.html#cfn-wafregional-sqlinjectionmatchset-fieldtomatch-type -wafrsimsftmType :: Lens' WAFRegionalSqlInjectionMatchSetFieldToMatch (Val Text) -wafrsimsftmType = lens _wAFRegionalSqlInjectionMatchSetFieldToMatchType (\s a -> s { _wAFRegionalSqlInjectionMatchSetFieldToMatchType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFRegionalSqlInjectionMatchSetSqlInjectionMatchTuple.hs b/library-gen/Stratosphere/ResourceProperties/WAFRegionalSqlInjectionMatchSetSqlInjectionMatchTuple.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFRegionalSqlInjectionMatchSetSqlInjectionMatchTuple.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-sqlinjectionmatchset-sqlinjectionmatchtuple.html - -module Stratosphere.ResourceProperties.WAFRegionalSqlInjectionMatchSetSqlInjectionMatchTuple where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFRegionalSqlInjectionMatchSetFieldToMatch - --- | Full data type definition for --- WAFRegionalSqlInjectionMatchSetSqlInjectionMatchTuple. See --- 'wafRegionalSqlInjectionMatchSetSqlInjectionMatchTuple' for a more --- convenient constructor. -data WAFRegionalSqlInjectionMatchSetSqlInjectionMatchTuple = - WAFRegionalSqlInjectionMatchSetSqlInjectionMatchTuple - { _wAFRegionalSqlInjectionMatchSetSqlInjectionMatchTupleFieldToMatch :: WAFRegionalSqlInjectionMatchSetFieldToMatch - , _wAFRegionalSqlInjectionMatchSetSqlInjectionMatchTupleTextTransformation :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFRegionalSqlInjectionMatchSetSqlInjectionMatchTuple where - toJSON WAFRegionalSqlInjectionMatchSetSqlInjectionMatchTuple{..} = - object $ - catMaybes - [ (Just . ("FieldToMatch",) . toJSON) _wAFRegionalSqlInjectionMatchSetSqlInjectionMatchTupleFieldToMatch - , (Just . ("TextTransformation",) . toJSON) _wAFRegionalSqlInjectionMatchSetSqlInjectionMatchTupleTextTransformation - ] - --- | Constructor for 'WAFRegionalSqlInjectionMatchSetSqlInjectionMatchTuple' --- containing required fields as arguments. -wafRegionalSqlInjectionMatchSetSqlInjectionMatchTuple - :: WAFRegionalSqlInjectionMatchSetFieldToMatch -- ^ 'wafrsimssimtFieldToMatch' - -> Val Text -- ^ 'wafrsimssimtTextTransformation' - -> WAFRegionalSqlInjectionMatchSetSqlInjectionMatchTuple -wafRegionalSqlInjectionMatchSetSqlInjectionMatchTuple fieldToMatcharg textTransformationarg = - WAFRegionalSqlInjectionMatchSetSqlInjectionMatchTuple - { _wAFRegionalSqlInjectionMatchSetSqlInjectionMatchTupleFieldToMatch = fieldToMatcharg - , _wAFRegionalSqlInjectionMatchSetSqlInjectionMatchTupleTextTransformation = textTransformationarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-sqlinjectionmatchset-sqlinjectionmatchtuple.html#cfn-wafregional-sqlinjectionmatchset-sqlinjectionmatchtuple-fieldtomatch -wafrsimssimtFieldToMatch :: Lens' WAFRegionalSqlInjectionMatchSetSqlInjectionMatchTuple WAFRegionalSqlInjectionMatchSetFieldToMatch -wafrsimssimtFieldToMatch = lens _wAFRegionalSqlInjectionMatchSetSqlInjectionMatchTupleFieldToMatch (\s a -> s { _wAFRegionalSqlInjectionMatchSetSqlInjectionMatchTupleFieldToMatch = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-sqlinjectionmatchset-sqlinjectionmatchtuple.html#cfn-wafregional-sqlinjectionmatchset-sqlinjectionmatchtuple-texttransformation -wafrsimssimtTextTransformation :: Lens' WAFRegionalSqlInjectionMatchSetSqlInjectionMatchTuple (Val Text) -wafrsimssimtTextTransformation = lens _wAFRegionalSqlInjectionMatchSetSqlInjectionMatchTupleTextTransformation (\s a -> s { _wAFRegionalSqlInjectionMatchSetSqlInjectionMatchTupleTextTransformation = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFRegionalWebACLAction.hs b/library-gen/Stratosphere/ResourceProperties/WAFRegionalWebACLAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFRegionalWebACLAction.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-webacl-action.html - -module Stratosphere.ResourceProperties.WAFRegionalWebACLAction where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFRegionalWebACLAction. See --- 'wafRegionalWebACLAction' for a more convenient constructor. -data WAFRegionalWebACLAction = - WAFRegionalWebACLAction - { _wAFRegionalWebACLActionType :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFRegionalWebACLAction where - toJSON WAFRegionalWebACLAction{..} = - object $ - catMaybes - [ (Just . ("Type",) . toJSON) _wAFRegionalWebACLActionType - ] - --- | Constructor for 'WAFRegionalWebACLAction' containing required fields as --- arguments. -wafRegionalWebACLAction - :: Val Text -- ^ 'wafrwaclaType' - -> WAFRegionalWebACLAction -wafRegionalWebACLAction typearg = - WAFRegionalWebACLAction - { _wAFRegionalWebACLActionType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-webacl-action.html#cfn-wafregional-webacl-action-type -wafrwaclaType :: Lens' WAFRegionalWebACLAction (Val Text) -wafrwaclaType = lens _wAFRegionalWebACLActionType (\s a -> s { _wAFRegionalWebACLActionType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFRegionalWebACLRule.hs b/library-gen/Stratosphere/ResourceProperties/WAFRegionalWebACLRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFRegionalWebACLRule.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-webacl-rule.html - -module Stratosphere.ResourceProperties.WAFRegionalWebACLRule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFRegionalWebACLAction - --- | Full data type definition for WAFRegionalWebACLRule. See --- 'wafRegionalWebACLRule' for a more convenient constructor. -data WAFRegionalWebACLRule = - WAFRegionalWebACLRule - { _wAFRegionalWebACLRuleAction :: WAFRegionalWebACLAction - , _wAFRegionalWebACLRulePriority :: Val Integer - , _wAFRegionalWebACLRuleRuleId :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFRegionalWebACLRule where - toJSON WAFRegionalWebACLRule{..} = - object $ - catMaybes - [ (Just . ("Action",) . toJSON) _wAFRegionalWebACLRuleAction - , (Just . ("Priority",) . toJSON) _wAFRegionalWebACLRulePriority - , (Just . ("RuleId",) . toJSON) _wAFRegionalWebACLRuleRuleId - ] - --- | Constructor for 'WAFRegionalWebACLRule' containing required fields as --- arguments. -wafRegionalWebACLRule - :: WAFRegionalWebACLAction -- ^ 'wafrwaclrAction' - -> Val Integer -- ^ 'wafrwaclrPriority' - -> Val Text -- ^ 'wafrwaclrRuleId' - -> WAFRegionalWebACLRule -wafRegionalWebACLRule actionarg priorityarg ruleIdarg = - WAFRegionalWebACLRule - { _wAFRegionalWebACLRuleAction = actionarg - , _wAFRegionalWebACLRulePriority = priorityarg - , _wAFRegionalWebACLRuleRuleId = ruleIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-webacl-rule.html#cfn-wafregional-webacl-rule-action -wafrwaclrAction :: Lens' WAFRegionalWebACLRule WAFRegionalWebACLAction -wafrwaclrAction = lens _wAFRegionalWebACLRuleAction (\s a -> s { _wAFRegionalWebACLRuleAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-webacl-rule.html#cfn-wafregional-webacl-rule-priority -wafrwaclrPriority :: Lens' WAFRegionalWebACLRule (Val Integer) -wafrwaclrPriority = lens _wAFRegionalWebACLRulePriority (\s a -> s { _wAFRegionalWebACLRulePriority = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-webacl-rule.html#cfn-wafregional-webacl-rule-ruleid -wafrwaclrRuleId :: Lens' WAFRegionalWebACLRule (Val Text) -wafrwaclrRuleId = lens _wAFRegionalWebACLRuleRuleId (\s a -> s { _wAFRegionalWebACLRuleRuleId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFRegionalXssMatchSetFieldToMatch.hs b/library-gen/Stratosphere/ResourceProperties/WAFRegionalXssMatchSetFieldToMatch.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFRegionalXssMatchSetFieldToMatch.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-xssmatchset-fieldtomatch.html - -module Stratosphere.ResourceProperties.WAFRegionalXssMatchSetFieldToMatch where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFRegionalXssMatchSetFieldToMatch. See --- 'wafRegionalXssMatchSetFieldToMatch' for a more convenient constructor. -data WAFRegionalXssMatchSetFieldToMatch = - WAFRegionalXssMatchSetFieldToMatch - { _wAFRegionalXssMatchSetFieldToMatchData :: Maybe (Val Text) - , _wAFRegionalXssMatchSetFieldToMatchType :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFRegionalXssMatchSetFieldToMatch where - toJSON WAFRegionalXssMatchSetFieldToMatch{..} = - object $ - catMaybes - [ fmap (("Data",) . toJSON) _wAFRegionalXssMatchSetFieldToMatchData - , (Just . ("Type",) . toJSON) _wAFRegionalXssMatchSetFieldToMatchType - ] - --- | Constructor for 'WAFRegionalXssMatchSetFieldToMatch' containing required --- fields as arguments. -wafRegionalXssMatchSetFieldToMatch - :: Val Text -- ^ 'wafrxmsftmType' - -> WAFRegionalXssMatchSetFieldToMatch -wafRegionalXssMatchSetFieldToMatch typearg = - WAFRegionalXssMatchSetFieldToMatch - { _wAFRegionalXssMatchSetFieldToMatchData = Nothing - , _wAFRegionalXssMatchSetFieldToMatchType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-xssmatchset-fieldtomatch.html#cfn-wafregional-xssmatchset-fieldtomatch-data -wafrxmsftmData :: Lens' WAFRegionalXssMatchSetFieldToMatch (Maybe (Val Text)) -wafrxmsftmData = lens _wAFRegionalXssMatchSetFieldToMatchData (\s a -> s { _wAFRegionalXssMatchSetFieldToMatchData = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-xssmatchset-fieldtomatch.html#cfn-wafregional-xssmatchset-fieldtomatch-type -wafrxmsftmType :: Lens' WAFRegionalXssMatchSetFieldToMatch (Val Text) -wafrxmsftmType = lens _wAFRegionalXssMatchSetFieldToMatchType (\s a -> s { _wAFRegionalXssMatchSetFieldToMatchType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFRegionalXssMatchSetXssMatchTuple.hs b/library-gen/Stratosphere/ResourceProperties/WAFRegionalXssMatchSetXssMatchTuple.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFRegionalXssMatchSetXssMatchTuple.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-xssmatchset-xssmatchtuple.html - -module Stratosphere.ResourceProperties.WAFRegionalXssMatchSetXssMatchTuple where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFRegionalXssMatchSetFieldToMatch - --- | Full data type definition for WAFRegionalXssMatchSetXssMatchTuple. See --- 'wafRegionalXssMatchSetXssMatchTuple' for a more convenient constructor. -data WAFRegionalXssMatchSetXssMatchTuple = - WAFRegionalXssMatchSetXssMatchTuple - { _wAFRegionalXssMatchSetXssMatchTupleFieldToMatch :: WAFRegionalXssMatchSetFieldToMatch - , _wAFRegionalXssMatchSetXssMatchTupleTextTransformation :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFRegionalXssMatchSetXssMatchTuple where - toJSON WAFRegionalXssMatchSetXssMatchTuple{..} = - object $ - catMaybes - [ (Just . ("FieldToMatch",) . toJSON) _wAFRegionalXssMatchSetXssMatchTupleFieldToMatch - , (Just . ("TextTransformation",) . toJSON) _wAFRegionalXssMatchSetXssMatchTupleTextTransformation - ] - --- | Constructor for 'WAFRegionalXssMatchSetXssMatchTuple' containing required --- fields as arguments. -wafRegionalXssMatchSetXssMatchTuple - :: WAFRegionalXssMatchSetFieldToMatch -- ^ 'wafrxmsxmtFieldToMatch' - -> Val Text -- ^ 'wafrxmsxmtTextTransformation' - -> WAFRegionalXssMatchSetXssMatchTuple -wafRegionalXssMatchSetXssMatchTuple fieldToMatcharg textTransformationarg = - WAFRegionalXssMatchSetXssMatchTuple - { _wAFRegionalXssMatchSetXssMatchTupleFieldToMatch = fieldToMatcharg - , _wAFRegionalXssMatchSetXssMatchTupleTextTransformation = textTransformationarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-xssmatchset-xssmatchtuple.html#cfn-wafregional-xssmatchset-xssmatchtuple-fieldtomatch -wafrxmsxmtFieldToMatch :: Lens' WAFRegionalXssMatchSetXssMatchTuple WAFRegionalXssMatchSetFieldToMatch -wafrxmsxmtFieldToMatch = lens _wAFRegionalXssMatchSetXssMatchTupleFieldToMatch (\s a -> s { _wAFRegionalXssMatchSetXssMatchTupleFieldToMatch = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafregional-xssmatchset-xssmatchtuple.html#cfn-wafregional-xssmatchset-xssmatchtuple-texttransformation -wafrxmsxmtTextTransformation :: Lens' WAFRegionalXssMatchSetXssMatchTuple (Val Text) -wafrxmsxmtTextTransformation = lens _wAFRegionalXssMatchSetXssMatchTupleTextTransformation (\s a -> s { _wAFRegionalXssMatchSetXssMatchTupleTextTransformation = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFRulePredicate.hs b/library-gen/Stratosphere/ResourceProperties/WAFRulePredicate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFRulePredicate.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-rule-predicates.html - -module Stratosphere.ResourceProperties.WAFRulePredicate where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFRulePredicate. See 'wafRulePredicate' --- for a more convenient constructor. -data WAFRulePredicate = - WAFRulePredicate - { _wAFRulePredicateDataId :: Val Text - , _wAFRulePredicateNegated :: Val Bool - , _wAFRulePredicateType :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFRulePredicate where - toJSON WAFRulePredicate{..} = - object $ - catMaybes - [ (Just . ("DataId",) . toJSON) _wAFRulePredicateDataId - , (Just . ("Negated",) . toJSON) _wAFRulePredicateNegated - , (Just . ("Type",) . toJSON) _wAFRulePredicateType - ] - --- | Constructor for 'WAFRulePredicate' containing required fields as --- arguments. -wafRulePredicate - :: Val Text -- ^ 'wafrpDataId' - -> Val Bool -- ^ 'wafrpNegated' - -> Val Text -- ^ 'wafrpType' - -> WAFRulePredicate -wafRulePredicate dataIdarg negatedarg typearg = - WAFRulePredicate - { _wAFRulePredicateDataId = dataIdarg - , _wAFRulePredicateNegated = negatedarg - , _wAFRulePredicateType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-rule-predicates.html#cfn-waf-rule-predicates-dataid -wafrpDataId :: Lens' WAFRulePredicate (Val Text) -wafrpDataId = lens _wAFRulePredicateDataId (\s a -> s { _wAFRulePredicateDataId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-rule-predicates.html#cfn-waf-rule-predicates-negated -wafrpNegated :: Lens' WAFRulePredicate (Val Bool) -wafrpNegated = lens _wAFRulePredicateNegated (\s a -> s { _wAFRulePredicateNegated = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-rule-predicates.html#cfn-waf-rule-predicates-type -wafrpType :: Lens' WAFRulePredicate (Val Text) -wafrpType = lens _wAFRulePredicateType (\s a -> s { _wAFRulePredicateType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFSizeConstraintSetFieldToMatch.hs b/library-gen/Stratosphere/ResourceProperties/WAFSizeConstraintSetFieldToMatch.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFSizeConstraintSetFieldToMatch.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-sizeconstraintset-sizeconstraint-fieldtomatch.html - -module Stratosphere.ResourceProperties.WAFSizeConstraintSetFieldToMatch where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFSizeConstraintSetFieldToMatch. See --- 'wafSizeConstraintSetFieldToMatch' for a more convenient constructor. -data WAFSizeConstraintSetFieldToMatch = - WAFSizeConstraintSetFieldToMatch - { _wAFSizeConstraintSetFieldToMatchData :: Maybe (Val Text) - , _wAFSizeConstraintSetFieldToMatchType :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFSizeConstraintSetFieldToMatch where - toJSON WAFSizeConstraintSetFieldToMatch{..} = - object $ - catMaybes - [ fmap (("Data",) . toJSON) _wAFSizeConstraintSetFieldToMatchData - , (Just . ("Type",) . toJSON) _wAFSizeConstraintSetFieldToMatchType - ] - --- | Constructor for 'WAFSizeConstraintSetFieldToMatch' containing required --- fields as arguments. -wafSizeConstraintSetFieldToMatch - :: Val Text -- ^ 'wafscsftmType' - -> WAFSizeConstraintSetFieldToMatch -wafSizeConstraintSetFieldToMatch typearg = - WAFSizeConstraintSetFieldToMatch - { _wAFSizeConstraintSetFieldToMatchData = Nothing - , _wAFSizeConstraintSetFieldToMatchType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-sizeconstraintset-sizeconstraint-fieldtomatch.html#cfn-waf-sizeconstraintset-sizeconstraint-fieldtomatch-data -wafscsftmData :: Lens' WAFSizeConstraintSetFieldToMatch (Maybe (Val Text)) -wafscsftmData = lens _wAFSizeConstraintSetFieldToMatchData (\s a -> s { _wAFSizeConstraintSetFieldToMatchData = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-sizeconstraintset-sizeconstraint-fieldtomatch.html#cfn-waf-sizeconstraintset-sizeconstraint-fieldtomatch-type -wafscsftmType :: Lens' WAFSizeConstraintSetFieldToMatch (Val Text) -wafscsftmType = lens _wAFSizeConstraintSetFieldToMatchType (\s a -> s { _wAFSizeConstraintSetFieldToMatchType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFSizeConstraintSetSizeConstraint.hs b/library-gen/Stratosphere/ResourceProperties/WAFSizeConstraintSetSizeConstraint.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFSizeConstraintSetSizeConstraint.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-sizeconstraintset-sizeconstraint.html - -module Stratosphere.ResourceProperties.WAFSizeConstraintSetSizeConstraint where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFSizeConstraintSetFieldToMatch - --- | Full data type definition for WAFSizeConstraintSetSizeConstraint. See --- 'wafSizeConstraintSetSizeConstraint' for a more convenient constructor. -data WAFSizeConstraintSetSizeConstraint = - WAFSizeConstraintSetSizeConstraint - { _wAFSizeConstraintSetSizeConstraintComparisonOperator :: Val Text - , _wAFSizeConstraintSetSizeConstraintFieldToMatch :: WAFSizeConstraintSetFieldToMatch - , _wAFSizeConstraintSetSizeConstraintSize :: Val Integer - , _wAFSizeConstraintSetSizeConstraintTextTransformation :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFSizeConstraintSetSizeConstraint where - toJSON WAFSizeConstraintSetSizeConstraint{..} = - object $ - catMaybes - [ (Just . ("ComparisonOperator",) . toJSON) _wAFSizeConstraintSetSizeConstraintComparisonOperator - , (Just . ("FieldToMatch",) . toJSON) _wAFSizeConstraintSetSizeConstraintFieldToMatch - , (Just . ("Size",) . toJSON) _wAFSizeConstraintSetSizeConstraintSize - , (Just . ("TextTransformation",) . toJSON) _wAFSizeConstraintSetSizeConstraintTextTransformation - ] - --- | Constructor for 'WAFSizeConstraintSetSizeConstraint' containing required --- fields as arguments. -wafSizeConstraintSetSizeConstraint - :: Val Text -- ^ 'wafscsscComparisonOperator' - -> WAFSizeConstraintSetFieldToMatch -- ^ 'wafscsscFieldToMatch' - -> Val Integer -- ^ 'wafscsscSize' - -> Val Text -- ^ 'wafscsscTextTransformation' - -> WAFSizeConstraintSetSizeConstraint -wafSizeConstraintSetSizeConstraint comparisonOperatorarg fieldToMatcharg sizearg textTransformationarg = - WAFSizeConstraintSetSizeConstraint - { _wAFSizeConstraintSetSizeConstraintComparisonOperator = comparisonOperatorarg - , _wAFSizeConstraintSetSizeConstraintFieldToMatch = fieldToMatcharg - , _wAFSizeConstraintSetSizeConstraintSize = sizearg - , _wAFSizeConstraintSetSizeConstraintTextTransformation = textTransformationarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-sizeconstraintset-sizeconstraint.html#cfn-waf-sizeconstraintset-sizeconstraint-comparisonoperator -wafscsscComparisonOperator :: Lens' WAFSizeConstraintSetSizeConstraint (Val Text) -wafscsscComparisonOperator = lens _wAFSizeConstraintSetSizeConstraintComparisonOperator (\s a -> s { _wAFSizeConstraintSetSizeConstraintComparisonOperator = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-sizeconstraintset-sizeconstraint.html#cfn-waf-sizeconstraintset-sizeconstraint-fieldtomatch -wafscsscFieldToMatch :: Lens' WAFSizeConstraintSetSizeConstraint WAFSizeConstraintSetFieldToMatch -wafscsscFieldToMatch = lens _wAFSizeConstraintSetSizeConstraintFieldToMatch (\s a -> s { _wAFSizeConstraintSetSizeConstraintFieldToMatch = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-sizeconstraintset-sizeconstraint.html#cfn-waf-sizeconstraintset-sizeconstraint-size -wafscsscSize :: Lens' WAFSizeConstraintSetSizeConstraint (Val Integer) -wafscsscSize = lens _wAFSizeConstraintSetSizeConstraintSize (\s a -> s { _wAFSizeConstraintSetSizeConstraintSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-sizeconstraintset-sizeconstraint.html#cfn-waf-sizeconstraintset-sizeconstraint-texttransformation -wafscsscTextTransformation :: Lens' WAFSizeConstraintSetSizeConstraint (Val Text) -wafscsscTextTransformation = lens _wAFSizeConstraintSetSizeConstraintTextTransformation (\s a -> s { _wAFSizeConstraintSetSizeConstraintTextTransformation = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFSqlInjectionMatchSetFieldToMatch.hs b/library-gen/Stratosphere/ResourceProperties/WAFSqlInjectionMatchSetFieldToMatch.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFSqlInjectionMatchSetFieldToMatch.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-bytematchset-bytematchtuples-fieldtomatch.html - -module Stratosphere.ResourceProperties.WAFSqlInjectionMatchSetFieldToMatch where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFSqlInjectionMatchSetFieldToMatch. See --- 'wafSqlInjectionMatchSetFieldToMatch' for a more convenient constructor. -data WAFSqlInjectionMatchSetFieldToMatch = - WAFSqlInjectionMatchSetFieldToMatch - { _wAFSqlInjectionMatchSetFieldToMatchData :: Maybe (Val Text) - , _wAFSqlInjectionMatchSetFieldToMatchType :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFSqlInjectionMatchSetFieldToMatch where - toJSON WAFSqlInjectionMatchSetFieldToMatch{..} = - object $ - catMaybes - [ fmap (("Data",) . toJSON) _wAFSqlInjectionMatchSetFieldToMatchData - , (Just . ("Type",) . toJSON) _wAFSqlInjectionMatchSetFieldToMatchType - ] - --- | Constructor for 'WAFSqlInjectionMatchSetFieldToMatch' containing required --- fields as arguments. -wafSqlInjectionMatchSetFieldToMatch - :: Val Text -- ^ 'wafsimsftmType' - -> WAFSqlInjectionMatchSetFieldToMatch -wafSqlInjectionMatchSetFieldToMatch typearg = - WAFSqlInjectionMatchSetFieldToMatch - { _wAFSqlInjectionMatchSetFieldToMatchData = Nothing - , _wAFSqlInjectionMatchSetFieldToMatchType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-bytematchset-bytematchtuples-fieldtomatch.html#cfn-waf-sizeconstraintset-sizeconstraint-fieldtomatch-data -wafsimsftmData :: Lens' WAFSqlInjectionMatchSetFieldToMatch (Maybe (Val Text)) -wafsimsftmData = lens _wAFSqlInjectionMatchSetFieldToMatchData (\s a -> s { _wAFSqlInjectionMatchSetFieldToMatchData = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-bytematchset-bytematchtuples-fieldtomatch.html#cfn-waf-sizeconstraintset-sizeconstraint-fieldtomatch-type -wafsimsftmType :: Lens' WAFSqlInjectionMatchSetFieldToMatch (Val Text) -wafsimsftmType = lens _wAFSqlInjectionMatchSetFieldToMatchType (\s a -> s { _wAFSqlInjectionMatchSetFieldToMatchType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFSqlInjectionMatchSetSqlInjectionMatchTuple.hs b/library-gen/Stratosphere/ResourceProperties/WAFSqlInjectionMatchSetSqlInjectionMatchTuple.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFSqlInjectionMatchSetSqlInjectionMatchTuple.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-sqlinjectionmatchset-sqlinjectionmatchtuples.html - -module Stratosphere.ResourceProperties.WAFSqlInjectionMatchSetSqlInjectionMatchTuple where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFSqlInjectionMatchSetFieldToMatch - --- | Full data type definition for --- WAFSqlInjectionMatchSetSqlInjectionMatchTuple. See --- 'wafSqlInjectionMatchSetSqlInjectionMatchTuple' for a more convenient --- constructor. -data WAFSqlInjectionMatchSetSqlInjectionMatchTuple = - WAFSqlInjectionMatchSetSqlInjectionMatchTuple - { _wAFSqlInjectionMatchSetSqlInjectionMatchTupleFieldToMatch :: WAFSqlInjectionMatchSetFieldToMatch - , _wAFSqlInjectionMatchSetSqlInjectionMatchTupleTextTransformation :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFSqlInjectionMatchSetSqlInjectionMatchTuple where - toJSON WAFSqlInjectionMatchSetSqlInjectionMatchTuple{..} = - object $ - catMaybes - [ (Just . ("FieldToMatch",) . toJSON) _wAFSqlInjectionMatchSetSqlInjectionMatchTupleFieldToMatch - , (Just . ("TextTransformation",) . toJSON) _wAFSqlInjectionMatchSetSqlInjectionMatchTupleTextTransformation - ] - --- | Constructor for 'WAFSqlInjectionMatchSetSqlInjectionMatchTuple' --- containing required fields as arguments. -wafSqlInjectionMatchSetSqlInjectionMatchTuple - :: WAFSqlInjectionMatchSetFieldToMatch -- ^ 'wafsimssimtFieldToMatch' - -> Val Text -- ^ 'wafsimssimtTextTransformation' - -> WAFSqlInjectionMatchSetSqlInjectionMatchTuple -wafSqlInjectionMatchSetSqlInjectionMatchTuple fieldToMatcharg textTransformationarg = - WAFSqlInjectionMatchSetSqlInjectionMatchTuple - { _wAFSqlInjectionMatchSetSqlInjectionMatchTupleFieldToMatch = fieldToMatcharg - , _wAFSqlInjectionMatchSetSqlInjectionMatchTupleTextTransformation = textTransformationarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-sqlinjectionmatchset-sqlinjectionmatchtuples.html#cfn-waf-sqlinjectionmatchset-sqlinjectionmatchtuples-fieldtomatch -wafsimssimtFieldToMatch :: Lens' WAFSqlInjectionMatchSetSqlInjectionMatchTuple WAFSqlInjectionMatchSetFieldToMatch -wafsimssimtFieldToMatch = lens _wAFSqlInjectionMatchSetSqlInjectionMatchTupleFieldToMatch (\s a -> s { _wAFSqlInjectionMatchSetSqlInjectionMatchTupleFieldToMatch = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-sqlinjectionmatchset-sqlinjectionmatchtuples.html#cfn-waf-sqlinjectionmatchset-sqlinjectionmatchtuples-texttransformation -wafsimssimtTextTransformation :: Lens' WAFSqlInjectionMatchSetSqlInjectionMatchTuple (Val Text) -wafsimssimtTextTransformation = lens _wAFSqlInjectionMatchSetSqlInjectionMatchTupleTextTransformation (\s a -> s { _wAFSqlInjectionMatchSetSqlInjectionMatchTupleTextTransformation = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFWebACLActivatedRule.hs b/library-gen/Stratosphere/ResourceProperties/WAFWebACLActivatedRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFWebACLActivatedRule.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-webacl-rules.html - -module Stratosphere.ResourceProperties.WAFWebACLActivatedRule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFWebACLWafAction - --- | Full data type definition for WAFWebACLActivatedRule. See --- 'wafWebACLActivatedRule' for a more convenient constructor. -data WAFWebACLActivatedRule = - WAFWebACLActivatedRule - { _wAFWebACLActivatedRuleAction :: Maybe WAFWebACLWafAction - , _wAFWebACLActivatedRulePriority :: Val Integer - , _wAFWebACLActivatedRuleRuleId :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFWebACLActivatedRule where - toJSON WAFWebACLActivatedRule{..} = - object $ - catMaybes - [ fmap (("Action",) . toJSON) _wAFWebACLActivatedRuleAction - , (Just . ("Priority",) . toJSON) _wAFWebACLActivatedRulePriority - , (Just . ("RuleId",) . toJSON) _wAFWebACLActivatedRuleRuleId - ] - --- | Constructor for 'WAFWebACLActivatedRule' containing required fields as --- arguments. -wafWebACLActivatedRule - :: Val Integer -- ^ 'wafwaclarPriority' - -> Val Text -- ^ 'wafwaclarRuleId' - -> WAFWebACLActivatedRule -wafWebACLActivatedRule priorityarg ruleIdarg = - WAFWebACLActivatedRule - { _wAFWebACLActivatedRuleAction = Nothing - , _wAFWebACLActivatedRulePriority = priorityarg - , _wAFWebACLActivatedRuleRuleId = ruleIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-webacl-rules.html#cfn-waf-webacl-rules-action -wafwaclarAction :: Lens' WAFWebACLActivatedRule (Maybe WAFWebACLWafAction) -wafwaclarAction = lens _wAFWebACLActivatedRuleAction (\s a -> s { _wAFWebACLActivatedRuleAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-webacl-rules.html#cfn-waf-webacl-rules-priority -wafwaclarPriority :: Lens' WAFWebACLActivatedRule (Val Integer) -wafwaclarPriority = lens _wAFWebACLActivatedRulePriority (\s a -> s { _wAFWebACLActivatedRulePriority = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-webacl-rules.html#cfn-waf-webacl-rules-ruleid -wafwaclarRuleId :: Lens' WAFWebACLActivatedRule (Val Text) -wafwaclarRuleId = lens _wAFWebACLActivatedRuleRuleId (\s a -> s { _wAFWebACLActivatedRuleRuleId = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFWebACLWafAction.hs b/library-gen/Stratosphere/ResourceProperties/WAFWebACLWafAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFWebACLWafAction.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-webacl-action.html - -module Stratosphere.ResourceProperties.WAFWebACLWafAction where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFWebACLWafAction. See --- 'wafWebACLWafAction' for a more convenient constructor. -data WAFWebACLWafAction = - WAFWebACLWafAction - { _wAFWebACLWafActionType :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFWebACLWafAction where - toJSON WAFWebACLWafAction{..} = - object $ - catMaybes - [ (Just . ("Type",) . toJSON) _wAFWebACLWafActionType - ] - --- | Constructor for 'WAFWebACLWafAction' containing required fields as --- arguments. -wafWebACLWafAction - :: Val Text -- ^ 'wafwaclwaType' - -> WAFWebACLWafAction -wafWebACLWafAction typearg = - WAFWebACLWafAction - { _wAFWebACLWafActionType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-webacl-action.html#cfn-waf-webacl-action-type -wafwaclwaType :: Lens' WAFWebACLWafAction (Val Text) -wafwaclwaType = lens _wAFWebACLWafActionType (\s a -> s { _wAFWebACLWafActionType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFXssMatchSetFieldToMatch.hs b/library-gen/Stratosphere/ResourceProperties/WAFXssMatchSetFieldToMatch.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFXssMatchSetFieldToMatch.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-xssmatchset-xssmatchtuple-fieldtomatch.html - -module Stratosphere.ResourceProperties.WAFXssMatchSetFieldToMatch where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFXssMatchSetFieldToMatch. See --- 'wafXssMatchSetFieldToMatch' for a more convenient constructor. -data WAFXssMatchSetFieldToMatch = - WAFXssMatchSetFieldToMatch - { _wAFXssMatchSetFieldToMatchData :: Maybe (Val Text) - , _wAFXssMatchSetFieldToMatchType :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFXssMatchSetFieldToMatch where - toJSON WAFXssMatchSetFieldToMatch{..} = - object $ - catMaybes - [ fmap (("Data",) . toJSON) _wAFXssMatchSetFieldToMatchData - , (Just . ("Type",) . toJSON) _wAFXssMatchSetFieldToMatchType - ] - --- | Constructor for 'WAFXssMatchSetFieldToMatch' containing required fields --- as arguments. -wafXssMatchSetFieldToMatch - :: Val Text -- ^ 'wafxmsftmType' - -> WAFXssMatchSetFieldToMatch -wafXssMatchSetFieldToMatch typearg = - WAFXssMatchSetFieldToMatch - { _wAFXssMatchSetFieldToMatchData = Nothing - , _wAFXssMatchSetFieldToMatchType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-xssmatchset-xssmatchtuple-fieldtomatch.html#cfn-waf-xssmatchset-xssmatchtuple-fieldtomatch-data -wafxmsftmData :: Lens' WAFXssMatchSetFieldToMatch (Maybe (Val Text)) -wafxmsftmData = lens _wAFXssMatchSetFieldToMatchData (\s a -> s { _wAFXssMatchSetFieldToMatchData = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-xssmatchset-xssmatchtuple-fieldtomatch.html#cfn-waf-xssmatchset-xssmatchtuple-fieldtomatch-type -wafxmsftmType :: Lens' WAFXssMatchSetFieldToMatch (Val Text) -wafxmsftmType = lens _wAFXssMatchSetFieldToMatchType (\s a -> s { _wAFXssMatchSetFieldToMatchType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFXssMatchSetXssMatchTuple.hs b/library-gen/Stratosphere/ResourceProperties/WAFXssMatchSetXssMatchTuple.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFXssMatchSetXssMatchTuple.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-xssmatchset-xssmatchtuple.html - -module Stratosphere.ResourceProperties.WAFXssMatchSetXssMatchTuple where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFXssMatchSetFieldToMatch - --- | Full data type definition for WAFXssMatchSetXssMatchTuple. See --- 'wafXssMatchSetXssMatchTuple' for a more convenient constructor. -data WAFXssMatchSetXssMatchTuple = - WAFXssMatchSetXssMatchTuple - { _wAFXssMatchSetXssMatchTupleFieldToMatch :: WAFXssMatchSetFieldToMatch - , _wAFXssMatchSetXssMatchTupleTextTransformation :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFXssMatchSetXssMatchTuple where - toJSON WAFXssMatchSetXssMatchTuple{..} = - object $ - catMaybes - [ (Just . ("FieldToMatch",) . toJSON) _wAFXssMatchSetXssMatchTupleFieldToMatch - , (Just . ("TextTransformation",) . toJSON) _wAFXssMatchSetXssMatchTupleTextTransformation - ] - --- | Constructor for 'WAFXssMatchSetXssMatchTuple' containing required fields --- as arguments. -wafXssMatchSetXssMatchTuple - :: WAFXssMatchSetFieldToMatch -- ^ 'wafxmsxmtFieldToMatch' - -> Val Text -- ^ 'wafxmsxmtTextTransformation' - -> WAFXssMatchSetXssMatchTuple -wafXssMatchSetXssMatchTuple fieldToMatcharg textTransformationarg = - WAFXssMatchSetXssMatchTuple - { _wAFXssMatchSetXssMatchTupleFieldToMatch = fieldToMatcharg - , _wAFXssMatchSetXssMatchTupleTextTransformation = textTransformationarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-xssmatchset-xssmatchtuple.html#cfn-waf-xssmatchset-xssmatchtuple-fieldtomatch -wafxmsxmtFieldToMatch :: Lens' WAFXssMatchSetXssMatchTuple WAFXssMatchSetFieldToMatch -wafxmsxmtFieldToMatch = lens _wAFXssMatchSetXssMatchTupleFieldToMatch (\s a -> s { _wAFXssMatchSetXssMatchTupleFieldToMatch = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waf-xssmatchset-xssmatchtuple.html#cfn-waf-xssmatchset-xssmatchtuple-texttransformation -wafxmsxmtTextTransformation :: Lens' WAFXssMatchSetXssMatchTuple (Val Text) -wafxmsxmtTextTransformation = lens _wAFXssMatchSetXssMatchTupleTextTransformation (\s a -> s { _wAFXssMatchSetXssMatchTupleTextTransformation = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupAndStatementOne.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupAndStatementOne.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupAndStatementOne.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-andstatementone.html - -module Stratosphere.ResourceProperties.WAFv2RuleGroupAndStatementOne where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2RuleGroupStatementTwo - --- | Full data type definition for WAFv2RuleGroupAndStatementOne. See --- 'waFv2RuleGroupAndStatementOne' for a more convenient constructor. -data WAFv2RuleGroupAndStatementOne = - WAFv2RuleGroupAndStatementOne - { _wAFv2RuleGroupAndStatementOneStatements :: [WAFv2RuleGroupStatementTwo] - } deriving (Show, Eq) - -instance ToJSON WAFv2RuleGroupAndStatementOne where - toJSON WAFv2RuleGroupAndStatementOne{..} = - object $ - catMaybes - [ (Just . ("Statements",) . toJSON) _wAFv2RuleGroupAndStatementOneStatements - ] - --- | Constructor for 'WAFv2RuleGroupAndStatementOne' containing required --- fields as arguments. -waFv2RuleGroupAndStatementOne - :: [WAFv2RuleGroupStatementTwo] -- ^ 'wafrgasoStatements' - -> WAFv2RuleGroupAndStatementOne -waFv2RuleGroupAndStatementOne statementsarg = - WAFv2RuleGroupAndStatementOne - { _wAFv2RuleGroupAndStatementOneStatements = statementsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-andstatementone.html#cfn-wafv2-rulegroup-andstatementone-statements -wafrgasoStatements :: Lens' WAFv2RuleGroupAndStatementOne [WAFv2RuleGroupStatementTwo] -wafrgasoStatements = lens _wAFv2RuleGroupAndStatementOneStatements (\s a -> s { _wAFv2RuleGroupAndStatementOneStatements = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupAndStatementTwo.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupAndStatementTwo.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupAndStatementTwo.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-andstatementtwo.html - -module Stratosphere.ResourceProperties.WAFv2RuleGroupAndStatementTwo where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2RuleGroupStatementThree - --- | Full data type definition for WAFv2RuleGroupAndStatementTwo. See --- 'waFv2RuleGroupAndStatementTwo' for a more convenient constructor. -data WAFv2RuleGroupAndStatementTwo = - WAFv2RuleGroupAndStatementTwo - { _wAFv2RuleGroupAndStatementTwoStatements :: [WAFv2RuleGroupStatementThree] - } deriving (Show, Eq) - -instance ToJSON WAFv2RuleGroupAndStatementTwo where - toJSON WAFv2RuleGroupAndStatementTwo{..} = - object $ - catMaybes - [ (Just . ("Statements",) . toJSON) _wAFv2RuleGroupAndStatementTwoStatements - ] - --- | Constructor for 'WAFv2RuleGroupAndStatementTwo' containing required --- fields as arguments. -waFv2RuleGroupAndStatementTwo - :: [WAFv2RuleGroupStatementThree] -- ^ 'wafrgastStatements' - -> WAFv2RuleGroupAndStatementTwo -waFv2RuleGroupAndStatementTwo statementsarg = - WAFv2RuleGroupAndStatementTwo - { _wAFv2RuleGroupAndStatementTwoStatements = statementsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-andstatementtwo.html#cfn-wafv2-rulegroup-andstatementtwo-statements -wafrgastStatements :: Lens' WAFv2RuleGroupAndStatementTwo [WAFv2RuleGroupStatementThree] -wafrgastStatements = lens _wAFv2RuleGroupAndStatementTwoStatements (\s a -> s { _wAFv2RuleGroupAndStatementTwoStatements = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupByteMatchStatement.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupByteMatchStatement.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupByteMatchStatement.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-bytematchstatement.html - -module Stratosphere.ResourceProperties.WAFv2RuleGroupByteMatchStatement where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2RuleGroupFieldToMatch -import Stratosphere.ResourceProperties.WAFv2RuleGroupTextTransformation - --- | Full data type definition for WAFv2RuleGroupByteMatchStatement. See --- 'waFv2RuleGroupByteMatchStatement' for a more convenient constructor. -data WAFv2RuleGroupByteMatchStatement = - WAFv2RuleGroupByteMatchStatement - { _wAFv2RuleGroupByteMatchStatementFieldToMatch :: WAFv2RuleGroupFieldToMatch - , _wAFv2RuleGroupByteMatchStatementPositionalConstraint :: Val Text - , _wAFv2RuleGroupByteMatchStatementSearchString :: Maybe (Val Text) - , _wAFv2RuleGroupByteMatchStatementSearchStringBase64 :: Maybe (Val Text) - , _wAFv2RuleGroupByteMatchStatementTextTransformations :: [WAFv2RuleGroupTextTransformation] - } deriving (Show, Eq) - -instance ToJSON WAFv2RuleGroupByteMatchStatement where - toJSON WAFv2RuleGroupByteMatchStatement{..} = - object $ - catMaybes - [ (Just . ("FieldToMatch",) . toJSON) _wAFv2RuleGroupByteMatchStatementFieldToMatch - , (Just . ("PositionalConstraint",) . toJSON) _wAFv2RuleGroupByteMatchStatementPositionalConstraint - , fmap (("SearchString",) . toJSON) _wAFv2RuleGroupByteMatchStatementSearchString - , fmap (("SearchStringBase64",) . toJSON) _wAFv2RuleGroupByteMatchStatementSearchStringBase64 - , (Just . ("TextTransformations",) . toJSON) _wAFv2RuleGroupByteMatchStatementTextTransformations - ] - --- | Constructor for 'WAFv2RuleGroupByteMatchStatement' containing required --- fields as arguments. -waFv2RuleGroupByteMatchStatement - :: WAFv2RuleGroupFieldToMatch -- ^ 'wafrgbmsFieldToMatch' - -> Val Text -- ^ 'wafrgbmsPositionalConstraint' - -> [WAFv2RuleGroupTextTransformation] -- ^ 'wafrgbmsTextTransformations' - -> WAFv2RuleGroupByteMatchStatement -waFv2RuleGroupByteMatchStatement fieldToMatcharg positionalConstraintarg textTransformationsarg = - WAFv2RuleGroupByteMatchStatement - { _wAFv2RuleGroupByteMatchStatementFieldToMatch = fieldToMatcharg - , _wAFv2RuleGroupByteMatchStatementPositionalConstraint = positionalConstraintarg - , _wAFv2RuleGroupByteMatchStatementSearchString = Nothing - , _wAFv2RuleGroupByteMatchStatementSearchStringBase64 = Nothing - , _wAFv2RuleGroupByteMatchStatementTextTransformations = textTransformationsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-bytematchstatement.html#cfn-wafv2-rulegroup-bytematchstatement-fieldtomatch -wafrgbmsFieldToMatch :: Lens' WAFv2RuleGroupByteMatchStatement WAFv2RuleGroupFieldToMatch -wafrgbmsFieldToMatch = lens _wAFv2RuleGroupByteMatchStatementFieldToMatch (\s a -> s { _wAFv2RuleGroupByteMatchStatementFieldToMatch = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-bytematchstatement.html#cfn-wafv2-rulegroup-bytematchstatement-positionalconstraint -wafrgbmsPositionalConstraint :: Lens' WAFv2RuleGroupByteMatchStatement (Val Text) -wafrgbmsPositionalConstraint = lens _wAFv2RuleGroupByteMatchStatementPositionalConstraint (\s a -> s { _wAFv2RuleGroupByteMatchStatementPositionalConstraint = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-bytematchstatement.html#cfn-wafv2-rulegroup-bytematchstatement-searchstring -wafrgbmsSearchString :: Lens' WAFv2RuleGroupByteMatchStatement (Maybe (Val Text)) -wafrgbmsSearchString = lens _wAFv2RuleGroupByteMatchStatementSearchString (\s a -> s { _wAFv2RuleGroupByteMatchStatementSearchString = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-bytematchstatement.html#cfn-wafv2-rulegroup-bytematchstatement-searchstringbase64 -wafrgbmsSearchStringBase64 :: Lens' WAFv2RuleGroupByteMatchStatement (Maybe (Val Text)) -wafrgbmsSearchStringBase64 = lens _wAFv2RuleGroupByteMatchStatementSearchStringBase64 (\s a -> s { _wAFv2RuleGroupByteMatchStatementSearchStringBase64 = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-bytematchstatement.html#cfn-wafv2-rulegroup-bytematchstatement-texttransformations -wafrgbmsTextTransformations :: Lens' WAFv2RuleGroupByteMatchStatement [WAFv2RuleGroupTextTransformation] -wafrgbmsTextTransformations = lens _wAFv2RuleGroupByteMatchStatementTextTransformations (\s a -> s { _wAFv2RuleGroupByteMatchStatementTextTransformations = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupFieldToMatch.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupFieldToMatch.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupFieldToMatch.hs +++ /dev/null @@ -1,80 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-fieldtomatch.html - -module Stratosphere.ResourceProperties.WAFv2RuleGroupFieldToMatch where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFv2RuleGroupFieldToMatch. See --- 'waFv2RuleGroupFieldToMatch' for a more convenient constructor. -data WAFv2RuleGroupFieldToMatch = - WAFv2RuleGroupFieldToMatch - { _wAFv2RuleGroupFieldToMatchAllQueryArguments :: Maybe Object - , _wAFv2RuleGroupFieldToMatchBody :: Maybe Object - , _wAFv2RuleGroupFieldToMatchMethod :: Maybe Object - , _wAFv2RuleGroupFieldToMatchQueryString :: Maybe Object - , _wAFv2RuleGroupFieldToMatchSingleHeader :: Maybe Object - , _wAFv2RuleGroupFieldToMatchSingleQueryArgument :: Maybe Object - , _wAFv2RuleGroupFieldToMatchUriPath :: Maybe Object - } deriving (Show, Eq) - -instance ToJSON WAFv2RuleGroupFieldToMatch where - toJSON WAFv2RuleGroupFieldToMatch{..} = - object $ - catMaybes - [ fmap (("AllQueryArguments",) . toJSON) _wAFv2RuleGroupFieldToMatchAllQueryArguments - , fmap (("Body",) . toJSON) _wAFv2RuleGroupFieldToMatchBody - , fmap (("Method",) . toJSON) _wAFv2RuleGroupFieldToMatchMethod - , fmap (("QueryString",) . toJSON) _wAFv2RuleGroupFieldToMatchQueryString - , fmap (("SingleHeader",) . toJSON) _wAFv2RuleGroupFieldToMatchSingleHeader - , fmap (("SingleQueryArgument",) . toJSON) _wAFv2RuleGroupFieldToMatchSingleQueryArgument - , fmap (("UriPath",) . toJSON) _wAFv2RuleGroupFieldToMatchUriPath - ] - --- | Constructor for 'WAFv2RuleGroupFieldToMatch' containing required fields --- as arguments. -waFv2RuleGroupFieldToMatch - :: WAFv2RuleGroupFieldToMatch -waFv2RuleGroupFieldToMatch = - WAFv2RuleGroupFieldToMatch - { _wAFv2RuleGroupFieldToMatchAllQueryArguments = Nothing - , _wAFv2RuleGroupFieldToMatchBody = Nothing - , _wAFv2RuleGroupFieldToMatchMethod = Nothing - , _wAFv2RuleGroupFieldToMatchQueryString = Nothing - , _wAFv2RuleGroupFieldToMatchSingleHeader = Nothing - , _wAFv2RuleGroupFieldToMatchSingleQueryArgument = Nothing - , _wAFv2RuleGroupFieldToMatchUriPath = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-fieldtomatch.html#cfn-wafv2-rulegroup-fieldtomatch-allqueryarguments -wafrgftmAllQueryArguments :: Lens' WAFv2RuleGroupFieldToMatch (Maybe Object) -wafrgftmAllQueryArguments = lens _wAFv2RuleGroupFieldToMatchAllQueryArguments (\s a -> s { _wAFv2RuleGroupFieldToMatchAllQueryArguments = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-fieldtomatch.html#cfn-wafv2-rulegroup-fieldtomatch-body -wafrgftmBody :: Lens' WAFv2RuleGroupFieldToMatch (Maybe Object) -wafrgftmBody = lens _wAFv2RuleGroupFieldToMatchBody (\s a -> s { _wAFv2RuleGroupFieldToMatchBody = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-fieldtomatch.html#cfn-wafv2-rulegroup-fieldtomatch-method -wafrgftmMethod :: Lens' WAFv2RuleGroupFieldToMatch (Maybe Object) -wafrgftmMethod = lens _wAFv2RuleGroupFieldToMatchMethod (\s a -> s { _wAFv2RuleGroupFieldToMatchMethod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-fieldtomatch.html#cfn-wafv2-rulegroup-fieldtomatch-querystring -wafrgftmQueryString :: Lens' WAFv2RuleGroupFieldToMatch (Maybe Object) -wafrgftmQueryString = lens _wAFv2RuleGroupFieldToMatchQueryString (\s a -> s { _wAFv2RuleGroupFieldToMatchQueryString = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-fieldtomatch.html#cfn-wafv2-rulegroup-fieldtomatch-singleheader -wafrgftmSingleHeader :: Lens' WAFv2RuleGroupFieldToMatch (Maybe Object) -wafrgftmSingleHeader = lens _wAFv2RuleGroupFieldToMatchSingleHeader (\s a -> s { _wAFv2RuleGroupFieldToMatchSingleHeader = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-fieldtomatch.html#cfn-wafv2-rulegroup-fieldtomatch-singlequeryargument -wafrgftmSingleQueryArgument :: Lens' WAFv2RuleGroupFieldToMatch (Maybe Object) -wafrgftmSingleQueryArgument = lens _wAFv2RuleGroupFieldToMatchSingleQueryArgument (\s a -> s { _wAFv2RuleGroupFieldToMatchSingleQueryArgument = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-fieldtomatch.html#cfn-wafv2-rulegroup-fieldtomatch-uripath -wafrgftmUriPath :: Lens' WAFv2RuleGroupFieldToMatch (Maybe Object) -wafrgftmUriPath = lens _wAFv2RuleGroupFieldToMatchUriPath (\s a -> s { _wAFv2RuleGroupFieldToMatchUriPath = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupForwardedIPConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupForwardedIPConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupForwardedIPConfiguration.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-forwardedipconfiguration.html - -module Stratosphere.ResourceProperties.WAFv2RuleGroupForwardedIPConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFv2RuleGroupForwardedIPConfiguration. See --- 'waFv2RuleGroupForwardedIPConfiguration' for a more convenient --- constructor. -data WAFv2RuleGroupForwardedIPConfiguration = - WAFv2RuleGroupForwardedIPConfiguration - { _wAFv2RuleGroupForwardedIPConfigurationFallbackBehavior :: Val Text - , _wAFv2RuleGroupForwardedIPConfigurationHeaderName :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFv2RuleGroupForwardedIPConfiguration where - toJSON WAFv2RuleGroupForwardedIPConfiguration{..} = - object $ - catMaybes - [ (Just . ("FallbackBehavior",) . toJSON) _wAFv2RuleGroupForwardedIPConfigurationFallbackBehavior - , (Just . ("HeaderName",) . toJSON) _wAFv2RuleGroupForwardedIPConfigurationHeaderName - ] - --- | Constructor for 'WAFv2RuleGroupForwardedIPConfiguration' containing --- required fields as arguments. -waFv2RuleGroupForwardedIPConfiguration - :: Val Text -- ^ 'wafrgfipcFallbackBehavior' - -> Val Text -- ^ 'wafrgfipcHeaderName' - -> WAFv2RuleGroupForwardedIPConfiguration -waFv2RuleGroupForwardedIPConfiguration fallbackBehaviorarg headerNamearg = - WAFv2RuleGroupForwardedIPConfiguration - { _wAFv2RuleGroupForwardedIPConfigurationFallbackBehavior = fallbackBehaviorarg - , _wAFv2RuleGroupForwardedIPConfigurationHeaderName = headerNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-forwardedipconfiguration.html#cfn-wafv2-rulegroup-forwardedipconfiguration-fallbackbehavior -wafrgfipcFallbackBehavior :: Lens' WAFv2RuleGroupForwardedIPConfiguration (Val Text) -wafrgfipcFallbackBehavior = lens _wAFv2RuleGroupForwardedIPConfigurationFallbackBehavior (\s a -> s { _wAFv2RuleGroupForwardedIPConfigurationFallbackBehavior = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-forwardedipconfiguration.html#cfn-wafv2-rulegroup-forwardedipconfiguration-headername -wafrgfipcHeaderName :: Lens' WAFv2RuleGroupForwardedIPConfiguration (Val Text) -wafrgfipcHeaderName = lens _wAFv2RuleGroupForwardedIPConfigurationHeaderName (\s a -> s { _wAFv2RuleGroupForwardedIPConfigurationHeaderName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupGeoMatchStatement.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupGeoMatchStatement.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupGeoMatchStatement.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-geomatchstatement.html - -module Stratosphere.ResourceProperties.WAFv2RuleGroupGeoMatchStatement where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2RuleGroupForwardedIPConfiguration - --- | Full data type definition for WAFv2RuleGroupGeoMatchStatement. See --- 'waFv2RuleGroupGeoMatchStatement' for a more convenient constructor. -data WAFv2RuleGroupGeoMatchStatement = - WAFv2RuleGroupGeoMatchStatement - { _wAFv2RuleGroupGeoMatchStatementCountryCodes :: Maybe (ValList Text) - , _wAFv2RuleGroupGeoMatchStatementForwardedIPConfig :: Maybe WAFv2RuleGroupForwardedIPConfiguration - } deriving (Show, Eq) - -instance ToJSON WAFv2RuleGroupGeoMatchStatement where - toJSON WAFv2RuleGroupGeoMatchStatement{..} = - object $ - catMaybes - [ fmap (("CountryCodes",) . toJSON) _wAFv2RuleGroupGeoMatchStatementCountryCodes - , fmap (("ForwardedIPConfig",) . toJSON) _wAFv2RuleGroupGeoMatchStatementForwardedIPConfig - ] - --- | Constructor for 'WAFv2RuleGroupGeoMatchStatement' containing required --- fields as arguments. -waFv2RuleGroupGeoMatchStatement - :: WAFv2RuleGroupGeoMatchStatement -waFv2RuleGroupGeoMatchStatement = - WAFv2RuleGroupGeoMatchStatement - { _wAFv2RuleGroupGeoMatchStatementCountryCodes = Nothing - , _wAFv2RuleGroupGeoMatchStatementForwardedIPConfig = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-geomatchstatement.html#cfn-wafv2-rulegroup-geomatchstatement-countrycodes -wafrggmsCountryCodes :: Lens' WAFv2RuleGroupGeoMatchStatement (Maybe (ValList Text)) -wafrggmsCountryCodes = lens _wAFv2RuleGroupGeoMatchStatementCountryCodes (\s a -> s { _wAFv2RuleGroupGeoMatchStatementCountryCodes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-geomatchstatement.html#cfn-wafv2-rulegroup-geomatchstatement-forwardedipconfig -wafrggmsForwardedIPConfig :: Lens' WAFv2RuleGroupGeoMatchStatement (Maybe WAFv2RuleGroupForwardedIPConfiguration) -wafrggmsForwardedIPConfig = lens _wAFv2RuleGroupGeoMatchStatementForwardedIPConfig (\s a -> s { _wAFv2RuleGroupGeoMatchStatementForwardedIPConfig = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupIPSetForwardedIPConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupIPSetForwardedIPConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupIPSetForwardedIPConfiguration.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ipsetforwardedipconfiguration.html - -module Stratosphere.ResourceProperties.WAFv2RuleGroupIPSetForwardedIPConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- WAFv2RuleGroupIPSetForwardedIPConfiguration. See --- 'waFv2RuleGroupIPSetForwardedIPConfiguration' for a more convenient --- constructor. -data WAFv2RuleGroupIPSetForwardedIPConfiguration = - WAFv2RuleGroupIPSetForwardedIPConfiguration - { _wAFv2RuleGroupIPSetForwardedIPConfigurationFallbackBehavior :: Val Text - , _wAFv2RuleGroupIPSetForwardedIPConfigurationHeaderName :: Val Text - , _wAFv2RuleGroupIPSetForwardedIPConfigurationPosition :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFv2RuleGroupIPSetForwardedIPConfiguration where - toJSON WAFv2RuleGroupIPSetForwardedIPConfiguration{..} = - object $ - catMaybes - [ (Just . ("FallbackBehavior",) . toJSON) _wAFv2RuleGroupIPSetForwardedIPConfigurationFallbackBehavior - , (Just . ("HeaderName",) . toJSON) _wAFv2RuleGroupIPSetForwardedIPConfigurationHeaderName - , (Just . ("Position",) . toJSON) _wAFv2RuleGroupIPSetForwardedIPConfigurationPosition - ] - --- | Constructor for 'WAFv2RuleGroupIPSetForwardedIPConfiguration' containing --- required fields as arguments. -waFv2RuleGroupIPSetForwardedIPConfiguration - :: Val Text -- ^ 'wafrgipsfipcFallbackBehavior' - -> Val Text -- ^ 'wafrgipsfipcHeaderName' - -> Val Text -- ^ 'wafrgipsfipcPosition' - -> WAFv2RuleGroupIPSetForwardedIPConfiguration -waFv2RuleGroupIPSetForwardedIPConfiguration fallbackBehaviorarg headerNamearg positionarg = - WAFv2RuleGroupIPSetForwardedIPConfiguration - { _wAFv2RuleGroupIPSetForwardedIPConfigurationFallbackBehavior = fallbackBehaviorarg - , _wAFv2RuleGroupIPSetForwardedIPConfigurationHeaderName = headerNamearg - , _wAFv2RuleGroupIPSetForwardedIPConfigurationPosition = positionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ipsetforwardedipconfiguration.html#cfn-wafv2-rulegroup-ipsetforwardedipconfiguration-fallbackbehavior -wafrgipsfipcFallbackBehavior :: Lens' WAFv2RuleGroupIPSetForwardedIPConfiguration (Val Text) -wafrgipsfipcFallbackBehavior = lens _wAFv2RuleGroupIPSetForwardedIPConfigurationFallbackBehavior (\s a -> s { _wAFv2RuleGroupIPSetForwardedIPConfigurationFallbackBehavior = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ipsetforwardedipconfiguration.html#cfn-wafv2-rulegroup-ipsetforwardedipconfiguration-headername -wafrgipsfipcHeaderName :: Lens' WAFv2RuleGroupIPSetForwardedIPConfiguration (Val Text) -wafrgipsfipcHeaderName = lens _wAFv2RuleGroupIPSetForwardedIPConfigurationHeaderName (\s a -> s { _wAFv2RuleGroupIPSetForwardedIPConfigurationHeaderName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ipsetforwardedipconfiguration.html#cfn-wafv2-rulegroup-ipsetforwardedipconfiguration-position -wafrgipsfipcPosition :: Lens' WAFv2RuleGroupIPSetForwardedIPConfiguration (Val Text) -wafrgipsfipcPosition = lens _wAFv2RuleGroupIPSetForwardedIPConfigurationPosition (\s a -> s { _wAFv2RuleGroupIPSetForwardedIPConfigurationPosition = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupIPSetReferenceStatement.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupIPSetReferenceStatement.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupIPSetReferenceStatement.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ipsetreferencestatement.html - -module Stratosphere.ResourceProperties.WAFv2RuleGroupIPSetReferenceStatement where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2RuleGroupIPSetForwardedIPConfiguration - --- | Full data type definition for WAFv2RuleGroupIPSetReferenceStatement. See --- 'waFv2RuleGroupIPSetReferenceStatement' for a more convenient --- constructor. -data WAFv2RuleGroupIPSetReferenceStatement = - WAFv2RuleGroupIPSetReferenceStatement - { _wAFv2RuleGroupIPSetReferenceStatementArn :: Val Text - , _wAFv2RuleGroupIPSetReferenceStatementIPSetForwardedIPConfig :: Maybe WAFv2RuleGroupIPSetForwardedIPConfiguration - } deriving (Show, Eq) - -instance ToJSON WAFv2RuleGroupIPSetReferenceStatement where - toJSON WAFv2RuleGroupIPSetReferenceStatement{..} = - object $ - catMaybes - [ (Just . ("Arn",) . toJSON) _wAFv2RuleGroupIPSetReferenceStatementArn - , fmap (("IPSetForwardedIPConfig",) . toJSON) _wAFv2RuleGroupIPSetReferenceStatementIPSetForwardedIPConfig - ] - --- | Constructor for 'WAFv2RuleGroupIPSetReferenceStatement' containing --- required fields as arguments. -waFv2RuleGroupIPSetReferenceStatement - :: Val Text -- ^ 'wafrgipsrsArn' - -> WAFv2RuleGroupIPSetReferenceStatement -waFv2RuleGroupIPSetReferenceStatement arnarg = - WAFv2RuleGroupIPSetReferenceStatement - { _wAFv2RuleGroupIPSetReferenceStatementArn = arnarg - , _wAFv2RuleGroupIPSetReferenceStatementIPSetForwardedIPConfig = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ipsetreferencestatement.html#cfn-wafv2-rulegroup-ipsetreferencestatement-arn -wafrgipsrsArn :: Lens' WAFv2RuleGroupIPSetReferenceStatement (Val Text) -wafrgipsrsArn = lens _wAFv2RuleGroupIPSetReferenceStatementArn (\s a -> s { _wAFv2RuleGroupIPSetReferenceStatementArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ipsetreferencestatement.html#cfn-wafv2-rulegroup-ipsetreferencestatement-ipsetforwardedipconfig -wafrgipsrsIPSetForwardedIPConfig :: Lens' WAFv2RuleGroupIPSetReferenceStatement (Maybe WAFv2RuleGroupIPSetForwardedIPConfiguration) -wafrgipsrsIPSetForwardedIPConfig = lens _wAFv2RuleGroupIPSetReferenceStatementIPSetForwardedIPConfig (\s a -> s { _wAFv2RuleGroupIPSetReferenceStatementIPSetForwardedIPConfig = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupNotStatementOne.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupNotStatementOne.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupNotStatementOne.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-notstatementone.html - -module Stratosphere.ResourceProperties.WAFv2RuleGroupNotStatementOne where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2RuleGroupStatementTwo - --- | Full data type definition for WAFv2RuleGroupNotStatementOne. See --- 'waFv2RuleGroupNotStatementOne' for a more convenient constructor. -data WAFv2RuleGroupNotStatementOne = - WAFv2RuleGroupNotStatementOne - { _wAFv2RuleGroupNotStatementOneStatement :: WAFv2RuleGroupStatementTwo - } deriving (Show, Eq) - -instance ToJSON WAFv2RuleGroupNotStatementOne where - toJSON WAFv2RuleGroupNotStatementOne{..} = - object $ - catMaybes - [ (Just . ("Statement",) . toJSON) _wAFv2RuleGroupNotStatementOneStatement - ] - --- | Constructor for 'WAFv2RuleGroupNotStatementOne' containing required --- fields as arguments. -waFv2RuleGroupNotStatementOne - :: WAFv2RuleGroupStatementTwo -- ^ 'wafrgnsoStatement' - -> WAFv2RuleGroupNotStatementOne -waFv2RuleGroupNotStatementOne statementarg = - WAFv2RuleGroupNotStatementOne - { _wAFv2RuleGroupNotStatementOneStatement = statementarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-notstatementone.html#cfn-wafv2-rulegroup-notstatementone-statement -wafrgnsoStatement :: Lens' WAFv2RuleGroupNotStatementOne WAFv2RuleGroupStatementTwo -wafrgnsoStatement = lens _wAFv2RuleGroupNotStatementOneStatement (\s a -> s { _wAFv2RuleGroupNotStatementOneStatement = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupNotStatementTwo.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupNotStatementTwo.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupNotStatementTwo.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-notstatementtwo.html - -module Stratosphere.ResourceProperties.WAFv2RuleGroupNotStatementTwo where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2RuleGroupStatementThree - --- | Full data type definition for WAFv2RuleGroupNotStatementTwo. See --- 'waFv2RuleGroupNotStatementTwo' for a more convenient constructor. -data WAFv2RuleGroupNotStatementTwo = - WAFv2RuleGroupNotStatementTwo - { _wAFv2RuleGroupNotStatementTwoStatement :: WAFv2RuleGroupStatementThree - } deriving (Show, Eq) - -instance ToJSON WAFv2RuleGroupNotStatementTwo where - toJSON WAFv2RuleGroupNotStatementTwo{..} = - object $ - catMaybes - [ (Just . ("Statement",) . toJSON) _wAFv2RuleGroupNotStatementTwoStatement - ] - --- | Constructor for 'WAFv2RuleGroupNotStatementTwo' containing required --- fields as arguments. -waFv2RuleGroupNotStatementTwo - :: WAFv2RuleGroupStatementThree -- ^ 'wafrgnstStatement' - -> WAFv2RuleGroupNotStatementTwo -waFv2RuleGroupNotStatementTwo statementarg = - WAFv2RuleGroupNotStatementTwo - { _wAFv2RuleGroupNotStatementTwoStatement = statementarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-notstatementtwo.html#cfn-wafv2-rulegroup-notstatementtwo-statement -wafrgnstStatement :: Lens' WAFv2RuleGroupNotStatementTwo WAFv2RuleGroupStatementThree -wafrgnstStatement = lens _wAFv2RuleGroupNotStatementTwoStatement (\s a -> s { _wAFv2RuleGroupNotStatementTwoStatement = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupOrStatementOne.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupOrStatementOne.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupOrStatementOne.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-orstatementone.html - -module Stratosphere.ResourceProperties.WAFv2RuleGroupOrStatementOne where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2RuleGroupStatementTwo - --- | Full data type definition for WAFv2RuleGroupOrStatementOne. See --- 'waFv2RuleGroupOrStatementOne' for a more convenient constructor. -data WAFv2RuleGroupOrStatementOne = - WAFv2RuleGroupOrStatementOne - { _wAFv2RuleGroupOrStatementOneStatements :: [WAFv2RuleGroupStatementTwo] - } deriving (Show, Eq) - -instance ToJSON WAFv2RuleGroupOrStatementOne where - toJSON WAFv2RuleGroupOrStatementOne{..} = - object $ - catMaybes - [ (Just . ("Statements",) . toJSON) _wAFv2RuleGroupOrStatementOneStatements - ] - --- | Constructor for 'WAFv2RuleGroupOrStatementOne' containing required fields --- as arguments. -waFv2RuleGroupOrStatementOne - :: [WAFv2RuleGroupStatementTwo] -- ^ 'wafrgosoStatements' - -> WAFv2RuleGroupOrStatementOne -waFv2RuleGroupOrStatementOne statementsarg = - WAFv2RuleGroupOrStatementOne - { _wAFv2RuleGroupOrStatementOneStatements = statementsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-orstatementone.html#cfn-wafv2-rulegroup-orstatementone-statements -wafrgosoStatements :: Lens' WAFv2RuleGroupOrStatementOne [WAFv2RuleGroupStatementTwo] -wafrgosoStatements = lens _wAFv2RuleGroupOrStatementOneStatements (\s a -> s { _wAFv2RuleGroupOrStatementOneStatements = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupOrStatementTwo.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupOrStatementTwo.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupOrStatementTwo.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-orstatementtwo.html - -module Stratosphere.ResourceProperties.WAFv2RuleGroupOrStatementTwo where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2RuleGroupStatementThree - --- | Full data type definition for WAFv2RuleGroupOrStatementTwo. See --- 'waFv2RuleGroupOrStatementTwo' for a more convenient constructor. -data WAFv2RuleGroupOrStatementTwo = - WAFv2RuleGroupOrStatementTwo - { _wAFv2RuleGroupOrStatementTwoStatements :: [WAFv2RuleGroupStatementThree] - } deriving (Show, Eq) - -instance ToJSON WAFv2RuleGroupOrStatementTwo where - toJSON WAFv2RuleGroupOrStatementTwo{..} = - object $ - catMaybes - [ (Just . ("Statements",) . toJSON) _wAFv2RuleGroupOrStatementTwoStatements - ] - --- | Constructor for 'WAFv2RuleGroupOrStatementTwo' containing required fields --- as arguments. -waFv2RuleGroupOrStatementTwo - :: [WAFv2RuleGroupStatementThree] -- ^ 'wafrgostStatements' - -> WAFv2RuleGroupOrStatementTwo -waFv2RuleGroupOrStatementTwo statementsarg = - WAFv2RuleGroupOrStatementTwo - { _wAFv2RuleGroupOrStatementTwoStatements = statementsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-orstatementtwo.html#cfn-wafv2-rulegroup-orstatementtwo-statements -wafrgostStatements :: Lens' WAFv2RuleGroupOrStatementTwo [WAFv2RuleGroupStatementThree] -wafrgostStatements = lens _wAFv2RuleGroupOrStatementTwoStatements (\s a -> s { _wAFv2RuleGroupOrStatementTwoStatements = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupRateBasedStatementOne.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupRateBasedStatementOne.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupRateBasedStatementOne.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ratebasedstatementone.html - -module Stratosphere.ResourceProperties.WAFv2RuleGroupRateBasedStatementOne where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2RuleGroupForwardedIPConfiguration -import Stratosphere.ResourceProperties.WAFv2RuleGroupStatementTwo - --- | Full data type definition for WAFv2RuleGroupRateBasedStatementOne. See --- 'waFv2RuleGroupRateBasedStatementOne' for a more convenient constructor. -data WAFv2RuleGroupRateBasedStatementOne = - WAFv2RuleGroupRateBasedStatementOne - { _wAFv2RuleGroupRateBasedStatementOneAggregateKeyType :: Val Text - , _wAFv2RuleGroupRateBasedStatementOneForwardedIPConfig :: Maybe WAFv2RuleGroupForwardedIPConfiguration - , _wAFv2RuleGroupRateBasedStatementOneLimit :: Val Integer - , _wAFv2RuleGroupRateBasedStatementOneScopeDownStatement :: Maybe WAFv2RuleGroupStatementTwo - } deriving (Show, Eq) - -instance ToJSON WAFv2RuleGroupRateBasedStatementOne where - toJSON WAFv2RuleGroupRateBasedStatementOne{..} = - object $ - catMaybes - [ (Just . ("AggregateKeyType",) . toJSON) _wAFv2RuleGroupRateBasedStatementOneAggregateKeyType - , fmap (("ForwardedIPConfig",) . toJSON) _wAFv2RuleGroupRateBasedStatementOneForwardedIPConfig - , (Just . ("Limit",) . toJSON) _wAFv2RuleGroupRateBasedStatementOneLimit - , fmap (("ScopeDownStatement",) . toJSON) _wAFv2RuleGroupRateBasedStatementOneScopeDownStatement - ] - --- | Constructor for 'WAFv2RuleGroupRateBasedStatementOne' containing required --- fields as arguments. -waFv2RuleGroupRateBasedStatementOne - :: Val Text -- ^ 'wafrgrbsoAggregateKeyType' - -> Val Integer -- ^ 'wafrgrbsoLimit' - -> WAFv2RuleGroupRateBasedStatementOne -waFv2RuleGroupRateBasedStatementOne aggregateKeyTypearg limitarg = - WAFv2RuleGroupRateBasedStatementOne - { _wAFv2RuleGroupRateBasedStatementOneAggregateKeyType = aggregateKeyTypearg - , _wAFv2RuleGroupRateBasedStatementOneForwardedIPConfig = Nothing - , _wAFv2RuleGroupRateBasedStatementOneLimit = limitarg - , _wAFv2RuleGroupRateBasedStatementOneScopeDownStatement = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ratebasedstatementone.html#cfn-wafv2-rulegroup-ratebasedstatementone-aggregatekeytype -wafrgrbsoAggregateKeyType :: Lens' WAFv2RuleGroupRateBasedStatementOne (Val Text) -wafrgrbsoAggregateKeyType = lens _wAFv2RuleGroupRateBasedStatementOneAggregateKeyType (\s a -> s { _wAFv2RuleGroupRateBasedStatementOneAggregateKeyType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ratebasedstatementone.html#cfn-wafv2-rulegroup-ratebasedstatementone-forwardedipconfig -wafrgrbsoForwardedIPConfig :: Lens' WAFv2RuleGroupRateBasedStatementOne (Maybe WAFv2RuleGroupForwardedIPConfiguration) -wafrgrbsoForwardedIPConfig = lens _wAFv2RuleGroupRateBasedStatementOneForwardedIPConfig (\s a -> s { _wAFv2RuleGroupRateBasedStatementOneForwardedIPConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ratebasedstatementone.html#cfn-wafv2-rulegroup-ratebasedstatementone-limit -wafrgrbsoLimit :: Lens' WAFv2RuleGroupRateBasedStatementOne (Val Integer) -wafrgrbsoLimit = lens _wAFv2RuleGroupRateBasedStatementOneLimit (\s a -> s { _wAFv2RuleGroupRateBasedStatementOneLimit = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ratebasedstatementone.html#cfn-wafv2-rulegroup-ratebasedstatementone-scopedownstatement -wafrgrbsoScopeDownStatement :: Lens' WAFv2RuleGroupRateBasedStatementOne (Maybe WAFv2RuleGroupStatementTwo) -wafrgrbsoScopeDownStatement = lens _wAFv2RuleGroupRateBasedStatementOneScopeDownStatement (\s a -> s { _wAFv2RuleGroupRateBasedStatementOneScopeDownStatement = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupRateBasedStatementTwo.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupRateBasedStatementTwo.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupRateBasedStatementTwo.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ratebasedstatementtwo.html - -module Stratosphere.ResourceProperties.WAFv2RuleGroupRateBasedStatementTwo where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2RuleGroupForwardedIPConfiguration -import Stratosphere.ResourceProperties.WAFv2RuleGroupStatementThree - --- | Full data type definition for WAFv2RuleGroupRateBasedStatementTwo. See --- 'waFv2RuleGroupRateBasedStatementTwo' for a more convenient constructor. -data WAFv2RuleGroupRateBasedStatementTwo = - WAFv2RuleGroupRateBasedStatementTwo - { _wAFv2RuleGroupRateBasedStatementTwoAggregateKeyType :: Val Text - , _wAFv2RuleGroupRateBasedStatementTwoForwardedIPConfig :: Maybe WAFv2RuleGroupForwardedIPConfiguration - , _wAFv2RuleGroupRateBasedStatementTwoLimit :: Val Integer - , _wAFv2RuleGroupRateBasedStatementTwoScopeDownStatement :: Maybe WAFv2RuleGroupStatementThree - } deriving (Show, Eq) - -instance ToJSON WAFv2RuleGroupRateBasedStatementTwo where - toJSON WAFv2RuleGroupRateBasedStatementTwo{..} = - object $ - catMaybes - [ (Just . ("AggregateKeyType",) . toJSON) _wAFv2RuleGroupRateBasedStatementTwoAggregateKeyType - , fmap (("ForwardedIPConfig",) . toJSON) _wAFv2RuleGroupRateBasedStatementTwoForwardedIPConfig - , (Just . ("Limit",) . toJSON) _wAFv2RuleGroupRateBasedStatementTwoLimit - , fmap (("ScopeDownStatement",) . toJSON) _wAFv2RuleGroupRateBasedStatementTwoScopeDownStatement - ] - --- | Constructor for 'WAFv2RuleGroupRateBasedStatementTwo' containing required --- fields as arguments. -waFv2RuleGroupRateBasedStatementTwo - :: Val Text -- ^ 'wafrgrbstAggregateKeyType' - -> Val Integer -- ^ 'wafrgrbstLimit' - -> WAFv2RuleGroupRateBasedStatementTwo -waFv2RuleGroupRateBasedStatementTwo aggregateKeyTypearg limitarg = - WAFv2RuleGroupRateBasedStatementTwo - { _wAFv2RuleGroupRateBasedStatementTwoAggregateKeyType = aggregateKeyTypearg - , _wAFv2RuleGroupRateBasedStatementTwoForwardedIPConfig = Nothing - , _wAFv2RuleGroupRateBasedStatementTwoLimit = limitarg - , _wAFv2RuleGroupRateBasedStatementTwoScopeDownStatement = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ratebasedstatementtwo.html#cfn-wafv2-rulegroup-ratebasedstatementtwo-aggregatekeytype -wafrgrbstAggregateKeyType :: Lens' WAFv2RuleGroupRateBasedStatementTwo (Val Text) -wafrgrbstAggregateKeyType = lens _wAFv2RuleGroupRateBasedStatementTwoAggregateKeyType (\s a -> s { _wAFv2RuleGroupRateBasedStatementTwoAggregateKeyType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ratebasedstatementtwo.html#cfn-wafv2-rulegroup-ratebasedstatementtwo-forwardedipconfig -wafrgrbstForwardedIPConfig :: Lens' WAFv2RuleGroupRateBasedStatementTwo (Maybe WAFv2RuleGroupForwardedIPConfiguration) -wafrgrbstForwardedIPConfig = lens _wAFv2RuleGroupRateBasedStatementTwoForwardedIPConfig (\s a -> s { _wAFv2RuleGroupRateBasedStatementTwoForwardedIPConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ratebasedstatementtwo.html#cfn-wafv2-rulegroup-ratebasedstatementtwo-limit -wafrgrbstLimit :: Lens' WAFv2RuleGroupRateBasedStatementTwo (Val Integer) -wafrgrbstLimit = lens _wAFv2RuleGroupRateBasedStatementTwoLimit (\s a -> s { _wAFv2RuleGroupRateBasedStatementTwoLimit = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ratebasedstatementtwo.html#cfn-wafv2-rulegroup-ratebasedstatementtwo-scopedownstatement -wafrgrbstScopeDownStatement :: Lens' WAFv2RuleGroupRateBasedStatementTwo (Maybe WAFv2RuleGroupStatementThree) -wafrgrbstScopeDownStatement = lens _wAFv2RuleGroupRateBasedStatementTwoScopeDownStatement (\s a -> s { _wAFv2RuleGroupRateBasedStatementTwoScopeDownStatement = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupRegexPatternSetReferenceStatement.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupRegexPatternSetReferenceStatement.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupRegexPatternSetReferenceStatement.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-regexpatternsetreferencestatement.html - -module Stratosphere.ResourceProperties.WAFv2RuleGroupRegexPatternSetReferenceStatement where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2RuleGroupFieldToMatch -import Stratosphere.ResourceProperties.WAFv2RuleGroupTextTransformation - --- | Full data type definition for --- WAFv2RuleGroupRegexPatternSetReferenceStatement. See --- 'waFv2RuleGroupRegexPatternSetReferenceStatement' for a more convenient --- constructor. -data WAFv2RuleGroupRegexPatternSetReferenceStatement = - WAFv2RuleGroupRegexPatternSetReferenceStatement - { _wAFv2RuleGroupRegexPatternSetReferenceStatementArn :: Val Text - , _wAFv2RuleGroupRegexPatternSetReferenceStatementFieldToMatch :: WAFv2RuleGroupFieldToMatch - , _wAFv2RuleGroupRegexPatternSetReferenceStatementTextTransformations :: [WAFv2RuleGroupTextTransformation] - } deriving (Show, Eq) - -instance ToJSON WAFv2RuleGroupRegexPatternSetReferenceStatement where - toJSON WAFv2RuleGroupRegexPatternSetReferenceStatement{..} = - object $ - catMaybes - [ (Just . ("Arn",) . toJSON) _wAFv2RuleGroupRegexPatternSetReferenceStatementArn - , (Just . ("FieldToMatch",) . toJSON) _wAFv2RuleGroupRegexPatternSetReferenceStatementFieldToMatch - , (Just . ("TextTransformations",) . toJSON) _wAFv2RuleGroupRegexPatternSetReferenceStatementTextTransformations - ] - --- | Constructor for 'WAFv2RuleGroupRegexPatternSetReferenceStatement' --- containing required fields as arguments. -waFv2RuleGroupRegexPatternSetReferenceStatement - :: Val Text -- ^ 'wafrgrpsrsArn' - -> WAFv2RuleGroupFieldToMatch -- ^ 'wafrgrpsrsFieldToMatch' - -> [WAFv2RuleGroupTextTransformation] -- ^ 'wafrgrpsrsTextTransformations' - -> WAFv2RuleGroupRegexPatternSetReferenceStatement -waFv2RuleGroupRegexPatternSetReferenceStatement arnarg fieldToMatcharg textTransformationsarg = - WAFv2RuleGroupRegexPatternSetReferenceStatement - { _wAFv2RuleGroupRegexPatternSetReferenceStatementArn = arnarg - , _wAFv2RuleGroupRegexPatternSetReferenceStatementFieldToMatch = fieldToMatcharg - , _wAFv2RuleGroupRegexPatternSetReferenceStatementTextTransformations = textTransformationsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-regexpatternsetreferencestatement.html#cfn-wafv2-rulegroup-regexpatternsetreferencestatement-arn -wafrgrpsrsArn :: Lens' WAFv2RuleGroupRegexPatternSetReferenceStatement (Val Text) -wafrgrpsrsArn = lens _wAFv2RuleGroupRegexPatternSetReferenceStatementArn (\s a -> s { _wAFv2RuleGroupRegexPatternSetReferenceStatementArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-regexpatternsetreferencestatement.html#cfn-wafv2-rulegroup-regexpatternsetreferencestatement-fieldtomatch -wafrgrpsrsFieldToMatch :: Lens' WAFv2RuleGroupRegexPatternSetReferenceStatement WAFv2RuleGroupFieldToMatch -wafrgrpsrsFieldToMatch = lens _wAFv2RuleGroupRegexPatternSetReferenceStatementFieldToMatch (\s a -> s { _wAFv2RuleGroupRegexPatternSetReferenceStatementFieldToMatch = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-regexpatternsetreferencestatement.html#cfn-wafv2-rulegroup-regexpatternsetreferencestatement-texttransformations -wafrgrpsrsTextTransformations :: Lens' WAFv2RuleGroupRegexPatternSetReferenceStatement [WAFv2RuleGroupTextTransformation] -wafrgrpsrsTextTransformations = lens _wAFv2RuleGroupRegexPatternSetReferenceStatementTextTransformations (\s a -> s { _wAFv2RuleGroupRegexPatternSetReferenceStatementTextTransformations = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupRule.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupRule.hs +++ /dev/null @@ -1,72 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-rule.html - -module Stratosphere.ResourceProperties.WAFv2RuleGroupRule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2RuleGroupRuleAction -import Stratosphere.ResourceProperties.WAFv2RuleGroupStatementOne -import Stratosphere.ResourceProperties.WAFv2RuleGroupVisibilityConfig - --- | Full data type definition for WAFv2RuleGroupRule. See --- 'waFv2RuleGroupRule' for a more convenient constructor. -data WAFv2RuleGroupRule = - WAFv2RuleGroupRule - { _wAFv2RuleGroupRuleAction :: Maybe WAFv2RuleGroupRuleAction - , _wAFv2RuleGroupRuleName :: Val Text - , _wAFv2RuleGroupRulePriority :: Val Integer - , _wAFv2RuleGroupRuleStatement :: WAFv2RuleGroupStatementOne - , _wAFv2RuleGroupRuleVisibilityConfig :: WAFv2RuleGroupVisibilityConfig - } deriving (Show, Eq) - -instance ToJSON WAFv2RuleGroupRule where - toJSON WAFv2RuleGroupRule{..} = - object $ - catMaybes - [ fmap (("Action",) . toJSON) _wAFv2RuleGroupRuleAction - , (Just . ("Name",) . toJSON) _wAFv2RuleGroupRuleName - , (Just . ("Priority",) . toJSON) _wAFv2RuleGroupRulePriority - , (Just . ("Statement",) . toJSON) _wAFv2RuleGroupRuleStatement - , (Just . ("VisibilityConfig",) . toJSON) _wAFv2RuleGroupRuleVisibilityConfig - ] - --- | Constructor for 'WAFv2RuleGroupRule' containing required fields as --- arguments. -waFv2RuleGroupRule - :: Val Text -- ^ 'wafrgrName' - -> Val Integer -- ^ 'wafrgrPriority' - -> WAFv2RuleGroupStatementOne -- ^ 'wafrgrStatement' - -> WAFv2RuleGroupVisibilityConfig -- ^ 'wafrgrVisibilityConfig' - -> WAFv2RuleGroupRule -waFv2RuleGroupRule namearg priorityarg statementarg visibilityConfigarg = - WAFv2RuleGroupRule - { _wAFv2RuleGroupRuleAction = Nothing - , _wAFv2RuleGroupRuleName = namearg - , _wAFv2RuleGroupRulePriority = priorityarg - , _wAFv2RuleGroupRuleStatement = statementarg - , _wAFv2RuleGroupRuleVisibilityConfig = visibilityConfigarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-rule.html#cfn-wafv2-rulegroup-rule-action -wafrgrAction :: Lens' WAFv2RuleGroupRule (Maybe WAFv2RuleGroupRuleAction) -wafrgrAction = lens _wAFv2RuleGroupRuleAction (\s a -> s { _wAFv2RuleGroupRuleAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-rule.html#cfn-wafv2-rulegroup-rule-name -wafrgrName :: Lens' WAFv2RuleGroupRule (Val Text) -wafrgrName = lens _wAFv2RuleGroupRuleName (\s a -> s { _wAFv2RuleGroupRuleName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-rule.html#cfn-wafv2-rulegroup-rule-priority -wafrgrPriority :: Lens' WAFv2RuleGroupRule (Val Integer) -wafrgrPriority = lens _wAFv2RuleGroupRulePriority (\s a -> s { _wAFv2RuleGroupRulePriority = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-rule.html#cfn-wafv2-rulegroup-rule-statement -wafrgrStatement :: Lens' WAFv2RuleGroupRule WAFv2RuleGroupStatementOne -wafrgrStatement = lens _wAFv2RuleGroupRuleStatement (\s a -> s { _wAFv2RuleGroupRuleStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-rule.html#cfn-wafv2-rulegroup-rule-visibilityconfig -wafrgrVisibilityConfig :: Lens' WAFv2RuleGroupRule WAFv2RuleGroupVisibilityConfig -wafrgrVisibilityConfig = lens _wAFv2RuleGroupRuleVisibilityConfig (\s a -> s { _wAFv2RuleGroupRuleVisibilityConfig = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupRuleAction.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupRuleAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupRuleAction.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ruleaction.html - -module Stratosphere.ResourceProperties.WAFv2RuleGroupRuleAction where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFv2RuleGroupRuleAction. See --- 'waFv2RuleGroupRuleAction' for a more convenient constructor. -data WAFv2RuleGroupRuleAction = - WAFv2RuleGroupRuleAction - { _wAFv2RuleGroupRuleActionAllow :: Maybe Object - , _wAFv2RuleGroupRuleActionBlock :: Maybe Object - , _wAFv2RuleGroupRuleActionCount :: Maybe Object - } deriving (Show, Eq) - -instance ToJSON WAFv2RuleGroupRuleAction where - toJSON WAFv2RuleGroupRuleAction{..} = - object $ - catMaybes - [ fmap (("Allow",) . toJSON) _wAFv2RuleGroupRuleActionAllow - , fmap (("Block",) . toJSON) _wAFv2RuleGroupRuleActionBlock - , fmap (("Count",) . toJSON) _wAFv2RuleGroupRuleActionCount - ] - --- | Constructor for 'WAFv2RuleGroupRuleAction' containing required fields as --- arguments. -waFv2RuleGroupRuleAction - :: WAFv2RuleGroupRuleAction -waFv2RuleGroupRuleAction = - WAFv2RuleGroupRuleAction - { _wAFv2RuleGroupRuleActionAllow = Nothing - , _wAFv2RuleGroupRuleActionBlock = Nothing - , _wAFv2RuleGroupRuleActionCount = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ruleaction.html#cfn-wafv2-rulegroup-ruleaction-allow -wafrgraAllow :: Lens' WAFv2RuleGroupRuleAction (Maybe Object) -wafrgraAllow = lens _wAFv2RuleGroupRuleActionAllow (\s a -> s { _wAFv2RuleGroupRuleActionAllow = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ruleaction.html#cfn-wafv2-rulegroup-ruleaction-block -wafrgraBlock :: Lens' WAFv2RuleGroupRuleAction (Maybe Object) -wafrgraBlock = lens _wAFv2RuleGroupRuleActionBlock (\s a -> s { _wAFv2RuleGroupRuleActionBlock = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-ruleaction.html#cfn-wafv2-rulegroup-ruleaction-count -wafrgraCount :: Lens' WAFv2RuleGroupRuleAction (Maybe Object) -wafrgraCount = lens _wAFv2RuleGroupRuleActionCount (\s a -> s { _wAFv2RuleGroupRuleActionCount = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupSizeConstraintStatement.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupSizeConstraintStatement.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupSizeConstraintStatement.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-sizeconstraintstatement.html - -module Stratosphere.ResourceProperties.WAFv2RuleGroupSizeConstraintStatement where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2RuleGroupFieldToMatch -import Stratosphere.ResourceProperties.WAFv2RuleGroupTextTransformation - --- | Full data type definition for WAFv2RuleGroupSizeConstraintStatement. See --- 'waFv2RuleGroupSizeConstraintStatement' for a more convenient --- constructor. -data WAFv2RuleGroupSizeConstraintStatement = - WAFv2RuleGroupSizeConstraintStatement - { _wAFv2RuleGroupSizeConstraintStatementComparisonOperator :: Val Text - , _wAFv2RuleGroupSizeConstraintStatementFieldToMatch :: WAFv2RuleGroupFieldToMatch - , _wAFv2RuleGroupSizeConstraintStatementSize :: Val Integer - , _wAFv2RuleGroupSizeConstraintStatementTextTransformations :: [WAFv2RuleGroupTextTransformation] - } deriving (Show, Eq) - -instance ToJSON WAFv2RuleGroupSizeConstraintStatement where - toJSON WAFv2RuleGroupSizeConstraintStatement{..} = - object $ - catMaybes - [ (Just . ("ComparisonOperator",) . toJSON) _wAFv2RuleGroupSizeConstraintStatementComparisonOperator - , (Just . ("FieldToMatch",) . toJSON) _wAFv2RuleGroupSizeConstraintStatementFieldToMatch - , (Just . ("Size",) . toJSON) _wAFv2RuleGroupSizeConstraintStatementSize - , (Just . ("TextTransformations",) . toJSON) _wAFv2RuleGroupSizeConstraintStatementTextTransformations - ] - --- | Constructor for 'WAFv2RuleGroupSizeConstraintStatement' containing --- required fields as arguments. -waFv2RuleGroupSizeConstraintStatement - :: Val Text -- ^ 'wafrgscsComparisonOperator' - -> WAFv2RuleGroupFieldToMatch -- ^ 'wafrgscsFieldToMatch' - -> Val Integer -- ^ 'wafrgscsSize' - -> [WAFv2RuleGroupTextTransformation] -- ^ 'wafrgscsTextTransformations' - -> WAFv2RuleGroupSizeConstraintStatement -waFv2RuleGroupSizeConstraintStatement comparisonOperatorarg fieldToMatcharg sizearg textTransformationsarg = - WAFv2RuleGroupSizeConstraintStatement - { _wAFv2RuleGroupSizeConstraintStatementComparisonOperator = comparisonOperatorarg - , _wAFv2RuleGroupSizeConstraintStatementFieldToMatch = fieldToMatcharg - , _wAFv2RuleGroupSizeConstraintStatementSize = sizearg - , _wAFv2RuleGroupSizeConstraintStatementTextTransformations = textTransformationsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-sizeconstraintstatement.html#cfn-wafv2-rulegroup-sizeconstraintstatement-comparisonoperator -wafrgscsComparisonOperator :: Lens' WAFv2RuleGroupSizeConstraintStatement (Val Text) -wafrgscsComparisonOperator = lens _wAFv2RuleGroupSizeConstraintStatementComparisonOperator (\s a -> s { _wAFv2RuleGroupSizeConstraintStatementComparisonOperator = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-sizeconstraintstatement.html#cfn-wafv2-rulegroup-sizeconstraintstatement-fieldtomatch -wafrgscsFieldToMatch :: Lens' WAFv2RuleGroupSizeConstraintStatement WAFv2RuleGroupFieldToMatch -wafrgscsFieldToMatch = lens _wAFv2RuleGroupSizeConstraintStatementFieldToMatch (\s a -> s { _wAFv2RuleGroupSizeConstraintStatementFieldToMatch = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-sizeconstraintstatement.html#cfn-wafv2-rulegroup-sizeconstraintstatement-size -wafrgscsSize :: Lens' WAFv2RuleGroupSizeConstraintStatement (Val Integer) -wafrgscsSize = lens _wAFv2RuleGroupSizeConstraintStatementSize (\s a -> s { _wAFv2RuleGroupSizeConstraintStatementSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-sizeconstraintstatement.html#cfn-wafv2-rulegroup-sizeconstraintstatement-texttransformations -wafrgscsTextTransformations :: Lens' WAFv2RuleGroupSizeConstraintStatement [WAFv2RuleGroupTextTransformation] -wafrgscsTextTransformations = lens _wAFv2RuleGroupSizeConstraintStatementTextTransformations (\s a -> s { _wAFv2RuleGroupSizeConstraintStatementTextTransformations = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupSqliMatchStatement.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupSqliMatchStatement.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupSqliMatchStatement.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-sqlimatchstatement.html - -module Stratosphere.ResourceProperties.WAFv2RuleGroupSqliMatchStatement where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2RuleGroupFieldToMatch -import Stratosphere.ResourceProperties.WAFv2RuleGroupTextTransformation - --- | Full data type definition for WAFv2RuleGroupSqliMatchStatement. See --- 'waFv2RuleGroupSqliMatchStatement' for a more convenient constructor. -data WAFv2RuleGroupSqliMatchStatement = - WAFv2RuleGroupSqliMatchStatement - { _wAFv2RuleGroupSqliMatchStatementFieldToMatch :: WAFv2RuleGroupFieldToMatch - , _wAFv2RuleGroupSqliMatchStatementTextTransformations :: [WAFv2RuleGroupTextTransformation] - } deriving (Show, Eq) - -instance ToJSON WAFv2RuleGroupSqliMatchStatement where - toJSON WAFv2RuleGroupSqliMatchStatement{..} = - object $ - catMaybes - [ (Just . ("FieldToMatch",) . toJSON) _wAFv2RuleGroupSqliMatchStatementFieldToMatch - , (Just . ("TextTransformations",) . toJSON) _wAFv2RuleGroupSqliMatchStatementTextTransformations - ] - --- | Constructor for 'WAFv2RuleGroupSqliMatchStatement' containing required --- fields as arguments. -waFv2RuleGroupSqliMatchStatement - :: WAFv2RuleGroupFieldToMatch -- ^ 'wafrgsmsFieldToMatch' - -> [WAFv2RuleGroupTextTransformation] -- ^ 'wafrgsmsTextTransformations' - -> WAFv2RuleGroupSqliMatchStatement -waFv2RuleGroupSqliMatchStatement fieldToMatcharg textTransformationsarg = - WAFv2RuleGroupSqliMatchStatement - { _wAFv2RuleGroupSqliMatchStatementFieldToMatch = fieldToMatcharg - , _wAFv2RuleGroupSqliMatchStatementTextTransformations = textTransformationsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-sqlimatchstatement.html#cfn-wafv2-rulegroup-sqlimatchstatement-fieldtomatch -wafrgsmsFieldToMatch :: Lens' WAFv2RuleGroupSqliMatchStatement WAFv2RuleGroupFieldToMatch -wafrgsmsFieldToMatch = lens _wAFv2RuleGroupSqliMatchStatementFieldToMatch (\s a -> s { _wAFv2RuleGroupSqliMatchStatementFieldToMatch = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-sqlimatchstatement.html#cfn-wafv2-rulegroup-sqlimatchstatement-texttransformations -wafrgsmsTextTransformations :: Lens' WAFv2RuleGroupSqliMatchStatement [WAFv2RuleGroupTextTransformation] -wafrgsmsTextTransformations = lens _wAFv2RuleGroupSqliMatchStatementTextTransformations (\s a -> s { _wAFv2RuleGroupSqliMatchStatementTextTransformations = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupStatementOne.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupStatementOne.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupStatementOne.hs +++ /dev/null @@ -1,118 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementone.html - -module Stratosphere.ResourceProperties.WAFv2RuleGroupStatementOne where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2RuleGroupAndStatementOne -import Stratosphere.ResourceProperties.WAFv2RuleGroupByteMatchStatement -import Stratosphere.ResourceProperties.WAFv2RuleGroupGeoMatchStatement -import Stratosphere.ResourceProperties.WAFv2RuleGroupIPSetReferenceStatement -import Stratosphere.ResourceProperties.WAFv2RuleGroupNotStatementOne -import Stratosphere.ResourceProperties.WAFv2RuleGroupOrStatementOne -import Stratosphere.ResourceProperties.WAFv2RuleGroupRateBasedStatementOne -import Stratosphere.ResourceProperties.WAFv2RuleGroupRegexPatternSetReferenceStatement -import Stratosphere.ResourceProperties.WAFv2RuleGroupSizeConstraintStatement -import Stratosphere.ResourceProperties.WAFv2RuleGroupSqliMatchStatement -import Stratosphere.ResourceProperties.WAFv2RuleGroupXssMatchStatement - --- | Full data type definition for WAFv2RuleGroupStatementOne. See --- 'waFv2RuleGroupStatementOne' for a more convenient constructor. -data WAFv2RuleGroupStatementOne = - WAFv2RuleGroupStatementOne - { _wAFv2RuleGroupStatementOneAndStatement :: Maybe WAFv2RuleGroupAndStatementOne - , _wAFv2RuleGroupStatementOneByteMatchStatement :: Maybe WAFv2RuleGroupByteMatchStatement - , _wAFv2RuleGroupStatementOneGeoMatchStatement :: Maybe WAFv2RuleGroupGeoMatchStatement - , _wAFv2RuleGroupStatementOneIPSetReferenceStatement :: Maybe WAFv2RuleGroupIPSetReferenceStatement - , _wAFv2RuleGroupStatementOneNotStatement :: Maybe WAFv2RuleGroupNotStatementOne - , _wAFv2RuleGroupStatementOneOrStatement :: Maybe WAFv2RuleGroupOrStatementOne - , _wAFv2RuleGroupStatementOneRateBasedStatement :: Maybe WAFv2RuleGroupRateBasedStatementOne - , _wAFv2RuleGroupStatementOneRegexPatternSetReferenceStatement :: Maybe WAFv2RuleGroupRegexPatternSetReferenceStatement - , _wAFv2RuleGroupStatementOneSizeConstraintStatement :: Maybe WAFv2RuleGroupSizeConstraintStatement - , _wAFv2RuleGroupStatementOneSqliMatchStatement :: Maybe WAFv2RuleGroupSqliMatchStatement - , _wAFv2RuleGroupStatementOneXssMatchStatement :: Maybe WAFv2RuleGroupXssMatchStatement - } deriving (Show, Eq) - -instance ToJSON WAFv2RuleGroupStatementOne where - toJSON WAFv2RuleGroupStatementOne{..} = - object $ - catMaybes - [ fmap (("AndStatement",) . toJSON) _wAFv2RuleGroupStatementOneAndStatement - , fmap (("ByteMatchStatement",) . toJSON) _wAFv2RuleGroupStatementOneByteMatchStatement - , fmap (("GeoMatchStatement",) . toJSON) _wAFv2RuleGroupStatementOneGeoMatchStatement - , fmap (("IPSetReferenceStatement",) . toJSON) _wAFv2RuleGroupStatementOneIPSetReferenceStatement - , fmap (("NotStatement",) . toJSON) _wAFv2RuleGroupStatementOneNotStatement - , fmap (("OrStatement",) . toJSON) _wAFv2RuleGroupStatementOneOrStatement - , fmap (("RateBasedStatement",) . toJSON) _wAFv2RuleGroupStatementOneRateBasedStatement - , fmap (("RegexPatternSetReferenceStatement",) . toJSON) _wAFv2RuleGroupStatementOneRegexPatternSetReferenceStatement - , fmap (("SizeConstraintStatement",) . toJSON) _wAFv2RuleGroupStatementOneSizeConstraintStatement - , fmap (("SqliMatchStatement",) . toJSON) _wAFv2RuleGroupStatementOneSqliMatchStatement - , fmap (("XssMatchStatement",) . toJSON) _wAFv2RuleGroupStatementOneXssMatchStatement - ] - --- | Constructor for 'WAFv2RuleGroupStatementOne' containing required fields --- as arguments. -waFv2RuleGroupStatementOne - :: WAFv2RuleGroupStatementOne -waFv2RuleGroupStatementOne = - WAFv2RuleGroupStatementOne - { _wAFv2RuleGroupStatementOneAndStatement = Nothing - , _wAFv2RuleGroupStatementOneByteMatchStatement = Nothing - , _wAFv2RuleGroupStatementOneGeoMatchStatement = Nothing - , _wAFv2RuleGroupStatementOneIPSetReferenceStatement = Nothing - , _wAFv2RuleGroupStatementOneNotStatement = Nothing - , _wAFv2RuleGroupStatementOneOrStatement = Nothing - , _wAFv2RuleGroupStatementOneRateBasedStatement = Nothing - , _wAFv2RuleGroupStatementOneRegexPatternSetReferenceStatement = Nothing - , _wAFv2RuleGroupStatementOneSizeConstraintStatement = Nothing - , _wAFv2RuleGroupStatementOneSqliMatchStatement = Nothing - , _wAFv2RuleGroupStatementOneXssMatchStatement = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementone.html#cfn-wafv2-rulegroup-statementone-andstatement -wafrgsoAndStatement :: Lens' WAFv2RuleGroupStatementOne (Maybe WAFv2RuleGroupAndStatementOne) -wafrgsoAndStatement = lens _wAFv2RuleGroupStatementOneAndStatement (\s a -> s { _wAFv2RuleGroupStatementOneAndStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementone.html#cfn-wafv2-rulegroup-statementone-bytematchstatement -wafrgsoByteMatchStatement :: Lens' WAFv2RuleGroupStatementOne (Maybe WAFv2RuleGroupByteMatchStatement) -wafrgsoByteMatchStatement = lens _wAFv2RuleGroupStatementOneByteMatchStatement (\s a -> s { _wAFv2RuleGroupStatementOneByteMatchStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementone.html#cfn-wafv2-rulegroup-statementone-geomatchstatement -wafrgsoGeoMatchStatement :: Lens' WAFv2RuleGroupStatementOne (Maybe WAFv2RuleGroupGeoMatchStatement) -wafrgsoGeoMatchStatement = lens _wAFv2RuleGroupStatementOneGeoMatchStatement (\s a -> s { _wAFv2RuleGroupStatementOneGeoMatchStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementone.html#cfn-wafv2-rulegroup-statementone-ipsetreferencestatement -wafrgsoIPSetReferenceStatement :: Lens' WAFv2RuleGroupStatementOne (Maybe WAFv2RuleGroupIPSetReferenceStatement) -wafrgsoIPSetReferenceStatement = lens _wAFv2RuleGroupStatementOneIPSetReferenceStatement (\s a -> s { _wAFv2RuleGroupStatementOneIPSetReferenceStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementone.html#cfn-wafv2-rulegroup-statementone-notstatement -wafrgsoNotStatement :: Lens' WAFv2RuleGroupStatementOne (Maybe WAFv2RuleGroupNotStatementOne) -wafrgsoNotStatement = lens _wAFv2RuleGroupStatementOneNotStatement (\s a -> s { _wAFv2RuleGroupStatementOneNotStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementone.html#cfn-wafv2-rulegroup-statementone-orstatement -wafrgsoOrStatement :: Lens' WAFv2RuleGroupStatementOne (Maybe WAFv2RuleGroupOrStatementOne) -wafrgsoOrStatement = lens _wAFv2RuleGroupStatementOneOrStatement (\s a -> s { _wAFv2RuleGroupStatementOneOrStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementone.html#cfn-wafv2-rulegroup-statementone-ratebasedstatement -wafrgsoRateBasedStatement :: Lens' WAFv2RuleGroupStatementOne (Maybe WAFv2RuleGroupRateBasedStatementOne) -wafrgsoRateBasedStatement = lens _wAFv2RuleGroupStatementOneRateBasedStatement (\s a -> s { _wAFv2RuleGroupStatementOneRateBasedStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementone.html#cfn-wafv2-rulegroup-statementone-regexpatternsetreferencestatement -wafrgsoRegexPatternSetReferenceStatement :: Lens' WAFv2RuleGroupStatementOne (Maybe WAFv2RuleGroupRegexPatternSetReferenceStatement) -wafrgsoRegexPatternSetReferenceStatement = lens _wAFv2RuleGroupStatementOneRegexPatternSetReferenceStatement (\s a -> s { _wAFv2RuleGroupStatementOneRegexPatternSetReferenceStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementone.html#cfn-wafv2-rulegroup-statementone-sizeconstraintstatement -wafrgsoSizeConstraintStatement :: Lens' WAFv2RuleGroupStatementOne (Maybe WAFv2RuleGroupSizeConstraintStatement) -wafrgsoSizeConstraintStatement = lens _wAFv2RuleGroupStatementOneSizeConstraintStatement (\s a -> s { _wAFv2RuleGroupStatementOneSizeConstraintStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementone.html#cfn-wafv2-rulegroup-statementone-sqlimatchstatement -wafrgsoSqliMatchStatement :: Lens' WAFv2RuleGroupStatementOne (Maybe WAFv2RuleGroupSqliMatchStatement) -wafrgsoSqliMatchStatement = lens _wAFv2RuleGroupStatementOneSqliMatchStatement (\s a -> s { _wAFv2RuleGroupStatementOneSqliMatchStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementone.html#cfn-wafv2-rulegroup-statementone-xssmatchstatement -wafrgsoXssMatchStatement :: Lens' WAFv2RuleGroupStatementOne (Maybe WAFv2RuleGroupXssMatchStatement) -wafrgsoXssMatchStatement = lens _wAFv2RuleGroupStatementOneXssMatchStatement (\s a -> s { _wAFv2RuleGroupStatementOneXssMatchStatement = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupStatementThree.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupStatementThree.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupStatementThree.hs +++ /dev/null @@ -1,86 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementthree.html - -module Stratosphere.ResourceProperties.WAFv2RuleGroupStatementThree where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2RuleGroupByteMatchStatement -import Stratosphere.ResourceProperties.WAFv2RuleGroupGeoMatchStatement -import Stratosphere.ResourceProperties.WAFv2RuleGroupIPSetReferenceStatement -import Stratosphere.ResourceProperties.WAFv2RuleGroupRegexPatternSetReferenceStatement -import Stratosphere.ResourceProperties.WAFv2RuleGroupSizeConstraintStatement -import Stratosphere.ResourceProperties.WAFv2RuleGroupSqliMatchStatement -import Stratosphere.ResourceProperties.WAFv2RuleGroupXssMatchStatement - --- | Full data type definition for WAFv2RuleGroupStatementThree. See --- 'waFv2RuleGroupStatementThree' for a more convenient constructor. -data WAFv2RuleGroupStatementThree = - WAFv2RuleGroupStatementThree - { _wAFv2RuleGroupStatementThreeByteMatchStatement :: Maybe WAFv2RuleGroupByteMatchStatement - , _wAFv2RuleGroupStatementThreeGeoMatchStatement :: Maybe WAFv2RuleGroupGeoMatchStatement - , _wAFv2RuleGroupStatementThreeIPSetReferenceStatement :: Maybe WAFv2RuleGroupIPSetReferenceStatement - , _wAFv2RuleGroupStatementThreeRegexPatternSetReferenceStatement :: Maybe WAFv2RuleGroupRegexPatternSetReferenceStatement - , _wAFv2RuleGroupStatementThreeSizeConstraintStatement :: Maybe WAFv2RuleGroupSizeConstraintStatement - , _wAFv2RuleGroupStatementThreeSqliMatchStatement :: Maybe WAFv2RuleGroupSqliMatchStatement - , _wAFv2RuleGroupStatementThreeXssMatchStatement :: Maybe WAFv2RuleGroupXssMatchStatement - } deriving (Show, Eq) - -instance ToJSON WAFv2RuleGroupStatementThree where - toJSON WAFv2RuleGroupStatementThree{..} = - object $ - catMaybes - [ fmap (("ByteMatchStatement",) . toJSON) _wAFv2RuleGroupStatementThreeByteMatchStatement - , fmap (("GeoMatchStatement",) . toJSON) _wAFv2RuleGroupStatementThreeGeoMatchStatement - , fmap (("IPSetReferenceStatement",) . toJSON) _wAFv2RuleGroupStatementThreeIPSetReferenceStatement - , fmap (("RegexPatternSetReferenceStatement",) . toJSON) _wAFv2RuleGroupStatementThreeRegexPatternSetReferenceStatement - , fmap (("SizeConstraintStatement",) . toJSON) _wAFv2RuleGroupStatementThreeSizeConstraintStatement - , fmap (("SqliMatchStatement",) . toJSON) _wAFv2RuleGroupStatementThreeSqliMatchStatement - , fmap (("XssMatchStatement",) . toJSON) _wAFv2RuleGroupStatementThreeXssMatchStatement - ] - --- | Constructor for 'WAFv2RuleGroupStatementThree' containing required fields --- as arguments. -waFv2RuleGroupStatementThree - :: WAFv2RuleGroupStatementThree -waFv2RuleGroupStatementThree = - WAFv2RuleGroupStatementThree - { _wAFv2RuleGroupStatementThreeByteMatchStatement = Nothing - , _wAFv2RuleGroupStatementThreeGeoMatchStatement = Nothing - , _wAFv2RuleGroupStatementThreeIPSetReferenceStatement = Nothing - , _wAFv2RuleGroupStatementThreeRegexPatternSetReferenceStatement = Nothing - , _wAFv2RuleGroupStatementThreeSizeConstraintStatement = Nothing - , _wAFv2RuleGroupStatementThreeSqliMatchStatement = Nothing - , _wAFv2RuleGroupStatementThreeXssMatchStatement = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementthree.html#cfn-wafv2-rulegroup-statementthree-bytematchstatement -wafrgsthByteMatchStatement :: Lens' WAFv2RuleGroupStatementThree (Maybe WAFv2RuleGroupByteMatchStatement) -wafrgsthByteMatchStatement = lens _wAFv2RuleGroupStatementThreeByteMatchStatement (\s a -> s { _wAFv2RuleGroupStatementThreeByteMatchStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementthree.html#cfn-wafv2-rulegroup-statementthree-geomatchstatement -wafrgsthGeoMatchStatement :: Lens' WAFv2RuleGroupStatementThree (Maybe WAFv2RuleGroupGeoMatchStatement) -wafrgsthGeoMatchStatement = lens _wAFv2RuleGroupStatementThreeGeoMatchStatement (\s a -> s { _wAFv2RuleGroupStatementThreeGeoMatchStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementthree.html#cfn-wafv2-rulegroup-statementthree-ipsetreferencestatement -wafrgsthIPSetReferenceStatement :: Lens' WAFv2RuleGroupStatementThree (Maybe WAFv2RuleGroupIPSetReferenceStatement) -wafrgsthIPSetReferenceStatement = lens _wAFv2RuleGroupStatementThreeIPSetReferenceStatement (\s a -> s { _wAFv2RuleGroupStatementThreeIPSetReferenceStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementthree.html#cfn-wafv2-rulegroup-statementthree-regexpatternsetreferencestatement -wafrgsthRegexPatternSetReferenceStatement :: Lens' WAFv2RuleGroupStatementThree (Maybe WAFv2RuleGroupRegexPatternSetReferenceStatement) -wafrgsthRegexPatternSetReferenceStatement = lens _wAFv2RuleGroupStatementThreeRegexPatternSetReferenceStatement (\s a -> s { _wAFv2RuleGroupStatementThreeRegexPatternSetReferenceStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementthree.html#cfn-wafv2-rulegroup-statementthree-sizeconstraintstatement -wafrgsthSizeConstraintStatement :: Lens' WAFv2RuleGroupStatementThree (Maybe WAFv2RuleGroupSizeConstraintStatement) -wafrgsthSizeConstraintStatement = lens _wAFv2RuleGroupStatementThreeSizeConstraintStatement (\s a -> s { _wAFv2RuleGroupStatementThreeSizeConstraintStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementthree.html#cfn-wafv2-rulegroup-statementthree-sqlimatchstatement -wafrgsthSqliMatchStatement :: Lens' WAFv2RuleGroupStatementThree (Maybe WAFv2RuleGroupSqliMatchStatement) -wafrgsthSqliMatchStatement = lens _wAFv2RuleGroupStatementThreeSqliMatchStatement (\s a -> s { _wAFv2RuleGroupStatementThreeSqliMatchStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementthree.html#cfn-wafv2-rulegroup-statementthree-xssmatchstatement -wafrgsthXssMatchStatement :: Lens' WAFv2RuleGroupStatementThree (Maybe WAFv2RuleGroupXssMatchStatement) -wafrgsthXssMatchStatement = lens _wAFv2RuleGroupStatementThreeXssMatchStatement (\s a -> s { _wAFv2RuleGroupStatementThreeXssMatchStatement = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupStatementTwo.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupStatementTwo.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupStatementTwo.hs +++ /dev/null @@ -1,118 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementtwo.html - -module Stratosphere.ResourceProperties.WAFv2RuleGroupStatementTwo where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2RuleGroupAndStatementTwo -import Stratosphere.ResourceProperties.WAFv2RuleGroupByteMatchStatement -import Stratosphere.ResourceProperties.WAFv2RuleGroupGeoMatchStatement -import Stratosphere.ResourceProperties.WAFv2RuleGroupIPSetReferenceStatement -import Stratosphere.ResourceProperties.WAFv2RuleGroupNotStatementTwo -import Stratosphere.ResourceProperties.WAFv2RuleGroupOrStatementTwo -import Stratosphere.ResourceProperties.WAFv2RuleGroupRateBasedStatementTwo -import Stratosphere.ResourceProperties.WAFv2RuleGroupRegexPatternSetReferenceStatement -import Stratosphere.ResourceProperties.WAFv2RuleGroupSizeConstraintStatement -import Stratosphere.ResourceProperties.WAFv2RuleGroupSqliMatchStatement -import Stratosphere.ResourceProperties.WAFv2RuleGroupXssMatchStatement - --- | Full data type definition for WAFv2RuleGroupStatementTwo. See --- 'waFv2RuleGroupStatementTwo' for a more convenient constructor. -data WAFv2RuleGroupStatementTwo = - WAFv2RuleGroupStatementTwo - { _wAFv2RuleGroupStatementTwoAndStatement :: Maybe WAFv2RuleGroupAndStatementTwo - , _wAFv2RuleGroupStatementTwoByteMatchStatement :: Maybe WAFv2RuleGroupByteMatchStatement - , _wAFv2RuleGroupStatementTwoGeoMatchStatement :: Maybe WAFv2RuleGroupGeoMatchStatement - , _wAFv2RuleGroupStatementTwoIPSetReferenceStatement :: Maybe WAFv2RuleGroupIPSetReferenceStatement - , _wAFv2RuleGroupStatementTwoNotStatement :: Maybe WAFv2RuleGroupNotStatementTwo - , _wAFv2RuleGroupStatementTwoOrStatement :: Maybe WAFv2RuleGroupOrStatementTwo - , _wAFv2RuleGroupStatementTwoRateBasedStatement :: Maybe WAFv2RuleGroupRateBasedStatementTwo - , _wAFv2RuleGroupStatementTwoRegexPatternSetReferenceStatement :: Maybe WAFv2RuleGroupRegexPatternSetReferenceStatement - , _wAFv2RuleGroupStatementTwoSizeConstraintStatement :: Maybe WAFv2RuleGroupSizeConstraintStatement - , _wAFv2RuleGroupStatementTwoSqliMatchStatement :: Maybe WAFv2RuleGroupSqliMatchStatement - , _wAFv2RuleGroupStatementTwoXssMatchStatement :: Maybe WAFv2RuleGroupXssMatchStatement - } deriving (Show, Eq) - -instance ToJSON WAFv2RuleGroupStatementTwo where - toJSON WAFv2RuleGroupStatementTwo{..} = - object $ - catMaybes - [ fmap (("AndStatement",) . toJSON) _wAFv2RuleGroupStatementTwoAndStatement - , fmap (("ByteMatchStatement",) . toJSON) _wAFv2RuleGroupStatementTwoByteMatchStatement - , fmap (("GeoMatchStatement",) . toJSON) _wAFv2RuleGroupStatementTwoGeoMatchStatement - , fmap (("IPSetReferenceStatement",) . toJSON) _wAFv2RuleGroupStatementTwoIPSetReferenceStatement - , fmap (("NotStatement",) . toJSON) _wAFv2RuleGroupStatementTwoNotStatement - , fmap (("OrStatement",) . toJSON) _wAFv2RuleGroupStatementTwoOrStatement - , fmap (("RateBasedStatement",) . toJSON) _wAFv2RuleGroupStatementTwoRateBasedStatement - , fmap (("RegexPatternSetReferenceStatement",) . toJSON) _wAFv2RuleGroupStatementTwoRegexPatternSetReferenceStatement - , fmap (("SizeConstraintStatement",) . toJSON) _wAFv2RuleGroupStatementTwoSizeConstraintStatement - , fmap (("SqliMatchStatement",) . toJSON) _wAFv2RuleGroupStatementTwoSqliMatchStatement - , fmap (("XssMatchStatement",) . toJSON) _wAFv2RuleGroupStatementTwoXssMatchStatement - ] - --- | Constructor for 'WAFv2RuleGroupStatementTwo' containing required fields --- as arguments. -waFv2RuleGroupStatementTwo - :: WAFv2RuleGroupStatementTwo -waFv2RuleGroupStatementTwo = - WAFv2RuleGroupStatementTwo - { _wAFv2RuleGroupStatementTwoAndStatement = Nothing - , _wAFv2RuleGroupStatementTwoByteMatchStatement = Nothing - , _wAFv2RuleGroupStatementTwoGeoMatchStatement = Nothing - , _wAFv2RuleGroupStatementTwoIPSetReferenceStatement = Nothing - , _wAFv2RuleGroupStatementTwoNotStatement = Nothing - , _wAFv2RuleGroupStatementTwoOrStatement = Nothing - , _wAFv2RuleGroupStatementTwoRateBasedStatement = Nothing - , _wAFv2RuleGroupStatementTwoRegexPatternSetReferenceStatement = Nothing - , _wAFv2RuleGroupStatementTwoSizeConstraintStatement = Nothing - , _wAFv2RuleGroupStatementTwoSqliMatchStatement = Nothing - , _wAFv2RuleGroupStatementTwoXssMatchStatement = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementtwo.html#cfn-wafv2-rulegroup-statementtwo-andstatement -wafrgstwAndStatement :: Lens' WAFv2RuleGroupStatementTwo (Maybe WAFv2RuleGroupAndStatementTwo) -wafrgstwAndStatement = lens _wAFv2RuleGroupStatementTwoAndStatement (\s a -> s { _wAFv2RuleGroupStatementTwoAndStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementtwo.html#cfn-wafv2-rulegroup-statementtwo-bytematchstatement -wafrgstwByteMatchStatement :: Lens' WAFv2RuleGroupStatementTwo (Maybe WAFv2RuleGroupByteMatchStatement) -wafrgstwByteMatchStatement = lens _wAFv2RuleGroupStatementTwoByteMatchStatement (\s a -> s { _wAFv2RuleGroupStatementTwoByteMatchStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementtwo.html#cfn-wafv2-rulegroup-statementtwo-geomatchstatement -wafrgstwGeoMatchStatement :: Lens' WAFv2RuleGroupStatementTwo (Maybe WAFv2RuleGroupGeoMatchStatement) -wafrgstwGeoMatchStatement = lens _wAFv2RuleGroupStatementTwoGeoMatchStatement (\s a -> s { _wAFv2RuleGroupStatementTwoGeoMatchStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementtwo.html#cfn-wafv2-rulegroup-statementtwo-ipsetreferencestatement -wafrgstwIPSetReferenceStatement :: Lens' WAFv2RuleGroupStatementTwo (Maybe WAFv2RuleGroupIPSetReferenceStatement) -wafrgstwIPSetReferenceStatement = lens _wAFv2RuleGroupStatementTwoIPSetReferenceStatement (\s a -> s { _wAFv2RuleGroupStatementTwoIPSetReferenceStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementtwo.html#cfn-wafv2-rulegroup-statementtwo-notstatement -wafrgstwNotStatement :: Lens' WAFv2RuleGroupStatementTwo (Maybe WAFv2RuleGroupNotStatementTwo) -wafrgstwNotStatement = lens _wAFv2RuleGroupStatementTwoNotStatement (\s a -> s { _wAFv2RuleGroupStatementTwoNotStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementtwo.html#cfn-wafv2-rulegroup-statementtwo-orstatement -wafrgstwOrStatement :: Lens' WAFv2RuleGroupStatementTwo (Maybe WAFv2RuleGroupOrStatementTwo) -wafrgstwOrStatement = lens _wAFv2RuleGroupStatementTwoOrStatement (\s a -> s { _wAFv2RuleGroupStatementTwoOrStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementtwo.html#cfn-wafv2-rulegroup-statementtwo-ratebasedstatement -wafrgstwRateBasedStatement :: Lens' WAFv2RuleGroupStatementTwo (Maybe WAFv2RuleGroupRateBasedStatementTwo) -wafrgstwRateBasedStatement = lens _wAFv2RuleGroupStatementTwoRateBasedStatement (\s a -> s { _wAFv2RuleGroupStatementTwoRateBasedStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementtwo.html#cfn-wafv2-rulegroup-statementtwo-regexpatternsetreferencestatement -wafrgstwRegexPatternSetReferenceStatement :: Lens' WAFv2RuleGroupStatementTwo (Maybe WAFv2RuleGroupRegexPatternSetReferenceStatement) -wafrgstwRegexPatternSetReferenceStatement = lens _wAFv2RuleGroupStatementTwoRegexPatternSetReferenceStatement (\s a -> s { _wAFv2RuleGroupStatementTwoRegexPatternSetReferenceStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementtwo.html#cfn-wafv2-rulegroup-statementtwo-sizeconstraintstatement -wafrgstwSizeConstraintStatement :: Lens' WAFv2RuleGroupStatementTwo (Maybe WAFv2RuleGroupSizeConstraintStatement) -wafrgstwSizeConstraintStatement = lens _wAFv2RuleGroupStatementTwoSizeConstraintStatement (\s a -> s { _wAFv2RuleGroupStatementTwoSizeConstraintStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementtwo.html#cfn-wafv2-rulegroup-statementtwo-sqlimatchstatement -wafrgstwSqliMatchStatement :: Lens' WAFv2RuleGroupStatementTwo (Maybe WAFv2RuleGroupSqliMatchStatement) -wafrgstwSqliMatchStatement = lens _wAFv2RuleGroupStatementTwoSqliMatchStatement (\s a -> s { _wAFv2RuleGroupStatementTwoSqliMatchStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-statementtwo.html#cfn-wafv2-rulegroup-statementtwo-xssmatchstatement -wafrgstwXssMatchStatement :: Lens' WAFv2RuleGroupStatementTwo (Maybe WAFv2RuleGroupXssMatchStatement) -wafrgstwXssMatchStatement = lens _wAFv2RuleGroupStatementTwoXssMatchStatement (\s a -> s { _wAFv2RuleGroupStatementTwoXssMatchStatement = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupTextTransformation.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupTextTransformation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupTextTransformation.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-texttransformation.html - -module Stratosphere.ResourceProperties.WAFv2RuleGroupTextTransformation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFv2RuleGroupTextTransformation. See --- 'waFv2RuleGroupTextTransformation' for a more convenient constructor. -data WAFv2RuleGroupTextTransformation = - WAFv2RuleGroupTextTransformation - { _wAFv2RuleGroupTextTransformationPriority :: Val Integer - , _wAFv2RuleGroupTextTransformationType :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFv2RuleGroupTextTransformation where - toJSON WAFv2RuleGroupTextTransformation{..} = - object $ - catMaybes - [ (Just . ("Priority",) . toJSON) _wAFv2RuleGroupTextTransformationPriority - , (Just . ("Type",) . toJSON) _wAFv2RuleGroupTextTransformationType - ] - --- | Constructor for 'WAFv2RuleGroupTextTransformation' containing required --- fields as arguments. -waFv2RuleGroupTextTransformation - :: Val Integer -- ^ 'wafrgttPriority' - -> Val Text -- ^ 'wafrgttType' - -> WAFv2RuleGroupTextTransformation -waFv2RuleGroupTextTransformation priorityarg typearg = - WAFv2RuleGroupTextTransformation - { _wAFv2RuleGroupTextTransformationPriority = priorityarg - , _wAFv2RuleGroupTextTransformationType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-texttransformation.html#cfn-wafv2-rulegroup-texttransformation-priority -wafrgttPriority :: Lens' WAFv2RuleGroupTextTransformation (Val Integer) -wafrgttPriority = lens _wAFv2RuleGroupTextTransformationPriority (\s a -> s { _wAFv2RuleGroupTextTransformationPriority = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-texttransformation.html#cfn-wafv2-rulegroup-texttransformation-type -wafrgttType :: Lens' WAFv2RuleGroupTextTransformation (Val Text) -wafrgttType = lens _wAFv2RuleGroupTextTransformationType (\s a -> s { _wAFv2RuleGroupTextTransformationType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupVisibilityConfig.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupVisibilityConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupVisibilityConfig.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-visibilityconfig.html - -module Stratosphere.ResourceProperties.WAFv2RuleGroupVisibilityConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFv2RuleGroupVisibilityConfig. See --- 'waFv2RuleGroupVisibilityConfig' for a more convenient constructor. -data WAFv2RuleGroupVisibilityConfig = - WAFv2RuleGroupVisibilityConfig - { _wAFv2RuleGroupVisibilityConfigCloudWatchMetricsEnabled :: Val Bool - , _wAFv2RuleGroupVisibilityConfigMetricName :: Val Text - , _wAFv2RuleGroupVisibilityConfigSampledRequestsEnabled :: Val Bool - } deriving (Show, Eq) - -instance ToJSON WAFv2RuleGroupVisibilityConfig where - toJSON WAFv2RuleGroupVisibilityConfig{..} = - object $ - catMaybes - [ (Just . ("CloudWatchMetricsEnabled",) . toJSON) _wAFv2RuleGroupVisibilityConfigCloudWatchMetricsEnabled - , (Just . ("MetricName",) . toJSON) _wAFv2RuleGroupVisibilityConfigMetricName - , (Just . ("SampledRequestsEnabled",) . toJSON) _wAFv2RuleGroupVisibilityConfigSampledRequestsEnabled - ] - --- | Constructor for 'WAFv2RuleGroupVisibilityConfig' containing required --- fields as arguments. -waFv2RuleGroupVisibilityConfig - :: Val Bool -- ^ 'wafrgvcCloudWatchMetricsEnabled' - -> Val Text -- ^ 'wafrgvcMetricName' - -> Val Bool -- ^ 'wafrgvcSampledRequestsEnabled' - -> WAFv2RuleGroupVisibilityConfig -waFv2RuleGroupVisibilityConfig cloudWatchMetricsEnabledarg metricNamearg sampledRequestsEnabledarg = - WAFv2RuleGroupVisibilityConfig - { _wAFv2RuleGroupVisibilityConfigCloudWatchMetricsEnabled = cloudWatchMetricsEnabledarg - , _wAFv2RuleGroupVisibilityConfigMetricName = metricNamearg - , _wAFv2RuleGroupVisibilityConfigSampledRequestsEnabled = sampledRequestsEnabledarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-visibilityconfig.html#cfn-wafv2-rulegroup-visibilityconfig-cloudwatchmetricsenabled -wafrgvcCloudWatchMetricsEnabled :: Lens' WAFv2RuleGroupVisibilityConfig (Val Bool) -wafrgvcCloudWatchMetricsEnabled = lens _wAFv2RuleGroupVisibilityConfigCloudWatchMetricsEnabled (\s a -> s { _wAFv2RuleGroupVisibilityConfigCloudWatchMetricsEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-visibilityconfig.html#cfn-wafv2-rulegroup-visibilityconfig-metricname -wafrgvcMetricName :: Lens' WAFv2RuleGroupVisibilityConfig (Val Text) -wafrgvcMetricName = lens _wAFv2RuleGroupVisibilityConfigMetricName (\s a -> s { _wAFv2RuleGroupVisibilityConfigMetricName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-visibilityconfig.html#cfn-wafv2-rulegroup-visibilityconfig-sampledrequestsenabled -wafrgvcSampledRequestsEnabled :: Lens' WAFv2RuleGroupVisibilityConfig (Val Bool) -wafrgvcSampledRequestsEnabled = lens _wAFv2RuleGroupVisibilityConfigSampledRequestsEnabled (\s a -> s { _wAFv2RuleGroupVisibilityConfigSampledRequestsEnabled = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupXssMatchStatement.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupXssMatchStatement.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2RuleGroupXssMatchStatement.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-xssmatchstatement.html - -module Stratosphere.ResourceProperties.WAFv2RuleGroupXssMatchStatement where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2RuleGroupFieldToMatch -import Stratosphere.ResourceProperties.WAFv2RuleGroupTextTransformation - --- | Full data type definition for WAFv2RuleGroupXssMatchStatement. See --- 'waFv2RuleGroupXssMatchStatement' for a more convenient constructor. -data WAFv2RuleGroupXssMatchStatement = - WAFv2RuleGroupXssMatchStatement - { _wAFv2RuleGroupXssMatchStatementFieldToMatch :: WAFv2RuleGroupFieldToMatch - , _wAFv2RuleGroupXssMatchStatementTextTransformations :: [WAFv2RuleGroupTextTransformation] - } deriving (Show, Eq) - -instance ToJSON WAFv2RuleGroupXssMatchStatement where - toJSON WAFv2RuleGroupXssMatchStatement{..} = - object $ - catMaybes - [ (Just . ("FieldToMatch",) . toJSON) _wAFv2RuleGroupXssMatchStatementFieldToMatch - , (Just . ("TextTransformations",) . toJSON) _wAFv2RuleGroupXssMatchStatementTextTransformations - ] - --- | Constructor for 'WAFv2RuleGroupXssMatchStatement' containing required --- fields as arguments. -waFv2RuleGroupXssMatchStatement - :: WAFv2RuleGroupFieldToMatch -- ^ 'wafrgxmsFieldToMatch' - -> [WAFv2RuleGroupTextTransformation] -- ^ 'wafrgxmsTextTransformations' - -> WAFv2RuleGroupXssMatchStatement -waFv2RuleGroupXssMatchStatement fieldToMatcharg textTransformationsarg = - WAFv2RuleGroupXssMatchStatement - { _wAFv2RuleGroupXssMatchStatementFieldToMatch = fieldToMatcharg - , _wAFv2RuleGroupXssMatchStatementTextTransformations = textTransformationsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-xssmatchstatement.html#cfn-wafv2-rulegroup-xssmatchstatement-fieldtomatch -wafrgxmsFieldToMatch :: Lens' WAFv2RuleGroupXssMatchStatement WAFv2RuleGroupFieldToMatch -wafrgxmsFieldToMatch = lens _wAFv2RuleGroupXssMatchStatementFieldToMatch (\s a -> s { _wAFv2RuleGroupXssMatchStatementFieldToMatch = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-rulegroup-xssmatchstatement.html#cfn-wafv2-rulegroup-xssmatchstatement-texttransformations -wafrgxmsTextTransformations :: Lens' WAFv2RuleGroupXssMatchStatement [WAFv2RuleGroupTextTransformation] -wafrgxmsTextTransformations = lens _wAFv2RuleGroupXssMatchStatementTextTransformations (\s a -> s { _wAFv2RuleGroupXssMatchStatementTextTransformations = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLAndStatementOne.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLAndStatementOne.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLAndStatementOne.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-andstatementone.html - -module Stratosphere.ResourceProperties.WAFv2WebACLAndStatementOne where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2WebACLStatementTwo - --- | Full data type definition for WAFv2WebACLAndStatementOne. See --- 'waFv2WebACLAndStatementOne' for a more convenient constructor. -data WAFv2WebACLAndStatementOne = - WAFv2WebACLAndStatementOne - { _wAFv2WebACLAndStatementOneStatements :: [WAFv2WebACLStatementTwo] - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLAndStatementOne where - toJSON WAFv2WebACLAndStatementOne{..} = - object $ - catMaybes - [ (Just . ("Statements",) . toJSON) _wAFv2WebACLAndStatementOneStatements - ] - --- | Constructor for 'WAFv2WebACLAndStatementOne' containing required fields --- as arguments. -waFv2WebACLAndStatementOne - :: [WAFv2WebACLStatementTwo] -- ^ 'wafwaclasoStatements' - -> WAFv2WebACLAndStatementOne -waFv2WebACLAndStatementOne statementsarg = - WAFv2WebACLAndStatementOne - { _wAFv2WebACLAndStatementOneStatements = statementsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-andstatementone.html#cfn-wafv2-webacl-andstatementone-statements -wafwaclasoStatements :: Lens' WAFv2WebACLAndStatementOne [WAFv2WebACLStatementTwo] -wafwaclasoStatements = lens _wAFv2WebACLAndStatementOneStatements (\s a -> s { _wAFv2WebACLAndStatementOneStatements = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLAndStatementTwo.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLAndStatementTwo.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLAndStatementTwo.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-andstatementtwo.html - -module Stratosphere.ResourceProperties.WAFv2WebACLAndStatementTwo where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2WebACLStatementThree - --- | Full data type definition for WAFv2WebACLAndStatementTwo. See --- 'waFv2WebACLAndStatementTwo' for a more convenient constructor. -data WAFv2WebACLAndStatementTwo = - WAFv2WebACLAndStatementTwo - { _wAFv2WebACLAndStatementTwoStatements :: [WAFv2WebACLStatementThree] - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLAndStatementTwo where - toJSON WAFv2WebACLAndStatementTwo{..} = - object $ - catMaybes - [ (Just . ("Statements",) . toJSON) _wAFv2WebACLAndStatementTwoStatements - ] - --- | Constructor for 'WAFv2WebACLAndStatementTwo' containing required fields --- as arguments. -waFv2WebACLAndStatementTwo - :: [WAFv2WebACLStatementThree] -- ^ 'wafwaclastStatements' - -> WAFv2WebACLAndStatementTwo -waFv2WebACLAndStatementTwo statementsarg = - WAFv2WebACLAndStatementTwo - { _wAFv2WebACLAndStatementTwoStatements = statementsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-andstatementtwo.html#cfn-wafv2-webacl-andstatementtwo-statements -wafwaclastStatements :: Lens' WAFv2WebACLAndStatementTwo [WAFv2WebACLStatementThree] -wafwaclastStatements = lens _wAFv2WebACLAndStatementTwoStatements (\s a -> s { _wAFv2WebACLAndStatementTwoStatements = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLByteMatchStatement.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLByteMatchStatement.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLByteMatchStatement.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-bytematchstatement.html - -module Stratosphere.ResourceProperties.WAFv2WebACLByteMatchStatement where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2WebACLFieldToMatch -import Stratosphere.ResourceProperties.WAFv2WebACLTextTransformation - --- | Full data type definition for WAFv2WebACLByteMatchStatement. See --- 'waFv2WebACLByteMatchStatement' for a more convenient constructor. -data WAFv2WebACLByteMatchStatement = - WAFv2WebACLByteMatchStatement - { _wAFv2WebACLByteMatchStatementFieldToMatch :: WAFv2WebACLFieldToMatch - , _wAFv2WebACLByteMatchStatementPositionalConstraint :: Val Text - , _wAFv2WebACLByteMatchStatementSearchString :: Maybe (Val Text) - , _wAFv2WebACLByteMatchStatementSearchStringBase64 :: Maybe (Val Text) - , _wAFv2WebACLByteMatchStatementTextTransformations :: [WAFv2WebACLTextTransformation] - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLByteMatchStatement where - toJSON WAFv2WebACLByteMatchStatement{..} = - object $ - catMaybes - [ (Just . ("FieldToMatch",) . toJSON) _wAFv2WebACLByteMatchStatementFieldToMatch - , (Just . ("PositionalConstraint",) . toJSON) _wAFv2WebACLByteMatchStatementPositionalConstraint - , fmap (("SearchString",) . toJSON) _wAFv2WebACLByteMatchStatementSearchString - , fmap (("SearchStringBase64",) . toJSON) _wAFv2WebACLByteMatchStatementSearchStringBase64 - , (Just . ("TextTransformations",) . toJSON) _wAFv2WebACLByteMatchStatementTextTransformations - ] - --- | Constructor for 'WAFv2WebACLByteMatchStatement' containing required --- fields as arguments. -waFv2WebACLByteMatchStatement - :: WAFv2WebACLFieldToMatch -- ^ 'wafwaclbmsFieldToMatch' - -> Val Text -- ^ 'wafwaclbmsPositionalConstraint' - -> [WAFv2WebACLTextTransformation] -- ^ 'wafwaclbmsTextTransformations' - -> WAFv2WebACLByteMatchStatement -waFv2WebACLByteMatchStatement fieldToMatcharg positionalConstraintarg textTransformationsarg = - WAFv2WebACLByteMatchStatement - { _wAFv2WebACLByteMatchStatementFieldToMatch = fieldToMatcharg - , _wAFv2WebACLByteMatchStatementPositionalConstraint = positionalConstraintarg - , _wAFv2WebACLByteMatchStatementSearchString = Nothing - , _wAFv2WebACLByteMatchStatementSearchStringBase64 = Nothing - , _wAFv2WebACLByteMatchStatementTextTransformations = textTransformationsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-bytematchstatement.html#cfn-wafv2-webacl-bytematchstatement-fieldtomatch -wafwaclbmsFieldToMatch :: Lens' WAFv2WebACLByteMatchStatement WAFv2WebACLFieldToMatch -wafwaclbmsFieldToMatch = lens _wAFv2WebACLByteMatchStatementFieldToMatch (\s a -> s { _wAFv2WebACLByteMatchStatementFieldToMatch = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-bytematchstatement.html#cfn-wafv2-webacl-bytematchstatement-positionalconstraint -wafwaclbmsPositionalConstraint :: Lens' WAFv2WebACLByteMatchStatement (Val Text) -wafwaclbmsPositionalConstraint = lens _wAFv2WebACLByteMatchStatementPositionalConstraint (\s a -> s { _wAFv2WebACLByteMatchStatementPositionalConstraint = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-bytematchstatement.html#cfn-wafv2-webacl-bytematchstatement-searchstring -wafwaclbmsSearchString :: Lens' WAFv2WebACLByteMatchStatement (Maybe (Val Text)) -wafwaclbmsSearchString = lens _wAFv2WebACLByteMatchStatementSearchString (\s a -> s { _wAFv2WebACLByteMatchStatementSearchString = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-bytematchstatement.html#cfn-wafv2-webacl-bytematchstatement-searchstringbase64 -wafwaclbmsSearchStringBase64 :: Lens' WAFv2WebACLByteMatchStatement (Maybe (Val Text)) -wafwaclbmsSearchStringBase64 = lens _wAFv2WebACLByteMatchStatementSearchStringBase64 (\s a -> s { _wAFv2WebACLByteMatchStatementSearchStringBase64 = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-bytematchstatement.html#cfn-wafv2-webacl-bytematchstatement-texttransformations -wafwaclbmsTextTransformations :: Lens' WAFv2WebACLByteMatchStatement [WAFv2WebACLTextTransformation] -wafwaclbmsTextTransformations = lens _wAFv2WebACLByteMatchStatementTextTransformations (\s a -> s { _wAFv2WebACLByteMatchStatementTextTransformations = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLDefaultAction.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLDefaultAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLDefaultAction.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-defaultaction.html - -module Stratosphere.ResourceProperties.WAFv2WebACLDefaultAction where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFv2WebACLDefaultAction. See --- 'waFv2WebACLDefaultAction' for a more convenient constructor. -data WAFv2WebACLDefaultAction = - WAFv2WebACLDefaultAction - { _wAFv2WebACLDefaultActionAllow :: Maybe Object - , _wAFv2WebACLDefaultActionBlock :: Maybe Object - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLDefaultAction where - toJSON WAFv2WebACLDefaultAction{..} = - object $ - catMaybes - [ fmap (("Allow",) . toJSON) _wAFv2WebACLDefaultActionAllow - , fmap (("Block",) . toJSON) _wAFv2WebACLDefaultActionBlock - ] - --- | Constructor for 'WAFv2WebACLDefaultAction' containing required fields as --- arguments. -waFv2WebACLDefaultAction - :: WAFv2WebACLDefaultAction -waFv2WebACLDefaultAction = - WAFv2WebACLDefaultAction - { _wAFv2WebACLDefaultActionAllow = Nothing - , _wAFv2WebACLDefaultActionBlock = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-defaultaction.html#cfn-wafv2-webacl-defaultaction-allow -wafwacldaAllow :: Lens' WAFv2WebACLDefaultAction (Maybe Object) -wafwacldaAllow = lens _wAFv2WebACLDefaultActionAllow (\s a -> s { _wAFv2WebACLDefaultActionAllow = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-defaultaction.html#cfn-wafv2-webacl-defaultaction-block -wafwacldaBlock :: Lens' WAFv2WebACLDefaultAction (Maybe Object) -wafwacldaBlock = lens _wAFv2WebACLDefaultActionBlock (\s a -> s { _wAFv2WebACLDefaultActionBlock = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLExcludedRule.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLExcludedRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLExcludedRule.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-excludedrule.html - -module Stratosphere.ResourceProperties.WAFv2WebACLExcludedRule where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFv2WebACLExcludedRule. See --- 'waFv2WebACLExcludedRule' for a more convenient constructor. -data WAFv2WebACLExcludedRule = - WAFv2WebACLExcludedRule - { _wAFv2WebACLExcludedRuleName :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLExcludedRule where - toJSON WAFv2WebACLExcludedRule{..} = - object $ - catMaybes - [ (Just . ("Name",) . toJSON) _wAFv2WebACLExcludedRuleName - ] - --- | Constructor for 'WAFv2WebACLExcludedRule' containing required fields as --- arguments. -waFv2WebACLExcludedRule - :: Val Text -- ^ 'wafwaclerName' - -> WAFv2WebACLExcludedRule -waFv2WebACLExcludedRule namearg = - WAFv2WebACLExcludedRule - { _wAFv2WebACLExcludedRuleName = namearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-excludedrule.html#cfn-wafv2-webacl-excludedrule-name -wafwaclerName :: Lens' WAFv2WebACLExcludedRule (Val Text) -wafwaclerName = lens _wAFv2WebACLExcludedRuleName (\s a -> s { _wAFv2WebACLExcludedRuleName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLFieldToMatch.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLFieldToMatch.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLFieldToMatch.hs +++ /dev/null @@ -1,80 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-fieldtomatch.html - -module Stratosphere.ResourceProperties.WAFv2WebACLFieldToMatch where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFv2WebACLFieldToMatch. See --- 'waFv2WebACLFieldToMatch' for a more convenient constructor. -data WAFv2WebACLFieldToMatch = - WAFv2WebACLFieldToMatch - { _wAFv2WebACLFieldToMatchAllQueryArguments :: Maybe Object - , _wAFv2WebACLFieldToMatchBody :: Maybe Object - , _wAFv2WebACLFieldToMatchMethod :: Maybe Object - , _wAFv2WebACLFieldToMatchQueryString :: Maybe Object - , _wAFv2WebACLFieldToMatchSingleHeader :: Maybe Object - , _wAFv2WebACLFieldToMatchSingleQueryArgument :: Maybe Object - , _wAFv2WebACLFieldToMatchUriPath :: Maybe Object - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLFieldToMatch where - toJSON WAFv2WebACLFieldToMatch{..} = - object $ - catMaybes - [ fmap (("AllQueryArguments",) . toJSON) _wAFv2WebACLFieldToMatchAllQueryArguments - , fmap (("Body",) . toJSON) _wAFv2WebACLFieldToMatchBody - , fmap (("Method",) . toJSON) _wAFv2WebACLFieldToMatchMethod - , fmap (("QueryString",) . toJSON) _wAFv2WebACLFieldToMatchQueryString - , fmap (("SingleHeader",) . toJSON) _wAFv2WebACLFieldToMatchSingleHeader - , fmap (("SingleQueryArgument",) . toJSON) _wAFv2WebACLFieldToMatchSingleQueryArgument - , fmap (("UriPath",) . toJSON) _wAFv2WebACLFieldToMatchUriPath - ] - --- | Constructor for 'WAFv2WebACLFieldToMatch' containing required fields as --- arguments. -waFv2WebACLFieldToMatch - :: WAFv2WebACLFieldToMatch -waFv2WebACLFieldToMatch = - WAFv2WebACLFieldToMatch - { _wAFv2WebACLFieldToMatchAllQueryArguments = Nothing - , _wAFv2WebACLFieldToMatchBody = Nothing - , _wAFv2WebACLFieldToMatchMethod = Nothing - , _wAFv2WebACLFieldToMatchQueryString = Nothing - , _wAFv2WebACLFieldToMatchSingleHeader = Nothing - , _wAFv2WebACLFieldToMatchSingleQueryArgument = Nothing - , _wAFv2WebACLFieldToMatchUriPath = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-fieldtomatch.html#cfn-wafv2-webacl-fieldtomatch-allqueryarguments -wafwaclftmAllQueryArguments :: Lens' WAFv2WebACLFieldToMatch (Maybe Object) -wafwaclftmAllQueryArguments = lens _wAFv2WebACLFieldToMatchAllQueryArguments (\s a -> s { _wAFv2WebACLFieldToMatchAllQueryArguments = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-fieldtomatch.html#cfn-wafv2-webacl-fieldtomatch-body -wafwaclftmBody :: Lens' WAFv2WebACLFieldToMatch (Maybe Object) -wafwaclftmBody = lens _wAFv2WebACLFieldToMatchBody (\s a -> s { _wAFv2WebACLFieldToMatchBody = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-fieldtomatch.html#cfn-wafv2-webacl-fieldtomatch-method -wafwaclftmMethod :: Lens' WAFv2WebACLFieldToMatch (Maybe Object) -wafwaclftmMethod = lens _wAFv2WebACLFieldToMatchMethod (\s a -> s { _wAFv2WebACLFieldToMatchMethod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-fieldtomatch.html#cfn-wafv2-webacl-fieldtomatch-querystring -wafwaclftmQueryString :: Lens' WAFv2WebACLFieldToMatch (Maybe Object) -wafwaclftmQueryString = lens _wAFv2WebACLFieldToMatchQueryString (\s a -> s { _wAFv2WebACLFieldToMatchQueryString = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-fieldtomatch.html#cfn-wafv2-webacl-fieldtomatch-singleheader -wafwaclftmSingleHeader :: Lens' WAFv2WebACLFieldToMatch (Maybe Object) -wafwaclftmSingleHeader = lens _wAFv2WebACLFieldToMatchSingleHeader (\s a -> s { _wAFv2WebACLFieldToMatchSingleHeader = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-fieldtomatch.html#cfn-wafv2-webacl-fieldtomatch-singlequeryargument -wafwaclftmSingleQueryArgument :: Lens' WAFv2WebACLFieldToMatch (Maybe Object) -wafwaclftmSingleQueryArgument = lens _wAFv2WebACLFieldToMatchSingleQueryArgument (\s a -> s { _wAFv2WebACLFieldToMatchSingleQueryArgument = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-fieldtomatch.html#cfn-wafv2-webacl-fieldtomatch-uripath -wafwaclftmUriPath :: Lens' WAFv2WebACLFieldToMatch (Maybe Object) -wafwaclftmUriPath = lens _wAFv2WebACLFieldToMatchUriPath (\s a -> s { _wAFv2WebACLFieldToMatchUriPath = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLForwardedIPConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLForwardedIPConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLForwardedIPConfiguration.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-forwardedipconfiguration.html - -module Stratosphere.ResourceProperties.WAFv2WebACLForwardedIPConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFv2WebACLForwardedIPConfiguration. See --- 'waFv2WebACLForwardedIPConfiguration' for a more convenient constructor. -data WAFv2WebACLForwardedIPConfiguration = - WAFv2WebACLForwardedIPConfiguration - { _wAFv2WebACLForwardedIPConfigurationFallbackBehavior :: Val Text - , _wAFv2WebACLForwardedIPConfigurationHeaderName :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLForwardedIPConfiguration where - toJSON WAFv2WebACLForwardedIPConfiguration{..} = - object $ - catMaybes - [ (Just . ("FallbackBehavior",) . toJSON) _wAFv2WebACLForwardedIPConfigurationFallbackBehavior - , (Just . ("HeaderName",) . toJSON) _wAFv2WebACLForwardedIPConfigurationHeaderName - ] - --- | Constructor for 'WAFv2WebACLForwardedIPConfiguration' containing required --- fields as arguments. -waFv2WebACLForwardedIPConfiguration - :: Val Text -- ^ 'wafwaclfipcFallbackBehavior' - -> Val Text -- ^ 'wafwaclfipcHeaderName' - -> WAFv2WebACLForwardedIPConfiguration -waFv2WebACLForwardedIPConfiguration fallbackBehaviorarg headerNamearg = - WAFv2WebACLForwardedIPConfiguration - { _wAFv2WebACLForwardedIPConfigurationFallbackBehavior = fallbackBehaviorarg - , _wAFv2WebACLForwardedIPConfigurationHeaderName = headerNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-forwardedipconfiguration.html#cfn-wafv2-webacl-forwardedipconfiguration-fallbackbehavior -wafwaclfipcFallbackBehavior :: Lens' WAFv2WebACLForwardedIPConfiguration (Val Text) -wafwaclfipcFallbackBehavior = lens _wAFv2WebACLForwardedIPConfigurationFallbackBehavior (\s a -> s { _wAFv2WebACLForwardedIPConfigurationFallbackBehavior = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-forwardedipconfiguration.html#cfn-wafv2-webacl-forwardedipconfiguration-headername -wafwaclfipcHeaderName :: Lens' WAFv2WebACLForwardedIPConfiguration (Val Text) -wafwaclfipcHeaderName = lens _wAFv2WebACLForwardedIPConfigurationHeaderName (\s a -> s { _wAFv2WebACLForwardedIPConfigurationHeaderName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLGeoMatchStatement.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLGeoMatchStatement.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLGeoMatchStatement.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-geomatchstatement.html - -module Stratosphere.ResourceProperties.WAFv2WebACLGeoMatchStatement where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2WebACLForwardedIPConfiguration - --- | Full data type definition for WAFv2WebACLGeoMatchStatement. See --- 'waFv2WebACLGeoMatchStatement' for a more convenient constructor. -data WAFv2WebACLGeoMatchStatement = - WAFv2WebACLGeoMatchStatement - { _wAFv2WebACLGeoMatchStatementCountryCodes :: Maybe (ValList Text) - , _wAFv2WebACLGeoMatchStatementForwardedIPConfig :: Maybe WAFv2WebACLForwardedIPConfiguration - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLGeoMatchStatement where - toJSON WAFv2WebACLGeoMatchStatement{..} = - object $ - catMaybes - [ fmap (("CountryCodes",) . toJSON) _wAFv2WebACLGeoMatchStatementCountryCodes - , fmap (("ForwardedIPConfig",) . toJSON) _wAFv2WebACLGeoMatchStatementForwardedIPConfig - ] - --- | Constructor for 'WAFv2WebACLGeoMatchStatement' containing required fields --- as arguments. -waFv2WebACLGeoMatchStatement - :: WAFv2WebACLGeoMatchStatement -waFv2WebACLGeoMatchStatement = - WAFv2WebACLGeoMatchStatement - { _wAFv2WebACLGeoMatchStatementCountryCodes = Nothing - , _wAFv2WebACLGeoMatchStatementForwardedIPConfig = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-geomatchstatement.html#cfn-wafv2-webacl-geomatchstatement-countrycodes -wafwaclgmsCountryCodes :: Lens' WAFv2WebACLGeoMatchStatement (Maybe (ValList Text)) -wafwaclgmsCountryCodes = lens _wAFv2WebACLGeoMatchStatementCountryCodes (\s a -> s { _wAFv2WebACLGeoMatchStatementCountryCodes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-geomatchstatement.html#cfn-wafv2-webacl-geomatchstatement-forwardedipconfig -wafwaclgmsForwardedIPConfig :: Lens' WAFv2WebACLGeoMatchStatement (Maybe WAFv2WebACLForwardedIPConfiguration) -wafwaclgmsForwardedIPConfig = lens _wAFv2WebACLGeoMatchStatementForwardedIPConfig (\s a -> s { _wAFv2WebACLGeoMatchStatementForwardedIPConfig = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLIPSetForwardedIPConfiguration.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLIPSetForwardedIPConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLIPSetForwardedIPConfiguration.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ipsetforwardedipconfiguration.html - -module Stratosphere.ResourceProperties.WAFv2WebACLIPSetForwardedIPConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFv2WebACLIPSetForwardedIPConfiguration. --- See 'waFv2WebACLIPSetForwardedIPConfiguration' for a more convenient --- constructor. -data WAFv2WebACLIPSetForwardedIPConfiguration = - WAFv2WebACLIPSetForwardedIPConfiguration - { _wAFv2WebACLIPSetForwardedIPConfigurationFallbackBehavior :: Val Text - , _wAFv2WebACLIPSetForwardedIPConfigurationHeaderName :: Val Text - , _wAFv2WebACLIPSetForwardedIPConfigurationPosition :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLIPSetForwardedIPConfiguration where - toJSON WAFv2WebACLIPSetForwardedIPConfiguration{..} = - object $ - catMaybes - [ (Just . ("FallbackBehavior",) . toJSON) _wAFv2WebACLIPSetForwardedIPConfigurationFallbackBehavior - , (Just . ("HeaderName",) . toJSON) _wAFv2WebACLIPSetForwardedIPConfigurationHeaderName - , (Just . ("Position",) . toJSON) _wAFv2WebACLIPSetForwardedIPConfigurationPosition - ] - --- | Constructor for 'WAFv2WebACLIPSetForwardedIPConfiguration' containing --- required fields as arguments. -waFv2WebACLIPSetForwardedIPConfiguration - :: Val Text -- ^ 'wafwaclipsfipcFallbackBehavior' - -> Val Text -- ^ 'wafwaclipsfipcHeaderName' - -> Val Text -- ^ 'wafwaclipsfipcPosition' - -> WAFv2WebACLIPSetForwardedIPConfiguration -waFv2WebACLIPSetForwardedIPConfiguration fallbackBehaviorarg headerNamearg positionarg = - WAFv2WebACLIPSetForwardedIPConfiguration - { _wAFv2WebACLIPSetForwardedIPConfigurationFallbackBehavior = fallbackBehaviorarg - , _wAFv2WebACLIPSetForwardedIPConfigurationHeaderName = headerNamearg - , _wAFv2WebACLIPSetForwardedIPConfigurationPosition = positionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ipsetforwardedipconfiguration.html#cfn-wafv2-webacl-ipsetforwardedipconfiguration-fallbackbehavior -wafwaclipsfipcFallbackBehavior :: Lens' WAFv2WebACLIPSetForwardedIPConfiguration (Val Text) -wafwaclipsfipcFallbackBehavior = lens _wAFv2WebACLIPSetForwardedIPConfigurationFallbackBehavior (\s a -> s { _wAFv2WebACLIPSetForwardedIPConfigurationFallbackBehavior = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ipsetforwardedipconfiguration.html#cfn-wafv2-webacl-ipsetforwardedipconfiguration-headername -wafwaclipsfipcHeaderName :: Lens' WAFv2WebACLIPSetForwardedIPConfiguration (Val Text) -wafwaclipsfipcHeaderName = lens _wAFv2WebACLIPSetForwardedIPConfigurationHeaderName (\s a -> s { _wAFv2WebACLIPSetForwardedIPConfigurationHeaderName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ipsetforwardedipconfiguration.html#cfn-wafv2-webacl-ipsetforwardedipconfiguration-position -wafwaclipsfipcPosition :: Lens' WAFv2WebACLIPSetForwardedIPConfiguration (Val Text) -wafwaclipsfipcPosition = lens _wAFv2WebACLIPSetForwardedIPConfigurationPosition (\s a -> s { _wAFv2WebACLIPSetForwardedIPConfigurationPosition = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLIPSetReferenceStatement.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLIPSetReferenceStatement.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLIPSetReferenceStatement.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ipsetreferencestatement.html - -module Stratosphere.ResourceProperties.WAFv2WebACLIPSetReferenceStatement where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2WebACLIPSetForwardedIPConfiguration - --- | Full data type definition for WAFv2WebACLIPSetReferenceStatement. See --- 'waFv2WebACLIPSetReferenceStatement' for a more convenient constructor. -data WAFv2WebACLIPSetReferenceStatement = - WAFv2WebACLIPSetReferenceStatement - { _wAFv2WebACLIPSetReferenceStatementArn :: Val Text - , _wAFv2WebACLIPSetReferenceStatementIPSetForwardedIPConfig :: Maybe WAFv2WebACLIPSetForwardedIPConfiguration - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLIPSetReferenceStatement where - toJSON WAFv2WebACLIPSetReferenceStatement{..} = - object $ - catMaybes - [ (Just . ("Arn",) . toJSON) _wAFv2WebACLIPSetReferenceStatementArn - , fmap (("IPSetForwardedIPConfig",) . toJSON) _wAFv2WebACLIPSetReferenceStatementIPSetForwardedIPConfig - ] - --- | Constructor for 'WAFv2WebACLIPSetReferenceStatement' containing required --- fields as arguments. -waFv2WebACLIPSetReferenceStatement - :: Val Text -- ^ 'wafwaclipsrsArn' - -> WAFv2WebACLIPSetReferenceStatement -waFv2WebACLIPSetReferenceStatement arnarg = - WAFv2WebACLIPSetReferenceStatement - { _wAFv2WebACLIPSetReferenceStatementArn = arnarg - , _wAFv2WebACLIPSetReferenceStatementIPSetForwardedIPConfig = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ipsetreferencestatement.html#cfn-wafv2-webacl-ipsetreferencestatement-arn -wafwaclipsrsArn :: Lens' WAFv2WebACLIPSetReferenceStatement (Val Text) -wafwaclipsrsArn = lens _wAFv2WebACLIPSetReferenceStatementArn (\s a -> s { _wAFv2WebACLIPSetReferenceStatementArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ipsetreferencestatement.html#cfn-wafv2-webacl-ipsetreferencestatement-ipsetforwardedipconfig -wafwaclipsrsIPSetForwardedIPConfig :: Lens' WAFv2WebACLIPSetReferenceStatement (Maybe WAFv2WebACLIPSetForwardedIPConfiguration) -wafwaclipsrsIPSetForwardedIPConfig = lens _wAFv2WebACLIPSetReferenceStatementIPSetForwardedIPConfig (\s a -> s { _wAFv2WebACLIPSetReferenceStatementIPSetForwardedIPConfig = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLManagedRuleGroupStatement.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLManagedRuleGroupStatement.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLManagedRuleGroupStatement.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-managedrulegroupstatement.html - -module Stratosphere.ResourceProperties.WAFv2WebACLManagedRuleGroupStatement where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2WebACLExcludedRule - --- | Full data type definition for WAFv2WebACLManagedRuleGroupStatement. See --- 'waFv2WebACLManagedRuleGroupStatement' for a more convenient constructor. -data WAFv2WebACLManagedRuleGroupStatement = - WAFv2WebACLManagedRuleGroupStatement - { _wAFv2WebACLManagedRuleGroupStatementExcludedRules :: Maybe [WAFv2WebACLExcludedRule] - , _wAFv2WebACLManagedRuleGroupStatementName :: Val Text - , _wAFv2WebACLManagedRuleGroupStatementVendorName :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLManagedRuleGroupStatement where - toJSON WAFv2WebACLManagedRuleGroupStatement{..} = - object $ - catMaybes - [ fmap (("ExcludedRules",) . toJSON) _wAFv2WebACLManagedRuleGroupStatementExcludedRules - , (Just . ("Name",) . toJSON) _wAFv2WebACLManagedRuleGroupStatementName - , (Just . ("VendorName",) . toJSON) _wAFv2WebACLManagedRuleGroupStatementVendorName - ] - --- | Constructor for 'WAFv2WebACLManagedRuleGroupStatement' containing --- required fields as arguments. -waFv2WebACLManagedRuleGroupStatement - :: Val Text -- ^ 'wafwaclmrgsName' - -> Val Text -- ^ 'wafwaclmrgsVendorName' - -> WAFv2WebACLManagedRuleGroupStatement -waFv2WebACLManagedRuleGroupStatement namearg vendorNamearg = - WAFv2WebACLManagedRuleGroupStatement - { _wAFv2WebACLManagedRuleGroupStatementExcludedRules = Nothing - , _wAFv2WebACLManagedRuleGroupStatementName = namearg - , _wAFv2WebACLManagedRuleGroupStatementVendorName = vendorNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-managedrulegroupstatement.html#cfn-wafv2-webacl-managedrulegroupstatement-excludedrules -wafwaclmrgsExcludedRules :: Lens' WAFv2WebACLManagedRuleGroupStatement (Maybe [WAFv2WebACLExcludedRule]) -wafwaclmrgsExcludedRules = lens _wAFv2WebACLManagedRuleGroupStatementExcludedRules (\s a -> s { _wAFv2WebACLManagedRuleGroupStatementExcludedRules = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-managedrulegroupstatement.html#cfn-wafv2-webacl-managedrulegroupstatement-name -wafwaclmrgsName :: Lens' WAFv2WebACLManagedRuleGroupStatement (Val Text) -wafwaclmrgsName = lens _wAFv2WebACLManagedRuleGroupStatementName (\s a -> s { _wAFv2WebACLManagedRuleGroupStatementName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-managedrulegroupstatement.html#cfn-wafv2-webacl-managedrulegroupstatement-vendorname -wafwaclmrgsVendorName :: Lens' WAFv2WebACLManagedRuleGroupStatement (Val Text) -wafwaclmrgsVendorName = lens _wAFv2WebACLManagedRuleGroupStatementVendorName (\s a -> s { _wAFv2WebACLManagedRuleGroupStatementVendorName = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLNotStatementOne.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLNotStatementOne.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLNotStatementOne.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-notstatementone.html - -module Stratosphere.ResourceProperties.WAFv2WebACLNotStatementOne where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2WebACLStatementTwo - --- | Full data type definition for WAFv2WebACLNotStatementOne. See --- 'waFv2WebACLNotStatementOne' for a more convenient constructor. -data WAFv2WebACLNotStatementOne = - WAFv2WebACLNotStatementOne - { _wAFv2WebACLNotStatementOneStatement :: WAFv2WebACLStatementTwo - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLNotStatementOne where - toJSON WAFv2WebACLNotStatementOne{..} = - object $ - catMaybes - [ (Just . ("Statement",) . toJSON) _wAFv2WebACLNotStatementOneStatement - ] - --- | Constructor for 'WAFv2WebACLNotStatementOne' containing required fields --- as arguments. -waFv2WebACLNotStatementOne - :: WAFv2WebACLStatementTwo -- ^ 'wafwaclnsoStatement' - -> WAFv2WebACLNotStatementOne -waFv2WebACLNotStatementOne statementarg = - WAFv2WebACLNotStatementOne - { _wAFv2WebACLNotStatementOneStatement = statementarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-notstatementone.html#cfn-wafv2-webacl-notstatementone-statement -wafwaclnsoStatement :: Lens' WAFv2WebACLNotStatementOne WAFv2WebACLStatementTwo -wafwaclnsoStatement = lens _wAFv2WebACLNotStatementOneStatement (\s a -> s { _wAFv2WebACLNotStatementOneStatement = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLNotStatementTwo.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLNotStatementTwo.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLNotStatementTwo.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-notstatementtwo.html - -module Stratosphere.ResourceProperties.WAFv2WebACLNotStatementTwo where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2WebACLStatementThree - --- | Full data type definition for WAFv2WebACLNotStatementTwo. See --- 'waFv2WebACLNotStatementTwo' for a more convenient constructor. -data WAFv2WebACLNotStatementTwo = - WAFv2WebACLNotStatementTwo - { _wAFv2WebACLNotStatementTwoStatement :: WAFv2WebACLStatementThree - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLNotStatementTwo where - toJSON WAFv2WebACLNotStatementTwo{..} = - object $ - catMaybes - [ (Just . ("Statement",) . toJSON) _wAFv2WebACLNotStatementTwoStatement - ] - --- | Constructor for 'WAFv2WebACLNotStatementTwo' containing required fields --- as arguments. -waFv2WebACLNotStatementTwo - :: WAFv2WebACLStatementThree -- ^ 'wafwaclnstStatement' - -> WAFv2WebACLNotStatementTwo -waFv2WebACLNotStatementTwo statementarg = - WAFv2WebACLNotStatementTwo - { _wAFv2WebACLNotStatementTwoStatement = statementarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-notstatementtwo.html#cfn-wafv2-webacl-notstatementtwo-statement -wafwaclnstStatement :: Lens' WAFv2WebACLNotStatementTwo WAFv2WebACLStatementThree -wafwaclnstStatement = lens _wAFv2WebACLNotStatementTwoStatement (\s a -> s { _wAFv2WebACLNotStatementTwoStatement = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLOrStatementOne.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLOrStatementOne.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLOrStatementOne.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-orstatementone.html - -module Stratosphere.ResourceProperties.WAFv2WebACLOrStatementOne where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2WebACLStatementTwo - --- | Full data type definition for WAFv2WebACLOrStatementOne. See --- 'waFv2WebACLOrStatementOne' for a more convenient constructor. -data WAFv2WebACLOrStatementOne = - WAFv2WebACLOrStatementOne - { _wAFv2WebACLOrStatementOneStatements :: [WAFv2WebACLStatementTwo] - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLOrStatementOne where - toJSON WAFv2WebACLOrStatementOne{..} = - object $ - catMaybes - [ (Just . ("Statements",) . toJSON) _wAFv2WebACLOrStatementOneStatements - ] - --- | Constructor for 'WAFv2WebACLOrStatementOne' containing required fields as --- arguments. -waFv2WebACLOrStatementOne - :: [WAFv2WebACLStatementTwo] -- ^ 'wafwaclosoStatements' - -> WAFv2WebACLOrStatementOne -waFv2WebACLOrStatementOne statementsarg = - WAFv2WebACLOrStatementOne - { _wAFv2WebACLOrStatementOneStatements = statementsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-orstatementone.html#cfn-wafv2-webacl-orstatementone-statements -wafwaclosoStatements :: Lens' WAFv2WebACLOrStatementOne [WAFv2WebACLStatementTwo] -wafwaclosoStatements = lens _wAFv2WebACLOrStatementOneStatements (\s a -> s { _wAFv2WebACLOrStatementOneStatements = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLOrStatementTwo.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLOrStatementTwo.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLOrStatementTwo.hs +++ /dev/null @@ -1,39 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-orstatementtwo.html - -module Stratosphere.ResourceProperties.WAFv2WebACLOrStatementTwo where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2WebACLStatementThree - --- | Full data type definition for WAFv2WebACLOrStatementTwo. See --- 'waFv2WebACLOrStatementTwo' for a more convenient constructor. -data WAFv2WebACLOrStatementTwo = - WAFv2WebACLOrStatementTwo - { _wAFv2WebACLOrStatementTwoStatements :: [WAFv2WebACLStatementThree] - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLOrStatementTwo where - toJSON WAFv2WebACLOrStatementTwo{..} = - object $ - catMaybes - [ (Just . ("Statements",) . toJSON) _wAFv2WebACLOrStatementTwoStatements - ] - --- | Constructor for 'WAFv2WebACLOrStatementTwo' containing required fields as --- arguments. -waFv2WebACLOrStatementTwo - :: [WAFv2WebACLStatementThree] -- ^ 'wafwaclostStatements' - -> WAFv2WebACLOrStatementTwo -waFv2WebACLOrStatementTwo statementsarg = - WAFv2WebACLOrStatementTwo - { _wAFv2WebACLOrStatementTwoStatements = statementsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-orstatementtwo.html#cfn-wafv2-webacl-orstatementtwo-statements -wafwaclostStatements :: Lens' WAFv2WebACLOrStatementTwo [WAFv2WebACLStatementThree] -wafwaclostStatements = lens _wAFv2WebACLOrStatementTwoStatements (\s a -> s { _wAFv2WebACLOrStatementTwoStatements = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLOverrideAction.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLOverrideAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLOverrideAction.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-overrideaction.html - -module Stratosphere.ResourceProperties.WAFv2WebACLOverrideAction where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFv2WebACLOverrideAction. See --- 'waFv2WebACLOverrideAction' for a more convenient constructor. -data WAFv2WebACLOverrideAction = - WAFv2WebACLOverrideAction - { _wAFv2WebACLOverrideActionCount :: Maybe Object - , _wAFv2WebACLOverrideActionNone :: Maybe Object - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLOverrideAction where - toJSON WAFv2WebACLOverrideAction{..} = - object $ - catMaybes - [ fmap (("Count",) . toJSON) _wAFv2WebACLOverrideActionCount - , fmap (("None",) . toJSON) _wAFv2WebACLOverrideActionNone - ] - --- | Constructor for 'WAFv2WebACLOverrideAction' containing required fields as --- arguments. -waFv2WebACLOverrideAction - :: WAFv2WebACLOverrideAction -waFv2WebACLOverrideAction = - WAFv2WebACLOverrideAction - { _wAFv2WebACLOverrideActionCount = Nothing - , _wAFv2WebACLOverrideActionNone = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-overrideaction.html#cfn-wafv2-webacl-overrideaction-count -wafwacloaCount :: Lens' WAFv2WebACLOverrideAction (Maybe Object) -wafwacloaCount = lens _wAFv2WebACLOverrideActionCount (\s a -> s { _wAFv2WebACLOverrideActionCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-overrideaction.html#cfn-wafv2-webacl-overrideaction-none -wafwacloaNone :: Lens' WAFv2WebACLOverrideAction (Maybe Object) -wafwacloaNone = lens _wAFv2WebACLOverrideActionNone (\s a -> s { _wAFv2WebACLOverrideActionNone = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLRateBasedStatementOne.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLRateBasedStatementOne.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLRateBasedStatementOne.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ratebasedstatementone.html - -module Stratosphere.ResourceProperties.WAFv2WebACLRateBasedStatementOne where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2WebACLForwardedIPConfiguration -import Stratosphere.ResourceProperties.WAFv2WebACLStatementTwo - --- | Full data type definition for WAFv2WebACLRateBasedStatementOne. See --- 'waFv2WebACLRateBasedStatementOne' for a more convenient constructor. -data WAFv2WebACLRateBasedStatementOne = - WAFv2WebACLRateBasedStatementOne - { _wAFv2WebACLRateBasedStatementOneAggregateKeyType :: Val Text - , _wAFv2WebACLRateBasedStatementOneForwardedIPConfig :: Maybe WAFv2WebACLForwardedIPConfiguration - , _wAFv2WebACLRateBasedStatementOneLimit :: Val Integer - , _wAFv2WebACLRateBasedStatementOneScopeDownStatement :: Maybe WAFv2WebACLStatementTwo - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLRateBasedStatementOne where - toJSON WAFv2WebACLRateBasedStatementOne{..} = - object $ - catMaybes - [ (Just . ("AggregateKeyType",) . toJSON) _wAFv2WebACLRateBasedStatementOneAggregateKeyType - , fmap (("ForwardedIPConfig",) . toJSON) _wAFv2WebACLRateBasedStatementOneForwardedIPConfig - , (Just . ("Limit",) . toJSON) _wAFv2WebACLRateBasedStatementOneLimit - , fmap (("ScopeDownStatement",) . toJSON) _wAFv2WebACLRateBasedStatementOneScopeDownStatement - ] - --- | Constructor for 'WAFv2WebACLRateBasedStatementOne' containing required --- fields as arguments. -waFv2WebACLRateBasedStatementOne - :: Val Text -- ^ 'wafwaclrbsoAggregateKeyType' - -> Val Integer -- ^ 'wafwaclrbsoLimit' - -> WAFv2WebACLRateBasedStatementOne -waFv2WebACLRateBasedStatementOne aggregateKeyTypearg limitarg = - WAFv2WebACLRateBasedStatementOne - { _wAFv2WebACLRateBasedStatementOneAggregateKeyType = aggregateKeyTypearg - , _wAFv2WebACLRateBasedStatementOneForwardedIPConfig = Nothing - , _wAFv2WebACLRateBasedStatementOneLimit = limitarg - , _wAFv2WebACLRateBasedStatementOneScopeDownStatement = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ratebasedstatementone.html#cfn-wafv2-webacl-ratebasedstatementone-aggregatekeytype -wafwaclrbsoAggregateKeyType :: Lens' WAFv2WebACLRateBasedStatementOne (Val Text) -wafwaclrbsoAggregateKeyType = lens _wAFv2WebACLRateBasedStatementOneAggregateKeyType (\s a -> s { _wAFv2WebACLRateBasedStatementOneAggregateKeyType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ratebasedstatementone.html#cfn-wafv2-webacl-ratebasedstatementone-forwardedipconfig -wafwaclrbsoForwardedIPConfig :: Lens' WAFv2WebACLRateBasedStatementOne (Maybe WAFv2WebACLForwardedIPConfiguration) -wafwaclrbsoForwardedIPConfig = lens _wAFv2WebACLRateBasedStatementOneForwardedIPConfig (\s a -> s { _wAFv2WebACLRateBasedStatementOneForwardedIPConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ratebasedstatementone.html#cfn-wafv2-webacl-ratebasedstatementone-limit -wafwaclrbsoLimit :: Lens' WAFv2WebACLRateBasedStatementOne (Val Integer) -wafwaclrbsoLimit = lens _wAFv2WebACLRateBasedStatementOneLimit (\s a -> s { _wAFv2WebACLRateBasedStatementOneLimit = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ratebasedstatementone.html#cfn-wafv2-webacl-ratebasedstatementone-scopedownstatement -wafwaclrbsoScopeDownStatement :: Lens' WAFv2WebACLRateBasedStatementOne (Maybe WAFv2WebACLStatementTwo) -wafwaclrbsoScopeDownStatement = lens _wAFv2WebACLRateBasedStatementOneScopeDownStatement (\s a -> s { _wAFv2WebACLRateBasedStatementOneScopeDownStatement = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLRateBasedStatementTwo.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLRateBasedStatementTwo.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLRateBasedStatementTwo.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ratebasedstatementtwo.html - -module Stratosphere.ResourceProperties.WAFv2WebACLRateBasedStatementTwo where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2WebACLForwardedIPConfiguration -import Stratosphere.ResourceProperties.WAFv2WebACLStatementThree - --- | Full data type definition for WAFv2WebACLRateBasedStatementTwo. See --- 'waFv2WebACLRateBasedStatementTwo' for a more convenient constructor. -data WAFv2WebACLRateBasedStatementTwo = - WAFv2WebACLRateBasedStatementTwo - { _wAFv2WebACLRateBasedStatementTwoAggregateKeyType :: Val Text - , _wAFv2WebACLRateBasedStatementTwoForwardedIPConfig :: Maybe WAFv2WebACLForwardedIPConfiguration - , _wAFv2WebACLRateBasedStatementTwoLimit :: Val Integer - , _wAFv2WebACLRateBasedStatementTwoScopeDownStatement :: Maybe WAFv2WebACLStatementThree - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLRateBasedStatementTwo where - toJSON WAFv2WebACLRateBasedStatementTwo{..} = - object $ - catMaybes - [ (Just . ("AggregateKeyType",) . toJSON) _wAFv2WebACLRateBasedStatementTwoAggregateKeyType - , fmap (("ForwardedIPConfig",) . toJSON) _wAFv2WebACLRateBasedStatementTwoForwardedIPConfig - , (Just . ("Limit",) . toJSON) _wAFv2WebACLRateBasedStatementTwoLimit - , fmap (("ScopeDownStatement",) . toJSON) _wAFv2WebACLRateBasedStatementTwoScopeDownStatement - ] - --- | Constructor for 'WAFv2WebACLRateBasedStatementTwo' containing required --- fields as arguments. -waFv2WebACLRateBasedStatementTwo - :: Val Text -- ^ 'wafwaclrbstAggregateKeyType' - -> Val Integer -- ^ 'wafwaclrbstLimit' - -> WAFv2WebACLRateBasedStatementTwo -waFv2WebACLRateBasedStatementTwo aggregateKeyTypearg limitarg = - WAFv2WebACLRateBasedStatementTwo - { _wAFv2WebACLRateBasedStatementTwoAggregateKeyType = aggregateKeyTypearg - , _wAFv2WebACLRateBasedStatementTwoForwardedIPConfig = Nothing - , _wAFv2WebACLRateBasedStatementTwoLimit = limitarg - , _wAFv2WebACLRateBasedStatementTwoScopeDownStatement = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ratebasedstatementtwo.html#cfn-wafv2-webacl-ratebasedstatementtwo-aggregatekeytype -wafwaclrbstAggregateKeyType :: Lens' WAFv2WebACLRateBasedStatementTwo (Val Text) -wafwaclrbstAggregateKeyType = lens _wAFv2WebACLRateBasedStatementTwoAggregateKeyType (\s a -> s { _wAFv2WebACLRateBasedStatementTwoAggregateKeyType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ratebasedstatementtwo.html#cfn-wafv2-webacl-ratebasedstatementtwo-forwardedipconfig -wafwaclrbstForwardedIPConfig :: Lens' WAFv2WebACLRateBasedStatementTwo (Maybe WAFv2WebACLForwardedIPConfiguration) -wafwaclrbstForwardedIPConfig = lens _wAFv2WebACLRateBasedStatementTwoForwardedIPConfig (\s a -> s { _wAFv2WebACLRateBasedStatementTwoForwardedIPConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ratebasedstatementtwo.html#cfn-wafv2-webacl-ratebasedstatementtwo-limit -wafwaclrbstLimit :: Lens' WAFv2WebACLRateBasedStatementTwo (Val Integer) -wafwaclrbstLimit = lens _wAFv2WebACLRateBasedStatementTwoLimit (\s a -> s { _wAFv2WebACLRateBasedStatementTwoLimit = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ratebasedstatementtwo.html#cfn-wafv2-webacl-ratebasedstatementtwo-scopedownstatement -wafwaclrbstScopeDownStatement :: Lens' WAFv2WebACLRateBasedStatementTwo (Maybe WAFv2WebACLStatementThree) -wafwaclrbstScopeDownStatement = lens _wAFv2WebACLRateBasedStatementTwoScopeDownStatement (\s a -> s { _wAFv2WebACLRateBasedStatementTwoScopeDownStatement = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLRegexPatternSetReferenceStatement.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLRegexPatternSetReferenceStatement.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLRegexPatternSetReferenceStatement.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-regexpatternsetreferencestatement.html - -module Stratosphere.ResourceProperties.WAFv2WebACLRegexPatternSetReferenceStatement where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2WebACLFieldToMatch -import Stratosphere.ResourceProperties.WAFv2WebACLTextTransformation - --- | Full data type definition for --- WAFv2WebACLRegexPatternSetReferenceStatement. See --- 'waFv2WebACLRegexPatternSetReferenceStatement' for a more convenient --- constructor. -data WAFv2WebACLRegexPatternSetReferenceStatement = - WAFv2WebACLRegexPatternSetReferenceStatement - { _wAFv2WebACLRegexPatternSetReferenceStatementArn :: Val Text - , _wAFv2WebACLRegexPatternSetReferenceStatementFieldToMatch :: WAFv2WebACLFieldToMatch - , _wAFv2WebACLRegexPatternSetReferenceStatementTextTransformations :: [WAFv2WebACLTextTransformation] - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLRegexPatternSetReferenceStatement where - toJSON WAFv2WebACLRegexPatternSetReferenceStatement{..} = - object $ - catMaybes - [ (Just . ("Arn",) . toJSON) _wAFv2WebACLRegexPatternSetReferenceStatementArn - , (Just . ("FieldToMatch",) . toJSON) _wAFv2WebACLRegexPatternSetReferenceStatementFieldToMatch - , (Just . ("TextTransformations",) . toJSON) _wAFv2WebACLRegexPatternSetReferenceStatementTextTransformations - ] - --- | Constructor for 'WAFv2WebACLRegexPatternSetReferenceStatement' containing --- required fields as arguments. -waFv2WebACLRegexPatternSetReferenceStatement - :: Val Text -- ^ 'wafwaclrpsrsArn' - -> WAFv2WebACLFieldToMatch -- ^ 'wafwaclrpsrsFieldToMatch' - -> [WAFv2WebACLTextTransformation] -- ^ 'wafwaclrpsrsTextTransformations' - -> WAFv2WebACLRegexPatternSetReferenceStatement -waFv2WebACLRegexPatternSetReferenceStatement arnarg fieldToMatcharg textTransformationsarg = - WAFv2WebACLRegexPatternSetReferenceStatement - { _wAFv2WebACLRegexPatternSetReferenceStatementArn = arnarg - , _wAFv2WebACLRegexPatternSetReferenceStatementFieldToMatch = fieldToMatcharg - , _wAFv2WebACLRegexPatternSetReferenceStatementTextTransformations = textTransformationsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-regexpatternsetreferencestatement.html#cfn-wafv2-webacl-regexpatternsetreferencestatement-arn -wafwaclrpsrsArn :: Lens' WAFv2WebACLRegexPatternSetReferenceStatement (Val Text) -wafwaclrpsrsArn = lens _wAFv2WebACLRegexPatternSetReferenceStatementArn (\s a -> s { _wAFv2WebACLRegexPatternSetReferenceStatementArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-regexpatternsetreferencestatement.html#cfn-wafv2-webacl-regexpatternsetreferencestatement-fieldtomatch -wafwaclrpsrsFieldToMatch :: Lens' WAFv2WebACLRegexPatternSetReferenceStatement WAFv2WebACLFieldToMatch -wafwaclrpsrsFieldToMatch = lens _wAFv2WebACLRegexPatternSetReferenceStatementFieldToMatch (\s a -> s { _wAFv2WebACLRegexPatternSetReferenceStatementFieldToMatch = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-regexpatternsetreferencestatement.html#cfn-wafv2-webacl-regexpatternsetreferencestatement-texttransformations -wafwaclrpsrsTextTransformations :: Lens' WAFv2WebACLRegexPatternSetReferenceStatement [WAFv2WebACLTextTransformation] -wafwaclrpsrsTextTransformations = lens _wAFv2WebACLRegexPatternSetReferenceStatementTextTransformations (\s a -> s { _wAFv2WebACLRegexPatternSetReferenceStatementTextTransformations = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLRule.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLRule.hs +++ /dev/null @@ -1,80 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-rule.html - -module Stratosphere.ResourceProperties.WAFv2WebACLRule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2WebACLRuleAction -import Stratosphere.ResourceProperties.WAFv2WebACLOverrideAction -import Stratosphere.ResourceProperties.WAFv2WebACLStatementOne -import Stratosphere.ResourceProperties.WAFv2WebACLVisibilityConfig - --- | Full data type definition for WAFv2WebACLRule. See 'waFv2WebACLRule' for --- a more convenient constructor. -data WAFv2WebACLRule = - WAFv2WebACLRule - { _wAFv2WebACLRuleAction :: Maybe WAFv2WebACLRuleAction - , _wAFv2WebACLRuleName :: Val Text - , _wAFv2WebACLRuleOverrideAction :: Maybe WAFv2WebACLOverrideAction - , _wAFv2WebACLRulePriority :: Val Integer - , _wAFv2WebACLRuleStatement :: WAFv2WebACLStatementOne - , _wAFv2WebACLRuleVisibilityConfig :: WAFv2WebACLVisibilityConfig - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLRule where - toJSON WAFv2WebACLRule{..} = - object $ - catMaybes - [ fmap (("Action",) . toJSON) _wAFv2WebACLRuleAction - , (Just . ("Name",) . toJSON) _wAFv2WebACLRuleName - , fmap (("OverrideAction",) . toJSON) _wAFv2WebACLRuleOverrideAction - , (Just . ("Priority",) . toJSON) _wAFv2WebACLRulePriority - , (Just . ("Statement",) . toJSON) _wAFv2WebACLRuleStatement - , (Just . ("VisibilityConfig",) . toJSON) _wAFv2WebACLRuleVisibilityConfig - ] - --- | Constructor for 'WAFv2WebACLRule' containing required fields as --- arguments. -waFv2WebACLRule - :: Val Text -- ^ 'wafwaclrName' - -> Val Integer -- ^ 'wafwaclrPriority' - -> WAFv2WebACLStatementOne -- ^ 'wafwaclrStatement' - -> WAFv2WebACLVisibilityConfig -- ^ 'wafwaclrVisibilityConfig' - -> WAFv2WebACLRule -waFv2WebACLRule namearg priorityarg statementarg visibilityConfigarg = - WAFv2WebACLRule - { _wAFv2WebACLRuleAction = Nothing - , _wAFv2WebACLRuleName = namearg - , _wAFv2WebACLRuleOverrideAction = Nothing - , _wAFv2WebACLRulePriority = priorityarg - , _wAFv2WebACLRuleStatement = statementarg - , _wAFv2WebACLRuleVisibilityConfig = visibilityConfigarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-rule.html#cfn-wafv2-webacl-rule-action -wafwaclrAction :: Lens' WAFv2WebACLRule (Maybe WAFv2WebACLRuleAction) -wafwaclrAction = lens _wAFv2WebACLRuleAction (\s a -> s { _wAFv2WebACLRuleAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-rule.html#cfn-wafv2-webacl-rule-name -wafwaclrName :: Lens' WAFv2WebACLRule (Val Text) -wafwaclrName = lens _wAFv2WebACLRuleName (\s a -> s { _wAFv2WebACLRuleName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-rule.html#cfn-wafv2-webacl-rule-overrideaction -wafwaclrOverrideAction :: Lens' WAFv2WebACLRule (Maybe WAFv2WebACLOverrideAction) -wafwaclrOverrideAction = lens _wAFv2WebACLRuleOverrideAction (\s a -> s { _wAFv2WebACLRuleOverrideAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-rule.html#cfn-wafv2-webacl-rule-priority -wafwaclrPriority :: Lens' WAFv2WebACLRule (Val Integer) -wafwaclrPriority = lens _wAFv2WebACLRulePriority (\s a -> s { _wAFv2WebACLRulePriority = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-rule.html#cfn-wafv2-webacl-rule-statement -wafwaclrStatement :: Lens' WAFv2WebACLRule WAFv2WebACLStatementOne -wafwaclrStatement = lens _wAFv2WebACLRuleStatement (\s a -> s { _wAFv2WebACLRuleStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-rule.html#cfn-wafv2-webacl-rule-visibilityconfig -wafwaclrVisibilityConfig :: Lens' WAFv2WebACLRule WAFv2WebACLVisibilityConfig -wafwaclrVisibilityConfig = lens _wAFv2WebACLRuleVisibilityConfig (\s a -> s { _wAFv2WebACLRuleVisibilityConfig = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLRuleAction.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLRuleAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLRuleAction.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ruleaction.html - -module Stratosphere.ResourceProperties.WAFv2WebACLRuleAction where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFv2WebACLRuleAction. See --- 'waFv2WebACLRuleAction' for a more convenient constructor. -data WAFv2WebACLRuleAction = - WAFv2WebACLRuleAction - { _wAFv2WebACLRuleActionAllow :: Maybe Object - , _wAFv2WebACLRuleActionBlock :: Maybe Object - , _wAFv2WebACLRuleActionCount :: Maybe Object - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLRuleAction where - toJSON WAFv2WebACLRuleAction{..} = - object $ - catMaybes - [ fmap (("Allow",) . toJSON) _wAFv2WebACLRuleActionAllow - , fmap (("Block",) . toJSON) _wAFv2WebACLRuleActionBlock - , fmap (("Count",) . toJSON) _wAFv2WebACLRuleActionCount - ] - --- | Constructor for 'WAFv2WebACLRuleAction' containing required fields as --- arguments. -waFv2WebACLRuleAction - :: WAFv2WebACLRuleAction -waFv2WebACLRuleAction = - WAFv2WebACLRuleAction - { _wAFv2WebACLRuleActionAllow = Nothing - , _wAFv2WebACLRuleActionBlock = Nothing - , _wAFv2WebACLRuleActionCount = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ruleaction.html#cfn-wafv2-webacl-ruleaction-allow -wafwaclraAllow :: Lens' WAFv2WebACLRuleAction (Maybe Object) -wafwaclraAllow = lens _wAFv2WebACLRuleActionAllow (\s a -> s { _wAFv2WebACLRuleActionAllow = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ruleaction.html#cfn-wafv2-webacl-ruleaction-block -wafwaclraBlock :: Lens' WAFv2WebACLRuleAction (Maybe Object) -wafwaclraBlock = lens _wAFv2WebACLRuleActionBlock (\s a -> s { _wAFv2WebACLRuleActionBlock = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-ruleaction.html#cfn-wafv2-webacl-ruleaction-count -wafwaclraCount :: Lens' WAFv2WebACLRuleAction (Maybe Object) -wafwaclraCount = lens _wAFv2WebACLRuleActionCount (\s a -> s { _wAFv2WebACLRuleActionCount = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLRuleGroupReferenceStatement.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLRuleGroupReferenceStatement.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLRuleGroupReferenceStatement.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-rulegroupreferencestatement.html - -module Stratosphere.ResourceProperties.WAFv2WebACLRuleGroupReferenceStatement where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2WebACLExcludedRule - --- | Full data type definition for WAFv2WebACLRuleGroupReferenceStatement. See --- 'waFv2WebACLRuleGroupReferenceStatement' for a more convenient --- constructor. -data WAFv2WebACLRuleGroupReferenceStatement = - WAFv2WebACLRuleGroupReferenceStatement - { _wAFv2WebACLRuleGroupReferenceStatementArn :: Val Text - , _wAFv2WebACLRuleGroupReferenceStatementExcludedRules :: Maybe [WAFv2WebACLExcludedRule] - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLRuleGroupReferenceStatement where - toJSON WAFv2WebACLRuleGroupReferenceStatement{..} = - object $ - catMaybes - [ (Just . ("Arn",) . toJSON) _wAFv2WebACLRuleGroupReferenceStatementArn - , fmap (("ExcludedRules",) . toJSON) _wAFv2WebACLRuleGroupReferenceStatementExcludedRules - ] - --- | Constructor for 'WAFv2WebACLRuleGroupReferenceStatement' containing --- required fields as arguments. -waFv2WebACLRuleGroupReferenceStatement - :: Val Text -- ^ 'wafwaclrgrsArn' - -> WAFv2WebACLRuleGroupReferenceStatement -waFv2WebACLRuleGroupReferenceStatement arnarg = - WAFv2WebACLRuleGroupReferenceStatement - { _wAFv2WebACLRuleGroupReferenceStatementArn = arnarg - , _wAFv2WebACLRuleGroupReferenceStatementExcludedRules = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-rulegroupreferencestatement.html#cfn-wafv2-webacl-rulegroupreferencestatement-arn -wafwaclrgrsArn :: Lens' WAFv2WebACLRuleGroupReferenceStatement (Val Text) -wafwaclrgrsArn = lens _wAFv2WebACLRuleGroupReferenceStatementArn (\s a -> s { _wAFv2WebACLRuleGroupReferenceStatementArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-rulegroupreferencestatement.html#cfn-wafv2-webacl-rulegroupreferencestatement-excludedrules -wafwaclrgrsExcludedRules :: Lens' WAFv2WebACLRuleGroupReferenceStatement (Maybe [WAFv2WebACLExcludedRule]) -wafwaclrgrsExcludedRules = lens _wAFv2WebACLRuleGroupReferenceStatementExcludedRules (\s a -> s { _wAFv2WebACLRuleGroupReferenceStatementExcludedRules = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLSizeConstraintStatement.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLSizeConstraintStatement.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLSizeConstraintStatement.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-sizeconstraintstatement.html - -module Stratosphere.ResourceProperties.WAFv2WebACLSizeConstraintStatement where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2WebACLFieldToMatch -import Stratosphere.ResourceProperties.WAFv2WebACLTextTransformation - --- | Full data type definition for WAFv2WebACLSizeConstraintStatement. See --- 'waFv2WebACLSizeConstraintStatement' for a more convenient constructor. -data WAFv2WebACLSizeConstraintStatement = - WAFv2WebACLSizeConstraintStatement - { _wAFv2WebACLSizeConstraintStatementComparisonOperator :: Val Text - , _wAFv2WebACLSizeConstraintStatementFieldToMatch :: WAFv2WebACLFieldToMatch - , _wAFv2WebACLSizeConstraintStatementSize :: Val Integer - , _wAFv2WebACLSizeConstraintStatementTextTransformations :: [WAFv2WebACLTextTransformation] - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLSizeConstraintStatement where - toJSON WAFv2WebACLSizeConstraintStatement{..} = - object $ - catMaybes - [ (Just . ("ComparisonOperator",) . toJSON) _wAFv2WebACLSizeConstraintStatementComparisonOperator - , (Just . ("FieldToMatch",) . toJSON) _wAFv2WebACLSizeConstraintStatementFieldToMatch - , (Just . ("Size",) . toJSON) _wAFv2WebACLSizeConstraintStatementSize - , (Just . ("TextTransformations",) . toJSON) _wAFv2WebACLSizeConstraintStatementTextTransformations - ] - --- | Constructor for 'WAFv2WebACLSizeConstraintStatement' containing required --- fields as arguments. -waFv2WebACLSizeConstraintStatement - :: Val Text -- ^ 'wafwaclscsComparisonOperator' - -> WAFv2WebACLFieldToMatch -- ^ 'wafwaclscsFieldToMatch' - -> Val Integer -- ^ 'wafwaclscsSize' - -> [WAFv2WebACLTextTransformation] -- ^ 'wafwaclscsTextTransformations' - -> WAFv2WebACLSizeConstraintStatement -waFv2WebACLSizeConstraintStatement comparisonOperatorarg fieldToMatcharg sizearg textTransformationsarg = - WAFv2WebACLSizeConstraintStatement - { _wAFv2WebACLSizeConstraintStatementComparisonOperator = comparisonOperatorarg - , _wAFv2WebACLSizeConstraintStatementFieldToMatch = fieldToMatcharg - , _wAFv2WebACLSizeConstraintStatementSize = sizearg - , _wAFv2WebACLSizeConstraintStatementTextTransformations = textTransformationsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-sizeconstraintstatement.html#cfn-wafv2-webacl-sizeconstraintstatement-comparisonoperator -wafwaclscsComparisonOperator :: Lens' WAFv2WebACLSizeConstraintStatement (Val Text) -wafwaclscsComparisonOperator = lens _wAFv2WebACLSizeConstraintStatementComparisonOperator (\s a -> s { _wAFv2WebACLSizeConstraintStatementComparisonOperator = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-sizeconstraintstatement.html#cfn-wafv2-webacl-sizeconstraintstatement-fieldtomatch -wafwaclscsFieldToMatch :: Lens' WAFv2WebACLSizeConstraintStatement WAFv2WebACLFieldToMatch -wafwaclscsFieldToMatch = lens _wAFv2WebACLSizeConstraintStatementFieldToMatch (\s a -> s { _wAFv2WebACLSizeConstraintStatementFieldToMatch = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-sizeconstraintstatement.html#cfn-wafv2-webacl-sizeconstraintstatement-size -wafwaclscsSize :: Lens' WAFv2WebACLSizeConstraintStatement (Val Integer) -wafwaclscsSize = lens _wAFv2WebACLSizeConstraintStatementSize (\s a -> s { _wAFv2WebACLSizeConstraintStatementSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-sizeconstraintstatement.html#cfn-wafv2-webacl-sizeconstraintstatement-texttransformations -wafwaclscsTextTransformations :: Lens' WAFv2WebACLSizeConstraintStatement [WAFv2WebACLTextTransformation] -wafwaclscsTextTransformations = lens _wAFv2WebACLSizeConstraintStatementTextTransformations (\s a -> s { _wAFv2WebACLSizeConstraintStatementTextTransformations = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLSqliMatchStatement.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLSqliMatchStatement.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLSqliMatchStatement.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-sqlimatchstatement.html - -module Stratosphere.ResourceProperties.WAFv2WebACLSqliMatchStatement where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2WebACLFieldToMatch -import Stratosphere.ResourceProperties.WAFv2WebACLTextTransformation - --- | Full data type definition for WAFv2WebACLSqliMatchStatement. See --- 'waFv2WebACLSqliMatchStatement' for a more convenient constructor. -data WAFv2WebACLSqliMatchStatement = - WAFv2WebACLSqliMatchStatement - { _wAFv2WebACLSqliMatchStatementFieldToMatch :: WAFv2WebACLFieldToMatch - , _wAFv2WebACLSqliMatchStatementTextTransformations :: [WAFv2WebACLTextTransformation] - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLSqliMatchStatement where - toJSON WAFv2WebACLSqliMatchStatement{..} = - object $ - catMaybes - [ (Just . ("FieldToMatch",) . toJSON) _wAFv2WebACLSqliMatchStatementFieldToMatch - , (Just . ("TextTransformations",) . toJSON) _wAFv2WebACLSqliMatchStatementTextTransformations - ] - --- | Constructor for 'WAFv2WebACLSqliMatchStatement' containing required --- fields as arguments. -waFv2WebACLSqliMatchStatement - :: WAFv2WebACLFieldToMatch -- ^ 'wafwaclsmsFieldToMatch' - -> [WAFv2WebACLTextTransformation] -- ^ 'wafwaclsmsTextTransformations' - -> WAFv2WebACLSqliMatchStatement -waFv2WebACLSqliMatchStatement fieldToMatcharg textTransformationsarg = - WAFv2WebACLSqliMatchStatement - { _wAFv2WebACLSqliMatchStatementFieldToMatch = fieldToMatcharg - , _wAFv2WebACLSqliMatchStatementTextTransformations = textTransformationsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-sqlimatchstatement.html#cfn-wafv2-webacl-sqlimatchstatement-fieldtomatch -wafwaclsmsFieldToMatch :: Lens' WAFv2WebACLSqliMatchStatement WAFv2WebACLFieldToMatch -wafwaclsmsFieldToMatch = lens _wAFv2WebACLSqliMatchStatementFieldToMatch (\s a -> s { _wAFv2WebACLSqliMatchStatementFieldToMatch = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-sqlimatchstatement.html#cfn-wafv2-webacl-sqlimatchstatement-texttransformations -wafwaclsmsTextTransformations :: Lens' WAFv2WebACLSqliMatchStatement [WAFv2WebACLTextTransformation] -wafwaclsmsTextTransformations = lens _wAFv2WebACLSqliMatchStatementTextTransformations (\s a -> s { _wAFv2WebACLSqliMatchStatementTextTransformations = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLStatementOne.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLStatementOne.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLStatementOne.hs +++ /dev/null @@ -1,134 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementone.html - -module Stratosphere.ResourceProperties.WAFv2WebACLStatementOne where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2WebACLAndStatementOne -import Stratosphere.ResourceProperties.WAFv2WebACLByteMatchStatement -import Stratosphere.ResourceProperties.WAFv2WebACLGeoMatchStatement -import Stratosphere.ResourceProperties.WAFv2WebACLIPSetReferenceStatement -import Stratosphere.ResourceProperties.WAFv2WebACLManagedRuleGroupStatement -import Stratosphere.ResourceProperties.WAFv2WebACLNotStatementOne -import Stratosphere.ResourceProperties.WAFv2WebACLOrStatementOne -import Stratosphere.ResourceProperties.WAFv2WebACLRateBasedStatementOne -import Stratosphere.ResourceProperties.WAFv2WebACLRegexPatternSetReferenceStatement -import Stratosphere.ResourceProperties.WAFv2WebACLRuleGroupReferenceStatement -import Stratosphere.ResourceProperties.WAFv2WebACLSizeConstraintStatement -import Stratosphere.ResourceProperties.WAFv2WebACLSqliMatchStatement -import Stratosphere.ResourceProperties.WAFv2WebACLXssMatchStatement - --- | Full data type definition for WAFv2WebACLStatementOne. See --- 'waFv2WebACLStatementOne' for a more convenient constructor. -data WAFv2WebACLStatementOne = - WAFv2WebACLStatementOne - { _wAFv2WebACLStatementOneAndStatement :: Maybe WAFv2WebACLAndStatementOne - , _wAFv2WebACLStatementOneByteMatchStatement :: Maybe WAFv2WebACLByteMatchStatement - , _wAFv2WebACLStatementOneGeoMatchStatement :: Maybe WAFv2WebACLGeoMatchStatement - , _wAFv2WebACLStatementOneIPSetReferenceStatement :: Maybe WAFv2WebACLIPSetReferenceStatement - , _wAFv2WebACLStatementOneManagedRuleGroupStatement :: Maybe WAFv2WebACLManagedRuleGroupStatement - , _wAFv2WebACLStatementOneNotStatement :: Maybe WAFv2WebACLNotStatementOne - , _wAFv2WebACLStatementOneOrStatement :: Maybe WAFv2WebACLOrStatementOne - , _wAFv2WebACLStatementOneRateBasedStatement :: Maybe WAFv2WebACLRateBasedStatementOne - , _wAFv2WebACLStatementOneRegexPatternSetReferenceStatement :: Maybe WAFv2WebACLRegexPatternSetReferenceStatement - , _wAFv2WebACLStatementOneRuleGroupReferenceStatement :: Maybe WAFv2WebACLRuleGroupReferenceStatement - , _wAFv2WebACLStatementOneSizeConstraintStatement :: Maybe WAFv2WebACLSizeConstraintStatement - , _wAFv2WebACLStatementOneSqliMatchStatement :: Maybe WAFv2WebACLSqliMatchStatement - , _wAFv2WebACLStatementOneXssMatchStatement :: Maybe WAFv2WebACLXssMatchStatement - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLStatementOne where - toJSON WAFv2WebACLStatementOne{..} = - object $ - catMaybes - [ fmap (("AndStatement",) . toJSON) _wAFv2WebACLStatementOneAndStatement - , fmap (("ByteMatchStatement",) . toJSON) _wAFv2WebACLStatementOneByteMatchStatement - , fmap (("GeoMatchStatement",) . toJSON) _wAFv2WebACLStatementOneGeoMatchStatement - , fmap (("IPSetReferenceStatement",) . toJSON) _wAFv2WebACLStatementOneIPSetReferenceStatement - , fmap (("ManagedRuleGroupStatement",) . toJSON) _wAFv2WebACLStatementOneManagedRuleGroupStatement - , fmap (("NotStatement",) . toJSON) _wAFv2WebACLStatementOneNotStatement - , fmap (("OrStatement",) . toJSON) _wAFv2WebACLStatementOneOrStatement - , fmap (("RateBasedStatement",) . toJSON) _wAFv2WebACLStatementOneRateBasedStatement - , fmap (("RegexPatternSetReferenceStatement",) . toJSON) _wAFv2WebACLStatementOneRegexPatternSetReferenceStatement - , fmap (("RuleGroupReferenceStatement",) . toJSON) _wAFv2WebACLStatementOneRuleGroupReferenceStatement - , fmap (("SizeConstraintStatement",) . toJSON) _wAFv2WebACLStatementOneSizeConstraintStatement - , fmap (("SqliMatchStatement",) . toJSON) _wAFv2WebACLStatementOneSqliMatchStatement - , fmap (("XssMatchStatement",) . toJSON) _wAFv2WebACLStatementOneXssMatchStatement - ] - --- | Constructor for 'WAFv2WebACLStatementOne' containing required fields as --- arguments. -waFv2WebACLStatementOne - :: WAFv2WebACLStatementOne -waFv2WebACLStatementOne = - WAFv2WebACLStatementOne - { _wAFv2WebACLStatementOneAndStatement = Nothing - , _wAFv2WebACLStatementOneByteMatchStatement = Nothing - , _wAFv2WebACLStatementOneGeoMatchStatement = Nothing - , _wAFv2WebACLStatementOneIPSetReferenceStatement = Nothing - , _wAFv2WebACLStatementOneManagedRuleGroupStatement = Nothing - , _wAFv2WebACLStatementOneNotStatement = Nothing - , _wAFv2WebACLStatementOneOrStatement = Nothing - , _wAFv2WebACLStatementOneRateBasedStatement = Nothing - , _wAFv2WebACLStatementOneRegexPatternSetReferenceStatement = Nothing - , _wAFv2WebACLStatementOneRuleGroupReferenceStatement = Nothing - , _wAFv2WebACLStatementOneSizeConstraintStatement = Nothing - , _wAFv2WebACLStatementOneSqliMatchStatement = Nothing - , _wAFv2WebACLStatementOneXssMatchStatement = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementone.html#cfn-wafv2-webacl-statementone-andstatement -wafwaclsoAndStatement :: Lens' WAFv2WebACLStatementOne (Maybe WAFv2WebACLAndStatementOne) -wafwaclsoAndStatement = lens _wAFv2WebACLStatementOneAndStatement (\s a -> s { _wAFv2WebACLStatementOneAndStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementone.html#cfn-wafv2-webacl-statementone-bytematchstatement -wafwaclsoByteMatchStatement :: Lens' WAFv2WebACLStatementOne (Maybe WAFv2WebACLByteMatchStatement) -wafwaclsoByteMatchStatement = lens _wAFv2WebACLStatementOneByteMatchStatement (\s a -> s { _wAFv2WebACLStatementOneByteMatchStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementone.html#cfn-wafv2-webacl-statementone-geomatchstatement -wafwaclsoGeoMatchStatement :: Lens' WAFv2WebACLStatementOne (Maybe WAFv2WebACLGeoMatchStatement) -wafwaclsoGeoMatchStatement = lens _wAFv2WebACLStatementOneGeoMatchStatement (\s a -> s { _wAFv2WebACLStatementOneGeoMatchStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementone.html#cfn-wafv2-webacl-statementone-ipsetreferencestatement -wafwaclsoIPSetReferenceStatement :: Lens' WAFv2WebACLStatementOne (Maybe WAFv2WebACLIPSetReferenceStatement) -wafwaclsoIPSetReferenceStatement = lens _wAFv2WebACLStatementOneIPSetReferenceStatement (\s a -> s { _wAFv2WebACLStatementOneIPSetReferenceStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementone.html#cfn-wafv2-webacl-statementone-managedrulegroupstatement -wafwaclsoManagedRuleGroupStatement :: Lens' WAFv2WebACLStatementOne (Maybe WAFv2WebACLManagedRuleGroupStatement) -wafwaclsoManagedRuleGroupStatement = lens _wAFv2WebACLStatementOneManagedRuleGroupStatement (\s a -> s { _wAFv2WebACLStatementOneManagedRuleGroupStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementone.html#cfn-wafv2-webacl-statementone-notstatement -wafwaclsoNotStatement :: Lens' WAFv2WebACLStatementOne (Maybe WAFv2WebACLNotStatementOne) -wafwaclsoNotStatement = lens _wAFv2WebACLStatementOneNotStatement (\s a -> s { _wAFv2WebACLStatementOneNotStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementone.html#cfn-wafv2-webacl-statementone-orstatement -wafwaclsoOrStatement :: Lens' WAFv2WebACLStatementOne (Maybe WAFv2WebACLOrStatementOne) -wafwaclsoOrStatement = lens _wAFv2WebACLStatementOneOrStatement (\s a -> s { _wAFv2WebACLStatementOneOrStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementone.html#cfn-wafv2-webacl-statementone-ratebasedstatement -wafwaclsoRateBasedStatement :: Lens' WAFv2WebACLStatementOne (Maybe WAFv2WebACLRateBasedStatementOne) -wafwaclsoRateBasedStatement = lens _wAFv2WebACLStatementOneRateBasedStatement (\s a -> s { _wAFv2WebACLStatementOneRateBasedStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementone.html#cfn-wafv2-webacl-statementone-regexpatternsetreferencestatement -wafwaclsoRegexPatternSetReferenceStatement :: Lens' WAFv2WebACLStatementOne (Maybe WAFv2WebACLRegexPatternSetReferenceStatement) -wafwaclsoRegexPatternSetReferenceStatement = lens _wAFv2WebACLStatementOneRegexPatternSetReferenceStatement (\s a -> s { _wAFv2WebACLStatementOneRegexPatternSetReferenceStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementone.html#cfn-wafv2-webacl-statementone-rulegroupreferencestatement -wafwaclsoRuleGroupReferenceStatement :: Lens' WAFv2WebACLStatementOne (Maybe WAFv2WebACLRuleGroupReferenceStatement) -wafwaclsoRuleGroupReferenceStatement = lens _wAFv2WebACLStatementOneRuleGroupReferenceStatement (\s a -> s { _wAFv2WebACLStatementOneRuleGroupReferenceStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementone.html#cfn-wafv2-webacl-statementone-sizeconstraintstatement -wafwaclsoSizeConstraintStatement :: Lens' WAFv2WebACLStatementOne (Maybe WAFv2WebACLSizeConstraintStatement) -wafwaclsoSizeConstraintStatement = lens _wAFv2WebACLStatementOneSizeConstraintStatement (\s a -> s { _wAFv2WebACLStatementOneSizeConstraintStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementone.html#cfn-wafv2-webacl-statementone-sqlimatchstatement -wafwaclsoSqliMatchStatement :: Lens' WAFv2WebACLStatementOne (Maybe WAFv2WebACLSqliMatchStatement) -wafwaclsoSqliMatchStatement = lens _wAFv2WebACLStatementOneSqliMatchStatement (\s a -> s { _wAFv2WebACLStatementOneSqliMatchStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementone.html#cfn-wafv2-webacl-statementone-xssmatchstatement -wafwaclsoXssMatchStatement :: Lens' WAFv2WebACLStatementOne (Maybe WAFv2WebACLXssMatchStatement) -wafwaclsoXssMatchStatement = lens _wAFv2WebACLStatementOneXssMatchStatement (\s a -> s { _wAFv2WebACLStatementOneXssMatchStatement = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLStatementThree.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLStatementThree.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLStatementThree.hs +++ /dev/null @@ -1,102 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementthree.html - -module Stratosphere.ResourceProperties.WAFv2WebACLStatementThree where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2WebACLByteMatchStatement -import Stratosphere.ResourceProperties.WAFv2WebACLGeoMatchStatement -import Stratosphere.ResourceProperties.WAFv2WebACLIPSetReferenceStatement -import Stratosphere.ResourceProperties.WAFv2WebACLManagedRuleGroupStatement -import Stratosphere.ResourceProperties.WAFv2WebACLRegexPatternSetReferenceStatement -import Stratosphere.ResourceProperties.WAFv2WebACLRuleGroupReferenceStatement -import Stratosphere.ResourceProperties.WAFv2WebACLSizeConstraintStatement -import Stratosphere.ResourceProperties.WAFv2WebACLSqliMatchStatement -import Stratosphere.ResourceProperties.WAFv2WebACLXssMatchStatement - --- | Full data type definition for WAFv2WebACLStatementThree. See --- 'waFv2WebACLStatementThree' for a more convenient constructor. -data WAFv2WebACLStatementThree = - WAFv2WebACLStatementThree - { _wAFv2WebACLStatementThreeByteMatchStatement :: Maybe WAFv2WebACLByteMatchStatement - , _wAFv2WebACLStatementThreeGeoMatchStatement :: Maybe WAFv2WebACLGeoMatchStatement - , _wAFv2WebACLStatementThreeIPSetReferenceStatement :: Maybe WAFv2WebACLIPSetReferenceStatement - , _wAFv2WebACLStatementThreeManagedRuleGroupStatement :: Maybe WAFv2WebACLManagedRuleGroupStatement - , _wAFv2WebACLStatementThreeRegexPatternSetReferenceStatement :: Maybe WAFv2WebACLRegexPatternSetReferenceStatement - , _wAFv2WebACLStatementThreeRuleGroupReferenceStatement :: Maybe WAFv2WebACLRuleGroupReferenceStatement - , _wAFv2WebACLStatementThreeSizeConstraintStatement :: Maybe WAFv2WebACLSizeConstraintStatement - , _wAFv2WebACLStatementThreeSqliMatchStatement :: Maybe WAFv2WebACLSqliMatchStatement - , _wAFv2WebACLStatementThreeXssMatchStatement :: Maybe WAFv2WebACLXssMatchStatement - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLStatementThree where - toJSON WAFv2WebACLStatementThree{..} = - object $ - catMaybes - [ fmap (("ByteMatchStatement",) . toJSON) _wAFv2WebACLStatementThreeByteMatchStatement - , fmap (("GeoMatchStatement",) . toJSON) _wAFv2WebACLStatementThreeGeoMatchStatement - , fmap (("IPSetReferenceStatement",) . toJSON) _wAFv2WebACLStatementThreeIPSetReferenceStatement - , fmap (("ManagedRuleGroupStatement",) . toJSON) _wAFv2WebACLStatementThreeManagedRuleGroupStatement - , fmap (("RegexPatternSetReferenceStatement",) . toJSON) _wAFv2WebACLStatementThreeRegexPatternSetReferenceStatement - , fmap (("RuleGroupReferenceStatement",) . toJSON) _wAFv2WebACLStatementThreeRuleGroupReferenceStatement - , fmap (("SizeConstraintStatement",) . toJSON) _wAFv2WebACLStatementThreeSizeConstraintStatement - , fmap (("SqliMatchStatement",) . toJSON) _wAFv2WebACLStatementThreeSqliMatchStatement - , fmap (("XssMatchStatement",) . toJSON) _wAFv2WebACLStatementThreeXssMatchStatement - ] - --- | Constructor for 'WAFv2WebACLStatementThree' containing required fields as --- arguments. -waFv2WebACLStatementThree - :: WAFv2WebACLStatementThree -waFv2WebACLStatementThree = - WAFv2WebACLStatementThree - { _wAFv2WebACLStatementThreeByteMatchStatement = Nothing - , _wAFv2WebACLStatementThreeGeoMatchStatement = Nothing - , _wAFv2WebACLStatementThreeIPSetReferenceStatement = Nothing - , _wAFv2WebACLStatementThreeManagedRuleGroupStatement = Nothing - , _wAFv2WebACLStatementThreeRegexPatternSetReferenceStatement = Nothing - , _wAFv2WebACLStatementThreeRuleGroupReferenceStatement = Nothing - , _wAFv2WebACLStatementThreeSizeConstraintStatement = Nothing - , _wAFv2WebACLStatementThreeSqliMatchStatement = Nothing - , _wAFv2WebACLStatementThreeXssMatchStatement = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementthree.html#cfn-wafv2-webacl-statementthree-bytematchstatement -wafwaclsthByteMatchStatement :: Lens' WAFv2WebACLStatementThree (Maybe WAFv2WebACLByteMatchStatement) -wafwaclsthByteMatchStatement = lens _wAFv2WebACLStatementThreeByteMatchStatement (\s a -> s { _wAFv2WebACLStatementThreeByteMatchStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementthree.html#cfn-wafv2-webacl-statementthree-geomatchstatement -wafwaclsthGeoMatchStatement :: Lens' WAFv2WebACLStatementThree (Maybe WAFv2WebACLGeoMatchStatement) -wafwaclsthGeoMatchStatement = lens _wAFv2WebACLStatementThreeGeoMatchStatement (\s a -> s { _wAFv2WebACLStatementThreeGeoMatchStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementthree.html#cfn-wafv2-webacl-statementthree-ipsetreferencestatement -wafwaclsthIPSetReferenceStatement :: Lens' WAFv2WebACLStatementThree (Maybe WAFv2WebACLIPSetReferenceStatement) -wafwaclsthIPSetReferenceStatement = lens _wAFv2WebACLStatementThreeIPSetReferenceStatement (\s a -> s { _wAFv2WebACLStatementThreeIPSetReferenceStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementthree.html#cfn-wafv2-webacl-statementthree-managedrulegroupstatement -wafwaclsthManagedRuleGroupStatement :: Lens' WAFv2WebACLStatementThree (Maybe WAFv2WebACLManagedRuleGroupStatement) -wafwaclsthManagedRuleGroupStatement = lens _wAFv2WebACLStatementThreeManagedRuleGroupStatement (\s a -> s { _wAFv2WebACLStatementThreeManagedRuleGroupStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementthree.html#cfn-wafv2-webacl-statementthree-regexpatternsetreferencestatement -wafwaclsthRegexPatternSetReferenceStatement :: Lens' WAFv2WebACLStatementThree (Maybe WAFv2WebACLRegexPatternSetReferenceStatement) -wafwaclsthRegexPatternSetReferenceStatement = lens _wAFv2WebACLStatementThreeRegexPatternSetReferenceStatement (\s a -> s { _wAFv2WebACLStatementThreeRegexPatternSetReferenceStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementthree.html#cfn-wafv2-webacl-statementthree-rulegroupreferencestatement -wafwaclsthRuleGroupReferenceStatement :: Lens' WAFv2WebACLStatementThree (Maybe WAFv2WebACLRuleGroupReferenceStatement) -wafwaclsthRuleGroupReferenceStatement = lens _wAFv2WebACLStatementThreeRuleGroupReferenceStatement (\s a -> s { _wAFv2WebACLStatementThreeRuleGroupReferenceStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementthree.html#cfn-wafv2-webacl-statementthree-sizeconstraintstatement -wafwaclsthSizeConstraintStatement :: Lens' WAFv2WebACLStatementThree (Maybe WAFv2WebACLSizeConstraintStatement) -wafwaclsthSizeConstraintStatement = lens _wAFv2WebACLStatementThreeSizeConstraintStatement (\s a -> s { _wAFv2WebACLStatementThreeSizeConstraintStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementthree.html#cfn-wafv2-webacl-statementthree-sqlimatchstatement -wafwaclsthSqliMatchStatement :: Lens' WAFv2WebACLStatementThree (Maybe WAFv2WebACLSqliMatchStatement) -wafwaclsthSqliMatchStatement = lens _wAFv2WebACLStatementThreeSqliMatchStatement (\s a -> s { _wAFv2WebACLStatementThreeSqliMatchStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementthree.html#cfn-wafv2-webacl-statementthree-xssmatchstatement -wafwaclsthXssMatchStatement :: Lens' WAFv2WebACLStatementThree (Maybe WAFv2WebACLXssMatchStatement) -wafwaclsthXssMatchStatement = lens _wAFv2WebACLStatementThreeXssMatchStatement (\s a -> s { _wAFv2WebACLStatementThreeXssMatchStatement = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLStatementTwo.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLStatementTwo.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLStatementTwo.hs +++ /dev/null @@ -1,134 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementtwo.html - -module Stratosphere.ResourceProperties.WAFv2WebACLStatementTwo where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2WebACLAndStatementTwo -import Stratosphere.ResourceProperties.WAFv2WebACLByteMatchStatement -import Stratosphere.ResourceProperties.WAFv2WebACLGeoMatchStatement -import Stratosphere.ResourceProperties.WAFv2WebACLIPSetReferenceStatement -import Stratosphere.ResourceProperties.WAFv2WebACLManagedRuleGroupStatement -import Stratosphere.ResourceProperties.WAFv2WebACLNotStatementTwo -import Stratosphere.ResourceProperties.WAFv2WebACLOrStatementTwo -import Stratosphere.ResourceProperties.WAFv2WebACLRateBasedStatementTwo -import Stratosphere.ResourceProperties.WAFv2WebACLRegexPatternSetReferenceStatement -import Stratosphere.ResourceProperties.WAFv2WebACLRuleGroupReferenceStatement -import Stratosphere.ResourceProperties.WAFv2WebACLSizeConstraintStatement -import Stratosphere.ResourceProperties.WAFv2WebACLSqliMatchStatement -import Stratosphere.ResourceProperties.WAFv2WebACLXssMatchStatement - --- | Full data type definition for WAFv2WebACLStatementTwo. See --- 'waFv2WebACLStatementTwo' for a more convenient constructor. -data WAFv2WebACLStatementTwo = - WAFv2WebACLStatementTwo - { _wAFv2WebACLStatementTwoAndStatement :: Maybe WAFv2WebACLAndStatementTwo - , _wAFv2WebACLStatementTwoByteMatchStatement :: Maybe WAFv2WebACLByteMatchStatement - , _wAFv2WebACLStatementTwoGeoMatchStatement :: Maybe WAFv2WebACLGeoMatchStatement - , _wAFv2WebACLStatementTwoIPSetReferenceStatement :: Maybe WAFv2WebACLIPSetReferenceStatement - , _wAFv2WebACLStatementTwoManagedRuleGroupStatement :: Maybe WAFv2WebACLManagedRuleGroupStatement - , _wAFv2WebACLStatementTwoNotStatement :: Maybe WAFv2WebACLNotStatementTwo - , _wAFv2WebACLStatementTwoOrStatement :: Maybe WAFv2WebACLOrStatementTwo - , _wAFv2WebACLStatementTwoRateBasedStatement :: Maybe WAFv2WebACLRateBasedStatementTwo - , _wAFv2WebACLStatementTwoRegexPatternSetReferenceStatement :: Maybe WAFv2WebACLRegexPatternSetReferenceStatement - , _wAFv2WebACLStatementTwoRuleGroupReferenceStatement :: Maybe WAFv2WebACLRuleGroupReferenceStatement - , _wAFv2WebACLStatementTwoSizeConstraintStatement :: Maybe WAFv2WebACLSizeConstraintStatement - , _wAFv2WebACLStatementTwoSqliMatchStatement :: Maybe WAFv2WebACLSqliMatchStatement - , _wAFv2WebACLStatementTwoXssMatchStatement :: Maybe WAFv2WebACLXssMatchStatement - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLStatementTwo where - toJSON WAFv2WebACLStatementTwo{..} = - object $ - catMaybes - [ fmap (("AndStatement",) . toJSON) _wAFv2WebACLStatementTwoAndStatement - , fmap (("ByteMatchStatement",) . toJSON) _wAFv2WebACLStatementTwoByteMatchStatement - , fmap (("GeoMatchStatement",) . toJSON) _wAFv2WebACLStatementTwoGeoMatchStatement - , fmap (("IPSetReferenceStatement",) . toJSON) _wAFv2WebACLStatementTwoIPSetReferenceStatement - , fmap (("ManagedRuleGroupStatement",) . toJSON) _wAFv2WebACLStatementTwoManagedRuleGroupStatement - , fmap (("NotStatement",) . toJSON) _wAFv2WebACLStatementTwoNotStatement - , fmap (("OrStatement",) . toJSON) _wAFv2WebACLStatementTwoOrStatement - , fmap (("RateBasedStatement",) . toJSON) _wAFv2WebACLStatementTwoRateBasedStatement - , fmap (("RegexPatternSetReferenceStatement",) . toJSON) _wAFv2WebACLStatementTwoRegexPatternSetReferenceStatement - , fmap (("RuleGroupReferenceStatement",) . toJSON) _wAFv2WebACLStatementTwoRuleGroupReferenceStatement - , fmap (("SizeConstraintStatement",) . toJSON) _wAFv2WebACLStatementTwoSizeConstraintStatement - , fmap (("SqliMatchStatement",) . toJSON) _wAFv2WebACLStatementTwoSqliMatchStatement - , fmap (("XssMatchStatement",) . toJSON) _wAFv2WebACLStatementTwoXssMatchStatement - ] - --- | Constructor for 'WAFv2WebACLStatementTwo' containing required fields as --- arguments. -waFv2WebACLStatementTwo - :: WAFv2WebACLStatementTwo -waFv2WebACLStatementTwo = - WAFv2WebACLStatementTwo - { _wAFv2WebACLStatementTwoAndStatement = Nothing - , _wAFv2WebACLStatementTwoByteMatchStatement = Nothing - , _wAFv2WebACLStatementTwoGeoMatchStatement = Nothing - , _wAFv2WebACLStatementTwoIPSetReferenceStatement = Nothing - , _wAFv2WebACLStatementTwoManagedRuleGroupStatement = Nothing - , _wAFv2WebACLStatementTwoNotStatement = Nothing - , _wAFv2WebACLStatementTwoOrStatement = Nothing - , _wAFv2WebACLStatementTwoRateBasedStatement = Nothing - , _wAFv2WebACLStatementTwoRegexPatternSetReferenceStatement = Nothing - , _wAFv2WebACLStatementTwoRuleGroupReferenceStatement = Nothing - , _wAFv2WebACLStatementTwoSizeConstraintStatement = Nothing - , _wAFv2WebACLStatementTwoSqliMatchStatement = Nothing - , _wAFv2WebACLStatementTwoXssMatchStatement = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementtwo.html#cfn-wafv2-webacl-statementtwo-andstatement -wafwaclstwAndStatement :: Lens' WAFv2WebACLStatementTwo (Maybe WAFv2WebACLAndStatementTwo) -wafwaclstwAndStatement = lens _wAFv2WebACLStatementTwoAndStatement (\s a -> s { _wAFv2WebACLStatementTwoAndStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementtwo.html#cfn-wafv2-webacl-statementtwo-bytematchstatement -wafwaclstwByteMatchStatement :: Lens' WAFv2WebACLStatementTwo (Maybe WAFv2WebACLByteMatchStatement) -wafwaclstwByteMatchStatement = lens _wAFv2WebACLStatementTwoByteMatchStatement (\s a -> s { _wAFv2WebACLStatementTwoByteMatchStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementtwo.html#cfn-wafv2-webacl-statementtwo-geomatchstatement -wafwaclstwGeoMatchStatement :: Lens' WAFv2WebACLStatementTwo (Maybe WAFv2WebACLGeoMatchStatement) -wafwaclstwGeoMatchStatement = lens _wAFv2WebACLStatementTwoGeoMatchStatement (\s a -> s { _wAFv2WebACLStatementTwoGeoMatchStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementtwo.html#cfn-wafv2-webacl-statementtwo-ipsetreferencestatement -wafwaclstwIPSetReferenceStatement :: Lens' WAFv2WebACLStatementTwo (Maybe WAFv2WebACLIPSetReferenceStatement) -wafwaclstwIPSetReferenceStatement = lens _wAFv2WebACLStatementTwoIPSetReferenceStatement (\s a -> s { _wAFv2WebACLStatementTwoIPSetReferenceStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementtwo.html#cfn-wafv2-webacl-statementtwo-managedrulegroupstatement -wafwaclstwManagedRuleGroupStatement :: Lens' WAFv2WebACLStatementTwo (Maybe WAFv2WebACLManagedRuleGroupStatement) -wafwaclstwManagedRuleGroupStatement = lens _wAFv2WebACLStatementTwoManagedRuleGroupStatement (\s a -> s { _wAFv2WebACLStatementTwoManagedRuleGroupStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementtwo.html#cfn-wafv2-webacl-statementtwo-notstatement -wafwaclstwNotStatement :: Lens' WAFv2WebACLStatementTwo (Maybe WAFv2WebACLNotStatementTwo) -wafwaclstwNotStatement = lens _wAFv2WebACLStatementTwoNotStatement (\s a -> s { _wAFv2WebACLStatementTwoNotStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementtwo.html#cfn-wafv2-webacl-statementtwo-orstatement -wafwaclstwOrStatement :: Lens' WAFv2WebACLStatementTwo (Maybe WAFv2WebACLOrStatementTwo) -wafwaclstwOrStatement = lens _wAFv2WebACLStatementTwoOrStatement (\s a -> s { _wAFv2WebACLStatementTwoOrStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementtwo.html#cfn-wafv2-webacl-statementtwo-ratebasedstatement -wafwaclstwRateBasedStatement :: Lens' WAFv2WebACLStatementTwo (Maybe WAFv2WebACLRateBasedStatementTwo) -wafwaclstwRateBasedStatement = lens _wAFv2WebACLStatementTwoRateBasedStatement (\s a -> s { _wAFv2WebACLStatementTwoRateBasedStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementtwo.html#cfn-wafv2-webacl-statementtwo-regexpatternsetreferencestatement -wafwaclstwRegexPatternSetReferenceStatement :: Lens' WAFv2WebACLStatementTwo (Maybe WAFv2WebACLRegexPatternSetReferenceStatement) -wafwaclstwRegexPatternSetReferenceStatement = lens _wAFv2WebACLStatementTwoRegexPatternSetReferenceStatement (\s a -> s { _wAFv2WebACLStatementTwoRegexPatternSetReferenceStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementtwo.html#cfn-wafv2-webacl-statementtwo-rulegroupreferencestatement -wafwaclstwRuleGroupReferenceStatement :: Lens' WAFv2WebACLStatementTwo (Maybe WAFv2WebACLRuleGroupReferenceStatement) -wafwaclstwRuleGroupReferenceStatement = lens _wAFv2WebACLStatementTwoRuleGroupReferenceStatement (\s a -> s { _wAFv2WebACLStatementTwoRuleGroupReferenceStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementtwo.html#cfn-wafv2-webacl-statementtwo-sizeconstraintstatement -wafwaclstwSizeConstraintStatement :: Lens' WAFv2WebACLStatementTwo (Maybe WAFv2WebACLSizeConstraintStatement) -wafwaclstwSizeConstraintStatement = lens _wAFv2WebACLStatementTwoSizeConstraintStatement (\s a -> s { _wAFv2WebACLStatementTwoSizeConstraintStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementtwo.html#cfn-wafv2-webacl-statementtwo-sqlimatchstatement -wafwaclstwSqliMatchStatement :: Lens' WAFv2WebACLStatementTwo (Maybe WAFv2WebACLSqliMatchStatement) -wafwaclstwSqliMatchStatement = lens _wAFv2WebACLStatementTwoSqliMatchStatement (\s a -> s { _wAFv2WebACLStatementTwoSqliMatchStatement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-statementtwo.html#cfn-wafv2-webacl-statementtwo-xssmatchstatement -wafwaclstwXssMatchStatement :: Lens' WAFv2WebACLStatementTwo (Maybe WAFv2WebACLXssMatchStatement) -wafwaclstwXssMatchStatement = lens _wAFv2WebACLStatementTwoXssMatchStatement (\s a -> s { _wAFv2WebACLStatementTwoXssMatchStatement = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLTextTransformation.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLTextTransformation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLTextTransformation.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-texttransformation.html - -module Stratosphere.ResourceProperties.WAFv2WebACLTextTransformation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFv2WebACLTextTransformation. See --- 'waFv2WebACLTextTransformation' for a more convenient constructor. -data WAFv2WebACLTextTransformation = - WAFv2WebACLTextTransformation - { _wAFv2WebACLTextTransformationPriority :: Val Integer - , _wAFv2WebACLTextTransformationType :: Val Text - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLTextTransformation where - toJSON WAFv2WebACLTextTransformation{..} = - object $ - catMaybes - [ (Just . ("Priority",) . toJSON) _wAFv2WebACLTextTransformationPriority - , (Just . ("Type",) . toJSON) _wAFv2WebACLTextTransformationType - ] - --- | Constructor for 'WAFv2WebACLTextTransformation' containing required --- fields as arguments. -waFv2WebACLTextTransformation - :: Val Integer -- ^ 'wafwaclttPriority' - -> Val Text -- ^ 'wafwaclttType' - -> WAFv2WebACLTextTransformation -waFv2WebACLTextTransformation priorityarg typearg = - WAFv2WebACLTextTransformation - { _wAFv2WebACLTextTransformationPriority = priorityarg - , _wAFv2WebACLTextTransformationType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-texttransformation.html#cfn-wafv2-webacl-texttransformation-priority -wafwaclttPriority :: Lens' WAFv2WebACLTextTransformation (Val Integer) -wafwaclttPriority = lens _wAFv2WebACLTextTransformationPriority (\s a -> s { _wAFv2WebACLTextTransformationPriority = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-texttransformation.html#cfn-wafv2-webacl-texttransformation-type -wafwaclttType :: Lens' WAFv2WebACLTextTransformation (Val Text) -wafwaclttType = lens _wAFv2WebACLTextTransformationType (\s a -> s { _wAFv2WebACLTextTransformationType = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLVisibilityConfig.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLVisibilityConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLVisibilityConfig.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-visibilityconfig.html - -module Stratosphere.ResourceProperties.WAFv2WebACLVisibilityConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFv2WebACLVisibilityConfig. See --- 'waFv2WebACLVisibilityConfig' for a more convenient constructor. -data WAFv2WebACLVisibilityConfig = - WAFv2WebACLVisibilityConfig - { _wAFv2WebACLVisibilityConfigCloudWatchMetricsEnabled :: Val Bool - , _wAFv2WebACLVisibilityConfigMetricName :: Val Text - , _wAFv2WebACLVisibilityConfigSampledRequestsEnabled :: Val Bool - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLVisibilityConfig where - toJSON WAFv2WebACLVisibilityConfig{..} = - object $ - catMaybes - [ (Just . ("CloudWatchMetricsEnabled",) . toJSON) _wAFv2WebACLVisibilityConfigCloudWatchMetricsEnabled - , (Just . ("MetricName",) . toJSON) _wAFv2WebACLVisibilityConfigMetricName - , (Just . ("SampledRequestsEnabled",) . toJSON) _wAFv2WebACLVisibilityConfigSampledRequestsEnabled - ] - --- | Constructor for 'WAFv2WebACLVisibilityConfig' containing required fields --- as arguments. -waFv2WebACLVisibilityConfig - :: Val Bool -- ^ 'wafwaclvcCloudWatchMetricsEnabled' - -> Val Text -- ^ 'wafwaclvcMetricName' - -> Val Bool -- ^ 'wafwaclvcSampledRequestsEnabled' - -> WAFv2WebACLVisibilityConfig -waFv2WebACLVisibilityConfig cloudWatchMetricsEnabledarg metricNamearg sampledRequestsEnabledarg = - WAFv2WebACLVisibilityConfig - { _wAFv2WebACLVisibilityConfigCloudWatchMetricsEnabled = cloudWatchMetricsEnabledarg - , _wAFv2WebACLVisibilityConfigMetricName = metricNamearg - , _wAFv2WebACLVisibilityConfigSampledRequestsEnabled = sampledRequestsEnabledarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-visibilityconfig.html#cfn-wafv2-webacl-visibilityconfig-cloudwatchmetricsenabled -wafwaclvcCloudWatchMetricsEnabled :: Lens' WAFv2WebACLVisibilityConfig (Val Bool) -wafwaclvcCloudWatchMetricsEnabled = lens _wAFv2WebACLVisibilityConfigCloudWatchMetricsEnabled (\s a -> s { _wAFv2WebACLVisibilityConfigCloudWatchMetricsEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-visibilityconfig.html#cfn-wafv2-webacl-visibilityconfig-metricname -wafwaclvcMetricName :: Lens' WAFv2WebACLVisibilityConfig (Val Text) -wafwaclvcMetricName = lens _wAFv2WebACLVisibilityConfigMetricName (\s a -> s { _wAFv2WebACLVisibilityConfigMetricName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-visibilityconfig.html#cfn-wafv2-webacl-visibilityconfig-sampledrequestsenabled -wafwaclvcSampledRequestsEnabled :: Lens' WAFv2WebACLVisibilityConfig (Val Bool) -wafwaclvcSampledRequestsEnabled = lens _wAFv2WebACLVisibilityConfigSampledRequestsEnabled (\s a -> s { _wAFv2WebACLVisibilityConfigSampledRequestsEnabled = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLXssMatchStatement.hs b/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLXssMatchStatement.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WAFv2WebACLXssMatchStatement.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-xssmatchstatement.html - -module Stratosphere.ResourceProperties.WAFv2WebACLXssMatchStatement where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2WebACLFieldToMatch -import Stratosphere.ResourceProperties.WAFv2WebACLTextTransformation - --- | Full data type definition for WAFv2WebACLXssMatchStatement. See --- 'waFv2WebACLXssMatchStatement' for a more convenient constructor. -data WAFv2WebACLXssMatchStatement = - WAFv2WebACLXssMatchStatement - { _wAFv2WebACLXssMatchStatementFieldToMatch :: WAFv2WebACLFieldToMatch - , _wAFv2WebACLXssMatchStatementTextTransformations :: [WAFv2WebACLTextTransformation] - } deriving (Show, Eq) - -instance ToJSON WAFv2WebACLXssMatchStatement where - toJSON WAFv2WebACLXssMatchStatement{..} = - object $ - catMaybes - [ (Just . ("FieldToMatch",) . toJSON) _wAFv2WebACLXssMatchStatementFieldToMatch - , (Just . ("TextTransformations",) . toJSON) _wAFv2WebACLXssMatchStatementTextTransformations - ] - --- | Constructor for 'WAFv2WebACLXssMatchStatement' containing required fields --- as arguments. -waFv2WebACLXssMatchStatement - :: WAFv2WebACLFieldToMatch -- ^ 'wafwaclxmsFieldToMatch' - -> [WAFv2WebACLTextTransformation] -- ^ 'wafwaclxmsTextTransformations' - -> WAFv2WebACLXssMatchStatement -waFv2WebACLXssMatchStatement fieldToMatcharg textTransformationsarg = - WAFv2WebACLXssMatchStatement - { _wAFv2WebACLXssMatchStatementFieldToMatch = fieldToMatcharg - , _wAFv2WebACLXssMatchStatementTextTransformations = textTransformationsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-xssmatchstatement.html#cfn-wafv2-webacl-xssmatchstatement-fieldtomatch -wafwaclxmsFieldToMatch :: Lens' WAFv2WebACLXssMatchStatement WAFv2WebACLFieldToMatch -wafwaclxmsFieldToMatch = lens _wAFv2WebACLXssMatchStatementFieldToMatch (\s a -> s { _wAFv2WebACLXssMatchStatementFieldToMatch = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wafv2-webacl-xssmatchstatement.html#cfn-wafv2-webacl-xssmatchstatement-texttransformations -wafwaclxmsTextTransformations :: Lens' WAFv2WebACLXssMatchStatement [WAFv2WebACLTextTransformation] -wafwaclxmsTextTransformations = lens _wAFv2WebACLXssMatchStatementTextTransformations (\s a -> s { _wAFv2WebACLXssMatchStatementTextTransformations = a }) diff --git a/library-gen/Stratosphere/ResourceProperties/WorkSpacesWorkspaceWorkspaceProperties.hs b/library-gen/Stratosphere/ResourceProperties/WorkSpacesWorkspaceWorkspaceProperties.hs deleted file mode 100644 --- a/library-gen/Stratosphere/ResourceProperties/WorkSpacesWorkspaceWorkspaceProperties.hs +++ /dev/null @@ -1,67 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-workspaces-workspace-workspaceproperties.html - -module Stratosphere.ResourceProperties.WorkSpacesWorkspaceWorkspaceProperties where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WorkSpacesWorkspaceWorkspaceProperties. See --- 'workSpacesWorkspaceWorkspaceProperties' for a more convenient --- constructor. -data WorkSpacesWorkspaceWorkspaceProperties = - WorkSpacesWorkspaceWorkspaceProperties - { _workSpacesWorkspaceWorkspacePropertiesComputeTypeName :: Maybe (Val Text) - , _workSpacesWorkspaceWorkspacePropertiesRootVolumeSizeGib :: Maybe (Val Integer) - , _workSpacesWorkspaceWorkspacePropertiesRunningMode :: Maybe (Val Text) - , _workSpacesWorkspaceWorkspacePropertiesRunningModeAutoStopTimeoutInMinutes :: Maybe (Val Integer) - , _workSpacesWorkspaceWorkspacePropertiesUserVolumeSizeGib :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToJSON WorkSpacesWorkspaceWorkspaceProperties where - toJSON WorkSpacesWorkspaceWorkspaceProperties{..} = - object $ - catMaybes - [ fmap (("ComputeTypeName",) . toJSON) _workSpacesWorkspaceWorkspacePropertiesComputeTypeName - , fmap (("RootVolumeSizeGib",) . toJSON) _workSpacesWorkspaceWorkspacePropertiesRootVolumeSizeGib - , fmap (("RunningMode",) . toJSON) _workSpacesWorkspaceWorkspacePropertiesRunningMode - , fmap (("RunningModeAutoStopTimeoutInMinutes",) . toJSON) _workSpacesWorkspaceWorkspacePropertiesRunningModeAutoStopTimeoutInMinutes - , fmap (("UserVolumeSizeGib",) . toJSON) _workSpacesWorkspaceWorkspacePropertiesUserVolumeSizeGib - ] - --- | Constructor for 'WorkSpacesWorkspaceWorkspaceProperties' containing --- required fields as arguments. -workSpacesWorkspaceWorkspaceProperties - :: WorkSpacesWorkspaceWorkspaceProperties -workSpacesWorkspaceWorkspaceProperties = - WorkSpacesWorkspaceWorkspaceProperties - { _workSpacesWorkspaceWorkspacePropertiesComputeTypeName = Nothing - , _workSpacesWorkspaceWorkspacePropertiesRootVolumeSizeGib = Nothing - , _workSpacesWorkspaceWorkspacePropertiesRunningMode = Nothing - , _workSpacesWorkspaceWorkspacePropertiesRunningModeAutoStopTimeoutInMinutes = Nothing - , _workSpacesWorkspaceWorkspacePropertiesUserVolumeSizeGib = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-workspaces-workspace-workspaceproperties.html#cfn-workspaces-workspace-workspaceproperties-computetypename -wswwpComputeTypeName :: Lens' WorkSpacesWorkspaceWorkspaceProperties (Maybe (Val Text)) -wswwpComputeTypeName = lens _workSpacesWorkspaceWorkspacePropertiesComputeTypeName (\s a -> s { _workSpacesWorkspaceWorkspacePropertiesComputeTypeName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-workspaces-workspace-workspaceproperties.html#cfn-workspaces-workspace-workspaceproperties-rootvolumesizegib -wswwpRootVolumeSizeGib :: Lens' WorkSpacesWorkspaceWorkspaceProperties (Maybe (Val Integer)) -wswwpRootVolumeSizeGib = lens _workSpacesWorkspaceWorkspacePropertiesRootVolumeSizeGib (\s a -> s { _workSpacesWorkspaceWorkspacePropertiesRootVolumeSizeGib = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-workspaces-workspace-workspaceproperties.html#cfn-workspaces-workspace-workspaceproperties-runningmode -wswwpRunningMode :: Lens' WorkSpacesWorkspaceWorkspaceProperties (Maybe (Val Text)) -wswwpRunningMode = lens _workSpacesWorkspaceWorkspacePropertiesRunningMode (\s a -> s { _workSpacesWorkspaceWorkspacePropertiesRunningMode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-workspaces-workspace-workspaceproperties.html#cfn-workspaces-workspace-workspaceproperties-runningmodeautostoptimeoutinminutes -wswwpRunningModeAutoStopTimeoutInMinutes :: Lens' WorkSpacesWorkspaceWorkspaceProperties (Maybe (Val Integer)) -wswwpRunningModeAutoStopTimeoutInMinutes = lens _workSpacesWorkspaceWorkspacePropertiesRunningModeAutoStopTimeoutInMinutes (\s a -> s { _workSpacesWorkspaceWorkspacePropertiesRunningModeAutoStopTimeoutInMinutes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-workspaces-workspace-workspaceproperties.html#cfn-workspaces-workspace-workspaceproperties-uservolumesizegib -wswwpUserVolumeSizeGib :: Lens' WorkSpacesWorkspaceWorkspaceProperties (Maybe (Val Integer)) -wswwpUserVolumeSizeGib = lens _workSpacesWorkspaceWorkspacePropertiesUserVolumeSizeGib (\s a -> s { _workSpacesWorkspaceWorkspacePropertiesUserVolumeSizeGib = a }) diff --git a/library-gen/Stratosphere/Resources.hs b/library-gen/Stratosphere/Resources.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources.hs +++ /dev/null @@ -1,2177 +0,0 @@ -{-# LANGUAGE CPP #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE ExistentialQuantification #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE FunctionalDependencies #-} -{-# LANGUAGE GeneralizedNewtypeDeriving #-} -{-# LANGUAGE MultiParamTypeClasses #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TemplateHaskell #-} -{-# LANGUAGE TypeFamilies #-} - --- | See: --- http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/resources-section-structure.html --- --- The required Resources section declare the AWS resources that you want as --- part of your stack, such as an Amazon EC2 instance or an Amazon S3 bucket. --- You must declare each resource separately; however, you can specify multiple --- resources of the same type. If you declare multiple resources, separate them --- with commas. - -module Stratosphere.Resources - ( module X - , Resource (..) - , resource - , resourceName - , resourceProperties - , resourceDeletionPolicy - , resourceCreationPolicy - , resourceUpdatePolicy - , resourceDependsOn - , resourceMetadata - , resourceCondition - , ResourceProperties (..) - , DeletionPolicy (..) - , Resources (..) - ) where - -import Control.Lens hiding ((.=)) -import Data.Aeson -import Data.Maybe (catMaybes) -import Data.Semigroup (Semigroup) -import qualified Data.Text as T -import GHC.Exts (IsList(..)) -import GHC.Generics (Generic) - -import Stratosphere.Resources.ACMPCACertificate as X -import Stratosphere.Resources.ACMPCACertificateAuthority as X -import Stratosphere.Resources.ACMPCACertificateAuthorityActivation as X -import Stratosphere.Resources.AccessAnalyzerAnalyzer as X -import Stratosphere.Resources.AmazonMQBroker as X -import Stratosphere.Resources.AmazonMQConfiguration as X -import Stratosphere.Resources.AmazonMQConfigurationAssociation as X -import Stratosphere.Resources.AmplifyApp as X -import Stratosphere.Resources.AmplifyBranch as X -import Stratosphere.Resources.AmplifyDomain as X -import Stratosphere.Resources.ApiGatewayAccount as X -import Stratosphere.Resources.ApiGatewayApiKey as X -import Stratosphere.Resources.ApiGatewayAuthorizer as X -import Stratosphere.Resources.ApiGatewayBasePathMapping as X -import Stratosphere.Resources.ApiGatewayClientCertificate as X -import Stratosphere.Resources.ApiGatewayDeployment as X -import Stratosphere.Resources.ApiGatewayDocumentationPart as X -import Stratosphere.Resources.ApiGatewayDocumentationVersion as X -import Stratosphere.Resources.ApiGatewayDomainName as X -import Stratosphere.Resources.ApiGatewayGatewayResponse as X -import Stratosphere.Resources.ApiGatewayMethod as X -import Stratosphere.Resources.ApiGatewayModel as X -import Stratosphere.Resources.ApiGatewayRequestValidator as X -import Stratosphere.Resources.ApiGatewayResource as X -import Stratosphere.Resources.ApiGatewayRestApi as X -import Stratosphere.Resources.ApiGatewayStage as X -import Stratosphere.Resources.ApiGatewayUsagePlan as X -import Stratosphere.Resources.ApiGatewayUsagePlanKey as X -import Stratosphere.Resources.ApiGatewayVpcLink as X -import Stratosphere.Resources.ApiGatewayV2Api as X -import Stratosphere.Resources.ApiGatewayV2ApiGatewayManagedOverrides as X -import Stratosphere.Resources.ApiGatewayV2ApiMapping as X -import Stratosphere.Resources.ApiGatewayV2Authorizer as X -import Stratosphere.Resources.ApiGatewayV2Deployment as X -import Stratosphere.Resources.ApiGatewayV2DomainName as X -import Stratosphere.Resources.ApiGatewayV2Integration as X -import Stratosphere.Resources.ApiGatewayV2IntegrationResponse as X -import Stratosphere.Resources.ApiGatewayV2Model as X -import Stratosphere.Resources.ApiGatewayV2Route as X -import Stratosphere.Resources.ApiGatewayV2RouteResponse as X -import Stratosphere.Resources.ApiGatewayV2Stage as X -import Stratosphere.Resources.ApiGatewayV2VpcLink as X -import Stratosphere.Resources.AppConfigApplication as X -import Stratosphere.Resources.AppConfigConfigurationProfile as X -import Stratosphere.Resources.AppConfigDeployment as X -import Stratosphere.Resources.AppConfigDeploymentStrategy as X -import Stratosphere.Resources.AppConfigEnvironment as X -import Stratosphere.Resources.AppConfigHostedConfigurationVersion as X -import Stratosphere.Resources.AppMeshGatewayRoute as X -import Stratosphere.Resources.AppMeshMesh as X -import Stratosphere.Resources.AppMeshRoute as X -import Stratosphere.Resources.AppMeshVirtualGateway as X -import Stratosphere.Resources.AppMeshVirtualNode as X -import Stratosphere.Resources.AppMeshVirtualRouter as X -import Stratosphere.Resources.AppMeshVirtualService as X -import Stratosphere.Resources.AppStreamDirectoryConfig as X -import Stratosphere.Resources.AppStreamFleet as X -import Stratosphere.Resources.AppStreamImageBuilder as X -import Stratosphere.Resources.AppStreamStack as X -import Stratosphere.Resources.AppStreamStackFleetAssociation as X -import Stratosphere.Resources.AppStreamStackUserAssociation as X -import Stratosphere.Resources.AppStreamUser as X -import Stratosphere.Resources.AppSyncApiCache as X -import Stratosphere.Resources.AppSyncApiKey as X -import Stratosphere.Resources.AppSyncDataSource as X -import Stratosphere.Resources.AppSyncFunctionConfiguration as X -import Stratosphere.Resources.AppSyncGraphQLApi as X -import Stratosphere.Resources.AppSyncGraphQLSchema as X -import Stratosphere.Resources.AppSyncResolver as X -import Stratosphere.Resources.ApplicationAutoScalingScalableTarget as X -import Stratosphere.Resources.ApplicationAutoScalingScalingPolicy as X -import Stratosphere.Resources.ApplicationInsightsApplication as X -import Stratosphere.Resources.AthenaDataCatalog as X -import Stratosphere.Resources.AthenaNamedQuery as X -import Stratosphere.Resources.AthenaWorkGroup as X -import Stratosphere.Resources.AutoScalingAutoScalingGroup as X -import Stratosphere.Resources.AutoScalingLaunchConfiguration as X -import Stratosphere.Resources.AutoScalingLifecycleHook as X -import Stratosphere.Resources.AutoScalingScalingPolicy as X -import Stratosphere.Resources.AutoScalingScheduledAction as X -import Stratosphere.Resources.AutoScalingPlansScalingPlan as X -import Stratosphere.Resources.BackupBackupPlan as X -import Stratosphere.Resources.BackupBackupSelection as X -import Stratosphere.Resources.BackupBackupVault as X -import Stratosphere.Resources.BatchComputeEnvironment as X -import Stratosphere.Resources.BatchJobDefinition as X -import Stratosphere.Resources.BatchJobQueue as X -import Stratosphere.Resources.BudgetsBudget as X -import Stratosphere.Resources.CECostCategory as X -import Stratosphere.Resources.CassandraKeyspace as X -import Stratosphere.Resources.CassandraTable as X -import Stratosphere.Resources.CertificateManagerCertificate as X -import Stratosphere.Resources.ChatbotSlackChannelConfiguration as X -import Stratosphere.Resources.Cloud9EnvironmentEC2 as X -import Stratosphere.Resources.CloudFormationCustomResource as X -import Stratosphere.Resources.CloudFormationMacro as X -import Stratosphere.Resources.CloudFormationStack as X -import Stratosphere.Resources.CloudFormationWaitCondition as X -import Stratosphere.Resources.CloudFormationWaitConditionHandle as X -import Stratosphere.Resources.CloudFrontCachePolicy as X -import Stratosphere.Resources.CloudFrontCloudFrontOriginAccessIdentity as X -import Stratosphere.Resources.CloudFrontDistribution as X -import Stratosphere.Resources.CloudFrontOriginRequestPolicy as X -import Stratosphere.Resources.CloudFrontRealtimeLogConfig as X -import Stratosphere.Resources.CloudFrontStreamingDistribution as X -import Stratosphere.Resources.CloudTrailTrail as X -import Stratosphere.Resources.CloudWatchAlarm as X -import Stratosphere.Resources.CloudWatchAnomalyDetector as X -import Stratosphere.Resources.CloudWatchCompositeAlarm as X -import Stratosphere.Resources.CloudWatchDashboard as X -import Stratosphere.Resources.CloudWatchInsightRule as X -import Stratosphere.Resources.CodeBuildProject as X -import Stratosphere.Resources.CodeBuildReportGroup as X -import Stratosphere.Resources.CodeBuildSourceCredential as X -import Stratosphere.Resources.CodeCommitRepository as X -import Stratosphere.Resources.CodeDeployApplication as X -import Stratosphere.Resources.CodeDeployDeploymentConfig as X -import Stratosphere.Resources.CodeDeployDeploymentGroup as X -import Stratosphere.Resources.CodeGuruProfilerProfilingGroup as X -import Stratosphere.Resources.CodeGuruReviewerRepositoryAssociation as X -import Stratosphere.Resources.CodePipelineCustomActionType as X -import Stratosphere.Resources.CodePipelinePipeline as X -import Stratosphere.Resources.CodePipelineWebhook as X -import Stratosphere.Resources.CodeStarGitHubRepository as X -import Stratosphere.Resources.CodeStarConnectionsConnection as X -import Stratosphere.Resources.CodeStarNotificationsNotificationRule as X -import Stratosphere.Resources.CognitoIdentityPool as X -import Stratosphere.Resources.CognitoIdentityPoolRoleAttachment as X -import Stratosphere.Resources.CognitoUserPool as X -import Stratosphere.Resources.CognitoUserPoolClient as X -import Stratosphere.Resources.CognitoUserPoolDomain as X -import Stratosphere.Resources.CognitoUserPoolGroup as X -import Stratosphere.Resources.CognitoUserPoolIdentityProvider as X -import Stratosphere.Resources.CognitoUserPoolResourceServer as X -import Stratosphere.Resources.CognitoUserPoolRiskConfigurationAttachment as X -import Stratosphere.Resources.CognitoUserPoolUICustomizationAttachment as X -import Stratosphere.Resources.CognitoUserPoolUser as X -import Stratosphere.Resources.CognitoUserPoolUserToGroupAttachment as X -import Stratosphere.Resources.ConfigAggregationAuthorization as X -import Stratosphere.Resources.ConfigConfigRule as X -import Stratosphere.Resources.ConfigConfigurationAggregator as X -import Stratosphere.Resources.ConfigConfigurationRecorder as X -import Stratosphere.Resources.ConfigConformancePack as X -import Stratosphere.Resources.ConfigDeliveryChannel as X -import Stratosphere.Resources.ConfigOrganizationConfigRule as X -import Stratosphere.Resources.ConfigOrganizationConformancePack as X -import Stratosphere.Resources.ConfigRemediationConfiguration as X -import Stratosphere.Resources.DAXCluster as X -import Stratosphere.Resources.DAXParameterGroup as X -import Stratosphere.Resources.DAXSubnetGroup as X -import Stratosphere.Resources.DLMLifecyclePolicy as X -import Stratosphere.Resources.DMSCertificate as X -import Stratosphere.Resources.DMSEndpoint as X -import Stratosphere.Resources.DMSEventSubscription as X -import Stratosphere.Resources.DMSReplicationInstance as X -import Stratosphere.Resources.DMSReplicationSubnetGroup as X -import Stratosphere.Resources.DMSReplicationTask as X -import Stratosphere.Resources.DataPipelinePipeline as X -import Stratosphere.Resources.DetectiveGraph as X -import Stratosphere.Resources.DetectiveMemberInvitation as X -import Stratosphere.Resources.DirectoryServiceMicrosoftAD as X -import Stratosphere.Resources.DirectoryServiceSimpleAD as X -import Stratosphere.Resources.DocDBDBCluster as X -import Stratosphere.Resources.DocDBDBClusterParameterGroup as X -import Stratosphere.Resources.DocDBDBInstance as X -import Stratosphere.Resources.DocDBDBSubnetGroup as X -import Stratosphere.Resources.DynamoDBTable as X -import Stratosphere.Resources.EC2CapacityReservation as X -import Stratosphere.Resources.EC2CarrierGateway as X -import Stratosphere.Resources.EC2ClientVpnAuthorizationRule as X -import Stratosphere.Resources.EC2ClientVpnEndpoint as X -import Stratosphere.Resources.EC2ClientVpnRoute as X -import Stratosphere.Resources.EC2ClientVpnTargetNetworkAssociation as X -import Stratosphere.Resources.EC2CustomerGateway as X -import Stratosphere.Resources.EC2DHCPOptions as X -import Stratosphere.Resources.EC2EC2Fleet as X -import Stratosphere.Resources.EC2EIP as X -import Stratosphere.Resources.EC2EIPAssociation as X -import Stratosphere.Resources.EC2EgressOnlyInternetGateway as X -import Stratosphere.Resources.EC2FlowLog as X -import Stratosphere.Resources.EC2GatewayRouteTableAssociation as X -import Stratosphere.Resources.EC2Host as X -import Stratosphere.Resources.EC2Instance as X -import Stratosphere.Resources.EC2InternetGateway as X -import Stratosphere.Resources.EC2LaunchTemplate as X -import Stratosphere.Resources.EC2LocalGatewayRoute as X -import Stratosphere.Resources.EC2LocalGatewayRouteTableVPCAssociation as X -import Stratosphere.Resources.EC2NatGateway as X -import Stratosphere.Resources.EC2NetworkAcl as X -import Stratosphere.Resources.EC2NetworkAclEntry as X -import Stratosphere.Resources.EC2NetworkInterface as X -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 -import Stratosphere.Resources.EC2SecurityGroupEgress as X -import Stratosphere.Resources.EC2SecurityGroupIngress as X -import Stratosphere.Resources.EC2SpotFleet as X -import Stratosphere.Resources.EC2Subnet as X -import Stratosphere.Resources.EC2SubnetCidrBlock as X -import Stratosphere.Resources.EC2SubnetNetworkAclAssociation as X -import Stratosphere.Resources.EC2SubnetRouteTableAssociation as X -import Stratosphere.Resources.EC2TrafficMirrorFilter as X -import Stratosphere.Resources.EC2TrafficMirrorFilterRule as X -import Stratosphere.Resources.EC2TrafficMirrorSession as X -import Stratosphere.Resources.EC2TrafficMirrorTarget as X -import Stratosphere.Resources.EC2TransitGateway as X -import Stratosphere.Resources.EC2TransitGatewayAttachment as X -import Stratosphere.Resources.EC2TransitGatewayRoute as X -import Stratosphere.Resources.EC2TransitGatewayRouteTable as X -import Stratosphere.Resources.EC2TransitGatewayRouteTableAssociation as X -import Stratosphere.Resources.EC2TransitGatewayRouteTablePropagation as X -import Stratosphere.Resources.EC2VPC as X -import Stratosphere.Resources.EC2VPCCidrBlock as X -import Stratosphere.Resources.EC2VPCDHCPOptionsAssociation as X -import Stratosphere.Resources.EC2VPCEndpoint as X -import Stratosphere.Resources.EC2VPCEndpointConnectionNotification as X -import Stratosphere.Resources.EC2VPCEndpointService as X -import Stratosphere.Resources.EC2VPCEndpointServicePermissions as X -import Stratosphere.Resources.EC2VPCGatewayAttachment as X -import Stratosphere.Resources.EC2VPCPeeringConnection as X -import Stratosphere.Resources.EC2VPNConnection as X -import Stratosphere.Resources.EC2VPNConnectionRoute as X -import Stratosphere.Resources.EC2VPNGateway as X -import Stratosphere.Resources.EC2VPNGatewayRoutePropagation as X -import Stratosphere.Resources.EC2Volume as X -import Stratosphere.Resources.EC2VolumeAttachment as X -import Stratosphere.Resources.ECRRepository as X -import Stratosphere.Resources.ECSCapacityProvider as X -import Stratosphere.Resources.ECSCluster as X -import Stratosphere.Resources.ECSPrimaryTaskSet as X -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 -import Stratosphere.Resources.EKSFargateProfile as X -import Stratosphere.Resources.EKSNodegroup as X -import Stratosphere.Resources.EMRCluster as X -import Stratosphere.Resources.EMRInstanceFleetConfig as X -import Stratosphere.Resources.EMRInstanceGroupConfig as X -import Stratosphere.Resources.EMRSecurityConfiguration as X -import Stratosphere.Resources.EMRStep as X -import Stratosphere.Resources.ElastiCacheCacheCluster as X -import Stratosphere.Resources.ElastiCacheParameterGroup as X -import Stratosphere.Resources.ElastiCacheReplicationGroup as X -import Stratosphere.Resources.ElastiCacheSecurityGroup as X -import Stratosphere.Resources.ElastiCacheSecurityGroupIngress as X -import Stratosphere.Resources.ElastiCacheSubnetGroup as X -import Stratosphere.Resources.ElasticBeanstalkApplication as X -import Stratosphere.Resources.ElasticBeanstalkApplicationVersion as X -import Stratosphere.Resources.ElasticBeanstalkConfigurationTemplate as X -import Stratosphere.Resources.ElasticBeanstalkEnvironment as X -import Stratosphere.Resources.ElasticLoadBalancingLoadBalancer as X -import Stratosphere.Resources.ElasticLoadBalancingV2Listener as X -import Stratosphere.Resources.ElasticLoadBalancingV2ListenerCertificateResource as X -import Stratosphere.Resources.ElasticLoadBalancingV2ListenerRule as X -import Stratosphere.Resources.ElasticLoadBalancingV2LoadBalancer as X -import Stratosphere.Resources.ElasticLoadBalancingV2TargetGroup as X -import Stratosphere.Resources.ElasticsearchDomain as X -import Stratosphere.Resources.EventSchemasDiscoverer as X -import Stratosphere.Resources.EventSchemasRegistry as X -import Stratosphere.Resources.EventSchemasRegistryPolicy as X -import Stratosphere.Resources.EventSchemasSchema as X -import Stratosphere.Resources.EventsEventBus as X -import Stratosphere.Resources.EventsEventBusPolicy as X -import Stratosphere.Resources.EventsRule as X -import Stratosphere.Resources.FMSNotificationChannel as X -import Stratosphere.Resources.FMSPolicy as X -import Stratosphere.Resources.FSxFileSystem as X -import Stratosphere.Resources.GameLiftAlias as X -import Stratosphere.Resources.GameLiftBuild as X -import Stratosphere.Resources.GameLiftFleet as X -import Stratosphere.Resources.GameLiftGameServerGroup as X -import Stratosphere.Resources.GameLiftGameSessionQueue as X -import Stratosphere.Resources.GameLiftMatchmakingConfiguration as X -import Stratosphere.Resources.GameLiftMatchmakingRuleSet as X -import Stratosphere.Resources.GameLiftScript as X -import Stratosphere.Resources.GlobalAcceleratorAccelerator as X -import Stratosphere.Resources.GlobalAcceleratorEndpointGroup as X -import Stratosphere.Resources.GlobalAcceleratorListener as X -import Stratosphere.Resources.GlueClassifier as X -import Stratosphere.Resources.GlueConnection as X -import Stratosphere.Resources.GlueCrawler as X -import Stratosphere.Resources.GlueDataCatalogEncryptionSettings as X -import Stratosphere.Resources.GlueDatabase as X -import Stratosphere.Resources.GlueDevEndpoint as X -import Stratosphere.Resources.GlueJob as X -import Stratosphere.Resources.GlueMLTransform as X -import Stratosphere.Resources.GluePartition as X -import Stratosphere.Resources.GlueSecurityConfiguration as X -import Stratosphere.Resources.GlueTable as X -import Stratosphere.Resources.GlueTrigger as X -import Stratosphere.Resources.GlueWorkflow as X -import Stratosphere.Resources.GreengrassConnectorDefinition as X -import Stratosphere.Resources.GreengrassConnectorDefinitionVersion as X -import Stratosphere.Resources.GreengrassCoreDefinition as X -import Stratosphere.Resources.GreengrassCoreDefinitionVersion as X -import Stratosphere.Resources.GreengrassDeviceDefinition as X -import Stratosphere.Resources.GreengrassDeviceDefinitionVersion as X -import Stratosphere.Resources.GreengrassFunctionDefinition as X -import Stratosphere.Resources.GreengrassFunctionDefinitionVersion as X -import Stratosphere.Resources.GreengrassGroup as X -import Stratosphere.Resources.GreengrassGroupVersion as X -import Stratosphere.Resources.GreengrassLoggerDefinition as X -import Stratosphere.Resources.GreengrassLoggerDefinitionVersion as X -import Stratosphere.Resources.GreengrassResourceDefinition as X -import Stratosphere.Resources.GreengrassResourceDefinitionVersion as X -import Stratosphere.Resources.GreengrassSubscriptionDefinition as X -import Stratosphere.Resources.GreengrassSubscriptionDefinitionVersion as X -import Stratosphere.Resources.GuardDutyDetector as X -import Stratosphere.Resources.GuardDutyFilter as X -import Stratosphere.Resources.GuardDutyIPSet as X -import Stratosphere.Resources.GuardDutyMaster as X -import Stratosphere.Resources.GuardDutyMember as X -import Stratosphere.Resources.GuardDutyThreatIntelSet as X -import Stratosphere.Resources.IAMAccessKey as X -import Stratosphere.Resources.IAMGroup as X -import Stratosphere.Resources.IAMInstanceProfile as X -import Stratosphere.Resources.IAMManagedPolicy as X -import Stratosphere.Resources.IAMPolicy as X -import Stratosphere.Resources.IAMRole as X -import Stratosphere.Resources.IAMServiceLinkedRole as X -import Stratosphere.Resources.IAMUser as X -import Stratosphere.Resources.IAMUserToGroupAddition as X -import Stratosphere.Resources.ImageBuilderComponent as X -import Stratosphere.Resources.ImageBuilderDistributionConfiguration as X -import Stratosphere.Resources.ImageBuilderImage as X -import Stratosphere.Resources.ImageBuilderImagePipeline as X -import Stratosphere.Resources.ImageBuilderImageRecipe as X -import Stratosphere.Resources.ImageBuilderInfrastructureConfiguration as X -import Stratosphere.Resources.InspectorAssessmentTarget as X -import Stratosphere.Resources.InspectorAssessmentTemplate as X -import Stratosphere.Resources.InspectorResourceGroup as X -import Stratosphere.Resources.IoT1ClickDevice as X -import Stratosphere.Resources.IoT1ClickPlacement as X -import Stratosphere.Resources.IoT1ClickProject as X -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 -import Stratosphere.Resources.IoTAnalyticsChannel as X -import Stratosphere.Resources.IoTAnalyticsDataset as X -import Stratosphere.Resources.IoTAnalyticsDatastore as X -import Stratosphere.Resources.IoTAnalyticsPipeline as X -import Stratosphere.Resources.IoTEventsDetectorModel as X -import Stratosphere.Resources.IoTEventsInput as X -import Stratosphere.Resources.IoTThingsGraphFlowTemplate as X -import Stratosphere.Resources.KMSAlias as X -import Stratosphere.Resources.KMSKey as X -import Stratosphere.Resources.KinesisStream as X -import Stratosphere.Resources.KinesisStreamConsumer as X -import Stratosphere.Resources.KinesisAnalyticsApplication as X -import Stratosphere.Resources.KinesisAnalyticsApplicationOutput as X -import Stratosphere.Resources.KinesisAnalyticsApplicationReferenceDataSource as X -import Stratosphere.Resources.KinesisAnalyticsV2Application as X -import Stratosphere.Resources.KinesisAnalyticsV2ApplicationCloudWatchLoggingOption as X -import Stratosphere.Resources.KinesisAnalyticsV2ApplicationOutput as X -import Stratosphere.Resources.KinesisAnalyticsV2ApplicationReferenceDataSource as X -import Stratosphere.Resources.KinesisFirehoseDeliveryStream as X -import Stratosphere.Resources.LakeFormationDataLakeSettings as X -import Stratosphere.Resources.LakeFormationPermissions as X -import Stratosphere.Resources.LakeFormationResource as X -import Stratosphere.Resources.LambdaAlias as X -import Stratosphere.Resources.LambdaEventInvokeConfig as X -import Stratosphere.Resources.LambdaEventSourceMapping as X -import Stratosphere.Resources.LambdaFunction as X -import Stratosphere.Resources.LambdaLayerVersion as X -import Stratosphere.Resources.LambdaLayerVersionPermission as X -import Stratosphere.Resources.LambdaPermission as X -import Stratosphere.Resources.LambdaVersion as X -import Stratosphere.Resources.LogsDestination as X -import Stratosphere.Resources.LogsLogGroup as X -import Stratosphere.Resources.LogsLogStream as X -import Stratosphere.Resources.LogsMetricFilter as X -import Stratosphere.Resources.LogsSubscriptionFilter as X -import Stratosphere.Resources.MSKCluster as X -import Stratosphere.Resources.MacieCustomDataIdentifier as X -import Stratosphere.Resources.MacieFindingsFilter as X -import Stratosphere.Resources.MacieSession as X -import Stratosphere.Resources.ManagedBlockchainMember as X -import Stratosphere.Resources.ManagedBlockchainNode as X -import Stratosphere.Resources.MediaConvertJobTemplate as X -import Stratosphere.Resources.MediaConvertPreset as X -import Stratosphere.Resources.MediaConvertQueue as X -import Stratosphere.Resources.MediaLiveChannel as X -import Stratosphere.Resources.MediaLiveInput as X -import Stratosphere.Resources.MediaLiveInputSecurityGroup as X -import Stratosphere.Resources.MediaStoreContainer as X -import Stratosphere.Resources.NeptuneDBCluster as X -import Stratosphere.Resources.NeptuneDBClusterParameterGroup as X -import Stratosphere.Resources.NeptuneDBInstance as X -import Stratosphere.Resources.NeptuneDBParameterGroup as X -import Stratosphere.Resources.NeptuneDBSubnetGroup as X -import Stratosphere.Resources.NetworkManagerCustomerGatewayAssociation as X -import Stratosphere.Resources.NetworkManagerDevice as X -import Stratosphere.Resources.NetworkManagerGlobalNetwork as X -import Stratosphere.Resources.NetworkManagerLink as X -import Stratosphere.Resources.NetworkManagerLinkAssociation as X -import Stratosphere.Resources.NetworkManagerSite as X -import Stratosphere.Resources.NetworkManagerTransitGatewayRegistration as X -import Stratosphere.Resources.OpsWorksApp as X -import Stratosphere.Resources.OpsWorksElasticLoadBalancerAttachment as X -import Stratosphere.Resources.OpsWorksInstance as X -import Stratosphere.Resources.OpsWorksLayer as X -import Stratosphere.Resources.OpsWorksStack as X -import Stratosphere.Resources.OpsWorksUserProfile as X -import Stratosphere.Resources.OpsWorksVolume as X -import Stratosphere.Resources.OpsWorksCMServer as X -import Stratosphere.Resources.PinpointADMChannel as X -import Stratosphere.Resources.PinpointAPNSChannel as X -import Stratosphere.Resources.PinpointAPNSSandboxChannel as X -import Stratosphere.Resources.PinpointAPNSVoipChannel as X -import Stratosphere.Resources.PinpointAPNSVoipSandboxChannel as X -import Stratosphere.Resources.PinpointApp as X -import Stratosphere.Resources.PinpointApplicationSettings as X -import Stratosphere.Resources.PinpointBaiduChannel as X -import Stratosphere.Resources.PinpointCampaign as X -import Stratosphere.Resources.PinpointEmailChannel as X -import Stratosphere.Resources.PinpointEmailTemplate as X -import Stratosphere.Resources.PinpointEventStream as X -import Stratosphere.Resources.PinpointGCMChannel as X -import Stratosphere.Resources.PinpointPushTemplate as X -import Stratosphere.Resources.PinpointSMSChannel as X -import Stratosphere.Resources.PinpointSegment as X -import Stratosphere.Resources.PinpointSmsTemplate as X -import Stratosphere.Resources.PinpointVoiceChannel as X -import Stratosphere.Resources.PinpointEmailConfigurationSet as X -import Stratosphere.Resources.PinpointEmailConfigurationSetEventDestination as X -import Stratosphere.Resources.PinpointEmailDedicatedIpPool as X -import Stratosphere.Resources.PinpointEmailIdentity as X -import Stratosphere.Resources.QLDBLedger as X -import Stratosphere.Resources.QLDBStream as X -import Stratosphere.Resources.RAMResourceShare as X -import Stratosphere.Resources.RDSDBCluster as X -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 -import Stratosphere.Resources.RDSEventSubscription as X -import Stratosphere.Resources.RDSOptionGroup as X -import Stratosphere.Resources.RedshiftCluster as X -import Stratosphere.Resources.RedshiftClusterParameterGroup as X -import Stratosphere.Resources.RedshiftClusterSecurityGroup as X -import Stratosphere.Resources.RedshiftClusterSecurityGroupIngress as X -import Stratosphere.Resources.RedshiftClusterSubnetGroup as X -import Stratosphere.Resources.ResourceGroupsGroup as X -import Stratosphere.Resources.RoboMakerFleet as X -import Stratosphere.Resources.RoboMakerRobot as X -import Stratosphere.Resources.RoboMakerRobotApplication as X -import Stratosphere.Resources.RoboMakerRobotApplicationVersion as X -import Stratosphere.Resources.RoboMakerSimulationApplication as X -import Stratosphere.Resources.RoboMakerSimulationApplicationVersion as X -import Stratosphere.Resources.Route53HealthCheck as X -import Stratosphere.Resources.Route53HostedZone as X -import Stratosphere.Resources.Route53RecordSet as X -import Stratosphere.Resources.Route53RecordSetGroup as X -import Stratosphere.Resources.Route53ResolverResolverEndpoint as X -import Stratosphere.Resources.Route53ResolverResolverQueryLoggingConfig as X -import Stratosphere.Resources.Route53ResolverResolverQueryLoggingConfigAssociation as X -import Stratosphere.Resources.Route53ResolverResolverRule as X -import Stratosphere.Resources.Route53ResolverResolverRuleAssociation as X -import Stratosphere.Resources.S3AccessPoint as X -import Stratosphere.Resources.S3Bucket as X -import Stratosphere.Resources.S3BucketPolicy as X -import Stratosphere.Resources.SDBDomain as X -import Stratosphere.Resources.SESConfigurationSet as X -import Stratosphere.Resources.SESConfigurationSetEventDestination as X -import Stratosphere.Resources.SESReceiptFilter as X -import Stratosphere.Resources.SESReceiptRule as X -import Stratosphere.Resources.SESReceiptRuleSet as X -import Stratosphere.Resources.SESTemplate as X -import Stratosphere.Resources.SNSSubscription as X -import Stratosphere.Resources.SNSTopic as X -import Stratosphere.Resources.SNSTopicPolicy as X -import Stratosphere.Resources.SQSQueue as X -import Stratosphere.Resources.SQSQueuePolicy as X -import Stratosphere.Resources.SSMAssociation as X -import Stratosphere.Resources.SSMDocument as X -import Stratosphere.Resources.SSMMaintenanceWindow as X -import Stratosphere.Resources.SSMMaintenanceWindowTarget as X -import Stratosphere.Resources.SSMMaintenanceWindowTask as X -import Stratosphere.Resources.SSMParameter as X -import Stratosphere.Resources.SSMPatchBaseline as X -import Stratosphere.Resources.SSMResourceDataSync as X -import Stratosphere.Resources.SageMakerCodeRepository as X -import Stratosphere.Resources.SageMakerEndpoint as X -import Stratosphere.Resources.SageMakerEndpointConfig as X -import Stratosphere.Resources.SageMakerModel as X -import Stratosphere.Resources.SageMakerMonitoringSchedule as X -import Stratosphere.Resources.SageMakerNotebookInstance as X -import Stratosphere.Resources.SageMakerNotebookInstanceLifecycleConfig as X -import Stratosphere.Resources.SageMakerWorkteam as X -import Stratosphere.Resources.SecretsManagerResourcePolicy as X -import Stratosphere.Resources.SecretsManagerRotationSchedule as X -import Stratosphere.Resources.SecretsManagerSecret as X -import Stratosphere.Resources.SecretsManagerSecretTargetAttachment as X -import Stratosphere.Resources.SecurityHubHub as X -import Stratosphere.Resources.ServiceCatalogAcceptedPortfolioShare as X -import Stratosphere.Resources.ServiceCatalogCloudFormationProduct as X -import Stratosphere.Resources.ServiceCatalogCloudFormationProvisionedProduct as X -import Stratosphere.Resources.ServiceCatalogLaunchNotificationConstraint as X -import Stratosphere.Resources.ServiceCatalogLaunchRoleConstraint as X -import Stratosphere.Resources.ServiceCatalogLaunchTemplateConstraint as X -import Stratosphere.Resources.ServiceCatalogPortfolio as X -import Stratosphere.Resources.ServiceCatalogPortfolioPrincipalAssociation as X -import Stratosphere.Resources.ServiceCatalogPortfolioProductAssociation as X -import Stratosphere.Resources.ServiceCatalogPortfolioShare as X -import Stratosphere.Resources.ServiceCatalogResourceUpdateConstraint as X -import Stratosphere.Resources.ServiceCatalogStackSetConstraint as X -import Stratosphere.Resources.ServiceCatalogTagOption as X -import Stratosphere.Resources.ServiceCatalogTagOptionAssociation as X -import Stratosphere.Resources.ServiceDiscoveryHttpNamespace as X -import Stratosphere.Resources.ServiceDiscoveryInstance as X -import Stratosphere.Resources.ServiceDiscoveryPrivateDnsNamespace as X -import Stratosphere.Resources.ServiceDiscoveryPublicDnsNamespace as X -import Stratosphere.Resources.ServiceDiscoveryService as X -import Stratosphere.Resources.StepFunctionsActivity as X -import Stratosphere.Resources.StepFunctionsStateMachine as X -import Stratosphere.Resources.SyntheticsCanary as X -import Stratosphere.Resources.TransferServer as X -import Stratosphere.Resources.TransferUser as X -import Stratosphere.Resources.WAFByteMatchSet as X -import Stratosphere.Resources.WAFIPSet as X -import Stratosphere.Resources.WAFRule as X -import Stratosphere.Resources.WAFSizeConstraintSet as X -import Stratosphere.Resources.WAFSqlInjectionMatchSet as X -import Stratosphere.Resources.WAFWebACL as X -import Stratosphere.Resources.WAFXssMatchSet as X -import Stratosphere.Resources.WAFRegionalByteMatchSet as X -import Stratosphere.Resources.WAFRegionalGeoMatchSet as X -import Stratosphere.Resources.WAFRegionalIPSet as X -import Stratosphere.Resources.WAFRegionalRateBasedRule as X -import Stratosphere.Resources.WAFRegionalRegexPatternSet as X -import Stratosphere.Resources.WAFRegionalRule as X -import Stratosphere.Resources.WAFRegionalSizeConstraintSet as X -import Stratosphere.Resources.WAFRegionalSqlInjectionMatchSet as X -import Stratosphere.Resources.WAFRegionalWebACL as X -import Stratosphere.Resources.WAFRegionalWebACLAssociation as X -import Stratosphere.Resources.WAFRegionalXssMatchSet as X -import Stratosphere.Resources.WAFv2IPSet as X -import Stratosphere.Resources.WAFv2RegexPatternSet as X -import Stratosphere.Resources.WAFv2RuleGroup as X -import Stratosphere.Resources.WAFv2WebACL as X -import Stratosphere.Resources.WAFv2WebACLAssociation as X -import Stratosphere.Resources.WorkSpacesWorkspace as X -import Stratosphere.Resources.ASKSkill as X -import Stratosphere.ResourceProperties.ACMPCACertificateValidity as X -import Stratosphere.ResourceProperties.ACMPCACertificateAuthorityCrlConfiguration as X -import Stratosphere.ResourceProperties.ACMPCACertificateAuthorityRevocationConfiguration as X -import Stratosphere.ResourceProperties.ACMPCACertificateAuthoritySubject as X -import Stratosphere.ResourceProperties.AccessAnalyzerAnalyzerArchiveRule as X -import Stratosphere.ResourceProperties.AccessAnalyzerAnalyzerFilter as X -import Stratosphere.ResourceProperties.AmazonMQBrokerConfigurationId as X -import Stratosphere.ResourceProperties.AmazonMQBrokerEncryptionOptions as X -import Stratosphere.ResourceProperties.AmazonMQBrokerInterBrokerCred as X -import Stratosphere.ResourceProperties.AmazonMQBrokerLdapMetadata as X -import Stratosphere.ResourceProperties.AmazonMQBrokerLdapServerMetadata as X -import Stratosphere.ResourceProperties.AmazonMQBrokerLogList as X -import Stratosphere.ResourceProperties.AmazonMQBrokerMaintenanceWindow as X -import Stratosphere.ResourceProperties.AmazonMQBrokerServerMetadata as X -import Stratosphere.ResourceProperties.AmazonMQBrokerTagsEntry as X -import Stratosphere.ResourceProperties.AmazonMQBrokerUser as X -import Stratosphere.ResourceProperties.AmazonMQConfigurationTagsEntry as X -import Stratosphere.ResourceProperties.AmazonMQConfigurationAssociationConfigurationId as X -import Stratosphere.ResourceProperties.AmplifyAppAutoBranchCreationConfig as X -import Stratosphere.ResourceProperties.AmplifyAppBasicAuthConfig as X -import Stratosphere.ResourceProperties.AmplifyAppCustomRule as X -import Stratosphere.ResourceProperties.AmplifyAppEnvironmentVariable as X -import Stratosphere.ResourceProperties.AmplifyBranchBasicAuthConfig as X -import Stratosphere.ResourceProperties.AmplifyBranchEnvironmentVariable as X -import Stratosphere.ResourceProperties.AmplifyDomainSubDomainSetting as X -import Stratosphere.ResourceProperties.ApiGatewayApiKeyStageKey as X -import Stratosphere.ResourceProperties.ApiGatewayDeploymentAccessLogSetting as X -import Stratosphere.ResourceProperties.ApiGatewayDeploymentCanarySetting as X -import Stratosphere.ResourceProperties.ApiGatewayDeploymentDeploymentCanarySettings as X -import Stratosphere.ResourceProperties.ApiGatewayDeploymentMethodSetting as X -import Stratosphere.ResourceProperties.ApiGatewayDeploymentStageDescription as X -import Stratosphere.ResourceProperties.ApiGatewayDocumentationPartLocation as X -import Stratosphere.ResourceProperties.ApiGatewayDomainNameEndpointConfiguration as X -import Stratosphere.ResourceProperties.ApiGatewayMethodIntegration as X -import Stratosphere.ResourceProperties.ApiGatewayMethodIntegrationResponse as X -import Stratosphere.ResourceProperties.ApiGatewayMethodMethodResponse as X -import Stratosphere.ResourceProperties.ApiGatewayRestApiEndpointConfiguration as X -import Stratosphere.ResourceProperties.ApiGatewayRestApiS3Location as X -import Stratosphere.ResourceProperties.ApiGatewayStageAccessLogSetting as X -import Stratosphere.ResourceProperties.ApiGatewayStageCanarySetting as X -import Stratosphere.ResourceProperties.ApiGatewayStageMethodSetting as X -import Stratosphere.ResourceProperties.ApiGatewayUsagePlanApiStage as X -import Stratosphere.ResourceProperties.ApiGatewayUsagePlanQuotaSettings as X -import Stratosphere.ResourceProperties.ApiGatewayUsagePlanThrottleSettings as X -import Stratosphere.ResourceProperties.ApiGatewayV2ApiBodyS3Location as X -import Stratosphere.ResourceProperties.ApiGatewayV2ApiCors as X -import Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings as X -import Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides as X -import Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides as X -import Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesRouteSettings as X -import Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesStageOverrides as X -import Stratosphere.ResourceProperties.ApiGatewayV2AuthorizerJWTConfiguration as X -import Stratosphere.ResourceProperties.ApiGatewayV2DomainNameDomainNameConfiguration as X -import Stratosphere.ResourceProperties.ApiGatewayV2IntegrationTlsConfig as X -import Stratosphere.ResourceProperties.ApiGatewayV2RouteParameterConstraints as X -import Stratosphere.ResourceProperties.ApiGatewayV2RouteResponseParameterConstraints as X -import Stratosphere.ResourceProperties.ApiGatewayV2StageAccessLogSettings as X -import Stratosphere.ResourceProperties.ApiGatewayV2StageRouteSettings as X -import Stratosphere.ResourceProperties.AppConfigApplicationTags as X -import Stratosphere.ResourceProperties.AppConfigConfigurationProfileTags as X -import Stratosphere.ResourceProperties.AppConfigConfigurationProfileValidators as X -import Stratosphere.ResourceProperties.AppConfigDeploymentTags as X -import Stratosphere.ResourceProperties.AppConfigDeploymentStrategyTags as X -import Stratosphere.ResourceProperties.AppConfigEnvironmentMonitors as X -import Stratosphere.ResourceProperties.AppConfigEnvironmentTags as X -import Stratosphere.ResourceProperties.AppMeshGatewayRouteGatewayRouteSpec as X -import Stratosphere.ResourceProperties.AppMeshGatewayRouteGatewayRouteTarget as X -import Stratosphere.ResourceProperties.AppMeshGatewayRouteGatewayRouteVirtualService as X -import Stratosphere.ResourceProperties.AppMeshGatewayRouteGrpcGatewayRoute as X -import Stratosphere.ResourceProperties.AppMeshGatewayRouteGrpcGatewayRouteAction as X -import Stratosphere.ResourceProperties.AppMeshGatewayRouteGrpcGatewayRouteMatch as X -import Stratosphere.ResourceProperties.AppMeshGatewayRouteHttpGatewayRoute as X -import Stratosphere.ResourceProperties.AppMeshGatewayRouteHttpGatewayRouteAction as X -import Stratosphere.ResourceProperties.AppMeshGatewayRouteHttpGatewayRouteMatch as X -import Stratosphere.ResourceProperties.AppMeshMeshEgressFilter as X -import Stratosphere.ResourceProperties.AppMeshMeshMeshSpec as X -import Stratosphere.ResourceProperties.AppMeshRouteDuration as X -import Stratosphere.ResourceProperties.AppMeshRouteGrpcRetryPolicy as X -import Stratosphere.ResourceProperties.AppMeshRouteGrpcRoute as X -import Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteAction as X -import Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMatch as X -import Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMetadata as X -import Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMetadataMatchMethod as X -import Stratosphere.ResourceProperties.AppMeshRouteGrpcTimeout as X -import Stratosphere.ResourceProperties.AppMeshRouteHeaderMatchMethod as X -import Stratosphere.ResourceProperties.AppMeshRouteHttpRetryPolicy as X -import Stratosphere.ResourceProperties.AppMeshRouteHttpRoute as X -import Stratosphere.ResourceProperties.AppMeshRouteHttpRouteAction as X -import Stratosphere.ResourceProperties.AppMeshRouteHttpRouteHeader as X -import Stratosphere.ResourceProperties.AppMeshRouteHttpRouteMatch as X -import Stratosphere.ResourceProperties.AppMeshRouteHttpTimeout as X -import Stratosphere.ResourceProperties.AppMeshRouteMatchRange as X -import Stratosphere.ResourceProperties.AppMeshRouteRouteSpec as X -import Stratosphere.ResourceProperties.AppMeshRouteTcpRoute as X -import Stratosphere.ResourceProperties.AppMeshRouteTcpRouteAction as X -import Stratosphere.ResourceProperties.AppMeshRouteTcpTimeout as X -import Stratosphere.ResourceProperties.AppMeshRouteWeightedTarget as X -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayAccessLog as X -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayBackendDefaults as X -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayClientPolicy as X -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayClientPolicyTls as X -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayFileAccessLog as X -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayHealthCheckPolicy as X -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayListener as X -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayListenerTls as X -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayListenerTlsAcmCertificate as X -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayListenerTlsCertificate as X -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificate as X -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayLogging as X -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayPortMapping as X -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewaySpec as X -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayTlsValidationContext as X -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayTlsValidationContextAcmTrust as X -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayTlsValidationContextFileTrust as X -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayTlsValidationContextTrust as X -import Stratosphere.ResourceProperties.AppMeshVirtualNodeAccessLog as X -import Stratosphere.ResourceProperties.AppMeshVirtualNodeAwsCloudMapInstanceAttribute as X -import Stratosphere.ResourceProperties.AppMeshVirtualNodeAwsCloudMapServiceDiscovery as X -import Stratosphere.ResourceProperties.AppMeshVirtualNodeBackend as X -import Stratosphere.ResourceProperties.AppMeshVirtualNodeBackendDefaults as X -import Stratosphere.ResourceProperties.AppMeshVirtualNodeClientPolicy as X -import Stratosphere.ResourceProperties.AppMeshVirtualNodeClientPolicyTls as X -import Stratosphere.ResourceProperties.AppMeshVirtualNodeDnsServiceDiscovery as X -import Stratosphere.ResourceProperties.AppMeshVirtualNodeDuration as X -import Stratosphere.ResourceProperties.AppMeshVirtualNodeFileAccessLog as X -import Stratosphere.ResourceProperties.AppMeshVirtualNodeGrpcTimeout as X -import Stratosphere.ResourceProperties.AppMeshVirtualNodeHealthCheck as X -import Stratosphere.ResourceProperties.AppMeshVirtualNodeHttpTimeout as X -import Stratosphere.ResourceProperties.AppMeshVirtualNodeListener as X -import Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTimeout as X -import Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTls as X -import Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTlsAcmCertificate as X -import Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTlsCertificate as X -import Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTlsFileCertificate as X -import Stratosphere.ResourceProperties.AppMeshVirtualNodeLogging as X -import Stratosphere.ResourceProperties.AppMeshVirtualNodePortMapping as X -import Stratosphere.ResourceProperties.AppMeshVirtualNodeServiceDiscovery as X -import Stratosphere.ResourceProperties.AppMeshVirtualNodeTcpTimeout as X -import Stratosphere.ResourceProperties.AppMeshVirtualNodeTlsValidationContext as X -import Stratosphere.ResourceProperties.AppMeshVirtualNodeTlsValidationContextAcmTrust as X -import Stratosphere.ResourceProperties.AppMeshVirtualNodeTlsValidationContextFileTrust as X -import Stratosphere.ResourceProperties.AppMeshVirtualNodeTlsValidationContextTrust as X -import Stratosphere.ResourceProperties.AppMeshVirtualNodeVirtualNodeSpec as X -import Stratosphere.ResourceProperties.AppMeshVirtualNodeVirtualServiceBackend as X -import Stratosphere.ResourceProperties.AppMeshVirtualRouterPortMapping as X -import Stratosphere.ResourceProperties.AppMeshVirtualRouterVirtualRouterListener as X -import Stratosphere.ResourceProperties.AppMeshVirtualRouterVirtualRouterSpec as X -import Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualNodeServiceProvider as X -import Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualRouterServiceProvider as X -import Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualServiceProvider as X -import Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualServiceSpec as X -import Stratosphere.ResourceProperties.AppStreamDirectoryConfigServiceAccountCredentials as X -import Stratosphere.ResourceProperties.AppStreamFleetComputeCapacity as X -import Stratosphere.ResourceProperties.AppStreamFleetDomainJoinInfo as X -import Stratosphere.ResourceProperties.AppStreamFleetVpcConfig as X -import Stratosphere.ResourceProperties.AppStreamImageBuilderAccessEndpoint as X -import Stratosphere.ResourceProperties.AppStreamImageBuilderDomainJoinInfo as X -import Stratosphere.ResourceProperties.AppStreamImageBuilderVpcConfig as X -import Stratosphere.ResourceProperties.AppStreamStackAccessEndpoint as X -import Stratosphere.ResourceProperties.AppStreamStackApplicationSettings as X -import Stratosphere.ResourceProperties.AppStreamStackStorageConnector as X -import Stratosphere.ResourceProperties.AppStreamStackUserSetting as X -import Stratosphere.ResourceProperties.AppSyncDataSourceAuthorizationConfig as X -import Stratosphere.ResourceProperties.AppSyncDataSourceAwsIamConfig as X -import Stratosphere.ResourceProperties.AppSyncDataSourceDeltaSyncConfig as X -import Stratosphere.ResourceProperties.AppSyncDataSourceDynamoDBConfig as X -import Stratosphere.ResourceProperties.AppSyncDataSourceElasticsearchConfig as X -import Stratosphere.ResourceProperties.AppSyncDataSourceHttpConfig as X -import Stratosphere.ResourceProperties.AppSyncDataSourceLambdaConfig as X -import Stratosphere.ResourceProperties.AppSyncDataSourceRdsHttpEndpointConfig as X -import Stratosphere.ResourceProperties.AppSyncDataSourceRelationalDatabaseConfig as X -import Stratosphere.ResourceProperties.AppSyncGraphQLApiAdditionalAuthenticationProvider as X -import Stratosphere.ResourceProperties.AppSyncGraphQLApiCognitoUserPoolConfig as X -import Stratosphere.ResourceProperties.AppSyncGraphQLApiLogConfig as X -import Stratosphere.ResourceProperties.AppSyncGraphQLApiOpenIDConnectConfig as X -import Stratosphere.ResourceProperties.AppSyncGraphQLApiUserPoolConfig as X -import Stratosphere.ResourceProperties.AppSyncResolverCachingConfig as X -import Stratosphere.ResourceProperties.AppSyncResolverLambdaConflictHandlerConfig as X -import Stratosphere.ResourceProperties.AppSyncResolverPipelineConfig as X -import Stratosphere.ResourceProperties.AppSyncResolverSyncConfig as X -import Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetScalableTargetAction as X -import Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetScheduledAction as X -import Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetSuspendedState as X -import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification as X -import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyMetricDimension as X -import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyPredefinedMetricSpecification as X -import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyStepAdjustment as X -import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration as X -import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration as X -import Stratosphere.ResourceProperties.ApplicationInsightsApplicationAlarm as X -import Stratosphere.ResourceProperties.ApplicationInsightsApplicationAlarmMetric as X -import Stratosphere.ResourceProperties.ApplicationInsightsApplicationComponentConfiguration as X -import Stratosphere.ResourceProperties.ApplicationInsightsApplicationComponentMonitoringSetting as X -import Stratosphere.ResourceProperties.ApplicationInsightsApplicationConfigurationDetails as X -import Stratosphere.ResourceProperties.ApplicationInsightsApplicationCustomComponent as X -import Stratosphere.ResourceProperties.ApplicationInsightsApplicationLog as X -import Stratosphere.ResourceProperties.ApplicationInsightsApplicationLogPattern as X -import Stratosphere.ResourceProperties.ApplicationInsightsApplicationLogPatternSet as X -import Stratosphere.ResourceProperties.ApplicationInsightsApplicationSubComponentConfigurationDetails as X -import Stratosphere.ResourceProperties.ApplicationInsightsApplicationSubComponentTypeConfiguration as X -import Stratosphere.ResourceProperties.ApplicationInsightsApplicationWindowsEvent as X -import Stratosphere.ResourceProperties.AthenaDataCatalogTags as X -import Stratosphere.ResourceProperties.AthenaWorkGroupEncryptionConfiguration as X -import Stratosphere.ResourceProperties.AthenaWorkGroupResultConfiguration as X -import Stratosphere.ResourceProperties.AthenaWorkGroupResultConfigurationUpdates as X -import Stratosphere.ResourceProperties.AthenaWorkGroupTags as X -import Stratosphere.ResourceProperties.AthenaWorkGroupWorkGroupConfiguration as X -import Stratosphere.ResourceProperties.AthenaWorkGroupWorkGroupConfigurationUpdates as X -import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupInstancesDistribution as X -import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupLaunchTemplate as X -import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupLaunchTemplateOverrides as X -import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupLaunchTemplateSpecification as X -import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupLifecycleHookSpecification as X -import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupMetricsCollection as X -import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupMixedInstancesPolicy as X -import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupNotificationConfiguration as X -import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupTagProperty as X -import Stratosphere.ResourceProperties.AutoScalingLaunchConfigurationBlockDevice as X -import Stratosphere.ResourceProperties.AutoScalingLaunchConfigurationBlockDeviceMapping as X -import Stratosphere.ResourceProperties.AutoScalingScalingPolicyCustomizedMetricSpecification as X -import Stratosphere.ResourceProperties.AutoScalingScalingPolicyMetricDimension as X -import Stratosphere.ResourceProperties.AutoScalingScalingPolicyPredefinedMetricSpecification as X -import Stratosphere.ResourceProperties.AutoScalingScalingPolicyStepAdjustment as X -import Stratosphere.ResourceProperties.AutoScalingScalingPolicyTargetTrackingConfiguration as X -import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanApplicationSource as X -import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification as X -import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanCustomizedScalingMetricSpecification as X -import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanMetricDimension as X -import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification as X -import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanPredefinedScalingMetricSpecification as X -import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanScalingInstruction as X -import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanTagFilter as X -import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanTargetTrackingConfiguration as X -import Stratosphere.ResourceProperties.BackupBackupPlanBackupPlanResourceType as X -import Stratosphere.ResourceProperties.BackupBackupPlanBackupRuleResourceType as X -import Stratosphere.ResourceProperties.BackupBackupPlanCopyActionResourceType as X -import Stratosphere.ResourceProperties.BackupBackupPlanLifecycleResourceType as X -import Stratosphere.ResourceProperties.BackupBackupSelectionBackupSelectionResourceType as X -import Stratosphere.ResourceProperties.BackupBackupSelectionConditionResourceType as X -import Stratosphere.ResourceProperties.BackupBackupVaultNotificationObjectType as X -import Stratosphere.ResourceProperties.BatchComputeEnvironmentComputeResources as X -import Stratosphere.ResourceProperties.BatchComputeEnvironmentLaunchTemplateSpecification as X -import Stratosphere.ResourceProperties.BatchJobDefinitionContainerProperties as X -import Stratosphere.ResourceProperties.BatchJobDefinitionDevice as X -import Stratosphere.ResourceProperties.BatchJobDefinitionEnvironment as X -import Stratosphere.ResourceProperties.BatchJobDefinitionLinuxParameters as X -import Stratosphere.ResourceProperties.BatchJobDefinitionMountPoints as X -import Stratosphere.ResourceProperties.BatchJobDefinitionNodeProperties as X -import Stratosphere.ResourceProperties.BatchJobDefinitionNodeRangeProperty as X -import Stratosphere.ResourceProperties.BatchJobDefinitionResourceRequirement as X -import Stratosphere.ResourceProperties.BatchJobDefinitionRetryStrategy as X -import Stratosphere.ResourceProperties.BatchJobDefinitionTimeout as X -import Stratosphere.ResourceProperties.BatchJobDefinitionUlimit as X -import Stratosphere.ResourceProperties.BatchJobDefinitionVolumes as X -import Stratosphere.ResourceProperties.BatchJobDefinitionVolumesHost as X -import Stratosphere.ResourceProperties.BatchJobQueueComputeEnvironmentOrder as X -import Stratosphere.ResourceProperties.BudgetsBudgetBudgetData as X -import Stratosphere.ResourceProperties.BudgetsBudgetCostTypes as X -import Stratosphere.ResourceProperties.BudgetsBudgetNotification as X -import Stratosphere.ResourceProperties.BudgetsBudgetNotificationWithSubscribers as X -import Stratosphere.ResourceProperties.BudgetsBudgetSpend as X -import Stratosphere.ResourceProperties.BudgetsBudgetSubscriber as X -import Stratosphere.ResourceProperties.BudgetsBudgetTimePeriod as X -import Stratosphere.ResourceProperties.CassandraTableBillingMode as X -import Stratosphere.ResourceProperties.CassandraTableClusteringKeyColumn as X -import Stratosphere.ResourceProperties.CassandraTableColumn as X -import Stratosphere.ResourceProperties.CassandraTableProvisionedThroughput as X -import Stratosphere.ResourceProperties.CertificateManagerCertificateDomainValidationOption as X -import Stratosphere.ResourceProperties.Cloud9EnvironmentEC2Repository as X -import Stratosphere.ResourceProperties.CloudFrontCachePolicyCachePolicyConfig as X -import Stratosphere.ResourceProperties.CloudFrontCachePolicyCookiesConfig as X -import Stratosphere.ResourceProperties.CloudFrontCachePolicyHeadersConfig as X -import Stratosphere.ResourceProperties.CloudFrontCachePolicyParametersInCacheKeyAndForwardedToOrigin as X -import Stratosphere.ResourceProperties.CloudFrontCachePolicyQueryStringsConfig as X -import Stratosphere.ResourceProperties.CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig as X -import Stratosphere.ResourceProperties.CloudFrontDistributionCacheBehavior as X -import Stratosphere.ResourceProperties.CloudFrontDistributionCookies as X -import Stratosphere.ResourceProperties.CloudFrontDistributionCustomErrorResponse as X -import Stratosphere.ResourceProperties.CloudFrontDistributionCustomOriginConfig as X -import Stratosphere.ResourceProperties.CloudFrontDistributionDefaultCacheBehavior as X -import Stratosphere.ResourceProperties.CloudFrontDistributionDistributionConfig as X -import Stratosphere.ResourceProperties.CloudFrontDistributionForwardedValues as X -import Stratosphere.ResourceProperties.CloudFrontDistributionGeoRestriction as X -import Stratosphere.ResourceProperties.CloudFrontDistributionLambdaFunctionAssociation as X -import Stratosphere.ResourceProperties.CloudFrontDistributionLogging as X -import Stratosphere.ResourceProperties.CloudFrontDistributionOrigin as X -import Stratosphere.ResourceProperties.CloudFrontDistributionOriginCustomHeader as X -import Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroup as X -import Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroupFailoverCriteria as X -import Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroupMember as X -import Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroupMembers as X -import Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroups as X -import Stratosphere.ResourceProperties.CloudFrontDistributionRestrictions as X -import Stratosphere.ResourceProperties.CloudFrontDistributionS3OriginConfig as X -import Stratosphere.ResourceProperties.CloudFrontDistributionStatusCodes as X -import Stratosphere.ResourceProperties.CloudFrontDistributionViewerCertificate as X -import Stratosphere.ResourceProperties.CloudFrontOriginRequestPolicyCookiesConfig as X -import Stratosphere.ResourceProperties.CloudFrontOriginRequestPolicyHeadersConfig as X -import Stratosphere.ResourceProperties.CloudFrontOriginRequestPolicyOriginRequestPolicyConfig as X -import Stratosphere.ResourceProperties.CloudFrontOriginRequestPolicyQueryStringsConfig as X -import Stratosphere.ResourceProperties.CloudFrontRealtimeLogConfigEndPoint as X -import Stratosphere.ResourceProperties.CloudFrontRealtimeLogConfigKinesisStreamConfig as X -import Stratosphere.ResourceProperties.CloudFrontStreamingDistributionLogging as X -import Stratosphere.ResourceProperties.CloudFrontStreamingDistributionS3Origin as X -import Stratosphere.ResourceProperties.CloudFrontStreamingDistributionStreamingDistributionConfig as X -import Stratosphere.ResourceProperties.CloudFrontStreamingDistributionTrustedSigners as X -import Stratosphere.ResourceProperties.CloudTrailTrailDataResource as X -import Stratosphere.ResourceProperties.CloudTrailTrailEventSelector as X -import Stratosphere.ResourceProperties.CloudWatchAlarmDimension as X -import Stratosphere.ResourceProperties.CloudWatchAlarmMetric as X -import Stratosphere.ResourceProperties.CloudWatchAlarmMetricDataQuery as X -import Stratosphere.ResourceProperties.CloudWatchAlarmMetricStat as X -import Stratosphere.ResourceProperties.CloudWatchAnomalyDetectorConfiguration as X -import Stratosphere.ResourceProperties.CloudWatchAnomalyDetectorDimension as X -import Stratosphere.ResourceProperties.CloudWatchAnomalyDetectorRange as X -import Stratosphere.ResourceProperties.CodeBuildProjectArtifacts as X -import Stratosphere.ResourceProperties.CodeBuildProjectBatchRestrictions as X -import Stratosphere.ResourceProperties.CodeBuildProjectBuildStatusConfig as X -import Stratosphere.ResourceProperties.CodeBuildProjectCloudWatchLogsConfig as X -import Stratosphere.ResourceProperties.CodeBuildProjectEnvironment as X -import Stratosphere.ResourceProperties.CodeBuildProjectEnvironmentVariable as X -import Stratosphere.ResourceProperties.CodeBuildProjectGitSubmodulesConfig as X -import Stratosphere.ResourceProperties.CodeBuildProjectLogsConfig as X -import Stratosphere.ResourceProperties.CodeBuildProjectProjectBuildBatchConfig as X -import Stratosphere.ResourceProperties.CodeBuildProjectProjectCache as X -import Stratosphere.ResourceProperties.CodeBuildProjectProjectFileSystemLocation as X -import Stratosphere.ResourceProperties.CodeBuildProjectProjectSourceVersion as X -import Stratosphere.ResourceProperties.CodeBuildProjectProjectTriggers as X -import Stratosphere.ResourceProperties.CodeBuildProjectRegistryCredential as X -import Stratosphere.ResourceProperties.CodeBuildProjectS3LogsConfig as X -import Stratosphere.ResourceProperties.CodeBuildProjectSource as X -import Stratosphere.ResourceProperties.CodeBuildProjectSourceAuth as X -import Stratosphere.ResourceProperties.CodeBuildProjectVpcConfig as X -import Stratosphere.ResourceProperties.CodeBuildProjectWebhookFilter as X -import Stratosphere.ResourceProperties.CodeBuildReportGroupReportExportConfig as X -import Stratosphere.ResourceProperties.CodeBuildReportGroupS3ReportExportConfig as X -import Stratosphere.ResourceProperties.CodeCommitRepositoryCode as X -import Stratosphere.ResourceProperties.CodeCommitRepositoryRepositoryTrigger as X -import Stratosphere.ResourceProperties.CodeCommitRepositoryS3 as X -import Stratosphere.ResourceProperties.CodeDeployDeploymentConfigMinimumHealthyHosts as X -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupAlarm as X -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupAlarmConfiguration as X -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupAutoRollbackConfiguration as X -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupDeployment as X -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupDeploymentStyle as X -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupEC2TagFilter as X -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupEC2TagSet as X -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupEC2TagSetListObject as X -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupELBInfo as X -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupGitHubLocation as X -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupLoadBalancerInfo as X -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupOnPremisesTagSet as X -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupOnPremisesTagSetListObject as X -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupRevisionLocation as X -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupS3Location as X -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupTagFilter as X -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupTargetGroupInfo as X -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupTriggerConfig as X -import Stratosphere.ResourceProperties.CodeGuruProfilerProfilingGroupChannel as X -import Stratosphere.ResourceProperties.CodePipelineCustomActionTypeArtifactDetails as X -import Stratosphere.ResourceProperties.CodePipelineCustomActionTypeConfigurationProperties as X -import Stratosphere.ResourceProperties.CodePipelineCustomActionTypeSettings as X -import Stratosphere.ResourceProperties.CodePipelinePipelineActionDeclaration as X -import Stratosphere.ResourceProperties.CodePipelinePipelineActionTypeId as X -import Stratosphere.ResourceProperties.CodePipelinePipelineArtifactStore as X -import Stratosphere.ResourceProperties.CodePipelinePipelineArtifactStoreMap as X -import Stratosphere.ResourceProperties.CodePipelinePipelineBlockerDeclaration as X -import Stratosphere.ResourceProperties.CodePipelinePipelineEncryptionKey as X -import Stratosphere.ResourceProperties.CodePipelinePipelineInputArtifact as X -import Stratosphere.ResourceProperties.CodePipelinePipelineOutputArtifact as X -import Stratosphere.ResourceProperties.CodePipelinePipelineStageDeclaration as X -import Stratosphere.ResourceProperties.CodePipelinePipelineStageTransition as X -import Stratosphere.ResourceProperties.CodePipelineWebhookWebhookAuthConfiguration as X -import Stratosphere.ResourceProperties.CodePipelineWebhookWebhookFilterRule as X -import Stratosphere.ResourceProperties.CodeStarGitHubRepositoryCode as X -import Stratosphere.ResourceProperties.CodeStarGitHubRepositoryS3 as X -import Stratosphere.ResourceProperties.CodeStarNotificationsNotificationRuleTarget as X -import Stratosphere.ResourceProperties.CognitoIdentityPoolCognitoIdentityProvider as X -import Stratosphere.ResourceProperties.CognitoIdentityPoolCognitoStreams as X -import Stratosphere.ResourceProperties.CognitoIdentityPoolPushSync as X -import Stratosphere.ResourceProperties.CognitoIdentityPoolRoleAttachmentMappingRule as X -import Stratosphere.ResourceProperties.CognitoIdentityPoolRoleAttachmentRoleMapping as X -import Stratosphere.ResourceProperties.CognitoIdentityPoolRoleAttachmentRulesConfigurationType as X -import Stratosphere.ResourceProperties.CognitoUserPoolAccountRecoverySetting as X -import Stratosphere.ResourceProperties.CognitoUserPoolAdminCreateUserConfig as X -import Stratosphere.ResourceProperties.CognitoUserPoolDeviceConfiguration as X -import Stratosphere.ResourceProperties.CognitoUserPoolEmailConfiguration as X -import Stratosphere.ResourceProperties.CognitoUserPoolInviteMessageTemplate as X -import Stratosphere.ResourceProperties.CognitoUserPoolLambdaConfig as X -import Stratosphere.ResourceProperties.CognitoUserPoolNumberAttributeConstraints as X -import Stratosphere.ResourceProperties.CognitoUserPoolPasswordPolicy as X -import Stratosphere.ResourceProperties.CognitoUserPoolPolicies as X -import Stratosphere.ResourceProperties.CognitoUserPoolRecoveryOption as X -import Stratosphere.ResourceProperties.CognitoUserPoolSchemaAttribute as X -import Stratosphere.ResourceProperties.CognitoUserPoolSmsConfiguration as X -import Stratosphere.ResourceProperties.CognitoUserPoolStringAttributeConstraints as X -import Stratosphere.ResourceProperties.CognitoUserPoolUserPoolAddOns as X -import Stratosphere.ResourceProperties.CognitoUserPoolUsernameConfiguration as X -import Stratosphere.ResourceProperties.CognitoUserPoolVerificationMessageTemplate as X -import Stratosphere.ResourceProperties.CognitoUserPoolClientAnalyticsConfiguration as X -import Stratosphere.ResourceProperties.CognitoUserPoolClientTokenValidityUnits as X -import Stratosphere.ResourceProperties.CognitoUserPoolDomainCustomDomainConfigType as X -import Stratosphere.ResourceProperties.CognitoUserPoolResourceServerResourceServerScopeType as X -import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType as X -import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType as X -import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType as X -import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType as X -import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType as X -import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType as X -import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType as X -import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType as X -import Stratosphere.ResourceProperties.CognitoUserPoolUserAttributeType as X -import Stratosphere.ResourceProperties.ConfigConfigRuleScope as X -import Stratosphere.ResourceProperties.ConfigConfigRuleSource as X -import Stratosphere.ResourceProperties.ConfigConfigRuleSourceDetail as X -import Stratosphere.ResourceProperties.ConfigConfigurationAggregatorAccountAggregationSource as X -import Stratosphere.ResourceProperties.ConfigConfigurationAggregatorOrganizationAggregationSource as X -import Stratosphere.ResourceProperties.ConfigConfigurationRecorderRecordingGroup as X -import Stratosphere.ResourceProperties.ConfigConformancePackConformancePackInputParameter as X -import Stratosphere.ResourceProperties.ConfigDeliveryChannelConfigSnapshotDeliveryProperties as X -import Stratosphere.ResourceProperties.ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata as X -import Stratosphere.ResourceProperties.ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata as X -import Stratosphere.ResourceProperties.ConfigOrganizationConformancePackConformancePackInputParameter as X -import Stratosphere.ResourceProperties.ConfigRemediationConfigurationExecutionControls as X -import Stratosphere.ResourceProperties.ConfigRemediationConfigurationRemediationParameterValue as X -import Stratosphere.ResourceProperties.ConfigRemediationConfigurationResourceValue as X -import Stratosphere.ResourceProperties.ConfigRemediationConfigurationSsmControls as X -import Stratosphere.ResourceProperties.ConfigRemediationConfigurationStaticValue as X -import Stratosphere.ResourceProperties.DAXClusterSSESpecification as X -import Stratosphere.ResourceProperties.DLMLifecyclePolicyCreateRule as X -import Stratosphere.ResourceProperties.DLMLifecyclePolicyCrossRegionCopyRetainRule as X -import Stratosphere.ResourceProperties.DLMLifecyclePolicyCrossRegionCopyRule as X -import Stratosphere.ResourceProperties.DLMLifecyclePolicyFastRestoreRule as X -import Stratosphere.ResourceProperties.DLMLifecyclePolicyParameters as X -import Stratosphere.ResourceProperties.DLMLifecyclePolicyPolicyDetails as X -import Stratosphere.ResourceProperties.DLMLifecyclePolicyRetainRule as X -import Stratosphere.ResourceProperties.DLMLifecyclePolicySchedule as X -import Stratosphere.ResourceProperties.DMSEndpointDynamoDbSettings as X -import Stratosphere.ResourceProperties.DMSEndpointElasticsearchSettings as X -import Stratosphere.ResourceProperties.DMSEndpointKafkaSettings as X -import Stratosphere.ResourceProperties.DMSEndpointKinesisSettings as X -import Stratosphere.ResourceProperties.DMSEndpointMongoDbSettings as X -import Stratosphere.ResourceProperties.DMSEndpointNeptuneSettings as X -import Stratosphere.ResourceProperties.DMSEndpointS3Settings as X -import Stratosphere.ResourceProperties.DataPipelinePipelineField as X -import Stratosphere.ResourceProperties.DataPipelinePipelineParameterAttribute as X -import Stratosphere.ResourceProperties.DataPipelinePipelineParameterObject as X -import Stratosphere.ResourceProperties.DataPipelinePipelineParameterValue as X -import Stratosphere.ResourceProperties.DataPipelinePipelinePipelineObject as X -import Stratosphere.ResourceProperties.DataPipelinePipelinePipelineTag as X -import Stratosphere.ResourceProperties.DirectoryServiceMicrosoftADVpcSettings as X -import Stratosphere.ResourceProperties.DirectoryServiceSimpleADVpcSettings as X -import Stratosphere.ResourceProperties.DynamoDBTableAttributeDefinition as X -import Stratosphere.ResourceProperties.DynamoDBTableGlobalSecondaryIndex as X -import Stratosphere.ResourceProperties.DynamoDBTableKeySchema as X -import Stratosphere.ResourceProperties.DynamoDBTableLocalSecondaryIndex as X -import Stratosphere.ResourceProperties.DynamoDBTablePointInTimeRecoverySpecification as X -import Stratosphere.ResourceProperties.DynamoDBTableProjection as X -import Stratosphere.ResourceProperties.DynamoDBTableProvisionedThroughput as X -import Stratosphere.ResourceProperties.DynamoDBTableSSESpecification as X -import Stratosphere.ResourceProperties.DynamoDBTableStreamSpecification as X -import Stratosphere.ResourceProperties.DynamoDBTableTimeToLiveSpecification as X -import Stratosphere.ResourceProperties.EC2CapacityReservationTagSpecification as X -import Stratosphere.ResourceProperties.EC2CarrierGatewayTags as X -import Stratosphere.ResourceProperties.EC2ClientVpnEndpointCertificateAuthenticationRequest as X -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 -import Stratosphere.ResourceProperties.EC2EC2FleetFleetLaunchTemplateOverridesRequest as X -import Stratosphere.ResourceProperties.EC2EC2FleetFleetLaunchTemplateSpecificationRequest as X -import Stratosphere.ResourceProperties.EC2EC2FleetOnDemandOptionsRequest as X -import Stratosphere.ResourceProperties.EC2EC2FleetPlacement as X -import Stratosphere.ResourceProperties.EC2EC2FleetSpotOptionsRequest as X -import Stratosphere.ResourceProperties.EC2EC2FleetTagSpecification as X -import Stratosphere.ResourceProperties.EC2EC2FleetTargetCapacitySpecificationRequest as X -import Stratosphere.ResourceProperties.EC2InstanceAssociationParameter as X -import Stratosphere.ResourceProperties.EC2InstanceBlockDeviceMapping as X -import Stratosphere.ResourceProperties.EC2InstanceCpuOptions as X -import Stratosphere.ResourceProperties.EC2InstanceCreditSpecification as X -import Stratosphere.ResourceProperties.EC2InstanceEbs as X -import Stratosphere.ResourceProperties.EC2InstanceElasticGpuSpecification as X -import Stratosphere.ResourceProperties.EC2InstanceElasticInferenceAccelerator as X -import Stratosphere.ResourceProperties.EC2InstanceHibernationOptions as X -import Stratosphere.ResourceProperties.EC2InstanceInstanceIpv6Address as X -import Stratosphere.ResourceProperties.EC2InstanceLaunchTemplateSpecification as X -import Stratosphere.ResourceProperties.EC2InstanceLicenseSpecification as X -import Stratosphere.ResourceProperties.EC2InstanceNetworkInterface as X -import Stratosphere.ResourceProperties.EC2InstanceNoDevice as X -import Stratosphere.ResourceProperties.EC2InstancePrivateIpAddressSpecification as X -import Stratosphere.ResourceProperties.EC2InstanceSsmAssociation as X -import Stratosphere.ResourceProperties.EC2InstanceVolume as X -import Stratosphere.ResourceProperties.EC2LaunchTemplateBlockDeviceMapping as X -import Stratosphere.ResourceProperties.EC2LaunchTemplateCapacityReservationSpecification as X -import Stratosphere.ResourceProperties.EC2LaunchTemplateCapacityReservationTarget as X -import Stratosphere.ResourceProperties.EC2LaunchTemplateCpuOptions as X -import Stratosphere.ResourceProperties.EC2LaunchTemplateCreditSpecification as X -import Stratosphere.ResourceProperties.EC2LaunchTemplateEbs as X -import Stratosphere.ResourceProperties.EC2LaunchTemplateElasticGpuSpecification as X -import Stratosphere.ResourceProperties.EC2LaunchTemplateHibernationOptions as X -import Stratosphere.ResourceProperties.EC2LaunchTemplateIamInstanceProfile as X -import Stratosphere.ResourceProperties.EC2LaunchTemplateInstanceMarketOptions as X -import Stratosphere.ResourceProperties.EC2LaunchTemplateIpv6Add as X -import Stratosphere.ResourceProperties.EC2LaunchTemplateLaunchTemplateData as X -import Stratosphere.ResourceProperties.EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator as X -import Stratosphere.ResourceProperties.EC2LaunchTemplateLicenseSpecification as X -import Stratosphere.ResourceProperties.EC2LaunchTemplateMetadataOptions as X -import Stratosphere.ResourceProperties.EC2LaunchTemplateMonitoring as X -import Stratosphere.ResourceProperties.EC2LaunchTemplateNetworkInterface as X -import Stratosphere.ResourceProperties.EC2LaunchTemplatePlacement as X -import Stratosphere.ResourceProperties.EC2LaunchTemplatePrivateIpAdd as X -import Stratosphere.ResourceProperties.EC2LaunchTemplateSpotOptions as X -import Stratosphere.ResourceProperties.EC2LaunchTemplateTagSpecification as X -import Stratosphere.ResourceProperties.EC2LocalGatewayRouteTableVPCAssociationTags as X -import Stratosphere.ResourceProperties.EC2NetworkAclEntryIcmp as X -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 -import Stratosphere.ResourceProperties.EC2SpotFleetClassicLoadBalancer as X -import Stratosphere.ResourceProperties.EC2SpotFleetClassicLoadBalancersConfig as X -import Stratosphere.ResourceProperties.EC2SpotFleetEbsBlockDevice as X -import Stratosphere.ResourceProperties.EC2SpotFleetFleetLaunchTemplateSpecification as X -import Stratosphere.ResourceProperties.EC2SpotFleetGroupIdentifier as X -import Stratosphere.ResourceProperties.EC2SpotFleetIamInstanceProfileSpecification as X -import Stratosphere.ResourceProperties.EC2SpotFleetInstanceIpv6Address as X -import Stratosphere.ResourceProperties.EC2SpotFleetInstanceNetworkInterfaceSpecification as X -import Stratosphere.ResourceProperties.EC2SpotFleetLaunchTemplateConfig as X -import Stratosphere.ResourceProperties.EC2SpotFleetLaunchTemplateOverrides as X -import Stratosphere.ResourceProperties.EC2SpotFleetLoadBalancersConfig as X -import Stratosphere.ResourceProperties.EC2SpotFleetPrivateIpAddressSpecification as X -import Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetLaunchSpecification as X -import Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetMonitoring as X -import Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetRequestConfigData as X -import Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetTagSpecification as X -import Stratosphere.ResourceProperties.EC2SpotFleetSpotPlacement as X -import Stratosphere.ResourceProperties.EC2SpotFleetTargetGroup as X -import Stratosphere.ResourceProperties.EC2SpotFleetTargetGroupsConfig as X -import Stratosphere.ResourceProperties.EC2TrafficMirrorFilterRuleTrafficMirrorPortRange as X -import Stratosphere.ResourceProperties.EC2VPNConnectionVpnTunnelOptionsSpecification as X -import Stratosphere.ResourceProperties.ECRRepositoryLifecyclePolicy as X -import Stratosphere.ResourceProperties.ECSCapacityProviderAutoScalingGroupProvider as X -import Stratosphere.ResourceProperties.ECSCapacityProviderManagedScaling as X -import Stratosphere.ResourceProperties.ECSClusterCapacityProviderStrategyItem as X -import Stratosphere.ResourceProperties.ECSClusterClusterSettings as X -import Stratosphere.ResourceProperties.ECSServiceAwsVpcConfiguration as X -import Stratosphere.ResourceProperties.ECSServiceDeploymentConfiguration as X -import Stratosphere.ResourceProperties.ECSServiceDeploymentController as X -import Stratosphere.ResourceProperties.ECSServiceLoadBalancer as X -import Stratosphere.ResourceProperties.ECSServiceNetworkConfiguration as X -import Stratosphere.ResourceProperties.ECSServicePlacementConstraint as X -import Stratosphere.ResourceProperties.ECSServicePlacementStrategy as X -import Stratosphere.ResourceProperties.ECSServiceServiceRegistry as X -import Stratosphere.ResourceProperties.ECSTaskDefinitionAuthorizationConfig as X -import Stratosphere.ResourceProperties.ECSTaskDefinitionContainerDefinition as X -import Stratosphere.ResourceProperties.ECSTaskDefinitionContainerDependency as X -import Stratosphere.ResourceProperties.ECSTaskDefinitionDevice as X -import Stratosphere.ResourceProperties.ECSTaskDefinitionDockerVolumeConfiguration as X -import Stratosphere.ResourceProperties.ECSTaskDefinitionEFSVolumeConfiguration as X -import Stratosphere.ResourceProperties.ECSTaskDefinitionEnvironmentFile as X -import Stratosphere.ResourceProperties.ECSTaskDefinitionFirelensConfiguration as X -import Stratosphere.ResourceProperties.ECSTaskDefinitionHealthCheck as X -import Stratosphere.ResourceProperties.ECSTaskDefinitionHostEntry as X -import Stratosphere.ResourceProperties.ECSTaskDefinitionHostVolumeProperties as X -import Stratosphere.ResourceProperties.ECSTaskDefinitionInferenceAccelerator as X -import Stratosphere.ResourceProperties.ECSTaskDefinitionKernelCapabilities as X -import Stratosphere.ResourceProperties.ECSTaskDefinitionKeyValuePair as X -import Stratosphere.ResourceProperties.ECSTaskDefinitionLinuxParameters as X -import Stratosphere.ResourceProperties.ECSTaskDefinitionLogConfiguration as X -import Stratosphere.ResourceProperties.ECSTaskDefinitionMountPoint as X -import Stratosphere.ResourceProperties.ECSTaskDefinitionPortMapping as X -import Stratosphere.ResourceProperties.ECSTaskDefinitionProxyConfiguration as X -import Stratosphere.ResourceProperties.ECSTaskDefinitionRepositoryCredentials as X -import Stratosphere.ResourceProperties.ECSTaskDefinitionResourceRequirement as X -import Stratosphere.ResourceProperties.ECSTaskDefinitionSecret as X -import Stratosphere.ResourceProperties.ECSTaskDefinitionSystemControl as X -import Stratosphere.ResourceProperties.ECSTaskDefinitionTaskDefinitionPlacementConstraint as X -import Stratosphere.ResourceProperties.ECSTaskDefinitionTmpfs as X -import Stratosphere.ResourceProperties.ECSTaskDefinitionUlimit as X -import Stratosphere.ResourceProperties.ECSTaskDefinitionVolume as X -import Stratosphere.ResourceProperties.ECSTaskDefinitionVolumeFrom as X -import Stratosphere.ResourceProperties.ECSTaskSetAwsVpcConfiguration as X -import Stratosphere.ResourceProperties.ECSTaskSetLoadBalancer as X -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.EFSFileSystemBackupPolicy as X -import Stratosphere.ResourceProperties.EFSFileSystemElasticFileSystemTag as X -import Stratosphere.ResourceProperties.EFSFileSystemLifecyclePolicy as X -import Stratosphere.ResourceProperties.EKSClusterEncryptionConfig as X -import Stratosphere.ResourceProperties.EKSClusterProvider as X -import Stratosphere.ResourceProperties.EKSClusterResourcesVpcConfig as X -import Stratosphere.ResourceProperties.EKSFargateProfileLabel as X -import Stratosphere.ResourceProperties.EKSFargateProfileSelector as X -import Stratosphere.ResourceProperties.EKSNodegroupLaunchTemplateSpecification as X -import Stratosphere.ResourceProperties.EKSNodegroupRemoteAccess as X -import Stratosphere.ResourceProperties.EKSNodegroupScalingConfig as X -import Stratosphere.ResourceProperties.EMRClusterApplication as X -import Stratosphere.ResourceProperties.EMRClusterAutoScalingPolicy as X -import Stratosphere.ResourceProperties.EMRClusterBootstrapActionConfig as X -import Stratosphere.ResourceProperties.EMRClusterCloudWatchAlarmDefinition as X -import Stratosphere.ResourceProperties.EMRClusterConfiguration as X -import Stratosphere.ResourceProperties.EMRClusterEbsBlockDeviceConfig as X -import Stratosphere.ResourceProperties.EMRClusterEbsConfiguration as X -import Stratosphere.ResourceProperties.EMRClusterHadoopJarStepConfig as X -import Stratosphere.ResourceProperties.EMRClusterInstanceFleetConfig as X -import Stratosphere.ResourceProperties.EMRClusterInstanceFleetProvisioningSpecifications as X -import Stratosphere.ResourceProperties.EMRClusterInstanceGroupConfig as X -import Stratosphere.ResourceProperties.EMRClusterInstanceTypeConfig as X -import Stratosphere.ResourceProperties.EMRClusterJobFlowInstancesConfig as X -import Stratosphere.ResourceProperties.EMRClusterKerberosAttributes as X -import Stratosphere.ResourceProperties.EMRClusterKeyValue as X -import Stratosphere.ResourceProperties.EMRClusterMetricDimension as X -import Stratosphere.ResourceProperties.EMRClusterPlacementType as X -import Stratosphere.ResourceProperties.EMRClusterScalingAction as X -import Stratosphere.ResourceProperties.EMRClusterScalingConstraints as X -import Stratosphere.ResourceProperties.EMRClusterScalingRule as X -import Stratosphere.ResourceProperties.EMRClusterScalingTrigger as X -import Stratosphere.ResourceProperties.EMRClusterScriptBootstrapActionConfig as X -import Stratosphere.ResourceProperties.EMRClusterSimpleScalingPolicyConfiguration as X -import Stratosphere.ResourceProperties.EMRClusterSpotProvisioningSpecification as X -import Stratosphere.ResourceProperties.EMRClusterStepConfig as X -import Stratosphere.ResourceProperties.EMRClusterVolumeSpecification as X -import Stratosphere.ResourceProperties.EMRInstanceFleetConfigConfiguration as X -import Stratosphere.ResourceProperties.EMRInstanceFleetConfigEbsBlockDeviceConfig as X -import Stratosphere.ResourceProperties.EMRInstanceFleetConfigEbsConfiguration as X -import Stratosphere.ResourceProperties.EMRInstanceFleetConfigInstanceFleetProvisioningSpecifications as X -import Stratosphere.ResourceProperties.EMRInstanceFleetConfigInstanceTypeConfig as X -import Stratosphere.ResourceProperties.EMRInstanceFleetConfigSpotProvisioningSpecification as X -import Stratosphere.ResourceProperties.EMRInstanceFleetConfigVolumeSpecification as X -import Stratosphere.ResourceProperties.EMRInstanceGroupConfigAutoScalingPolicy as X -import Stratosphere.ResourceProperties.EMRInstanceGroupConfigCloudWatchAlarmDefinition as X -import Stratosphere.ResourceProperties.EMRInstanceGroupConfigConfiguration as X -import Stratosphere.ResourceProperties.EMRInstanceGroupConfigEbsBlockDeviceConfig as X -import Stratosphere.ResourceProperties.EMRInstanceGroupConfigEbsConfiguration as X -import Stratosphere.ResourceProperties.EMRInstanceGroupConfigMetricDimension as X -import Stratosphere.ResourceProperties.EMRInstanceGroupConfigScalingAction as X -import Stratosphere.ResourceProperties.EMRInstanceGroupConfigScalingConstraints as X -import Stratosphere.ResourceProperties.EMRInstanceGroupConfigScalingRule as X -import Stratosphere.ResourceProperties.EMRInstanceGroupConfigScalingTrigger as X -import Stratosphere.ResourceProperties.EMRInstanceGroupConfigSimpleScalingPolicyConfiguration as X -import Stratosphere.ResourceProperties.EMRInstanceGroupConfigVolumeSpecification as X -import Stratosphere.ResourceProperties.EMRStepHadoopJarStepConfig as X -import Stratosphere.ResourceProperties.EMRStepKeyValue as X -import Stratosphere.ResourceProperties.ElastiCacheReplicationGroupNodeGroupConfiguration as X -import Stratosphere.ResourceProperties.ElasticBeanstalkApplicationApplicationResourceLifecycleConfig as X -import Stratosphere.ResourceProperties.ElasticBeanstalkApplicationApplicationVersionLifecycleConfig as X -import Stratosphere.ResourceProperties.ElasticBeanstalkApplicationMaxAgeRule as X -import Stratosphere.ResourceProperties.ElasticBeanstalkApplicationMaxCountRule as X -import Stratosphere.ResourceProperties.ElasticBeanstalkApplicationVersionSourceBundle as X -import Stratosphere.ResourceProperties.ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting as X -import Stratosphere.ResourceProperties.ElasticBeanstalkConfigurationTemplateSourceConfiguration as X -import Stratosphere.ResourceProperties.ElasticBeanstalkEnvironmentOptionSetting as X -import Stratosphere.ResourceProperties.ElasticBeanstalkEnvironmentTier as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerAccessLoggingPolicy as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerAppCookieStickinessPolicy as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerConnectionDrainingPolicy as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerConnectionSettings as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerHealthCheck as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerLBCookieStickinessPolicy as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerListeners as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerPolicies as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerAction as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerAuthenticateOidcConfig as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerCertificate as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerFixedResponseConfig as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerForwardConfig as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRedirectConfig as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerTargetGroupStickinessConfig as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerTargetGroupTuple as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerCertificateCertificate as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleAction as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleFixedResponseConfig as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleForwardConfig as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleHostHeaderConfig as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRulePathPatternConfig as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleQueryStringConfig as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleRedirectConfig as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleRuleCondition as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleSourceIpConfig as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfig as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleTargetGroupTuple as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2LoadBalancerLoadBalancerAttribute as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2LoadBalancerSubnetMapping as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2TargetGroupMatcher as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2TargetGroupTargetDescription as X -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2TargetGroupTargetGroupAttribute as X -import Stratosphere.ResourceProperties.ElasticsearchDomainAdvancedSecurityOptionsInput as X -import Stratosphere.ResourceProperties.ElasticsearchDomainCognitoOptions as X -import Stratosphere.ResourceProperties.ElasticsearchDomainDomainEndpointOptions as X -import Stratosphere.ResourceProperties.ElasticsearchDomainEBSOptions as X -import Stratosphere.ResourceProperties.ElasticsearchDomainElasticsearchClusterConfig as X -import Stratosphere.ResourceProperties.ElasticsearchDomainEncryptionAtRestOptions as X -import Stratosphere.ResourceProperties.ElasticsearchDomainLogPublishingOption as X -import Stratosphere.ResourceProperties.ElasticsearchDomainMasterUserOptions as X -import Stratosphere.ResourceProperties.ElasticsearchDomainNodeToNodeEncryptionOptions as X -import Stratosphere.ResourceProperties.ElasticsearchDomainSnapshotOptions as X -import Stratosphere.ResourceProperties.ElasticsearchDomainVPCOptions as X -import Stratosphere.ResourceProperties.ElasticsearchDomainZoneAwarenessConfig as X -import Stratosphere.ResourceProperties.EventSchemasDiscovererTagsEntry as X -import Stratosphere.ResourceProperties.EventSchemasRegistryTagsEntry as X -import Stratosphere.ResourceProperties.EventSchemasSchemaTagsEntry as X -import Stratosphere.ResourceProperties.EventsEventBusPolicyCondition as X -import Stratosphere.ResourceProperties.EventsRuleAwsVpcConfiguration as X -import Stratosphere.ResourceProperties.EventsRuleBatchArrayProperties as X -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 -import Stratosphere.ResourceProperties.EventsRuleRunCommandParameters as X -import Stratosphere.ResourceProperties.EventsRuleRunCommandTarget as X -import Stratosphere.ResourceProperties.EventsRuleSqsParameters as X -import Stratosphere.ResourceProperties.EventsRuleTarget as X -import Stratosphere.ResourceProperties.FMSPolicyIEMap as X -import Stratosphere.ResourceProperties.FMSPolicyPolicyTag as X -import Stratosphere.ResourceProperties.FMSPolicyResourceTag as X -import Stratosphere.ResourceProperties.FSxFileSystemLustreConfiguration as X -import Stratosphere.ResourceProperties.FSxFileSystemSelfManagedActiveDirectoryConfiguration as X -import Stratosphere.ResourceProperties.FSxFileSystemWindowsConfiguration as X -import Stratosphere.ResourceProperties.GameLiftAliasRoutingStrategy as X -import Stratosphere.ResourceProperties.GameLiftBuildS3Location as X -import Stratosphere.ResourceProperties.GameLiftFleetCertificateConfiguration as X -import Stratosphere.ResourceProperties.GameLiftFleetIpPermission as X -import Stratosphere.ResourceProperties.GameLiftFleetResourceCreationLimitPolicy as X -import Stratosphere.ResourceProperties.GameLiftFleetRuntimeConfiguration as X -import Stratosphere.ResourceProperties.GameLiftFleetServerProcess as X -import Stratosphere.ResourceProperties.GameLiftGameServerGroupAutoScalingPolicy as X -import Stratosphere.ResourceProperties.GameLiftGameServerGroupInstanceDefinition as X -import Stratosphere.ResourceProperties.GameLiftGameServerGroupInstanceDefinitions as X -import Stratosphere.ResourceProperties.GameLiftGameServerGroupLaunchTemplate as X -import Stratosphere.ResourceProperties.GameLiftGameServerGroupTags as X -import Stratosphere.ResourceProperties.GameLiftGameServerGroupTargetTrackingConfiguration as X -import Stratosphere.ResourceProperties.GameLiftGameServerGroupVpcSubnets as X -import Stratosphere.ResourceProperties.GameLiftGameSessionQueueDestination as X -import Stratosphere.ResourceProperties.GameLiftGameSessionQueuePlayerLatencyPolicy as X -import Stratosphere.ResourceProperties.GameLiftMatchmakingConfigurationGameProperty as X -import Stratosphere.ResourceProperties.GameLiftScriptS3Location as X -import Stratosphere.ResourceProperties.GlobalAcceleratorEndpointGroupEndpointConfiguration as X -import Stratosphere.ResourceProperties.GlobalAcceleratorListenerPortRange as X -import Stratosphere.ResourceProperties.GlueClassifierCsvClassifier as X -import Stratosphere.ResourceProperties.GlueClassifierGrokClassifier as X -import Stratosphere.ResourceProperties.GlueClassifierJsonClassifier as X -import Stratosphere.ResourceProperties.GlueClassifierXMLClassifier as X -import Stratosphere.ResourceProperties.GlueConnectionConnectionInput as X -import Stratosphere.ResourceProperties.GlueConnectionPhysicalConnectionRequirements as X -import Stratosphere.ResourceProperties.GlueCrawlerCatalogTarget as X -import Stratosphere.ResourceProperties.GlueCrawlerDynamoDBTarget as X -import Stratosphere.ResourceProperties.GlueCrawlerJdbcTarget as X -import Stratosphere.ResourceProperties.GlueCrawlerS3Target as X -import Stratosphere.ResourceProperties.GlueCrawlerSchedule as X -import Stratosphere.ResourceProperties.GlueCrawlerSchemaChangePolicy as X -import Stratosphere.ResourceProperties.GlueCrawlerTargets as X -import Stratosphere.ResourceProperties.GlueDataCatalogEncryptionSettingsConnectionPasswordEncryption as X -import Stratosphere.ResourceProperties.GlueDataCatalogEncryptionSettingsDataCatalogEncryptionSettings as X -import Stratosphere.ResourceProperties.GlueDataCatalogEncryptionSettingsEncryptionAtRest as X -import Stratosphere.ResourceProperties.GlueDatabaseDatabaseInput as X -import Stratosphere.ResourceProperties.GlueJobConnectionsList as X -import Stratosphere.ResourceProperties.GlueJobExecutionProperty as X -import Stratosphere.ResourceProperties.GlueJobJobCommand as X -import Stratosphere.ResourceProperties.GlueJobNotificationProperty as X -import Stratosphere.ResourceProperties.GlueMLTransformFindMatchesParameters as X -import Stratosphere.ResourceProperties.GlueMLTransformGlueTables as X -import Stratosphere.ResourceProperties.GlueMLTransformInputRecordTables as X -import Stratosphere.ResourceProperties.GlueMLTransformTransformParameters as X -import Stratosphere.ResourceProperties.GluePartitionColumn as X -import Stratosphere.ResourceProperties.GluePartitionOrder as X -import Stratosphere.ResourceProperties.GluePartitionPartitionInput as X -import Stratosphere.ResourceProperties.GluePartitionSerdeInfo as X -import Stratosphere.ResourceProperties.GluePartitionSkewedInfo as X -import Stratosphere.ResourceProperties.GluePartitionStorageDescriptor as X -import Stratosphere.ResourceProperties.GlueSecurityConfigurationCloudWatchEncryption as X -import Stratosphere.ResourceProperties.GlueSecurityConfigurationEncryptionConfiguration as X -import Stratosphere.ResourceProperties.GlueSecurityConfigurationJobBookmarksEncryption as X -import Stratosphere.ResourceProperties.GlueSecurityConfigurationS3Encryption as X -import Stratosphere.ResourceProperties.GlueTableColumn as X -import Stratosphere.ResourceProperties.GlueTableOrder as X -import Stratosphere.ResourceProperties.GlueTableSerdeInfo as X -import Stratosphere.ResourceProperties.GlueTableSkewedInfo as X -import Stratosphere.ResourceProperties.GlueTableStorageDescriptor as X -import Stratosphere.ResourceProperties.GlueTableTableInput as X -import Stratosphere.ResourceProperties.GlueTriggerAction as X -import Stratosphere.ResourceProperties.GlueTriggerCondition as X -import Stratosphere.ResourceProperties.GlueTriggerNotificationProperty as X -import Stratosphere.ResourceProperties.GlueTriggerPredicate as X -import Stratosphere.ResourceProperties.GreengrassConnectorDefinitionConnector as X -import Stratosphere.ResourceProperties.GreengrassConnectorDefinitionConnectorDefinitionVersion as X -import Stratosphere.ResourceProperties.GreengrassConnectorDefinitionVersionConnector as X -import Stratosphere.ResourceProperties.GreengrassCoreDefinitionCore as X -import Stratosphere.ResourceProperties.GreengrassCoreDefinitionCoreDefinitionVersion as X -import Stratosphere.ResourceProperties.GreengrassCoreDefinitionVersionCore as X -import Stratosphere.ResourceProperties.GreengrassDeviceDefinitionDevice as X -import Stratosphere.ResourceProperties.GreengrassDeviceDefinitionDeviceDefinitionVersion as X -import Stratosphere.ResourceProperties.GreengrassDeviceDefinitionVersionDevice as X -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionDefaultConfig as X -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionEnvironment as X -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionExecution as X -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionFunction as X -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionFunctionConfiguration as X -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionFunctionDefinitionVersion as X -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionResourceAccessPolicy as X -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionRunAs as X -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionVersionDefaultConfig as X -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionVersionEnvironment as X -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionVersionExecution as X -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionVersionFunction as X -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionVersionFunctionConfiguration as X -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionVersionResourceAccessPolicy as X -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionVersionRunAs as X -import Stratosphere.ResourceProperties.GreengrassGroupGroupVersion as X -import Stratosphere.ResourceProperties.GreengrassLoggerDefinitionLogger as X -import Stratosphere.ResourceProperties.GreengrassLoggerDefinitionLoggerDefinitionVersion as X -import Stratosphere.ResourceProperties.GreengrassLoggerDefinitionVersionLogger as X -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionGroupOwnerSetting as X -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionLocalDeviceResourceData as X -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionLocalVolumeResourceData as X -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionResourceDataContainer as X -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionResourceDefinitionVersion as X -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionResourceDownloadOwnerSetting as X -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionResourceInstance as X -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionS3MachineLearningModelResourceData as X -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionSageMakerMachineLearningModelResourceData as X -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionSecretsManagerSecretResourceData as X -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionGroupOwnerSetting as X -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionLocalDeviceResourceData as X -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionLocalVolumeResourceData as X -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionResourceDataContainer as X -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionResourceDownloadOwnerSetting as X -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionResourceInstance as X -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionS3MachineLearningModelResourceData as X -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceData as X -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionSecretsManagerSecretResourceData as X -import Stratosphere.ResourceProperties.GreengrassSubscriptionDefinitionSubscription as X -import Stratosphere.ResourceProperties.GreengrassSubscriptionDefinitionSubscriptionDefinitionVersion as X -import Stratosphere.ResourceProperties.GreengrassSubscriptionDefinitionVersionSubscription as X -import Stratosphere.ResourceProperties.GuardDutyDetectorCFNDataSourceConfigurations as X -import Stratosphere.ResourceProperties.GuardDutyDetectorCFNS3LogsConfiguration as X -import Stratosphere.ResourceProperties.GuardDutyFilterCondition as X -import Stratosphere.ResourceProperties.GuardDutyFilterFindingCriteria as X -import Stratosphere.ResourceProperties.IAMGroupPolicy as X -import Stratosphere.ResourceProperties.IAMRolePolicy as X -import Stratosphere.ResourceProperties.IAMUserLoginProfile as X -import Stratosphere.ResourceProperties.IAMUserPolicy as X -import Stratosphere.ResourceProperties.ImageBuilderDistributionConfigurationDistribution as X -import Stratosphere.ResourceProperties.ImageBuilderImageImageTestsConfiguration as X -import Stratosphere.ResourceProperties.ImageBuilderImagePipelineImageTestsConfiguration as X -import Stratosphere.ResourceProperties.ImageBuilderImagePipelineSchedule as X -import Stratosphere.ResourceProperties.ImageBuilderImageRecipeComponentConfiguration as X -import Stratosphere.ResourceProperties.ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification as X -import Stratosphere.ResourceProperties.ImageBuilderImageRecipeInstanceBlockDeviceMapping as X -import Stratosphere.ResourceProperties.ImageBuilderInfrastructureConfigurationLogging as X -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.IoTProvisioningTemplateTags as X -import Stratosphere.ResourceProperties.IoTThingAttributePayload as X -import Stratosphere.ResourceProperties.IoTTopicRuleAction as X -import Stratosphere.ResourceProperties.IoTTopicRuleAssetPropertyTimestamp as X -import Stratosphere.ResourceProperties.IoTTopicRuleAssetPropertyValue as X -import Stratosphere.ResourceProperties.IoTTopicRuleAssetPropertyVariant as X -import Stratosphere.ResourceProperties.IoTTopicRuleCloudwatchAlarmAction as X -import Stratosphere.ResourceProperties.IoTTopicRuleCloudwatchMetricAction as X -import Stratosphere.ResourceProperties.IoTTopicRuleDynamoDBAction as X -import Stratosphere.ResourceProperties.IoTTopicRuleDynamoDBV2Action as X -import Stratosphere.ResourceProperties.IoTTopicRuleElasticsearchAction as X -import Stratosphere.ResourceProperties.IoTTopicRuleFirehoseAction as X -import Stratosphere.ResourceProperties.IoTTopicRuleHttpAction as X -import Stratosphere.ResourceProperties.IoTTopicRuleHttpActionHeader as X -import Stratosphere.ResourceProperties.IoTTopicRuleHttpAuthorization as X -import Stratosphere.ResourceProperties.IoTTopicRuleIotAnalyticsAction as X -import Stratosphere.ResourceProperties.IoTTopicRuleIotEventsAction as X -import Stratosphere.ResourceProperties.IoTTopicRuleIotSiteWiseAction as X -import Stratosphere.ResourceProperties.IoTTopicRuleKinesisAction as X -import Stratosphere.ResourceProperties.IoTTopicRuleLambdaAction as X -import Stratosphere.ResourceProperties.IoTTopicRulePutAssetPropertyValueEntry as X -import Stratosphere.ResourceProperties.IoTTopicRulePutItemInput as X -import Stratosphere.ResourceProperties.IoTTopicRuleRepublishAction as X -import Stratosphere.ResourceProperties.IoTTopicRuleS3Action as X -import Stratosphere.ResourceProperties.IoTTopicRuleSigV4Authorization as X -import Stratosphere.ResourceProperties.IoTTopicRuleSnsAction as X -import Stratosphere.ResourceProperties.IoTTopicRuleSqsAction as X -import Stratosphere.ResourceProperties.IoTTopicRuleStepFunctionsAction as X -import Stratosphere.ResourceProperties.IoTTopicRuleTopicRulePayload as X -import Stratosphere.ResourceProperties.IoTAnalyticsChannelChannelStorage as X -import Stratosphere.ResourceProperties.IoTAnalyticsChannelCustomerManagedS3 as X -import Stratosphere.ResourceProperties.IoTAnalyticsChannelRetentionPeriod as X -import Stratosphere.ResourceProperties.IoTAnalyticsChannelServiceManagedS3 as X -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetAction as X -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetContainerAction as X -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetDatasetContentDeliveryRule as X -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination as X -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetDatasetContentVersionValue as X -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetDeltaTime as X -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetFilter as X -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetGlueConfiguration as X -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetIotEventsDestinationConfiguration as X -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetOutputFileUriValue as X -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetQueryAction as X -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetResourceConfiguration as X -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetRetentionPeriod as X -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetS3DestinationConfiguration as X -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetSchedule as X -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetTrigger as X -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetTriggeringDataset as X -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetVariable as X -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetVersioningConfiguration as X -import Stratosphere.ResourceProperties.IoTAnalyticsDatastoreCustomerManagedS3 as X -import Stratosphere.ResourceProperties.IoTAnalyticsDatastoreDatastoreStorage as X -import Stratosphere.ResourceProperties.IoTAnalyticsDatastoreRetentionPeriod as X -import Stratosphere.ResourceProperties.IoTAnalyticsDatastoreServiceManagedS3 as X -import Stratosphere.ResourceProperties.IoTAnalyticsPipelineActivity as X -import Stratosphere.ResourceProperties.IoTAnalyticsPipelineAddAttributes as X -import Stratosphere.ResourceProperties.IoTAnalyticsPipelineChannel as X -import Stratosphere.ResourceProperties.IoTAnalyticsPipelineDatastore as X -import Stratosphere.ResourceProperties.IoTAnalyticsPipelineDeviceRegistryEnrich as X -import Stratosphere.ResourceProperties.IoTAnalyticsPipelineDeviceShadowEnrich as X -import Stratosphere.ResourceProperties.IoTAnalyticsPipelineFilter as X -import Stratosphere.ResourceProperties.IoTAnalyticsPipelineLambda as X -import Stratosphere.ResourceProperties.IoTAnalyticsPipelineMath as X -import Stratosphere.ResourceProperties.IoTAnalyticsPipelineRemoveAttributes as X -import Stratosphere.ResourceProperties.IoTAnalyticsPipelineSelectAttributes as X -import Stratosphere.ResourceProperties.IoTEventsDetectorModelAction as X -import Stratosphere.ResourceProperties.IoTEventsDetectorModelAssetPropertyTimestamp as X -import Stratosphere.ResourceProperties.IoTEventsDetectorModelAssetPropertyValue as X -import Stratosphere.ResourceProperties.IoTEventsDetectorModelAssetPropertyVariant as X -import Stratosphere.ResourceProperties.IoTEventsDetectorModelClearTimer as X -import Stratosphere.ResourceProperties.IoTEventsDetectorModelDetectorModelDefinition as X -import Stratosphere.ResourceProperties.IoTEventsDetectorModelDynamoDB as X -import Stratosphere.ResourceProperties.IoTEventsDetectorModelDynamoDBv2 as X -import Stratosphere.ResourceProperties.IoTEventsDetectorModelEvent as X -import Stratosphere.ResourceProperties.IoTEventsDetectorModelFirehose as X -import Stratosphere.ResourceProperties.IoTEventsDetectorModelIotEvents as X -import Stratosphere.ResourceProperties.IoTEventsDetectorModelIotSiteWise as X -import Stratosphere.ResourceProperties.IoTEventsDetectorModelIotTopicPublish as X -import Stratosphere.ResourceProperties.IoTEventsDetectorModelLambda as X -import Stratosphere.ResourceProperties.IoTEventsDetectorModelOnEnter as X -import Stratosphere.ResourceProperties.IoTEventsDetectorModelOnExit as X -import Stratosphere.ResourceProperties.IoTEventsDetectorModelOnInput as X -import Stratosphere.ResourceProperties.IoTEventsDetectorModelPayload as X -import Stratosphere.ResourceProperties.IoTEventsDetectorModelResetTimer as X -import Stratosphere.ResourceProperties.IoTEventsDetectorModelSetTimer as X -import Stratosphere.ResourceProperties.IoTEventsDetectorModelSetVariable as X -import Stratosphere.ResourceProperties.IoTEventsDetectorModelSns as X -import Stratosphere.ResourceProperties.IoTEventsDetectorModelSqs as X -import Stratosphere.ResourceProperties.IoTEventsDetectorModelState as X -import Stratosphere.ResourceProperties.IoTEventsDetectorModelTransitionEvent as X -import Stratosphere.ResourceProperties.IoTEventsInputAttribute as X -import Stratosphere.ResourceProperties.IoTEventsInputInputDefinition as X -import Stratosphere.ResourceProperties.IoTThingsGraphFlowTemplateDefinitionDocument as X -import Stratosphere.ResourceProperties.KinesisStreamStreamEncryption as X -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationCSVMappingParameters as X -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInput as X -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputLambdaProcessor as X -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputParallelism as X -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputProcessingConfiguration as X -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputSchema as X -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationJSONMappingParameters as X -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationKinesisFirehoseInput as X -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationKinesisStreamsInput as X -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationMappingParameters as X -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationRecordColumn as X -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationRecordFormat as X -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputDestinationSchema as X -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputKinesisFirehoseOutput as X -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputKinesisStreamsOutput as X -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputLambdaOutput as X -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputOutput as X -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters as X -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters as X -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceMappingParameters as X -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceRecordColumn as X -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceRecordFormat as X -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource as X -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema as X -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationApplicationCodeConfiguration as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationApplicationConfiguration as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCSVMappingParameters as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCheckpointConfiguration as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCodeContent as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationEnvironmentProperties as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInput as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputLambdaProcessor as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputParallelism as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputProcessingConfiguration as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputSchema as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationJSONMappingParameters as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationKinesisFirehoseInput as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationKinesisStreamsInput as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationMappingParameters as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationMonitoringConfiguration as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationParallelismConfiguration as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationPropertyGroup as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationRecordColumn as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationRecordFormat as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationS3ContentLocation as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationSqlApplicationConfiguration as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputDestinationSchema as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputLambdaOutput as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputOutput as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema as X -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource as X -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamBufferingHints as X -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions as X -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCopyCommand as X -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration as X -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamDeserializer as X -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamElasticsearchBufferingHints as X -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration as X -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamElasticsearchRetryOptions as X -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamEncryptionConfiguration as X -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration as X -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamHiveJsonSerDe as X -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamHttpEndpointCommonAttribute as X -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamHttpEndpointConfiguration as X -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration as X -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamHttpEndpointRequestConfiguration as X -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamInputFormatConfiguration as X -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamKMSEncryptionConfig as X -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration as X -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamOpenXJsonSerDe as X -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamOrcSerDe as X -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamOutputFormatConfiguration as X -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamParquetSerDe as X -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessingConfiguration as X -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessor as X -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessorParameter as X -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration as X -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamRedshiftRetryOptions as X -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamRetryOptions 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 -import Stratosphere.ResourceProperties.LakeFormationPermissionsDataLocationResource as X -import Stratosphere.ResourceProperties.LakeFormationPermissionsDatabaseResource as X -import Stratosphere.ResourceProperties.LakeFormationPermissionsResource as X -import Stratosphere.ResourceProperties.LakeFormationPermissionsTableResource as X -import Stratosphere.ResourceProperties.LakeFormationPermissionsTableWithColumnsResource as X -import Stratosphere.ResourceProperties.LambdaAliasAliasRoutingConfiguration as X -import Stratosphere.ResourceProperties.LambdaAliasProvisionedConcurrencyConfiguration as X -import Stratosphere.ResourceProperties.LambdaAliasVersionWeight as X -import Stratosphere.ResourceProperties.LambdaEventInvokeConfigDestinationConfig as X -import Stratosphere.ResourceProperties.LambdaEventInvokeConfigOnFailure as X -import Stratosphere.ResourceProperties.LambdaEventInvokeConfigOnSuccess as X -import Stratosphere.ResourceProperties.LambdaEventSourceMappingDestinationConfig as X -import Stratosphere.ResourceProperties.LambdaEventSourceMappingOnFailure as X -import Stratosphere.ResourceProperties.LambdaFunctionCode as X -import Stratosphere.ResourceProperties.LambdaFunctionDeadLetterConfig as X -import Stratosphere.ResourceProperties.LambdaFunctionEnvironment as X -import Stratosphere.ResourceProperties.LambdaFunctionFileSystemConfig as X -import Stratosphere.ResourceProperties.LambdaFunctionTracingConfig as X -import Stratosphere.ResourceProperties.LambdaFunctionVpcConfig as X -import Stratosphere.ResourceProperties.LambdaLayerVersionContent as X -import Stratosphere.ResourceProperties.LambdaVersionProvisionedConcurrencyConfiguration as X -import Stratosphere.ResourceProperties.LogsMetricFilterMetricTransformation as X -import Stratosphere.ResourceProperties.MSKClusterBrokerLogs as X -import Stratosphere.ResourceProperties.MSKClusterBrokerNodeGroupInfo as X -import Stratosphere.ResourceProperties.MSKClusterClientAuthentication as X -import Stratosphere.ResourceProperties.MSKClusterCloudWatchLogs as X -import Stratosphere.ResourceProperties.MSKClusterConfigurationInfo as X -import Stratosphere.ResourceProperties.MSKClusterEBSStorageInfo as X -import Stratosphere.ResourceProperties.MSKClusterEncryptionAtRest as X -import Stratosphere.ResourceProperties.MSKClusterEncryptionInTransit as X -import Stratosphere.ResourceProperties.MSKClusterEncryptionInfo as X -import Stratosphere.ResourceProperties.MSKClusterFirehose as X -import Stratosphere.ResourceProperties.MSKClusterJmxExporter as X -import Stratosphere.ResourceProperties.MSKClusterLoggingInfo as X -import Stratosphere.ResourceProperties.MSKClusterNodeExporter as X -import Stratosphere.ResourceProperties.MSKClusterOpenMonitoring as X -import Stratosphere.ResourceProperties.MSKClusterPrometheus as X -import Stratosphere.ResourceProperties.MSKClusterS3 as X -import Stratosphere.ResourceProperties.MSKClusterStorageInfo as X -import Stratosphere.ResourceProperties.MSKClusterTls as X -import Stratosphere.ResourceProperties.MacieFindingsFilterFindingsFilterListItem as X -import Stratosphere.ResourceProperties.ManagedBlockchainMemberApprovalThresholdPolicy as X -import Stratosphere.ResourceProperties.ManagedBlockchainMemberMemberConfiguration as X -import Stratosphere.ResourceProperties.ManagedBlockchainMemberMemberFabricConfiguration as X -import Stratosphere.ResourceProperties.ManagedBlockchainMemberMemberFrameworkConfiguration as X -import Stratosphere.ResourceProperties.ManagedBlockchainMemberNetworkConfiguration as X -import Stratosphere.ResourceProperties.ManagedBlockchainMemberNetworkFabricConfiguration as X -import Stratosphere.ResourceProperties.ManagedBlockchainMemberNetworkFrameworkConfiguration as X -import Stratosphere.ResourceProperties.ManagedBlockchainMemberVotingPolicy as X -import Stratosphere.ResourceProperties.ManagedBlockchainNodeNodeConfiguration as X -import Stratosphere.ResourceProperties.MediaConvertJobTemplateAccelerationSettings as X -import Stratosphere.ResourceProperties.MediaConvertJobTemplateHopDestination as X -import Stratosphere.ResourceProperties.MediaLiveChannelAribSourceSettings as X -import Stratosphere.ResourceProperties.MediaLiveChannelAudioLanguageSelection as X -import Stratosphere.ResourceProperties.MediaLiveChannelAudioPidSelection as X -import Stratosphere.ResourceProperties.MediaLiveChannelAudioSelector as X -import Stratosphere.ResourceProperties.MediaLiveChannelAudioSelectorSettings as X -import Stratosphere.ResourceProperties.MediaLiveChannelCaptionSelector as X -import Stratosphere.ResourceProperties.MediaLiveChannelCaptionSelectorSettings as X -import Stratosphere.ResourceProperties.MediaLiveChannelDvbSubSourceSettings as X -import Stratosphere.ResourceProperties.MediaLiveChannelEmbeddedSourceSettings as X -import Stratosphere.ResourceProperties.MediaLiveChannelHlsInputSettings as X -import Stratosphere.ResourceProperties.MediaLiveChannelInputAttachment as X -import Stratosphere.ResourceProperties.MediaLiveChannelInputSettings as X -import Stratosphere.ResourceProperties.MediaLiveChannelInputSpecification as X -import Stratosphere.ResourceProperties.MediaLiveChannelMediaPackageOutputDestinationSettings as X -import Stratosphere.ResourceProperties.MediaLiveChannelMultiplexProgramChannelDestinationSettings as X -import Stratosphere.ResourceProperties.MediaLiveChannelNetworkInputSettings as X -import Stratosphere.ResourceProperties.MediaLiveChannelOutputDestination as X -import Stratosphere.ResourceProperties.MediaLiveChannelOutputDestinationSettings as X -import Stratosphere.ResourceProperties.MediaLiveChannelScte20SourceSettings as X -import Stratosphere.ResourceProperties.MediaLiveChannelScte27SourceSettings as X -import Stratosphere.ResourceProperties.MediaLiveChannelTeletextSourceSettings as X -import Stratosphere.ResourceProperties.MediaLiveChannelVideoSelector as X -import Stratosphere.ResourceProperties.MediaLiveChannelVideoSelectorPid as X -import Stratosphere.ResourceProperties.MediaLiveChannelVideoSelectorProgramId as X -import Stratosphere.ResourceProperties.MediaLiveChannelVideoSelectorSettings as X -import Stratosphere.ResourceProperties.MediaLiveInputInputDestinationRequest as X -import Stratosphere.ResourceProperties.MediaLiveInputInputSourceRequest as X -import Stratosphere.ResourceProperties.MediaLiveInputInputVpcRequest as X -import Stratosphere.ResourceProperties.MediaLiveInputMediaConnectFlowRequest as X -import Stratosphere.ResourceProperties.MediaLiveInputSecurityGroupInputWhitelistRuleCidr as X -import Stratosphere.ResourceProperties.MediaStoreContainerCorsRule as X -import Stratosphere.ResourceProperties.MediaStoreContainerMetricPolicy as X -import Stratosphere.ResourceProperties.MediaStoreContainerMetricPolicyRule as X -import Stratosphere.ResourceProperties.NeptuneDBClusterDBClusterRole as X -import Stratosphere.ResourceProperties.NetworkManagerDeviceLocation as X -import Stratosphere.ResourceProperties.NetworkManagerLinkBandwidth as X -import Stratosphere.ResourceProperties.NetworkManagerSiteLocation as X -import Stratosphere.ResourceProperties.OpsWorksAppDataSource as X -import Stratosphere.ResourceProperties.OpsWorksAppEnvironmentVariable as X -import Stratosphere.ResourceProperties.OpsWorksAppSource as X -import Stratosphere.ResourceProperties.OpsWorksAppSslConfiguration as X -import Stratosphere.ResourceProperties.OpsWorksInstanceBlockDeviceMapping as X -import Stratosphere.ResourceProperties.OpsWorksInstanceEbsBlockDevice as X -import Stratosphere.ResourceProperties.OpsWorksInstanceTimeBasedAutoScaling as X -import Stratosphere.ResourceProperties.OpsWorksLayerAutoScalingThresholds as X -import Stratosphere.ResourceProperties.OpsWorksLayerLifecycleEventConfiguration as X -import Stratosphere.ResourceProperties.OpsWorksLayerLoadBasedAutoScaling as X -import Stratosphere.ResourceProperties.OpsWorksLayerRecipes as X -import Stratosphere.ResourceProperties.OpsWorksLayerShutdownEventConfiguration as X -import Stratosphere.ResourceProperties.OpsWorksLayerVolumeConfiguration as X -import Stratosphere.ResourceProperties.OpsWorksStackChefConfiguration as X -import Stratosphere.ResourceProperties.OpsWorksStackElasticIp as X -import Stratosphere.ResourceProperties.OpsWorksStackRdsDbInstance as X -import Stratosphere.ResourceProperties.OpsWorksStackSource as X -import Stratosphere.ResourceProperties.OpsWorksStackStackConfigurationManager as X -import Stratosphere.ResourceProperties.OpsWorksCMServerEngineAttribute as X -import Stratosphere.ResourceProperties.PinpointApplicationSettingsCampaignHook as X -import Stratosphere.ResourceProperties.PinpointApplicationSettingsLimits as X -import Stratosphere.ResourceProperties.PinpointApplicationSettingsQuietTime as X -import Stratosphere.ResourceProperties.PinpointCampaignAttributeDimension as X -import Stratosphere.ResourceProperties.PinpointCampaignCampaignEmailMessage as X -import Stratosphere.ResourceProperties.PinpointCampaignCampaignEventFilter as X -import Stratosphere.ResourceProperties.PinpointCampaignCampaignHook as X -import Stratosphere.ResourceProperties.PinpointCampaignCampaignSmsMessage as X -import Stratosphere.ResourceProperties.PinpointCampaignEventDimensions as X -import Stratosphere.ResourceProperties.PinpointCampaignLimits as X -import Stratosphere.ResourceProperties.PinpointCampaignMessage as X -import Stratosphere.ResourceProperties.PinpointCampaignMessageConfiguration as X -import Stratosphere.ResourceProperties.PinpointCampaignMetricDimension as X -import Stratosphere.ResourceProperties.PinpointCampaignQuietTime as X -import Stratosphere.ResourceProperties.PinpointCampaignSchedule as X -import Stratosphere.ResourceProperties.PinpointCampaignSetDimension as X -import Stratosphere.ResourceProperties.PinpointCampaignWriteTreatmentResource as X -import Stratosphere.ResourceProperties.PinpointPushTemplateAPNSPushNotificationTemplate as X -import Stratosphere.ResourceProperties.PinpointPushTemplateAndroidPushNotificationTemplate as X -import Stratosphere.ResourceProperties.PinpointPushTemplateDefaultPushNotificationTemplate as X -import Stratosphere.ResourceProperties.PinpointSegmentAttributeDimension as X -import Stratosphere.ResourceProperties.PinpointSegmentBehavior as X -import Stratosphere.ResourceProperties.PinpointSegmentCoordinates as X -import Stratosphere.ResourceProperties.PinpointSegmentDemographic as X -import Stratosphere.ResourceProperties.PinpointSegmentGPSPoint as X -import Stratosphere.ResourceProperties.PinpointSegmentGroups as X -import Stratosphere.ResourceProperties.PinpointSegmentLocation as X -import Stratosphere.ResourceProperties.PinpointSegmentRecency as X -import Stratosphere.ResourceProperties.PinpointSegmentSegmentDimensions as X -import Stratosphere.ResourceProperties.PinpointSegmentSegmentGroups as X -import Stratosphere.ResourceProperties.PinpointSegmentSetDimension as X -import Stratosphere.ResourceProperties.PinpointSegmentSourceSegments as X -import Stratosphere.ResourceProperties.PinpointEmailConfigurationSetDeliveryOptions as X -import Stratosphere.ResourceProperties.PinpointEmailConfigurationSetReputationOptions as X -import Stratosphere.ResourceProperties.PinpointEmailConfigurationSetSendingOptions as X -import Stratosphere.ResourceProperties.PinpointEmailConfigurationSetTags as X -import Stratosphere.ResourceProperties.PinpointEmailConfigurationSetTrackingOptions as X -import Stratosphere.ResourceProperties.PinpointEmailConfigurationSetEventDestinationCloudWatchDestination as X -import Stratosphere.ResourceProperties.PinpointEmailConfigurationSetEventDestinationDimensionConfiguration as X -import Stratosphere.ResourceProperties.PinpointEmailConfigurationSetEventDestinationEventDestination as X -import Stratosphere.ResourceProperties.PinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestination as X -import Stratosphere.ResourceProperties.PinpointEmailConfigurationSetEventDestinationPinpointDestination as X -import Stratosphere.ResourceProperties.PinpointEmailConfigurationSetEventDestinationSnsDestination as X -import Stratosphere.ResourceProperties.PinpointEmailDedicatedIpPoolTags as X -import Stratosphere.ResourceProperties.PinpointEmailIdentityMailFromAttributes as X -import Stratosphere.ResourceProperties.PinpointEmailIdentityTags as X -import Stratosphere.ResourceProperties.QLDBStreamKinesisConfiguration as X -import Stratosphere.ResourceProperties.RDSDBClusterDBClusterRole as X -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 -import Stratosphere.ResourceProperties.RedshiftClusterLoggingProperties as X -import Stratosphere.ResourceProperties.RedshiftClusterParameterGroupParameter as X -import Stratosphere.ResourceProperties.ResourceGroupsGroupQuery as X -import Stratosphere.ResourceProperties.ResourceGroupsGroupResourceQuery as X -import Stratosphere.ResourceProperties.ResourceGroupsGroupTagFilter as X -import Stratosphere.ResourceProperties.RoboMakerRobotApplicationRobotSoftwareSuite as X -import Stratosphere.ResourceProperties.RoboMakerRobotApplicationSourceConfig as X -import Stratosphere.ResourceProperties.RoboMakerSimulationApplicationRenderingEngine as X -import Stratosphere.ResourceProperties.RoboMakerSimulationApplicationRobotSoftwareSuite as X -import Stratosphere.ResourceProperties.RoboMakerSimulationApplicationSimulationSoftwareSuite as X -import Stratosphere.ResourceProperties.RoboMakerSimulationApplicationSourceConfig as X -import Stratosphere.ResourceProperties.Route53HealthCheckAlarmIdentifier as X -import Stratosphere.ResourceProperties.Route53HealthCheckHealthCheckConfig as X -import Stratosphere.ResourceProperties.Route53HealthCheckHealthCheckTag as X -import Stratosphere.ResourceProperties.Route53HostedZoneHostedZoneConfig as X -import Stratosphere.ResourceProperties.Route53HostedZoneHostedZoneTag as X -import Stratosphere.ResourceProperties.Route53HostedZoneQueryLoggingConfig as X -import Stratosphere.ResourceProperties.Route53HostedZoneVPC as X -import Stratosphere.ResourceProperties.Route53RecordSetAliasTarget as X -import Stratosphere.ResourceProperties.Route53RecordSetGeoLocation as X -import Stratosphere.ResourceProperties.Route53RecordSetGroupAliasTarget as X -import Stratosphere.ResourceProperties.Route53RecordSetGroupGeoLocation as X -import Stratosphere.ResourceProperties.Route53RecordSetGroupRecordSet as X -import Stratosphere.ResourceProperties.Route53ResolverResolverEndpointIpAddressRequest as X -import Stratosphere.ResourceProperties.Route53ResolverResolverRuleTargetAddress as X -import Stratosphere.ResourceProperties.S3AccessPointPublicAccessBlockConfiguration as X -import Stratosphere.ResourceProperties.S3AccessPointVpcConfiguration as X -import Stratosphere.ResourceProperties.S3BucketAbortIncompleteMultipartUpload as X -import Stratosphere.ResourceProperties.S3BucketAccelerateConfiguration as X -import Stratosphere.ResourceProperties.S3BucketAccessControlTranslation as X -import Stratosphere.ResourceProperties.S3BucketAnalyticsConfiguration as X -import Stratosphere.ResourceProperties.S3BucketBucketEncryption as X -import Stratosphere.ResourceProperties.S3BucketCorsConfiguration as X -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 -import Stratosphere.ResourceProperties.S3BucketInventoryConfiguration as X -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 -import Stratosphere.ResourceProperties.S3BucketNotificationFilter as X -import Stratosphere.ResourceProperties.S3BucketObjectLockConfiguration as X -import Stratosphere.ResourceProperties.S3BucketObjectLockRule as X -import Stratosphere.ResourceProperties.S3BucketPublicAccessBlockConfiguration as X -import Stratosphere.ResourceProperties.S3BucketQueueConfiguration as X -import Stratosphere.ResourceProperties.S3BucketRedirectAllRequestsTo as X -import Stratosphere.ResourceProperties.S3BucketRedirectRule as X -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 -import Stratosphere.ResourceProperties.S3BucketS3KeyFilter as X -import Stratosphere.ResourceProperties.S3BucketServerSideEncryptionByDefault as X -import Stratosphere.ResourceProperties.S3BucketServerSideEncryptionRule as X -import Stratosphere.ResourceProperties.S3BucketSourceSelectionCriteria as X -import Stratosphere.ResourceProperties.S3BucketSseKmsEncryptedObjects as X -import Stratosphere.ResourceProperties.S3BucketStorageClassAnalysis as X -import Stratosphere.ResourceProperties.S3BucketTagFilter as X -import Stratosphere.ResourceProperties.S3BucketTopicConfiguration as X -import Stratosphere.ResourceProperties.S3BucketTransition as X -import Stratosphere.ResourceProperties.S3BucketVersioningConfiguration as X -import Stratosphere.ResourceProperties.S3BucketWebsiteConfiguration as X -import Stratosphere.ResourceProperties.SESConfigurationSetEventDestinationCloudWatchDestination as X -import Stratosphere.ResourceProperties.SESConfigurationSetEventDestinationDimensionConfiguration as X -import Stratosphere.ResourceProperties.SESConfigurationSetEventDestinationEventDestination as X -import Stratosphere.ResourceProperties.SESConfigurationSetEventDestinationKinesisFirehoseDestination as X -import Stratosphere.ResourceProperties.SESReceiptFilterFilter as X -import Stratosphere.ResourceProperties.SESReceiptFilterIpFilter as X -import Stratosphere.ResourceProperties.SESReceiptRuleAction as X -import Stratosphere.ResourceProperties.SESReceiptRuleAddHeaderAction as X -import Stratosphere.ResourceProperties.SESReceiptRuleBounceAction as X -import Stratosphere.ResourceProperties.SESReceiptRuleLambdaAction as X -import Stratosphere.ResourceProperties.SESReceiptRuleRule as X -import Stratosphere.ResourceProperties.SESReceiptRuleS3Action as X -import Stratosphere.ResourceProperties.SESReceiptRuleSNSAction as X -import Stratosphere.ResourceProperties.SESReceiptRuleStopAction as X -import Stratosphere.ResourceProperties.SESReceiptRuleWorkmailAction as X -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 -import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskLoggingInfo as X -import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters as X -import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters as X -import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters as X -import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters as X -import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskNotificationConfig as X -import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskTarget as X -import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskTaskInvocationParameters as X -import Stratosphere.ResourceProperties.SSMPatchBaselinePatchFilter as X -import Stratosphere.ResourceProperties.SSMPatchBaselinePatchFilterGroup as X -import Stratosphere.ResourceProperties.SSMPatchBaselinePatchSource as X -import Stratosphere.ResourceProperties.SSMPatchBaselineRule as X -import Stratosphere.ResourceProperties.SSMPatchBaselineRuleGroup as X -import Stratosphere.ResourceProperties.SSMResourceDataSyncAwsOrganizationsSource as X -import Stratosphere.ResourceProperties.SSMResourceDataSyncS3Destination as X -import Stratosphere.ResourceProperties.SSMResourceDataSyncSyncSource as X -import Stratosphere.ResourceProperties.SageMakerCodeRepositoryGitConfig as X -import Stratosphere.ResourceProperties.SageMakerEndpointVariantProperty as X -import Stratosphere.ResourceProperties.SageMakerEndpointConfigCaptureContentTypeHeader as X -import Stratosphere.ResourceProperties.SageMakerEndpointConfigCaptureOption as X -import Stratosphere.ResourceProperties.SageMakerEndpointConfigDataCaptureConfig as X -import Stratosphere.ResourceProperties.SageMakerEndpointConfigProductionVariant as X -import Stratosphere.ResourceProperties.SageMakerModelContainerDefinition as X -import Stratosphere.ResourceProperties.SageMakerModelVpcConfig as X -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleBaselineConfig as X -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleClusterConfig as X -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleConstraintsResource as X -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleEndpointInput as X -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringAppSpecification as X -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringExecutionSummary as X -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringInput as X -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringInputs as X -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringJobDefinition as X -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringOutput as X -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringOutputConfig as X -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringResources as X -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringScheduleConfig as X -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleNetworkConfig as X -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleS3Output as X -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleScheduleConfig as X -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleStatisticsResource as X -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleStoppingCondition as X -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleVpcConfig as X -import Stratosphere.ResourceProperties.SageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook as X -import Stratosphere.ResourceProperties.SageMakerWorkteamCognitoMemberDefinition as X -import Stratosphere.ResourceProperties.SageMakerWorkteamMemberDefinition as X -import Stratosphere.ResourceProperties.SageMakerWorkteamNotificationConfiguration as X -import Stratosphere.ResourceProperties.SecretsManagerRotationScheduleHostedRotationLambda as X -import Stratosphere.ResourceProperties.SecretsManagerRotationScheduleRotationRules as X -import Stratosphere.ResourceProperties.SecretsManagerSecretGenerateSecretString as X -import Stratosphere.ResourceProperties.ServiceCatalogCloudFormationProductProvisioningArtifactProperties as X -import Stratosphere.ResourceProperties.ServiceCatalogCloudFormationProvisionedProductProvisioningParameter as X -import Stratosphere.ResourceProperties.ServiceCatalogCloudFormationProvisionedProductProvisioningPreferences as X -import Stratosphere.ResourceProperties.ServiceDiscoveryServiceDnsConfig as X -import Stratosphere.ResourceProperties.ServiceDiscoveryServiceDnsRecord as X -import Stratosphere.ResourceProperties.ServiceDiscoveryServiceHealthCheckConfig as X -import Stratosphere.ResourceProperties.ServiceDiscoveryServiceHealthCheckCustomConfig as X -import Stratosphere.ResourceProperties.StepFunctionsActivityTagsEntry as X -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.StepFunctionsStateMachineTracingConfiguration as X -import Stratosphere.ResourceProperties.SyntheticsCanaryCode as X -import Stratosphere.ResourceProperties.SyntheticsCanaryRunConfig as X -import Stratosphere.ResourceProperties.SyntheticsCanarySchedule as X -import Stratosphere.ResourceProperties.SyntheticsCanaryVPCConfig as X -import Stratosphere.ResourceProperties.TransferServerEndpointDetails as X -import Stratosphere.ResourceProperties.TransferServerIdentityProviderDetails as X -import Stratosphere.ResourceProperties.TransferUserHomeDirectoryMapEntry as X -import Stratosphere.ResourceProperties.WAFByteMatchSetByteMatchTuple as X -import Stratosphere.ResourceProperties.WAFByteMatchSetFieldToMatch as X -import Stratosphere.ResourceProperties.WAFIPSetIPSetDescriptor as X -import Stratosphere.ResourceProperties.WAFRulePredicate as X -import Stratosphere.ResourceProperties.WAFSizeConstraintSetFieldToMatch as X -import Stratosphere.ResourceProperties.WAFSizeConstraintSetSizeConstraint as X -import Stratosphere.ResourceProperties.WAFSqlInjectionMatchSetFieldToMatch as X -import Stratosphere.ResourceProperties.WAFSqlInjectionMatchSetSqlInjectionMatchTuple as X -import Stratosphere.ResourceProperties.WAFWebACLActivatedRule as X -import Stratosphere.ResourceProperties.WAFWebACLWafAction as X -import Stratosphere.ResourceProperties.WAFXssMatchSetFieldToMatch as X -import Stratosphere.ResourceProperties.WAFXssMatchSetXssMatchTuple as X -import Stratosphere.ResourceProperties.WAFRegionalByteMatchSetByteMatchTuple as X -import Stratosphere.ResourceProperties.WAFRegionalByteMatchSetFieldToMatch as X -import Stratosphere.ResourceProperties.WAFRegionalGeoMatchSetGeoMatchConstraint as X -import Stratosphere.ResourceProperties.WAFRegionalIPSetIPSetDescriptor as X -import Stratosphere.ResourceProperties.WAFRegionalRateBasedRulePredicate as X -import Stratosphere.ResourceProperties.WAFRegionalRulePredicate as X -import Stratosphere.ResourceProperties.WAFRegionalSizeConstraintSetFieldToMatch as X -import Stratosphere.ResourceProperties.WAFRegionalSizeConstraintSetSizeConstraint as X -import Stratosphere.ResourceProperties.WAFRegionalSqlInjectionMatchSetFieldToMatch as X -import Stratosphere.ResourceProperties.WAFRegionalSqlInjectionMatchSetSqlInjectionMatchTuple as X -import Stratosphere.ResourceProperties.WAFRegionalWebACLAction as X -import Stratosphere.ResourceProperties.WAFRegionalWebACLRule as X -import Stratosphere.ResourceProperties.WAFRegionalXssMatchSetFieldToMatch as X -import Stratosphere.ResourceProperties.WAFRegionalXssMatchSetXssMatchTuple as X -import Stratosphere.ResourceProperties.WAFv2RuleGroupAndStatementOne as X -import Stratosphere.ResourceProperties.WAFv2RuleGroupAndStatementTwo as X -import Stratosphere.ResourceProperties.WAFv2RuleGroupByteMatchStatement as X -import Stratosphere.ResourceProperties.WAFv2RuleGroupFieldToMatch as X -import Stratosphere.ResourceProperties.WAFv2RuleGroupForwardedIPConfiguration as X -import Stratosphere.ResourceProperties.WAFv2RuleGroupGeoMatchStatement as X -import Stratosphere.ResourceProperties.WAFv2RuleGroupIPSetForwardedIPConfiguration as X -import Stratosphere.ResourceProperties.WAFv2RuleGroupIPSetReferenceStatement as X -import Stratosphere.ResourceProperties.WAFv2RuleGroupNotStatementOne as X -import Stratosphere.ResourceProperties.WAFv2RuleGroupNotStatementTwo as X -import Stratosphere.ResourceProperties.WAFv2RuleGroupOrStatementOne as X -import Stratosphere.ResourceProperties.WAFv2RuleGroupOrStatementTwo as X -import Stratosphere.ResourceProperties.WAFv2RuleGroupRateBasedStatementOne as X -import Stratosphere.ResourceProperties.WAFv2RuleGroupRateBasedStatementTwo as X -import Stratosphere.ResourceProperties.WAFv2RuleGroupRegexPatternSetReferenceStatement as X -import Stratosphere.ResourceProperties.WAFv2RuleGroupRule as X -import Stratosphere.ResourceProperties.WAFv2RuleGroupRuleAction as X -import Stratosphere.ResourceProperties.WAFv2RuleGroupSizeConstraintStatement as X -import Stratosphere.ResourceProperties.WAFv2RuleGroupSqliMatchStatement as X -import Stratosphere.ResourceProperties.WAFv2RuleGroupStatementOne as X -import Stratosphere.ResourceProperties.WAFv2RuleGroupStatementThree as X -import Stratosphere.ResourceProperties.WAFv2RuleGroupStatementTwo as X -import Stratosphere.ResourceProperties.WAFv2RuleGroupTextTransformation as X -import Stratosphere.ResourceProperties.WAFv2RuleGroupVisibilityConfig as X -import Stratosphere.ResourceProperties.WAFv2RuleGroupXssMatchStatement as X -import Stratosphere.ResourceProperties.WAFv2WebACLAndStatementOne as X -import Stratosphere.ResourceProperties.WAFv2WebACLAndStatementTwo as X -import Stratosphere.ResourceProperties.WAFv2WebACLByteMatchStatement as X -import Stratosphere.ResourceProperties.WAFv2WebACLDefaultAction as X -import Stratosphere.ResourceProperties.WAFv2WebACLExcludedRule as X -import Stratosphere.ResourceProperties.WAFv2WebACLFieldToMatch as X -import Stratosphere.ResourceProperties.WAFv2WebACLForwardedIPConfiguration as X -import Stratosphere.ResourceProperties.WAFv2WebACLGeoMatchStatement as X -import Stratosphere.ResourceProperties.WAFv2WebACLIPSetForwardedIPConfiguration as X -import Stratosphere.ResourceProperties.WAFv2WebACLIPSetReferenceStatement as X -import Stratosphere.ResourceProperties.WAFv2WebACLManagedRuleGroupStatement as X -import Stratosphere.ResourceProperties.WAFv2WebACLNotStatementOne as X -import Stratosphere.ResourceProperties.WAFv2WebACLNotStatementTwo as X -import Stratosphere.ResourceProperties.WAFv2WebACLOrStatementOne as X -import Stratosphere.ResourceProperties.WAFv2WebACLOrStatementTwo as X -import Stratosphere.ResourceProperties.WAFv2WebACLOverrideAction as X -import Stratosphere.ResourceProperties.WAFv2WebACLRateBasedStatementOne as X -import Stratosphere.ResourceProperties.WAFv2WebACLRateBasedStatementTwo as X -import Stratosphere.ResourceProperties.WAFv2WebACLRegexPatternSetReferenceStatement as X -import Stratosphere.ResourceProperties.WAFv2WebACLRule as X -import Stratosphere.ResourceProperties.WAFv2WebACLRuleAction as X -import Stratosphere.ResourceProperties.WAFv2WebACLRuleGroupReferenceStatement as X -import Stratosphere.ResourceProperties.WAFv2WebACLSizeConstraintStatement as X -import Stratosphere.ResourceProperties.WAFv2WebACLSqliMatchStatement as X -import Stratosphere.ResourceProperties.WAFv2WebACLStatementOne as X -import Stratosphere.ResourceProperties.WAFv2WebACLStatementThree as X -import Stratosphere.ResourceProperties.WAFv2WebACLStatementTwo as X -import Stratosphere.ResourceProperties.WAFv2WebACLTextTransformation as X -import Stratosphere.ResourceProperties.WAFv2WebACLVisibilityConfig as X -import Stratosphere.ResourceProperties.WAFv2WebACLXssMatchStatement as X -import Stratosphere.ResourceProperties.WorkSpacesWorkspaceWorkspaceProperties as X -import Stratosphere.ResourceProperties.ASKSkillAuthenticationConfiguration as X -import Stratosphere.ResourceProperties.ASKSkillOverrides as X -import Stratosphere.ResourceProperties.ASKSkillSkillPackage as X -import Stratosphere.ResourceProperties.Tag as X - -import Stratosphere.ResourceAttributes.AutoScalingReplacingUpdatePolicy as X -import Stratosphere.ResourceAttributes.AutoScalingRollingUpdatePolicy as X -import Stratosphere.ResourceAttributes.AutoScalingScheduledActionPolicy as X -import Stratosphere.ResourceAttributes.CreationPolicy as X -import Stratosphere.ResourceAttributes.ResourceSignal as X -import Stratosphere.ResourceAttributes.UpdatePolicy as X -import Stratosphere.Helpers -import Stratosphere.ResourceProperties -import Stratosphere.Values - -data DeletionPolicy - = Delete - | Retain - | Snapshot - deriving (Show, Eq, Generic) - -instance ToJSON DeletionPolicy where - -data Resource = - Resource - { _resourceName :: T.Text - , _resourceProperties :: ResourceProperties - , _resourceDeletionPolicy :: Maybe DeletionPolicy - , _resourceCreationPolicy :: Maybe CreationPolicy - , _resourceUpdatePolicy :: Maybe UpdatePolicy - , _resourceDependsOn :: Maybe [T.Text] - , _resourceMetadata :: Maybe Object - , _resourceCondition :: Maybe T.Text - } deriving (Show, Eq) - -instance ToRef Resource b where - toRef r = Ref (_resourceName r) - --- | Convenient constructor for 'Resource' with required arguments. -resource - :: (ToResourceProperties a) - => T.Text -- ^ Logical name - -> a - -> Resource -resource rn rp = - Resource - { _resourceName = rn - , _resourceProperties = toResourceProperties rp - , _resourceDeletionPolicy = Nothing - , _resourceCreationPolicy = Nothing - , _resourceUpdatePolicy = Nothing - , _resourceDependsOn = Nothing - , _resourceMetadata = Nothing - , _resourceCondition = Nothing - } - -$(makeLenses ''Resource) - -resourceToJSON :: Resource -> Value -resourceToJSON (Resource _ props dp cp up deps meta cond) = - object $ - resourcePropertiesJSON props ++ - catMaybes - [ maybeField "DeletionPolicy" dp - , maybeField "CreationPolicy" cp - , maybeField "UpdatePolicy" up - , maybeField "DependsOn" deps - , maybeField "Metadata" meta - , maybeField "Condition" cond - ] - --- | Wrapper around a list of 'Resources's to we can modify the aeson --- instances. -newtype Resources = Resources { unResources :: [Resource] } - deriving (Show, Eq, Semigroup, Monoid) - -instance IsList Resources where - type Item Resources = Resource - fromList = Resources - toList = unResources - -instance NamedItem Resource where - itemName = _resourceName - nameToJSON = resourceToJSON - -instance ToJSON Resources where - toJSON = namedItemToJSON . unResources diff --git a/library-gen/Stratosphere/Resources/ACMPCACertificate.hs b/library-gen/Stratosphere/Resources/ACMPCACertificate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ACMPCACertificate.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-acmpca-certificate.html - -module Stratosphere.Resources.ACMPCACertificate where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ACMPCACertificateValidity - --- | Full data type definition for ACMPCACertificate. See 'acmpcaCertificate' --- for a more convenient constructor. -data ACMPCACertificate = - ACMPCACertificate - { _aCMPCACertificateCertificateAuthorityArn :: Val Text - , _aCMPCACertificateCertificateSigningRequest :: Val Text - , _aCMPCACertificateSigningAlgorithm :: Val Text - , _aCMPCACertificateTemplateArn :: Maybe (Val Text) - , _aCMPCACertificateValidity :: ACMPCACertificateValidity - } deriving (Show, Eq) - -instance ToResourceProperties ACMPCACertificate where - toResourceProperties ACMPCACertificate{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ACMPCA::Certificate" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("CertificateAuthorityArn",) . toJSON) _aCMPCACertificateCertificateAuthorityArn - , (Just . ("CertificateSigningRequest",) . toJSON) _aCMPCACertificateCertificateSigningRequest - , (Just . ("SigningAlgorithm",) . toJSON) _aCMPCACertificateSigningAlgorithm - , fmap (("TemplateArn",) . toJSON) _aCMPCACertificateTemplateArn - , (Just . ("Validity",) . toJSON) _aCMPCACertificateValidity - ] - } - --- | Constructor for 'ACMPCACertificate' containing required fields as --- arguments. -acmpcaCertificate - :: Val Text -- ^ 'acmpcacCertificateAuthorityArn' - -> Val Text -- ^ 'acmpcacCertificateSigningRequest' - -> Val Text -- ^ 'acmpcacSigningAlgorithm' - -> ACMPCACertificateValidity -- ^ 'acmpcacValidity' - -> ACMPCACertificate -acmpcaCertificate certificateAuthorityArnarg certificateSigningRequestarg signingAlgorithmarg validityarg = - ACMPCACertificate - { _aCMPCACertificateCertificateAuthorityArn = certificateAuthorityArnarg - , _aCMPCACertificateCertificateSigningRequest = certificateSigningRequestarg - , _aCMPCACertificateSigningAlgorithm = signingAlgorithmarg - , _aCMPCACertificateTemplateArn = Nothing - , _aCMPCACertificateValidity = validityarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-acmpca-certificate.html#cfn-acmpca-certificate-certificateauthorityarn -acmpcacCertificateAuthorityArn :: Lens' ACMPCACertificate (Val Text) -acmpcacCertificateAuthorityArn = lens _aCMPCACertificateCertificateAuthorityArn (\s a -> s { _aCMPCACertificateCertificateAuthorityArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-acmpca-certificate.html#cfn-acmpca-certificate-certificatesigningrequest -acmpcacCertificateSigningRequest :: Lens' ACMPCACertificate (Val Text) -acmpcacCertificateSigningRequest = lens _aCMPCACertificateCertificateSigningRequest (\s a -> s { _aCMPCACertificateCertificateSigningRequest = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-acmpca-certificate.html#cfn-acmpca-certificate-signingalgorithm -acmpcacSigningAlgorithm :: Lens' ACMPCACertificate (Val Text) -acmpcacSigningAlgorithm = lens _aCMPCACertificateSigningAlgorithm (\s a -> s { _aCMPCACertificateSigningAlgorithm = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-acmpca-certificate.html#cfn-acmpca-certificate-templatearn -acmpcacTemplateArn :: Lens' ACMPCACertificate (Maybe (Val Text)) -acmpcacTemplateArn = lens _aCMPCACertificateTemplateArn (\s a -> s { _aCMPCACertificateTemplateArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-acmpca-certificate.html#cfn-acmpca-certificate-validity -acmpcacValidity :: Lens' ACMPCACertificate ACMPCACertificateValidity -acmpcacValidity = lens _aCMPCACertificateValidity (\s a -> s { _aCMPCACertificateValidity = a }) diff --git a/library-gen/Stratosphere/Resources/ACMPCACertificateAuthority.hs b/library-gen/Stratosphere/Resources/ACMPCACertificateAuthority.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ACMPCACertificateAuthority.hs +++ /dev/null @@ -1,82 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-acmpca-certificateauthority.html - -module Stratosphere.Resources.ACMPCACertificateAuthority where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ACMPCACertificateAuthorityRevocationConfiguration -import Stratosphere.ResourceProperties.ACMPCACertificateAuthoritySubject -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for ACMPCACertificateAuthority. See --- 'acmpcaCertificateAuthority' for a more convenient constructor. -data ACMPCACertificateAuthority = - ACMPCACertificateAuthority - { _aCMPCACertificateAuthorityKeyAlgorithm :: Val Text - , _aCMPCACertificateAuthorityRevocationConfiguration :: Maybe ACMPCACertificateAuthorityRevocationConfiguration - , _aCMPCACertificateAuthoritySigningAlgorithm :: Val Text - , _aCMPCACertificateAuthoritySubject :: ACMPCACertificateAuthoritySubject - , _aCMPCACertificateAuthorityTags :: Maybe [Tag] - , _aCMPCACertificateAuthorityType :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties ACMPCACertificateAuthority where - toResourceProperties ACMPCACertificateAuthority{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ACMPCA::CertificateAuthority" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("KeyAlgorithm",) . toJSON) _aCMPCACertificateAuthorityKeyAlgorithm - , fmap (("RevocationConfiguration",) . toJSON) _aCMPCACertificateAuthorityRevocationConfiguration - , (Just . ("SigningAlgorithm",) . toJSON) _aCMPCACertificateAuthoritySigningAlgorithm - , (Just . ("Subject",) . toJSON) _aCMPCACertificateAuthoritySubject - , fmap (("Tags",) . toJSON) _aCMPCACertificateAuthorityTags - , (Just . ("Type",) . toJSON) _aCMPCACertificateAuthorityType - ] - } - --- | Constructor for 'ACMPCACertificateAuthority' containing required fields --- as arguments. -acmpcaCertificateAuthority - :: Val Text -- ^ 'acmpcacaKeyAlgorithm' - -> Val Text -- ^ 'acmpcacaSigningAlgorithm' - -> ACMPCACertificateAuthoritySubject -- ^ 'acmpcacaSubject' - -> Val Text -- ^ 'acmpcacaType' - -> ACMPCACertificateAuthority -acmpcaCertificateAuthority keyAlgorithmarg signingAlgorithmarg subjectarg typearg = - ACMPCACertificateAuthority - { _aCMPCACertificateAuthorityKeyAlgorithm = keyAlgorithmarg - , _aCMPCACertificateAuthorityRevocationConfiguration = Nothing - , _aCMPCACertificateAuthoritySigningAlgorithm = signingAlgorithmarg - , _aCMPCACertificateAuthoritySubject = subjectarg - , _aCMPCACertificateAuthorityTags = Nothing - , _aCMPCACertificateAuthorityType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-acmpca-certificateauthority.html#cfn-acmpca-certificateauthority-keyalgorithm -acmpcacaKeyAlgorithm :: Lens' ACMPCACertificateAuthority (Val Text) -acmpcacaKeyAlgorithm = lens _aCMPCACertificateAuthorityKeyAlgorithm (\s a -> s { _aCMPCACertificateAuthorityKeyAlgorithm = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-acmpca-certificateauthority.html#cfn-acmpca-certificateauthority-revocationconfiguration -acmpcacaRevocationConfiguration :: Lens' ACMPCACertificateAuthority (Maybe ACMPCACertificateAuthorityRevocationConfiguration) -acmpcacaRevocationConfiguration = lens _aCMPCACertificateAuthorityRevocationConfiguration (\s a -> s { _aCMPCACertificateAuthorityRevocationConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-acmpca-certificateauthority.html#cfn-acmpca-certificateauthority-signingalgorithm -acmpcacaSigningAlgorithm :: Lens' ACMPCACertificateAuthority (Val Text) -acmpcacaSigningAlgorithm = lens _aCMPCACertificateAuthoritySigningAlgorithm (\s a -> s { _aCMPCACertificateAuthoritySigningAlgorithm = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-acmpca-certificateauthority.html#cfn-acmpca-certificateauthority-subject -acmpcacaSubject :: Lens' ACMPCACertificateAuthority ACMPCACertificateAuthoritySubject -acmpcacaSubject = lens _aCMPCACertificateAuthoritySubject (\s a -> s { _aCMPCACertificateAuthoritySubject = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-acmpca-certificateauthority.html#cfn-acmpca-certificateauthority-tags -acmpcacaTags :: Lens' ACMPCACertificateAuthority (Maybe [Tag]) -acmpcacaTags = lens _aCMPCACertificateAuthorityTags (\s a -> s { _aCMPCACertificateAuthorityTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-acmpca-certificateauthority.html#cfn-acmpca-certificateauthority-type -acmpcacaType :: Lens' ACMPCACertificateAuthority (Val Text) -acmpcacaType = lens _aCMPCACertificateAuthorityType (\s a -> s { _aCMPCACertificateAuthorityType = a }) diff --git a/library-gen/Stratosphere/Resources/ACMPCACertificateAuthorityActivation.hs b/library-gen/Stratosphere/Resources/ACMPCACertificateAuthorityActivation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ACMPCACertificateAuthorityActivation.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-acmpca-certificateauthorityactivation.html - -module Stratosphere.Resources.ACMPCACertificateAuthorityActivation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ACMPCACertificateAuthorityActivation. See --- 'acmpcaCertificateAuthorityActivation' for a more convenient constructor. -data ACMPCACertificateAuthorityActivation = - ACMPCACertificateAuthorityActivation - { _aCMPCACertificateAuthorityActivationCertificate :: Val Text - , _aCMPCACertificateAuthorityActivationCertificateAuthorityArn :: Val Text - , _aCMPCACertificateAuthorityActivationCertificateChain :: Maybe (Val Text) - , _aCMPCACertificateAuthorityActivationStatus :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties ACMPCACertificateAuthorityActivation where - toResourceProperties ACMPCACertificateAuthorityActivation{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ACMPCA::CertificateAuthorityActivation" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Certificate",) . toJSON) _aCMPCACertificateAuthorityActivationCertificate - , (Just . ("CertificateAuthorityArn",) . toJSON) _aCMPCACertificateAuthorityActivationCertificateAuthorityArn - , fmap (("CertificateChain",) . toJSON) _aCMPCACertificateAuthorityActivationCertificateChain - , fmap (("Status",) . toJSON) _aCMPCACertificateAuthorityActivationStatus - ] - } - --- | Constructor for 'ACMPCACertificateAuthorityActivation' containing --- required fields as arguments. -acmpcaCertificateAuthorityActivation - :: Val Text -- ^ 'acmpcacaaCertificate' - -> Val Text -- ^ 'acmpcacaaCertificateAuthorityArn' - -> ACMPCACertificateAuthorityActivation -acmpcaCertificateAuthorityActivation certificatearg certificateAuthorityArnarg = - ACMPCACertificateAuthorityActivation - { _aCMPCACertificateAuthorityActivationCertificate = certificatearg - , _aCMPCACertificateAuthorityActivationCertificateAuthorityArn = certificateAuthorityArnarg - , _aCMPCACertificateAuthorityActivationCertificateChain = Nothing - , _aCMPCACertificateAuthorityActivationStatus = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-acmpca-certificateauthorityactivation.html#cfn-acmpca-certificateauthorityactivation-certificate -acmpcacaaCertificate :: Lens' ACMPCACertificateAuthorityActivation (Val Text) -acmpcacaaCertificate = lens _aCMPCACertificateAuthorityActivationCertificate (\s a -> s { _aCMPCACertificateAuthorityActivationCertificate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-acmpca-certificateauthorityactivation.html#cfn-acmpca-certificateauthorityactivation-certificateauthorityarn -acmpcacaaCertificateAuthorityArn :: Lens' ACMPCACertificateAuthorityActivation (Val Text) -acmpcacaaCertificateAuthorityArn = lens _aCMPCACertificateAuthorityActivationCertificateAuthorityArn (\s a -> s { _aCMPCACertificateAuthorityActivationCertificateAuthorityArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-acmpca-certificateauthorityactivation.html#cfn-acmpca-certificateauthorityactivation-certificatechain -acmpcacaaCertificateChain :: Lens' ACMPCACertificateAuthorityActivation (Maybe (Val Text)) -acmpcacaaCertificateChain = lens _aCMPCACertificateAuthorityActivationCertificateChain (\s a -> s { _aCMPCACertificateAuthorityActivationCertificateChain = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-acmpca-certificateauthorityactivation.html#cfn-acmpca-certificateauthorityactivation-status -acmpcacaaStatus :: Lens' ACMPCACertificateAuthorityActivation (Maybe (Val Text)) -acmpcacaaStatus = lens _aCMPCACertificateAuthorityActivationStatus (\s a -> s { _aCMPCACertificateAuthorityActivationStatus = a }) diff --git a/library-gen/Stratosphere/Resources/ASKSkill.hs b/library-gen/Stratosphere/Resources/ASKSkill.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ASKSkill.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ask-skill.html - -module Stratosphere.Resources.ASKSkill where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ASKSkillAuthenticationConfiguration -import Stratosphere.ResourceProperties.ASKSkillSkillPackage - --- | Full data type definition for ASKSkill. See 'askSkill' for a more --- convenient constructor. -data ASKSkill = - ASKSkill - { _aSKSkillAuthenticationConfiguration :: ASKSkillAuthenticationConfiguration - , _aSKSkillSkillPackage :: ASKSkillSkillPackage - , _aSKSkillVendorId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties ASKSkill where - toResourceProperties ASKSkill{..} = - ResourceProperties - { resourcePropertiesType = "Alexa::ASK::Skill" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("AuthenticationConfiguration",) . toJSON) _aSKSkillAuthenticationConfiguration - , (Just . ("SkillPackage",) . toJSON) _aSKSkillSkillPackage - , (Just . ("VendorId",) . toJSON) _aSKSkillVendorId - ] - } - --- | Constructor for 'ASKSkill' containing required fields as arguments. -askSkill - :: ASKSkillAuthenticationConfiguration -- ^ 'asksAuthenticationConfiguration' - -> ASKSkillSkillPackage -- ^ 'asksSkillPackage' - -> Val Text -- ^ 'asksVendorId' - -> ASKSkill -askSkill authenticationConfigurationarg skillPackagearg vendorIdarg = - ASKSkill - { _aSKSkillAuthenticationConfiguration = authenticationConfigurationarg - , _aSKSkillSkillPackage = skillPackagearg - , _aSKSkillVendorId = vendorIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ask-skill.html#cfn-ask-skill-authenticationconfiguration -asksAuthenticationConfiguration :: Lens' ASKSkill ASKSkillAuthenticationConfiguration -asksAuthenticationConfiguration = lens _aSKSkillAuthenticationConfiguration (\s a -> s { _aSKSkillAuthenticationConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ask-skill.html#cfn-ask-skill-skillpackage -asksSkillPackage :: Lens' ASKSkill ASKSkillSkillPackage -asksSkillPackage = lens _aSKSkillSkillPackage (\s a -> s { _aSKSkillSkillPackage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ask-skill.html#cfn-ask-skill-vendorid -asksVendorId :: Lens' ASKSkill (Val Text) -asksVendorId = lens _aSKSkillVendorId (\s a -> s { _aSKSkillVendorId = a }) diff --git a/library-gen/Stratosphere/Resources/AccessAnalyzerAnalyzer.hs b/library-gen/Stratosphere/Resources/AccessAnalyzerAnalyzer.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AccessAnalyzerAnalyzer.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-accessanalyzer-analyzer.html - -module Stratosphere.Resources.AccessAnalyzerAnalyzer where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AccessAnalyzerAnalyzerArchiveRule -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for AccessAnalyzerAnalyzer. See --- 'accessAnalyzerAnalyzer' for a more convenient constructor. -data AccessAnalyzerAnalyzer = - AccessAnalyzerAnalyzer - { _accessAnalyzerAnalyzerAnalyzerName :: Maybe (Val Text) - , _accessAnalyzerAnalyzerArchiveRules :: Maybe [AccessAnalyzerAnalyzerArchiveRule] - , _accessAnalyzerAnalyzerTags :: Maybe [Tag] - , _accessAnalyzerAnalyzerType :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties AccessAnalyzerAnalyzer where - toResourceProperties AccessAnalyzerAnalyzer{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AccessAnalyzer::Analyzer" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AnalyzerName",) . toJSON) _accessAnalyzerAnalyzerAnalyzerName - , fmap (("ArchiveRules",) . toJSON) _accessAnalyzerAnalyzerArchiveRules - , fmap (("Tags",) . toJSON) _accessAnalyzerAnalyzerTags - , (Just . ("Type",) . toJSON) _accessAnalyzerAnalyzerType - ] - } - --- | Constructor for 'AccessAnalyzerAnalyzer' containing required fields as --- arguments. -accessAnalyzerAnalyzer - :: Val Text -- ^ 'aaaType' - -> AccessAnalyzerAnalyzer -accessAnalyzerAnalyzer typearg = - AccessAnalyzerAnalyzer - { _accessAnalyzerAnalyzerAnalyzerName = Nothing - , _accessAnalyzerAnalyzerArchiveRules = Nothing - , _accessAnalyzerAnalyzerTags = Nothing - , _accessAnalyzerAnalyzerType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-accessanalyzer-analyzer.html#cfn-accessanalyzer-analyzer-analyzername -aaaAnalyzerName :: Lens' AccessAnalyzerAnalyzer (Maybe (Val Text)) -aaaAnalyzerName = lens _accessAnalyzerAnalyzerAnalyzerName (\s a -> s { _accessAnalyzerAnalyzerAnalyzerName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-accessanalyzer-analyzer.html#cfn-accessanalyzer-analyzer-archiverules -aaaArchiveRules :: Lens' AccessAnalyzerAnalyzer (Maybe [AccessAnalyzerAnalyzerArchiveRule]) -aaaArchiveRules = lens _accessAnalyzerAnalyzerArchiveRules (\s a -> s { _accessAnalyzerAnalyzerArchiveRules = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-accessanalyzer-analyzer.html#cfn-accessanalyzer-analyzer-tags -aaaTags :: Lens' AccessAnalyzerAnalyzer (Maybe [Tag]) -aaaTags = lens _accessAnalyzerAnalyzerTags (\s a -> s { _accessAnalyzerAnalyzerTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-accessanalyzer-analyzer.html#cfn-accessanalyzer-analyzer-type -aaaType :: Lens' AccessAnalyzerAnalyzer (Val Text) -aaaType = lens _accessAnalyzerAnalyzerType (\s a -> s { _accessAnalyzerAnalyzerType = a }) diff --git a/library-gen/Stratosphere/Resources/AmazonMQBroker.hs b/library-gen/Stratosphere/Resources/AmazonMQBroker.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AmazonMQBroker.hs +++ /dev/null @@ -1,181 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-broker.html - -module Stratosphere.Resources.AmazonMQBroker where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AmazonMQBrokerConfigurationId -import Stratosphere.ResourceProperties.AmazonMQBrokerEncryptionOptions -import Stratosphere.ResourceProperties.AmazonMQBrokerLdapMetadata -import Stratosphere.ResourceProperties.AmazonMQBrokerLdapServerMetadata -import Stratosphere.ResourceProperties.AmazonMQBrokerLogList -import Stratosphere.ResourceProperties.AmazonMQBrokerMaintenanceWindow -import Stratosphere.ResourceProperties.AmazonMQBrokerTagsEntry -import Stratosphere.ResourceProperties.AmazonMQBrokerUser - --- | Full data type definition for AmazonMQBroker. See 'amazonMQBroker' for a --- more convenient constructor. -data AmazonMQBroker = - AmazonMQBroker - { _amazonMQBrokerAuthenticationStrategy :: Maybe (Val Text) - , _amazonMQBrokerAutoMinorVersionUpgrade :: Val Bool - , _amazonMQBrokerBrokerName :: Val Text - , _amazonMQBrokerConfiguration :: Maybe AmazonMQBrokerConfigurationId - , _amazonMQBrokerDeploymentMode :: Val Text - , _amazonMQBrokerEncryptionOptions :: Maybe AmazonMQBrokerEncryptionOptions - , _amazonMQBrokerEngineType :: Val Text - , _amazonMQBrokerEngineVersion :: Val Text - , _amazonMQBrokerHostInstanceType :: Val Text - , _amazonMQBrokerLdapMetadata :: Maybe AmazonMQBrokerLdapMetadata - , _amazonMQBrokerLdapServerMetadata :: Maybe AmazonMQBrokerLdapServerMetadata - , _amazonMQBrokerLogs :: Maybe AmazonMQBrokerLogList - , _amazonMQBrokerMaintenanceWindowStartTime :: Maybe AmazonMQBrokerMaintenanceWindow - , _amazonMQBrokerPubliclyAccessible :: Val Bool - , _amazonMQBrokerSecurityGroups :: Maybe (ValList Text) - , _amazonMQBrokerStorageType :: Maybe (Val Text) - , _amazonMQBrokerSubnetIds :: Maybe (ValList Text) - , _amazonMQBrokerTags :: Maybe [AmazonMQBrokerTagsEntry] - , _amazonMQBrokerUsers :: [AmazonMQBrokerUser] - } deriving (Show, Eq) - -instance ToResourceProperties AmazonMQBroker where - toResourceProperties AmazonMQBroker{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AmazonMQ::Broker" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AuthenticationStrategy",) . toJSON) _amazonMQBrokerAuthenticationStrategy - , (Just . ("AutoMinorVersionUpgrade",) . toJSON) _amazonMQBrokerAutoMinorVersionUpgrade - , (Just . ("BrokerName",) . toJSON) _amazonMQBrokerBrokerName - , fmap (("Configuration",) . toJSON) _amazonMQBrokerConfiguration - , (Just . ("DeploymentMode",) . toJSON) _amazonMQBrokerDeploymentMode - , fmap (("EncryptionOptions",) . toJSON) _amazonMQBrokerEncryptionOptions - , (Just . ("EngineType",) . toJSON) _amazonMQBrokerEngineType - , (Just . ("EngineVersion",) . toJSON) _amazonMQBrokerEngineVersion - , (Just . ("HostInstanceType",) . toJSON) _amazonMQBrokerHostInstanceType - , fmap (("LdapMetadata",) . toJSON) _amazonMQBrokerLdapMetadata - , fmap (("LdapServerMetadata",) . toJSON) _amazonMQBrokerLdapServerMetadata - , fmap (("Logs",) . toJSON) _amazonMQBrokerLogs - , fmap (("MaintenanceWindowStartTime",) . toJSON) _amazonMQBrokerMaintenanceWindowStartTime - , (Just . ("PubliclyAccessible",) . toJSON) _amazonMQBrokerPubliclyAccessible - , fmap (("SecurityGroups",) . toJSON) _amazonMQBrokerSecurityGroups - , fmap (("StorageType",) . toJSON) _amazonMQBrokerStorageType - , fmap (("SubnetIds",) . toJSON) _amazonMQBrokerSubnetIds - , fmap (("Tags",) . toJSON) _amazonMQBrokerTags - , (Just . ("Users",) . toJSON) _amazonMQBrokerUsers - ] - } - --- | Constructor for 'AmazonMQBroker' containing required fields as arguments. -amazonMQBroker - :: Val Bool -- ^ 'amqbAutoMinorVersionUpgrade' - -> Val Text -- ^ 'amqbBrokerName' - -> Val Text -- ^ 'amqbDeploymentMode' - -> Val Text -- ^ 'amqbEngineType' - -> Val Text -- ^ 'amqbEngineVersion' - -> Val Text -- ^ 'amqbHostInstanceType' - -> Val Bool -- ^ 'amqbPubliclyAccessible' - -> [AmazonMQBrokerUser] -- ^ 'amqbUsers' - -> AmazonMQBroker -amazonMQBroker autoMinorVersionUpgradearg brokerNamearg deploymentModearg engineTypearg engineVersionarg hostInstanceTypearg publiclyAccessiblearg usersarg = - AmazonMQBroker - { _amazonMQBrokerAuthenticationStrategy = Nothing - , _amazonMQBrokerAutoMinorVersionUpgrade = autoMinorVersionUpgradearg - , _amazonMQBrokerBrokerName = brokerNamearg - , _amazonMQBrokerConfiguration = Nothing - , _amazonMQBrokerDeploymentMode = deploymentModearg - , _amazonMQBrokerEncryptionOptions = Nothing - , _amazonMQBrokerEngineType = engineTypearg - , _amazonMQBrokerEngineVersion = engineVersionarg - , _amazonMQBrokerHostInstanceType = hostInstanceTypearg - , _amazonMQBrokerLdapMetadata = Nothing - , _amazonMQBrokerLdapServerMetadata = Nothing - , _amazonMQBrokerLogs = Nothing - , _amazonMQBrokerMaintenanceWindowStartTime = Nothing - , _amazonMQBrokerPubliclyAccessible = publiclyAccessiblearg - , _amazonMQBrokerSecurityGroups = Nothing - , _amazonMQBrokerStorageType = Nothing - , _amazonMQBrokerSubnetIds = Nothing - , _amazonMQBrokerTags = Nothing - , _amazonMQBrokerUsers = usersarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-broker.html#cfn-amazonmq-broker-authenticationstrategy -amqbAuthenticationStrategy :: Lens' AmazonMQBroker (Maybe (Val Text)) -amqbAuthenticationStrategy = lens _amazonMQBrokerAuthenticationStrategy (\s a -> s { _amazonMQBrokerAuthenticationStrategy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-broker.html#cfn-amazonmq-broker-autominorversionupgrade -amqbAutoMinorVersionUpgrade :: Lens' AmazonMQBroker (Val Bool) -amqbAutoMinorVersionUpgrade = lens _amazonMQBrokerAutoMinorVersionUpgrade (\s a -> s { _amazonMQBrokerAutoMinorVersionUpgrade = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-broker.html#cfn-amazonmq-broker-brokername -amqbBrokerName :: Lens' AmazonMQBroker (Val Text) -amqbBrokerName = lens _amazonMQBrokerBrokerName (\s a -> s { _amazonMQBrokerBrokerName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-broker.html#cfn-amazonmq-broker-configuration -amqbConfiguration :: Lens' AmazonMQBroker (Maybe AmazonMQBrokerConfigurationId) -amqbConfiguration = lens _amazonMQBrokerConfiguration (\s a -> s { _amazonMQBrokerConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-broker.html#cfn-amazonmq-broker-deploymentmode -amqbDeploymentMode :: Lens' AmazonMQBroker (Val Text) -amqbDeploymentMode = lens _amazonMQBrokerDeploymentMode (\s a -> s { _amazonMQBrokerDeploymentMode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-broker.html#cfn-amazonmq-broker-encryptionoptions -amqbEncryptionOptions :: Lens' AmazonMQBroker (Maybe AmazonMQBrokerEncryptionOptions) -amqbEncryptionOptions = lens _amazonMQBrokerEncryptionOptions (\s a -> s { _amazonMQBrokerEncryptionOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-broker.html#cfn-amazonmq-broker-enginetype -amqbEngineType :: Lens' AmazonMQBroker (Val Text) -amqbEngineType = lens _amazonMQBrokerEngineType (\s a -> s { _amazonMQBrokerEngineType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-broker.html#cfn-amazonmq-broker-engineversion -amqbEngineVersion :: Lens' AmazonMQBroker (Val Text) -amqbEngineVersion = lens _amazonMQBrokerEngineVersion (\s a -> s { _amazonMQBrokerEngineVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-broker.html#cfn-amazonmq-broker-hostinstancetype -amqbHostInstanceType :: Lens' AmazonMQBroker (Val Text) -amqbHostInstanceType = lens _amazonMQBrokerHostInstanceType (\s a -> s { _amazonMQBrokerHostInstanceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-broker.html#cfn-amazonmq-broker-ldapmetadata -amqbLdapMetadata :: Lens' AmazonMQBroker (Maybe AmazonMQBrokerLdapMetadata) -amqbLdapMetadata = lens _amazonMQBrokerLdapMetadata (\s a -> s { _amazonMQBrokerLdapMetadata = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-broker.html#cfn-amazonmq-broker-ldapservermetadata -amqbLdapServerMetadata :: Lens' AmazonMQBroker (Maybe AmazonMQBrokerLdapServerMetadata) -amqbLdapServerMetadata = lens _amazonMQBrokerLdapServerMetadata (\s a -> s { _amazonMQBrokerLdapServerMetadata = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-broker.html#cfn-amazonmq-broker-logs -amqbLogs :: Lens' AmazonMQBroker (Maybe AmazonMQBrokerLogList) -amqbLogs = lens _amazonMQBrokerLogs (\s a -> s { _amazonMQBrokerLogs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-broker.html#cfn-amazonmq-broker-maintenancewindowstarttime -amqbMaintenanceWindowStartTime :: Lens' AmazonMQBroker (Maybe AmazonMQBrokerMaintenanceWindow) -amqbMaintenanceWindowStartTime = lens _amazonMQBrokerMaintenanceWindowStartTime (\s a -> s { _amazonMQBrokerMaintenanceWindowStartTime = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-broker.html#cfn-amazonmq-broker-publiclyaccessible -amqbPubliclyAccessible :: Lens' AmazonMQBroker (Val Bool) -amqbPubliclyAccessible = lens _amazonMQBrokerPubliclyAccessible (\s a -> s { _amazonMQBrokerPubliclyAccessible = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-broker.html#cfn-amazonmq-broker-securitygroups -amqbSecurityGroups :: Lens' AmazonMQBroker (Maybe (ValList Text)) -amqbSecurityGroups = lens _amazonMQBrokerSecurityGroups (\s a -> s { _amazonMQBrokerSecurityGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-broker.html#cfn-amazonmq-broker-storagetype -amqbStorageType :: Lens' AmazonMQBroker (Maybe (Val Text)) -amqbStorageType = lens _amazonMQBrokerStorageType (\s a -> s { _amazonMQBrokerStorageType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-broker.html#cfn-amazonmq-broker-subnetids -amqbSubnetIds :: Lens' AmazonMQBroker (Maybe (ValList Text)) -amqbSubnetIds = lens _amazonMQBrokerSubnetIds (\s a -> s { _amazonMQBrokerSubnetIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-broker.html#cfn-amazonmq-broker-tags -amqbTags :: Lens' AmazonMQBroker (Maybe [AmazonMQBrokerTagsEntry]) -amqbTags = lens _amazonMQBrokerTags (\s a -> s { _amazonMQBrokerTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-broker.html#cfn-amazonmq-broker-users -amqbUsers :: Lens' AmazonMQBroker [AmazonMQBrokerUser] -amqbUsers = lens _amazonMQBrokerUsers (\s a -> s { _amazonMQBrokerUsers = a }) diff --git a/library-gen/Stratosphere/Resources/AmazonMQConfiguration.hs b/library-gen/Stratosphere/Resources/AmazonMQConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AmazonMQConfiguration.hs +++ /dev/null @@ -1,80 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-configuration.html - -module Stratosphere.Resources.AmazonMQConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AmazonMQConfigurationTagsEntry - --- | Full data type definition for AmazonMQConfiguration. See --- 'amazonMQConfiguration' for a more convenient constructor. -data AmazonMQConfiguration = - AmazonMQConfiguration - { _amazonMQConfigurationData :: Val Text - , _amazonMQConfigurationDescription :: Maybe (Val Text) - , _amazonMQConfigurationEngineType :: Val Text - , _amazonMQConfigurationEngineVersion :: Val Text - , _amazonMQConfigurationName :: Val Text - , _amazonMQConfigurationTags :: Maybe [AmazonMQConfigurationTagsEntry] - } deriving (Show, Eq) - -instance ToResourceProperties AmazonMQConfiguration where - toResourceProperties AmazonMQConfiguration{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AmazonMQ::Configuration" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Data",) . toJSON) _amazonMQConfigurationData - , fmap (("Description",) . toJSON) _amazonMQConfigurationDescription - , (Just . ("EngineType",) . toJSON) _amazonMQConfigurationEngineType - , (Just . ("EngineVersion",) . toJSON) _amazonMQConfigurationEngineVersion - , (Just . ("Name",) . toJSON) _amazonMQConfigurationName - , fmap (("Tags",) . toJSON) _amazonMQConfigurationTags - ] - } - --- | Constructor for 'AmazonMQConfiguration' containing required fields as --- arguments. -amazonMQConfiguration - :: Val Text -- ^ 'amqcData' - -> Val Text -- ^ 'amqcEngineType' - -> Val Text -- ^ 'amqcEngineVersion' - -> Val Text -- ^ 'amqcName' - -> AmazonMQConfiguration -amazonMQConfiguration dataarg engineTypearg engineVersionarg namearg = - AmazonMQConfiguration - { _amazonMQConfigurationData = dataarg - , _amazonMQConfigurationDescription = Nothing - , _amazonMQConfigurationEngineType = engineTypearg - , _amazonMQConfigurationEngineVersion = engineVersionarg - , _amazonMQConfigurationName = namearg - , _amazonMQConfigurationTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-configuration.html#cfn-amazonmq-configuration-data -amqcData :: Lens' AmazonMQConfiguration (Val Text) -amqcData = lens _amazonMQConfigurationData (\s a -> s { _amazonMQConfigurationData = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-configuration.html#cfn-amazonmq-configuration-description -amqcDescription :: Lens' AmazonMQConfiguration (Maybe (Val Text)) -amqcDescription = lens _amazonMQConfigurationDescription (\s a -> s { _amazonMQConfigurationDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-configuration.html#cfn-amazonmq-configuration-enginetype -amqcEngineType :: Lens' AmazonMQConfiguration (Val Text) -amqcEngineType = lens _amazonMQConfigurationEngineType (\s a -> s { _amazonMQConfigurationEngineType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-configuration.html#cfn-amazonmq-configuration-engineversion -amqcEngineVersion :: Lens' AmazonMQConfiguration (Val Text) -amqcEngineVersion = lens _amazonMQConfigurationEngineVersion (\s a -> s { _amazonMQConfigurationEngineVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-configuration.html#cfn-amazonmq-configuration-name -amqcName :: Lens' AmazonMQConfiguration (Val Text) -amqcName = lens _amazonMQConfigurationName (\s a -> s { _amazonMQConfigurationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-configuration.html#cfn-amazonmq-configuration-tags -amqcTags :: Lens' AmazonMQConfiguration (Maybe [AmazonMQConfigurationTagsEntry]) -amqcTags = lens _amazonMQConfigurationTags (\s a -> s { _amazonMQConfigurationTags = a }) diff --git a/library-gen/Stratosphere/Resources/AmazonMQConfigurationAssociation.hs b/library-gen/Stratosphere/Resources/AmazonMQConfigurationAssociation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AmazonMQConfigurationAssociation.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-configurationassociation.html - -module Stratosphere.Resources.AmazonMQConfigurationAssociation where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AmazonMQConfigurationAssociationConfigurationId - --- | Full data type definition for AmazonMQConfigurationAssociation. See --- 'amazonMQConfigurationAssociation' for a more convenient constructor. -data AmazonMQConfigurationAssociation = - AmazonMQConfigurationAssociation - { _amazonMQConfigurationAssociationBroker :: Val Text - , _amazonMQConfigurationAssociationConfiguration :: AmazonMQConfigurationAssociationConfigurationId - } deriving (Show, Eq) - -instance ToResourceProperties AmazonMQConfigurationAssociation where - toResourceProperties AmazonMQConfigurationAssociation{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AmazonMQ::ConfigurationAssociation" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Broker",) . toJSON) _amazonMQConfigurationAssociationBroker - , (Just . ("Configuration",) . toJSON) _amazonMQConfigurationAssociationConfiguration - ] - } - --- | Constructor for 'AmazonMQConfigurationAssociation' containing required --- fields as arguments. -amazonMQConfigurationAssociation - :: Val Text -- ^ 'amqcaBroker' - -> AmazonMQConfigurationAssociationConfigurationId -- ^ 'amqcaConfiguration' - -> AmazonMQConfigurationAssociation -amazonMQConfigurationAssociation brokerarg configurationarg = - AmazonMQConfigurationAssociation - { _amazonMQConfigurationAssociationBroker = brokerarg - , _amazonMQConfigurationAssociationConfiguration = configurationarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-configurationassociation.html#cfn-amazonmq-configurationassociation-broker -amqcaBroker :: Lens' AmazonMQConfigurationAssociation (Val Text) -amqcaBroker = lens _amazonMQConfigurationAssociationBroker (\s a -> s { _amazonMQConfigurationAssociationBroker = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amazonmq-configurationassociation.html#cfn-amazonmq-configurationassociation-configuration -amqcaConfiguration :: Lens' AmazonMQConfigurationAssociation AmazonMQConfigurationAssociationConfigurationId -amqcaConfiguration = lens _amazonMQConfigurationAssociationConfiguration (\s a -> s { _amazonMQConfigurationAssociationConfiguration = a }) diff --git a/library-gen/Stratosphere/Resources/AmplifyApp.hs b/library-gen/Stratosphere/Resources/AmplifyApp.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AmplifyApp.hs +++ /dev/null @@ -1,129 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-app.html - -module Stratosphere.Resources.AmplifyApp where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AmplifyAppAutoBranchCreationConfig -import Stratosphere.ResourceProperties.AmplifyAppBasicAuthConfig -import Stratosphere.ResourceProperties.AmplifyAppCustomRule -import Stratosphere.ResourceProperties.AmplifyAppEnvironmentVariable -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for AmplifyApp. See 'amplifyApp' for a more --- convenient constructor. -data AmplifyApp = - AmplifyApp - { _amplifyAppAccessToken :: Maybe (Val Text) - , _amplifyAppAutoBranchCreationConfig :: Maybe AmplifyAppAutoBranchCreationConfig - , _amplifyAppBasicAuthConfig :: Maybe AmplifyAppBasicAuthConfig - , _amplifyAppBuildSpec :: Maybe (Val Text) - , _amplifyAppCustomRules :: Maybe [AmplifyAppCustomRule] - , _amplifyAppDescription :: Maybe (Val Text) - , _amplifyAppEnableBranchAutoDeletion :: Maybe (Val Bool) - , _amplifyAppEnvironmentVariables :: Maybe [AmplifyAppEnvironmentVariable] - , _amplifyAppIAMServiceRole :: Maybe (Val Text) - , _amplifyAppName :: Val Text - , _amplifyAppOauthToken :: Maybe (Val Text) - , _amplifyAppRepository :: Maybe (Val Text) - , _amplifyAppTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties AmplifyApp where - toResourceProperties AmplifyApp{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Amplify::App" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AccessToken",) . toJSON) _amplifyAppAccessToken - , fmap (("AutoBranchCreationConfig",) . toJSON) _amplifyAppAutoBranchCreationConfig - , fmap (("BasicAuthConfig",) . toJSON) _amplifyAppBasicAuthConfig - , fmap (("BuildSpec",) . toJSON) _amplifyAppBuildSpec - , fmap (("CustomRules",) . toJSON) _amplifyAppCustomRules - , fmap (("Description",) . toJSON) _amplifyAppDescription - , fmap (("EnableBranchAutoDeletion",) . toJSON) _amplifyAppEnableBranchAutoDeletion - , fmap (("EnvironmentVariables",) . toJSON) _amplifyAppEnvironmentVariables - , fmap (("IAMServiceRole",) . toJSON) _amplifyAppIAMServiceRole - , (Just . ("Name",) . toJSON) _amplifyAppName - , fmap (("OauthToken",) . toJSON) _amplifyAppOauthToken - , fmap (("Repository",) . toJSON) _amplifyAppRepository - , fmap (("Tags",) . toJSON) _amplifyAppTags - ] - } - --- | Constructor for 'AmplifyApp' containing required fields as arguments. -amplifyApp - :: Val Text -- ^ 'aaName' - -> AmplifyApp -amplifyApp namearg = - AmplifyApp - { _amplifyAppAccessToken = Nothing - , _amplifyAppAutoBranchCreationConfig = Nothing - , _amplifyAppBasicAuthConfig = Nothing - , _amplifyAppBuildSpec = Nothing - , _amplifyAppCustomRules = Nothing - , _amplifyAppDescription = Nothing - , _amplifyAppEnableBranchAutoDeletion = Nothing - , _amplifyAppEnvironmentVariables = Nothing - , _amplifyAppIAMServiceRole = Nothing - , _amplifyAppName = namearg - , _amplifyAppOauthToken = Nothing - , _amplifyAppRepository = Nothing - , _amplifyAppTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-app.html#cfn-amplify-app-accesstoken -aaAccessToken :: Lens' AmplifyApp (Maybe (Val Text)) -aaAccessToken = lens _amplifyAppAccessToken (\s a -> s { _amplifyAppAccessToken = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-app.html#cfn-amplify-app-autobranchcreationconfig -aaAutoBranchCreationConfig :: Lens' AmplifyApp (Maybe AmplifyAppAutoBranchCreationConfig) -aaAutoBranchCreationConfig = lens _amplifyAppAutoBranchCreationConfig (\s a -> s { _amplifyAppAutoBranchCreationConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-app.html#cfn-amplify-app-basicauthconfig -aaBasicAuthConfig :: Lens' AmplifyApp (Maybe AmplifyAppBasicAuthConfig) -aaBasicAuthConfig = lens _amplifyAppBasicAuthConfig (\s a -> s { _amplifyAppBasicAuthConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-app.html#cfn-amplify-app-buildspec -aaBuildSpec :: Lens' AmplifyApp (Maybe (Val Text)) -aaBuildSpec = lens _amplifyAppBuildSpec (\s a -> s { _amplifyAppBuildSpec = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-app.html#cfn-amplify-app-customrules -aaCustomRules :: Lens' AmplifyApp (Maybe [AmplifyAppCustomRule]) -aaCustomRules = lens _amplifyAppCustomRules (\s a -> s { _amplifyAppCustomRules = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-app.html#cfn-amplify-app-description -aaDescription :: Lens' AmplifyApp (Maybe (Val Text)) -aaDescription = lens _amplifyAppDescription (\s a -> s { _amplifyAppDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-app.html#cfn-amplify-app-enablebranchautodeletion -aaEnableBranchAutoDeletion :: Lens' AmplifyApp (Maybe (Val Bool)) -aaEnableBranchAutoDeletion = lens _amplifyAppEnableBranchAutoDeletion (\s a -> s { _amplifyAppEnableBranchAutoDeletion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-app.html#cfn-amplify-app-environmentvariables -aaEnvironmentVariables :: Lens' AmplifyApp (Maybe [AmplifyAppEnvironmentVariable]) -aaEnvironmentVariables = lens _amplifyAppEnvironmentVariables (\s a -> s { _amplifyAppEnvironmentVariables = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-app.html#cfn-amplify-app-iamservicerole -aaIAMServiceRole :: Lens' AmplifyApp (Maybe (Val Text)) -aaIAMServiceRole = lens _amplifyAppIAMServiceRole (\s a -> s { _amplifyAppIAMServiceRole = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-app.html#cfn-amplify-app-name -aaName :: Lens' AmplifyApp (Val Text) -aaName = lens _amplifyAppName (\s a -> s { _amplifyAppName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-app.html#cfn-amplify-app-oauthtoken -aaOauthToken :: Lens' AmplifyApp (Maybe (Val Text)) -aaOauthToken = lens _amplifyAppOauthToken (\s a -> s { _amplifyAppOauthToken = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-app.html#cfn-amplify-app-repository -aaRepository :: Lens' AmplifyApp (Maybe (Val Text)) -aaRepository = lens _amplifyAppRepository (\s a -> s { _amplifyAppRepository = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-app.html#cfn-amplify-app-tags -aaTags :: Lens' AmplifyApp (Maybe [Tag]) -aaTags = lens _amplifyAppTags (\s a -> s { _amplifyAppTags = a }) diff --git a/library-gen/Stratosphere/Resources/AmplifyBranch.hs b/library-gen/Stratosphere/Resources/AmplifyBranch.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AmplifyBranch.hs +++ /dev/null @@ -1,114 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-branch.html - -module Stratosphere.Resources.AmplifyBranch where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AmplifyBranchBasicAuthConfig -import Stratosphere.ResourceProperties.AmplifyBranchEnvironmentVariable -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for AmplifyBranch. See 'amplifyBranch' for a --- more convenient constructor. -data AmplifyBranch = - AmplifyBranch - { _amplifyBranchAppId :: Val Text - , _amplifyBranchBasicAuthConfig :: Maybe AmplifyBranchBasicAuthConfig - , _amplifyBranchBranchName :: Val Text - , _amplifyBranchBuildSpec :: Maybe (Val Text) - , _amplifyBranchDescription :: Maybe (Val Text) - , _amplifyBranchEnableAutoBuild :: Maybe (Val Bool) - , _amplifyBranchEnablePullRequestPreview :: Maybe (Val Bool) - , _amplifyBranchEnvironmentVariables :: Maybe [AmplifyBranchEnvironmentVariable] - , _amplifyBranchPullRequestEnvironmentName :: Maybe (Val Text) - , _amplifyBranchStage :: Maybe (Val Text) - , _amplifyBranchTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties AmplifyBranch where - toResourceProperties AmplifyBranch{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Amplify::Branch" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("AppId",) . toJSON) _amplifyBranchAppId - , fmap (("BasicAuthConfig",) . toJSON) _amplifyBranchBasicAuthConfig - , (Just . ("BranchName",) . toJSON) _amplifyBranchBranchName - , fmap (("BuildSpec",) . toJSON) _amplifyBranchBuildSpec - , fmap (("Description",) . toJSON) _amplifyBranchDescription - , fmap (("EnableAutoBuild",) . toJSON) _amplifyBranchEnableAutoBuild - , fmap (("EnablePullRequestPreview",) . toJSON) _amplifyBranchEnablePullRequestPreview - , fmap (("EnvironmentVariables",) . toJSON) _amplifyBranchEnvironmentVariables - , fmap (("PullRequestEnvironmentName",) . toJSON) _amplifyBranchPullRequestEnvironmentName - , fmap (("Stage",) . toJSON) _amplifyBranchStage - , fmap (("Tags",) . toJSON) _amplifyBranchTags - ] - } - --- | Constructor for 'AmplifyBranch' containing required fields as arguments. -amplifyBranch - :: Val Text -- ^ 'abAppId' - -> Val Text -- ^ 'abBranchName' - -> AmplifyBranch -amplifyBranch appIdarg branchNamearg = - AmplifyBranch - { _amplifyBranchAppId = appIdarg - , _amplifyBranchBasicAuthConfig = Nothing - , _amplifyBranchBranchName = branchNamearg - , _amplifyBranchBuildSpec = Nothing - , _amplifyBranchDescription = Nothing - , _amplifyBranchEnableAutoBuild = Nothing - , _amplifyBranchEnablePullRequestPreview = Nothing - , _amplifyBranchEnvironmentVariables = Nothing - , _amplifyBranchPullRequestEnvironmentName = Nothing - , _amplifyBranchStage = Nothing - , _amplifyBranchTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-branch.html#cfn-amplify-branch-appid -abAppId :: Lens' AmplifyBranch (Val Text) -abAppId = lens _amplifyBranchAppId (\s a -> s { _amplifyBranchAppId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-branch.html#cfn-amplify-branch-basicauthconfig -abBasicAuthConfig :: Lens' AmplifyBranch (Maybe AmplifyBranchBasicAuthConfig) -abBasicAuthConfig = lens _amplifyBranchBasicAuthConfig (\s a -> s { _amplifyBranchBasicAuthConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-branch.html#cfn-amplify-branch-branchname -abBranchName :: Lens' AmplifyBranch (Val Text) -abBranchName = lens _amplifyBranchBranchName (\s a -> s { _amplifyBranchBranchName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-branch.html#cfn-amplify-branch-buildspec -abBuildSpec :: Lens' AmplifyBranch (Maybe (Val Text)) -abBuildSpec = lens _amplifyBranchBuildSpec (\s a -> s { _amplifyBranchBuildSpec = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-branch.html#cfn-amplify-branch-description -abDescription :: Lens' AmplifyBranch (Maybe (Val Text)) -abDescription = lens _amplifyBranchDescription (\s a -> s { _amplifyBranchDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-branch.html#cfn-amplify-branch-enableautobuild -abEnableAutoBuild :: Lens' AmplifyBranch (Maybe (Val Bool)) -abEnableAutoBuild = lens _amplifyBranchEnableAutoBuild (\s a -> s { _amplifyBranchEnableAutoBuild = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-branch.html#cfn-amplify-branch-enablepullrequestpreview -abEnablePullRequestPreview :: Lens' AmplifyBranch (Maybe (Val Bool)) -abEnablePullRequestPreview = lens _amplifyBranchEnablePullRequestPreview (\s a -> s { _amplifyBranchEnablePullRequestPreview = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-branch.html#cfn-amplify-branch-environmentvariables -abEnvironmentVariables :: Lens' AmplifyBranch (Maybe [AmplifyBranchEnvironmentVariable]) -abEnvironmentVariables = lens _amplifyBranchEnvironmentVariables (\s a -> s { _amplifyBranchEnvironmentVariables = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-branch.html#cfn-amplify-branch-pullrequestenvironmentname -abPullRequestEnvironmentName :: Lens' AmplifyBranch (Maybe (Val Text)) -abPullRequestEnvironmentName = lens _amplifyBranchPullRequestEnvironmentName (\s a -> s { _amplifyBranchPullRequestEnvironmentName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-branch.html#cfn-amplify-branch-stage -abStage :: Lens' AmplifyBranch (Maybe (Val Text)) -abStage = lens _amplifyBranchStage (\s a -> s { _amplifyBranchStage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-branch.html#cfn-amplify-branch-tags -abTags :: Lens' AmplifyBranch (Maybe [Tag]) -abTags = lens _amplifyBranchTags (\s a -> s { _amplifyBranchTags = a }) diff --git a/library-gen/Stratosphere/Resources/AmplifyDomain.hs b/library-gen/Stratosphere/Resources/AmplifyDomain.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AmplifyDomain.hs +++ /dev/null @@ -1,78 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-domain.html - -module Stratosphere.Resources.AmplifyDomain where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AmplifyDomainSubDomainSetting - --- | Full data type definition for AmplifyDomain. See 'amplifyDomain' for a --- more convenient constructor. -data AmplifyDomain = - AmplifyDomain - { _amplifyDomainAppId :: Val Text - , _amplifyDomainAutoSubDomainCreationPatterns :: Maybe (ValList Text) - , _amplifyDomainAutoSubDomainIAMRole :: Maybe (Val Text) - , _amplifyDomainDomainName :: Val Text - , _amplifyDomainEnableAutoSubDomain :: Maybe (Val Bool) - , _amplifyDomainSubDomainSettings :: [AmplifyDomainSubDomainSetting] - } deriving (Show, Eq) - -instance ToResourceProperties AmplifyDomain where - toResourceProperties AmplifyDomain{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Amplify::Domain" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("AppId",) . toJSON) _amplifyDomainAppId - , fmap (("AutoSubDomainCreationPatterns",) . toJSON) _amplifyDomainAutoSubDomainCreationPatterns - , fmap (("AutoSubDomainIAMRole",) . toJSON) _amplifyDomainAutoSubDomainIAMRole - , (Just . ("DomainName",) . toJSON) _amplifyDomainDomainName - , fmap (("EnableAutoSubDomain",) . toJSON) _amplifyDomainEnableAutoSubDomain - , (Just . ("SubDomainSettings",) . toJSON) _amplifyDomainSubDomainSettings - ] - } - --- | Constructor for 'AmplifyDomain' containing required fields as arguments. -amplifyDomain - :: Val Text -- ^ 'adAppId' - -> Val Text -- ^ 'adDomainName' - -> [AmplifyDomainSubDomainSetting] -- ^ 'adSubDomainSettings' - -> AmplifyDomain -amplifyDomain appIdarg domainNamearg subDomainSettingsarg = - AmplifyDomain - { _amplifyDomainAppId = appIdarg - , _amplifyDomainAutoSubDomainCreationPatterns = Nothing - , _amplifyDomainAutoSubDomainIAMRole = Nothing - , _amplifyDomainDomainName = domainNamearg - , _amplifyDomainEnableAutoSubDomain = Nothing - , _amplifyDomainSubDomainSettings = subDomainSettingsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-domain.html#cfn-amplify-domain-appid -adAppId :: Lens' AmplifyDomain (Val Text) -adAppId = lens _amplifyDomainAppId (\s a -> s { _amplifyDomainAppId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-domain.html#cfn-amplify-domain-autosubdomaincreationpatterns -adAutoSubDomainCreationPatterns :: Lens' AmplifyDomain (Maybe (ValList Text)) -adAutoSubDomainCreationPatterns = lens _amplifyDomainAutoSubDomainCreationPatterns (\s a -> s { _amplifyDomainAutoSubDomainCreationPatterns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-domain.html#cfn-amplify-domain-autosubdomainiamrole -adAutoSubDomainIAMRole :: Lens' AmplifyDomain (Maybe (Val Text)) -adAutoSubDomainIAMRole = lens _amplifyDomainAutoSubDomainIAMRole (\s a -> s { _amplifyDomainAutoSubDomainIAMRole = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-domain.html#cfn-amplify-domain-domainname -adDomainName :: Lens' AmplifyDomain (Val Text) -adDomainName = lens _amplifyDomainDomainName (\s a -> s { _amplifyDomainDomainName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-domain.html#cfn-amplify-domain-enableautosubdomain -adEnableAutoSubDomain :: Lens' AmplifyDomain (Maybe (Val Bool)) -adEnableAutoSubDomain = lens _amplifyDomainEnableAutoSubDomain (\s a -> s { _amplifyDomainEnableAutoSubDomain = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-domain.html#cfn-amplify-domain-subdomainsettings -adSubDomainSettings :: Lens' AmplifyDomain [AmplifyDomainSubDomainSetting] -adSubDomainSettings = lens _amplifyDomainSubDomainSettings (\s a -> s { _amplifyDomainSubDomainSettings = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayAccount.hs b/library-gen/Stratosphere/Resources/ApiGatewayAccount.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayAccount.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-account.html - -module Stratosphere.Resources.ApiGatewayAccount where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayAccount. See 'apiGatewayAccount' --- for a more convenient constructor. -data ApiGatewayAccount = - ApiGatewayAccount - { _apiGatewayAccountCloudWatchRoleArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayAccount where - toResourceProperties ApiGatewayAccount{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGateway::Account" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("CloudWatchRoleArn",) . toJSON) _apiGatewayAccountCloudWatchRoleArn - ] - } - --- | Constructor for 'ApiGatewayAccount' containing required fields as --- arguments. -apiGatewayAccount - :: ApiGatewayAccount -apiGatewayAccount = - ApiGatewayAccount - { _apiGatewayAccountCloudWatchRoleArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-account.html#cfn-apigateway-account-cloudwatchrolearn -agaCloudWatchRoleArn :: Lens' ApiGatewayAccount (Maybe (Val Text)) -agaCloudWatchRoleArn = lens _apiGatewayAccountCloudWatchRoleArn (\s a -> s { _apiGatewayAccountCloudWatchRoleArn = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayApiKey.hs b/library-gen/Stratosphere/Resources/ApiGatewayApiKey.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayApiKey.hs +++ /dev/null @@ -1,91 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-apikey.html - -module Stratosphere.Resources.ApiGatewayApiKey where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ApiGatewayApiKeyStageKey -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for ApiGatewayApiKey. See 'apiGatewayApiKey' --- for a more convenient constructor. -data ApiGatewayApiKey = - ApiGatewayApiKey - { _apiGatewayApiKeyCustomerId :: Maybe (Val Text) - , _apiGatewayApiKeyDescription :: Maybe (Val Text) - , _apiGatewayApiKeyEnabled :: Maybe (Val Bool) - , _apiGatewayApiKeyGenerateDistinctId :: Maybe (Val Bool) - , _apiGatewayApiKeyName :: Maybe (Val Text) - , _apiGatewayApiKeyStageKeys :: Maybe [ApiGatewayApiKeyStageKey] - , _apiGatewayApiKeyTags :: Maybe [Tag] - , _apiGatewayApiKeyValue :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayApiKey where - toResourceProperties ApiGatewayApiKey{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGateway::ApiKey" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("CustomerId",) . toJSON) _apiGatewayApiKeyCustomerId - , fmap (("Description",) . toJSON) _apiGatewayApiKeyDescription - , fmap (("Enabled",) . toJSON) _apiGatewayApiKeyEnabled - , fmap (("GenerateDistinctId",) . toJSON) _apiGatewayApiKeyGenerateDistinctId - , fmap (("Name",) . toJSON) _apiGatewayApiKeyName - , fmap (("StageKeys",) . toJSON) _apiGatewayApiKeyStageKeys - , fmap (("Tags",) . toJSON) _apiGatewayApiKeyTags - , fmap (("Value",) . toJSON) _apiGatewayApiKeyValue - ] - } - --- | Constructor for 'ApiGatewayApiKey' containing required fields as --- arguments. -apiGatewayApiKey - :: ApiGatewayApiKey -apiGatewayApiKey = - ApiGatewayApiKey - { _apiGatewayApiKeyCustomerId = Nothing - , _apiGatewayApiKeyDescription = Nothing - , _apiGatewayApiKeyEnabled = Nothing - , _apiGatewayApiKeyGenerateDistinctId = Nothing - , _apiGatewayApiKeyName = Nothing - , _apiGatewayApiKeyStageKeys = Nothing - , _apiGatewayApiKeyTags = Nothing - , _apiGatewayApiKeyValue = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-apikey.html#cfn-apigateway-apikey-customerid -agakCustomerId :: Lens' ApiGatewayApiKey (Maybe (Val Text)) -agakCustomerId = lens _apiGatewayApiKeyCustomerId (\s a -> s { _apiGatewayApiKeyCustomerId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-apikey.html#cfn-apigateway-apikey-description -agakDescription :: Lens' ApiGatewayApiKey (Maybe (Val Text)) -agakDescription = lens _apiGatewayApiKeyDescription (\s a -> s { _apiGatewayApiKeyDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-apikey.html#cfn-apigateway-apikey-enabled -agakEnabled :: Lens' ApiGatewayApiKey (Maybe (Val Bool)) -agakEnabled = lens _apiGatewayApiKeyEnabled (\s a -> s { _apiGatewayApiKeyEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-apikey.html#cfn-apigateway-apikey-generatedistinctid -agakGenerateDistinctId :: Lens' ApiGatewayApiKey (Maybe (Val Bool)) -agakGenerateDistinctId = lens _apiGatewayApiKeyGenerateDistinctId (\s a -> s { _apiGatewayApiKeyGenerateDistinctId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-apikey.html#cfn-apigateway-apikey-name -agakName :: Lens' ApiGatewayApiKey (Maybe (Val Text)) -agakName = lens _apiGatewayApiKeyName (\s a -> s { _apiGatewayApiKeyName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-apikey.html#cfn-apigateway-apikey-stagekeys -agakStageKeys :: Lens' ApiGatewayApiKey (Maybe [ApiGatewayApiKeyStageKey]) -agakStageKeys = lens _apiGatewayApiKeyStageKeys (\s a -> s { _apiGatewayApiKeyStageKeys = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-apikey.html#cfn-apigateway-apikey-tags -agakTags :: Lens' ApiGatewayApiKey (Maybe [Tag]) -agakTags = lens _apiGatewayApiKeyTags (\s a -> s { _apiGatewayApiKeyTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-apikey.html#cfn-apigateway-apikey-value -agakValue :: Lens' ApiGatewayApiKey (Maybe (Val Text)) -agakValue = lens _apiGatewayApiKeyValue (\s a -> s { _apiGatewayApiKeyValue = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayAuthorizer.hs b/library-gen/Stratosphere/Resources/ApiGatewayAuthorizer.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayAuthorizer.hs +++ /dev/null @@ -1,106 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-authorizer.html - -module Stratosphere.Resources.ApiGatewayAuthorizer where - -import Stratosphere.ResourceImports -import Stratosphere.Types - --- | Full data type definition for ApiGatewayAuthorizer. See --- 'apiGatewayAuthorizer' for a more convenient constructor. -data ApiGatewayAuthorizer = - ApiGatewayAuthorizer - { _apiGatewayAuthorizerAuthType :: Maybe (Val Text) - , _apiGatewayAuthorizerAuthorizerCredentials :: Maybe (Val Text) - , _apiGatewayAuthorizerAuthorizerResultTtlInSeconds :: Maybe (Val Integer) - , _apiGatewayAuthorizerAuthorizerUri :: Maybe (Val Text) - , _apiGatewayAuthorizerIdentitySource :: Maybe (Val Text) - , _apiGatewayAuthorizerIdentityValidationExpression :: Maybe (Val Text) - , _apiGatewayAuthorizerName :: Maybe (Val Text) - , _apiGatewayAuthorizerProviderARNs :: Maybe (ValList Text) - , _apiGatewayAuthorizerRestApiId :: Val Text - , _apiGatewayAuthorizerType :: Val AuthorizerType - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayAuthorizer where - toResourceProperties ApiGatewayAuthorizer{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGateway::Authorizer" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AuthType",) . toJSON) _apiGatewayAuthorizerAuthType - , fmap (("AuthorizerCredentials",) . toJSON) _apiGatewayAuthorizerAuthorizerCredentials - , fmap (("AuthorizerResultTtlInSeconds",) . toJSON) _apiGatewayAuthorizerAuthorizerResultTtlInSeconds - , fmap (("AuthorizerUri",) . toJSON) _apiGatewayAuthorizerAuthorizerUri - , fmap (("IdentitySource",) . toJSON) _apiGatewayAuthorizerIdentitySource - , fmap (("IdentityValidationExpression",) . toJSON) _apiGatewayAuthorizerIdentityValidationExpression - , fmap (("Name",) . toJSON) _apiGatewayAuthorizerName - , fmap (("ProviderARNs",) . toJSON) _apiGatewayAuthorizerProviderARNs - , (Just . ("RestApiId",) . toJSON) _apiGatewayAuthorizerRestApiId - , (Just . ("Type",) . toJSON) _apiGatewayAuthorizerType - ] - } - --- | Constructor for 'ApiGatewayAuthorizer' containing required fields as --- arguments. -apiGatewayAuthorizer - :: Val Text -- ^ 'agaRestApiId' - -> Val AuthorizerType -- ^ 'agaType' - -> ApiGatewayAuthorizer -apiGatewayAuthorizer restApiIdarg typearg = - ApiGatewayAuthorizer - { _apiGatewayAuthorizerAuthType = Nothing - , _apiGatewayAuthorizerAuthorizerCredentials = Nothing - , _apiGatewayAuthorizerAuthorizerResultTtlInSeconds = Nothing - , _apiGatewayAuthorizerAuthorizerUri = Nothing - , _apiGatewayAuthorizerIdentitySource = Nothing - , _apiGatewayAuthorizerIdentityValidationExpression = Nothing - , _apiGatewayAuthorizerName = Nothing - , _apiGatewayAuthorizerProviderARNs = Nothing - , _apiGatewayAuthorizerRestApiId = restApiIdarg - , _apiGatewayAuthorizerType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-authorizer.html#cfn-apigateway-authorizer-authtype -agaAuthType :: Lens' ApiGatewayAuthorizer (Maybe (Val Text)) -agaAuthType = lens _apiGatewayAuthorizerAuthType (\s a -> s { _apiGatewayAuthorizerAuthType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-authorizer.html#cfn-apigateway-authorizer-authorizercredentials -agaAuthorizerCredentials :: Lens' ApiGatewayAuthorizer (Maybe (Val Text)) -agaAuthorizerCredentials = lens _apiGatewayAuthorizerAuthorizerCredentials (\s a -> s { _apiGatewayAuthorizerAuthorizerCredentials = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-authorizer.html#cfn-apigateway-authorizer-authorizerresultttlinseconds -agaAuthorizerResultTtlInSeconds :: Lens' ApiGatewayAuthorizer (Maybe (Val Integer)) -agaAuthorizerResultTtlInSeconds = lens _apiGatewayAuthorizerAuthorizerResultTtlInSeconds (\s a -> s { _apiGatewayAuthorizerAuthorizerResultTtlInSeconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-authorizer.html#cfn-apigateway-authorizer-authorizeruri -agaAuthorizerUri :: Lens' ApiGatewayAuthorizer (Maybe (Val Text)) -agaAuthorizerUri = lens _apiGatewayAuthorizerAuthorizerUri (\s a -> s { _apiGatewayAuthorizerAuthorizerUri = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-authorizer.html#cfn-apigateway-authorizer-identitysource -agaIdentitySource :: Lens' ApiGatewayAuthorizer (Maybe (Val Text)) -agaIdentitySource = lens _apiGatewayAuthorizerIdentitySource (\s a -> s { _apiGatewayAuthorizerIdentitySource = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-authorizer.html#cfn-apigateway-authorizer-identityvalidationexpression -agaIdentityValidationExpression :: Lens' ApiGatewayAuthorizer (Maybe (Val Text)) -agaIdentityValidationExpression = lens _apiGatewayAuthorizerIdentityValidationExpression (\s a -> s { _apiGatewayAuthorizerIdentityValidationExpression = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-authorizer.html#cfn-apigateway-authorizer-name -agaName :: Lens' ApiGatewayAuthorizer (Maybe (Val Text)) -agaName = lens _apiGatewayAuthorizerName (\s a -> s { _apiGatewayAuthorizerName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-authorizer.html#cfn-apigateway-authorizer-providerarns -agaProviderARNs :: Lens' ApiGatewayAuthorizer (Maybe (ValList Text)) -agaProviderARNs = lens _apiGatewayAuthorizerProviderARNs (\s a -> s { _apiGatewayAuthorizerProviderARNs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-authorizer.html#cfn-apigateway-authorizer-restapiid -agaRestApiId :: Lens' ApiGatewayAuthorizer (Val Text) -agaRestApiId = lens _apiGatewayAuthorizerRestApiId (\s a -> s { _apiGatewayAuthorizerRestApiId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-authorizer.html#cfn-apigateway-authorizer-type -agaType :: Lens' ApiGatewayAuthorizer (Val AuthorizerType) -agaType = lens _apiGatewayAuthorizerType (\s a -> s { _apiGatewayAuthorizerType = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayBasePathMapping.hs b/library-gen/Stratosphere/Resources/ApiGatewayBasePathMapping.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayBasePathMapping.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-basepathmapping.html - -module Stratosphere.Resources.ApiGatewayBasePathMapping where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayBasePathMapping. See --- 'apiGatewayBasePathMapping' for a more convenient constructor. -data ApiGatewayBasePathMapping = - ApiGatewayBasePathMapping - { _apiGatewayBasePathMappingBasePath :: Maybe (Val Text) - , _apiGatewayBasePathMappingDomainName :: Val Text - , _apiGatewayBasePathMappingRestApiId :: Maybe (Val Text) - , _apiGatewayBasePathMappingStage :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayBasePathMapping where - toResourceProperties ApiGatewayBasePathMapping{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGateway::BasePathMapping" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("BasePath",) . toJSON) _apiGatewayBasePathMappingBasePath - , (Just . ("DomainName",) . toJSON) _apiGatewayBasePathMappingDomainName - , fmap (("RestApiId",) . toJSON) _apiGatewayBasePathMappingRestApiId - , fmap (("Stage",) . toJSON) _apiGatewayBasePathMappingStage - ] - } - --- | Constructor for 'ApiGatewayBasePathMapping' containing required fields as --- arguments. -apiGatewayBasePathMapping - :: Val Text -- ^ 'agbpmDomainName' - -> ApiGatewayBasePathMapping -apiGatewayBasePathMapping domainNamearg = - ApiGatewayBasePathMapping - { _apiGatewayBasePathMappingBasePath = Nothing - , _apiGatewayBasePathMappingDomainName = domainNamearg - , _apiGatewayBasePathMappingRestApiId = Nothing - , _apiGatewayBasePathMappingStage = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-basepathmapping.html#cfn-apigateway-basepathmapping-basepath -agbpmBasePath :: Lens' ApiGatewayBasePathMapping (Maybe (Val Text)) -agbpmBasePath = lens _apiGatewayBasePathMappingBasePath (\s a -> s { _apiGatewayBasePathMappingBasePath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-basepathmapping.html#cfn-apigateway-basepathmapping-domainname -agbpmDomainName :: Lens' ApiGatewayBasePathMapping (Val Text) -agbpmDomainName = lens _apiGatewayBasePathMappingDomainName (\s a -> s { _apiGatewayBasePathMappingDomainName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-basepathmapping.html#cfn-apigateway-basepathmapping-restapiid -agbpmRestApiId :: Lens' ApiGatewayBasePathMapping (Maybe (Val Text)) -agbpmRestApiId = lens _apiGatewayBasePathMappingRestApiId (\s a -> s { _apiGatewayBasePathMappingRestApiId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-basepathmapping.html#cfn-apigateway-basepathmapping-stage -agbpmStage :: Lens' ApiGatewayBasePathMapping (Maybe (Val Text)) -agbpmStage = lens _apiGatewayBasePathMappingStage (\s a -> s { _apiGatewayBasePathMappingStage = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayClientCertificate.hs b/library-gen/Stratosphere/Resources/ApiGatewayClientCertificate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayClientCertificate.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-clientcertificate.html - -module Stratosphere.Resources.ApiGatewayClientCertificate where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for ApiGatewayClientCertificate. See --- 'apiGatewayClientCertificate' for a more convenient constructor. -data ApiGatewayClientCertificate = - ApiGatewayClientCertificate - { _apiGatewayClientCertificateDescription :: Maybe (Val Text) - , _apiGatewayClientCertificateTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayClientCertificate where - toResourceProperties ApiGatewayClientCertificate{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGateway::ClientCertificate" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _apiGatewayClientCertificateDescription - , fmap (("Tags",) . toJSON) _apiGatewayClientCertificateTags - ] - } - --- | Constructor for 'ApiGatewayClientCertificate' containing required fields --- as arguments. -apiGatewayClientCertificate - :: ApiGatewayClientCertificate -apiGatewayClientCertificate = - ApiGatewayClientCertificate - { _apiGatewayClientCertificateDescription = Nothing - , _apiGatewayClientCertificateTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-clientcertificate.html#cfn-apigateway-clientcertificate-description -agccDescription :: Lens' ApiGatewayClientCertificate (Maybe (Val Text)) -agccDescription = lens _apiGatewayClientCertificateDescription (\s a -> s { _apiGatewayClientCertificateDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-clientcertificate.html#cfn-apigateway-clientcertificate-tags -agccTags :: Lens' ApiGatewayClientCertificate (Maybe [Tag]) -agccTags = lens _apiGatewayClientCertificateTags (\s a -> s { _apiGatewayClientCertificateTags = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayDeployment.hs b/library-gen/Stratosphere/Resources/ApiGatewayDeployment.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayDeployment.hs +++ /dev/null @@ -1,71 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-deployment.html - -module Stratosphere.Resources.ApiGatewayDeployment where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ApiGatewayDeploymentDeploymentCanarySettings -import Stratosphere.ResourceProperties.ApiGatewayDeploymentStageDescription - --- | Full data type definition for ApiGatewayDeployment. See --- 'apiGatewayDeployment' for a more convenient constructor. -data ApiGatewayDeployment = - ApiGatewayDeployment - { _apiGatewayDeploymentDeploymentCanarySettings :: Maybe ApiGatewayDeploymentDeploymentCanarySettings - , _apiGatewayDeploymentDescription :: Maybe (Val Text) - , _apiGatewayDeploymentRestApiId :: Val Text - , _apiGatewayDeploymentStageDescription :: Maybe ApiGatewayDeploymentStageDescription - , _apiGatewayDeploymentStageName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayDeployment where - toResourceProperties ApiGatewayDeployment{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGateway::Deployment" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("DeploymentCanarySettings",) . toJSON) _apiGatewayDeploymentDeploymentCanarySettings - , fmap (("Description",) . toJSON) _apiGatewayDeploymentDescription - , (Just . ("RestApiId",) . toJSON) _apiGatewayDeploymentRestApiId - , fmap (("StageDescription",) . toJSON) _apiGatewayDeploymentStageDescription - , fmap (("StageName",) . toJSON) _apiGatewayDeploymentStageName - ] - } - --- | Constructor for 'ApiGatewayDeployment' containing required fields as --- arguments. -apiGatewayDeployment - :: Val Text -- ^ 'agdRestApiId' - -> ApiGatewayDeployment -apiGatewayDeployment restApiIdarg = - ApiGatewayDeployment - { _apiGatewayDeploymentDeploymentCanarySettings = Nothing - , _apiGatewayDeploymentDescription = Nothing - , _apiGatewayDeploymentRestApiId = restApiIdarg - , _apiGatewayDeploymentStageDescription = Nothing - , _apiGatewayDeploymentStageName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-deployment.html#cfn-apigateway-deployment-deploymentcanarysettings -agdDeploymentCanarySettings :: Lens' ApiGatewayDeployment (Maybe ApiGatewayDeploymentDeploymentCanarySettings) -agdDeploymentCanarySettings = lens _apiGatewayDeploymentDeploymentCanarySettings (\s a -> s { _apiGatewayDeploymentDeploymentCanarySettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-deployment.html#cfn-apigateway-deployment-description -agdDescription :: Lens' ApiGatewayDeployment (Maybe (Val Text)) -agdDescription = lens _apiGatewayDeploymentDescription (\s a -> s { _apiGatewayDeploymentDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-deployment.html#cfn-apigateway-deployment-restapiid -agdRestApiId :: Lens' ApiGatewayDeployment (Val Text) -agdRestApiId = lens _apiGatewayDeploymentRestApiId (\s a -> s { _apiGatewayDeploymentRestApiId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-deployment.html#cfn-apigateway-deployment-stagedescription -agdStageDescription :: Lens' ApiGatewayDeployment (Maybe ApiGatewayDeploymentStageDescription) -agdStageDescription = lens _apiGatewayDeploymentStageDescription (\s a -> s { _apiGatewayDeploymentStageDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-deployment.html#cfn-apigateway-deployment-stagename -agdStageName :: Lens' ApiGatewayDeployment (Maybe (Val Text)) -agdStageName = lens _apiGatewayDeploymentStageName (\s a -> s { _apiGatewayDeploymentStageName = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayDocumentationPart.hs b/library-gen/Stratosphere/Resources/ApiGatewayDocumentationPart.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayDocumentationPart.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-documentationpart.html - -module Stratosphere.Resources.ApiGatewayDocumentationPart where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ApiGatewayDocumentationPartLocation - --- | Full data type definition for ApiGatewayDocumentationPart. See --- 'apiGatewayDocumentationPart' for a more convenient constructor. -data ApiGatewayDocumentationPart = - ApiGatewayDocumentationPart - { _apiGatewayDocumentationPartLocation :: ApiGatewayDocumentationPartLocation - , _apiGatewayDocumentationPartProperties :: Val Text - , _apiGatewayDocumentationPartRestApiId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayDocumentationPart where - toResourceProperties ApiGatewayDocumentationPart{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGateway::DocumentationPart" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Location",) . toJSON) _apiGatewayDocumentationPartLocation - , (Just . ("Properties",) . toJSON) _apiGatewayDocumentationPartProperties - , (Just . ("RestApiId",) . toJSON) _apiGatewayDocumentationPartRestApiId - ] - } - --- | Constructor for 'ApiGatewayDocumentationPart' containing required fields --- as arguments. -apiGatewayDocumentationPart - :: ApiGatewayDocumentationPartLocation -- ^ 'agdpLocation' - -> Val Text -- ^ 'agdpProperties' - -> Val Text -- ^ 'agdpRestApiId' - -> ApiGatewayDocumentationPart -apiGatewayDocumentationPart locationarg propertiesarg restApiIdarg = - ApiGatewayDocumentationPart - { _apiGatewayDocumentationPartLocation = locationarg - , _apiGatewayDocumentationPartProperties = propertiesarg - , _apiGatewayDocumentationPartRestApiId = restApiIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-documentationpart.html#cfn-apigateway-documentationpart-location -agdpLocation :: Lens' ApiGatewayDocumentationPart ApiGatewayDocumentationPartLocation -agdpLocation = lens _apiGatewayDocumentationPartLocation (\s a -> s { _apiGatewayDocumentationPartLocation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-documentationpart.html#cfn-apigateway-documentationpart-properties -agdpProperties :: Lens' ApiGatewayDocumentationPart (Val Text) -agdpProperties = lens _apiGatewayDocumentationPartProperties (\s a -> s { _apiGatewayDocumentationPartProperties = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-documentationpart.html#cfn-apigateway-documentationpart-restapiid -agdpRestApiId :: Lens' ApiGatewayDocumentationPart (Val Text) -agdpRestApiId = lens _apiGatewayDocumentationPartRestApiId (\s a -> s { _apiGatewayDocumentationPartRestApiId = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayDocumentationVersion.hs b/library-gen/Stratosphere/Resources/ApiGatewayDocumentationVersion.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayDocumentationVersion.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-documentationversion.html - -module Stratosphere.Resources.ApiGatewayDocumentationVersion where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayDocumentationVersion. See --- 'apiGatewayDocumentationVersion' for a more convenient constructor. -data ApiGatewayDocumentationVersion = - ApiGatewayDocumentationVersion - { _apiGatewayDocumentationVersionDescription :: Maybe (Val Text) - , _apiGatewayDocumentationVersionDocumentationVersion :: Val Text - , _apiGatewayDocumentationVersionRestApiId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayDocumentationVersion where - toResourceProperties ApiGatewayDocumentationVersion{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGateway::DocumentationVersion" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _apiGatewayDocumentationVersionDescription - , (Just . ("DocumentationVersion",) . toJSON) _apiGatewayDocumentationVersionDocumentationVersion - , (Just . ("RestApiId",) . toJSON) _apiGatewayDocumentationVersionRestApiId - ] - } - --- | Constructor for 'ApiGatewayDocumentationVersion' containing required --- fields as arguments. -apiGatewayDocumentationVersion - :: Val Text -- ^ 'agdvDocumentationVersion' - -> Val Text -- ^ 'agdvRestApiId' - -> ApiGatewayDocumentationVersion -apiGatewayDocumentationVersion documentationVersionarg restApiIdarg = - ApiGatewayDocumentationVersion - { _apiGatewayDocumentationVersionDescription = Nothing - , _apiGatewayDocumentationVersionDocumentationVersion = documentationVersionarg - , _apiGatewayDocumentationVersionRestApiId = restApiIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-documentationversion.html#cfn-apigateway-documentationversion-description -agdvDescription :: Lens' ApiGatewayDocumentationVersion (Maybe (Val Text)) -agdvDescription = lens _apiGatewayDocumentationVersionDescription (\s a -> s { _apiGatewayDocumentationVersionDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-documentationversion.html#cfn-apigateway-documentationversion-documentationversion -agdvDocumentationVersion :: Lens' ApiGatewayDocumentationVersion (Val Text) -agdvDocumentationVersion = lens _apiGatewayDocumentationVersionDocumentationVersion (\s a -> s { _apiGatewayDocumentationVersionDocumentationVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-documentationversion.html#cfn-apigateway-documentationversion-restapiid -agdvRestApiId :: Lens' ApiGatewayDocumentationVersion (Val Text) -agdvRestApiId = lens _apiGatewayDocumentationVersionRestApiId (\s a -> s { _apiGatewayDocumentationVersionRestApiId = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayDomainName.hs b/library-gen/Stratosphere/Resources/ApiGatewayDomainName.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayDomainName.hs +++ /dev/null @@ -1,77 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-domainname.html - -module Stratosphere.Resources.ApiGatewayDomainName where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ApiGatewayDomainNameEndpointConfiguration -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for ApiGatewayDomainName. See --- 'apiGatewayDomainName' for a more convenient constructor. -data ApiGatewayDomainName = - ApiGatewayDomainName - { _apiGatewayDomainNameCertificateArn :: Maybe (Val Text) - , _apiGatewayDomainNameDomainName :: Maybe (Val Text) - , _apiGatewayDomainNameEndpointConfiguration :: Maybe ApiGatewayDomainNameEndpointConfiguration - , _apiGatewayDomainNameRegionalCertificateArn :: Maybe (Val Text) - , _apiGatewayDomainNameSecurityPolicy :: Maybe (Val Text) - , _apiGatewayDomainNameTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayDomainName where - toResourceProperties ApiGatewayDomainName{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGateway::DomainName" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("CertificateArn",) . toJSON) _apiGatewayDomainNameCertificateArn - , fmap (("DomainName",) . toJSON) _apiGatewayDomainNameDomainName - , fmap (("EndpointConfiguration",) . toJSON) _apiGatewayDomainNameEndpointConfiguration - , fmap (("RegionalCertificateArn",) . toJSON) _apiGatewayDomainNameRegionalCertificateArn - , fmap (("SecurityPolicy",) . toJSON) _apiGatewayDomainNameSecurityPolicy - , fmap (("Tags",) . toJSON) _apiGatewayDomainNameTags - ] - } - --- | Constructor for 'ApiGatewayDomainName' containing required fields as --- arguments. -apiGatewayDomainName - :: ApiGatewayDomainName -apiGatewayDomainName = - ApiGatewayDomainName - { _apiGatewayDomainNameCertificateArn = Nothing - , _apiGatewayDomainNameDomainName = Nothing - , _apiGatewayDomainNameEndpointConfiguration = Nothing - , _apiGatewayDomainNameRegionalCertificateArn = Nothing - , _apiGatewayDomainNameSecurityPolicy = Nothing - , _apiGatewayDomainNameTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-domainname.html#cfn-apigateway-domainname-certificatearn -agdnCertificateArn :: Lens' ApiGatewayDomainName (Maybe (Val Text)) -agdnCertificateArn = lens _apiGatewayDomainNameCertificateArn (\s a -> s { _apiGatewayDomainNameCertificateArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-domainname.html#cfn-apigateway-domainname-domainname -agdnDomainName :: Lens' ApiGatewayDomainName (Maybe (Val Text)) -agdnDomainName = lens _apiGatewayDomainNameDomainName (\s a -> s { _apiGatewayDomainNameDomainName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-domainname.html#cfn-apigateway-domainname-endpointconfiguration -agdnEndpointConfiguration :: Lens' ApiGatewayDomainName (Maybe ApiGatewayDomainNameEndpointConfiguration) -agdnEndpointConfiguration = lens _apiGatewayDomainNameEndpointConfiguration (\s a -> s { _apiGatewayDomainNameEndpointConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-domainname.html#cfn-apigateway-domainname-regionalcertificatearn -agdnRegionalCertificateArn :: Lens' ApiGatewayDomainName (Maybe (Val Text)) -agdnRegionalCertificateArn = lens _apiGatewayDomainNameRegionalCertificateArn (\s a -> s { _apiGatewayDomainNameRegionalCertificateArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-domainname.html#cfn-apigateway-domainname-securitypolicy -agdnSecurityPolicy :: Lens' ApiGatewayDomainName (Maybe (Val Text)) -agdnSecurityPolicy = lens _apiGatewayDomainNameSecurityPolicy (\s a -> s { _apiGatewayDomainNameSecurityPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-domainname.html#cfn-apigateway-domainname-tags -agdnTags :: Lens' ApiGatewayDomainName (Maybe [Tag]) -agdnTags = lens _apiGatewayDomainNameTags (\s a -> s { _apiGatewayDomainNameTags = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayGatewayResponse.hs b/library-gen/Stratosphere/Resources/ApiGatewayGatewayResponse.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayGatewayResponse.hs +++ /dev/null @@ -1,71 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-gatewayresponse.html - -module Stratosphere.Resources.ApiGatewayGatewayResponse where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayGatewayResponse. See --- 'apiGatewayGatewayResponse' for a more convenient constructor. -data ApiGatewayGatewayResponse = - ApiGatewayGatewayResponse - { _apiGatewayGatewayResponseResponseParameters :: Maybe Object - , _apiGatewayGatewayResponseResponseTemplates :: Maybe Object - , _apiGatewayGatewayResponseResponseType :: Val Text - , _apiGatewayGatewayResponseRestApiId :: Val Text - , _apiGatewayGatewayResponseStatusCode :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayGatewayResponse where - toResourceProperties ApiGatewayGatewayResponse{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGateway::GatewayResponse" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ResponseParameters",) . toJSON) _apiGatewayGatewayResponseResponseParameters - , fmap (("ResponseTemplates",) . toJSON) _apiGatewayGatewayResponseResponseTemplates - , (Just . ("ResponseType",) . toJSON) _apiGatewayGatewayResponseResponseType - , (Just . ("RestApiId",) . toJSON) _apiGatewayGatewayResponseRestApiId - , fmap (("StatusCode",) . toJSON) _apiGatewayGatewayResponseStatusCode - ] - } - --- | Constructor for 'ApiGatewayGatewayResponse' containing required fields as --- arguments. -apiGatewayGatewayResponse - :: Val Text -- ^ 'aggrResponseType' - -> Val Text -- ^ 'aggrRestApiId' - -> ApiGatewayGatewayResponse -apiGatewayGatewayResponse responseTypearg restApiIdarg = - ApiGatewayGatewayResponse - { _apiGatewayGatewayResponseResponseParameters = Nothing - , _apiGatewayGatewayResponseResponseTemplates = Nothing - , _apiGatewayGatewayResponseResponseType = responseTypearg - , _apiGatewayGatewayResponseRestApiId = restApiIdarg - , _apiGatewayGatewayResponseStatusCode = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-gatewayresponse.html#cfn-apigateway-gatewayresponse-responseparameters -aggrResponseParameters :: Lens' ApiGatewayGatewayResponse (Maybe Object) -aggrResponseParameters = lens _apiGatewayGatewayResponseResponseParameters (\s a -> s { _apiGatewayGatewayResponseResponseParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-gatewayresponse.html#cfn-apigateway-gatewayresponse-responsetemplates -aggrResponseTemplates :: Lens' ApiGatewayGatewayResponse (Maybe Object) -aggrResponseTemplates = lens _apiGatewayGatewayResponseResponseTemplates (\s a -> s { _apiGatewayGatewayResponseResponseTemplates = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-gatewayresponse.html#cfn-apigateway-gatewayresponse-responsetype -aggrResponseType :: Lens' ApiGatewayGatewayResponse (Val Text) -aggrResponseType = lens _apiGatewayGatewayResponseResponseType (\s a -> s { _apiGatewayGatewayResponseResponseType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-gatewayresponse.html#cfn-apigateway-gatewayresponse-restapiid -aggrRestApiId :: Lens' ApiGatewayGatewayResponse (Val Text) -aggrRestApiId = lens _apiGatewayGatewayResponseRestApiId (\s a -> s { _apiGatewayGatewayResponseRestApiId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-gatewayresponse.html#cfn-apigateway-gatewayresponse-statuscode -aggrStatusCode :: Lens' ApiGatewayGatewayResponse (Maybe (Val Text)) -aggrStatusCode = lens _apiGatewayGatewayResponseStatusCode (\s a -> s { _apiGatewayGatewayResponseStatusCode = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayMethod.hs b/library-gen/Stratosphere/Resources/ApiGatewayMethod.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayMethod.hs +++ /dev/null @@ -1,130 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-method.html - -module Stratosphere.Resources.ApiGatewayMethod where - -import Stratosphere.ResourceImports -import Stratosphere.Types -import Stratosphere.ResourceProperties.ApiGatewayMethodIntegration -import Stratosphere.ResourceProperties.ApiGatewayMethodMethodResponse - --- | Full data type definition for ApiGatewayMethod. See 'apiGatewayMethod' --- for a more convenient constructor. -data ApiGatewayMethod = - ApiGatewayMethod - { _apiGatewayMethodApiKeyRequired :: Maybe (Val Bool) - , _apiGatewayMethodAuthorizationScopes :: Maybe (ValList Text) - , _apiGatewayMethodAuthorizationType :: Maybe (Val AuthorizationType) - , _apiGatewayMethodAuthorizerId :: Maybe (Val Text) - , _apiGatewayMethodHttpMethod :: Val HttpMethod - , _apiGatewayMethodIntegration :: Maybe ApiGatewayMethodIntegration - , _apiGatewayMethodMethodResponses :: Maybe [ApiGatewayMethodMethodResponse] - , _apiGatewayMethodOperationName :: Maybe (Val Text) - , _apiGatewayMethodRequestModels :: Maybe Object - , _apiGatewayMethodRequestParameters :: Maybe Object - , _apiGatewayMethodRequestValidatorId :: Maybe (Val Text) - , _apiGatewayMethodResourceId :: Val Text - , _apiGatewayMethodRestApiId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayMethod where - toResourceProperties ApiGatewayMethod{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGateway::Method" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ApiKeyRequired",) . toJSON) _apiGatewayMethodApiKeyRequired - , fmap (("AuthorizationScopes",) . toJSON) _apiGatewayMethodAuthorizationScopes - , fmap (("AuthorizationType",) . toJSON) _apiGatewayMethodAuthorizationType - , fmap (("AuthorizerId",) . toJSON) _apiGatewayMethodAuthorizerId - , (Just . ("HttpMethod",) . toJSON) _apiGatewayMethodHttpMethod - , fmap (("Integration",) . toJSON) _apiGatewayMethodIntegration - , fmap (("MethodResponses",) . toJSON) _apiGatewayMethodMethodResponses - , fmap (("OperationName",) . toJSON) _apiGatewayMethodOperationName - , fmap (("RequestModels",) . toJSON) _apiGatewayMethodRequestModels - , fmap (("RequestParameters",) . toJSON) _apiGatewayMethodRequestParameters - , fmap (("RequestValidatorId",) . toJSON) _apiGatewayMethodRequestValidatorId - , (Just . ("ResourceId",) . toJSON) _apiGatewayMethodResourceId - , (Just . ("RestApiId",) . toJSON) _apiGatewayMethodRestApiId - ] - } - --- | Constructor for 'ApiGatewayMethod' containing required fields as --- arguments. -apiGatewayMethod - :: Val HttpMethod -- ^ 'agmeHttpMethod' - -> Val Text -- ^ 'agmeResourceId' - -> Val Text -- ^ 'agmeRestApiId' - -> ApiGatewayMethod -apiGatewayMethod httpMethodarg resourceIdarg restApiIdarg = - ApiGatewayMethod - { _apiGatewayMethodApiKeyRequired = Nothing - , _apiGatewayMethodAuthorizationScopes = Nothing - , _apiGatewayMethodAuthorizationType = Nothing - , _apiGatewayMethodAuthorizerId = Nothing - , _apiGatewayMethodHttpMethod = httpMethodarg - , _apiGatewayMethodIntegration = Nothing - , _apiGatewayMethodMethodResponses = Nothing - , _apiGatewayMethodOperationName = Nothing - , _apiGatewayMethodRequestModels = Nothing - , _apiGatewayMethodRequestParameters = Nothing - , _apiGatewayMethodRequestValidatorId = Nothing - , _apiGatewayMethodResourceId = resourceIdarg - , _apiGatewayMethodRestApiId = restApiIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-method.html#cfn-apigateway-method-apikeyrequired -agmeApiKeyRequired :: Lens' ApiGatewayMethod (Maybe (Val Bool)) -agmeApiKeyRequired = lens _apiGatewayMethodApiKeyRequired (\s a -> s { _apiGatewayMethodApiKeyRequired = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-method.html#cfn-apigateway-method-authorizationscopes -agmeAuthorizationScopes :: Lens' ApiGatewayMethod (Maybe (ValList Text)) -agmeAuthorizationScopes = lens _apiGatewayMethodAuthorizationScopes (\s a -> s { _apiGatewayMethodAuthorizationScopes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-method.html#cfn-apigateway-method-authorizationtype -agmeAuthorizationType :: Lens' ApiGatewayMethod (Maybe (Val AuthorizationType)) -agmeAuthorizationType = lens _apiGatewayMethodAuthorizationType (\s a -> s { _apiGatewayMethodAuthorizationType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-method.html#cfn-apigateway-method-authorizerid -agmeAuthorizerId :: Lens' ApiGatewayMethod (Maybe (Val Text)) -agmeAuthorizerId = lens _apiGatewayMethodAuthorizerId (\s a -> s { _apiGatewayMethodAuthorizerId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-method.html#cfn-apigateway-method-httpmethod -agmeHttpMethod :: Lens' ApiGatewayMethod (Val HttpMethod) -agmeHttpMethod = lens _apiGatewayMethodHttpMethod (\s a -> s { _apiGatewayMethodHttpMethod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-method.html#cfn-apigateway-method-integration -agmeIntegration :: Lens' ApiGatewayMethod (Maybe ApiGatewayMethodIntegration) -agmeIntegration = lens _apiGatewayMethodIntegration (\s a -> s { _apiGatewayMethodIntegration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-method.html#cfn-apigateway-method-methodresponses -agmeMethodResponses :: Lens' ApiGatewayMethod (Maybe [ApiGatewayMethodMethodResponse]) -agmeMethodResponses = lens _apiGatewayMethodMethodResponses (\s a -> s { _apiGatewayMethodMethodResponses = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-method.html#cfn-apigateway-method-operationname -agmeOperationName :: Lens' ApiGatewayMethod (Maybe (Val Text)) -agmeOperationName = lens _apiGatewayMethodOperationName (\s a -> s { _apiGatewayMethodOperationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-method.html#cfn-apigateway-method-requestmodels -agmeRequestModels :: Lens' ApiGatewayMethod (Maybe Object) -agmeRequestModels = lens _apiGatewayMethodRequestModels (\s a -> s { _apiGatewayMethodRequestModels = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-method.html#cfn-apigateway-method-requestparameters -agmeRequestParameters :: Lens' ApiGatewayMethod (Maybe Object) -agmeRequestParameters = lens _apiGatewayMethodRequestParameters (\s a -> s { _apiGatewayMethodRequestParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-method.html#cfn-apigateway-method-requestvalidatorid -agmeRequestValidatorId :: Lens' ApiGatewayMethod (Maybe (Val Text)) -agmeRequestValidatorId = lens _apiGatewayMethodRequestValidatorId (\s a -> s { _apiGatewayMethodRequestValidatorId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-method.html#cfn-apigateway-method-resourceid -agmeResourceId :: Lens' ApiGatewayMethod (Val Text) -agmeResourceId = lens _apiGatewayMethodResourceId (\s a -> s { _apiGatewayMethodResourceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-method.html#cfn-apigateway-method-restapiid -agmeRestApiId :: Lens' ApiGatewayMethod (Val Text) -agmeRestApiId = lens _apiGatewayMethodRestApiId (\s a -> s { _apiGatewayMethodRestApiId = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayModel.hs b/library-gen/Stratosphere/Resources/ApiGatewayModel.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayModel.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-model.html - -module Stratosphere.Resources.ApiGatewayModel where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayModel. See 'apiGatewayModel' for --- a more convenient constructor. -data ApiGatewayModel = - ApiGatewayModel - { _apiGatewayModelContentType :: Maybe (Val Text) - , _apiGatewayModelDescription :: Maybe (Val Text) - , _apiGatewayModelName :: Maybe (Val Text) - , _apiGatewayModelRestApiId :: Val Text - , _apiGatewayModelSchema :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayModel where - toResourceProperties ApiGatewayModel{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGateway::Model" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ContentType",) . toJSON) _apiGatewayModelContentType - , fmap (("Description",) . toJSON) _apiGatewayModelDescription - , fmap (("Name",) . toJSON) _apiGatewayModelName - , (Just . ("RestApiId",) . toJSON) _apiGatewayModelRestApiId - , fmap (("Schema",) . toJSON) _apiGatewayModelSchema - ] - } - --- | Constructor for 'ApiGatewayModel' containing required fields as --- arguments. -apiGatewayModel - :: Val Text -- ^ 'agmoRestApiId' - -> ApiGatewayModel -apiGatewayModel restApiIdarg = - ApiGatewayModel - { _apiGatewayModelContentType = Nothing - , _apiGatewayModelDescription = Nothing - , _apiGatewayModelName = Nothing - , _apiGatewayModelRestApiId = restApiIdarg - , _apiGatewayModelSchema = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-model.html#cfn-apigateway-model-contenttype -agmoContentType :: Lens' ApiGatewayModel (Maybe (Val Text)) -agmoContentType = lens _apiGatewayModelContentType (\s a -> s { _apiGatewayModelContentType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-model.html#cfn-apigateway-model-description -agmoDescription :: Lens' ApiGatewayModel (Maybe (Val Text)) -agmoDescription = lens _apiGatewayModelDescription (\s a -> s { _apiGatewayModelDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-model.html#cfn-apigateway-model-name -agmoName :: Lens' ApiGatewayModel (Maybe (Val Text)) -agmoName = lens _apiGatewayModelName (\s a -> s { _apiGatewayModelName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-model.html#cfn-apigateway-model-restapiid -agmoRestApiId :: Lens' ApiGatewayModel (Val Text) -agmoRestApiId = lens _apiGatewayModelRestApiId (\s a -> s { _apiGatewayModelRestApiId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-model.html#cfn-apigateway-model-schema -agmoSchema :: Lens' ApiGatewayModel (Maybe Object) -agmoSchema = lens _apiGatewayModelSchema (\s a -> s { _apiGatewayModelSchema = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayRequestValidator.hs b/library-gen/Stratosphere/Resources/ApiGatewayRequestValidator.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayRequestValidator.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-requestvalidator.html - -module Stratosphere.Resources.ApiGatewayRequestValidator where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayRequestValidator. See --- 'apiGatewayRequestValidator' for a more convenient constructor. -data ApiGatewayRequestValidator = - ApiGatewayRequestValidator - { _apiGatewayRequestValidatorName :: Maybe (Val Text) - , _apiGatewayRequestValidatorRestApiId :: Val Text - , _apiGatewayRequestValidatorValidateRequestBody :: Maybe (Val Bool) - , _apiGatewayRequestValidatorValidateRequestParameters :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayRequestValidator where - toResourceProperties ApiGatewayRequestValidator{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGateway::RequestValidator" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Name",) . toJSON) _apiGatewayRequestValidatorName - , (Just . ("RestApiId",) . toJSON) _apiGatewayRequestValidatorRestApiId - , fmap (("ValidateRequestBody",) . toJSON) _apiGatewayRequestValidatorValidateRequestBody - , fmap (("ValidateRequestParameters",) . toJSON) _apiGatewayRequestValidatorValidateRequestParameters - ] - } - --- | Constructor for 'ApiGatewayRequestValidator' containing required fields --- as arguments. -apiGatewayRequestValidator - :: Val Text -- ^ 'agrvRestApiId' - -> ApiGatewayRequestValidator -apiGatewayRequestValidator restApiIdarg = - ApiGatewayRequestValidator - { _apiGatewayRequestValidatorName = Nothing - , _apiGatewayRequestValidatorRestApiId = restApiIdarg - , _apiGatewayRequestValidatorValidateRequestBody = Nothing - , _apiGatewayRequestValidatorValidateRequestParameters = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-requestvalidator.html#cfn-apigateway-requestvalidator-name -agrvName :: Lens' ApiGatewayRequestValidator (Maybe (Val Text)) -agrvName = lens _apiGatewayRequestValidatorName (\s a -> s { _apiGatewayRequestValidatorName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-requestvalidator.html#cfn-apigateway-requestvalidator-restapiid -agrvRestApiId :: Lens' ApiGatewayRequestValidator (Val Text) -agrvRestApiId = lens _apiGatewayRequestValidatorRestApiId (\s a -> s { _apiGatewayRequestValidatorRestApiId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-requestvalidator.html#cfn-apigateway-requestvalidator-validaterequestbody -agrvValidateRequestBody :: Lens' ApiGatewayRequestValidator (Maybe (Val Bool)) -agrvValidateRequestBody = lens _apiGatewayRequestValidatorValidateRequestBody (\s a -> s { _apiGatewayRequestValidatorValidateRequestBody = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-requestvalidator.html#cfn-apigateway-requestvalidator-validaterequestparameters -agrvValidateRequestParameters :: Lens' ApiGatewayRequestValidator (Maybe (Val Bool)) -agrvValidateRequestParameters = lens _apiGatewayRequestValidatorValidateRequestParameters (\s a -> s { _apiGatewayRequestValidatorValidateRequestParameters = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayResource.hs b/library-gen/Stratosphere/Resources/ApiGatewayResource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayResource.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-resource.html - -module Stratosphere.Resources.ApiGatewayResource where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayResource. See --- 'apiGatewayResource' for a more convenient constructor. -data ApiGatewayResource = - ApiGatewayResource - { _apiGatewayResourceParentId :: Val Text - , _apiGatewayResourcePathPart :: Val Text - , _apiGatewayResourceRestApiId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayResource where - toResourceProperties ApiGatewayResource{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGateway::Resource" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ParentId",) . toJSON) _apiGatewayResourceParentId - , (Just . ("PathPart",) . toJSON) _apiGatewayResourcePathPart - , (Just . ("RestApiId",) . toJSON) _apiGatewayResourceRestApiId - ] - } - --- | Constructor for 'ApiGatewayResource' containing required fields as --- arguments. -apiGatewayResource - :: Val Text -- ^ 'agrParentId' - -> Val Text -- ^ 'agrPathPart' - -> Val Text -- ^ 'agrRestApiId' - -> ApiGatewayResource -apiGatewayResource parentIdarg pathPartarg restApiIdarg = - ApiGatewayResource - { _apiGatewayResourceParentId = parentIdarg - , _apiGatewayResourcePathPart = pathPartarg - , _apiGatewayResourceRestApiId = restApiIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-resource.html#cfn-apigateway-resource-parentid -agrParentId :: Lens' ApiGatewayResource (Val Text) -agrParentId = lens _apiGatewayResourceParentId (\s a -> s { _apiGatewayResourceParentId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-resource.html#cfn-apigateway-resource-pathpart -agrPathPart :: Lens' ApiGatewayResource (Val Text) -agrPathPart = lens _apiGatewayResourcePathPart (\s a -> s { _apiGatewayResourcePathPart = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-resource.html#cfn-apigateway-resource-restapiid -agrRestApiId :: Lens' ApiGatewayResource (Val Text) -agrRestApiId = lens _apiGatewayResourceRestApiId (\s a -> s { _apiGatewayResourceRestApiId = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayRestApi.hs b/library-gen/Stratosphere/Resources/ApiGatewayRestApi.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayRestApi.hs +++ /dev/null @@ -1,127 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-restapi.html - -module Stratosphere.Resources.ApiGatewayRestApi where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ApiGatewayRestApiS3Location -import Stratosphere.ResourceProperties.ApiGatewayRestApiEndpointConfiguration -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for ApiGatewayRestApi. See 'apiGatewayRestApi' --- for a more convenient constructor. -data ApiGatewayRestApi = - ApiGatewayRestApi - { _apiGatewayRestApiApiKeySourceType :: Maybe (Val Text) - , _apiGatewayRestApiBinaryMediaTypes :: Maybe (ValList Text) - , _apiGatewayRestApiBody :: Maybe Object - , _apiGatewayRestApiBodyS3Location :: Maybe ApiGatewayRestApiS3Location - , _apiGatewayRestApiCloneFrom :: Maybe (Val Text) - , _apiGatewayRestApiDescription :: Maybe (Val Text) - , _apiGatewayRestApiEndpointConfiguration :: Maybe ApiGatewayRestApiEndpointConfiguration - , _apiGatewayRestApiFailOnWarnings :: Maybe (Val Bool) - , _apiGatewayRestApiMinimumCompressionSize :: Maybe (Val Integer) - , _apiGatewayRestApiName :: Maybe (Val Text) - , _apiGatewayRestApiParameters :: Maybe Object - , _apiGatewayRestApiPolicy :: Maybe Object - , _apiGatewayRestApiTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayRestApi where - toResourceProperties ApiGatewayRestApi{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGateway::RestApi" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ApiKeySourceType",) . toJSON) _apiGatewayRestApiApiKeySourceType - , fmap (("BinaryMediaTypes",) . toJSON) _apiGatewayRestApiBinaryMediaTypes - , fmap (("Body",) . toJSON) _apiGatewayRestApiBody - , fmap (("BodyS3Location",) . toJSON) _apiGatewayRestApiBodyS3Location - , fmap (("CloneFrom",) . toJSON) _apiGatewayRestApiCloneFrom - , fmap (("Description",) . toJSON) _apiGatewayRestApiDescription - , fmap (("EndpointConfiguration",) . toJSON) _apiGatewayRestApiEndpointConfiguration - , fmap (("FailOnWarnings",) . toJSON) _apiGatewayRestApiFailOnWarnings - , fmap (("MinimumCompressionSize",) . toJSON) _apiGatewayRestApiMinimumCompressionSize - , fmap (("Name",) . toJSON) _apiGatewayRestApiName - , fmap (("Parameters",) . toJSON) _apiGatewayRestApiParameters - , fmap (("Policy",) . toJSON) _apiGatewayRestApiPolicy - , fmap (("Tags",) . toJSON) _apiGatewayRestApiTags - ] - } - --- | Constructor for 'ApiGatewayRestApi' containing required fields as --- arguments. -apiGatewayRestApi - :: ApiGatewayRestApi -apiGatewayRestApi = - ApiGatewayRestApi - { _apiGatewayRestApiApiKeySourceType = Nothing - , _apiGatewayRestApiBinaryMediaTypes = Nothing - , _apiGatewayRestApiBody = Nothing - , _apiGatewayRestApiBodyS3Location = Nothing - , _apiGatewayRestApiCloneFrom = Nothing - , _apiGatewayRestApiDescription = Nothing - , _apiGatewayRestApiEndpointConfiguration = Nothing - , _apiGatewayRestApiFailOnWarnings = Nothing - , _apiGatewayRestApiMinimumCompressionSize = Nothing - , _apiGatewayRestApiName = Nothing - , _apiGatewayRestApiParameters = Nothing - , _apiGatewayRestApiPolicy = Nothing - , _apiGatewayRestApiTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-restapi.html#cfn-apigateway-restapi-apikeysourcetype -agraApiKeySourceType :: Lens' ApiGatewayRestApi (Maybe (Val Text)) -agraApiKeySourceType = lens _apiGatewayRestApiApiKeySourceType (\s a -> s { _apiGatewayRestApiApiKeySourceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-restapi.html#cfn-apigateway-restapi-binarymediatypes -agraBinaryMediaTypes :: Lens' ApiGatewayRestApi (Maybe (ValList Text)) -agraBinaryMediaTypes = lens _apiGatewayRestApiBinaryMediaTypes (\s a -> s { _apiGatewayRestApiBinaryMediaTypes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-restapi.html#cfn-apigateway-restapi-body -agraBody :: Lens' ApiGatewayRestApi (Maybe Object) -agraBody = lens _apiGatewayRestApiBody (\s a -> s { _apiGatewayRestApiBody = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-restapi.html#cfn-apigateway-restapi-bodys3location -agraBodyS3Location :: Lens' ApiGatewayRestApi (Maybe ApiGatewayRestApiS3Location) -agraBodyS3Location = lens _apiGatewayRestApiBodyS3Location (\s a -> s { _apiGatewayRestApiBodyS3Location = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-restapi.html#cfn-apigateway-restapi-clonefrom -agraCloneFrom :: Lens' ApiGatewayRestApi (Maybe (Val Text)) -agraCloneFrom = lens _apiGatewayRestApiCloneFrom (\s a -> s { _apiGatewayRestApiCloneFrom = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-restapi.html#cfn-apigateway-restapi-description -agraDescription :: Lens' ApiGatewayRestApi (Maybe (Val Text)) -agraDescription = lens _apiGatewayRestApiDescription (\s a -> s { _apiGatewayRestApiDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-restapi.html#cfn-apigateway-restapi-endpointconfiguration -agraEndpointConfiguration :: Lens' ApiGatewayRestApi (Maybe ApiGatewayRestApiEndpointConfiguration) -agraEndpointConfiguration = lens _apiGatewayRestApiEndpointConfiguration (\s a -> s { _apiGatewayRestApiEndpointConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-restapi.html#cfn-apigateway-restapi-failonwarnings -agraFailOnWarnings :: Lens' ApiGatewayRestApi (Maybe (Val Bool)) -agraFailOnWarnings = lens _apiGatewayRestApiFailOnWarnings (\s a -> s { _apiGatewayRestApiFailOnWarnings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-restapi.html#cfn-apigateway-restapi-minimumcompressionsize -agraMinimumCompressionSize :: Lens' ApiGatewayRestApi (Maybe (Val Integer)) -agraMinimumCompressionSize = lens _apiGatewayRestApiMinimumCompressionSize (\s a -> s { _apiGatewayRestApiMinimumCompressionSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-restapi.html#cfn-apigateway-restapi-name -agraName :: Lens' ApiGatewayRestApi (Maybe (Val Text)) -agraName = lens _apiGatewayRestApiName (\s a -> s { _apiGatewayRestApiName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-restapi.html#cfn-apigateway-restapi-parameters -agraParameters :: Lens' ApiGatewayRestApi (Maybe Object) -agraParameters = lens _apiGatewayRestApiParameters (\s a -> s { _apiGatewayRestApiParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-restapi.html#cfn-apigateway-restapi-policy -agraPolicy :: Lens' ApiGatewayRestApi (Maybe Object) -agraPolicy = lens _apiGatewayRestApiPolicy (\s a -> s { _apiGatewayRestApiPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-restapi.html#cfn-apigateway-restapi-tags -agraTags :: Lens' ApiGatewayRestApi (Maybe [Tag]) -agraTags = lens _apiGatewayRestApiTags (\s a -> s { _apiGatewayRestApiTags = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayStage.hs b/library-gen/Stratosphere/Resources/ApiGatewayStage.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayStage.hs +++ /dev/null @@ -1,136 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-stage.html - -module Stratosphere.Resources.ApiGatewayStage where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ApiGatewayStageAccessLogSetting -import Stratosphere.ResourceProperties.ApiGatewayStageCanarySetting -import Stratosphere.ResourceProperties.ApiGatewayStageMethodSetting -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for ApiGatewayStage. See 'apiGatewayStage' for --- a more convenient constructor. -data ApiGatewayStage = - ApiGatewayStage - { _apiGatewayStageAccessLogSetting :: Maybe ApiGatewayStageAccessLogSetting - , _apiGatewayStageCacheClusterEnabled :: Maybe (Val Bool) - , _apiGatewayStageCacheClusterSize :: Maybe (Val Text) - , _apiGatewayStageCanarySetting :: Maybe ApiGatewayStageCanarySetting - , _apiGatewayStageClientCertificateId :: Maybe (Val Text) - , _apiGatewayStageDeploymentId :: Maybe (Val Text) - , _apiGatewayStageDescription :: Maybe (Val Text) - , _apiGatewayStageDocumentationVersion :: Maybe (Val Text) - , _apiGatewayStageMethodSettings :: Maybe [ApiGatewayStageMethodSetting] - , _apiGatewayStageRestApiId :: Val Text - , _apiGatewayStageStageName :: Maybe (Val Text) - , _apiGatewayStageTags :: Maybe [Tag] - , _apiGatewayStageTracingEnabled :: Maybe (Val Bool) - , _apiGatewayStageVariables :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayStage where - toResourceProperties ApiGatewayStage{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGateway::Stage" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AccessLogSetting",) . toJSON) _apiGatewayStageAccessLogSetting - , fmap (("CacheClusterEnabled",) . toJSON) _apiGatewayStageCacheClusterEnabled - , fmap (("CacheClusterSize",) . toJSON) _apiGatewayStageCacheClusterSize - , fmap (("CanarySetting",) . toJSON) _apiGatewayStageCanarySetting - , fmap (("ClientCertificateId",) . toJSON) _apiGatewayStageClientCertificateId - , fmap (("DeploymentId",) . toJSON) _apiGatewayStageDeploymentId - , fmap (("Description",) . toJSON) _apiGatewayStageDescription - , fmap (("DocumentationVersion",) . toJSON) _apiGatewayStageDocumentationVersion - , fmap (("MethodSettings",) . toJSON) _apiGatewayStageMethodSettings - , (Just . ("RestApiId",) . toJSON) _apiGatewayStageRestApiId - , fmap (("StageName",) . toJSON) _apiGatewayStageStageName - , fmap (("Tags",) . toJSON) _apiGatewayStageTags - , fmap (("TracingEnabled",) . toJSON) _apiGatewayStageTracingEnabled - , fmap (("Variables",) . toJSON) _apiGatewayStageVariables - ] - } - --- | Constructor for 'ApiGatewayStage' containing required fields as --- arguments. -apiGatewayStage - :: Val Text -- ^ 'agsRestApiId' - -> ApiGatewayStage -apiGatewayStage restApiIdarg = - ApiGatewayStage - { _apiGatewayStageAccessLogSetting = Nothing - , _apiGatewayStageCacheClusterEnabled = Nothing - , _apiGatewayStageCacheClusterSize = Nothing - , _apiGatewayStageCanarySetting = Nothing - , _apiGatewayStageClientCertificateId = Nothing - , _apiGatewayStageDeploymentId = Nothing - , _apiGatewayStageDescription = Nothing - , _apiGatewayStageDocumentationVersion = Nothing - , _apiGatewayStageMethodSettings = Nothing - , _apiGatewayStageRestApiId = restApiIdarg - , _apiGatewayStageStageName = Nothing - , _apiGatewayStageTags = Nothing - , _apiGatewayStageTracingEnabled = Nothing - , _apiGatewayStageVariables = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-stage.html#cfn-apigateway-stage-accesslogsetting -agsAccessLogSetting :: Lens' ApiGatewayStage (Maybe ApiGatewayStageAccessLogSetting) -agsAccessLogSetting = lens _apiGatewayStageAccessLogSetting (\s a -> s { _apiGatewayStageAccessLogSetting = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-stage.html#cfn-apigateway-stage-cacheclusterenabled -agsCacheClusterEnabled :: Lens' ApiGatewayStage (Maybe (Val Bool)) -agsCacheClusterEnabled = lens _apiGatewayStageCacheClusterEnabled (\s a -> s { _apiGatewayStageCacheClusterEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-stage.html#cfn-apigateway-stage-cacheclustersize -agsCacheClusterSize :: Lens' ApiGatewayStage (Maybe (Val Text)) -agsCacheClusterSize = lens _apiGatewayStageCacheClusterSize (\s a -> s { _apiGatewayStageCacheClusterSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-stage.html#cfn-apigateway-stage-canarysetting -agsCanarySetting :: Lens' ApiGatewayStage (Maybe ApiGatewayStageCanarySetting) -agsCanarySetting = lens _apiGatewayStageCanarySetting (\s a -> s { _apiGatewayStageCanarySetting = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-stage.html#cfn-apigateway-stage-clientcertificateid -agsClientCertificateId :: Lens' ApiGatewayStage (Maybe (Val Text)) -agsClientCertificateId = lens _apiGatewayStageClientCertificateId (\s a -> s { _apiGatewayStageClientCertificateId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-stage.html#cfn-apigateway-stage-deploymentid -agsDeploymentId :: Lens' ApiGatewayStage (Maybe (Val Text)) -agsDeploymentId = lens _apiGatewayStageDeploymentId (\s a -> s { _apiGatewayStageDeploymentId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-stage.html#cfn-apigateway-stage-description -agsDescription :: Lens' ApiGatewayStage (Maybe (Val Text)) -agsDescription = lens _apiGatewayStageDescription (\s a -> s { _apiGatewayStageDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-stage.html#cfn-apigateway-stage-documentationversion -agsDocumentationVersion :: Lens' ApiGatewayStage (Maybe (Val Text)) -agsDocumentationVersion = lens _apiGatewayStageDocumentationVersion (\s a -> s { _apiGatewayStageDocumentationVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-stage.html#cfn-apigateway-stage-methodsettings -agsMethodSettings :: Lens' ApiGatewayStage (Maybe [ApiGatewayStageMethodSetting]) -agsMethodSettings = lens _apiGatewayStageMethodSettings (\s a -> s { _apiGatewayStageMethodSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-stage.html#cfn-apigateway-stage-restapiid -agsRestApiId :: Lens' ApiGatewayStage (Val Text) -agsRestApiId = lens _apiGatewayStageRestApiId (\s a -> s { _apiGatewayStageRestApiId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-stage.html#cfn-apigateway-stage-stagename -agsStageName :: Lens' ApiGatewayStage (Maybe (Val Text)) -agsStageName = lens _apiGatewayStageStageName (\s a -> s { _apiGatewayStageStageName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-stage.html#cfn-apigateway-stage-tags -agsTags :: Lens' ApiGatewayStage (Maybe [Tag]) -agsTags = lens _apiGatewayStageTags (\s a -> s { _apiGatewayStageTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-stage.html#cfn-apigateway-stage-tracingenabled -agsTracingEnabled :: Lens' ApiGatewayStage (Maybe (Val Bool)) -agsTracingEnabled = lens _apiGatewayStageTracingEnabled (\s a -> s { _apiGatewayStageTracingEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-stage.html#cfn-apigateway-stage-variables -agsVariables :: Lens' ApiGatewayStage (Maybe Object) -agsVariables = lens _apiGatewayStageVariables (\s a -> s { _apiGatewayStageVariables = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayUsagePlan.hs b/library-gen/Stratosphere/Resources/ApiGatewayUsagePlan.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayUsagePlan.hs +++ /dev/null @@ -1,79 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-usageplan.html - -module Stratosphere.Resources.ApiGatewayUsagePlan where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ApiGatewayUsagePlanApiStage -import Stratosphere.ResourceProperties.ApiGatewayUsagePlanQuotaSettings -import Stratosphere.ResourceProperties.Tag -import Stratosphere.ResourceProperties.ApiGatewayUsagePlanThrottleSettings - --- | Full data type definition for ApiGatewayUsagePlan. See --- 'apiGatewayUsagePlan' for a more convenient constructor. -data ApiGatewayUsagePlan = - ApiGatewayUsagePlan - { _apiGatewayUsagePlanApiStages :: Maybe [ApiGatewayUsagePlanApiStage] - , _apiGatewayUsagePlanDescription :: Maybe (Val Text) - , _apiGatewayUsagePlanQuota :: Maybe ApiGatewayUsagePlanQuotaSettings - , _apiGatewayUsagePlanTags :: Maybe [Tag] - , _apiGatewayUsagePlanThrottle :: Maybe ApiGatewayUsagePlanThrottleSettings - , _apiGatewayUsagePlanUsagePlanName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayUsagePlan where - toResourceProperties ApiGatewayUsagePlan{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGateway::UsagePlan" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ApiStages",) . toJSON) _apiGatewayUsagePlanApiStages - , fmap (("Description",) . toJSON) _apiGatewayUsagePlanDescription - , fmap (("Quota",) . toJSON) _apiGatewayUsagePlanQuota - , fmap (("Tags",) . toJSON) _apiGatewayUsagePlanTags - , fmap (("Throttle",) . toJSON) _apiGatewayUsagePlanThrottle - , fmap (("UsagePlanName",) . toJSON) _apiGatewayUsagePlanUsagePlanName - ] - } - --- | Constructor for 'ApiGatewayUsagePlan' containing required fields as --- arguments. -apiGatewayUsagePlan - :: ApiGatewayUsagePlan -apiGatewayUsagePlan = - ApiGatewayUsagePlan - { _apiGatewayUsagePlanApiStages = Nothing - , _apiGatewayUsagePlanDescription = Nothing - , _apiGatewayUsagePlanQuota = Nothing - , _apiGatewayUsagePlanTags = Nothing - , _apiGatewayUsagePlanThrottle = Nothing - , _apiGatewayUsagePlanUsagePlanName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-usageplan.html#cfn-apigateway-usageplan-apistages -agupApiStages :: Lens' ApiGatewayUsagePlan (Maybe [ApiGatewayUsagePlanApiStage]) -agupApiStages = lens _apiGatewayUsagePlanApiStages (\s a -> s { _apiGatewayUsagePlanApiStages = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-usageplan.html#cfn-apigateway-usageplan-description -agupDescription :: Lens' ApiGatewayUsagePlan (Maybe (Val Text)) -agupDescription = lens _apiGatewayUsagePlanDescription (\s a -> s { _apiGatewayUsagePlanDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-usageplan.html#cfn-apigateway-usageplan-quota -agupQuota :: Lens' ApiGatewayUsagePlan (Maybe ApiGatewayUsagePlanQuotaSettings) -agupQuota = lens _apiGatewayUsagePlanQuota (\s a -> s { _apiGatewayUsagePlanQuota = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-usageplan.html#cfn-apigateway-usageplan-tags -agupTags :: Lens' ApiGatewayUsagePlan (Maybe [Tag]) -agupTags = lens _apiGatewayUsagePlanTags (\s a -> s { _apiGatewayUsagePlanTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-usageplan.html#cfn-apigateway-usageplan-throttle -agupThrottle :: Lens' ApiGatewayUsagePlan (Maybe ApiGatewayUsagePlanThrottleSettings) -agupThrottle = lens _apiGatewayUsagePlanThrottle (\s a -> s { _apiGatewayUsagePlanThrottle = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-usageplan.html#cfn-apigateway-usageplan-usageplanname -agupUsagePlanName :: Lens' ApiGatewayUsagePlan (Maybe (Val Text)) -agupUsagePlanName = lens _apiGatewayUsagePlanUsagePlanName (\s a -> s { _apiGatewayUsagePlanUsagePlanName = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayUsagePlanKey.hs b/library-gen/Stratosphere/Resources/ApiGatewayUsagePlanKey.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayUsagePlanKey.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-usageplankey.html - -module Stratosphere.Resources.ApiGatewayUsagePlanKey where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayUsagePlanKey. See --- 'apiGatewayUsagePlanKey' for a more convenient constructor. -data ApiGatewayUsagePlanKey = - ApiGatewayUsagePlanKey - { _apiGatewayUsagePlanKeyKeyId :: Val Text - , _apiGatewayUsagePlanKeyKeyType :: Val Text - , _apiGatewayUsagePlanKeyUsagePlanId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayUsagePlanKey where - toResourceProperties ApiGatewayUsagePlanKey{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGateway::UsagePlanKey" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("KeyId",) . toJSON) _apiGatewayUsagePlanKeyKeyId - , (Just . ("KeyType",) . toJSON) _apiGatewayUsagePlanKeyKeyType - , (Just . ("UsagePlanId",) . toJSON) _apiGatewayUsagePlanKeyUsagePlanId - ] - } - --- | Constructor for 'ApiGatewayUsagePlanKey' containing required fields as --- arguments. -apiGatewayUsagePlanKey - :: Val Text -- ^ 'agupkKeyId' - -> Val Text -- ^ 'agupkKeyType' - -> Val Text -- ^ 'agupkUsagePlanId' - -> ApiGatewayUsagePlanKey -apiGatewayUsagePlanKey keyIdarg keyTypearg usagePlanIdarg = - ApiGatewayUsagePlanKey - { _apiGatewayUsagePlanKeyKeyId = keyIdarg - , _apiGatewayUsagePlanKeyKeyType = keyTypearg - , _apiGatewayUsagePlanKeyUsagePlanId = usagePlanIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-usageplankey.html#cfn-apigateway-usageplankey-keyid -agupkKeyId :: Lens' ApiGatewayUsagePlanKey (Val Text) -agupkKeyId = lens _apiGatewayUsagePlanKeyKeyId (\s a -> s { _apiGatewayUsagePlanKeyKeyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-usageplankey.html#cfn-apigateway-usageplankey-keytype -agupkKeyType :: Lens' ApiGatewayUsagePlanKey (Val Text) -agupkKeyType = lens _apiGatewayUsagePlanKeyKeyType (\s a -> s { _apiGatewayUsagePlanKeyKeyType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-usageplankey.html#cfn-apigateway-usageplankey-usageplanid -agupkUsagePlanId :: Lens' ApiGatewayUsagePlanKey (Val Text) -agupkUsagePlanId = lens _apiGatewayUsagePlanKeyUsagePlanId (\s a -> s { _apiGatewayUsagePlanKeyUsagePlanId = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayV2Api.hs b/library-gen/Stratosphere/Resources/ApiGatewayV2Api.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayV2Api.hs +++ /dev/null @@ -1,147 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-api.html - -module Stratosphere.Resources.ApiGatewayV2Api where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ApiGatewayV2ApiBodyS3Location -import Stratosphere.ResourceProperties.ApiGatewayV2ApiCors - --- | Full data type definition for ApiGatewayV2Api. See 'apiGatewayV2Api' for --- a more convenient constructor. -data ApiGatewayV2Api = - ApiGatewayV2Api - { _apiGatewayV2ApiApiKeySelectionExpression :: Maybe (Val Text) - , _apiGatewayV2ApiBasePath :: Maybe (Val Text) - , _apiGatewayV2ApiBody :: Maybe Object - , _apiGatewayV2ApiBodyS3Location :: Maybe ApiGatewayV2ApiBodyS3Location - , _apiGatewayV2ApiCorsConfiguration :: Maybe ApiGatewayV2ApiCors - , _apiGatewayV2ApiCredentialsArn :: Maybe (Val Text) - , _apiGatewayV2ApiDescription :: Maybe (Val Text) - , _apiGatewayV2ApiDisableSchemaValidation :: Maybe (Val Bool) - , _apiGatewayV2ApiFailOnWarnings :: Maybe (Val Bool) - , _apiGatewayV2ApiName :: Maybe (Val Text) - , _apiGatewayV2ApiProtocolType :: Maybe (Val Text) - , _apiGatewayV2ApiRouteKey :: Maybe (Val Text) - , _apiGatewayV2ApiRouteSelectionExpression :: Maybe (Val Text) - , _apiGatewayV2ApiTags :: Maybe Object - , _apiGatewayV2ApiTarget :: Maybe (Val Text) - , _apiGatewayV2ApiVersion :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayV2Api where - toResourceProperties ApiGatewayV2Api{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGatewayV2::Api" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ApiKeySelectionExpression",) . toJSON) _apiGatewayV2ApiApiKeySelectionExpression - , fmap (("BasePath",) . toJSON) _apiGatewayV2ApiBasePath - , fmap (("Body",) . toJSON) _apiGatewayV2ApiBody - , fmap (("BodyS3Location",) . toJSON) _apiGatewayV2ApiBodyS3Location - , fmap (("CorsConfiguration",) . toJSON) _apiGatewayV2ApiCorsConfiguration - , fmap (("CredentialsArn",) . toJSON) _apiGatewayV2ApiCredentialsArn - , fmap (("Description",) . toJSON) _apiGatewayV2ApiDescription - , fmap (("DisableSchemaValidation",) . toJSON) _apiGatewayV2ApiDisableSchemaValidation - , fmap (("FailOnWarnings",) . toJSON) _apiGatewayV2ApiFailOnWarnings - , fmap (("Name",) . toJSON) _apiGatewayV2ApiName - , fmap (("ProtocolType",) . toJSON) _apiGatewayV2ApiProtocolType - , fmap (("RouteKey",) . toJSON) _apiGatewayV2ApiRouteKey - , fmap (("RouteSelectionExpression",) . toJSON) _apiGatewayV2ApiRouteSelectionExpression - , fmap (("Tags",) . toJSON) _apiGatewayV2ApiTags - , fmap (("Target",) . toJSON) _apiGatewayV2ApiTarget - , fmap (("Version",) . toJSON) _apiGatewayV2ApiVersion - ] - } - --- | Constructor for 'ApiGatewayV2Api' containing required fields as --- arguments. -apiGatewayV2Api - :: ApiGatewayV2Api -apiGatewayV2Api = - ApiGatewayV2Api - { _apiGatewayV2ApiApiKeySelectionExpression = Nothing - , _apiGatewayV2ApiBasePath = Nothing - , _apiGatewayV2ApiBody = Nothing - , _apiGatewayV2ApiBodyS3Location = Nothing - , _apiGatewayV2ApiCorsConfiguration = Nothing - , _apiGatewayV2ApiCredentialsArn = Nothing - , _apiGatewayV2ApiDescription = Nothing - , _apiGatewayV2ApiDisableSchemaValidation = Nothing - , _apiGatewayV2ApiFailOnWarnings = Nothing - , _apiGatewayV2ApiName = Nothing - , _apiGatewayV2ApiProtocolType = Nothing - , _apiGatewayV2ApiRouteKey = Nothing - , _apiGatewayV2ApiRouteSelectionExpression = Nothing - , _apiGatewayV2ApiTags = Nothing - , _apiGatewayV2ApiTarget = Nothing - , _apiGatewayV2ApiVersion = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-api.html#cfn-apigatewayv2-api-apikeyselectionexpression -agvapApiKeySelectionExpression :: Lens' ApiGatewayV2Api (Maybe (Val Text)) -agvapApiKeySelectionExpression = lens _apiGatewayV2ApiApiKeySelectionExpression (\s a -> s { _apiGatewayV2ApiApiKeySelectionExpression = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-api.html#cfn-apigatewayv2-api-basepath -agvapBasePath :: Lens' ApiGatewayV2Api (Maybe (Val Text)) -agvapBasePath = lens _apiGatewayV2ApiBasePath (\s a -> s { _apiGatewayV2ApiBasePath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-api.html#cfn-apigatewayv2-api-body -agvapBody :: Lens' ApiGatewayV2Api (Maybe Object) -agvapBody = lens _apiGatewayV2ApiBody (\s a -> s { _apiGatewayV2ApiBody = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-api.html#cfn-apigatewayv2-api-bodys3location -agvapBodyS3Location :: Lens' ApiGatewayV2Api (Maybe ApiGatewayV2ApiBodyS3Location) -agvapBodyS3Location = lens _apiGatewayV2ApiBodyS3Location (\s a -> s { _apiGatewayV2ApiBodyS3Location = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-api.html#cfn-apigatewayv2-api-corsconfiguration -agvapCorsConfiguration :: Lens' ApiGatewayV2Api (Maybe ApiGatewayV2ApiCors) -agvapCorsConfiguration = lens _apiGatewayV2ApiCorsConfiguration (\s a -> s { _apiGatewayV2ApiCorsConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-api.html#cfn-apigatewayv2-api-credentialsarn -agvapCredentialsArn :: Lens' ApiGatewayV2Api (Maybe (Val Text)) -agvapCredentialsArn = lens _apiGatewayV2ApiCredentialsArn (\s a -> s { _apiGatewayV2ApiCredentialsArn = a }) - --- | 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-disableschemavalidation -agvapDisableSchemaValidation :: Lens' ApiGatewayV2Api (Maybe (Val Bool)) -agvapDisableSchemaValidation = lens _apiGatewayV2ApiDisableSchemaValidation (\s a -> s { _apiGatewayV2ApiDisableSchemaValidation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-api.html#cfn-apigatewayv2-api-failonwarnings -agvapFailOnWarnings :: Lens' ApiGatewayV2Api (Maybe (Val Bool)) -agvapFailOnWarnings = lens _apiGatewayV2ApiFailOnWarnings (\s a -> s { _apiGatewayV2ApiFailOnWarnings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-api.html#cfn-apigatewayv2-api-name -agvapName :: Lens' ApiGatewayV2Api (Maybe (Val Text)) -agvapName = lens _apiGatewayV2ApiName (\s a -> s { _apiGatewayV2ApiName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-api.html#cfn-apigatewayv2-api-protocoltype -agvapProtocolType :: Lens' ApiGatewayV2Api (Maybe (Val Text)) -agvapProtocolType = lens _apiGatewayV2ApiProtocolType (\s a -> s { _apiGatewayV2ApiProtocolType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-api.html#cfn-apigatewayv2-api-routekey -agvapRouteKey :: Lens' ApiGatewayV2Api (Maybe (Val Text)) -agvapRouteKey = lens _apiGatewayV2ApiRouteKey (\s a -> s { _apiGatewayV2ApiRouteKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-api.html#cfn-apigatewayv2-api-routeselectionexpression -agvapRouteSelectionExpression :: Lens' ApiGatewayV2Api (Maybe (Val Text)) -agvapRouteSelectionExpression = lens _apiGatewayV2ApiRouteSelectionExpression (\s a -> s { _apiGatewayV2ApiRouteSelectionExpression = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-api.html#cfn-apigatewayv2-api-tags -agvapTags :: Lens' ApiGatewayV2Api (Maybe Object) -agvapTags = lens _apiGatewayV2ApiTags (\s a -> s { _apiGatewayV2ApiTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-api.html#cfn-apigatewayv2-api-target -agvapTarget :: Lens' ApiGatewayV2Api (Maybe (Val Text)) -agvapTarget = lens _apiGatewayV2ApiTarget (\s a -> s { _apiGatewayV2ApiTarget = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-api.html#cfn-apigatewayv2-api-version -agvapVersion :: Lens' ApiGatewayV2Api (Maybe (Val Text)) -agvapVersion = lens _apiGatewayV2ApiVersion (\s a -> s { _apiGatewayV2ApiVersion = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayV2ApiGatewayManagedOverrides.hs b/library-gen/Stratosphere/Resources/ApiGatewayV2ApiGatewayManagedOverrides.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayV2ApiGatewayManagedOverrides.hs +++ /dev/null @@ -1,66 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-apigatewaymanagedoverrides.html - -module Stratosphere.Resources.ApiGatewayV2ApiGatewayManagedOverrides where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides -import Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides -import Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesStageOverrides - --- | Full data type definition for ApiGatewayV2ApiGatewayManagedOverrides. See --- 'apiGatewayV2ApiGatewayManagedOverrides' for a more convenient --- constructor. -data ApiGatewayV2ApiGatewayManagedOverrides = - ApiGatewayV2ApiGatewayManagedOverrides - { _apiGatewayV2ApiGatewayManagedOverridesApiId :: Val Text - , _apiGatewayV2ApiGatewayManagedOverridesIntegration :: Maybe ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides - , _apiGatewayV2ApiGatewayManagedOverridesRoute :: Maybe ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides - , _apiGatewayV2ApiGatewayManagedOverridesStage :: Maybe ApiGatewayV2ApiGatewayManagedOverridesStageOverrides - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayV2ApiGatewayManagedOverrides where - toResourceProperties ApiGatewayV2ApiGatewayManagedOverrides{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGatewayV2::ApiGatewayManagedOverrides" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApiId",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesApiId - , fmap (("Integration",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesIntegration - , fmap (("Route",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesRoute - , fmap (("Stage",) . toJSON) _apiGatewayV2ApiGatewayManagedOverridesStage - ] - } - --- | Constructor for 'ApiGatewayV2ApiGatewayManagedOverrides' containing --- required fields as arguments. -apiGatewayV2ApiGatewayManagedOverrides - :: Val Text -- ^ 'agvagmoApiId' - -> ApiGatewayV2ApiGatewayManagedOverrides -apiGatewayV2ApiGatewayManagedOverrides apiIdarg = - ApiGatewayV2ApiGatewayManagedOverrides - { _apiGatewayV2ApiGatewayManagedOverridesApiId = apiIdarg - , _apiGatewayV2ApiGatewayManagedOverridesIntegration = Nothing - , _apiGatewayV2ApiGatewayManagedOverridesRoute = Nothing - , _apiGatewayV2ApiGatewayManagedOverridesStage = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-apigatewaymanagedoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-apiid -agvagmoApiId :: Lens' ApiGatewayV2ApiGatewayManagedOverrides (Val Text) -agvagmoApiId = lens _apiGatewayV2ApiGatewayManagedOverridesApiId (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesApiId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-apigatewaymanagedoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-integration -agvagmoIntegration :: Lens' ApiGatewayV2ApiGatewayManagedOverrides (Maybe ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides) -agvagmoIntegration = lens _apiGatewayV2ApiGatewayManagedOverridesIntegration (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesIntegration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-apigatewaymanagedoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-route -agvagmoRoute :: Lens' ApiGatewayV2ApiGatewayManagedOverrides (Maybe ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides) -agvagmoRoute = lens _apiGatewayV2ApiGatewayManagedOverridesRoute (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesRoute = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-apigatewaymanagedoverrides.html#cfn-apigatewayv2-apigatewaymanagedoverrides-stage -agvagmoStage :: Lens' ApiGatewayV2ApiGatewayManagedOverrides (Maybe ApiGatewayV2ApiGatewayManagedOverridesStageOverrides) -agvagmoStage = lens _apiGatewayV2ApiGatewayManagedOverridesStage (\s a -> s { _apiGatewayV2ApiGatewayManagedOverridesStage = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayV2ApiMapping.hs b/library-gen/Stratosphere/Resources/ApiGatewayV2ApiMapping.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayV2ApiMapping.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-apimapping.html - -module Stratosphere.Resources.ApiGatewayV2ApiMapping where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayV2ApiMapping. See --- 'apiGatewayV2ApiMapping' for a more convenient constructor. -data ApiGatewayV2ApiMapping = - ApiGatewayV2ApiMapping - { _apiGatewayV2ApiMappingApiId :: Val Text - , _apiGatewayV2ApiMappingApiMappingKey :: Maybe (Val Text) - , _apiGatewayV2ApiMappingDomainName :: Val Text - , _apiGatewayV2ApiMappingStage :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayV2ApiMapping where - toResourceProperties ApiGatewayV2ApiMapping{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGatewayV2::ApiMapping" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApiId",) . toJSON) _apiGatewayV2ApiMappingApiId - , fmap (("ApiMappingKey",) . toJSON) _apiGatewayV2ApiMappingApiMappingKey - , (Just . ("DomainName",) . toJSON) _apiGatewayV2ApiMappingDomainName - , (Just . ("Stage",) . toJSON) _apiGatewayV2ApiMappingStage - ] - } - --- | Constructor for 'ApiGatewayV2ApiMapping' containing required fields as --- arguments. -apiGatewayV2ApiMapping - :: Val Text -- ^ 'agvamApiId' - -> Val Text -- ^ 'agvamDomainName' - -> Val Text -- ^ 'agvamStage' - -> ApiGatewayV2ApiMapping -apiGatewayV2ApiMapping apiIdarg domainNamearg stagearg = - ApiGatewayV2ApiMapping - { _apiGatewayV2ApiMappingApiId = apiIdarg - , _apiGatewayV2ApiMappingApiMappingKey = Nothing - , _apiGatewayV2ApiMappingDomainName = domainNamearg - , _apiGatewayV2ApiMappingStage = stagearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-apimapping.html#cfn-apigatewayv2-apimapping-apiid -agvamApiId :: Lens' ApiGatewayV2ApiMapping (Val Text) -agvamApiId = lens _apiGatewayV2ApiMappingApiId (\s a -> s { _apiGatewayV2ApiMappingApiId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-apimapping.html#cfn-apigatewayv2-apimapping-apimappingkey -agvamApiMappingKey :: Lens' ApiGatewayV2ApiMapping (Maybe (Val Text)) -agvamApiMappingKey = lens _apiGatewayV2ApiMappingApiMappingKey (\s a -> s { _apiGatewayV2ApiMappingApiMappingKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-apimapping.html#cfn-apigatewayv2-apimapping-domainname -agvamDomainName :: Lens' ApiGatewayV2ApiMapping (Val Text) -agvamDomainName = lens _apiGatewayV2ApiMappingDomainName (\s a -> s { _apiGatewayV2ApiMappingDomainName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-apimapping.html#cfn-apigatewayv2-apimapping-stage -agvamStage :: Lens' ApiGatewayV2ApiMapping (Val Text) -agvamStage = lens _apiGatewayV2ApiMappingStage (\s a -> s { _apiGatewayV2ApiMappingStage = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayV2Authorizer.hs b/library-gen/Stratosphere/Resources/ApiGatewayV2Authorizer.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayV2Authorizer.hs +++ /dev/null @@ -1,101 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-authorizer.html - -module Stratosphere.Resources.ApiGatewayV2Authorizer where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ApiGatewayV2AuthorizerJWTConfiguration - --- | Full data type definition for ApiGatewayV2Authorizer. See --- 'apiGatewayV2Authorizer' for a more convenient constructor. -data ApiGatewayV2Authorizer = - ApiGatewayV2Authorizer - { _apiGatewayV2AuthorizerApiId :: Val Text - , _apiGatewayV2AuthorizerAuthorizerCredentialsArn :: Maybe (Val Text) - , _apiGatewayV2AuthorizerAuthorizerResultTtlInSeconds :: Maybe (Val Integer) - , _apiGatewayV2AuthorizerAuthorizerType :: Val Text - , _apiGatewayV2AuthorizerAuthorizerUri :: Maybe (Val Text) - , _apiGatewayV2AuthorizerIdentitySource :: ValList Text - , _apiGatewayV2AuthorizerIdentityValidationExpression :: Maybe (Val Text) - , _apiGatewayV2AuthorizerJwtConfiguration :: Maybe ApiGatewayV2AuthorizerJWTConfiguration - , _apiGatewayV2AuthorizerName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayV2Authorizer where - toResourceProperties ApiGatewayV2Authorizer{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGatewayV2::Authorizer" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApiId",) . toJSON) _apiGatewayV2AuthorizerApiId - , fmap (("AuthorizerCredentialsArn",) . toJSON) _apiGatewayV2AuthorizerAuthorizerCredentialsArn - , fmap (("AuthorizerResultTtlInSeconds",) . toJSON) _apiGatewayV2AuthorizerAuthorizerResultTtlInSeconds - , (Just . ("AuthorizerType",) . toJSON) _apiGatewayV2AuthorizerAuthorizerType - , fmap (("AuthorizerUri",) . toJSON) _apiGatewayV2AuthorizerAuthorizerUri - , (Just . ("IdentitySource",) . toJSON) _apiGatewayV2AuthorizerIdentitySource - , fmap (("IdentityValidationExpression",) . toJSON) _apiGatewayV2AuthorizerIdentityValidationExpression - , fmap (("JwtConfiguration",) . toJSON) _apiGatewayV2AuthorizerJwtConfiguration - , (Just . ("Name",) . toJSON) _apiGatewayV2AuthorizerName - ] - } - --- | Constructor for 'ApiGatewayV2Authorizer' containing required fields as --- arguments. -apiGatewayV2Authorizer - :: Val Text -- ^ 'agvauApiId' - -> Val Text -- ^ 'agvauAuthorizerType' - -> ValList Text -- ^ 'agvauIdentitySource' - -> Val Text -- ^ 'agvauName' - -> ApiGatewayV2Authorizer -apiGatewayV2Authorizer apiIdarg authorizerTypearg identitySourcearg namearg = - ApiGatewayV2Authorizer - { _apiGatewayV2AuthorizerApiId = apiIdarg - , _apiGatewayV2AuthorizerAuthorizerCredentialsArn = Nothing - , _apiGatewayV2AuthorizerAuthorizerResultTtlInSeconds = Nothing - , _apiGatewayV2AuthorizerAuthorizerType = authorizerTypearg - , _apiGatewayV2AuthorizerAuthorizerUri = Nothing - , _apiGatewayV2AuthorizerIdentitySource = identitySourcearg - , _apiGatewayV2AuthorizerIdentityValidationExpression = Nothing - , _apiGatewayV2AuthorizerJwtConfiguration = Nothing - , _apiGatewayV2AuthorizerName = namearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-authorizer.html#cfn-apigatewayv2-authorizer-apiid -agvauApiId :: Lens' ApiGatewayV2Authorizer (Val Text) -agvauApiId = lens _apiGatewayV2AuthorizerApiId (\s a -> s { _apiGatewayV2AuthorizerApiId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-authorizer.html#cfn-apigatewayv2-authorizer-authorizercredentialsarn -agvauAuthorizerCredentialsArn :: Lens' ApiGatewayV2Authorizer (Maybe (Val Text)) -agvauAuthorizerCredentialsArn = lens _apiGatewayV2AuthorizerAuthorizerCredentialsArn (\s a -> s { _apiGatewayV2AuthorizerAuthorizerCredentialsArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-authorizer.html#cfn-apigatewayv2-authorizer-authorizerresultttlinseconds -agvauAuthorizerResultTtlInSeconds :: Lens' ApiGatewayV2Authorizer (Maybe (Val Integer)) -agvauAuthorizerResultTtlInSeconds = lens _apiGatewayV2AuthorizerAuthorizerResultTtlInSeconds (\s a -> s { _apiGatewayV2AuthorizerAuthorizerResultTtlInSeconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-authorizer.html#cfn-apigatewayv2-authorizer-authorizertype -agvauAuthorizerType :: Lens' ApiGatewayV2Authorizer (Val Text) -agvauAuthorizerType = lens _apiGatewayV2AuthorizerAuthorizerType (\s a -> s { _apiGatewayV2AuthorizerAuthorizerType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-authorizer.html#cfn-apigatewayv2-authorizer-authorizeruri -agvauAuthorizerUri :: Lens' ApiGatewayV2Authorizer (Maybe (Val Text)) -agvauAuthorizerUri = lens _apiGatewayV2AuthorizerAuthorizerUri (\s a -> s { _apiGatewayV2AuthorizerAuthorizerUri = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-authorizer.html#cfn-apigatewayv2-authorizer-identitysource -agvauIdentitySource :: Lens' ApiGatewayV2Authorizer (ValList Text) -agvauIdentitySource = lens _apiGatewayV2AuthorizerIdentitySource (\s a -> s { _apiGatewayV2AuthorizerIdentitySource = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-authorizer.html#cfn-apigatewayv2-authorizer-identityvalidationexpression -agvauIdentityValidationExpression :: Lens' ApiGatewayV2Authorizer (Maybe (Val Text)) -agvauIdentityValidationExpression = lens _apiGatewayV2AuthorizerIdentityValidationExpression (\s a -> s { _apiGatewayV2AuthorizerIdentityValidationExpression = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-authorizer.html#cfn-apigatewayv2-authorizer-jwtconfiguration -agvauJwtConfiguration :: Lens' ApiGatewayV2Authorizer (Maybe ApiGatewayV2AuthorizerJWTConfiguration) -agvauJwtConfiguration = lens _apiGatewayV2AuthorizerJwtConfiguration (\s a -> s { _apiGatewayV2AuthorizerJwtConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-authorizer.html#cfn-apigatewayv2-authorizer-name -agvauName :: Lens' ApiGatewayV2Authorizer (Val Text) -agvauName = lens _apiGatewayV2AuthorizerName (\s a -> s { _apiGatewayV2AuthorizerName = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayV2Deployment.hs b/library-gen/Stratosphere/Resources/ApiGatewayV2Deployment.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayV2Deployment.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-deployment.html - -module Stratosphere.Resources.ApiGatewayV2Deployment where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayV2Deployment. See --- 'apiGatewayV2Deployment' for a more convenient constructor. -data ApiGatewayV2Deployment = - ApiGatewayV2Deployment - { _apiGatewayV2DeploymentApiId :: Val Text - , _apiGatewayV2DeploymentDescription :: Maybe (Val Text) - , _apiGatewayV2DeploymentStageName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayV2Deployment where - toResourceProperties ApiGatewayV2Deployment{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGatewayV2::Deployment" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApiId",) . toJSON) _apiGatewayV2DeploymentApiId - , fmap (("Description",) . toJSON) _apiGatewayV2DeploymentDescription - , fmap (("StageName",) . toJSON) _apiGatewayV2DeploymentStageName - ] - } - --- | Constructor for 'ApiGatewayV2Deployment' containing required fields as --- arguments. -apiGatewayV2Deployment - :: Val Text -- ^ 'agvdApiId' - -> ApiGatewayV2Deployment -apiGatewayV2Deployment apiIdarg = - ApiGatewayV2Deployment - { _apiGatewayV2DeploymentApiId = apiIdarg - , _apiGatewayV2DeploymentDescription = Nothing - , _apiGatewayV2DeploymentStageName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-deployment.html#cfn-apigatewayv2-deployment-apiid -agvdApiId :: Lens' ApiGatewayV2Deployment (Val Text) -agvdApiId = lens _apiGatewayV2DeploymentApiId (\s a -> s { _apiGatewayV2DeploymentApiId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-deployment.html#cfn-apigatewayv2-deployment-description -agvdDescription :: Lens' ApiGatewayV2Deployment (Maybe (Val Text)) -agvdDescription = lens _apiGatewayV2DeploymentDescription (\s a -> s { _apiGatewayV2DeploymentDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-deployment.html#cfn-apigatewayv2-deployment-stagename -agvdStageName :: Lens' ApiGatewayV2Deployment (Maybe (Val Text)) -agvdStageName = lens _apiGatewayV2DeploymentStageName (\s a -> s { _apiGatewayV2DeploymentStageName = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayV2DomainName.hs b/library-gen/Stratosphere/Resources/ApiGatewayV2DomainName.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayV2DomainName.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-domainname.html - -module Stratosphere.Resources.ApiGatewayV2DomainName where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ApiGatewayV2DomainNameDomainNameConfiguration - --- | Full data type definition for ApiGatewayV2DomainName. See --- 'apiGatewayV2DomainName' for a more convenient constructor. -data ApiGatewayV2DomainName = - ApiGatewayV2DomainName - { _apiGatewayV2DomainNameDomainName :: Val Text - , _apiGatewayV2DomainNameDomainNameConfigurations :: Maybe [ApiGatewayV2DomainNameDomainNameConfiguration] - , _apiGatewayV2DomainNameTags :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayV2DomainName where - toResourceProperties ApiGatewayV2DomainName{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGatewayV2::DomainName" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("DomainName",) . toJSON) _apiGatewayV2DomainNameDomainName - , fmap (("DomainNameConfigurations",) . toJSON) _apiGatewayV2DomainNameDomainNameConfigurations - , fmap (("Tags",) . toJSON) _apiGatewayV2DomainNameTags - ] - } - --- | Constructor for 'ApiGatewayV2DomainName' containing required fields as --- arguments. -apiGatewayV2DomainName - :: Val Text -- ^ 'agvdnDomainName' - -> ApiGatewayV2DomainName -apiGatewayV2DomainName domainNamearg = - ApiGatewayV2DomainName - { _apiGatewayV2DomainNameDomainName = domainNamearg - , _apiGatewayV2DomainNameDomainNameConfigurations = Nothing - , _apiGatewayV2DomainNameTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-domainname.html#cfn-apigatewayv2-domainname-domainname -agvdnDomainName :: Lens' ApiGatewayV2DomainName (Val Text) -agvdnDomainName = lens _apiGatewayV2DomainNameDomainName (\s a -> s { _apiGatewayV2DomainNameDomainName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-domainname.html#cfn-apigatewayv2-domainname-domainnameconfigurations -agvdnDomainNameConfigurations :: Lens' ApiGatewayV2DomainName (Maybe [ApiGatewayV2DomainNameDomainNameConfiguration]) -agvdnDomainNameConfigurations = lens _apiGatewayV2DomainNameDomainNameConfigurations (\s a -> s { _apiGatewayV2DomainNameDomainNameConfigurations = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-domainname.html#cfn-apigatewayv2-domainname-tags -agvdnTags :: Lens' ApiGatewayV2DomainName (Maybe Object) -agvdnTags = lens _apiGatewayV2DomainNameTags (\s a -> s { _apiGatewayV2DomainNameTags = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayV2Integration.hs b/library-gen/Stratosphere/Resources/ApiGatewayV2Integration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayV2Integration.hs +++ /dev/null @@ -1,155 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html - -module Stratosphere.Resources.ApiGatewayV2Integration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ApiGatewayV2IntegrationTlsConfig - --- | Full data type definition for ApiGatewayV2Integration. See --- 'apiGatewayV2Integration' for a more convenient constructor. -data ApiGatewayV2Integration = - ApiGatewayV2Integration - { _apiGatewayV2IntegrationApiId :: Val Text - , _apiGatewayV2IntegrationConnectionId :: Maybe (Val Text) - , _apiGatewayV2IntegrationConnectionType :: Maybe (Val Text) - , _apiGatewayV2IntegrationContentHandlingStrategy :: Maybe (Val Text) - , _apiGatewayV2IntegrationCredentialsArn :: Maybe (Val Text) - , _apiGatewayV2IntegrationDescription :: Maybe (Val Text) - , _apiGatewayV2IntegrationIntegrationMethod :: Maybe (Val Text) - , _apiGatewayV2IntegrationIntegrationSubtype :: Maybe (Val Text) - , _apiGatewayV2IntegrationIntegrationType :: Val Text - , _apiGatewayV2IntegrationIntegrationUri :: Maybe (Val Text) - , _apiGatewayV2IntegrationPassthroughBehavior :: Maybe (Val Text) - , _apiGatewayV2IntegrationPayloadFormatVersion :: Maybe (Val Text) - , _apiGatewayV2IntegrationRequestParameters :: Maybe Object - , _apiGatewayV2IntegrationRequestTemplates :: Maybe Object - , _apiGatewayV2IntegrationTemplateSelectionExpression :: Maybe (Val Text) - , _apiGatewayV2IntegrationTimeoutInMillis :: Maybe (Val Integer) - , _apiGatewayV2IntegrationTlsConfig :: Maybe ApiGatewayV2IntegrationTlsConfig - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayV2Integration where - toResourceProperties ApiGatewayV2Integration{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGatewayV2::Integration" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApiId",) . toJSON) _apiGatewayV2IntegrationApiId - , fmap (("ConnectionId",) . toJSON) _apiGatewayV2IntegrationConnectionId - , fmap (("ConnectionType",) . toJSON) _apiGatewayV2IntegrationConnectionType - , fmap (("ContentHandlingStrategy",) . toJSON) _apiGatewayV2IntegrationContentHandlingStrategy - , fmap (("CredentialsArn",) . toJSON) _apiGatewayV2IntegrationCredentialsArn - , fmap (("Description",) . toJSON) _apiGatewayV2IntegrationDescription - , fmap (("IntegrationMethod",) . toJSON) _apiGatewayV2IntegrationIntegrationMethod - , fmap (("IntegrationSubtype",) . toJSON) _apiGatewayV2IntegrationIntegrationSubtype - , (Just . ("IntegrationType",) . toJSON) _apiGatewayV2IntegrationIntegrationType - , fmap (("IntegrationUri",) . toJSON) _apiGatewayV2IntegrationIntegrationUri - , fmap (("PassthroughBehavior",) . toJSON) _apiGatewayV2IntegrationPassthroughBehavior - , fmap (("PayloadFormatVersion",) . toJSON) _apiGatewayV2IntegrationPayloadFormatVersion - , fmap (("RequestParameters",) . toJSON) _apiGatewayV2IntegrationRequestParameters - , fmap (("RequestTemplates",) . toJSON) _apiGatewayV2IntegrationRequestTemplates - , fmap (("TemplateSelectionExpression",) . toJSON) _apiGatewayV2IntegrationTemplateSelectionExpression - , fmap (("TimeoutInMillis",) . toJSON) _apiGatewayV2IntegrationTimeoutInMillis - , fmap (("TlsConfig",) . toJSON) _apiGatewayV2IntegrationTlsConfig - ] - } - --- | Constructor for 'ApiGatewayV2Integration' containing required fields as --- arguments. -apiGatewayV2Integration - :: Val Text -- ^ 'agviApiId' - -> Val Text -- ^ 'agviIntegrationType' - -> ApiGatewayV2Integration -apiGatewayV2Integration apiIdarg integrationTypearg = - ApiGatewayV2Integration - { _apiGatewayV2IntegrationApiId = apiIdarg - , _apiGatewayV2IntegrationConnectionId = Nothing - , _apiGatewayV2IntegrationConnectionType = Nothing - , _apiGatewayV2IntegrationContentHandlingStrategy = Nothing - , _apiGatewayV2IntegrationCredentialsArn = Nothing - , _apiGatewayV2IntegrationDescription = Nothing - , _apiGatewayV2IntegrationIntegrationMethod = Nothing - , _apiGatewayV2IntegrationIntegrationSubtype = Nothing - , _apiGatewayV2IntegrationIntegrationType = integrationTypearg - , _apiGatewayV2IntegrationIntegrationUri = Nothing - , _apiGatewayV2IntegrationPassthroughBehavior = Nothing - , _apiGatewayV2IntegrationPayloadFormatVersion = Nothing - , _apiGatewayV2IntegrationRequestParameters = Nothing - , _apiGatewayV2IntegrationRequestTemplates = Nothing - , _apiGatewayV2IntegrationTemplateSelectionExpression = Nothing - , _apiGatewayV2IntegrationTimeoutInMillis = Nothing - , _apiGatewayV2IntegrationTlsConfig = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-apiid -agviApiId :: Lens' ApiGatewayV2Integration (Val Text) -agviApiId = lens _apiGatewayV2IntegrationApiId (\s a -> s { _apiGatewayV2IntegrationApiId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-connectionid -agviConnectionId :: Lens' ApiGatewayV2Integration (Maybe (Val Text)) -agviConnectionId = lens _apiGatewayV2IntegrationConnectionId (\s a -> s { _apiGatewayV2IntegrationConnectionId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-connectiontype -agviConnectionType :: Lens' ApiGatewayV2Integration (Maybe (Val Text)) -agviConnectionType = lens _apiGatewayV2IntegrationConnectionType (\s a -> s { _apiGatewayV2IntegrationConnectionType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-contenthandlingstrategy -agviContentHandlingStrategy :: Lens' ApiGatewayV2Integration (Maybe (Val Text)) -agviContentHandlingStrategy = lens _apiGatewayV2IntegrationContentHandlingStrategy (\s a -> s { _apiGatewayV2IntegrationContentHandlingStrategy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-credentialsarn -agviCredentialsArn :: Lens' ApiGatewayV2Integration (Maybe (Val Text)) -agviCredentialsArn = lens _apiGatewayV2IntegrationCredentialsArn (\s a -> s { _apiGatewayV2IntegrationCredentialsArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-description -agviDescription :: Lens' ApiGatewayV2Integration (Maybe (Val Text)) -agviDescription = lens _apiGatewayV2IntegrationDescription (\s a -> s { _apiGatewayV2IntegrationDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-integrationmethod -agviIntegrationMethod :: Lens' ApiGatewayV2Integration (Maybe (Val Text)) -agviIntegrationMethod = lens _apiGatewayV2IntegrationIntegrationMethod (\s a -> s { _apiGatewayV2IntegrationIntegrationMethod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-integrationsubtype -agviIntegrationSubtype :: Lens' ApiGatewayV2Integration (Maybe (Val Text)) -agviIntegrationSubtype = lens _apiGatewayV2IntegrationIntegrationSubtype (\s a -> s { _apiGatewayV2IntegrationIntegrationSubtype = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-integrationtype -agviIntegrationType :: Lens' ApiGatewayV2Integration (Val Text) -agviIntegrationType = lens _apiGatewayV2IntegrationIntegrationType (\s a -> s { _apiGatewayV2IntegrationIntegrationType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-integrationuri -agviIntegrationUri :: Lens' ApiGatewayV2Integration (Maybe (Val Text)) -agviIntegrationUri = lens _apiGatewayV2IntegrationIntegrationUri (\s a -> s { _apiGatewayV2IntegrationIntegrationUri = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-passthroughbehavior -agviPassthroughBehavior :: Lens' ApiGatewayV2Integration (Maybe (Val Text)) -agviPassthroughBehavior = lens _apiGatewayV2IntegrationPassthroughBehavior (\s a -> s { _apiGatewayV2IntegrationPassthroughBehavior = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-payloadformatversion -agviPayloadFormatVersion :: Lens' ApiGatewayV2Integration (Maybe (Val Text)) -agviPayloadFormatVersion = lens _apiGatewayV2IntegrationPayloadFormatVersion (\s a -> s { _apiGatewayV2IntegrationPayloadFormatVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-requestparameters -agviRequestParameters :: Lens' ApiGatewayV2Integration (Maybe Object) -agviRequestParameters = lens _apiGatewayV2IntegrationRequestParameters (\s a -> s { _apiGatewayV2IntegrationRequestParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-requesttemplates -agviRequestTemplates :: Lens' ApiGatewayV2Integration (Maybe Object) -agviRequestTemplates = lens _apiGatewayV2IntegrationRequestTemplates (\s a -> s { _apiGatewayV2IntegrationRequestTemplates = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-templateselectionexpression -agviTemplateSelectionExpression :: Lens' ApiGatewayV2Integration (Maybe (Val Text)) -agviTemplateSelectionExpression = lens _apiGatewayV2IntegrationTemplateSelectionExpression (\s a -> s { _apiGatewayV2IntegrationTemplateSelectionExpression = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-timeoutinmillis -agviTimeoutInMillis :: Lens' ApiGatewayV2Integration (Maybe (Val Integer)) -agviTimeoutInMillis = lens _apiGatewayV2IntegrationTimeoutInMillis (\s a -> s { _apiGatewayV2IntegrationTimeoutInMillis = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integration.html#cfn-apigatewayv2-integration-tlsconfig -agviTlsConfig :: Lens' ApiGatewayV2Integration (Maybe ApiGatewayV2IntegrationTlsConfig) -agviTlsConfig = lens _apiGatewayV2IntegrationTlsConfig (\s a -> s { _apiGatewayV2IntegrationTlsConfig = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayV2IntegrationResponse.hs b/library-gen/Stratosphere/Resources/ApiGatewayV2IntegrationResponse.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayV2IntegrationResponse.hs +++ /dev/null @@ -1,86 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integrationresponse.html - -module Stratosphere.Resources.ApiGatewayV2IntegrationResponse where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayV2IntegrationResponse. See --- 'apiGatewayV2IntegrationResponse' for a more convenient constructor. -data ApiGatewayV2IntegrationResponse = - ApiGatewayV2IntegrationResponse - { _apiGatewayV2IntegrationResponseApiId :: Val Text - , _apiGatewayV2IntegrationResponseContentHandlingStrategy :: Maybe (Val Text) - , _apiGatewayV2IntegrationResponseIntegrationId :: Val Text - , _apiGatewayV2IntegrationResponseIntegrationResponseKey :: Val Text - , _apiGatewayV2IntegrationResponseResponseParameters :: Maybe Object - , _apiGatewayV2IntegrationResponseResponseTemplates :: Maybe Object - , _apiGatewayV2IntegrationResponseTemplateSelectionExpression :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayV2IntegrationResponse where - toResourceProperties ApiGatewayV2IntegrationResponse{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGatewayV2::IntegrationResponse" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApiId",) . toJSON) _apiGatewayV2IntegrationResponseApiId - , fmap (("ContentHandlingStrategy",) . toJSON) _apiGatewayV2IntegrationResponseContentHandlingStrategy - , (Just . ("IntegrationId",) . toJSON) _apiGatewayV2IntegrationResponseIntegrationId - , (Just . ("IntegrationResponseKey",) . toJSON) _apiGatewayV2IntegrationResponseIntegrationResponseKey - , fmap (("ResponseParameters",) . toJSON) _apiGatewayV2IntegrationResponseResponseParameters - , fmap (("ResponseTemplates",) . toJSON) _apiGatewayV2IntegrationResponseResponseTemplates - , fmap (("TemplateSelectionExpression",) . toJSON) _apiGatewayV2IntegrationResponseTemplateSelectionExpression - ] - } - --- | Constructor for 'ApiGatewayV2IntegrationResponse' containing required --- fields as arguments. -apiGatewayV2IntegrationResponse - :: Val Text -- ^ 'agvirApiId' - -> Val Text -- ^ 'agvirIntegrationId' - -> Val Text -- ^ 'agvirIntegrationResponseKey' - -> ApiGatewayV2IntegrationResponse -apiGatewayV2IntegrationResponse apiIdarg integrationIdarg integrationResponseKeyarg = - ApiGatewayV2IntegrationResponse - { _apiGatewayV2IntegrationResponseApiId = apiIdarg - , _apiGatewayV2IntegrationResponseContentHandlingStrategy = Nothing - , _apiGatewayV2IntegrationResponseIntegrationId = integrationIdarg - , _apiGatewayV2IntegrationResponseIntegrationResponseKey = integrationResponseKeyarg - , _apiGatewayV2IntegrationResponseResponseParameters = Nothing - , _apiGatewayV2IntegrationResponseResponseTemplates = Nothing - , _apiGatewayV2IntegrationResponseTemplateSelectionExpression = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integrationresponse.html#cfn-apigatewayv2-integrationresponse-apiid -agvirApiId :: Lens' ApiGatewayV2IntegrationResponse (Val Text) -agvirApiId = lens _apiGatewayV2IntegrationResponseApiId (\s a -> s { _apiGatewayV2IntegrationResponseApiId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integrationresponse.html#cfn-apigatewayv2-integrationresponse-contenthandlingstrategy -agvirContentHandlingStrategy :: Lens' ApiGatewayV2IntegrationResponse (Maybe (Val Text)) -agvirContentHandlingStrategy = lens _apiGatewayV2IntegrationResponseContentHandlingStrategy (\s a -> s { _apiGatewayV2IntegrationResponseContentHandlingStrategy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integrationresponse.html#cfn-apigatewayv2-integrationresponse-integrationid -agvirIntegrationId :: Lens' ApiGatewayV2IntegrationResponse (Val Text) -agvirIntegrationId = lens _apiGatewayV2IntegrationResponseIntegrationId (\s a -> s { _apiGatewayV2IntegrationResponseIntegrationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integrationresponse.html#cfn-apigatewayv2-integrationresponse-integrationresponsekey -agvirIntegrationResponseKey :: Lens' ApiGatewayV2IntegrationResponse (Val Text) -agvirIntegrationResponseKey = lens _apiGatewayV2IntegrationResponseIntegrationResponseKey (\s a -> s { _apiGatewayV2IntegrationResponseIntegrationResponseKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integrationresponse.html#cfn-apigatewayv2-integrationresponse-responseparameters -agvirResponseParameters :: Lens' ApiGatewayV2IntegrationResponse (Maybe Object) -agvirResponseParameters = lens _apiGatewayV2IntegrationResponseResponseParameters (\s a -> s { _apiGatewayV2IntegrationResponseResponseParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integrationresponse.html#cfn-apigatewayv2-integrationresponse-responsetemplates -agvirResponseTemplates :: Lens' ApiGatewayV2IntegrationResponse (Maybe Object) -agvirResponseTemplates = lens _apiGatewayV2IntegrationResponseResponseTemplates (\s a -> s { _apiGatewayV2IntegrationResponseResponseTemplates = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-integrationresponse.html#cfn-apigatewayv2-integrationresponse-templateselectionexpression -agvirTemplateSelectionExpression :: Lens' ApiGatewayV2IntegrationResponse (Maybe (Val Text)) -agvirTemplateSelectionExpression = lens _apiGatewayV2IntegrationResponseTemplateSelectionExpression (\s a -> s { _apiGatewayV2IntegrationResponseTemplateSelectionExpression = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayV2Model.hs b/library-gen/Stratosphere/Resources/ApiGatewayV2Model.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayV2Model.hs +++ /dev/null @@ -1,72 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-model.html - -module Stratosphere.Resources.ApiGatewayV2Model where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayV2Model. See 'apiGatewayV2Model' --- for a more convenient constructor. -data ApiGatewayV2Model = - ApiGatewayV2Model - { _apiGatewayV2ModelApiId :: Val Text - , _apiGatewayV2ModelContentType :: Maybe (Val Text) - , _apiGatewayV2ModelDescription :: Maybe (Val Text) - , _apiGatewayV2ModelName :: Val Text - , _apiGatewayV2ModelSchema :: Object - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayV2Model where - toResourceProperties ApiGatewayV2Model{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGatewayV2::Model" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApiId",) . toJSON) _apiGatewayV2ModelApiId - , fmap (("ContentType",) . toJSON) _apiGatewayV2ModelContentType - , fmap (("Description",) . toJSON) _apiGatewayV2ModelDescription - , (Just . ("Name",) . toJSON) _apiGatewayV2ModelName - , (Just . ("Schema",) . toJSON) _apiGatewayV2ModelSchema - ] - } - --- | Constructor for 'ApiGatewayV2Model' containing required fields as --- arguments. -apiGatewayV2Model - :: Val Text -- ^ 'agvmApiId' - -> Val Text -- ^ 'agvmName' - -> Object -- ^ 'agvmSchema' - -> ApiGatewayV2Model -apiGatewayV2Model apiIdarg namearg schemaarg = - ApiGatewayV2Model - { _apiGatewayV2ModelApiId = apiIdarg - , _apiGatewayV2ModelContentType = Nothing - , _apiGatewayV2ModelDescription = Nothing - , _apiGatewayV2ModelName = namearg - , _apiGatewayV2ModelSchema = schemaarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-model.html#cfn-apigatewayv2-model-apiid -agvmApiId :: Lens' ApiGatewayV2Model (Val Text) -agvmApiId = lens _apiGatewayV2ModelApiId (\s a -> s { _apiGatewayV2ModelApiId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-model.html#cfn-apigatewayv2-model-contenttype -agvmContentType :: Lens' ApiGatewayV2Model (Maybe (Val Text)) -agvmContentType = lens _apiGatewayV2ModelContentType (\s a -> s { _apiGatewayV2ModelContentType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-model.html#cfn-apigatewayv2-model-description -agvmDescription :: Lens' ApiGatewayV2Model (Maybe (Val Text)) -agvmDescription = lens _apiGatewayV2ModelDescription (\s a -> s { _apiGatewayV2ModelDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-model.html#cfn-apigatewayv2-model-name -agvmName :: Lens' ApiGatewayV2Model (Val Text) -agvmName = lens _apiGatewayV2ModelName (\s a -> s { _apiGatewayV2ModelName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-model.html#cfn-apigatewayv2-model-schema -agvmSchema :: Lens' ApiGatewayV2Model Object -agvmSchema = lens _apiGatewayV2ModelSchema (\s a -> s { _apiGatewayV2ModelSchema = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayV2Route.hs b/library-gen/Stratosphere/Resources/ApiGatewayV2Route.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayV2Route.hs +++ /dev/null @@ -1,120 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-route.html - -module Stratosphere.Resources.ApiGatewayV2Route where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayV2Route. See 'apiGatewayV2Route' --- for a more convenient constructor. -data ApiGatewayV2Route = - ApiGatewayV2Route - { _apiGatewayV2RouteApiId :: Val Text - , _apiGatewayV2RouteApiKeyRequired :: Maybe (Val Bool) - , _apiGatewayV2RouteAuthorizationScopes :: Maybe (ValList Text) - , _apiGatewayV2RouteAuthorizationType :: Maybe (Val Text) - , _apiGatewayV2RouteAuthorizerId :: Maybe (Val Text) - , _apiGatewayV2RouteModelSelectionExpression :: Maybe (Val Text) - , _apiGatewayV2RouteOperationName :: Maybe (Val Text) - , _apiGatewayV2RouteRequestModels :: Maybe Object - , _apiGatewayV2RouteRequestParameters :: Maybe Object - , _apiGatewayV2RouteRouteKey :: Val Text - , _apiGatewayV2RouteRouteResponseSelectionExpression :: Maybe (Val Text) - , _apiGatewayV2RouteTarget :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayV2Route where - toResourceProperties ApiGatewayV2Route{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGatewayV2::Route" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApiId",) . toJSON) _apiGatewayV2RouteApiId - , fmap (("ApiKeyRequired",) . toJSON) _apiGatewayV2RouteApiKeyRequired - , fmap (("AuthorizationScopes",) . toJSON) _apiGatewayV2RouteAuthorizationScopes - , fmap (("AuthorizationType",) . toJSON) _apiGatewayV2RouteAuthorizationType - , fmap (("AuthorizerId",) . toJSON) _apiGatewayV2RouteAuthorizerId - , fmap (("ModelSelectionExpression",) . toJSON) _apiGatewayV2RouteModelSelectionExpression - , fmap (("OperationName",) . toJSON) _apiGatewayV2RouteOperationName - , fmap (("RequestModels",) . toJSON) _apiGatewayV2RouteRequestModels - , fmap (("RequestParameters",) . toJSON) _apiGatewayV2RouteRequestParameters - , (Just . ("RouteKey",) . toJSON) _apiGatewayV2RouteRouteKey - , fmap (("RouteResponseSelectionExpression",) . toJSON) _apiGatewayV2RouteRouteResponseSelectionExpression - , fmap (("Target",) . toJSON) _apiGatewayV2RouteTarget - ] - } - --- | Constructor for 'ApiGatewayV2Route' containing required fields as --- arguments. -apiGatewayV2Route - :: Val Text -- ^ 'agvrApiId' - -> Val Text -- ^ 'agvrRouteKey' - -> ApiGatewayV2Route -apiGatewayV2Route apiIdarg routeKeyarg = - ApiGatewayV2Route - { _apiGatewayV2RouteApiId = apiIdarg - , _apiGatewayV2RouteApiKeyRequired = Nothing - , _apiGatewayV2RouteAuthorizationScopes = Nothing - , _apiGatewayV2RouteAuthorizationType = Nothing - , _apiGatewayV2RouteAuthorizerId = Nothing - , _apiGatewayV2RouteModelSelectionExpression = Nothing - , _apiGatewayV2RouteOperationName = Nothing - , _apiGatewayV2RouteRequestModels = Nothing - , _apiGatewayV2RouteRequestParameters = Nothing - , _apiGatewayV2RouteRouteKey = routeKeyarg - , _apiGatewayV2RouteRouteResponseSelectionExpression = Nothing - , _apiGatewayV2RouteTarget = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-route.html#cfn-apigatewayv2-route-apiid -agvrApiId :: Lens' ApiGatewayV2Route (Val Text) -agvrApiId = lens _apiGatewayV2RouteApiId (\s a -> s { _apiGatewayV2RouteApiId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-route.html#cfn-apigatewayv2-route-apikeyrequired -agvrApiKeyRequired :: Lens' ApiGatewayV2Route (Maybe (Val Bool)) -agvrApiKeyRequired = lens _apiGatewayV2RouteApiKeyRequired (\s a -> s { _apiGatewayV2RouteApiKeyRequired = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-route.html#cfn-apigatewayv2-route-authorizationscopes -agvrAuthorizationScopes :: Lens' ApiGatewayV2Route (Maybe (ValList Text)) -agvrAuthorizationScopes = lens _apiGatewayV2RouteAuthorizationScopes (\s a -> s { _apiGatewayV2RouteAuthorizationScopes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-route.html#cfn-apigatewayv2-route-authorizationtype -agvrAuthorizationType :: Lens' ApiGatewayV2Route (Maybe (Val Text)) -agvrAuthorizationType = lens _apiGatewayV2RouteAuthorizationType (\s a -> s { _apiGatewayV2RouteAuthorizationType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-route.html#cfn-apigatewayv2-route-authorizerid -agvrAuthorizerId :: Lens' ApiGatewayV2Route (Maybe (Val Text)) -agvrAuthorizerId = lens _apiGatewayV2RouteAuthorizerId (\s a -> s { _apiGatewayV2RouteAuthorizerId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-route.html#cfn-apigatewayv2-route-modelselectionexpression -agvrModelSelectionExpression :: Lens' ApiGatewayV2Route (Maybe (Val Text)) -agvrModelSelectionExpression = lens _apiGatewayV2RouteModelSelectionExpression (\s a -> s { _apiGatewayV2RouteModelSelectionExpression = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-route.html#cfn-apigatewayv2-route-operationname -agvrOperationName :: Lens' ApiGatewayV2Route (Maybe (Val Text)) -agvrOperationName = lens _apiGatewayV2RouteOperationName (\s a -> s { _apiGatewayV2RouteOperationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-route.html#cfn-apigatewayv2-route-requestmodels -agvrRequestModels :: Lens' ApiGatewayV2Route (Maybe Object) -agvrRequestModels = lens _apiGatewayV2RouteRequestModels (\s a -> s { _apiGatewayV2RouteRequestModels = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-route.html#cfn-apigatewayv2-route-requestparameters -agvrRequestParameters :: Lens' ApiGatewayV2Route (Maybe Object) -agvrRequestParameters = lens _apiGatewayV2RouteRequestParameters (\s a -> s { _apiGatewayV2RouteRequestParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-route.html#cfn-apigatewayv2-route-routekey -agvrRouteKey :: Lens' ApiGatewayV2Route (Val Text) -agvrRouteKey = lens _apiGatewayV2RouteRouteKey (\s a -> s { _apiGatewayV2RouteRouteKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-route.html#cfn-apigatewayv2-route-routeresponseselectionexpression -agvrRouteResponseSelectionExpression :: Lens' ApiGatewayV2Route (Maybe (Val Text)) -agvrRouteResponseSelectionExpression = lens _apiGatewayV2RouteRouteResponseSelectionExpression (\s a -> s { _apiGatewayV2RouteRouteResponseSelectionExpression = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-route.html#cfn-apigatewayv2-route-target -agvrTarget :: Lens' ApiGatewayV2Route (Maybe (Val Text)) -agvrTarget = lens _apiGatewayV2RouteTarget (\s a -> s { _apiGatewayV2RouteTarget = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayV2RouteResponse.hs b/library-gen/Stratosphere/Resources/ApiGatewayV2RouteResponse.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayV2RouteResponse.hs +++ /dev/null @@ -1,79 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-routeresponse.html - -module Stratosphere.Resources.ApiGatewayV2RouteResponse where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayV2RouteResponse. See --- 'apiGatewayV2RouteResponse' for a more convenient constructor. -data ApiGatewayV2RouteResponse = - ApiGatewayV2RouteResponse - { _apiGatewayV2RouteResponseApiId :: Val Text - , _apiGatewayV2RouteResponseModelSelectionExpression :: Maybe (Val Text) - , _apiGatewayV2RouteResponseResponseModels :: Maybe Object - , _apiGatewayV2RouteResponseResponseParameters :: Maybe Object - , _apiGatewayV2RouteResponseRouteId :: Val Text - , _apiGatewayV2RouteResponseRouteResponseKey :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayV2RouteResponse where - toResourceProperties ApiGatewayV2RouteResponse{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGatewayV2::RouteResponse" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApiId",) . toJSON) _apiGatewayV2RouteResponseApiId - , fmap (("ModelSelectionExpression",) . toJSON) _apiGatewayV2RouteResponseModelSelectionExpression - , fmap (("ResponseModels",) . toJSON) _apiGatewayV2RouteResponseResponseModels - , fmap (("ResponseParameters",) . toJSON) _apiGatewayV2RouteResponseResponseParameters - , (Just . ("RouteId",) . toJSON) _apiGatewayV2RouteResponseRouteId - , (Just . ("RouteResponseKey",) . toJSON) _apiGatewayV2RouteResponseRouteResponseKey - ] - } - --- | Constructor for 'ApiGatewayV2RouteResponse' containing required fields as --- arguments. -apiGatewayV2RouteResponse - :: Val Text -- ^ 'agvrrApiId' - -> Val Text -- ^ 'agvrrRouteId' - -> Val Text -- ^ 'agvrrRouteResponseKey' - -> ApiGatewayV2RouteResponse -apiGatewayV2RouteResponse apiIdarg routeIdarg routeResponseKeyarg = - ApiGatewayV2RouteResponse - { _apiGatewayV2RouteResponseApiId = apiIdarg - , _apiGatewayV2RouteResponseModelSelectionExpression = Nothing - , _apiGatewayV2RouteResponseResponseModels = Nothing - , _apiGatewayV2RouteResponseResponseParameters = Nothing - , _apiGatewayV2RouteResponseRouteId = routeIdarg - , _apiGatewayV2RouteResponseRouteResponseKey = routeResponseKeyarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-routeresponse.html#cfn-apigatewayv2-routeresponse-apiid -agvrrApiId :: Lens' ApiGatewayV2RouteResponse (Val Text) -agvrrApiId = lens _apiGatewayV2RouteResponseApiId (\s a -> s { _apiGatewayV2RouteResponseApiId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-routeresponse.html#cfn-apigatewayv2-routeresponse-modelselectionexpression -agvrrModelSelectionExpression :: Lens' ApiGatewayV2RouteResponse (Maybe (Val Text)) -agvrrModelSelectionExpression = lens _apiGatewayV2RouteResponseModelSelectionExpression (\s a -> s { _apiGatewayV2RouteResponseModelSelectionExpression = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-routeresponse.html#cfn-apigatewayv2-routeresponse-responsemodels -agvrrResponseModels :: Lens' ApiGatewayV2RouteResponse (Maybe Object) -agvrrResponseModels = lens _apiGatewayV2RouteResponseResponseModels (\s a -> s { _apiGatewayV2RouteResponseResponseModels = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-routeresponse.html#cfn-apigatewayv2-routeresponse-responseparameters -agvrrResponseParameters :: Lens' ApiGatewayV2RouteResponse (Maybe Object) -agvrrResponseParameters = lens _apiGatewayV2RouteResponseResponseParameters (\s a -> s { _apiGatewayV2RouteResponseResponseParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-routeresponse.html#cfn-apigatewayv2-routeresponse-routeid -agvrrRouteId :: Lens' ApiGatewayV2RouteResponse (Val Text) -agvrrRouteId = lens _apiGatewayV2RouteResponseRouteId (\s a -> s { _apiGatewayV2RouteResponseRouteId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-routeresponse.html#cfn-apigatewayv2-routeresponse-routeresponsekey -agvrrRouteResponseKey :: Lens' ApiGatewayV2RouteResponse (Val Text) -agvrrRouteResponseKey = lens _apiGatewayV2RouteResponseRouteResponseKey (\s a -> s { _apiGatewayV2RouteResponseRouteResponseKey = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayV2Stage.hs b/library-gen/Stratosphere/Resources/ApiGatewayV2Stage.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayV2Stage.hs +++ /dev/null @@ -1,114 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-stage.html - -module Stratosphere.Resources.ApiGatewayV2Stage where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ApiGatewayV2StageAccessLogSettings -import Stratosphere.ResourceProperties.ApiGatewayV2StageRouteSettings - --- | Full data type definition for ApiGatewayV2Stage. See 'apiGatewayV2Stage' --- for a more convenient constructor. -data ApiGatewayV2Stage = - ApiGatewayV2Stage - { _apiGatewayV2StageAccessLogSettings :: Maybe ApiGatewayV2StageAccessLogSettings - , _apiGatewayV2StageApiId :: Val Text - , _apiGatewayV2StageAutoDeploy :: Maybe (Val Bool) - , _apiGatewayV2StageClientCertificateId :: Maybe (Val Text) - , _apiGatewayV2StageDefaultRouteSettings :: Maybe ApiGatewayV2StageRouteSettings - , _apiGatewayV2StageDeploymentId :: Maybe (Val Text) - , _apiGatewayV2StageDescription :: Maybe (Val Text) - , _apiGatewayV2StageRouteSettings :: Maybe Object - , _apiGatewayV2StageStageName :: Val Text - , _apiGatewayV2StageStageVariables :: Maybe Object - , _apiGatewayV2StageTags :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayV2Stage where - toResourceProperties ApiGatewayV2Stage{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGatewayV2::Stage" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AccessLogSettings",) . toJSON) _apiGatewayV2StageAccessLogSettings - , (Just . ("ApiId",) . toJSON) _apiGatewayV2StageApiId - , fmap (("AutoDeploy",) . toJSON) _apiGatewayV2StageAutoDeploy - , fmap (("ClientCertificateId",) . toJSON) _apiGatewayV2StageClientCertificateId - , fmap (("DefaultRouteSettings",) . toJSON) _apiGatewayV2StageDefaultRouteSettings - , fmap (("DeploymentId",) . toJSON) _apiGatewayV2StageDeploymentId - , fmap (("Description",) . toJSON) _apiGatewayV2StageDescription - , fmap (("RouteSettings",) . toJSON) _apiGatewayV2StageRouteSettings - , (Just . ("StageName",) . toJSON) _apiGatewayV2StageStageName - , fmap (("StageVariables",) . toJSON) _apiGatewayV2StageStageVariables - , fmap (("Tags",) . toJSON) _apiGatewayV2StageTags - ] - } - --- | Constructor for 'ApiGatewayV2Stage' containing required fields as --- arguments. -apiGatewayV2Stage - :: Val Text -- ^ 'agvsApiId' - -> Val Text -- ^ 'agvsStageName' - -> ApiGatewayV2Stage -apiGatewayV2Stage apiIdarg stageNamearg = - ApiGatewayV2Stage - { _apiGatewayV2StageAccessLogSettings = Nothing - , _apiGatewayV2StageApiId = apiIdarg - , _apiGatewayV2StageAutoDeploy = Nothing - , _apiGatewayV2StageClientCertificateId = Nothing - , _apiGatewayV2StageDefaultRouteSettings = Nothing - , _apiGatewayV2StageDeploymentId = Nothing - , _apiGatewayV2StageDescription = Nothing - , _apiGatewayV2StageRouteSettings = Nothing - , _apiGatewayV2StageStageName = stageNamearg - , _apiGatewayV2StageStageVariables = Nothing - , _apiGatewayV2StageTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-stage.html#cfn-apigatewayv2-stage-accesslogsettings -agvsAccessLogSettings :: Lens' ApiGatewayV2Stage (Maybe ApiGatewayV2StageAccessLogSettings) -agvsAccessLogSettings = lens _apiGatewayV2StageAccessLogSettings (\s a -> s { _apiGatewayV2StageAccessLogSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-stage.html#cfn-apigatewayv2-stage-apiid -agvsApiId :: Lens' ApiGatewayV2Stage (Val Text) -agvsApiId = lens _apiGatewayV2StageApiId (\s a -> s { _apiGatewayV2StageApiId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-stage.html#cfn-apigatewayv2-stage-autodeploy -agvsAutoDeploy :: Lens' ApiGatewayV2Stage (Maybe (Val Bool)) -agvsAutoDeploy = lens _apiGatewayV2StageAutoDeploy (\s a -> s { _apiGatewayV2StageAutoDeploy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-stage.html#cfn-apigatewayv2-stage-clientcertificateid -agvsClientCertificateId :: Lens' ApiGatewayV2Stage (Maybe (Val Text)) -agvsClientCertificateId = lens _apiGatewayV2StageClientCertificateId (\s a -> s { _apiGatewayV2StageClientCertificateId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-stage.html#cfn-apigatewayv2-stage-defaultroutesettings -agvsDefaultRouteSettings :: Lens' ApiGatewayV2Stage (Maybe ApiGatewayV2StageRouteSettings) -agvsDefaultRouteSettings = lens _apiGatewayV2StageDefaultRouteSettings (\s a -> s { _apiGatewayV2StageDefaultRouteSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-stage.html#cfn-apigatewayv2-stage-deploymentid -agvsDeploymentId :: Lens' ApiGatewayV2Stage (Maybe (Val Text)) -agvsDeploymentId = lens _apiGatewayV2StageDeploymentId (\s a -> s { _apiGatewayV2StageDeploymentId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-stage.html#cfn-apigatewayv2-stage-description -agvsDescription :: Lens' ApiGatewayV2Stage (Maybe (Val Text)) -agvsDescription = lens _apiGatewayV2StageDescription (\s a -> s { _apiGatewayV2StageDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-stage.html#cfn-apigatewayv2-stage-routesettings -agvsRouteSettings :: Lens' ApiGatewayV2Stage (Maybe Object) -agvsRouteSettings = lens _apiGatewayV2StageRouteSettings (\s a -> s { _apiGatewayV2StageRouteSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-stage.html#cfn-apigatewayv2-stage-stagename -agvsStageName :: Lens' ApiGatewayV2Stage (Val Text) -agvsStageName = lens _apiGatewayV2StageStageName (\s a -> s { _apiGatewayV2StageStageName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-stage.html#cfn-apigatewayv2-stage-stagevariables -agvsStageVariables :: Lens' ApiGatewayV2Stage (Maybe Object) -agvsStageVariables = lens _apiGatewayV2StageStageVariables (\s a -> s { _apiGatewayV2StageStageVariables = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-stage.html#cfn-apigatewayv2-stage-tags -agvsTags :: Lens' ApiGatewayV2Stage (Maybe Object) -agvsTags = lens _apiGatewayV2StageTags (\s a -> s { _apiGatewayV2StageTags = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayV2VpcLink.hs b/library-gen/Stratosphere/Resources/ApiGatewayV2VpcLink.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayV2VpcLink.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-vpclink.html - -module Stratosphere.Resources.ApiGatewayV2VpcLink where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayV2VpcLink. See --- 'apiGatewayV2VpcLink' for a more convenient constructor. -data ApiGatewayV2VpcLink = - ApiGatewayV2VpcLink - { _apiGatewayV2VpcLinkName :: Val Text - , _apiGatewayV2VpcLinkSecurityGroupIds :: Maybe (ValList Text) - , _apiGatewayV2VpcLinkSubnetIds :: ValList Text - , _apiGatewayV2VpcLinkTags :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayV2VpcLink where - toResourceProperties ApiGatewayV2VpcLink{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGatewayV2::VpcLink" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Name",) . toJSON) _apiGatewayV2VpcLinkName - , fmap (("SecurityGroupIds",) . toJSON) _apiGatewayV2VpcLinkSecurityGroupIds - , (Just . ("SubnetIds",) . toJSON) _apiGatewayV2VpcLinkSubnetIds - , fmap (("Tags",) . toJSON) _apiGatewayV2VpcLinkTags - ] - } - --- | Constructor for 'ApiGatewayV2VpcLink' containing required fields as --- arguments. -apiGatewayV2VpcLink - :: Val Text -- ^ 'agvvlName' - -> ValList Text -- ^ 'agvvlSubnetIds' - -> ApiGatewayV2VpcLink -apiGatewayV2VpcLink namearg subnetIdsarg = - ApiGatewayV2VpcLink - { _apiGatewayV2VpcLinkName = namearg - , _apiGatewayV2VpcLinkSecurityGroupIds = Nothing - , _apiGatewayV2VpcLinkSubnetIds = subnetIdsarg - , _apiGatewayV2VpcLinkTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-vpclink.html#cfn-apigatewayv2-vpclink-name -agvvlName :: Lens' ApiGatewayV2VpcLink (Val Text) -agvvlName = lens _apiGatewayV2VpcLinkName (\s a -> s { _apiGatewayV2VpcLinkName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-vpclink.html#cfn-apigatewayv2-vpclink-securitygroupids -agvvlSecurityGroupIds :: Lens' ApiGatewayV2VpcLink (Maybe (ValList Text)) -agvvlSecurityGroupIds = lens _apiGatewayV2VpcLinkSecurityGroupIds (\s a -> s { _apiGatewayV2VpcLinkSecurityGroupIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-vpclink.html#cfn-apigatewayv2-vpclink-subnetids -agvvlSubnetIds :: Lens' ApiGatewayV2VpcLink (ValList Text) -agvvlSubnetIds = lens _apiGatewayV2VpcLinkSubnetIds (\s a -> s { _apiGatewayV2VpcLinkSubnetIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigatewayv2-vpclink.html#cfn-apigatewayv2-vpclink-tags -agvvlTags :: Lens' ApiGatewayV2VpcLink (Maybe Object) -agvvlTags = lens _apiGatewayV2VpcLinkTags (\s a -> s { _apiGatewayV2VpcLinkTags = a }) diff --git a/library-gen/Stratosphere/Resources/ApiGatewayVpcLink.hs b/library-gen/Stratosphere/Resources/ApiGatewayVpcLink.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApiGatewayVpcLink.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-vpclink.html - -module Stratosphere.Resources.ApiGatewayVpcLink where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ApiGatewayVpcLink. See 'apiGatewayVpcLink' --- for a more convenient constructor. -data ApiGatewayVpcLink = - ApiGatewayVpcLink - { _apiGatewayVpcLinkDescription :: Maybe (Val Text) - , _apiGatewayVpcLinkName :: Val Text - , _apiGatewayVpcLinkTargetArns :: ValList Text - } deriving (Show, Eq) - -instance ToResourceProperties ApiGatewayVpcLink where - toResourceProperties ApiGatewayVpcLink{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApiGateway::VpcLink" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _apiGatewayVpcLinkDescription - , (Just . ("Name",) . toJSON) _apiGatewayVpcLinkName - , (Just . ("TargetArns",) . toJSON) _apiGatewayVpcLinkTargetArns - ] - } - --- | Constructor for 'ApiGatewayVpcLink' containing required fields as --- arguments. -apiGatewayVpcLink - :: Val Text -- ^ 'agvlName' - -> ValList Text -- ^ 'agvlTargetArns' - -> ApiGatewayVpcLink -apiGatewayVpcLink namearg targetArnsarg = - ApiGatewayVpcLink - { _apiGatewayVpcLinkDescription = Nothing - , _apiGatewayVpcLinkName = namearg - , _apiGatewayVpcLinkTargetArns = targetArnsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-vpclink.html#cfn-apigateway-vpclink-description -agvlDescription :: Lens' ApiGatewayVpcLink (Maybe (Val Text)) -agvlDescription = lens _apiGatewayVpcLinkDescription (\s a -> s { _apiGatewayVpcLinkDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-vpclink.html#cfn-apigateway-vpclink-name -agvlName :: Lens' ApiGatewayVpcLink (Val Text) -agvlName = lens _apiGatewayVpcLinkName (\s a -> s { _apiGatewayVpcLinkName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-vpclink.html#cfn-apigateway-vpclink-targetarns -agvlTargetArns :: Lens' ApiGatewayVpcLink (ValList Text) -agvlTargetArns = lens _apiGatewayVpcLinkTargetArns (\s a -> s { _apiGatewayVpcLinkTargetArns = a }) diff --git a/library-gen/Stratosphere/Resources/AppConfigApplication.hs b/library-gen/Stratosphere/Resources/AppConfigApplication.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AppConfigApplication.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-application.html - -module Stratosphere.Resources.AppConfigApplication where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppConfigApplicationTags - --- | Full data type definition for AppConfigApplication. See --- 'appConfigApplication' for a more convenient constructor. -data AppConfigApplication = - AppConfigApplication - { _appConfigApplicationDescription :: Maybe (Val Text) - , _appConfigApplicationName :: Val Text - , _appConfigApplicationTags :: Maybe [AppConfigApplicationTags] - } deriving (Show, Eq) - -instance ToResourceProperties AppConfigApplication where - toResourceProperties AppConfigApplication{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AppConfig::Application" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _appConfigApplicationDescription - , (Just . ("Name",) . toJSON) _appConfigApplicationName - , fmap (("Tags",) . toJSON) _appConfigApplicationTags - ] - } - --- | Constructor for 'AppConfigApplication' containing required fields as --- arguments. -appConfigApplication - :: Val Text -- ^ 'acaName' - -> AppConfigApplication -appConfigApplication namearg = - AppConfigApplication - { _appConfigApplicationDescription = Nothing - , _appConfigApplicationName = namearg - , _appConfigApplicationTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-application.html#cfn-appconfig-application-description -acaDescription :: Lens' AppConfigApplication (Maybe (Val Text)) -acaDescription = lens _appConfigApplicationDescription (\s a -> s { _appConfigApplicationDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-application.html#cfn-appconfig-application-name -acaName :: Lens' AppConfigApplication (Val Text) -acaName = lens _appConfigApplicationName (\s a -> s { _appConfigApplicationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-application.html#cfn-appconfig-application-tags -acaTags :: Lens' AppConfigApplication (Maybe [AppConfigApplicationTags]) -acaTags = lens _appConfigApplicationTags (\s a -> s { _appConfigApplicationTags = a }) diff --git a/library-gen/Stratosphere/Resources/AppConfigConfigurationProfile.hs b/library-gen/Stratosphere/Resources/AppConfigConfigurationProfile.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AppConfigConfigurationProfile.hs +++ /dev/null @@ -1,87 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-configurationprofile.html - -module Stratosphere.Resources.AppConfigConfigurationProfile where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppConfigConfigurationProfileTags -import Stratosphere.ResourceProperties.AppConfigConfigurationProfileValidators - --- | Full data type definition for AppConfigConfigurationProfile. See --- 'appConfigConfigurationProfile' for a more convenient constructor. -data AppConfigConfigurationProfile = - AppConfigConfigurationProfile - { _appConfigConfigurationProfileApplicationId :: Val Text - , _appConfigConfigurationProfileDescription :: Maybe (Val Text) - , _appConfigConfigurationProfileLocationUri :: Val Text - , _appConfigConfigurationProfileName :: Val Text - , _appConfigConfigurationProfileRetrievalRoleArn :: Maybe (Val Text) - , _appConfigConfigurationProfileTags :: Maybe [AppConfigConfigurationProfileTags] - , _appConfigConfigurationProfileValidators :: Maybe [AppConfigConfigurationProfileValidators] - } deriving (Show, Eq) - -instance ToResourceProperties AppConfigConfigurationProfile where - toResourceProperties AppConfigConfigurationProfile{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AppConfig::ConfigurationProfile" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApplicationId",) . toJSON) _appConfigConfigurationProfileApplicationId - , fmap (("Description",) . toJSON) _appConfigConfigurationProfileDescription - , (Just . ("LocationUri",) . toJSON) _appConfigConfigurationProfileLocationUri - , (Just . ("Name",) . toJSON) _appConfigConfigurationProfileName - , fmap (("RetrievalRoleArn",) . toJSON) _appConfigConfigurationProfileRetrievalRoleArn - , fmap (("Tags",) . toJSON) _appConfigConfigurationProfileTags - , fmap (("Validators",) . toJSON) _appConfigConfigurationProfileValidators - ] - } - --- | Constructor for 'AppConfigConfigurationProfile' containing required --- fields as arguments. -appConfigConfigurationProfile - :: Val Text -- ^ 'accpApplicationId' - -> Val Text -- ^ 'accpLocationUri' - -> Val Text -- ^ 'accpName' - -> AppConfigConfigurationProfile -appConfigConfigurationProfile applicationIdarg locationUriarg namearg = - AppConfigConfigurationProfile - { _appConfigConfigurationProfileApplicationId = applicationIdarg - , _appConfigConfigurationProfileDescription = Nothing - , _appConfigConfigurationProfileLocationUri = locationUriarg - , _appConfigConfigurationProfileName = namearg - , _appConfigConfigurationProfileRetrievalRoleArn = Nothing - , _appConfigConfigurationProfileTags = Nothing - , _appConfigConfigurationProfileValidators = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-configurationprofile.html#cfn-appconfig-configurationprofile-applicationid -accpApplicationId :: Lens' AppConfigConfigurationProfile (Val Text) -accpApplicationId = lens _appConfigConfigurationProfileApplicationId (\s a -> s { _appConfigConfigurationProfileApplicationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-configurationprofile.html#cfn-appconfig-configurationprofile-description -accpDescription :: Lens' AppConfigConfigurationProfile (Maybe (Val Text)) -accpDescription = lens _appConfigConfigurationProfileDescription (\s a -> s { _appConfigConfigurationProfileDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-configurationprofile.html#cfn-appconfig-configurationprofile-locationuri -accpLocationUri :: Lens' AppConfigConfigurationProfile (Val Text) -accpLocationUri = lens _appConfigConfigurationProfileLocationUri (\s a -> s { _appConfigConfigurationProfileLocationUri = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-configurationprofile.html#cfn-appconfig-configurationprofile-name -accpName :: Lens' AppConfigConfigurationProfile (Val Text) -accpName = lens _appConfigConfigurationProfileName (\s a -> s { _appConfigConfigurationProfileName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-configurationprofile.html#cfn-appconfig-configurationprofile-retrievalrolearn -accpRetrievalRoleArn :: Lens' AppConfigConfigurationProfile (Maybe (Val Text)) -accpRetrievalRoleArn = lens _appConfigConfigurationProfileRetrievalRoleArn (\s a -> s { _appConfigConfigurationProfileRetrievalRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-configurationprofile.html#cfn-appconfig-configurationprofile-tags -accpTags :: Lens' AppConfigConfigurationProfile (Maybe [AppConfigConfigurationProfileTags]) -accpTags = lens _appConfigConfigurationProfileTags (\s a -> s { _appConfigConfigurationProfileTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-configurationprofile.html#cfn-appconfig-configurationprofile-validators -accpValidators :: Lens' AppConfigConfigurationProfile (Maybe [AppConfigConfigurationProfileValidators]) -accpValidators = lens _appConfigConfigurationProfileValidators (\s a -> s { _appConfigConfigurationProfileValidators = a }) diff --git a/library-gen/Stratosphere/Resources/AppConfigDeployment.hs b/library-gen/Stratosphere/Resources/AppConfigDeployment.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AppConfigDeployment.hs +++ /dev/null @@ -1,88 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-deployment.html - -module Stratosphere.Resources.AppConfigDeployment where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppConfigDeploymentTags - --- | Full data type definition for AppConfigDeployment. See --- 'appConfigDeployment' for a more convenient constructor. -data AppConfigDeployment = - AppConfigDeployment - { _appConfigDeploymentApplicationId :: Val Text - , _appConfigDeploymentConfigurationProfileId :: Val Text - , _appConfigDeploymentConfigurationVersion :: Val Text - , _appConfigDeploymentDeploymentStrategyId :: Val Text - , _appConfigDeploymentDescription :: Maybe (Val Text) - , _appConfigDeploymentEnvironmentId :: Val Text - , _appConfigDeploymentTags :: Maybe [AppConfigDeploymentTags] - } deriving (Show, Eq) - -instance ToResourceProperties AppConfigDeployment where - toResourceProperties AppConfigDeployment{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AppConfig::Deployment" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApplicationId",) . toJSON) _appConfigDeploymentApplicationId - , (Just . ("ConfigurationProfileId",) . toJSON) _appConfigDeploymentConfigurationProfileId - , (Just . ("ConfigurationVersion",) . toJSON) _appConfigDeploymentConfigurationVersion - , (Just . ("DeploymentStrategyId",) . toJSON) _appConfigDeploymentDeploymentStrategyId - , fmap (("Description",) . toJSON) _appConfigDeploymentDescription - , (Just . ("EnvironmentId",) . toJSON) _appConfigDeploymentEnvironmentId - , fmap (("Tags",) . toJSON) _appConfigDeploymentTags - ] - } - --- | Constructor for 'AppConfigDeployment' containing required fields as --- arguments. -appConfigDeployment - :: Val Text -- ^ 'acdApplicationId' - -> Val Text -- ^ 'acdConfigurationProfileId' - -> Val Text -- ^ 'acdConfigurationVersion' - -> Val Text -- ^ 'acdDeploymentStrategyId' - -> Val Text -- ^ 'acdEnvironmentId' - -> AppConfigDeployment -appConfigDeployment applicationIdarg configurationProfileIdarg configurationVersionarg deploymentStrategyIdarg environmentIdarg = - AppConfigDeployment - { _appConfigDeploymentApplicationId = applicationIdarg - , _appConfigDeploymentConfigurationProfileId = configurationProfileIdarg - , _appConfigDeploymentConfigurationVersion = configurationVersionarg - , _appConfigDeploymentDeploymentStrategyId = deploymentStrategyIdarg - , _appConfigDeploymentDescription = Nothing - , _appConfigDeploymentEnvironmentId = environmentIdarg - , _appConfigDeploymentTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-deployment.html#cfn-appconfig-deployment-applicationid -acdApplicationId :: Lens' AppConfigDeployment (Val Text) -acdApplicationId = lens _appConfigDeploymentApplicationId (\s a -> s { _appConfigDeploymentApplicationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-deployment.html#cfn-appconfig-deployment-configurationprofileid -acdConfigurationProfileId :: Lens' AppConfigDeployment (Val Text) -acdConfigurationProfileId = lens _appConfigDeploymentConfigurationProfileId (\s a -> s { _appConfigDeploymentConfigurationProfileId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-deployment.html#cfn-appconfig-deployment-configurationversion -acdConfigurationVersion :: Lens' AppConfigDeployment (Val Text) -acdConfigurationVersion = lens _appConfigDeploymentConfigurationVersion (\s a -> s { _appConfigDeploymentConfigurationVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-deployment.html#cfn-appconfig-deployment-deploymentstrategyid -acdDeploymentStrategyId :: Lens' AppConfigDeployment (Val Text) -acdDeploymentStrategyId = lens _appConfigDeploymentDeploymentStrategyId (\s a -> s { _appConfigDeploymentDeploymentStrategyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-deployment.html#cfn-appconfig-deployment-description -acdDescription :: Lens' AppConfigDeployment (Maybe (Val Text)) -acdDescription = lens _appConfigDeploymentDescription (\s a -> s { _appConfigDeploymentDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-deployment.html#cfn-appconfig-deployment-environmentid -acdEnvironmentId :: Lens' AppConfigDeployment (Val Text) -acdEnvironmentId = lens _appConfigDeploymentEnvironmentId (\s a -> s { _appConfigDeploymentEnvironmentId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-deployment.html#cfn-appconfig-deployment-tags -acdTags :: Lens' AppConfigDeployment (Maybe [AppConfigDeploymentTags]) -acdTags = lens _appConfigDeploymentTags (\s a -> s { _appConfigDeploymentTags = a }) diff --git a/library-gen/Stratosphere/Resources/AppConfigDeploymentStrategy.hs b/library-gen/Stratosphere/Resources/AppConfigDeploymentStrategy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AppConfigDeploymentStrategy.hs +++ /dev/null @@ -1,94 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-deploymentstrategy.html - -module Stratosphere.Resources.AppConfigDeploymentStrategy where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppConfigDeploymentStrategyTags - --- | Full data type definition for AppConfigDeploymentStrategy. See --- 'appConfigDeploymentStrategy' for a more convenient constructor. -data AppConfigDeploymentStrategy = - AppConfigDeploymentStrategy - { _appConfigDeploymentStrategyDeploymentDurationInMinutes :: Val Double - , _appConfigDeploymentStrategyDescription :: Maybe (Val Text) - , _appConfigDeploymentStrategyFinalBakeTimeInMinutes :: Maybe (Val Double) - , _appConfigDeploymentStrategyGrowthFactor :: Val Double - , _appConfigDeploymentStrategyGrowthType :: Maybe (Val Text) - , _appConfigDeploymentStrategyName :: Val Text - , _appConfigDeploymentStrategyReplicateTo :: Val Text - , _appConfigDeploymentStrategyTags :: Maybe [AppConfigDeploymentStrategyTags] - } deriving (Show, Eq) - -instance ToResourceProperties AppConfigDeploymentStrategy where - toResourceProperties AppConfigDeploymentStrategy{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AppConfig::DeploymentStrategy" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("DeploymentDurationInMinutes",) . toJSON) _appConfigDeploymentStrategyDeploymentDurationInMinutes - , fmap (("Description",) . toJSON) _appConfigDeploymentStrategyDescription - , fmap (("FinalBakeTimeInMinutes",) . toJSON) _appConfigDeploymentStrategyFinalBakeTimeInMinutes - , (Just . ("GrowthFactor",) . toJSON) _appConfigDeploymentStrategyGrowthFactor - , fmap (("GrowthType",) . toJSON) _appConfigDeploymentStrategyGrowthType - , (Just . ("Name",) . toJSON) _appConfigDeploymentStrategyName - , (Just . ("ReplicateTo",) . toJSON) _appConfigDeploymentStrategyReplicateTo - , fmap (("Tags",) . toJSON) _appConfigDeploymentStrategyTags - ] - } - --- | Constructor for 'AppConfigDeploymentStrategy' containing required fields --- as arguments. -appConfigDeploymentStrategy - :: Val Double -- ^ 'acdsDeploymentDurationInMinutes' - -> Val Double -- ^ 'acdsGrowthFactor' - -> Val Text -- ^ 'acdsName' - -> Val Text -- ^ 'acdsReplicateTo' - -> AppConfigDeploymentStrategy -appConfigDeploymentStrategy deploymentDurationInMinutesarg growthFactorarg namearg replicateToarg = - AppConfigDeploymentStrategy - { _appConfigDeploymentStrategyDeploymentDurationInMinutes = deploymentDurationInMinutesarg - , _appConfigDeploymentStrategyDescription = Nothing - , _appConfigDeploymentStrategyFinalBakeTimeInMinutes = Nothing - , _appConfigDeploymentStrategyGrowthFactor = growthFactorarg - , _appConfigDeploymentStrategyGrowthType = Nothing - , _appConfigDeploymentStrategyName = namearg - , _appConfigDeploymentStrategyReplicateTo = replicateToarg - , _appConfigDeploymentStrategyTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-deploymentstrategy.html#cfn-appconfig-deploymentstrategy-deploymentdurationinminutes -acdsDeploymentDurationInMinutes :: Lens' AppConfigDeploymentStrategy (Val Double) -acdsDeploymentDurationInMinutes = lens _appConfigDeploymentStrategyDeploymentDurationInMinutes (\s a -> s { _appConfigDeploymentStrategyDeploymentDurationInMinutes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-deploymentstrategy.html#cfn-appconfig-deploymentstrategy-description -acdsDescription :: Lens' AppConfigDeploymentStrategy (Maybe (Val Text)) -acdsDescription = lens _appConfigDeploymentStrategyDescription (\s a -> s { _appConfigDeploymentStrategyDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-deploymentstrategy.html#cfn-appconfig-deploymentstrategy-finalbaketimeinminutes -acdsFinalBakeTimeInMinutes :: Lens' AppConfigDeploymentStrategy (Maybe (Val Double)) -acdsFinalBakeTimeInMinutes = lens _appConfigDeploymentStrategyFinalBakeTimeInMinutes (\s a -> s { _appConfigDeploymentStrategyFinalBakeTimeInMinutes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-deploymentstrategy.html#cfn-appconfig-deploymentstrategy-growthfactor -acdsGrowthFactor :: Lens' AppConfigDeploymentStrategy (Val Double) -acdsGrowthFactor = lens _appConfigDeploymentStrategyGrowthFactor (\s a -> s { _appConfigDeploymentStrategyGrowthFactor = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-deploymentstrategy.html#cfn-appconfig-deploymentstrategy-growthtype -acdsGrowthType :: Lens' AppConfigDeploymentStrategy (Maybe (Val Text)) -acdsGrowthType = lens _appConfigDeploymentStrategyGrowthType (\s a -> s { _appConfigDeploymentStrategyGrowthType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-deploymentstrategy.html#cfn-appconfig-deploymentstrategy-name -acdsName :: Lens' AppConfigDeploymentStrategy (Val Text) -acdsName = lens _appConfigDeploymentStrategyName (\s a -> s { _appConfigDeploymentStrategyName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-deploymentstrategy.html#cfn-appconfig-deploymentstrategy-replicateto -acdsReplicateTo :: Lens' AppConfigDeploymentStrategy (Val Text) -acdsReplicateTo = lens _appConfigDeploymentStrategyReplicateTo (\s a -> s { _appConfigDeploymentStrategyReplicateTo = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-deploymentstrategy.html#cfn-appconfig-deploymentstrategy-tags -acdsTags :: Lens' AppConfigDeploymentStrategy (Maybe [AppConfigDeploymentStrategyTags]) -acdsTags = lens _appConfigDeploymentStrategyTags (\s a -> s { _appConfigDeploymentStrategyTags = a }) diff --git a/library-gen/Stratosphere/Resources/AppConfigEnvironment.hs b/library-gen/Stratosphere/Resources/AppConfigEnvironment.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AppConfigEnvironment.hs +++ /dev/null @@ -1,72 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-environment.html - -module Stratosphere.Resources.AppConfigEnvironment where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppConfigEnvironmentMonitors -import Stratosphere.ResourceProperties.AppConfigEnvironmentTags - --- | Full data type definition for AppConfigEnvironment. See --- 'appConfigEnvironment' for a more convenient constructor. -data AppConfigEnvironment = - AppConfigEnvironment - { _appConfigEnvironmentApplicationId :: Val Text - , _appConfigEnvironmentDescription :: Maybe (Val Text) - , _appConfigEnvironmentMonitors :: Maybe [AppConfigEnvironmentMonitors] - , _appConfigEnvironmentName :: Val Text - , _appConfigEnvironmentTags :: Maybe [AppConfigEnvironmentTags] - } deriving (Show, Eq) - -instance ToResourceProperties AppConfigEnvironment where - toResourceProperties AppConfigEnvironment{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AppConfig::Environment" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApplicationId",) . toJSON) _appConfigEnvironmentApplicationId - , fmap (("Description",) . toJSON) _appConfigEnvironmentDescription - , fmap (("Monitors",) . toJSON) _appConfigEnvironmentMonitors - , (Just . ("Name",) . toJSON) _appConfigEnvironmentName - , fmap (("Tags",) . toJSON) _appConfigEnvironmentTags - ] - } - --- | Constructor for 'AppConfigEnvironment' containing required fields as --- arguments. -appConfigEnvironment - :: Val Text -- ^ 'aceApplicationId' - -> Val Text -- ^ 'aceName' - -> AppConfigEnvironment -appConfigEnvironment applicationIdarg namearg = - AppConfigEnvironment - { _appConfigEnvironmentApplicationId = applicationIdarg - , _appConfigEnvironmentDescription = Nothing - , _appConfigEnvironmentMonitors = Nothing - , _appConfigEnvironmentName = namearg - , _appConfigEnvironmentTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-environment.html#cfn-appconfig-environment-applicationid -aceApplicationId :: Lens' AppConfigEnvironment (Val Text) -aceApplicationId = lens _appConfigEnvironmentApplicationId (\s a -> s { _appConfigEnvironmentApplicationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-environment.html#cfn-appconfig-environment-description -aceDescription :: Lens' AppConfigEnvironment (Maybe (Val Text)) -aceDescription = lens _appConfigEnvironmentDescription (\s a -> s { _appConfigEnvironmentDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-environment.html#cfn-appconfig-environment-monitors -aceMonitors :: Lens' AppConfigEnvironment (Maybe [AppConfigEnvironmentMonitors]) -aceMonitors = lens _appConfigEnvironmentMonitors (\s a -> s { _appConfigEnvironmentMonitors = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-environment.html#cfn-appconfig-environment-name -aceName :: Lens' AppConfigEnvironment (Val Text) -aceName = lens _appConfigEnvironmentName (\s a -> s { _appConfigEnvironmentName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-environment.html#cfn-appconfig-environment-tags -aceTags :: Lens' AppConfigEnvironment (Maybe [AppConfigEnvironmentTags]) -aceTags = lens _appConfigEnvironmentTags (\s a -> s { _appConfigEnvironmentTags = a }) diff --git a/library-gen/Stratosphere/Resources/AppConfigHostedConfigurationVersion.hs b/library-gen/Stratosphere/Resources/AppConfigHostedConfigurationVersion.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AppConfigHostedConfigurationVersion.hs +++ /dev/null @@ -1,80 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-hostedconfigurationversion.html - -module Stratosphere.Resources.AppConfigHostedConfigurationVersion where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppConfigHostedConfigurationVersion. See --- 'appConfigHostedConfigurationVersion' for a more convenient constructor. -data AppConfigHostedConfigurationVersion = - AppConfigHostedConfigurationVersion - { _appConfigHostedConfigurationVersionApplicationId :: Val Text - , _appConfigHostedConfigurationVersionConfigurationProfileId :: Val Text - , _appConfigHostedConfigurationVersionContent :: Val Text - , _appConfigHostedConfigurationVersionContentType :: Val Text - , _appConfigHostedConfigurationVersionDescription :: Maybe (Val Text) - , _appConfigHostedConfigurationVersionLatestVersionNumber :: Maybe (Val Double) - } deriving (Show, Eq) - -instance ToResourceProperties AppConfigHostedConfigurationVersion where - toResourceProperties AppConfigHostedConfigurationVersion{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AppConfig::HostedConfigurationVersion" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApplicationId",) . toJSON) _appConfigHostedConfigurationVersionApplicationId - , (Just . ("ConfigurationProfileId",) . toJSON) _appConfigHostedConfigurationVersionConfigurationProfileId - , (Just . ("Content",) . toJSON) _appConfigHostedConfigurationVersionContent - , (Just . ("ContentType",) . toJSON) _appConfigHostedConfigurationVersionContentType - , fmap (("Description",) . toJSON) _appConfigHostedConfigurationVersionDescription - , fmap (("LatestVersionNumber",) . toJSON) _appConfigHostedConfigurationVersionLatestVersionNumber - ] - } - --- | Constructor for 'AppConfigHostedConfigurationVersion' containing required --- fields as arguments. -appConfigHostedConfigurationVersion - :: Val Text -- ^ 'achcvApplicationId' - -> Val Text -- ^ 'achcvConfigurationProfileId' - -> Val Text -- ^ 'achcvContent' - -> Val Text -- ^ 'achcvContentType' - -> AppConfigHostedConfigurationVersion -appConfigHostedConfigurationVersion applicationIdarg configurationProfileIdarg contentarg contentTypearg = - AppConfigHostedConfigurationVersion - { _appConfigHostedConfigurationVersionApplicationId = applicationIdarg - , _appConfigHostedConfigurationVersionConfigurationProfileId = configurationProfileIdarg - , _appConfigHostedConfigurationVersionContent = contentarg - , _appConfigHostedConfigurationVersionContentType = contentTypearg - , _appConfigHostedConfigurationVersionDescription = Nothing - , _appConfigHostedConfigurationVersionLatestVersionNumber = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-hostedconfigurationversion.html#cfn-appconfig-hostedconfigurationversion-applicationid -achcvApplicationId :: Lens' AppConfigHostedConfigurationVersion (Val Text) -achcvApplicationId = lens _appConfigHostedConfigurationVersionApplicationId (\s a -> s { _appConfigHostedConfigurationVersionApplicationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-hostedconfigurationversion.html#cfn-appconfig-hostedconfigurationversion-configurationprofileid -achcvConfigurationProfileId :: Lens' AppConfigHostedConfigurationVersion (Val Text) -achcvConfigurationProfileId = lens _appConfigHostedConfigurationVersionConfigurationProfileId (\s a -> s { _appConfigHostedConfigurationVersionConfigurationProfileId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-hostedconfigurationversion.html#cfn-appconfig-hostedconfigurationversion-content -achcvContent :: Lens' AppConfigHostedConfigurationVersion (Val Text) -achcvContent = lens _appConfigHostedConfigurationVersionContent (\s a -> s { _appConfigHostedConfigurationVersionContent = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-hostedconfigurationversion.html#cfn-appconfig-hostedconfigurationversion-contenttype -achcvContentType :: Lens' AppConfigHostedConfigurationVersion (Val Text) -achcvContentType = lens _appConfigHostedConfigurationVersionContentType (\s a -> s { _appConfigHostedConfigurationVersionContentType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-hostedconfigurationversion.html#cfn-appconfig-hostedconfigurationversion-description -achcvDescription :: Lens' AppConfigHostedConfigurationVersion (Maybe (Val Text)) -achcvDescription = lens _appConfigHostedConfigurationVersionDescription (\s a -> s { _appConfigHostedConfigurationVersionDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appconfig-hostedconfigurationversion.html#cfn-appconfig-hostedconfigurationversion-latestversionnumber -achcvLatestVersionNumber :: Lens' AppConfigHostedConfigurationVersion (Maybe (Val Double)) -achcvLatestVersionNumber = lens _appConfigHostedConfigurationVersionLatestVersionNumber (\s a -> s { _appConfigHostedConfigurationVersionLatestVersionNumber = a }) diff --git a/library-gen/Stratosphere/Resources/AppMeshGatewayRoute.hs b/library-gen/Stratosphere/Resources/AppMeshGatewayRoute.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AppMeshGatewayRoute.hs +++ /dev/null @@ -1,81 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-gatewayroute.html - -module Stratosphere.Resources.AppMeshGatewayRoute where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshGatewayRouteGatewayRouteSpec -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for AppMeshGatewayRoute. See --- 'appMeshGatewayRoute' for a more convenient constructor. -data AppMeshGatewayRoute = - AppMeshGatewayRoute - { _appMeshGatewayRouteGatewayRouteName :: Val Text - , _appMeshGatewayRouteMeshName :: Val Text - , _appMeshGatewayRouteMeshOwner :: Maybe (Val Text) - , _appMeshGatewayRouteSpec :: AppMeshGatewayRouteGatewayRouteSpec - , _appMeshGatewayRouteTags :: Maybe [Tag] - , _appMeshGatewayRouteVirtualGatewayName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties AppMeshGatewayRoute where - toResourceProperties AppMeshGatewayRoute{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AppMesh::GatewayRoute" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("GatewayRouteName",) . toJSON) _appMeshGatewayRouteGatewayRouteName - , (Just . ("MeshName",) . toJSON) _appMeshGatewayRouteMeshName - , fmap (("MeshOwner",) . toJSON) _appMeshGatewayRouteMeshOwner - , (Just . ("Spec",) . toJSON) _appMeshGatewayRouteSpec - , fmap (("Tags",) . toJSON) _appMeshGatewayRouteTags - , (Just . ("VirtualGatewayName",) . toJSON) _appMeshGatewayRouteVirtualGatewayName - ] - } - --- | Constructor for 'AppMeshGatewayRoute' containing required fields as --- arguments. -appMeshGatewayRoute - :: Val Text -- ^ 'amgrGatewayRouteName' - -> Val Text -- ^ 'amgrMeshName' - -> AppMeshGatewayRouteGatewayRouteSpec -- ^ 'amgrSpec' - -> Val Text -- ^ 'amgrVirtualGatewayName' - -> AppMeshGatewayRoute -appMeshGatewayRoute gatewayRouteNamearg meshNamearg specarg virtualGatewayNamearg = - AppMeshGatewayRoute - { _appMeshGatewayRouteGatewayRouteName = gatewayRouteNamearg - , _appMeshGatewayRouteMeshName = meshNamearg - , _appMeshGatewayRouteMeshOwner = Nothing - , _appMeshGatewayRouteSpec = specarg - , _appMeshGatewayRouteTags = Nothing - , _appMeshGatewayRouteVirtualGatewayName = virtualGatewayNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-gatewayroute.html#cfn-appmesh-gatewayroute-gatewayroutename -amgrGatewayRouteName :: Lens' AppMeshGatewayRoute (Val Text) -amgrGatewayRouteName = lens _appMeshGatewayRouteGatewayRouteName (\s a -> s { _appMeshGatewayRouteGatewayRouteName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-gatewayroute.html#cfn-appmesh-gatewayroute-meshname -amgrMeshName :: Lens' AppMeshGatewayRoute (Val Text) -amgrMeshName = lens _appMeshGatewayRouteMeshName (\s a -> s { _appMeshGatewayRouteMeshName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-gatewayroute.html#cfn-appmesh-gatewayroute-meshowner -amgrMeshOwner :: Lens' AppMeshGatewayRoute (Maybe (Val Text)) -amgrMeshOwner = lens _appMeshGatewayRouteMeshOwner (\s a -> s { _appMeshGatewayRouteMeshOwner = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-gatewayroute.html#cfn-appmesh-gatewayroute-spec -amgrSpec :: Lens' AppMeshGatewayRoute AppMeshGatewayRouteGatewayRouteSpec -amgrSpec = lens _appMeshGatewayRouteSpec (\s a -> s { _appMeshGatewayRouteSpec = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-gatewayroute.html#cfn-appmesh-gatewayroute-tags -amgrTags :: Lens' AppMeshGatewayRoute (Maybe [Tag]) -amgrTags = lens _appMeshGatewayRouteTags (\s a -> s { _appMeshGatewayRouteTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-gatewayroute.html#cfn-appmesh-gatewayroute-virtualgatewayname -amgrVirtualGatewayName :: Lens' AppMeshGatewayRoute (Val Text) -amgrVirtualGatewayName = lens _appMeshGatewayRouteVirtualGatewayName (\s a -> s { _appMeshGatewayRouteVirtualGatewayName = a }) diff --git a/library-gen/Stratosphere/Resources/AppMeshMesh.hs b/library-gen/Stratosphere/Resources/AppMeshMesh.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AppMeshMesh.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-mesh.html - -module Stratosphere.Resources.AppMeshMesh where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshMeshMeshSpec -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for AppMeshMesh. See 'appMeshMesh' for a more --- convenient constructor. -data AppMeshMesh = - AppMeshMesh - { _appMeshMeshMeshName :: Val Text - , _appMeshMeshSpec :: Maybe AppMeshMeshMeshSpec - , _appMeshMeshTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties AppMeshMesh where - toResourceProperties AppMeshMesh{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AppMesh::Mesh" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("MeshName",) . toJSON) _appMeshMeshMeshName - , fmap (("Spec",) . toJSON) _appMeshMeshSpec - , fmap (("Tags",) . toJSON) _appMeshMeshTags - ] - } - --- | Constructor for 'AppMeshMesh' containing required fields as arguments. -appMeshMesh - :: Val Text -- ^ 'ammMeshName' - -> AppMeshMesh -appMeshMesh meshNamearg = - AppMeshMesh - { _appMeshMeshMeshName = meshNamearg - , _appMeshMeshSpec = Nothing - , _appMeshMeshTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-mesh.html#cfn-appmesh-mesh-meshname -ammMeshName :: Lens' AppMeshMesh (Val Text) -ammMeshName = lens _appMeshMeshMeshName (\s a -> s { _appMeshMeshMeshName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-mesh.html#cfn-appmesh-mesh-spec -ammSpec :: Lens' AppMeshMesh (Maybe AppMeshMeshMeshSpec) -ammSpec = lens _appMeshMeshSpec (\s a -> s { _appMeshMeshSpec = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-mesh.html#cfn-appmesh-mesh-tags -ammTags :: Lens' AppMeshMesh (Maybe [Tag]) -ammTags = lens _appMeshMeshTags (\s a -> s { _appMeshMeshTags = a }) diff --git a/library-gen/Stratosphere/Resources/AppMeshRoute.hs b/library-gen/Stratosphere/Resources/AppMeshRoute.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AppMeshRoute.hs +++ /dev/null @@ -1,80 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-route.html - -module Stratosphere.Resources.AppMeshRoute where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshRouteRouteSpec -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for AppMeshRoute. See 'appMeshRoute' for a more --- convenient constructor. -data AppMeshRoute = - AppMeshRoute - { _appMeshRouteMeshName :: Val Text - , _appMeshRouteMeshOwner :: Maybe (Val Text) - , _appMeshRouteRouteName :: Val Text - , _appMeshRouteSpec :: AppMeshRouteRouteSpec - , _appMeshRouteTags :: Maybe [Tag] - , _appMeshRouteVirtualRouterName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties AppMeshRoute where - toResourceProperties AppMeshRoute{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AppMesh::Route" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("MeshName",) . toJSON) _appMeshRouteMeshName - , fmap (("MeshOwner",) . toJSON) _appMeshRouteMeshOwner - , (Just . ("RouteName",) . toJSON) _appMeshRouteRouteName - , (Just . ("Spec",) . toJSON) _appMeshRouteSpec - , fmap (("Tags",) . toJSON) _appMeshRouteTags - , (Just . ("VirtualRouterName",) . toJSON) _appMeshRouteVirtualRouterName - ] - } - --- | Constructor for 'AppMeshRoute' containing required fields as arguments. -appMeshRoute - :: Val Text -- ^ 'amrMeshName' - -> Val Text -- ^ 'amrRouteName' - -> AppMeshRouteRouteSpec -- ^ 'amrSpec' - -> Val Text -- ^ 'amrVirtualRouterName' - -> AppMeshRoute -appMeshRoute meshNamearg routeNamearg specarg virtualRouterNamearg = - AppMeshRoute - { _appMeshRouteMeshName = meshNamearg - , _appMeshRouteMeshOwner = Nothing - , _appMeshRouteRouteName = routeNamearg - , _appMeshRouteSpec = specarg - , _appMeshRouteTags = Nothing - , _appMeshRouteVirtualRouterName = virtualRouterNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-route.html#cfn-appmesh-route-meshname -amrMeshName :: Lens' AppMeshRoute (Val Text) -amrMeshName = lens _appMeshRouteMeshName (\s a -> s { _appMeshRouteMeshName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-route.html#cfn-appmesh-route-meshowner -amrMeshOwner :: Lens' AppMeshRoute (Maybe (Val Text)) -amrMeshOwner = lens _appMeshRouteMeshOwner (\s a -> s { _appMeshRouteMeshOwner = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-route.html#cfn-appmesh-route-routename -amrRouteName :: Lens' AppMeshRoute (Val Text) -amrRouteName = lens _appMeshRouteRouteName (\s a -> s { _appMeshRouteRouteName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-route.html#cfn-appmesh-route-spec -amrSpec :: Lens' AppMeshRoute AppMeshRouteRouteSpec -amrSpec = lens _appMeshRouteSpec (\s a -> s { _appMeshRouteSpec = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-route.html#cfn-appmesh-route-tags -amrTags :: Lens' AppMeshRoute (Maybe [Tag]) -amrTags = lens _appMeshRouteTags (\s a -> s { _appMeshRouteTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-route.html#cfn-appmesh-route-virtualroutername -amrVirtualRouterName :: Lens' AppMeshRoute (Val Text) -amrVirtualRouterName = lens _appMeshRouteVirtualRouterName (\s a -> s { _appMeshRouteVirtualRouterName = a }) diff --git a/library-gen/Stratosphere/Resources/AppMeshVirtualGateway.hs b/library-gen/Stratosphere/Resources/AppMeshVirtualGateway.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AppMeshVirtualGateway.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualgateway.html - -module Stratosphere.Resources.AppMeshVirtualGateway where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewaySpec -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for AppMeshVirtualGateway. See --- 'appMeshVirtualGateway' for a more convenient constructor. -data AppMeshVirtualGateway = - AppMeshVirtualGateway - { _appMeshVirtualGatewayMeshName :: Val Text - , _appMeshVirtualGatewayMeshOwner :: Maybe (Val Text) - , _appMeshVirtualGatewaySpec :: AppMeshVirtualGatewayVirtualGatewaySpec - , _appMeshVirtualGatewayTags :: Maybe [Tag] - , _appMeshVirtualGatewayVirtualGatewayName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties AppMeshVirtualGateway where - toResourceProperties AppMeshVirtualGateway{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AppMesh::VirtualGateway" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("MeshName",) . toJSON) _appMeshVirtualGatewayMeshName - , fmap (("MeshOwner",) . toJSON) _appMeshVirtualGatewayMeshOwner - , (Just . ("Spec",) . toJSON) _appMeshVirtualGatewaySpec - , fmap (("Tags",) . toJSON) _appMeshVirtualGatewayTags - , (Just . ("VirtualGatewayName",) . toJSON) _appMeshVirtualGatewayVirtualGatewayName - ] - } - --- | Constructor for 'AppMeshVirtualGateway' containing required fields as --- arguments. -appMeshVirtualGateway - :: Val Text -- ^ 'amvgMeshName' - -> AppMeshVirtualGatewayVirtualGatewaySpec -- ^ 'amvgSpec' - -> Val Text -- ^ 'amvgVirtualGatewayName' - -> AppMeshVirtualGateway -appMeshVirtualGateway meshNamearg specarg virtualGatewayNamearg = - AppMeshVirtualGateway - { _appMeshVirtualGatewayMeshName = meshNamearg - , _appMeshVirtualGatewayMeshOwner = Nothing - , _appMeshVirtualGatewaySpec = specarg - , _appMeshVirtualGatewayTags = Nothing - , _appMeshVirtualGatewayVirtualGatewayName = virtualGatewayNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualgateway.html#cfn-appmesh-virtualgateway-meshname -amvgMeshName :: Lens' AppMeshVirtualGateway (Val Text) -amvgMeshName = lens _appMeshVirtualGatewayMeshName (\s a -> s { _appMeshVirtualGatewayMeshName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualgateway.html#cfn-appmesh-virtualgateway-meshowner -amvgMeshOwner :: Lens' AppMeshVirtualGateway (Maybe (Val Text)) -amvgMeshOwner = lens _appMeshVirtualGatewayMeshOwner (\s a -> s { _appMeshVirtualGatewayMeshOwner = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualgateway.html#cfn-appmesh-virtualgateway-spec -amvgSpec :: Lens' AppMeshVirtualGateway AppMeshVirtualGatewayVirtualGatewaySpec -amvgSpec = lens _appMeshVirtualGatewaySpec (\s a -> s { _appMeshVirtualGatewaySpec = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualgateway.html#cfn-appmesh-virtualgateway-tags -amvgTags :: Lens' AppMeshVirtualGateway (Maybe [Tag]) -amvgTags = lens _appMeshVirtualGatewayTags (\s a -> s { _appMeshVirtualGatewayTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualgateway.html#cfn-appmesh-virtualgateway-virtualgatewayname -amvgVirtualGatewayName :: Lens' AppMeshVirtualGateway (Val Text) -amvgVirtualGatewayName = lens _appMeshVirtualGatewayVirtualGatewayName (\s a -> s { _appMeshVirtualGatewayVirtualGatewayName = a }) diff --git a/library-gen/Stratosphere/Resources/AppMeshVirtualNode.hs b/library-gen/Stratosphere/Resources/AppMeshVirtualNode.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AppMeshVirtualNode.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualnode.html - -module Stratosphere.Resources.AppMeshVirtualNode where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualNodeVirtualNodeSpec -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for AppMeshVirtualNode. See --- 'appMeshVirtualNode' for a more convenient constructor. -data AppMeshVirtualNode = - AppMeshVirtualNode - { _appMeshVirtualNodeMeshName :: Val Text - , _appMeshVirtualNodeMeshOwner :: Maybe (Val Text) - , _appMeshVirtualNodeSpec :: AppMeshVirtualNodeVirtualNodeSpec - , _appMeshVirtualNodeTags :: Maybe [Tag] - , _appMeshVirtualNodeVirtualNodeName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties AppMeshVirtualNode where - toResourceProperties AppMeshVirtualNode{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AppMesh::VirtualNode" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("MeshName",) . toJSON) _appMeshVirtualNodeMeshName - , fmap (("MeshOwner",) . toJSON) _appMeshVirtualNodeMeshOwner - , (Just . ("Spec",) . toJSON) _appMeshVirtualNodeSpec - , fmap (("Tags",) . toJSON) _appMeshVirtualNodeTags - , (Just . ("VirtualNodeName",) . toJSON) _appMeshVirtualNodeVirtualNodeName - ] - } - --- | Constructor for 'AppMeshVirtualNode' containing required fields as --- arguments. -appMeshVirtualNode - :: Val Text -- ^ 'amvnMeshName' - -> AppMeshVirtualNodeVirtualNodeSpec -- ^ 'amvnSpec' - -> Val Text -- ^ 'amvnVirtualNodeName' - -> AppMeshVirtualNode -appMeshVirtualNode meshNamearg specarg virtualNodeNamearg = - AppMeshVirtualNode - { _appMeshVirtualNodeMeshName = meshNamearg - , _appMeshVirtualNodeMeshOwner = Nothing - , _appMeshVirtualNodeSpec = specarg - , _appMeshVirtualNodeTags = Nothing - , _appMeshVirtualNodeVirtualNodeName = virtualNodeNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualnode.html#cfn-appmesh-virtualnode-meshname -amvnMeshName :: Lens' AppMeshVirtualNode (Val Text) -amvnMeshName = lens _appMeshVirtualNodeMeshName (\s a -> s { _appMeshVirtualNodeMeshName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualnode.html#cfn-appmesh-virtualnode-meshowner -amvnMeshOwner :: Lens' AppMeshVirtualNode (Maybe (Val Text)) -amvnMeshOwner = lens _appMeshVirtualNodeMeshOwner (\s a -> s { _appMeshVirtualNodeMeshOwner = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualnode.html#cfn-appmesh-virtualnode-spec -amvnSpec :: Lens' AppMeshVirtualNode AppMeshVirtualNodeVirtualNodeSpec -amvnSpec = lens _appMeshVirtualNodeSpec (\s a -> s { _appMeshVirtualNodeSpec = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualnode.html#cfn-appmesh-virtualnode-tags -amvnTags :: Lens' AppMeshVirtualNode (Maybe [Tag]) -amvnTags = lens _appMeshVirtualNodeTags (\s a -> s { _appMeshVirtualNodeTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualnode.html#cfn-appmesh-virtualnode-virtualnodename -amvnVirtualNodeName :: Lens' AppMeshVirtualNode (Val Text) -amvnVirtualNodeName = lens _appMeshVirtualNodeVirtualNodeName (\s a -> s { _appMeshVirtualNodeVirtualNodeName = a }) diff --git a/library-gen/Stratosphere/Resources/AppMeshVirtualRouter.hs b/library-gen/Stratosphere/Resources/AppMeshVirtualRouter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AppMeshVirtualRouter.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualrouter.html - -module Stratosphere.Resources.AppMeshVirtualRouter where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualRouterVirtualRouterSpec -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for AppMeshVirtualRouter. See --- 'appMeshVirtualRouter' for a more convenient constructor. -data AppMeshVirtualRouter = - AppMeshVirtualRouter - { _appMeshVirtualRouterMeshName :: Val Text - , _appMeshVirtualRouterMeshOwner :: Maybe (Val Text) - , _appMeshVirtualRouterSpec :: AppMeshVirtualRouterVirtualRouterSpec - , _appMeshVirtualRouterTags :: Maybe [Tag] - , _appMeshVirtualRouterVirtualRouterName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties AppMeshVirtualRouter where - toResourceProperties AppMeshVirtualRouter{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AppMesh::VirtualRouter" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("MeshName",) . toJSON) _appMeshVirtualRouterMeshName - , fmap (("MeshOwner",) . toJSON) _appMeshVirtualRouterMeshOwner - , (Just . ("Spec",) . toJSON) _appMeshVirtualRouterSpec - , fmap (("Tags",) . toJSON) _appMeshVirtualRouterTags - , (Just . ("VirtualRouterName",) . toJSON) _appMeshVirtualRouterVirtualRouterName - ] - } - --- | Constructor for 'AppMeshVirtualRouter' containing required fields as --- arguments. -appMeshVirtualRouter - :: Val Text -- ^ 'amvrMeshName' - -> AppMeshVirtualRouterVirtualRouterSpec -- ^ 'amvrSpec' - -> Val Text -- ^ 'amvrVirtualRouterName' - -> AppMeshVirtualRouter -appMeshVirtualRouter meshNamearg specarg virtualRouterNamearg = - AppMeshVirtualRouter - { _appMeshVirtualRouterMeshName = meshNamearg - , _appMeshVirtualRouterMeshOwner = Nothing - , _appMeshVirtualRouterSpec = specarg - , _appMeshVirtualRouterTags = Nothing - , _appMeshVirtualRouterVirtualRouterName = virtualRouterNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualrouter.html#cfn-appmesh-virtualrouter-meshname -amvrMeshName :: Lens' AppMeshVirtualRouter (Val Text) -amvrMeshName = lens _appMeshVirtualRouterMeshName (\s a -> s { _appMeshVirtualRouterMeshName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualrouter.html#cfn-appmesh-virtualrouter-meshowner -amvrMeshOwner :: Lens' AppMeshVirtualRouter (Maybe (Val Text)) -amvrMeshOwner = lens _appMeshVirtualRouterMeshOwner (\s a -> s { _appMeshVirtualRouterMeshOwner = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualrouter.html#cfn-appmesh-virtualrouter-spec -amvrSpec :: Lens' AppMeshVirtualRouter AppMeshVirtualRouterVirtualRouterSpec -amvrSpec = lens _appMeshVirtualRouterSpec (\s a -> s { _appMeshVirtualRouterSpec = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualrouter.html#cfn-appmesh-virtualrouter-tags -amvrTags :: Lens' AppMeshVirtualRouter (Maybe [Tag]) -amvrTags = lens _appMeshVirtualRouterTags (\s a -> s { _appMeshVirtualRouterTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualrouter.html#cfn-appmesh-virtualrouter-virtualroutername -amvrVirtualRouterName :: Lens' AppMeshVirtualRouter (Val Text) -amvrVirtualRouterName = lens _appMeshVirtualRouterVirtualRouterName (\s a -> s { _appMeshVirtualRouterVirtualRouterName = a }) diff --git a/library-gen/Stratosphere/Resources/AppMeshVirtualService.hs b/library-gen/Stratosphere/Resources/AppMeshVirtualService.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AppMeshVirtualService.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualservice.html - -module Stratosphere.Resources.AppMeshVirtualService where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualServiceSpec -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for AppMeshVirtualService. See --- 'appMeshVirtualService' for a more convenient constructor. -data AppMeshVirtualService = - AppMeshVirtualService - { _appMeshVirtualServiceMeshName :: Val Text - , _appMeshVirtualServiceMeshOwner :: Maybe (Val Text) - , _appMeshVirtualServiceSpec :: AppMeshVirtualServiceVirtualServiceSpec - , _appMeshVirtualServiceTags :: Maybe [Tag] - , _appMeshVirtualServiceVirtualServiceName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties AppMeshVirtualService where - toResourceProperties AppMeshVirtualService{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AppMesh::VirtualService" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("MeshName",) . toJSON) _appMeshVirtualServiceMeshName - , fmap (("MeshOwner",) . toJSON) _appMeshVirtualServiceMeshOwner - , (Just . ("Spec",) . toJSON) _appMeshVirtualServiceSpec - , fmap (("Tags",) . toJSON) _appMeshVirtualServiceTags - , (Just . ("VirtualServiceName",) . toJSON) _appMeshVirtualServiceVirtualServiceName - ] - } - --- | Constructor for 'AppMeshVirtualService' containing required fields as --- arguments. -appMeshVirtualService - :: Val Text -- ^ 'amvsMeshName' - -> AppMeshVirtualServiceVirtualServiceSpec -- ^ 'amvsSpec' - -> Val Text -- ^ 'amvsVirtualServiceName' - -> AppMeshVirtualService -appMeshVirtualService meshNamearg specarg virtualServiceNamearg = - AppMeshVirtualService - { _appMeshVirtualServiceMeshName = meshNamearg - , _appMeshVirtualServiceMeshOwner = Nothing - , _appMeshVirtualServiceSpec = specarg - , _appMeshVirtualServiceTags = Nothing - , _appMeshVirtualServiceVirtualServiceName = virtualServiceNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualservice.html#cfn-appmesh-virtualservice-meshname -amvsMeshName :: Lens' AppMeshVirtualService (Val Text) -amvsMeshName = lens _appMeshVirtualServiceMeshName (\s a -> s { _appMeshVirtualServiceMeshName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualservice.html#cfn-appmesh-virtualservice-meshowner -amvsMeshOwner :: Lens' AppMeshVirtualService (Maybe (Val Text)) -amvsMeshOwner = lens _appMeshVirtualServiceMeshOwner (\s a -> s { _appMeshVirtualServiceMeshOwner = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualservice.html#cfn-appmesh-virtualservice-spec -amvsSpec :: Lens' AppMeshVirtualService AppMeshVirtualServiceVirtualServiceSpec -amvsSpec = lens _appMeshVirtualServiceSpec (\s a -> s { _appMeshVirtualServiceSpec = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualservice.html#cfn-appmesh-virtualservice-tags -amvsTags :: Lens' AppMeshVirtualService (Maybe [Tag]) -amvsTags = lens _appMeshVirtualServiceTags (\s a -> s { _appMeshVirtualServiceTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualservice.html#cfn-appmesh-virtualservice-virtualservicename -amvsVirtualServiceName :: Lens' AppMeshVirtualService (Val Text) -amvsVirtualServiceName = lens _appMeshVirtualServiceVirtualServiceName (\s a -> s { _appMeshVirtualServiceVirtualServiceName = a }) diff --git a/library-gen/Stratosphere/Resources/AppStreamDirectoryConfig.hs b/library-gen/Stratosphere/Resources/AppStreamDirectoryConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AppStreamDirectoryConfig.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-directoryconfig.html - -module Stratosphere.Resources.AppStreamDirectoryConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppStreamDirectoryConfigServiceAccountCredentials - --- | Full data type definition for AppStreamDirectoryConfig. See --- 'appStreamDirectoryConfig' for a more convenient constructor. -data AppStreamDirectoryConfig = - AppStreamDirectoryConfig - { _appStreamDirectoryConfigDirectoryName :: Val Text - , _appStreamDirectoryConfigOrganizationalUnitDistinguishedNames :: ValList Text - , _appStreamDirectoryConfigServiceAccountCredentials :: AppStreamDirectoryConfigServiceAccountCredentials - } deriving (Show, Eq) - -instance ToResourceProperties AppStreamDirectoryConfig where - toResourceProperties AppStreamDirectoryConfig{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AppStream::DirectoryConfig" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("DirectoryName",) . toJSON) _appStreamDirectoryConfigDirectoryName - , (Just . ("OrganizationalUnitDistinguishedNames",) . toJSON) _appStreamDirectoryConfigOrganizationalUnitDistinguishedNames - , (Just . ("ServiceAccountCredentials",) . toJSON) _appStreamDirectoryConfigServiceAccountCredentials - ] - } - --- | Constructor for 'AppStreamDirectoryConfig' containing required fields as --- arguments. -appStreamDirectoryConfig - :: Val Text -- ^ 'asdcDirectoryName' - -> ValList Text -- ^ 'asdcOrganizationalUnitDistinguishedNames' - -> AppStreamDirectoryConfigServiceAccountCredentials -- ^ 'asdcServiceAccountCredentials' - -> AppStreamDirectoryConfig -appStreamDirectoryConfig directoryNamearg organizationalUnitDistinguishedNamesarg serviceAccountCredentialsarg = - AppStreamDirectoryConfig - { _appStreamDirectoryConfigDirectoryName = directoryNamearg - , _appStreamDirectoryConfigOrganizationalUnitDistinguishedNames = organizationalUnitDistinguishedNamesarg - , _appStreamDirectoryConfigServiceAccountCredentials = serviceAccountCredentialsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-directoryconfig.html#cfn-appstream-directoryconfig-directoryname -asdcDirectoryName :: Lens' AppStreamDirectoryConfig (Val Text) -asdcDirectoryName = lens _appStreamDirectoryConfigDirectoryName (\s a -> s { _appStreamDirectoryConfigDirectoryName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-directoryconfig.html#cfn-appstream-directoryconfig-organizationalunitdistinguishednames -asdcOrganizationalUnitDistinguishedNames :: Lens' AppStreamDirectoryConfig (ValList Text) -asdcOrganizationalUnitDistinguishedNames = lens _appStreamDirectoryConfigOrganizationalUnitDistinguishedNames (\s a -> s { _appStreamDirectoryConfigOrganizationalUnitDistinguishedNames = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-directoryconfig.html#cfn-appstream-directoryconfig-serviceaccountcredentials -asdcServiceAccountCredentials :: Lens' AppStreamDirectoryConfig AppStreamDirectoryConfigServiceAccountCredentials -asdcServiceAccountCredentials = lens _appStreamDirectoryConfigServiceAccountCredentials (\s a -> s { _appStreamDirectoryConfigServiceAccountCredentials = a }) diff --git a/library-gen/Stratosphere/Resources/AppStreamFleet.hs b/library-gen/Stratosphere/Resources/AppStreamFleet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AppStreamFleet.hs +++ /dev/null @@ -1,144 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html - -module Stratosphere.Resources.AppStreamFleet where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppStreamFleetComputeCapacity -import Stratosphere.ResourceProperties.AppStreamFleetDomainJoinInfo -import Stratosphere.ResourceProperties.Tag -import Stratosphere.ResourceProperties.AppStreamFleetVpcConfig - --- | Full data type definition for AppStreamFleet. See 'appStreamFleet' for a --- more convenient constructor. -data AppStreamFleet = - AppStreamFleet - { _appStreamFleetComputeCapacity :: AppStreamFleetComputeCapacity - , _appStreamFleetDescription :: Maybe (Val Text) - , _appStreamFleetDisconnectTimeoutInSeconds :: Maybe (Val Integer) - , _appStreamFleetDisplayName :: Maybe (Val Text) - , _appStreamFleetDomainJoinInfo :: Maybe AppStreamFleetDomainJoinInfo - , _appStreamFleetEnableDefaultInternetAccess :: Maybe (Val Bool) - , _appStreamFleetFleetType :: Maybe (Val Text) - , _appStreamFleetIdleDisconnectTimeoutInSeconds :: Maybe (Val Integer) - , _appStreamFleetImageArn :: Maybe (Val Text) - , _appStreamFleetImageName :: Maybe (Val Text) - , _appStreamFleetInstanceType :: Val Text - , _appStreamFleetMaxUserDurationInSeconds :: Maybe (Val Integer) - , _appStreamFleetName :: Val Text - , _appStreamFleetTags :: Maybe [Tag] - , _appStreamFleetVpcConfig :: Maybe AppStreamFleetVpcConfig - } deriving (Show, Eq) - -instance ToResourceProperties AppStreamFleet where - toResourceProperties AppStreamFleet{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AppStream::Fleet" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ComputeCapacity",) . toJSON) _appStreamFleetComputeCapacity - , fmap (("Description",) . toJSON) _appStreamFleetDescription - , fmap (("DisconnectTimeoutInSeconds",) . toJSON) _appStreamFleetDisconnectTimeoutInSeconds - , fmap (("DisplayName",) . toJSON) _appStreamFleetDisplayName - , fmap (("DomainJoinInfo",) . toJSON) _appStreamFleetDomainJoinInfo - , fmap (("EnableDefaultInternetAccess",) . toJSON) _appStreamFleetEnableDefaultInternetAccess - , fmap (("FleetType",) . toJSON) _appStreamFleetFleetType - , fmap (("IdleDisconnectTimeoutInSeconds",) . toJSON) _appStreamFleetIdleDisconnectTimeoutInSeconds - , fmap (("ImageArn",) . toJSON) _appStreamFleetImageArn - , fmap (("ImageName",) . toJSON) _appStreamFleetImageName - , (Just . ("InstanceType",) . toJSON) _appStreamFleetInstanceType - , fmap (("MaxUserDurationInSeconds",) . toJSON) _appStreamFleetMaxUserDurationInSeconds - , (Just . ("Name",) . toJSON) _appStreamFleetName - , fmap (("Tags",) . toJSON) _appStreamFleetTags - , fmap (("VpcConfig",) . toJSON) _appStreamFleetVpcConfig - ] - } - --- | Constructor for 'AppStreamFleet' containing required fields as arguments. -appStreamFleet - :: AppStreamFleetComputeCapacity -- ^ 'asfComputeCapacity' - -> Val Text -- ^ 'asfInstanceType' - -> Val Text -- ^ 'asfName' - -> AppStreamFleet -appStreamFleet computeCapacityarg instanceTypearg namearg = - AppStreamFleet - { _appStreamFleetComputeCapacity = computeCapacityarg - , _appStreamFleetDescription = Nothing - , _appStreamFleetDisconnectTimeoutInSeconds = Nothing - , _appStreamFleetDisplayName = Nothing - , _appStreamFleetDomainJoinInfo = Nothing - , _appStreamFleetEnableDefaultInternetAccess = Nothing - , _appStreamFleetFleetType = Nothing - , _appStreamFleetIdleDisconnectTimeoutInSeconds = Nothing - , _appStreamFleetImageArn = Nothing - , _appStreamFleetImageName = Nothing - , _appStreamFleetInstanceType = instanceTypearg - , _appStreamFleetMaxUserDurationInSeconds = Nothing - , _appStreamFleetName = namearg - , _appStreamFleetTags = Nothing - , _appStreamFleetVpcConfig = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-computecapacity -asfComputeCapacity :: Lens' AppStreamFleet AppStreamFleetComputeCapacity -asfComputeCapacity = lens _appStreamFleetComputeCapacity (\s a -> s { _appStreamFleetComputeCapacity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-description -asfDescription :: Lens' AppStreamFleet (Maybe (Val Text)) -asfDescription = lens _appStreamFleetDescription (\s a -> s { _appStreamFleetDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-disconnecttimeoutinseconds -asfDisconnectTimeoutInSeconds :: Lens' AppStreamFleet (Maybe (Val Integer)) -asfDisconnectTimeoutInSeconds = lens _appStreamFleetDisconnectTimeoutInSeconds (\s a -> s { _appStreamFleetDisconnectTimeoutInSeconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-displayname -asfDisplayName :: Lens' AppStreamFleet (Maybe (Val Text)) -asfDisplayName = lens _appStreamFleetDisplayName (\s a -> s { _appStreamFleetDisplayName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-domainjoininfo -asfDomainJoinInfo :: Lens' AppStreamFleet (Maybe AppStreamFleetDomainJoinInfo) -asfDomainJoinInfo = lens _appStreamFleetDomainJoinInfo (\s a -> s { _appStreamFleetDomainJoinInfo = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-enabledefaultinternetaccess -asfEnableDefaultInternetAccess :: Lens' AppStreamFleet (Maybe (Val Bool)) -asfEnableDefaultInternetAccess = lens _appStreamFleetEnableDefaultInternetAccess (\s a -> s { _appStreamFleetEnableDefaultInternetAccess = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-fleettype -asfFleetType :: Lens' AppStreamFleet (Maybe (Val Text)) -asfFleetType = lens _appStreamFleetFleetType (\s a -> s { _appStreamFleetFleetType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-idledisconnecttimeoutinseconds -asfIdleDisconnectTimeoutInSeconds :: Lens' AppStreamFleet (Maybe (Val Integer)) -asfIdleDisconnectTimeoutInSeconds = lens _appStreamFleetIdleDisconnectTimeoutInSeconds (\s a -> s { _appStreamFleetIdleDisconnectTimeoutInSeconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-imagearn -asfImageArn :: Lens' AppStreamFleet (Maybe (Val Text)) -asfImageArn = lens _appStreamFleetImageArn (\s a -> s { _appStreamFleetImageArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-imagename -asfImageName :: Lens' AppStreamFleet (Maybe (Val Text)) -asfImageName = lens _appStreamFleetImageName (\s a -> s { _appStreamFleetImageName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-instancetype -asfInstanceType :: Lens' AppStreamFleet (Val Text) -asfInstanceType = lens _appStreamFleetInstanceType (\s a -> s { _appStreamFleetInstanceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-maxuserdurationinseconds -asfMaxUserDurationInSeconds :: Lens' AppStreamFleet (Maybe (Val Integer)) -asfMaxUserDurationInSeconds = lens _appStreamFleetMaxUserDurationInSeconds (\s a -> s { _appStreamFleetMaxUserDurationInSeconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-name -asfName :: Lens' AppStreamFleet (Val Text) -asfName = lens _appStreamFleetName (\s a -> s { _appStreamFleetName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-tags -asfTags :: Lens' AppStreamFleet (Maybe [Tag]) -asfTags = lens _appStreamFleetTags (\s a -> s { _appStreamFleetTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-fleet.html#cfn-appstream-fleet-vpcconfig -asfVpcConfig :: Lens' AppStreamFleet (Maybe AppStreamFleetVpcConfig) -asfVpcConfig = lens _appStreamFleetVpcConfig (\s a -> s { _appStreamFleetVpcConfig = a }) diff --git a/library-gen/Stratosphere/Resources/AppStreamImageBuilder.hs b/library-gen/Stratosphere/Resources/AppStreamImageBuilder.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AppStreamImageBuilder.hs +++ /dev/null @@ -1,123 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-imagebuilder.html - -module Stratosphere.Resources.AppStreamImageBuilder where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppStreamImageBuilderAccessEndpoint -import Stratosphere.ResourceProperties.AppStreamImageBuilderDomainJoinInfo -import Stratosphere.ResourceProperties.Tag -import Stratosphere.ResourceProperties.AppStreamImageBuilderVpcConfig - --- | Full data type definition for AppStreamImageBuilder. See --- 'appStreamImageBuilder' for a more convenient constructor. -data AppStreamImageBuilder = - AppStreamImageBuilder - { _appStreamImageBuilderAccessEndpoints :: Maybe [AppStreamImageBuilderAccessEndpoint] - , _appStreamImageBuilderAppstreamAgentVersion :: Maybe (Val Text) - , _appStreamImageBuilderDescription :: Maybe (Val Text) - , _appStreamImageBuilderDisplayName :: Maybe (Val Text) - , _appStreamImageBuilderDomainJoinInfo :: Maybe AppStreamImageBuilderDomainJoinInfo - , _appStreamImageBuilderEnableDefaultInternetAccess :: Maybe (Val Bool) - , _appStreamImageBuilderImageArn :: Maybe (Val Text) - , _appStreamImageBuilderImageName :: Maybe (Val Text) - , _appStreamImageBuilderInstanceType :: Val Text - , _appStreamImageBuilderName :: Val Text - , _appStreamImageBuilderTags :: Maybe [Tag] - , _appStreamImageBuilderVpcConfig :: Maybe AppStreamImageBuilderVpcConfig - } deriving (Show, Eq) - -instance ToResourceProperties AppStreamImageBuilder where - toResourceProperties AppStreamImageBuilder{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AppStream::ImageBuilder" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AccessEndpoints",) . toJSON) _appStreamImageBuilderAccessEndpoints - , fmap (("AppstreamAgentVersion",) . toJSON) _appStreamImageBuilderAppstreamAgentVersion - , fmap (("Description",) . toJSON) _appStreamImageBuilderDescription - , fmap (("DisplayName",) . toJSON) _appStreamImageBuilderDisplayName - , fmap (("DomainJoinInfo",) . toJSON) _appStreamImageBuilderDomainJoinInfo - , fmap (("EnableDefaultInternetAccess",) . toJSON) _appStreamImageBuilderEnableDefaultInternetAccess - , fmap (("ImageArn",) . toJSON) _appStreamImageBuilderImageArn - , fmap (("ImageName",) . toJSON) _appStreamImageBuilderImageName - , (Just . ("InstanceType",) . toJSON) _appStreamImageBuilderInstanceType - , (Just . ("Name",) . toJSON) _appStreamImageBuilderName - , fmap (("Tags",) . toJSON) _appStreamImageBuilderTags - , fmap (("VpcConfig",) . toJSON) _appStreamImageBuilderVpcConfig - ] - } - --- | Constructor for 'AppStreamImageBuilder' containing required fields as --- arguments. -appStreamImageBuilder - :: Val Text -- ^ 'asibInstanceType' - -> Val Text -- ^ 'asibName' - -> AppStreamImageBuilder -appStreamImageBuilder instanceTypearg namearg = - AppStreamImageBuilder - { _appStreamImageBuilderAccessEndpoints = Nothing - , _appStreamImageBuilderAppstreamAgentVersion = Nothing - , _appStreamImageBuilderDescription = Nothing - , _appStreamImageBuilderDisplayName = Nothing - , _appStreamImageBuilderDomainJoinInfo = Nothing - , _appStreamImageBuilderEnableDefaultInternetAccess = Nothing - , _appStreamImageBuilderImageArn = Nothing - , _appStreamImageBuilderImageName = Nothing - , _appStreamImageBuilderInstanceType = instanceTypearg - , _appStreamImageBuilderName = namearg - , _appStreamImageBuilderTags = Nothing - , _appStreamImageBuilderVpcConfig = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-imagebuilder.html#cfn-appstream-imagebuilder-accessendpoints -asibAccessEndpoints :: Lens' AppStreamImageBuilder (Maybe [AppStreamImageBuilderAccessEndpoint]) -asibAccessEndpoints = lens _appStreamImageBuilderAccessEndpoints (\s a -> s { _appStreamImageBuilderAccessEndpoints = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-imagebuilder.html#cfn-appstream-imagebuilder-appstreamagentversion -asibAppstreamAgentVersion :: Lens' AppStreamImageBuilder (Maybe (Val Text)) -asibAppstreamAgentVersion = lens _appStreamImageBuilderAppstreamAgentVersion (\s a -> s { _appStreamImageBuilderAppstreamAgentVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-imagebuilder.html#cfn-appstream-imagebuilder-description -asibDescription :: Lens' AppStreamImageBuilder (Maybe (Val Text)) -asibDescription = lens _appStreamImageBuilderDescription (\s a -> s { _appStreamImageBuilderDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-imagebuilder.html#cfn-appstream-imagebuilder-displayname -asibDisplayName :: Lens' AppStreamImageBuilder (Maybe (Val Text)) -asibDisplayName = lens _appStreamImageBuilderDisplayName (\s a -> s { _appStreamImageBuilderDisplayName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-imagebuilder.html#cfn-appstream-imagebuilder-domainjoininfo -asibDomainJoinInfo :: Lens' AppStreamImageBuilder (Maybe AppStreamImageBuilderDomainJoinInfo) -asibDomainJoinInfo = lens _appStreamImageBuilderDomainJoinInfo (\s a -> s { _appStreamImageBuilderDomainJoinInfo = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-imagebuilder.html#cfn-appstream-imagebuilder-enabledefaultinternetaccess -asibEnableDefaultInternetAccess :: Lens' AppStreamImageBuilder (Maybe (Val Bool)) -asibEnableDefaultInternetAccess = lens _appStreamImageBuilderEnableDefaultInternetAccess (\s a -> s { _appStreamImageBuilderEnableDefaultInternetAccess = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-imagebuilder.html#cfn-appstream-imagebuilder-imagearn -asibImageArn :: Lens' AppStreamImageBuilder (Maybe (Val Text)) -asibImageArn = lens _appStreamImageBuilderImageArn (\s a -> s { _appStreamImageBuilderImageArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-imagebuilder.html#cfn-appstream-imagebuilder-imagename -asibImageName :: Lens' AppStreamImageBuilder (Maybe (Val Text)) -asibImageName = lens _appStreamImageBuilderImageName (\s a -> s { _appStreamImageBuilderImageName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-imagebuilder.html#cfn-appstream-imagebuilder-instancetype -asibInstanceType :: Lens' AppStreamImageBuilder (Val Text) -asibInstanceType = lens _appStreamImageBuilderInstanceType (\s a -> s { _appStreamImageBuilderInstanceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-imagebuilder.html#cfn-appstream-imagebuilder-name -asibName :: Lens' AppStreamImageBuilder (Val Text) -asibName = lens _appStreamImageBuilderName (\s a -> s { _appStreamImageBuilderName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-imagebuilder.html#cfn-appstream-imagebuilder-tags -asibTags :: Lens' AppStreamImageBuilder (Maybe [Tag]) -asibTags = lens _appStreamImageBuilderTags (\s a -> s { _appStreamImageBuilderTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-imagebuilder.html#cfn-appstream-imagebuilder-vpcconfig -asibVpcConfig :: Lens' AppStreamImageBuilder (Maybe AppStreamImageBuilderVpcConfig) -asibVpcConfig = lens _appStreamImageBuilderVpcConfig (\s a -> s { _appStreamImageBuilderVpcConfig = a }) diff --git a/library-gen/Stratosphere/Resources/AppStreamStack.hs b/library-gen/Stratosphere/Resources/AppStreamStack.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AppStreamStack.hs +++ /dev/null @@ -1,128 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html - -module Stratosphere.Resources.AppStreamStack where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppStreamStackAccessEndpoint -import Stratosphere.ResourceProperties.AppStreamStackApplicationSettings -import Stratosphere.ResourceProperties.AppStreamStackStorageConnector -import Stratosphere.ResourceProperties.Tag -import Stratosphere.ResourceProperties.AppStreamStackUserSetting - --- | Full data type definition for AppStreamStack. See 'appStreamStack' for a --- more convenient constructor. -data AppStreamStack = - AppStreamStack - { _appStreamStackAccessEndpoints :: Maybe [AppStreamStackAccessEndpoint] - , _appStreamStackApplicationSettings :: Maybe AppStreamStackApplicationSettings - , _appStreamStackAttributesToDelete :: Maybe (ValList Text) - , _appStreamStackDeleteStorageConnectors :: Maybe (Val Bool) - , _appStreamStackDescription :: Maybe (Val Text) - , _appStreamStackDisplayName :: Maybe (Val Text) - , _appStreamStackEmbedHostDomains :: Maybe (ValList Text) - , _appStreamStackFeedbackURL :: Maybe (Val Text) - , _appStreamStackName :: Maybe (Val Text) - , _appStreamStackRedirectURL :: Maybe (Val Text) - , _appStreamStackStorageConnectors :: Maybe [AppStreamStackStorageConnector] - , _appStreamStackTags :: Maybe [Tag] - , _appStreamStackUserSettings :: Maybe [AppStreamStackUserSetting] - } deriving (Show, Eq) - -instance ToResourceProperties AppStreamStack where - toResourceProperties AppStreamStack{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AppStream::Stack" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AccessEndpoints",) . toJSON) _appStreamStackAccessEndpoints - , fmap (("ApplicationSettings",) . toJSON) _appStreamStackApplicationSettings - , fmap (("AttributesToDelete",) . toJSON) _appStreamStackAttributesToDelete - , fmap (("DeleteStorageConnectors",) . toJSON) _appStreamStackDeleteStorageConnectors - , fmap (("Description",) . toJSON) _appStreamStackDescription - , fmap (("DisplayName",) . toJSON) _appStreamStackDisplayName - , fmap (("EmbedHostDomains",) . toJSON) _appStreamStackEmbedHostDomains - , fmap (("FeedbackURL",) . toJSON) _appStreamStackFeedbackURL - , fmap (("Name",) . toJSON) _appStreamStackName - , fmap (("RedirectURL",) . toJSON) _appStreamStackRedirectURL - , fmap (("StorageConnectors",) . toJSON) _appStreamStackStorageConnectors - , fmap (("Tags",) . toJSON) _appStreamStackTags - , fmap (("UserSettings",) . toJSON) _appStreamStackUserSettings - ] - } - --- | Constructor for 'AppStreamStack' containing required fields as arguments. -appStreamStack - :: AppStreamStack -appStreamStack = - AppStreamStack - { _appStreamStackAccessEndpoints = Nothing - , _appStreamStackApplicationSettings = Nothing - , _appStreamStackAttributesToDelete = Nothing - , _appStreamStackDeleteStorageConnectors = Nothing - , _appStreamStackDescription = Nothing - , _appStreamStackDisplayName = Nothing - , _appStreamStackEmbedHostDomains = Nothing - , _appStreamStackFeedbackURL = Nothing - , _appStreamStackName = Nothing - , _appStreamStackRedirectURL = Nothing - , _appStreamStackStorageConnectors = Nothing - , _appStreamStackTags = Nothing - , _appStreamStackUserSettings = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html#cfn-appstream-stack-accessendpoints -assAccessEndpoints :: Lens' AppStreamStack (Maybe [AppStreamStackAccessEndpoint]) -assAccessEndpoints = lens _appStreamStackAccessEndpoints (\s a -> s { _appStreamStackAccessEndpoints = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html#cfn-appstream-stack-applicationsettings -assApplicationSettings :: Lens' AppStreamStack (Maybe AppStreamStackApplicationSettings) -assApplicationSettings = lens _appStreamStackApplicationSettings (\s a -> s { _appStreamStackApplicationSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html#cfn-appstream-stack-attributestodelete -assAttributesToDelete :: Lens' AppStreamStack (Maybe (ValList Text)) -assAttributesToDelete = lens _appStreamStackAttributesToDelete (\s a -> s { _appStreamStackAttributesToDelete = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html#cfn-appstream-stack-deletestorageconnectors -assDeleteStorageConnectors :: Lens' AppStreamStack (Maybe (Val Bool)) -assDeleteStorageConnectors = lens _appStreamStackDeleteStorageConnectors (\s a -> s { _appStreamStackDeleteStorageConnectors = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html#cfn-appstream-stack-description -assDescription :: Lens' AppStreamStack (Maybe (Val Text)) -assDescription = lens _appStreamStackDescription (\s a -> s { _appStreamStackDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html#cfn-appstream-stack-displayname -assDisplayName :: Lens' AppStreamStack (Maybe (Val Text)) -assDisplayName = lens _appStreamStackDisplayName (\s a -> s { _appStreamStackDisplayName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html#cfn-appstream-stack-embedhostdomains -assEmbedHostDomains :: Lens' AppStreamStack (Maybe (ValList Text)) -assEmbedHostDomains = lens _appStreamStackEmbedHostDomains (\s a -> s { _appStreamStackEmbedHostDomains = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html#cfn-appstream-stack-feedbackurl -assFeedbackURL :: Lens' AppStreamStack (Maybe (Val Text)) -assFeedbackURL = lens _appStreamStackFeedbackURL (\s a -> s { _appStreamStackFeedbackURL = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html#cfn-appstream-stack-name -assName :: Lens' AppStreamStack (Maybe (Val Text)) -assName = lens _appStreamStackName (\s a -> s { _appStreamStackName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html#cfn-appstream-stack-redirecturl -assRedirectURL :: Lens' AppStreamStack (Maybe (Val Text)) -assRedirectURL = lens _appStreamStackRedirectURL (\s a -> s { _appStreamStackRedirectURL = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html#cfn-appstream-stack-storageconnectors -assStorageConnectors :: Lens' AppStreamStack (Maybe [AppStreamStackStorageConnector]) -assStorageConnectors = lens _appStreamStackStorageConnectors (\s a -> s { _appStreamStackStorageConnectors = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html#cfn-appstream-stack-tags -assTags :: Lens' AppStreamStack (Maybe [Tag]) -assTags = lens _appStreamStackTags (\s a -> s { _appStreamStackTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stack.html#cfn-appstream-stack-usersettings -assUserSettings :: Lens' AppStreamStack (Maybe [AppStreamStackUserSetting]) -assUserSettings = lens _appStreamStackUserSettings (\s a -> s { _appStreamStackUserSettings = a }) diff --git a/library-gen/Stratosphere/Resources/AppStreamStackFleetAssociation.hs b/library-gen/Stratosphere/Resources/AppStreamStackFleetAssociation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AppStreamStackFleetAssociation.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stackfleetassociation.html - -module Stratosphere.Resources.AppStreamStackFleetAssociation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppStreamStackFleetAssociation. See --- 'appStreamStackFleetAssociation' for a more convenient constructor. -data AppStreamStackFleetAssociation = - AppStreamStackFleetAssociation - { _appStreamStackFleetAssociationFleetName :: Val Text - , _appStreamStackFleetAssociationStackName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties AppStreamStackFleetAssociation where - toResourceProperties AppStreamStackFleetAssociation{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AppStream::StackFleetAssociation" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("FleetName",) . toJSON) _appStreamStackFleetAssociationFleetName - , (Just . ("StackName",) . toJSON) _appStreamStackFleetAssociationStackName - ] - } - --- | Constructor for 'AppStreamStackFleetAssociation' containing required --- fields as arguments. -appStreamStackFleetAssociation - :: Val Text -- ^ 'assfaFleetName' - -> Val Text -- ^ 'assfaStackName' - -> AppStreamStackFleetAssociation -appStreamStackFleetAssociation fleetNamearg stackNamearg = - AppStreamStackFleetAssociation - { _appStreamStackFleetAssociationFleetName = fleetNamearg - , _appStreamStackFleetAssociationStackName = stackNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stackfleetassociation.html#cfn-appstream-stackfleetassociation-fleetname -assfaFleetName :: Lens' AppStreamStackFleetAssociation (Val Text) -assfaFleetName = lens _appStreamStackFleetAssociationFleetName (\s a -> s { _appStreamStackFleetAssociationFleetName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stackfleetassociation.html#cfn-appstream-stackfleetassociation-stackname -assfaStackName :: Lens' AppStreamStackFleetAssociation (Val Text) -assfaStackName = lens _appStreamStackFleetAssociationStackName (\s a -> s { _appStreamStackFleetAssociationStackName = a }) diff --git a/library-gen/Stratosphere/Resources/AppStreamStackUserAssociation.hs b/library-gen/Stratosphere/Resources/AppStreamStackUserAssociation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AppStreamStackUserAssociation.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stackuserassociation.html - -module Stratosphere.Resources.AppStreamStackUserAssociation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppStreamStackUserAssociation. See --- 'appStreamStackUserAssociation' for a more convenient constructor. -data AppStreamStackUserAssociation = - AppStreamStackUserAssociation - { _appStreamStackUserAssociationAuthenticationType :: Val Text - , _appStreamStackUserAssociationSendEmailNotification :: Maybe (Val Bool) - , _appStreamStackUserAssociationStackName :: Val Text - , _appStreamStackUserAssociationUserName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties AppStreamStackUserAssociation where - toResourceProperties AppStreamStackUserAssociation{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AppStream::StackUserAssociation" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("AuthenticationType",) . toJSON) _appStreamStackUserAssociationAuthenticationType - , fmap (("SendEmailNotification",) . toJSON) _appStreamStackUserAssociationSendEmailNotification - , (Just . ("StackName",) . toJSON) _appStreamStackUserAssociationStackName - , (Just . ("UserName",) . toJSON) _appStreamStackUserAssociationUserName - ] - } - --- | Constructor for 'AppStreamStackUserAssociation' containing required --- fields as arguments. -appStreamStackUserAssociation - :: Val Text -- ^ 'assuaAuthenticationType' - -> Val Text -- ^ 'assuaStackName' - -> Val Text -- ^ 'assuaUserName' - -> AppStreamStackUserAssociation -appStreamStackUserAssociation authenticationTypearg stackNamearg userNamearg = - AppStreamStackUserAssociation - { _appStreamStackUserAssociationAuthenticationType = authenticationTypearg - , _appStreamStackUserAssociationSendEmailNotification = Nothing - , _appStreamStackUserAssociationStackName = stackNamearg - , _appStreamStackUserAssociationUserName = userNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stackuserassociation.html#cfn-appstream-stackuserassociation-authenticationtype -assuaAuthenticationType :: Lens' AppStreamStackUserAssociation (Val Text) -assuaAuthenticationType = lens _appStreamStackUserAssociationAuthenticationType (\s a -> s { _appStreamStackUserAssociationAuthenticationType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stackuserassociation.html#cfn-appstream-stackuserassociation-sendemailnotification -assuaSendEmailNotification :: Lens' AppStreamStackUserAssociation (Maybe (Val Bool)) -assuaSendEmailNotification = lens _appStreamStackUserAssociationSendEmailNotification (\s a -> s { _appStreamStackUserAssociationSendEmailNotification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stackuserassociation.html#cfn-appstream-stackuserassociation-stackname -assuaStackName :: Lens' AppStreamStackUserAssociation (Val Text) -assuaStackName = lens _appStreamStackUserAssociationStackName (\s a -> s { _appStreamStackUserAssociationStackName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-stackuserassociation.html#cfn-appstream-stackuserassociation-username -assuaUserName :: Lens' AppStreamStackUserAssociation (Val Text) -assuaUserName = lens _appStreamStackUserAssociationUserName (\s a -> s { _appStreamStackUserAssociationUserName = a }) diff --git a/library-gen/Stratosphere/Resources/AppStreamUser.hs b/library-gen/Stratosphere/Resources/AppStreamUser.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AppStreamUser.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-user.html - -module Stratosphere.Resources.AppStreamUser where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppStreamUser. See 'appStreamUser' for a --- more convenient constructor. -data AppStreamUser = - AppStreamUser - { _appStreamUserAuthenticationType :: Val Text - , _appStreamUserFirstName :: Maybe (Val Text) - , _appStreamUserLastName :: Maybe (Val Text) - , _appStreamUserMessageAction :: Maybe (Val Text) - , _appStreamUserUserName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties AppStreamUser where - toResourceProperties AppStreamUser{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AppStream::User" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("AuthenticationType",) . toJSON) _appStreamUserAuthenticationType - , fmap (("FirstName",) . toJSON) _appStreamUserFirstName - , fmap (("LastName",) . toJSON) _appStreamUserLastName - , fmap (("MessageAction",) . toJSON) _appStreamUserMessageAction - , (Just . ("UserName",) . toJSON) _appStreamUserUserName - ] - } - --- | Constructor for 'AppStreamUser' containing required fields as arguments. -appStreamUser - :: Val Text -- ^ 'asuAuthenticationType' - -> Val Text -- ^ 'asuUserName' - -> AppStreamUser -appStreamUser authenticationTypearg userNamearg = - AppStreamUser - { _appStreamUserAuthenticationType = authenticationTypearg - , _appStreamUserFirstName = Nothing - , _appStreamUserLastName = Nothing - , _appStreamUserMessageAction = Nothing - , _appStreamUserUserName = userNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-user.html#cfn-appstream-user-authenticationtype -asuAuthenticationType :: Lens' AppStreamUser (Val Text) -asuAuthenticationType = lens _appStreamUserAuthenticationType (\s a -> s { _appStreamUserAuthenticationType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-user.html#cfn-appstream-user-firstname -asuFirstName :: Lens' AppStreamUser (Maybe (Val Text)) -asuFirstName = lens _appStreamUserFirstName (\s a -> s { _appStreamUserFirstName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-user.html#cfn-appstream-user-lastname -asuLastName :: Lens' AppStreamUser (Maybe (Val Text)) -asuLastName = lens _appStreamUserLastName (\s a -> s { _appStreamUserLastName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-user.html#cfn-appstream-user-messageaction -asuMessageAction :: Lens' AppStreamUser (Maybe (Val Text)) -asuMessageAction = lens _appStreamUserMessageAction (\s a -> s { _appStreamUserMessageAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appstream-user.html#cfn-appstream-user-username -asuUserName :: Lens' AppStreamUser (Val Text) -asuUserName = lens _appStreamUserUserName (\s a -> s { _appStreamUserUserName = a }) diff --git a/library-gen/Stratosphere/Resources/AppSyncApiCache.hs b/library-gen/Stratosphere/Resources/AppSyncApiCache.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AppSyncApiCache.hs +++ /dev/null @@ -1,80 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-apicache.html - -module Stratosphere.Resources.AppSyncApiCache where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppSyncApiCache. See 'appSyncApiCache' for --- a more convenient constructor. -data AppSyncApiCache = - AppSyncApiCache - { _appSyncApiCacheApiCachingBehavior :: Val Text - , _appSyncApiCacheApiId :: Val Text - , _appSyncApiCacheAtRestEncryptionEnabled :: Maybe (Val Bool) - , _appSyncApiCacheTransitEncryptionEnabled :: Maybe (Val Bool) - , _appSyncApiCacheTtl :: Val Double - , _appSyncApiCacheType :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties AppSyncApiCache where - toResourceProperties AppSyncApiCache{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AppSync::ApiCache" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApiCachingBehavior",) . toJSON) _appSyncApiCacheApiCachingBehavior - , (Just . ("ApiId",) . toJSON) _appSyncApiCacheApiId - , fmap (("AtRestEncryptionEnabled",) . toJSON) _appSyncApiCacheAtRestEncryptionEnabled - , fmap (("TransitEncryptionEnabled",) . toJSON) _appSyncApiCacheTransitEncryptionEnabled - , (Just . ("Ttl",) . toJSON) _appSyncApiCacheTtl - , (Just . ("Type",) . toJSON) _appSyncApiCacheType - ] - } - --- | Constructor for 'AppSyncApiCache' containing required fields as --- arguments. -appSyncApiCache - :: Val Text -- ^ 'asacApiCachingBehavior' - -> Val Text -- ^ 'asacApiId' - -> Val Double -- ^ 'asacTtl' - -> Val Text -- ^ 'asacType' - -> AppSyncApiCache -appSyncApiCache apiCachingBehaviorarg apiIdarg ttlarg typearg = - AppSyncApiCache - { _appSyncApiCacheApiCachingBehavior = apiCachingBehaviorarg - , _appSyncApiCacheApiId = apiIdarg - , _appSyncApiCacheAtRestEncryptionEnabled = Nothing - , _appSyncApiCacheTransitEncryptionEnabled = Nothing - , _appSyncApiCacheTtl = ttlarg - , _appSyncApiCacheType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-apicache.html#cfn-appsync-apicache-apicachingbehavior -asacApiCachingBehavior :: Lens' AppSyncApiCache (Val Text) -asacApiCachingBehavior = lens _appSyncApiCacheApiCachingBehavior (\s a -> s { _appSyncApiCacheApiCachingBehavior = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-apicache.html#cfn-appsync-apicache-apiid -asacApiId :: Lens' AppSyncApiCache (Val Text) -asacApiId = lens _appSyncApiCacheApiId (\s a -> s { _appSyncApiCacheApiId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-apicache.html#cfn-appsync-apicache-atrestencryptionenabled -asacAtRestEncryptionEnabled :: Lens' AppSyncApiCache (Maybe (Val Bool)) -asacAtRestEncryptionEnabled = lens _appSyncApiCacheAtRestEncryptionEnabled (\s a -> s { _appSyncApiCacheAtRestEncryptionEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-apicache.html#cfn-appsync-apicache-transitencryptionenabled -asacTransitEncryptionEnabled :: Lens' AppSyncApiCache (Maybe (Val Bool)) -asacTransitEncryptionEnabled = lens _appSyncApiCacheTransitEncryptionEnabled (\s a -> s { _appSyncApiCacheTransitEncryptionEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-apicache.html#cfn-appsync-apicache-ttl -asacTtl :: Lens' AppSyncApiCache (Val Double) -asacTtl = lens _appSyncApiCacheTtl (\s a -> s { _appSyncApiCacheTtl = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-apicache.html#cfn-appsync-apicache-type -asacType :: Lens' AppSyncApiCache (Val Text) -asacType = lens _appSyncApiCacheType (\s a -> s { _appSyncApiCacheType = a }) diff --git a/library-gen/Stratosphere/Resources/AppSyncApiKey.hs b/library-gen/Stratosphere/Resources/AppSyncApiKey.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AppSyncApiKey.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-apikey.html - -module Stratosphere.Resources.AppSyncApiKey where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppSyncApiKey. See 'appSyncApiKey' for a --- more convenient constructor. -data AppSyncApiKey = - AppSyncApiKey - { _appSyncApiKeyApiId :: Val Text - , _appSyncApiKeyDescription :: Maybe (Val Text) - , _appSyncApiKeyExpires :: Maybe (Val Double) - } deriving (Show, Eq) - -instance ToResourceProperties AppSyncApiKey where - toResourceProperties AppSyncApiKey{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AppSync::ApiKey" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApiId",) . toJSON) _appSyncApiKeyApiId - , fmap (("Description",) . toJSON) _appSyncApiKeyDescription - , fmap (("Expires",) . toJSON) _appSyncApiKeyExpires - ] - } - --- | Constructor for 'AppSyncApiKey' containing required fields as arguments. -appSyncApiKey - :: Val Text -- ^ 'asakApiId' - -> AppSyncApiKey -appSyncApiKey apiIdarg = - AppSyncApiKey - { _appSyncApiKeyApiId = apiIdarg - , _appSyncApiKeyDescription = Nothing - , _appSyncApiKeyExpires = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-apikey.html#cfn-appsync-apikey-apiid -asakApiId :: Lens' AppSyncApiKey (Val Text) -asakApiId = lens _appSyncApiKeyApiId (\s a -> s { _appSyncApiKeyApiId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-apikey.html#cfn-appsync-apikey-description -asakDescription :: Lens' AppSyncApiKey (Maybe (Val Text)) -asakDescription = lens _appSyncApiKeyDescription (\s a -> s { _appSyncApiKeyDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-apikey.html#cfn-appsync-apikey-expires -asakExpires :: Lens' AppSyncApiKey (Maybe (Val Double)) -asakExpires = lens _appSyncApiKeyExpires (\s a -> s { _appSyncApiKeyExpires = a }) diff --git a/library-gen/Stratosphere/Resources/AppSyncDataSource.hs b/library-gen/Stratosphere/Resources/AppSyncDataSource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AppSyncDataSource.hs +++ /dev/null @@ -1,111 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-datasource.html - -module Stratosphere.Resources.AppSyncDataSource where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppSyncDataSourceDynamoDBConfig -import Stratosphere.ResourceProperties.AppSyncDataSourceElasticsearchConfig -import Stratosphere.ResourceProperties.AppSyncDataSourceHttpConfig -import Stratosphere.ResourceProperties.AppSyncDataSourceLambdaConfig -import Stratosphere.ResourceProperties.AppSyncDataSourceRelationalDatabaseConfig - --- | Full data type definition for AppSyncDataSource. See 'appSyncDataSource' --- for a more convenient constructor. -data AppSyncDataSource = - AppSyncDataSource - { _appSyncDataSourceApiId :: Val Text - , _appSyncDataSourceDescription :: Maybe (Val Text) - , _appSyncDataSourceDynamoDBConfig :: Maybe AppSyncDataSourceDynamoDBConfig - , _appSyncDataSourceElasticsearchConfig :: Maybe AppSyncDataSourceElasticsearchConfig - , _appSyncDataSourceHttpConfig :: Maybe AppSyncDataSourceHttpConfig - , _appSyncDataSourceLambdaConfig :: Maybe AppSyncDataSourceLambdaConfig - , _appSyncDataSourceName :: Val Text - , _appSyncDataSourceRelationalDatabaseConfig :: Maybe AppSyncDataSourceRelationalDatabaseConfig - , _appSyncDataSourceServiceRoleArn :: Maybe (Val Text) - , _appSyncDataSourceType :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties AppSyncDataSource where - toResourceProperties AppSyncDataSource{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AppSync::DataSource" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApiId",) . toJSON) _appSyncDataSourceApiId - , fmap (("Description",) . toJSON) _appSyncDataSourceDescription - , fmap (("DynamoDBConfig",) . toJSON) _appSyncDataSourceDynamoDBConfig - , fmap (("ElasticsearchConfig",) . toJSON) _appSyncDataSourceElasticsearchConfig - , fmap (("HttpConfig",) . toJSON) _appSyncDataSourceHttpConfig - , fmap (("LambdaConfig",) . toJSON) _appSyncDataSourceLambdaConfig - , (Just . ("Name",) . toJSON) _appSyncDataSourceName - , fmap (("RelationalDatabaseConfig",) . toJSON) _appSyncDataSourceRelationalDatabaseConfig - , fmap (("ServiceRoleArn",) . toJSON) _appSyncDataSourceServiceRoleArn - , (Just . ("Type",) . toJSON) _appSyncDataSourceType - ] - } - --- | Constructor for 'AppSyncDataSource' containing required fields as --- arguments. -appSyncDataSource - :: Val Text -- ^ 'asdsApiId' - -> Val Text -- ^ 'asdsName' - -> Val Text -- ^ 'asdsType' - -> AppSyncDataSource -appSyncDataSource apiIdarg namearg typearg = - AppSyncDataSource - { _appSyncDataSourceApiId = apiIdarg - , _appSyncDataSourceDescription = Nothing - , _appSyncDataSourceDynamoDBConfig = Nothing - , _appSyncDataSourceElasticsearchConfig = Nothing - , _appSyncDataSourceHttpConfig = Nothing - , _appSyncDataSourceLambdaConfig = Nothing - , _appSyncDataSourceName = namearg - , _appSyncDataSourceRelationalDatabaseConfig = Nothing - , _appSyncDataSourceServiceRoleArn = Nothing - , _appSyncDataSourceType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-datasource.html#cfn-appsync-datasource-apiid -asdsApiId :: Lens' AppSyncDataSource (Val Text) -asdsApiId = lens _appSyncDataSourceApiId (\s a -> s { _appSyncDataSourceApiId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-datasource.html#cfn-appsync-datasource-description -asdsDescription :: Lens' AppSyncDataSource (Maybe (Val Text)) -asdsDescription = lens _appSyncDataSourceDescription (\s a -> s { _appSyncDataSourceDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-datasource.html#cfn-appsync-datasource-dynamodbconfig -asdsDynamoDBConfig :: Lens' AppSyncDataSource (Maybe AppSyncDataSourceDynamoDBConfig) -asdsDynamoDBConfig = lens _appSyncDataSourceDynamoDBConfig (\s a -> s { _appSyncDataSourceDynamoDBConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-datasource.html#cfn-appsync-datasource-elasticsearchconfig -asdsElasticsearchConfig :: Lens' AppSyncDataSource (Maybe AppSyncDataSourceElasticsearchConfig) -asdsElasticsearchConfig = lens _appSyncDataSourceElasticsearchConfig (\s a -> s { _appSyncDataSourceElasticsearchConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-datasource.html#cfn-appsync-datasource-httpconfig -asdsHttpConfig :: Lens' AppSyncDataSource (Maybe AppSyncDataSourceHttpConfig) -asdsHttpConfig = lens _appSyncDataSourceHttpConfig (\s a -> s { _appSyncDataSourceHttpConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-datasource.html#cfn-appsync-datasource-lambdaconfig -asdsLambdaConfig :: Lens' AppSyncDataSource (Maybe AppSyncDataSourceLambdaConfig) -asdsLambdaConfig = lens _appSyncDataSourceLambdaConfig (\s a -> s { _appSyncDataSourceLambdaConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-datasource.html#cfn-appsync-datasource-name -asdsName :: Lens' AppSyncDataSource (Val Text) -asdsName = lens _appSyncDataSourceName (\s a -> s { _appSyncDataSourceName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-datasource.html#cfn-appsync-datasource-relationaldatabaseconfig -asdsRelationalDatabaseConfig :: Lens' AppSyncDataSource (Maybe AppSyncDataSourceRelationalDatabaseConfig) -asdsRelationalDatabaseConfig = lens _appSyncDataSourceRelationalDatabaseConfig (\s a -> s { _appSyncDataSourceRelationalDatabaseConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-datasource.html#cfn-appsync-datasource-servicerolearn -asdsServiceRoleArn :: Lens' AppSyncDataSource (Maybe (Val Text)) -asdsServiceRoleArn = lens _appSyncDataSourceServiceRoleArn (\s a -> s { _appSyncDataSourceServiceRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-datasource.html#cfn-appsync-datasource-type -asdsType :: Lens' AppSyncDataSource (Val Text) -asdsType = lens _appSyncDataSourceType (\s a -> s { _appSyncDataSourceType = a }) diff --git a/library-gen/Stratosphere/Resources/AppSyncFunctionConfiguration.hs b/library-gen/Stratosphere/Resources/AppSyncFunctionConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AppSyncFunctionConfiguration.hs +++ /dev/null @@ -1,101 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-functionconfiguration.html - -module Stratosphere.Resources.AppSyncFunctionConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppSyncFunctionConfiguration. See --- 'appSyncFunctionConfiguration' for a more convenient constructor. -data AppSyncFunctionConfiguration = - AppSyncFunctionConfiguration - { _appSyncFunctionConfigurationApiId :: Val Text - , _appSyncFunctionConfigurationDataSourceName :: Val Text - , _appSyncFunctionConfigurationDescription :: Maybe (Val Text) - , _appSyncFunctionConfigurationFunctionVersion :: Val Text - , _appSyncFunctionConfigurationName :: Val Text - , _appSyncFunctionConfigurationRequestMappingTemplate :: Maybe (Val Text) - , _appSyncFunctionConfigurationRequestMappingTemplateS3Location :: Maybe (Val Text) - , _appSyncFunctionConfigurationResponseMappingTemplate :: Maybe (Val Text) - , _appSyncFunctionConfigurationResponseMappingTemplateS3Location :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties AppSyncFunctionConfiguration where - toResourceProperties AppSyncFunctionConfiguration{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AppSync::FunctionConfiguration" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApiId",) . toJSON) _appSyncFunctionConfigurationApiId - , (Just . ("DataSourceName",) . toJSON) _appSyncFunctionConfigurationDataSourceName - , fmap (("Description",) . toJSON) _appSyncFunctionConfigurationDescription - , (Just . ("FunctionVersion",) . toJSON) _appSyncFunctionConfigurationFunctionVersion - , (Just . ("Name",) . toJSON) _appSyncFunctionConfigurationName - , fmap (("RequestMappingTemplate",) . toJSON) _appSyncFunctionConfigurationRequestMappingTemplate - , fmap (("RequestMappingTemplateS3Location",) . toJSON) _appSyncFunctionConfigurationRequestMappingTemplateS3Location - , fmap (("ResponseMappingTemplate",) . toJSON) _appSyncFunctionConfigurationResponseMappingTemplate - , fmap (("ResponseMappingTemplateS3Location",) . toJSON) _appSyncFunctionConfigurationResponseMappingTemplateS3Location - ] - } - --- | Constructor for 'AppSyncFunctionConfiguration' containing required fields --- as arguments. -appSyncFunctionConfiguration - :: Val Text -- ^ 'asfcApiId' - -> Val Text -- ^ 'asfcDataSourceName' - -> Val Text -- ^ 'asfcFunctionVersion' - -> Val Text -- ^ 'asfcName' - -> AppSyncFunctionConfiguration -appSyncFunctionConfiguration apiIdarg dataSourceNamearg functionVersionarg namearg = - AppSyncFunctionConfiguration - { _appSyncFunctionConfigurationApiId = apiIdarg - , _appSyncFunctionConfigurationDataSourceName = dataSourceNamearg - , _appSyncFunctionConfigurationDescription = Nothing - , _appSyncFunctionConfigurationFunctionVersion = functionVersionarg - , _appSyncFunctionConfigurationName = namearg - , _appSyncFunctionConfigurationRequestMappingTemplate = Nothing - , _appSyncFunctionConfigurationRequestMappingTemplateS3Location = Nothing - , _appSyncFunctionConfigurationResponseMappingTemplate = Nothing - , _appSyncFunctionConfigurationResponseMappingTemplateS3Location = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-functionconfiguration.html#cfn-appsync-functionconfiguration-apiid -asfcApiId :: Lens' AppSyncFunctionConfiguration (Val Text) -asfcApiId = lens _appSyncFunctionConfigurationApiId (\s a -> s { _appSyncFunctionConfigurationApiId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-functionconfiguration.html#cfn-appsync-functionconfiguration-datasourcename -asfcDataSourceName :: Lens' AppSyncFunctionConfiguration (Val Text) -asfcDataSourceName = lens _appSyncFunctionConfigurationDataSourceName (\s a -> s { _appSyncFunctionConfigurationDataSourceName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-functionconfiguration.html#cfn-appsync-functionconfiguration-description -asfcDescription :: Lens' AppSyncFunctionConfiguration (Maybe (Val Text)) -asfcDescription = lens _appSyncFunctionConfigurationDescription (\s a -> s { _appSyncFunctionConfigurationDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-functionconfiguration.html#cfn-appsync-functionconfiguration-functionversion -asfcFunctionVersion :: Lens' AppSyncFunctionConfiguration (Val Text) -asfcFunctionVersion = lens _appSyncFunctionConfigurationFunctionVersion (\s a -> s { _appSyncFunctionConfigurationFunctionVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-functionconfiguration.html#cfn-appsync-functionconfiguration-name -asfcName :: Lens' AppSyncFunctionConfiguration (Val Text) -asfcName = lens _appSyncFunctionConfigurationName (\s a -> s { _appSyncFunctionConfigurationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-functionconfiguration.html#cfn-appsync-functionconfiguration-requestmappingtemplate -asfcRequestMappingTemplate :: Lens' AppSyncFunctionConfiguration (Maybe (Val Text)) -asfcRequestMappingTemplate = lens _appSyncFunctionConfigurationRequestMappingTemplate (\s a -> s { _appSyncFunctionConfigurationRequestMappingTemplate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-functionconfiguration.html#cfn-appsync-functionconfiguration-requestmappingtemplates3location -asfcRequestMappingTemplateS3Location :: Lens' AppSyncFunctionConfiguration (Maybe (Val Text)) -asfcRequestMappingTemplateS3Location = lens _appSyncFunctionConfigurationRequestMappingTemplateS3Location (\s a -> s { _appSyncFunctionConfigurationRequestMappingTemplateS3Location = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-functionconfiguration.html#cfn-appsync-functionconfiguration-responsemappingtemplate -asfcResponseMappingTemplate :: Lens' AppSyncFunctionConfiguration (Maybe (Val Text)) -asfcResponseMappingTemplate = lens _appSyncFunctionConfigurationResponseMappingTemplate (\s a -> s { _appSyncFunctionConfigurationResponseMappingTemplate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-functionconfiguration.html#cfn-appsync-functionconfiguration-responsemappingtemplates3location -asfcResponseMappingTemplateS3Location :: Lens' AppSyncFunctionConfiguration (Maybe (Val Text)) -asfcResponseMappingTemplateS3Location = lens _appSyncFunctionConfigurationResponseMappingTemplateS3Location (\s a -> s { _appSyncFunctionConfigurationResponseMappingTemplateS3Location = a }) diff --git a/library-gen/Stratosphere/Resources/AppSyncGraphQLApi.hs b/library-gen/Stratosphere/Resources/AppSyncGraphQLApi.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AppSyncGraphQLApi.hs +++ /dev/null @@ -1,96 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-graphqlapi.html - -module Stratosphere.Resources.AppSyncGraphQLApi where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppSyncGraphQLApiAdditionalAuthenticationProvider -import Stratosphere.ResourceProperties.AppSyncGraphQLApiLogConfig -import Stratosphere.ResourceProperties.AppSyncGraphQLApiOpenIDConnectConfig -import Stratosphere.ResourceProperties.Tag -import Stratosphere.ResourceProperties.AppSyncGraphQLApiUserPoolConfig - --- | Full data type definition for AppSyncGraphQLApi. See 'appSyncGraphQLApi' --- for a more convenient constructor. -data AppSyncGraphQLApi = - AppSyncGraphQLApi - { _appSyncGraphQLApiAdditionalAuthenticationProviders :: Maybe [AppSyncGraphQLApiAdditionalAuthenticationProvider] - , _appSyncGraphQLApiAuthenticationType :: Val Text - , _appSyncGraphQLApiLogConfig :: Maybe AppSyncGraphQLApiLogConfig - , _appSyncGraphQLApiName :: Val Text - , _appSyncGraphQLApiOpenIDConnectConfig :: Maybe AppSyncGraphQLApiOpenIDConnectConfig - , _appSyncGraphQLApiTags :: Maybe [Tag] - , _appSyncGraphQLApiUserPoolConfig :: Maybe AppSyncGraphQLApiUserPoolConfig - , _appSyncGraphQLApiXrayEnabled :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToResourceProperties AppSyncGraphQLApi where - toResourceProperties AppSyncGraphQLApi{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AppSync::GraphQLApi" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AdditionalAuthenticationProviders",) . toJSON) _appSyncGraphQLApiAdditionalAuthenticationProviders - , (Just . ("AuthenticationType",) . toJSON) _appSyncGraphQLApiAuthenticationType - , fmap (("LogConfig",) . toJSON) _appSyncGraphQLApiLogConfig - , (Just . ("Name",) . toJSON) _appSyncGraphQLApiName - , fmap (("OpenIDConnectConfig",) . toJSON) _appSyncGraphQLApiOpenIDConnectConfig - , fmap (("Tags",) . toJSON) _appSyncGraphQLApiTags - , fmap (("UserPoolConfig",) . toJSON) _appSyncGraphQLApiUserPoolConfig - , fmap (("XrayEnabled",) . toJSON) _appSyncGraphQLApiXrayEnabled - ] - } - --- | Constructor for 'AppSyncGraphQLApi' containing required fields as --- arguments. -appSyncGraphQLApi - :: Val Text -- ^ 'asgqlaAuthenticationType' - -> Val Text -- ^ 'asgqlaName' - -> AppSyncGraphQLApi -appSyncGraphQLApi authenticationTypearg namearg = - AppSyncGraphQLApi - { _appSyncGraphQLApiAdditionalAuthenticationProviders = Nothing - , _appSyncGraphQLApiAuthenticationType = authenticationTypearg - , _appSyncGraphQLApiLogConfig = Nothing - , _appSyncGraphQLApiName = namearg - , _appSyncGraphQLApiOpenIDConnectConfig = Nothing - , _appSyncGraphQLApiTags = Nothing - , _appSyncGraphQLApiUserPoolConfig = Nothing - , _appSyncGraphQLApiXrayEnabled = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-graphqlapi.html#cfn-appsync-graphqlapi-additionalauthenticationproviders -asgqlaAdditionalAuthenticationProviders :: Lens' AppSyncGraphQLApi (Maybe [AppSyncGraphQLApiAdditionalAuthenticationProvider]) -asgqlaAdditionalAuthenticationProviders = lens _appSyncGraphQLApiAdditionalAuthenticationProviders (\s a -> s { _appSyncGraphQLApiAdditionalAuthenticationProviders = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-graphqlapi.html#cfn-appsync-graphqlapi-authenticationtype -asgqlaAuthenticationType :: Lens' AppSyncGraphQLApi (Val Text) -asgqlaAuthenticationType = lens _appSyncGraphQLApiAuthenticationType (\s a -> s { _appSyncGraphQLApiAuthenticationType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-graphqlapi.html#cfn-appsync-graphqlapi-logconfig -asgqlaLogConfig :: Lens' AppSyncGraphQLApi (Maybe AppSyncGraphQLApiLogConfig) -asgqlaLogConfig = lens _appSyncGraphQLApiLogConfig (\s a -> s { _appSyncGraphQLApiLogConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-graphqlapi.html#cfn-appsync-graphqlapi-name -asgqlaName :: Lens' AppSyncGraphQLApi (Val Text) -asgqlaName = lens _appSyncGraphQLApiName (\s a -> s { _appSyncGraphQLApiName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-graphqlapi.html#cfn-appsync-graphqlapi-openidconnectconfig -asgqlaOpenIDConnectConfig :: Lens' AppSyncGraphQLApi (Maybe AppSyncGraphQLApiOpenIDConnectConfig) -asgqlaOpenIDConnectConfig = lens _appSyncGraphQLApiOpenIDConnectConfig (\s a -> s { _appSyncGraphQLApiOpenIDConnectConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-graphqlapi.html#cfn-appsync-graphqlapi-tags -asgqlaTags :: Lens' AppSyncGraphQLApi (Maybe [Tag]) -asgqlaTags = lens _appSyncGraphQLApiTags (\s a -> s { _appSyncGraphQLApiTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-graphqlapi.html#cfn-appsync-graphqlapi-userpoolconfig -asgqlaUserPoolConfig :: Lens' AppSyncGraphQLApi (Maybe AppSyncGraphQLApiUserPoolConfig) -asgqlaUserPoolConfig = lens _appSyncGraphQLApiUserPoolConfig (\s a -> s { _appSyncGraphQLApiUserPoolConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-graphqlapi.html#cfn-appsync-graphqlapi-xrayenabled -asgqlaXrayEnabled :: Lens' AppSyncGraphQLApi (Maybe (Val Bool)) -asgqlaXrayEnabled = lens _appSyncGraphQLApiXrayEnabled (\s a -> s { _appSyncGraphQLApiXrayEnabled = a }) diff --git a/library-gen/Stratosphere/Resources/AppSyncGraphQLSchema.hs b/library-gen/Stratosphere/Resources/AppSyncGraphQLSchema.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AppSyncGraphQLSchema.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-graphqlschema.html - -module Stratosphere.Resources.AppSyncGraphQLSchema where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AppSyncGraphQLSchema. See --- 'appSyncGraphQLSchema' for a more convenient constructor. -data AppSyncGraphQLSchema = - AppSyncGraphQLSchema - { _appSyncGraphQLSchemaApiId :: Val Text - , _appSyncGraphQLSchemaDefinition :: Maybe (Val Text) - , _appSyncGraphQLSchemaDefinitionS3Location :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties AppSyncGraphQLSchema where - toResourceProperties AppSyncGraphQLSchema{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AppSync::GraphQLSchema" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApiId",) . toJSON) _appSyncGraphQLSchemaApiId - , fmap (("Definition",) . toJSON) _appSyncGraphQLSchemaDefinition - , fmap (("DefinitionS3Location",) . toJSON) _appSyncGraphQLSchemaDefinitionS3Location - ] - } - --- | Constructor for 'AppSyncGraphQLSchema' containing required fields as --- arguments. -appSyncGraphQLSchema - :: Val Text -- ^ 'asgqlsApiId' - -> AppSyncGraphQLSchema -appSyncGraphQLSchema apiIdarg = - AppSyncGraphQLSchema - { _appSyncGraphQLSchemaApiId = apiIdarg - , _appSyncGraphQLSchemaDefinition = Nothing - , _appSyncGraphQLSchemaDefinitionS3Location = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-graphqlschema.html#cfn-appsync-graphqlschema-apiid -asgqlsApiId :: Lens' AppSyncGraphQLSchema (Val Text) -asgqlsApiId = lens _appSyncGraphQLSchemaApiId (\s a -> s { _appSyncGraphQLSchemaApiId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-graphqlschema.html#cfn-appsync-graphqlschema-definition -asgqlsDefinition :: Lens' AppSyncGraphQLSchema (Maybe (Val Text)) -asgqlsDefinition = lens _appSyncGraphQLSchemaDefinition (\s a -> s { _appSyncGraphQLSchemaDefinition = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-graphqlschema.html#cfn-appsync-graphqlschema-definitions3location -asgqlsDefinitionS3Location :: Lens' AppSyncGraphQLSchema (Maybe (Val Text)) -asgqlsDefinitionS3Location = lens _appSyncGraphQLSchemaDefinitionS3Location (\s a -> s { _appSyncGraphQLSchemaDefinitionS3Location = a }) diff --git a/library-gen/Stratosphere/Resources/AppSyncResolver.hs b/library-gen/Stratosphere/Resources/AppSyncResolver.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AppSyncResolver.hs +++ /dev/null @@ -1,123 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-resolver.html - -module Stratosphere.Resources.AppSyncResolver where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AppSyncResolverCachingConfig -import Stratosphere.ResourceProperties.AppSyncResolverPipelineConfig -import Stratosphere.ResourceProperties.AppSyncResolverSyncConfig - --- | Full data type definition for AppSyncResolver. See 'appSyncResolver' for --- a more convenient constructor. -data AppSyncResolver = - AppSyncResolver - { _appSyncResolverApiId :: Val Text - , _appSyncResolverCachingConfig :: Maybe AppSyncResolverCachingConfig - , _appSyncResolverDataSourceName :: Maybe (Val Text) - , _appSyncResolverFieldName :: Val Text - , _appSyncResolverKind :: Maybe (Val Text) - , _appSyncResolverPipelineConfig :: Maybe AppSyncResolverPipelineConfig - , _appSyncResolverRequestMappingTemplate :: Maybe (Val Text) - , _appSyncResolverRequestMappingTemplateS3Location :: Maybe (Val Text) - , _appSyncResolverResponseMappingTemplate :: Maybe (Val Text) - , _appSyncResolverResponseMappingTemplateS3Location :: Maybe (Val Text) - , _appSyncResolverSyncConfig :: Maybe AppSyncResolverSyncConfig - , _appSyncResolverTypeName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties AppSyncResolver where - toResourceProperties AppSyncResolver{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AppSync::Resolver" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApiId",) . toJSON) _appSyncResolverApiId - , fmap (("CachingConfig",) . toJSON) _appSyncResolverCachingConfig - , fmap (("DataSourceName",) . toJSON) _appSyncResolverDataSourceName - , (Just . ("FieldName",) . toJSON) _appSyncResolverFieldName - , fmap (("Kind",) . toJSON) _appSyncResolverKind - , fmap (("PipelineConfig",) . toJSON) _appSyncResolverPipelineConfig - , fmap (("RequestMappingTemplate",) . toJSON) _appSyncResolverRequestMappingTemplate - , fmap (("RequestMappingTemplateS3Location",) . toJSON) _appSyncResolverRequestMappingTemplateS3Location - , fmap (("ResponseMappingTemplate",) . toJSON) _appSyncResolverResponseMappingTemplate - , fmap (("ResponseMappingTemplateS3Location",) . toJSON) _appSyncResolverResponseMappingTemplateS3Location - , fmap (("SyncConfig",) . toJSON) _appSyncResolverSyncConfig - , (Just . ("TypeName",) . toJSON) _appSyncResolverTypeName - ] - } - --- | Constructor for 'AppSyncResolver' containing required fields as --- arguments. -appSyncResolver - :: Val Text -- ^ 'asrApiId' - -> Val Text -- ^ 'asrFieldName' - -> Val Text -- ^ 'asrTypeName' - -> AppSyncResolver -appSyncResolver apiIdarg fieldNamearg typeNamearg = - AppSyncResolver - { _appSyncResolverApiId = apiIdarg - , _appSyncResolverCachingConfig = Nothing - , _appSyncResolverDataSourceName = Nothing - , _appSyncResolverFieldName = fieldNamearg - , _appSyncResolverKind = Nothing - , _appSyncResolverPipelineConfig = Nothing - , _appSyncResolverRequestMappingTemplate = Nothing - , _appSyncResolverRequestMappingTemplateS3Location = Nothing - , _appSyncResolverResponseMappingTemplate = Nothing - , _appSyncResolverResponseMappingTemplateS3Location = Nothing - , _appSyncResolverSyncConfig = Nothing - , _appSyncResolverTypeName = typeNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-resolver.html#cfn-appsync-resolver-apiid -asrApiId :: Lens' AppSyncResolver (Val Text) -asrApiId = lens _appSyncResolverApiId (\s a -> s { _appSyncResolverApiId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-resolver.html#cfn-appsync-resolver-cachingconfig -asrCachingConfig :: Lens' AppSyncResolver (Maybe AppSyncResolverCachingConfig) -asrCachingConfig = lens _appSyncResolverCachingConfig (\s a -> s { _appSyncResolverCachingConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-resolver.html#cfn-appsync-resolver-datasourcename -asrDataSourceName :: Lens' AppSyncResolver (Maybe (Val Text)) -asrDataSourceName = lens _appSyncResolverDataSourceName (\s a -> s { _appSyncResolverDataSourceName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-resolver.html#cfn-appsync-resolver-fieldname -asrFieldName :: Lens' AppSyncResolver (Val Text) -asrFieldName = lens _appSyncResolverFieldName (\s a -> s { _appSyncResolverFieldName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-resolver.html#cfn-appsync-resolver-kind -asrKind :: Lens' AppSyncResolver (Maybe (Val Text)) -asrKind = lens _appSyncResolverKind (\s a -> s { _appSyncResolverKind = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-resolver.html#cfn-appsync-resolver-pipelineconfig -asrPipelineConfig :: Lens' AppSyncResolver (Maybe AppSyncResolverPipelineConfig) -asrPipelineConfig = lens _appSyncResolverPipelineConfig (\s a -> s { _appSyncResolverPipelineConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-resolver.html#cfn-appsync-resolver-requestmappingtemplate -asrRequestMappingTemplate :: Lens' AppSyncResolver (Maybe (Val Text)) -asrRequestMappingTemplate = lens _appSyncResolverRequestMappingTemplate (\s a -> s { _appSyncResolverRequestMappingTemplate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-resolver.html#cfn-appsync-resolver-requestmappingtemplates3location -asrRequestMappingTemplateS3Location :: Lens' AppSyncResolver (Maybe (Val Text)) -asrRequestMappingTemplateS3Location = lens _appSyncResolverRequestMappingTemplateS3Location (\s a -> s { _appSyncResolverRequestMappingTemplateS3Location = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-resolver.html#cfn-appsync-resolver-responsemappingtemplate -asrResponseMappingTemplate :: Lens' AppSyncResolver (Maybe (Val Text)) -asrResponseMappingTemplate = lens _appSyncResolverResponseMappingTemplate (\s a -> s { _appSyncResolverResponseMappingTemplate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-resolver.html#cfn-appsync-resolver-responsemappingtemplates3location -asrResponseMappingTemplateS3Location :: Lens' AppSyncResolver (Maybe (Val Text)) -asrResponseMappingTemplateS3Location = lens _appSyncResolverResponseMappingTemplateS3Location (\s a -> s { _appSyncResolverResponseMappingTemplateS3Location = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-resolver.html#cfn-appsync-resolver-syncconfig -asrSyncConfig :: Lens' AppSyncResolver (Maybe AppSyncResolverSyncConfig) -asrSyncConfig = lens _appSyncResolverSyncConfig (\s a -> s { _appSyncResolverSyncConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-resolver.html#cfn-appsync-resolver-typename -asrTypeName :: Lens' AppSyncResolver (Val Text) -asrTypeName = lens _appSyncResolverTypeName (\s a -> s { _appSyncResolverTypeName = a }) diff --git a/library-gen/Stratosphere/Resources/ApplicationAutoScalingScalableTarget.hs b/library-gen/Stratosphere/Resources/ApplicationAutoScalingScalableTarget.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApplicationAutoScalingScalableTarget.hs +++ /dev/null @@ -1,97 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationautoscaling-scalabletarget.html - -module Stratosphere.Resources.ApplicationAutoScalingScalableTarget where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetScheduledAction -import Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetSuspendedState - --- | Full data type definition for ApplicationAutoScalingScalableTarget. See --- 'applicationAutoScalingScalableTarget' for a more convenient constructor. -data ApplicationAutoScalingScalableTarget = - ApplicationAutoScalingScalableTarget - { _applicationAutoScalingScalableTargetMaxCapacity :: Val Integer - , _applicationAutoScalingScalableTargetMinCapacity :: Val Integer - , _applicationAutoScalingScalableTargetResourceId :: Val Text - , _applicationAutoScalingScalableTargetRoleARN :: Val Text - , _applicationAutoScalingScalableTargetScalableDimension :: Val Text - , _applicationAutoScalingScalableTargetScheduledActions :: Maybe [ApplicationAutoScalingScalableTargetScheduledAction] - , _applicationAutoScalingScalableTargetServiceNamespace :: Val Text - , _applicationAutoScalingScalableTargetSuspendedState :: Maybe ApplicationAutoScalingScalableTargetSuspendedState - } deriving (Show, Eq) - -instance ToResourceProperties ApplicationAutoScalingScalableTarget where - toResourceProperties ApplicationAutoScalingScalableTarget{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApplicationAutoScaling::ScalableTarget" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("MaxCapacity",) . toJSON) _applicationAutoScalingScalableTargetMaxCapacity - , (Just . ("MinCapacity",) . toJSON) _applicationAutoScalingScalableTargetMinCapacity - , (Just . ("ResourceId",) . toJSON) _applicationAutoScalingScalableTargetResourceId - , (Just . ("RoleARN",) . toJSON) _applicationAutoScalingScalableTargetRoleARN - , (Just . ("ScalableDimension",) . toJSON) _applicationAutoScalingScalableTargetScalableDimension - , fmap (("ScheduledActions",) . toJSON) _applicationAutoScalingScalableTargetScheduledActions - , (Just . ("ServiceNamespace",) . toJSON) _applicationAutoScalingScalableTargetServiceNamespace - , fmap (("SuspendedState",) . toJSON) _applicationAutoScalingScalableTargetSuspendedState - ] - } - --- | Constructor for 'ApplicationAutoScalingScalableTarget' containing --- required fields as arguments. -applicationAutoScalingScalableTarget - :: Val Integer -- ^ 'aasstMaxCapacity' - -> Val Integer -- ^ 'aasstMinCapacity' - -> Val Text -- ^ 'aasstResourceId' - -> Val Text -- ^ 'aasstRoleARN' - -> Val Text -- ^ 'aasstScalableDimension' - -> Val Text -- ^ 'aasstServiceNamespace' - -> ApplicationAutoScalingScalableTarget -applicationAutoScalingScalableTarget maxCapacityarg minCapacityarg resourceIdarg roleARNarg scalableDimensionarg serviceNamespacearg = - ApplicationAutoScalingScalableTarget - { _applicationAutoScalingScalableTargetMaxCapacity = maxCapacityarg - , _applicationAutoScalingScalableTargetMinCapacity = minCapacityarg - , _applicationAutoScalingScalableTargetResourceId = resourceIdarg - , _applicationAutoScalingScalableTargetRoleARN = roleARNarg - , _applicationAutoScalingScalableTargetScalableDimension = scalableDimensionarg - , _applicationAutoScalingScalableTargetScheduledActions = Nothing - , _applicationAutoScalingScalableTargetServiceNamespace = serviceNamespacearg - , _applicationAutoScalingScalableTargetSuspendedState = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationautoscaling-scalabletarget.html#cfn-applicationautoscaling-scalabletarget-maxcapacity -aasstMaxCapacity :: Lens' ApplicationAutoScalingScalableTarget (Val Integer) -aasstMaxCapacity = lens _applicationAutoScalingScalableTargetMaxCapacity (\s a -> s { _applicationAutoScalingScalableTargetMaxCapacity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationautoscaling-scalabletarget.html#cfn-applicationautoscaling-scalabletarget-mincapacity -aasstMinCapacity :: Lens' ApplicationAutoScalingScalableTarget (Val Integer) -aasstMinCapacity = lens _applicationAutoScalingScalableTargetMinCapacity (\s a -> s { _applicationAutoScalingScalableTargetMinCapacity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationautoscaling-scalabletarget.html#cfn-applicationautoscaling-scalabletarget-resourceid -aasstResourceId :: Lens' ApplicationAutoScalingScalableTarget (Val Text) -aasstResourceId = lens _applicationAutoScalingScalableTargetResourceId (\s a -> s { _applicationAutoScalingScalableTargetResourceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationautoscaling-scalabletarget.html#cfn-applicationautoscaling-scalabletarget-rolearn -aasstRoleARN :: Lens' ApplicationAutoScalingScalableTarget (Val Text) -aasstRoleARN = lens _applicationAutoScalingScalableTargetRoleARN (\s a -> s { _applicationAutoScalingScalableTargetRoleARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationautoscaling-scalabletarget.html#cfn-applicationautoscaling-scalabletarget-scalabledimension -aasstScalableDimension :: Lens' ApplicationAutoScalingScalableTarget (Val Text) -aasstScalableDimension = lens _applicationAutoScalingScalableTargetScalableDimension (\s a -> s { _applicationAutoScalingScalableTargetScalableDimension = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationautoscaling-scalabletarget.html#cfn-applicationautoscaling-scalabletarget-scheduledactions -aasstScheduledActions :: Lens' ApplicationAutoScalingScalableTarget (Maybe [ApplicationAutoScalingScalableTargetScheduledAction]) -aasstScheduledActions = lens _applicationAutoScalingScalableTargetScheduledActions (\s a -> s { _applicationAutoScalingScalableTargetScheduledActions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationautoscaling-scalabletarget.html#cfn-applicationautoscaling-scalabletarget-servicenamespace -aasstServiceNamespace :: Lens' ApplicationAutoScalingScalableTarget (Val Text) -aasstServiceNamespace = lens _applicationAutoScalingScalableTargetServiceNamespace (\s a -> s { _applicationAutoScalingScalableTargetServiceNamespace = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationautoscaling-scalabletarget.html#cfn-applicationautoscaling-scalabletarget-suspendedstate -aasstSuspendedState :: Lens' ApplicationAutoScalingScalableTarget (Maybe ApplicationAutoScalingScalableTargetSuspendedState) -aasstSuspendedState = lens _applicationAutoScalingScalableTargetSuspendedState (\s a -> s { _applicationAutoScalingScalableTargetSuspendedState = a }) diff --git a/library-gen/Stratosphere/Resources/ApplicationAutoScalingScalingPolicy.hs b/library-gen/Stratosphere/Resources/ApplicationAutoScalingScalingPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApplicationAutoScalingScalingPolicy.hs +++ /dev/null @@ -1,93 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationautoscaling-scalingpolicy.html - -module Stratosphere.Resources.ApplicationAutoScalingScalingPolicy where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration -import Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration - --- | Full data type definition for ApplicationAutoScalingScalingPolicy. See --- 'applicationAutoScalingScalingPolicy' for a more convenient constructor. -data ApplicationAutoScalingScalingPolicy = - ApplicationAutoScalingScalingPolicy - { _applicationAutoScalingScalingPolicyPolicyName :: Val Text - , _applicationAutoScalingScalingPolicyPolicyType :: Val Text - , _applicationAutoScalingScalingPolicyResourceId :: Maybe (Val Text) - , _applicationAutoScalingScalingPolicyScalableDimension :: Maybe (Val Text) - , _applicationAutoScalingScalingPolicyScalingTargetId :: Maybe (Val Text) - , _applicationAutoScalingScalingPolicyServiceNamespace :: Maybe (Val Text) - , _applicationAutoScalingScalingPolicyStepScalingPolicyConfiguration :: Maybe ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration - , _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration :: Maybe ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration - } deriving (Show, Eq) - -instance ToResourceProperties ApplicationAutoScalingScalingPolicy where - toResourceProperties ApplicationAutoScalingScalingPolicy{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApplicationAutoScaling::ScalingPolicy" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("PolicyName",) . toJSON) _applicationAutoScalingScalingPolicyPolicyName - , (Just . ("PolicyType",) . toJSON) _applicationAutoScalingScalingPolicyPolicyType - , fmap (("ResourceId",) . toJSON) _applicationAutoScalingScalingPolicyResourceId - , fmap (("ScalableDimension",) . toJSON) _applicationAutoScalingScalingPolicyScalableDimension - , fmap (("ScalingTargetId",) . toJSON) _applicationAutoScalingScalingPolicyScalingTargetId - , fmap (("ServiceNamespace",) . toJSON) _applicationAutoScalingScalingPolicyServiceNamespace - , fmap (("StepScalingPolicyConfiguration",) . toJSON) _applicationAutoScalingScalingPolicyStepScalingPolicyConfiguration - , fmap (("TargetTrackingScalingPolicyConfiguration",) . toJSON) _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration - ] - } - --- | Constructor for 'ApplicationAutoScalingScalingPolicy' containing required --- fields as arguments. -applicationAutoScalingScalingPolicy - :: Val Text -- ^ 'aasspPolicyName' - -> Val Text -- ^ 'aasspPolicyType' - -> ApplicationAutoScalingScalingPolicy -applicationAutoScalingScalingPolicy policyNamearg policyTypearg = - ApplicationAutoScalingScalingPolicy - { _applicationAutoScalingScalingPolicyPolicyName = policyNamearg - , _applicationAutoScalingScalingPolicyPolicyType = policyTypearg - , _applicationAutoScalingScalingPolicyResourceId = Nothing - , _applicationAutoScalingScalingPolicyScalableDimension = Nothing - , _applicationAutoScalingScalingPolicyScalingTargetId = Nothing - , _applicationAutoScalingScalingPolicyServiceNamespace = Nothing - , _applicationAutoScalingScalingPolicyStepScalingPolicyConfiguration = Nothing - , _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationautoscaling-scalingpolicy.html#cfn-applicationautoscaling-scalingpolicy-policyname -aasspPolicyName :: Lens' ApplicationAutoScalingScalingPolicy (Val Text) -aasspPolicyName = lens _applicationAutoScalingScalingPolicyPolicyName (\s a -> s { _applicationAutoScalingScalingPolicyPolicyName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationautoscaling-scalingpolicy.html#cfn-applicationautoscaling-scalingpolicy-policytype -aasspPolicyType :: Lens' ApplicationAutoScalingScalingPolicy (Val Text) -aasspPolicyType = lens _applicationAutoScalingScalingPolicyPolicyType (\s a -> s { _applicationAutoScalingScalingPolicyPolicyType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationautoscaling-scalingpolicy.html#cfn-applicationautoscaling-scalingpolicy-resourceid -aasspResourceId :: Lens' ApplicationAutoScalingScalingPolicy (Maybe (Val Text)) -aasspResourceId = lens _applicationAutoScalingScalingPolicyResourceId (\s a -> s { _applicationAutoScalingScalingPolicyResourceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationautoscaling-scalingpolicy.html#cfn-applicationautoscaling-scalingpolicy-scalabledimension -aasspScalableDimension :: Lens' ApplicationAutoScalingScalingPolicy (Maybe (Val Text)) -aasspScalableDimension = lens _applicationAutoScalingScalingPolicyScalableDimension (\s a -> s { _applicationAutoScalingScalingPolicyScalableDimension = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationautoscaling-scalingpolicy.html#cfn-applicationautoscaling-scalingpolicy-scalingtargetid -aasspScalingTargetId :: Lens' ApplicationAutoScalingScalingPolicy (Maybe (Val Text)) -aasspScalingTargetId = lens _applicationAutoScalingScalingPolicyScalingTargetId (\s a -> s { _applicationAutoScalingScalingPolicyScalingTargetId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationautoscaling-scalingpolicy.html#cfn-applicationautoscaling-scalingpolicy-servicenamespace -aasspServiceNamespace :: Lens' ApplicationAutoScalingScalingPolicy (Maybe (Val Text)) -aasspServiceNamespace = lens _applicationAutoScalingScalingPolicyServiceNamespace (\s a -> s { _applicationAutoScalingScalingPolicyServiceNamespace = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationautoscaling-scalingpolicy.html#cfn-applicationautoscaling-scalingpolicy-stepscalingpolicyconfiguration -aasspStepScalingPolicyConfiguration :: Lens' ApplicationAutoScalingScalingPolicy (Maybe ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration) -aasspStepScalingPolicyConfiguration = lens _applicationAutoScalingScalingPolicyStepScalingPolicyConfiguration (\s a -> s { _applicationAutoScalingScalingPolicyStepScalingPolicyConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationautoscaling-scalingpolicy.html#cfn-applicationautoscaling-scalingpolicy-targettrackingscalingpolicyconfiguration -aasspTargetTrackingScalingPolicyConfiguration :: Lens' ApplicationAutoScalingScalingPolicy (Maybe ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration) -aasspTargetTrackingScalingPolicyConfiguration = lens _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration (\s a -> s { _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration = a }) diff --git a/library-gen/Stratosphere/Resources/ApplicationInsightsApplication.hs b/library-gen/Stratosphere/Resources/ApplicationInsightsApplication.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ApplicationInsightsApplication.hs +++ /dev/null @@ -1,101 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationinsights-application.html - -module Stratosphere.Resources.ApplicationInsightsApplication where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ApplicationInsightsApplicationComponentMonitoringSetting -import Stratosphere.ResourceProperties.ApplicationInsightsApplicationCustomComponent -import Stratosphere.ResourceProperties.ApplicationInsightsApplicationLogPatternSet -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for ApplicationInsightsApplication. See --- 'applicationInsightsApplication' for a more convenient constructor. -data ApplicationInsightsApplication = - ApplicationInsightsApplication - { _applicationInsightsApplicationAutoConfigurationEnabled :: Maybe (Val Bool) - , _applicationInsightsApplicationCWEMonitorEnabled :: Maybe (Val Bool) - , _applicationInsightsApplicationComponentMonitoringSettings :: Maybe [ApplicationInsightsApplicationComponentMonitoringSetting] - , _applicationInsightsApplicationCustomComponents :: Maybe [ApplicationInsightsApplicationCustomComponent] - , _applicationInsightsApplicationLogPatternSets :: Maybe [ApplicationInsightsApplicationLogPatternSet] - , _applicationInsightsApplicationOpsCenterEnabled :: Maybe (Val Bool) - , _applicationInsightsApplicationOpsItemSNSTopicArn :: Maybe (Val Text) - , _applicationInsightsApplicationResourceGroupName :: Val Text - , _applicationInsightsApplicationTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties ApplicationInsightsApplication where - toResourceProperties ApplicationInsightsApplication{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ApplicationInsights::Application" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AutoConfigurationEnabled",) . toJSON) _applicationInsightsApplicationAutoConfigurationEnabled - , fmap (("CWEMonitorEnabled",) . toJSON) _applicationInsightsApplicationCWEMonitorEnabled - , fmap (("ComponentMonitoringSettings",) . toJSON) _applicationInsightsApplicationComponentMonitoringSettings - , fmap (("CustomComponents",) . toJSON) _applicationInsightsApplicationCustomComponents - , fmap (("LogPatternSets",) . toJSON) _applicationInsightsApplicationLogPatternSets - , fmap (("OpsCenterEnabled",) . toJSON) _applicationInsightsApplicationOpsCenterEnabled - , fmap (("OpsItemSNSTopicArn",) . toJSON) _applicationInsightsApplicationOpsItemSNSTopicArn - , (Just . ("ResourceGroupName",) . toJSON) _applicationInsightsApplicationResourceGroupName - , fmap (("Tags",) . toJSON) _applicationInsightsApplicationTags - ] - } - --- | Constructor for 'ApplicationInsightsApplication' containing required --- fields as arguments. -applicationInsightsApplication - :: Val Text -- ^ 'aiaResourceGroupName' - -> ApplicationInsightsApplication -applicationInsightsApplication resourceGroupNamearg = - ApplicationInsightsApplication - { _applicationInsightsApplicationAutoConfigurationEnabled = Nothing - , _applicationInsightsApplicationCWEMonitorEnabled = Nothing - , _applicationInsightsApplicationComponentMonitoringSettings = Nothing - , _applicationInsightsApplicationCustomComponents = Nothing - , _applicationInsightsApplicationLogPatternSets = Nothing - , _applicationInsightsApplicationOpsCenterEnabled = Nothing - , _applicationInsightsApplicationOpsItemSNSTopicArn = Nothing - , _applicationInsightsApplicationResourceGroupName = resourceGroupNamearg - , _applicationInsightsApplicationTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationinsights-application.html#cfn-applicationinsights-application-autoconfigurationenabled -aiaAutoConfigurationEnabled :: Lens' ApplicationInsightsApplication (Maybe (Val Bool)) -aiaAutoConfigurationEnabled = lens _applicationInsightsApplicationAutoConfigurationEnabled (\s a -> s { _applicationInsightsApplicationAutoConfigurationEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationinsights-application.html#cfn-applicationinsights-application-cwemonitorenabled -aiaCWEMonitorEnabled :: Lens' ApplicationInsightsApplication (Maybe (Val Bool)) -aiaCWEMonitorEnabled = lens _applicationInsightsApplicationCWEMonitorEnabled (\s a -> s { _applicationInsightsApplicationCWEMonitorEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationinsights-application.html#cfn-applicationinsights-application-componentmonitoringsettings -aiaComponentMonitoringSettings :: Lens' ApplicationInsightsApplication (Maybe [ApplicationInsightsApplicationComponentMonitoringSetting]) -aiaComponentMonitoringSettings = lens _applicationInsightsApplicationComponentMonitoringSettings (\s a -> s { _applicationInsightsApplicationComponentMonitoringSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationinsights-application.html#cfn-applicationinsights-application-customcomponents -aiaCustomComponents :: Lens' ApplicationInsightsApplication (Maybe [ApplicationInsightsApplicationCustomComponent]) -aiaCustomComponents = lens _applicationInsightsApplicationCustomComponents (\s a -> s { _applicationInsightsApplicationCustomComponents = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationinsights-application.html#cfn-applicationinsights-application-logpatternsets -aiaLogPatternSets :: Lens' ApplicationInsightsApplication (Maybe [ApplicationInsightsApplicationLogPatternSet]) -aiaLogPatternSets = lens _applicationInsightsApplicationLogPatternSets (\s a -> s { _applicationInsightsApplicationLogPatternSets = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationinsights-application.html#cfn-applicationinsights-application-opscenterenabled -aiaOpsCenterEnabled :: Lens' ApplicationInsightsApplication (Maybe (Val Bool)) -aiaOpsCenterEnabled = lens _applicationInsightsApplicationOpsCenterEnabled (\s a -> s { _applicationInsightsApplicationOpsCenterEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationinsights-application.html#cfn-applicationinsights-application-opsitemsnstopicarn -aiaOpsItemSNSTopicArn :: Lens' ApplicationInsightsApplication (Maybe (Val Text)) -aiaOpsItemSNSTopicArn = lens _applicationInsightsApplicationOpsItemSNSTopicArn (\s a -> s { _applicationInsightsApplicationOpsItemSNSTopicArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationinsights-application.html#cfn-applicationinsights-application-resourcegroupname -aiaResourceGroupName :: Lens' ApplicationInsightsApplication (Val Text) -aiaResourceGroupName = lens _applicationInsightsApplicationResourceGroupName (\s a -> s { _applicationInsightsApplicationResourceGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-applicationinsights-application.html#cfn-applicationinsights-application-tags -aiaTags :: Lens' ApplicationInsightsApplication (Maybe [Tag]) -aiaTags = lens _applicationInsightsApplicationTags (\s a -> s { _applicationInsightsApplicationTags = a }) diff --git a/library-gen/Stratosphere/Resources/AthenaDataCatalog.hs b/library-gen/Stratosphere/Resources/AthenaDataCatalog.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AthenaDataCatalog.hs +++ /dev/null @@ -1,71 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-datacatalog.html - -module Stratosphere.Resources.AthenaDataCatalog where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AthenaDataCatalogTags - --- | Full data type definition for AthenaDataCatalog. See 'athenaDataCatalog' --- for a more convenient constructor. -data AthenaDataCatalog = - AthenaDataCatalog - { _athenaDataCatalogDescription :: Maybe (Val Text) - , _athenaDataCatalogName :: Val Text - , _athenaDataCatalogParameters :: Maybe Object - , _athenaDataCatalogTags :: Maybe AthenaDataCatalogTags - , _athenaDataCatalogType :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties AthenaDataCatalog where - toResourceProperties AthenaDataCatalog{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Athena::DataCatalog" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _athenaDataCatalogDescription - , (Just . ("Name",) . toJSON) _athenaDataCatalogName - , fmap (("Parameters",) . toJSON) _athenaDataCatalogParameters - , fmap (("Tags",) . toJSON) _athenaDataCatalogTags - , (Just . ("Type",) . toJSON) _athenaDataCatalogType - ] - } - --- | Constructor for 'AthenaDataCatalog' containing required fields as --- arguments. -athenaDataCatalog - :: Val Text -- ^ 'adcName' - -> Val Text -- ^ 'adcType' - -> AthenaDataCatalog -athenaDataCatalog namearg typearg = - AthenaDataCatalog - { _athenaDataCatalogDescription = Nothing - , _athenaDataCatalogName = namearg - , _athenaDataCatalogParameters = Nothing - , _athenaDataCatalogTags = Nothing - , _athenaDataCatalogType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-datacatalog.html#cfn-athena-datacatalog-description -adcDescription :: Lens' AthenaDataCatalog (Maybe (Val Text)) -adcDescription = lens _athenaDataCatalogDescription (\s a -> s { _athenaDataCatalogDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-datacatalog.html#cfn-athena-datacatalog-name -adcName :: Lens' AthenaDataCatalog (Val Text) -adcName = lens _athenaDataCatalogName (\s a -> s { _athenaDataCatalogName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-datacatalog.html#cfn-athena-datacatalog-parameters -adcParameters :: Lens' AthenaDataCatalog (Maybe Object) -adcParameters = lens _athenaDataCatalogParameters (\s a -> s { _athenaDataCatalogParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-datacatalog.html#cfn-athena-datacatalog-tags -adcTags :: Lens' AthenaDataCatalog (Maybe AthenaDataCatalogTags) -adcTags = lens _athenaDataCatalogTags (\s a -> s { _athenaDataCatalogTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-datacatalog.html#cfn-athena-datacatalog-type -adcType :: Lens' AthenaDataCatalog (Val Text) -adcType = lens _athenaDataCatalogType (\s a -> s { _athenaDataCatalogType = a }) diff --git a/library-gen/Stratosphere/Resources/AthenaNamedQuery.hs b/library-gen/Stratosphere/Resources/AthenaNamedQuery.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AthenaNamedQuery.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-namedquery.html - -module Stratosphere.Resources.AthenaNamedQuery where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AthenaNamedQuery. See 'athenaNamedQuery' --- for a more convenient constructor. -data AthenaNamedQuery = - AthenaNamedQuery - { _athenaNamedQueryDatabase :: Val Text - , _athenaNamedQueryDescription :: Maybe (Val Text) - , _athenaNamedQueryName :: Maybe (Val Text) - , _athenaNamedQueryQueryString :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties AthenaNamedQuery where - toResourceProperties AthenaNamedQuery{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Athena::NamedQuery" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Database",) . toJSON) _athenaNamedQueryDatabase - , fmap (("Description",) . toJSON) _athenaNamedQueryDescription - , fmap (("Name",) . toJSON) _athenaNamedQueryName - , (Just . ("QueryString",) . toJSON) _athenaNamedQueryQueryString - ] - } - --- | Constructor for 'AthenaNamedQuery' containing required fields as --- arguments. -athenaNamedQuery - :: Val Text -- ^ 'anqDatabase' - -> Val Text -- ^ 'anqQueryString' - -> AthenaNamedQuery -athenaNamedQuery databasearg queryStringarg = - AthenaNamedQuery - { _athenaNamedQueryDatabase = databasearg - , _athenaNamedQueryDescription = Nothing - , _athenaNamedQueryName = Nothing - , _athenaNamedQueryQueryString = queryStringarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-namedquery.html#cfn-athena-namedquery-database -anqDatabase :: Lens' AthenaNamedQuery (Val Text) -anqDatabase = lens _athenaNamedQueryDatabase (\s a -> s { _athenaNamedQueryDatabase = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-namedquery.html#cfn-athena-namedquery-description -anqDescription :: Lens' AthenaNamedQuery (Maybe (Val Text)) -anqDescription = lens _athenaNamedQueryDescription (\s a -> s { _athenaNamedQueryDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-namedquery.html#cfn-athena-namedquery-name -anqName :: Lens' AthenaNamedQuery (Maybe (Val Text)) -anqName = lens _athenaNamedQueryName (\s a -> s { _athenaNamedQueryName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-namedquery.html#cfn-athena-namedquery-querystring -anqQueryString :: Lens' AthenaNamedQuery (Val Text) -anqQueryString = lens _athenaNamedQueryQueryString (\s a -> s { _athenaNamedQueryQueryString = a }) diff --git a/library-gen/Stratosphere/Resources/AthenaWorkGroup.hs b/library-gen/Stratosphere/Resources/AthenaWorkGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AthenaWorkGroup.hs +++ /dev/null @@ -1,86 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-workgroup.html - -module Stratosphere.Resources.AthenaWorkGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AthenaWorkGroupTags -import Stratosphere.ResourceProperties.AthenaWorkGroupWorkGroupConfiguration -import Stratosphere.ResourceProperties.AthenaWorkGroupWorkGroupConfigurationUpdates - --- | Full data type definition for AthenaWorkGroup. See 'athenaWorkGroup' for --- a more convenient constructor. -data AthenaWorkGroup = - AthenaWorkGroup - { _athenaWorkGroupDescription :: Maybe (Val Text) - , _athenaWorkGroupName :: Val Text - , _athenaWorkGroupRecursiveDeleteOption :: Maybe (Val Bool) - , _athenaWorkGroupState :: Maybe (Val Text) - , _athenaWorkGroupTags :: Maybe AthenaWorkGroupTags - , _athenaWorkGroupWorkGroupConfiguration :: Maybe AthenaWorkGroupWorkGroupConfiguration - , _athenaWorkGroupWorkGroupConfigurationUpdates :: Maybe AthenaWorkGroupWorkGroupConfigurationUpdates - } deriving (Show, Eq) - -instance ToResourceProperties AthenaWorkGroup where - toResourceProperties AthenaWorkGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Athena::WorkGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _athenaWorkGroupDescription - , (Just . ("Name",) . toJSON) _athenaWorkGroupName - , fmap (("RecursiveDeleteOption",) . toJSON) _athenaWorkGroupRecursiveDeleteOption - , fmap (("State",) . toJSON) _athenaWorkGroupState - , fmap (("Tags",) . toJSON) _athenaWorkGroupTags - , fmap (("WorkGroupConfiguration",) . toJSON) _athenaWorkGroupWorkGroupConfiguration - , fmap (("WorkGroupConfigurationUpdates",) . toJSON) _athenaWorkGroupWorkGroupConfigurationUpdates - ] - } - --- | Constructor for 'AthenaWorkGroup' containing required fields as --- arguments. -athenaWorkGroup - :: Val Text -- ^ 'awgName' - -> AthenaWorkGroup -athenaWorkGroup namearg = - AthenaWorkGroup - { _athenaWorkGroupDescription = Nothing - , _athenaWorkGroupName = namearg - , _athenaWorkGroupRecursiveDeleteOption = Nothing - , _athenaWorkGroupState = Nothing - , _athenaWorkGroupTags = Nothing - , _athenaWorkGroupWorkGroupConfiguration = Nothing - , _athenaWorkGroupWorkGroupConfigurationUpdates = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-workgroup.html#cfn-athena-workgroup-description -awgDescription :: Lens' AthenaWorkGroup (Maybe (Val Text)) -awgDescription = lens _athenaWorkGroupDescription (\s a -> s { _athenaWorkGroupDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-workgroup.html#cfn-athena-workgroup-name -awgName :: Lens' AthenaWorkGroup (Val Text) -awgName = lens _athenaWorkGroupName (\s a -> s { _athenaWorkGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-workgroup.html#cfn-athena-workgroup-recursivedeleteoption -awgRecursiveDeleteOption :: Lens' AthenaWorkGroup (Maybe (Val Bool)) -awgRecursiveDeleteOption = lens _athenaWorkGroupRecursiveDeleteOption (\s a -> s { _athenaWorkGroupRecursiveDeleteOption = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-workgroup.html#cfn-athena-workgroup-state -awgState :: Lens' AthenaWorkGroup (Maybe (Val Text)) -awgState = lens _athenaWorkGroupState (\s a -> s { _athenaWorkGroupState = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-workgroup.html#cfn-athena-workgroup-tags -awgTags :: Lens' AthenaWorkGroup (Maybe AthenaWorkGroupTags) -awgTags = lens _athenaWorkGroupTags (\s a -> s { _athenaWorkGroupTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-workgroup.html#cfn-athena-workgroup-workgroupconfiguration -awgWorkGroupConfiguration :: Lens' AthenaWorkGroup (Maybe AthenaWorkGroupWorkGroupConfiguration) -awgWorkGroupConfiguration = lens _athenaWorkGroupWorkGroupConfiguration (\s a -> s { _athenaWorkGroupWorkGroupConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-athena-workgroup.html#cfn-athena-workgroup-workgroupconfigurationupdates -awgWorkGroupConfigurationUpdates :: Lens' AthenaWorkGroup (Maybe AthenaWorkGroupWorkGroupConfigurationUpdates) -awgWorkGroupConfigurationUpdates = lens _athenaWorkGroupWorkGroupConfigurationUpdates (\s a -> s { _athenaWorkGroupWorkGroupConfigurationUpdates = a }) diff --git a/library-gen/Stratosphere/Resources/AutoScalingAutoScalingGroup.hs b/library-gen/Stratosphere/Resources/AutoScalingAutoScalingGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AutoScalingAutoScalingGroup.hs +++ /dev/null @@ -1,209 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html - -module Stratosphere.Resources.AutoScalingAutoScalingGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupLaunchTemplateSpecification -import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupLifecycleHookSpecification -import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupMetricsCollection -import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupMixedInstancesPolicy -import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupNotificationConfiguration -import Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupTagProperty - --- | Full data type definition for AutoScalingAutoScalingGroup. See --- 'autoScalingAutoScalingGroup' for a more convenient constructor. -data AutoScalingAutoScalingGroup = - AutoScalingAutoScalingGroup - { _autoScalingAutoScalingGroupAutoScalingGroupName :: Maybe (Val Text) - , _autoScalingAutoScalingGroupAvailabilityZones :: Maybe (ValList Text) - , _autoScalingAutoScalingGroupCooldown :: Maybe (Val Text) - , _autoScalingAutoScalingGroupDesiredCapacity :: Maybe (Val Text) - , _autoScalingAutoScalingGroupHealthCheckGracePeriod :: Maybe (Val Integer) - , _autoScalingAutoScalingGroupHealthCheckType :: Maybe (Val Text) - , _autoScalingAutoScalingGroupInstanceId :: Maybe (Val Text) - , _autoScalingAutoScalingGroupLaunchConfigurationName :: Maybe (Val Text) - , _autoScalingAutoScalingGroupLaunchTemplate :: Maybe AutoScalingAutoScalingGroupLaunchTemplateSpecification - , _autoScalingAutoScalingGroupLifecycleHookSpecificationList :: Maybe [AutoScalingAutoScalingGroupLifecycleHookSpecification] - , _autoScalingAutoScalingGroupLoadBalancerNames :: Maybe (ValList Text) - , _autoScalingAutoScalingGroupMaxInstanceLifetime :: Maybe (Val Integer) - , _autoScalingAutoScalingGroupMaxSize :: Val Text - , _autoScalingAutoScalingGroupMetricsCollection :: Maybe [AutoScalingAutoScalingGroupMetricsCollection] - , _autoScalingAutoScalingGroupMinSize :: Val Text - , _autoScalingAutoScalingGroupMixedInstancesPolicy :: Maybe AutoScalingAutoScalingGroupMixedInstancesPolicy - , _autoScalingAutoScalingGroupNewInstancesProtectedFromScaleIn :: Maybe (Val Bool) - , _autoScalingAutoScalingGroupNotificationConfigurations :: Maybe [AutoScalingAutoScalingGroupNotificationConfiguration] - , _autoScalingAutoScalingGroupPlacementGroup :: Maybe (Val Text) - , _autoScalingAutoScalingGroupServiceLinkedRoleARN :: Maybe (Val Text) - , _autoScalingAutoScalingGroupTags :: Maybe [AutoScalingAutoScalingGroupTagProperty] - , _autoScalingAutoScalingGroupTargetGroupARNs :: Maybe (ValList Text) - , _autoScalingAutoScalingGroupTerminationPolicies :: Maybe (ValList Text) - , _autoScalingAutoScalingGroupVPCZoneIdentifier :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToResourceProperties AutoScalingAutoScalingGroup where - toResourceProperties AutoScalingAutoScalingGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AutoScaling::AutoScalingGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AutoScalingGroupName",) . toJSON) _autoScalingAutoScalingGroupAutoScalingGroupName - , fmap (("AvailabilityZones",) . toJSON) _autoScalingAutoScalingGroupAvailabilityZones - , fmap (("Cooldown",) . toJSON) _autoScalingAutoScalingGroupCooldown - , fmap (("DesiredCapacity",) . toJSON) _autoScalingAutoScalingGroupDesiredCapacity - , fmap (("HealthCheckGracePeriod",) . toJSON) _autoScalingAutoScalingGroupHealthCheckGracePeriod - , fmap (("HealthCheckType",) . toJSON) _autoScalingAutoScalingGroupHealthCheckType - , fmap (("InstanceId",) . toJSON) _autoScalingAutoScalingGroupInstanceId - , fmap (("LaunchConfigurationName",) . toJSON) _autoScalingAutoScalingGroupLaunchConfigurationName - , fmap (("LaunchTemplate",) . toJSON) _autoScalingAutoScalingGroupLaunchTemplate - , fmap (("LifecycleHookSpecificationList",) . toJSON) _autoScalingAutoScalingGroupLifecycleHookSpecificationList - , fmap (("LoadBalancerNames",) . toJSON) _autoScalingAutoScalingGroupLoadBalancerNames - , fmap (("MaxInstanceLifetime",) . toJSON) _autoScalingAutoScalingGroupMaxInstanceLifetime - , (Just . ("MaxSize",) . toJSON) _autoScalingAutoScalingGroupMaxSize - , fmap (("MetricsCollection",) . toJSON) _autoScalingAutoScalingGroupMetricsCollection - , (Just . ("MinSize",) . toJSON) _autoScalingAutoScalingGroupMinSize - , fmap (("MixedInstancesPolicy",) . toJSON) _autoScalingAutoScalingGroupMixedInstancesPolicy - , fmap (("NewInstancesProtectedFromScaleIn",) . toJSON) _autoScalingAutoScalingGroupNewInstancesProtectedFromScaleIn - , fmap (("NotificationConfigurations",) . toJSON) _autoScalingAutoScalingGroupNotificationConfigurations - , fmap (("PlacementGroup",) . toJSON) _autoScalingAutoScalingGroupPlacementGroup - , fmap (("ServiceLinkedRoleARN",) . toJSON) _autoScalingAutoScalingGroupServiceLinkedRoleARN - , fmap (("Tags",) . toJSON) _autoScalingAutoScalingGroupTags - , fmap (("TargetGroupARNs",) . toJSON) _autoScalingAutoScalingGroupTargetGroupARNs - , fmap (("TerminationPolicies",) . toJSON) _autoScalingAutoScalingGroupTerminationPolicies - , fmap (("VPCZoneIdentifier",) . toJSON) _autoScalingAutoScalingGroupVPCZoneIdentifier - ] - } - --- | Constructor for 'AutoScalingAutoScalingGroup' containing required fields --- as arguments. -autoScalingAutoScalingGroup - :: Val Text -- ^ 'asasgMaxSize' - -> Val Text -- ^ 'asasgMinSize' - -> AutoScalingAutoScalingGroup -autoScalingAutoScalingGroup maxSizearg minSizearg = - AutoScalingAutoScalingGroup - { _autoScalingAutoScalingGroupAutoScalingGroupName = Nothing - , _autoScalingAutoScalingGroupAvailabilityZones = Nothing - , _autoScalingAutoScalingGroupCooldown = Nothing - , _autoScalingAutoScalingGroupDesiredCapacity = Nothing - , _autoScalingAutoScalingGroupHealthCheckGracePeriod = Nothing - , _autoScalingAutoScalingGroupHealthCheckType = Nothing - , _autoScalingAutoScalingGroupInstanceId = Nothing - , _autoScalingAutoScalingGroupLaunchConfigurationName = Nothing - , _autoScalingAutoScalingGroupLaunchTemplate = Nothing - , _autoScalingAutoScalingGroupLifecycleHookSpecificationList = Nothing - , _autoScalingAutoScalingGroupLoadBalancerNames = Nothing - , _autoScalingAutoScalingGroupMaxInstanceLifetime = Nothing - , _autoScalingAutoScalingGroupMaxSize = maxSizearg - , _autoScalingAutoScalingGroupMetricsCollection = Nothing - , _autoScalingAutoScalingGroupMinSize = minSizearg - , _autoScalingAutoScalingGroupMixedInstancesPolicy = Nothing - , _autoScalingAutoScalingGroupNewInstancesProtectedFromScaleIn = Nothing - , _autoScalingAutoScalingGroupNotificationConfigurations = Nothing - , _autoScalingAutoScalingGroupPlacementGroup = Nothing - , _autoScalingAutoScalingGroupServiceLinkedRoleARN = Nothing - , _autoScalingAutoScalingGroupTags = Nothing - , _autoScalingAutoScalingGroupTargetGroupARNs = Nothing - , _autoScalingAutoScalingGroupTerminationPolicies = Nothing - , _autoScalingAutoScalingGroupVPCZoneIdentifier = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-autoscaling-autoscalinggroup-autoscalinggroupname -asasgAutoScalingGroupName :: Lens' AutoScalingAutoScalingGroup (Maybe (Val Text)) -asasgAutoScalingGroupName = lens _autoScalingAutoScalingGroupAutoScalingGroupName (\s a -> s { _autoScalingAutoScalingGroupAutoScalingGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-availabilityzones -asasgAvailabilityZones :: Lens' AutoScalingAutoScalingGroup (Maybe (ValList Text)) -asasgAvailabilityZones = lens _autoScalingAutoScalingGroupAvailabilityZones (\s a -> s { _autoScalingAutoScalingGroupAvailabilityZones = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-cooldown -asasgCooldown :: Lens' AutoScalingAutoScalingGroup (Maybe (Val Text)) -asasgCooldown = lens _autoScalingAutoScalingGroupCooldown (\s a -> s { _autoScalingAutoScalingGroupCooldown = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-desiredcapacity -asasgDesiredCapacity :: Lens' AutoScalingAutoScalingGroup (Maybe (Val Text)) -asasgDesiredCapacity = lens _autoScalingAutoScalingGroupDesiredCapacity (\s a -> s { _autoScalingAutoScalingGroupDesiredCapacity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-healthcheckgraceperiod -asasgHealthCheckGracePeriod :: Lens' AutoScalingAutoScalingGroup (Maybe (Val Integer)) -asasgHealthCheckGracePeriod = lens _autoScalingAutoScalingGroupHealthCheckGracePeriod (\s a -> s { _autoScalingAutoScalingGroupHealthCheckGracePeriod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-healthchecktype -asasgHealthCheckType :: Lens' AutoScalingAutoScalingGroup (Maybe (Val Text)) -asasgHealthCheckType = lens _autoScalingAutoScalingGroupHealthCheckType (\s a -> s { _autoScalingAutoScalingGroupHealthCheckType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-instanceid -asasgInstanceId :: Lens' AutoScalingAutoScalingGroup (Maybe (Val Text)) -asasgInstanceId = lens _autoScalingAutoScalingGroupInstanceId (\s a -> s { _autoScalingAutoScalingGroupInstanceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-launchconfigurationname -asasgLaunchConfigurationName :: Lens' AutoScalingAutoScalingGroup (Maybe (Val Text)) -asasgLaunchConfigurationName = lens _autoScalingAutoScalingGroupLaunchConfigurationName (\s a -> s { _autoScalingAutoScalingGroupLaunchConfigurationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-launchtemplate -asasgLaunchTemplate :: Lens' AutoScalingAutoScalingGroup (Maybe AutoScalingAutoScalingGroupLaunchTemplateSpecification) -asasgLaunchTemplate = lens _autoScalingAutoScalingGroupLaunchTemplate (\s a -> s { _autoScalingAutoScalingGroupLaunchTemplate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-autoscaling-autoscalinggroup-lifecyclehookspecificationlist -asasgLifecycleHookSpecificationList :: Lens' AutoScalingAutoScalingGroup (Maybe [AutoScalingAutoScalingGroupLifecycleHookSpecification]) -asasgLifecycleHookSpecificationList = lens _autoScalingAutoScalingGroupLifecycleHookSpecificationList (\s a -> s { _autoScalingAutoScalingGroupLifecycleHookSpecificationList = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-loadbalancernames -asasgLoadBalancerNames :: Lens' AutoScalingAutoScalingGroup (Maybe (ValList Text)) -asasgLoadBalancerNames = lens _autoScalingAutoScalingGroupLoadBalancerNames (\s a -> s { _autoScalingAutoScalingGroupLoadBalancerNames = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-maxinstancelifetime -asasgMaxInstanceLifetime :: Lens' AutoScalingAutoScalingGroup (Maybe (Val Integer)) -asasgMaxInstanceLifetime = lens _autoScalingAutoScalingGroupMaxInstanceLifetime (\s a -> s { _autoScalingAutoScalingGroupMaxInstanceLifetime = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-maxsize -asasgMaxSize :: Lens' AutoScalingAutoScalingGroup (Val Text) -asasgMaxSize = lens _autoScalingAutoScalingGroupMaxSize (\s a -> s { _autoScalingAutoScalingGroupMaxSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-metricscollection -asasgMetricsCollection :: Lens' AutoScalingAutoScalingGroup (Maybe [AutoScalingAutoScalingGroupMetricsCollection]) -asasgMetricsCollection = lens _autoScalingAutoScalingGroupMetricsCollection (\s a -> s { _autoScalingAutoScalingGroupMetricsCollection = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-minsize -asasgMinSize :: Lens' AutoScalingAutoScalingGroup (Val Text) -asasgMinSize = lens _autoScalingAutoScalingGroupMinSize (\s a -> s { _autoScalingAutoScalingGroupMinSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-mixedinstancespolicy -asasgMixedInstancesPolicy :: Lens' AutoScalingAutoScalingGroup (Maybe AutoScalingAutoScalingGroupMixedInstancesPolicy) -asasgMixedInstancesPolicy = lens _autoScalingAutoScalingGroupMixedInstancesPolicy (\s a -> s { _autoScalingAutoScalingGroupMixedInstancesPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-newinstancesprotectedfromscalein -asasgNewInstancesProtectedFromScaleIn :: Lens' AutoScalingAutoScalingGroup (Maybe (Val Bool)) -asasgNewInstancesProtectedFromScaleIn = lens _autoScalingAutoScalingGroupNewInstancesProtectedFromScaleIn (\s a -> s { _autoScalingAutoScalingGroupNewInstancesProtectedFromScaleIn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-notificationconfigurations -asasgNotificationConfigurations :: Lens' AutoScalingAutoScalingGroup (Maybe [AutoScalingAutoScalingGroupNotificationConfiguration]) -asasgNotificationConfigurations = lens _autoScalingAutoScalingGroupNotificationConfigurations (\s a -> s { _autoScalingAutoScalingGroupNotificationConfigurations = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-placementgroup -asasgPlacementGroup :: Lens' AutoScalingAutoScalingGroup (Maybe (Val Text)) -asasgPlacementGroup = lens _autoScalingAutoScalingGroupPlacementGroup (\s a -> s { _autoScalingAutoScalingGroupPlacementGroup = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-autoscaling-autoscalinggroup-servicelinkedrolearn -asasgServiceLinkedRoleARN :: Lens' AutoScalingAutoScalingGroup (Maybe (Val Text)) -asasgServiceLinkedRoleARN = lens _autoScalingAutoScalingGroupServiceLinkedRoleARN (\s a -> s { _autoScalingAutoScalingGroupServiceLinkedRoleARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-tags -asasgTags :: Lens' AutoScalingAutoScalingGroup (Maybe [AutoScalingAutoScalingGroupTagProperty]) -asasgTags = lens _autoScalingAutoScalingGroupTags (\s a -> s { _autoScalingAutoScalingGroupTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-targetgrouparns -asasgTargetGroupARNs :: Lens' AutoScalingAutoScalingGroup (Maybe (ValList Text)) -asasgTargetGroupARNs = lens _autoScalingAutoScalingGroupTargetGroupARNs (\s a -> s { _autoScalingAutoScalingGroupTargetGroupARNs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-termpolicy -asasgTerminationPolicies :: Lens' AutoScalingAutoScalingGroup (Maybe (ValList Text)) -asasgTerminationPolicies = lens _autoScalingAutoScalingGroupTerminationPolicies (\s a -> s { _autoScalingAutoScalingGroupTerminationPolicies = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-group.html#cfn-as-group-vpczoneidentifier -asasgVPCZoneIdentifier :: Lens' AutoScalingAutoScalingGroup (Maybe (ValList Text)) -asasgVPCZoneIdentifier = lens _autoScalingAutoScalingGroupVPCZoneIdentifier (\s a -> s { _autoScalingAutoScalingGroupVPCZoneIdentifier = a }) diff --git a/library-gen/Stratosphere/Resources/AutoScalingLaunchConfiguration.hs b/library-gen/Stratosphere/Resources/AutoScalingLaunchConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AutoScalingLaunchConfiguration.hs +++ /dev/null @@ -1,162 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig.html - -module Stratosphere.Resources.AutoScalingLaunchConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AutoScalingLaunchConfigurationBlockDeviceMapping - --- | Full data type definition for AutoScalingLaunchConfiguration. See --- 'autoScalingLaunchConfiguration' for a more convenient constructor. -data AutoScalingLaunchConfiguration = - AutoScalingLaunchConfiguration - { _autoScalingLaunchConfigurationAssociatePublicIpAddress :: Maybe (Val Bool) - , _autoScalingLaunchConfigurationBlockDeviceMappings :: Maybe [AutoScalingLaunchConfigurationBlockDeviceMapping] - , _autoScalingLaunchConfigurationClassicLinkVPCId :: Maybe (Val Text) - , _autoScalingLaunchConfigurationClassicLinkVPCSecurityGroups :: Maybe (ValList Text) - , _autoScalingLaunchConfigurationEbsOptimized :: Maybe (Val Bool) - , _autoScalingLaunchConfigurationIamInstanceProfile :: Maybe (Val Text) - , _autoScalingLaunchConfigurationImageId :: Val Text - , _autoScalingLaunchConfigurationInstanceId :: Maybe (Val Text) - , _autoScalingLaunchConfigurationInstanceMonitoring :: Maybe (Val Bool) - , _autoScalingLaunchConfigurationInstanceType :: Val Text - , _autoScalingLaunchConfigurationKernelId :: Maybe (Val Text) - , _autoScalingLaunchConfigurationKeyName :: Maybe (Val Text) - , _autoScalingLaunchConfigurationLaunchConfigurationName :: Maybe (Val Text) - , _autoScalingLaunchConfigurationPlacementTenancy :: Maybe (Val Text) - , _autoScalingLaunchConfigurationRamDiskId :: Maybe (Val Text) - , _autoScalingLaunchConfigurationSecurityGroups :: Maybe (ValList Text) - , _autoScalingLaunchConfigurationSpotPrice :: Maybe (Val Text) - , _autoScalingLaunchConfigurationUserData :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties AutoScalingLaunchConfiguration where - toResourceProperties AutoScalingLaunchConfiguration{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AutoScaling::LaunchConfiguration" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AssociatePublicIpAddress",) . toJSON) _autoScalingLaunchConfigurationAssociatePublicIpAddress - , fmap (("BlockDeviceMappings",) . toJSON) _autoScalingLaunchConfigurationBlockDeviceMappings - , fmap (("ClassicLinkVPCId",) . toJSON) _autoScalingLaunchConfigurationClassicLinkVPCId - , fmap (("ClassicLinkVPCSecurityGroups",) . toJSON) _autoScalingLaunchConfigurationClassicLinkVPCSecurityGroups - , fmap (("EbsOptimized",) . toJSON) _autoScalingLaunchConfigurationEbsOptimized - , fmap (("IamInstanceProfile",) . toJSON) _autoScalingLaunchConfigurationIamInstanceProfile - , (Just . ("ImageId",) . toJSON) _autoScalingLaunchConfigurationImageId - , fmap (("InstanceId",) . toJSON) _autoScalingLaunchConfigurationInstanceId - , fmap (("InstanceMonitoring",) . toJSON) _autoScalingLaunchConfigurationInstanceMonitoring - , (Just . ("InstanceType",) . toJSON) _autoScalingLaunchConfigurationInstanceType - , fmap (("KernelId",) . toJSON) _autoScalingLaunchConfigurationKernelId - , fmap (("KeyName",) . toJSON) _autoScalingLaunchConfigurationKeyName - , fmap (("LaunchConfigurationName",) . toJSON) _autoScalingLaunchConfigurationLaunchConfigurationName - , fmap (("PlacementTenancy",) . toJSON) _autoScalingLaunchConfigurationPlacementTenancy - , fmap (("RamDiskId",) . toJSON) _autoScalingLaunchConfigurationRamDiskId - , fmap (("SecurityGroups",) . toJSON) _autoScalingLaunchConfigurationSecurityGroups - , fmap (("SpotPrice",) . toJSON) _autoScalingLaunchConfigurationSpotPrice - , fmap (("UserData",) . toJSON) _autoScalingLaunchConfigurationUserData - ] - } - --- | Constructor for 'AutoScalingLaunchConfiguration' containing required --- fields as arguments. -autoScalingLaunchConfiguration - :: Val Text -- ^ 'aslcImageId' - -> Val Text -- ^ 'aslcInstanceType' - -> AutoScalingLaunchConfiguration -autoScalingLaunchConfiguration imageIdarg instanceTypearg = - AutoScalingLaunchConfiguration - { _autoScalingLaunchConfigurationAssociatePublicIpAddress = Nothing - , _autoScalingLaunchConfigurationBlockDeviceMappings = Nothing - , _autoScalingLaunchConfigurationClassicLinkVPCId = Nothing - , _autoScalingLaunchConfigurationClassicLinkVPCSecurityGroups = Nothing - , _autoScalingLaunchConfigurationEbsOptimized = Nothing - , _autoScalingLaunchConfigurationIamInstanceProfile = Nothing - , _autoScalingLaunchConfigurationImageId = imageIdarg - , _autoScalingLaunchConfigurationInstanceId = Nothing - , _autoScalingLaunchConfigurationInstanceMonitoring = Nothing - , _autoScalingLaunchConfigurationInstanceType = instanceTypearg - , _autoScalingLaunchConfigurationKernelId = Nothing - , _autoScalingLaunchConfigurationKeyName = Nothing - , _autoScalingLaunchConfigurationLaunchConfigurationName = Nothing - , _autoScalingLaunchConfigurationPlacementTenancy = Nothing - , _autoScalingLaunchConfigurationRamDiskId = Nothing - , _autoScalingLaunchConfigurationSecurityGroups = Nothing - , _autoScalingLaunchConfigurationSpotPrice = Nothing - , _autoScalingLaunchConfigurationUserData = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig.html#cf-as-launchconfig-associatepubip -aslcAssociatePublicIpAddress :: Lens' AutoScalingLaunchConfiguration (Maybe (Val Bool)) -aslcAssociatePublicIpAddress = lens _autoScalingLaunchConfigurationAssociatePublicIpAddress (\s a -> s { _autoScalingLaunchConfigurationAssociatePublicIpAddress = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig.html#cfn-as-launchconfig-blockdevicemappings -aslcBlockDeviceMappings :: Lens' AutoScalingLaunchConfiguration (Maybe [AutoScalingLaunchConfigurationBlockDeviceMapping]) -aslcBlockDeviceMappings = lens _autoScalingLaunchConfigurationBlockDeviceMappings (\s a -> s { _autoScalingLaunchConfigurationBlockDeviceMappings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig.html#cfn-as-launchconfig-classiclinkvpcid -aslcClassicLinkVPCId :: Lens' AutoScalingLaunchConfiguration (Maybe (Val Text)) -aslcClassicLinkVPCId = lens _autoScalingLaunchConfigurationClassicLinkVPCId (\s a -> s { _autoScalingLaunchConfigurationClassicLinkVPCId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig.html#cfn-as-launchconfig-classiclinkvpcsecuritygroups -aslcClassicLinkVPCSecurityGroups :: Lens' AutoScalingLaunchConfiguration (Maybe (ValList Text)) -aslcClassicLinkVPCSecurityGroups = lens _autoScalingLaunchConfigurationClassicLinkVPCSecurityGroups (\s a -> s { _autoScalingLaunchConfigurationClassicLinkVPCSecurityGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig.html#cfn-as-launchconfig-ebsoptimized -aslcEbsOptimized :: Lens' AutoScalingLaunchConfiguration (Maybe (Val Bool)) -aslcEbsOptimized = lens _autoScalingLaunchConfigurationEbsOptimized (\s a -> s { _autoScalingLaunchConfigurationEbsOptimized = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig.html#cfn-as-launchconfig-iaminstanceprofile -aslcIamInstanceProfile :: Lens' AutoScalingLaunchConfiguration (Maybe (Val Text)) -aslcIamInstanceProfile = lens _autoScalingLaunchConfigurationIamInstanceProfile (\s a -> s { _autoScalingLaunchConfigurationIamInstanceProfile = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig.html#cfn-as-launchconfig-imageid -aslcImageId :: Lens' AutoScalingLaunchConfiguration (Val Text) -aslcImageId = lens _autoScalingLaunchConfigurationImageId (\s a -> s { _autoScalingLaunchConfigurationImageId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig.html#cfn-as-launchconfig-instanceid -aslcInstanceId :: Lens' AutoScalingLaunchConfiguration (Maybe (Val Text)) -aslcInstanceId = lens _autoScalingLaunchConfigurationInstanceId (\s a -> s { _autoScalingLaunchConfigurationInstanceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig.html#cfn-as-launchconfig-instancemonitoring -aslcInstanceMonitoring :: Lens' AutoScalingLaunchConfiguration (Maybe (Val Bool)) -aslcInstanceMonitoring = lens _autoScalingLaunchConfigurationInstanceMonitoring (\s a -> s { _autoScalingLaunchConfigurationInstanceMonitoring = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig.html#cfn-as-launchconfig-instancetype -aslcInstanceType :: Lens' AutoScalingLaunchConfiguration (Val Text) -aslcInstanceType = lens _autoScalingLaunchConfigurationInstanceType (\s a -> s { _autoScalingLaunchConfigurationInstanceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig.html#cfn-as-launchconfig-kernelid -aslcKernelId :: Lens' AutoScalingLaunchConfiguration (Maybe (Val Text)) -aslcKernelId = lens _autoScalingLaunchConfigurationKernelId (\s a -> s { _autoScalingLaunchConfigurationKernelId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig.html#cfn-as-launchconfig-keyname -aslcKeyName :: Lens' AutoScalingLaunchConfiguration (Maybe (Val Text)) -aslcKeyName = lens _autoScalingLaunchConfigurationKeyName (\s a -> s { _autoScalingLaunchConfigurationKeyName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig.html#cfn-autoscaling-launchconfig-launchconfigurationname -aslcLaunchConfigurationName :: Lens' AutoScalingLaunchConfiguration (Maybe (Val Text)) -aslcLaunchConfigurationName = lens _autoScalingLaunchConfigurationLaunchConfigurationName (\s a -> s { _autoScalingLaunchConfigurationLaunchConfigurationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig.html#cfn-as-launchconfig-placementtenancy -aslcPlacementTenancy :: Lens' AutoScalingLaunchConfiguration (Maybe (Val Text)) -aslcPlacementTenancy = lens _autoScalingLaunchConfigurationPlacementTenancy (\s a -> s { _autoScalingLaunchConfigurationPlacementTenancy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig.html#cfn-as-launchconfig-ramdiskid -aslcRamDiskId :: Lens' AutoScalingLaunchConfiguration (Maybe (Val Text)) -aslcRamDiskId = lens _autoScalingLaunchConfigurationRamDiskId (\s a -> s { _autoScalingLaunchConfigurationRamDiskId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig.html#cfn-as-launchconfig-securitygroups -aslcSecurityGroups :: Lens' AutoScalingLaunchConfiguration (Maybe (ValList Text)) -aslcSecurityGroups = lens _autoScalingLaunchConfigurationSecurityGroups (\s a -> s { _autoScalingLaunchConfigurationSecurityGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig.html#cfn-as-launchconfig-spotprice -aslcSpotPrice :: Lens' AutoScalingLaunchConfiguration (Maybe (Val Text)) -aslcSpotPrice = lens _autoScalingLaunchConfigurationSpotPrice (\s a -> s { _autoScalingLaunchConfigurationSpotPrice = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-launchconfig.html#cfn-as-launchconfig-userdata -aslcUserData :: Lens' AutoScalingLaunchConfiguration (Maybe (Val Text)) -aslcUserData = lens _autoScalingLaunchConfigurationUserData (\s a -> s { _autoScalingLaunchConfigurationUserData = a }) diff --git a/library-gen/Stratosphere/Resources/AutoScalingLifecycleHook.hs b/library-gen/Stratosphere/Resources/AutoScalingLifecycleHook.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AutoScalingLifecycleHook.hs +++ /dev/null @@ -1,92 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-as-lifecyclehook.html - -module Stratosphere.Resources.AutoScalingLifecycleHook where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AutoScalingLifecycleHook. See --- 'autoScalingLifecycleHook' for a more convenient constructor. -data AutoScalingLifecycleHook = - AutoScalingLifecycleHook - { _autoScalingLifecycleHookAutoScalingGroupName :: Val Text - , _autoScalingLifecycleHookDefaultResult :: Maybe (Val Text) - , _autoScalingLifecycleHookHeartbeatTimeout :: Maybe (Val Integer) - , _autoScalingLifecycleHookLifecycleHookName :: Maybe (Val Text) - , _autoScalingLifecycleHookLifecycleTransition :: Val Text - , _autoScalingLifecycleHookNotificationMetadata :: Maybe (Val Text) - , _autoScalingLifecycleHookNotificationTargetARN :: Maybe (Val Text) - , _autoScalingLifecycleHookRoleARN :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties AutoScalingLifecycleHook where - toResourceProperties AutoScalingLifecycleHook{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AutoScaling::LifecycleHook" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("AutoScalingGroupName",) . toJSON) _autoScalingLifecycleHookAutoScalingGroupName - , fmap (("DefaultResult",) . toJSON) _autoScalingLifecycleHookDefaultResult - , fmap (("HeartbeatTimeout",) . toJSON) _autoScalingLifecycleHookHeartbeatTimeout - , fmap (("LifecycleHookName",) . toJSON) _autoScalingLifecycleHookLifecycleHookName - , (Just . ("LifecycleTransition",) . toJSON) _autoScalingLifecycleHookLifecycleTransition - , fmap (("NotificationMetadata",) . toJSON) _autoScalingLifecycleHookNotificationMetadata - , fmap (("NotificationTargetARN",) . toJSON) _autoScalingLifecycleHookNotificationTargetARN - , fmap (("RoleARN",) . toJSON) _autoScalingLifecycleHookRoleARN - ] - } - --- | Constructor for 'AutoScalingLifecycleHook' containing required fields as --- arguments. -autoScalingLifecycleHook - :: Val Text -- ^ 'aslhAutoScalingGroupName' - -> Val Text -- ^ 'aslhLifecycleTransition' - -> AutoScalingLifecycleHook -autoScalingLifecycleHook autoScalingGroupNamearg lifecycleTransitionarg = - AutoScalingLifecycleHook - { _autoScalingLifecycleHookAutoScalingGroupName = autoScalingGroupNamearg - , _autoScalingLifecycleHookDefaultResult = Nothing - , _autoScalingLifecycleHookHeartbeatTimeout = Nothing - , _autoScalingLifecycleHookLifecycleHookName = Nothing - , _autoScalingLifecycleHookLifecycleTransition = lifecycleTransitionarg - , _autoScalingLifecycleHookNotificationMetadata = Nothing - , _autoScalingLifecycleHookNotificationTargetARN = Nothing - , _autoScalingLifecycleHookRoleARN = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-as-lifecyclehook.html#cfn-as-lifecyclehook-autoscalinggroupname -aslhAutoScalingGroupName :: Lens' AutoScalingLifecycleHook (Val Text) -aslhAutoScalingGroupName = lens _autoScalingLifecycleHookAutoScalingGroupName (\s a -> s { _autoScalingLifecycleHookAutoScalingGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-as-lifecyclehook.html#cfn-as-lifecyclehook-defaultresult -aslhDefaultResult :: Lens' AutoScalingLifecycleHook (Maybe (Val Text)) -aslhDefaultResult = lens _autoScalingLifecycleHookDefaultResult (\s a -> s { _autoScalingLifecycleHookDefaultResult = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-as-lifecyclehook.html#cfn-as-lifecyclehook-heartbeattimeout -aslhHeartbeatTimeout :: Lens' AutoScalingLifecycleHook (Maybe (Val Integer)) -aslhHeartbeatTimeout = lens _autoScalingLifecycleHookHeartbeatTimeout (\s a -> s { _autoScalingLifecycleHookHeartbeatTimeout = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-as-lifecyclehook.html#cfn-autoscaling-lifecyclehook-lifecyclehookname -aslhLifecycleHookName :: Lens' AutoScalingLifecycleHook (Maybe (Val Text)) -aslhLifecycleHookName = lens _autoScalingLifecycleHookLifecycleHookName (\s a -> s { _autoScalingLifecycleHookLifecycleHookName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-as-lifecyclehook.html#cfn-as-lifecyclehook-lifecycletransition -aslhLifecycleTransition :: Lens' AutoScalingLifecycleHook (Val Text) -aslhLifecycleTransition = lens _autoScalingLifecycleHookLifecycleTransition (\s a -> s { _autoScalingLifecycleHookLifecycleTransition = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-as-lifecyclehook.html#cfn-as-lifecyclehook-notificationmetadata -aslhNotificationMetadata :: Lens' AutoScalingLifecycleHook (Maybe (Val Text)) -aslhNotificationMetadata = lens _autoScalingLifecycleHookNotificationMetadata (\s a -> s { _autoScalingLifecycleHookNotificationMetadata = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-as-lifecyclehook.html#cfn-as-lifecyclehook-notificationtargetarn -aslhNotificationTargetARN :: Lens' AutoScalingLifecycleHook (Maybe (Val Text)) -aslhNotificationTargetARN = lens _autoScalingLifecycleHookNotificationTargetARN (\s a -> s { _autoScalingLifecycleHookNotificationTargetARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-as-lifecyclehook.html#cfn-as-lifecyclehook-rolearn -aslhRoleARN :: Lens' AutoScalingLifecycleHook (Maybe (Val Text)) -aslhRoleARN = lens _autoScalingLifecycleHookRoleARN (\s a -> s { _autoScalingLifecycleHookRoleARN = a }) diff --git a/library-gen/Stratosphere/Resources/AutoScalingPlansScalingPlan.hs b/library-gen/Stratosphere/Resources/AutoScalingPlansScalingPlan.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AutoScalingPlansScalingPlan.hs +++ /dev/null @@ -1,51 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-autoscalingplans-scalingplan.html - -module Stratosphere.Resources.AutoScalingPlansScalingPlan where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanApplicationSource -import Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanScalingInstruction - --- | Full data type definition for AutoScalingPlansScalingPlan. See --- 'autoScalingPlansScalingPlan' for a more convenient constructor. -data AutoScalingPlansScalingPlan = - AutoScalingPlansScalingPlan - { _autoScalingPlansScalingPlanApplicationSource :: AutoScalingPlansScalingPlanApplicationSource - , _autoScalingPlansScalingPlanScalingInstructions :: [AutoScalingPlansScalingPlanScalingInstruction] - } deriving (Show, Eq) - -instance ToResourceProperties AutoScalingPlansScalingPlan where - toResourceProperties AutoScalingPlansScalingPlan{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AutoScalingPlans::ScalingPlan" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApplicationSource",) . toJSON) _autoScalingPlansScalingPlanApplicationSource - , (Just . ("ScalingInstructions",) . toJSON) _autoScalingPlansScalingPlanScalingInstructions - ] - } - --- | Constructor for 'AutoScalingPlansScalingPlan' containing required fields --- as arguments. -autoScalingPlansScalingPlan - :: AutoScalingPlansScalingPlanApplicationSource -- ^ 'aspspApplicationSource' - -> [AutoScalingPlansScalingPlanScalingInstruction] -- ^ 'aspspScalingInstructions' - -> AutoScalingPlansScalingPlan -autoScalingPlansScalingPlan applicationSourcearg scalingInstructionsarg = - AutoScalingPlansScalingPlan - { _autoScalingPlansScalingPlanApplicationSource = applicationSourcearg - , _autoScalingPlansScalingPlanScalingInstructions = scalingInstructionsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-autoscalingplans-scalingplan.html#cfn-autoscalingplans-scalingplan-applicationsource -aspspApplicationSource :: Lens' AutoScalingPlansScalingPlan AutoScalingPlansScalingPlanApplicationSource -aspspApplicationSource = lens _autoScalingPlansScalingPlanApplicationSource (\s a -> s { _autoScalingPlansScalingPlanApplicationSource = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-autoscalingplans-scalingplan.html#cfn-autoscalingplans-scalingplan-scalinginstructions -aspspScalingInstructions :: Lens' AutoScalingPlansScalingPlan [AutoScalingPlansScalingPlanScalingInstruction] -aspspScalingInstructions = lens _autoScalingPlansScalingPlanScalingInstructions (\s a -> s { _autoScalingPlansScalingPlanScalingInstructions = a }) diff --git a/library-gen/Stratosphere/Resources/AutoScalingScalingPolicy.hs b/library-gen/Stratosphere/Resources/AutoScalingScalingPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AutoScalingScalingPolicy.hs +++ /dev/null @@ -1,106 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-policy.html - -module Stratosphere.Resources.AutoScalingScalingPolicy where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.AutoScalingScalingPolicyStepAdjustment -import Stratosphere.ResourceProperties.AutoScalingScalingPolicyTargetTrackingConfiguration - --- | Full data type definition for AutoScalingScalingPolicy. See --- 'autoScalingScalingPolicy' for a more convenient constructor. -data AutoScalingScalingPolicy = - AutoScalingScalingPolicy - { _autoScalingScalingPolicyAdjustmentType :: Maybe (Val Text) - , _autoScalingScalingPolicyAutoScalingGroupName :: Val Text - , _autoScalingScalingPolicyCooldown :: Maybe (Val Text) - , _autoScalingScalingPolicyEstimatedInstanceWarmup :: Maybe (Val Integer) - , _autoScalingScalingPolicyMetricAggregationType :: Maybe (Val Text) - , _autoScalingScalingPolicyMinAdjustmentMagnitude :: Maybe (Val Integer) - , _autoScalingScalingPolicyPolicyType :: Maybe (Val Text) - , _autoScalingScalingPolicyScalingAdjustment :: Maybe (Val Integer) - , _autoScalingScalingPolicyStepAdjustments :: Maybe [AutoScalingScalingPolicyStepAdjustment] - , _autoScalingScalingPolicyTargetTrackingConfiguration :: Maybe AutoScalingScalingPolicyTargetTrackingConfiguration - } deriving (Show, Eq) - -instance ToResourceProperties AutoScalingScalingPolicy where - toResourceProperties AutoScalingScalingPolicy{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AutoScaling::ScalingPolicy" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AdjustmentType",) . toJSON) _autoScalingScalingPolicyAdjustmentType - , (Just . ("AutoScalingGroupName",) . toJSON) _autoScalingScalingPolicyAutoScalingGroupName - , fmap (("Cooldown",) . toJSON) _autoScalingScalingPolicyCooldown - , fmap (("EstimatedInstanceWarmup",) . toJSON) _autoScalingScalingPolicyEstimatedInstanceWarmup - , fmap (("MetricAggregationType",) . toJSON) _autoScalingScalingPolicyMetricAggregationType - , fmap (("MinAdjustmentMagnitude",) . toJSON) _autoScalingScalingPolicyMinAdjustmentMagnitude - , fmap (("PolicyType",) . toJSON) _autoScalingScalingPolicyPolicyType - , fmap (("ScalingAdjustment",) . toJSON) _autoScalingScalingPolicyScalingAdjustment - , fmap (("StepAdjustments",) . toJSON) _autoScalingScalingPolicyStepAdjustments - , fmap (("TargetTrackingConfiguration",) . toJSON) _autoScalingScalingPolicyTargetTrackingConfiguration - ] - } - --- | Constructor for 'AutoScalingScalingPolicy' containing required fields as --- arguments. -autoScalingScalingPolicy - :: Val Text -- ^ 'asspAutoScalingGroupName' - -> AutoScalingScalingPolicy -autoScalingScalingPolicy autoScalingGroupNamearg = - AutoScalingScalingPolicy - { _autoScalingScalingPolicyAdjustmentType = Nothing - , _autoScalingScalingPolicyAutoScalingGroupName = autoScalingGroupNamearg - , _autoScalingScalingPolicyCooldown = Nothing - , _autoScalingScalingPolicyEstimatedInstanceWarmup = Nothing - , _autoScalingScalingPolicyMetricAggregationType = Nothing - , _autoScalingScalingPolicyMinAdjustmentMagnitude = Nothing - , _autoScalingScalingPolicyPolicyType = Nothing - , _autoScalingScalingPolicyScalingAdjustment = Nothing - , _autoScalingScalingPolicyStepAdjustments = Nothing - , _autoScalingScalingPolicyTargetTrackingConfiguration = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-policy.html#cfn-as-scalingpolicy-adjustmenttype -asspAdjustmentType :: Lens' AutoScalingScalingPolicy (Maybe (Val Text)) -asspAdjustmentType = lens _autoScalingScalingPolicyAdjustmentType (\s a -> s { _autoScalingScalingPolicyAdjustmentType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-policy.html#cfn-as-scalingpolicy-autoscalinggroupname -asspAutoScalingGroupName :: Lens' AutoScalingScalingPolicy (Val Text) -asspAutoScalingGroupName = lens _autoScalingScalingPolicyAutoScalingGroupName (\s a -> s { _autoScalingScalingPolicyAutoScalingGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-policy.html#cfn-as-scalingpolicy-cooldown -asspCooldown :: Lens' AutoScalingScalingPolicy (Maybe (Val Text)) -asspCooldown = lens _autoScalingScalingPolicyCooldown (\s a -> s { _autoScalingScalingPolicyCooldown = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-policy.html#cfn-as-scalingpolicy-estimatedinstancewarmup -asspEstimatedInstanceWarmup :: Lens' AutoScalingScalingPolicy (Maybe (Val Integer)) -asspEstimatedInstanceWarmup = lens _autoScalingScalingPolicyEstimatedInstanceWarmup (\s a -> s { _autoScalingScalingPolicyEstimatedInstanceWarmup = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-policy.html#cfn-as-scalingpolicy-metricaggregationtype -asspMetricAggregationType :: Lens' AutoScalingScalingPolicy (Maybe (Val Text)) -asspMetricAggregationType = lens _autoScalingScalingPolicyMetricAggregationType (\s a -> s { _autoScalingScalingPolicyMetricAggregationType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-policy.html#cfn-as-scalingpolicy-minadjustmentmagnitude -asspMinAdjustmentMagnitude :: Lens' AutoScalingScalingPolicy (Maybe (Val Integer)) -asspMinAdjustmentMagnitude = lens _autoScalingScalingPolicyMinAdjustmentMagnitude (\s a -> s { _autoScalingScalingPolicyMinAdjustmentMagnitude = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-policy.html#cfn-as-scalingpolicy-policytype -asspPolicyType :: Lens' AutoScalingScalingPolicy (Maybe (Val Text)) -asspPolicyType = lens _autoScalingScalingPolicyPolicyType (\s a -> s { _autoScalingScalingPolicyPolicyType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-policy.html#cfn-as-scalingpolicy-scalingadjustment -asspScalingAdjustment :: Lens' AutoScalingScalingPolicy (Maybe (Val Integer)) -asspScalingAdjustment = lens _autoScalingScalingPolicyScalingAdjustment (\s a -> s { _autoScalingScalingPolicyScalingAdjustment = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-policy.html#cfn-as-scalingpolicy-stepadjustments -asspStepAdjustments :: Lens' AutoScalingScalingPolicy (Maybe [AutoScalingScalingPolicyStepAdjustment]) -asspStepAdjustments = lens _autoScalingScalingPolicyStepAdjustments (\s a -> s { _autoScalingScalingPolicyStepAdjustments = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-as-policy.html#cfn-autoscaling-scalingpolicy-targettrackingconfiguration -asspTargetTrackingConfiguration :: Lens' AutoScalingScalingPolicy (Maybe AutoScalingScalingPolicyTargetTrackingConfiguration) -asspTargetTrackingConfiguration = lens _autoScalingScalingPolicyTargetTrackingConfiguration (\s a -> s { _autoScalingScalingPolicyTargetTrackingConfiguration = a }) diff --git a/library-gen/Stratosphere/Resources/AutoScalingScheduledAction.hs b/library-gen/Stratosphere/Resources/AutoScalingScheduledAction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/AutoScalingScheduledAction.hs +++ /dev/null @@ -1,84 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-as-scheduledaction.html - -module Stratosphere.Resources.AutoScalingScheduledAction where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AutoScalingScheduledAction. See --- 'autoScalingScheduledAction' for a more convenient constructor. -data AutoScalingScheduledAction = - AutoScalingScheduledAction - { _autoScalingScheduledActionAutoScalingGroupName :: Val Text - , _autoScalingScheduledActionDesiredCapacity :: Maybe (Val Integer) - , _autoScalingScheduledActionEndTime :: Maybe (Val Text) - , _autoScalingScheduledActionMaxSize :: Maybe (Val Integer) - , _autoScalingScheduledActionMinSize :: Maybe (Val Integer) - , _autoScalingScheduledActionRecurrence :: Maybe (Val Text) - , _autoScalingScheduledActionStartTime :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties AutoScalingScheduledAction where - toResourceProperties AutoScalingScheduledAction{..} = - ResourceProperties - { resourcePropertiesType = "AWS::AutoScaling::ScheduledAction" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("AutoScalingGroupName",) . toJSON) _autoScalingScheduledActionAutoScalingGroupName - , fmap (("DesiredCapacity",) . toJSON) _autoScalingScheduledActionDesiredCapacity - , fmap (("EndTime",) . toJSON) _autoScalingScheduledActionEndTime - , fmap (("MaxSize",) . toJSON) _autoScalingScheduledActionMaxSize - , fmap (("MinSize",) . toJSON) _autoScalingScheduledActionMinSize - , fmap (("Recurrence",) . toJSON) _autoScalingScheduledActionRecurrence - , fmap (("StartTime",) . toJSON) _autoScalingScheduledActionStartTime - ] - } - --- | Constructor for 'AutoScalingScheduledAction' containing required fields --- as arguments. -autoScalingScheduledAction - :: Val Text -- ^ 'assaAutoScalingGroupName' - -> AutoScalingScheduledAction -autoScalingScheduledAction autoScalingGroupNamearg = - AutoScalingScheduledAction - { _autoScalingScheduledActionAutoScalingGroupName = autoScalingGroupNamearg - , _autoScalingScheduledActionDesiredCapacity = Nothing - , _autoScalingScheduledActionEndTime = Nothing - , _autoScalingScheduledActionMaxSize = Nothing - , _autoScalingScheduledActionMinSize = Nothing - , _autoScalingScheduledActionRecurrence = Nothing - , _autoScalingScheduledActionStartTime = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-as-scheduledaction.html#cfn-as-scheduledaction-asgname -assaAutoScalingGroupName :: Lens' AutoScalingScheduledAction (Val Text) -assaAutoScalingGroupName = lens _autoScalingScheduledActionAutoScalingGroupName (\s a -> s { _autoScalingScheduledActionAutoScalingGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-as-scheduledaction.html#cfn-as-scheduledaction-desiredcapacity -assaDesiredCapacity :: Lens' AutoScalingScheduledAction (Maybe (Val Integer)) -assaDesiredCapacity = lens _autoScalingScheduledActionDesiredCapacity (\s a -> s { _autoScalingScheduledActionDesiredCapacity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-as-scheduledaction.html#cfn-as-scheduledaction-endtime -assaEndTime :: Lens' AutoScalingScheduledAction (Maybe (Val Text)) -assaEndTime = lens _autoScalingScheduledActionEndTime (\s a -> s { _autoScalingScheduledActionEndTime = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-as-scheduledaction.html#cfn-as-scheduledaction-maxsize -assaMaxSize :: Lens' AutoScalingScheduledAction (Maybe (Val Integer)) -assaMaxSize = lens _autoScalingScheduledActionMaxSize (\s a -> s { _autoScalingScheduledActionMaxSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-as-scheduledaction.html#cfn-as-scheduledaction-minsize -assaMinSize :: Lens' AutoScalingScheduledAction (Maybe (Val Integer)) -assaMinSize = lens _autoScalingScheduledActionMinSize (\s a -> s { _autoScalingScheduledActionMinSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-as-scheduledaction.html#cfn-as-scheduledaction-recurrence -assaRecurrence :: Lens' AutoScalingScheduledAction (Maybe (Val Text)) -assaRecurrence = lens _autoScalingScheduledActionRecurrence (\s a -> s { _autoScalingScheduledActionRecurrence = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-as-scheduledaction.html#cfn-as-scheduledaction-starttime -assaStartTime :: Lens' AutoScalingScheduledAction (Maybe (Val Text)) -assaStartTime = lens _autoScalingScheduledActionStartTime (\s a -> s { _autoScalingScheduledActionStartTime = a }) diff --git a/library-gen/Stratosphere/Resources/BackupBackupPlan.hs b/library-gen/Stratosphere/Resources/BackupBackupPlan.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/BackupBackupPlan.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-backup-backupplan.html - -module Stratosphere.Resources.BackupBackupPlan where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.BackupBackupPlanBackupPlanResourceType - --- | Full data type definition for BackupBackupPlan. See 'backupBackupPlan' --- for a more convenient constructor. -data BackupBackupPlan = - BackupBackupPlan - { _backupBackupPlanBackupPlan :: BackupBackupPlanBackupPlanResourceType - , _backupBackupPlanBackupPlanTags :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties BackupBackupPlan where - toResourceProperties BackupBackupPlan{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Backup::BackupPlan" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("BackupPlan",) . toJSON) _backupBackupPlanBackupPlan - , fmap (("BackupPlanTags",) . toJSON) _backupBackupPlanBackupPlanTags - ] - } - --- | Constructor for 'BackupBackupPlan' containing required fields as --- arguments. -backupBackupPlan - :: BackupBackupPlanBackupPlanResourceType -- ^ 'bbpBackupPlan' - -> BackupBackupPlan -backupBackupPlan backupPlanarg = - BackupBackupPlan - { _backupBackupPlanBackupPlan = backupPlanarg - , _backupBackupPlanBackupPlanTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-backup-backupplan.html#cfn-backup-backupplan-backupplan -bbpBackupPlan :: Lens' BackupBackupPlan BackupBackupPlanBackupPlanResourceType -bbpBackupPlan = lens _backupBackupPlanBackupPlan (\s a -> s { _backupBackupPlanBackupPlan = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-backup-backupplan.html#cfn-backup-backupplan-backupplantags -bbpBackupPlanTags :: Lens' BackupBackupPlan (Maybe Object) -bbpBackupPlanTags = lens _backupBackupPlanBackupPlanTags (\s a -> s { _backupBackupPlanBackupPlanTags = a }) diff --git a/library-gen/Stratosphere/Resources/BackupBackupSelection.hs b/library-gen/Stratosphere/Resources/BackupBackupSelection.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/BackupBackupSelection.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-backup-backupselection.html - -module Stratosphere.Resources.BackupBackupSelection where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.BackupBackupSelectionBackupSelectionResourceType - --- | Full data type definition for BackupBackupSelection. See --- 'backupBackupSelection' for a more convenient constructor. -data BackupBackupSelection = - BackupBackupSelection - { _backupBackupSelectionBackupPlanId :: Val Text - , _backupBackupSelectionBackupSelection :: BackupBackupSelectionBackupSelectionResourceType - } deriving (Show, Eq) - -instance ToResourceProperties BackupBackupSelection where - toResourceProperties BackupBackupSelection{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Backup::BackupSelection" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("BackupPlanId",) . toJSON) _backupBackupSelectionBackupPlanId - , (Just . ("BackupSelection",) . toJSON) _backupBackupSelectionBackupSelection - ] - } - --- | Constructor for 'BackupBackupSelection' containing required fields as --- arguments. -backupBackupSelection - :: Val Text -- ^ 'bbsBackupPlanId' - -> BackupBackupSelectionBackupSelectionResourceType -- ^ 'bbsBackupSelection' - -> BackupBackupSelection -backupBackupSelection backupPlanIdarg backupSelectionarg = - BackupBackupSelection - { _backupBackupSelectionBackupPlanId = backupPlanIdarg - , _backupBackupSelectionBackupSelection = backupSelectionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-backup-backupselection.html#cfn-backup-backupselection-backupplanid -bbsBackupPlanId :: Lens' BackupBackupSelection (Val Text) -bbsBackupPlanId = lens _backupBackupSelectionBackupPlanId (\s a -> s { _backupBackupSelectionBackupPlanId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-backup-backupselection.html#cfn-backup-backupselection-backupselection -bbsBackupSelection :: Lens' BackupBackupSelection BackupBackupSelectionBackupSelectionResourceType -bbsBackupSelection = lens _backupBackupSelectionBackupSelection (\s a -> s { _backupBackupSelectionBackupSelection = a }) diff --git a/library-gen/Stratosphere/Resources/BackupBackupVault.hs b/library-gen/Stratosphere/Resources/BackupBackupVault.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/BackupBackupVault.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-backup-backupvault.html - -module Stratosphere.Resources.BackupBackupVault where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.BackupBackupVaultNotificationObjectType - --- | Full data type definition for BackupBackupVault. See 'backupBackupVault' --- for a more convenient constructor. -data BackupBackupVault = - BackupBackupVault - { _backupBackupVaultAccessPolicy :: Maybe Object - , _backupBackupVaultBackupVaultName :: Val Text - , _backupBackupVaultBackupVaultTags :: Maybe Object - , _backupBackupVaultEncryptionKeyArn :: Maybe (Val Text) - , _backupBackupVaultNotifications :: Maybe BackupBackupVaultNotificationObjectType - } deriving (Show, Eq) - -instance ToResourceProperties BackupBackupVault where - toResourceProperties BackupBackupVault{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Backup::BackupVault" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AccessPolicy",) . toJSON) _backupBackupVaultAccessPolicy - , (Just . ("BackupVaultName",) . toJSON) _backupBackupVaultBackupVaultName - , fmap (("BackupVaultTags",) . toJSON) _backupBackupVaultBackupVaultTags - , fmap (("EncryptionKeyArn",) . toJSON) _backupBackupVaultEncryptionKeyArn - , fmap (("Notifications",) . toJSON) _backupBackupVaultNotifications - ] - } - --- | Constructor for 'BackupBackupVault' containing required fields as --- arguments. -backupBackupVault - :: Val Text -- ^ 'bbvBackupVaultName' - -> BackupBackupVault -backupBackupVault backupVaultNamearg = - BackupBackupVault - { _backupBackupVaultAccessPolicy = Nothing - , _backupBackupVaultBackupVaultName = backupVaultNamearg - , _backupBackupVaultBackupVaultTags = Nothing - , _backupBackupVaultEncryptionKeyArn = Nothing - , _backupBackupVaultNotifications = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-backup-backupvault.html#cfn-backup-backupvault-accesspolicy -bbvAccessPolicy :: Lens' BackupBackupVault (Maybe Object) -bbvAccessPolicy = lens _backupBackupVaultAccessPolicy (\s a -> s { _backupBackupVaultAccessPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-backup-backupvault.html#cfn-backup-backupvault-backupvaultname -bbvBackupVaultName :: Lens' BackupBackupVault (Val Text) -bbvBackupVaultName = lens _backupBackupVaultBackupVaultName (\s a -> s { _backupBackupVaultBackupVaultName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-backup-backupvault.html#cfn-backup-backupvault-backupvaulttags -bbvBackupVaultTags :: Lens' BackupBackupVault (Maybe Object) -bbvBackupVaultTags = lens _backupBackupVaultBackupVaultTags (\s a -> s { _backupBackupVaultBackupVaultTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-backup-backupvault.html#cfn-backup-backupvault-encryptionkeyarn -bbvEncryptionKeyArn :: Lens' BackupBackupVault (Maybe (Val Text)) -bbvEncryptionKeyArn = lens _backupBackupVaultEncryptionKeyArn (\s a -> s { _backupBackupVaultEncryptionKeyArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-backup-backupvault.html#cfn-backup-backupvault-notifications -bbvNotifications :: Lens' BackupBackupVault (Maybe BackupBackupVaultNotificationObjectType) -bbvNotifications = lens _backupBackupVaultNotifications (\s a -> s { _backupBackupVaultNotifications = a }) diff --git a/library-gen/Stratosphere/Resources/BatchComputeEnvironment.hs b/library-gen/Stratosphere/Resources/BatchComputeEnvironment.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/BatchComputeEnvironment.hs +++ /dev/null @@ -1,71 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-batch-computeenvironment.html - -module Stratosphere.Resources.BatchComputeEnvironment where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.BatchComputeEnvironmentComputeResources - --- | Full data type definition for BatchComputeEnvironment. See --- 'batchComputeEnvironment' for a more convenient constructor. -data BatchComputeEnvironment = - BatchComputeEnvironment - { _batchComputeEnvironmentComputeEnvironmentName :: Maybe (Val Text) - , _batchComputeEnvironmentComputeResources :: Maybe BatchComputeEnvironmentComputeResources - , _batchComputeEnvironmentServiceRole :: Val Text - , _batchComputeEnvironmentState :: Maybe (Val Text) - , _batchComputeEnvironmentType :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties BatchComputeEnvironment where - toResourceProperties BatchComputeEnvironment{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Batch::ComputeEnvironment" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ComputeEnvironmentName",) . toJSON) _batchComputeEnvironmentComputeEnvironmentName - , fmap (("ComputeResources",) . toJSON) _batchComputeEnvironmentComputeResources - , (Just . ("ServiceRole",) . toJSON) _batchComputeEnvironmentServiceRole - , fmap (("State",) . toJSON) _batchComputeEnvironmentState - , (Just . ("Type",) . toJSON) _batchComputeEnvironmentType - ] - } - --- | Constructor for 'BatchComputeEnvironment' containing required fields as --- arguments. -batchComputeEnvironment - :: Val Text -- ^ 'bceServiceRole' - -> Val Text -- ^ 'bceType' - -> BatchComputeEnvironment -batchComputeEnvironment serviceRolearg typearg = - BatchComputeEnvironment - { _batchComputeEnvironmentComputeEnvironmentName = Nothing - , _batchComputeEnvironmentComputeResources = Nothing - , _batchComputeEnvironmentServiceRole = serviceRolearg - , _batchComputeEnvironmentState = Nothing - , _batchComputeEnvironmentType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-batch-computeenvironment.html#cfn-batch-computeenvironment-computeenvironmentname -bceComputeEnvironmentName :: Lens' BatchComputeEnvironment (Maybe (Val Text)) -bceComputeEnvironmentName = lens _batchComputeEnvironmentComputeEnvironmentName (\s a -> s { _batchComputeEnvironmentComputeEnvironmentName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-batch-computeenvironment.html#cfn-batch-computeenvironment-computeresources -bceComputeResources :: Lens' BatchComputeEnvironment (Maybe BatchComputeEnvironmentComputeResources) -bceComputeResources = lens _batchComputeEnvironmentComputeResources (\s a -> s { _batchComputeEnvironmentComputeResources = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-batch-computeenvironment.html#cfn-batch-computeenvironment-servicerole -bceServiceRole :: Lens' BatchComputeEnvironment (Val Text) -bceServiceRole = lens _batchComputeEnvironmentServiceRole (\s a -> s { _batchComputeEnvironmentServiceRole = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-batch-computeenvironment.html#cfn-batch-computeenvironment-state -bceState :: Lens' BatchComputeEnvironment (Maybe (Val Text)) -bceState = lens _batchComputeEnvironmentState (\s a -> s { _batchComputeEnvironmentState = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-batch-computeenvironment.html#cfn-batch-computeenvironment-type -bceType :: Lens' BatchComputeEnvironment (Val Text) -bceType = lens _batchComputeEnvironmentType (\s a -> s { _batchComputeEnvironmentType = a }) diff --git a/library-gen/Stratosphere/Resources/BatchJobDefinition.hs b/library-gen/Stratosphere/Resources/BatchJobDefinition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/BatchJobDefinition.hs +++ /dev/null @@ -1,87 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-batch-jobdefinition.html - -module Stratosphere.Resources.BatchJobDefinition where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.BatchJobDefinitionContainerProperties -import Stratosphere.ResourceProperties.BatchJobDefinitionNodeProperties -import Stratosphere.ResourceProperties.BatchJobDefinitionRetryStrategy -import Stratosphere.ResourceProperties.BatchJobDefinitionTimeout - --- | Full data type definition for BatchJobDefinition. See --- 'batchJobDefinition' for a more convenient constructor. -data BatchJobDefinition = - BatchJobDefinition - { _batchJobDefinitionContainerProperties :: Maybe BatchJobDefinitionContainerProperties - , _batchJobDefinitionJobDefinitionName :: Maybe (Val Text) - , _batchJobDefinitionNodeProperties :: Maybe BatchJobDefinitionNodeProperties - , _batchJobDefinitionParameters :: Maybe Object - , _batchJobDefinitionRetryStrategy :: Maybe BatchJobDefinitionRetryStrategy - , _batchJobDefinitionTimeout :: Maybe BatchJobDefinitionTimeout - , _batchJobDefinitionType :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties BatchJobDefinition where - toResourceProperties BatchJobDefinition{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Batch::JobDefinition" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ContainerProperties",) . toJSON) _batchJobDefinitionContainerProperties - , fmap (("JobDefinitionName",) . toJSON) _batchJobDefinitionJobDefinitionName - , fmap (("NodeProperties",) . toJSON) _batchJobDefinitionNodeProperties - , fmap (("Parameters",) . toJSON) _batchJobDefinitionParameters - , fmap (("RetryStrategy",) . toJSON) _batchJobDefinitionRetryStrategy - , fmap (("Timeout",) . toJSON) _batchJobDefinitionTimeout - , (Just . ("Type",) . toJSON) _batchJobDefinitionType - ] - } - --- | Constructor for 'BatchJobDefinition' containing required fields as --- arguments. -batchJobDefinition - :: Val Text -- ^ 'bjdType' - -> BatchJobDefinition -batchJobDefinition typearg = - BatchJobDefinition - { _batchJobDefinitionContainerProperties = Nothing - , _batchJobDefinitionJobDefinitionName = Nothing - , _batchJobDefinitionNodeProperties = Nothing - , _batchJobDefinitionParameters = Nothing - , _batchJobDefinitionRetryStrategy = Nothing - , _batchJobDefinitionTimeout = Nothing - , _batchJobDefinitionType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-batch-jobdefinition.html#cfn-batch-jobdefinition-containerproperties -bjdContainerProperties :: Lens' BatchJobDefinition (Maybe BatchJobDefinitionContainerProperties) -bjdContainerProperties = lens _batchJobDefinitionContainerProperties (\s a -> s { _batchJobDefinitionContainerProperties = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-batch-jobdefinition.html#cfn-batch-jobdefinition-jobdefinitionname -bjdJobDefinitionName :: Lens' BatchJobDefinition (Maybe (Val Text)) -bjdJobDefinitionName = lens _batchJobDefinitionJobDefinitionName (\s a -> s { _batchJobDefinitionJobDefinitionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-batch-jobdefinition.html#cfn-batch-jobdefinition-nodeproperties -bjdNodeProperties :: Lens' BatchJobDefinition (Maybe BatchJobDefinitionNodeProperties) -bjdNodeProperties = lens _batchJobDefinitionNodeProperties (\s a -> s { _batchJobDefinitionNodeProperties = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-batch-jobdefinition.html#cfn-batch-jobdefinition-parameters -bjdParameters :: Lens' BatchJobDefinition (Maybe Object) -bjdParameters = lens _batchJobDefinitionParameters (\s a -> s { _batchJobDefinitionParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-batch-jobdefinition.html#cfn-batch-jobdefinition-retrystrategy -bjdRetryStrategy :: Lens' BatchJobDefinition (Maybe BatchJobDefinitionRetryStrategy) -bjdRetryStrategy = lens _batchJobDefinitionRetryStrategy (\s a -> s { _batchJobDefinitionRetryStrategy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-batch-jobdefinition.html#cfn-batch-jobdefinition-timeout -bjdTimeout :: Lens' BatchJobDefinition (Maybe BatchJobDefinitionTimeout) -bjdTimeout = lens _batchJobDefinitionTimeout (\s a -> s { _batchJobDefinitionTimeout = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-batch-jobdefinition.html#cfn-batch-jobdefinition-type -bjdType :: Lens' BatchJobDefinition (Val Text) -bjdType = lens _batchJobDefinitionType (\s a -> s { _batchJobDefinitionType = a }) diff --git a/library-gen/Stratosphere/Resources/BatchJobQueue.hs b/library-gen/Stratosphere/Resources/BatchJobQueue.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/BatchJobQueue.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-batch-jobqueue.html - -module Stratosphere.Resources.BatchJobQueue where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.BatchJobQueueComputeEnvironmentOrder - --- | Full data type definition for BatchJobQueue. See 'batchJobQueue' for a --- more convenient constructor. -data BatchJobQueue = - BatchJobQueue - { _batchJobQueueComputeEnvironmentOrder :: [BatchJobQueueComputeEnvironmentOrder] - , _batchJobQueueJobQueueName :: Maybe (Val Text) - , _batchJobQueuePriority :: Val Integer - , _batchJobQueueState :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties BatchJobQueue where - toResourceProperties BatchJobQueue{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Batch::JobQueue" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ComputeEnvironmentOrder",) . toJSON) _batchJobQueueComputeEnvironmentOrder - , fmap (("JobQueueName",) . toJSON) _batchJobQueueJobQueueName - , (Just . ("Priority",) . toJSON) _batchJobQueuePriority - , fmap (("State",) . toJSON) _batchJobQueueState - ] - } - --- | Constructor for 'BatchJobQueue' containing required fields as arguments. -batchJobQueue - :: [BatchJobQueueComputeEnvironmentOrder] -- ^ 'bjqComputeEnvironmentOrder' - -> Val Integer -- ^ 'bjqPriority' - -> BatchJobQueue -batchJobQueue computeEnvironmentOrderarg priorityarg = - BatchJobQueue - { _batchJobQueueComputeEnvironmentOrder = computeEnvironmentOrderarg - , _batchJobQueueJobQueueName = Nothing - , _batchJobQueuePriority = priorityarg - , _batchJobQueueState = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-batch-jobqueue.html#cfn-batch-jobqueue-computeenvironmentorder -bjqComputeEnvironmentOrder :: Lens' BatchJobQueue [BatchJobQueueComputeEnvironmentOrder] -bjqComputeEnvironmentOrder = lens _batchJobQueueComputeEnvironmentOrder (\s a -> s { _batchJobQueueComputeEnvironmentOrder = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-batch-jobqueue.html#cfn-batch-jobqueue-jobqueuename -bjqJobQueueName :: Lens' BatchJobQueue (Maybe (Val Text)) -bjqJobQueueName = lens _batchJobQueueJobQueueName (\s a -> s { _batchJobQueueJobQueueName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-batch-jobqueue.html#cfn-batch-jobqueue-priority -bjqPriority :: Lens' BatchJobQueue (Val Integer) -bjqPriority = lens _batchJobQueuePriority (\s a -> s { _batchJobQueuePriority = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-batch-jobqueue.html#cfn-batch-jobqueue-state -bjqState :: Lens' BatchJobQueue (Maybe (Val Text)) -bjqState = lens _batchJobQueueState (\s a -> s { _batchJobQueueState = a }) diff --git a/library-gen/Stratosphere/Resources/BudgetsBudget.hs b/library-gen/Stratosphere/Resources/BudgetsBudget.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/BudgetsBudget.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-budgets-budget.html - -module Stratosphere.Resources.BudgetsBudget where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.BudgetsBudgetBudgetData -import Stratosphere.ResourceProperties.BudgetsBudgetNotificationWithSubscribers - --- | Full data type definition for BudgetsBudget. See 'budgetsBudget' for a --- more convenient constructor. -data BudgetsBudget = - BudgetsBudget - { _budgetsBudgetBudget :: BudgetsBudgetBudgetData - , _budgetsBudgetNotificationsWithSubscribers :: Maybe [BudgetsBudgetNotificationWithSubscribers] - } deriving (Show, Eq) - -instance ToResourceProperties BudgetsBudget where - toResourceProperties BudgetsBudget{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Budgets::Budget" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Budget",) . toJSON) _budgetsBudgetBudget - , fmap (("NotificationsWithSubscribers",) . toJSON) _budgetsBudgetNotificationsWithSubscribers - ] - } - --- | Constructor for 'BudgetsBudget' containing required fields as arguments. -budgetsBudget - :: BudgetsBudgetBudgetData -- ^ 'bbBudget' - -> BudgetsBudget -budgetsBudget budgetarg = - BudgetsBudget - { _budgetsBudgetBudget = budgetarg - , _budgetsBudgetNotificationsWithSubscribers = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-budgets-budget.html#cfn-budgets-budget-budget -bbBudget :: Lens' BudgetsBudget BudgetsBudgetBudgetData -bbBudget = lens _budgetsBudgetBudget (\s a -> s { _budgetsBudgetBudget = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-budgets-budget.html#cfn-budgets-budget-notificationswithsubscribers -bbNotificationsWithSubscribers :: Lens' BudgetsBudget (Maybe [BudgetsBudgetNotificationWithSubscribers]) -bbNotificationsWithSubscribers = lens _budgetsBudgetNotificationsWithSubscribers (\s a -> s { _budgetsBudgetNotificationsWithSubscribers = a }) diff --git a/library-gen/Stratosphere/Resources/CECostCategory.hs b/library-gen/Stratosphere/Resources/CECostCategory.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CECostCategory.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ce-costcategory.html - -module Stratosphere.Resources.CECostCategory where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CECostCategory. See 'ceCostCategory' for a --- more convenient constructor. -data CECostCategory = - CECostCategory - { _cECostCategoryName :: Val Text - , _cECostCategoryRuleVersion :: Val Text - , _cECostCategoryRules :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties CECostCategory where - toResourceProperties CECostCategory{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CE::CostCategory" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Name",) . toJSON) _cECostCategoryName - , (Just . ("RuleVersion",) . toJSON) _cECostCategoryRuleVersion - , (Just . ("Rules",) . toJSON) _cECostCategoryRules - ] - } - --- | Constructor for 'CECostCategory' containing required fields as arguments. -ceCostCategory - :: Val Text -- ^ 'ceccName' - -> Val Text -- ^ 'ceccRuleVersion' - -> Val Text -- ^ 'ceccRules' - -> CECostCategory -ceCostCategory namearg ruleVersionarg rulesarg = - CECostCategory - { _cECostCategoryName = namearg - , _cECostCategoryRuleVersion = ruleVersionarg - , _cECostCategoryRules = rulesarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ce-costcategory.html#cfn-ce-costcategory-name -ceccName :: Lens' CECostCategory (Val Text) -ceccName = lens _cECostCategoryName (\s a -> s { _cECostCategoryName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ce-costcategory.html#cfn-ce-costcategory-ruleversion -ceccRuleVersion :: Lens' CECostCategory (Val Text) -ceccRuleVersion = lens _cECostCategoryRuleVersion (\s a -> s { _cECostCategoryRuleVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ce-costcategory.html#cfn-ce-costcategory-rules -ceccRules :: Lens' CECostCategory (Val Text) -ceccRules = lens _cECostCategoryRules (\s a -> s { _cECostCategoryRules = a }) diff --git a/library-gen/Stratosphere/Resources/CassandraKeyspace.hs b/library-gen/Stratosphere/Resources/CassandraKeyspace.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CassandraKeyspace.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-keyspace.html - -module Stratosphere.Resources.CassandraKeyspace where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CassandraKeyspace. See 'cassandraKeyspace' --- for a more convenient constructor. -data CassandraKeyspace = - CassandraKeyspace - { _cassandraKeyspaceKeyspaceName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties CassandraKeyspace where - toResourceProperties CassandraKeyspace{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Cassandra::Keyspace" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("KeyspaceName",) . toJSON) _cassandraKeyspaceKeyspaceName - ] - } - --- | Constructor for 'CassandraKeyspace' containing required fields as --- arguments. -cassandraKeyspace - :: CassandraKeyspace -cassandraKeyspace = - CassandraKeyspace - { _cassandraKeyspaceKeyspaceName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-keyspace.html#cfn-cassandra-keyspace-keyspacename -ckKeyspaceName :: Lens' CassandraKeyspace (Maybe (Val Text)) -ckKeyspaceName = lens _cassandraKeyspaceKeyspaceName (\s a -> s { _cassandraKeyspaceKeyspaceName = a }) diff --git a/library-gen/Stratosphere/Resources/CassandraTable.hs b/library-gen/Stratosphere/Resources/CassandraTable.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CassandraTable.hs +++ /dev/null @@ -1,79 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-table.html - -module Stratosphere.Resources.CassandraTable where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CassandraTableBillingMode -import Stratosphere.ResourceProperties.CassandraTableClusteringKeyColumn -import Stratosphere.ResourceProperties.CassandraTableColumn - --- | Full data type definition for CassandraTable. See 'cassandraTable' for a --- more convenient constructor. -data CassandraTable = - CassandraTable - { _cassandraTableBillingMode :: Maybe CassandraTableBillingMode - , _cassandraTableClusteringKeyColumns :: Maybe [CassandraTableClusteringKeyColumn] - , _cassandraTableKeyspaceName :: Val Text - , _cassandraTablePartitionKeyColumns :: [CassandraTableColumn] - , _cassandraTableRegularColumns :: Maybe [CassandraTableColumn] - , _cassandraTableTableName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties CassandraTable where - toResourceProperties CassandraTable{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Cassandra::Table" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("BillingMode",) . toJSON) _cassandraTableBillingMode - , fmap (("ClusteringKeyColumns",) . toJSON) _cassandraTableClusteringKeyColumns - , (Just . ("KeyspaceName",) . toJSON) _cassandraTableKeyspaceName - , (Just . ("PartitionKeyColumns",) . toJSON) _cassandraTablePartitionKeyColumns - , fmap (("RegularColumns",) . toJSON) _cassandraTableRegularColumns - , fmap (("TableName",) . toJSON) _cassandraTableTableName - ] - } - --- | Constructor for 'CassandraTable' containing required fields as arguments. -cassandraTable - :: Val Text -- ^ 'ctKeyspaceName' - -> [CassandraTableColumn] -- ^ 'ctPartitionKeyColumns' - -> CassandraTable -cassandraTable keyspaceNamearg partitionKeyColumnsarg = - CassandraTable - { _cassandraTableBillingMode = Nothing - , _cassandraTableClusteringKeyColumns = Nothing - , _cassandraTableKeyspaceName = keyspaceNamearg - , _cassandraTablePartitionKeyColumns = partitionKeyColumnsarg - , _cassandraTableRegularColumns = Nothing - , _cassandraTableTableName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-table.html#cfn-cassandra-table-billingmode -ctBillingMode :: Lens' CassandraTable (Maybe CassandraTableBillingMode) -ctBillingMode = lens _cassandraTableBillingMode (\s a -> s { _cassandraTableBillingMode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-table.html#cfn-cassandra-table-clusteringkeycolumns -ctClusteringKeyColumns :: Lens' CassandraTable (Maybe [CassandraTableClusteringKeyColumn]) -ctClusteringKeyColumns = lens _cassandraTableClusteringKeyColumns (\s a -> s { _cassandraTableClusteringKeyColumns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-table.html#cfn-cassandra-table-keyspacename -ctKeyspaceName :: Lens' CassandraTable (Val Text) -ctKeyspaceName = lens _cassandraTableKeyspaceName (\s a -> s { _cassandraTableKeyspaceName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-table.html#cfn-cassandra-table-partitionkeycolumns -ctPartitionKeyColumns :: Lens' CassandraTable [CassandraTableColumn] -ctPartitionKeyColumns = lens _cassandraTablePartitionKeyColumns (\s a -> s { _cassandraTablePartitionKeyColumns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-table.html#cfn-cassandra-table-regularcolumns -ctRegularColumns :: Lens' CassandraTable (Maybe [CassandraTableColumn]) -ctRegularColumns = lens _cassandraTableRegularColumns (\s a -> s { _cassandraTableRegularColumns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-table.html#cfn-cassandra-table-tablename -ctTableName :: Lens' CassandraTable (Maybe (Val Text)) -ctTableName = lens _cassandraTableTableName (\s a -> s { _cassandraTableTableName = a }) diff --git a/library-gen/Stratosphere/Resources/CertificateManagerCertificate.hs b/library-gen/Stratosphere/Resources/CertificateManagerCertificate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CertificateManagerCertificate.hs +++ /dev/null @@ -1,85 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-certificatemanager-certificate.html - -module Stratosphere.Resources.CertificateManagerCertificate where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CertificateManagerCertificateDomainValidationOption -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for CertificateManagerCertificate. See --- 'certificateManagerCertificate' for a more convenient constructor. -data CertificateManagerCertificate = - CertificateManagerCertificate - { _certificateManagerCertificateCertificateAuthorityArn :: Maybe (Val Text) - , _certificateManagerCertificateCertificateTransparencyLoggingPreference :: Maybe (Val Text) - , _certificateManagerCertificateDomainName :: Val Text - , _certificateManagerCertificateDomainValidationOptions :: Maybe [CertificateManagerCertificateDomainValidationOption] - , _certificateManagerCertificateSubjectAlternativeNames :: Maybe (ValList Text) - , _certificateManagerCertificateTags :: Maybe [Tag] - , _certificateManagerCertificateValidationMethod :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties CertificateManagerCertificate where - toResourceProperties CertificateManagerCertificate{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CertificateManager::Certificate" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("CertificateAuthorityArn",) . toJSON) _certificateManagerCertificateCertificateAuthorityArn - , fmap (("CertificateTransparencyLoggingPreference",) . toJSON) _certificateManagerCertificateCertificateTransparencyLoggingPreference - , (Just . ("DomainName",) . toJSON) _certificateManagerCertificateDomainName - , fmap (("DomainValidationOptions",) . toJSON) _certificateManagerCertificateDomainValidationOptions - , fmap (("SubjectAlternativeNames",) . toJSON) _certificateManagerCertificateSubjectAlternativeNames - , fmap (("Tags",) . toJSON) _certificateManagerCertificateTags - , fmap (("ValidationMethod",) . toJSON) _certificateManagerCertificateValidationMethod - ] - } - --- | Constructor for 'CertificateManagerCertificate' containing required --- fields as arguments. -certificateManagerCertificate - :: Val Text -- ^ 'cmcDomainName' - -> CertificateManagerCertificate -certificateManagerCertificate domainNamearg = - CertificateManagerCertificate - { _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) -cmcDomainName = lens _certificateManagerCertificateDomainName (\s a -> s { _certificateManagerCertificateDomainName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-certificatemanager-certificate.html#cfn-certificatemanager-certificate-domainvalidationoptions -cmcDomainValidationOptions :: Lens' CertificateManagerCertificate (Maybe [CertificateManagerCertificateDomainValidationOption]) -cmcDomainValidationOptions = lens _certificateManagerCertificateDomainValidationOptions (\s a -> s { _certificateManagerCertificateDomainValidationOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-certificatemanager-certificate.html#cfn-certificatemanager-certificate-subjectalternativenames -cmcSubjectAlternativeNames :: Lens' CertificateManagerCertificate (Maybe (ValList Text)) -cmcSubjectAlternativeNames = lens _certificateManagerCertificateSubjectAlternativeNames (\s a -> s { _certificateManagerCertificateSubjectAlternativeNames = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-certificatemanager-certificate.html#cfn-certificatemanager-certificate-tags -cmcTags :: Lens' CertificateManagerCertificate (Maybe [Tag]) -cmcTags = lens _certificateManagerCertificateTags (\s a -> s { _certificateManagerCertificateTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-certificatemanager-certificate.html#cfn-certificatemanager-certificate-validationmethod -cmcValidationMethod :: Lens' CertificateManagerCertificate (Maybe (Val Text)) -cmcValidationMethod = lens _certificateManagerCertificateValidationMethod (\s a -> s { _certificateManagerCertificateValidationMethod = a }) diff --git a/library-gen/Stratosphere/Resources/ChatbotSlackChannelConfiguration.hs b/library-gen/Stratosphere/Resources/ChatbotSlackChannelConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ChatbotSlackChannelConfiguration.hs +++ /dev/null @@ -1,80 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-chatbot-slackchannelconfiguration.html - -module Stratosphere.Resources.ChatbotSlackChannelConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.Types - --- | Full data type definition for ChatbotSlackChannelConfiguration. See --- 'chatbotSlackChannelConfiguration' for a more convenient constructor. -data ChatbotSlackChannelConfiguration = - ChatbotSlackChannelConfiguration - { _chatbotSlackChannelConfigurationConfigurationName :: Val Text - , _chatbotSlackChannelConfigurationIamRoleArn :: Val Text - , _chatbotSlackChannelConfigurationLoggingLevel :: Maybe (Val LoggingLevel) - , _chatbotSlackChannelConfigurationSlackChannelId :: Val Text - , _chatbotSlackChannelConfigurationSlackWorkspaceId :: Val Text - , _chatbotSlackChannelConfigurationSnsTopicArns :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToResourceProperties ChatbotSlackChannelConfiguration where - toResourceProperties ChatbotSlackChannelConfiguration{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Chatbot::SlackChannelConfiguration" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ConfigurationName",) . toJSON) _chatbotSlackChannelConfigurationConfigurationName - , (Just . ("IamRoleArn",) . toJSON) _chatbotSlackChannelConfigurationIamRoleArn - , fmap (("LoggingLevel",) . toJSON) _chatbotSlackChannelConfigurationLoggingLevel - , (Just . ("SlackChannelId",) . toJSON) _chatbotSlackChannelConfigurationSlackChannelId - , (Just . ("SlackWorkspaceId",) . toJSON) _chatbotSlackChannelConfigurationSlackWorkspaceId - , fmap (("SnsTopicArns",) . toJSON) _chatbotSlackChannelConfigurationSnsTopicArns - ] - } - --- | Constructor for 'ChatbotSlackChannelConfiguration' containing required --- fields as arguments. -chatbotSlackChannelConfiguration - :: Val Text -- ^ 'csccConfigurationName' - -> Val Text -- ^ 'csccIamRoleArn' - -> Val Text -- ^ 'csccSlackChannelId' - -> Val Text -- ^ 'csccSlackWorkspaceId' - -> ChatbotSlackChannelConfiguration -chatbotSlackChannelConfiguration configurationNamearg iamRoleArnarg slackChannelIdarg slackWorkspaceIdarg = - ChatbotSlackChannelConfiguration - { _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-configurationname -csccConfigurationName :: Lens' ChatbotSlackChannelConfiguration (Val Text) -csccConfigurationName = lens _chatbotSlackChannelConfigurationConfigurationName (\s a -> s { _chatbotSlackChannelConfigurationConfigurationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-chatbot-slackchannelconfiguration.html#cfn-chatbot-slackchannelconfiguration-iamrolearn -csccIamRoleArn :: Lens' ChatbotSlackChannelConfiguration (Val Text) -csccIamRoleArn = lens _chatbotSlackChannelConfigurationIamRoleArn (\s a -> s { _chatbotSlackChannelConfigurationIamRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-chatbot-slackchannelconfiguration.html#cfn-chatbot-slackchannelconfiguration-logginglevel -csccLoggingLevel :: Lens' ChatbotSlackChannelConfiguration (Maybe (Val LoggingLevel)) -csccLoggingLevel = lens _chatbotSlackChannelConfigurationLoggingLevel (\s a -> s { _chatbotSlackChannelConfigurationLoggingLevel = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-chatbot-slackchannelconfiguration.html#cfn-chatbot-slackchannelconfiguration-slackchannelid -csccSlackChannelId :: Lens' ChatbotSlackChannelConfiguration (Val Text) -csccSlackChannelId = lens _chatbotSlackChannelConfigurationSlackChannelId (\s a -> s { _chatbotSlackChannelConfigurationSlackChannelId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-chatbot-slackchannelconfiguration.html#cfn-chatbot-slackchannelconfiguration-slackworkspaceid -csccSlackWorkspaceId :: Lens' ChatbotSlackChannelConfiguration (Val Text) -csccSlackWorkspaceId = lens _chatbotSlackChannelConfigurationSlackWorkspaceId (\s a -> s { _chatbotSlackChannelConfigurationSlackWorkspaceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-chatbot-slackchannelconfiguration.html#cfn-chatbot-slackchannelconfiguration-snstopicarns -csccSnsTopicArns :: Lens' ChatbotSlackChannelConfiguration (Maybe (ValList Text)) -csccSnsTopicArns = lens _chatbotSlackChannelConfigurationSnsTopicArns (\s a -> s { _chatbotSlackChannelConfigurationSnsTopicArns = a }) diff --git a/library-gen/Stratosphere/Resources/Cloud9EnvironmentEC2.hs b/library-gen/Stratosphere/Resources/Cloud9EnvironmentEC2.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/Cloud9EnvironmentEC2.hs +++ /dev/null @@ -1,99 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloud9-environmentec2.html - -module Stratosphere.Resources.Cloud9EnvironmentEC2 where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Cloud9EnvironmentEC2Repository -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for Cloud9EnvironmentEC2. See --- 'cloud9EnvironmentEC2' for a more convenient constructor. -data Cloud9EnvironmentEC2 = - Cloud9EnvironmentEC2 - { _cloud9EnvironmentEC2AutomaticStopTimeMinutes :: Maybe (Val Integer) - , _cloud9EnvironmentEC2ConnectionType :: Maybe (Val Text) - , _cloud9EnvironmentEC2Description :: Maybe (Val Text) - , _cloud9EnvironmentEC2InstanceType :: Val Text - , _cloud9EnvironmentEC2Name :: Maybe (Val Text) - , _cloud9EnvironmentEC2OwnerArn :: Maybe (Val Text) - , _cloud9EnvironmentEC2Repositories :: Maybe [Cloud9EnvironmentEC2Repository] - , _cloud9EnvironmentEC2SubnetId :: Maybe (Val Text) - , _cloud9EnvironmentEC2Tags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties Cloud9EnvironmentEC2 where - toResourceProperties Cloud9EnvironmentEC2{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Cloud9::EnvironmentEC2" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AutomaticStopTimeMinutes",) . toJSON) _cloud9EnvironmentEC2AutomaticStopTimeMinutes - , fmap (("ConnectionType",) . toJSON) _cloud9EnvironmentEC2ConnectionType - , fmap (("Description",) . toJSON) _cloud9EnvironmentEC2Description - , (Just . ("InstanceType",) . toJSON) _cloud9EnvironmentEC2InstanceType - , fmap (("Name",) . toJSON) _cloud9EnvironmentEC2Name - , fmap (("OwnerArn",) . toJSON) _cloud9EnvironmentEC2OwnerArn - , fmap (("Repositories",) . toJSON) _cloud9EnvironmentEC2Repositories - , fmap (("SubnetId",) . toJSON) _cloud9EnvironmentEC2SubnetId - , fmap (("Tags",) . toJSON) _cloud9EnvironmentEC2Tags - ] - } - --- | Constructor for 'Cloud9EnvironmentEC2' containing required fields as --- arguments. -cloud9EnvironmentEC2 - :: Val Text -- ^ 'ceecInstanceType' - -> Cloud9EnvironmentEC2 -cloud9EnvironmentEC2 instanceTypearg = - Cloud9EnvironmentEC2 - { _cloud9EnvironmentEC2AutomaticStopTimeMinutes = Nothing - , _cloud9EnvironmentEC2ConnectionType = Nothing - , _cloud9EnvironmentEC2Description = Nothing - , _cloud9EnvironmentEC2InstanceType = instanceTypearg - , _cloud9EnvironmentEC2Name = Nothing - , _cloud9EnvironmentEC2OwnerArn = Nothing - , _cloud9EnvironmentEC2Repositories = Nothing - , _cloud9EnvironmentEC2SubnetId = Nothing - , _cloud9EnvironmentEC2Tags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloud9-environmentec2.html#cfn-cloud9-environmentec2-automaticstoptimeminutes -ceecAutomaticStopTimeMinutes :: Lens' Cloud9EnvironmentEC2 (Maybe (Val Integer)) -ceecAutomaticStopTimeMinutes = lens _cloud9EnvironmentEC2AutomaticStopTimeMinutes (\s a -> s { _cloud9EnvironmentEC2AutomaticStopTimeMinutes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloud9-environmentec2.html#cfn-cloud9-environmentec2-connectiontype -ceecConnectionType :: Lens' Cloud9EnvironmentEC2 (Maybe (Val Text)) -ceecConnectionType = lens _cloud9EnvironmentEC2ConnectionType (\s a -> s { _cloud9EnvironmentEC2ConnectionType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloud9-environmentec2.html#cfn-cloud9-environmentec2-description -ceecDescription :: Lens' Cloud9EnvironmentEC2 (Maybe (Val Text)) -ceecDescription = lens _cloud9EnvironmentEC2Description (\s a -> s { _cloud9EnvironmentEC2Description = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloud9-environmentec2.html#cfn-cloud9-environmentec2-instancetype -ceecInstanceType :: Lens' Cloud9EnvironmentEC2 (Val Text) -ceecInstanceType = lens _cloud9EnvironmentEC2InstanceType (\s a -> s { _cloud9EnvironmentEC2InstanceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloud9-environmentec2.html#cfn-cloud9-environmentec2-name -ceecName :: Lens' Cloud9EnvironmentEC2 (Maybe (Val Text)) -ceecName = lens _cloud9EnvironmentEC2Name (\s a -> s { _cloud9EnvironmentEC2Name = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloud9-environmentec2.html#cfn-cloud9-environmentec2-ownerarn -ceecOwnerArn :: Lens' Cloud9EnvironmentEC2 (Maybe (Val Text)) -ceecOwnerArn = lens _cloud9EnvironmentEC2OwnerArn (\s a -> s { _cloud9EnvironmentEC2OwnerArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloud9-environmentec2.html#cfn-cloud9-environmentec2-repositories -ceecRepositories :: Lens' Cloud9EnvironmentEC2 (Maybe [Cloud9EnvironmentEC2Repository]) -ceecRepositories = lens _cloud9EnvironmentEC2Repositories (\s a -> s { _cloud9EnvironmentEC2Repositories = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloud9-environmentec2.html#cfn-cloud9-environmentec2-subnetid -ceecSubnetId :: Lens' Cloud9EnvironmentEC2 (Maybe (Val Text)) -ceecSubnetId = lens _cloud9EnvironmentEC2SubnetId (\s a -> s { _cloud9EnvironmentEC2SubnetId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloud9-environmentec2.html#cfn-cloud9-environmentec2-tags -ceecTags :: Lens' Cloud9EnvironmentEC2 (Maybe [Tag]) -ceecTags = lens _cloud9EnvironmentEC2Tags (\s a -> s { _cloud9EnvironmentEC2Tags = a }) diff --git a/library-gen/Stratosphere/Resources/CloudFormationCustomResource.hs b/library-gen/Stratosphere/Resources/CloudFormationCustomResource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CloudFormationCustomResource.hs +++ /dev/null @@ -1,42 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cfn-customresource.html - -module Stratosphere.Resources.CloudFormationCustomResource where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CloudFormationCustomResource. See --- 'cloudFormationCustomResource' for a more convenient constructor. -data CloudFormationCustomResource = - CloudFormationCustomResource - { _cloudFormationCustomResourceServiceToken :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties CloudFormationCustomResource where - toResourceProperties CloudFormationCustomResource{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CloudFormation::CustomResource" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ServiceToken",) . toJSON) _cloudFormationCustomResourceServiceToken - ] - } - --- | Constructor for 'CloudFormationCustomResource' containing required fields --- as arguments. -cloudFormationCustomResource - :: Val Text -- ^ 'cfcrServiceToken' - -> CloudFormationCustomResource -cloudFormationCustomResource serviceTokenarg = - CloudFormationCustomResource - { _cloudFormationCustomResourceServiceToken = serviceTokenarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cfn-customresource.html#cfn-customresource-servicetoken -cfcrServiceToken :: Lens' CloudFormationCustomResource (Val Text) -cfcrServiceToken = lens _cloudFormationCustomResourceServiceToken (\s a -> s { _cloudFormationCustomResourceServiceToken = a }) diff --git a/library-gen/Stratosphere/Resources/CloudFormationMacro.hs b/library-gen/Stratosphere/Resources/CloudFormationMacro.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CloudFormationMacro.hs +++ /dev/null @@ -1,71 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudformation-macro.html - -module Stratosphere.Resources.CloudFormationMacro where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CloudFormationMacro. See --- 'cloudFormationMacro' for a more convenient constructor. -data CloudFormationMacro = - CloudFormationMacro - { _cloudFormationMacroDescription :: Maybe (Val Text) - , _cloudFormationMacroFunctionName :: Val Text - , _cloudFormationMacroLogGroupName :: Maybe (Val Text) - , _cloudFormationMacroLogRoleARN :: Maybe (Val Text) - , _cloudFormationMacroName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties CloudFormationMacro where - toResourceProperties CloudFormationMacro{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CloudFormation::Macro" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _cloudFormationMacroDescription - , (Just . ("FunctionName",) . toJSON) _cloudFormationMacroFunctionName - , fmap (("LogGroupName",) . toJSON) _cloudFormationMacroLogGroupName - , fmap (("LogRoleARN",) . toJSON) _cloudFormationMacroLogRoleARN - , (Just . ("Name",) . toJSON) _cloudFormationMacroName - ] - } - --- | Constructor for 'CloudFormationMacro' containing required fields as --- arguments. -cloudFormationMacro - :: Val Text -- ^ 'cfmFunctionName' - -> Val Text -- ^ 'cfmName' - -> CloudFormationMacro -cloudFormationMacro functionNamearg namearg = - CloudFormationMacro - { _cloudFormationMacroDescription = Nothing - , _cloudFormationMacroFunctionName = functionNamearg - , _cloudFormationMacroLogGroupName = Nothing - , _cloudFormationMacroLogRoleARN = Nothing - , _cloudFormationMacroName = namearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudformation-macro.html#cfn-cloudformation-macro-description -cfmDescription :: Lens' CloudFormationMacro (Maybe (Val Text)) -cfmDescription = lens _cloudFormationMacroDescription (\s a -> s { _cloudFormationMacroDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudformation-macro.html#cfn-cloudformation-macro-functionname -cfmFunctionName :: Lens' CloudFormationMacro (Val Text) -cfmFunctionName = lens _cloudFormationMacroFunctionName (\s a -> s { _cloudFormationMacroFunctionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudformation-macro.html#cfn-cloudformation-macro-loggroupname -cfmLogGroupName :: Lens' CloudFormationMacro (Maybe (Val Text)) -cfmLogGroupName = lens _cloudFormationMacroLogGroupName (\s a -> s { _cloudFormationMacroLogGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudformation-macro.html#cfn-cloudformation-macro-logrolearn -cfmLogRoleARN :: Lens' CloudFormationMacro (Maybe (Val Text)) -cfmLogRoleARN = lens _cloudFormationMacroLogRoleARN (\s a -> s { _cloudFormationMacroLogRoleARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudformation-macro.html#cfn-cloudformation-macro-name -cfmName :: Lens' CloudFormationMacro (Val Text) -cfmName = lens _cloudFormationMacroName (\s a -> s { _cloudFormationMacroName = a }) diff --git a/library-gen/Stratosphere/Resources/CloudFormationStack.hs b/library-gen/Stratosphere/Resources/CloudFormationStack.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CloudFormationStack.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stack.html - -module Stratosphere.Resources.CloudFormationStack where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for CloudFormationStack. See --- 'cloudFormationStack' for a more convenient constructor. -data CloudFormationStack = - CloudFormationStack - { _cloudFormationStackNotificationARNs :: Maybe (ValList Text) - , _cloudFormationStackParameters :: Maybe Object - , _cloudFormationStackTags :: Maybe [Tag] - , _cloudFormationStackTemplateURL :: Val Text - , _cloudFormationStackTimeoutInMinutes :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToResourceProperties CloudFormationStack where - toResourceProperties CloudFormationStack{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CloudFormation::Stack" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("NotificationARNs",) . toJSON) _cloudFormationStackNotificationARNs - , fmap (("Parameters",) . toJSON) _cloudFormationStackParameters - , fmap (("Tags",) . toJSON) _cloudFormationStackTags - , (Just . ("TemplateURL",) . toJSON) _cloudFormationStackTemplateURL - , fmap (("TimeoutInMinutes",) . toJSON) _cloudFormationStackTimeoutInMinutes - ] - } - --- | Constructor for 'CloudFormationStack' containing required fields as --- arguments. -cloudFormationStack - :: Val Text -- ^ 'cfsTemplateURL' - -> CloudFormationStack -cloudFormationStack templateURLarg = - CloudFormationStack - { _cloudFormationStackNotificationARNs = Nothing - , _cloudFormationStackParameters = Nothing - , _cloudFormationStackTags = Nothing - , _cloudFormationStackTemplateURL = templateURLarg - , _cloudFormationStackTimeoutInMinutes = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stack.html#cfn-cloudformation-stack-notificationarns -cfsNotificationARNs :: Lens' CloudFormationStack (Maybe (ValList Text)) -cfsNotificationARNs = lens _cloudFormationStackNotificationARNs (\s a -> s { _cloudFormationStackNotificationARNs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stack.html#cfn-cloudformation-stack-parameters -cfsParameters :: Lens' CloudFormationStack (Maybe Object) -cfsParameters = lens _cloudFormationStackParameters (\s a -> s { _cloudFormationStackParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stack.html#cfn-cloudformation-stack-tags -cfsTags :: Lens' CloudFormationStack (Maybe [Tag]) -cfsTags = lens _cloudFormationStackTags (\s a -> s { _cloudFormationStackTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stack.html#cfn-cloudformation-stack-templateurl -cfsTemplateURL :: Lens' CloudFormationStack (Val Text) -cfsTemplateURL = lens _cloudFormationStackTemplateURL (\s a -> s { _cloudFormationStackTemplateURL = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-stack.html#cfn-cloudformation-stack-timeoutinminutes -cfsTimeoutInMinutes :: Lens' CloudFormationStack (Maybe (Val Integer)) -cfsTimeoutInMinutes = lens _cloudFormationStackTimeoutInMinutes (\s a -> s { _cloudFormationStackTimeoutInMinutes = a }) diff --git a/library-gen/Stratosphere/Resources/CloudFormationWaitCondition.hs b/library-gen/Stratosphere/Resources/CloudFormationWaitCondition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CloudFormationWaitCondition.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waitcondition.html - -module Stratosphere.Resources.CloudFormationWaitCondition where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CloudFormationWaitCondition. See --- 'cloudFormationWaitCondition' for a more convenient constructor. -data CloudFormationWaitCondition = - CloudFormationWaitCondition - { _cloudFormationWaitConditionCount :: Maybe (Val Integer) - , _cloudFormationWaitConditionHandle :: Maybe (Val Text) - , _cloudFormationWaitConditionTimeout :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties CloudFormationWaitCondition where - toResourceProperties CloudFormationWaitCondition{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CloudFormation::WaitCondition" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Count",) . toJSON) _cloudFormationWaitConditionCount - , fmap (("Handle",) . toJSON) _cloudFormationWaitConditionHandle - , fmap (("Timeout",) . toJSON) _cloudFormationWaitConditionTimeout - ] - } - --- | Constructor for 'CloudFormationWaitCondition' containing required fields --- as arguments. -cloudFormationWaitCondition - :: CloudFormationWaitCondition -cloudFormationWaitCondition = - CloudFormationWaitCondition - { _cloudFormationWaitConditionCount = Nothing - , _cloudFormationWaitConditionHandle = Nothing - , _cloudFormationWaitConditionTimeout = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waitcondition.html#cfn-waitcondition-count -cfwcCount :: Lens' CloudFormationWaitCondition (Maybe (Val Integer)) -cfwcCount = lens _cloudFormationWaitConditionCount (\s a -> s { _cloudFormationWaitConditionCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waitcondition.html#cfn-waitcondition-handle -cfwcHandle :: Lens' CloudFormationWaitCondition (Maybe (Val Text)) -cfwcHandle = lens _cloudFormationWaitConditionHandle (\s a -> s { _cloudFormationWaitConditionHandle = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waitcondition.html#cfn-waitcondition-timeout -cfwcTimeout :: Lens' CloudFormationWaitCondition (Maybe (Val Text)) -cfwcTimeout = lens _cloudFormationWaitConditionTimeout (\s a -> s { _cloudFormationWaitConditionTimeout = a }) diff --git a/library-gen/Stratosphere/Resources/CloudFormationWaitConditionHandle.hs b/library-gen/Stratosphere/Resources/CloudFormationWaitConditionHandle.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CloudFormationWaitConditionHandle.hs +++ /dev/null @@ -1,36 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-waitconditionhandle.html - -module Stratosphere.Resources.CloudFormationWaitConditionHandle where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CloudFormationWaitConditionHandle. See --- 'cloudFormationWaitConditionHandle' for a more convenient constructor. -data CloudFormationWaitConditionHandle = - CloudFormationWaitConditionHandle - { - } deriving (Show, Eq) - -instance ToResourceProperties CloudFormationWaitConditionHandle where - toResourceProperties _ = - ResourceProperties - { resourcePropertiesType = "AWS::CloudFormation::WaitConditionHandle" - , resourcePropertiesProperties = keyMapEmpty - } - --- | Constructor for 'CloudFormationWaitConditionHandle' containing required --- fields as arguments. -cloudFormationWaitConditionHandle - :: CloudFormationWaitConditionHandle -cloudFormationWaitConditionHandle = - CloudFormationWaitConditionHandle - { - } - - diff --git a/library-gen/Stratosphere/Resources/CloudFrontCachePolicy.hs b/library-gen/Stratosphere/Resources/CloudFrontCachePolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CloudFrontCachePolicy.hs +++ /dev/null @@ -1,42 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-cachepolicy.html - -module Stratosphere.Resources.CloudFrontCachePolicy where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CloudFrontCachePolicyCachePolicyConfig - --- | Full data type definition for CloudFrontCachePolicy. See --- 'cloudFrontCachePolicy' for a more convenient constructor. -data CloudFrontCachePolicy = - CloudFrontCachePolicy - { _cloudFrontCachePolicyCachePolicyConfig :: CloudFrontCachePolicyCachePolicyConfig - } deriving (Show, Eq) - -instance ToResourceProperties CloudFrontCachePolicy where - toResourceProperties CloudFrontCachePolicy{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CloudFront::CachePolicy" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("CachePolicyConfig",) . toJSON) _cloudFrontCachePolicyCachePolicyConfig - ] - } - --- | Constructor for 'CloudFrontCachePolicy' containing required fields as --- arguments. -cloudFrontCachePolicy - :: CloudFrontCachePolicyCachePolicyConfig -- ^ 'cfcpCachePolicyConfig' - -> CloudFrontCachePolicy -cloudFrontCachePolicy cachePolicyConfigarg = - CloudFrontCachePolicy - { _cloudFrontCachePolicyCachePolicyConfig = cachePolicyConfigarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-cachepolicy.html#cfn-cloudfront-cachepolicy-cachepolicyconfig -cfcpCachePolicyConfig :: Lens' CloudFrontCachePolicy CloudFrontCachePolicyCachePolicyConfig -cfcpCachePolicyConfig = lens _cloudFrontCachePolicyCachePolicyConfig (\s a -> s { _cloudFrontCachePolicyCachePolicyConfig = a }) diff --git a/library-gen/Stratosphere/Resources/CloudFrontCloudFrontOriginAccessIdentity.hs b/library-gen/Stratosphere/Resources/CloudFrontCloudFrontOriginAccessIdentity.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CloudFrontCloudFrontOriginAccessIdentity.hs +++ /dev/null @@ -1,43 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-cloudfrontoriginaccessidentity.html - -module Stratosphere.Resources.CloudFrontCloudFrontOriginAccessIdentity where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig - --- | Full data type definition for CloudFrontCloudFrontOriginAccessIdentity. --- See 'cloudFrontCloudFrontOriginAccessIdentity' for a more convenient --- constructor. -data CloudFrontCloudFrontOriginAccessIdentity = - CloudFrontCloudFrontOriginAccessIdentity - { _cloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig :: CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig - } deriving (Show, Eq) - -instance ToResourceProperties CloudFrontCloudFrontOriginAccessIdentity where - toResourceProperties CloudFrontCloudFrontOriginAccessIdentity{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CloudFront::CloudFrontOriginAccessIdentity" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("CloudFrontOriginAccessIdentityConfig",) . toJSON) _cloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig - ] - } - --- | Constructor for 'CloudFrontCloudFrontOriginAccessIdentity' containing --- required fields as arguments. -cloudFrontCloudFrontOriginAccessIdentity - :: CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig -- ^ 'cfcfoaiCloudFrontOriginAccessIdentityConfig' - -> CloudFrontCloudFrontOriginAccessIdentity -cloudFrontCloudFrontOriginAccessIdentity cloudFrontOriginAccessIdentityConfigarg = - CloudFrontCloudFrontOriginAccessIdentity - { _cloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig = cloudFrontOriginAccessIdentityConfigarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-cloudfrontoriginaccessidentity.html#cfn-cloudfront-cloudfrontoriginaccessidentity-cloudfrontoriginaccessidentityconfig -cfcfoaiCloudFrontOriginAccessIdentityConfig :: Lens' CloudFrontCloudFrontOriginAccessIdentity CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig -cfcfoaiCloudFrontOriginAccessIdentityConfig = lens _cloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig (\s a -> s { _cloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig = a }) diff --git a/library-gen/Stratosphere/Resources/CloudFrontDistribution.hs b/library-gen/Stratosphere/Resources/CloudFrontDistribution.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CloudFrontDistribution.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-distribution.html - -module Stratosphere.Resources.CloudFrontDistribution where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CloudFrontDistributionDistributionConfig -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for CloudFrontDistribution. See --- 'cloudFrontDistribution' for a more convenient constructor. -data CloudFrontDistribution = - CloudFrontDistribution - { _cloudFrontDistributionDistributionConfig :: CloudFrontDistributionDistributionConfig - , _cloudFrontDistributionTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties CloudFrontDistribution where - toResourceProperties CloudFrontDistribution{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CloudFront::Distribution" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("DistributionConfig",) . toJSON) _cloudFrontDistributionDistributionConfig - , fmap (("Tags",) . toJSON) _cloudFrontDistributionTags - ] - } - --- | Constructor for 'CloudFrontDistribution' containing required fields as --- arguments. -cloudFrontDistribution - :: CloudFrontDistributionDistributionConfig -- ^ 'cfdDistributionConfig' - -> CloudFrontDistribution -cloudFrontDistribution distributionConfigarg = - CloudFrontDistribution - { _cloudFrontDistributionDistributionConfig = distributionConfigarg - , _cloudFrontDistributionTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-distribution.html#cfn-cloudfront-distribution-distributionconfig -cfdDistributionConfig :: Lens' CloudFrontDistribution CloudFrontDistributionDistributionConfig -cfdDistributionConfig = lens _cloudFrontDistributionDistributionConfig (\s a -> s { _cloudFrontDistributionDistributionConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-distribution.html#cfn-cloudfront-distribution-tags -cfdTags :: Lens' CloudFrontDistribution (Maybe [Tag]) -cfdTags = lens _cloudFrontDistributionTags (\s a -> s { _cloudFrontDistributionTags = a }) diff --git a/library-gen/Stratosphere/Resources/CloudFrontOriginRequestPolicy.hs b/library-gen/Stratosphere/Resources/CloudFrontOriginRequestPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CloudFrontOriginRequestPolicy.hs +++ /dev/null @@ -1,42 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-originrequestpolicy.html - -module Stratosphere.Resources.CloudFrontOriginRequestPolicy where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CloudFrontOriginRequestPolicyOriginRequestPolicyConfig - --- | Full data type definition for CloudFrontOriginRequestPolicy. See --- 'cloudFrontOriginRequestPolicy' for a more convenient constructor. -data CloudFrontOriginRequestPolicy = - CloudFrontOriginRequestPolicy - { _cloudFrontOriginRequestPolicyOriginRequestPolicyConfig :: CloudFrontOriginRequestPolicyOriginRequestPolicyConfig - } deriving (Show, Eq) - -instance ToResourceProperties CloudFrontOriginRequestPolicy where - toResourceProperties CloudFrontOriginRequestPolicy{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CloudFront::OriginRequestPolicy" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("OriginRequestPolicyConfig",) . toJSON) _cloudFrontOriginRequestPolicyOriginRequestPolicyConfig - ] - } - --- | Constructor for 'CloudFrontOriginRequestPolicy' containing required --- fields as arguments. -cloudFrontOriginRequestPolicy - :: CloudFrontOriginRequestPolicyOriginRequestPolicyConfig -- ^ 'cforpOriginRequestPolicyConfig' - -> CloudFrontOriginRequestPolicy -cloudFrontOriginRequestPolicy originRequestPolicyConfigarg = - CloudFrontOriginRequestPolicy - { _cloudFrontOriginRequestPolicyOriginRequestPolicyConfig = originRequestPolicyConfigarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-originrequestpolicy.html#cfn-cloudfront-originrequestpolicy-originrequestpolicyconfig -cforpOriginRequestPolicyConfig :: Lens' CloudFrontOriginRequestPolicy CloudFrontOriginRequestPolicyOriginRequestPolicyConfig -cforpOriginRequestPolicyConfig = lens _cloudFrontOriginRequestPolicyOriginRequestPolicyConfig (\s a -> s { _cloudFrontOriginRequestPolicyOriginRequestPolicyConfig = a }) diff --git a/library-gen/Stratosphere/Resources/CloudFrontRealtimeLogConfig.hs b/library-gen/Stratosphere/Resources/CloudFrontRealtimeLogConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CloudFrontRealtimeLogConfig.hs +++ /dev/null @@ -1,66 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-realtimelogconfig.html - -module Stratosphere.Resources.CloudFrontRealtimeLogConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CloudFrontRealtimeLogConfigEndPoint - --- | Full data type definition for CloudFrontRealtimeLogConfig. See --- 'cloudFrontRealtimeLogConfig' for a more convenient constructor. -data CloudFrontRealtimeLogConfig = - CloudFrontRealtimeLogConfig - { _cloudFrontRealtimeLogConfigEndPoints :: [CloudFrontRealtimeLogConfigEndPoint] - , _cloudFrontRealtimeLogConfigFields :: ValList Text - , _cloudFrontRealtimeLogConfigName :: Val Text - , _cloudFrontRealtimeLogConfigSamplingRate :: Val Double - } deriving (Show, Eq) - -instance ToResourceProperties CloudFrontRealtimeLogConfig where - toResourceProperties CloudFrontRealtimeLogConfig{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CloudFront::RealtimeLogConfig" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("EndPoints",) . toJSON) _cloudFrontRealtimeLogConfigEndPoints - , (Just . ("Fields",) . toJSON) _cloudFrontRealtimeLogConfigFields - , (Just . ("Name",) . toJSON) _cloudFrontRealtimeLogConfigName - , (Just . ("SamplingRate",) . toJSON) _cloudFrontRealtimeLogConfigSamplingRate - ] - } - --- | Constructor for 'CloudFrontRealtimeLogConfig' containing required fields --- as arguments. -cloudFrontRealtimeLogConfig - :: [CloudFrontRealtimeLogConfigEndPoint] -- ^ 'cfrlcEndPoints' - -> ValList Text -- ^ 'cfrlcFields' - -> Val Text -- ^ 'cfrlcName' - -> Val Double -- ^ 'cfrlcSamplingRate' - -> CloudFrontRealtimeLogConfig -cloudFrontRealtimeLogConfig endPointsarg fieldsarg namearg samplingRatearg = - CloudFrontRealtimeLogConfig - { _cloudFrontRealtimeLogConfigEndPoints = endPointsarg - , _cloudFrontRealtimeLogConfigFields = fieldsarg - , _cloudFrontRealtimeLogConfigName = namearg - , _cloudFrontRealtimeLogConfigSamplingRate = samplingRatearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-realtimelogconfig.html#cfn-cloudfront-realtimelogconfig-endpoints -cfrlcEndPoints :: Lens' CloudFrontRealtimeLogConfig [CloudFrontRealtimeLogConfigEndPoint] -cfrlcEndPoints = lens _cloudFrontRealtimeLogConfigEndPoints (\s a -> s { _cloudFrontRealtimeLogConfigEndPoints = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-realtimelogconfig.html#cfn-cloudfront-realtimelogconfig-fields -cfrlcFields :: Lens' CloudFrontRealtimeLogConfig (ValList Text) -cfrlcFields = lens _cloudFrontRealtimeLogConfigFields (\s a -> s { _cloudFrontRealtimeLogConfigFields = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-realtimelogconfig.html#cfn-cloudfront-realtimelogconfig-name -cfrlcName :: Lens' CloudFrontRealtimeLogConfig (Val Text) -cfrlcName = lens _cloudFrontRealtimeLogConfigName (\s a -> s { _cloudFrontRealtimeLogConfigName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-realtimelogconfig.html#cfn-cloudfront-realtimelogconfig-samplingrate -cfrlcSamplingRate :: Lens' CloudFrontRealtimeLogConfig (Val Double) -cfrlcSamplingRate = lens _cloudFrontRealtimeLogConfigSamplingRate (\s a -> s { _cloudFrontRealtimeLogConfigSamplingRate = a }) diff --git a/library-gen/Stratosphere/Resources/CloudFrontStreamingDistribution.hs b/library-gen/Stratosphere/Resources/CloudFrontStreamingDistribution.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CloudFrontStreamingDistribution.hs +++ /dev/null @@ -1,51 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-streamingdistribution.html - -module Stratosphere.Resources.CloudFrontStreamingDistribution where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CloudFrontStreamingDistributionStreamingDistributionConfig -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for CloudFrontStreamingDistribution. See --- 'cloudFrontStreamingDistribution' for a more convenient constructor. -data CloudFrontStreamingDistribution = - CloudFrontStreamingDistribution - { _cloudFrontStreamingDistributionStreamingDistributionConfig :: CloudFrontStreamingDistributionStreamingDistributionConfig - , _cloudFrontStreamingDistributionTags :: [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties CloudFrontStreamingDistribution where - toResourceProperties CloudFrontStreamingDistribution{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CloudFront::StreamingDistribution" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("StreamingDistributionConfig",) . toJSON) _cloudFrontStreamingDistributionStreamingDistributionConfig - , (Just . ("Tags",) . toJSON) _cloudFrontStreamingDistributionTags - ] - } - --- | Constructor for 'CloudFrontStreamingDistribution' containing required --- fields as arguments. -cloudFrontStreamingDistribution - :: CloudFrontStreamingDistributionStreamingDistributionConfig -- ^ 'cfsdStreamingDistributionConfig' - -> [Tag] -- ^ 'cfsdTags' - -> CloudFrontStreamingDistribution -cloudFrontStreamingDistribution streamingDistributionConfigarg tagsarg = - CloudFrontStreamingDistribution - { _cloudFrontStreamingDistributionStreamingDistributionConfig = streamingDistributionConfigarg - , _cloudFrontStreamingDistributionTags = tagsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-streamingdistribution.html#cfn-cloudfront-streamingdistribution-streamingdistributionconfig -cfsdStreamingDistributionConfig :: Lens' CloudFrontStreamingDistribution CloudFrontStreamingDistributionStreamingDistributionConfig -cfsdStreamingDistributionConfig = lens _cloudFrontStreamingDistributionStreamingDistributionConfig (\s a -> s { _cloudFrontStreamingDistributionStreamingDistributionConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudfront-streamingdistribution.html#cfn-cloudfront-streamingdistribution-tags -cfsdTags :: Lens' CloudFrontStreamingDistribution [Tag] -cfsdTags = lens _cloudFrontStreamingDistributionTags (\s a -> s { _cloudFrontStreamingDistributionTags = a }) diff --git a/library-gen/Stratosphere/Resources/CloudTrailTrail.hs b/library-gen/Stratosphere/Resources/CloudTrailTrail.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CloudTrailTrail.hs +++ /dev/null @@ -1,128 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudtrail-trail.html - -module Stratosphere.Resources.CloudTrailTrail where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CloudTrailTrailEventSelector -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for CloudTrailTrail. See 'cloudTrailTrail' for --- a more convenient constructor. -data CloudTrailTrail = - CloudTrailTrail - { _cloudTrailTrailCloudWatchLogsLogGroupArn :: Maybe (Val Text) - , _cloudTrailTrailCloudWatchLogsRoleArn :: Maybe (Val Text) - , _cloudTrailTrailEnableLogFileValidation :: Maybe (Val Bool) - , _cloudTrailTrailEventSelectors :: Maybe [CloudTrailTrailEventSelector] - , _cloudTrailTrailIncludeGlobalServiceEvents :: Maybe (Val Bool) - , _cloudTrailTrailIsLogging :: Val Bool - , _cloudTrailTrailIsMultiRegionTrail :: Maybe (Val Bool) - , _cloudTrailTrailKMSKeyId :: Maybe (Val Text) - , _cloudTrailTrailS3BucketName :: Val Text - , _cloudTrailTrailS3KeyPrefix :: Maybe (Val Text) - , _cloudTrailTrailSnsTopicName :: Maybe (Val Text) - , _cloudTrailTrailTags :: Maybe [Tag] - , _cloudTrailTrailTrailName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties CloudTrailTrail where - toResourceProperties CloudTrailTrail{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CloudTrail::Trail" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("CloudWatchLogsLogGroupArn",) . toJSON) _cloudTrailTrailCloudWatchLogsLogGroupArn - , fmap (("CloudWatchLogsRoleArn",) . toJSON) _cloudTrailTrailCloudWatchLogsRoleArn - , fmap (("EnableLogFileValidation",) . toJSON) _cloudTrailTrailEnableLogFileValidation - , fmap (("EventSelectors",) . toJSON) _cloudTrailTrailEventSelectors - , fmap (("IncludeGlobalServiceEvents",) . toJSON) _cloudTrailTrailIncludeGlobalServiceEvents - , (Just . ("IsLogging",) . toJSON) _cloudTrailTrailIsLogging - , fmap (("IsMultiRegionTrail",) . toJSON) _cloudTrailTrailIsMultiRegionTrail - , fmap (("KMSKeyId",) . toJSON) _cloudTrailTrailKMSKeyId - , (Just . ("S3BucketName",) . toJSON) _cloudTrailTrailS3BucketName - , fmap (("S3KeyPrefix",) . toJSON) _cloudTrailTrailS3KeyPrefix - , fmap (("SnsTopicName",) . toJSON) _cloudTrailTrailSnsTopicName - , fmap (("Tags",) . toJSON) _cloudTrailTrailTags - , fmap (("TrailName",) . toJSON) _cloudTrailTrailTrailName - ] - } - --- | Constructor for 'CloudTrailTrail' containing required fields as --- arguments. -cloudTrailTrail - :: Val Bool -- ^ 'cttIsLogging' - -> Val Text -- ^ 'cttS3BucketName' - -> CloudTrailTrail -cloudTrailTrail isLoggingarg s3BucketNamearg = - CloudTrailTrail - { _cloudTrailTrailCloudWatchLogsLogGroupArn = Nothing - , _cloudTrailTrailCloudWatchLogsRoleArn = Nothing - , _cloudTrailTrailEnableLogFileValidation = Nothing - , _cloudTrailTrailEventSelectors = Nothing - , _cloudTrailTrailIncludeGlobalServiceEvents = Nothing - , _cloudTrailTrailIsLogging = isLoggingarg - , _cloudTrailTrailIsMultiRegionTrail = Nothing - , _cloudTrailTrailKMSKeyId = Nothing - , _cloudTrailTrailS3BucketName = s3BucketNamearg - , _cloudTrailTrailS3KeyPrefix = Nothing - , _cloudTrailTrailSnsTopicName = Nothing - , _cloudTrailTrailTags = Nothing - , _cloudTrailTrailTrailName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudtrail-trail.html#cfn-cloudtrail-trail-cloudwatchlogsloggrouparn -cttCloudWatchLogsLogGroupArn :: Lens' CloudTrailTrail (Maybe (Val Text)) -cttCloudWatchLogsLogGroupArn = lens _cloudTrailTrailCloudWatchLogsLogGroupArn (\s a -> s { _cloudTrailTrailCloudWatchLogsLogGroupArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudtrail-trail.html#cfn-cloudtrail-trail-cloudwatchlogsrolearn -cttCloudWatchLogsRoleArn :: Lens' CloudTrailTrail (Maybe (Val Text)) -cttCloudWatchLogsRoleArn = lens _cloudTrailTrailCloudWatchLogsRoleArn (\s a -> s { _cloudTrailTrailCloudWatchLogsRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudtrail-trail.html#cfn-cloudtrail-trail-enablelogfilevalidation -cttEnableLogFileValidation :: Lens' CloudTrailTrail (Maybe (Val Bool)) -cttEnableLogFileValidation = lens _cloudTrailTrailEnableLogFileValidation (\s a -> s { _cloudTrailTrailEnableLogFileValidation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudtrail-trail.html#cfn-cloudtrail-trail-eventselectors -cttEventSelectors :: Lens' CloudTrailTrail (Maybe [CloudTrailTrailEventSelector]) -cttEventSelectors = lens _cloudTrailTrailEventSelectors (\s a -> s { _cloudTrailTrailEventSelectors = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudtrail-trail.html#cfn-cloudtrail-trail-includeglobalserviceevents -cttIncludeGlobalServiceEvents :: Lens' CloudTrailTrail (Maybe (Val Bool)) -cttIncludeGlobalServiceEvents = lens _cloudTrailTrailIncludeGlobalServiceEvents (\s a -> s { _cloudTrailTrailIncludeGlobalServiceEvents = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudtrail-trail.html#cfn-cloudtrail-trail-islogging -cttIsLogging :: Lens' CloudTrailTrail (Val Bool) -cttIsLogging = lens _cloudTrailTrailIsLogging (\s a -> s { _cloudTrailTrailIsLogging = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudtrail-trail.html#cfn-cloudtrail-trail-ismultiregiontrail -cttIsMultiRegionTrail :: Lens' CloudTrailTrail (Maybe (Val Bool)) -cttIsMultiRegionTrail = lens _cloudTrailTrailIsMultiRegionTrail (\s a -> s { _cloudTrailTrailIsMultiRegionTrail = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudtrail-trail.html#cfn-cloudtrail-trail-kmskeyid -cttKMSKeyId :: Lens' CloudTrailTrail (Maybe (Val Text)) -cttKMSKeyId = lens _cloudTrailTrailKMSKeyId (\s a -> s { _cloudTrailTrailKMSKeyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudtrail-trail.html#cfn-cloudtrail-trail-s3bucketname -cttS3BucketName :: Lens' CloudTrailTrail (Val Text) -cttS3BucketName = lens _cloudTrailTrailS3BucketName (\s a -> s { _cloudTrailTrailS3BucketName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudtrail-trail.html#cfn-cloudtrail-trail-s3keyprefix -cttS3KeyPrefix :: Lens' CloudTrailTrail (Maybe (Val Text)) -cttS3KeyPrefix = lens _cloudTrailTrailS3KeyPrefix (\s a -> s { _cloudTrailTrailS3KeyPrefix = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudtrail-trail.html#cfn-cloudtrail-trail-snstopicname -cttSnsTopicName :: Lens' CloudTrailTrail (Maybe (Val Text)) -cttSnsTopicName = lens _cloudTrailTrailSnsTopicName (\s a -> s { _cloudTrailTrailSnsTopicName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudtrail-trail.html#cfn-cloudtrail-trail-tags -cttTags :: Lens' CloudTrailTrail (Maybe [Tag]) -cttTags = lens _cloudTrailTrailTags (\s a -> s { _cloudTrailTrailTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudtrail-trail.html#cfn-cloudtrail-trail-trailname -cttTrailName :: Lens' CloudTrailTrail (Maybe (Val Text)) -cttTrailName = lens _cloudTrailTrailTrailName (\s a -> s { _cloudTrailTrailTrailName = a }) diff --git a/library-gen/Stratosphere/Resources/CloudWatchAlarm.hs b/library-gen/Stratosphere/Resources/CloudWatchAlarm.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CloudWatchAlarm.hs +++ /dev/null @@ -1,184 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html - -module Stratosphere.Resources.CloudWatchAlarm where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CloudWatchAlarmDimension -import Stratosphere.ResourceProperties.CloudWatchAlarmMetricDataQuery - --- | Full data type definition for CloudWatchAlarm. See 'cloudWatchAlarm' for --- a more convenient constructor. -data CloudWatchAlarm = - CloudWatchAlarm - { _cloudWatchAlarmActionsEnabled :: Maybe (Val Bool) - , _cloudWatchAlarmAlarmActions :: Maybe (ValList Text) - , _cloudWatchAlarmAlarmDescription :: Maybe (Val Text) - , _cloudWatchAlarmAlarmName :: Maybe (Val Text) - , _cloudWatchAlarmComparisonOperator :: Val Text - , _cloudWatchAlarmDatapointsToAlarm :: Maybe (Val Integer) - , _cloudWatchAlarmDimensions :: Maybe [CloudWatchAlarmDimension] - , _cloudWatchAlarmEvaluateLowSampleCountPercentile :: Maybe (Val Text) - , _cloudWatchAlarmEvaluationPeriods :: Val Integer - , _cloudWatchAlarmExtendedStatistic :: Maybe (Val Text) - , _cloudWatchAlarmInsufficientDataActions :: Maybe (ValList Text) - , _cloudWatchAlarmMetricName :: Maybe (Val Text) - , _cloudWatchAlarmMetrics :: Maybe [CloudWatchAlarmMetricDataQuery] - , _cloudWatchAlarmNamespace :: Maybe (Val Text) - , _cloudWatchAlarmOKActions :: Maybe (ValList Text) - , _cloudWatchAlarmPeriod :: Maybe (Val Integer) - , _cloudWatchAlarmStatistic :: Maybe (Val Text) - , _cloudWatchAlarmThreshold :: Maybe (Val Double) - , _cloudWatchAlarmThresholdMetricId :: Maybe (Val Text) - , _cloudWatchAlarmTreatMissingData :: Maybe (Val Text) - , _cloudWatchAlarmUnit :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties CloudWatchAlarm where - toResourceProperties CloudWatchAlarm{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CloudWatch::Alarm" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ActionsEnabled",) . toJSON) _cloudWatchAlarmActionsEnabled - , fmap (("AlarmActions",) . toJSON) _cloudWatchAlarmAlarmActions - , fmap (("AlarmDescription",) . toJSON) _cloudWatchAlarmAlarmDescription - , fmap (("AlarmName",) . toJSON) _cloudWatchAlarmAlarmName - , (Just . ("ComparisonOperator",) . toJSON) _cloudWatchAlarmComparisonOperator - , fmap (("DatapointsToAlarm",) . toJSON) _cloudWatchAlarmDatapointsToAlarm - , fmap (("Dimensions",) . toJSON) _cloudWatchAlarmDimensions - , fmap (("EvaluateLowSampleCountPercentile",) . toJSON) _cloudWatchAlarmEvaluateLowSampleCountPercentile - , (Just . ("EvaluationPeriods",) . toJSON) _cloudWatchAlarmEvaluationPeriods - , fmap (("ExtendedStatistic",) . toJSON) _cloudWatchAlarmExtendedStatistic - , fmap (("InsufficientDataActions",) . toJSON) _cloudWatchAlarmInsufficientDataActions - , fmap (("MetricName",) . toJSON) _cloudWatchAlarmMetricName - , fmap (("Metrics",) . toJSON) _cloudWatchAlarmMetrics - , fmap (("Namespace",) . toJSON) _cloudWatchAlarmNamespace - , fmap (("OKActions",) . toJSON) _cloudWatchAlarmOKActions - , fmap (("Period",) . toJSON) _cloudWatchAlarmPeriod - , fmap (("Statistic",) . toJSON) _cloudWatchAlarmStatistic - , fmap (("Threshold",) . toJSON) _cloudWatchAlarmThreshold - , fmap (("ThresholdMetricId",) . toJSON) _cloudWatchAlarmThresholdMetricId - , fmap (("TreatMissingData",) . toJSON) _cloudWatchAlarmTreatMissingData - , fmap (("Unit",) . toJSON) _cloudWatchAlarmUnit - ] - } - --- | Constructor for 'CloudWatchAlarm' containing required fields as --- arguments. -cloudWatchAlarm - :: Val Text -- ^ 'cwaComparisonOperator' - -> Val Integer -- ^ 'cwaEvaluationPeriods' - -> CloudWatchAlarm -cloudWatchAlarm comparisonOperatorarg evaluationPeriodsarg = - CloudWatchAlarm - { _cloudWatchAlarmActionsEnabled = Nothing - , _cloudWatchAlarmAlarmActions = Nothing - , _cloudWatchAlarmAlarmDescription = Nothing - , _cloudWatchAlarmAlarmName = Nothing - , _cloudWatchAlarmComparisonOperator = comparisonOperatorarg - , _cloudWatchAlarmDatapointsToAlarm = Nothing - , _cloudWatchAlarmDimensions = Nothing - , _cloudWatchAlarmEvaluateLowSampleCountPercentile = Nothing - , _cloudWatchAlarmEvaluationPeriods = evaluationPeriodsarg - , _cloudWatchAlarmExtendedStatistic = Nothing - , _cloudWatchAlarmInsufficientDataActions = Nothing - , _cloudWatchAlarmMetricName = Nothing - , _cloudWatchAlarmMetrics = Nothing - , _cloudWatchAlarmNamespace = Nothing - , _cloudWatchAlarmOKActions = Nothing - , _cloudWatchAlarmPeriod = Nothing - , _cloudWatchAlarmStatistic = Nothing - , _cloudWatchAlarmThreshold = Nothing - , _cloudWatchAlarmThresholdMetricId = Nothing - , _cloudWatchAlarmTreatMissingData = Nothing - , _cloudWatchAlarmUnit = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarms-actionsenabled -cwaActionsEnabled :: Lens' CloudWatchAlarm (Maybe (Val Bool)) -cwaActionsEnabled = lens _cloudWatchAlarmActionsEnabled (\s a -> s { _cloudWatchAlarmActionsEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarms-alarmactions -cwaAlarmActions :: Lens' CloudWatchAlarm (Maybe (ValList Text)) -cwaAlarmActions = lens _cloudWatchAlarmAlarmActions (\s a -> s { _cloudWatchAlarmAlarmActions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarms-alarmdescription -cwaAlarmDescription :: Lens' CloudWatchAlarm (Maybe (Val Text)) -cwaAlarmDescription = lens _cloudWatchAlarmAlarmDescription (\s a -> s { _cloudWatchAlarmAlarmDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarms-alarmname -cwaAlarmName :: Lens' CloudWatchAlarm (Maybe (Val Text)) -cwaAlarmName = lens _cloudWatchAlarmAlarmName (\s a -> s { _cloudWatchAlarmAlarmName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarms-comparisonoperator -cwaComparisonOperator :: Lens' CloudWatchAlarm (Val Text) -cwaComparisonOperator = lens _cloudWatchAlarmComparisonOperator (\s a -> s { _cloudWatchAlarmComparisonOperator = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarm-datapointstoalarm -cwaDatapointsToAlarm :: Lens' CloudWatchAlarm (Maybe (Val Integer)) -cwaDatapointsToAlarm = lens _cloudWatchAlarmDatapointsToAlarm (\s a -> s { _cloudWatchAlarmDatapointsToAlarm = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarms-dimension -cwaDimensions :: Lens' CloudWatchAlarm (Maybe [CloudWatchAlarmDimension]) -cwaDimensions = lens _cloudWatchAlarmDimensions (\s a -> s { _cloudWatchAlarmDimensions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarms-evaluatelowsamplecountpercentile -cwaEvaluateLowSampleCountPercentile :: Lens' CloudWatchAlarm (Maybe (Val Text)) -cwaEvaluateLowSampleCountPercentile = lens _cloudWatchAlarmEvaluateLowSampleCountPercentile (\s a -> s { _cloudWatchAlarmEvaluateLowSampleCountPercentile = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarms-evaluationperiods -cwaEvaluationPeriods :: Lens' CloudWatchAlarm (Val Integer) -cwaEvaluationPeriods = lens _cloudWatchAlarmEvaluationPeriods (\s a -> s { _cloudWatchAlarmEvaluationPeriods = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarms-extendedstatistic -cwaExtendedStatistic :: Lens' CloudWatchAlarm (Maybe (Val Text)) -cwaExtendedStatistic = lens _cloudWatchAlarmExtendedStatistic (\s a -> s { _cloudWatchAlarmExtendedStatistic = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarms-insufficientdataactions -cwaInsufficientDataActions :: Lens' CloudWatchAlarm (Maybe (ValList Text)) -cwaInsufficientDataActions = lens _cloudWatchAlarmInsufficientDataActions (\s a -> s { _cloudWatchAlarmInsufficientDataActions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarms-metricname -cwaMetricName :: Lens' CloudWatchAlarm (Maybe (Val Text)) -cwaMetricName = lens _cloudWatchAlarmMetricName (\s a -> s { _cloudWatchAlarmMetricName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarm-metrics -cwaMetrics :: Lens' CloudWatchAlarm (Maybe [CloudWatchAlarmMetricDataQuery]) -cwaMetrics = lens _cloudWatchAlarmMetrics (\s a -> s { _cloudWatchAlarmMetrics = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarms-namespace -cwaNamespace :: Lens' CloudWatchAlarm (Maybe (Val Text)) -cwaNamespace = lens _cloudWatchAlarmNamespace (\s a -> s { _cloudWatchAlarmNamespace = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarms-okactions -cwaOKActions :: Lens' CloudWatchAlarm (Maybe (ValList Text)) -cwaOKActions = lens _cloudWatchAlarmOKActions (\s a -> s { _cloudWatchAlarmOKActions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarms-period -cwaPeriod :: Lens' CloudWatchAlarm (Maybe (Val Integer)) -cwaPeriod = lens _cloudWatchAlarmPeriod (\s a -> s { _cloudWatchAlarmPeriod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarms-statistic -cwaStatistic :: Lens' CloudWatchAlarm (Maybe (Val Text)) -cwaStatistic = lens _cloudWatchAlarmStatistic (\s a -> s { _cloudWatchAlarmStatistic = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarms-threshold -cwaThreshold :: Lens' CloudWatchAlarm (Maybe (Val Double)) -cwaThreshold = lens _cloudWatchAlarmThreshold (\s a -> s { _cloudWatchAlarmThreshold = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarms-dynamic-threshold -cwaThresholdMetricId :: Lens' CloudWatchAlarm (Maybe (Val Text)) -cwaThresholdMetricId = lens _cloudWatchAlarmThresholdMetricId (\s a -> s { _cloudWatchAlarmThresholdMetricId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarms-treatmissingdata -cwaTreatMissingData :: Lens' CloudWatchAlarm (Maybe (Val Text)) -cwaTreatMissingData = lens _cloudWatchAlarmTreatMissingData (\s a -> s { _cloudWatchAlarmTreatMissingData = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cw-alarm.html#cfn-cloudwatch-alarms-unit -cwaUnit :: Lens' CloudWatchAlarm (Maybe (Val Text)) -cwaUnit = lens _cloudWatchAlarmUnit (\s a -> s { _cloudWatchAlarmUnit = a }) diff --git a/library-gen/Stratosphere/Resources/CloudWatchAnomalyDetector.hs b/library-gen/Stratosphere/Resources/CloudWatchAnomalyDetector.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CloudWatchAnomalyDetector.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudwatch-anomalydetector.html - -module Stratosphere.Resources.CloudWatchAnomalyDetector where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CloudWatchAnomalyDetectorConfiguration -import Stratosphere.ResourceProperties.CloudWatchAnomalyDetectorDimension - --- | Full data type definition for CloudWatchAnomalyDetector. See --- 'cloudWatchAnomalyDetector' for a more convenient constructor. -data CloudWatchAnomalyDetector = - CloudWatchAnomalyDetector - { _cloudWatchAnomalyDetectorConfiguration :: Maybe CloudWatchAnomalyDetectorConfiguration - , _cloudWatchAnomalyDetectorDimensions :: Maybe [CloudWatchAnomalyDetectorDimension] - , _cloudWatchAnomalyDetectorMetricName :: Val Text - , _cloudWatchAnomalyDetectorNamespace :: Val Text - , _cloudWatchAnomalyDetectorStat :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties CloudWatchAnomalyDetector where - toResourceProperties CloudWatchAnomalyDetector{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CloudWatch::AnomalyDetector" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Configuration",) . toJSON) _cloudWatchAnomalyDetectorConfiguration - , fmap (("Dimensions",) . toJSON) _cloudWatchAnomalyDetectorDimensions - , (Just . ("MetricName",) . toJSON) _cloudWatchAnomalyDetectorMetricName - , (Just . ("Namespace",) . toJSON) _cloudWatchAnomalyDetectorNamespace - , (Just . ("Stat",) . toJSON) _cloudWatchAnomalyDetectorStat - ] - } - --- | Constructor for 'CloudWatchAnomalyDetector' containing required fields as --- arguments. -cloudWatchAnomalyDetector - :: Val Text -- ^ 'cwadMetricName' - -> Val Text -- ^ 'cwadNamespace' - -> Val Text -- ^ 'cwadStat' - -> CloudWatchAnomalyDetector -cloudWatchAnomalyDetector metricNamearg namespacearg statarg = - CloudWatchAnomalyDetector - { _cloudWatchAnomalyDetectorConfiguration = Nothing - , _cloudWatchAnomalyDetectorDimensions = Nothing - , _cloudWatchAnomalyDetectorMetricName = metricNamearg - , _cloudWatchAnomalyDetectorNamespace = namespacearg - , _cloudWatchAnomalyDetectorStat = statarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudwatch-anomalydetector.html#cfn-cloudwatch-anomalydetector-configuration -cwadConfiguration :: Lens' CloudWatchAnomalyDetector (Maybe CloudWatchAnomalyDetectorConfiguration) -cwadConfiguration = lens _cloudWatchAnomalyDetectorConfiguration (\s a -> s { _cloudWatchAnomalyDetectorConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudwatch-anomalydetector.html#cfn-cloudwatch-anomalydetector-dimensions -cwadDimensions :: Lens' CloudWatchAnomalyDetector (Maybe [CloudWatchAnomalyDetectorDimension]) -cwadDimensions = lens _cloudWatchAnomalyDetectorDimensions (\s a -> s { _cloudWatchAnomalyDetectorDimensions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudwatch-anomalydetector.html#cfn-cloudwatch-anomalydetector-metricname -cwadMetricName :: Lens' CloudWatchAnomalyDetector (Val Text) -cwadMetricName = lens _cloudWatchAnomalyDetectorMetricName (\s a -> s { _cloudWatchAnomalyDetectorMetricName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudwatch-anomalydetector.html#cfn-cloudwatch-anomalydetector-namespace -cwadNamespace :: Lens' CloudWatchAnomalyDetector (Val Text) -cwadNamespace = lens _cloudWatchAnomalyDetectorNamespace (\s a -> s { _cloudWatchAnomalyDetectorNamespace = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudwatch-anomalydetector.html#cfn-cloudwatch-anomalydetector-stat -cwadStat :: Lens' CloudWatchAnomalyDetector (Val Text) -cwadStat = lens _cloudWatchAnomalyDetectorStat (\s a -> s { _cloudWatchAnomalyDetectorStat = a }) diff --git a/library-gen/Stratosphere/Resources/CloudWatchCompositeAlarm.hs b/library-gen/Stratosphere/Resources/CloudWatchCompositeAlarm.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CloudWatchCompositeAlarm.hs +++ /dev/null @@ -1,85 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudwatch-compositealarm.html - -module Stratosphere.Resources.CloudWatchCompositeAlarm where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CloudWatchCompositeAlarm. See --- 'cloudWatchCompositeAlarm' for a more convenient constructor. -data CloudWatchCompositeAlarm = - CloudWatchCompositeAlarm - { _cloudWatchCompositeAlarmActionsEnabled :: Maybe (Val Bool) - , _cloudWatchCompositeAlarmAlarmActions :: Maybe (ValList Text) - , _cloudWatchCompositeAlarmAlarmDescription :: Maybe (Val Text) - , _cloudWatchCompositeAlarmAlarmName :: Val Text - , _cloudWatchCompositeAlarmAlarmRule :: Val Text - , _cloudWatchCompositeAlarmInsufficientDataActions :: Maybe (ValList Text) - , _cloudWatchCompositeAlarmOKActions :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToResourceProperties CloudWatchCompositeAlarm where - toResourceProperties CloudWatchCompositeAlarm{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CloudWatch::CompositeAlarm" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ActionsEnabled",) . toJSON) _cloudWatchCompositeAlarmActionsEnabled - , fmap (("AlarmActions",) . toJSON) _cloudWatchCompositeAlarmAlarmActions - , fmap (("AlarmDescription",) . toJSON) _cloudWatchCompositeAlarmAlarmDescription - , (Just . ("AlarmName",) . toJSON) _cloudWatchCompositeAlarmAlarmName - , (Just . ("AlarmRule",) . toJSON) _cloudWatchCompositeAlarmAlarmRule - , fmap (("InsufficientDataActions",) . toJSON) _cloudWatchCompositeAlarmInsufficientDataActions - , fmap (("OKActions",) . toJSON) _cloudWatchCompositeAlarmOKActions - ] - } - --- | Constructor for 'CloudWatchCompositeAlarm' containing required fields as --- arguments. -cloudWatchCompositeAlarm - :: Val Text -- ^ 'cwcaAlarmName' - -> Val Text -- ^ 'cwcaAlarmRule' - -> CloudWatchCompositeAlarm -cloudWatchCompositeAlarm alarmNamearg alarmRulearg = - CloudWatchCompositeAlarm - { _cloudWatchCompositeAlarmActionsEnabled = Nothing - , _cloudWatchCompositeAlarmAlarmActions = Nothing - , _cloudWatchCompositeAlarmAlarmDescription = Nothing - , _cloudWatchCompositeAlarmAlarmName = alarmNamearg - , _cloudWatchCompositeAlarmAlarmRule = alarmRulearg - , _cloudWatchCompositeAlarmInsufficientDataActions = Nothing - , _cloudWatchCompositeAlarmOKActions = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudwatch-compositealarm.html#cfn-cloudwatch-compositealarm-actionsenabled -cwcaActionsEnabled :: Lens' CloudWatchCompositeAlarm (Maybe (Val Bool)) -cwcaActionsEnabled = lens _cloudWatchCompositeAlarmActionsEnabled (\s a -> s { _cloudWatchCompositeAlarmActionsEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudwatch-compositealarm.html#cfn-cloudwatch-compositealarm-alarmactions -cwcaAlarmActions :: Lens' CloudWatchCompositeAlarm (Maybe (ValList Text)) -cwcaAlarmActions = lens _cloudWatchCompositeAlarmAlarmActions (\s a -> s { _cloudWatchCompositeAlarmAlarmActions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudwatch-compositealarm.html#cfn-cloudwatch-compositealarm-alarmdescription -cwcaAlarmDescription :: Lens' CloudWatchCompositeAlarm (Maybe (Val Text)) -cwcaAlarmDescription = lens _cloudWatchCompositeAlarmAlarmDescription (\s a -> s { _cloudWatchCompositeAlarmAlarmDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudwatch-compositealarm.html#cfn-cloudwatch-compositealarm-alarmname -cwcaAlarmName :: Lens' CloudWatchCompositeAlarm (Val Text) -cwcaAlarmName = lens _cloudWatchCompositeAlarmAlarmName (\s a -> s { _cloudWatchCompositeAlarmAlarmName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudwatch-compositealarm.html#cfn-cloudwatch-compositealarm-alarmrule -cwcaAlarmRule :: Lens' CloudWatchCompositeAlarm (Val Text) -cwcaAlarmRule = lens _cloudWatchCompositeAlarmAlarmRule (\s a -> s { _cloudWatchCompositeAlarmAlarmRule = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudwatch-compositealarm.html#cfn-cloudwatch-compositealarm-insufficientdataactions -cwcaInsufficientDataActions :: Lens' CloudWatchCompositeAlarm (Maybe (ValList Text)) -cwcaInsufficientDataActions = lens _cloudWatchCompositeAlarmInsufficientDataActions (\s a -> s { _cloudWatchCompositeAlarmInsufficientDataActions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudwatch-compositealarm.html#cfn-cloudwatch-compositealarm-okactions -cwcaOKActions :: Lens' CloudWatchCompositeAlarm (Maybe (ValList Text)) -cwcaOKActions = lens _cloudWatchCompositeAlarmOKActions (\s a -> s { _cloudWatchCompositeAlarmOKActions = a }) diff --git a/library-gen/Stratosphere/Resources/CloudWatchDashboard.hs b/library-gen/Stratosphere/Resources/CloudWatchDashboard.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CloudWatchDashboard.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudwatch-dashboard.html - -module Stratosphere.Resources.CloudWatchDashboard where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CloudWatchDashboard. See --- 'cloudWatchDashboard' for a more convenient constructor. -data CloudWatchDashboard = - CloudWatchDashboard - { _cloudWatchDashboardDashboardBody :: Val Text - , _cloudWatchDashboardDashboardName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties CloudWatchDashboard where - toResourceProperties CloudWatchDashboard{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CloudWatch::Dashboard" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("DashboardBody",) . toJSON) _cloudWatchDashboardDashboardBody - , fmap (("DashboardName",) . toJSON) _cloudWatchDashboardDashboardName - ] - } - --- | Constructor for 'CloudWatchDashboard' containing required fields as --- arguments. -cloudWatchDashboard - :: Val Text -- ^ 'cwdDashboardBody' - -> CloudWatchDashboard -cloudWatchDashboard dashboardBodyarg = - CloudWatchDashboard - { _cloudWatchDashboardDashboardBody = dashboardBodyarg - , _cloudWatchDashboardDashboardName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudwatch-dashboard.html#cfn-cloudwatch-dashboard-dashboardbody -cwdDashboardBody :: Lens' CloudWatchDashboard (Val Text) -cwdDashboardBody = lens _cloudWatchDashboardDashboardBody (\s a -> s { _cloudWatchDashboardDashboardBody = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudwatch-dashboard.html#cfn-cloudwatch-dashboard-dashboardname -cwdDashboardName :: Lens' CloudWatchDashboard (Maybe (Val Text)) -cwdDashboardName = lens _cloudWatchDashboardDashboardName (\s a -> s { _cloudWatchDashboardDashboardName = a }) diff --git a/library-gen/Stratosphere/Resources/CloudWatchInsightRule.hs b/library-gen/Stratosphere/Resources/CloudWatchInsightRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CloudWatchInsightRule.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudwatch-insightrule.html - -module Stratosphere.Resources.CloudWatchInsightRule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for CloudWatchInsightRule. See --- 'cloudWatchInsightRule' for a more convenient constructor. -data CloudWatchInsightRule = - CloudWatchInsightRule - { _cloudWatchInsightRuleRuleBody :: Val Text - , _cloudWatchInsightRuleRuleName :: Val Text - , _cloudWatchInsightRuleRuleState :: Val Text - , _cloudWatchInsightRuleTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties CloudWatchInsightRule where - toResourceProperties CloudWatchInsightRule{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CloudWatch::InsightRule" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("RuleBody",) . toJSON) _cloudWatchInsightRuleRuleBody - , (Just . ("RuleName",) . toJSON) _cloudWatchInsightRuleRuleName - , (Just . ("RuleState",) . toJSON) _cloudWatchInsightRuleRuleState - , fmap (("Tags",) . toJSON) _cloudWatchInsightRuleTags - ] - } - --- | Constructor for 'CloudWatchInsightRule' containing required fields as --- arguments. -cloudWatchInsightRule - :: Val Text -- ^ 'cwirRuleBody' - -> Val Text -- ^ 'cwirRuleName' - -> Val Text -- ^ 'cwirRuleState' - -> CloudWatchInsightRule -cloudWatchInsightRule ruleBodyarg ruleNamearg ruleStatearg = - CloudWatchInsightRule - { _cloudWatchInsightRuleRuleBody = ruleBodyarg - , _cloudWatchInsightRuleRuleName = ruleNamearg - , _cloudWatchInsightRuleRuleState = ruleStatearg - , _cloudWatchInsightRuleTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudwatch-insightrule.html#cfn-cloudwatch-insightrule-rulebody -cwirRuleBody :: Lens' CloudWatchInsightRule (Val Text) -cwirRuleBody = lens _cloudWatchInsightRuleRuleBody (\s a -> s { _cloudWatchInsightRuleRuleBody = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudwatch-insightrule.html#cfn-cloudwatch-insightrule-rulename -cwirRuleName :: Lens' CloudWatchInsightRule (Val Text) -cwirRuleName = lens _cloudWatchInsightRuleRuleName (\s a -> s { _cloudWatchInsightRuleRuleName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudwatch-insightrule.html#cfn-cloudwatch-insightrule-rulestate -cwirRuleState :: Lens' CloudWatchInsightRule (Val Text) -cwirRuleState = lens _cloudWatchInsightRuleRuleState (\s a -> s { _cloudWatchInsightRuleRuleState = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloudwatch-insightrule.html#cfn-cloudwatch-insightrule-tags -cwirTags :: Lens' CloudWatchInsightRule (Maybe [Tag]) -cwirTags = lens _cloudWatchInsightRuleTags (\s a -> s { _cloudWatchInsightRuleTags = a }) diff --git a/library-gen/Stratosphere/Resources/CodeBuildProject.hs b/library-gen/Stratosphere/Resources/CodeBuildProject.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CodeBuildProject.hs +++ /dev/null @@ -1,195 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html - -module Stratosphere.Resources.CodeBuildProject where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodeBuildProjectArtifacts -import Stratosphere.ResourceProperties.CodeBuildProjectProjectBuildBatchConfig -import Stratosphere.ResourceProperties.CodeBuildProjectProjectCache -import Stratosphere.ResourceProperties.CodeBuildProjectEnvironment -import Stratosphere.ResourceProperties.CodeBuildProjectProjectFileSystemLocation -import Stratosphere.ResourceProperties.CodeBuildProjectLogsConfig -import Stratosphere.ResourceProperties.CodeBuildProjectProjectSourceVersion -import Stratosphere.ResourceProperties.CodeBuildProjectSource -import Stratosphere.ResourceProperties.Tag -import Stratosphere.ResourceProperties.CodeBuildProjectProjectTriggers -import Stratosphere.ResourceProperties.CodeBuildProjectVpcConfig - --- | Full data type definition for CodeBuildProject. See 'codeBuildProject' --- for a more convenient constructor. -data CodeBuildProject = - CodeBuildProject - { _codeBuildProjectArtifacts :: CodeBuildProjectArtifacts - , _codeBuildProjectBadgeEnabled :: Maybe (Val Bool) - , _codeBuildProjectBuildBatchConfig :: Maybe CodeBuildProjectProjectBuildBatchConfig - , _codeBuildProjectCache :: Maybe CodeBuildProjectProjectCache - , _codeBuildProjectDescription :: Maybe (Val Text) - , _codeBuildProjectEncryptionKey :: Maybe (Val Text) - , _codeBuildProjectEnvironment :: CodeBuildProjectEnvironment - , _codeBuildProjectFileSystemLocations :: Maybe [CodeBuildProjectProjectFileSystemLocation] - , _codeBuildProjectLogsConfig :: Maybe CodeBuildProjectLogsConfig - , _codeBuildProjectName :: Maybe (Val Text) - , _codeBuildProjectQueuedTimeoutInMinutes :: Maybe (Val Integer) - , _codeBuildProjectSecondaryArtifacts :: Maybe [CodeBuildProjectArtifacts] - , _codeBuildProjectSecondarySourceVersions :: Maybe [CodeBuildProjectProjectSourceVersion] - , _codeBuildProjectSecondarySources :: Maybe [CodeBuildProjectSource] - , _codeBuildProjectServiceRole :: Val Text - , _codeBuildProjectSource :: CodeBuildProjectSource - , _codeBuildProjectSourceVersion :: Maybe (Val Text) - , _codeBuildProjectTags :: Maybe [Tag] - , _codeBuildProjectTimeoutInMinutes :: Maybe (Val Integer) - , _codeBuildProjectTriggers :: Maybe CodeBuildProjectProjectTriggers - , _codeBuildProjectVpcConfig :: Maybe CodeBuildProjectVpcConfig - } deriving (Show, Eq) - -instance ToResourceProperties CodeBuildProject where - toResourceProperties CodeBuildProject{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CodeBuild::Project" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Artifacts",) . toJSON) _codeBuildProjectArtifacts - , fmap (("BadgeEnabled",) . toJSON) _codeBuildProjectBadgeEnabled - , fmap (("BuildBatchConfig",) . toJSON) _codeBuildProjectBuildBatchConfig - , fmap (("Cache",) . toJSON) _codeBuildProjectCache - , fmap (("Description",) . toJSON) _codeBuildProjectDescription - , fmap (("EncryptionKey",) . toJSON) _codeBuildProjectEncryptionKey - , (Just . ("Environment",) . toJSON) _codeBuildProjectEnvironment - , fmap (("FileSystemLocations",) . toJSON) _codeBuildProjectFileSystemLocations - , fmap (("LogsConfig",) . toJSON) _codeBuildProjectLogsConfig - , fmap (("Name",) . toJSON) _codeBuildProjectName - , fmap (("QueuedTimeoutInMinutes",) . toJSON) _codeBuildProjectQueuedTimeoutInMinutes - , fmap (("SecondaryArtifacts",) . toJSON) _codeBuildProjectSecondaryArtifacts - , fmap (("SecondarySourceVersions",) . toJSON) _codeBuildProjectSecondarySourceVersions - , fmap (("SecondarySources",) . toJSON) _codeBuildProjectSecondarySources - , (Just . ("ServiceRole",) . toJSON) _codeBuildProjectServiceRole - , (Just . ("Source",) . toJSON) _codeBuildProjectSource - , fmap (("SourceVersion",) . toJSON) _codeBuildProjectSourceVersion - , fmap (("Tags",) . toJSON) _codeBuildProjectTags - , fmap (("TimeoutInMinutes",) . toJSON) _codeBuildProjectTimeoutInMinutes - , fmap (("Triggers",) . toJSON) _codeBuildProjectTriggers - , fmap (("VpcConfig",) . toJSON) _codeBuildProjectVpcConfig - ] - } - --- | Constructor for 'CodeBuildProject' containing required fields as --- arguments. -codeBuildProject - :: CodeBuildProjectArtifacts -- ^ 'cbpArtifacts' - -> CodeBuildProjectEnvironment -- ^ 'cbpEnvironment' - -> Val Text -- ^ 'cbpServiceRole' - -> CodeBuildProjectSource -- ^ 'cbpSource' - -> CodeBuildProject -codeBuildProject artifactsarg environmentarg serviceRolearg sourcearg = - CodeBuildProject - { _codeBuildProjectArtifacts = artifactsarg - , _codeBuildProjectBadgeEnabled = Nothing - , _codeBuildProjectBuildBatchConfig = Nothing - , _codeBuildProjectCache = Nothing - , _codeBuildProjectDescription = Nothing - , _codeBuildProjectEncryptionKey = Nothing - , _codeBuildProjectEnvironment = environmentarg - , _codeBuildProjectFileSystemLocations = Nothing - , _codeBuildProjectLogsConfig = Nothing - , _codeBuildProjectName = Nothing - , _codeBuildProjectQueuedTimeoutInMinutes = Nothing - , _codeBuildProjectSecondaryArtifacts = Nothing - , _codeBuildProjectSecondarySourceVersions = Nothing - , _codeBuildProjectSecondarySources = Nothing - , _codeBuildProjectServiceRole = serviceRolearg - , _codeBuildProjectSource = sourcearg - , _codeBuildProjectSourceVersion = Nothing - , _codeBuildProjectTags = Nothing - , _codeBuildProjectTimeoutInMinutes = Nothing - , _codeBuildProjectTriggers = Nothing - , _codeBuildProjectVpcConfig = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-artifacts -cbpArtifacts :: Lens' CodeBuildProject CodeBuildProjectArtifacts -cbpArtifacts = lens _codeBuildProjectArtifacts (\s a -> s { _codeBuildProjectArtifacts = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-badgeenabled -cbpBadgeEnabled :: Lens' CodeBuildProject (Maybe (Val Bool)) -cbpBadgeEnabled = lens _codeBuildProjectBadgeEnabled (\s a -> s { _codeBuildProjectBadgeEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-buildbatchconfig -cbpBuildBatchConfig :: Lens' CodeBuildProject (Maybe CodeBuildProjectProjectBuildBatchConfig) -cbpBuildBatchConfig = lens _codeBuildProjectBuildBatchConfig (\s a -> s { _codeBuildProjectBuildBatchConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-cache -cbpCache :: Lens' CodeBuildProject (Maybe CodeBuildProjectProjectCache) -cbpCache = lens _codeBuildProjectCache (\s a -> s { _codeBuildProjectCache = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-description -cbpDescription :: Lens' CodeBuildProject (Maybe (Val Text)) -cbpDescription = lens _codeBuildProjectDescription (\s a -> s { _codeBuildProjectDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-encryptionkey -cbpEncryptionKey :: Lens' CodeBuildProject (Maybe (Val Text)) -cbpEncryptionKey = lens _codeBuildProjectEncryptionKey (\s a -> s { _codeBuildProjectEncryptionKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-environment -cbpEnvironment :: Lens' CodeBuildProject CodeBuildProjectEnvironment -cbpEnvironment = lens _codeBuildProjectEnvironment (\s a -> s { _codeBuildProjectEnvironment = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-filesystemlocations -cbpFileSystemLocations :: Lens' CodeBuildProject (Maybe [CodeBuildProjectProjectFileSystemLocation]) -cbpFileSystemLocations = lens _codeBuildProjectFileSystemLocations (\s a -> s { _codeBuildProjectFileSystemLocations = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-logsconfig -cbpLogsConfig :: Lens' CodeBuildProject (Maybe CodeBuildProjectLogsConfig) -cbpLogsConfig = lens _codeBuildProjectLogsConfig (\s a -> s { _codeBuildProjectLogsConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-name -cbpName :: Lens' CodeBuildProject (Maybe (Val Text)) -cbpName = lens _codeBuildProjectName (\s a -> s { _codeBuildProjectName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-queuedtimeoutinminutes -cbpQueuedTimeoutInMinutes :: Lens' CodeBuildProject (Maybe (Val Integer)) -cbpQueuedTimeoutInMinutes = lens _codeBuildProjectQueuedTimeoutInMinutes (\s a -> s { _codeBuildProjectQueuedTimeoutInMinutes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-secondaryartifacts -cbpSecondaryArtifacts :: Lens' CodeBuildProject (Maybe [CodeBuildProjectArtifacts]) -cbpSecondaryArtifacts = lens _codeBuildProjectSecondaryArtifacts (\s a -> s { _codeBuildProjectSecondaryArtifacts = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-secondarysourceversions -cbpSecondarySourceVersions :: Lens' CodeBuildProject (Maybe [CodeBuildProjectProjectSourceVersion]) -cbpSecondarySourceVersions = lens _codeBuildProjectSecondarySourceVersions (\s a -> s { _codeBuildProjectSecondarySourceVersions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-secondarysources -cbpSecondarySources :: Lens' CodeBuildProject (Maybe [CodeBuildProjectSource]) -cbpSecondarySources = lens _codeBuildProjectSecondarySources (\s a -> s { _codeBuildProjectSecondarySources = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-servicerole -cbpServiceRole :: Lens' CodeBuildProject (Val Text) -cbpServiceRole = lens _codeBuildProjectServiceRole (\s a -> s { _codeBuildProjectServiceRole = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-source -cbpSource :: Lens' CodeBuildProject CodeBuildProjectSource -cbpSource = lens _codeBuildProjectSource (\s a -> s { _codeBuildProjectSource = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-sourceversion -cbpSourceVersion :: Lens' CodeBuildProject (Maybe (Val Text)) -cbpSourceVersion = lens _codeBuildProjectSourceVersion (\s a -> s { _codeBuildProjectSourceVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-tags -cbpTags :: Lens' CodeBuildProject (Maybe [Tag]) -cbpTags = lens _codeBuildProjectTags (\s a -> s { _codeBuildProjectTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-timeoutinminutes -cbpTimeoutInMinutes :: Lens' CodeBuildProject (Maybe (Val Integer)) -cbpTimeoutInMinutes = lens _codeBuildProjectTimeoutInMinutes (\s a -> s { _codeBuildProjectTimeoutInMinutes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-triggers -cbpTriggers :: Lens' CodeBuildProject (Maybe CodeBuildProjectProjectTriggers) -cbpTriggers = lens _codeBuildProjectTriggers (\s a -> s { _codeBuildProjectTriggers = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-project.html#cfn-codebuild-project-vpcconfig -cbpVpcConfig :: Lens' CodeBuildProject (Maybe CodeBuildProjectVpcConfig) -cbpVpcConfig = lens _codeBuildProjectVpcConfig (\s a -> s { _codeBuildProjectVpcConfig = a }) diff --git a/library-gen/Stratosphere/Resources/CodeBuildReportGroup.hs b/library-gen/Stratosphere/Resources/CodeBuildReportGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CodeBuildReportGroup.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-reportgroup.html - -module Stratosphere.Resources.CodeBuildReportGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodeBuildReportGroupReportExportConfig -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for CodeBuildReportGroup. See --- 'codeBuildReportGroup' for a more convenient constructor. -data CodeBuildReportGroup = - CodeBuildReportGroup - { _codeBuildReportGroupExportConfig :: CodeBuildReportGroupReportExportConfig - , _codeBuildReportGroupName :: Maybe (Val Text) - , _codeBuildReportGroupTags :: Maybe [Tag] - , _codeBuildReportGroupType :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties CodeBuildReportGroup where - toResourceProperties CodeBuildReportGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CodeBuild::ReportGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ExportConfig",) . toJSON) _codeBuildReportGroupExportConfig - , fmap (("Name",) . toJSON) _codeBuildReportGroupName - , fmap (("Tags",) . toJSON) _codeBuildReportGroupTags - , (Just . ("Type",) . toJSON) _codeBuildReportGroupType - ] - } - --- | Constructor for 'CodeBuildReportGroup' containing required fields as --- arguments. -codeBuildReportGroup - :: CodeBuildReportGroupReportExportConfig -- ^ 'cbrgExportConfig' - -> Val Text -- ^ 'cbrgType' - -> CodeBuildReportGroup -codeBuildReportGroup exportConfigarg typearg = - CodeBuildReportGroup - { _codeBuildReportGroupExportConfig = exportConfigarg - , _codeBuildReportGroupName = Nothing - , _codeBuildReportGroupTags = Nothing - , _codeBuildReportGroupType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-reportgroup.html#cfn-codebuild-reportgroup-exportconfig -cbrgExportConfig :: Lens' CodeBuildReportGroup CodeBuildReportGroupReportExportConfig -cbrgExportConfig = lens _codeBuildReportGroupExportConfig (\s a -> s { _codeBuildReportGroupExportConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-reportgroup.html#cfn-codebuild-reportgroup-name -cbrgName :: Lens' CodeBuildReportGroup (Maybe (Val Text)) -cbrgName = lens _codeBuildReportGroupName (\s a -> s { _codeBuildReportGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-reportgroup.html#cfn-codebuild-reportgroup-tags -cbrgTags :: Lens' CodeBuildReportGroup (Maybe [Tag]) -cbrgTags = lens _codeBuildReportGroupTags (\s a -> s { _codeBuildReportGroupTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-reportgroup.html#cfn-codebuild-reportgroup-type -cbrgType :: Lens' CodeBuildReportGroup (Val Text) -cbrgType = lens _codeBuildReportGroupType (\s a -> s { _codeBuildReportGroupType = a }) diff --git a/library-gen/Stratosphere/Resources/CodeBuildSourceCredential.hs b/library-gen/Stratosphere/Resources/CodeBuildSourceCredential.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CodeBuildSourceCredential.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-sourcecredential.html - -module Stratosphere.Resources.CodeBuildSourceCredential where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeBuildSourceCredential. See --- 'codeBuildSourceCredential' for a more convenient constructor. -data CodeBuildSourceCredential = - CodeBuildSourceCredential - { _codeBuildSourceCredentialAuthType :: Val Text - , _codeBuildSourceCredentialServerType :: Val Text - , _codeBuildSourceCredentialToken :: Val Text - , _codeBuildSourceCredentialUsername :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties CodeBuildSourceCredential where - toResourceProperties CodeBuildSourceCredential{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CodeBuild::SourceCredential" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("AuthType",) . toJSON) _codeBuildSourceCredentialAuthType - , (Just . ("ServerType",) . toJSON) _codeBuildSourceCredentialServerType - , (Just . ("Token",) . toJSON) _codeBuildSourceCredentialToken - , fmap (("Username",) . toJSON) _codeBuildSourceCredentialUsername - ] - } - --- | Constructor for 'CodeBuildSourceCredential' containing required fields as --- arguments. -codeBuildSourceCredential - :: Val Text -- ^ 'cbscAuthType' - -> Val Text -- ^ 'cbscServerType' - -> Val Text -- ^ 'cbscToken' - -> CodeBuildSourceCredential -codeBuildSourceCredential authTypearg serverTypearg tokenarg = - CodeBuildSourceCredential - { _codeBuildSourceCredentialAuthType = authTypearg - , _codeBuildSourceCredentialServerType = serverTypearg - , _codeBuildSourceCredentialToken = tokenarg - , _codeBuildSourceCredentialUsername = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-sourcecredential.html#cfn-codebuild-sourcecredential-authtype -cbscAuthType :: Lens' CodeBuildSourceCredential (Val Text) -cbscAuthType = lens _codeBuildSourceCredentialAuthType (\s a -> s { _codeBuildSourceCredentialAuthType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-sourcecredential.html#cfn-codebuild-sourcecredential-servertype -cbscServerType :: Lens' CodeBuildSourceCredential (Val Text) -cbscServerType = lens _codeBuildSourceCredentialServerType (\s a -> s { _codeBuildSourceCredentialServerType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-sourcecredential.html#cfn-codebuild-sourcecredential-token -cbscToken :: Lens' CodeBuildSourceCredential (Val Text) -cbscToken = lens _codeBuildSourceCredentialToken (\s a -> s { _codeBuildSourceCredentialToken = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codebuild-sourcecredential.html#cfn-codebuild-sourcecredential-username -cbscUsername :: Lens' CodeBuildSourceCredential (Maybe (Val Text)) -cbscUsername = lens _codeBuildSourceCredentialUsername (\s a -> s { _codeBuildSourceCredentialUsername = a }) diff --git a/library-gen/Stratosphere/Resources/CodeCommitRepository.hs b/library-gen/Stratosphere/Resources/CodeCommitRepository.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CodeCommitRepository.hs +++ /dev/null @@ -1,72 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codecommit-repository.html - -module Stratosphere.Resources.CodeCommitRepository where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodeCommitRepositoryCode -import Stratosphere.ResourceProperties.Tag -import Stratosphere.ResourceProperties.CodeCommitRepositoryRepositoryTrigger - --- | Full data type definition for CodeCommitRepository. See --- 'codeCommitRepository' for a more convenient constructor. -data CodeCommitRepository = - CodeCommitRepository - { _codeCommitRepositoryCode :: Maybe CodeCommitRepositoryCode - , _codeCommitRepositoryRepositoryDescription :: Maybe (Val Text) - , _codeCommitRepositoryRepositoryName :: Val Text - , _codeCommitRepositoryTags :: Maybe [Tag] - , _codeCommitRepositoryTriggers :: Maybe [CodeCommitRepositoryRepositoryTrigger] - } deriving (Show, Eq) - -instance ToResourceProperties CodeCommitRepository where - toResourceProperties CodeCommitRepository{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CodeCommit::Repository" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Code",) . toJSON) _codeCommitRepositoryCode - , fmap (("RepositoryDescription",) . toJSON) _codeCommitRepositoryRepositoryDescription - , (Just . ("RepositoryName",) . toJSON) _codeCommitRepositoryRepositoryName - , fmap (("Tags",) . toJSON) _codeCommitRepositoryTags - , fmap (("Triggers",) . toJSON) _codeCommitRepositoryTriggers - ] - } - --- | Constructor for 'CodeCommitRepository' containing required fields as --- arguments. -codeCommitRepository - :: Val Text -- ^ 'ccrRepositoryName' - -> CodeCommitRepository -codeCommitRepository repositoryNamearg = - CodeCommitRepository - { _codeCommitRepositoryCode = Nothing - , _codeCommitRepositoryRepositoryDescription = Nothing - , _codeCommitRepositoryRepositoryName = repositoryNamearg - , _codeCommitRepositoryTags = Nothing - , _codeCommitRepositoryTriggers = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codecommit-repository.html#cfn-codecommit-repository-code -ccrCode :: Lens' CodeCommitRepository (Maybe CodeCommitRepositoryCode) -ccrCode = lens _codeCommitRepositoryCode (\s a -> s { _codeCommitRepositoryCode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codecommit-repository.html#cfn-codecommit-repository-repositorydescription -ccrRepositoryDescription :: Lens' CodeCommitRepository (Maybe (Val Text)) -ccrRepositoryDescription = lens _codeCommitRepositoryRepositoryDescription (\s a -> s { _codeCommitRepositoryRepositoryDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codecommit-repository.html#cfn-codecommit-repository-repositoryname -ccrRepositoryName :: Lens' CodeCommitRepository (Val Text) -ccrRepositoryName = lens _codeCommitRepositoryRepositoryName (\s a -> s { _codeCommitRepositoryRepositoryName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codecommit-repository.html#cfn-codecommit-repository-tags -ccrTags :: Lens' CodeCommitRepository (Maybe [Tag]) -ccrTags = lens _codeCommitRepositoryTags (\s a -> s { _codeCommitRepositoryTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codecommit-repository.html#cfn-codecommit-repository-triggers -ccrTriggers :: Lens' CodeCommitRepository (Maybe [CodeCommitRepositoryRepositoryTrigger]) -ccrTriggers = lens _codeCommitRepositoryTriggers (\s a -> s { _codeCommitRepositoryTriggers = a }) diff --git a/library-gen/Stratosphere/Resources/CodeDeployApplication.hs b/library-gen/Stratosphere/Resources/CodeDeployApplication.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CodeDeployApplication.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codedeploy-application.html - -module Stratosphere.Resources.CodeDeployApplication where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeDeployApplication. See --- 'codeDeployApplication' for a more convenient constructor. -data CodeDeployApplication = - CodeDeployApplication - { _codeDeployApplicationApplicationName :: Maybe (Val Text) - , _codeDeployApplicationComputePlatform :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties CodeDeployApplication where - toResourceProperties CodeDeployApplication{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CodeDeploy::Application" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ApplicationName",) . toJSON) _codeDeployApplicationApplicationName - , fmap (("ComputePlatform",) . toJSON) _codeDeployApplicationComputePlatform - ] - } - --- | Constructor for 'CodeDeployApplication' containing required fields as --- arguments. -codeDeployApplication - :: CodeDeployApplication -codeDeployApplication = - CodeDeployApplication - { _codeDeployApplicationApplicationName = Nothing - , _codeDeployApplicationComputePlatform = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codedeploy-application.html#cfn-codedeploy-application-applicationname -cdaApplicationName :: Lens' CodeDeployApplication (Maybe (Val Text)) -cdaApplicationName = lens _codeDeployApplicationApplicationName (\s a -> s { _codeDeployApplicationApplicationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codedeploy-application.html#cfn-codedeploy-application-computeplatform -cdaComputePlatform :: Lens' CodeDeployApplication (Maybe (Val Text)) -cdaComputePlatform = lens _codeDeployApplicationComputePlatform (\s a -> s { _codeDeployApplicationComputePlatform = a }) diff --git a/library-gen/Stratosphere/Resources/CodeDeployDeploymentConfig.hs b/library-gen/Stratosphere/Resources/CodeDeployDeploymentConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CodeDeployDeploymentConfig.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codedeploy-deploymentconfig.html - -module Stratosphere.Resources.CodeDeployDeploymentConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodeDeployDeploymentConfigMinimumHealthyHosts - --- | Full data type definition for CodeDeployDeploymentConfig. See --- 'codeDeployDeploymentConfig' for a more convenient constructor. -data CodeDeployDeploymentConfig = - CodeDeployDeploymentConfig - { _codeDeployDeploymentConfigDeploymentConfigName :: Maybe (Val Text) - , _codeDeployDeploymentConfigMinimumHealthyHosts :: Maybe CodeDeployDeploymentConfigMinimumHealthyHosts - } deriving (Show, Eq) - -instance ToResourceProperties CodeDeployDeploymentConfig where - toResourceProperties CodeDeployDeploymentConfig{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CodeDeploy::DeploymentConfig" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("DeploymentConfigName",) . toJSON) _codeDeployDeploymentConfigDeploymentConfigName - , fmap (("MinimumHealthyHosts",) . toJSON) _codeDeployDeploymentConfigMinimumHealthyHosts - ] - } - --- | Constructor for 'CodeDeployDeploymentConfig' containing required fields --- as arguments. -codeDeployDeploymentConfig - :: CodeDeployDeploymentConfig -codeDeployDeploymentConfig = - CodeDeployDeploymentConfig - { _codeDeployDeploymentConfigDeploymentConfigName = Nothing - , _codeDeployDeploymentConfigMinimumHealthyHosts = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codedeploy-deploymentconfig.html#cfn-codedeploy-deploymentconfig-deploymentconfigname -cddcDeploymentConfigName :: Lens' CodeDeployDeploymentConfig (Maybe (Val Text)) -cddcDeploymentConfigName = lens _codeDeployDeploymentConfigDeploymentConfigName (\s a -> s { _codeDeployDeploymentConfigDeploymentConfigName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codedeploy-deploymentconfig.html#cfn-codedeploy-deploymentconfig-minimumhealthyhosts -cddcMinimumHealthyHosts :: Lens' CodeDeployDeploymentConfig (Maybe CodeDeployDeploymentConfigMinimumHealthyHosts) -cddcMinimumHealthyHosts = lens _codeDeployDeploymentConfigMinimumHealthyHosts (\s a -> s { _codeDeployDeploymentConfigMinimumHealthyHosts = a }) diff --git a/library-gen/Stratosphere/Resources/CodeDeployDeploymentGroup.hs b/library-gen/Stratosphere/Resources/CodeDeployDeploymentGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CodeDeployDeploymentGroup.hs +++ /dev/null @@ -1,150 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codedeploy-deploymentgroup.html - -module Stratosphere.Resources.CodeDeployDeploymentGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupAlarmConfiguration -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupAutoRollbackConfiguration -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupDeployment -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupDeploymentStyle -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupEC2TagFilter -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupEC2TagSet -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupLoadBalancerInfo -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupTagFilter -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupOnPremisesTagSet -import Stratosphere.ResourceProperties.CodeDeployDeploymentGroupTriggerConfig - --- | Full data type definition for CodeDeployDeploymentGroup. See --- 'codeDeployDeploymentGroup' for a more convenient constructor. -data CodeDeployDeploymentGroup = - CodeDeployDeploymentGroup - { _codeDeployDeploymentGroupAlarmConfiguration :: Maybe CodeDeployDeploymentGroupAlarmConfiguration - , _codeDeployDeploymentGroupApplicationName :: Val Text - , _codeDeployDeploymentGroupAutoRollbackConfiguration :: Maybe CodeDeployDeploymentGroupAutoRollbackConfiguration - , _codeDeployDeploymentGroupAutoScalingGroups :: Maybe (ValList Text) - , _codeDeployDeploymentGroupDeployment :: Maybe CodeDeployDeploymentGroupDeployment - , _codeDeployDeploymentGroupDeploymentConfigName :: Maybe (Val Text) - , _codeDeployDeploymentGroupDeploymentGroupName :: Maybe (Val Text) - , _codeDeployDeploymentGroupDeploymentStyle :: Maybe CodeDeployDeploymentGroupDeploymentStyle - , _codeDeployDeploymentGroupEc2TagFilters :: Maybe [CodeDeployDeploymentGroupEC2TagFilter] - , _codeDeployDeploymentGroupEc2TagSet :: Maybe CodeDeployDeploymentGroupEC2TagSet - , _codeDeployDeploymentGroupLoadBalancerInfo :: Maybe CodeDeployDeploymentGroupLoadBalancerInfo - , _codeDeployDeploymentGroupOnPremisesInstanceTagFilters :: Maybe [CodeDeployDeploymentGroupTagFilter] - , _codeDeployDeploymentGroupOnPremisesTagSet :: Maybe CodeDeployDeploymentGroupOnPremisesTagSet - , _codeDeployDeploymentGroupServiceRoleArn :: Val Text - , _codeDeployDeploymentGroupTriggerConfigurations :: Maybe [CodeDeployDeploymentGroupTriggerConfig] - } deriving (Show, Eq) - -instance ToResourceProperties CodeDeployDeploymentGroup where - toResourceProperties CodeDeployDeploymentGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CodeDeploy::DeploymentGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AlarmConfiguration",) . toJSON) _codeDeployDeploymentGroupAlarmConfiguration - , (Just . ("ApplicationName",) . toJSON) _codeDeployDeploymentGroupApplicationName - , fmap (("AutoRollbackConfiguration",) . toJSON) _codeDeployDeploymentGroupAutoRollbackConfiguration - , fmap (("AutoScalingGroups",) . toJSON) _codeDeployDeploymentGroupAutoScalingGroups - , fmap (("Deployment",) . toJSON) _codeDeployDeploymentGroupDeployment - , fmap (("DeploymentConfigName",) . toJSON) _codeDeployDeploymentGroupDeploymentConfigName - , fmap (("DeploymentGroupName",) . toJSON) _codeDeployDeploymentGroupDeploymentGroupName - , fmap (("DeploymentStyle",) . toJSON) _codeDeployDeploymentGroupDeploymentStyle - , fmap (("Ec2TagFilters",) . toJSON) _codeDeployDeploymentGroupEc2TagFilters - , fmap (("Ec2TagSet",) . toJSON) _codeDeployDeploymentGroupEc2TagSet - , fmap (("LoadBalancerInfo",) . toJSON) _codeDeployDeploymentGroupLoadBalancerInfo - , fmap (("OnPremisesInstanceTagFilters",) . toJSON) _codeDeployDeploymentGroupOnPremisesInstanceTagFilters - , fmap (("OnPremisesTagSet",) . toJSON) _codeDeployDeploymentGroupOnPremisesTagSet - , (Just . ("ServiceRoleArn",) . toJSON) _codeDeployDeploymentGroupServiceRoleArn - , fmap (("TriggerConfigurations",) . toJSON) _codeDeployDeploymentGroupTriggerConfigurations - ] - } - --- | Constructor for 'CodeDeployDeploymentGroup' containing required fields as --- arguments. -codeDeployDeploymentGroup - :: Val Text -- ^ 'cddgApplicationName' - -> Val Text -- ^ 'cddgServiceRoleArn' - -> CodeDeployDeploymentGroup -codeDeployDeploymentGroup applicationNamearg serviceRoleArnarg = - CodeDeployDeploymentGroup - { _codeDeployDeploymentGroupAlarmConfiguration = Nothing - , _codeDeployDeploymentGroupApplicationName = applicationNamearg - , _codeDeployDeploymentGroupAutoRollbackConfiguration = Nothing - , _codeDeployDeploymentGroupAutoScalingGroups = Nothing - , _codeDeployDeploymentGroupDeployment = Nothing - , _codeDeployDeploymentGroupDeploymentConfigName = Nothing - , _codeDeployDeploymentGroupDeploymentGroupName = Nothing - , _codeDeployDeploymentGroupDeploymentStyle = Nothing - , _codeDeployDeploymentGroupEc2TagFilters = Nothing - , _codeDeployDeploymentGroupEc2TagSet = Nothing - , _codeDeployDeploymentGroupLoadBalancerInfo = Nothing - , _codeDeployDeploymentGroupOnPremisesInstanceTagFilters = Nothing - , _codeDeployDeploymentGroupOnPremisesTagSet = Nothing - , _codeDeployDeploymentGroupServiceRoleArn = serviceRoleArnarg - , _codeDeployDeploymentGroupTriggerConfigurations = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codedeploy-deploymentgroup.html#cfn-codedeploy-deploymentgroup-alarmconfiguration -cddgAlarmConfiguration :: Lens' CodeDeployDeploymentGroup (Maybe CodeDeployDeploymentGroupAlarmConfiguration) -cddgAlarmConfiguration = lens _codeDeployDeploymentGroupAlarmConfiguration (\s a -> s { _codeDeployDeploymentGroupAlarmConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codedeploy-deploymentgroup.html#cfn-codedeploy-deploymentgroup-applicationname -cddgApplicationName :: Lens' CodeDeployDeploymentGroup (Val Text) -cddgApplicationName = lens _codeDeployDeploymentGroupApplicationName (\s a -> s { _codeDeployDeploymentGroupApplicationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codedeploy-deploymentgroup.html#cfn-codedeploy-deploymentgroup-autorollbackconfiguration -cddgAutoRollbackConfiguration :: Lens' CodeDeployDeploymentGroup (Maybe CodeDeployDeploymentGroupAutoRollbackConfiguration) -cddgAutoRollbackConfiguration = lens _codeDeployDeploymentGroupAutoRollbackConfiguration (\s a -> s { _codeDeployDeploymentGroupAutoRollbackConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codedeploy-deploymentgroup.html#cfn-codedeploy-deploymentgroup-autoscalinggroups -cddgAutoScalingGroups :: Lens' CodeDeployDeploymentGroup (Maybe (ValList Text)) -cddgAutoScalingGroups = lens _codeDeployDeploymentGroupAutoScalingGroups (\s a -> s { _codeDeployDeploymentGroupAutoScalingGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codedeploy-deploymentgroup.html#cfn-codedeploy-deploymentgroup-deployment -cddgDeployment :: Lens' CodeDeployDeploymentGroup (Maybe CodeDeployDeploymentGroupDeployment) -cddgDeployment = lens _codeDeployDeploymentGroupDeployment (\s a -> s { _codeDeployDeploymentGroupDeployment = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codedeploy-deploymentgroup.html#cfn-codedeploy-deploymentgroup-deploymentconfigname -cddgDeploymentConfigName :: Lens' CodeDeployDeploymentGroup (Maybe (Val Text)) -cddgDeploymentConfigName = lens _codeDeployDeploymentGroupDeploymentConfigName (\s a -> s { _codeDeployDeploymentGroupDeploymentConfigName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codedeploy-deploymentgroup.html#cfn-codedeploy-deploymentgroup-deploymentgroupname -cddgDeploymentGroupName :: Lens' CodeDeployDeploymentGroup (Maybe (Val Text)) -cddgDeploymentGroupName = lens _codeDeployDeploymentGroupDeploymentGroupName (\s a -> s { _codeDeployDeploymentGroupDeploymentGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codedeploy-deploymentgroup.html#cfn-codedeploy-deploymentgroup-deploymentstyle -cddgDeploymentStyle :: Lens' CodeDeployDeploymentGroup (Maybe CodeDeployDeploymentGroupDeploymentStyle) -cddgDeploymentStyle = lens _codeDeployDeploymentGroupDeploymentStyle (\s a -> s { _codeDeployDeploymentGroupDeploymentStyle = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codedeploy-deploymentgroup.html#cfn-codedeploy-deploymentgroup-ec2tagfilters -cddgEc2TagFilters :: Lens' CodeDeployDeploymentGroup (Maybe [CodeDeployDeploymentGroupEC2TagFilter]) -cddgEc2TagFilters = lens _codeDeployDeploymentGroupEc2TagFilters (\s a -> s { _codeDeployDeploymentGroupEc2TagFilters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codedeploy-deploymentgroup.html#cfn-codedeploy-deploymentgroup-ec2tagset -cddgEc2TagSet :: Lens' CodeDeployDeploymentGroup (Maybe CodeDeployDeploymentGroupEC2TagSet) -cddgEc2TagSet = lens _codeDeployDeploymentGroupEc2TagSet (\s a -> s { _codeDeployDeploymentGroupEc2TagSet = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codedeploy-deploymentgroup.html#cfn-codedeploy-deploymentgroup-loadbalancerinfo -cddgLoadBalancerInfo :: Lens' CodeDeployDeploymentGroup (Maybe CodeDeployDeploymentGroupLoadBalancerInfo) -cddgLoadBalancerInfo = lens _codeDeployDeploymentGroupLoadBalancerInfo (\s a -> s { _codeDeployDeploymentGroupLoadBalancerInfo = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codedeploy-deploymentgroup.html#cfn-codedeploy-deploymentgroup-onpremisesinstancetagfilters -cddgOnPremisesInstanceTagFilters :: Lens' CodeDeployDeploymentGroup (Maybe [CodeDeployDeploymentGroupTagFilter]) -cddgOnPremisesInstanceTagFilters = lens _codeDeployDeploymentGroupOnPremisesInstanceTagFilters (\s a -> s { _codeDeployDeploymentGroupOnPremisesInstanceTagFilters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codedeploy-deploymentgroup.html#cfn-codedeploy-deploymentgroup-onpremisestagset -cddgOnPremisesTagSet :: Lens' CodeDeployDeploymentGroup (Maybe CodeDeployDeploymentGroupOnPremisesTagSet) -cddgOnPremisesTagSet = lens _codeDeployDeploymentGroupOnPremisesTagSet (\s a -> s { _codeDeployDeploymentGroupOnPremisesTagSet = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codedeploy-deploymentgroup.html#cfn-codedeploy-deploymentgroup-servicerolearn -cddgServiceRoleArn :: Lens' CodeDeployDeploymentGroup (Val Text) -cddgServiceRoleArn = lens _codeDeployDeploymentGroupServiceRoleArn (\s a -> s { _codeDeployDeploymentGroupServiceRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codedeploy-deploymentgroup.html#cfn-codedeploy-deploymentgroup-triggerconfigurations -cddgTriggerConfigurations :: Lens' CodeDeployDeploymentGroup (Maybe [CodeDeployDeploymentGroupTriggerConfig]) -cddgTriggerConfigurations = lens _codeDeployDeploymentGroupTriggerConfigurations (\s a -> s { _codeDeployDeploymentGroupTriggerConfigurations = a }) diff --git a/library-gen/Stratosphere/Resources/CodeGuruProfilerProfilingGroup.hs b/library-gen/Stratosphere/Resources/CodeGuruProfilerProfilingGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CodeGuruProfilerProfilingGroup.hs +++ /dev/null @@ -1,71 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codeguruprofiler-profilinggroup.html - -module Stratosphere.Resources.CodeGuruProfilerProfilingGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodeGuruProfilerProfilingGroupChannel -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for CodeGuruProfilerProfilingGroup. See --- 'codeGuruProfilerProfilingGroup' for a more convenient constructor. -data CodeGuruProfilerProfilingGroup = - CodeGuruProfilerProfilingGroup - { _codeGuruProfilerProfilingGroupAgentPermissions :: Maybe Object - , _codeGuruProfilerProfilingGroupAnomalyDetectionNotificationConfiguration :: Maybe [CodeGuruProfilerProfilingGroupChannel] - , _codeGuruProfilerProfilingGroupComputePlatform :: Maybe (Val Text) - , _codeGuruProfilerProfilingGroupProfilingGroupName :: Val Text - , _codeGuruProfilerProfilingGroupTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties CodeGuruProfilerProfilingGroup where - toResourceProperties CodeGuruProfilerProfilingGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CodeGuruProfiler::ProfilingGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AgentPermissions",) . toJSON) _codeGuruProfilerProfilingGroupAgentPermissions - , fmap (("AnomalyDetectionNotificationConfiguration",) . toJSON) _codeGuruProfilerProfilingGroupAnomalyDetectionNotificationConfiguration - , fmap (("ComputePlatform",) . toJSON) _codeGuruProfilerProfilingGroupComputePlatform - , (Just . ("ProfilingGroupName",) . toJSON) _codeGuruProfilerProfilingGroupProfilingGroupName - , fmap (("Tags",) . toJSON) _codeGuruProfilerProfilingGroupTags - ] - } - --- | Constructor for 'CodeGuruProfilerProfilingGroup' containing required --- fields as arguments. -codeGuruProfilerProfilingGroup - :: Val Text -- ^ 'cgppgProfilingGroupName' - -> CodeGuruProfilerProfilingGroup -codeGuruProfilerProfilingGroup profilingGroupNamearg = - CodeGuruProfilerProfilingGroup - { _codeGuruProfilerProfilingGroupAgentPermissions = Nothing - , _codeGuruProfilerProfilingGroupAnomalyDetectionNotificationConfiguration = Nothing - , _codeGuruProfilerProfilingGroupComputePlatform = Nothing - , _codeGuruProfilerProfilingGroupProfilingGroupName = profilingGroupNamearg - , _codeGuruProfilerProfilingGroupTags = Nothing - } - --- | 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-anomalydetectionnotificationconfiguration -cgppgAnomalyDetectionNotificationConfiguration :: Lens' CodeGuruProfilerProfilingGroup (Maybe [CodeGuruProfilerProfilingGroupChannel]) -cgppgAnomalyDetectionNotificationConfiguration = lens _codeGuruProfilerProfilingGroupAnomalyDetectionNotificationConfiguration (\s a -> s { _codeGuruProfilerProfilingGroupAnomalyDetectionNotificationConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codeguruprofiler-profilinggroup.html#cfn-codeguruprofiler-profilinggroup-computeplatform -cgppgComputePlatform :: Lens' CodeGuruProfilerProfilingGroup (Maybe (Val Text)) -cgppgComputePlatform = lens _codeGuruProfilerProfilingGroupComputePlatform (\s a -> s { _codeGuruProfilerProfilingGroupComputePlatform = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codeguruprofiler-profilinggroup.html#cfn-codeguruprofiler-profilinggroup-profilinggroupname -cgppgProfilingGroupName :: Lens' CodeGuruProfilerProfilingGroup (Val Text) -cgppgProfilingGroupName = lens _codeGuruProfilerProfilingGroupProfilingGroupName (\s a -> s { _codeGuruProfilerProfilingGroupProfilingGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codeguruprofiler-profilinggroup.html#cfn-codeguruprofiler-profilinggroup-tags -cgppgTags :: Lens' CodeGuruProfilerProfilingGroup (Maybe [Tag]) -cgppgTags = lens _codeGuruProfilerProfilingGroupTags (\s a -> s { _codeGuruProfilerProfilingGroupTags = a }) diff --git a/library-gen/Stratosphere/Resources/CodeGuruReviewerRepositoryAssociation.hs b/library-gen/Stratosphere/Resources/CodeGuruReviewerRepositoryAssociation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CodeGuruReviewerRepositoryAssociation.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codegurureviewer-repositoryassociation.html - -module Stratosphere.Resources.CodeGuruReviewerRepositoryAssociation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CodeGuruReviewerRepositoryAssociation. See --- 'codeGuruReviewerRepositoryAssociation' for a more convenient --- constructor. -data CodeGuruReviewerRepositoryAssociation = - CodeGuruReviewerRepositoryAssociation - { _codeGuruReviewerRepositoryAssociationConnectionArn :: Maybe (Val Text) - , _codeGuruReviewerRepositoryAssociationName :: Val Text - , _codeGuruReviewerRepositoryAssociationOwner :: Maybe (Val Text) - , _codeGuruReviewerRepositoryAssociationType :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties CodeGuruReviewerRepositoryAssociation where - toResourceProperties CodeGuruReviewerRepositoryAssociation{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CodeGuruReviewer::RepositoryAssociation" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ConnectionArn",) . toJSON) _codeGuruReviewerRepositoryAssociationConnectionArn - , (Just . ("Name",) . toJSON) _codeGuruReviewerRepositoryAssociationName - , fmap (("Owner",) . toJSON) _codeGuruReviewerRepositoryAssociationOwner - , (Just . ("Type",) . toJSON) _codeGuruReviewerRepositoryAssociationType - ] - } - --- | Constructor for 'CodeGuruReviewerRepositoryAssociation' containing --- required fields as arguments. -codeGuruReviewerRepositoryAssociation - :: Val Text -- ^ 'cgrraName' - -> Val Text -- ^ 'cgrraType' - -> CodeGuruReviewerRepositoryAssociation -codeGuruReviewerRepositoryAssociation namearg typearg = - CodeGuruReviewerRepositoryAssociation - { _codeGuruReviewerRepositoryAssociationConnectionArn = Nothing - , _codeGuruReviewerRepositoryAssociationName = namearg - , _codeGuruReviewerRepositoryAssociationOwner = Nothing - , _codeGuruReviewerRepositoryAssociationType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codegurureviewer-repositoryassociation.html#cfn-codegurureviewer-repositoryassociation-connectionarn -cgrraConnectionArn :: Lens' CodeGuruReviewerRepositoryAssociation (Maybe (Val Text)) -cgrraConnectionArn = lens _codeGuruReviewerRepositoryAssociationConnectionArn (\s a -> s { _codeGuruReviewerRepositoryAssociationConnectionArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codegurureviewer-repositoryassociation.html#cfn-codegurureviewer-repositoryassociation-name -cgrraName :: Lens' CodeGuruReviewerRepositoryAssociation (Val Text) -cgrraName = lens _codeGuruReviewerRepositoryAssociationName (\s a -> s { _codeGuruReviewerRepositoryAssociationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codegurureviewer-repositoryassociation.html#cfn-codegurureviewer-repositoryassociation-owner -cgrraOwner :: Lens' CodeGuruReviewerRepositoryAssociation (Maybe (Val Text)) -cgrraOwner = lens _codeGuruReviewerRepositoryAssociationOwner (\s a -> s { _codeGuruReviewerRepositoryAssociationOwner = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codegurureviewer-repositoryassociation.html#cfn-codegurureviewer-repositoryassociation-type -cgrraType :: Lens' CodeGuruReviewerRepositoryAssociation (Val Text) -cgrraType = lens _codeGuruReviewerRepositoryAssociationType (\s a -> s { _codeGuruReviewerRepositoryAssociationType = a }) diff --git a/library-gen/Stratosphere/Resources/CodePipelineCustomActionType.hs b/library-gen/Stratosphere/Resources/CodePipelineCustomActionType.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CodePipelineCustomActionType.hs +++ /dev/null @@ -1,98 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-customactiontype.html - -module Stratosphere.Resources.CodePipelineCustomActionType where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodePipelineCustomActionTypeConfigurationProperties -import Stratosphere.ResourceProperties.CodePipelineCustomActionTypeArtifactDetails -import Stratosphere.ResourceProperties.CodePipelineCustomActionTypeSettings -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for CodePipelineCustomActionType. See --- 'codePipelineCustomActionType' for a more convenient constructor. -data CodePipelineCustomActionType = - CodePipelineCustomActionType - { _codePipelineCustomActionTypeCategory :: Val Text - , _codePipelineCustomActionTypeConfigurationProperties :: Maybe [CodePipelineCustomActionTypeConfigurationProperties] - , _codePipelineCustomActionTypeInputArtifactDetails :: CodePipelineCustomActionTypeArtifactDetails - , _codePipelineCustomActionTypeOutputArtifactDetails :: CodePipelineCustomActionTypeArtifactDetails - , _codePipelineCustomActionTypeProvider :: Val Text - , _codePipelineCustomActionTypeSettings :: Maybe CodePipelineCustomActionTypeSettings - , _codePipelineCustomActionTypeTags :: Maybe [Tag] - , _codePipelineCustomActionTypeVersion :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties CodePipelineCustomActionType where - toResourceProperties CodePipelineCustomActionType{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CodePipeline::CustomActionType" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Category",) . toJSON) _codePipelineCustomActionTypeCategory - , fmap (("ConfigurationProperties",) . toJSON) _codePipelineCustomActionTypeConfigurationProperties - , (Just . ("InputArtifactDetails",) . toJSON) _codePipelineCustomActionTypeInputArtifactDetails - , (Just . ("OutputArtifactDetails",) . toJSON) _codePipelineCustomActionTypeOutputArtifactDetails - , (Just . ("Provider",) . toJSON) _codePipelineCustomActionTypeProvider - , fmap (("Settings",) . toJSON) _codePipelineCustomActionTypeSettings - , fmap (("Tags",) . toJSON) _codePipelineCustomActionTypeTags - , (Just . ("Version",) . toJSON) _codePipelineCustomActionTypeVersion - ] - } - --- | Constructor for 'CodePipelineCustomActionType' containing required fields --- as arguments. -codePipelineCustomActionType - :: Val Text -- ^ 'cpcatCategory' - -> CodePipelineCustomActionTypeArtifactDetails -- ^ 'cpcatInputArtifactDetails' - -> CodePipelineCustomActionTypeArtifactDetails -- ^ 'cpcatOutputArtifactDetails' - -> Val Text -- ^ 'cpcatProvider' - -> Val Text -- ^ 'cpcatVersion' - -> CodePipelineCustomActionType -codePipelineCustomActionType categoryarg inputArtifactDetailsarg outputArtifactDetailsarg providerarg versionarg = - CodePipelineCustomActionType - { _codePipelineCustomActionTypeCategory = categoryarg - , _codePipelineCustomActionTypeConfigurationProperties = Nothing - , _codePipelineCustomActionTypeInputArtifactDetails = inputArtifactDetailsarg - , _codePipelineCustomActionTypeOutputArtifactDetails = outputArtifactDetailsarg - , _codePipelineCustomActionTypeProvider = providerarg - , _codePipelineCustomActionTypeSettings = Nothing - , _codePipelineCustomActionTypeTags = Nothing - , _codePipelineCustomActionTypeVersion = versionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-customactiontype.html#cfn-codepipeline-customactiontype-category -cpcatCategory :: Lens' CodePipelineCustomActionType (Val Text) -cpcatCategory = lens _codePipelineCustomActionTypeCategory (\s a -> s { _codePipelineCustomActionTypeCategory = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-customactiontype.html#cfn-codepipeline-customactiontype-configurationproperties -cpcatConfigurationProperties :: Lens' CodePipelineCustomActionType (Maybe [CodePipelineCustomActionTypeConfigurationProperties]) -cpcatConfigurationProperties = lens _codePipelineCustomActionTypeConfigurationProperties (\s a -> s { _codePipelineCustomActionTypeConfigurationProperties = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-customactiontype.html#cfn-codepipeline-customactiontype-inputartifactdetails -cpcatInputArtifactDetails :: Lens' CodePipelineCustomActionType CodePipelineCustomActionTypeArtifactDetails -cpcatInputArtifactDetails = lens _codePipelineCustomActionTypeInputArtifactDetails (\s a -> s { _codePipelineCustomActionTypeInputArtifactDetails = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-customactiontype.html#cfn-codepipeline-customactiontype-outputartifactdetails -cpcatOutputArtifactDetails :: Lens' CodePipelineCustomActionType CodePipelineCustomActionTypeArtifactDetails -cpcatOutputArtifactDetails = lens _codePipelineCustomActionTypeOutputArtifactDetails (\s a -> s { _codePipelineCustomActionTypeOutputArtifactDetails = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-customactiontype.html#cfn-codepipeline-customactiontype-provider -cpcatProvider :: Lens' CodePipelineCustomActionType (Val Text) -cpcatProvider = lens _codePipelineCustomActionTypeProvider (\s a -> s { _codePipelineCustomActionTypeProvider = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-customactiontype.html#cfn-codepipeline-customactiontype-settings -cpcatSettings :: Lens' CodePipelineCustomActionType (Maybe CodePipelineCustomActionTypeSettings) -cpcatSettings = lens _codePipelineCustomActionTypeSettings (\s a -> s { _codePipelineCustomActionTypeSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-customactiontype.html#cfn-codepipeline-customactiontype-tags -cpcatTags :: Lens' CodePipelineCustomActionType (Maybe [Tag]) -cpcatTags = lens _codePipelineCustomActionTypeTags (\s a -> s { _codePipelineCustomActionTypeTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-customactiontype.html#cfn-codepipeline-customactiontype-version -cpcatVersion :: Lens' CodePipelineCustomActionType (Val Text) -cpcatVersion = lens _codePipelineCustomActionTypeVersion (\s a -> s { _codePipelineCustomActionTypeVersion = a }) diff --git a/library-gen/Stratosphere/Resources/CodePipelinePipeline.hs b/library-gen/Stratosphere/Resources/CodePipelinePipeline.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CodePipelinePipeline.hs +++ /dev/null @@ -1,96 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-pipeline.html - -module Stratosphere.Resources.CodePipelinePipeline where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodePipelinePipelineArtifactStore -import Stratosphere.ResourceProperties.CodePipelinePipelineArtifactStoreMap -import Stratosphere.ResourceProperties.CodePipelinePipelineStageTransition -import Stratosphere.ResourceProperties.CodePipelinePipelineStageDeclaration -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for CodePipelinePipeline. See --- 'codePipelinePipeline' for a more convenient constructor. -data CodePipelinePipeline = - CodePipelinePipeline - { _codePipelinePipelineArtifactStore :: Maybe CodePipelinePipelineArtifactStore - , _codePipelinePipelineArtifactStores :: Maybe [CodePipelinePipelineArtifactStoreMap] - , _codePipelinePipelineDisableInboundStageTransitions :: Maybe [CodePipelinePipelineStageTransition] - , _codePipelinePipelineName :: Maybe (Val Text) - , _codePipelinePipelineRestartExecutionOnUpdate :: Maybe (Val Bool) - , _codePipelinePipelineRoleArn :: Val Text - , _codePipelinePipelineStages :: [CodePipelinePipelineStageDeclaration] - , _codePipelinePipelineTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties CodePipelinePipeline where - toResourceProperties CodePipelinePipeline{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CodePipeline::Pipeline" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ArtifactStore",) . toJSON) _codePipelinePipelineArtifactStore - , fmap (("ArtifactStores",) . toJSON) _codePipelinePipelineArtifactStores - , fmap (("DisableInboundStageTransitions",) . toJSON) _codePipelinePipelineDisableInboundStageTransitions - , fmap (("Name",) . toJSON) _codePipelinePipelineName - , fmap (("RestartExecutionOnUpdate",) . toJSON) _codePipelinePipelineRestartExecutionOnUpdate - , (Just . ("RoleArn",) . toJSON) _codePipelinePipelineRoleArn - , (Just . ("Stages",) . toJSON) _codePipelinePipelineStages - , fmap (("Tags",) . toJSON) _codePipelinePipelineTags - ] - } - --- | Constructor for 'CodePipelinePipeline' containing required fields as --- arguments. -codePipelinePipeline - :: Val Text -- ^ 'cppRoleArn' - -> [CodePipelinePipelineStageDeclaration] -- ^ 'cppStages' - -> CodePipelinePipeline -codePipelinePipeline roleArnarg stagesarg = - CodePipelinePipeline - { _codePipelinePipelineArtifactStore = Nothing - , _codePipelinePipelineArtifactStores = Nothing - , _codePipelinePipelineDisableInboundStageTransitions = Nothing - , _codePipelinePipelineName = Nothing - , _codePipelinePipelineRestartExecutionOnUpdate = Nothing - , _codePipelinePipelineRoleArn = roleArnarg - , _codePipelinePipelineStages = stagesarg - , _codePipelinePipelineTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-pipeline.html#cfn-codepipeline-pipeline-artifactstore -cppArtifactStore :: Lens' CodePipelinePipeline (Maybe CodePipelinePipelineArtifactStore) -cppArtifactStore = lens _codePipelinePipelineArtifactStore (\s a -> s { _codePipelinePipelineArtifactStore = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-pipeline.html#cfn-codepipeline-pipeline-artifactstores -cppArtifactStores :: Lens' CodePipelinePipeline (Maybe [CodePipelinePipelineArtifactStoreMap]) -cppArtifactStores = lens _codePipelinePipelineArtifactStores (\s a -> s { _codePipelinePipelineArtifactStores = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-pipeline.html#cfn-codepipeline-pipeline-disableinboundstagetransitions -cppDisableInboundStageTransitions :: Lens' CodePipelinePipeline (Maybe [CodePipelinePipelineStageTransition]) -cppDisableInboundStageTransitions = lens _codePipelinePipelineDisableInboundStageTransitions (\s a -> s { _codePipelinePipelineDisableInboundStageTransitions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-pipeline.html#cfn-codepipeline-pipeline-name -cppName :: Lens' CodePipelinePipeline (Maybe (Val Text)) -cppName = lens _codePipelinePipelineName (\s a -> s { _codePipelinePipelineName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-pipeline.html#cfn-codepipeline-pipeline-restartexecutiononupdate -cppRestartExecutionOnUpdate :: Lens' CodePipelinePipeline (Maybe (Val Bool)) -cppRestartExecutionOnUpdate = lens _codePipelinePipelineRestartExecutionOnUpdate (\s a -> s { _codePipelinePipelineRestartExecutionOnUpdate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-pipeline.html#cfn-codepipeline-pipeline-rolearn -cppRoleArn :: Lens' CodePipelinePipeline (Val Text) -cppRoleArn = lens _codePipelinePipelineRoleArn (\s a -> s { _codePipelinePipelineRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-pipeline.html#cfn-codepipeline-pipeline-stages -cppStages :: Lens' CodePipelinePipeline [CodePipelinePipelineStageDeclaration] -cppStages = lens _codePipelinePipelineStages (\s a -> s { _codePipelinePipelineStages = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-pipeline.html#cfn-codepipeline-pipeline-tags -cppTags :: Lens' CodePipelinePipeline (Maybe [Tag]) -cppTags = lens _codePipelinePipelineTags (\s a -> s { _codePipelinePipelineTags = a }) diff --git a/library-gen/Stratosphere/Resources/CodePipelineWebhook.hs b/library-gen/Stratosphere/Resources/CodePipelineWebhook.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CodePipelineWebhook.hs +++ /dev/null @@ -1,97 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-webhook.html - -module Stratosphere.Resources.CodePipelineWebhook where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodePipelineWebhookWebhookAuthConfiguration -import Stratosphere.ResourceProperties.CodePipelineWebhookWebhookFilterRule - --- | Full data type definition for CodePipelineWebhook. See --- 'codePipelineWebhook' for a more convenient constructor. -data CodePipelineWebhook = - CodePipelineWebhook - { _codePipelineWebhookAuthentication :: Val Text - , _codePipelineWebhookAuthenticationConfiguration :: CodePipelineWebhookWebhookAuthConfiguration - , _codePipelineWebhookFilters :: [CodePipelineWebhookWebhookFilterRule] - , _codePipelineWebhookName :: Maybe (Val Text) - , _codePipelineWebhookRegisterWithThirdParty :: Maybe (Val Bool) - , _codePipelineWebhookTargetAction :: Val Text - , _codePipelineWebhookTargetPipeline :: Val Text - , _codePipelineWebhookTargetPipelineVersion :: Val Integer - } deriving (Show, Eq) - -instance ToResourceProperties CodePipelineWebhook where - toResourceProperties CodePipelineWebhook{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CodePipeline::Webhook" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Authentication",) . toJSON) _codePipelineWebhookAuthentication - , (Just . ("AuthenticationConfiguration",) . toJSON) _codePipelineWebhookAuthenticationConfiguration - , (Just . ("Filters",) . toJSON) _codePipelineWebhookFilters - , fmap (("Name",) . toJSON) _codePipelineWebhookName - , fmap (("RegisterWithThirdParty",) . toJSON) _codePipelineWebhookRegisterWithThirdParty - , (Just . ("TargetAction",) . toJSON) _codePipelineWebhookTargetAction - , (Just . ("TargetPipeline",) . toJSON) _codePipelineWebhookTargetPipeline - , (Just . ("TargetPipelineVersion",) . toJSON) _codePipelineWebhookTargetPipelineVersion - ] - } - --- | Constructor for 'CodePipelineWebhook' containing required fields as --- arguments. -codePipelineWebhook - :: Val Text -- ^ 'cpwAuthentication' - -> CodePipelineWebhookWebhookAuthConfiguration -- ^ 'cpwAuthenticationConfiguration' - -> [CodePipelineWebhookWebhookFilterRule] -- ^ 'cpwFilters' - -> Val Text -- ^ 'cpwTargetAction' - -> Val Text -- ^ 'cpwTargetPipeline' - -> Val Integer -- ^ 'cpwTargetPipelineVersion' - -> CodePipelineWebhook -codePipelineWebhook authenticationarg authenticationConfigurationarg filtersarg targetActionarg targetPipelinearg targetPipelineVersionarg = - CodePipelineWebhook - { _codePipelineWebhookAuthentication = authenticationarg - , _codePipelineWebhookAuthenticationConfiguration = authenticationConfigurationarg - , _codePipelineWebhookFilters = filtersarg - , _codePipelineWebhookName = Nothing - , _codePipelineWebhookRegisterWithThirdParty = Nothing - , _codePipelineWebhookTargetAction = targetActionarg - , _codePipelineWebhookTargetPipeline = targetPipelinearg - , _codePipelineWebhookTargetPipelineVersion = targetPipelineVersionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-webhook.html#cfn-codepipeline-webhook-authentication -cpwAuthentication :: Lens' CodePipelineWebhook (Val Text) -cpwAuthentication = lens _codePipelineWebhookAuthentication (\s a -> s { _codePipelineWebhookAuthentication = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-webhook.html#cfn-codepipeline-webhook-authenticationconfiguration -cpwAuthenticationConfiguration :: Lens' CodePipelineWebhook CodePipelineWebhookWebhookAuthConfiguration -cpwAuthenticationConfiguration = lens _codePipelineWebhookAuthenticationConfiguration (\s a -> s { _codePipelineWebhookAuthenticationConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-webhook.html#cfn-codepipeline-webhook-filters -cpwFilters :: Lens' CodePipelineWebhook [CodePipelineWebhookWebhookFilterRule] -cpwFilters = lens _codePipelineWebhookFilters (\s a -> s { _codePipelineWebhookFilters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-webhook.html#cfn-codepipeline-webhook-name -cpwName :: Lens' CodePipelineWebhook (Maybe (Val Text)) -cpwName = lens _codePipelineWebhookName (\s a -> s { _codePipelineWebhookName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-webhook.html#cfn-codepipeline-webhook-registerwiththirdparty -cpwRegisterWithThirdParty :: Lens' CodePipelineWebhook (Maybe (Val Bool)) -cpwRegisterWithThirdParty = lens _codePipelineWebhookRegisterWithThirdParty (\s a -> s { _codePipelineWebhookRegisterWithThirdParty = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-webhook.html#cfn-codepipeline-webhook-targetaction -cpwTargetAction :: Lens' CodePipelineWebhook (Val Text) -cpwTargetAction = lens _codePipelineWebhookTargetAction (\s a -> s { _codePipelineWebhookTargetAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-webhook.html#cfn-codepipeline-webhook-targetpipeline -cpwTargetPipeline :: Lens' CodePipelineWebhook (Val Text) -cpwTargetPipeline = lens _codePipelineWebhookTargetPipeline (\s a -> s { _codePipelineWebhookTargetPipeline = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-webhook.html#cfn-codepipeline-webhook-targetpipelineversion -cpwTargetPipelineVersion :: Lens' CodePipelineWebhook (Val Integer) -cpwTargetPipelineVersion = lens _codePipelineWebhookTargetPipelineVersion (\s a -> s { _codePipelineWebhookTargetPipelineVersion = a }) diff --git a/library-gen/Stratosphere/Resources/CodeStarConnectionsConnection.hs b/library-gen/Stratosphere/Resources/CodeStarConnectionsConnection.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CodeStarConnectionsConnection.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestarconnections-connection.html - -module Stratosphere.Resources.CodeStarConnectionsConnection where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for CodeStarConnectionsConnection. See --- 'codeStarConnectionsConnection' for a more convenient constructor. -data CodeStarConnectionsConnection = - CodeStarConnectionsConnection - { _codeStarConnectionsConnectionConnectionName :: Val Text - , _codeStarConnectionsConnectionHostArn :: Maybe (Val Text) - , _codeStarConnectionsConnectionProviderType :: Maybe (Val Text) - , _codeStarConnectionsConnectionTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties CodeStarConnectionsConnection where - toResourceProperties CodeStarConnectionsConnection{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CodeStarConnections::Connection" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ConnectionName",) . toJSON) _codeStarConnectionsConnectionConnectionName - , fmap (("HostArn",) . toJSON) _codeStarConnectionsConnectionHostArn - , fmap (("ProviderType",) . toJSON) _codeStarConnectionsConnectionProviderType - , fmap (("Tags",) . toJSON) _codeStarConnectionsConnectionTags - ] - } - --- | Constructor for 'CodeStarConnectionsConnection' containing required --- fields as arguments. -codeStarConnectionsConnection - :: Val Text -- ^ 'csccConnectionName' - -> CodeStarConnectionsConnection -codeStarConnectionsConnection connectionNamearg = - CodeStarConnectionsConnection - { _codeStarConnectionsConnectionConnectionName = connectionNamearg - , _codeStarConnectionsConnectionHostArn = Nothing - , _codeStarConnectionsConnectionProviderType = Nothing - , _codeStarConnectionsConnectionTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestarconnections-connection.html#cfn-codestarconnections-connection-connectionname -csccConnectionName :: Lens' CodeStarConnectionsConnection (Val Text) -csccConnectionName = lens _codeStarConnectionsConnectionConnectionName (\s a -> s { _codeStarConnectionsConnectionConnectionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestarconnections-connection.html#cfn-codestarconnections-connection-hostarn -csccHostArn :: Lens' CodeStarConnectionsConnection (Maybe (Val Text)) -csccHostArn = lens _codeStarConnectionsConnectionHostArn (\s a -> s { _codeStarConnectionsConnectionHostArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestarconnections-connection.html#cfn-codestarconnections-connection-providertype -csccProviderType :: Lens' CodeStarConnectionsConnection (Maybe (Val Text)) -csccProviderType = lens _codeStarConnectionsConnectionProviderType (\s a -> s { _codeStarConnectionsConnectionProviderType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestarconnections-connection.html#cfn-codestarconnections-connection-tags -csccTags :: Lens' CodeStarConnectionsConnection (Maybe [Tag]) -csccTags = lens _codeStarConnectionsConnectionTags (\s a -> s { _codeStarConnectionsConnectionTags = a }) diff --git a/library-gen/Stratosphere/Resources/CodeStarGitHubRepository.hs b/library-gen/Stratosphere/Resources/CodeStarGitHubRepository.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CodeStarGitHubRepository.hs +++ /dev/null @@ -1,86 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestar-githubrepository.html - -module Stratosphere.Resources.CodeStarGitHubRepository where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodeStarGitHubRepositoryCode - --- | Full data type definition for CodeStarGitHubRepository. See --- 'codeStarGitHubRepository' for a more convenient constructor. -data CodeStarGitHubRepository = - CodeStarGitHubRepository - { _codeStarGitHubRepositoryCode :: Maybe CodeStarGitHubRepositoryCode - , _codeStarGitHubRepositoryEnableIssues :: Maybe (Val Bool) - , _codeStarGitHubRepositoryIsPrivate :: Maybe (Val Bool) - , _codeStarGitHubRepositoryRepositoryAccessToken :: Val Text - , _codeStarGitHubRepositoryRepositoryDescription :: Maybe (Val Text) - , _codeStarGitHubRepositoryRepositoryName :: Val Text - , _codeStarGitHubRepositoryRepositoryOwner :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties CodeStarGitHubRepository where - toResourceProperties CodeStarGitHubRepository{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CodeStar::GitHubRepository" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Code",) . toJSON) _codeStarGitHubRepositoryCode - , fmap (("EnableIssues",) . toJSON) _codeStarGitHubRepositoryEnableIssues - , fmap (("IsPrivate",) . toJSON) _codeStarGitHubRepositoryIsPrivate - , (Just . ("RepositoryAccessToken",) . toJSON) _codeStarGitHubRepositoryRepositoryAccessToken - , fmap (("RepositoryDescription",) . toJSON) _codeStarGitHubRepositoryRepositoryDescription - , (Just . ("RepositoryName",) . toJSON) _codeStarGitHubRepositoryRepositoryName - , (Just . ("RepositoryOwner",) . toJSON) _codeStarGitHubRepositoryRepositoryOwner - ] - } - --- | Constructor for 'CodeStarGitHubRepository' containing required fields as --- arguments. -codeStarGitHubRepository - :: Val Text -- ^ 'csghrRepositoryAccessToken' - -> Val Text -- ^ 'csghrRepositoryName' - -> Val Text -- ^ 'csghrRepositoryOwner' - -> CodeStarGitHubRepository -codeStarGitHubRepository repositoryAccessTokenarg repositoryNamearg repositoryOwnerarg = - CodeStarGitHubRepository - { _codeStarGitHubRepositoryCode = Nothing - , _codeStarGitHubRepositoryEnableIssues = Nothing - , _codeStarGitHubRepositoryIsPrivate = Nothing - , _codeStarGitHubRepositoryRepositoryAccessToken = repositoryAccessTokenarg - , _codeStarGitHubRepositoryRepositoryDescription = Nothing - , _codeStarGitHubRepositoryRepositoryName = repositoryNamearg - , _codeStarGitHubRepositoryRepositoryOwner = repositoryOwnerarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestar-githubrepository.html#cfn-codestar-githubrepository-code -csghrCode :: Lens' CodeStarGitHubRepository (Maybe CodeStarGitHubRepositoryCode) -csghrCode = lens _codeStarGitHubRepositoryCode (\s a -> s { _codeStarGitHubRepositoryCode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestar-githubrepository.html#cfn-codestar-githubrepository-enableissues -csghrEnableIssues :: Lens' CodeStarGitHubRepository (Maybe (Val Bool)) -csghrEnableIssues = lens _codeStarGitHubRepositoryEnableIssues (\s a -> s { _codeStarGitHubRepositoryEnableIssues = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestar-githubrepository.html#cfn-codestar-githubrepository-isprivate -csghrIsPrivate :: Lens' CodeStarGitHubRepository (Maybe (Val Bool)) -csghrIsPrivate = lens _codeStarGitHubRepositoryIsPrivate (\s a -> s { _codeStarGitHubRepositoryIsPrivate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestar-githubrepository.html#cfn-codestar-githubrepository-repositoryaccesstoken -csghrRepositoryAccessToken :: Lens' CodeStarGitHubRepository (Val Text) -csghrRepositoryAccessToken = lens _codeStarGitHubRepositoryRepositoryAccessToken (\s a -> s { _codeStarGitHubRepositoryRepositoryAccessToken = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestar-githubrepository.html#cfn-codestar-githubrepository-repositorydescription -csghrRepositoryDescription :: Lens' CodeStarGitHubRepository (Maybe (Val Text)) -csghrRepositoryDescription = lens _codeStarGitHubRepositoryRepositoryDescription (\s a -> s { _codeStarGitHubRepositoryRepositoryDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestar-githubrepository.html#cfn-codestar-githubrepository-repositoryname -csghrRepositoryName :: Lens' CodeStarGitHubRepository (Val Text) -csghrRepositoryName = lens _codeStarGitHubRepositoryRepositoryName (\s a -> s { _codeStarGitHubRepositoryRepositoryName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestar-githubrepository.html#cfn-codestar-githubrepository-repositoryowner -csghrRepositoryOwner :: Lens' CodeStarGitHubRepository (Val Text) -csghrRepositoryOwner = lens _codeStarGitHubRepositoryRepositoryOwner (\s a -> s { _codeStarGitHubRepositoryRepositoryOwner = a }) diff --git a/library-gen/Stratosphere/Resources/CodeStarNotificationsNotificationRule.hs b/library-gen/Stratosphere/Resources/CodeStarNotificationsNotificationRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CodeStarNotificationsNotificationRule.hs +++ /dev/null @@ -1,89 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestarnotifications-notificationrule.html - -module Stratosphere.Resources.CodeStarNotificationsNotificationRule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CodeStarNotificationsNotificationRuleTarget - --- | Full data type definition for CodeStarNotificationsNotificationRule. See --- 'codeStarNotificationsNotificationRule' for a more convenient --- constructor. -data CodeStarNotificationsNotificationRule = - CodeStarNotificationsNotificationRule - { _codeStarNotificationsNotificationRuleDetailType :: Val Text - , _codeStarNotificationsNotificationRuleEventTypeIds :: ValList Text - , _codeStarNotificationsNotificationRuleName :: Val Text - , _codeStarNotificationsNotificationRuleResource :: Val Text - , _codeStarNotificationsNotificationRuleStatus :: Maybe (Val Text) - , _codeStarNotificationsNotificationRuleTags :: Maybe Object - , _codeStarNotificationsNotificationRuleTargets :: [CodeStarNotificationsNotificationRuleTarget] - } deriving (Show, Eq) - -instance ToResourceProperties CodeStarNotificationsNotificationRule where - toResourceProperties CodeStarNotificationsNotificationRule{..} = - ResourceProperties - { resourcePropertiesType = "AWS::CodeStarNotifications::NotificationRule" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("DetailType",) . toJSON) _codeStarNotificationsNotificationRuleDetailType - , (Just . ("EventTypeIds",) . toJSON) _codeStarNotificationsNotificationRuleEventTypeIds - , (Just . ("Name",) . toJSON) _codeStarNotificationsNotificationRuleName - , (Just . ("Resource",) . toJSON) _codeStarNotificationsNotificationRuleResource - , fmap (("Status",) . toJSON) _codeStarNotificationsNotificationRuleStatus - , fmap (("Tags",) . toJSON) _codeStarNotificationsNotificationRuleTags - , (Just . ("Targets",) . toJSON) _codeStarNotificationsNotificationRuleTargets - ] - } - --- | Constructor for 'CodeStarNotificationsNotificationRule' containing --- required fields as arguments. -codeStarNotificationsNotificationRule - :: Val Text -- ^ 'csnnrDetailType' - -> ValList Text -- ^ 'csnnrEventTypeIds' - -> Val Text -- ^ 'csnnrName' - -> Val Text -- ^ 'csnnrResource' - -> [CodeStarNotificationsNotificationRuleTarget] -- ^ 'csnnrTargets' - -> CodeStarNotificationsNotificationRule -codeStarNotificationsNotificationRule detailTypearg eventTypeIdsarg namearg resourcearg targetsarg = - CodeStarNotificationsNotificationRule - { _codeStarNotificationsNotificationRuleDetailType = detailTypearg - , _codeStarNotificationsNotificationRuleEventTypeIds = eventTypeIdsarg - , _codeStarNotificationsNotificationRuleName = namearg - , _codeStarNotificationsNotificationRuleResource = resourcearg - , _codeStarNotificationsNotificationRuleStatus = Nothing - , _codeStarNotificationsNotificationRuleTags = Nothing - , _codeStarNotificationsNotificationRuleTargets = targetsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestarnotifications-notificationrule.html#cfn-codestarnotifications-notificationrule-detailtype -csnnrDetailType :: Lens' CodeStarNotificationsNotificationRule (Val Text) -csnnrDetailType = lens _codeStarNotificationsNotificationRuleDetailType (\s a -> s { _codeStarNotificationsNotificationRuleDetailType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestarnotifications-notificationrule.html#cfn-codestarnotifications-notificationrule-eventtypeids -csnnrEventTypeIds :: Lens' CodeStarNotificationsNotificationRule (ValList Text) -csnnrEventTypeIds = lens _codeStarNotificationsNotificationRuleEventTypeIds (\s a -> s { _codeStarNotificationsNotificationRuleEventTypeIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestarnotifications-notificationrule.html#cfn-codestarnotifications-notificationrule-name -csnnrName :: Lens' CodeStarNotificationsNotificationRule (Val Text) -csnnrName = lens _codeStarNotificationsNotificationRuleName (\s a -> s { _codeStarNotificationsNotificationRuleName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestarnotifications-notificationrule.html#cfn-codestarnotifications-notificationrule-resource -csnnrResource :: Lens' CodeStarNotificationsNotificationRule (Val Text) -csnnrResource = lens _codeStarNotificationsNotificationRuleResource (\s a -> s { _codeStarNotificationsNotificationRuleResource = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestarnotifications-notificationrule.html#cfn-codestarnotifications-notificationrule-status -csnnrStatus :: Lens' CodeStarNotificationsNotificationRule (Maybe (Val Text)) -csnnrStatus = lens _codeStarNotificationsNotificationRuleStatus (\s a -> s { _codeStarNotificationsNotificationRuleStatus = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestarnotifications-notificationrule.html#cfn-codestarnotifications-notificationrule-tags -csnnrTags :: Lens' CodeStarNotificationsNotificationRule (Maybe Object) -csnnrTags = lens _codeStarNotificationsNotificationRuleTags (\s a -> s { _codeStarNotificationsNotificationRuleTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestarnotifications-notificationrule.html#cfn-codestarnotifications-notificationrule-targets -csnnrTargets :: Lens' CodeStarNotificationsNotificationRule [CodeStarNotificationsNotificationRuleTarget] -csnnrTargets = lens _codeStarNotificationsNotificationRuleTargets (\s a -> s { _codeStarNotificationsNotificationRuleTargets = a }) diff --git a/library-gen/Stratosphere/Resources/CognitoIdentityPool.hs b/library-gen/Stratosphere/Resources/CognitoIdentityPool.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CognitoIdentityPool.hs +++ /dev/null @@ -1,114 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-identitypool.html - -module Stratosphere.Resources.CognitoIdentityPool where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CognitoIdentityPoolCognitoIdentityProvider -import Stratosphere.ResourceProperties.CognitoIdentityPoolCognitoStreams -import Stratosphere.ResourceProperties.CognitoIdentityPoolPushSync - --- | Full data type definition for CognitoIdentityPool. See --- 'cognitoIdentityPool' for a more convenient constructor. -data CognitoIdentityPool = - CognitoIdentityPool - { _cognitoIdentityPoolAllowClassicFlow :: Maybe (Val Bool) - , _cognitoIdentityPoolAllowUnauthenticatedIdentities :: Val Bool - , _cognitoIdentityPoolCognitoEvents :: Maybe Object - , _cognitoIdentityPoolCognitoIdentityProviders :: Maybe [CognitoIdentityPoolCognitoIdentityProvider] - , _cognitoIdentityPoolCognitoStreams :: Maybe CognitoIdentityPoolCognitoStreams - , _cognitoIdentityPoolDeveloperProviderName :: Maybe (Val Text) - , _cognitoIdentityPoolIdentityPoolName :: Maybe (Val Text) - , _cognitoIdentityPoolOpenIdConnectProviderARNs :: Maybe (ValList Text) - , _cognitoIdentityPoolPushSync :: Maybe CognitoIdentityPoolPushSync - , _cognitoIdentityPoolSamlProviderARNs :: Maybe (ValList Text) - , _cognitoIdentityPoolSupportedLoginProviders :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties CognitoIdentityPool where - toResourceProperties CognitoIdentityPool{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Cognito::IdentityPool" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AllowClassicFlow",) . toJSON) _cognitoIdentityPoolAllowClassicFlow - , (Just . ("AllowUnauthenticatedIdentities",) . toJSON) _cognitoIdentityPoolAllowUnauthenticatedIdentities - , fmap (("CognitoEvents",) . toJSON) _cognitoIdentityPoolCognitoEvents - , fmap (("CognitoIdentityProviders",) . toJSON) _cognitoIdentityPoolCognitoIdentityProviders - , fmap (("CognitoStreams",) . toJSON) _cognitoIdentityPoolCognitoStreams - , fmap (("DeveloperProviderName",) . toJSON) _cognitoIdentityPoolDeveloperProviderName - , fmap (("IdentityPoolName",) . toJSON) _cognitoIdentityPoolIdentityPoolName - , fmap (("OpenIdConnectProviderARNs",) . toJSON) _cognitoIdentityPoolOpenIdConnectProviderARNs - , fmap (("PushSync",) . toJSON) _cognitoIdentityPoolPushSync - , fmap (("SamlProviderARNs",) . toJSON) _cognitoIdentityPoolSamlProviderARNs - , fmap (("SupportedLoginProviders",) . toJSON) _cognitoIdentityPoolSupportedLoginProviders - ] - } - --- | Constructor for 'CognitoIdentityPool' containing required fields as --- arguments. -cognitoIdentityPool - :: Val Bool -- ^ 'cipAllowUnauthenticatedIdentities' - -> CognitoIdentityPool -cognitoIdentityPool allowUnauthenticatedIdentitiesarg = - CognitoIdentityPool - { _cognitoIdentityPoolAllowClassicFlow = Nothing - , _cognitoIdentityPoolAllowUnauthenticatedIdentities = allowUnauthenticatedIdentitiesarg - , _cognitoIdentityPoolCognitoEvents = Nothing - , _cognitoIdentityPoolCognitoIdentityProviders = Nothing - , _cognitoIdentityPoolCognitoStreams = Nothing - , _cognitoIdentityPoolDeveloperProviderName = Nothing - , _cognitoIdentityPoolIdentityPoolName = Nothing - , _cognitoIdentityPoolOpenIdConnectProviderARNs = Nothing - , _cognitoIdentityPoolPushSync = Nothing - , _cognitoIdentityPoolSamlProviderARNs = Nothing - , _cognitoIdentityPoolSupportedLoginProviders = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-identitypool.html#cfn-cognito-identitypool-allowclassicflow -cipAllowClassicFlow :: Lens' CognitoIdentityPool (Maybe (Val Bool)) -cipAllowClassicFlow = lens _cognitoIdentityPoolAllowClassicFlow (\s a -> s { _cognitoIdentityPoolAllowClassicFlow = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-identitypool.html#cfn-cognito-identitypool-allowunauthenticatedidentities -cipAllowUnauthenticatedIdentities :: Lens' CognitoIdentityPool (Val Bool) -cipAllowUnauthenticatedIdentities = lens _cognitoIdentityPoolAllowUnauthenticatedIdentities (\s a -> s { _cognitoIdentityPoolAllowUnauthenticatedIdentities = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-identitypool.html#cfn-cognito-identitypool-cognitoevents -cipCognitoEvents :: Lens' CognitoIdentityPool (Maybe Object) -cipCognitoEvents = lens _cognitoIdentityPoolCognitoEvents (\s a -> s { _cognitoIdentityPoolCognitoEvents = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-identitypool.html#cfn-cognito-identitypool-cognitoidentityproviders -cipCognitoIdentityProviders :: Lens' CognitoIdentityPool (Maybe [CognitoIdentityPoolCognitoIdentityProvider]) -cipCognitoIdentityProviders = lens _cognitoIdentityPoolCognitoIdentityProviders (\s a -> s { _cognitoIdentityPoolCognitoIdentityProviders = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-identitypool.html#cfn-cognito-identitypool-cognitostreams -cipCognitoStreams :: Lens' CognitoIdentityPool (Maybe CognitoIdentityPoolCognitoStreams) -cipCognitoStreams = lens _cognitoIdentityPoolCognitoStreams (\s a -> s { _cognitoIdentityPoolCognitoStreams = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-identitypool.html#cfn-cognito-identitypool-developerprovidername -cipDeveloperProviderName :: Lens' CognitoIdentityPool (Maybe (Val Text)) -cipDeveloperProviderName = lens _cognitoIdentityPoolDeveloperProviderName (\s a -> s { _cognitoIdentityPoolDeveloperProviderName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-identitypool.html#cfn-cognito-identitypool-identitypoolname -cipIdentityPoolName :: Lens' CognitoIdentityPool (Maybe (Val Text)) -cipIdentityPoolName = lens _cognitoIdentityPoolIdentityPoolName (\s a -> s { _cognitoIdentityPoolIdentityPoolName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-identitypool.html#cfn-cognito-identitypool-openidconnectproviderarns -cipOpenIdConnectProviderARNs :: Lens' CognitoIdentityPool (Maybe (ValList Text)) -cipOpenIdConnectProviderARNs = lens _cognitoIdentityPoolOpenIdConnectProviderARNs (\s a -> s { _cognitoIdentityPoolOpenIdConnectProviderARNs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-identitypool.html#cfn-cognito-identitypool-pushsync -cipPushSync :: Lens' CognitoIdentityPool (Maybe CognitoIdentityPoolPushSync) -cipPushSync = lens _cognitoIdentityPoolPushSync (\s a -> s { _cognitoIdentityPoolPushSync = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-identitypool.html#cfn-cognito-identitypool-samlproviderarns -cipSamlProviderARNs :: Lens' CognitoIdentityPool (Maybe (ValList Text)) -cipSamlProviderARNs = lens _cognitoIdentityPoolSamlProviderARNs (\s a -> s { _cognitoIdentityPoolSamlProviderARNs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-identitypool.html#cfn-cognito-identitypool-supportedloginproviders -cipSupportedLoginProviders :: Lens' CognitoIdentityPool (Maybe Object) -cipSupportedLoginProviders = lens _cognitoIdentityPoolSupportedLoginProviders (\s a -> s { _cognitoIdentityPoolSupportedLoginProviders = a }) diff --git a/library-gen/Stratosphere/Resources/CognitoIdentityPoolRoleAttachment.hs b/library-gen/Stratosphere/Resources/CognitoIdentityPoolRoleAttachment.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CognitoIdentityPoolRoleAttachment.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-identitypoolroleattachment.html - -module Stratosphere.Resources.CognitoIdentityPoolRoleAttachment where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CognitoIdentityPoolRoleAttachment. See --- 'cognitoIdentityPoolRoleAttachment' for a more convenient constructor. -data CognitoIdentityPoolRoleAttachment = - CognitoIdentityPoolRoleAttachment - { _cognitoIdentityPoolRoleAttachmentIdentityPoolId :: Val Text - , _cognitoIdentityPoolRoleAttachmentRoleMappings :: Maybe Object - , _cognitoIdentityPoolRoleAttachmentRoles :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties CognitoIdentityPoolRoleAttachment where - toResourceProperties CognitoIdentityPoolRoleAttachment{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Cognito::IdentityPoolRoleAttachment" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("IdentityPoolId",) . toJSON) _cognitoIdentityPoolRoleAttachmentIdentityPoolId - , fmap (("RoleMappings",) . toJSON) _cognitoIdentityPoolRoleAttachmentRoleMappings - , fmap (("Roles",) . toJSON) _cognitoIdentityPoolRoleAttachmentRoles - ] - } - --- | Constructor for 'CognitoIdentityPoolRoleAttachment' containing required --- fields as arguments. -cognitoIdentityPoolRoleAttachment - :: Val Text -- ^ 'cipraIdentityPoolId' - -> CognitoIdentityPoolRoleAttachment -cognitoIdentityPoolRoleAttachment identityPoolIdarg = - CognitoIdentityPoolRoleAttachment - { _cognitoIdentityPoolRoleAttachmentIdentityPoolId = identityPoolIdarg - , _cognitoIdentityPoolRoleAttachmentRoleMappings = Nothing - , _cognitoIdentityPoolRoleAttachmentRoles = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-identitypoolroleattachment.html#cfn-cognito-identitypoolroleattachment-identitypoolid -cipraIdentityPoolId :: Lens' CognitoIdentityPoolRoleAttachment (Val Text) -cipraIdentityPoolId = lens _cognitoIdentityPoolRoleAttachmentIdentityPoolId (\s a -> s { _cognitoIdentityPoolRoleAttachmentIdentityPoolId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-identitypoolroleattachment.html#cfn-cognito-identitypoolroleattachment-rolemappings -cipraRoleMappings :: Lens' CognitoIdentityPoolRoleAttachment (Maybe Object) -cipraRoleMappings = lens _cognitoIdentityPoolRoleAttachmentRoleMappings (\s a -> s { _cognitoIdentityPoolRoleAttachmentRoleMappings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-identitypoolroleattachment.html#cfn-cognito-identitypoolroleattachment-roles -cipraRoles :: Lens' CognitoIdentityPoolRoleAttachment (Maybe Object) -cipraRoles = lens _cognitoIdentityPoolRoleAttachmentRoles (\s a -> s { _cognitoIdentityPoolRoleAttachmentRoles = a }) diff --git a/library-gen/Stratosphere/Resources/CognitoUserPool.hs b/library-gen/Stratosphere/Resources/CognitoUserPool.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CognitoUserPool.hs +++ /dev/null @@ -1,198 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpool.html - -module Stratosphere.Resources.CognitoUserPool where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CognitoUserPoolAccountRecoverySetting -import Stratosphere.ResourceProperties.CognitoUserPoolAdminCreateUserConfig -import Stratosphere.ResourceProperties.CognitoUserPoolDeviceConfiguration -import Stratosphere.ResourceProperties.CognitoUserPoolEmailConfiguration -import Stratosphere.ResourceProperties.CognitoUserPoolLambdaConfig -import Stratosphere.ResourceProperties.CognitoUserPoolPolicies -import Stratosphere.ResourceProperties.CognitoUserPoolSchemaAttribute -import Stratosphere.ResourceProperties.CognitoUserPoolSmsConfiguration -import Stratosphere.ResourceProperties.CognitoUserPoolUserPoolAddOns -import Stratosphere.ResourceProperties.CognitoUserPoolUsernameConfiguration -import Stratosphere.ResourceProperties.CognitoUserPoolVerificationMessageTemplate - --- | Full data type definition for CognitoUserPool. See 'cognitoUserPool' for --- a more convenient constructor. -data CognitoUserPool = - CognitoUserPool - { _cognitoUserPoolAccountRecoverySetting :: Maybe CognitoUserPoolAccountRecoverySetting - , _cognitoUserPoolAdminCreateUserConfig :: Maybe CognitoUserPoolAdminCreateUserConfig - , _cognitoUserPoolAliasAttributes :: Maybe (ValList Text) - , _cognitoUserPoolAutoVerifiedAttributes :: Maybe (ValList Text) - , _cognitoUserPoolDeviceConfiguration :: Maybe CognitoUserPoolDeviceConfiguration - , _cognitoUserPoolEmailConfiguration :: Maybe CognitoUserPoolEmailConfiguration - , _cognitoUserPoolEmailVerificationMessage :: Maybe (Val Text) - , _cognitoUserPoolEmailVerificationSubject :: Maybe (Val Text) - , _cognitoUserPoolEnabledMfas :: Maybe (ValList Text) - , _cognitoUserPoolLambdaConfig :: Maybe CognitoUserPoolLambdaConfig - , _cognitoUserPoolMfaConfiguration :: Maybe (Val Text) - , _cognitoUserPoolPolicies :: Maybe CognitoUserPoolPolicies - , _cognitoUserPoolSchema :: Maybe [CognitoUserPoolSchemaAttribute] - , _cognitoUserPoolSmsAuthenticationMessage :: Maybe (Val Text) - , _cognitoUserPoolSmsConfiguration :: Maybe CognitoUserPoolSmsConfiguration - , _cognitoUserPoolSmsVerificationMessage :: Maybe (Val Text) - , _cognitoUserPoolUserPoolAddOns :: Maybe CognitoUserPoolUserPoolAddOns - , _cognitoUserPoolUserPoolName :: Maybe (Val Text) - , _cognitoUserPoolUserPoolTags :: Maybe Object - , _cognitoUserPoolUsernameAttributes :: Maybe (ValList Text) - , _cognitoUserPoolUsernameConfiguration :: Maybe CognitoUserPoolUsernameConfiguration - , _cognitoUserPoolVerificationMessageTemplate :: Maybe CognitoUserPoolVerificationMessageTemplate - } deriving (Show, Eq) - -instance ToResourceProperties CognitoUserPool where - toResourceProperties CognitoUserPool{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Cognito::UserPool" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AccountRecoverySetting",) . toJSON) _cognitoUserPoolAccountRecoverySetting - , fmap (("AdminCreateUserConfig",) . toJSON) _cognitoUserPoolAdminCreateUserConfig - , fmap (("AliasAttributes",) . toJSON) _cognitoUserPoolAliasAttributes - , fmap (("AutoVerifiedAttributes",) . toJSON) _cognitoUserPoolAutoVerifiedAttributes - , fmap (("DeviceConfiguration",) . toJSON) _cognitoUserPoolDeviceConfiguration - , fmap (("EmailConfiguration",) . toJSON) _cognitoUserPoolEmailConfiguration - , fmap (("EmailVerificationMessage",) . toJSON) _cognitoUserPoolEmailVerificationMessage - , fmap (("EmailVerificationSubject",) . toJSON) _cognitoUserPoolEmailVerificationSubject - , fmap (("EnabledMfas",) . toJSON) _cognitoUserPoolEnabledMfas - , fmap (("LambdaConfig",) . toJSON) _cognitoUserPoolLambdaConfig - , fmap (("MfaConfiguration",) . toJSON) _cognitoUserPoolMfaConfiguration - , fmap (("Policies",) . toJSON) _cognitoUserPoolPolicies - , fmap (("Schema",) . toJSON) _cognitoUserPoolSchema - , fmap (("SmsAuthenticationMessage",) . toJSON) _cognitoUserPoolSmsAuthenticationMessage - , fmap (("SmsConfiguration",) . toJSON) _cognitoUserPoolSmsConfiguration - , fmap (("SmsVerificationMessage",) . toJSON) _cognitoUserPoolSmsVerificationMessage - , fmap (("UserPoolAddOns",) . toJSON) _cognitoUserPoolUserPoolAddOns - , fmap (("UserPoolName",) . toJSON) _cognitoUserPoolUserPoolName - , fmap (("UserPoolTags",) . toJSON) _cognitoUserPoolUserPoolTags - , fmap (("UsernameAttributes",) . toJSON) _cognitoUserPoolUsernameAttributes - , fmap (("UsernameConfiguration",) . toJSON) _cognitoUserPoolUsernameConfiguration - , fmap (("VerificationMessageTemplate",) . toJSON) _cognitoUserPoolVerificationMessageTemplate - ] - } - --- | Constructor for 'CognitoUserPool' containing required fields as --- arguments. -cognitoUserPool - :: CognitoUserPool -cognitoUserPool = - CognitoUserPool - { _cognitoUserPoolAccountRecoverySetting = Nothing - , _cognitoUserPoolAdminCreateUserConfig = Nothing - , _cognitoUserPoolAliasAttributes = Nothing - , _cognitoUserPoolAutoVerifiedAttributes = Nothing - , _cognitoUserPoolDeviceConfiguration = Nothing - , _cognitoUserPoolEmailConfiguration = Nothing - , _cognitoUserPoolEmailVerificationMessage = Nothing - , _cognitoUserPoolEmailVerificationSubject = Nothing - , _cognitoUserPoolEnabledMfas = Nothing - , _cognitoUserPoolLambdaConfig = Nothing - , _cognitoUserPoolMfaConfiguration = Nothing - , _cognitoUserPoolPolicies = Nothing - , _cognitoUserPoolSchema = Nothing - , _cognitoUserPoolSmsAuthenticationMessage = Nothing - , _cognitoUserPoolSmsConfiguration = Nothing - , _cognitoUserPoolSmsVerificationMessage = Nothing - , _cognitoUserPoolUserPoolAddOns = Nothing - , _cognitoUserPoolUserPoolName = Nothing - , _cognitoUserPoolUserPoolTags = Nothing - , _cognitoUserPoolUsernameAttributes = Nothing - , _cognitoUserPoolUsernameConfiguration = Nothing - , _cognitoUserPoolVerificationMessageTemplate = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpool.html#cfn-cognito-userpool-accountrecoverysetting -cupAccountRecoverySetting :: Lens' CognitoUserPool (Maybe CognitoUserPoolAccountRecoverySetting) -cupAccountRecoverySetting = lens _cognitoUserPoolAccountRecoverySetting (\s a -> s { _cognitoUserPoolAccountRecoverySetting = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpool.html#cfn-cognito-userpool-admincreateuserconfig -cupAdminCreateUserConfig :: Lens' CognitoUserPool (Maybe CognitoUserPoolAdminCreateUserConfig) -cupAdminCreateUserConfig = lens _cognitoUserPoolAdminCreateUserConfig (\s a -> s { _cognitoUserPoolAdminCreateUserConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpool.html#cfn-cognito-userpool-aliasattributes -cupAliasAttributes :: Lens' CognitoUserPool (Maybe (ValList Text)) -cupAliasAttributes = lens _cognitoUserPoolAliasAttributes (\s a -> s { _cognitoUserPoolAliasAttributes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpool.html#cfn-cognito-userpool-autoverifiedattributes -cupAutoVerifiedAttributes :: Lens' CognitoUserPool (Maybe (ValList Text)) -cupAutoVerifiedAttributes = lens _cognitoUserPoolAutoVerifiedAttributes (\s a -> s { _cognitoUserPoolAutoVerifiedAttributes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpool.html#cfn-cognito-userpool-deviceconfiguration -cupDeviceConfiguration :: Lens' CognitoUserPool (Maybe CognitoUserPoolDeviceConfiguration) -cupDeviceConfiguration = lens _cognitoUserPoolDeviceConfiguration (\s a -> s { _cognitoUserPoolDeviceConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpool.html#cfn-cognito-userpool-emailconfiguration -cupEmailConfiguration :: Lens' CognitoUserPool (Maybe CognitoUserPoolEmailConfiguration) -cupEmailConfiguration = lens _cognitoUserPoolEmailConfiguration (\s a -> s { _cognitoUserPoolEmailConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpool.html#cfn-cognito-userpool-emailverificationmessage -cupEmailVerificationMessage :: Lens' CognitoUserPool (Maybe (Val Text)) -cupEmailVerificationMessage = lens _cognitoUserPoolEmailVerificationMessage (\s a -> s { _cognitoUserPoolEmailVerificationMessage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpool.html#cfn-cognito-userpool-emailverificationsubject -cupEmailVerificationSubject :: Lens' CognitoUserPool (Maybe (Val Text)) -cupEmailVerificationSubject = lens _cognitoUserPoolEmailVerificationSubject (\s a -> s { _cognitoUserPoolEmailVerificationSubject = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpool.html#cfn-cognito-userpool-enabledmfas -cupEnabledMfas :: Lens' CognitoUserPool (Maybe (ValList Text)) -cupEnabledMfas = lens _cognitoUserPoolEnabledMfas (\s a -> s { _cognitoUserPoolEnabledMfas = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpool.html#cfn-cognito-userpool-lambdaconfig -cupLambdaConfig :: Lens' CognitoUserPool (Maybe CognitoUserPoolLambdaConfig) -cupLambdaConfig = lens _cognitoUserPoolLambdaConfig (\s a -> s { _cognitoUserPoolLambdaConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpool.html#cfn-cognito-userpool-mfaconfiguration -cupMfaConfiguration :: Lens' CognitoUserPool (Maybe (Val Text)) -cupMfaConfiguration = lens _cognitoUserPoolMfaConfiguration (\s a -> s { _cognitoUserPoolMfaConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpool.html#cfn-cognito-userpool-policies -cupPolicies :: Lens' CognitoUserPool (Maybe CognitoUserPoolPolicies) -cupPolicies = lens _cognitoUserPoolPolicies (\s a -> s { _cognitoUserPoolPolicies = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpool.html#cfn-cognito-userpool-schema -cupSchema :: Lens' CognitoUserPool (Maybe [CognitoUserPoolSchemaAttribute]) -cupSchema = lens _cognitoUserPoolSchema (\s a -> s { _cognitoUserPoolSchema = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpool.html#cfn-cognito-userpool-smsauthenticationmessage -cupSmsAuthenticationMessage :: Lens' CognitoUserPool (Maybe (Val Text)) -cupSmsAuthenticationMessage = lens _cognitoUserPoolSmsAuthenticationMessage (\s a -> s { _cognitoUserPoolSmsAuthenticationMessage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpool.html#cfn-cognito-userpool-smsconfiguration -cupSmsConfiguration :: Lens' CognitoUserPool (Maybe CognitoUserPoolSmsConfiguration) -cupSmsConfiguration = lens _cognitoUserPoolSmsConfiguration (\s a -> s { _cognitoUserPoolSmsConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpool.html#cfn-cognito-userpool-smsverificationmessage -cupSmsVerificationMessage :: Lens' CognitoUserPool (Maybe (Val Text)) -cupSmsVerificationMessage = lens _cognitoUserPoolSmsVerificationMessage (\s a -> s { _cognitoUserPoolSmsVerificationMessage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpool.html#cfn-cognito-userpool-userpooladdons -cupUserPoolAddOns :: Lens' CognitoUserPool (Maybe CognitoUserPoolUserPoolAddOns) -cupUserPoolAddOns = lens _cognitoUserPoolUserPoolAddOns (\s a -> s { _cognitoUserPoolUserPoolAddOns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpool.html#cfn-cognito-userpool-userpoolname -cupUserPoolName :: Lens' CognitoUserPool (Maybe (Val Text)) -cupUserPoolName = lens _cognitoUserPoolUserPoolName (\s a -> s { _cognitoUserPoolUserPoolName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpool.html#cfn-cognito-userpool-userpooltags -cupUserPoolTags :: Lens' CognitoUserPool (Maybe Object) -cupUserPoolTags = lens _cognitoUserPoolUserPoolTags (\s a -> s { _cognitoUserPoolUserPoolTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpool.html#cfn-cognito-userpool-usernameattributes -cupUsernameAttributes :: Lens' CognitoUserPool (Maybe (ValList Text)) -cupUsernameAttributes = lens _cognitoUserPoolUsernameAttributes (\s a -> s { _cognitoUserPoolUsernameAttributes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpool.html#cfn-cognito-userpool-usernameconfiguration -cupUsernameConfiguration :: Lens' CognitoUserPool (Maybe CognitoUserPoolUsernameConfiguration) -cupUsernameConfiguration = lens _cognitoUserPoolUsernameConfiguration (\s a -> s { _cognitoUserPoolUsernameConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpool.html#cfn-cognito-userpool-verificationmessagetemplate -cupVerificationMessageTemplate :: Lens' CognitoUserPool (Maybe CognitoUserPoolVerificationMessageTemplate) -cupVerificationMessageTemplate = lens _cognitoUserPoolVerificationMessageTemplate (\s a -> s { _cognitoUserPoolVerificationMessageTemplate = a }) diff --git a/library-gen/Stratosphere/Resources/CognitoUserPoolClient.hs b/library-gen/Stratosphere/Resources/CognitoUserPoolClient.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CognitoUserPoolClient.hs +++ /dev/null @@ -1,161 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolclient.html - -module Stratosphere.Resources.CognitoUserPoolClient where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CognitoUserPoolClientAnalyticsConfiguration - --- | Full data type definition for CognitoUserPoolClient. See --- 'cognitoUserPoolClient' for a more convenient constructor. -data CognitoUserPoolClient = - CognitoUserPoolClient - { _cognitoUserPoolClientAccessTokenValidity :: Maybe (Val Integer) - , _cognitoUserPoolClientAllowedOAuthFlows :: Maybe (ValList Text) - , _cognitoUserPoolClientAllowedOAuthFlowsUserPoolClient :: Maybe (Val Bool) - , _cognitoUserPoolClientAllowedOAuthScopes :: Maybe (ValList Text) - , _cognitoUserPoolClientAnalyticsConfiguration :: Maybe CognitoUserPoolClientAnalyticsConfiguration - , _cognitoUserPoolClientCallbackURLs :: Maybe (ValList Text) - , _cognitoUserPoolClientClientName :: Maybe (Val Text) - , _cognitoUserPoolClientDefaultRedirectURI :: Maybe (Val Text) - , _cognitoUserPoolClientExplicitAuthFlows :: Maybe (ValList Text) - , _cognitoUserPoolClientGenerateSecret :: Maybe (Val Bool) - , _cognitoUserPoolClientIdTokenValidity :: Maybe (Val Integer) - , _cognitoUserPoolClientLogoutURLs :: Maybe (ValList Text) - , _cognitoUserPoolClientPreventUserExistenceErrors :: Maybe (Val Text) - , _cognitoUserPoolClientReadAttributes :: Maybe (ValList Text) - , _cognitoUserPoolClientRefreshTokenValidity :: Maybe (Val Integer) - , _cognitoUserPoolClientSupportedIdentityProviders :: Maybe (ValList Text) - , _cognitoUserPoolClientUserPoolId :: Val Text - , _cognitoUserPoolClientWriteAttributes :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToResourceProperties CognitoUserPoolClient where - toResourceProperties CognitoUserPoolClient{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Cognito::UserPoolClient" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AccessTokenValidity",) . toJSON) _cognitoUserPoolClientAccessTokenValidity - , fmap (("AllowedOAuthFlows",) . toJSON) _cognitoUserPoolClientAllowedOAuthFlows - , fmap (("AllowedOAuthFlowsUserPoolClient",) . toJSON) _cognitoUserPoolClientAllowedOAuthFlowsUserPoolClient - , fmap (("AllowedOAuthScopes",) . toJSON) _cognitoUserPoolClientAllowedOAuthScopes - , fmap (("AnalyticsConfiguration",) . toJSON) _cognitoUserPoolClientAnalyticsConfiguration - , fmap (("CallbackURLs",) . toJSON) _cognitoUserPoolClientCallbackURLs - , fmap (("ClientName",) . toJSON) _cognitoUserPoolClientClientName - , fmap (("DefaultRedirectURI",) . toJSON) _cognitoUserPoolClientDefaultRedirectURI - , fmap (("ExplicitAuthFlows",) . toJSON) _cognitoUserPoolClientExplicitAuthFlows - , fmap (("GenerateSecret",) . toJSON) _cognitoUserPoolClientGenerateSecret - , fmap (("IdTokenValidity",) . toJSON) _cognitoUserPoolClientIdTokenValidity - , fmap (("LogoutURLs",) . toJSON) _cognitoUserPoolClientLogoutURLs - , fmap (("PreventUserExistenceErrors",) . toJSON) _cognitoUserPoolClientPreventUserExistenceErrors - , fmap (("ReadAttributes",) . toJSON) _cognitoUserPoolClientReadAttributes - , fmap (("RefreshTokenValidity",) . toJSON) _cognitoUserPoolClientRefreshTokenValidity - , fmap (("SupportedIdentityProviders",) . toJSON) _cognitoUserPoolClientSupportedIdentityProviders - , (Just . ("UserPoolId",) . toJSON) _cognitoUserPoolClientUserPoolId - , fmap (("WriteAttributes",) . toJSON) _cognitoUserPoolClientWriteAttributes - ] - } - --- | Constructor for 'CognitoUserPoolClient' containing required fields as --- arguments. -cognitoUserPoolClient - :: Val Text -- ^ 'cupcUserPoolId' - -> CognitoUserPoolClient -cognitoUserPoolClient userPoolIdarg = - CognitoUserPoolClient - { _cognitoUserPoolClientAccessTokenValidity = Nothing - , _cognitoUserPoolClientAllowedOAuthFlows = Nothing - , _cognitoUserPoolClientAllowedOAuthFlowsUserPoolClient = Nothing - , _cognitoUserPoolClientAllowedOAuthScopes = Nothing - , _cognitoUserPoolClientAnalyticsConfiguration = Nothing - , _cognitoUserPoolClientCallbackURLs = Nothing - , _cognitoUserPoolClientClientName = Nothing - , _cognitoUserPoolClientDefaultRedirectURI = Nothing - , _cognitoUserPoolClientExplicitAuthFlows = Nothing - , _cognitoUserPoolClientGenerateSecret = Nothing - , _cognitoUserPoolClientIdTokenValidity = Nothing - , _cognitoUserPoolClientLogoutURLs = Nothing - , _cognitoUserPoolClientPreventUserExistenceErrors = Nothing - , _cognitoUserPoolClientReadAttributes = Nothing - , _cognitoUserPoolClientRefreshTokenValidity = Nothing - , _cognitoUserPoolClientSupportedIdentityProviders = Nothing - , _cognitoUserPoolClientUserPoolId = userPoolIdarg - , _cognitoUserPoolClientWriteAttributes = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolclient.html#cfn-cognito-userpoolclient-accesstokenvalidity -cupcAccessTokenValidity :: Lens' CognitoUserPoolClient (Maybe (Val Integer)) -cupcAccessTokenValidity = lens _cognitoUserPoolClientAccessTokenValidity (\s a -> s { _cognitoUserPoolClientAccessTokenValidity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolclient.html#cfn-cognito-userpoolclient-allowedoauthflows -cupcAllowedOAuthFlows :: Lens' CognitoUserPoolClient (Maybe (ValList Text)) -cupcAllowedOAuthFlows = lens _cognitoUserPoolClientAllowedOAuthFlows (\s a -> s { _cognitoUserPoolClientAllowedOAuthFlows = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolclient.html#cfn-cognito-userpoolclient-allowedoauthflowsuserpoolclient -cupcAllowedOAuthFlowsUserPoolClient :: Lens' CognitoUserPoolClient (Maybe (Val Bool)) -cupcAllowedOAuthFlowsUserPoolClient = lens _cognitoUserPoolClientAllowedOAuthFlowsUserPoolClient (\s a -> s { _cognitoUserPoolClientAllowedOAuthFlowsUserPoolClient = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolclient.html#cfn-cognito-userpoolclient-allowedoauthscopes -cupcAllowedOAuthScopes :: Lens' CognitoUserPoolClient (Maybe (ValList Text)) -cupcAllowedOAuthScopes = lens _cognitoUserPoolClientAllowedOAuthScopes (\s a -> s { _cognitoUserPoolClientAllowedOAuthScopes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolclient.html#cfn-cognito-userpoolclient-analyticsconfiguration -cupcAnalyticsConfiguration :: Lens' CognitoUserPoolClient (Maybe CognitoUserPoolClientAnalyticsConfiguration) -cupcAnalyticsConfiguration = lens _cognitoUserPoolClientAnalyticsConfiguration (\s a -> s { _cognitoUserPoolClientAnalyticsConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolclient.html#cfn-cognito-userpoolclient-callbackurls -cupcCallbackURLs :: Lens' CognitoUserPoolClient (Maybe (ValList Text)) -cupcCallbackURLs = lens _cognitoUserPoolClientCallbackURLs (\s a -> s { _cognitoUserPoolClientCallbackURLs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolclient.html#cfn-cognito-userpoolclient-clientname -cupcClientName :: Lens' CognitoUserPoolClient (Maybe (Val Text)) -cupcClientName = lens _cognitoUserPoolClientClientName (\s a -> s { _cognitoUserPoolClientClientName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolclient.html#cfn-cognito-userpoolclient-defaultredirecturi -cupcDefaultRedirectURI :: Lens' CognitoUserPoolClient (Maybe (Val Text)) -cupcDefaultRedirectURI = lens _cognitoUserPoolClientDefaultRedirectURI (\s a -> s { _cognitoUserPoolClientDefaultRedirectURI = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolclient.html#cfn-cognito-userpoolclient-explicitauthflows -cupcExplicitAuthFlows :: Lens' CognitoUserPoolClient (Maybe (ValList Text)) -cupcExplicitAuthFlows = lens _cognitoUserPoolClientExplicitAuthFlows (\s a -> s { _cognitoUserPoolClientExplicitAuthFlows = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolclient.html#cfn-cognito-userpoolclient-generatesecret -cupcGenerateSecret :: Lens' CognitoUserPoolClient (Maybe (Val Bool)) -cupcGenerateSecret = lens _cognitoUserPoolClientGenerateSecret (\s a -> s { _cognitoUserPoolClientGenerateSecret = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolclient.html#cfn-cognito-userpoolclient-idtokenvalidity -cupcIdTokenValidity :: Lens' CognitoUserPoolClient (Maybe (Val Integer)) -cupcIdTokenValidity = lens _cognitoUserPoolClientIdTokenValidity (\s a -> s { _cognitoUserPoolClientIdTokenValidity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolclient.html#cfn-cognito-userpoolclient-logouturls -cupcLogoutURLs :: Lens' CognitoUserPoolClient (Maybe (ValList Text)) -cupcLogoutURLs = lens _cognitoUserPoolClientLogoutURLs (\s a -> s { _cognitoUserPoolClientLogoutURLs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolclient.html#cfn-cognito-userpoolclient-preventuserexistenceerrors -cupcPreventUserExistenceErrors :: Lens' CognitoUserPoolClient (Maybe (Val Text)) -cupcPreventUserExistenceErrors = lens _cognitoUserPoolClientPreventUserExistenceErrors (\s a -> s { _cognitoUserPoolClientPreventUserExistenceErrors = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolclient.html#cfn-cognito-userpoolclient-readattributes -cupcReadAttributes :: Lens' CognitoUserPoolClient (Maybe (ValList Text)) -cupcReadAttributes = lens _cognitoUserPoolClientReadAttributes (\s a -> s { _cognitoUserPoolClientReadAttributes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolclient.html#cfn-cognito-userpoolclient-refreshtokenvalidity -cupcRefreshTokenValidity :: Lens' CognitoUserPoolClient (Maybe (Val Integer)) -cupcRefreshTokenValidity = lens _cognitoUserPoolClientRefreshTokenValidity (\s a -> s { _cognitoUserPoolClientRefreshTokenValidity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolclient.html#cfn-cognito-userpoolclient-supportedidentityproviders -cupcSupportedIdentityProviders :: Lens' CognitoUserPoolClient (Maybe (ValList Text)) -cupcSupportedIdentityProviders = lens _cognitoUserPoolClientSupportedIdentityProviders (\s a -> s { _cognitoUserPoolClientSupportedIdentityProviders = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolclient.html#cfn-cognito-userpoolclient-userpoolid -cupcUserPoolId :: Lens' CognitoUserPoolClient (Val Text) -cupcUserPoolId = lens _cognitoUserPoolClientUserPoolId (\s a -> s { _cognitoUserPoolClientUserPoolId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolclient.html#cfn-cognito-userpoolclient-writeattributes -cupcWriteAttributes :: Lens' CognitoUserPoolClient (Maybe (ValList Text)) -cupcWriteAttributes = lens _cognitoUserPoolClientWriteAttributes (\s a -> s { _cognitoUserPoolClientWriteAttributes = a }) diff --git a/library-gen/Stratosphere/Resources/CognitoUserPoolDomain.hs b/library-gen/Stratosphere/Resources/CognitoUserPoolDomain.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CognitoUserPoolDomain.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpooldomain.html - -module Stratosphere.Resources.CognitoUserPoolDomain where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CognitoUserPoolDomainCustomDomainConfigType - --- | Full data type definition for CognitoUserPoolDomain. See --- 'cognitoUserPoolDomain' for a more convenient constructor. -data CognitoUserPoolDomain = - CognitoUserPoolDomain - { _cognitoUserPoolDomainCustomDomainConfig :: Maybe CognitoUserPoolDomainCustomDomainConfigType - , _cognitoUserPoolDomainDomain :: Val Text - , _cognitoUserPoolDomainUserPoolId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties CognitoUserPoolDomain where - toResourceProperties CognitoUserPoolDomain{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Cognito::UserPoolDomain" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("CustomDomainConfig",) . toJSON) _cognitoUserPoolDomainCustomDomainConfig - , (Just . ("Domain",) . toJSON) _cognitoUserPoolDomainDomain - , (Just . ("UserPoolId",) . toJSON) _cognitoUserPoolDomainUserPoolId - ] - } - --- | Constructor for 'CognitoUserPoolDomain' containing required fields as --- arguments. -cognitoUserPoolDomain - :: Val Text -- ^ 'cupdDomain' - -> Val Text -- ^ 'cupdUserPoolId' - -> CognitoUserPoolDomain -cognitoUserPoolDomain domainarg userPoolIdarg = - CognitoUserPoolDomain - { _cognitoUserPoolDomainCustomDomainConfig = Nothing - , _cognitoUserPoolDomainDomain = domainarg - , _cognitoUserPoolDomainUserPoolId = userPoolIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpooldomain.html#cfn-cognito-userpooldomain-customdomainconfig -cupdCustomDomainConfig :: Lens' CognitoUserPoolDomain (Maybe CognitoUserPoolDomainCustomDomainConfigType) -cupdCustomDomainConfig = lens _cognitoUserPoolDomainCustomDomainConfig (\s a -> s { _cognitoUserPoolDomainCustomDomainConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpooldomain.html#cfn-cognito-userpooldomain-domain -cupdDomain :: Lens' CognitoUserPoolDomain (Val Text) -cupdDomain = lens _cognitoUserPoolDomainDomain (\s a -> s { _cognitoUserPoolDomainDomain = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpooldomain.html#cfn-cognito-userpooldomain-userpoolid -cupdUserPoolId :: Lens' CognitoUserPoolDomain (Val Text) -cupdUserPoolId = lens _cognitoUserPoolDomainUserPoolId (\s a -> s { _cognitoUserPoolDomainUserPoolId = a }) diff --git a/library-gen/Stratosphere/Resources/CognitoUserPoolGroup.hs b/library-gen/Stratosphere/Resources/CognitoUserPoolGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CognitoUserPoolGroup.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolgroup.html - -module Stratosphere.Resources.CognitoUserPoolGroup where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CognitoUserPoolGroup. See --- 'cognitoUserPoolGroup' for a more convenient constructor. -data CognitoUserPoolGroup = - CognitoUserPoolGroup - { _cognitoUserPoolGroupDescription :: Maybe (Val Text) - , _cognitoUserPoolGroupGroupName :: Maybe (Val Text) - , _cognitoUserPoolGroupPrecedence :: Maybe (Val Double) - , _cognitoUserPoolGroupRoleArn :: Maybe (Val Text) - , _cognitoUserPoolGroupUserPoolId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties CognitoUserPoolGroup where - toResourceProperties CognitoUserPoolGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Cognito::UserPoolGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _cognitoUserPoolGroupDescription - , fmap (("GroupName",) . toJSON) _cognitoUserPoolGroupGroupName - , fmap (("Precedence",) . toJSON) _cognitoUserPoolGroupPrecedence - , fmap (("RoleArn",) . toJSON) _cognitoUserPoolGroupRoleArn - , (Just . ("UserPoolId",) . toJSON) _cognitoUserPoolGroupUserPoolId - ] - } - --- | Constructor for 'CognitoUserPoolGroup' containing required fields as --- arguments. -cognitoUserPoolGroup - :: Val Text -- ^ 'cupgUserPoolId' - -> CognitoUserPoolGroup -cognitoUserPoolGroup userPoolIdarg = - CognitoUserPoolGroup - { _cognitoUserPoolGroupDescription = Nothing - , _cognitoUserPoolGroupGroupName = Nothing - , _cognitoUserPoolGroupPrecedence = Nothing - , _cognitoUserPoolGroupRoleArn = Nothing - , _cognitoUserPoolGroupUserPoolId = userPoolIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolgroup.html#cfn-cognito-userpoolgroup-description -cupgDescription :: Lens' CognitoUserPoolGroup (Maybe (Val Text)) -cupgDescription = lens _cognitoUserPoolGroupDescription (\s a -> s { _cognitoUserPoolGroupDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolgroup.html#cfn-cognito-userpoolgroup-groupname -cupgGroupName :: Lens' CognitoUserPoolGroup (Maybe (Val Text)) -cupgGroupName = lens _cognitoUserPoolGroupGroupName (\s a -> s { _cognitoUserPoolGroupGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolgroup.html#cfn-cognito-userpoolgroup-precedence -cupgPrecedence :: Lens' CognitoUserPoolGroup (Maybe (Val Double)) -cupgPrecedence = lens _cognitoUserPoolGroupPrecedence (\s a -> s { _cognitoUserPoolGroupPrecedence = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolgroup.html#cfn-cognito-userpoolgroup-rolearn -cupgRoleArn :: Lens' CognitoUserPoolGroup (Maybe (Val Text)) -cupgRoleArn = lens _cognitoUserPoolGroupRoleArn (\s a -> s { _cognitoUserPoolGroupRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolgroup.html#cfn-cognito-userpoolgroup-userpoolid -cupgUserPoolId :: Lens' CognitoUserPoolGroup (Val Text) -cupgUserPoolId = lens _cognitoUserPoolGroupUserPoolId (\s a -> s { _cognitoUserPoolGroupUserPoolId = a }) diff --git a/library-gen/Stratosphere/Resources/CognitoUserPoolIdentityProvider.hs b/library-gen/Stratosphere/Resources/CognitoUserPoolIdentityProvider.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CognitoUserPoolIdentityProvider.hs +++ /dev/null @@ -1,79 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolidentityprovider.html - -module Stratosphere.Resources.CognitoUserPoolIdentityProvider where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CognitoUserPoolIdentityProvider. See --- 'cognitoUserPoolIdentityProvider' for a more convenient constructor. -data CognitoUserPoolIdentityProvider = - CognitoUserPoolIdentityProvider - { _cognitoUserPoolIdentityProviderAttributeMapping :: Maybe Object - , _cognitoUserPoolIdentityProviderIdpIdentifiers :: Maybe (ValList Text) - , _cognitoUserPoolIdentityProviderProviderDetails :: Maybe Object - , _cognitoUserPoolIdentityProviderProviderName :: Val Text - , _cognitoUserPoolIdentityProviderProviderType :: Val Text - , _cognitoUserPoolIdentityProviderUserPoolId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties CognitoUserPoolIdentityProvider where - toResourceProperties CognitoUserPoolIdentityProvider{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Cognito::UserPoolIdentityProvider" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AttributeMapping",) . toJSON) _cognitoUserPoolIdentityProviderAttributeMapping - , fmap (("IdpIdentifiers",) . toJSON) _cognitoUserPoolIdentityProviderIdpIdentifiers - , fmap (("ProviderDetails",) . toJSON) _cognitoUserPoolIdentityProviderProviderDetails - , (Just . ("ProviderName",) . toJSON) _cognitoUserPoolIdentityProviderProviderName - , (Just . ("ProviderType",) . toJSON) _cognitoUserPoolIdentityProviderProviderType - , (Just . ("UserPoolId",) . toJSON) _cognitoUserPoolIdentityProviderUserPoolId - ] - } - --- | Constructor for 'CognitoUserPoolIdentityProvider' containing required --- fields as arguments. -cognitoUserPoolIdentityProvider - :: Val Text -- ^ 'cupipProviderName' - -> Val Text -- ^ 'cupipProviderType' - -> Val Text -- ^ 'cupipUserPoolId' - -> CognitoUserPoolIdentityProvider -cognitoUserPoolIdentityProvider providerNamearg providerTypearg userPoolIdarg = - CognitoUserPoolIdentityProvider - { _cognitoUserPoolIdentityProviderAttributeMapping = Nothing - , _cognitoUserPoolIdentityProviderIdpIdentifiers = Nothing - , _cognitoUserPoolIdentityProviderProviderDetails = Nothing - , _cognitoUserPoolIdentityProviderProviderName = providerNamearg - , _cognitoUserPoolIdentityProviderProviderType = providerTypearg - , _cognitoUserPoolIdentityProviderUserPoolId = userPoolIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolidentityprovider.html#cfn-cognito-userpoolidentityprovider-attributemapping -cupipAttributeMapping :: Lens' CognitoUserPoolIdentityProvider (Maybe Object) -cupipAttributeMapping = lens _cognitoUserPoolIdentityProviderAttributeMapping (\s a -> s { _cognitoUserPoolIdentityProviderAttributeMapping = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolidentityprovider.html#cfn-cognito-userpoolidentityprovider-idpidentifiers -cupipIdpIdentifiers :: Lens' CognitoUserPoolIdentityProvider (Maybe (ValList Text)) -cupipIdpIdentifiers = lens _cognitoUserPoolIdentityProviderIdpIdentifiers (\s a -> s { _cognitoUserPoolIdentityProviderIdpIdentifiers = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolidentityprovider.html#cfn-cognito-userpoolidentityprovider-providerdetails -cupipProviderDetails :: Lens' CognitoUserPoolIdentityProvider (Maybe Object) -cupipProviderDetails = lens _cognitoUserPoolIdentityProviderProviderDetails (\s a -> s { _cognitoUserPoolIdentityProviderProviderDetails = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolidentityprovider.html#cfn-cognito-userpoolidentityprovider-providername -cupipProviderName :: Lens' CognitoUserPoolIdentityProvider (Val Text) -cupipProviderName = lens _cognitoUserPoolIdentityProviderProviderName (\s a -> s { _cognitoUserPoolIdentityProviderProviderName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolidentityprovider.html#cfn-cognito-userpoolidentityprovider-providertype -cupipProviderType :: Lens' CognitoUserPoolIdentityProvider (Val Text) -cupipProviderType = lens _cognitoUserPoolIdentityProviderProviderType (\s a -> s { _cognitoUserPoolIdentityProviderProviderType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolidentityprovider.html#cfn-cognito-userpoolidentityprovider-userpoolid -cupipUserPoolId :: Lens' CognitoUserPoolIdentityProvider (Val Text) -cupipUserPoolId = lens _cognitoUserPoolIdentityProviderUserPoolId (\s a -> s { _cognitoUserPoolIdentityProviderUserPoolId = a }) diff --git a/library-gen/Stratosphere/Resources/CognitoUserPoolResourceServer.hs b/library-gen/Stratosphere/Resources/CognitoUserPoolResourceServer.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CognitoUserPoolResourceServer.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolresourceserver.html - -module Stratosphere.Resources.CognitoUserPoolResourceServer where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CognitoUserPoolResourceServerResourceServerScopeType - --- | Full data type definition for CognitoUserPoolResourceServer. See --- 'cognitoUserPoolResourceServer' for a more convenient constructor. -data CognitoUserPoolResourceServer = - CognitoUserPoolResourceServer - { _cognitoUserPoolResourceServerIdentifier :: Val Text - , _cognitoUserPoolResourceServerName :: Val Text - , _cognitoUserPoolResourceServerScopes :: Maybe [CognitoUserPoolResourceServerResourceServerScopeType] - , _cognitoUserPoolResourceServerUserPoolId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties CognitoUserPoolResourceServer where - toResourceProperties CognitoUserPoolResourceServer{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Cognito::UserPoolResourceServer" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Identifier",) . toJSON) _cognitoUserPoolResourceServerIdentifier - , (Just . ("Name",) . toJSON) _cognitoUserPoolResourceServerName - , fmap (("Scopes",) . toJSON) _cognitoUserPoolResourceServerScopes - , (Just . ("UserPoolId",) . toJSON) _cognitoUserPoolResourceServerUserPoolId - ] - } - --- | Constructor for 'CognitoUserPoolResourceServer' containing required --- fields as arguments. -cognitoUserPoolResourceServer - :: Val Text -- ^ 'cuprsIdentifier' - -> Val Text -- ^ 'cuprsName' - -> Val Text -- ^ 'cuprsUserPoolId' - -> CognitoUserPoolResourceServer -cognitoUserPoolResourceServer identifierarg namearg userPoolIdarg = - CognitoUserPoolResourceServer - { _cognitoUserPoolResourceServerIdentifier = identifierarg - , _cognitoUserPoolResourceServerName = namearg - , _cognitoUserPoolResourceServerScopes = Nothing - , _cognitoUserPoolResourceServerUserPoolId = userPoolIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolresourceserver.html#cfn-cognito-userpoolresourceserver-identifier -cuprsIdentifier :: Lens' CognitoUserPoolResourceServer (Val Text) -cuprsIdentifier = lens _cognitoUserPoolResourceServerIdentifier (\s a -> s { _cognitoUserPoolResourceServerIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolresourceserver.html#cfn-cognito-userpoolresourceserver-name -cuprsName :: Lens' CognitoUserPoolResourceServer (Val Text) -cuprsName = lens _cognitoUserPoolResourceServerName (\s a -> s { _cognitoUserPoolResourceServerName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolresourceserver.html#cfn-cognito-userpoolresourceserver-scopes -cuprsScopes :: Lens' CognitoUserPoolResourceServer (Maybe [CognitoUserPoolResourceServerResourceServerScopeType]) -cuprsScopes = lens _cognitoUserPoolResourceServerScopes (\s a -> s { _cognitoUserPoolResourceServerScopes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolresourceserver.html#cfn-cognito-userpoolresourceserver-userpoolid -cuprsUserPoolId :: Lens' CognitoUserPoolResourceServer (Val Text) -cuprsUserPoolId = lens _cognitoUserPoolResourceServerUserPoolId (\s a -> s { _cognitoUserPoolResourceServerUserPoolId = a }) diff --git a/library-gen/Stratosphere/Resources/CognitoUserPoolRiskConfigurationAttachment.hs b/library-gen/Stratosphere/Resources/CognitoUserPoolRiskConfigurationAttachment.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CognitoUserPoolRiskConfigurationAttachment.hs +++ /dev/null @@ -1,74 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolriskconfigurationattachment.html - -module Stratosphere.Resources.CognitoUserPoolRiskConfigurationAttachment where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType -import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType -import Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType - --- | Full data type definition for CognitoUserPoolRiskConfigurationAttachment. --- See 'cognitoUserPoolRiskConfigurationAttachment' for a more convenient --- constructor. -data CognitoUserPoolRiskConfigurationAttachment = - CognitoUserPoolRiskConfigurationAttachment - { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfiguration :: Maybe CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType - , _cognitoUserPoolRiskConfigurationAttachmentClientId :: Val Text - , _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfiguration :: Maybe CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType - , _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfiguration :: Maybe CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType - , _cognitoUserPoolRiskConfigurationAttachmentUserPoolId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties CognitoUserPoolRiskConfigurationAttachment where - toResourceProperties CognitoUserPoolRiskConfigurationAttachment{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Cognito::UserPoolRiskConfigurationAttachment" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AccountTakeoverRiskConfiguration",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfiguration - , (Just . ("ClientId",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentClientId - , fmap (("CompromisedCredentialsRiskConfiguration",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfiguration - , fmap (("RiskExceptionConfiguration",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfiguration - , (Just . ("UserPoolId",) . toJSON) _cognitoUserPoolRiskConfigurationAttachmentUserPoolId - ] - } - --- | Constructor for 'CognitoUserPoolRiskConfigurationAttachment' containing --- required fields as arguments. -cognitoUserPoolRiskConfigurationAttachment - :: Val Text -- ^ 'cuprcaClientId' - -> Val Text -- ^ 'cuprcaUserPoolId' - -> CognitoUserPoolRiskConfigurationAttachment -cognitoUserPoolRiskConfigurationAttachment clientIdarg userPoolIdarg = - CognitoUserPoolRiskConfigurationAttachment - { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfiguration = Nothing - , _cognitoUserPoolRiskConfigurationAttachmentClientId = clientIdarg - , _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfiguration = Nothing - , _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfiguration = Nothing - , _cognitoUserPoolRiskConfigurationAttachmentUserPoolId = userPoolIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolriskconfigurationattachment.html#cfn-cognito-userpoolriskconfigurationattachment-accounttakeoverriskconfiguration -cuprcaAccountTakeoverRiskConfiguration :: Lens' CognitoUserPoolRiskConfigurationAttachment (Maybe CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType) -cuprcaAccountTakeoverRiskConfiguration = lens _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfiguration (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolriskconfigurationattachment.html#cfn-cognito-userpoolriskconfigurationattachment-clientid -cuprcaClientId :: Lens' CognitoUserPoolRiskConfigurationAttachment (Val Text) -cuprcaClientId = lens _cognitoUserPoolRiskConfigurationAttachmentClientId (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentClientId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolriskconfigurationattachment.html#cfn-cognito-userpoolriskconfigurationattachment-compromisedcredentialsriskconfiguration -cuprcaCompromisedCredentialsRiskConfiguration :: Lens' CognitoUserPoolRiskConfigurationAttachment (Maybe CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType) -cuprcaCompromisedCredentialsRiskConfiguration = lens _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfiguration (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolriskconfigurationattachment.html#cfn-cognito-userpoolriskconfigurationattachment-riskexceptionconfiguration -cuprcaRiskExceptionConfiguration :: Lens' CognitoUserPoolRiskConfigurationAttachment (Maybe CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType) -cuprcaRiskExceptionConfiguration = lens _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfiguration (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolriskconfigurationattachment.html#cfn-cognito-userpoolriskconfigurationattachment-userpoolid -cuprcaUserPoolId :: Lens' CognitoUserPoolRiskConfigurationAttachment (Val Text) -cuprcaUserPoolId = lens _cognitoUserPoolRiskConfigurationAttachmentUserPoolId (\s a -> s { _cognitoUserPoolRiskConfigurationAttachmentUserPoolId = a }) diff --git a/library-gen/Stratosphere/Resources/CognitoUserPoolUICustomizationAttachment.hs b/library-gen/Stratosphere/Resources/CognitoUserPoolUICustomizationAttachment.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CognitoUserPoolUICustomizationAttachment.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpooluicustomizationattachment.html - -module Stratosphere.Resources.CognitoUserPoolUICustomizationAttachment where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CognitoUserPoolUICustomizationAttachment. --- See 'cognitoUserPoolUICustomizationAttachment' for a more convenient --- constructor. -data CognitoUserPoolUICustomizationAttachment = - CognitoUserPoolUICustomizationAttachment - { _cognitoUserPoolUICustomizationAttachmentCSS :: Maybe (Val Text) - , _cognitoUserPoolUICustomizationAttachmentClientId :: Val Text - , _cognitoUserPoolUICustomizationAttachmentUserPoolId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties CognitoUserPoolUICustomizationAttachment where - toResourceProperties CognitoUserPoolUICustomizationAttachment{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Cognito::UserPoolUICustomizationAttachment" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("CSS",) . toJSON) _cognitoUserPoolUICustomizationAttachmentCSS - , (Just . ("ClientId",) . toJSON) _cognitoUserPoolUICustomizationAttachmentClientId - , (Just . ("UserPoolId",) . toJSON) _cognitoUserPoolUICustomizationAttachmentUserPoolId - ] - } - --- | Constructor for 'CognitoUserPoolUICustomizationAttachment' containing --- required fields as arguments. -cognitoUserPoolUICustomizationAttachment - :: Val Text -- ^ 'cupuicaClientId' - -> Val Text -- ^ 'cupuicaUserPoolId' - -> CognitoUserPoolUICustomizationAttachment -cognitoUserPoolUICustomizationAttachment clientIdarg userPoolIdarg = - CognitoUserPoolUICustomizationAttachment - { _cognitoUserPoolUICustomizationAttachmentCSS = Nothing - , _cognitoUserPoolUICustomizationAttachmentClientId = clientIdarg - , _cognitoUserPoolUICustomizationAttachmentUserPoolId = userPoolIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpooluicustomizationattachment.html#cfn-cognito-userpooluicustomizationattachment-css -cupuicaCSS :: Lens' CognitoUserPoolUICustomizationAttachment (Maybe (Val Text)) -cupuicaCSS = lens _cognitoUserPoolUICustomizationAttachmentCSS (\s a -> s { _cognitoUserPoolUICustomizationAttachmentCSS = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpooluicustomizationattachment.html#cfn-cognito-userpooluicustomizationattachment-clientid -cupuicaClientId :: Lens' CognitoUserPoolUICustomizationAttachment (Val Text) -cupuicaClientId = lens _cognitoUserPoolUICustomizationAttachmentClientId (\s a -> s { _cognitoUserPoolUICustomizationAttachmentClientId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpooluicustomizationattachment.html#cfn-cognito-userpooluicustomizationattachment-userpoolid -cupuicaUserPoolId :: Lens' CognitoUserPoolUICustomizationAttachment (Val Text) -cupuicaUserPoolId = lens _cognitoUserPoolUICustomizationAttachmentUserPoolId (\s a -> s { _cognitoUserPoolUICustomizationAttachmentUserPoolId = a }) diff --git a/library-gen/Stratosphere/Resources/CognitoUserPoolUser.hs b/library-gen/Stratosphere/Resources/CognitoUserPoolUser.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CognitoUserPoolUser.hs +++ /dev/null @@ -1,91 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpooluser.html - -module Stratosphere.Resources.CognitoUserPoolUser where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.CognitoUserPoolUserAttributeType - --- | Full data type definition for CognitoUserPoolUser. See --- 'cognitoUserPoolUser' for a more convenient constructor. -data CognitoUserPoolUser = - CognitoUserPoolUser - { _cognitoUserPoolUserClientMetadata :: Maybe Object - , _cognitoUserPoolUserDesiredDeliveryMediums :: Maybe (ValList Text) - , _cognitoUserPoolUserForceAliasCreation :: Maybe (Val Bool) - , _cognitoUserPoolUserMessageAction :: Maybe (Val Text) - , _cognitoUserPoolUserUserAttributes :: Maybe [CognitoUserPoolUserAttributeType] - , _cognitoUserPoolUserUserPoolId :: Val Text - , _cognitoUserPoolUserUsername :: Maybe (Val Text) - , _cognitoUserPoolUserValidationData :: Maybe [CognitoUserPoolUserAttributeType] - } deriving (Show, Eq) - -instance ToResourceProperties CognitoUserPoolUser where - toResourceProperties CognitoUserPoolUser{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Cognito::UserPoolUser" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ClientMetadata",) . toJSON) _cognitoUserPoolUserClientMetadata - , fmap (("DesiredDeliveryMediums",) . toJSON) _cognitoUserPoolUserDesiredDeliveryMediums - , fmap (("ForceAliasCreation",) . toJSON) _cognitoUserPoolUserForceAliasCreation - , fmap (("MessageAction",) . toJSON) _cognitoUserPoolUserMessageAction - , fmap (("UserAttributes",) . toJSON) _cognitoUserPoolUserUserAttributes - , (Just . ("UserPoolId",) . toJSON) _cognitoUserPoolUserUserPoolId - , fmap (("Username",) . toJSON) _cognitoUserPoolUserUsername - , fmap (("ValidationData",) . toJSON) _cognitoUserPoolUserValidationData - ] - } - --- | Constructor for 'CognitoUserPoolUser' containing required fields as --- arguments. -cognitoUserPoolUser - :: Val Text -- ^ 'cupuUserPoolId' - -> CognitoUserPoolUser -cognitoUserPoolUser userPoolIdarg = - CognitoUserPoolUser - { _cognitoUserPoolUserClientMetadata = Nothing - , _cognitoUserPoolUserDesiredDeliveryMediums = Nothing - , _cognitoUserPoolUserForceAliasCreation = Nothing - , _cognitoUserPoolUserMessageAction = Nothing - , _cognitoUserPoolUserUserAttributes = Nothing - , _cognitoUserPoolUserUserPoolId = userPoolIdarg - , _cognitoUserPoolUserUsername = Nothing - , _cognitoUserPoolUserValidationData = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpooluser.html#cfn-cognito-userpooluser-clientmetadata -cupuClientMetadata :: Lens' CognitoUserPoolUser (Maybe Object) -cupuClientMetadata = lens _cognitoUserPoolUserClientMetadata (\s a -> s { _cognitoUserPoolUserClientMetadata = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpooluser.html#cfn-cognito-userpooluser-desireddeliverymediums -cupuDesiredDeliveryMediums :: Lens' CognitoUserPoolUser (Maybe (ValList Text)) -cupuDesiredDeliveryMediums = lens _cognitoUserPoolUserDesiredDeliveryMediums (\s a -> s { _cognitoUserPoolUserDesiredDeliveryMediums = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpooluser.html#cfn-cognito-userpooluser-forcealiascreation -cupuForceAliasCreation :: Lens' CognitoUserPoolUser (Maybe (Val Bool)) -cupuForceAliasCreation = lens _cognitoUserPoolUserForceAliasCreation (\s a -> s { _cognitoUserPoolUserForceAliasCreation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpooluser.html#cfn-cognito-userpooluser-messageaction -cupuMessageAction :: Lens' CognitoUserPoolUser (Maybe (Val Text)) -cupuMessageAction = lens _cognitoUserPoolUserMessageAction (\s a -> s { _cognitoUserPoolUserMessageAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpooluser.html#cfn-cognito-userpooluser-userattributes -cupuUserAttributes :: Lens' CognitoUserPoolUser (Maybe [CognitoUserPoolUserAttributeType]) -cupuUserAttributes = lens _cognitoUserPoolUserUserAttributes (\s a -> s { _cognitoUserPoolUserUserAttributes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpooluser.html#cfn-cognito-userpooluser-userpoolid -cupuUserPoolId :: Lens' CognitoUserPoolUser (Val Text) -cupuUserPoolId = lens _cognitoUserPoolUserUserPoolId (\s a -> s { _cognitoUserPoolUserUserPoolId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpooluser.html#cfn-cognito-userpooluser-username -cupuUsername :: Lens' CognitoUserPoolUser (Maybe (Val Text)) -cupuUsername = lens _cognitoUserPoolUserUsername (\s a -> s { _cognitoUserPoolUserUsername = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpooluser.html#cfn-cognito-userpooluser-validationdata -cupuValidationData :: Lens' CognitoUserPoolUser (Maybe [CognitoUserPoolUserAttributeType]) -cupuValidationData = lens _cognitoUserPoolUserValidationData (\s a -> s { _cognitoUserPoolUserValidationData = a }) diff --git a/library-gen/Stratosphere/Resources/CognitoUserPoolUserToGroupAttachment.hs b/library-gen/Stratosphere/Resources/CognitoUserPoolUserToGroupAttachment.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/CognitoUserPoolUserToGroupAttachment.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolusertogroupattachment.html - -module Stratosphere.Resources.CognitoUserPoolUserToGroupAttachment where - -import Stratosphere.ResourceImports - - --- | Full data type definition for CognitoUserPoolUserToGroupAttachment. See --- 'cognitoUserPoolUserToGroupAttachment' for a more convenient constructor. -data CognitoUserPoolUserToGroupAttachment = - CognitoUserPoolUserToGroupAttachment - { _cognitoUserPoolUserToGroupAttachmentGroupName :: Val Text - , _cognitoUserPoolUserToGroupAttachmentUserPoolId :: Val Text - , _cognitoUserPoolUserToGroupAttachmentUsername :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties CognitoUserPoolUserToGroupAttachment where - toResourceProperties CognitoUserPoolUserToGroupAttachment{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Cognito::UserPoolUserToGroupAttachment" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("GroupName",) . toJSON) _cognitoUserPoolUserToGroupAttachmentGroupName - , (Just . ("UserPoolId",) . toJSON) _cognitoUserPoolUserToGroupAttachmentUserPoolId - , (Just . ("Username",) . toJSON) _cognitoUserPoolUserToGroupAttachmentUsername - ] - } - --- | Constructor for 'CognitoUserPoolUserToGroupAttachment' containing --- required fields as arguments. -cognitoUserPoolUserToGroupAttachment - :: Val Text -- ^ 'cuputgaGroupName' - -> Val Text -- ^ 'cuputgaUserPoolId' - -> Val Text -- ^ 'cuputgaUsername' - -> CognitoUserPoolUserToGroupAttachment -cognitoUserPoolUserToGroupAttachment groupNamearg userPoolIdarg usernamearg = - CognitoUserPoolUserToGroupAttachment - { _cognitoUserPoolUserToGroupAttachmentGroupName = groupNamearg - , _cognitoUserPoolUserToGroupAttachmentUserPoolId = userPoolIdarg - , _cognitoUserPoolUserToGroupAttachmentUsername = usernamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolusertogroupattachment.html#cfn-cognito-userpoolusertogroupattachment-groupname -cuputgaGroupName :: Lens' CognitoUserPoolUserToGroupAttachment (Val Text) -cuputgaGroupName = lens _cognitoUserPoolUserToGroupAttachmentGroupName (\s a -> s { _cognitoUserPoolUserToGroupAttachmentGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolusertogroupattachment.html#cfn-cognito-userpoolusertogroupattachment-userpoolid -cuputgaUserPoolId :: Lens' CognitoUserPoolUserToGroupAttachment (Val Text) -cuputgaUserPoolId = lens _cognitoUserPoolUserToGroupAttachmentUserPoolId (\s a -> s { _cognitoUserPoolUserToGroupAttachmentUserPoolId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cognito-userpoolusertogroupattachment.html#cfn-cognito-userpoolusertogroupattachment-username -cuputgaUsername :: Lens' CognitoUserPoolUserToGroupAttachment (Val Text) -cuputgaUsername = lens _cognitoUserPoolUserToGroupAttachmentUsername (\s a -> s { _cognitoUserPoolUserToGroupAttachmentUsername = a }) diff --git a/library-gen/Stratosphere/Resources/ConfigAggregationAuthorization.hs b/library-gen/Stratosphere/Resources/ConfigAggregationAuthorization.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ConfigAggregationAuthorization.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-aggregationauthorization.html - -module Stratosphere.Resources.ConfigAggregationAuthorization where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for ConfigAggregationAuthorization. See --- 'configAggregationAuthorization' for a more convenient constructor. -data ConfigAggregationAuthorization = - ConfigAggregationAuthorization - { _configAggregationAuthorizationAuthorizedAccountId :: Val Text - , _configAggregationAuthorizationAuthorizedAwsRegion :: Val Text - , _configAggregationAuthorizationTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties ConfigAggregationAuthorization where - toResourceProperties ConfigAggregationAuthorization{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Config::AggregationAuthorization" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("AuthorizedAccountId",) . toJSON) _configAggregationAuthorizationAuthorizedAccountId - , (Just . ("AuthorizedAwsRegion",) . toJSON) _configAggregationAuthorizationAuthorizedAwsRegion - , fmap (("Tags",) . toJSON) _configAggregationAuthorizationTags - ] - } - --- | Constructor for 'ConfigAggregationAuthorization' containing required --- fields as arguments. -configAggregationAuthorization - :: Val Text -- ^ 'caaAuthorizedAccountId' - -> Val Text -- ^ 'caaAuthorizedAwsRegion' - -> ConfigAggregationAuthorization -configAggregationAuthorization authorizedAccountIdarg authorizedAwsRegionarg = - ConfigAggregationAuthorization - { _configAggregationAuthorizationAuthorizedAccountId = authorizedAccountIdarg - , _configAggregationAuthorizationAuthorizedAwsRegion = authorizedAwsRegionarg - , _configAggregationAuthorizationTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-aggregationauthorization.html#cfn-config-aggregationauthorization-authorizedaccountid -caaAuthorizedAccountId :: Lens' ConfigAggregationAuthorization (Val Text) -caaAuthorizedAccountId = lens _configAggregationAuthorizationAuthorizedAccountId (\s a -> s { _configAggregationAuthorizationAuthorizedAccountId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-aggregationauthorization.html#cfn-config-aggregationauthorization-authorizedawsregion -caaAuthorizedAwsRegion :: Lens' ConfigAggregationAuthorization (Val Text) -caaAuthorizedAwsRegion = lens _configAggregationAuthorizationAuthorizedAwsRegion (\s a -> s { _configAggregationAuthorizationAuthorizedAwsRegion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-aggregationauthorization.html#cfn-config-aggregationauthorization-tags -caaTags :: Lens' ConfigAggregationAuthorization (Maybe [Tag]) -caaTags = lens _configAggregationAuthorizationTags (\s a -> s { _configAggregationAuthorizationTags = a }) diff --git a/library-gen/Stratosphere/Resources/ConfigConfigRule.hs b/library-gen/Stratosphere/Resources/ConfigConfigRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ConfigConfigRule.hs +++ /dev/null @@ -1,78 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-configrule.html - -module Stratosphere.Resources.ConfigConfigRule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ConfigConfigRuleScope -import Stratosphere.ResourceProperties.ConfigConfigRuleSource - --- | Full data type definition for ConfigConfigRule. See 'configConfigRule' --- for a more convenient constructor. -data ConfigConfigRule = - ConfigConfigRule - { _configConfigRuleConfigRuleName :: Maybe (Val Text) - , _configConfigRuleDescription :: Maybe (Val Text) - , _configConfigRuleInputParameters :: Maybe Object - , _configConfigRuleMaximumExecutionFrequency :: Maybe (Val Text) - , _configConfigRuleScope :: Maybe ConfigConfigRuleScope - , _configConfigRuleSource :: ConfigConfigRuleSource - } deriving (Show, Eq) - -instance ToResourceProperties ConfigConfigRule where - toResourceProperties ConfigConfigRule{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Config::ConfigRule" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ConfigRuleName",) . toJSON) _configConfigRuleConfigRuleName - , fmap (("Description",) . toJSON) _configConfigRuleDescription - , fmap (("InputParameters",) . toJSON) _configConfigRuleInputParameters - , fmap (("MaximumExecutionFrequency",) . toJSON) _configConfigRuleMaximumExecutionFrequency - , fmap (("Scope",) . toJSON) _configConfigRuleScope - , (Just . ("Source",) . toJSON) _configConfigRuleSource - ] - } - --- | Constructor for 'ConfigConfigRule' containing required fields as --- arguments. -configConfigRule - :: ConfigConfigRuleSource -- ^ 'ccrSource' - -> ConfigConfigRule -configConfigRule sourcearg = - ConfigConfigRule - { _configConfigRuleConfigRuleName = Nothing - , _configConfigRuleDescription = Nothing - , _configConfigRuleInputParameters = Nothing - , _configConfigRuleMaximumExecutionFrequency = Nothing - , _configConfigRuleScope = Nothing - , _configConfigRuleSource = sourcearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-configrule.html#cfn-config-configrule-configrulename -ccrConfigRuleName :: Lens' ConfigConfigRule (Maybe (Val Text)) -ccrConfigRuleName = lens _configConfigRuleConfigRuleName (\s a -> s { _configConfigRuleConfigRuleName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-configrule.html#cfn-config-configrule-description -ccrDescription :: Lens' ConfigConfigRule (Maybe (Val Text)) -ccrDescription = lens _configConfigRuleDescription (\s a -> s { _configConfigRuleDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-configrule.html#cfn-config-configrule-inputparameters -ccrInputParameters :: Lens' ConfigConfigRule (Maybe Object) -ccrInputParameters = lens _configConfigRuleInputParameters (\s a -> s { _configConfigRuleInputParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-configrule.html#cfn-config-configrule-maximumexecutionfrequency -ccrMaximumExecutionFrequency :: Lens' ConfigConfigRule (Maybe (Val Text)) -ccrMaximumExecutionFrequency = lens _configConfigRuleMaximumExecutionFrequency (\s a -> s { _configConfigRuleMaximumExecutionFrequency = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-configrule.html#cfn-config-configrule-scope -ccrScope :: Lens' ConfigConfigRule (Maybe ConfigConfigRuleScope) -ccrScope = lens _configConfigRuleScope (\s a -> s { _configConfigRuleScope = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-configrule.html#cfn-config-configrule-source -ccrSource :: Lens' ConfigConfigRule ConfigConfigRuleSource -ccrSource = lens _configConfigRuleSource (\s a -> s { _configConfigRuleSource = a }) diff --git a/library-gen/Stratosphere/Resources/ConfigConfigurationAggregator.hs b/library-gen/Stratosphere/Resources/ConfigConfigurationAggregator.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ConfigConfigurationAggregator.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-configurationaggregator.html - -module Stratosphere.Resources.ConfigConfigurationAggregator where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ConfigConfigurationAggregatorAccountAggregationSource -import Stratosphere.ResourceProperties.ConfigConfigurationAggregatorOrganizationAggregationSource -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for ConfigConfigurationAggregator. See --- 'configConfigurationAggregator' for a more convenient constructor. -data ConfigConfigurationAggregator = - ConfigConfigurationAggregator - { _configConfigurationAggregatorAccountAggregationSources :: Maybe [ConfigConfigurationAggregatorAccountAggregationSource] - , _configConfigurationAggregatorConfigurationAggregatorName :: Val Text - , _configConfigurationAggregatorOrganizationAggregationSource :: Maybe ConfigConfigurationAggregatorOrganizationAggregationSource - , _configConfigurationAggregatorTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties ConfigConfigurationAggregator where - toResourceProperties ConfigConfigurationAggregator{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Config::ConfigurationAggregator" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AccountAggregationSources",) . toJSON) _configConfigurationAggregatorAccountAggregationSources - , (Just . ("ConfigurationAggregatorName",) . toJSON) _configConfigurationAggregatorConfigurationAggregatorName - , fmap (("OrganizationAggregationSource",) . toJSON) _configConfigurationAggregatorOrganizationAggregationSource - , fmap (("Tags",) . toJSON) _configConfigurationAggregatorTags - ] - } - --- | Constructor for 'ConfigConfigurationAggregator' containing required --- fields as arguments. -configConfigurationAggregator - :: Val Text -- ^ 'ccaConfigurationAggregatorName' - -> ConfigConfigurationAggregator -configConfigurationAggregator configurationAggregatorNamearg = - ConfigConfigurationAggregator - { _configConfigurationAggregatorAccountAggregationSources = Nothing - , _configConfigurationAggregatorConfigurationAggregatorName = configurationAggregatorNamearg - , _configConfigurationAggregatorOrganizationAggregationSource = Nothing - , _configConfigurationAggregatorTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-configurationaggregator.html#cfn-config-configurationaggregator-accountaggregationsources -ccaAccountAggregationSources :: Lens' ConfigConfigurationAggregator (Maybe [ConfigConfigurationAggregatorAccountAggregationSource]) -ccaAccountAggregationSources = lens _configConfigurationAggregatorAccountAggregationSources (\s a -> s { _configConfigurationAggregatorAccountAggregationSources = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-configurationaggregator.html#cfn-config-configurationaggregator-configurationaggregatorname -ccaConfigurationAggregatorName :: Lens' ConfigConfigurationAggregator (Val Text) -ccaConfigurationAggregatorName = lens _configConfigurationAggregatorConfigurationAggregatorName (\s a -> s { _configConfigurationAggregatorConfigurationAggregatorName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-configurationaggregator.html#cfn-config-configurationaggregator-organizationaggregationsource -ccaOrganizationAggregationSource :: Lens' ConfigConfigurationAggregator (Maybe ConfigConfigurationAggregatorOrganizationAggregationSource) -ccaOrganizationAggregationSource = lens _configConfigurationAggregatorOrganizationAggregationSource (\s a -> s { _configConfigurationAggregatorOrganizationAggregationSource = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-configurationaggregator.html#cfn-config-configurationaggregator-tags -ccaTags :: Lens' ConfigConfigurationAggregator (Maybe [Tag]) -ccaTags = lens _configConfigurationAggregatorTags (\s a -> s { _configConfigurationAggregatorTags = a }) diff --git a/library-gen/Stratosphere/Resources/ConfigConfigurationRecorder.hs b/library-gen/Stratosphere/Resources/ConfigConfigurationRecorder.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ConfigConfigurationRecorder.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-configurationrecorder.html - -module Stratosphere.Resources.ConfigConfigurationRecorder where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ConfigConfigurationRecorderRecordingGroup - --- | Full data type definition for ConfigConfigurationRecorder. See --- 'configConfigurationRecorder' for a more convenient constructor. -data ConfigConfigurationRecorder = - ConfigConfigurationRecorder - { _configConfigurationRecorderName :: Maybe (Val Text) - , _configConfigurationRecorderRecordingGroup :: Maybe ConfigConfigurationRecorderRecordingGroup - , _configConfigurationRecorderRoleARN :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties ConfigConfigurationRecorder where - toResourceProperties ConfigConfigurationRecorder{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Config::ConfigurationRecorder" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Name",) . toJSON) _configConfigurationRecorderName - , fmap (("RecordingGroup",) . toJSON) _configConfigurationRecorderRecordingGroup - , (Just . ("RoleARN",) . toJSON) _configConfigurationRecorderRoleARN - ] - } - --- | Constructor for 'ConfigConfigurationRecorder' containing required fields --- as arguments. -configConfigurationRecorder - :: Val Text -- ^ 'ccrRoleARN' - -> ConfigConfigurationRecorder -configConfigurationRecorder roleARNarg = - ConfigConfigurationRecorder - { _configConfigurationRecorderName = Nothing - , _configConfigurationRecorderRecordingGroup = Nothing - , _configConfigurationRecorderRoleARN = roleARNarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-configurationrecorder.html#cfn-config-configurationrecorder-name -ccrName :: Lens' ConfigConfigurationRecorder (Maybe (Val Text)) -ccrName = lens _configConfigurationRecorderName (\s a -> s { _configConfigurationRecorderName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-configurationrecorder.html#cfn-config-configurationrecorder-recordinggroup -ccrRecordingGroup :: Lens' ConfigConfigurationRecorder (Maybe ConfigConfigurationRecorderRecordingGroup) -ccrRecordingGroup = lens _configConfigurationRecorderRecordingGroup (\s a -> s { _configConfigurationRecorderRecordingGroup = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-configurationrecorder.html#cfn-config-configurationrecorder-rolearn -ccrRoleARN :: Lens' ConfigConfigurationRecorder (Val Text) -ccrRoleARN = lens _configConfigurationRecorderRoleARN (\s a -> s { _configConfigurationRecorderRoleARN = a }) diff --git a/library-gen/Stratosphere/Resources/ConfigConformancePack.hs b/library-gen/Stratosphere/Resources/ConfigConformancePack.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ConfigConformancePack.hs +++ /dev/null @@ -1,78 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-conformancepack.html - -module Stratosphere.Resources.ConfigConformancePack where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ConfigConformancePackConformancePackInputParameter - --- | Full data type definition for ConfigConformancePack. See --- 'configConformancePack' for a more convenient constructor. -data ConfigConformancePack = - ConfigConformancePack - { _configConformancePackConformancePackInputParameters :: Maybe [ConfigConformancePackConformancePackInputParameter] - , _configConformancePackConformancePackName :: Val Text - , _configConformancePackDeliveryS3Bucket :: Val Text - , _configConformancePackDeliveryS3KeyPrefix :: Maybe (Val Text) - , _configConformancePackTemplateBody :: Maybe (Val Text) - , _configConformancePackTemplateS3Uri :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties ConfigConformancePack where - toResourceProperties ConfigConformancePack{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Config::ConformancePack" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ConformancePackInputParameters",) . toJSON) _configConformancePackConformancePackInputParameters - , (Just . ("ConformancePackName",) . toJSON) _configConformancePackConformancePackName - , (Just . ("DeliveryS3Bucket",) . toJSON) _configConformancePackDeliveryS3Bucket - , fmap (("DeliveryS3KeyPrefix",) . toJSON) _configConformancePackDeliveryS3KeyPrefix - , fmap (("TemplateBody",) . toJSON) _configConformancePackTemplateBody - , fmap (("TemplateS3Uri",) . toJSON) _configConformancePackTemplateS3Uri - ] - } - --- | Constructor for 'ConfigConformancePack' containing required fields as --- arguments. -configConformancePack - :: Val Text -- ^ 'ccpConformancePackName' - -> Val Text -- ^ 'ccpDeliveryS3Bucket' - -> ConfigConformancePack -configConformancePack conformancePackNamearg deliveryS3Bucketarg = - ConfigConformancePack - { _configConformancePackConformancePackInputParameters = Nothing - , _configConformancePackConformancePackName = conformancePackNamearg - , _configConformancePackDeliveryS3Bucket = deliveryS3Bucketarg - , _configConformancePackDeliveryS3KeyPrefix = Nothing - , _configConformancePackTemplateBody = Nothing - , _configConformancePackTemplateS3Uri = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-conformancepack.html#cfn-config-conformancepack-conformancepackinputparameters -ccpConformancePackInputParameters :: Lens' ConfigConformancePack (Maybe [ConfigConformancePackConformancePackInputParameter]) -ccpConformancePackInputParameters = lens _configConformancePackConformancePackInputParameters (\s a -> s { _configConformancePackConformancePackInputParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-conformancepack.html#cfn-config-conformancepack-conformancepackname -ccpConformancePackName :: Lens' ConfigConformancePack (Val Text) -ccpConformancePackName = lens _configConformancePackConformancePackName (\s a -> s { _configConformancePackConformancePackName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-conformancepack.html#cfn-config-conformancepack-deliverys3bucket -ccpDeliveryS3Bucket :: Lens' ConfigConformancePack (Val Text) -ccpDeliveryS3Bucket = lens _configConformancePackDeliveryS3Bucket (\s a -> s { _configConformancePackDeliveryS3Bucket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-conformancepack.html#cfn-config-conformancepack-deliverys3keyprefix -ccpDeliveryS3KeyPrefix :: Lens' ConfigConformancePack (Maybe (Val Text)) -ccpDeliveryS3KeyPrefix = lens _configConformancePackDeliveryS3KeyPrefix (\s a -> s { _configConformancePackDeliveryS3KeyPrefix = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-conformancepack.html#cfn-config-conformancepack-templatebody -ccpTemplateBody :: Lens' ConfigConformancePack (Maybe (Val Text)) -ccpTemplateBody = lens _configConformancePackTemplateBody (\s a -> s { _configConformancePackTemplateBody = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-conformancepack.html#cfn-config-conformancepack-templates3uri -ccpTemplateS3Uri :: Lens' ConfigConformancePack (Maybe (Val Text)) -ccpTemplateS3Uri = lens _configConformancePackTemplateS3Uri (\s a -> s { _configConformancePackTemplateS3Uri = a }) diff --git a/library-gen/Stratosphere/Resources/ConfigDeliveryChannel.hs b/library-gen/Stratosphere/Resources/ConfigDeliveryChannel.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ConfigDeliveryChannel.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-deliverychannel.html - -module Stratosphere.Resources.ConfigDeliveryChannel where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ConfigDeliveryChannelConfigSnapshotDeliveryProperties - --- | Full data type definition for ConfigDeliveryChannel. See --- 'configDeliveryChannel' for a more convenient constructor. -data ConfigDeliveryChannel = - ConfigDeliveryChannel - { _configDeliveryChannelConfigSnapshotDeliveryProperties :: Maybe ConfigDeliveryChannelConfigSnapshotDeliveryProperties - , _configDeliveryChannelName :: Maybe (Val Text) - , _configDeliveryChannelS3BucketName :: Val Text - , _configDeliveryChannelS3KeyPrefix :: Maybe (Val Text) - , _configDeliveryChannelSnsTopicARN :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties ConfigDeliveryChannel where - toResourceProperties ConfigDeliveryChannel{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Config::DeliveryChannel" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ConfigSnapshotDeliveryProperties",) . toJSON) _configDeliveryChannelConfigSnapshotDeliveryProperties - , fmap (("Name",) . toJSON) _configDeliveryChannelName - , (Just . ("S3BucketName",) . toJSON) _configDeliveryChannelS3BucketName - , fmap (("S3KeyPrefix",) . toJSON) _configDeliveryChannelS3KeyPrefix - , fmap (("SnsTopicARN",) . toJSON) _configDeliveryChannelSnsTopicARN - ] - } - --- | Constructor for 'ConfigDeliveryChannel' containing required fields as --- arguments. -configDeliveryChannel - :: Val Text -- ^ 'cdcS3BucketName' - -> ConfigDeliveryChannel -configDeliveryChannel s3BucketNamearg = - ConfigDeliveryChannel - { _configDeliveryChannelConfigSnapshotDeliveryProperties = Nothing - , _configDeliveryChannelName = Nothing - , _configDeliveryChannelS3BucketName = s3BucketNamearg - , _configDeliveryChannelS3KeyPrefix = Nothing - , _configDeliveryChannelSnsTopicARN = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-deliverychannel.html#cfn-config-deliverychannel-configsnapshotdeliveryproperties -cdcConfigSnapshotDeliveryProperties :: Lens' ConfigDeliveryChannel (Maybe ConfigDeliveryChannelConfigSnapshotDeliveryProperties) -cdcConfigSnapshotDeliveryProperties = lens _configDeliveryChannelConfigSnapshotDeliveryProperties (\s a -> s { _configDeliveryChannelConfigSnapshotDeliveryProperties = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-deliverychannel.html#cfn-config-deliverychannel-name -cdcName :: Lens' ConfigDeliveryChannel (Maybe (Val Text)) -cdcName = lens _configDeliveryChannelName (\s a -> s { _configDeliveryChannelName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-deliverychannel.html#cfn-config-deliverychannel-s3bucketname -cdcS3BucketName :: Lens' ConfigDeliveryChannel (Val Text) -cdcS3BucketName = lens _configDeliveryChannelS3BucketName (\s a -> s { _configDeliveryChannelS3BucketName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-deliverychannel.html#cfn-config-deliverychannel-s3keyprefix -cdcS3KeyPrefix :: Lens' ConfigDeliveryChannel (Maybe (Val Text)) -cdcS3KeyPrefix = lens _configDeliveryChannelS3KeyPrefix (\s a -> s { _configDeliveryChannelS3KeyPrefix = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-deliverychannel.html#cfn-config-deliverychannel-snstopicarn -cdcSnsTopicARN :: Lens' ConfigDeliveryChannel (Maybe (Val Text)) -cdcSnsTopicARN = lens _configDeliveryChannelSnsTopicARN (\s a -> s { _configDeliveryChannelSnsTopicARN = a }) diff --git a/library-gen/Stratosphere/Resources/ConfigOrganizationConfigRule.hs b/library-gen/Stratosphere/Resources/ConfigOrganizationConfigRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ConfigOrganizationConfigRule.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-organizationconfigrule.html - -module Stratosphere.Resources.ConfigOrganizationConfigRule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata -import Stratosphere.ResourceProperties.ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata - --- | Full data type definition for ConfigOrganizationConfigRule. See --- 'configOrganizationConfigRule' for a more convenient constructor. -data ConfigOrganizationConfigRule = - ConfigOrganizationConfigRule - { _configOrganizationConfigRuleExcludedAccounts :: Maybe (ValList Text) - , _configOrganizationConfigRuleOrganizationConfigRuleName :: Val Text - , _configOrganizationConfigRuleOrganizationCustomRuleMetadata :: Maybe ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata - , _configOrganizationConfigRuleOrganizationManagedRuleMetadata :: Maybe ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata - } deriving (Show, Eq) - -instance ToResourceProperties ConfigOrganizationConfigRule where - toResourceProperties ConfigOrganizationConfigRule{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Config::OrganizationConfigRule" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ExcludedAccounts",) . toJSON) _configOrganizationConfigRuleExcludedAccounts - , (Just . ("OrganizationConfigRuleName",) . toJSON) _configOrganizationConfigRuleOrganizationConfigRuleName - , fmap (("OrganizationCustomRuleMetadata",) . toJSON) _configOrganizationConfigRuleOrganizationCustomRuleMetadata - , fmap (("OrganizationManagedRuleMetadata",) . toJSON) _configOrganizationConfigRuleOrganizationManagedRuleMetadata - ] - } - --- | Constructor for 'ConfigOrganizationConfigRule' containing required fields --- as arguments. -configOrganizationConfigRule - :: Val Text -- ^ 'cocrOrganizationConfigRuleName' - -> ConfigOrganizationConfigRule -configOrganizationConfigRule organizationConfigRuleNamearg = - ConfigOrganizationConfigRule - { _configOrganizationConfigRuleExcludedAccounts = Nothing - , _configOrganizationConfigRuleOrganizationConfigRuleName = organizationConfigRuleNamearg - , _configOrganizationConfigRuleOrganizationCustomRuleMetadata = Nothing - , _configOrganizationConfigRuleOrganizationManagedRuleMetadata = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-organizationconfigrule.html#cfn-config-organizationconfigrule-excludedaccounts -cocrExcludedAccounts :: Lens' ConfigOrganizationConfigRule (Maybe (ValList Text)) -cocrExcludedAccounts = lens _configOrganizationConfigRuleExcludedAccounts (\s a -> s { _configOrganizationConfigRuleExcludedAccounts = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-organizationconfigrule.html#cfn-config-organizationconfigrule-organizationconfigrulename -cocrOrganizationConfigRuleName :: Lens' ConfigOrganizationConfigRule (Val Text) -cocrOrganizationConfigRuleName = lens _configOrganizationConfigRuleOrganizationConfigRuleName (\s a -> s { _configOrganizationConfigRuleOrganizationConfigRuleName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-organizationconfigrule.html#cfn-config-organizationconfigrule-organizationcustomrulemetadata -cocrOrganizationCustomRuleMetadata :: Lens' ConfigOrganizationConfigRule (Maybe ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata) -cocrOrganizationCustomRuleMetadata = lens _configOrganizationConfigRuleOrganizationCustomRuleMetadata (\s a -> s { _configOrganizationConfigRuleOrganizationCustomRuleMetadata = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-organizationconfigrule.html#cfn-config-organizationconfigrule-organizationmanagedrulemetadata -cocrOrganizationManagedRuleMetadata :: Lens' ConfigOrganizationConfigRule (Maybe ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata) -cocrOrganizationManagedRuleMetadata = lens _configOrganizationConfigRuleOrganizationManagedRuleMetadata (\s a -> s { _configOrganizationConfigRuleOrganizationManagedRuleMetadata = a }) diff --git a/library-gen/Stratosphere/Resources/ConfigOrganizationConformancePack.hs b/library-gen/Stratosphere/Resources/ConfigOrganizationConformancePack.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ConfigOrganizationConformancePack.hs +++ /dev/null @@ -1,85 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-organizationconformancepack.html - -module Stratosphere.Resources.ConfigOrganizationConformancePack where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ConfigOrganizationConformancePackConformancePackInputParameter - --- | Full data type definition for ConfigOrganizationConformancePack. See --- 'configOrganizationConformancePack' for a more convenient constructor. -data ConfigOrganizationConformancePack = - ConfigOrganizationConformancePack - { _configOrganizationConformancePackConformancePackInputParameters :: Maybe [ConfigOrganizationConformancePackConformancePackInputParameter] - , _configOrganizationConformancePackDeliveryS3Bucket :: Val Text - , _configOrganizationConformancePackDeliveryS3KeyPrefix :: Maybe (Val Text) - , _configOrganizationConformancePackExcludedAccounts :: Maybe (ValList Text) - , _configOrganizationConformancePackOrganizationConformancePackName :: Val Text - , _configOrganizationConformancePackTemplateBody :: Maybe (Val Text) - , _configOrganizationConformancePackTemplateS3Uri :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties ConfigOrganizationConformancePack where - toResourceProperties ConfigOrganizationConformancePack{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Config::OrganizationConformancePack" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ConformancePackInputParameters",) . toJSON) _configOrganizationConformancePackConformancePackInputParameters - , (Just . ("DeliveryS3Bucket",) . toJSON) _configOrganizationConformancePackDeliveryS3Bucket - , fmap (("DeliveryS3KeyPrefix",) . toJSON) _configOrganizationConformancePackDeliveryS3KeyPrefix - , fmap (("ExcludedAccounts",) . toJSON) _configOrganizationConformancePackExcludedAccounts - , (Just . ("OrganizationConformancePackName",) . toJSON) _configOrganizationConformancePackOrganizationConformancePackName - , fmap (("TemplateBody",) . toJSON) _configOrganizationConformancePackTemplateBody - , fmap (("TemplateS3Uri",) . toJSON) _configOrganizationConformancePackTemplateS3Uri - ] - } - --- | Constructor for 'ConfigOrganizationConformancePack' containing required --- fields as arguments. -configOrganizationConformancePack - :: Val Text -- ^ 'cocpDeliveryS3Bucket' - -> Val Text -- ^ 'cocpOrganizationConformancePackName' - -> ConfigOrganizationConformancePack -configOrganizationConformancePack deliveryS3Bucketarg organizationConformancePackNamearg = - ConfigOrganizationConformancePack - { _configOrganizationConformancePackConformancePackInputParameters = Nothing - , _configOrganizationConformancePackDeliveryS3Bucket = deliveryS3Bucketarg - , _configOrganizationConformancePackDeliveryS3KeyPrefix = Nothing - , _configOrganizationConformancePackExcludedAccounts = Nothing - , _configOrganizationConformancePackOrganizationConformancePackName = organizationConformancePackNamearg - , _configOrganizationConformancePackTemplateBody = Nothing - , _configOrganizationConformancePackTemplateS3Uri = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-organizationconformancepack.html#cfn-config-organizationconformancepack-conformancepackinputparameters -cocpConformancePackInputParameters :: Lens' ConfigOrganizationConformancePack (Maybe [ConfigOrganizationConformancePackConformancePackInputParameter]) -cocpConformancePackInputParameters = lens _configOrganizationConformancePackConformancePackInputParameters (\s a -> s { _configOrganizationConformancePackConformancePackInputParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-organizationconformancepack.html#cfn-config-organizationconformancepack-deliverys3bucket -cocpDeliveryS3Bucket :: Lens' ConfigOrganizationConformancePack (Val Text) -cocpDeliveryS3Bucket = lens _configOrganizationConformancePackDeliveryS3Bucket (\s a -> s { _configOrganizationConformancePackDeliveryS3Bucket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-organizationconformancepack.html#cfn-config-organizationconformancepack-deliverys3keyprefix -cocpDeliveryS3KeyPrefix :: Lens' ConfigOrganizationConformancePack (Maybe (Val Text)) -cocpDeliveryS3KeyPrefix = lens _configOrganizationConformancePackDeliveryS3KeyPrefix (\s a -> s { _configOrganizationConformancePackDeliveryS3KeyPrefix = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-organizationconformancepack.html#cfn-config-organizationconformancepack-excludedaccounts -cocpExcludedAccounts :: Lens' ConfigOrganizationConformancePack (Maybe (ValList Text)) -cocpExcludedAccounts = lens _configOrganizationConformancePackExcludedAccounts (\s a -> s { _configOrganizationConformancePackExcludedAccounts = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-organizationconformancepack.html#cfn-config-organizationconformancepack-organizationconformancepackname -cocpOrganizationConformancePackName :: Lens' ConfigOrganizationConformancePack (Val Text) -cocpOrganizationConformancePackName = lens _configOrganizationConformancePackOrganizationConformancePackName (\s a -> s { _configOrganizationConformancePackOrganizationConformancePackName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-organizationconformancepack.html#cfn-config-organizationconformancepack-templatebody -cocpTemplateBody :: Lens' ConfigOrganizationConformancePack (Maybe (Val Text)) -cocpTemplateBody = lens _configOrganizationConformancePackTemplateBody (\s a -> s { _configOrganizationConformancePackTemplateBody = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-organizationconformancepack.html#cfn-config-organizationconformancepack-templates3uri -cocpTemplateS3Uri :: Lens' ConfigOrganizationConformancePack (Maybe (Val Text)) -cocpTemplateS3Uri = lens _configOrganizationConformancePackTemplateS3Uri (\s a -> s { _configOrganizationConformancePackTemplateS3Uri = a }) diff --git a/library-gen/Stratosphere/Resources/ConfigRemediationConfiguration.hs b/library-gen/Stratosphere/Resources/ConfigRemediationConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ConfigRemediationConfiguration.hs +++ /dev/null @@ -1,107 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-remediationconfiguration.html - -module Stratosphere.Resources.ConfigRemediationConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ConfigRemediationConfigurationExecutionControls - --- | Full data type definition for ConfigRemediationConfiguration. See --- 'configRemediationConfiguration' for a more convenient constructor. -data ConfigRemediationConfiguration = - ConfigRemediationConfiguration - { _configRemediationConfigurationAutomatic :: Maybe (Val Bool) - , _configRemediationConfigurationConfigRuleName :: Val Text - , _configRemediationConfigurationExecutionControls :: Maybe ConfigRemediationConfigurationExecutionControls - , _configRemediationConfigurationMaximumAutomaticAttempts :: Maybe (Val Integer) - , _configRemediationConfigurationParameters :: Maybe Object - , _configRemediationConfigurationResourceType :: Maybe (Val Text) - , _configRemediationConfigurationRetryAttemptSeconds :: Maybe (Val Integer) - , _configRemediationConfigurationTargetId :: Val Text - , _configRemediationConfigurationTargetType :: Val Text - , _configRemediationConfigurationTargetVersion :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties ConfigRemediationConfiguration where - toResourceProperties ConfigRemediationConfiguration{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Config::RemediationConfiguration" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Automatic",) . toJSON) _configRemediationConfigurationAutomatic - , (Just . ("ConfigRuleName",) . toJSON) _configRemediationConfigurationConfigRuleName - , fmap (("ExecutionControls",) . toJSON) _configRemediationConfigurationExecutionControls - , fmap (("MaximumAutomaticAttempts",) . toJSON) _configRemediationConfigurationMaximumAutomaticAttempts - , fmap (("Parameters",) . toJSON) _configRemediationConfigurationParameters - , fmap (("ResourceType",) . toJSON) _configRemediationConfigurationResourceType - , fmap (("RetryAttemptSeconds",) . toJSON) _configRemediationConfigurationRetryAttemptSeconds - , (Just . ("TargetId",) . toJSON) _configRemediationConfigurationTargetId - , (Just . ("TargetType",) . toJSON) _configRemediationConfigurationTargetType - , fmap (("TargetVersion",) . toJSON) _configRemediationConfigurationTargetVersion - ] - } - --- | Constructor for 'ConfigRemediationConfiguration' containing required --- fields as arguments. -configRemediationConfiguration - :: Val Text -- ^ 'crcConfigRuleName' - -> Val Text -- ^ 'crcTargetId' - -> Val Text -- ^ 'crcTargetType' - -> ConfigRemediationConfiguration -configRemediationConfiguration configRuleNamearg targetIdarg targetTypearg = - ConfigRemediationConfiguration - { _configRemediationConfigurationAutomatic = Nothing - , _configRemediationConfigurationConfigRuleName = configRuleNamearg - , _configRemediationConfigurationExecutionControls = Nothing - , _configRemediationConfigurationMaximumAutomaticAttempts = Nothing - , _configRemediationConfigurationParameters = Nothing - , _configRemediationConfigurationResourceType = Nothing - , _configRemediationConfigurationRetryAttemptSeconds = Nothing - , _configRemediationConfigurationTargetId = targetIdarg - , _configRemediationConfigurationTargetType = targetTypearg - , _configRemediationConfigurationTargetVersion = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-remediationconfiguration.html#cfn-config-remediationconfiguration-automatic -crcAutomatic :: Lens' ConfigRemediationConfiguration (Maybe (Val Bool)) -crcAutomatic = lens _configRemediationConfigurationAutomatic (\s a -> s { _configRemediationConfigurationAutomatic = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-remediationconfiguration.html#cfn-config-remediationconfiguration-configrulename -crcConfigRuleName :: Lens' ConfigRemediationConfiguration (Val Text) -crcConfigRuleName = lens _configRemediationConfigurationConfigRuleName (\s a -> s { _configRemediationConfigurationConfigRuleName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-remediationconfiguration.html#cfn-config-remediationconfiguration-executioncontrols -crcExecutionControls :: Lens' ConfigRemediationConfiguration (Maybe ConfigRemediationConfigurationExecutionControls) -crcExecutionControls = lens _configRemediationConfigurationExecutionControls (\s a -> s { _configRemediationConfigurationExecutionControls = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-remediationconfiguration.html#cfn-config-remediationconfiguration-maximumautomaticattempts -crcMaximumAutomaticAttempts :: Lens' ConfigRemediationConfiguration (Maybe (Val Integer)) -crcMaximumAutomaticAttempts = lens _configRemediationConfigurationMaximumAutomaticAttempts (\s a -> s { _configRemediationConfigurationMaximumAutomaticAttempts = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-remediationconfiguration.html#cfn-config-remediationconfiguration-parameters -crcParameters :: Lens' ConfigRemediationConfiguration (Maybe Object) -crcParameters = lens _configRemediationConfigurationParameters (\s a -> s { _configRemediationConfigurationParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-remediationconfiguration.html#cfn-config-remediationconfiguration-resourcetype -crcResourceType :: Lens' ConfigRemediationConfiguration (Maybe (Val Text)) -crcResourceType = lens _configRemediationConfigurationResourceType (\s a -> s { _configRemediationConfigurationResourceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-remediationconfiguration.html#cfn-config-remediationconfiguration-retryattemptseconds -crcRetryAttemptSeconds :: Lens' ConfigRemediationConfiguration (Maybe (Val Integer)) -crcRetryAttemptSeconds = lens _configRemediationConfigurationRetryAttemptSeconds (\s a -> s { _configRemediationConfigurationRetryAttemptSeconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-remediationconfiguration.html#cfn-config-remediationconfiguration-targetid -crcTargetId :: Lens' ConfigRemediationConfiguration (Val Text) -crcTargetId = lens _configRemediationConfigurationTargetId (\s a -> s { _configRemediationConfigurationTargetId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-remediationconfiguration.html#cfn-config-remediationconfiguration-targettype -crcTargetType :: Lens' ConfigRemediationConfiguration (Val Text) -crcTargetType = lens _configRemediationConfigurationTargetType (\s a -> s { _configRemediationConfigurationTargetType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-config-remediationconfiguration.html#cfn-config-remediationconfiguration-targetversion -crcTargetVersion :: Lens' ConfigRemediationConfiguration (Maybe (Val Text)) -crcTargetVersion = lens _configRemediationConfigurationTargetVersion (\s a -> s { _configRemediationConfigurationTargetVersion = a }) diff --git a/library-gen/Stratosphere/Resources/DAXCluster.hs b/library-gen/Stratosphere/Resources/DAXCluster.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/DAXCluster.hs +++ /dev/null @@ -1,127 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dax-cluster.html - -module Stratosphere.Resources.DAXCluster where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.DAXClusterSSESpecification - --- | Full data type definition for DAXCluster. See 'daxCluster' for a more --- convenient constructor. -data DAXCluster = - DAXCluster - { _dAXClusterAvailabilityZones :: Maybe (ValList Text) - , _dAXClusterClusterName :: Maybe (Val Text) - , _dAXClusterDescription :: Maybe (Val Text) - , _dAXClusterIAMRoleARN :: Val Text - , _dAXClusterNodeType :: Val Text - , _dAXClusterNotificationTopicARN :: Maybe (Val Text) - , _dAXClusterParameterGroupName :: Maybe (Val Text) - , _dAXClusterPreferredMaintenanceWindow :: Maybe (Val Text) - , _dAXClusterReplicationFactor :: Val Integer - , _dAXClusterSSESpecification :: Maybe DAXClusterSSESpecification - , _dAXClusterSecurityGroupIds :: Maybe (ValList Text) - , _dAXClusterSubnetGroupName :: Maybe (Val Text) - , _dAXClusterTags :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties DAXCluster where - toResourceProperties DAXCluster{..} = - ResourceProperties - { resourcePropertiesType = "AWS::DAX::Cluster" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AvailabilityZones",) . toJSON) _dAXClusterAvailabilityZones - , fmap (("ClusterName",) . toJSON) _dAXClusterClusterName - , fmap (("Description",) . toJSON) _dAXClusterDescription - , (Just . ("IAMRoleARN",) . toJSON) _dAXClusterIAMRoleARN - , (Just . ("NodeType",) . toJSON) _dAXClusterNodeType - , fmap (("NotificationTopicARN",) . toJSON) _dAXClusterNotificationTopicARN - , fmap (("ParameterGroupName",) . toJSON) _dAXClusterParameterGroupName - , fmap (("PreferredMaintenanceWindow",) . toJSON) _dAXClusterPreferredMaintenanceWindow - , (Just . ("ReplicationFactor",) . toJSON) _dAXClusterReplicationFactor - , fmap (("SSESpecification",) . toJSON) _dAXClusterSSESpecification - , fmap (("SecurityGroupIds",) . toJSON) _dAXClusterSecurityGroupIds - , fmap (("SubnetGroupName",) . toJSON) _dAXClusterSubnetGroupName - , fmap (("Tags",) . toJSON) _dAXClusterTags - ] - } - --- | Constructor for 'DAXCluster' containing required fields as arguments. -daxCluster - :: Val Text -- ^ 'daxcIAMRoleARN' - -> Val Text -- ^ 'daxcNodeType' - -> Val Integer -- ^ 'daxcReplicationFactor' - -> DAXCluster -daxCluster iAMRoleARNarg nodeTypearg replicationFactorarg = - DAXCluster - { _dAXClusterAvailabilityZones = Nothing - , _dAXClusterClusterName = Nothing - , _dAXClusterDescription = Nothing - , _dAXClusterIAMRoleARN = iAMRoleARNarg - , _dAXClusterNodeType = nodeTypearg - , _dAXClusterNotificationTopicARN = Nothing - , _dAXClusterParameterGroupName = Nothing - , _dAXClusterPreferredMaintenanceWindow = Nothing - , _dAXClusterReplicationFactor = replicationFactorarg - , _dAXClusterSSESpecification = Nothing - , _dAXClusterSecurityGroupIds = Nothing - , _dAXClusterSubnetGroupName = Nothing - , _dAXClusterTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dax-cluster.html#cfn-dax-cluster-availabilityzones -daxcAvailabilityZones :: Lens' DAXCluster (Maybe (ValList Text)) -daxcAvailabilityZones = lens _dAXClusterAvailabilityZones (\s a -> s { _dAXClusterAvailabilityZones = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dax-cluster.html#cfn-dax-cluster-clustername -daxcClusterName :: Lens' DAXCluster (Maybe (Val Text)) -daxcClusterName = lens _dAXClusterClusterName (\s a -> s { _dAXClusterClusterName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dax-cluster.html#cfn-dax-cluster-description -daxcDescription :: Lens' DAXCluster (Maybe (Val Text)) -daxcDescription = lens _dAXClusterDescription (\s a -> s { _dAXClusterDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dax-cluster.html#cfn-dax-cluster-iamrolearn -daxcIAMRoleARN :: Lens' DAXCluster (Val Text) -daxcIAMRoleARN = lens _dAXClusterIAMRoleARN (\s a -> s { _dAXClusterIAMRoleARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dax-cluster.html#cfn-dax-cluster-nodetype -daxcNodeType :: Lens' DAXCluster (Val Text) -daxcNodeType = lens _dAXClusterNodeType (\s a -> s { _dAXClusterNodeType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dax-cluster.html#cfn-dax-cluster-notificationtopicarn -daxcNotificationTopicARN :: Lens' DAXCluster (Maybe (Val Text)) -daxcNotificationTopicARN = lens _dAXClusterNotificationTopicARN (\s a -> s { _dAXClusterNotificationTopicARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dax-cluster.html#cfn-dax-cluster-parametergroupname -daxcParameterGroupName :: Lens' DAXCluster (Maybe (Val Text)) -daxcParameterGroupName = lens _dAXClusterParameterGroupName (\s a -> s { _dAXClusterParameterGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dax-cluster.html#cfn-dax-cluster-preferredmaintenancewindow -daxcPreferredMaintenanceWindow :: Lens' DAXCluster (Maybe (Val Text)) -daxcPreferredMaintenanceWindow = lens _dAXClusterPreferredMaintenanceWindow (\s a -> s { _dAXClusterPreferredMaintenanceWindow = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dax-cluster.html#cfn-dax-cluster-replicationfactor -daxcReplicationFactor :: Lens' DAXCluster (Val Integer) -daxcReplicationFactor = lens _dAXClusterReplicationFactor (\s a -> s { _dAXClusterReplicationFactor = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dax-cluster.html#cfn-dax-cluster-ssespecification -daxcSSESpecification :: Lens' DAXCluster (Maybe DAXClusterSSESpecification) -daxcSSESpecification = lens _dAXClusterSSESpecification (\s a -> s { _dAXClusterSSESpecification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dax-cluster.html#cfn-dax-cluster-securitygroupids -daxcSecurityGroupIds :: Lens' DAXCluster (Maybe (ValList Text)) -daxcSecurityGroupIds = lens _dAXClusterSecurityGroupIds (\s a -> s { _dAXClusterSecurityGroupIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dax-cluster.html#cfn-dax-cluster-subnetgroupname -daxcSubnetGroupName :: Lens' DAXCluster (Maybe (Val Text)) -daxcSubnetGroupName = lens _dAXClusterSubnetGroupName (\s a -> s { _dAXClusterSubnetGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dax-cluster.html#cfn-dax-cluster-tags -daxcTags :: Lens' DAXCluster (Maybe Object) -daxcTags = lens _dAXClusterTags (\s a -> s { _dAXClusterTags = a }) diff --git a/library-gen/Stratosphere/Resources/DAXParameterGroup.hs b/library-gen/Stratosphere/Resources/DAXParameterGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/DAXParameterGroup.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dax-parametergroup.html - -module Stratosphere.Resources.DAXParameterGroup where - -import Stratosphere.ResourceImports - - --- | Full data type definition for DAXParameterGroup. See 'daxParameterGroup' --- for a more convenient constructor. -data DAXParameterGroup = - DAXParameterGroup - { _dAXParameterGroupDescription :: Maybe (Val Text) - , _dAXParameterGroupParameterGroupName :: Maybe (Val Text) - , _dAXParameterGroupParameterNameValues :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties DAXParameterGroup where - toResourceProperties DAXParameterGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::DAX::ParameterGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _dAXParameterGroupDescription - , fmap (("ParameterGroupName",) . toJSON) _dAXParameterGroupParameterGroupName - , fmap (("ParameterNameValues",) . toJSON) _dAXParameterGroupParameterNameValues - ] - } - --- | Constructor for 'DAXParameterGroup' containing required fields as --- arguments. -daxParameterGroup - :: DAXParameterGroup -daxParameterGroup = - DAXParameterGroup - { _dAXParameterGroupDescription = Nothing - , _dAXParameterGroupParameterGroupName = Nothing - , _dAXParameterGroupParameterNameValues = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dax-parametergroup.html#cfn-dax-parametergroup-description -daxpgDescription :: Lens' DAXParameterGroup (Maybe (Val Text)) -daxpgDescription = lens _dAXParameterGroupDescription (\s a -> s { _dAXParameterGroupDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dax-parametergroup.html#cfn-dax-parametergroup-parametergroupname -daxpgParameterGroupName :: Lens' DAXParameterGroup (Maybe (Val Text)) -daxpgParameterGroupName = lens _dAXParameterGroupParameterGroupName (\s a -> s { _dAXParameterGroupParameterGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dax-parametergroup.html#cfn-dax-parametergroup-parameternamevalues -daxpgParameterNameValues :: Lens' DAXParameterGroup (Maybe Object) -daxpgParameterNameValues = lens _dAXParameterGroupParameterNameValues (\s a -> s { _dAXParameterGroupParameterNameValues = a }) diff --git a/library-gen/Stratosphere/Resources/DAXSubnetGroup.hs b/library-gen/Stratosphere/Resources/DAXSubnetGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/DAXSubnetGroup.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dax-subnetgroup.html - -module Stratosphere.Resources.DAXSubnetGroup where - -import Stratosphere.ResourceImports - - --- | Full data type definition for DAXSubnetGroup. See 'daxSubnetGroup' for a --- more convenient constructor. -data DAXSubnetGroup = - DAXSubnetGroup - { _dAXSubnetGroupDescription :: Maybe (Val Text) - , _dAXSubnetGroupSubnetGroupName :: Maybe (Val Text) - , _dAXSubnetGroupSubnetIds :: ValList Text - } deriving (Show, Eq) - -instance ToResourceProperties DAXSubnetGroup where - toResourceProperties DAXSubnetGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::DAX::SubnetGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _dAXSubnetGroupDescription - , fmap (("SubnetGroupName",) . toJSON) _dAXSubnetGroupSubnetGroupName - , (Just . ("SubnetIds",) . toJSON) _dAXSubnetGroupSubnetIds - ] - } - --- | Constructor for 'DAXSubnetGroup' containing required fields as arguments. -daxSubnetGroup - :: ValList Text -- ^ 'daxsgSubnetIds' - -> DAXSubnetGroup -daxSubnetGroup subnetIdsarg = - DAXSubnetGroup - { _dAXSubnetGroupDescription = Nothing - , _dAXSubnetGroupSubnetGroupName = Nothing - , _dAXSubnetGroupSubnetIds = subnetIdsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dax-subnetgroup.html#cfn-dax-subnetgroup-description -daxsgDescription :: Lens' DAXSubnetGroup (Maybe (Val Text)) -daxsgDescription = lens _dAXSubnetGroupDescription (\s a -> s { _dAXSubnetGroupDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dax-subnetgroup.html#cfn-dax-subnetgroup-subnetgroupname -daxsgSubnetGroupName :: Lens' DAXSubnetGroup (Maybe (Val Text)) -daxsgSubnetGroupName = lens _dAXSubnetGroupSubnetGroupName (\s a -> s { _dAXSubnetGroupSubnetGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dax-subnetgroup.html#cfn-dax-subnetgroup-subnetids -daxsgSubnetIds :: Lens' DAXSubnetGroup (ValList Text) -daxsgSubnetIds = lens _dAXSubnetGroupSubnetIds (\s a -> s { _dAXSubnetGroupSubnetIds = a }) diff --git a/library-gen/Stratosphere/Resources/DLMLifecyclePolicy.hs b/library-gen/Stratosphere/Resources/DLMLifecyclePolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/DLMLifecyclePolicy.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dlm-lifecyclepolicy.html - -module Stratosphere.Resources.DLMLifecyclePolicy where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.DLMLifecyclePolicyPolicyDetails - --- | Full data type definition for DLMLifecyclePolicy. See --- 'dlmLifecyclePolicy' for a more convenient constructor. -data DLMLifecyclePolicy = - DLMLifecyclePolicy - { _dLMLifecyclePolicyDescription :: Maybe (Val Text) - , _dLMLifecyclePolicyExecutionRoleArn :: Maybe (Val Text) - , _dLMLifecyclePolicyPolicyDetails :: Maybe DLMLifecyclePolicyPolicyDetails - , _dLMLifecyclePolicyState :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties DLMLifecyclePolicy where - toResourceProperties DLMLifecyclePolicy{..} = - ResourceProperties - { resourcePropertiesType = "AWS::DLM::LifecyclePolicy" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _dLMLifecyclePolicyDescription - , fmap (("ExecutionRoleArn",) . toJSON) _dLMLifecyclePolicyExecutionRoleArn - , fmap (("PolicyDetails",) . toJSON) _dLMLifecyclePolicyPolicyDetails - , fmap (("State",) . toJSON) _dLMLifecyclePolicyState - ] - } - --- | Constructor for 'DLMLifecyclePolicy' containing required fields as --- arguments. -dlmLifecyclePolicy - :: DLMLifecyclePolicy -dlmLifecyclePolicy = - DLMLifecyclePolicy - { _dLMLifecyclePolicyDescription = Nothing - , _dLMLifecyclePolicyExecutionRoleArn = Nothing - , _dLMLifecyclePolicyPolicyDetails = Nothing - , _dLMLifecyclePolicyState = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dlm-lifecyclepolicy.html#cfn-dlm-lifecyclepolicy-description -dlmlpDescription :: Lens' DLMLifecyclePolicy (Maybe (Val Text)) -dlmlpDescription = lens _dLMLifecyclePolicyDescription (\s a -> s { _dLMLifecyclePolicyDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dlm-lifecyclepolicy.html#cfn-dlm-lifecyclepolicy-executionrolearn -dlmlpExecutionRoleArn :: Lens' DLMLifecyclePolicy (Maybe (Val Text)) -dlmlpExecutionRoleArn = lens _dLMLifecyclePolicyExecutionRoleArn (\s a -> s { _dLMLifecyclePolicyExecutionRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dlm-lifecyclepolicy.html#cfn-dlm-lifecyclepolicy-policydetails -dlmlpPolicyDetails :: Lens' DLMLifecyclePolicy (Maybe DLMLifecyclePolicyPolicyDetails) -dlmlpPolicyDetails = lens _dLMLifecyclePolicyPolicyDetails (\s a -> s { _dLMLifecyclePolicyPolicyDetails = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dlm-lifecyclepolicy.html#cfn-dlm-lifecyclepolicy-state -dlmlpState :: Lens' DLMLifecyclePolicy (Maybe (Val Text)) -dlmlpState = lens _dLMLifecyclePolicyState (\s a -> s { _dLMLifecyclePolicyState = a }) diff --git a/library-gen/Stratosphere/Resources/DMSCertificate.hs b/library-gen/Stratosphere/Resources/DMSCertificate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/DMSCertificate.hs +++ /dev/null @@ -1,54 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-certificate.html - -module Stratosphere.Resources.DMSCertificate where - -import Stratosphere.ResourceImports - - --- | Full data type definition for DMSCertificate. See 'dmsCertificate' for a --- more convenient constructor. -data DMSCertificate = - DMSCertificate - { _dMSCertificateCertificateIdentifier :: Maybe (Val Text) - , _dMSCertificateCertificatePem :: Maybe (Val Text) - , _dMSCertificateCertificateWallet :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties DMSCertificate where - toResourceProperties DMSCertificate{..} = - ResourceProperties - { resourcePropertiesType = "AWS::DMS::Certificate" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("CertificateIdentifier",) . toJSON) _dMSCertificateCertificateIdentifier - , fmap (("CertificatePem",) . toJSON) _dMSCertificateCertificatePem - , fmap (("CertificateWallet",) . toJSON) _dMSCertificateCertificateWallet - ] - } - --- | Constructor for 'DMSCertificate' containing required fields as arguments. -dmsCertificate - :: DMSCertificate -dmsCertificate = - DMSCertificate - { _dMSCertificateCertificateIdentifier = Nothing - , _dMSCertificateCertificatePem = Nothing - , _dMSCertificateCertificateWallet = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-certificate.html#cfn-dms-certificate-certificateidentifier -dmscCertificateIdentifier :: Lens' DMSCertificate (Maybe (Val Text)) -dmscCertificateIdentifier = lens _dMSCertificateCertificateIdentifier (\s a -> s { _dMSCertificateCertificateIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-certificate.html#cfn-dms-certificate-certificatepem -dmscCertificatePem :: Lens' DMSCertificate (Maybe (Val Text)) -dmscCertificatePem = lens _dMSCertificateCertificatePem (\s a -> s { _dMSCertificateCertificatePem = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-certificate.html#cfn-dms-certificate-certificatewallet -dmscCertificateWallet :: Lens' DMSCertificate (Maybe (Val Text)) -dmscCertificateWallet = lens _dMSCertificateCertificateWallet (\s a -> s { _dMSCertificateCertificateWallet = a }) diff --git a/library-gen/Stratosphere/Resources/DMSEndpoint.hs b/library-gen/Stratosphere/Resources/DMSEndpoint.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/DMSEndpoint.hs +++ /dev/null @@ -1,182 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-endpoint.html - -module Stratosphere.Resources.DMSEndpoint where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.DMSEndpointDynamoDbSettings -import Stratosphere.ResourceProperties.DMSEndpointElasticsearchSettings -import Stratosphere.ResourceProperties.DMSEndpointKafkaSettings -import Stratosphere.ResourceProperties.DMSEndpointKinesisSettings -import Stratosphere.ResourceProperties.DMSEndpointMongoDbSettings -import Stratosphere.ResourceProperties.DMSEndpointNeptuneSettings -import Stratosphere.ResourceProperties.DMSEndpointS3Settings -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for DMSEndpoint. See 'dmsEndpoint' for a more --- convenient constructor. -data DMSEndpoint = - DMSEndpoint - { _dMSEndpointCertificateArn :: Maybe (Val Text) - , _dMSEndpointDatabaseName :: Maybe (Val Text) - , _dMSEndpointDynamoDbSettings :: Maybe DMSEndpointDynamoDbSettings - , _dMSEndpointElasticsearchSettings :: Maybe DMSEndpointElasticsearchSettings - , _dMSEndpointEndpointIdentifier :: Maybe (Val Text) - , _dMSEndpointEndpointType :: Val Text - , _dMSEndpointEngineName :: Val Text - , _dMSEndpointExtraConnectionAttributes :: Maybe (Val Text) - , _dMSEndpointKafkaSettings :: Maybe DMSEndpointKafkaSettings - , _dMSEndpointKinesisSettings :: Maybe DMSEndpointKinesisSettings - , _dMSEndpointKmsKeyId :: Maybe (Val Text) - , _dMSEndpointMongoDbSettings :: Maybe DMSEndpointMongoDbSettings - , _dMSEndpointNeptuneSettings :: Maybe DMSEndpointNeptuneSettings - , _dMSEndpointPassword :: Maybe (Val Text) - , _dMSEndpointPort :: Maybe (Val Integer) - , _dMSEndpointS3Settings :: Maybe DMSEndpointS3Settings - , _dMSEndpointServerName :: Maybe (Val Text) - , _dMSEndpointSslMode :: Maybe (Val Text) - , _dMSEndpointTags :: Maybe [Tag] - , _dMSEndpointUsername :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties DMSEndpoint where - toResourceProperties DMSEndpoint{..} = - ResourceProperties - { resourcePropertiesType = "AWS::DMS::Endpoint" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("CertificateArn",) . toJSON) _dMSEndpointCertificateArn - , fmap (("DatabaseName",) . toJSON) _dMSEndpointDatabaseName - , fmap (("DynamoDbSettings",) . toJSON) _dMSEndpointDynamoDbSettings - , fmap (("ElasticsearchSettings",) . toJSON) _dMSEndpointElasticsearchSettings - , fmap (("EndpointIdentifier",) . toJSON) _dMSEndpointEndpointIdentifier - , (Just . ("EndpointType",) . toJSON) _dMSEndpointEndpointType - , (Just . ("EngineName",) . toJSON) _dMSEndpointEngineName - , fmap (("ExtraConnectionAttributes",) . toJSON) _dMSEndpointExtraConnectionAttributes - , fmap (("KafkaSettings",) . toJSON) _dMSEndpointKafkaSettings - , fmap (("KinesisSettings",) . toJSON) _dMSEndpointKinesisSettings - , fmap (("KmsKeyId",) . toJSON) _dMSEndpointKmsKeyId - , fmap (("MongoDbSettings",) . toJSON) _dMSEndpointMongoDbSettings - , fmap (("NeptuneSettings",) . toJSON) _dMSEndpointNeptuneSettings - , fmap (("Password",) . toJSON) _dMSEndpointPassword - , fmap (("Port",) . toJSON) _dMSEndpointPort - , fmap (("S3Settings",) . toJSON) _dMSEndpointS3Settings - , fmap (("ServerName",) . toJSON) _dMSEndpointServerName - , fmap (("SslMode",) . toJSON) _dMSEndpointSslMode - , fmap (("Tags",) . toJSON) _dMSEndpointTags - , fmap (("Username",) . toJSON) _dMSEndpointUsername - ] - } - --- | Constructor for 'DMSEndpoint' containing required fields as arguments. -dmsEndpoint - :: Val Text -- ^ 'dmseEndpointType' - -> Val Text -- ^ 'dmseEngineName' - -> DMSEndpoint -dmsEndpoint endpointTypearg engineNamearg = - DMSEndpoint - { _dMSEndpointCertificateArn = Nothing - , _dMSEndpointDatabaseName = Nothing - , _dMSEndpointDynamoDbSettings = Nothing - , _dMSEndpointElasticsearchSettings = Nothing - , _dMSEndpointEndpointIdentifier = Nothing - , _dMSEndpointEndpointType = endpointTypearg - , _dMSEndpointEngineName = engineNamearg - , _dMSEndpointExtraConnectionAttributes = Nothing - , _dMSEndpointKafkaSettings = Nothing - , _dMSEndpointKinesisSettings = Nothing - , _dMSEndpointKmsKeyId = Nothing - , _dMSEndpointMongoDbSettings = Nothing - , _dMSEndpointNeptuneSettings = Nothing - , _dMSEndpointPassword = Nothing - , _dMSEndpointPort = Nothing - , _dMSEndpointS3Settings = Nothing - , _dMSEndpointServerName = Nothing - , _dMSEndpointSslMode = Nothing - , _dMSEndpointTags = Nothing - , _dMSEndpointUsername = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-endpoint.html#cfn-dms-endpoint-certificatearn -dmseCertificateArn :: Lens' DMSEndpoint (Maybe (Val Text)) -dmseCertificateArn = lens _dMSEndpointCertificateArn (\s a -> s { _dMSEndpointCertificateArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-endpoint.html#cfn-dms-endpoint-databasename -dmseDatabaseName :: Lens' DMSEndpoint (Maybe (Val Text)) -dmseDatabaseName = lens _dMSEndpointDatabaseName (\s a -> s { _dMSEndpointDatabaseName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-endpoint.html#cfn-dms-endpoint-dynamodbsettings -dmseDynamoDbSettings :: Lens' DMSEndpoint (Maybe DMSEndpointDynamoDbSettings) -dmseDynamoDbSettings = lens _dMSEndpointDynamoDbSettings (\s a -> s { _dMSEndpointDynamoDbSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-endpoint.html#cfn-dms-endpoint-elasticsearchsettings -dmseElasticsearchSettings :: Lens' DMSEndpoint (Maybe DMSEndpointElasticsearchSettings) -dmseElasticsearchSettings = lens _dMSEndpointElasticsearchSettings (\s a -> s { _dMSEndpointElasticsearchSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-endpoint.html#cfn-dms-endpoint-endpointidentifier -dmseEndpointIdentifier :: Lens' DMSEndpoint (Maybe (Val Text)) -dmseEndpointIdentifier = lens _dMSEndpointEndpointIdentifier (\s a -> s { _dMSEndpointEndpointIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-endpoint.html#cfn-dms-endpoint-endpointtype -dmseEndpointType :: Lens' DMSEndpoint (Val Text) -dmseEndpointType = lens _dMSEndpointEndpointType (\s a -> s { _dMSEndpointEndpointType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-endpoint.html#cfn-dms-endpoint-enginename -dmseEngineName :: Lens' DMSEndpoint (Val Text) -dmseEngineName = lens _dMSEndpointEngineName (\s a -> s { _dMSEndpointEngineName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-endpoint.html#cfn-dms-endpoint-extraconnectionattributes -dmseExtraConnectionAttributes :: Lens' DMSEndpoint (Maybe (Val Text)) -dmseExtraConnectionAttributes = lens _dMSEndpointExtraConnectionAttributes (\s a -> s { _dMSEndpointExtraConnectionAttributes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-endpoint.html#cfn-dms-endpoint-kafkasettings -dmseKafkaSettings :: Lens' DMSEndpoint (Maybe DMSEndpointKafkaSettings) -dmseKafkaSettings = lens _dMSEndpointKafkaSettings (\s a -> s { _dMSEndpointKafkaSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-endpoint.html#cfn-dms-endpoint-kinesissettings -dmseKinesisSettings :: Lens' DMSEndpoint (Maybe DMSEndpointKinesisSettings) -dmseKinesisSettings = lens _dMSEndpointKinesisSettings (\s a -> s { _dMSEndpointKinesisSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-endpoint.html#cfn-dms-endpoint-kmskeyid -dmseKmsKeyId :: Lens' DMSEndpoint (Maybe (Val Text)) -dmseKmsKeyId = lens _dMSEndpointKmsKeyId (\s a -> s { _dMSEndpointKmsKeyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-endpoint.html#cfn-dms-endpoint-mongodbsettings -dmseMongoDbSettings :: Lens' DMSEndpoint (Maybe DMSEndpointMongoDbSettings) -dmseMongoDbSettings = lens _dMSEndpointMongoDbSettings (\s a -> s { _dMSEndpointMongoDbSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-endpoint.html#cfn-dms-endpoint-neptunesettings -dmseNeptuneSettings :: Lens' DMSEndpoint (Maybe DMSEndpointNeptuneSettings) -dmseNeptuneSettings = lens _dMSEndpointNeptuneSettings (\s a -> s { _dMSEndpointNeptuneSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-endpoint.html#cfn-dms-endpoint-password -dmsePassword :: Lens' DMSEndpoint (Maybe (Val Text)) -dmsePassword = lens _dMSEndpointPassword (\s a -> s { _dMSEndpointPassword = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-endpoint.html#cfn-dms-endpoint-port -dmsePort :: Lens' DMSEndpoint (Maybe (Val Integer)) -dmsePort = lens _dMSEndpointPort (\s a -> s { _dMSEndpointPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-endpoint.html#cfn-dms-endpoint-s3settings -dmseS3Settings :: Lens' DMSEndpoint (Maybe DMSEndpointS3Settings) -dmseS3Settings = lens _dMSEndpointS3Settings (\s a -> s { _dMSEndpointS3Settings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-endpoint.html#cfn-dms-endpoint-servername -dmseServerName :: Lens' DMSEndpoint (Maybe (Val Text)) -dmseServerName = lens _dMSEndpointServerName (\s a -> s { _dMSEndpointServerName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-endpoint.html#cfn-dms-endpoint-sslmode -dmseSslMode :: Lens' DMSEndpoint (Maybe (Val Text)) -dmseSslMode = lens _dMSEndpointSslMode (\s a -> s { _dMSEndpointSslMode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-endpoint.html#cfn-dms-endpoint-tags -dmseTags :: Lens' DMSEndpoint (Maybe [Tag]) -dmseTags = lens _dMSEndpointTags (\s a -> s { _dMSEndpointTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-endpoint.html#cfn-dms-endpoint-username -dmseUsername :: Lens' DMSEndpoint (Maybe (Val Text)) -dmseUsername = lens _dMSEndpointUsername (\s a -> s { _dMSEndpointUsername = a }) diff --git a/library-gen/Stratosphere/Resources/DMSEventSubscription.hs b/library-gen/Stratosphere/Resources/DMSEventSubscription.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/DMSEventSubscription.hs +++ /dev/null @@ -1,84 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-eventsubscription.html - -module Stratosphere.Resources.DMSEventSubscription where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for DMSEventSubscription. See --- 'dmsEventSubscription' for a more convenient constructor. -data DMSEventSubscription = - DMSEventSubscription - { _dMSEventSubscriptionEnabled :: Maybe (Val Bool) - , _dMSEventSubscriptionEventCategories :: Maybe (ValList Text) - , _dMSEventSubscriptionSnsTopicArn :: Val Text - , _dMSEventSubscriptionSourceIds :: Maybe (ValList Text) - , _dMSEventSubscriptionSourceType :: Maybe (Val Text) - , _dMSEventSubscriptionSubscriptionName :: Maybe (Val Text) - , _dMSEventSubscriptionTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties DMSEventSubscription where - toResourceProperties DMSEventSubscription{..} = - ResourceProperties - { resourcePropertiesType = "AWS::DMS::EventSubscription" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Enabled",) . toJSON) _dMSEventSubscriptionEnabled - , fmap (("EventCategories",) . toJSON) _dMSEventSubscriptionEventCategories - , (Just . ("SnsTopicArn",) . toJSON) _dMSEventSubscriptionSnsTopicArn - , fmap (("SourceIds",) . toJSON) _dMSEventSubscriptionSourceIds - , fmap (("SourceType",) . toJSON) _dMSEventSubscriptionSourceType - , fmap (("SubscriptionName",) . toJSON) _dMSEventSubscriptionSubscriptionName - , fmap (("Tags",) . toJSON) _dMSEventSubscriptionTags - ] - } - --- | Constructor for 'DMSEventSubscription' containing required fields as --- arguments. -dmsEventSubscription - :: Val Text -- ^ 'dmsesSnsTopicArn' - -> DMSEventSubscription -dmsEventSubscription snsTopicArnarg = - DMSEventSubscription - { _dMSEventSubscriptionEnabled = Nothing - , _dMSEventSubscriptionEventCategories = Nothing - , _dMSEventSubscriptionSnsTopicArn = snsTopicArnarg - , _dMSEventSubscriptionSourceIds = Nothing - , _dMSEventSubscriptionSourceType = Nothing - , _dMSEventSubscriptionSubscriptionName = Nothing - , _dMSEventSubscriptionTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-eventsubscription.html#cfn-dms-eventsubscription-enabled -dmsesEnabled :: Lens' DMSEventSubscription (Maybe (Val Bool)) -dmsesEnabled = lens _dMSEventSubscriptionEnabled (\s a -> s { _dMSEventSubscriptionEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-eventsubscription.html#cfn-dms-eventsubscription-eventcategories -dmsesEventCategories :: Lens' DMSEventSubscription (Maybe (ValList Text)) -dmsesEventCategories = lens _dMSEventSubscriptionEventCategories (\s a -> s { _dMSEventSubscriptionEventCategories = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-eventsubscription.html#cfn-dms-eventsubscription-snstopicarn -dmsesSnsTopicArn :: Lens' DMSEventSubscription (Val Text) -dmsesSnsTopicArn = lens _dMSEventSubscriptionSnsTopicArn (\s a -> s { _dMSEventSubscriptionSnsTopicArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-eventsubscription.html#cfn-dms-eventsubscription-sourceids -dmsesSourceIds :: Lens' DMSEventSubscription (Maybe (ValList Text)) -dmsesSourceIds = lens _dMSEventSubscriptionSourceIds (\s a -> s { _dMSEventSubscriptionSourceIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-eventsubscription.html#cfn-dms-eventsubscription-sourcetype -dmsesSourceType :: Lens' DMSEventSubscription (Maybe (Val Text)) -dmsesSourceType = lens _dMSEventSubscriptionSourceType (\s a -> s { _dMSEventSubscriptionSourceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-eventsubscription.html#cfn-dms-eventsubscription-subscriptionname -dmsesSubscriptionName :: Lens' DMSEventSubscription (Maybe (Val Text)) -dmsesSubscriptionName = lens _dMSEventSubscriptionSubscriptionName (\s a -> s { _dMSEventSubscriptionSubscriptionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-eventsubscription.html#cfn-dms-eventsubscription-tags -dmsesTags :: Lens' DMSEventSubscription (Maybe [Tag]) -dmsesTags = lens _dMSEventSubscriptionTags (\s a -> s { _dMSEventSubscriptionTags = a }) diff --git a/library-gen/Stratosphere/Resources/DMSReplicationInstance.hs b/library-gen/Stratosphere/Resources/DMSReplicationInstance.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/DMSReplicationInstance.hs +++ /dev/null @@ -1,133 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationinstance.html - -module Stratosphere.Resources.DMSReplicationInstance where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for DMSReplicationInstance. See --- 'dmsReplicationInstance' for a more convenient constructor. -data DMSReplicationInstance = - DMSReplicationInstance - { _dMSReplicationInstanceAllocatedStorage :: Maybe (Val Integer) - , _dMSReplicationInstanceAllowMajorVersionUpgrade :: Maybe (Val Bool) - , _dMSReplicationInstanceAutoMinorVersionUpgrade :: Maybe (Val Bool) - , _dMSReplicationInstanceAvailabilityZone :: Maybe (Val Text) - , _dMSReplicationInstanceEngineVersion :: Maybe (Val Text) - , _dMSReplicationInstanceKmsKeyId :: Maybe (Val Text) - , _dMSReplicationInstanceMultiAZ :: Maybe (Val Bool) - , _dMSReplicationInstancePreferredMaintenanceWindow :: Maybe (Val Text) - , _dMSReplicationInstancePubliclyAccessible :: Maybe (Val Bool) - , _dMSReplicationInstanceReplicationInstanceClass :: Val Text - , _dMSReplicationInstanceReplicationInstanceIdentifier :: Maybe (Val Text) - , _dMSReplicationInstanceReplicationSubnetGroupIdentifier :: Maybe (Val Text) - , _dMSReplicationInstanceTags :: Maybe [Tag] - , _dMSReplicationInstanceVpcSecurityGroupIds :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToResourceProperties DMSReplicationInstance where - toResourceProperties DMSReplicationInstance{..} = - ResourceProperties - { resourcePropertiesType = "AWS::DMS::ReplicationInstance" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AllocatedStorage",) . toJSON) _dMSReplicationInstanceAllocatedStorage - , fmap (("AllowMajorVersionUpgrade",) . toJSON) _dMSReplicationInstanceAllowMajorVersionUpgrade - , fmap (("AutoMinorVersionUpgrade",) . toJSON) _dMSReplicationInstanceAutoMinorVersionUpgrade - , fmap (("AvailabilityZone",) . toJSON) _dMSReplicationInstanceAvailabilityZone - , fmap (("EngineVersion",) . toJSON) _dMSReplicationInstanceEngineVersion - , fmap (("KmsKeyId",) . toJSON) _dMSReplicationInstanceKmsKeyId - , fmap (("MultiAZ",) . toJSON) _dMSReplicationInstanceMultiAZ - , fmap (("PreferredMaintenanceWindow",) . toJSON) _dMSReplicationInstancePreferredMaintenanceWindow - , fmap (("PubliclyAccessible",) . toJSON) _dMSReplicationInstancePubliclyAccessible - , (Just . ("ReplicationInstanceClass",) . toJSON) _dMSReplicationInstanceReplicationInstanceClass - , fmap (("ReplicationInstanceIdentifier",) . toJSON) _dMSReplicationInstanceReplicationInstanceIdentifier - , fmap (("ReplicationSubnetGroupIdentifier",) . toJSON) _dMSReplicationInstanceReplicationSubnetGroupIdentifier - , fmap (("Tags",) . toJSON) _dMSReplicationInstanceTags - , fmap (("VpcSecurityGroupIds",) . toJSON) _dMSReplicationInstanceVpcSecurityGroupIds - ] - } - --- | Constructor for 'DMSReplicationInstance' containing required fields as --- arguments. -dmsReplicationInstance - :: Val Text -- ^ 'dmsriReplicationInstanceClass' - -> DMSReplicationInstance -dmsReplicationInstance replicationInstanceClassarg = - DMSReplicationInstance - { _dMSReplicationInstanceAllocatedStorage = Nothing - , _dMSReplicationInstanceAllowMajorVersionUpgrade = Nothing - , _dMSReplicationInstanceAutoMinorVersionUpgrade = Nothing - , _dMSReplicationInstanceAvailabilityZone = Nothing - , _dMSReplicationInstanceEngineVersion = Nothing - , _dMSReplicationInstanceKmsKeyId = Nothing - , _dMSReplicationInstanceMultiAZ = Nothing - , _dMSReplicationInstancePreferredMaintenanceWindow = Nothing - , _dMSReplicationInstancePubliclyAccessible = Nothing - , _dMSReplicationInstanceReplicationInstanceClass = replicationInstanceClassarg - , _dMSReplicationInstanceReplicationInstanceIdentifier = Nothing - , _dMSReplicationInstanceReplicationSubnetGroupIdentifier = Nothing - , _dMSReplicationInstanceTags = Nothing - , _dMSReplicationInstanceVpcSecurityGroupIds = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationinstance.html#cfn-dms-replicationinstance-allocatedstorage -dmsriAllocatedStorage :: Lens' DMSReplicationInstance (Maybe (Val Integer)) -dmsriAllocatedStorage = lens _dMSReplicationInstanceAllocatedStorage (\s a -> s { _dMSReplicationInstanceAllocatedStorage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationinstance.html#cfn-dms-replicationinstance-allowmajorversionupgrade -dmsriAllowMajorVersionUpgrade :: Lens' DMSReplicationInstance (Maybe (Val Bool)) -dmsriAllowMajorVersionUpgrade = lens _dMSReplicationInstanceAllowMajorVersionUpgrade (\s a -> s { _dMSReplicationInstanceAllowMajorVersionUpgrade = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationinstance.html#cfn-dms-replicationinstance-autominorversionupgrade -dmsriAutoMinorVersionUpgrade :: Lens' DMSReplicationInstance (Maybe (Val Bool)) -dmsriAutoMinorVersionUpgrade = lens _dMSReplicationInstanceAutoMinorVersionUpgrade (\s a -> s { _dMSReplicationInstanceAutoMinorVersionUpgrade = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationinstance.html#cfn-dms-replicationinstance-availabilityzone -dmsriAvailabilityZone :: Lens' DMSReplicationInstance (Maybe (Val Text)) -dmsriAvailabilityZone = lens _dMSReplicationInstanceAvailabilityZone (\s a -> s { _dMSReplicationInstanceAvailabilityZone = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationinstance.html#cfn-dms-replicationinstance-engineversion -dmsriEngineVersion :: Lens' DMSReplicationInstance (Maybe (Val Text)) -dmsriEngineVersion = lens _dMSReplicationInstanceEngineVersion (\s a -> s { _dMSReplicationInstanceEngineVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationinstance.html#cfn-dms-replicationinstance-kmskeyid -dmsriKmsKeyId :: Lens' DMSReplicationInstance (Maybe (Val Text)) -dmsriKmsKeyId = lens _dMSReplicationInstanceKmsKeyId (\s a -> s { _dMSReplicationInstanceKmsKeyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationinstance.html#cfn-dms-replicationinstance-multiaz -dmsriMultiAZ :: Lens' DMSReplicationInstance (Maybe (Val Bool)) -dmsriMultiAZ = lens _dMSReplicationInstanceMultiAZ (\s a -> s { _dMSReplicationInstanceMultiAZ = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationinstance.html#cfn-dms-replicationinstance-preferredmaintenancewindow -dmsriPreferredMaintenanceWindow :: Lens' DMSReplicationInstance (Maybe (Val Text)) -dmsriPreferredMaintenanceWindow = lens _dMSReplicationInstancePreferredMaintenanceWindow (\s a -> s { _dMSReplicationInstancePreferredMaintenanceWindow = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationinstance.html#cfn-dms-replicationinstance-publiclyaccessible -dmsriPubliclyAccessible :: Lens' DMSReplicationInstance (Maybe (Val Bool)) -dmsriPubliclyAccessible = lens _dMSReplicationInstancePubliclyAccessible (\s a -> s { _dMSReplicationInstancePubliclyAccessible = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationinstance.html#cfn-dms-replicationinstance-replicationinstanceclass -dmsriReplicationInstanceClass :: Lens' DMSReplicationInstance (Val Text) -dmsriReplicationInstanceClass = lens _dMSReplicationInstanceReplicationInstanceClass (\s a -> s { _dMSReplicationInstanceReplicationInstanceClass = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationinstance.html#cfn-dms-replicationinstance-replicationinstanceidentifier -dmsriReplicationInstanceIdentifier :: Lens' DMSReplicationInstance (Maybe (Val Text)) -dmsriReplicationInstanceIdentifier = lens _dMSReplicationInstanceReplicationInstanceIdentifier (\s a -> s { _dMSReplicationInstanceReplicationInstanceIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationinstance.html#cfn-dms-replicationinstance-replicationsubnetgroupidentifier -dmsriReplicationSubnetGroupIdentifier :: Lens' DMSReplicationInstance (Maybe (Val Text)) -dmsriReplicationSubnetGroupIdentifier = lens _dMSReplicationInstanceReplicationSubnetGroupIdentifier (\s a -> s { _dMSReplicationInstanceReplicationSubnetGroupIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationinstance.html#cfn-dms-replicationinstance-tags -dmsriTags :: Lens' DMSReplicationInstance (Maybe [Tag]) -dmsriTags = lens _dMSReplicationInstanceTags (\s a -> s { _dMSReplicationInstanceTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationinstance.html#cfn-dms-replicationinstance-vpcsecuritygroupids -dmsriVpcSecurityGroupIds :: Lens' DMSReplicationInstance (Maybe (ValList Text)) -dmsriVpcSecurityGroupIds = lens _dMSReplicationInstanceVpcSecurityGroupIds (\s a -> s { _dMSReplicationInstanceVpcSecurityGroupIds = a }) diff --git a/library-gen/Stratosphere/Resources/DMSReplicationSubnetGroup.hs b/library-gen/Stratosphere/Resources/DMSReplicationSubnetGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/DMSReplicationSubnetGroup.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationsubnetgroup.html - -module Stratosphere.Resources.DMSReplicationSubnetGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for DMSReplicationSubnetGroup. See --- 'dmsReplicationSubnetGroup' for a more convenient constructor. -data DMSReplicationSubnetGroup = - DMSReplicationSubnetGroup - { _dMSReplicationSubnetGroupReplicationSubnetGroupDescription :: Val Text - , _dMSReplicationSubnetGroupReplicationSubnetGroupIdentifier :: Maybe (Val Text) - , _dMSReplicationSubnetGroupSubnetIds :: ValList Text - , _dMSReplicationSubnetGroupTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties DMSReplicationSubnetGroup where - toResourceProperties DMSReplicationSubnetGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::DMS::ReplicationSubnetGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ReplicationSubnetGroupDescription",) . toJSON) _dMSReplicationSubnetGroupReplicationSubnetGroupDescription - , fmap (("ReplicationSubnetGroupIdentifier",) . toJSON) _dMSReplicationSubnetGroupReplicationSubnetGroupIdentifier - , (Just . ("SubnetIds",) . toJSON) _dMSReplicationSubnetGroupSubnetIds - , fmap (("Tags",) . toJSON) _dMSReplicationSubnetGroupTags - ] - } - --- | Constructor for 'DMSReplicationSubnetGroup' containing required fields as --- arguments. -dmsReplicationSubnetGroup - :: Val Text -- ^ 'dmsrsgReplicationSubnetGroupDescription' - -> ValList Text -- ^ 'dmsrsgSubnetIds' - -> DMSReplicationSubnetGroup -dmsReplicationSubnetGroup replicationSubnetGroupDescriptionarg subnetIdsarg = - DMSReplicationSubnetGroup - { _dMSReplicationSubnetGroupReplicationSubnetGroupDescription = replicationSubnetGroupDescriptionarg - , _dMSReplicationSubnetGroupReplicationSubnetGroupIdentifier = Nothing - , _dMSReplicationSubnetGroupSubnetIds = subnetIdsarg - , _dMSReplicationSubnetGroupTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationsubnetgroup.html#cfn-dms-replicationsubnetgroup-replicationsubnetgroupdescription -dmsrsgReplicationSubnetGroupDescription :: Lens' DMSReplicationSubnetGroup (Val Text) -dmsrsgReplicationSubnetGroupDescription = lens _dMSReplicationSubnetGroupReplicationSubnetGroupDescription (\s a -> s { _dMSReplicationSubnetGroupReplicationSubnetGroupDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationsubnetgroup.html#cfn-dms-replicationsubnetgroup-replicationsubnetgroupidentifier -dmsrsgReplicationSubnetGroupIdentifier :: Lens' DMSReplicationSubnetGroup (Maybe (Val Text)) -dmsrsgReplicationSubnetGroupIdentifier = lens _dMSReplicationSubnetGroupReplicationSubnetGroupIdentifier (\s a -> s { _dMSReplicationSubnetGroupReplicationSubnetGroupIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationsubnetgroup.html#cfn-dms-replicationsubnetgroup-subnetids -dmsrsgSubnetIds :: Lens' DMSReplicationSubnetGroup (ValList Text) -dmsrsgSubnetIds = lens _dMSReplicationSubnetGroupSubnetIds (\s a -> s { _dMSReplicationSubnetGroupSubnetIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationsubnetgroup.html#cfn-dms-replicationsubnetgroup-tags -dmsrsgTags :: Lens' DMSReplicationSubnetGroup (Maybe [Tag]) -dmsrsgTags = lens _dMSReplicationSubnetGroupTags (\s a -> s { _dMSReplicationSubnetGroupTags = a }) diff --git a/library-gen/Stratosphere/Resources/DMSReplicationTask.hs b/library-gen/Stratosphere/Resources/DMSReplicationTask.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/DMSReplicationTask.hs +++ /dev/null @@ -1,123 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationtask.html - -module Stratosphere.Resources.DMSReplicationTask where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for DMSReplicationTask. See --- 'dmsReplicationTask' for a more convenient constructor. -data DMSReplicationTask = - DMSReplicationTask - { _dMSReplicationTaskCdcStartPosition :: Maybe (Val Text) - , _dMSReplicationTaskCdcStartTime :: Maybe (Val Double) - , _dMSReplicationTaskCdcStopPosition :: Maybe (Val Text) - , _dMSReplicationTaskMigrationType :: Val Text - , _dMSReplicationTaskReplicationInstanceArn :: Val Text - , _dMSReplicationTaskReplicationTaskIdentifier :: Maybe (Val Text) - , _dMSReplicationTaskReplicationTaskSettings :: Maybe (Val Text) - , _dMSReplicationTaskSourceEndpointArn :: Val Text - , _dMSReplicationTaskTableMappings :: Val Text - , _dMSReplicationTaskTags :: Maybe [Tag] - , _dMSReplicationTaskTargetEndpointArn :: Val Text - , _dMSReplicationTaskTaskData :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties DMSReplicationTask where - toResourceProperties DMSReplicationTask{..} = - ResourceProperties - { resourcePropertiesType = "AWS::DMS::ReplicationTask" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("CdcStartPosition",) . toJSON) _dMSReplicationTaskCdcStartPosition - , fmap (("CdcStartTime",) . toJSON) _dMSReplicationTaskCdcStartTime - , fmap (("CdcStopPosition",) . toJSON) _dMSReplicationTaskCdcStopPosition - , (Just . ("MigrationType",) . toJSON) _dMSReplicationTaskMigrationType - , (Just . ("ReplicationInstanceArn",) . toJSON) _dMSReplicationTaskReplicationInstanceArn - , fmap (("ReplicationTaskIdentifier",) . toJSON) _dMSReplicationTaskReplicationTaskIdentifier - , fmap (("ReplicationTaskSettings",) . toJSON) _dMSReplicationTaskReplicationTaskSettings - , (Just . ("SourceEndpointArn",) . toJSON) _dMSReplicationTaskSourceEndpointArn - , (Just . ("TableMappings",) . toJSON) _dMSReplicationTaskTableMappings - , fmap (("Tags",) . toJSON) _dMSReplicationTaskTags - , (Just . ("TargetEndpointArn",) . toJSON) _dMSReplicationTaskTargetEndpointArn - , fmap (("TaskData",) . toJSON) _dMSReplicationTaskTaskData - ] - } - --- | Constructor for 'DMSReplicationTask' containing required fields as --- arguments. -dmsReplicationTask - :: Val Text -- ^ 'dmsrtMigrationType' - -> Val Text -- ^ 'dmsrtReplicationInstanceArn' - -> Val Text -- ^ 'dmsrtSourceEndpointArn' - -> Val Text -- ^ 'dmsrtTableMappings' - -> Val Text -- ^ 'dmsrtTargetEndpointArn' - -> DMSReplicationTask -dmsReplicationTask migrationTypearg replicationInstanceArnarg sourceEndpointArnarg tableMappingsarg targetEndpointArnarg = - DMSReplicationTask - { _dMSReplicationTaskCdcStartPosition = Nothing - , _dMSReplicationTaskCdcStartTime = Nothing - , _dMSReplicationTaskCdcStopPosition = Nothing - , _dMSReplicationTaskMigrationType = migrationTypearg - , _dMSReplicationTaskReplicationInstanceArn = replicationInstanceArnarg - , _dMSReplicationTaskReplicationTaskIdentifier = Nothing - , _dMSReplicationTaskReplicationTaskSettings = Nothing - , _dMSReplicationTaskSourceEndpointArn = sourceEndpointArnarg - , _dMSReplicationTaskTableMappings = tableMappingsarg - , _dMSReplicationTaskTags = Nothing - , _dMSReplicationTaskTargetEndpointArn = targetEndpointArnarg - , _dMSReplicationTaskTaskData = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationtask.html#cfn-dms-replicationtask-cdcstartposition -dmsrtCdcStartPosition :: Lens' DMSReplicationTask (Maybe (Val Text)) -dmsrtCdcStartPosition = lens _dMSReplicationTaskCdcStartPosition (\s a -> s { _dMSReplicationTaskCdcStartPosition = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationtask.html#cfn-dms-replicationtask-cdcstarttime -dmsrtCdcStartTime :: Lens' DMSReplicationTask (Maybe (Val Double)) -dmsrtCdcStartTime = lens _dMSReplicationTaskCdcStartTime (\s a -> s { _dMSReplicationTaskCdcStartTime = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationtask.html#cfn-dms-replicationtask-cdcstopposition -dmsrtCdcStopPosition :: Lens' DMSReplicationTask (Maybe (Val Text)) -dmsrtCdcStopPosition = lens _dMSReplicationTaskCdcStopPosition (\s a -> s { _dMSReplicationTaskCdcStopPosition = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationtask.html#cfn-dms-replicationtask-migrationtype -dmsrtMigrationType :: Lens' DMSReplicationTask (Val Text) -dmsrtMigrationType = lens _dMSReplicationTaskMigrationType (\s a -> s { _dMSReplicationTaskMigrationType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationtask.html#cfn-dms-replicationtask-replicationinstancearn -dmsrtReplicationInstanceArn :: Lens' DMSReplicationTask (Val Text) -dmsrtReplicationInstanceArn = lens _dMSReplicationTaskReplicationInstanceArn (\s a -> s { _dMSReplicationTaskReplicationInstanceArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationtask.html#cfn-dms-replicationtask-replicationtaskidentifier -dmsrtReplicationTaskIdentifier :: Lens' DMSReplicationTask (Maybe (Val Text)) -dmsrtReplicationTaskIdentifier = lens _dMSReplicationTaskReplicationTaskIdentifier (\s a -> s { _dMSReplicationTaskReplicationTaskIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationtask.html#cfn-dms-replicationtask-replicationtasksettings -dmsrtReplicationTaskSettings :: Lens' DMSReplicationTask (Maybe (Val Text)) -dmsrtReplicationTaskSettings = lens _dMSReplicationTaskReplicationTaskSettings (\s a -> s { _dMSReplicationTaskReplicationTaskSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationtask.html#cfn-dms-replicationtask-sourceendpointarn -dmsrtSourceEndpointArn :: Lens' DMSReplicationTask (Val Text) -dmsrtSourceEndpointArn = lens _dMSReplicationTaskSourceEndpointArn (\s a -> s { _dMSReplicationTaskSourceEndpointArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationtask.html#cfn-dms-replicationtask-tablemappings -dmsrtTableMappings :: Lens' DMSReplicationTask (Val Text) -dmsrtTableMappings = lens _dMSReplicationTaskTableMappings (\s a -> s { _dMSReplicationTaskTableMappings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationtask.html#cfn-dms-replicationtask-tags -dmsrtTags :: Lens' DMSReplicationTask (Maybe [Tag]) -dmsrtTags = lens _dMSReplicationTaskTags (\s a -> s { _dMSReplicationTaskTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationtask.html#cfn-dms-replicationtask-targetendpointarn -dmsrtTargetEndpointArn :: Lens' DMSReplicationTask (Val Text) -dmsrtTargetEndpointArn = lens _dMSReplicationTaskTargetEndpointArn (\s a -> s { _dMSReplicationTaskTargetEndpointArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dms-replicationtask.html#cfn-dms-replicationtask-taskdata -dmsrtTaskData :: Lens' DMSReplicationTask (Maybe (Val Text)) -dmsrtTaskData = lens _dMSReplicationTaskTaskData (\s a -> s { _dMSReplicationTaskTaskData = a }) diff --git a/library-gen/Stratosphere/Resources/DataPipelinePipeline.hs b/library-gen/Stratosphere/Resources/DataPipelinePipeline.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/DataPipelinePipeline.hs +++ /dev/null @@ -1,88 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-datapipeline-pipeline.html - -module Stratosphere.Resources.DataPipelinePipeline where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.DataPipelinePipelineParameterObject -import Stratosphere.ResourceProperties.DataPipelinePipelineParameterValue -import Stratosphere.ResourceProperties.DataPipelinePipelinePipelineObject -import Stratosphere.ResourceProperties.DataPipelinePipelinePipelineTag - --- | Full data type definition for DataPipelinePipeline. See --- 'dataPipelinePipeline' for a more convenient constructor. -data DataPipelinePipeline = - DataPipelinePipeline - { _dataPipelinePipelineActivate :: Maybe (Val Bool) - , _dataPipelinePipelineDescription :: Maybe (Val Text) - , _dataPipelinePipelineName :: Val Text - , _dataPipelinePipelineParameterObjects :: [DataPipelinePipelineParameterObject] - , _dataPipelinePipelineParameterValues :: Maybe [DataPipelinePipelineParameterValue] - , _dataPipelinePipelinePipelineObjects :: Maybe [DataPipelinePipelinePipelineObject] - , _dataPipelinePipelinePipelineTags :: Maybe [DataPipelinePipelinePipelineTag] - } deriving (Show, Eq) - -instance ToResourceProperties DataPipelinePipeline where - toResourceProperties DataPipelinePipeline{..} = - ResourceProperties - { resourcePropertiesType = "AWS::DataPipeline::Pipeline" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Activate",) . toJSON) _dataPipelinePipelineActivate - , fmap (("Description",) . toJSON) _dataPipelinePipelineDescription - , (Just . ("Name",) . toJSON) _dataPipelinePipelineName - , (Just . ("ParameterObjects",) . toJSON) _dataPipelinePipelineParameterObjects - , fmap (("ParameterValues",) . toJSON) _dataPipelinePipelineParameterValues - , fmap (("PipelineObjects",) . toJSON) _dataPipelinePipelinePipelineObjects - , fmap (("PipelineTags",) . toJSON) _dataPipelinePipelinePipelineTags - ] - } - --- | Constructor for 'DataPipelinePipeline' containing required fields as --- arguments. -dataPipelinePipeline - :: Val Text -- ^ 'dppName' - -> [DataPipelinePipelineParameterObject] -- ^ 'dppParameterObjects' - -> DataPipelinePipeline -dataPipelinePipeline namearg parameterObjectsarg = - DataPipelinePipeline - { _dataPipelinePipelineActivate = Nothing - , _dataPipelinePipelineDescription = Nothing - , _dataPipelinePipelineName = namearg - , _dataPipelinePipelineParameterObjects = parameterObjectsarg - , _dataPipelinePipelineParameterValues = Nothing - , _dataPipelinePipelinePipelineObjects = Nothing - , _dataPipelinePipelinePipelineTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-datapipeline-pipeline.html#cfn-datapipeline-pipeline-activate -dppActivate :: Lens' DataPipelinePipeline (Maybe (Val Bool)) -dppActivate = lens _dataPipelinePipelineActivate (\s a -> s { _dataPipelinePipelineActivate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-datapipeline-pipeline.html#cfn-datapipeline-pipeline-description -dppDescription :: Lens' DataPipelinePipeline (Maybe (Val Text)) -dppDescription = lens _dataPipelinePipelineDescription (\s a -> s { _dataPipelinePipelineDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-datapipeline-pipeline.html#cfn-datapipeline-pipeline-name -dppName :: Lens' DataPipelinePipeline (Val Text) -dppName = lens _dataPipelinePipelineName (\s a -> s { _dataPipelinePipelineName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-datapipeline-pipeline.html#cfn-datapipeline-pipeline-parameterobjects -dppParameterObjects :: Lens' DataPipelinePipeline [DataPipelinePipelineParameterObject] -dppParameterObjects = lens _dataPipelinePipelineParameterObjects (\s a -> s { _dataPipelinePipelineParameterObjects = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-datapipeline-pipeline.html#cfn-datapipeline-pipeline-parametervalues -dppParameterValues :: Lens' DataPipelinePipeline (Maybe [DataPipelinePipelineParameterValue]) -dppParameterValues = lens _dataPipelinePipelineParameterValues (\s a -> s { _dataPipelinePipelineParameterValues = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-datapipeline-pipeline.html#cfn-datapipeline-pipeline-pipelineobjects -dppPipelineObjects :: Lens' DataPipelinePipeline (Maybe [DataPipelinePipelinePipelineObject]) -dppPipelineObjects = lens _dataPipelinePipelinePipelineObjects (\s a -> s { _dataPipelinePipelinePipelineObjects = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-datapipeline-pipeline.html#cfn-datapipeline-pipeline-pipelinetags -dppPipelineTags :: Lens' DataPipelinePipeline (Maybe [DataPipelinePipelinePipelineTag]) -dppPipelineTags = lens _dataPipelinePipelinePipelineTags (\s a -> s { _dataPipelinePipelinePipelineTags = a }) diff --git a/library-gen/Stratosphere/Resources/DetectiveGraph.hs b/library-gen/Stratosphere/Resources/DetectiveGraph.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/DetectiveGraph.hs +++ /dev/null @@ -1,35 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-detective-graph.html - -module Stratosphere.Resources.DetectiveGraph where - -import Stratosphere.ResourceImports - - --- | Full data type definition for DetectiveGraph. See 'detectiveGraph' for a --- more convenient constructor. -data DetectiveGraph = - DetectiveGraph - { - } deriving (Show, Eq) - -instance ToResourceProperties DetectiveGraph where - toResourceProperties _ = - ResourceProperties - { resourcePropertiesType = "AWS::Detective::Graph" - , resourcePropertiesProperties = keyMapEmpty - } - --- | Constructor for 'DetectiveGraph' containing required fields as arguments. -detectiveGraph - :: DetectiveGraph -detectiveGraph = - DetectiveGraph - { - } - - diff --git a/library-gen/Stratosphere/Resources/DetectiveMemberInvitation.hs b/library-gen/Stratosphere/Resources/DetectiveMemberInvitation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/DetectiveMemberInvitation.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-detective-memberinvitation.html - -module Stratosphere.Resources.DetectiveMemberInvitation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for DetectiveMemberInvitation. See --- 'detectiveMemberInvitation' for a more convenient constructor. -data DetectiveMemberInvitation = - DetectiveMemberInvitation - { _detectiveMemberInvitationGraphArn :: Val Text - , _detectiveMemberInvitationMemberEmailAddress :: Val Text - , _detectiveMemberInvitationMemberId :: Val Text - , _detectiveMemberInvitationMessage :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties DetectiveMemberInvitation where - toResourceProperties DetectiveMemberInvitation{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Detective::MemberInvitation" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("GraphArn",) . toJSON) _detectiveMemberInvitationGraphArn - , (Just . ("MemberEmailAddress",) . toJSON) _detectiveMemberInvitationMemberEmailAddress - , (Just . ("MemberId",) . toJSON) _detectiveMemberInvitationMemberId - , fmap (("Message",) . toJSON) _detectiveMemberInvitationMessage - ] - } - --- | Constructor for 'DetectiveMemberInvitation' containing required fields as --- arguments. -detectiveMemberInvitation - :: Val Text -- ^ 'dmiGraphArn' - -> Val Text -- ^ 'dmiMemberEmailAddress' - -> Val Text -- ^ 'dmiMemberId' - -> DetectiveMemberInvitation -detectiveMemberInvitation graphArnarg memberEmailAddressarg memberIdarg = - DetectiveMemberInvitation - { _detectiveMemberInvitationGraphArn = graphArnarg - , _detectiveMemberInvitationMemberEmailAddress = memberEmailAddressarg - , _detectiveMemberInvitationMemberId = memberIdarg - , _detectiveMemberInvitationMessage = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-detective-memberinvitation.html#cfn-detective-memberinvitation-grapharn -dmiGraphArn :: Lens' DetectiveMemberInvitation (Val Text) -dmiGraphArn = lens _detectiveMemberInvitationGraphArn (\s a -> s { _detectiveMemberInvitationGraphArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-detective-memberinvitation.html#cfn-detective-memberinvitation-memberemailaddress -dmiMemberEmailAddress :: Lens' DetectiveMemberInvitation (Val Text) -dmiMemberEmailAddress = lens _detectiveMemberInvitationMemberEmailAddress (\s a -> s { _detectiveMemberInvitationMemberEmailAddress = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-detective-memberinvitation.html#cfn-detective-memberinvitation-memberid -dmiMemberId :: Lens' DetectiveMemberInvitation (Val Text) -dmiMemberId = lens _detectiveMemberInvitationMemberId (\s a -> s { _detectiveMemberInvitationMemberId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-detective-memberinvitation.html#cfn-detective-memberinvitation-message -dmiMessage :: Lens' DetectiveMemberInvitation (Maybe (Val Text)) -dmiMessage = lens _detectiveMemberInvitationMessage (\s a -> s { _detectiveMemberInvitationMessage = a }) diff --git a/library-gen/Stratosphere/Resources/DirectoryServiceMicrosoftAD.hs b/library-gen/Stratosphere/Resources/DirectoryServiceMicrosoftAD.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/DirectoryServiceMicrosoftAD.hs +++ /dev/null @@ -1,86 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-directoryservice-microsoftad.html - -module Stratosphere.Resources.DirectoryServiceMicrosoftAD where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.DirectoryServiceMicrosoftADVpcSettings - --- | Full data type definition for DirectoryServiceMicrosoftAD. See --- 'directoryServiceMicrosoftAD' for a more convenient constructor. -data DirectoryServiceMicrosoftAD = - DirectoryServiceMicrosoftAD - { _directoryServiceMicrosoftADCreateAlias :: Maybe (Val Bool) - , _directoryServiceMicrosoftADEdition :: Maybe (Val Text) - , _directoryServiceMicrosoftADEnableSso :: Maybe (Val Bool) - , _directoryServiceMicrosoftADName :: Val Text - , _directoryServiceMicrosoftADPassword :: Val Text - , _directoryServiceMicrosoftADShortName :: Maybe (Val Text) - , _directoryServiceMicrosoftADVpcSettings :: DirectoryServiceMicrosoftADVpcSettings - } deriving (Show, Eq) - -instance ToResourceProperties DirectoryServiceMicrosoftAD where - toResourceProperties DirectoryServiceMicrosoftAD{..} = - ResourceProperties - { resourcePropertiesType = "AWS::DirectoryService::MicrosoftAD" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("CreateAlias",) . toJSON) _directoryServiceMicrosoftADCreateAlias - , fmap (("Edition",) . toJSON) _directoryServiceMicrosoftADEdition - , fmap (("EnableSso",) . toJSON) _directoryServiceMicrosoftADEnableSso - , (Just . ("Name",) . toJSON) _directoryServiceMicrosoftADName - , (Just . ("Password",) . toJSON) _directoryServiceMicrosoftADPassword - , fmap (("ShortName",) . toJSON) _directoryServiceMicrosoftADShortName - , (Just . ("VpcSettings",) . toJSON) _directoryServiceMicrosoftADVpcSettings - ] - } - --- | Constructor for 'DirectoryServiceMicrosoftAD' containing required fields --- as arguments. -directoryServiceMicrosoftAD - :: Val Text -- ^ 'dsmadName' - -> Val Text -- ^ 'dsmadPassword' - -> DirectoryServiceMicrosoftADVpcSettings -- ^ 'dsmadVpcSettings' - -> DirectoryServiceMicrosoftAD -directoryServiceMicrosoftAD namearg passwordarg vpcSettingsarg = - DirectoryServiceMicrosoftAD - { _directoryServiceMicrosoftADCreateAlias = Nothing - , _directoryServiceMicrosoftADEdition = Nothing - , _directoryServiceMicrosoftADEnableSso = Nothing - , _directoryServiceMicrosoftADName = namearg - , _directoryServiceMicrosoftADPassword = passwordarg - , _directoryServiceMicrosoftADShortName = Nothing - , _directoryServiceMicrosoftADVpcSettings = vpcSettingsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-directoryservice-microsoftad.html#cfn-directoryservice-microsoftad-createalias -dsmadCreateAlias :: Lens' DirectoryServiceMicrosoftAD (Maybe (Val Bool)) -dsmadCreateAlias = lens _directoryServiceMicrosoftADCreateAlias (\s a -> s { _directoryServiceMicrosoftADCreateAlias = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-directoryservice-microsoftad.html#cfn-directoryservice-microsoftad-edition -dsmadEdition :: Lens' DirectoryServiceMicrosoftAD (Maybe (Val Text)) -dsmadEdition = lens _directoryServiceMicrosoftADEdition (\s a -> s { _directoryServiceMicrosoftADEdition = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-directoryservice-microsoftad.html#cfn-directoryservice-microsoftad-enablesso -dsmadEnableSso :: Lens' DirectoryServiceMicrosoftAD (Maybe (Val Bool)) -dsmadEnableSso = lens _directoryServiceMicrosoftADEnableSso (\s a -> s { _directoryServiceMicrosoftADEnableSso = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-directoryservice-microsoftad.html#cfn-directoryservice-microsoftad-name -dsmadName :: Lens' DirectoryServiceMicrosoftAD (Val Text) -dsmadName = lens _directoryServiceMicrosoftADName (\s a -> s { _directoryServiceMicrosoftADName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-directoryservice-microsoftad.html#cfn-directoryservice-microsoftad-password -dsmadPassword :: Lens' DirectoryServiceMicrosoftAD (Val Text) -dsmadPassword = lens _directoryServiceMicrosoftADPassword (\s a -> s { _directoryServiceMicrosoftADPassword = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-directoryservice-microsoftad.html#cfn-directoryservice-microsoftad-shortname -dsmadShortName :: Lens' DirectoryServiceMicrosoftAD (Maybe (Val Text)) -dsmadShortName = lens _directoryServiceMicrosoftADShortName (\s a -> s { _directoryServiceMicrosoftADShortName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-directoryservice-microsoftad.html#cfn-directoryservice-microsoftad-vpcsettings -dsmadVpcSettings :: Lens' DirectoryServiceMicrosoftAD DirectoryServiceMicrosoftADVpcSettings -dsmadVpcSettings = lens _directoryServiceMicrosoftADVpcSettings (\s a -> s { _directoryServiceMicrosoftADVpcSettings = a }) diff --git a/library-gen/Stratosphere/Resources/DirectoryServiceSimpleAD.hs b/library-gen/Stratosphere/Resources/DirectoryServiceSimpleAD.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/DirectoryServiceSimpleAD.hs +++ /dev/null @@ -1,94 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-directoryservice-simplead.html - -module Stratosphere.Resources.DirectoryServiceSimpleAD where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.DirectoryServiceSimpleADVpcSettings - --- | Full data type definition for DirectoryServiceSimpleAD. See --- 'directoryServiceSimpleAD' for a more convenient constructor. -data DirectoryServiceSimpleAD = - DirectoryServiceSimpleAD - { _directoryServiceSimpleADCreateAlias :: Maybe (Val Bool) - , _directoryServiceSimpleADDescription :: Maybe (Val Text) - , _directoryServiceSimpleADEnableSso :: Maybe (Val Bool) - , _directoryServiceSimpleADName :: Val Text - , _directoryServiceSimpleADPassword :: Val Text - , _directoryServiceSimpleADShortName :: Maybe (Val Text) - , _directoryServiceSimpleADSize :: Val Text - , _directoryServiceSimpleADVpcSettings :: DirectoryServiceSimpleADVpcSettings - } deriving (Show, Eq) - -instance ToResourceProperties DirectoryServiceSimpleAD where - toResourceProperties DirectoryServiceSimpleAD{..} = - ResourceProperties - { resourcePropertiesType = "AWS::DirectoryService::SimpleAD" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("CreateAlias",) . toJSON) _directoryServiceSimpleADCreateAlias - , fmap (("Description",) . toJSON) _directoryServiceSimpleADDescription - , fmap (("EnableSso",) . toJSON) _directoryServiceSimpleADEnableSso - , (Just . ("Name",) . toJSON) _directoryServiceSimpleADName - , (Just . ("Password",) . toJSON) _directoryServiceSimpleADPassword - , fmap (("ShortName",) . toJSON) _directoryServiceSimpleADShortName - , (Just . ("Size",) . toJSON) _directoryServiceSimpleADSize - , (Just . ("VpcSettings",) . toJSON) _directoryServiceSimpleADVpcSettings - ] - } - --- | Constructor for 'DirectoryServiceSimpleAD' containing required fields as --- arguments. -directoryServiceSimpleAD - :: Val Text -- ^ 'dssadName' - -> Val Text -- ^ 'dssadPassword' - -> Val Text -- ^ 'dssadSize' - -> DirectoryServiceSimpleADVpcSettings -- ^ 'dssadVpcSettings' - -> DirectoryServiceSimpleAD -directoryServiceSimpleAD namearg passwordarg sizearg vpcSettingsarg = - DirectoryServiceSimpleAD - { _directoryServiceSimpleADCreateAlias = Nothing - , _directoryServiceSimpleADDescription = Nothing - , _directoryServiceSimpleADEnableSso = Nothing - , _directoryServiceSimpleADName = namearg - , _directoryServiceSimpleADPassword = passwordarg - , _directoryServiceSimpleADShortName = Nothing - , _directoryServiceSimpleADSize = sizearg - , _directoryServiceSimpleADVpcSettings = vpcSettingsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-directoryservice-simplead.html#cfn-directoryservice-simplead-createalias -dssadCreateAlias :: Lens' DirectoryServiceSimpleAD (Maybe (Val Bool)) -dssadCreateAlias = lens _directoryServiceSimpleADCreateAlias (\s a -> s { _directoryServiceSimpleADCreateAlias = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-directoryservice-simplead.html#cfn-directoryservice-simplead-description -dssadDescription :: Lens' DirectoryServiceSimpleAD (Maybe (Val Text)) -dssadDescription = lens _directoryServiceSimpleADDescription (\s a -> s { _directoryServiceSimpleADDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-directoryservice-simplead.html#cfn-directoryservice-simplead-enablesso -dssadEnableSso :: Lens' DirectoryServiceSimpleAD (Maybe (Val Bool)) -dssadEnableSso = lens _directoryServiceSimpleADEnableSso (\s a -> s { _directoryServiceSimpleADEnableSso = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-directoryservice-simplead.html#cfn-directoryservice-simplead-name -dssadName :: Lens' DirectoryServiceSimpleAD (Val Text) -dssadName = lens _directoryServiceSimpleADName (\s a -> s { _directoryServiceSimpleADName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-directoryservice-simplead.html#cfn-directoryservice-simplead-password -dssadPassword :: Lens' DirectoryServiceSimpleAD (Val Text) -dssadPassword = lens _directoryServiceSimpleADPassword (\s a -> s { _directoryServiceSimpleADPassword = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-directoryservice-simplead.html#cfn-directoryservice-simplead-shortname -dssadShortName :: Lens' DirectoryServiceSimpleAD (Maybe (Val Text)) -dssadShortName = lens _directoryServiceSimpleADShortName (\s a -> s { _directoryServiceSimpleADShortName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-directoryservice-simplead.html#cfn-directoryservice-simplead-size -dssadSize :: Lens' DirectoryServiceSimpleAD (Val Text) -dssadSize = lens _directoryServiceSimpleADSize (\s a -> s { _directoryServiceSimpleADSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-directoryservice-simplead.html#cfn-directoryservice-simplead-vpcsettings -dssadVpcSettings :: Lens' DirectoryServiceSimpleAD DirectoryServiceSimpleADVpcSettings -dssadVpcSettings = lens _directoryServiceSimpleADVpcSettings (\s a -> s { _directoryServiceSimpleADVpcSettings = a }) diff --git a/library-gen/Stratosphere/Resources/DocDBDBCluster.hs b/library-gen/Stratosphere/Resources/DocDBDBCluster.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/DocDBDBCluster.hs +++ /dev/null @@ -1,161 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbcluster.html - -module Stratosphere.Resources.DocDBDBCluster where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for DocDBDBCluster. See 'docDBDBCluster' for a --- more convenient constructor. -data DocDBDBCluster = - DocDBDBCluster - { _docDBDBClusterAvailabilityZones :: Maybe (ValList Text) - , _docDBDBClusterBackupRetentionPeriod :: Maybe (Val Integer) - , _docDBDBClusterDBClusterIdentifier :: Maybe (Val Text) - , _docDBDBClusterDBClusterParameterGroupName :: Maybe (Val Text) - , _docDBDBClusterDBSubnetGroupName :: Maybe (Val Text) - , _docDBDBClusterDeletionProtection :: Maybe (Val Bool) - , _docDBDBClusterEnableCloudwatchLogsExports :: Maybe (ValList Text) - , _docDBDBClusterEngineVersion :: Maybe (Val Text) - , _docDBDBClusterKmsKeyId :: Maybe (Val Text) - , _docDBDBClusterMasterUserPassword :: Val Text - , _docDBDBClusterMasterUsername :: Val Text - , _docDBDBClusterPort :: Maybe (Val Integer) - , _docDBDBClusterPreferredBackupWindow :: Maybe (Val Text) - , _docDBDBClusterPreferredMaintenanceWindow :: Maybe (Val Text) - , _docDBDBClusterSnapshotIdentifier :: Maybe (Val Text) - , _docDBDBClusterStorageEncrypted :: Maybe (Val Bool) - , _docDBDBClusterTags :: Maybe [Tag] - , _docDBDBClusterVpcSecurityGroupIds :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToResourceProperties DocDBDBCluster where - toResourceProperties DocDBDBCluster{..} = - ResourceProperties - { resourcePropertiesType = "AWS::DocDB::DBCluster" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AvailabilityZones",) . toJSON) _docDBDBClusterAvailabilityZones - , fmap (("BackupRetentionPeriod",) . toJSON) _docDBDBClusterBackupRetentionPeriod - , fmap (("DBClusterIdentifier",) . toJSON) _docDBDBClusterDBClusterIdentifier - , fmap (("DBClusterParameterGroupName",) . toJSON) _docDBDBClusterDBClusterParameterGroupName - , fmap (("DBSubnetGroupName",) . toJSON) _docDBDBClusterDBSubnetGroupName - , fmap (("DeletionProtection",) . toJSON) _docDBDBClusterDeletionProtection - , fmap (("EnableCloudwatchLogsExports",) . toJSON) _docDBDBClusterEnableCloudwatchLogsExports - , fmap (("EngineVersion",) . toJSON) _docDBDBClusterEngineVersion - , fmap (("KmsKeyId",) . toJSON) _docDBDBClusterKmsKeyId - , (Just . ("MasterUserPassword",) . toJSON) _docDBDBClusterMasterUserPassword - , (Just . ("MasterUsername",) . toJSON) _docDBDBClusterMasterUsername - , fmap (("Port",) . toJSON) _docDBDBClusterPort - , fmap (("PreferredBackupWindow",) . toJSON) _docDBDBClusterPreferredBackupWindow - , fmap (("PreferredMaintenanceWindow",) . toJSON) _docDBDBClusterPreferredMaintenanceWindow - , fmap (("SnapshotIdentifier",) . toJSON) _docDBDBClusterSnapshotIdentifier - , fmap (("StorageEncrypted",) . toJSON) _docDBDBClusterStorageEncrypted - , fmap (("Tags",) . toJSON) _docDBDBClusterTags - , fmap (("VpcSecurityGroupIds",) . toJSON) _docDBDBClusterVpcSecurityGroupIds - ] - } - --- | Constructor for 'DocDBDBCluster' containing required fields as arguments. -docDBDBCluster - :: Val Text -- ^ 'ddbdbcMasterUserPassword' - -> Val Text -- ^ 'ddbdbcMasterUsername' - -> DocDBDBCluster -docDBDBCluster masterUserPasswordarg masterUsernamearg = - DocDBDBCluster - { _docDBDBClusterAvailabilityZones = Nothing - , _docDBDBClusterBackupRetentionPeriod = Nothing - , _docDBDBClusterDBClusterIdentifier = Nothing - , _docDBDBClusterDBClusterParameterGroupName = Nothing - , _docDBDBClusterDBSubnetGroupName = Nothing - , _docDBDBClusterDeletionProtection = Nothing - , _docDBDBClusterEnableCloudwatchLogsExports = Nothing - , _docDBDBClusterEngineVersion = Nothing - , _docDBDBClusterKmsKeyId = Nothing - , _docDBDBClusterMasterUserPassword = masterUserPasswordarg - , _docDBDBClusterMasterUsername = masterUsernamearg - , _docDBDBClusterPort = Nothing - , _docDBDBClusterPreferredBackupWindow = Nothing - , _docDBDBClusterPreferredMaintenanceWindow = Nothing - , _docDBDBClusterSnapshotIdentifier = Nothing - , _docDBDBClusterStorageEncrypted = Nothing - , _docDBDBClusterTags = Nothing - , _docDBDBClusterVpcSecurityGroupIds = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbcluster.html#cfn-docdb-dbcluster-availabilityzones -ddbdbcAvailabilityZones :: Lens' DocDBDBCluster (Maybe (ValList Text)) -ddbdbcAvailabilityZones = lens _docDBDBClusterAvailabilityZones (\s a -> s { _docDBDBClusterAvailabilityZones = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbcluster.html#cfn-docdb-dbcluster-backupretentionperiod -ddbdbcBackupRetentionPeriod :: Lens' DocDBDBCluster (Maybe (Val Integer)) -ddbdbcBackupRetentionPeriod = lens _docDBDBClusterBackupRetentionPeriod (\s a -> s { _docDBDBClusterBackupRetentionPeriod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbcluster.html#cfn-docdb-dbcluster-dbclusteridentifier -ddbdbcDBClusterIdentifier :: Lens' DocDBDBCluster (Maybe (Val Text)) -ddbdbcDBClusterIdentifier = lens _docDBDBClusterDBClusterIdentifier (\s a -> s { _docDBDBClusterDBClusterIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbcluster.html#cfn-docdb-dbcluster-dbclusterparametergroupname -ddbdbcDBClusterParameterGroupName :: Lens' DocDBDBCluster (Maybe (Val Text)) -ddbdbcDBClusterParameterGroupName = lens _docDBDBClusterDBClusterParameterGroupName (\s a -> s { _docDBDBClusterDBClusterParameterGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbcluster.html#cfn-docdb-dbcluster-dbsubnetgroupname -ddbdbcDBSubnetGroupName :: Lens' DocDBDBCluster (Maybe (Val Text)) -ddbdbcDBSubnetGroupName = lens _docDBDBClusterDBSubnetGroupName (\s a -> s { _docDBDBClusterDBSubnetGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbcluster.html#cfn-docdb-dbcluster-deletionprotection -ddbdbcDeletionProtection :: Lens' DocDBDBCluster (Maybe (Val Bool)) -ddbdbcDeletionProtection = lens _docDBDBClusterDeletionProtection (\s a -> s { _docDBDBClusterDeletionProtection = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbcluster.html#cfn-docdb-dbcluster-enablecloudwatchlogsexports -ddbdbcEnableCloudwatchLogsExports :: Lens' DocDBDBCluster (Maybe (ValList Text)) -ddbdbcEnableCloudwatchLogsExports = lens _docDBDBClusterEnableCloudwatchLogsExports (\s a -> s { _docDBDBClusterEnableCloudwatchLogsExports = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbcluster.html#cfn-docdb-dbcluster-engineversion -ddbdbcEngineVersion :: Lens' DocDBDBCluster (Maybe (Val Text)) -ddbdbcEngineVersion = lens _docDBDBClusterEngineVersion (\s a -> s { _docDBDBClusterEngineVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbcluster.html#cfn-docdb-dbcluster-kmskeyid -ddbdbcKmsKeyId :: Lens' DocDBDBCluster (Maybe (Val Text)) -ddbdbcKmsKeyId = lens _docDBDBClusterKmsKeyId (\s a -> s { _docDBDBClusterKmsKeyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbcluster.html#cfn-docdb-dbcluster-masteruserpassword -ddbdbcMasterUserPassword :: Lens' DocDBDBCluster (Val Text) -ddbdbcMasterUserPassword = lens _docDBDBClusterMasterUserPassword (\s a -> s { _docDBDBClusterMasterUserPassword = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbcluster.html#cfn-docdb-dbcluster-masterusername -ddbdbcMasterUsername :: Lens' DocDBDBCluster (Val Text) -ddbdbcMasterUsername = lens _docDBDBClusterMasterUsername (\s a -> s { _docDBDBClusterMasterUsername = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbcluster.html#cfn-docdb-dbcluster-port -ddbdbcPort :: Lens' DocDBDBCluster (Maybe (Val Integer)) -ddbdbcPort = lens _docDBDBClusterPort (\s a -> s { _docDBDBClusterPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbcluster.html#cfn-docdb-dbcluster-preferredbackupwindow -ddbdbcPreferredBackupWindow :: Lens' DocDBDBCluster (Maybe (Val Text)) -ddbdbcPreferredBackupWindow = lens _docDBDBClusterPreferredBackupWindow (\s a -> s { _docDBDBClusterPreferredBackupWindow = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbcluster.html#cfn-docdb-dbcluster-preferredmaintenancewindow -ddbdbcPreferredMaintenanceWindow :: Lens' DocDBDBCluster (Maybe (Val Text)) -ddbdbcPreferredMaintenanceWindow = lens _docDBDBClusterPreferredMaintenanceWindow (\s a -> s { _docDBDBClusterPreferredMaintenanceWindow = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbcluster.html#cfn-docdb-dbcluster-snapshotidentifier -ddbdbcSnapshotIdentifier :: Lens' DocDBDBCluster (Maybe (Val Text)) -ddbdbcSnapshotIdentifier = lens _docDBDBClusterSnapshotIdentifier (\s a -> s { _docDBDBClusterSnapshotIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbcluster.html#cfn-docdb-dbcluster-storageencrypted -ddbdbcStorageEncrypted :: Lens' DocDBDBCluster (Maybe (Val Bool)) -ddbdbcStorageEncrypted = lens _docDBDBClusterStorageEncrypted (\s a -> s { _docDBDBClusterStorageEncrypted = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbcluster.html#cfn-docdb-dbcluster-tags -ddbdbcTags :: Lens' DocDBDBCluster (Maybe [Tag]) -ddbdbcTags = lens _docDBDBClusterTags (\s a -> s { _docDBDBClusterTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbcluster.html#cfn-docdb-dbcluster-vpcsecuritygroupids -ddbdbcVpcSecurityGroupIds :: Lens' DocDBDBCluster (Maybe (ValList Text)) -ddbdbcVpcSecurityGroupIds = lens _docDBDBClusterVpcSecurityGroupIds (\s a -> s { _docDBDBClusterVpcSecurityGroupIds = a }) diff --git a/library-gen/Stratosphere/Resources/DocDBDBClusterParameterGroup.hs b/library-gen/Stratosphere/Resources/DocDBDBClusterParameterGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/DocDBDBClusterParameterGroup.hs +++ /dev/null @@ -1,72 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbclusterparametergroup.html - -module Stratosphere.Resources.DocDBDBClusterParameterGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for DocDBDBClusterParameterGroup. See --- 'docDBDBClusterParameterGroup' for a more convenient constructor. -data DocDBDBClusterParameterGroup = - DocDBDBClusterParameterGroup - { _docDBDBClusterParameterGroupDescription :: Val Text - , _docDBDBClusterParameterGroupFamily :: Val Text - , _docDBDBClusterParameterGroupName :: Maybe (Val Text) - , _docDBDBClusterParameterGroupParameters :: Object - , _docDBDBClusterParameterGroupTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties DocDBDBClusterParameterGroup where - toResourceProperties DocDBDBClusterParameterGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::DocDB::DBClusterParameterGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Description",) . toJSON) _docDBDBClusterParameterGroupDescription - , (Just . ("Family",) . toJSON) _docDBDBClusterParameterGroupFamily - , fmap (("Name",) . toJSON) _docDBDBClusterParameterGroupName - , (Just . ("Parameters",) . toJSON) _docDBDBClusterParameterGroupParameters - , fmap (("Tags",) . toJSON) _docDBDBClusterParameterGroupTags - ] - } - --- | Constructor for 'DocDBDBClusterParameterGroup' containing required fields --- as arguments. -docDBDBClusterParameterGroup - :: Val Text -- ^ 'ddbdbcpgDescription' - -> Val Text -- ^ 'ddbdbcpgFamily' - -> Object -- ^ 'ddbdbcpgParameters' - -> DocDBDBClusterParameterGroup -docDBDBClusterParameterGroup descriptionarg familyarg parametersarg = - DocDBDBClusterParameterGroup - { _docDBDBClusterParameterGroupDescription = descriptionarg - , _docDBDBClusterParameterGroupFamily = familyarg - , _docDBDBClusterParameterGroupName = Nothing - , _docDBDBClusterParameterGroupParameters = parametersarg - , _docDBDBClusterParameterGroupTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbclusterparametergroup.html#cfn-docdb-dbclusterparametergroup-description -ddbdbcpgDescription :: Lens' DocDBDBClusterParameterGroup (Val Text) -ddbdbcpgDescription = lens _docDBDBClusterParameterGroupDescription (\s a -> s { _docDBDBClusterParameterGroupDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbclusterparametergroup.html#cfn-docdb-dbclusterparametergroup-family -ddbdbcpgFamily :: Lens' DocDBDBClusterParameterGroup (Val Text) -ddbdbcpgFamily = lens _docDBDBClusterParameterGroupFamily (\s a -> s { _docDBDBClusterParameterGroupFamily = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbclusterparametergroup.html#cfn-docdb-dbclusterparametergroup-name -ddbdbcpgName :: Lens' DocDBDBClusterParameterGroup (Maybe (Val Text)) -ddbdbcpgName = lens _docDBDBClusterParameterGroupName (\s a -> s { _docDBDBClusterParameterGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbclusterparametergroup.html#cfn-docdb-dbclusterparametergroup-parameters -ddbdbcpgParameters :: Lens' DocDBDBClusterParameterGroup Object -ddbdbcpgParameters = lens _docDBDBClusterParameterGroupParameters (\s a -> s { _docDBDBClusterParameterGroupParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbclusterparametergroup.html#cfn-docdb-dbclusterparametergroup-tags -ddbdbcpgTags :: Lens' DocDBDBClusterParameterGroup (Maybe [Tag]) -ddbdbcpgTags = lens _docDBDBClusterParameterGroupTags (\s a -> s { _docDBDBClusterParameterGroupTags = a }) diff --git a/library-gen/Stratosphere/Resources/DocDBDBInstance.hs b/library-gen/Stratosphere/Resources/DocDBDBInstance.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/DocDBDBInstance.hs +++ /dev/null @@ -1,85 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbinstance.html - -module Stratosphere.Resources.DocDBDBInstance where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for DocDBDBInstance. See 'docDBDBInstance' for --- a more convenient constructor. -data DocDBDBInstance = - DocDBDBInstance - { _docDBDBInstanceAutoMinorVersionUpgrade :: Maybe (Val Bool) - , _docDBDBInstanceAvailabilityZone :: Maybe (Val Text) - , _docDBDBInstanceDBClusterIdentifier :: Val Text - , _docDBDBInstanceDBInstanceClass :: Val Text - , _docDBDBInstanceDBInstanceIdentifier :: Maybe (Val Text) - , _docDBDBInstancePreferredMaintenanceWindow :: Maybe (Val Text) - , _docDBDBInstanceTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties DocDBDBInstance where - toResourceProperties DocDBDBInstance{..} = - ResourceProperties - { resourcePropertiesType = "AWS::DocDB::DBInstance" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AutoMinorVersionUpgrade",) . toJSON) _docDBDBInstanceAutoMinorVersionUpgrade - , fmap (("AvailabilityZone",) . toJSON) _docDBDBInstanceAvailabilityZone - , (Just . ("DBClusterIdentifier",) . toJSON) _docDBDBInstanceDBClusterIdentifier - , (Just . ("DBInstanceClass",) . toJSON) _docDBDBInstanceDBInstanceClass - , fmap (("DBInstanceIdentifier",) . toJSON) _docDBDBInstanceDBInstanceIdentifier - , fmap (("PreferredMaintenanceWindow",) . toJSON) _docDBDBInstancePreferredMaintenanceWindow - , fmap (("Tags",) . toJSON) _docDBDBInstanceTags - ] - } - --- | Constructor for 'DocDBDBInstance' containing required fields as --- arguments. -docDBDBInstance - :: Val Text -- ^ 'ddbdbiDBClusterIdentifier' - -> Val Text -- ^ 'ddbdbiDBInstanceClass' - -> DocDBDBInstance -docDBDBInstance dBClusterIdentifierarg dBInstanceClassarg = - DocDBDBInstance - { _docDBDBInstanceAutoMinorVersionUpgrade = Nothing - , _docDBDBInstanceAvailabilityZone = Nothing - , _docDBDBInstanceDBClusterIdentifier = dBClusterIdentifierarg - , _docDBDBInstanceDBInstanceClass = dBInstanceClassarg - , _docDBDBInstanceDBInstanceIdentifier = Nothing - , _docDBDBInstancePreferredMaintenanceWindow = Nothing - , _docDBDBInstanceTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbinstance.html#cfn-docdb-dbinstance-autominorversionupgrade -ddbdbiAutoMinorVersionUpgrade :: Lens' DocDBDBInstance (Maybe (Val Bool)) -ddbdbiAutoMinorVersionUpgrade = lens _docDBDBInstanceAutoMinorVersionUpgrade (\s a -> s { _docDBDBInstanceAutoMinorVersionUpgrade = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbinstance.html#cfn-docdb-dbinstance-availabilityzone -ddbdbiAvailabilityZone :: Lens' DocDBDBInstance (Maybe (Val Text)) -ddbdbiAvailabilityZone = lens _docDBDBInstanceAvailabilityZone (\s a -> s { _docDBDBInstanceAvailabilityZone = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbinstance.html#cfn-docdb-dbinstance-dbclusteridentifier -ddbdbiDBClusterIdentifier :: Lens' DocDBDBInstance (Val Text) -ddbdbiDBClusterIdentifier = lens _docDBDBInstanceDBClusterIdentifier (\s a -> s { _docDBDBInstanceDBClusterIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbinstance.html#cfn-docdb-dbinstance-dbinstanceclass -ddbdbiDBInstanceClass :: Lens' DocDBDBInstance (Val Text) -ddbdbiDBInstanceClass = lens _docDBDBInstanceDBInstanceClass (\s a -> s { _docDBDBInstanceDBInstanceClass = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbinstance.html#cfn-docdb-dbinstance-dbinstanceidentifier -ddbdbiDBInstanceIdentifier :: Lens' DocDBDBInstance (Maybe (Val Text)) -ddbdbiDBInstanceIdentifier = lens _docDBDBInstanceDBInstanceIdentifier (\s a -> s { _docDBDBInstanceDBInstanceIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbinstance.html#cfn-docdb-dbinstance-preferredmaintenancewindow -ddbdbiPreferredMaintenanceWindow :: Lens' DocDBDBInstance (Maybe (Val Text)) -ddbdbiPreferredMaintenanceWindow = lens _docDBDBInstancePreferredMaintenanceWindow (\s a -> s { _docDBDBInstancePreferredMaintenanceWindow = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbinstance.html#cfn-docdb-dbinstance-tags -ddbdbiTags :: Lens' DocDBDBInstance (Maybe [Tag]) -ddbdbiTags = lens _docDBDBInstanceTags (\s a -> s { _docDBDBInstanceTags = a }) diff --git a/library-gen/Stratosphere/Resources/DocDBDBSubnetGroup.hs b/library-gen/Stratosphere/Resources/DocDBDBSubnetGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/DocDBDBSubnetGroup.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbsubnetgroup.html - -module Stratosphere.Resources.DocDBDBSubnetGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for DocDBDBSubnetGroup. See --- 'docDBDBSubnetGroup' for a more convenient constructor. -data DocDBDBSubnetGroup = - DocDBDBSubnetGroup - { _docDBDBSubnetGroupDBSubnetGroupDescription :: Val Text - , _docDBDBSubnetGroupDBSubnetGroupName :: Maybe (Val Text) - , _docDBDBSubnetGroupSubnetIds :: ValList Text - , _docDBDBSubnetGroupTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties DocDBDBSubnetGroup where - toResourceProperties DocDBDBSubnetGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::DocDB::DBSubnetGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("DBSubnetGroupDescription",) . toJSON) _docDBDBSubnetGroupDBSubnetGroupDescription - , fmap (("DBSubnetGroupName",) . toJSON) _docDBDBSubnetGroupDBSubnetGroupName - , (Just . ("SubnetIds",) . toJSON) _docDBDBSubnetGroupSubnetIds - , fmap (("Tags",) . toJSON) _docDBDBSubnetGroupTags - ] - } - --- | Constructor for 'DocDBDBSubnetGroup' containing required fields as --- arguments. -docDBDBSubnetGroup - :: Val Text -- ^ 'ddbdbsgDBSubnetGroupDescription' - -> ValList Text -- ^ 'ddbdbsgSubnetIds' - -> DocDBDBSubnetGroup -docDBDBSubnetGroup dBSubnetGroupDescriptionarg subnetIdsarg = - DocDBDBSubnetGroup - { _docDBDBSubnetGroupDBSubnetGroupDescription = dBSubnetGroupDescriptionarg - , _docDBDBSubnetGroupDBSubnetGroupName = Nothing - , _docDBDBSubnetGroupSubnetIds = subnetIdsarg - , _docDBDBSubnetGroupTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbsubnetgroup.html#cfn-docdb-dbsubnetgroup-dbsubnetgroupdescription -ddbdbsgDBSubnetGroupDescription :: Lens' DocDBDBSubnetGroup (Val Text) -ddbdbsgDBSubnetGroupDescription = lens _docDBDBSubnetGroupDBSubnetGroupDescription (\s a -> s { _docDBDBSubnetGroupDBSubnetGroupDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbsubnetgroup.html#cfn-docdb-dbsubnetgroup-dbsubnetgroupname -ddbdbsgDBSubnetGroupName :: Lens' DocDBDBSubnetGroup (Maybe (Val Text)) -ddbdbsgDBSubnetGroupName = lens _docDBDBSubnetGroupDBSubnetGroupName (\s a -> s { _docDBDBSubnetGroupDBSubnetGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbsubnetgroup.html#cfn-docdb-dbsubnetgroup-subnetids -ddbdbsgSubnetIds :: Lens' DocDBDBSubnetGroup (ValList Text) -ddbdbsgSubnetIds = lens _docDBDBSubnetGroupSubnetIds (\s a -> s { _docDBDBSubnetGroupSubnetIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdb-dbsubnetgroup.html#cfn-docdb-dbsubnetgroup-tags -ddbdbsgTags :: Lens' DocDBDBSubnetGroup (Maybe [Tag]) -ddbdbsgTags = lens _docDBDBSubnetGroupTags (\s a -> s { _docDBDBSubnetGroupTags = a }) diff --git a/library-gen/Stratosphere/Resources/DynamoDBTable.hs b/library-gen/Stratosphere/Resources/DynamoDBTable.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/DynamoDBTable.hs +++ /dev/null @@ -1,127 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dynamodb-table.html - -module Stratosphere.Resources.DynamoDBTable where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.DynamoDBTableAttributeDefinition -import Stratosphere.ResourceProperties.DynamoDBTableGlobalSecondaryIndex -import Stratosphere.ResourceProperties.DynamoDBTableKeySchema -import Stratosphere.ResourceProperties.DynamoDBTableLocalSecondaryIndex -import Stratosphere.ResourceProperties.DynamoDBTablePointInTimeRecoverySpecification -import Stratosphere.ResourceProperties.DynamoDBTableProvisionedThroughput -import Stratosphere.ResourceProperties.DynamoDBTableSSESpecification -import Stratosphere.ResourceProperties.DynamoDBTableStreamSpecification -import Stratosphere.ResourceProperties.Tag -import Stratosphere.ResourceProperties.DynamoDBTableTimeToLiveSpecification - --- | Full data type definition for DynamoDBTable. See 'dynamoDBTable' for a --- more convenient constructor. -data DynamoDBTable = - DynamoDBTable - { _dynamoDBTableAttributeDefinitions :: Maybe [DynamoDBTableAttributeDefinition] - , _dynamoDBTableBillingMode :: Maybe (Val Text) - , _dynamoDBTableGlobalSecondaryIndexes :: Maybe [DynamoDBTableGlobalSecondaryIndex] - , _dynamoDBTableKeySchema :: [DynamoDBTableKeySchema] - , _dynamoDBTableLocalSecondaryIndexes :: Maybe [DynamoDBTableLocalSecondaryIndex] - , _dynamoDBTablePointInTimeRecoverySpecification :: Maybe DynamoDBTablePointInTimeRecoverySpecification - , _dynamoDBTableProvisionedThroughput :: Maybe DynamoDBTableProvisionedThroughput - , _dynamoDBTableSSESpecification :: Maybe DynamoDBTableSSESpecification - , _dynamoDBTableStreamSpecification :: Maybe DynamoDBTableStreamSpecification - , _dynamoDBTableTableName :: Maybe (Val Text) - , _dynamoDBTableTags :: Maybe [Tag] - , _dynamoDBTableTimeToLiveSpecification :: Maybe DynamoDBTableTimeToLiveSpecification - } deriving (Show, Eq) - -instance ToResourceProperties DynamoDBTable where - toResourceProperties DynamoDBTable{..} = - ResourceProperties - { resourcePropertiesType = "AWS::DynamoDB::Table" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AttributeDefinitions",) . toJSON) _dynamoDBTableAttributeDefinitions - , fmap (("BillingMode",) . toJSON) _dynamoDBTableBillingMode - , fmap (("GlobalSecondaryIndexes",) . toJSON) _dynamoDBTableGlobalSecondaryIndexes - , (Just . ("KeySchema",) . toJSON) _dynamoDBTableKeySchema - , fmap (("LocalSecondaryIndexes",) . toJSON) _dynamoDBTableLocalSecondaryIndexes - , fmap (("PointInTimeRecoverySpecification",) . toJSON) _dynamoDBTablePointInTimeRecoverySpecification - , fmap (("ProvisionedThroughput",) . toJSON) _dynamoDBTableProvisionedThroughput - , fmap (("SSESpecification",) . toJSON) _dynamoDBTableSSESpecification - , fmap (("StreamSpecification",) . toJSON) _dynamoDBTableStreamSpecification - , fmap (("TableName",) . toJSON) _dynamoDBTableTableName - , fmap (("Tags",) . toJSON) _dynamoDBTableTags - , fmap (("TimeToLiveSpecification",) . toJSON) _dynamoDBTableTimeToLiveSpecification - ] - } - --- | Constructor for 'DynamoDBTable' containing required fields as arguments. -dynamoDBTable - :: [DynamoDBTableKeySchema] -- ^ 'ddbtKeySchema' - -> DynamoDBTable -dynamoDBTable keySchemaarg = - DynamoDBTable - { _dynamoDBTableAttributeDefinitions = Nothing - , _dynamoDBTableBillingMode = Nothing - , _dynamoDBTableGlobalSecondaryIndexes = Nothing - , _dynamoDBTableKeySchema = keySchemaarg - , _dynamoDBTableLocalSecondaryIndexes = Nothing - , _dynamoDBTablePointInTimeRecoverySpecification = Nothing - , _dynamoDBTableProvisionedThroughput = Nothing - , _dynamoDBTableSSESpecification = Nothing - , _dynamoDBTableStreamSpecification = Nothing - , _dynamoDBTableTableName = Nothing - , _dynamoDBTableTags = Nothing - , _dynamoDBTableTimeToLiveSpecification = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dynamodb-table.html#cfn-dynamodb-table-attributedef -ddbtAttributeDefinitions :: Lens' DynamoDBTable (Maybe [DynamoDBTableAttributeDefinition]) -ddbtAttributeDefinitions = lens _dynamoDBTableAttributeDefinitions (\s a -> s { _dynamoDBTableAttributeDefinitions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dynamodb-table.html#cfn-dynamodb-table-billingmode -ddbtBillingMode :: Lens' DynamoDBTable (Maybe (Val Text)) -ddbtBillingMode = lens _dynamoDBTableBillingMode (\s a -> s { _dynamoDBTableBillingMode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dynamodb-table.html#cfn-dynamodb-table-gsi -ddbtGlobalSecondaryIndexes :: Lens' DynamoDBTable (Maybe [DynamoDBTableGlobalSecondaryIndex]) -ddbtGlobalSecondaryIndexes = lens _dynamoDBTableGlobalSecondaryIndexes (\s a -> s { _dynamoDBTableGlobalSecondaryIndexes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dynamodb-table.html#cfn-dynamodb-table-keyschema -ddbtKeySchema :: Lens' DynamoDBTable [DynamoDBTableKeySchema] -ddbtKeySchema = lens _dynamoDBTableKeySchema (\s a -> s { _dynamoDBTableKeySchema = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dynamodb-table.html#cfn-dynamodb-table-lsi -ddbtLocalSecondaryIndexes :: Lens' DynamoDBTable (Maybe [DynamoDBTableLocalSecondaryIndex]) -ddbtLocalSecondaryIndexes = lens _dynamoDBTableLocalSecondaryIndexes (\s a -> s { _dynamoDBTableLocalSecondaryIndexes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dynamodb-table.html#cfn-dynamodb-table-pointintimerecoveryspecification -ddbtPointInTimeRecoverySpecification :: Lens' DynamoDBTable (Maybe DynamoDBTablePointInTimeRecoverySpecification) -ddbtPointInTimeRecoverySpecification = lens _dynamoDBTablePointInTimeRecoverySpecification (\s a -> s { _dynamoDBTablePointInTimeRecoverySpecification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dynamodb-table.html#cfn-dynamodb-table-provisionedthroughput -ddbtProvisionedThroughput :: Lens' DynamoDBTable (Maybe DynamoDBTableProvisionedThroughput) -ddbtProvisionedThroughput = lens _dynamoDBTableProvisionedThroughput (\s a -> s { _dynamoDBTableProvisionedThroughput = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dynamodb-table.html#cfn-dynamodb-table-ssespecification -ddbtSSESpecification :: Lens' DynamoDBTable (Maybe DynamoDBTableSSESpecification) -ddbtSSESpecification = lens _dynamoDBTableSSESpecification (\s a -> s { _dynamoDBTableSSESpecification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dynamodb-table.html#cfn-dynamodb-table-streamspecification -ddbtStreamSpecification :: Lens' DynamoDBTable (Maybe DynamoDBTableStreamSpecification) -ddbtStreamSpecification = lens _dynamoDBTableStreamSpecification (\s a -> s { _dynamoDBTableStreamSpecification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dynamodb-table.html#cfn-dynamodb-table-tablename -ddbtTableName :: Lens' DynamoDBTable (Maybe (Val Text)) -ddbtTableName = lens _dynamoDBTableTableName (\s a -> s { _dynamoDBTableTableName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dynamodb-table.html#cfn-dynamodb-table-tags -ddbtTags :: Lens' DynamoDBTable (Maybe [Tag]) -ddbtTags = lens _dynamoDBTableTags (\s a -> s { _dynamoDBTableTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-dynamodb-table.html#cfn-dynamodb-table-timetolivespecification -ddbtTimeToLiveSpecification :: Lens' DynamoDBTable (Maybe DynamoDBTableTimeToLiveSpecification) -ddbtTimeToLiveSpecification = lens _dynamoDBTableTimeToLiveSpecification (\s a -> s { _dynamoDBTableTimeToLiveSpecification = a }) diff --git a/library-gen/Stratosphere/Resources/EC2CapacityReservation.hs b/library-gen/Stratosphere/Resources/EC2CapacityReservation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2CapacityReservation.hs +++ /dev/null @@ -1,115 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-capacityreservation.html - -module Stratosphere.Resources.EC2CapacityReservation where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2CapacityReservationTagSpecification - --- | Full data type definition for EC2CapacityReservation. See --- 'ec2CapacityReservation' for a more convenient constructor. -data EC2CapacityReservation = - EC2CapacityReservation - { _eC2CapacityReservationAvailabilityZone :: Val Text - , _eC2CapacityReservationEbsOptimized :: Maybe (Val Bool) - , _eC2CapacityReservationEndDate :: Maybe (Val Text) - , _eC2CapacityReservationEndDateType :: Maybe (Val Text) - , _eC2CapacityReservationEphemeralStorage :: Maybe (Val Bool) - , _eC2CapacityReservationInstanceCount :: Val Integer - , _eC2CapacityReservationInstanceMatchCriteria :: Maybe (Val Text) - , _eC2CapacityReservationInstancePlatform :: Val Text - , _eC2CapacityReservationInstanceType :: Val Text - , _eC2CapacityReservationTagSpecifications :: Maybe [EC2CapacityReservationTagSpecification] - , _eC2CapacityReservationTenancy :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties EC2CapacityReservation where - toResourceProperties EC2CapacityReservation{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::CapacityReservation" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("AvailabilityZone",) . toJSON) _eC2CapacityReservationAvailabilityZone - , fmap (("EbsOptimized",) . toJSON) _eC2CapacityReservationEbsOptimized - , fmap (("EndDate",) . toJSON) _eC2CapacityReservationEndDate - , fmap (("EndDateType",) . toJSON) _eC2CapacityReservationEndDateType - , fmap (("EphemeralStorage",) . toJSON) _eC2CapacityReservationEphemeralStorage - , (Just . ("InstanceCount",) . toJSON) _eC2CapacityReservationInstanceCount - , fmap (("InstanceMatchCriteria",) . toJSON) _eC2CapacityReservationInstanceMatchCriteria - , (Just . ("InstancePlatform",) . toJSON) _eC2CapacityReservationInstancePlatform - , (Just . ("InstanceType",) . toJSON) _eC2CapacityReservationInstanceType - , fmap (("TagSpecifications",) . toJSON) _eC2CapacityReservationTagSpecifications - , fmap (("Tenancy",) . toJSON) _eC2CapacityReservationTenancy - ] - } - --- | Constructor for 'EC2CapacityReservation' containing required fields as --- arguments. -ec2CapacityReservation - :: Val Text -- ^ 'eccrAvailabilityZone' - -> Val Integer -- ^ 'eccrInstanceCount' - -> Val Text -- ^ 'eccrInstancePlatform' - -> Val Text -- ^ 'eccrInstanceType' - -> EC2CapacityReservation -ec2CapacityReservation availabilityZonearg instanceCountarg instancePlatformarg instanceTypearg = - EC2CapacityReservation - { _eC2CapacityReservationAvailabilityZone = availabilityZonearg - , _eC2CapacityReservationEbsOptimized = Nothing - , _eC2CapacityReservationEndDate = Nothing - , _eC2CapacityReservationEndDateType = Nothing - , _eC2CapacityReservationEphemeralStorage = Nothing - , _eC2CapacityReservationInstanceCount = instanceCountarg - , _eC2CapacityReservationInstanceMatchCriteria = Nothing - , _eC2CapacityReservationInstancePlatform = instancePlatformarg - , _eC2CapacityReservationInstanceType = instanceTypearg - , _eC2CapacityReservationTagSpecifications = Nothing - , _eC2CapacityReservationTenancy = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-capacityreservation.html#cfn-ec2-capacityreservation-availabilityzone -eccrAvailabilityZone :: Lens' EC2CapacityReservation (Val Text) -eccrAvailabilityZone = lens _eC2CapacityReservationAvailabilityZone (\s a -> s { _eC2CapacityReservationAvailabilityZone = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-capacityreservation.html#cfn-ec2-capacityreservation-ebsoptimized -eccrEbsOptimized :: Lens' EC2CapacityReservation (Maybe (Val Bool)) -eccrEbsOptimized = lens _eC2CapacityReservationEbsOptimized (\s a -> s { _eC2CapacityReservationEbsOptimized = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-capacityreservation.html#cfn-ec2-capacityreservation-enddate -eccrEndDate :: Lens' EC2CapacityReservation (Maybe (Val Text)) -eccrEndDate = lens _eC2CapacityReservationEndDate (\s a -> s { _eC2CapacityReservationEndDate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-capacityreservation.html#cfn-ec2-capacityreservation-enddatetype -eccrEndDateType :: Lens' EC2CapacityReservation (Maybe (Val Text)) -eccrEndDateType = lens _eC2CapacityReservationEndDateType (\s a -> s { _eC2CapacityReservationEndDateType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-capacityreservation.html#cfn-ec2-capacityreservation-ephemeralstorage -eccrEphemeralStorage :: Lens' EC2CapacityReservation (Maybe (Val Bool)) -eccrEphemeralStorage = lens _eC2CapacityReservationEphemeralStorage (\s a -> s { _eC2CapacityReservationEphemeralStorage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-capacityreservation.html#cfn-ec2-capacityreservation-instancecount -eccrInstanceCount :: Lens' EC2CapacityReservation (Val Integer) -eccrInstanceCount = lens _eC2CapacityReservationInstanceCount (\s a -> s { _eC2CapacityReservationInstanceCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-capacityreservation.html#cfn-ec2-capacityreservation-instancematchcriteria -eccrInstanceMatchCriteria :: Lens' EC2CapacityReservation (Maybe (Val Text)) -eccrInstanceMatchCriteria = lens _eC2CapacityReservationInstanceMatchCriteria (\s a -> s { _eC2CapacityReservationInstanceMatchCriteria = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-capacityreservation.html#cfn-ec2-capacityreservation-instanceplatform -eccrInstancePlatform :: Lens' EC2CapacityReservation (Val Text) -eccrInstancePlatform = lens _eC2CapacityReservationInstancePlatform (\s a -> s { _eC2CapacityReservationInstancePlatform = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-capacityreservation.html#cfn-ec2-capacityreservation-instancetype -eccrInstanceType :: Lens' EC2CapacityReservation (Val Text) -eccrInstanceType = lens _eC2CapacityReservationInstanceType (\s a -> s { _eC2CapacityReservationInstanceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-capacityreservation.html#cfn-ec2-capacityreservation-tagspecifications -eccrTagSpecifications :: Lens' EC2CapacityReservation (Maybe [EC2CapacityReservationTagSpecification]) -eccrTagSpecifications = lens _eC2CapacityReservationTagSpecifications (\s a -> s { _eC2CapacityReservationTagSpecifications = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-capacityreservation.html#cfn-ec2-capacityreservation-tenancy -eccrTenancy :: Lens' EC2CapacityReservation (Maybe (Val Text)) -eccrTenancy = lens _eC2CapacityReservationTenancy (\s a -> s { _eC2CapacityReservationTenancy = a }) diff --git a/library-gen/Stratosphere/Resources/EC2CarrierGateway.hs b/library-gen/Stratosphere/Resources/EC2CarrierGateway.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2CarrierGateway.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-carriergateway.html - -module Stratosphere.Resources.EC2CarrierGateway where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2CarrierGatewayTags - --- | Full data type definition for EC2CarrierGateway. See 'ec2CarrierGateway' --- for a more convenient constructor. -data EC2CarrierGateway = - EC2CarrierGateway - { _eC2CarrierGatewayTags :: Maybe EC2CarrierGatewayTags - , _eC2CarrierGatewayVpcId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2CarrierGateway where - toResourceProperties EC2CarrierGateway{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::CarrierGateway" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Tags",) . toJSON) _eC2CarrierGatewayTags - , (Just . ("VpcId",) . toJSON) _eC2CarrierGatewayVpcId - ] - } - --- | Constructor for 'EC2CarrierGateway' containing required fields as --- arguments. -ec2CarrierGateway - :: Val Text -- ^ 'eccagVpcId' - -> EC2CarrierGateway -ec2CarrierGateway vpcIdarg = - EC2CarrierGateway - { _eC2CarrierGatewayTags = Nothing - , _eC2CarrierGatewayVpcId = vpcIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-carriergateway.html#cfn-ec2-carriergateway-tags -eccagTags :: Lens' EC2CarrierGateway (Maybe EC2CarrierGatewayTags) -eccagTags = lens _eC2CarrierGatewayTags (\s a -> s { _eC2CarrierGatewayTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-carriergateway.html#cfn-ec2-carriergateway-vpcid -eccagVpcId :: Lens' EC2CarrierGateway (Val Text) -eccagVpcId = lens _eC2CarrierGatewayVpcId (\s a -> s { _eC2CarrierGatewayVpcId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2ClientVpnAuthorizationRule.hs b/library-gen/Stratosphere/Resources/EC2ClientVpnAuthorizationRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2ClientVpnAuthorizationRule.hs +++ /dev/null @@ -1,71 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnauthorizationrule.html - -module Stratosphere.Resources.EC2ClientVpnAuthorizationRule where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2ClientVpnAuthorizationRule. See --- 'ec2ClientVpnAuthorizationRule' for a more convenient constructor. -data EC2ClientVpnAuthorizationRule = - EC2ClientVpnAuthorizationRule - { _eC2ClientVpnAuthorizationRuleAccessGroupId :: Maybe (Val Text) - , _eC2ClientVpnAuthorizationRuleAuthorizeAllGroups :: Maybe (Val Bool) - , _eC2ClientVpnAuthorizationRuleClientVpnEndpointId :: Val Text - , _eC2ClientVpnAuthorizationRuleDescription :: Maybe (Val Text) - , _eC2ClientVpnAuthorizationRuleTargetNetworkCidr :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2ClientVpnAuthorizationRule where - toResourceProperties EC2ClientVpnAuthorizationRule{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::ClientVpnAuthorizationRule" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AccessGroupId",) . toJSON) _eC2ClientVpnAuthorizationRuleAccessGroupId - , fmap (("AuthorizeAllGroups",) . toJSON) _eC2ClientVpnAuthorizationRuleAuthorizeAllGroups - , (Just . ("ClientVpnEndpointId",) . toJSON) _eC2ClientVpnAuthorizationRuleClientVpnEndpointId - , fmap (("Description",) . toJSON) _eC2ClientVpnAuthorizationRuleDescription - , (Just . ("TargetNetworkCidr",) . toJSON) _eC2ClientVpnAuthorizationRuleTargetNetworkCidr - ] - } - --- | Constructor for 'EC2ClientVpnAuthorizationRule' containing required --- fields as arguments. -ec2ClientVpnAuthorizationRule - :: Val Text -- ^ 'eccvarClientVpnEndpointId' - -> Val Text -- ^ 'eccvarTargetNetworkCidr' - -> EC2ClientVpnAuthorizationRule -ec2ClientVpnAuthorizationRule clientVpnEndpointIdarg targetNetworkCidrarg = - EC2ClientVpnAuthorizationRule - { _eC2ClientVpnAuthorizationRuleAccessGroupId = Nothing - , _eC2ClientVpnAuthorizationRuleAuthorizeAllGroups = Nothing - , _eC2ClientVpnAuthorizationRuleClientVpnEndpointId = clientVpnEndpointIdarg - , _eC2ClientVpnAuthorizationRuleDescription = Nothing - , _eC2ClientVpnAuthorizationRuleTargetNetworkCidr = targetNetworkCidrarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnauthorizationrule.html#cfn-ec2-clientvpnauthorizationrule-accessgroupid -eccvarAccessGroupId :: Lens' EC2ClientVpnAuthorizationRule (Maybe (Val Text)) -eccvarAccessGroupId = lens _eC2ClientVpnAuthorizationRuleAccessGroupId (\s a -> s { _eC2ClientVpnAuthorizationRuleAccessGroupId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnauthorizationrule.html#cfn-ec2-clientvpnauthorizationrule-authorizeallgroups -eccvarAuthorizeAllGroups :: Lens' EC2ClientVpnAuthorizationRule (Maybe (Val Bool)) -eccvarAuthorizeAllGroups = lens _eC2ClientVpnAuthorizationRuleAuthorizeAllGroups (\s a -> s { _eC2ClientVpnAuthorizationRuleAuthorizeAllGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnauthorizationrule.html#cfn-ec2-clientvpnauthorizationrule-clientvpnendpointid -eccvarClientVpnEndpointId :: Lens' EC2ClientVpnAuthorizationRule (Val Text) -eccvarClientVpnEndpointId = lens _eC2ClientVpnAuthorizationRuleClientVpnEndpointId (\s a -> s { _eC2ClientVpnAuthorizationRuleClientVpnEndpointId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnauthorizationrule.html#cfn-ec2-clientvpnauthorizationrule-description -eccvarDescription :: Lens' EC2ClientVpnAuthorizationRule (Maybe (Val Text)) -eccvarDescription = lens _eC2ClientVpnAuthorizationRuleDescription (\s a -> s { _eC2ClientVpnAuthorizationRuleDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnauthorizationrule.html#cfn-ec2-clientvpnauthorizationrule-targetnetworkcidr -eccvarTargetNetworkCidr :: Lens' EC2ClientVpnAuthorizationRule (Val Text) -eccvarTargetNetworkCidr = lens _eC2ClientVpnAuthorizationRuleTargetNetworkCidr (\s a -> s { _eC2ClientVpnAuthorizationRuleTargetNetworkCidr = a }) diff --git a/library-gen/Stratosphere/Resources/EC2ClientVpnEndpoint.hs b/library-gen/Stratosphere/Resources/EC2ClientVpnEndpoint.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2ClientVpnEndpoint.hs +++ /dev/null @@ -1,124 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html - -module Stratosphere.Resources.EC2ClientVpnEndpoint where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2ClientVpnEndpointClientAuthenticationRequest -import Stratosphere.ResourceProperties.EC2ClientVpnEndpointConnectionLogOptions -import Stratosphere.ResourceProperties.EC2ClientVpnEndpointTagSpecification - --- | Full data type definition for EC2ClientVpnEndpoint. See --- 'ec2ClientVpnEndpoint' for a more convenient constructor. -data EC2ClientVpnEndpoint = - EC2ClientVpnEndpoint - { _eC2ClientVpnEndpointAuthenticationOptions :: [EC2ClientVpnEndpointClientAuthenticationRequest] - , _eC2ClientVpnEndpointClientCidrBlock :: Val Text - , _eC2ClientVpnEndpointConnectionLogOptions :: EC2ClientVpnEndpointConnectionLogOptions - , _eC2ClientVpnEndpointDescription :: Maybe (Val Text) - , _eC2ClientVpnEndpointDnsServers :: Maybe (ValList Text) - , _eC2ClientVpnEndpointSecurityGroupIds :: Maybe (ValList Text) - , _eC2ClientVpnEndpointServerCertificateArn :: Val Text - , _eC2ClientVpnEndpointSplitTunnel :: Maybe (Val Bool) - , _eC2ClientVpnEndpointTagSpecifications :: Maybe [EC2ClientVpnEndpointTagSpecification] - , _eC2ClientVpnEndpointTransportProtocol :: Maybe (Val Text) - , _eC2ClientVpnEndpointVpcId :: Maybe (Val Text) - , _eC2ClientVpnEndpointVpnPort :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToResourceProperties EC2ClientVpnEndpoint where - toResourceProperties EC2ClientVpnEndpoint{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::ClientVpnEndpoint" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("AuthenticationOptions",) . toJSON) _eC2ClientVpnEndpointAuthenticationOptions - , (Just . ("ClientCidrBlock",) . toJSON) _eC2ClientVpnEndpointClientCidrBlock - , (Just . ("ConnectionLogOptions",) . toJSON) _eC2ClientVpnEndpointConnectionLogOptions - , fmap (("Description",) . toJSON) _eC2ClientVpnEndpointDescription - , fmap (("DnsServers",) . toJSON) _eC2ClientVpnEndpointDnsServers - , fmap (("SecurityGroupIds",) . toJSON) _eC2ClientVpnEndpointSecurityGroupIds - , (Just . ("ServerCertificateArn",) . toJSON) _eC2ClientVpnEndpointServerCertificateArn - , fmap (("SplitTunnel",) . toJSON) _eC2ClientVpnEndpointSplitTunnel - , fmap (("TagSpecifications",) . toJSON) _eC2ClientVpnEndpointTagSpecifications - , fmap (("TransportProtocol",) . toJSON) _eC2ClientVpnEndpointTransportProtocol - , fmap (("VpcId",) . toJSON) _eC2ClientVpnEndpointVpcId - , fmap (("VpnPort",) . toJSON) _eC2ClientVpnEndpointVpnPort - ] - } - --- | Constructor for 'EC2ClientVpnEndpoint' containing required fields as --- arguments. -ec2ClientVpnEndpoint - :: [EC2ClientVpnEndpointClientAuthenticationRequest] -- ^ 'eccveAuthenticationOptions' - -> Val Text -- ^ 'eccveClientCidrBlock' - -> EC2ClientVpnEndpointConnectionLogOptions -- ^ 'eccveConnectionLogOptions' - -> Val Text -- ^ 'eccveServerCertificateArn' - -> EC2ClientVpnEndpoint -ec2ClientVpnEndpoint authenticationOptionsarg clientCidrBlockarg connectionLogOptionsarg serverCertificateArnarg = - EC2ClientVpnEndpoint - { _eC2ClientVpnEndpointAuthenticationOptions = authenticationOptionsarg - , _eC2ClientVpnEndpointClientCidrBlock = clientCidrBlockarg - , _eC2ClientVpnEndpointConnectionLogOptions = connectionLogOptionsarg - , _eC2ClientVpnEndpointDescription = Nothing - , _eC2ClientVpnEndpointDnsServers = Nothing - , _eC2ClientVpnEndpointSecurityGroupIds = Nothing - , _eC2ClientVpnEndpointServerCertificateArn = serverCertificateArnarg - , _eC2ClientVpnEndpointSplitTunnel = Nothing - , _eC2ClientVpnEndpointTagSpecifications = Nothing - , _eC2ClientVpnEndpointTransportProtocol = Nothing - , _eC2ClientVpnEndpointVpcId = Nothing - , _eC2ClientVpnEndpointVpnPort = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html#cfn-ec2-clientvpnendpoint-authenticationoptions -eccveAuthenticationOptions :: Lens' EC2ClientVpnEndpoint [EC2ClientVpnEndpointClientAuthenticationRequest] -eccveAuthenticationOptions = lens _eC2ClientVpnEndpointAuthenticationOptions (\s a -> s { _eC2ClientVpnEndpointAuthenticationOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html#cfn-ec2-clientvpnendpoint-clientcidrblock -eccveClientCidrBlock :: Lens' EC2ClientVpnEndpoint (Val Text) -eccveClientCidrBlock = lens _eC2ClientVpnEndpointClientCidrBlock (\s a -> s { _eC2ClientVpnEndpointClientCidrBlock = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html#cfn-ec2-clientvpnendpoint-connectionlogoptions -eccveConnectionLogOptions :: Lens' EC2ClientVpnEndpoint EC2ClientVpnEndpointConnectionLogOptions -eccveConnectionLogOptions = lens _eC2ClientVpnEndpointConnectionLogOptions (\s a -> s { _eC2ClientVpnEndpointConnectionLogOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html#cfn-ec2-clientvpnendpoint-description -eccveDescription :: Lens' EC2ClientVpnEndpoint (Maybe (Val Text)) -eccveDescription = lens _eC2ClientVpnEndpointDescription (\s a -> s { _eC2ClientVpnEndpointDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html#cfn-ec2-clientvpnendpoint-dnsservers -eccveDnsServers :: Lens' EC2ClientVpnEndpoint (Maybe (ValList Text)) -eccveDnsServers = lens _eC2ClientVpnEndpointDnsServers (\s a -> s { _eC2ClientVpnEndpointDnsServers = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html#cfn-ec2-clientvpnendpoint-securitygroupids -eccveSecurityGroupIds :: Lens' EC2ClientVpnEndpoint (Maybe (ValList Text)) -eccveSecurityGroupIds = lens _eC2ClientVpnEndpointSecurityGroupIds (\s a -> s { _eC2ClientVpnEndpointSecurityGroupIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html#cfn-ec2-clientvpnendpoint-servercertificatearn -eccveServerCertificateArn :: Lens' EC2ClientVpnEndpoint (Val Text) -eccveServerCertificateArn = lens _eC2ClientVpnEndpointServerCertificateArn (\s a -> s { _eC2ClientVpnEndpointServerCertificateArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html#cfn-ec2-clientvpnendpoint-splittunnel -eccveSplitTunnel :: Lens' EC2ClientVpnEndpoint (Maybe (Val Bool)) -eccveSplitTunnel = lens _eC2ClientVpnEndpointSplitTunnel (\s a -> s { _eC2ClientVpnEndpointSplitTunnel = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html#cfn-ec2-clientvpnendpoint-tagspecifications -eccveTagSpecifications :: Lens' EC2ClientVpnEndpoint (Maybe [EC2ClientVpnEndpointTagSpecification]) -eccveTagSpecifications = lens _eC2ClientVpnEndpointTagSpecifications (\s a -> s { _eC2ClientVpnEndpointTagSpecifications = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html#cfn-ec2-clientvpnendpoint-transportprotocol -eccveTransportProtocol :: Lens' EC2ClientVpnEndpoint (Maybe (Val Text)) -eccveTransportProtocol = lens _eC2ClientVpnEndpointTransportProtocol (\s a -> s { _eC2ClientVpnEndpointTransportProtocol = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html#cfn-ec2-clientvpnendpoint-vpcid -eccveVpcId :: Lens' EC2ClientVpnEndpoint (Maybe (Val Text)) -eccveVpcId = lens _eC2ClientVpnEndpointVpcId (\s a -> s { _eC2ClientVpnEndpointVpcId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html#cfn-ec2-clientvpnendpoint-vpnport -eccveVpnPort :: Lens' EC2ClientVpnEndpoint (Maybe (Val Integer)) -eccveVpnPort = lens _eC2ClientVpnEndpointVpnPort (\s a -> s { _eC2ClientVpnEndpointVpnPort = a }) diff --git a/library-gen/Stratosphere/Resources/EC2ClientVpnRoute.hs b/library-gen/Stratosphere/Resources/EC2ClientVpnRoute.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2ClientVpnRoute.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnroute.html - -module Stratosphere.Resources.EC2ClientVpnRoute where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2ClientVpnRoute. See 'ec2ClientVpnRoute' --- for a more convenient constructor. -data EC2ClientVpnRoute = - EC2ClientVpnRoute - { _eC2ClientVpnRouteClientVpnEndpointId :: Val Text - , _eC2ClientVpnRouteDescription :: Maybe (Val Text) - , _eC2ClientVpnRouteDestinationCidrBlock :: Val Text - , _eC2ClientVpnRouteTargetVpcSubnetId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2ClientVpnRoute where - toResourceProperties EC2ClientVpnRoute{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::ClientVpnRoute" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ClientVpnEndpointId",) . toJSON) _eC2ClientVpnRouteClientVpnEndpointId - , fmap (("Description",) . toJSON) _eC2ClientVpnRouteDescription - , (Just . ("DestinationCidrBlock",) . toJSON) _eC2ClientVpnRouteDestinationCidrBlock - , (Just . ("TargetVpcSubnetId",) . toJSON) _eC2ClientVpnRouteTargetVpcSubnetId - ] - } - --- | Constructor for 'EC2ClientVpnRoute' containing required fields as --- arguments. -ec2ClientVpnRoute - :: Val Text -- ^ 'eccvrClientVpnEndpointId' - -> Val Text -- ^ 'eccvrDestinationCidrBlock' - -> Val Text -- ^ 'eccvrTargetVpcSubnetId' - -> EC2ClientVpnRoute -ec2ClientVpnRoute clientVpnEndpointIdarg destinationCidrBlockarg targetVpcSubnetIdarg = - EC2ClientVpnRoute - { _eC2ClientVpnRouteClientVpnEndpointId = clientVpnEndpointIdarg - , _eC2ClientVpnRouteDescription = Nothing - , _eC2ClientVpnRouteDestinationCidrBlock = destinationCidrBlockarg - , _eC2ClientVpnRouteTargetVpcSubnetId = targetVpcSubnetIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnroute.html#cfn-ec2-clientvpnroute-clientvpnendpointid -eccvrClientVpnEndpointId :: Lens' EC2ClientVpnRoute (Val Text) -eccvrClientVpnEndpointId = lens _eC2ClientVpnRouteClientVpnEndpointId (\s a -> s { _eC2ClientVpnRouteClientVpnEndpointId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnroute.html#cfn-ec2-clientvpnroute-description -eccvrDescription :: Lens' EC2ClientVpnRoute (Maybe (Val Text)) -eccvrDescription = lens _eC2ClientVpnRouteDescription (\s a -> s { _eC2ClientVpnRouteDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnroute.html#cfn-ec2-clientvpnroute-destinationcidrblock -eccvrDestinationCidrBlock :: Lens' EC2ClientVpnRoute (Val Text) -eccvrDestinationCidrBlock = lens _eC2ClientVpnRouteDestinationCidrBlock (\s a -> s { _eC2ClientVpnRouteDestinationCidrBlock = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnroute.html#cfn-ec2-clientvpnroute-targetvpcsubnetid -eccvrTargetVpcSubnetId :: Lens' EC2ClientVpnRoute (Val Text) -eccvrTargetVpcSubnetId = lens _eC2ClientVpnRouteTargetVpcSubnetId (\s a -> s { _eC2ClientVpnRouteTargetVpcSubnetId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2ClientVpnTargetNetworkAssociation.hs b/library-gen/Stratosphere/Resources/EC2ClientVpnTargetNetworkAssociation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2ClientVpnTargetNetworkAssociation.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpntargetnetworkassociation.html - -module Stratosphere.Resources.EC2ClientVpnTargetNetworkAssociation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2ClientVpnTargetNetworkAssociation. See --- 'ec2ClientVpnTargetNetworkAssociation' for a more convenient constructor. -data EC2ClientVpnTargetNetworkAssociation = - EC2ClientVpnTargetNetworkAssociation - { _eC2ClientVpnTargetNetworkAssociationClientVpnEndpointId :: Val Text - , _eC2ClientVpnTargetNetworkAssociationSubnetId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2ClientVpnTargetNetworkAssociation where - toResourceProperties EC2ClientVpnTargetNetworkAssociation{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::ClientVpnTargetNetworkAssociation" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ClientVpnEndpointId",) . toJSON) _eC2ClientVpnTargetNetworkAssociationClientVpnEndpointId - , (Just . ("SubnetId",) . toJSON) _eC2ClientVpnTargetNetworkAssociationSubnetId - ] - } - --- | Constructor for 'EC2ClientVpnTargetNetworkAssociation' containing --- required fields as arguments. -ec2ClientVpnTargetNetworkAssociation - :: Val Text -- ^ 'eccvtnaClientVpnEndpointId' - -> Val Text -- ^ 'eccvtnaSubnetId' - -> EC2ClientVpnTargetNetworkAssociation -ec2ClientVpnTargetNetworkAssociation clientVpnEndpointIdarg subnetIdarg = - EC2ClientVpnTargetNetworkAssociation - { _eC2ClientVpnTargetNetworkAssociationClientVpnEndpointId = clientVpnEndpointIdarg - , _eC2ClientVpnTargetNetworkAssociationSubnetId = subnetIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpntargetnetworkassociation.html#cfn-ec2-clientvpntargetnetworkassociation-clientvpnendpointid -eccvtnaClientVpnEndpointId :: Lens' EC2ClientVpnTargetNetworkAssociation (Val Text) -eccvtnaClientVpnEndpointId = lens _eC2ClientVpnTargetNetworkAssociationClientVpnEndpointId (\s a -> s { _eC2ClientVpnTargetNetworkAssociationClientVpnEndpointId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpntargetnetworkassociation.html#cfn-ec2-clientvpntargetnetworkassociation-subnetid -eccvtnaSubnetId :: Lens' EC2ClientVpnTargetNetworkAssociation (Val Text) -eccvtnaSubnetId = lens _eC2ClientVpnTargetNetworkAssociationSubnetId (\s a -> s { _eC2ClientVpnTargetNetworkAssociationSubnetId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2CustomerGateway.hs b/library-gen/Stratosphere/Resources/EC2CustomerGateway.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2CustomerGateway.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-customer-gateway.html - -module Stratosphere.Resources.EC2CustomerGateway where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for EC2CustomerGateway. See --- 'ec2CustomerGateway' for a more convenient constructor. -data EC2CustomerGateway = - EC2CustomerGateway - { _eC2CustomerGatewayBgpAsn :: Val Integer - , _eC2CustomerGatewayIpAddress :: Val Text - , _eC2CustomerGatewayTags :: Maybe [Tag] - , _eC2CustomerGatewayType :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2CustomerGateway where - toResourceProperties EC2CustomerGateway{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::CustomerGateway" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("BgpAsn",) . toJSON) _eC2CustomerGatewayBgpAsn - , (Just . ("IpAddress",) . toJSON) _eC2CustomerGatewayIpAddress - , fmap (("Tags",) . toJSON) _eC2CustomerGatewayTags - , (Just . ("Type",) . toJSON) _eC2CustomerGatewayType - ] - } - --- | Constructor for 'EC2CustomerGateway' containing required fields as --- arguments. -ec2CustomerGateway - :: Val Integer -- ^ 'eccugBgpAsn' - -> Val Text -- ^ 'eccugIpAddress' - -> Val Text -- ^ 'eccugType' - -> EC2CustomerGateway -ec2CustomerGateway bgpAsnarg ipAddressarg typearg = - EC2CustomerGateway - { _eC2CustomerGatewayBgpAsn = bgpAsnarg - , _eC2CustomerGatewayIpAddress = ipAddressarg - , _eC2CustomerGatewayTags = Nothing - , _eC2CustomerGatewayType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-customer-gateway.html#cfn-ec2-customergateway-bgpasn -eccugBgpAsn :: Lens' EC2CustomerGateway (Val Integer) -eccugBgpAsn = lens _eC2CustomerGatewayBgpAsn (\s a -> s { _eC2CustomerGatewayBgpAsn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-customer-gateway.html#cfn-ec2-customergateway-ipaddress -eccugIpAddress :: Lens' EC2CustomerGateway (Val Text) -eccugIpAddress = lens _eC2CustomerGatewayIpAddress (\s a -> s { _eC2CustomerGatewayIpAddress = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-customer-gateway.html#cfn-ec2-customergateway-tags -eccugTags :: Lens' EC2CustomerGateway (Maybe [Tag]) -eccugTags = lens _eC2CustomerGatewayTags (\s a -> s { _eC2CustomerGatewayTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-customer-gateway.html#cfn-ec2-customergateway-type -eccugType :: Lens' EC2CustomerGateway (Val Text) -eccugType = lens _eC2CustomerGatewayType (\s a -> s { _eC2CustomerGatewayType = a }) diff --git a/library-gen/Stratosphere/Resources/EC2DHCPOptions.hs b/library-gen/Stratosphere/Resources/EC2DHCPOptions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2DHCPOptions.hs +++ /dev/null @@ -1,75 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-dhcp-options.html - -module Stratosphere.Resources.EC2DHCPOptions where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for EC2DHCPOptions. See 'ec2DHCPOptions' for a --- more convenient constructor. -data EC2DHCPOptions = - EC2DHCPOptions - { _eC2DHCPOptionsDomainName :: Maybe (Val Text) - , _eC2DHCPOptionsDomainNameServers :: Maybe (ValList Text) - , _eC2DHCPOptionsNetbiosNameServers :: Maybe (ValList Text) - , _eC2DHCPOptionsNetbiosNodeType :: Maybe (Val Integer) - , _eC2DHCPOptionsNtpServers :: Maybe (ValList Text) - , _eC2DHCPOptionsTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties EC2DHCPOptions where - toResourceProperties EC2DHCPOptions{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::DHCPOptions" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("DomainName",) . toJSON) _eC2DHCPOptionsDomainName - , fmap (("DomainNameServers",) . toJSON) _eC2DHCPOptionsDomainNameServers - , fmap (("NetbiosNameServers",) . toJSON) _eC2DHCPOptionsNetbiosNameServers - , fmap (("NetbiosNodeType",) . toJSON) _eC2DHCPOptionsNetbiosNodeType - , fmap (("NtpServers",) . toJSON) _eC2DHCPOptionsNtpServers - , fmap (("Tags",) . toJSON) _eC2DHCPOptionsTags - ] - } - --- | Constructor for 'EC2DHCPOptions' containing required fields as arguments. -ec2DHCPOptions - :: EC2DHCPOptions -ec2DHCPOptions = - EC2DHCPOptions - { _eC2DHCPOptionsDomainName = Nothing - , _eC2DHCPOptionsDomainNameServers = Nothing - , _eC2DHCPOptionsNetbiosNameServers = Nothing - , _eC2DHCPOptionsNetbiosNodeType = Nothing - , _eC2DHCPOptionsNtpServers = Nothing - , _eC2DHCPOptionsTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-dhcp-options.html#cfn-ec2-dhcpoptions-domainname -ecdhcpoDomainName :: Lens' EC2DHCPOptions (Maybe (Val Text)) -ecdhcpoDomainName = lens _eC2DHCPOptionsDomainName (\s a -> s { _eC2DHCPOptionsDomainName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-dhcp-options.html#cfn-ec2-dhcpoptions-domainnameservers -ecdhcpoDomainNameServers :: Lens' EC2DHCPOptions (Maybe (ValList Text)) -ecdhcpoDomainNameServers = lens _eC2DHCPOptionsDomainNameServers (\s a -> s { _eC2DHCPOptionsDomainNameServers = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-dhcp-options.html#cfn-ec2-dhcpoptions-netbiosnameservers -ecdhcpoNetbiosNameServers :: Lens' EC2DHCPOptions (Maybe (ValList Text)) -ecdhcpoNetbiosNameServers = lens _eC2DHCPOptionsNetbiosNameServers (\s a -> s { _eC2DHCPOptionsNetbiosNameServers = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-dhcp-options.html#cfn-ec2-dhcpoptions-netbiosnodetype -ecdhcpoNetbiosNodeType :: Lens' EC2DHCPOptions (Maybe (Val Integer)) -ecdhcpoNetbiosNodeType = lens _eC2DHCPOptionsNetbiosNodeType (\s a -> s { _eC2DHCPOptionsNetbiosNodeType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-dhcp-options.html#cfn-ec2-dhcpoptions-ntpservers -ecdhcpoNtpServers :: Lens' EC2DHCPOptions (Maybe (ValList Text)) -ecdhcpoNtpServers = lens _eC2DHCPOptionsNtpServers (\s a -> s { _eC2DHCPOptionsNtpServers = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-dhcp-options.html#cfn-ec2-dhcpoptions-tags -ecdhcpoTags :: Lens' EC2DHCPOptions (Maybe [Tag]) -ecdhcpoTags = lens _eC2DHCPOptionsTags (\s a -> s { _eC2DHCPOptionsTags = a }) diff --git a/library-gen/Stratosphere/Resources/EC2EC2Fleet.hs b/library-gen/Stratosphere/Resources/EC2EC2Fleet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2EC2Fleet.hs +++ /dev/null @@ -1,116 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-ec2fleet.html - -module Stratosphere.Resources.EC2EC2Fleet where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2EC2FleetFleetLaunchTemplateConfigRequest -import Stratosphere.ResourceProperties.EC2EC2FleetOnDemandOptionsRequest -import Stratosphere.ResourceProperties.EC2EC2FleetSpotOptionsRequest -import Stratosphere.ResourceProperties.EC2EC2FleetTagSpecification -import Stratosphere.ResourceProperties.EC2EC2FleetTargetCapacitySpecificationRequest - --- | Full data type definition for EC2EC2Fleet. See 'ec2EC2Fleet' for a more --- convenient constructor. -data EC2EC2Fleet = - EC2EC2Fleet - { _eC2EC2FleetExcessCapacityTerminationPolicy :: Maybe (Val Text) - , _eC2EC2FleetLaunchTemplateConfigs :: [EC2EC2FleetFleetLaunchTemplateConfigRequest] - , _eC2EC2FleetOnDemandOptions :: Maybe EC2EC2FleetOnDemandOptionsRequest - , _eC2EC2FleetReplaceUnhealthyInstances :: Maybe (Val Bool) - , _eC2EC2FleetSpotOptions :: Maybe EC2EC2FleetSpotOptionsRequest - , _eC2EC2FleetTagSpecifications :: Maybe [EC2EC2FleetTagSpecification] - , _eC2EC2FleetTargetCapacitySpecification :: EC2EC2FleetTargetCapacitySpecificationRequest - , _eC2EC2FleetTerminateInstancesWithExpiration :: Maybe (Val Bool) - , _eC2EC2FleetType :: Maybe (Val Text) - , _eC2EC2FleetValidFrom :: Maybe (Val Text) - , _eC2EC2FleetValidUntil :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties EC2EC2Fleet where - toResourceProperties EC2EC2Fleet{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::EC2Fleet" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ExcessCapacityTerminationPolicy",) . toJSON) _eC2EC2FleetExcessCapacityTerminationPolicy - , (Just . ("LaunchTemplateConfigs",) . toJSON) _eC2EC2FleetLaunchTemplateConfigs - , fmap (("OnDemandOptions",) . toJSON) _eC2EC2FleetOnDemandOptions - , fmap (("ReplaceUnhealthyInstances",) . toJSON) _eC2EC2FleetReplaceUnhealthyInstances - , fmap (("SpotOptions",) . toJSON) _eC2EC2FleetSpotOptions - , fmap (("TagSpecifications",) . toJSON) _eC2EC2FleetTagSpecifications - , (Just . ("TargetCapacitySpecification",) . toJSON) _eC2EC2FleetTargetCapacitySpecification - , fmap (("TerminateInstancesWithExpiration",) . toJSON) _eC2EC2FleetTerminateInstancesWithExpiration - , fmap (("Type",) . toJSON) _eC2EC2FleetType - , fmap (("ValidFrom",) . toJSON) _eC2EC2FleetValidFrom - , fmap (("ValidUntil",) . toJSON) _eC2EC2FleetValidUntil - ] - } - --- | Constructor for 'EC2EC2Fleet' containing required fields as arguments. -ec2EC2Fleet - :: [EC2EC2FleetFleetLaunchTemplateConfigRequest] -- ^ 'ececfLaunchTemplateConfigs' - -> EC2EC2FleetTargetCapacitySpecificationRequest -- ^ 'ececfTargetCapacitySpecification' - -> EC2EC2Fleet -ec2EC2Fleet launchTemplateConfigsarg targetCapacitySpecificationarg = - EC2EC2Fleet - { _eC2EC2FleetExcessCapacityTerminationPolicy = Nothing - , _eC2EC2FleetLaunchTemplateConfigs = launchTemplateConfigsarg - , _eC2EC2FleetOnDemandOptions = Nothing - , _eC2EC2FleetReplaceUnhealthyInstances = Nothing - , _eC2EC2FleetSpotOptions = Nothing - , _eC2EC2FleetTagSpecifications = Nothing - , _eC2EC2FleetTargetCapacitySpecification = targetCapacitySpecificationarg - , _eC2EC2FleetTerminateInstancesWithExpiration = Nothing - , _eC2EC2FleetType = Nothing - , _eC2EC2FleetValidFrom = Nothing - , _eC2EC2FleetValidUntil = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-ec2fleet.html#cfn-ec2-ec2fleet-excesscapacityterminationpolicy -ececfExcessCapacityTerminationPolicy :: Lens' EC2EC2Fleet (Maybe (Val Text)) -ececfExcessCapacityTerminationPolicy = lens _eC2EC2FleetExcessCapacityTerminationPolicy (\s a -> s { _eC2EC2FleetExcessCapacityTerminationPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-ec2fleet.html#cfn-ec2-ec2fleet-launchtemplateconfigs -ececfLaunchTemplateConfigs :: Lens' EC2EC2Fleet [EC2EC2FleetFleetLaunchTemplateConfigRequest] -ececfLaunchTemplateConfigs = lens _eC2EC2FleetLaunchTemplateConfigs (\s a -> s { _eC2EC2FleetLaunchTemplateConfigs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-ec2fleet.html#cfn-ec2-ec2fleet-ondemandoptions -ececfOnDemandOptions :: Lens' EC2EC2Fleet (Maybe EC2EC2FleetOnDemandOptionsRequest) -ececfOnDemandOptions = lens _eC2EC2FleetOnDemandOptions (\s a -> s { _eC2EC2FleetOnDemandOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-ec2fleet.html#cfn-ec2-ec2fleet-replaceunhealthyinstances -ececfReplaceUnhealthyInstances :: Lens' EC2EC2Fleet (Maybe (Val Bool)) -ececfReplaceUnhealthyInstances = lens _eC2EC2FleetReplaceUnhealthyInstances (\s a -> s { _eC2EC2FleetReplaceUnhealthyInstances = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-ec2fleet.html#cfn-ec2-ec2fleet-spotoptions -ececfSpotOptions :: Lens' EC2EC2Fleet (Maybe EC2EC2FleetSpotOptionsRequest) -ececfSpotOptions = lens _eC2EC2FleetSpotOptions (\s a -> s { _eC2EC2FleetSpotOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-ec2fleet.html#cfn-ec2-ec2fleet-tagspecifications -ececfTagSpecifications :: Lens' EC2EC2Fleet (Maybe [EC2EC2FleetTagSpecification]) -ececfTagSpecifications = lens _eC2EC2FleetTagSpecifications (\s a -> s { _eC2EC2FleetTagSpecifications = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-ec2fleet.html#cfn-ec2-ec2fleet-targetcapacityspecification -ececfTargetCapacitySpecification :: Lens' EC2EC2Fleet EC2EC2FleetTargetCapacitySpecificationRequest -ececfTargetCapacitySpecification = lens _eC2EC2FleetTargetCapacitySpecification (\s a -> s { _eC2EC2FleetTargetCapacitySpecification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-ec2fleet.html#cfn-ec2-ec2fleet-terminateinstanceswithexpiration -ececfTerminateInstancesWithExpiration :: Lens' EC2EC2Fleet (Maybe (Val Bool)) -ececfTerminateInstancesWithExpiration = lens _eC2EC2FleetTerminateInstancesWithExpiration (\s a -> s { _eC2EC2FleetTerminateInstancesWithExpiration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-ec2fleet.html#cfn-ec2-ec2fleet-type -ececfType :: Lens' EC2EC2Fleet (Maybe (Val Text)) -ececfType = lens _eC2EC2FleetType (\s a -> s { _eC2EC2FleetType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-ec2fleet.html#cfn-ec2-ec2fleet-validfrom -ececfValidFrom :: Lens' EC2EC2Fleet (Maybe (Val Text)) -ececfValidFrom = lens _eC2EC2FleetValidFrom (\s a -> s { _eC2EC2FleetValidFrom = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-ec2fleet.html#cfn-ec2-ec2fleet-validuntil -ececfValidUntil :: Lens' EC2EC2Fleet (Maybe (Val Text)) -ececfValidUntil = lens _eC2EC2FleetValidUntil (\s a -> s { _eC2EC2FleetValidUntil = a }) diff --git a/library-gen/Stratosphere/Resources/EC2EIP.hs b/library-gen/Stratosphere/Resources/EC2EIP.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2EIP.hs +++ /dev/null @@ -1,61 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-eip.html - -module Stratosphere.Resources.EC2EIP where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for EC2EIP. See 'ec2EIP' for a more convenient --- constructor. -data EC2EIP = - EC2EIP - { _eC2EIPDomain :: Maybe (Val Text) - , _eC2EIPInstanceId :: Maybe (Val Text) - , _eC2EIPPublicIpv4Pool :: Maybe (Val Text) - , _eC2EIPTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties EC2EIP where - toResourceProperties EC2EIP{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::EIP" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Domain",) . toJSON) _eC2EIPDomain - , fmap (("InstanceId",) . toJSON) _eC2EIPInstanceId - , fmap (("PublicIpv4Pool",) . toJSON) _eC2EIPPublicIpv4Pool - , fmap (("Tags",) . toJSON) _eC2EIPTags - ] - } - --- | Constructor for 'EC2EIP' containing required fields as arguments. -ec2EIP - :: EC2EIP -ec2EIP = - EC2EIP - { _eC2EIPDomain = Nothing - , _eC2EIPInstanceId = Nothing - , _eC2EIPPublicIpv4Pool = Nothing - , _eC2EIPTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-eip.html#cfn-ec2-eip-domain -eceipDomain :: Lens' EC2EIP (Maybe (Val Text)) -eceipDomain = lens _eC2EIPDomain (\s a -> s { _eC2EIPDomain = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-eip.html#cfn-ec2-eip-instanceid -eceipInstanceId :: Lens' EC2EIP (Maybe (Val Text)) -eceipInstanceId = lens _eC2EIPInstanceId (\s a -> s { _eC2EIPInstanceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-eip.html#cfn-ec2-eip-publicipv4pool -eceipPublicIpv4Pool :: Lens' EC2EIP (Maybe (Val Text)) -eceipPublicIpv4Pool = lens _eC2EIPPublicIpv4Pool (\s a -> s { _eC2EIPPublicIpv4Pool = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-eip.html#cfn-ec2-eip-tags -eceipTags :: Lens' EC2EIP (Maybe [Tag]) -eceipTags = lens _eC2EIPTags (\s a -> s { _eC2EIPTags = a }) diff --git a/library-gen/Stratosphere/Resources/EC2EIPAssociation.hs b/library-gen/Stratosphere/Resources/EC2EIPAssociation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2EIPAssociation.hs +++ /dev/null @@ -1,69 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-eip-association.html - -module Stratosphere.Resources.EC2EIPAssociation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2EIPAssociation. See 'ec2EIPAssociation' --- for a more convenient constructor. -data EC2EIPAssociation = - EC2EIPAssociation - { _eC2EIPAssociationAllocationId :: Maybe (Val Text) - , _eC2EIPAssociationEIP :: Maybe (Val Text) - , _eC2EIPAssociationInstanceId :: Maybe (Val Text) - , _eC2EIPAssociationNetworkInterfaceId :: Maybe (Val Text) - , _eC2EIPAssociationPrivateIpAddress :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties EC2EIPAssociation where - toResourceProperties EC2EIPAssociation{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::EIPAssociation" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AllocationId",) . toJSON) _eC2EIPAssociationAllocationId - , fmap (("EIP",) . toJSON) _eC2EIPAssociationEIP - , fmap (("InstanceId",) . toJSON) _eC2EIPAssociationInstanceId - , fmap (("NetworkInterfaceId",) . toJSON) _eC2EIPAssociationNetworkInterfaceId - , fmap (("PrivateIpAddress",) . toJSON) _eC2EIPAssociationPrivateIpAddress - ] - } - --- | Constructor for 'EC2EIPAssociation' containing required fields as --- arguments. -ec2EIPAssociation - :: EC2EIPAssociation -ec2EIPAssociation = - EC2EIPAssociation - { _eC2EIPAssociationAllocationId = Nothing - , _eC2EIPAssociationEIP = Nothing - , _eC2EIPAssociationInstanceId = Nothing - , _eC2EIPAssociationNetworkInterfaceId = Nothing - , _eC2EIPAssociationPrivateIpAddress = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-eip-association.html#cfn-ec2-eipassociation-allocationid -eceipaAllocationId :: Lens' EC2EIPAssociation (Maybe (Val Text)) -eceipaAllocationId = lens _eC2EIPAssociationAllocationId (\s a -> s { _eC2EIPAssociationAllocationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-eip-association.html#cfn-ec2-eipassociation-eip -eceipaEIP :: Lens' EC2EIPAssociation (Maybe (Val Text)) -eceipaEIP = lens _eC2EIPAssociationEIP (\s a -> s { _eC2EIPAssociationEIP = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-eip-association.html#cfn-ec2-eipassociation-instanceid -eceipaInstanceId :: Lens' EC2EIPAssociation (Maybe (Val Text)) -eceipaInstanceId = lens _eC2EIPAssociationInstanceId (\s a -> s { _eC2EIPAssociationInstanceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-eip-association.html#cfn-ec2-eipassociation-networkinterfaceid -eceipaNetworkInterfaceId :: Lens' EC2EIPAssociation (Maybe (Val Text)) -eceipaNetworkInterfaceId = lens _eC2EIPAssociationNetworkInterfaceId (\s a -> s { _eC2EIPAssociationNetworkInterfaceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-eip-association.html#cfn-ec2-eipassociation-PrivateIpAddress -eceipaPrivateIpAddress :: Lens' EC2EIPAssociation (Maybe (Val Text)) -eceipaPrivateIpAddress = lens _eC2EIPAssociationPrivateIpAddress (\s a -> s { _eC2EIPAssociationPrivateIpAddress = a }) diff --git a/library-gen/Stratosphere/Resources/EC2EgressOnlyInternetGateway.hs b/library-gen/Stratosphere/Resources/EC2EgressOnlyInternetGateway.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2EgressOnlyInternetGateway.hs +++ /dev/null @@ -1,42 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-egressonlyinternetgateway.html - -module Stratosphere.Resources.EC2EgressOnlyInternetGateway where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2EgressOnlyInternetGateway. See --- 'ec2EgressOnlyInternetGateway' for a more convenient constructor. -data EC2EgressOnlyInternetGateway = - EC2EgressOnlyInternetGateway - { _eC2EgressOnlyInternetGatewayVpcId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2EgressOnlyInternetGateway where - toResourceProperties EC2EgressOnlyInternetGateway{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::EgressOnlyInternetGateway" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("VpcId",) . toJSON) _eC2EgressOnlyInternetGatewayVpcId - ] - } - --- | Constructor for 'EC2EgressOnlyInternetGateway' containing required fields --- as arguments. -ec2EgressOnlyInternetGateway - :: Val Text -- ^ 'eceoigVpcId' - -> EC2EgressOnlyInternetGateway -ec2EgressOnlyInternetGateway vpcIdarg = - EC2EgressOnlyInternetGateway - { _eC2EgressOnlyInternetGatewayVpcId = vpcIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-egressonlyinternetgateway.html#cfn-ec2-egressonlyinternetgateway-vpcid -eceoigVpcId :: Lens' EC2EgressOnlyInternetGateway (Val Text) -eceoigVpcId = lens _eC2EgressOnlyInternetGatewayVpcId (\s a -> s { _eC2EgressOnlyInternetGatewayVpcId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2FlowLog.hs b/library-gen/Stratosphere/Resources/EC2FlowLog.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2FlowLog.hs +++ /dev/null @@ -1,106 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-flowlog.html - -module Stratosphere.Resources.EC2FlowLog where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for EC2FlowLog. See 'ec2FlowLog' for a more --- convenient constructor. -data EC2FlowLog = - EC2FlowLog - { _eC2FlowLogDeliverLogsPermissionArn :: Maybe (Val Text) - , _eC2FlowLogLogDestination :: Maybe (Val Text) - , _eC2FlowLogLogDestinationType :: Maybe (Val Text) - , _eC2FlowLogLogFormat :: Maybe (Val Text) - , _eC2FlowLogLogGroupName :: Maybe (Val Text) - , _eC2FlowLogMaxAggregationInterval :: Maybe (Val Integer) - , _eC2FlowLogResourceId :: Val Text - , _eC2FlowLogResourceType :: Val Text - , _eC2FlowLogTags :: Maybe [Tag] - , _eC2FlowLogTrafficType :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2FlowLog where - toResourceProperties EC2FlowLog{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::FlowLog" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("DeliverLogsPermissionArn",) . toJSON) _eC2FlowLogDeliverLogsPermissionArn - , fmap (("LogDestination",) . toJSON) _eC2FlowLogLogDestination - , fmap (("LogDestinationType",) . toJSON) _eC2FlowLogLogDestinationType - , fmap (("LogFormat",) . toJSON) _eC2FlowLogLogFormat - , fmap (("LogGroupName",) . toJSON) _eC2FlowLogLogGroupName - , fmap (("MaxAggregationInterval",) . toJSON) _eC2FlowLogMaxAggregationInterval - , (Just . ("ResourceId",) . toJSON) _eC2FlowLogResourceId - , (Just . ("ResourceType",) . toJSON) _eC2FlowLogResourceType - , fmap (("Tags",) . toJSON) _eC2FlowLogTags - , (Just . ("TrafficType",) . toJSON) _eC2FlowLogTrafficType - ] - } - --- | Constructor for 'EC2FlowLog' containing required fields as arguments. -ec2FlowLog - :: Val Text -- ^ 'ecflResourceId' - -> Val Text -- ^ 'ecflResourceType' - -> Val Text -- ^ 'ecflTrafficType' - -> EC2FlowLog -ec2FlowLog resourceIdarg resourceTypearg trafficTypearg = - EC2FlowLog - { _eC2FlowLogDeliverLogsPermissionArn = Nothing - , _eC2FlowLogLogDestination = Nothing - , _eC2FlowLogLogDestinationType = Nothing - , _eC2FlowLogLogFormat = Nothing - , _eC2FlowLogLogGroupName = Nothing - , _eC2FlowLogMaxAggregationInterval = Nothing - , _eC2FlowLogResourceId = resourceIdarg - , _eC2FlowLogResourceType = resourceTypearg - , _eC2FlowLogTags = Nothing - , _eC2FlowLogTrafficType = trafficTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-flowlog.html#cfn-ec2-flowlog-deliverlogspermissionarn -ecflDeliverLogsPermissionArn :: Lens' EC2FlowLog (Maybe (Val Text)) -ecflDeliverLogsPermissionArn = lens _eC2FlowLogDeliverLogsPermissionArn (\s a -> s { _eC2FlowLogDeliverLogsPermissionArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-flowlog.html#cfn-ec2-flowlog-logdestination -ecflLogDestination :: Lens' EC2FlowLog (Maybe (Val Text)) -ecflLogDestination = lens _eC2FlowLogLogDestination (\s a -> s { _eC2FlowLogLogDestination = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-flowlog.html#cfn-ec2-flowlog-logdestinationtype -ecflLogDestinationType :: Lens' EC2FlowLog (Maybe (Val Text)) -ecflLogDestinationType = lens _eC2FlowLogLogDestinationType (\s a -> s { _eC2FlowLogLogDestinationType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-flowlog.html#cfn-ec2-flowlog-logformat -ecflLogFormat :: Lens' EC2FlowLog (Maybe (Val Text)) -ecflLogFormat = lens _eC2FlowLogLogFormat (\s a -> s { _eC2FlowLogLogFormat = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-flowlog.html#cfn-ec2-flowlog-loggroupname -ecflLogGroupName :: Lens' EC2FlowLog (Maybe (Val Text)) -ecflLogGroupName = lens _eC2FlowLogLogGroupName (\s a -> s { _eC2FlowLogLogGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-flowlog.html#cfn-ec2-flowlog-maxaggregationinterval -ecflMaxAggregationInterval :: Lens' EC2FlowLog (Maybe (Val Integer)) -ecflMaxAggregationInterval = lens _eC2FlowLogMaxAggregationInterval (\s a -> s { _eC2FlowLogMaxAggregationInterval = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-flowlog.html#cfn-ec2-flowlog-resourceid -ecflResourceId :: Lens' EC2FlowLog (Val Text) -ecflResourceId = lens _eC2FlowLogResourceId (\s a -> s { _eC2FlowLogResourceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-flowlog.html#cfn-ec2-flowlog-resourcetype -ecflResourceType :: Lens' EC2FlowLog (Val Text) -ecflResourceType = lens _eC2FlowLogResourceType (\s a -> s { _eC2FlowLogResourceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-flowlog.html#cfn-ec2-flowlog-tags -ecflTags :: Lens' EC2FlowLog (Maybe [Tag]) -ecflTags = lens _eC2FlowLogTags (\s a -> s { _eC2FlowLogTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-flowlog.html#cfn-ec2-flowlog-traffictype -ecflTrafficType :: Lens' EC2FlowLog (Val Text) -ecflTrafficType = lens _eC2FlowLogTrafficType (\s a -> s { _eC2FlowLogTrafficType = a }) diff --git a/library-gen/Stratosphere/Resources/EC2GatewayRouteTableAssociation.hs b/library-gen/Stratosphere/Resources/EC2GatewayRouteTableAssociation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2GatewayRouteTableAssociation.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-gatewayroutetableassociation.html - -module Stratosphere.Resources.EC2GatewayRouteTableAssociation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2GatewayRouteTableAssociation. See --- 'ec2GatewayRouteTableAssociation' for a more convenient constructor. -data EC2GatewayRouteTableAssociation = - EC2GatewayRouteTableAssociation - { _eC2GatewayRouteTableAssociationGatewayId :: Val Text - , _eC2GatewayRouteTableAssociationRouteTableId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2GatewayRouteTableAssociation where - toResourceProperties EC2GatewayRouteTableAssociation{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::GatewayRouteTableAssociation" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("GatewayId",) . toJSON) _eC2GatewayRouteTableAssociationGatewayId - , (Just . ("RouteTableId",) . toJSON) _eC2GatewayRouteTableAssociationRouteTableId - ] - } - --- | Constructor for 'EC2GatewayRouteTableAssociation' containing required --- fields as arguments. -ec2GatewayRouteTableAssociation - :: Val Text -- ^ 'ecgrtaGatewayId' - -> Val Text -- ^ 'ecgrtaRouteTableId' - -> EC2GatewayRouteTableAssociation -ec2GatewayRouteTableAssociation gatewayIdarg routeTableIdarg = - EC2GatewayRouteTableAssociation - { _eC2GatewayRouteTableAssociationGatewayId = gatewayIdarg - , _eC2GatewayRouteTableAssociationRouteTableId = routeTableIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-gatewayroutetableassociation.html#cfn-ec2-gatewayroutetableassociation-gatewayid -ecgrtaGatewayId :: Lens' EC2GatewayRouteTableAssociation (Val Text) -ecgrtaGatewayId = lens _eC2GatewayRouteTableAssociationGatewayId (\s a -> s { _eC2GatewayRouteTableAssociationGatewayId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-gatewayroutetableassociation.html#cfn-ec2-gatewayroutetableassociation-routetableid -ecgrtaRouteTableId :: Lens' EC2GatewayRouteTableAssociation (Val Text) -ecgrtaRouteTableId = lens _eC2GatewayRouteTableAssociationRouteTableId (\s a -> s { _eC2GatewayRouteTableAssociationRouteTableId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2Host.hs b/library-gen/Stratosphere/Resources/EC2Host.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2Host.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-host.html - -module Stratosphere.Resources.EC2Host where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2Host. See 'ec2Host' for a more --- convenient constructor. -data EC2Host = - EC2Host - { _eC2HostAutoPlacement :: Maybe (Val Text) - , _eC2HostAvailabilityZone :: Val Text - , _eC2HostHostRecovery :: Maybe (Val Text) - , _eC2HostInstanceType :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2Host where - toResourceProperties EC2Host{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::Host" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AutoPlacement",) . toJSON) _eC2HostAutoPlacement - , (Just . ("AvailabilityZone",) . toJSON) _eC2HostAvailabilityZone - , fmap (("HostRecovery",) . toJSON) _eC2HostHostRecovery - , (Just . ("InstanceType",) . toJSON) _eC2HostInstanceType - ] - } - --- | Constructor for 'EC2Host' containing required fields as arguments. -ec2Host - :: Val Text -- ^ 'echAvailabilityZone' - -> Val Text -- ^ 'echInstanceType' - -> EC2Host -ec2Host availabilityZonearg instanceTypearg = - EC2Host - { _eC2HostAutoPlacement = Nothing - , _eC2HostAvailabilityZone = availabilityZonearg - , _eC2HostHostRecovery = Nothing - , _eC2HostInstanceType = instanceTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-host.html#cfn-ec2-host-autoplacement -echAutoPlacement :: Lens' EC2Host (Maybe (Val Text)) -echAutoPlacement = lens _eC2HostAutoPlacement (\s a -> s { _eC2HostAutoPlacement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-host.html#cfn-ec2-host-availabilityzone -echAvailabilityZone :: Lens' EC2Host (Val Text) -echAvailabilityZone = lens _eC2HostAvailabilityZone (\s a -> s { _eC2HostAvailabilityZone = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-host.html#cfn-ec2-host-hostrecovery -echHostRecovery :: Lens' EC2Host (Maybe (Val Text)) -echHostRecovery = lens _eC2HostHostRecovery (\s a -> s { _eC2HostHostRecovery = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-host.html#cfn-ec2-host-instancetype -echInstanceType :: Lens' EC2Host (Val Text) -echInstanceType = lens _eC2HostInstanceType (\s a -> s { _eC2HostInstanceType = a }) diff --git a/library-gen/Stratosphere/Resources/EC2Instance.hs b/library-gen/Stratosphere/Resources/EC2Instance.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2Instance.hs +++ /dev/null @@ -1,304 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html - -module Stratosphere.Resources.EC2Instance where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2InstanceBlockDeviceMapping -import Stratosphere.ResourceProperties.EC2InstanceCpuOptions -import Stratosphere.ResourceProperties.EC2InstanceCreditSpecification -import Stratosphere.ResourceProperties.EC2InstanceElasticGpuSpecification -import Stratosphere.ResourceProperties.EC2InstanceElasticInferenceAccelerator -import Stratosphere.ResourceProperties.EC2InstanceHibernationOptions -import Stratosphere.ResourceProperties.EC2InstanceInstanceIpv6Address -import Stratosphere.ResourceProperties.EC2InstanceLaunchTemplateSpecification -import Stratosphere.ResourceProperties.EC2InstanceLicenseSpecification -import Stratosphere.ResourceProperties.EC2InstanceNetworkInterface -import Stratosphere.ResourceProperties.EC2InstanceSsmAssociation -import Stratosphere.ResourceProperties.Tag -import Stratosphere.ResourceProperties.EC2InstanceVolume - --- | Full data type definition for EC2Instance. See 'ec2Instance' for a more --- convenient constructor. -data EC2Instance = - EC2Instance - { _eC2InstanceAdditionalInfo :: Maybe (Val Text) - , _eC2InstanceAffinity :: Maybe (Val Text) - , _eC2InstanceAvailabilityZone :: Maybe (Val Text) - , _eC2InstanceBlockDeviceMappings :: Maybe [EC2InstanceBlockDeviceMapping] - , _eC2InstanceCpuOptions :: Maybe EC2InstanceCpuOptions - , _eC2InstanceCreditSpecification :: Maybe EC2InstanceCreditSpecification - , _eC2InstanceDisableApiTermination :: Maybe (Val Bool) - , _eC2InstanceEbsOptimized :: Maybe (Val Bool) - , _eC2InstanceElasticGpuSpecifications :: Maybe [EC2InstanceElasticGpuSpecification] - , _eC2InstanceElasticInferenceAccelerators :: Maybe [EC2InstanceElasticInferenceAccelerator] - , _eC2InstanceHibernationOptions :: Maybe EC2InstanceHibernationOptions - , _eC2InstanceHostId :: Maybe (Val Text) - , _eC2InstanceHostResourceGroupArn :: Maybe (Val Text) - , _eC2InstanceIamInstanceProfile :: Maybe (Val Text) - , _eC2InstanceImageId :: Maybe (Val Text) - , _eC2InstanceInstanceInitiatedShutdownBehavior :: Maybe (Val Text) - , _eC2InstanceInstanceType :: Maybe (Val Text) - , _eC2InstanceIpv6AddressCount :: Maybe (Val Integer) - , _eC2InstanceIpv6Addresses :: Maybe [EC2InstanceInstanceIpv6Address] - , _eC2InstanceKernelId :: Maybe (Val Text) - , _eC2InstanceKeyName :: Maybe (Val Text) - , _eC2InstanceLaunchTemplate :: Maybe EC2InstanceLaunchTemplateSpecification - , _eC2InstanceLicenseSpecifications :: Maybe [EC2InstanceLicenseSpecification] - , _eC2InstanceMonitoring :: Maybe (Val Bool) - , _eC2InstanceNetworkInterfaces :: Maybe [EC2InstanceNetworkInterface] - , _eC2InstancePlacementGroupName :: Maybe (Val Text) - , _eC2InstancePrivateIpAddress :: Maybe (Val Text) - , _eC2InstanceRamdiskId :: Maybe (Val Text) - , _eC2InstanceSecurityGroupIds :: Maybe (ValList Text) - , _eC2InstanceSecurityGroups :: Maybe (ValList Text) - , _eC2InstanceSourceDestCheck :: Maybe (Val Bool) - , _eC2InstanceSsmAssociations :: Maybe [EC2InstanceSsmAssociation] - , _eC2InstanceSubnetId :: Maybe (Val Text) - , _eC2InstanceTags :: Maybe [Tag] - , _eC2InstanceTenancy :: Maybe (Val Text) - , _eC2InstanceUserData :: Maybe (Val Text) - , _eC2InstanceVolumes :: Maybe [EC2InstanceVolume] - } deriving (Show, Eq) - -instance ToResourceProperties EC2Instance where - toResourceProperties EC2Instance{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::Instance" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AdditionalInfo",) . toJSON) _eC2InstanceAdditionalInfo - , fmap (("Affinity",) . toJSON) _eC2InstanceAffinity - , fmap (("AvailabilityZone",) . toJSON) _eC2InstanceAvailabilityZone - , fmap (("BlockDeviceMappings",) . toJSON) _eC2InstanceBlockDeviceMappings - , fmap (("CpuOptions",) . toJSON) _eC2InstanceCpuOptions - , fmap (("CreditSpecification",) . toJSON) _eC2InstanceCreditSpecification - , fmap (("DisableApiTermination",) . toJSON) _eC2InstanceDisableApiTermination - , fmap (("EbsOptimized",) . toJSON) _eC2InstanceEbsOptimized - , fmap (("ElasticGpuSpecifications",) . toJSON) _eC2InstanceElasticGpuSpecifications - , fmap (("ElasticInferenceAccelerators",) . toJSON) _eC2InstanceElasticInferenceAccelerators - , fmap (("HibernationOptions",) . toJSON) _eC2InstanceHibernationOptions - , fmap (("HostId",) . toJSON) _eC2InstanceHostId - , fmap (("HostResourceGroupArn",) . toJSON) _eC2InstanceHostResourceGroupArn - , fmap (("IamInstanceProfile",) . toJSON) _eC2InstanceIamInstanceProfile - , fmap (("ImageId",) . toJSON) _eC2InstanceImageId - , fmap (("InstanceInitiatedShutdownBehavior",) . toJSON) _eC2InstanceInstanceInitiatedShutdownBehavior - , fmap (("InstanceType",) . toJSON) _eC2InstanceInstanceType - , fmap (("Ipv6AddressCount",) . toJSON) _eC2InstanceIpv6AddressCount - , fmap (("Ipv6Addresses",) . toJSON) _eC2InstanceIpv6Addresses - , fmap (("KernelId",) . toJSON) _eC2InstanceKernelId - , fmap (("KeyName",) . toJSON) _eC2InstanceKeyName - , fmap (("LaunchTemplate",) . toJSON) _eC2InstanceLaunchTemplate - , fmap (("LicenseSpecifications",) . toJSON) _eC2InstanceLicenseSpecifications - , fmap (("Monitoring",) . toJSON) _eC2InstanceMonitoring - , fmap (("NetworkInterfaces",) . toJSON) _eC2InstanceNetworkInterfaces - , fmap (("PlacementGroupName",) . toJSON) _eC2InstancePlacementGroupName - , fmap (("PrivateIpAddress",) . toJSON) _eC2InstancePrivateIpAddress - , fmap (("RamdiskId",) . toJSON) _eC2InstanceRamdiskId - , fmap (("SecurityGroupIds",) . toJSON) _eC2InstanceSecurityGroupIds - , fmap (("SecurityGroups",) . toJSON) _eC2InstanceSecurityGroups - , fmap (("SourceDestCheck",) . toJSON) _eC2InstanceSourceDestCheck - , fmap (("SsmAssociations",) . toJSON) _eC2InstanceSsmAssociations - , fmap (("SubnetId",) . toJSON) _eC2InstanceSubnetId - , fmap (("Tags",) . toJSON) _eC2InstanceTags - , fmap (("Tenancy",) . toJSON) _eC2InstanceTenancy - , fmap (("UserData",) . toJSON) _eC2InstanceUserData - , fmap (("Volumes",) . toJSON) _eC2InstanceVolumes - ] - } - --- | Constructor for 'EC2Instance' containing required fields as arguments. -ec2Instance - :: EC2Instance -ec2Instance = - EC2Instance - { _eC2InstanceAdditionalInfo = Nothing - , _eC2InstanceAffinity = Nothing - , _eC2InstanceAvailabilityZone = Nothing - , _eC2InstanceBlockDeviceMappings = Nothing - , _eC2InstanceCpuOptions = Nothing - , _eC2InstanceCreditSpecification = Nothing - , _eC2InstanceDisableApiTermination = Nothing - , _eC2InstanceEbsOptimized = Nothing - , _eC2InstanceElasticGpuSpecifications = Nothing - , _eC2InstanceElasticInferenceAccelerators = Nothing - , _eC2InstanceHibernationOptions = Nothing - , _eC2InstanceHostId = Nothing - , _eC2InstanceHostResourceGroupArn = Nothing - , _eC2InstanceIamInstanceProfile = Nothing - , _eC2InstanceImageId = Nothing - , _eC2InstanceInstanceInitiatedShutdownBehavior = Nothing - , _eC2InstanceInstanceType = Nothing - , _eC2InstanceIpv6AddressCount = Nothing - , _eC2InstanceIpv6Addresses = Nothing - , _eC2InstanceKernelId = Nothing - , _eC2InstanceKeyName = Nothing - , _eC2InstanceLaunchTemplate = Nothing - , _eC2InstanceLicenseSpecifications = Nothing - , _eC2InstanceMonitoring = Nothing - , _eC2InstanceNetworkInterfaces = Nothing - , _eC2InstancePlacementGroupName = Nothing - , _eC2InstancePrivateIpAddress = Nothing - , _eC2InstanceRamdiskId = Nothing - , _eC2InstanceSecurityGroupIds = Nothing - , _eC2InstanceSecurityGroups = Nothing - , _eC2InstanceSourceDestCheck = Nothing - , _eC2InstanceSsmAssociations = Nothing - , _eC2InstanceSubnetId = Nothing - , _eC2InstanceTags = Nothing - , _eC2InstanceTenancy = Nothing - , _eC2InstanceUserData = Nothing - , _eC2InstanceVolumes = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-additionalinfo -eciAdditionalInfo :: Lens' EC2Instance (Maybe (Val Text)) -eciAdditionalInfo = lens _eC2InstanceAdditionalInfo (\s a -> s { _eC2InstanceAdditionalInfo = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-affinity -eciAffinity :: Lens' EC2Instance (Maybe (Val Text)) -eciAffinity = lens _eC2InstanceAffinity (\s a -> s { _eC2InstanceAffinity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-availabilityzone -eciAvailabilityZone :: Lens' EC2Instance (Maybe (Val Text)) -eciAvailabilityZone = lens _eC2InstanceAvailabilityZone (\s a -> s { _eC2InstanceAvailabilityZone = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-blockdevicemappings -eciBlockDeviceMappings :: Lens' EC2Instance (Maybe [EC2InstanceBlockDeviceMapping]) -eciBlockDeviceMappings = lens _eC2InstanceBlockDeviceMappings (\s a -> s { _eC2InstanceBlockDeviceMappings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-cpuoptions -eciCpuOptions :: Lens' EC2Instance (Maybe EC2InstanceCpuOptions) -eciCpuOptions = lens _eC2InstanceCpuOptions (\s a -> s { _eC2InstanceCpuOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-creditspecification -eciCreditSpecification :: Lens' EC2Instance (Maybe EC2InstanceCreditSpecification) -eciCreditSpecification = lens _eC2InstanceCreditSpecification (\s a -> s { _eC2InstanceCreditSpecification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-disableapitermination -eciDisableApiTermination :: Lens' EC2Instance (Maybe (Val Bool)) -eciDisableApiTermination = lens _eC2InstanceDisableApiTermination (\s a -> s { _eC2InstanceDisableApiTermination = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-ebsoptimized -eciEbsOptimized :: Lens' EC2Instance (Maybe (Val Bool)) -eciEbsOptimized = lens _eC2InstanceEbsOptimized (\s a -> s { _eC2InstanceEbsOptimized = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-elasticgpuspecifications -eciElasticGpuSpecifications :: Lens' EC2Instance (Maybe [EC2InstanceElasticGpuSpecification]) -eciElasticGpuSpecifications = lens _eC2InstanceElasticGpuSpecifications (\s a -> s { _eC2InstanceElasticGpuSpecifications = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-elasticinferenceaccelerators -eciElasticInferenceAccelerators :: Lens' EC2Instance (Maybe [EC2InstanceElasticInferenceAccelerator]) -eciElasticInferenceAccelerators = lens _eC2InstanceElasticInferenceAccelerators (\s a -> s { _eC2InstanceElasticInferenceAccelerators = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-hibernationoptions -eciHibernationOptions :: Lens' EC2Instance (Maybe EC2InstanceHibernationOptions) -eciHibernationOptions = lens _eC2InstanceHibernationOptions (\s a -> s { _eC2InstanceHibernationOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-hostid -eciHostId :: Lens' EC2Instance (Maybe (Val Text)) -eciHostId = lens _eC2InstanceHostId (\s a -> s { _eC2InstanceHostId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-hostresourcegrouparn -eciHostResourceGroupArn :: Lens' EC2Instance (Maybe (Val Text)) -eciHostResourceGroupArn = lens _eC2InstanceHostResourceGroupArn (\s a -> s { _eC2InstanceHostResourceGroupArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-iaminstanceprofile -eciIamInstanceProfile :: Lens' EC2Instance (Maybe (Val Text)) -eciIamInstanceProfile = lens _eC2InstanceIamInstanceProfile (\s a -> s { _eC2InstanceIamInstanceProfile = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-imageid -eciImageId :: Lens' EC2Instance (Maybe (Val Text)) -eciImageId = lens _eC2InstanceImageId (\s a -> s { _eC2InstanceImageId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-instanceinitiatedshutdownbehavior -eciInstanceInitiatedShutdownBehavior :: Lens' EC2Instance (Maybe (Val Text)) -eciInstanceInitiatedShutdownBehavior = lens _eC2InstanceInstanceInitiatedShutdownBehavior (\s a -> s { _eC2InstanceInstanceInitiatedShutdownBehavior = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-instancetype -eciInstanceType :: Lens' EC2Instance (Maybe (Val Text)) -eciInstanceType = lens _eC2InstanceInstanceType (\s a -> s { _eC2InstanceInstanceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-ipv6addresscount -eciIpv6AddressCount :: Lens' EC2Instance (Maybe (Val Integer)) -eciIpv6AddressCount = lens _eC2InstanceIpv6AddressCount (\s a -> s { _eC2InstanceIpv6AddressCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-ipv6addresses -eciIpv6Addresses :: Lens' EC2Instance (Maybe [EC2InstanceInstanceIpv6Address]) -eciIpv6Addresses = lens _eC2InstanceIpv6Addresses (\s a -> s { _eC2InstanceIpv6Addresses = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-kernelid -eciKernelId :: Lens' EC2Instance (Maybe (Val Text)) -eciKernelId = lens _eC2InstanceKernelId (\s a -> s { _eC2InstanceKernelId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-keyname -eciKeyName :: Lens' EC2Instance (Maybe (Val Text)) -eciKeyName = lens _eC2InstanceKeyName (\s a -> s { _eC2InstanceKeyName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-launchtemplate -eciLaunchTemplate :: Lens' EC2Instance (Maybe EC2InstanceLaunchTemplateSpecification) -eciLaunchTemplate = lens _eC2InstanceLaunchTemplate (\s a -> s { _eC2InstanceLaunchTemplate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-licensespecifications -eciLicenseSpecifications :: Lens' EC2Instance (Maybe [EC2InstanceLicenseSpecification]) -eciLicenseSpecifications = lens _eC2InstanceLicenseSpecifications (\s a -> s { _eC2InstanceLicenseSpecifications = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-monitoring -eciMonitoring :: Lens' EC2Instance (Maybe (Val Bool)) -eciMonitoring = lens _eC2InstanceMonitoring (\s a -> s { _eC2InstanceMonitoring = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-networkinterfaces -eciNetworkInterfaces :: Lens' EC2Instance (Maybe [EC2InstanceNetworkInterface]) -eciNetworkInterfaces = lens _eC2InstanceNetworkInterfaces (\s a -> s { _eC2InstanceNetworkInterfaces = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-placementgroupname -eciPlacementGroupName :: Lens' EC2Instance (Maybe (Val Text)) -eciPlacementGroupName = lens _eC2InstancePlacementGroupName (\s a -> s { _eC2InstancePlacementGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-privateipaddress -eciPrivateIpAddress :: Lens' EC2Instance (Maybe (Val Text)) -eciPrivateIpAddress = lens _eC2InstancePrivateIpAddress (\s a -> s { _eC2InstancePrivateIpAddress = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-ramdiskid -eciRamdiskId :: Lens' EC2Instance (Maybe (Val Text)) -eciRamdiskId = lens _eC2InstanceRamdiskId (\s a -> s { _eC2InstanceRamdiskId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-securitygroupids -eciSecurityGroupIds :: Lens' EC2Instance (Maybe (ValList Text)) -eciSecurityGroupIds = lens _eC2InstanceSecurityGroupIds (\s a -> s { _eC2InstanceSecurityGroupIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-securitygroups -eciSecurityGroups :: Lens' EC2Instance (Maybe (ValList Text)) -eciSecurityGroups = lens _eC2InstanceSecurityGroups (\s a -> s { _eC2InstanceSecurityGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-sourcedestcheck -eciSourceDestCheck :: Lens' EC2Instance (Maybe (Val Bool)) -eciSourceDestCheck = lens _eC2InstanceSourceDestCheck (\s a -> s { _eC2InstanceSourceDestCheck = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-ssmassociations -eciSsmAssociations :: Lens' EC2Instance (Maybe [EC2InstanceSsmAssociation]) -eciSsmAssociations = lens _eC2InstanceSsmAssociations (\s a -> s { _eC2InstanceSsmAssociations = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-subnetid -eciSubnetId :: Lens' EC2Instance (Maybe (Val Text)) -eciSubnetId = lens _eC2InstanceSubnetId (\s a -> s { _eC2InstanceSubnetId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-tags -eciTags :: Lens' EC2Instance (Maybe [Tag]) -eciTags = lens _eC2InstanceTags (\s a -> s { _eC2InstanceTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-tenancy -eciTenancy :: Lens' EC2Instance (Maybe (Val Text)) -eciTenancy = lens _eC2InstanceTenancy (\s a -> s { _eC2InstanceTenancy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-userdata -eciUserData :: Lens' EC2Instance (Maybe (Val Text)) -eciUserData = lens _eC2InstanceUserData (\s a -> s { _eC2InstanceUserData = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-instance.html#cfn-ec2-instance-volumes -eciVolumes :: Lens' EC2Instance (Maybe [EC2InstanceVolume]) -eciVolumes = lens _eC2InstanceVolumes (\s a -> s { _eC2InstanceVolumes = a }) diff --git a/library-gen/Stratosphere/Resources/EC2InternetGateway.hs b/library-gen/Stratosphere/Resources/EC2InternetGateway.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2InternetGateway.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-internetgateway.html - -module Stratosphere.Resources.EC2InternetGateway where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for EC2InternetGateway. See --- 'ec2InternetGateway' for a more convenient constructor. -data EC2InternetGateway = - EC2InternetGateway - { _eC2InternetGatewayTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties EC2InternetGateway where - toResourceProperties EC2InternetGateway{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::InternetGateway" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Tags",) . toJSON) _eC2InternetGatewayTags - ] - } - --- | Constructor for 'EC2InternetGateway' containing required fields as --- arguments. -ec2InternetGateway - :: EC2InternetGateway -ec2InternetGateway = - EC2InternetGateway - { _eC2InternetGatewayTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-internetgateway.html#cfn-ec2-internetgateway-tags -ecigTags :: Lens' EC2InternetGateway (Maybe [Tag]) -ecigTags = lens _eC2InternetGatewayTags (\s a -> s { _eC2InternetGatewayTags = a }) diff --git a/library-gen/Stratosphere/Resources/EC2LaunchTemplate.hs b/library-gen/Stratosphere/Resources/EC2LaunchTemplate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2LaunchTemplate.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-launchtemplate.html - -module Stratosphere.Resources.EC2LaunchTemplate where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2LaunchTemplateLaunchTemplateData - --- | Full data type definition for EC2LaunchTemplate. See 'ec2LaunchTemplate' --- for a more convenient constructor. -data EC2LaunchTemplate = - EC2LaunchTemplate - { _eC2LaunchTemplateLaunchTemplateData :: Maybe EC2LaunchTemplateLaunchTemplateData - , _eC2LaunchTemplateLaunchTemplateName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties EC2LaunchTemplate where - toResourceProperties EC2LaunchTemplate{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::LaunchTemplate" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("LaunchTemplateData",) . toJSON) _eC2LaunchTemplateLaunchTemplateData - , fmap (("LaunchTemplateName",) . toJSON) _eC2LaunchTemplateLaunchTemplateName - ] - } - --- | Constructor for 'EC2LaunchTemplate' containing required fields as --- arguments. -ec2LaunchTemplate - :: EC2LaunchTemplate -ec2LaunchTemplate = - EC2LaunchTemplate - { _eC2LaunchTemplateLaunchTemplateData = Nothing - , _eC2LaunchTemplateLaunchTemplateName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-launchtemplate.html#cfn-ec2-launchtemplate-launchtemplatedata -ecltLaunchTemplateData :: Lens' EC2LaunchTemplate (Maybe EC2LaunchTemplateLaunchTemplateData) -ecltLaunchTemplateData = lens _eC2LaunchTemplateLaunchTemplateData (\s a -> s { _eC2LaunchTemplateLaunchTemplateData = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-launchtemplate.html#cfn-ec2-launchtemplate-launchtemplatename -ecltLaunchTemplateName :: Lens' EC2LaunchTemplate (Maybe (Val Text)) -ecltLaunchTemplateName = lens _eC2LaunchTemplateLaunchTemplateName (\s a -> s { _eC2LaunchTemplateLaunchTemplateName = a }) diff --git a/library-gen/Stratosphere/Resources/EC2LocalGatewayRoute.hs b/library-gen/Stratosphere/Resources/EC2LocalGatewayRoute.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2LocalGatewayRoute.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-localgatewayroute.html - -module Stratosphere.Resources.EC2LocalGatewayRoute where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2LocalGatewayRoute. See --- 'ec2LocalGatewayRoute' for a more convenient constructor. -data EC2LocalGatewayRoute = - EC2LocalGatewayRoute - { _eC2LocalGatewayRouteDestinationCidrBlock :: Val Text - , _eC2LocalGatewayRouteLocalGatewayRouteTableId :: Val Text - , _eC2LocalGatewayRouteLocalGatewayVirtualInterfaceGroupId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2LocalGatewayRoute where - toResourceProperties EC2LocalGatewayRoute{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::LocalGatewayRoute" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("DestinationCidrBlock",) . toJSON) _eC2LocalGatewayRouteDestinationCidrBlock - , (Just . ("LocalGatewayRouteTableId",) . toJSON) _eC2LocalGatewayRouteLocalGatewayRouteTableId - , (Just . ("LocalGatewayVirtualInterfaceGroupId",) . toJSON) _eC2LocalGatewayRouteLocalGatewayVirtualInterfaceGroupId - ] - } - --- | Constructor for 'EC2LocalGatewayRoute' containing required fields as --- arguments. -ec2LocalGatewayRoute - :: Val Text -- ^ 'eclgrDestinationCidrBlock' - -> Val Text -- ^ 'eclgrLocalGatewayRouteTableId' - -> Val Text -- ^ 'eclgrLocalGatewayVirtualInterfaceGroupId' - -> EC2LocalGatewayRoute -ec2LocalGatewayRoute destinationCidrBlockarg localGatewayRouteTableIdarg localGatewayVirtualInterfaceGroupIdarg = - EC2LocalGatewayRoute - { _eC2LocalGatewayRouteDestinationCidrBlock = destinationCidrBlockarg - , _eC2LocalGatewayRouteLocalGatewayRouteTableId = localGatewayRouteTableIdarg - , _eC2LocalGatewayRouteLocalGatewayVirtualInterfaceGroupId = localGatewayVirtualInterfaceGroupIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-localgatewayroute.html#cfn-ec2-localgatewayroute-destinationcidrblock -eclgrDestinationCidrBlock :: Lens' EC2LocalGatewayRoute (Val Text) -eclgrDestinationCidrBlock = lens _eC2LocalGatewayRouteDestinationCidrBlock (\s a -> s { _eC2LocalGatewayRouteDestinationCidrBlock = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-localgatewayroute.html#cfn-ec2-localgatewayroute-localgatewayroutetableid -eclgrLocalGatewayRouteTableId :: Lens' EC2LocalGatewayRoute (Val Text) -eclgrLocalGatewayRouteTableId = lens _eC2LocalGatewayRouteLocalGatewayRouteTableId (\s a -> s { _eC2LocalGatewayRouteLocalGatewayRouteTableId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-localgatewayroute.html#cfn-ec2-localgatewayroute-localgatewayvirtualinterfacegroupid -eclgrLocalGatewayVirtualInterfaceGroupId :: Lens' EC2LocalGatewayRoute (Val Text) -eclgrLocalGatewayVirtualInterfaceGroupId = lens _eC2LocalGatewayRouteLocalGatewayVirtualInterfaceGroupId (\s a -> s { _eC2LocalGatewayRouteLocalGatewayVirtualInterfaceGroupId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2LocalGatewayRouteTableVPCAssociation.hs b/library-gen/Stratosphere/Resources/EC2LocalGatewayRouteTableVPCAssociation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2LocalGatewayRouteTableVPCAssociation.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-localgatewayroutetablevpcassociation.html - -module Stratosphere.Resources.EC2LocalGatewayRouteTableVPCAssociation where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2LocalGatewayRouteTableVPCAssociationTags - --- | Full data type definition for EC2LocalGatewayRouteTableVPCAssociation. --- See 'ec2LocalGatewayRouteTableVPCAssociation' for a more convenient --- constructor. -data EC2LocalGatewayRouteTableVPCAssociation = - EC2LocalGatewayRouteTableVPCAssociation - { _eC2LocalGatewayRouteTableVPCAssociationLocalGatewayRouteTableId :: Val Text - , _eC2LocalGatewayRouteTableVPCAssociationTags :: Maybe EC2LocalGatewayRouteTableVPCAssociationTags - , _eC2LocalGatewayRouteTableVPCAssociationVpcId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2LocalGatewayRouteTableVPCAssociation where - toResourceProperties EC2LocalGatewayRouteTableVPCAssociation{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::LocalGatewayRouteTableVPCAssociation" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("LocalGatewayRouteTableId",) . toJSON) _eC2LocalGatewayRouteTableVPCAssociationLocalGatewayRouteTableId - , fmap (("Tags",) . toJSON) _eC2LocalGatewayRouteTableVPCAssociationTags - , (Just . ("VpcId",) . toJSON) _eC2LocalGatewayRouteTableVPCAssociationVpcId - ] - } - --- | Constructor for 'EC2LocalGatewayRouteTableVPCAssociation' containing --- required fields as arguments. -ec2LocalGatewayRouteTableVPCAssociation - :: Val Text -- ^ 'eclgrtvpcaLocalGatewayRouteTableId' - -> Val Text -- ^ 'eclgrtvpcaVpcId' - -> EC2LocalGatewayRouteTableVPCAssociation -ec2LocalGatewayRouteTableVPCAssociation localGatewayRouteTableIdarg vpcIdarg = - EC2LocalGatewayRouteTableVPCAssociation - { _eC2LocalGatewayRouteTableVPCAssociationLocalGatewayRouteTableId = localGatewayRouteTableIdarg - , _eC2LocalGatewayRouteTableVPCAssociationTags = Nothing - , _eC2LocalGatewayRouteTableVPCAssociationVpcId = vpcIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-localgatewayroutetablevpcassociation.html#cfn-ec2-localgatewayroutetablevpcassociation-localgatewayroutetableid -eclgrtvpcaLocalGatewayRouteTableId :: Lens' EC2LocalGatewayRouteTableVPCAssociation (Val Text) -eclgrtvpcaLocalGatewayRouteTableId = lens _eC2LocalGatewayRouteTableVPCAssociationLocalGatewayRouteTableId (\s a -> s { _eC2LocalGatewayRouteTableVPCAssociationLocalGatewayRouteTableId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-localgatewayroutetablevpcassociation.html#cfn-ec2-localgatewayroutetablevpcassociation-tags -eclgrtvpcaTags :: Lens' EC2LocalGatewayRouteTableVPCAssociation (Maybe EC2LocalGatewayRouteTableVPCAssociationTags) -eclgrtvpcaTags = lens _eC2LocalGatewayRouteTableVPCAssociationTags (\s a -> s { _eC2LocalGatewayRouteTableVPCAssociationTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-localgatewayroutetablevpcassociation.html#cfn-ec2-localgatewayroutetablevpcassociation-vpcid -eclgrtvpcaVpcId :: Lens' EC2LocalGatewayRouteTableVPCAssociation (Val Text) -eclgrtvpcaVpcId = lens _eC2LocalGatewayRouteTableVPCAssociationVpcId (\s a -> s { _eC2LocalGatewayRouteTableVPCAssociationVpcId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2NatGateway.hs b/library-gen/Stratosphere/Resources/EC2NatGateway.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2NatGateway.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-natgateway.html - -module Stratosphere.Resources.EC2NatGateway where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for EC2NatGateway. See 'ec2NatGateway' for a --- more convenient constructor. -data EC2NatGateway = - EC2NatGateway - { _eC2NatGatewayAllocationId :: Val Text - , _eC2NatGatewaySubnetId :: Val Text - , _eC2NatGatewayTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties EC2NatGateway where - toResourceProperties EC2NatGateway{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::NatGateway" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("AllocationId",) . toJSON) _eC2NatGatewayAllocationId - , (Just . ("SubnetId",) . toJSON) _eC2NatGatewaySubnetId - , fmap (("Tags",) . toJSON) _eC2NatGatewayTags - ] - } - --- | Constructor for 'EC2NatGateway' containing required fields as arguments. -ec2NatGateway - :: Val Text -- ^ 'ecngAllocationId' - -> Val Text -- ^ 'ecngSubnetId' - -> EC2NatGateway -ec2NatGateway allocationIdarg subnetIdarg = - EC2NatGateway - { _eC2NatGatewayAllocationId = allocationIdarg - , _eC2NatGatewaySubnetId = subnetIdarg - , _eC2NatGatewayTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-natgateway.html#cfn-ec2-natgateway-allocationid -ecngAllocationId :: Lens' EC2NatGateway (Val Text) -ecngAllocationId = lens _eC2NatGatewayAllocationId (\s a -> s { _eC2NatGatewayAllocationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-natgateway.html#cfn-ec2-natgateway-subnetid -ecngSubnetId :: Lens' EC2NatGateway (Val Text) -ecngSubnetId = lens _eC2NatGatewaySubnetId (\s a -> s { _eC2NatGatewaySubnetId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-natgateway.html#cfn-ec2-natgateway-tags -ecngTags :: Lens' EC2NatGateway (Maybe [Tag]) -ecngTags = lens _eC2NatGatewayTags (\s a -> s { _eC2NatGatewayTags = a }) diff --git a/library-gen/Stratosphere/Resources/EC2NetworkAcl.hs b/library-gen/Stratosphere/Resources/EC2NetworkAcl.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2NetworkAcl.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-acl.html - -module Stratosphere.Resources.EC2NetworkAcl where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for EC2NetworkAcl. See 'ec2NetworkAcl' for a --- more convenient constructor. -data EC2NetworkAcl = - EC2NetworkAcl - { _eC2NetworkAclTags :: Maybe [Tag] - , _eC2NetworkAclVpcId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2NetworkAcl where - toResourceProperties EC2NetworkAcl{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::NetworkAcl" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Tags",) . toJSON) _eC2NetworkAclTags - , (Just . ("VpcId",) . toJSON) _eC2NetworkAclVpcId - ] - } - --- | Constructor for 'EC2NetworkAcl' containing required fields as arguments. -ec2NetworkAcl - :: Val Text -- ^ 'ecnaVpcId' - -> EC2NetworkAcl -ec2NetworkAcl vpcIdarg = - EC2NetworkAcl - { _eC2NetworkAclTags = Nothing - , _eC2NetworkAclVpcId = vpcIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-acl.html#cfn-ec2-networkacl-tags -ecnaTags :: Lens' EC2NetworkAcl (Maybe [Tag]) -ecnaTags = lens _eC2NetworkAclTags (\s a -> s { _eC2NetworkAclTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-acl.html#cfn-ec2-networkacl-vpcid -ecnaVpcId :: Lens' EC2NetworkAcl (Val Text) -ecnaVpcId = lens _eC2NetworkAclVpcId (\s a -> s { _eC2NetworkAclVpcId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2NetworkAclEntry.hs b/library-gen/Stratosphere/Resources/EC2NetworkAclEntry.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2NetworkAclEntry.hs +++ /dev/null @@ -1,102 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-acl-entry.html - -module Stratosphere.Resources.EC2NetworkAclEntry where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2NetworkAclEntryIcmp -import Stratosphere.ResourceProperties.EC2NetworkAclEntryPortRange - --- | Full data type definition for EC2NetworkAclEntry. See --- 'ec2NetworkAclEntry' for a more convenient constructor. -data EC2NetworkAclEntry = - EC2NetworkAclEntry - { _eC2NetworkAclEntryCidrBlock :: Maybe (Val Text) - , _eC2NetworkAclEntryEgress :: Maybe (Val Bool) - , _eC2NetworkAclEntryIcmp :: Maybe EC2NetworkAclEntryIcmp - , _eC2NetworkAclEntryIpv6CidrBlock :: Maybe (Val Text) - , _eC2NetworkAclEntryNetworkAclId :: Val Text - , _eC2NetworkAclEntryPortRange :: Maybe EC2NetworkAclEntryPortRange - , _eC2NetworkAclEntryProtocol :: Val Integer - , _eC2NetworkAclEntryRuleAction :: Val Text - , _eC2NetworkAclEntryRuleNumber :: Val Integer - } deriving (Show, Eq) - -instance ToResourceProperties EC2NetworkAclEntry where - toResourceProperties EC2NetworkAclEntry{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::NetworkAclEntry" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("CidrBlock",) . toJSON) _eC2NetworkAclEntryCidrBlock - , fmap (("Egress",) . toJSON) _eC2NetworkAclEntryEgress - , fmap (("Icmp",) . toJSON) _eC2NetworkAclEntryIcmp - , fmap (("Ipv6CidrBlock",) . toJSON) _eC2NetworkAclEntryIpv6CidrBlock - , (Just . ("NetworkAclId",) . toJSON) _eC2NetworkAclEntryNetworkAclId - , fmap (("PortRange",) . toJSON) _eC2NetworkAclEntryPortRange - , (Just . ("Protocol",) . toJSON) _eC2NetworkAclEntryProtocol - , (Just . ("RuleAction",) . toJSON) _eC2NetworkAclEntryRuleAction - , (Just . ("RuleNumber",) . toJSON) _eC2NetworkAclEntryRuleNumber - ] - } - --- | Constructor for 'EC2NetworkAclEntry' containing required fields as --- arguments. -ec2NetworkAclEntry - :: Val Text -- ^ 'ecnaeNetworkAclId' - -> Val Integer -- ^ 'ecnaeProtocol' - -> Val Text -- ^ 'ecnaeRuleAction' - -> Val Integer -- ^ 'ecnaeRuleNumber' - -> EC2NetworkAclEntry -ec2NetworkAclEntry networkAclIdarg protocolarg ruleActionarg ruleNumberarg = - EC2NetworkAclEntry - { _eC2NetworkAclEntryCidrBlock = Nothing - , _eC2NetworkAclEntryEgress = Nothing - , _eC2NetworkAclEntryIcmp = Nothing - , _eC2NetworkAclEntryIpv6CidrBlock = Nothing - , _eC2NetworkAclEntryNetworkAclId = networkAclIdarg - , _eC2NetworkAclEntryPortRange = Nothing - , _eC2NetworkAclEntryProtocol = protocolarg - , _eC2NetworkAclEntryRuleAction = ruleActionarg - , _eC2NetworkAclEntryRuleNumber = ruleNumberarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-acl-entry.html#cfn-ec2-networkaclentry-cidrblock -ecnaeCidrBlock :: Lens' EC2NetworkAclEntry (Maybe (Val Text)) -ecnaeCidrBlock = lens _eC2NetworkAclEntryCidrBlock (\s a -> s { _eC2NetworkAclEntryCidrBlock = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-acl-entry.html#cfn-ec2-networkaclentry-egress -ecnaeEgress :: Lens' EC2NetworkAclEntry (Maybe (Val Bool)) -ecnaeEgress = lens _eC2NetworkAclEntryEgress (\s a -> s { _eC2NetworkAclEntryEgress = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-acl-entry.html#cfn-ec2-networkaclentry-icmp -ecnaeIcmp :: Lens' EC2NetworkAclEntry (Maybe EC2NetworkAclEntryIcmp) -ecnaeIcmp = lens _eC2NetworkAclEntryIcmp (\s a -> s { _eC2NetworkAclEntryIcmp = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-acl-entry.html#cfn-ec2-networkaclentry-ipv6cidrblock -ecnaeIpv6CidrBlock :: Lens' EC2NetworkAclEntry (Maybe (Val Text)) -ecnaeIpv6CidrBlock = lens _eC2NetworkAclEntryIpv6CidrBlock (\s a -> s { _eC2NetworkAclEntryIpv6CidrBlock = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-acl-entry.html#cfn-ec2-networkaclentry-networkaclid -ecnaeNetworkAclId :: Lens' EC2NetworkAclEntry (Val Text) -ecnaeNetworkAclId = lens _eC2NetworkAclEntryNetworkAclId (\s a -> s { _eC2NetworkAclEntryNetworkAclId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-acl-entry.html#cfn-ec2-networkaclentry-portrange -ecnaePortRange :: Lens' EC2NetworkAclEntry (Maybe EC2NetworkAclEntryPortRange) -ecnaePortRange = lens _eC2NetworkAclEntryPortRange (\s a -> s { _eC2NetworkAclEntryPortRange = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-acl-entry.html#cfn-ec2-networkaclentry-protocol -ecnaeProtocol :: Lens' EC2NetworkAclEntry (Val Integer) -ecnaeProtocol = lens _eC2NetworkAclEntryProtocol (\s a -> s { _eC2NetworkAclEntryProtocol = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-acl-entry.html#cfn-ec2-networkaclentry-ruleaction -ecnaeRuleAction :: Lens' EC2NetworkAclEntry (Val Text) -ecnaeRuleAction = lens _eC2NetworkAclEntryRuleAction (\s a -> s { _eC2NetworkAclEntryRuleAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-acl-entry.html#cfn-ec2-networkaclentry-rulenumber -ecnaeRuleNumber :: Lens' EC2NetworkAclEntry (Val Integer) -ecnaeRuleNumber = lens _eC2NetworkAclEntryRuleNumber (\s a -> s { _eC2NetworkAclEntryRuleNumber = a }) diff --git a/library-gen/Stratosphere/Resources/EC2NetworkInterface.hs b/library-gen/Stratosphere/Resources/EC2NetworkInterface.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2NetworkInterface.hs +++ /dev/null @@ -1,114 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-interface.html - -module Stratosphere.Resources.EC2NetworkInterface where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2NetworkInterfaceInstanceIpv6Address -import Stratosphere.ResourceProperties.EC2NetworkInterfacePrivateIpAddressSpecification -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for EC2NetworkInterface. See --- 'ec2NetworkInterface' for a more convenient constructor. -data EC2NetworkInterface = - EC2NetworkInterface - { _eC2NetworkInterfaceDescription :: Maybe (Val Text) - , _eC2NetworkInterfaceGroupSet :: Maybe (ValList Text) - , _eC2NetworkInterfaceInterfaceType :: Maybe (Val Text) - , _eC2NetworkInterfaceIpv6AddressCount :: Maybe (Val Integer) - , _eC2NetworkInterfaceIpv6Addresses :: Maybe EC2NetworkInterfaceInstanceIpv6Address - , _eC2NetworkInterfacePrivateIpAddress :: Maybe (Val Text) - , _eC2NetworkInterfacePrivateIpAddresses :: Maybe [EC2NetworkInterfacePrivateIpAddressSpecification] - , _eC2NetworkInterfaceSecondaryPrivateIpAddressCount :: Maybe (Val Integer) - , _eC2NetworkInterfaceSourceDestCheck :: Maybe (Val Bool) - , _eC2NetworkInterfaceSubnetId :: Val Text - , _eC2NetworkInterfaceTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties EC2NetworkInterface where - toResourceProperties EC2NetworkInterface{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::NetworkInterface" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _eC2NetworkInterfaceDescription - , fmap (("GroupSet",) . toJSON) _eC2NetworkInterfaceGroupSet - , fmap (("InterfaceType",) . toJSON) _eC2NetworkInterfaceInterfaceType - , fmap (("Ipv6AddressCount",) . toJSON) _eC2NetworkInterfaceIpv6AddressCount - , fmap (("Ipv6Addresses",) . toJSON) _eC2NetworkInterfaceIpv6Addresses - , fmap (("PrivateIpAddress",) . toJSON) _eC2NetworkInterfacePrivateIpAddress - , fmap (("PrivateIpAddresses",) . toJSON) _eC2NetworkInterfacePrivateIpAddresses - , fmap (("SecondaryPrivateIpAddressCount",) . toJSON) _eC2NetworkInterfaceSecondaryPrivateIpAddressCount - , fmap (("SourceDestCheck",) . toJSON) _eC2NetworkInterfaceSourceDestCheck - , (Just . ("SubnetId",) . toJSON) _eC2NetworkInterfaceSubnetId - , fmap (("Tags",) . toJSON) _eC2NetworkInterfaceTags - ] - } - --- | Constructor for 'EC2NetworkInterface' containing required fields as --- arguments. -ec2NetworkInterface - :: Val Text -- ^ 'ecniSubnetId' - -> EC2NetworkInterface -ec2NetworkInterface subnetIdarg = - EC2NetworkInterface - { _eC2NetworkInterfaceDescription = Nothing - , _eC2NetworkInterfaceGroupSet = Nothing - , _eC2NetworkInterfaceInterfaceType = Nothing - , _eC2NetworkInterfaceIpv6AddressCount = Nothing - , _eC2NetworkInterfaceIpv6Addresses = Nothing - , _eC2NetworkInterfacePrivateIpAddress = Nothing - , _eC2NetworkInterfacePrivateIpAddresses = Nothing - , _eC2NetworkInterfaceSecondaryPrivateIpAddressCount = Nothing - , _eC2NetworkInterfaceSourceDestCheck = Nothing - , _eC2NetworkInterfaceSubnetId = subnetIdarg - , _eC2NetworkInterfaceTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-interface.html#cfn-awsec2networkinterface-description -ecniDescription :: Lens' EC2NetworkInterface (Maybe (Val Text)) -ecniDescription = lens _eC2NetworkInterfaceDescription (\s a -> s { _eC2NetworkInterfaceDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-interface.html#cfn-awsec2networkinterface-groupset -ecniGroupSet :: Lens' EC2NetworkInterface (Maybe (ValList Text)) -ecniGroupSet = lens _eC2NetworkInterfaceGroupSet (\s a -> s { _eC2NetworkInterfaceGroupSet = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-interface.html#cfn-ec2-networkinterface-interfacetype -ecniInterfaceType :: Lens' EC2NetworkInterface (Maybe (Val Text)) -ecniInterfaceType = lens _eC2NetworkInterfaceInterfaceType (\s a -> s { _eC2NetworkInterfaceInterfaceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-interface.html#cfn-ec2-networkinterface-ipv6addresscount -ecniIpv6AddressCount :: Lens' EC2NetworkInterface (Maybe (Val Integer)) -ecniIpv6AddressCount = lens _eC2NetworkInterfaceIpv6AddressCount (\s a -> s { _eC2NetworkInterfaceIpv6AddressCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-interface.html#cfn-ec2-networkinterface-ipv6addresses -ecniIpv6Addresses :: Lens' EC2NetworkInterface (Maybe EC2NetworkInterfaceInstanceIpv6Address) -ecniIpv6Addresses = lens _eC2NetworkInterfaceIpv6Addresses (\s a -> s { _eC2NetworkInterfaceIpv6Addresses = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-interface.html#cfn-awsec2networkinterface-privateipaddress -ecniPrivateIpAddress :: Lens' EC2NetworkInterface (Maybe (Val Text)) -ecniPrivateIpAddress = lens _eC2NetworkInterfacePrivateIpAddress (\s a -> s { _eC2NetworkInterfacePrivateIpAddress = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-interface.html#cfn-awsec2networkinterface-privateipaddresses -ecniPrivateIpAddresses :: Lens' EC2NetworkInterface (Maybe [EC2NetworkInterfacePrivateIpAddressSpecification]) -ecniPrivateIpAddresses = lens _eC2NetworkInterfacePrivateIpAddresses (\s a -> s { _eC2NetworkInterfacePrivateIpAddresses = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-interface.html#cfn-awsec2networkinterface-secondaryprivateipcount -ecniSecondaryPrivateIpAddressCount :: Lens' EC2NetworkInterface (Maybe (Val Integer)) -ecniSecondaryPrivateIpAddressCount = lens _eC2NetworkInterfaceSecondaryPrivateIpAddressCount (\s a -> s { _eC2NetworkInterfaceSecondaryPrivateIpAddressCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-interface.html#cfn-awsec2networkinterface-sourcedestcheck -ecniSourceDestCheck :: Lens' EC2NetworkInterface (Maybe (Val Bool)) -ecniSourceDestCheck = lens _eC2NetworkInterfaceSourceDestCheck (\s a -> s { _eC2NetworkInterfaceSourceDestCheck = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-interface.html#cfn-awsec2networkinterface-subnetid -ecniSubnetId :: Lens' EC2NetworkInterface (Val Text) -ecniSubnetId = lens _eC2NetworkInterfaceSubnetId (\s a -> s { _eC2NetworkInterfaceSubnetId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-interface.html#cfn-awsec2networkinterface-tags -ecniTags :: Lens' EC2NetworkInterface (Maybe [Tag]) -ecniTags = lens _eC2NetworkInterfaceTags (\s a -> s { _eC2NetworkInterfaceTags = a }) diff --git a/library-gen/Stratosphere/Resources/EC2NetworkInterfaceAttachment.hs b/library-gen/Stratosphere/Resources/EC2NetworkInterfaceAttachment.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2NetworkInterfaceAttachment.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-interface-attachment.html - -module Stratosphere.Resources.EC2NetworkInterfaceAttachment where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2NetworkInterfaceAttachment. See --- 'ec2NetworkInterfaceAttachment' for a more convenient constructor. -data EC2NetworkInterfaceAttachment = - EC2NetworkInterfaceAttachment - { _eC2NetworkInterfaceAttachmentDeleteOnTermination :: Maybe (Val Bool) - , _eC2NetworkInterfaceAttachmentDeviceIndex :: Val Text - , _eC2NetworkInterfaceAttachmentInstanceId :: Val Text - , _eC2NetworkInterfaceAttachmentNetworkInterfaceId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2NetworkInterfaceAttachment where - toResourceProperties EC2NetworkInterfaceAttachment{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::NetworkInterfaceAttachment" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("DeleteOnTermination",) . toJSON) _eC2NetworkInterfaceAttachmentDeleteOnTermination - , (Just . ("DeviceIndex",) . toJSON) _eC2NetworkInterfaceAttachmentDeviceIndex - , (Just . ("InstanceId",) . toJSON) _eC2NetworkInterfaceAttachmentInstanceId - , (Just . ("NetworkInterfaceId",) . toJSON) _eC2NetworkInterfaceAttachmentNetworkInterfaceId - ] - } - --- | Constructor for 'EC2NetworkInterfaceAttachment' containing required --- fields as arguments. -ec2NetworkInterfaceAttachment - :: Val Text -- ^ 'ecniaDeviceIndex' - -> Val Text -- ^ 'ecniaInstanceId' - -> Val Text -- ^ 'ecniaNetworkInterfaceId' - -> EC2NetworkInterfaceAttachment -ec2NetworkInterfaceAttachment deviceIndexarg instanceIdarg networkInterfaceIdarg = - EC2NetworkInterfaceAttachment - { _eC2NetworkInterfaceAttachmentDeleteOnTermination = Nothing - , _eC2NetworkInterfaceAttachmentDeviceIndex = deviceIndexarg - , _eC2NetworkInterfaceAttachmentInstanceId = instanceIdarg - , _eC2NetworkInterfaceAttachmentNetworkInterfaceId = networkInterfaceIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-interface-attachment.html#cfn-ec2-network-interface-attachment-deleteonterm -ecniaDeleteOnTermination :: Lens' EC2NetworkInterfaceAttachment (Maybe (Val Bool)) -ecniaDeleteOnTermination = lens _eC2NetworkInterfaceAttachmentDeleteOnTermination (\s a -> s { _eC2NetworkInterfaceAttachmentDeleteOnTermination = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-interface-attachment.html#cfn-ec2-network-interface-attachment-deviceindex -ecniaDeviceIndex :: Lens' EC2NetworkInterfaceAttachment (Val Text) -ecniaDeviceIndex = lens _eC2NetworkInterfaceAttachmentDeviceIndex (\s a -> s { _eC2NetworkInterfaceAttachmentDeviceIndex = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-interface-attachment.html#cfn-ec2-network-interface-attachment-instanceid -ecniaInstanceId :: Lens' EC2NetworkInterfaceAttachment (Val Text) -ecniaInstanceId = lens _eC2NetworkInterfaceAttachmentInstanceId (\s a -> s { _eC2NetworkInterfaceAttachmentInstanceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-network-interface-attachment.html#cfn-ec2-network-interface-attachment-networkinterfaceid -ecniaNetworkInterfaceId :: Lens' EC2NetworkInterfaceAttachment (Val Text) -ecniaNetworkInterfaceId = lens _eC2NetworkInterfaceAttachmentNetworkInterfaceId (\s a -> s { _eC2NetworkInterfaceAttachmentNetworkInterfaceId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2NetworkInterfacePermission.hs b/library-gen/Stratosphere/Resources/EC2NetworkInterfacePermission.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2NetworkInterfacePermission.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-networkinterfacepermission.html - -module Stratosphere.Resources.EC2NetworkInterfacePermission where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2NetworkInterfacePermission. See --- 'ec2NetworkInterfacePermission' for a more convenient constructor. -data EC2NetworkInterfacePermission = - EC2NetworkInterfacePermission - { _eC2NetworkInterfacePermissionAwsAccountId :: Val Text - , _eC2NetworkInterfacePermissionNetworkInterfaceId :: Val Text - , _eC2NetworkInterfacePermissionPermission :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2NetworkInterfacePermission where - toResourceProperties EC2NetworkInterfacePermission{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::NetworkInterfacePermission" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("AwsAccountId",) . toJSON) _eC2NetworkInterfacePermissionAwsAccountId - , (Just . ("NetworkInterfaceId",) . toJSON) _eC2NetworkInterfacePermissionNetworkInterfaceId - , (Just . ("Permission",) . toJSON) _eC2NetworkInterfacePermissionPermission - ] - } - --- | Constructor for 'EC2NetworkInterfacePermission' containing required --- fields as arguments. -ec2NetworkInterfacePermission - :: Val Text -- ^ 'ecnipAwsAccountId' - -> Val Text -- ^ 'ecnipNetworkInterfaceId' - -> Val Text -- ^ 'ecnipPermission' - -> EC2NetworkInterfacePermission -ec2NetworkInterfacePermission awsAccountIdarg networkInterfaceIdarg permissionarg = - EC2NetworkInterfacePermission - { _eC2NetworkInterfacePermissionAwsAccountId = awsAccountIdarg - , _eC2NetworkInterfacePermissionNetworkInterfaceId = networkInterfaceIdarg - , _eC2NetworkInterfacePermissionPermission = permissionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-networkinterfacepermission.html#cfn-ec2-networkinterfacepermission-awsaccountid -ecnipAwsAccountId :: Lens' EC2NetworkInterfacePermission (Val Text) -ecnipAwsAccountId = lens _eC2NetworkInterfacePermissionAwsAccountId (\s a -> s { _eC2NetworkInterfacePermissionAwsAccountId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-networkinterfacepermission.html#cfn-ec2-networkinterfacepermission-networkinterfaceid -ecnipNetworkInterfaceId :: Lens' EC2NetworkInterfacePermission (Val Text) -ecnipNetworkInterfaceId = lens _eC2NetworkInterfacePermissionNetworkInterfaceId (\s a -> s { _eC2NetworkInterfacePermissionNetworkInterfaceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-networkinterfacepermission.html#cfn-ec2-networkinterfacepermission-permission -ecnipPermission :: Lens' EC2NetworkInterfacePermission (Val Text) -ecnipPermission = lens _eC2NetworkInterfacePermissionPermission (\s a -> s { _eC2NetworkInterfacePermissionPermission = a }) diff --git a/library-gen/Stratosphere/Resources/EC2PlacementGroup.hs b/library-gen/Stratosphere/Resources/EC2PlacementGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2PlacementGroup.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-placementgroup.html - -module Stratosphere.Resources.EC2PlacementGroup where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2PlacementGroup. See 'ec2PlacementGroup' --- for a more convenient constructor. -data EC2PlacementGroup = - EC2PlacementGroup - { _eC2PlacementGroupStrategy :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties EC2PlacementGroup where - toResourceProperties EC2PlacementGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::PlacementGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Strategy",) . toJSON) _eC2PlacementGroupStrategy - ] - } - --- | Constructor for 'EC2PlacementGroup' containing required fields as --- arguments. -ec2PlacementGroup - :: EC2PlacementGroup -ec2PlacementGroup = - EC2PlacementGroup - { _eC2PlacementGroupStrategy = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-placementgroup.html#cfn-ec2-placementgroup-strategy -ecpgStrategy :: Lens' EC2PlacementGroup (Maybe (Val Text)) -ecpgStrategy = lens _eC2PlacementGroupStrategy (\s a -> s { _eC2PlacementGroupStrategy = a }) diff --git a/library-gen/Stratosphere/Resources/EC2PrefixList.hs b/library-gen/Stratosphere/Resources/EC2PrefixList.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2PrefixList.hs +++ /dev/null @@ -1,72 +0,0 @@ -{-# 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 = - keyMapFromList $ 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 }) diff --git a/library-gen/Stratosphere/Resources/EC2Route.hs b/library-gen/Stratosphere/Resources/EC2Route.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2Route.hs +++ /dev/null @@ -1,104 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-route.html - -module Stratosphere.Resources.EC2Route where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2Route. See 'ec2Route' for a more --- convenient constructor. -data EC2Route = - EC2Route - { _eC2RouteDestinationCidrBlock :: Maybe (Val Text) - , _eC2RouteDestinationIpv6CidrBlock :: Maybe (Val Text) - , _eC2RouteEgressOnlyInternetGatewayId :: Maybe (Val Text) - , _eC2RouteGatewayId :: Maybe (Val Text) - , _eC2RouteInstanceId :: Maybe (Val Text) - , _eC2RouteNatGatewayId :: Maybe (Val Text) - , _eC2RouteNetworkInterfaceId :: Maybe (Val Text) - , _eC2RouteRouteTableId :: Val Text - , _eC2RouteTransitGatewayId :: Maybe (Val Text) - , _eC2RouteVpcPeeringConnectionId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties EC2Route where - toResourceProperties EC2Route{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::Route" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("DestinationCidrBlock",) . toJSON) _eC2RouteDestinationCidrBlock - , fmap (("DestinationIpv6CidrBlock",) . toJSON) _eC2RouteDestinationIpv6CidrBlock - , fmap (("EgressOnlyInternetGatewayId",) . toJSON) _eC2RouteEgressOnlyInternetGatewayId - , fmap (("GatewayId",) . toJSON) _eC2RouteGatewayId - , fmap (("InstanceId",) . toJSON) _eC2RouteInstanceId - , fmap (("NatGatewayId",) . toJSON) _eC2RouteNatGatewayId - , fmap (("NetworkInterfaceId",) . toJSON) _eC2RouteNetworkInterfaceId - , (Just . ("RouteTableId",) . toJSON) _eC2RouteRouteTableId - , fmap (("TransitGatewayId",) . toJSON) _eC2RouteTransitGatewayId - , fmap (("VpcPeeringConnectionId",) . toJSON) _eC2RouteVpcPeeringConnectionId - ] - } - --- | Constructor for 'EC2Route' containing required fields as arguments. -ec2Route - :: Val Text -- ^ 'ecrRouteTableId' - -> EC2Route -ec2Route routeTableIdarg = - EC2Route - { _eC2RouteDestinationCidrBlock = Nothing - , _eC2RouteDestinationIpv6CidrBlock = Nothing - , _eC2RouteEgressOnlyInternetGatewayId = Nothing - , _eC2RouteGatewayId = Nothing - , _eC2RouteInstanceId = Nothing - , _eC2RouteNatGatewayId = Nothing - , _eC2RouteNetworkInterfaceId = Nothing - , _eC2RouteRouteTableId = routeTableIdarg - , _eC2RouteTransitGatewayId = Nothing - , _eC2RouteVpcPeeringConnectionId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-route.html#cfn-ec2-route-destinationcidrblock -ecrDestinationCidrBlock :: Lens' EC2Route (Maybe (Val Text)) -ecrDestinationCidrBlock = lens _eC2RouteDestinationCidrBlock (\s a -> s { _eC2RouteDestinationCidrBlock = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-route.html#cfn-ec2-route-destinationipv6cidrblock -ecrDestinationIpv6CidrBlock :: Lens' EC2Route (Maybe (Val Text)) -ecrDestinationIpv6CidrBlock = lens _eC2RouteDestinationIpv6CidrBlock (\s a -> s { _eC2RouteDestinationIpv6CidrBlock = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-route.html#cfn-ec2-route-egressonlyinternetgatewayid -ecrEgressOnlyInternetGatewayId :: Lens' EC2Route (Maybe (Val Text)) -ecrEgressOnlyInternetGatewayId = lens _eC2RouteEgressOnlyInternetGatewayId (\s a -> s { _eC2RouteEgressOnlyInternetGatewayId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-route.html#cfn-ec2-route-gatewayid -ecrGatewayId :: Lens' EC2Route (Maybe (Val Text)) -ecrGatewayId = lens _eC2RouteGatewayId (\s a -> s { _eC2RouteGatewayId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-route.html#cfn-ec2-route-instanceid -ecrInstanceId :: Lens' EC2Route (Maybe (Val Text)) -ecrInstanceId = lens _eC2RouteInstanceId (\s a -> s { _eC2RouteInstanceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-route.html#cfn-ec2-route-natgatewayid -ecrNatGatewayId :: Lens' EC2Route (Maybe (Val Text)) -ecrNatGatewayId = lens _eC2RouteNatGatewayId (\s a -> s { _eC2RouteNatGatewayId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-route.html#cfn-ec2-route-networkinterfaceid -ecrNetworkInterfaceId :: Lens' EC2Route (Maybe (Val Text)) -ecrNetworkInterfaceId = lens _eC2RouteNetworkInterfaceId (\s a -> s { _eC2RouteNetworkInterfaceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-route.html#cfn-ec2-route-routetableid -ecrRouteTableId :: Lens' EC2Route (Val Text) -ecrRouteTableId = lens _eC2RouteRouteTableId (\s a -> s { _eC2RouteRouteTableId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-route.html#cfn-ec2-route-transitgatewayid -ecrTransitGatewayId :: Lens' EC2Route (Maybe (Val Text)) -ecrTransitGatewayId = lens _eC2RouteTransitGatewayId (\s a -> s { _eC2RouteTransitGatewayId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-route.html#cfn-ec2-route-vpcpeeringconnectionid -ecrVpcPeeringConnectionId :: Lens' EC2Route (Maybe (Val Text)) -ecrVpcPeeringConnectionId = lens _eC2RouteVpcPeeringConnectionId (\s a -> s { _eC2RouteVpcPeeringConnectionId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2RouteTable.hs b/library-gen/Stratosphere/Resources/EC2RouteTable.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2RouteTable.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-route-table.html - -module Stratosphere.Resources.EC2RouteTable where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for EC2RouteTable. See 'ec2RouteTable' for a --- more convenient constructor. -data EC2RouteTable = - EC2RouteTable - { _eC2RouteTableTags :: Maybe [Tag] - , _eC2RouteTableVpcId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2RouteTable where - toResourceProperties EC2RouteTable{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::RouteTable" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Tags",) . toJSON) _eC2RouteTableTags - , (Just . ("VpcId",) . toJSON) _eC2RouteTableVpcId - ] - } - --- | Constructor for 'EC2RouteTable' containing required fields as arguments. -ec2RouteTable - :: Val Text -- ^ 'ecrtVpcId' - -> EC2RouteTable -ec2RouteTable vpcIdarg = - EC2RouteTable - { _eC2RouteTableTags = Nothing - , _eC2RouteTableVpcId = vpcIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-route-table.html#cfn-ec2-routetable-tags -ecrtTags :: Lens' EC2RouteTable (Maybe [Tag]) -ecrtTags = lens _eC2RouteTableTags (\s a -> s { _eC2RouteTableTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-route-table.html#cfn-ec2-routetable-vpcid -ecrtVpcId :: Lens' EC2RouteTable (Val Text) -ecrtVpcId = lens _eC2RouteTableVpcId (\s a -> s { _eC2RouteTableVpcId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2SecurityGroup.hs b/library-gen/Stratosphere/Resources/EC2SecurityGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2SecurityGroup.hs +++ /dev/null @@ -1,79 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group.html - -module Stratosphere.Resources.EC2SecurityGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2SecurityGroupEgressProperty -import Stratosphere.ResourceProperties.EC2SecurityGroupIngressProperty -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for EC2SecurityGroup. See 'ec2SecurityGroup' --- for a more convenient constructor. -data EC2SecurityGroup = - EC2SecurityGroup - { _eC2SecurityGroupGroupDescription :: Val Text - , _eC2SecurityGroupGroupName :: Maybe (Val Text) - , _eC2SecurityGroupSecurityGroupEgress :: Maybe [EC2SecurityGroupEgressProperty] - , _eC2SecurityGroupSecurityGroupIngress :: Maybe [EC2SecurityGroupIngressProperty] - , _eC2SecurityGroupTags :: Maybe [Tag] - , _eC2SecurityGroupVpcId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties EC2SecurityGroup where - toResourceProperties EC2SecurityGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::SecurityGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("GroupDescription",) . toJSON) _eC2SecurityGroupGroupDescription - , fmap (("GroupName",) . toJSON) _eC2SecurityGroupGroupName - , fmap (("SecurityGroupEgress",) . toJSON) _eC2SecurityGroupSecurityGroupEgress - , fmap (("SecurityGroupIngress",) . toJSON) _eC2SecurityGroupSecurityGroupIngress - , fmap (("Tags",) . toJSON) _eC2SecurityGroupTags - , fmap (("VpcId",) . toJSON) _eC2SecurityGroupVpcId - ] - } - --- | Constructor for 'EC2SecurityGroup' containing required fields as --- arguments. -ec2SecurityGroup - :: Val Text -- ^ 'ecsgGroupDescription' - -> EC2SecurityGroup -ec2SecurityGroup groupDescriptionarg = - EC2SecurityGroup - { _eC2SecurityGroupGroupDescription = groupDescriptionarg - , _eC2SecurityGroupGroupName = Nothing - , _eC2SecurityGroupSecurityGroupEgress = Nothing - , _eC2SecurityGroupSecurityGroupIngress = Nothing - , _eC2SecurityGroupTags = Nothing - , _eC2SecurityGroupVpcId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group.html#cfn-ec2-securitygroup-groupdescription -ecsgGroupDescription :: Lens' EC2SecurityGroup (Val Text) -ecsgGroupDescription = lens _eC2SecurityGroupGroupDescription (\s a -> s { _eC2SecurityGroupGroupDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group.html#cfn-ec2-securitygroup-groupname -ecsgGroupName :: Lens' EC2SecurityGroup (Maybe (Val Text)) -ecsgGroupName = lens _eC2SecurityGroupGroupName (\s a -> s { _eC2SecurityGroupGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group.html#cfn-ec2-securitygroup-securitygroupegress -ecsgSecurityGroupEgress :: Lens' EC2SecurityGroup (Maybe [EC2SecurityGroupEgressProperty]) -ecsgSecurityGroupEgress = lens _eC2SecurityGroupSecurityGroupEgress (\s a -> s { _eC2SecurityGroupSecurityGroupEgress = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group.html#cfn-ec2-securitygroup-securitygroupingress -ecsgSecurityGroupIngress :: Lens' EC2SecurityGroup (Maybe [EC2SecurityGroupIngressProperty]) -ecsgSecurityGroupIngress = lens _eC2SecurityGroupSecurityGroupIngress (\s a -> s { _eC2SecurityGroupSecurityGroupIngress = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group.html#cfn-ec2-securitygroup-tags -ecsgTags :: Lens' EC2SecurityGroup (Maybe [Tag]) -ecsgTags = lens _eC2SecurityGroupTags (\s a -> s { _eC2SecurityGroupTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group.html#cfn-ec2-securitygroup-vpcid -ecsgVpcId :: Lens' EC2SecurityGroup (Maybe (Val Text)) -ecsgVpcId = lens _eC2SecurityGroupVpcId (\s a -> s { _eC2SecurityGroupVpcId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2SecurityGroupEgress.hs b/library-gen/Stratosphere/Resources/EC2SecurityGroupEgress.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2SecurityGroupEgress.hs +++ /dev/null @@ -1,99 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-security-group-egress.html - -module Stratosphere.Resources.EC2SecurityGroupEgress where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2SecurityGroupEgress. See --- 'ec2SecurityGroupEgress' for a more convenient constructor. -data EC2SecurityGroupEgress = - EC2SecurityGroupEgress - { _eC2SecurityGroupEgressCidrIp :: Maybe (Val Text) - , _eC2SecurityGroupEgressCidrIpv6 :: Maybe (Val Text) - , _eC2SecurityGroupEgressDescription :: Maybe (Val Text) - , _eC2SecurityGroupEgressDestinationPrefixListId :: Maybe (Val Text) - , _eC2SecurityGroupEgressDestinationSecurityGroupId :: Maybe (Val Text) - , _eC2SecurityGroupEgressFromPort :: Maybe (Val Integer) - , _eC2SecurityGroupEgressGroupId :: Val Text - , _eC2SecurityGroupEgressIpProtocol :: Val Text - , _eC2SecurityGroupEgressToPort :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToResourceProperties EC2SecurityGroupEgress where - toResourceProperties EC2SecurityGroupEgress{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::SecurityGroupEgress" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("CidrIp",) . toJSON) _eC2SecurityGroupEgressCidrIp - , fmap (("CidrIpv6",) . toJSON) _eC2SecurityGroupEgressCidrIpv6 - , fmap (("Description",) . toJSON) _eC2SecurityGroupEgressDescription - , fmap (("DestinationPrefixListId",) . toJSON) _eC2SecurityGroupEgressDestinationPrefixListId - , fmap (("DestinationSecurityGroupId",) . toJSON) _eC2SecurityGroupEgressDestinationSecurityGroupId - , fmap (("FromPort",) . toJSON) _eC2SecurityGroupEgressFromPort - , (Just . ("GroupId",) . toJSON) _eC2SecurityGroupEgressGroupId - , (Just . ("IpProtocol",) . toJSON) _eC2SecurityGroupEgressIpProtocol - , fmap (("ToPort",) . toJSON) _eC2SecurityGroupEgressToPort - ] - } - --- | Constructor for 'EC2SecurityGroupEgress' containing required fields as --- arguments. -ec2SecurityGroupEgress - :: Val Text -- ^ 'ecsgeGroupId' - -> Val Text -- ^ 'ecsgeIpProtocol' - -> EC2SecurityGroupEgress -ec2SecurityGroupEgress groupIdarg ipProtocolarg = - EC2SecurityGroupEgress - { _eC2SecurityGroupEgressCidrIp = Nothing - , _eC2SecurityGroupEgressCidrIpv6 = Nothing - , _eC2SecurityGroupEgressDescription = Nothing - , _eC2SecurityGroupEgressDestinationPrefixListId = Nothing - , _eC2SecurityGroupEgressDestinationSecurityGroupId = Nothing - , _eC2SecurityGroupEgressFromPort = Nothing - , _eC2SecurityGroupEgressGroupId = groupIdarg - , _eC2SecurityGroupEgressIpProtocol = ipProtocolarg - , _eC2SecurityGroupEgressToPort = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-security-group-egress.html#cfn-ec2-securitygroupegress-cidrip -ecsgeCidrIp :: Lens' EC2SecurityGroupEgress (Maybe (Val Text)) -ecsgeCidrIp = lens _eC2SecurityGroupEgressCidrIp (\s a -> s { _eC2SecurityGroupEgressCidrIp = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-security-group-egress.html#cfn-ec2-securitygroupegress-cidripv6 -ecsgeCidrIpv6 :: Lens' EC2SecurityGroupEgress (Maybe (Val Text)) -ecsgeCidrIpv6 = lens _eC2SecurityGroupEgressCidrIpv6 (\s a -> s { _eC2SecurityGroupEgressCidrIpv6 = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-security-group-egress.html#cfn-ec2-securitygroupegress-description -ecsgeDescription :: Lens' EC2SecurityGroupEgress (Maybe (Val Text)) -ecsgeDescription = lens _eC2SecurityGroupEgressDescription (\s a -> s { _eC2SecurityGroupEgressDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-security-group-egress.html#cfn-ec2-securitygroupegress-destinationprefixlistid -ecsgeDestinationPrefixListId :: Lens' EC2SecurityGroupEgress (Maybe (Val Text)) -ecsgeDestinationPrefixListId = lens _eC2SecurityGroupEgressDestinationPrefixListId (\s a -> s { _eC2SecurityGroupEgressDestinationPrefixListId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-security-group-egress.html#cfn-ec2-securitygroupegress-destinationsecuritygroupid -ecsgeDestinationSecurityGroupId :: Lens' EC2SecurityGroupEgress (Maybe (Val Text)) -ecsgeDestinationSecurityGroupId = lens _eC2SecurityGroupEgressDestinationSecurityGroupId (\s a -> s { _eC2SecurityGroupEgressDestinationSecurityGroupId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-security-group-egress.html#cfn-ec2-securitygroupegress-fromport -ecsgeFromPort :: Lens' EC2SecurityGroupEgress (Maybe (Val Integer)) -ecsgeFromPort = lens _eC2SecurityGroupEgressFromPort (\s a -> s { _eC2SecurityGroupEgressFromPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-security-group-egress.html#cfn-ec2-securitygroupegress-groupid -ecsgeGroupId :: Lens' EC2SecurityGroupEgress (Val Text) -ecsgeGroupId = lens _eC2SecurityGroupEgressGroupId (\s a -> s { _eC2SecurityGroupEgressGroupId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-security-group-egress.html#cfn-ec2-securitygroupegress-ipprotocol -ecsgeIpProtocol :: Lens' EC2SecurityGroupEgress (Val Text) -ecsgeIpProtocol = lens _eC2SecurityGroupEgressIpProtocol (\s a -> s { _eC2SecurityGroupEgressIpProtocol = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-security-group-egress.html#cfn-ec2-securitygroupegress-toport -ecsgeToPort :: Lens' EC2SecurityGroupEgress (Maybe (Val Integer)) -ecsgeToPort = lens _eC2SecurityGroupEgressToPort (\s a -> s { _eC2SecurityGroupEgressToPort = a }) diff --git a/library-gen/Stratosphere/Resources/EC2SecurityGroupIngress.hs b/library-gen/Stratosphere/Resources/EC2SecurityGroupIngress.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2SecurityGroupIngress.hs +++ /dev/null @@ -1,119 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-ingress.html - -module Stratosphere.Resources.EC2SecurityGroupIngress where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2SecurityGroupIngress. See --- 'ec2SecurityGroupIngress' for a more convenient constructor. -data EC2SecurityGroupIngress = - EC2SecurityGroupIngress - { _eC2SecurityGroupIngressCidrIp :: Maybe (Val Text) - , _eC2SecurityGroupIngressCidrIpv6 :: Maybe (Val Text) - , _eC2SecurityGroupIngressDescription :: Maybe (Val Text) - , _eC2SecurityGroupIngressFromPort :: Maybe (Val Integer) - , _eC2SecurityGroupIngressGroupId :: Maybe (Val Text) - , _eC2SecurityGroupIngressGroupName :: Maybe (Val Text) - , _eC2SecurityGroupIngressIpProtocol :: Val Text - , _eC2SecurityGroupIngressSourcePrefixListId :: Maybe (Val Text) - , _eC2SecurityGroupIngressSourceSecurityGroupId :: Maybe (Val Text) - , _eC2SecurityGroupIngressSourceSecurityGroupName :: Maybe (Val Text) - , _eC2SecurityGroupIngressSourceSecurityGroupOwnerId :: Maybe (Val Text) - , _eC2SecurityGroupIngressToPort :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToResourceProperties EC2SecurityGroupIngress where - toResourceProperties EC2SecurityGroupIngress{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::SecurityGroupIngress" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("CidrIp",) . toJSON) _eC2SecurityGroupIngressCidrIp - , fmap (("CidrIpv6",) . toJSON) _eC2SecurityGroupIngressCidrIpv6 - , fmap (("Description",) . toJSON) _eC2SecurityGroupIngressDescription - , fmap (("FromPort",) . toJSON) _eC2SecurityGroupIngressFromPort - , fmap (("GroupId",) . toJSON) _eC2SecurityGroupIngressGroupId - , fmap (("GroupName",) . toJSON) _eC2SecurityGroupIngressGroupName - , (Just . ("IpProtocol",) . toJSON) _eC2SecurityGroupIngressIpProtocol - , fmap (("SourcePrefixListId",) . toJSON) _eC2SecurityGroupIngressSourcePrefixListId - , fmap (("SourceSecurityGroupId",) . toJSON) _eC2SecurityGroupIngressSourceSecurityGroupId - , fmap (("SourceSecurityGroupName",) . toJSON) _eC2SecurityGroupIngressSourceSecurityGroupName - , fmap (("SourceSecurityGroupOwnerId",) . toJSON) _eC2SecurityGroupIngressSourceSecurityGroupOwnerId - , fmap (("ToPort",) . toJSON) _eC2SecurityGroupIngressToPort - ] - } - --- | Constructor for 'EC2SecurityGroupIngress' containing required fields as --- arguments. -ec2SecurityGroupIngress - :: Val Text -- ^ 'ecsgiIpProtocol' - -> EC2SecurityGroupIngress -ec2SecurityGroupIngress ipProtocolarg = - EC2SecurityGroupIngress - { _eC2SecurityGroupIngressCidrIp = Nothing - , _eC2SecurityGroupIngressCidrIpv6 = Nothing - , _eC2SecurityGroupIngressDescription = Nothing - , _eC2SecurityGroupIngressFromPort = Nothing - , _eC2SecurityGroupIngressGroupId = Nothing - , _eC2SecurityGroupIngressGroupName = Nothing - , _eC2SecurityGroupIngressIpProtocol = ipProtocolarg - , _eC2SecurityGroupIngressSourcePrefixListId = Nothing - , _eC2SecurityGroupIngressSourceSecurityGroupId = Nothing - , _eC2SecurityGroupIngressSourceSecurityGroupName = Nothing - , _eC2SecurityGroupIngressSourceSecurityGroupOwnerId = Nothing - , _eC2SecurityGroupIngressToPort = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-ingress.html#cfn-ec2-security-group-ingress-cidrip -ecsgiCidrIp :: Lens' EC2SecurityGroupIngress (Maybe (Val Text)) -ecsgiCidrIp = lens _eC2SecurityGroupIngressCidrIp (\s a -> s { _eC2SecurityGroupIngressCidrIp = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-ingress.html#cfn-ec2-security-group-ingress-cidripv6 -ecsgiCidrIpv6 :: Lens' EC2SecurityGroupIngress (Maybe (Val Text)) -ecsgiCidrIpv6 = lens _eC2SecurityGroupIngressCidrIpv6 (\s a -> s { _eC2SecurityGroupIngressCidrIpv6 = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-ingress.html#cfn-ec2-security-group-ingress-description -ecsgiDescription :: Lens' EC2SecurityGroupIngress (Maybe (Val Text)) -ecsgiDescription = lens _eC2SecurityGroupIngressDescription (\s a -> s { _eC2SecurityGroupIngressDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-ingress.html#cfn-ec2-security-group-ingress-fromport -ecsgiFromPort :: Lens' EC2SecurityGroupIngress (Maybe (Val Integer)) -ecsgiFromPort = lens _eC2SecurityGroupIngressFromPort (\s a -> s { _eC2SecurityGroupIngressFromPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-ingress.html#cfn-ec2-security-group-ingress-groupid -ecsgiGroupId :: Lens' EC2SecurityGroupIngress (Maybe (Val Text)) -ecsgiGroupId = lens _eC2SecurityGroupIngressGroupId (\s a -> s { _eC2SecurityGroupIngressGroupId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-ingress.html#cfn-ec2-security-group-ingress-groupname -ecsgiGroupName :: Lens' EC2SecurityGroupIngress (Maybe (Val Text)) -ecsgiGroupName = lens _eC2SecurityGroupIngressGroupName (\s a -> s { _eC2SecurityGroupIngressGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-ingress.html#cfn-ec2-security-group-ingress-ipprotocol -ecsgiIpProtocol :: Lens' EC2SecurityGroupIngress (Val Text) -ecsgiIpProtocol = lens _eC2SecurityGroupIngressIpProtocol (\s a -> s { _eC2SecurityGroupIngressIpProtocol = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-ingress.html#cfn-ec2-securitygroupingress-sourceprefixlistid -ecsgiSourcePrefixListId :: Lens' EC2SecurityGroupIngress (Maybe (Val Text)) -ecsgiSourcePrefixListId = lens _eC2SecurityGroupIngressSourcePrefixListId (\s a -> s { _eC2SecurityGroupIngressSourcePrefixListId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-ingress.html#cfn-ec2-security-group-ingress-sourcesecuritygroupid -ecsgiSourceSecurityGroupId :: Lens' EC2SecurityGroupIngress (Maybe (Val Text)) -ecsgiSourceSecurityGroupId = lens _eC2SecurityGroupIngressSourceSecurityGroupId (\s a -> s { _eC2SecurityGroupIngressSourceSecurityGroupId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-ingress.html#cfn-ec2-security-group-ingress-sourcesecuritygroupname -ecsgiSourceSecurityGroupName :: Lens' EC2SecurityGroupIngress (Maybe (Val Text)) -ecsgiSourceSecurityGroupName = lens _eC2SecurityGroupIngressSourceSecurityGroupName (\s a -> s { _eC2SecurityGroupIngressSourceSecurityGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-ingress.html#cfn-ec2-security-group-ingress-sourcesecuritygroupownerid -ecsgiSourceSecurityGroupOwnerId :: Lens' EC2SecurityGroupIngress (Maybe (Val Text)) -ecsgiSourceSecurityGroupOwnerId = lens _eC2SecurityGroupIngressSourceSecurityGroupOwnerId (\s a -> s { _eC2SecurityGroupIngressSourceSecurityGroupOwnerId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-security-group-ingress.html#cfn-ec2-security-group-ingress-toport -ecsgiToPort :: Lens' EC2SecurityGroupIngress (Maybe (Val Integer)) -ecsgiToPort = lens _eC2SecurityGroupIngressToPort (\s a -> s { _eC2SecurityGroupIngressToPort = a }) diff --git a/library-gen/Stratosphere/Resources/EC2SpotFleet.hs b/library-gen/Stratosphere/Resources/EC2SpotFleet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2SpotFleet.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-spotfleet.html - -module Stratosphere.Resources.EC2SpotFleet where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetRequestConfigData - --- | Full data type definition for EC2SpotFleet. See 'ec2SpotFleet' for a more --- convenient constructor. -data EC2SpotFleet = - EC2SpotFleet - { _eC2SpotFleetSpotFleetRequestConfigData :: EC2SpotFleetSpotFleetRequestConfigData - } deriving (Show, Eq) - -instance ToResourceProperties EC2SpotFleet where - toResourceProperties EC2SpotFleet{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::SpotFleet" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("SpotFleetRequestConfigData",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigData - ] - } - --- | Constructor for 'EC2SpotFleet' containing required fields as arguments. -ec2SpotFleet - :: EC2SpotFleetSpotFleetRequestConfigData -- ^ 'ecsfSpotFleetRequestConfigData' - -> EC2SpotFleet -ec2SpotFleet spotFleetRequestConfigDataarg = - EC2SpotFleet - { _eC2SpotFleetSpotFleetRequestConfigData = spotFleetRequestConfigDataarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-spotfleet.html#cfn-ec2-spotfleet-spotfleetrequestconfigdata -ecsfSpotFleetRequestConfigData :: Lens' EC2SpotFleet EC2SpotFleetSpotFleetRequestConfigData -ecsfSpotFleetRequestConfigData = lens _eC2SpotFleetSpotFleetRequestConfigData (\s a -> s { _eC2SpotFleetSpotFleetRequestConfigData = a }) diff --git a/library-gen/Stratosphere/Resources/EC2Subnet.hs b/library-gen/Stratosphere/Resources/EC2Subnet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2Subnet.hs +++ /dev/null @@ -1,84 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-subnet.html - -module Stratosphere.Resources.EC2Subnet where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for EC2Subnet. See 'ec2Subnet' for a more --- convenient constructor. -data EC2Subnet = - EC2Subnet - { _eC2SubnetAssignIpv6AddressOnCreation :: Maybe (Val Bool) - , _eC2SubnetAvailabilityZone :: Maybe (Val Text) - , _eC2SubnetCidrBlock :: Val Text - , _eC2SubnetIpv6CidrBlock :: Maybe (Val Text) - , _eC2SubnetMapPublicIpOnLaunch :: Maybe (Val Bool) - , _eC2SubnetTags :: Maybe [Tag] - , _eC2SubnetVpcId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2Subnet where - toResourceProperties EC2Subnet{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::Subnet" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AssignIpv6AddressOnCreation",) . toJSON) _eC2SubnetAssignIpv6AddressOnCreation - , fmap (("AvailabilityZone",) . toJSON) _eC2SubnetAvailabilityZone - , (Just . ("CidrBlock",) . toJSON) _eC2SubnetCidrBlock - , fmap (("Ipv6CidrBlock",) . toJSON) _eC2SubnetIpv6CidrBlock - , fmap (("MapPublicIpOnLaunch",) . toJSON) _eC2SubnetMapPublicIpOnLaunch - , fmap (("Tags",) . toJSON) _eC2SubnetTags - , (Just . ("VpcId",) . toJSON) _eC2SubnetVpcId - ] - } - --- | Constructor for 'EC2Subnet' containing required fields as arguments. -ec2Subnet - :: Val Text -- ^ 'ecsCidrBlock' - -> Val Text -- ^ 'ecsVpcId' - -> EC2Subnet -ec2Subnet cidrBlockarg vpcIdarg = - EC2Subnet - { _eC2SubnetAssignIpv6AddressOnCreation = Nothing - , _eC2SubnetAvailabilityZone = Nothing - , _eC2SubnetCidrBlock = cidrBlockarg - , _eC2SubnetIpv6CidrBlock = Nothing - , _eC2SubnetMapPublicIpOnLaunch = Nothing - , _eC2SubnetTags = Nothing - , _eC2SubnetVpcId = vpcIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-subnet.html#cfn-ec2-subnet-assignipv6addressoncreation -ecsAssignIpv6AddressOnCreation :: Lens' EC2Subnet (Maybe (Val Bool)) -ecsAssignIpv6AddressOnCreation = lens _eC2SubnetAssignIpv6AddressOnCreation (\s a -> s { _eC2SubnetAssignIpv6AddressOnCreation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-subnet.html#cfn-ec2-subnet-availabilityzone -ecsAvailabilityZone :: Lens' EC2Subnet (Maybe (Val Text)) -ecsAvailabilityZone = lens _eC2SubnetAvailabilityZone (\s a -> s { _eC2SubnetAvailabilityZone = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-subnet.html#cfn-ec2-subnet-cidrblock -ecsCidrBlock :: Lens' EC2Subnet (Val Text) -ecsCidrBlock = lens _eC2SubnetCidrBlock (\s a -> s { _eC2SubnetCidrBlock = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-subnet.html#cfn-ec2-subnet-ipv6cidrblock -ecsIpv6CidrBlock :: Lens' EC2Subnet (Maybe (Val Text)) -ecsIpv6CidrBlock = lens _eC2SubnetIpv6CidrBlock (\s a -> s { _eC2SubnetIpv6CidrBlock = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-subnet.html#cfn-ec2-subnet-mappubliciponlaunch -ecsMapPublicIpOnLaunch :: Lens' EC2Subnet (Maybe (Val Bool)) -ecsMapPublicIpOnLaunch = lens _eC2SubnetMapPublicIpOnLaunch (\s a -> s { _eC2SubnetMapPublicIpOnLaunch = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-subnet.html#cfn-ec2-subnet-tags -ecsTags :: Lens' EC2Subnet (Maybe [Tag]) -ecsTags = lens _eC2SubnetTags (\s a -> s { _eC2SubnetTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-subnet.html#cfn-awsec2subnet-prop-vpcid -ecsVpcId :: Lens' EC2Subnet (Val Text) -ecsVpcId = lens _eC2SubnetVpcId (\s a -> s { _eC2SubnetVpcId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2SubnetCidrBlock.hs b/library-gen/Stratosphere/Resources/EC2SubnetCidrBlock.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2SubnetCidrBlock.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-subnetcidrblock.html - -module Stratosphere.Resources.EC2SubnetCidrBlock where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2SubnetCidrBlock. See --- 'ec2SubnetCidrBlock' for a more convenient constructor. -data EC2SubnetCidrBlock = - EC2SubnetCidrBlock - { _eC2SubnetCidrBlockIpv6CidrBlock :: Val Text - , _eC2SubnetCidrBlockSubnetId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2SubnetCidrBlock where - toResourceProperties EC2SubnetCidrBlock{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::SubnetCidrBlock" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Ipv6CidrBlock",) . toJSON) _eC2SubnetCidrBlockIpv6CidrBlock - , (Just . ("SubnetId",) . toJSON) _eC2SubnetCidrBlockSubnetId - ] - } - --- | Constructor for 'EC2SubnetCidrBlock' containing required fields as --- arguments. -ec2SubnetCidrBlock - :: Val Text -- ^ 'ecscbIpv6CidrBlock' - -> Val Text -- ^ 'ecscbSubnetId' - -> EC2SubnetCidrBlock -ec2SubnetCidrBlock ipv6CidrBlockarg subnetIdarg = - EC2SubnetCidrBlock - { _eC2SubnetCidrBlockIpv6CidrBlock = ipv6CidrBlockarg - , _eC2SubnetCidrBlockSubnetId = subnetIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-subnetcidrblock.html#cfn-ec2-subnetcidrblock-ipv6cidrblock -ecscbIpv6CidrBlock :: Lens' EC2SubnetCidrBlock (Val Text) -ecscbIpv6CidrBlock = lens _eC2SubnetCidrBlockIpv6CidrBlock (\s a -> s { _eC2SubnetCidrBlockIpv6CidrBlock = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-subnetcidrblock.html#cfn-ec2-subnetcidrblock-subnetid -ecscbSubnetId :: Lens' EC2SubnetCidrBlock (Val Text) -ecscbSubnetId = lens _eC2SubnetCidrBlockSubnetId (\s a -> s { _eC2SubnetCidrBlockSubnetId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2SubnetNetworkAclAssociation.hs b/library-gen/Stratosphere/Resources/EC2SubnetNetworkAclAssociation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2SubnetNetworkAclAssociation.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-subnet-network-acl-assoc.html - -module Stratosphere.Resources.EC2SubnetNetworkAclAssociation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2SubnetNetworkAclAssociation. See --- 'ec2SubnetNetworkAclAssociation' for a more convenient constructor. -data EC2SubnetNetworkAclAssociation = - EC2SubnetNetworkAclAssociation - { _eC2SubnetNetworkAclAssociationNetworkAclId :: Val Text - , _eC2SubnetNetworkAclAssociationSubnetId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2SubnetNetworkAclAssociation where - toResourceProperties EC2SubnetNetworkAclAssociation{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::SubnetNetworkAclAssociation" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("NetworkAclId",) . toJSON) _eC2SubnetNetworkAclAssociationNetworkAclId - , (Just . ("SubnetId",) . toJSON) _eC2SubnetNetworkAclAssociationSubnetId - ] - } - --- | Constructor for 'EC2SubnetNetworkAclAssociation' containing required --- fields as arguments. -ec2SubnetNetworkAclAssociation - :: Val Text -- ^ 'ecsnaaNetworkAclId' - -> Val Text -- ^ 'ecsnaaSubnetId' - -> EC2SubnetNetworkAclAssociation -ec2SubnetNetworkAclAssociation networkAclIdarg subnetIdarg = - EC2SubnetNetworkAclAssociation - { _eC2SubnetNetworkAclAssociationNetworkAclId = networkAclIdarg - , _eC2SubnetNetworkAclAssociationSubnetId = subnetIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-subnet-network-acl-assoc.html#cfn-ec2-subnetnetworkaclassociation-networkaclid -ecsnaaNetworkAclId :: Lens' EC2SubnetNetworkAclAssociation (Val Text) -ecsnaaNetworkAclId = lens _eC2SubnetNetworkAclAssociationNetworkAclId (\s a -> s { _eC2SubnetNetworkAclAssociationNetworkAclId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-subnet-network-acl-assoc.html#cfn-ec2-subnetnetworkaclassociation-associationid -ecsnaaSubnetId :: Lens' EC2SubnetNetworkAclAssociation (Val Text) -ecsnaaSubnetId = lens _eC2SubnetNetworkAclAssociationSubnetId (\s a -> s { _eC2SubnetNetworkAclAssociationSubnetId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2SubnetRouteTableAssociation.hs b/library-gen/Stratosphere/Resources/EC2SubnetRouteTableAssociation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2SubnetRouteTableAssociation.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-subnet-route-table-assoc.html - -module Stratosphere.Resources.EC2SubnetRouteTableAssociation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2SubnetRouteTableAssociation. See --- 'ec2SubnetRouteTableAssociation' for a more convenient constructor. -data EC2SubnetRouteTableAssociation = - EC2SubnetRouteTableAssociation - { _eC2SubnetRouteTableAssociationRouteTableId :: Val Text - , _eC2SubnetRouteTableAssociationSubnetId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2SubnetRouteTableAssociation where - toResourceProperties EC2SubnetRouteTableAssociation{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::SubnetRouteTableAssociation" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("RouteTableId",) . toJSON) _eC2SubnetRouteTableAssociationRouteTableId - , (Just . ("SubnetId",) . toJSON) _eC2SubnetRouteTableAssociationSubnetId - ] - } - --- | Constructor for 'EC2SubnetRouteTableAssociation' containing required --- fields as arguments. -ec2SubnetRouteTableAssociation - :: Val Text -- ^ 'ecsrtaRouteTableId' - -> Val Text -- ^ 'ecsrtaSubnetId' - -> EC2SubnetRouteTableAssociation -ec2SubnetRouteTableAssociation routeTableIdarg subnetIdarg = - EC2SubnetRouteTableAssociation - { _eC2SubnetRouteTableAssociationRouteTableId = routeTableIdarg - , _eC2SubnetRouteTableAssociationSubnetId = subnetIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-subnet-route-table-assoc.html#cfn-ec2-subnetroutetableassociation-routetableid -ecsrtaRouteTableId :: Lens' EC2SubnetRouteTableAssociation (Val Text) -ecsrtaRouteTableId = lens _eC2SubnetRouteTableAssociationRouteTableId (\s a -> s { _eC2SubnetRouteTableAssociationRouteTableId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-subnet-route-table-assoc.html#cfn-ec2-subnetroutetableassociation-subnetid -ecsrtaSubnetId :: Lens' EC2SubnetRouteTableAssociation (Val Text) -ecsrtaSubnetId = lens _eC2SubnetRouteTableAssociationSubnetId (\s a -> s { _eC2SubnetRouteTableAssociationSubnetId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2TrafficMirrorFilter.hs b/library-gen/Stratosphere/Resources/EC2TrafficMirrorFilter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2TrafficMirrorFilter.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilter.html - -module Stratosphere.Resources.EC2TrafficMirrorFilter where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for EC2TrafficMirrorFilter. See --- 'ec2TrafficMirrorFilter' for a more convenient constructor. -data EC2TrafficMirrorFilter = - EC2TrafficMirrorFilter - { _eC2TrafficMirrorFilterDescription :: Maybe (Val Text) - , _eC2TrafficMirrorFilterNetworkServices :: Maybe (ValList Text) - , _eC2TrafficMirrorFilterTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties EC2TrafficMirrorFilter where - toResourceProperties EC2TrafficMirrorFilter{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::TrafficMirrorFilter" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _eC2TrafficMirrorFilterDescription - , fmap (("NetworkServices",) . toJSON) _eC2TrafficMirrorFilterNetworkServices - , fmap (("Tags",) . toJSON) _eC2TrafficMirrorFilterTags - ] - } - --- | Constructor for 'EC2TrafficMirrorFilter' containing required fields as --- arguments. -ec2TrafficMirrorFilter - :: EC2TrafficMirrorFilter -ec2TrafficMirrorFilter = - EC2TrafficMirrorFilter - { _eC2TrafficMirrorFilterDescription = Nothing - , _eC2TrafficMirrorFilterNetworkServices = Nothing - , _eC2TrafficMirrorFilterTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilter.html#cfn-ec2-trafficmirrorfilter-description -ectmfDescription :: Lens' EC2TrafficMirrorFilter (Maybe (Val Text)) -ectmfDescription = lens _eC2TrafficMirrorFilterDescription (\s a -> s { _eC2TrafficMirrorFilterDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilter.html#cfn-ec2-trafficmirrorfilter-networkservices -ectmfNetworkServices :: Lens' EC2TrafficMirrorFilter (Maybe (ValList Text)) -ectmfNetworkServices = lens _eC2TrafficMirrorFilterNetworkServices (\s a -> s { _eC2TrafficMirrorFilterNetworkServices = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilter.html#cfn-ec2-trafficmirrorfilter-tags -ectmfTags :: Lens' EC2TrafficMirrorFilter (Maybe [Tag]) -ectmfTags = lens _eC2TrafficMirrorFilterTags (\s a -> s { _eC2TrafficMirrorFilterTags = a }) diff --git a/library-gen/Stratosphere/Resources/EC2TrafficMirrorFilterRule.hs b/library-gen/Stratosphere/Resources/EC2TrafficMirrorFilterRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2TrafficMirrorFilterRule.hs +++ /dev/null @@ -1,110 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilterrule.html - -module Stratosphere.Resources.EC2TrafficMirrorFilterRule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EC2TrafficMirrorFilterRuleTrafficMirrorPortRange - --- | Full data type definition for EC2TrafficMirrorFilterRule. See --- 'ec2TrafficMirrorFilterRule' for a more convenient constructor. -data EC2TrafficMirrorFilterRule = - EC2TrafficMirrorFilterRule - { _eC2TrafficMirrorFilterRuleDescription :: Maybe (Val Text) - , _eC2TrafficMirrorFilterRuleDestinationCidrBlock :: Val Text - , _eC2TrafficMirrorFilterRuleDestinationPortRange :: Maybe EC2TrafficMirrorFilterRuleTrafficMirrorPortRange - , _eC2TrafficMirrorFilterRuleProtocol :: Maybe (Val Integer) - , _eC2TrafficMirrorFilterRuleRuleAction :: Val Text - , _eC2TrafficMirrorFilterRuleRuleNumber :: Val Integer - , _eC2TrafficMirrorFilterRuleSourceCidrBlock :: Val Text - , _eC2TrafficMirrorFilterRuleSourcePortRange :: Maybe EC2TrafficMirrorFilterRuleTrafficMirrorPortRange - , _eC2TrafficMirrorFilterRuleTrafficDirection :: Val Text - , _eC2TrafficMirrorFilterRuleTrafficMirrorFilterId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2TrafficMirrorFilterRule where - toResourceProperties EC2TrafficMirrorFilterRule{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::TrafficMirrorFilterRule" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _eC2TrafficMirrorFilterRuleDescription - , (Just . ("DestinationCidrBlock",) . toJSON) _eC2TrafficMirrorFilterRuleDestinationCidrBlock - , fmap (("DestinationPortRange",) . toJSON) _eC2TrafficMirrorFilterRuleDestinationPortRange - , fmap (("Protocol",) . toJSON) _eC2TrafficMirrorFilterRuleProtocol - , (Just . ("RuleAction",) . toJSON) _eC2TrafficMirrorFilterRuleRuleAction - , (Just . ("RuleNumber",) . toJSON) _eC2TrafficMirrorFilterRuleRuleNumber - , (Just . ("SourceCidrBlock",) . toJSON) _eC2TrafficMirrorFilterRuleSourceCidrBlock - , fmap (("SourcePortRange",) . toJSON) _eC2TrafficMirrorFilterRuleSourcePortRange - , (Just . ("TrafficDirection",) . toJSON) _eC2TrafficMirrorFilterRuleTrafficDirection - , (Just . ("TrafficMirrorFilterId",) . toJSON) _eC2TrafficMirrorFilterRuleTrafficMirrorFilterId - ] - } - --- | Constructor for 'EC2TrafficMirrorFilterRule' containing required fields --- as arguments. -ec2TrafficMirrorFilterRule - :: Val Text -- ^ 'ectmfrDestinationCidrBlock' - -> Val Text -- ^ 'ectmfrRuleAction' - -> Val Integer -- ^ 'ectmfrRuleNumber' - -> Val Text -- ^ 'ectmfrSourceCidrBlock' - -> Val Text -- ^ 'ectmfrTrafficDirection' - -> Val Text -- ^ 'ectmfrTrafficMirrorFilterId' - -> EC2TrafficMirrorFilterRule -ec2TrafficMirrorFilterRule destinationCidrBlockarg ruleActionarg ruleNumberarg sourceCidrBlockarg trafficDirectionarg trafficMirrorFilterIdarg = - EC2TrafficMirrorFilterRule - { _eC2TrafficMirrorFilterRuleDescription = Nothing - , _eC2TrafficMirrorFilterRuleDestinationCidrBlock = destinationCidrBlockarg - , _eC2TrafficMirrorFilterRuleDestinationPortRange = Nothing - , _eC2TrafficMirrorFilterRuleProtocol = Nothing - , _eC2TrafficMirrorFilterRuleRuleAction = ruleActionarg - , _eC2TrafficMirrorFilterRuleRuleNumber = ruleNumberarg - , _eC2TrafficMirrorFilterRuleSourceCidrBlock = sourceCidrBlockarg - , _eC2TrafficMirrorFilterRuleSourcePortRange = Nothing - , _eC2TrafficMirrorFilterRuleTrafficDirection = trafficDirectionarg - , _eC2TrafficMirrorFilterRuleTrafficMirrorFilterId = trafficMirrorFilterIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilterrule.html#cfn-ec2-trafficmirrorfilterrule-description -ectmfrDescription :: Lens' EC2TrafficMirrorFilterRule (Maybe (Val Text)) -ectmfrDescription = lens _eC2TrafficMirrorFilterRuleDescription (\s a -> s { _eC2TrafficMirrorFilterRuleDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilterrule.html#cfn-ec2-trafficmirrorfilterrule-destinationcidrblock -ectmfrDestinationCidrBlock :: Lens' EC2TrafficMirrorFilterRule (Val Text) -ectmfrDestinationCidrBlock = lens _eC2TrafficMirrorFilterRuleDestinationCidrBlock (\s a -> s { _eC2TrafficMirrorFilterRuleDestinationCidrBlock = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilterrule.html#cfn-ec2-trafficmirrorfilterrule-destinationportrange -ectmfrDestinationPortRange :: Lens' EC2TrafficMirrorFilterRule (Maybe EC2TrafficMirrorFilterRuleTrafficMirrorPortRange) -ectmfrDestinationPortRange = lens _eC2TrafficMirrorFilterRuleDestinationPortRange (\s a -> s { _eC2TrafficMirrorFilterRuleDestinationPortRange = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilterrule.html#cfn-ec2-trafficmirrorfilterrule-protocol -ectmfrProtocol :: Lens' EC2TrafficMirrorFilterRule (Maybe (Val Integer)) -ectmfrProtocol = lens _eC2TrafficMirrorFilterRuleProtocol (\s a -> s { _eC2TrafficMirrorFilterRuleProtocol = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilterrule.html#cfn-ec2-trafficmirrorfilterrule-ruleaction -ectmfrRuleAction :: Lens' EC2TrafficMirrorFilterRule (Val Text) -ectmfrRuleAction = lens _eC2TrafficMirrorFilterRuleRuleAction (\s a -> s { _eC2TrafficMirrorFilterRuleRuleAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilterrule.html#cfn-ec2-trafficmirrorfilterrule-rulenumber -ectmfrRuleNumber :: Lens' EC2TrafficMirrorFilterRule (Val Integer) -ectmfrRuleNumber = lens _eC2TrafficMirrorFilterRuleRuleNumber (\s a -> s { _eC2TrafficMirrorFilterRuleRuleNumber = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilterrule.html#cfn-ec2-trafficmirrorfilterrule-sourcecidrblock -ectmfrSourceCidrBlock :: Lens' EC2TrafficMirrorFilterRule (Val Text) -ectmfrSourceCidrBlock = lens _eC2TrafficMirrorFilterRuleSourceCidrBlock (\s a -> s { _eC2TrafficMirrorFilterRuleSourceCidrBlock = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilterrule.html#cfn-ec2-trafficmirrorfilterrule-sourceportrange -ectmfrSourcePortRange :: Lens' EC2TrafficMirrorFilterRule (Maybe EC2TrafficMirrorFilterRuleTrafficMirrorPortRange) -ectmfrSourcePortRange = lens _eC2TrafficMirrorFilterRuleSourcePortRange (\s a -> s { _eC2TrafficMirrorFilterRuleSourcePortRange = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilterrule.html#cfn-ec2-trafficmirrorfilterrule-trafficdirection -ectmfrTrafficDirection :: Lens' EC2TrafficMirrorFilterRule (Val Text) -ectmfrTrafficDirection = lens _eC2TrafficMirrorFilterRuleTrafficDirection (\s a -> s { _eC2TrafficMirrorFilterRuleTrafficDirection = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorfilterrule.html#cfn-ec2-trafficmirrorfilterrule-trafficmirrorfilterid -ectmfrTrafficMirrorFilterId :: Lens' EC2TrafficMirrorFilterRule (Val Text) -ectmfrTrafficMirrorFilterId = lens _eC2TrafficMirrorFilterRuleTrafficMirrorFilterId (\s a -> s { _eC2TrafficMirrorFilterRuleTrafficMirrorFilterId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2TrafficMirrorSession.hs b/library-gen/Stratosphere/Resources/EC2TrafficMirrorSession.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2TrafficMirrorSession.hs +++ /dev/null @@ -1,94 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorsession.html - -module Stratosphere.Resources.EC2TrafficMirrorSession where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for EC2TrafficMirrorSession. See --- 'ec2TrafficMirrorSession' for a more convenient constructor. -data EC2TrafficMirrorSession = - EC2TrafficMirrorSession - { _eC2TrafficMirrorSessionDescription :: Maybe (Val Text) - , _eC2TrafficMirrorSessionNetworkInterfaceId :: Val Text - , _eC2TrafficMirrorSessionPacketLength :: Maybe (Val Integer) - , _eC2TrafficMirrorSessionSessionNumber :: Val Integer - , _eC2TrafficMirrorSessionTags :: Maybe [Tag] - , _eC2TrafficMirrorSessionTrafficMirrorFilterId :: Val Text - , _eC2TrafficMirrorSessionTrafficMirrorTargetId :: Val Text - , _eC2TrafficMirrorSessionVirtualNetworkId :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToResourceProperties EC2TrafficMirrorSession where - toResourceProperties EC2TrafficMirrorSession{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::TrafficMirrorSession" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _eC2TrafficMirrorSessionDescription - , (Just . ("NetworkInterfaceId",) . toJSON) _eC2TrafficMirrorSessionNetworkInterfaceId - , fmap (("PacketLength",) . toJSON) _eC2TrafficMirrorSessionPacketLength - , (Just . ("SessionNumber",) . toJSON) _eC2TrafficMirrorSessionSessionNumber - , fmap (("Tags",) . toJSON) _eC2TrafficMirrorSessionTags - , (Just . ("TrafficMirrorFilterId",) . toJSON) _eC2TrafficMirrorSessionTrafficMirrorFilterId - , (Just . ("TrafficMirrorTargetId",) . toJSON) _eC2TrafficMirrorSessionTrafficMirrorTargetId - , fmap (("VirtualNetworkId",) . toJSON) _eC2TrafficMirrorSessionVirtualNetworkId - ] - } - --- | Constructor for 'EC2TrafficMirrorSession' containing required fields as --- arguments. -ec2TrafficMirrorSession - :: Val Text -- ^ 'ectmsNetworkInterfaceId' - -> Val Integer -- ^ 'ectmsSessionNumber' - -> Val Text -- ^ 'ectmsTrafficMirrorFilterId' - -> Val Text -- ^ 'ectmsTrafficMirrorTargetId' - -> EC2TrafficMirrorSession -ec2TrafficMirrorSession networkInterfaceIdarg sessionNumberarg trafficMirrorFilterIdarg trafficMirrorTargetIdarg = - EC2TrafficMirrorSession - { _eC2TrafficMirrorSessionDescription = Nothing - , _eC2TrafficMirrorSessionNetworkInterfaceId = networkInterfaceIdarg - , _eC2TrafficMirrorSessionPacketLength = Nothing - , _eC2TrafficMirrorSessionSessionNumber = sessionNumberarg - , _eC2TrafficMirrorSessionTags = Nothing - , _eC2TrafficMirrorSessionTrafficMirrorFilterId = trafficMirrorFilterIdarg - , _eC2TrafficMirrorSessionTrafficMirrorTargetId = trafficMirrorTargetIdarg - , _eC2TrafficMirrorSessionVirtualNetworkId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorsession.html#cfn-ec2-trafficmirrorsession-description -ectmsDescription :: Lens' EC2TrafficMirrorSession (Maybe (Val Text)) -ectmsDescription = lens _eC2TrafficMirrorSessionDescription (\s a -> s { _eC2TrafficMirrorSessionDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorsession.html#cfn-ec2-trafficmirrorsession-networkinterfaceid -ectmsNetworkInterfaceId :: Lens' EC2TrafficMirrorSession (Val Text) -ectmsNetworkInterfaceId = lens _eC2TrafficMirrorSessionNetworkInterfaceId (\s a -> s { _eC2TrafficMirrorSessionNetworkInterfaceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorsession.html#cfn-ec2-trafficmirrorsession-packetlength -ectmsPacketLength :: Lens' EC2TrafficMirrorSession (Maybe (Val Integer)) -ectmsPacketLength = lens _eC2TrafficMirrorSessionPacketLength (\s a -> s { _eC2TrafficMirrorSessionPacketLength = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorsession.html#cfn-ec2-trafficmirrorsession-sessionnumber -ectmsSessionNumber :: Lens' EC2TrafficMirrorSession (Val Integer) -ectmsSessionNumber = lens _eC2TrafficMirrorSessionSessionNumber (\s a -> s { _eC2TrafficMirrorSessionSessionNumber = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorsession.html#cfn-ec2-trafficmirrorsession-tags -ectmsTags :: Lens' EC2TrafficMirrorSession (Maybe [Tag]) -ectmsTags = lens _eC2TrafficMirrorSessionTags (\s a -> s { _eC2TrafficMirrorSessionTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorsession.html#cfn-ec2-trafficmirrorsession-trafficmirrorfilterid -ectmsTrafficMirrorFilterId :: Lens' EC2TrafficMirrorSession (Val Text) -ectmsTrafficMirrorFilterId = lens _eC2TrafficMirrorSessionTrafficMirrorFilterId (\s a -> s { _eC2TrafficMirrorSessionTrafficMirrorFilterId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorsession.html#cfn-ec2-trafficmirrorsession-trafficmirrortargetid -ectmsTrafficMirrorTargetId :: Lens' EC2TrafficMirrorSession (Val Text) -ectmsTrafficMirrorTargetId = lens _eC2TrafficMirrorSessionTrafficMirrorTargetId (\s a -> s { _eC2TrafficMirrorSessionTrafficMirrorTargetId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrorsession.html#cfn-ec2-trafficmirrorsession-virtualnetworkid -ectmsVirtualNetworkId :: Lens' EC2TrafficMirrorSession (Maybe (Val Integer)) -ectmsVirtualNetworkId = lens _eC2TrafficMirrorSessionVirtualNetworkId (\s a -> s { _eC2TrafficMirrorSessionVirtualNetworkId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2TrafficMirrorTarget.hs b/library-gen/Stratosphere/Resources/EC2TrafficMirrorTarget.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2TrafficMirrorTarget.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrortarget.html - -module Stratosphere.Resources.EC2TrafficMirrorTarget where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for EC2TrafficMirrorTarget. See --- 'ec2TrafficMirrorTarget' for a more convenient constructor. -data EC2TrafficMirrorTarget = - EC2TrafficMirrorTarget - { _eC2TrafficMirrorTargetDescription :: Maybe (Val Text) - , _eC2TrafficMirrorTargetNetworkInterfaceId :: Maybe (Val Text) - , _eC2TrafficMirrorTargetNetworkLoadBalancerArn :: Maybe (Val Text) - , _eC2TrafficMirrorTargetTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties EC2TrafficMirrorTarget where - toResourceProperties EC2TrafficMirrorTarget{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::TrafficMirrorTarget" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _eC2TrafficMirrorTargetDescription - , fmap (("NetworkInterfaceId",) . toJSON) _eC2TrafficMirrorTargetNetworkInterfaceId - , fmap (("NetworkLoadBalancerArn",) . toJSON) _eC2TrafficMirrorTargetNetworkLoadBalancerArn - , fmap (("Tags",) . toJSON) _eC2TrafficMirrorTargetTags - ] - } - --- | Constructor for 'EC2TrafficMirrorTarget' containing required fields as --- arguments. -ec2TrafficMirrorTarget - :: EC2TrafficMirrorTarget -ec2TrafficMirrorTarget = - EC2TrafficMirrorTarget - { _eC2TrafficMirrorTargetDescription = Nothing - , _eC2TrafficMirrorTargetNetworkInterfaceId = Nothing - , _eC2TrafficMirrorTargetNetworkLoadBalancerArn = Nothing - , _eC2TrafficMirrorTargetTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrortarget.html#cfn-ec2-trafficmirrortarget-description -ectmtDescription :: Lens' EC2TrafficMirrorTarget (Maybe (Val Text)) -ectmtDescription = lens _eC2TrafficMirrorTargetDescription (\s a -> s { _eC2TrafficMirrorTargetDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrortarget.html#cfn-ec2-trafficmirrortarget-networkinterfaceid -ectmtNetworkInterfaceId :: Lens' EC2TrafficMirrorTarget (Maybe (Val Text)) -ectmtNetworkInterfaceId = lens _eC2TrafficMirrorTargetNetworkInterfaceId (\s a -> s { _eC2TrafficMirrorTargetNetworkInterfaceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrortarget.html#cfn-ec2-trafficmirrortarget-networkloadbalancerarn -ectmtNetworkLoadBalancerArn :: Lens' EC2TrafficMirrorTarget (Maybe (Val Text)) -ectmtNetworkLoadBalancerArn = lens _eC2TrafficMirrorTargetNetworkLoadBalancerArn (\s a -> s { _eC2TrafficMirrorTargetNetworkLoadBalancerArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-trafficmirrortarget.html#cfn-ec2-trafficmirrortarget-tags -ectmtTags :: Lens' EC2TrafficMirrorTarget (Maybe [Tag]) -ectmtTags = lens _eC2TrafficMirrorTargetTags (\s a -> s { _eC2TrafficMirrorTargetTags = a }) diff --git a/library-gen/Stratosphere/Resources/EC2TransitGateway.hs b/library-gen/Stratosphere/Resources/EC2TransitGateway.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2TransitGateway.hs +++ /dev/null @@ -1,97 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-transitgateway.html - -module Stratosphere.Resources.EC2TransitGateway where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for EC2TransitGateway. See 'ec2TransitGateway' --- for a more convenient constructor. -data EC2TransitGateway = - EC2TransitGateway - { _eC2TransitGatewayAmazonSideAsn :: Maybe (Val Integer) - , _eC2TransitGatewayAutoAcceptSharedAttachments :: Maybe (Val Text) - , _eC2TransitGatewayDefaultRouteTableAssociation :: Maybe (Val Text) - , _eC2TransitGatewayDefaultRouteTablePropagation :: Maybe (Val Text) - , _eC2TransitGatewayDescription :: Maybe (Val Text) - , _eC2TransitGatewayDnsSupport :: Maybe (Val Text) - , _eC2TransitGatewayMulticastSupport :: Maybe (Val Text) - , _eC2TransitGatewayTags :: Maybe [Tag] - , _eC2TransitGatewayVpnEcmpSupport :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties EC2TransitGateway where - toResourceProperties EC2TransitGateway{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::TransitGateway" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AmazonSideAsn",) . toJSON) _eC2TransitGatewayAmazonSideAsn - , fmap (("AutoAcceptSharedAttachments",) . toJSON) _eC2TransitGatewayAutoAcceptSharedAttachments - , fmap (("DefaultRouteTableAssociation",) . toJSON) _eC2TransitGatewayDefaultRouteTableAssociation - , fmap (("DefaultRouteTablePropagation",) . toJSON) _eC2TransitGatewayDefaultRouteTablePropagation - , fmap (("Description",) . toJSON) _eC2TransitGatewayDescription - , fmap (("DnsSupport",) . toJSON) _eC2TransitGatewayDnsSupport - , fmap (("MulticastSupport",) . toJSON) _eC2TransitGatewayMulticastSupport - , fmap (("Tags",) . toJSON) _eC2TransitGatewayTags - , fmap (("VpnEcmpSupport",) . toJSON) _eC2TransitGatewayVpnEcmpSupport - ] - } - --- | Constructor for 'EC2TransitGateway' containing required fields as --- arguments. -ec2TransitGateway - :: EC2TransitGateway -ec2TransitGateway = - EC2TransitGateway - { _eC2TransitGatewayAmazonSideAsn = Nothing - , _eC2TransitGatewayAutoAcceptSharedAttachments = Nothing - , _eC2TransitGatewayDefaultRouteTableAssociation = Nothing - , _eC2TransitGatewayDefaultRouteTablePropagation = Nothing - , _eC2TransitGatewayDescription = Nothing - , _eC2TransitGatewayDnsSupport = Nothing - , _eC2TransitGatewayMulticastSupport = Nothing - , _eC2TransitGatewayTags = Nothing - , _eC2TransitGatewayVpnEcmpSupport = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-transitgateway.html#cfn-ec2-transitgateway-amazonsideasn -ectgAmazonSideAsn :: Lens' EC2TransitGateway (Maybe (Val Integer)) -ectgAmazonSideAsn = lens _eC2TransitGatewayAmazonSideAsn (\s a -> s { _eC2TransitGatewayAmazonSideAsn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-transitgateway.html#cfn-ec2-transitgateway-autoacceptsharedattachments -ectgAutoAcceptSharedAttachments :: Lens' EC2TransitGateway (Maybe (Val Text)) -ectgAutoAcceptSharedAttachments = lens _eC2TransitGatewayAutoAcceptSharedAttachments (\s a -> s { _eC2TransitGatewayAutoAcceptSharedAttachments = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-transitgateway.html#cfn-ec2-transitgateway-defaultroutetableassociation -ectgDefaultRouteTableAssociation :: Lens' EC2TransitGateway (Maybe (Val Text)) -ectgDefaultRouteTableAssociation = lens _eC2TransitGatewayDefaultRouteTableAssociation (\s a -> s { _eC2TransitGatewayDefaultRouteTableAssociation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-transitgateway.html#cfn-ec2-transitgateway-defaultroutetablepropagation -ectgDefaultRouteTablePropagation :: Lens' EC2TransitGateway (Maybe (Val Text)) -ectgDefaultRouteTablePropagation = lens _eC2TransitGatewayDefaultRouteTablePropagation (\s a -> s { _eC2TransitGatewayDefaultRouteTablePropagation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-transitgateway.html#cfn-ec2-transitgateway-description -ectgDescription :: Lens' EC2TransitGateway (Maybe (Val Text)) -ectgDescription = lens _eC2TransitGatewayDescription (\s a -> s { _eC2TransitGatewayDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-transitgateway.html#cfn-ec2-transitgateway-dnssupport -ectgDnsSupport :: Lens' EC2TransitGateway (Maybe (Val Text)) -ectgDnsSupport = lens _eC2TransitGatewayDnsSupport (\s a -> s { _eC2TransitGatewayDnsSupport = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-transitgateway.html#cfn-ec2-transitgateway-multicastsupport -ectgMulticastSupport :: Lens' EC2TransitGateway (Maybe (Val Text)) -ectgMulticastSupport = lens _eC2TransitGatewayMulticastSupport (\s a -> s { _eC2TransitGatewayMulticastSupport = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-transitgateway.html#cfn-ec2-transitgateway-tags -ectgTags :: Lens' EC2TransitGateway (Maybe [Tag]) -ectgTags = lens _eC2TransitGatewayTags (\s a -> s { _eC2TransitGatewayTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-transitgateway.html#cfn-ec2-transitgateway-vpnecmpsupport -ectgVpnEcmpSupport :: Lens' EC2TransitGateway (Maybe (Val Text)) -ectgVpnEcmpSupport = lens _eC2TransitGatewayVpnEcmpSupport (\s a -> s { _eC2TransitGatewayVpnEcmpSupport = a }) diff --git a/library-gen/Stratosphere/Resources/EC2TransitGatewayAttachment.hs b/library-gen/Stratosphere/Resources/EC2TransitGatewayAttachment.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2TransitGatewayAttachment.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-transitgatewayattachment.html - -module Stratosphere.Resources.EC2TransitGatewayAttachment where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for EC2TransitGatewayAttachment. See --- 'ec2TransitGatewayAttachment' for a more convenient constructor. -data EC2TransitGatewayAttachment = - EC2TransitGatewayAttachment - { _eC2TransitGatewayAttachmentSubnetIds :: ValList Text - , _eC2TransitGatewayAttachmentTags :: Maybe [Tag] - , _eC2TransitGatewayAttachmentTransitGatewayId :: Val Text - , _eC2TransitGatewayAttachmentVpcId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2TransitGatewayAttachment where - toResourceProperties EC2TransitGatewayAttachment{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::TransitGatewayAttachment" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("SubnetIds",) . toJSON) _eC2TransitGatewayAttachmentSubnetIds - , fmap (("Tags",) . toJSON) _eC2TransitGatewayAttachmentTags - , (Just . ("TransitGatewayId",) . toJSON) _eC2TransitGatewayAttachmentTransitGatewayId - , (Just . ("VpcId",) . toJSON) _eC2TransitGatewayAttachmentVpcId - ] - } - --- | Constructor for 'EC2TransitGatewayAttachment' containing required fields --- as arguments. -ec2TransitGatewayAttachment - :: ValList Text -- ^ 'ectgaSubnetIds' - -> Val Text -- ^ 'ectgaTransitGatewayId' - -> Val Text -- ^ 'ectgaVpcId' - -> EC2TransitGatewayAttachment -ec2TransitGatewayAttachment subnetIdsarg transitGatewayIdarg vpcIdarg = - EC2TransitGatewayAttachment - { _eC2TransitGatewayAttachmentSubnetIds = subnetIdsarg - , _eC2TransitGatewayAttachmentTags = Nothing - , _eC2TransitGatewayAttachmentTransitGatewayId = transitGatewayIdarg - , _eC2TransitGatewayAttachmentVpcId = vpcIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-transitgatewayattachment.html#cfn-ec2-transitgatewayattachment-subnetids -ectgaSubnetIds :: Lens' EC2TransitGatewayAttachment (ValList Text) -ectgaSubnetIds = lens _eC2TransitGatewayAttachmentSubnetIds (\s a -> s { _eC2TransitGatewayAttachmentSubnetIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-transitgatewayattachment.html#cfn-ec2-transitgatewayattachment-tags -ectgaTags :: Lens' EC2TransitGatewayAttachment (Maybe [Tag]) -ectgaTags = lens _eC2TransitGatewayAttachmentTags (\s a -> s { _eC2TransitGatewayAttachmentTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-transitgatewayattachment.html#cfn-ec2-transitgatewayattachment-transitgatewayid -ectgaTransitGatewayId :: Lens' EC2TransitGatewayAttachment (Val Text) -ectgaTransitGatewayId = lens _eC2TransitGatewayAttachmentTransitGatewayId (\s a -> s { _eC2TransitGatewayAttachmentTransitGatewayId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-transitgatewayattachment.html#cfn-ec2-transitgatewayattachment-vpcid -ectgaVpcId :: Lens' EC2TransitGatewayAttachment (Val Text) -ectgaVpcId = lens _eC2TransitGatewayAttachmentVpcId (\s a -> s { _eC2TransitGatewayAttachmentVpcId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2TransitGatewayRoute.hs b/library-gen/Stratosphere/Resources/EC2TransitGatewayRoute.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2TransitGatewayRoute.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-transitgatewayroute.html - -module Stratosphere.Resources.EC2TransitGatewayRoute where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2TransitGatewayRoute. See --- 'ec2TransitGatewayRoute' for a more convenient constructor. -data EC2TransitGatewayRoute = - EC2TransitGatewayRoute - { _eC2TransitGatewayRouteBlackhole :: Maybe (Val Bool) - , _eC2TransitGatewayRouteDestinationCidrBlock :: Maybe (Val Text) - , _eC2TransitGatewayRouteTransitGatewayAttachmentId :: Maybe (Val Text) - , _eC2TransitGatewayRouteTransitGatewayRouteTableId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2TransitGatewayRoute where - toResourceProperties EC2TransitGatewayRoute{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::TransitGatewayRoute" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Blackhole",) . toJSON) _eC2TransitGatewayRouteBlackhole - , fmap (("DestinationCidrBlock",) . toJSON) _eC2TransitGatewayRouteDestinationCidrBlock - , fmap (("TransitGatewayAttachmentId",) . toJSON) _eC2TransitGatewayRouteTransitGatewayAttachmentId - , (Just . ("TransitGatewayRouteTableId",) . toJSON) _eC2TransitGatewayRouteTransitGatewayRouteTableId - ] - } - --- | Constructor for 'EC2TransitGatewayRoute' containing required fields as --- arguments. -ec2TransitGatewayRoute - :: Val Text -- ^ 'ectgrTransitGatewayRouteTableId' - -> EC2TransitGatewayRoute -ec2TransitGatewayRoute transitGatewayRouteTableIdarg = - EC2TransitGatewayRoute - { _eC2TransitGatewayRouteBlackhole = Nothing - , _eC2TransitGatewayRouteDestinationCidrBlock = Nothing - , _eC2TransitGatewayRouteTransitGatewayAttachmentId = Nothing - , _eC2TransitGatewayRouteTransitGatewayRouteTableId = transitGatewayRouteTableIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-transitgatewayroute.html#cfn-ec2-transitgatewayroute-blackhole -ectgrBlackhole :: Lens' EC2TransitGatewayRoute (Maybe (Val Bool)) -ectgrBlackhole = lens _eC2TransitGatewayRouteBlackhole (\s a -> s { _eC2TransitGatewayRouteBlackhole = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-transitgatewayroute.html#cfn-ec2-transitgatewayroute-destinationcidrblock -ectgrDestinationCidrBlock :: Lens' EC2TransitGatewayRoute (Maybe (Val Text)) -ectgrDestinationCidrBlock = lens _eC2TransitGatewayRouteDestinationCidrBlock (\s a -> s { _eC2TransitGatewayRouteDestinationCidrBlock = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-transitgatewayroute.html#cfn-ec2-transitgatewayroute-transitgatewayattachmentid -ectgrTransitGatewayAttachmentId :: Lens' EC2TransitGatewayRoute (Maybe (Val Text)) -ectgrTransitGatewayAttachmentId = lens _eC2TransitGatewayRouteTransitGatewayAttachmentId (\s a -> s { _eC2TransitGatewayRouteTransitGatewayAttachmentId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-transitgatewayroute.html#cfn-ec2-transitgatewayroute-transitgatewayroutetableid -ectgrTransitGatewayRouteTableId :: Lens' EC2TransitGatewayRoute (Val Text) -ectgrTransitGatewayRouteTableId = lens _eC2TransitGatewayRouteTransitGatewayRouteTableId (\s a -> s { _eC2TransitGatewayRouteTransitGatewayRouteTableId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2TransitGatewayRouteTable.hs b/library-gen/Stratosphere/Resources/EC2TransitGatewayRouteTable.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2TransitGatewayRouteTable.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-transitgatewayroutetable.html - -module Stratosphere.Resources.EC2TransitGatewayRouteTable where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for EC2TransitGatewayRouteTable. See --- 'ec2TransitGatewayRouteTable' for a more convenient constructor. -data EC2TransitGatewayRouteTable = - EC2TransitGatewayRouteTable - { _eC2TransitGatewayRouteTableTags :: Maybe [Tag] - , _eC2TransitGatewayRouteTableTransitGatewayId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2TransitGatewayRouteTable where - toResourceProperties EC2TransitGatewayRouteTable{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::TransitGatewayRouteTable" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Tags",) . toJSON) _eC2TransitGatewayRouteTableTags - , (Just . ("TransitGatewayId",) . toJSON) _eC2TransitGatewayRouteTableTransitGatewayId - ] - } - --- | Constructor for 'EC2TransitGatewayRouteTable' containing required fields --- as arguments. -ec2TransitGatewayRouteTable - :: Val Text -- ^ 'ectgrtTransitGatewayId' - -> EC2TransitGatewayRouteTable -ec2TransitGatewayRouteTable transitGatewayIdarg = - EC2TransitGatewayRouteTable - { _eC2TransitGatewayRouteTableTags = Nothing - , _eC2TransitGatewayRouteTableTransitGatewayId = transitGatewayIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-transitgatewayroutetable.html#cfn-ec2-transitgatewayroutetable-tags -ectgrtTags :: Lens' EC2TransitGatewayRouteTable (Maybe [Tag]) -ectgrtTags = lens _eC2TransitGatewayRouteTableTags (\s a -> s { _eC2TransitGatewayRouteTableTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-transitgatewayroutetable.html#cfn-ec2-transitgatewayroutetable-transitgatewayid -ectgrtTransitGatewayId :: Lens' EC2TransitGatewayRouteTable (Val Text) -ectgrtTransitGatewayId = lens _eC2TransitGatewayRouteTableTransitGatewayId (\s a -> s { _eC2TransitGatewayRouteTableTransitGatewayId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2TransitGatewayRouteTableAssociation.hs b/library-gen/Stratosphere/Resources/EC2TransitGatewayRouteTableAssociation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2TransitGatewayRouteTableAssociation.hs +++ /dev/null @@ -1,51 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-transitgatewayroutetableassociation.html - -module Stratosphere.Resources.EC2TransitGatewayRouteTableAssociation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2TransitGatewayRouteTableAssociation. See --- 'ec2TransitGatewayRouteTableAssociation' for a more convenient --- constructor. -data EC2TransitGatewayRouteTableAssociation = - EC2TransitGatewayRouteTableAssociation - { _eC2TransitGatewayRouteTableAssociationTransitGatewayAttachmentId :: Val Text - , _eC2TransitGatewayRouteTableAssociationTransitGatewayRouteTableId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2TransitGatewayRouteTableAssociation where - toResourceProperties EC2TransitGatewayRouteTableAssociation{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::TransitGatewayRouteTableAssociation" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("TransitGatewayAttachmentId",) . toJSON) _eC2TransitGatewayRouteTableAssociationTransitGatewayAttachmentId - , (Just . ("TransitGatewayRouteTableId",) . toJSON) _eC2TransitGatewayRouteTableAssociationTransitGatewayRouteTableId - ] - } - --- | Constructor for 'EC2TransitGatewayRouteTableAssociation' containing --- required fields as arguments. -ec2TransitGatewayRouteTableAssociation - :: Val Text -- ^ 'ectgrtaTransitGatewayAttachmentId' - -> Val Text -- ^ 'ectgrtaTransitGatewayRouteTableId' - -> EC2TransitGatewayRouteTableAssociation -ec2TransitGatewayRouteTableAssociation transitGatewayAttachmentIdarg transitGatewayRouteTableIdarg = - EC2TransitGatewayRouteTableAssociation - { _eC2TransitGatewayRouteTableAssociationTransitGatewayAttachmentId = transitGatewayAttachmentIdarg - , _eC2TransitGatewayRouteTableAssociationTransitGatewayRouteTableId = transitGatewayRouteTableIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-transitgatewayroutetableassociation.html#cfn-ec2-transitgatewayroutetableassociation-transitgatewayattachmentid -ectgrtaTransitGatewayAttachmentId :: Lens' EC2TransitGatewayRouteTableAssociation (Val Text) -ectgrtaTransitGatewayAttachmentId = lens _eC2TransitGatewayRouteTableAssociationTransitGatewayAttachmentId (\s a -> s { _eC2TransitGatewayRouteTableAssociationTransitGatewayAttachmentId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-transitgatewayroutetableassociation.html#cfn-ec2-transitgatewayroutetableassociation-transitgatewayroutetableid -ectgrtaTransitGatewayRouteTableId :: Lens' EC2TransitGatewayRouteTableAssociation (Val Text) -ectgrtaTransitGatewayRouteTableId = lens _eC2TransitGatewayRouteTableAssociationTransitGatewayRouteTableId (\s a -> s { _eC2TransitGatewayRouteTableAssociationTransitGatewayRouteTableId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2TransitGatewayRouteTablePropagation.hs b/library-gen/Stratosphere/Resources/EC2TransitGatewayRouteTablePropagation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2TransitGatewayRouteTablePropagation.hs +++ /dev/null @@ -1,51 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-transitgatewayroutetablepropagation.html - -module Stratosphere.Resources.EC2TransitGatewayRouteTablePropagation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2TransitGatewayRouteTablePropagation. See --- 'ec2TransitGatewayRouteTablePropagation' for a more convenient --- constructor. -data EC2TransitGatewayRouteTablePropagation = - EC2TransitGatewayRouteTablePropagation - { _eC2TransitGatewayRouteTablePropagationTransitGatewayAttachmentId :: Val Text - , _eC2TransitGatewayRouteTablePropagationTransitGatewayRouteTableId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2TransitGatewayRouteTablePropagation where - toResourceProperties EC2TransitGatewayRouteTablePropagation{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::TransitGatewayRouteTablePropagation" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("TransitGatewayAttachmentId",) . toJSON) _eC2TransitGatewayRouteTablePropagationTransitGatewayAttachmentId - , (Just . ("TransitGatewayRouteTableId",) . toJSON) _eC2TransitGatewayRouteTablePropagationTransitGatewayRouteTableId - ] - } - --- | Constructor for 'EC2TransitGatewayRouteTablePropagation' containing --- required fields as arguments. -ec2TransitGatewayRouteTablePropagation - :: Val Text -- ^ 'ectgrtpTransitGatewayAttachmentId' - -> Val Text -- ^ 'ectgrtpTransitGatewayRouteTableId' - -> EC2TransitGatewayRouteTablePropagation -ec2TransitGatewayRouteTablePropagation transitGatewayAttachmentIdarg transitGatewayRouteTableIdarg = - EC2TransitGatewayRouteTablePropagation - { _eC2TransitGatewayRouteTablePropagationTransitGatewayAttachmentId = transitGatewayAttachmentIdarg - , _eC2TransitGatewayRouteTablePropagationTransitGatewayRouteTableId = transitGatewayRouteTableIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-transitgatewayroutetablepropagation.html#cfn-ec2-transitgatewayroutetablepropagation-transitgatewayattachmentid -ectgrtpTransitGatewayAttachmentId :: Lens' EC2TransitGatewayRouteTablePropagation (Val Text) -ectgrtpTransitGatewayAttachmentId = lens _eC2TransitGatewayRouteTablePropagationTransitGatewayAttachmentId (\s a -> s { _eC2TransitGatewayRouteTablePropagationTransitGatewayAttachmentId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-transitgatewayroutetablepropagation.html#cfn-ec2-transitgatewayroutetablepropagation-transitgatewayroutetableid -ectgrtpTransitGatewayRouteTableId :: Lens' EC2TransitGatewayRouteTablePropagation (Val Text) -ectgrtpTransitGatewayRouteTableId = lens _eC2TransitGatewayRouteTablePropagationTransitGatewayRouteTableId (\s a -> s { _eC2TransitGatewayRouteTablePropagationTransitGatewayRouteTableId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2VPC.hs b/library-gen/Stratosphere/Resources/EC2VPC.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2VPC.hs +++ /dev/null @@ -1,69 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpc.html - -module Stratosphere.Resources.EC2VPC where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for EC2VPC. See 'ec2VPC' for a more convenient --- constructor. -data EC2VPC = - EC2VPC - { _eC2VPCCidrBlock :: Val Text - , _eC2VPCEnableDnsHostnames :: Maybe (Val Bool) - , _eC2VPCEnableDnsSupport :: Maybe (Val Bool) - , _eC2VPCInstanceTenancy :: Maybe (Val Text) - , _eC2VPCTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties EC2VPC where - toResourceProperties EC2VPC{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::VPC" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("CidrBlock",) . toJSON) _eC2VPCCidrBlock - , fmap (("EnableDnsHostnames",) . toJSON) _eC2VPCEnableDnsHostnames - , fmap (("EnableDnsSupport",) . toJSON) _eC2VPCEnableDnsSupport - , fmap (("InstanceTenancy",) . toJSON) _eC2VPCInstanceTenancy - , fmap (("Tags",) . toJSON) _eC2VPCTags - ] - } - --- | Constructor for 'EC2VPC' containing required fields as arguments. -ec2VPC - :: Val Text -- ^ 'ecvpcCidrBlock' - -> EC2VPC -ec2VPC cidrBlockarg = - EC2VPC - { _eC2VPCCidrBlock = cidrBlockarg - , _eC2VPCEnableDnsHostnames = Nothing - , _eC2VPCEnableDnsSupport = Nothing - , _eC2VPCInstanceTenancy = Nothing - , _eC2VPCTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpc.html#cfn-aws-ec2-vpc-cidrblock -ecvpcCidrBlock :: Lens' EC2VPC (Val Text) -ecvpcCidrBlock = lens _eC2VPCCidrBlock (\s a -> s { _eC2VPCCidrBlock = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpc.html#cfn-aws-ec2-vpc-EnableDnsHostnames -ecvpcEnableDnsHostnames :: Lens' EC2VPC (Maybe (Val Bool)) -ecvpcEnableDnsHostnames = lens _eC2VPCEnableDnsHostnames (\s a -> s { _eC2VPCEnableDnsHostnames = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpc.html#cfn-aws-ec2-vpc-EnableDnsSupport -ecvpcEnableDnsSupport :: Lens' EC2VPC (Maybe (Val Bool)) -ecvpcEnableDnsSupport = lens _eC2VPCEnableDnsSupport (\s a -> s { _eC2VPCEnableDnsSupport = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpc.html#cfn-aws-ec2-vpc-instancetenancy -ecvpcInstanceTenancy :: Lens' EC2VPC (Maybe (Val Text)) -ecvpcInstanceTenancy = lens _eC2VPCInstanceTenancy (\s a -> s { _eC2VPCInstanceTenancy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpc.html#cfn-aws-ec2-vpc-tags -ecvpcTags :: Lens' EC2VPC (Maybe [Tag]) -ecvpcTags = lens _eC2VPCTags (\s a -> s { _eC2VPCTags = a }) diff --git a/library-gen/Stratosphere/Resources/EC2VPCCidrBlock.hs b/library-gen/Stratosphere/Resources/EC2VPCCidrBlock.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2VPCCidrBlock.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpccidrblock.html - -module Stratosphere.Resources.EC2VPCCidrBlock where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2VPCCidrBlock. See 'ec2VPCCidrBlock' for --- a more convenient constructor. -data EC2VPCCidrBlock = - EC2VPCCidrBlock - { _eC2VPCCidrBlockAmazonProvidedIpv6CidrBlock :: Maybe (Val Bool) - , _eC2VPCCidrBlockCidrBlock :: Maybe (Val Text) - , _eC2VPCCidrBlockVpcId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2VPCCidrBlock where - toResourceProperties EC2VPCCidrBlock{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::VPCCidrBlock" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AmazonProvidedIpv6CidrBlock",) . toJSON) _eC2VPCCidrBlockAmazonProvidedIpv6CidrBlock - , fmap (("CidrBlock",) . toJSON) _eC2VPCCidrBlockCidrBlock - , (Just . ("VpcId",) . toJSON) _eC2VPCCidrBlockVpcId - ] - } - --- | Constructor for 'EC2VPCCidrBlock' containing required fields as --- arguments. -ec2VPCCidrBlock - :: Val Text -- ^ 'ecvpccbVpcId' - -> EC2VPCCidrBlock -ec2VPCCidrBlock vpcIdarg = - EC2VPCCidrBlock - { _eC2VPCCidrBlockAmazonProvidedIpv6CidrBlock = Nothing - , _eC2VPCCidrBlockCidrBlock = Nothing - , _eC2VPCCidrBlockVpcId = vpcIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpccidrblock.html#cfn-ec2-vpccidrblock-amazonprovidedipv6cidrblock -ecvpccbAmazonProvidedIpv6CidrBlock :: Lens' EC2VPCCidrBlock (Maybe (Val Bool)) -ecvpccbAmazonProvidedIpv6CidrBlock = lens _eC2VPCCidrBlockAmazonProvidedIpv6CidrBlock (\s a -> s { _eC2VPCCidrBlockAmazonProvidedIpv6CidrBlock = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpccidrblock.html#cfn-ec2-vpccidrblock-cidrblock -ecvpccbCidrBlock :: Lens' EC2VPCCidrBlock (Maybe (Val Text)) -ecvpccbCidrBlock = lens _eC2VPCCidrBlockCidrBlock (\s a -> s { _eC2VPCCidrBlockCidrBlock = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpccidrblock.html#cfn-ec2-vpccidrblock-vpcid -ecvpccbVpcId :: Lens' EC2VPCCidrBlock (Val Text) -ecvpccbVpcId = lens _eC2VPCCidrBlockVpcId (\s a -> s { _eC2VPCCidrBlockVpcId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2VPCDHCPOptionsAssociation.hs b/library-gen/Stratosphere/Resources/EC2VPCDHCPOptionsAssociation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2VPCDHCPOptionsAssociation.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpc-dhcp-options-assoc.html - -module Stratosphere.Resources.EC2VPCDHCPOptionsAssociation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2VPCDHCPOptionsAssociation. See --- 'ec2VPCDHCPOptionsAssociation' for a more convenient constructor. -data EC2VPCDHCPOptionsAssociation = - EC2VPCDHCPOptionsAssociation - { _eC2VPCDHCPOptionsAssociationDhcpOptionsId :: Val Text - , _eC2VPCDHCPOptionsAssociationVpcId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2VPCDHCPOptionsAssociation where - toResourceProperties EC2VPCDHCPOptionsAssociation{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::VPCDHCPOptionsAssociation" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("DhcpOptionsId",) . toJSON) _eC2VPCDHCPOptionsAssociationDhcpOptionsId - , (Just . ("VpcId",) . toJSON) _eC2VPCDHCPOptionsAssociationVpcId - ] - } - --- | Constructor for 'EC2VPCDHCPOptionsAssociation' containing required fields --- as arguments. -ec2VPCDHCPOptionsAssociation - :: Val Text -- ^ 'ecvpcdhcpoaDhcpOptionsId' - -> Val Text -- ^ 'ecvpcdhcpoaVpcId' - -> EC2VPCDHCPOptionsAssociation -ec2VPCDHCPOptionsAssociation dhcpOptionsIdarg vpcIdarg = - EC2VPCDHCPOptionsAssociation - { _eC2VPCDHCPOptionsAssociationDhcpOptionsId = dhcpOptionsIdarg - , _eC2VPCDHCPOptionsAssociationVpcId = vpcIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpc-dhcp-options-assoc.html#cfn-ec2-vpcdhcpoptionsassociation-dhcpoptionsid -ecvpcdhcpoaDhcpOptionsId :: Lens' EC2VPCDHCPOptionsAssociation (Val Text) -ecvpcdhcpoaDhcpOptionsId = lens _eC2VPCDHCPOptionsAssociationDhcpOptionsId (\s a -> s { _eC2VPCDHCPOptionsAssociationDhcpOptionsId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpc-dhcp-options-assoc.html#cfn-ec2-vpcdhcpoptionsassociation-vpcid -ecvpcdhcpoaVpcId :: Lens' EC2VPCDHCPOptionsAssociation (Val Text) -ecvpcdhcpoaVpcId = lens _eC2VPCDHCPOptionsAssociationVpcId (\s a -> s { _eC2VPCDHCPOptionsAssociationVpcId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2VPCEndpoint.hs b/library-gen/Stratosphere/Resources/EC2VPCEndpoint.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2VPCEndpoint.hs +++ /dev/null @@ -1,91 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpoint.html - -module Stratosphere.Resources.EC2VPCEndpoint where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2VPCEndpoint. See 'ec2VPCEndpoint' for a --- more convenient constructor. -data EC2VPCEndpoint = - EC2VPCEndpoint - { _eC2VPCEndpointPolicyDocument :: Maybe Object - , _eC2VPCEndpointPrivateDnsEnabled :: Maybe (Val Bool) - , _eC2VPCEndpointRouteTableIds :: Maybe (ValList Text) - , _eC2VPCEndpointSecurityGroupIds :: Maybe (ValList Text) - , _eC2VPCEndpointServiceName :: Val Text - , _eC2VPCEndpointSubnetIds :: Maybe (ValList Text) - , _eC2VPCEndpointVpcEndpointType :: Maybe (Val Text) - , _eC2VPCEndpointVpcId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2VPCEndpoint where - toResourceProperties EC2VPCEndpoint{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::VPCEndpoint" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("PolicyDocument",) . toJSON) _eC2VPCEndpointPolicyDocument - , fmap (("PrivateDnsEnabled",) . toJSON) _eC2VPCEndpointPrivateDnsEnabled - , fmap (("RouteTableIds",) . toJSON) _eC2VPCEndpointRouteTableIds - , fmap (("SecurityGroupIds",) . toJSON) _eC2VPCEndpointSecurityGroupIds - , (Just . ("ServiceName",) . toJSON) _eC2VPCEndpointServiceName - , fmap (("SubnetIds",) . toJSON) _eC2VPCEndpointSubnetIds - , fmap (("VpcEndpointType",) . toJSON) _eC2VPCEndpointVpcEndpointType - , (Just . ("VpcId",) . toJSON) _eC2VPCEndpointVpcId - ] - } - --- | Constructor for 'EC2VPCEndpoint' containing required fields as arguments. -ec2VPCEndpoint - :: Val Text -- ^ 'ecvpceServiceName' - -> Val Text -- ^ 'ecvpceVpcId' - -> EC2VPCEndpoint -ec2VPCEndpoint serviceNamearg vpcIdarg = - EC2VPCEndpoint - { _eC2VPCEndpointPolicyDocument = Nothing - , _eC2VPCEndpointPrivateDnsEnabled = Nothing - , _eC2VPCEndpointRouteTableIds = Nothing - , _eC2VPCEndpointSecurityGroupIds = Nothing - , _eC2VPCEndpointServiceName = serviceNamearg - , _eC2VPCEndpointSubnetIds = Nothing - , _eC2VPCEndpointVpcEndpointType = Nothing - , _eC2VPCEndpointVpcId = vpcIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpoint.html#cfn-ec2-vpcendpoint-policydocument -ecvpcePolicyDocument :: Lens' EC2VPCEndpoint (Maybe Object) -ecvpcePolicyDocument = lens _eC2VPCEndpointPolicyDocument (\s a -> s { _eC2VPCEndpointPolicyDocument = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpoint.html#cfn-ec2-vpcendpoint-privatednsenabled -ecvpcePrivateDnsEnabled :: Lens' EC2VPCEndpoint (Maybe (Val Bool)) -ecvpcePrivateDnsEnabled = lens _eC2VPCEndpointPrivateDnsEnabled (\s a -> s { _eC2VPCEndpointPrivateDnsEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpoint.html#cfn-ec2-vpcendpoint-routetableids -ecvpceRouteTableIds :: Lens' EC2VPCEndpoint (Maybe (ValList Text)) -ecvpceRouteTableIds = lens _eC2VPCEndpointRouteTableIds (\s a -> s { _eC2VPCEndpointRouteTableIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpoint.html#cfn-ec2-vpcendpoint-securitygroupids -ecvpceSecurityGroupIds :: Lens' EC2VPCEndpoint (Maybe (ValList Text)) -ecvpceSecurityGroupIds = lens _eC2VPCEndpointSecurityGroupIds (\s a -> s { _eC2VPCEndpointSecurityGroupIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpoint.html#cfn-ec2-vpcendpoint-servicename -ecvpceServiceName :: Lens' EC2VPCEndpoint (Val Text) -ecvpceServiceName = lens _eC2VPCEndpointServiceName (\s a -> s { _eC2VPCEndpointServiceName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpoint.html#cfn-ec2-vpcendpoint-subnetids -ecvpceSubnetIds :: Lens' EC2VPCEndpoint (Maybe (ValList Text)) -ecvpceSubnetIds = lens _eC2VPCEndpointSubnetIds (\s a -> s { _eC2VPCEndpointSubnetIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpoint.html#cfn-ec2-vpcendpoint-vpcendpointtype -ecvpceVpcEndpointType :: Lens' EC2VPCEndpoint (Maybe (Val Text)) -ecvpceVpcEndpointType = lens _eC2VPCEndpointVpcEndpointType (\s a -> s { _eC2VPCEndpointVpcEndpointType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpoint.html#cfn-ec2-vpcendpoint-vpcid -ecvpceVpcId :: Lens' EC2VPCEndpoint (Val Text) -ecvpceVpcId = lens _eC2VPCEndpointVpcId (\s a -> s { _eC2VPCEndpointVpcId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2VPCEndpointConnectionNotification.hs b/library-gen/Stratosphere/Resources/EC2VPCEndpointConnectionNotification.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2VPCEndpointConnectionNotification.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpointconnectionnotification.html - -module Stratosphere.Resources.EC2VPCEndpointConnectionNotification where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2VPCEndpointConnectionNotification. See --- 'ec2VPCEndpointConnectionNotification' for a more convenient constructor. -data EC2VPCEndpointConnectionNotification = - EC2VPCEndpointConnectionNotification - { _eC2VPCEndpointConnectionNotificationConnectionEvents :: ValList Text - , _eC2VPCEndpointConnectionNotificationConnectionNotificationArn :: Val Text - , _eC2VPCEndpointConnectionNotificationServiceId :: Maybe (Val Text) - , _eC2VPCEndpointConnectionNotificationVPCEndpointId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties EC2VPCEndpointConnectionNotification where - toResourceProperties EC2VPCEndpointConnectionNotification{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::VPCEndpointConnectionNotification" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ConnectionEvents",) . toJSON) _eC2VPCEndpointConnectionNotificationConnectionEvents - , (Just . ("ConnectionNotificationArn",) . toJSON) _eC2VPCEndpointConnectionNotificationConnectionNotificationArn - , fmap (("ServiceId",) . toJSON) _eC2VPCEndpointConnectionNotificationServiceId - , fmap (("VPCEndpointId",) . toJSON) _eC2VPCEndpointConnectionNotificationVPCEndpointId - ] - } - --- | Constructor for 'EC2VPCEndpointConnectionNotification' containing --- required fields as arguments. -ec2VPCEndpointConnectionNotification - :: ValList Text -- ^ 'ecvpcecnConnectionEvents' - -> Val Text -- ^ 'ecvpcecnConnectionNotificationArn' - -> EC2VPCEndpointConnectionNotification -ec2VPCEndpointConnectionNotification connectionEventsarg connectionNotificationArnarg = - EC2VPCEndpointConnectionNotification - { _eC2VPCEndpointConnectionNotificationConnectionEvents = connectionEventsarg - , _eC2VPCEndpointConnectionNotificationConnectionNotificationArn = connectionNotificationArnarg - , _eC2VPCEndpointConnectionNotificationServiceId = Nothing - , _eC2VPCEndpointConnectionNotificationVPCEndpointId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpointconnectionnotification.html#cfn-ec2-vpcendpointconnectionnotification-connectionevents -ecvpcecnConnectionEvents :: Lens' EC2VPCEndpointConnectionNotification (ValList Text) -ecvpcecnConnectionEvents = lens _eC2VPCEndpointConnectionNotificationConnectionEvents (\s a -> s { _eC2VPCEndpointConnectionNotificationConnectionEvents = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpointconnectionnotification.html#cfn-ec2-vpcendpointconnectionnotification-connectionnotificationarn -ecvpcecnConnectionNotificationArn :: Lens' EC2VPCEndpointConnectionNotification (Val Text) -ecvpcecnConnectionNotificationArn = lens _eC2VPCEndpointConnectionNotificationConnectionNotificationArn (\s a -> s { _eC2VPCEndpointConnectionNotificationConnectionNotificationArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpointconnectionnotification.html#cfn-ec2-vpcendpointconnectionnotification-serviceid -ecvpcecnServiceId :: Lens' EC2VPCEndpointConnectionNotification (Maybe (Val Text)) -ecvpcecnServiceId = lens _eC2VPCEndpointConnectionNotificationServiceId (\s a -> s { _eC2VPCEndpointConnectionNotificationServiceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpointconnectionnotification.html#cfn-ec2-vpcendpointconnectionnotification-vpcendpointid -ecvpcecnVPCEndpointId :: Lens' EC2VPCEndpointConnectionNotification (Maybe (Val Text)) -ecvpcecnVPCEndpointId = lens _eC2VPCEndpointConnectionNotificationVPCEndpointId (\s a -> s { _eC2VPCEndpointConnectionNotificationVPCEndpointId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2VPCEndpointService.hs b/library-gen/Stratosphere/Resources/EC2VPCEndpointService.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2VPCEndpointService.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpointservice.html - -module Stratosphere.Resources.EC2VPCEndpointService where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2VPCEndpointService. See --- 'ec2VPCEndpointService' for a more convenient constructor. -data EC2VPCEndpointService = - EC2VPCEndpointService - { _eC2VPCEndpointServiceAcceptanceRequired :: Maybe (Val Bool) - , _eC2VPCEndpointServiceNetworkLoadBalancerArns :: ValList Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2VPCEndpointService where - toResourceProperties EC2VPCEndpointService{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::VPCEndpointService" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AcceptanceRequired",) . toJSON) _eC2VPCEndpointServiceAcceptanceRequired - , (Just . ("NetworkLoadBalancerArns",) . toJSON) _eC2VPCEndpointServiceNetworkLoadBalancerArns - ] - } - --- | Constructor for 'EC2VPCEndpointService' containing required fields as --- arguments. -ec2VPCEndpointService - :: ValList Text -- ^ 'ecvpcesNetworkLoadBalancerArns' - -> EC2VPCEndpointService -ec2VPCEndpointService networkLoadBalancerArnsarg = - EC2VPCEndpointService - { _eC2VPCEndpointServiceAcceptanceRequired = Nothing - , _eC2VPCEndpointServiceNetworkLoadBalancerArns = networkLoadBalancerArnsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpointservice.html#cfn-ec2-vpcendpointservice-acceptancerequired -ecvpcesAcceptanceRequired :: Lens' EC2VPCEndpointService (Maybe (Val Bool)) -ecvpcesAcceptanceRequired = lens _eC2VPCEndpointServiceAcceptanceRequired (\s a -> s { _eC2VPCEndpointServiceAcceptanceRequired = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpointservice.html#cfn-ec2-vpcendpointservice-networkloadbalancerarns -ecvpcesNetworkLoadBalancerArns :: Lens' EC2VPCEndpointService (ValList Text) -ecvpcesNetworkLoadBalancerArns = lens _eC2VPCEndpointServiceNetworkLoadBalancerArns (\s a -> s { _eC2VPCEndpointServiceNetworkLoadBalancerArns = a }) diff --git a/library-gen/Stratosphere/Resources/EC2VPCEndpointServicePermissions.hs b/library-gen/Stratosphere/Resources/EC2VPCEndpointServicePermissions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2VPCEndpointServicePermissions.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpointservicepermissions.html - -module Stratosphere.Resources.EC2VPCEndpointServicePermissions where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2VPCEndpointServicePermissions. See --- 'ec2VPCEndpointServicePermissions' for a more convenient constructor. -data EC2VPCEndpointServicePermissions = - EC2VPCEndpointServicePermissions - { _eC2VPCEndpointServicePermissionsAllowedPrincipals :: Maybe (ValList Text) - , _eC2VPCEndpointServicePermissionsServiceId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2VPCEndpointServicePermissions where - toResourceProperties EC2VPCEndpointServicePermissions{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::VPCEndpointServicePermissions" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AllowedPrincipals",) . toJSON) _eC2VPCEndpointServicePermissionsAllowedPrincipals - , (Just . ("ServiceId",) . toJSON) _eC2VPCEndpointServicePermissionsServiceId - ] - } - --- | Constructor for 'EC2VPCEndpointServicePermissions' containing required --- fields as arguments. -ec2VPCEndpointServicePermissions - :: Val Text -- ^ 'ecvpcespServiceId' - -> EC2VPCEndpointServicePermissions -ec2VPCEndpointServicePermissions serviceIdarg = - EC2VPCEndpointServicePermissions - { _eC2VPCEndpointServicePermissionsAllowedPrincipals = Nothing - , _eC2VPCEndpointServicePermissionsServiceId = serviceIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpointservicepermissions.html#cfn-ec2-vpcendpointservicepermissions-allowedprincipals -ecvpcespAllowedPrincipals :: Lens' EC2VPCEndpointServicePermissions (Maybe (ValList Text)) -ecvpcespAllowedPrincipals = lens _eC2VPCEndpointServicePermissionsAllowedPrincipals (\s a -> s { _eC2VPCEndpointServicePermissionsAllowedPrincipals = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpointservicepermissions.html#cfn-ec2-vpcendpointservicepermissions-serviceid -ecvpcespServiceId :: Lens' EC2VPCEndpointServicePermissions (Val Text) -ecvpcespServiceId = lens _eC2VPCEndpointServicePermissionsServiceId (\s a -> s { _eC2VPCEndpointServicePermissionsServiceId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2VPCGatewayAttachment.hs b/library-gen/Stratosphere/Resources/EC2VPCGatewayAttachment.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2VPCGatewayAttachment.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpc-gateway-attachment.html - -module Stratosphere.Resources.EC2VPCGatewayAttachment where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2VPCGatewayAttachment. See --- 'ec2VPCGatewayAttachment' for a more convenient constructor. -data EC2VPCGatewayAttachment = - EC2VPCGatewayAttachment - { _eC2VPCGatewayAttachmentInternetGatewayId :: Maybe (Val Text) - , _eC2VPCGatewayAttachmentVpcId :: Val Text - , _eC2VPCGatewayAttachmentVpnGatewayId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties EC2VPCGatewayAttachment where - toResourceProperties EC2VPCGatewayAttachment{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::VPCGatewayAttachment" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("InternetGatewayId",) . toJSON) _eC2VPCGatewayAttachmentInternetGatewayId - , (Just . ("VpcId",) . toJSON) _eC2VPCGatewayAttachmentVpcId - , fmap (("VpnGatewayId",) . toJSON) _eC2VPCGatewayAttachmentVpnGatewayId - ] - } - --- | Constructor for 'EC2VPCGatewayAttachment' containing required fields as --- arguments. -ec2VPCGatewayAttachment - :: Val Text -- ^ 'ecvpcgaVpcId' - -> EC2VPCGatewayAttachment -ec2VPCGatewayAttachment vpcIdarg = - EC2VPCGatewayAttachment - { _eC2VPCGatewayAttachmentInternetGatewayId = Nothing - , _eC2VPCGatewayAttachmentVpcId = vpcIdarg - , _eC2VPCGatewayAttachmentVpnGatewayId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpc-gateway-attachment.html#cfn-ec2-vpcgatewayattachment-internetgatewayid -ecvpcgaInternetGatewayId :: Lens' EC2VPCGatewayAttachment (Maybe (Val Text)) -ecvpcgaInternetGatewayId = lens _eC2VPCGatewayAttachmentInternetGatewayId (\s a -> s { _eC2VPCGatewayAttachmentInternetGatewayId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpc-gateway-attachment.html#cfn-ec2-vpcgatewayattachment-vpcid -ecvpcgaVpcId :: Lens' EC2VPCGatewayAttachment (Val Text) -ecvpcgaVpcId = lens _eC2VPCGatewayAttachmentVpcId (\s a -> s { _eC2VPCGatewayAttachmentVpcId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpc-gateway-attachment.html#cfn-ec2-vpcgatewayattachment-vpngatewayid -ecvpcgaVpnGatewayId :: Lens' EC2VPCGatewayAttachment (Maybe (Val Text)) -ecvpcgaVpnGatewayId = lens _eC2VPCGatewayAttachmentVpnGatewayId (\s a -> s { _eC2VPCGatewayAttachmentVpnGatewayId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2VPCPeeringConnection.hs b/library-gen/Stratosphere/Resources/EC2VPCPeeringConnection.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2VPCPeeringConnection.hs +++ /dev/null @@ -1,78 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcpeeringconnection.html - -module Stratosphere.Resources.EC2VPCPeeringConnection where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for EC2VPCPeeringConnection. See --- 'ec2VPCPeeringConnection' for a more convenient constructor. -data EC2VPCPeeringConnection = - EC2VPCPeeringConnection - { _eC2VPCPeeringConnectionPeerOwnerId :: Maybe (Val Text) - , _eC2VPCPeeringConnectionPeerRegion :: Maybe (Val Text) - , _eC2VPCPeeringConnectionPeerRoleArn :: Maybe (Val Text) - , _eC2VPCPeeringConnectionPeerVpcId :: Val Text - , _eC2VPCPeeringConnectionTags :: Maybe [Tag] - , _eC2VPCPeeringConnectionVpcId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2VPCPeeringConnection where - toResourceProperties EC2VPCPeeringConnection{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::VPCPeeringConnection" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("PeerOwnerId",) . toJSON) _eC2VPCPeeringConnectionPeerOwnerId - , fmap (("PeerRegion",) . toJSON) _eC2VPCPeeringConnectionPeerRegion - , fmap (("PeerRoleArn",) . toJSON) _eC2VPCPeeringConnectionPeerRoleArn - , (Just . ("PeerVpcId",) . toJSON) _eC2VPCPeeringConnectionPeerVpcId - , fmap (("Tags",) . toJSON) _eC2VPCPeeringConnectionTags - , (Just . ("VpcId",) . toJSON) _eC2VPCPeeringConnectionVpcId - ] - } - --- | Constructor for 'EC2VPCPeeringConnection' containing required fields as --- arguments. -ec2VPCPeeringConnection - :: Val Text -- ^ 'ecvpcpcPeerVpcId' - -> Val Text -- ^ 'ecvpcpcVpcId' - -> EC2VPCPeeringConnection -ec2VPCPeeringConnection peerVpcIdarg vpcIdarg = - EC2VPCPeeringConnection - { _eC2VPCPeeringConnectionPeerOwnerId = Nothing - , _eC2VPCPeeringConnectionPeerRegion = Nothing - , _eC2VPCPeeringConnectionPeerRoleArn = Nothing - , _eC2VPCPeeringConnectionPeerVpcId = peerVpcIdarg - , _eC2VPCPeeringConnectionTags = Nothing - , _eC2VPCPeeringConnectionVpcId = vpcIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcpeeringconnection.html#cfn-ec2-vpcpeeringconnection-peerownerid -ecvpcpcPeerOwnerId :: Lens' EC2VPCPeeringConnection (Maybe (Val Text)) -ecvpcpcPeerOwnerId = lens _eC2VPCPeeringConnectionPeerOwnerId (\s a -> s { _eC2VPCPeeringConnectionPeerOwnerId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcpeeringconnection.html#cfn-ec2-vpcpeeringconnection-peerregion -ecvpcpcPeerRegion :: Lens' EC2VPCPeeringConnection (Maybe (Val Text)) -ecvpcpcPeerRegion = lens _eC2VPCPeeringConnectionPeerRegion (\s a -> s { _eC2VPCPeeringConnectionPeerRegion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcpeeringconnection.html#cfn-ec2-vpcpeeringconnection-peerrolearn -ecvpcpcPeerRoleArn :: Lens' EC2VPCPeeringConnection (Maybe (Val Text)) -ecvpcpcPeerRoleArn = lens _eC2VPCPeeringConnectionPeerRoleArn (\s a -> s { _eC2VPCPeeringConnectionPeerRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcpeeringconnection.html#cfn-ec2-vpcpeeringconnection-peervpcid -ecvpcpcPeerVpcId :: Lens' EC2VPCPeeringConnection (Val Text) -ecvpcpcPeerVpcId = lens _eC2VPCPeeringConnectionPeerVpcId (\s a -> s { _eC2VPCPeeringConnectionPeerVpcId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcpeeringconnection.html#cfn-ec2-vpcpeeringconnection-tags -ecvpcpcTags :: Lens' EC2VPCPeeringConnection (Maybe [Tag]) -ecvpcpcTags = lens _eC2VPCPeeringConnectionTags (\s a -> s { _eC2VPCPeeringConnectionTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcpeeringconnection.html#cfn-ec2-vpcpeeringconnection-vpcid -ecvpcpcVpcId :: Lens' EC2VPCPeeringConnection (Val Text) -ecvpcpcVpcId = lens _eC2VPCPeeringConnectionVpcId (\s a -> s { _eC2VPCPeeringConnectionVpcId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2VPNConnection.hs b/library-gen/Stratosphere/Resources/EC2VPNConnection.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2VPNConnection.hs +++ /dev/null @@ -1,86 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpn-connection.html - -module Stratosphere.Resources.EC2VPNConnection where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag -import Stratosphere.ResourceProperties.EC2VPNConnectionVpnTunnelOptionsSpecification - --- | Full data type definition for EC2VPNConnection. See 'ec2VPNConnection' --- for a more convenient constructor. -data EC2VPNConnection = - EC2VPNConnection - { _eC2VPNConnectionCustomerGatewayId :: Val Text - , _eC2VPNConnectionStaticRoutesOnly :: Maybe (Val Bool) - , _eC2VPNConnectionTags :: Maybe [Tag] - , _eC2VPNConnectionTransitGatewayId :: Maybe (Val Text) - , _eC2VPNConnectionType :: Val Text - , _eC2VPNConnectionVpnGatewayId :: Maybe (Val Text) - , _eC2VPNConnectionVpnTunnelOptionsSpecifications :: Maybe [EC2VPNConnectionVpnTunnelOptionsSpecification] - } deriving (Show, Eq) - -instance ToResourceProperties EC2VPNConnection where - toResourceProperties EC2VPNConnection{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::VPNConnection" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("CustomerGatewayId",) . toJSON) _eC2VPNConnectionCustomerGatewayId - , fmap (("StaticRoutesOnly",) . toJSON) _eC2VPNConnectionStaticRoutesOnly - , fmap (("Tags",) . toJSON) _eC2VPNConnectionTags - , fmap (("TransitGatewayId",) . toJSON) _eC2VPNConnectionTransitGatewayId - , (Just . ("Type",) . toJSON) _eC2VPNConnectionType - , fmap (("VpnGatewayId",) . toJSON) _eC2VPNConnectionVpnGatewayId - , fmap (("VpnTunnelOptionsSpecifications",) . toJSON) _eC2VPNConnectionVpnTunnelOptionsSpecifications - ] - } - --- | Constructor for 'EC2VPNConnection' containing required fields as --- arguments. -ec2VPNConnection - :: Val Text -- ^ 'ecvpncCustomerGatewayId' - -> Val Text -- ^ 'ecvpncType' - -> EC2VPNConnection -ec2VPNConnection customerGatewayIdarg typearg = - EC2VPNConnection - { _eC2VPNConnectionCustomerGatewayId = customerGatewayIdarg - , _eC2VPNConnectionStaticRoutesOnly = Nothing - , _eC2VPNConnectionTags = Nothing - , _eC2VPNConnectionTransitGatewayId = Nothing - , _eC2VPNConnectionType = typearg - , _eC2VPNConnectionVpnGatewayId = Nothing - , _eC2VPNConnectionVpnTunnelOptionsSpecifications = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpn-connection.html#cfn-ec2-vpnconnection-customergatewayid -ecvpncCustomerGatewayId :: Lens' EC2VPNConnection (Val Text) -ecvpncCustomerGatewayId = lens _eC2VPNConnectionCustomerGatewayId (\s a -> s { _eC2VPNConnectionCustomerGatewayId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpn-connection.html#cfn-ec2-vpnconnection-StaticRoutesOnly -ecvpncStaticRoutesOnly :: Lens' EC2VPNConnection (Maybe (Val Bool)) -ecvpncStaticRoutesOnly = lens _eC2VPNConnectionStaticRoutesOnly (\s a -> s { _eC2VPNConnectionStaticRoutesOnly = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpn-connection.html#cfn-ec2-vpnconnection-tags -ecvpncTags :: Lens' EC2VPNConnection (Maybe [Tag]) -ecvpncTags = lens _eC2VPNConnectionTags (\s a -> s { _eC2VPNConnectionTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpn-connection.html#cfn-ec2-vpnconnection-transitgatewayid -ecvpncTransitGatewayId :: Lens' EC2VPNConnection (Maybe (Val Text)) -ecvpncTransitGatewayId = lens _eC2VPNConnectionTransitGatewayId (\s a -> s { _eC2VPNConnectionTransitGatewayId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpn-connection.html#cfn-ec2-vpnconnection-type -ecvpncType :: Lens' EC2VPNConnection (Val Text) -ecvpncType = lens _eC2VPNConnectionType (\s a -> s { _eC2VPNConnectionType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpn-connection.html#cfn-ec2-vpnconnection-vpngatewayid -ecvpncVpnGatewayId :: Lens' EC2VPNConnection (Maybe (Val Text)) -ecvpncVpnGatewayId = lens _eC2VPNConnectionVpnGatewayId (\s a -> s { _eC2VPNConnectionVpnGatewayId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpn-connection.html#cfn-ec2-vpnconnection-vpntunneloptionsspecifications -ecvpncVpnTunnelOptionsSpecifications :: Lens' EC2VPNConnection (Maybe [EC2VPNConnectionVpnTunnelOptionsSpecification]) -ecvpncVpnTunnelOptionsSpecifications = lens _eC2VPNConnectionVpnTunnelOptionsSpecifications (\s a -> s { _eC2VPNConnectionVpnTunnelOptionsSpecifications = a }) diff --git a/library-gen/Stratosphere/Resources/EC2VPNConnectionRoute.hs b/library-gen/Stratosphere/Resources/EC2VPNConnectionRoute.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2VPNConnectionRoute.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpn-connection-route.html - -module Stratosphere.Resources.EC2VPNConnectionRoute where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2VPNConnectionRoute. See --- 'ec2VPNConnectionRoute' for a more convenient constructor. -data EC2VPNConnectionRoute = - EC2VPNConnectionRoute - { _eC2VPNConnectionRouteDestinationCidrBlock :: Val Text - , _eC2VPNConnectionRouteVpnConnectionId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2VPNConnectionRoute where - toResourceProperties EC2VPNConnectionRoute{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::VPNConnectionRoute" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("DestinationCidrBlock",) . toJSON) _eC2VPNConnectionRouteDestinationCidrBlock - , (Just . ("VpnConnectionId",) . toJSON) _eC2VPNConnectionRouteVpnConnectionId - ] - } - --- | Constructor for 'EC2VPNConnectionRoute' containing required fields as --- arguments. -ec2VPNConnectionRoute - :: Val Text -- ^ 'ecvpncrDestinationCidrBlock' - -> Val Text -- ^ 'ecvpncrVpnConnectionId' - -> EC2VPNConnectionRoute -ec2VPNConnectionRoute destinationCidrBlockarg vpnConnectionIdarg = - EC2VPNConnectionRoute - { _eC2VPNConnectionRouteDestinationCidrBlock = destinationCidrBlockarg - , _eC2VPNConnectionRouteVpnConnectionId = vpnConnectionIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpn-connection-route.html#cfn-ec2-vpnconnectionroute-cidrblock -ecvpncrDestinationCidrBlock :: Lens' EC2VPNConnectionRoute (Val Text) -ecvpncrDestinationCidrBlock = lens _eC2VPNConnectionRouteDestinationCidrBlock (\s a -> s { _eC2VPNConnectionRouteDestinationCidrBlock = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpn-connection-route.html#cfn-ec2-vpnconnectionroute-connectionid -ecvpncrVpnConnectionId :: Lens' EC2VPNConnectionRoute (Val Text) -ecvpncrVpnConnectionId = lens _eC2VPNConnectionRouteVpnConnectionId (\s a -> s { _eC2VPNConnectionRouteVpnConnectionId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2VPNGateway.hs b/library-gen/Stratosphere/Resources/EC2VPNGateway.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2VPNGateway.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpn-gateway.html - -module Stratosphere.Resources.EC2VPNGateway where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for EC2VPNGateway. See 'ec2VPNGateway' for a --- more convenient constructor. -data EC2VPNGateway = - EC2VPNGateway - { _eC2VPNGatewayAmazonSideAsn :: Maybe (Val Integer) - , _eC2VPNGatewayTags :: Maybe [Tag] - , _eC2VPNGatewayType :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2VPNGateway where - toResourceProperties EC2VPNGateway{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::VPNGateway" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AmazonSideAsn",) . toJSON) _eC2VPNGatewayAmazonSideAsn - , fmap (("Tags",) . toJSON) _eC2VPNGatewayTags - , (Just . ("Type",) . toJSON) _eC2VPNGatewayType - ] - } - --- | Constructor for 'EC2VPNGateway' containing required fields as arguments. -ec2VPNGateway - :: Val Text -- ^ 'ecvpngType' - -> EC2VPNGateway -ec2VPNGateway typearg = - EC2VPNGateway - { _eC2VPNGatewayAmazonSideAsn = Nothing - , _eC2VPNGatewayTags = Nothing - , _eC2VPNGatewayType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpn-gateway.html#cfn-ec2-vpngateway-amazonsideasn -ecvpngAmazonSideAsn :: Lens' EC2VPNGateway (Maybe (Val Integer)) -ecvpngAmazonSideAsn = lens _eC2VPNGatewayAmazonSideAsn (\s a -> s { _eC2VPNGatewayAmazonSideAsn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpn-gateway.html#cfn-ec2-vpngateway-tags -ecvpngTags :: Lens' EC2VPNGateway (Maybe [Tag]) -ecvpngTags = lens _eC2VPNGatewayTags (\s a -> s { _eC2VPNGatewayTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpn-gateway.html#cfn-ec2-vpngateway-type -ecvpngType :: Lens' EC2VPNGateway (Val Text) -ecvpngType = lens _eC2VPNGatewayType (\s a -> s { _eC2VPNGatewayType = a }) diff --git a/library-gen/Stratosphere/Resources/EC2VPNGatewayRoutePropagation.hs b/library-gen/Stratosphere/Resources/EC2VPNGatewayRoutePropagation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2VPNGatewayRoutePropagation.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpn-gatewayrouteprop.html - -module Stratosphere.Resources.EC2VPNGatewayRoutePropagation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2VPNGatewayRoutePropagation. See --- 'ec2VPNGatewayRoutePropagation' for a more convenient constructor. -data EC2VPNGatewayRoutePropagation = - EC2VPNGatewayRoutePropagation - { _eC2VPNGatewayRoutePropagationRouteTableIds :: ValList Text - , _eC2VPNGatewayRoutePropagationVpnGatewayId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2VPNGatewayRoutePropagation where - toResourceProperties EC2VPNGatewayRoutePropagation{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::VPNGatewayRoutePropagation" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("RouteTableIds",) . toJSON) _eC2VPNGatewayRoutePropagationRouteTableIds - , (Just . ("VpnGatewayId",) . toJSON) _eC2VPNGatewayRoutePropagationVpnGatewayId - ] - } - --- | Constructor for 'EC2VPNGatewayRoutePropagation' containing required --- fields as arguments. -ec2VPNGatewayRoutePropagation - :: ValList Text -- ^ 'ecvpngrpRouteTableIds' - -> Val Text -- ^ 'ecvpngrpVpnGatewayId' - -> EC2VPNGatewayRoutePropagation -ec2VPNGatewayRoutePropagation routeTableIdsarg vpnGatewayIdarg = - EC2VPNGatewayRoutePropagation - { _eC2VPNGatewayRoutePropagationRouteTableIds = routeTableIdsarg - , _eC2VPNGatewayRoutePropagationVpnGatewayId = vpnGatewayIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpn-gatewayrouteprop.html#cfn-ec2-vpngatewayrouteprop-routetableids -ecvpngrpRouteTableIds :: Lens' EC2VPNGatewayRoutePropagation (ValList Text) -ecvpngrpRouteTableIds = lens _eC2VPNGatewayRoutePropagationRouteTableIds (\s a -> s { _eC2VPNGatewayRoutePropagationRouteTableIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpn-gatewayrouteprop.html#cfn-ec2-vpngatewayrouteprop-vpngatewayid -ecvpngrpVpnGatewayId :: Lens' EC2VPNGatewayRoutePropagation (Val Text) -ecvpngrpVpnGatewayId = lens _eC2VPNGatewayRoutePropagationVpnGatewayId (\s a -> s { _eC2VPNGatewayRoutePropagationVpnGatewayId = a }) diff --git a/library-gen/Stratosphere/Resources/EC2Volume.hs b/library-gen/Stratosphere/Resources/EC2Volume.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2Volume.hs +++ /dev/null @@ -1,111 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ebs-volume.html - -module Stratosphere.Resources.EC2Volume where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for EC2Volume. See 'ec2Volume' for a more --- convenient constructor. -data EC2Volume = - EC2Volume - { _eC2VolumeAutoEnableIO :: Maybe (Val Bool) - , _eC2VolumeAvailabilityZone :: Val Text - , _eC2VolumeEncrypted :: Maybe (Val Bool) - , _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] - , _eC2VolumeVolumeType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties EC2Volume where - toResourceProperties EC2Volume{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::Volume" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AutoEnableIO",) . toJSON) _eC2VolumeAutoEnableIO - , (Just . ("AvailabilityZone",) . toJSON) _eC2VolumeAvailabilityZone - , fmap (("Encrypted",) . toJSON) _eC2VolumeEncrypted - , 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 - , fmap (("VolumeType",) . toJSON) _eC2VolumeVolumeType - ] - } - --- | Constructor for 'EC2Volume' containing required fields as arguments. -ec2Volume - :: Val Text -- ^ 'ecvAvailabilityZone' - -> EC2Volume -ec2Volume availabilityZonearg = - EC2Volume - { _eC2VolumeAutoEnableIO = Nothing - , _eC2VolumeAvailabilityZone = availabilityZonearg - , _eC2VolumeEncrypted = Nothing - , _eC2VolumeIops = Nothing - , _eC2VolumeKmsKeyId = Nothing - , _eC2VolumeMultiAttachEnabled = Nothing - , _eC2VolumeOutpostArn = Nothing - , _eC2VolumeSize = Nothing - , _eC2VolumeSnapshotId = Nothing - , _eC2VolumeTags = Nothing - , _eC2VolumeVolumeType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ebs-volume.html#cfn-ec2-ebs-volume-autoenableio -ecvAutoEnableIO :: Lens' EC2Volume (Maybe (Val Bool)) -ecvAutoEnableIO = lens _eC2VolumeAutoEnableIO (\s a -> s { _eC2VolumeAutoEnableIO = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ebs-volume.html#cfn-ec2-ebs-volume-availabilityzone -ecvAvailabilityZone :: Lens' EC2Volume (Val Text) -ecvAvailabilityZone = lens _eC2VolumeAvailabilityZone (\s a -> s { _eC2VolumeAvailabilityZone = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ebs-volume.html#cfn-ec2-ebs-volume-encrypted -ecvEncrypted :: Lens' EC2Volume (Maybe (Val Bool)) -ecvEncrypted = lens _eC2VolumeEncrypted (\s a -> s { _eC2VolumeEncrypted = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ebs-volume.html#cfn-ec2-ebs-volume-iops -ecvIops :: Lens' EC2Volume (Maybe (Val Integer)) -ecvIops = lens _eC2VolumeIops (\s a -> s { _eC2VolumeIops = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ebs-volume.html#cfn-ec2-ebs-volume-kmskeyid -ecvKmsKeyId :: Lens' EC2Volume (Maybe (Val Text)) -ecvKmsKeyId = lens _eC2VolumeKmsKeyId (\s a -> s { _eC2VolumeKmsKeyId = a }) - --- | 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)) -ecvSize = lens _eC2VolumeSize (\s a -> s { _eC2VolumeSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ebs-volume.html#cfn-ec2-ebs-volume-snapshotid -ecvSnapshotId :: Lens' EC2Volume (Maybe (Val Text)) -ecvSnapshotId = lens _eC2VolumeSnapshotId (\s a -> s { _eC2VolumeSnapshotId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ebs-volume.html#cfn-ec2-ebs-volume-tags -ecvTags :: Lens' EC2Volume (Maybe [Tag]) -ecvTags = lens _eC2VolumeTags (\s a -> s { _eC2VolumeTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ebs-volume.html#cfn-ec2-ebs-volume-volumetype -ecvVolumeType :: Lens' EC2Volume (Maybe (Val Text)) -ecvVolumeType = lens _eC2VolumeVolumeType (\s a -> s { _eC2VolumeVolumeType = a }) diff --git a/library-gen/Stratosphere/Resources/EC2VolumeAttachment.hs b/library-gen/Stratosphere/Resources/EC2VolumeAttachment.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EC2VolumeAttachment.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ebs-volumeattachment.html - -module Stratosphere.Resources.EC2VolumeAttachment where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EC2VolumeAttachment. See --- 'ec2VolumeAttachment' for a more convenient constructor. -data EC2VolumeAttachment = - EC2VolumeAttachment - { _eC2VolumeAttachmentDevice :: Val Text - , _eC2VolumeAttachmentInstanceId :: Val Text - , _eC2VolumeAttachmentVolumeId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EC2VolumeAttachment where - toResourceProperties EC2VolumeAttachment{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EC2::VolumeAttachment" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Device",) . toJSON) _eC2VolumeAttachmentDevice - , (Just . ("InstanceId",) . toJSON) _eC2VolumeAttachmentInstanceId - , (Just . ("VolumeId",) . toJSON) _eC2VolumeAttachmentVolumeId - ] - } - --- | Constructor for 'EC2VolumeAttachment' containing required fields as --- arguments. -ec2VolumeAttachment - :: Val Text -- ^ 'ecvaDevice' - -> Val Text -- ^ 'ecvaInstanceId' - -> Val Text -- ^ 'ecvaVolumeId' - -> EC2VolumeAttachment -ec2VolumeAttachment devicearg instanceIdarg volumeIdarg = - EC2VolumeAttachment - { _eC2VolumeAttachmentDevice = devicearg - , _eC2VolumeAttachmentInstanceId = instanceIdarg - , _eC2VolumeAttachmentVolumeId = volumeIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ebs-volumeattachment.html#cfn-ec2-ebs-volumeattachment-device -ecvaDevice :: Lens' EC2VolumeAttachment (Val Text) -ecvaDevice = lens _eC2VolumeAttachmentDevice (\s a -> s { _eC2VolumeAttachmentDevice = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ebs-volumeattachment.html#cfn-ec2-ebs-volumeattachment-instanceid -ecvaInstanceId :: Lens' EC2VolumeAttachment (Val Text) -ecvaInstanceId = lens _eC2VolumeAttachmentInstanceId (\s a -> s { _eC2VolumeAttachmentInstanceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-ebs-volumeattachment.html#cfn-ec2-ebs-volumeattachment-volumeid -ecvaVolumeId :: Lens' EC2VolumeAttachment (Val Text) -ecvaVolumeId = lens _eC2VolumeAttachmentVolumeId (\s a -> s { _eC2VolumeAttachmentVolumeId = a }) diff --git a/library-gen/Stratosphere/Resources/ECRRepository.hs b/library-gen/Stratosphere/Resources/ECRRepository.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ECRRepository.hs +++ /dev/null @@ -1,75 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecr-repository.html - -module Stratosphere.Resources.ECRRepository where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for ECRRepository. See 'ecrRepository' for a --- more convenient constructor. -data ECRRepository = - ECRRepository - { _eCRRepositoryImageScanningConfiguration :: Maybe Object - , _eCRRepositoryImageTagMutability :: Maybe (Val Text) - , _eCRRepositoryLifecyclePolicy :: Maybe Object - , _eCRRepositoryRepositoryName :: Maybe (Val Text) - , _eCRRepositoryRepositoryPolicyText :: Maybe Object - , _eCRRepositoryTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties ECRRepository where - toResourceProperties ECRRepository{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ECR::Repository" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ImageScanningConfiguration",) . toJSON) _eCRRepositoryImageScanningConfiguration - , fmap (("ImageTagMutability",) . toJSON) _eCRRepositoryImageTagMutability - , fmap (("LifecyclePolicy",) . toJSON) _eCRRepositoryLifecyclePolicy - , fmap (("RepositoryName",) . toJSON) _eCRRepositoryRepositoryName - , fmap (("RepositoryPolicyText",) . toJSON) _eCRRepositoryRepositoryPolicyText - , fmap (("Tags",) . toJSON) _eCRRepositoryTags - ] - } - --- | Constructor for 'ECRRepository' containing required fields as arguments. -ecrRepository - :: ECRRepository -ecrRepository = - ECRRepository - { _eCRRepositoryImageScanningConfiguration = Nothing - , _eCRRepositoryImageTagMutability = Nothing - , _eCRRepositoryLifecyclePolicy = Nothing - , _eCRRepositoryRepositoryName = Nothing - , _eCRRepositoryRepositoryPolicyText = Nothing - , _eCRRepositoryTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecr-repository.html#cfn-ecr-repository-imagescanningconfiguration -ecrrImageScanningConfiguration :: Lens' ECRRepository (Maybe Object) -ecrrImageScanningConfiguration = lens _eCRRepositoryImageScanningConfiguration (\s a -> s { _eCRRepositoryImageScanningConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecr-repository.html#cfn-ecr-repository-imagetagmutability -ecrrImageTagMutability :: Lens' ECRRepository (Maybe (Val Text)) -ecrrImageTagMutability = lens _eCRRepositoryImageTagMutability (\s a -> s { _eCRRepositoryImageTagMutability = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecr-repository.html#cfn-ecr-repository-lifecyclepolicy -ecrrLifecyclePolicy :: Lens' ECRRepository (Maybe Object) -ecrrLifecyclePolicy = lens _eCRRepositoryLifecyclePolicy (\s a -> s { _eCRRepositoryLifecyclePolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecr-repository.html#cfn-ecr-repository-repositoryname -ecrrRepositoryName :: Lens' ECRRepository (Maybe (Val Text)) -ecrrRepositoryName = lens _eCRRepositoryRepositoryName (\s a -> s { _eCRRepositoryRepositoryName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecr-repository.html#cfn-ecr-repository-repositorypolicytext -ecrrRepositoryPolicyText :: Lens' ECRRepository (Maybe Object) -ecrrRepositoryPolicyText = lens _eCRRepositoryRepositoryPolicyText (\s a -> s { _eCRRepositoryRepositoryPolicyText = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecr-repository.html#cfn-ecr-repository-tags -ecrrTags :: Lens' ECRRepository (Maybe [Tag]) -ecrrTags = lens _eCRRepositoryTags (\s a -> s { _eCRRepositoryTags = a }) diff --git a/library-gen/Stratosphere/Resources/ECSCapacityProvider.hs b/library-gen/Stratosphere/Resources/ECSCapacityProvider.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ECSCapacityProvider.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-capacityprovider.html - -module Stratosphere.Resources.ECSCapacityProvider where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ECSCapacityProviderAutoScalingGroupProvider -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for ECSCapacityProvider. See --- 'ecsCapacityProvider' for a more convenient constructor. -data ECSCapacityProvider = - ECSCapacityProvider - { _eCSCapacityProviderAutoScalingGroupProvider :: ECSCapacityProviderAutoScalingGroupProvider - , _eCSCapacityProviderName :: Maybe (Val Text) - , _eCSCapacityProviderTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties ECSCapacityProvider where - toResourceProperties ECSCapacityProvider{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ECS::CapacityProvider" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("AutoScalingGroupProvider",) . toJSON) _eCSCapacityProviderAutoScalingGroupProvider - , fmap (("Name",) . toJSON) _eCSCapacityProviderName - , fmap (("Tags",) . toJSON) _eCSCapacityProviderTags - ] - } - --- | Constructor for 'ECSCapacityProvider' containing required fields as --- arguments. -ecsCapacityProvider - :: ECSCapacityProviderAutoScalingGroupProvider -- ^ 'ecscpAutoScalingGroupProvider' - -> ECSCapacityProvider -ecsCapacityProvider autoScalingGroupProviderarg = - ECSCapacityProvider - { _eCSCapacityProviderAutoScalingGroupProvider = autoScalingGroupProviderarg - , _eCSCapacityProviderName = Nothing - , _eCSCapacityProviderTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-capacityprovider.html#cfn-ecs-capacityprovider-autoscalinggroupprovider -ecscpAutoScalingGroupProvider :: Lens' ECSCapacityProvider ECSCapacityProviderAutoScalingGroupProvider -ecscpAutoScalingGroupProvider = lens _eCSCapacityProviderAutoScalingGroupProvider (\s a -> s { _eCSCapacityProviderAutoScalingGroupProvider = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-capacityprovider.html#cfn-ecs-capacityprovider-name -ecscpName :: Lens' ECSCapacityProvider (Maybe (Val Text)) -ecscpName = lens _eCSCapacityProviderName (\s a -> s { _eCSCapacityProviderName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-capacityprovider.html#cfn-ecs-capacityprovider-tags -ecscpTags :: Lens' ECSCapacityProvider (Maybe [Tag]) -ecscpTags = lens _eCSCapacityProviderTags (\s a -> s { _eCSCapacityProviderTags = a }) diff --git a/library-gen/Stratosphere/Resources/ECSCluster.hs b/library-gen/Stratosphere/Resources/ECSCluster.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ECSCluster.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-cluster.html - -module Stratosphere.Resources.ECSCluster where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ECSClusterClusterSettings -import Stratosphere.ResourceProperties.ECSClusterCapacityProviderStrategyItem -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for ECSCluster. See 'ecsCluster' for a more --- convenient constructor. -data ECSCluster = - ECSCluster - { _eCSClusterCapacityProviders :: Maybe (ValList Text) - , _eCSClusterClusterName :: Maybe (Val Text) - , _eCSClusterClusterSettings :: Maybe [ECSClusterClusterSettings] - , _eCSClusterDefaultCapacityProviderStrategy :: Maybe [ECSClusterCapacityProviderStrategyItem] - , _eCSClusterTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties ECSCluster where - toResourceProperties ECSCluster{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ECS::Cluster" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("CapacityProviders",) . toJSON) _eCSClusterCapacityProviders - , fmap (("ClusterName",) . toJSON) _eCSClusterClusterName - , fmap (("ClusterSettings",) . toJSON) _eCSClusterClusterSettings - , fmap (("DefaultCapacityProviderStrategy",) . toJSON) _eCSClusterDefaultCapacityProviderStrategy - , fmap (("Tags",) . toJSON) _eCSClusterTags - ] - } - --- | Constructor for 'ECSCluster' containing required fields as arguments. -ecsCluster - :: ECSCluster -ecsCluster = - ECSCluster - { _eCSClusterCapacityProviders = Nothing - , _eCSClusterClusterName = Nothing - , _eCSClusterClusterSettings = Nothing - , _eCSClusterDefaultCapacityProviderStrategy = Nothing - , _eCSClusterTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-cluster.html#cfn-ecs-cluster-capacityproviders -ecscCapacityProviders :: Lens' ECSCluster (Maybe (ValList Text)) -ecscCapacityProviders = lens _eCSClusterCapacityProviders (\s a -> s { _eCSClusterCapacityProviders = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-cluster.html#cfn-ecs-cluster-clustername -ecscClusterName :: Lens' ECSCluster (Maybe (Val Text)) -ecscClusterName = lens _eCSClusterClusterName (\s a -> s { _eCSClusterClusterName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-cluster.html#cfn-ecs-cluster-clustersettings -ecscClusterSettings :: Lens' ECSCluster (Maybe [ECSClusterClusterSettings]) -ecscClusterSettings = lens _eCSClusterClusterSettings (\s a -> s { _eCSClusterClusterSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-cluster.html#cfn-ecs-cluster-defaultcapacityproviderstrategy -ecscDefaultCapacityProviderStrategy :: Lens' ECSCluster (Maybe [ECSClusterCapacityProviderStrategyItem]) -ecscDefaultCapacityProviderStrategy = lens _eCSClusterDefaultCapacityProviderStrategy (\s a -> s { _eCSClusterDefaultCapacityProviderStrategy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-cluster.html#cfn-ecs-cluster-tags -ecscTags :: Lens' ECSCluster (Maybe [Tag]) -ecscTags = lens _eCSClusterTags (\s a -> s { _eCSClusterTags = a }) diff --git a/library-gen/Stratosphere/Resources/ECSPrimaryTaskSet.hs b/library-gen/Stratosphere/Resources/ECSPrimaryTaskSet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ECSPrimaryTaskSet.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-primarytaskset.html - -module Stratosphere.Resources.ECSPrimaryTaskSet where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ECSPrimaryTaskSet. See 'ecsPrimaryTaskSet' --- for a more convenient constructor. -data ECSPrimaryTaskSet = - ECSPrimaryTaskSet - { _eCSPrimaryTaskSetCluster :: Val Text - , _eCSPrimaryTaskSetService :: Val Text - , _eCSPrimaryTaskSetTaskSetId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties ECSPrimaryTaskSet where - toResourceProperties ECSPrimaryTaskSet{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ECS::PrimaryTaskSet" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Cluster",) . toJSON) _eCSPrimaryTaskSetCluster - , (Just . ("Service",) . toJSON) _eCSPrimaryTaskSetService - , (Just . ("TaskSetId",) . toJSON) _eCSPrimaryTaskSetTaskSetId - ] - } - --- | Constructor for 'ECSPrimaryTaskSet' containing required fields as --- arguments. -ecsPrimaryTaskSet - :: Val Text -- ^ 'ecsptsCluster' - -> Val Text -- ^ 'ecsptsService' - -> Val Text -- ^ 'ecsptsTaskSetId' - -> ECSPrimaryTaskSet -ecsPrimaryTaskSet clusterarg servicearg taskSetIdarg = - ECSPrimaryTaskSet - { _eCSPrimaryTaskSetCluster = clusterarg - , _eCSPrimaryTaskSetService = servicearg - , _eCSPrimaryTaskSetTaskSetId = taskSetIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-primarytaskset.html#cfn-ecs-primarytaskset-cluster -ecsptsCluster :: Lens' ECSPrimaryTaskSet (Val Text) -ecsptsCluster = lens _eCSPrimaryTaskSetCluster (\s a -> s { _eCSPrimaryTaskSetCluster = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-primarytaskset.html#cfn-ecs-primarytaskset-service -ecsptsService :: Lens' ECSPrimaryTaskSet (Val Text) -ecsptsService = lens _eCSPrimaryTaskSetService (\s a -> s { _eCSPrimaryTaskSetService = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-primarytaskset.html#cfn-ecs-primarytaskset-tasksetid -ecsptsTaskSetId :: Lens' ECSPrimaryTaskSet (Val Text) -ecsptsTaskSetId = lens _eCSPrimaryTaskSetTaskSetId (\s a -> s { _eCSPrimaryTaskSetTaskSetId = a }) diff --git a/library-gen/Stratosphere/Resources/ECSService.hs b/library-gen/Stratosphere/Resources/ECSService.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ECSService.hs +++ /dev/null @@ -1,173 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html - -module Stratosphere.Resources.ECSService where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ECSServiceDeploymentConfiguration -import Stratosphere.ResourceProperties.ECSServiceDeploymentController -import Stratosphere.ResourceProperties.ECSServiceLoadBalancer -import Stratosphere.ResourceProperties.ECSServiceNetworkConfiguration -import Stratosphere.ResourceProperties.ECSServicePlacementConstraint -import Stratosphere.ResourceProperties.ECSServicePlacementStrategy -import Stratosphere.ResourceProperties.ECSServiceServiceRegistry -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for ECSService. See 'ecsService' for a more --- convenient constructor. -data ECSService = - ECSService - { _eCSServiceCluster :: Maybe (Val Text) - , _eCSServiceDeploymentConfiguration :: Maybe ECSServiceDeploymentConfiguration - , _eCSServiceDeploymentController :: Maybe ECSServiceDeploymentController - , _eCSServiceDesiredCount :: Maybe (Val Integer) - , _eCSServiceEnableECSManagedTags :: Maybe (Val Bool) - , _eCSServiceHealthCheckGracePeriodSeconds :: Maybe (Val Integer) - , _eCSServiceLaunchType :: Maybe (Val Text) - , _eCSServiceLoadBalancers :: Maybe [ECSServiceLoadBalancer] - , _eCSServiceNetworkConfiguration :: Maybe ECSServiceNetworkConfiguration - , _eCSServicePlacementConstraints :: Maybe [ECSServicePlacementConstraint] - , _eCSServicePlacementStrategies :: Maybe [ECSServicePlacementStrategy] - , _eCSServicePlatformVersion :: Maybe (Val Text) - , _eCSServicePropagateTags :: Maybe (Val Text) - , _eCSServiceRole :: Maybe (Val Text) - , _eCSServiceSchedulingStrategy :: Maybe (Val Text) - , _eCSServiceServiceName :: Maybe (Val Text) - , _eCSServiceServiceRegistries :: Maybe [ECSServiceServiceRegistry] - , _eCSServiceTags :: Maybe [Tag] - , _eCSServiceTaskDefinition :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties ECSService where - toResourceProperties ECSService{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ECS::Service" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Cluster",) . toJSON) _eCSServiceCluster - , fmap (("DeploymentConfiguration",) . toJSON) _eCSServiceDeploymentConfiguration - , fmap (("DeploymentController",) . toJSON) _eCSServiceDeploymentController - , fmap (("DesiredCount",) . toJSON) _eCSServiceDesiredCount - , fmap (("EnableECSManagedTags",) . toJSON) _eCSServiceEnableECSManagedTags - , fmap (("HealthCheckGracePeriodSeconds",) . toJSON) _eCSServiceHealthCheckGracePeriodSeconds - , fmap (("LaunchType",) . toJSON) _eCSServiceLaunchType - , fmap (("LoadBalancers",) . toJSON) _eCSServiceLoadBalancers - , fmap (("NetworkConfiguration",) . toJSON) _eCSServiceNetworkConfiguration - , fmap (("PlacementConstraints",) . toJSON) _eCSServicePlacementConstraints - , fmap (("PlacementStrategies",) . toJSON) _eCSServicePlacementStrategies - , fmap (("PlatformVersion",) . toJSON) _eCSServicePlatformVersion - , fmap (("PropagateTags",) . toJSON) _eCSServicePropagateTags - , fmap (("Role",) . toJSON) _eCSServiceRole - , fmap (("SchedulingStrategy",) . toJSON) _eCSServiceSchedulingStrategy - , fmap (("ServiceName",) . toJSON) _eCSServiceServiceName - , fmap (("ServiceRegistries",) . toJSON) _eCSServiceServiceRegistries - , fmap (("Tags",) . toJSON) _eCSServiceTags - , fmap (("TaskDefinition",) . toJSON) _eCSServiceTaskDefinition - ] - } - --- | Constructor for 'ECSService' containing required fields as arguments. -ecsService - :: ECSService -ecsService = - ECSService - { _eCSServiceCluster = Nothing - , _eCSServiceDeploymentConfiguration = Nothing - , _eCSServiceDeploymentController = Nothing - , _eCSServiceDesiredCount = Nothing - , _eCSServiceEnableECSManagedTags = Nothing - , _eCSServiceHealthCheckGracePeriodSeconds = Nothing - , _eCSServiceLaunchType = Nothing - , _eCSServiceLoadBalancers = Nothing - , _eCSServiceNetworkConfiguration = Nothing - , _eCSServicePlacementConstraints = Nothing - , _eCSServicePlacementStrategies = Nothing - , _eCSServicePlatformVersion = Nothing - , _eCSServicePropagateTags = Nothing - , _eCSServiceRole = Nothing - , _eCSServiceSchedulingStrategy = Nothing - , _eCSServiceServiceName = Nothing - , _eCSServiceServiceRegistries = Nothing - , _eCSServiceTags = Nothing - , _eCSServiceTaskDefinition = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-cluster -ecssCluster :: Lens' ECSService (Maybe (Val Text)) -ecssCluster = lens _eCSServiceCluster (\s a -> s { _eCSServiceCluster = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-deploymentconfiguration -ecssDeploymentConfiguration :: Lens' ECSService (Maybe ECSServiceDeploymentConfiguration) -ecssDeploymentConfiguration = lens _eCSServiceDeploymentConfiguration (\s a -> s { _eCSServiceDeploymentConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-deploymentcontroller -ecssDeploymentController :: Lens' ECSService (Maybe ECSServiceDeploymentController) -ecssDeploymentController = lens _eCSServiceDeploymentController (\s a -> s { _eCSServiceDeploymentController = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-desiredcount -ecssDesiredCount :: Lens' ECSService (Maybe (Val Integer)) -ecssDesiredCount = lens _eCSServiceDesiredCount (\s a -> s { _eCSServiceDesiredCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-enableecsmanagedtags -ecssEnableECSManagedTags :: Lens' ECSService (Maybe (Val Bool)) -ecssEnableECSManagedTags = lens _eCSServiceEnableECSManagedTags (\s a -> s { _eCSServiceEnableECSManagedTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-healthcheckgraceperiodseconds -ecssHealthCheckGracePeriodSeconds :: Lens' ECSService (Maybe (Val Integer)) -ecssHealthCheckGracePeriodSeconds = lens _eCSServiceHealthCheckGracePeriodSeconds (\s a -> s { _eCSServiceHealthCheckGracePeriodSeconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-launchtype -ecssLaunchType :: Lens' ECSService (Maybe (Val Text)) -ecssLaunchType = lens _eCSServiceLaunchType (\s a -> s { _eCSServiceLaunchType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-loadbalancers -ecssLoadBalancers :: Lens' ECSService (Maybe [ECSServiceLoadBalancer]) -ecssLoadBalancers = lens _eCSServiceLoadBalancers (\s a -> s { _eCSServiceLoadBalancers = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-networkconfiguration -ecssNetworkConfiguration :: Lens' ECSService (Maybe ECSServiceNetworkConfiguration) -ecssNetworkConfiguration = lens _eCSServiceNetworkConfiguration (\s a -> s { _eCSServiceNetworkConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-placementconstraints -ecssPlacementConstraints :: Lens' ECSService (Maybe [ECSServicePlacementConstraint]) -ecssPlacementConstraints = lens _eCSServicePlacementConstraints (\s a -> s { _eCSServicePlacementConstraints = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-placementstrategies -ecssPlacementStrategies :: Lens' ECSService (Maybe [ECSServicePlacementStrategy]) -ecssPlacementStrategies = lens _eCSServicePlacementStrategies (\s a -> s { _eCSServicePlacementStrategies = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-platformversion -ecssPlatformVersion :: Lens' ECSService (Maybe (Val Text)) -ecssPlatformVersion = lens _eCSServicePlatformVersion (\s a -> s { _eCSServicePlatformVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-propagatetags -ecssPropagateTags :: Lens' ECSService (Maybe (Val Text)) -ecssPropagateTags = lens _eCSServicePropagateTags (\s a -> s { _eCSServicePropagateTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-role -ecssRole :: Lens' ECSService (Maybe (Val Text)) -ecssRole = lens _eCSServiceRole (\s a -> s { _eCSServiceRole = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-schedulingstrategy -ecssSchedulingStrategy :: Lens' ECSService (Maybe (Val Text)) -ecssSchedulingStrategy = lens _eCSServiceSchedulingStrategy (\s a -> s { _eCSServiceSchedulingStrategy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-servicename -ecssServiceName :: Lens' ECSService (Maybe (Val Text)) -ecssServiceName = lens _eCSServiceServiceName (\s a -> s { _eCSServiceServiceName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-serviceregistries -ecssServiceRegistries :: Lens' ECSService (Maybe [ECSServiceServiceRegistry]) -ecssServiceRegistries = lens _eCSServiceServiceRegistries (\s a -> s { _eCSServiceServiceRegistries = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-tags -ecssTags :: Lens' ECSService (Maybe [Tag]) -ecssTags = lens _eCSServiceTags (\s a -> s { _eCSServiceTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-taskdefinition -ecssTaskDefinition :: Lens' ECSService (Maybe (Val Text)) -ecssTaskDefinition = lens _eCSServiceTaskDefinition (\s a -> s { _eCSServiceTaskDefinition = a }) diff --git a/library-gen/Stratosphere/Resources/ECSTaskDefinition.hs b/library-gen/Stratosphere/Resources/ECSTaskDefinition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ECSTaskDefinition.hs +++ /dev/null @@ -1,151 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html - -module Stratosphere.Resources.ECSTaskDefinition where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ECSTaskDefinitionContainerDefinition -import Stratosphere.ResourceProperties.ECSTaskDefinitionInferenceAccelerator -import Stratosphere.ResourceProperties.ECSTaskDefinitionTaskDefinitionPlacementConstraint -import Stratosphere.ResourceProperties.ECSTaskDefinitionProxyConfiguration -import Stratosphere.ResourceProperties.Tag -import Stratosphere.ResourceProperties.ECSTaskDefinitionVolume - --- | Full data type definition for ECSTaskDefinition. See 'ecsTaskDefinition' --- for a more convenient constructor. -data ECSTaskDefinition = - ECSTaskDefinition - { _eCSTaskDefinitionContainerDefinitions :: Maybe [ECSTaskDefinitionContainerDefinition] - , _eCSTaskDefinitionCpu :: Maybe (Val Text) - , _eCSTaskDefinitionExecutionRoleArn :: Maybe (Val Text) - , _eCSTaskDefinitionFamily :: Maybe (Val Text) - , _eCSTaskDefinitionInferenceAccelerators :: Maybe [ECSTaskDefinitionInferenceAccelerator] - , _eCSTaskDefinitionIpcMode :: Maybe (Val Text) - , _eCSTaskDefinitionMemory :: Maybe (Val Text) - , _eCSTaskDefinitionNetworkMode :: Maybe (Val Text) - , _eCSTaskDefinitionPidMode :: Maybe (Val Text) - , _eCSTaskDefinitionPlacementConstraints :: Maybe [ECSTaskDefinitionTaskDefinitionPlacementConstraint] - , _eCSTaskDefinitionProxyConfiguration :: Maybe ECSTaskDefinitionProxyConfiguration - , _eCSTaskDefinitionRequiresCompatibilities :: Maybe (ValList Text) - , _eCSTaskDefinitionTags :: Maybe [Tag] - , _eCSTaskDefinitionTaskDefinitionStatus :: Maybe (Val Text) - , _eCSTaskDefinitionTaskRoleArn :: Maybe (Val Text) - , _eCSTaskDefinitionVolumes :: Maybe [ECSTaskDefinitionVolume] - } deriving (Show, Eq) - -instance ToResourceProperties ECSTaskDefinition where - toResourceProperties ECSTaskDefinition{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ECS::TaskDefinition" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ContainerDefinitions",) . toJSON) _eCSTaskDefinitionContainerDefinitions - , fmap (("Cpu",) . toJSON) _eCSTaskDefinitionCpu - , fmap (("ExecutionRoleArn",) . toJSON) _eCSTaskDefinitionExecutionRoleArn - , fmap (("Family",) . toJSON) _eCSTaskDefinitionFamily - , fmap (("InferenceAccelerators",) . toJSON) _eCSTaskDefinitionInferenceAccelerators - , fmap (("IpcMode",) . toJSON) _eCSTaskDefinitionIpcMode - , fmap (("Memory",) . toJSON) _eCSTaskDefinitionMemory - , fmap (("NetworkMode",) . toJSON) _eCSTaskDefinitionNetworkMode - , fmap (("PidMode",) . toJSON) _eCSTaskDefinitionPidMode - , fmap (("PlacementConstraints",) . toJSON) _eCSTaskDefinitionPlacementConstraints - , fmap (("ProxyConfiguration",) . toJSON) _eCSTaskDefinitionProxyConfiguration - , fmap (("RequiresCompatibilities",) . toJSON) _eCSTaskDefinitionRequiresCompatibilities - , fmap (("Tags",) . toJSON) _eCSTaskDefinitionTags - , fmap (("TaskDefinitionStatus",) . toJSON) _eCSTaskDefinitionTaskDefinitionStatus - , fmap (("TaskRoleArn",) . toJSON) _eCSTaskDefinitionTaskRoleArn - , fmap (("Volumes",) . toJSON) _eCSTaskDefinitionVolumes - ] - } - --- | Constructor for 'ECSTaskDefinition' containing required fields as --- arguments. -ecsTaskDefinition - :: ECSTaskDefinition -ecsTaskDefinition = - ECSTaskDefinition - { _eCSTaskDefinitionContainerDefinitions = Nothing - , _eCSTaskDefinitionCpu = Nothing - , _eCSTaskDefinitionExecutionRoleArn = Nothing - , _eCSTaskDefinitionFamily = Nothing - , _eCSTaskDefinitionInferenceAccelerators = Nothing - , _eCSTaskDefinitionIpcMode = Nothing - , _eCSTaskDefinitionMemory = Nothing - , _eCSTaskDefinitionNetworkMode = Nothing - , _eCSTaskDefinitionPidMode = Nothing - , _eCSTaskDefinitionPlacementConstraints = Nothing - , _eCSTaskDefinitionProxyConfiguration = Nothing - , _eCSTaskDefinitionRequiresCompatibilities = Nothing - , _eCSTaskDefinitionTags = Nothing - , _eCSTaskDefinitionTaskDefinitionStatus = Nothing - , _eCSTaskDefinitionTaskRoleArn = Nothing - , _eCSTaskDefinitionVolumes = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-containerdefinitions -ecstdContainerDefinitions :: Lens' ECSTaskDefinition (Maybe [ECSTaskDefinitionContainerDefinition]) -ecstdContainerDefinitions = lens _eCSTaskDefinitionContainerDefinitions (\s a -> s { _eCSTaskDefinitionContainerDefinitions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-cpu -ecstdCpu :: Lens' ECSTaskDefinition (Maybe (Val Text)) -ecstdCpu = lens _eCSTaskDefinitionCpu (\s a -> s { _eCSTaskDefinitionCpu = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-executionrolearn -ecstdExecutionRoleArn :: Lens' ECSTaskDefinition (Maybe (Val Text)) -ecstdExecutionRoleArn = lens _eCSTaskDefinitionExecutionRoleArn (\s a -> s { _eCSTaskDefinitionExecutionRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-family -ecstdFamily :: Lens' ECSTaskDefinition (Maybe (Val Text)) -ecstdFamily = lens _eCSTaskDefinitionFamily (\s a -> s { _eCSTaskDefinitionFamily = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-inferenceaccelerators -ecstdInferenceAccelerators :: Lens' ECSTaskDefinition (Maybe [ECSTaskDefinitionInferenceAccelerator]) -ecstdInferenceAccelerators = lens _eCSTaskDefinitionInferenceAccelerators (\s a -> s { _eCSTaskDefinitionInferenceAccelerators = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-ipcmode -ecstdIpcMode :: Lens' ECSTaskDefinition (Maybe (Val Text)) -ecstdIpcMode = lens _eCSTaskDefinitionIpcMode (\s a -> s { _eCSTaskDefinitionIpcMode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-memory -ecstdMemory :: Lens' ECSTaskDefinition (Maybe (Val Text)) -ecstdMemory = lens _eCSTaskDefinitionMemory (\s a -> s { _eCSTaskDefinitionMemory = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-networkmode -ecstdNetworkMode :: Lens' ECSTaskDefinition (Maybe (Val Text)) -ecstdNetworkMode = lens _eCSTaskDefinitionNetworkMode (\s a -> s { _eCSTaskDefinitionNetworkMode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-pidmode -ecstdPidMode :: Lens' ECSTaskDefinition (Maybe (Val Text)) -ecstdPidMode = lens _eCSTaskDefinitionPidMode (\s a -> s { _eCSTaskDefinitionPidMode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-placementconstraints -ecstdPlacementConstraints :: Lens' ECSTaskDefinition (Maybe [ECSTaskDefinitionTaskDefinitionPlacementConstraint]) -ecstdPlacementConstraints = lens _eCSTaskDefinitionPlacementConstraints (\s a -> s { _eCSTaskDefinitionPlacementConstraints = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-proxyconfiguration -ecstdProxyConfiguration :: Lens' ECSTaskDefinition (Maybe ECSTaskDefinitionProxyConfiguration) -ecstdProxyConfiguration = lens _eCSTaskDefinitionProxyConfiguration (\s a -> s { _eCSTaskDefinitionProxyConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-requirescompatibilities -ecstdRequiresCompatibilities :: Lens' ECSTaskDefinition (Maybe (ValList Text)) -ecstdRequiresCompatibilities = lens _eCSTaskDefinitionRequiresCompatibilities (\s a -> s { _eCSTaskDefinitionRequiresCompatibilities = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-tags -ecstdTags :: Lens' ECSTaskDefinition (Maybe [Tag]) -ecstdTags = lens _eCSTaskDefinitionTags (\s a -> s { _eCSTaskDefinitionTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-taskdefinitionstatus -ecstdTaskDefinitionStatus :: Lens' ECSTaskDefinition (Maybe (Val Text)) -ecstdTaskDefinitionStatus = lens _eCSTaskDefinitionTaskDefinitionStatus (\s a -> s { _eCSTaskDefinitionTaskDefinitionStatus = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-taskrolearn -ecstdTaskRoleArn :: Lens' ECSTaskDefinition (Maybe (Val Text)) -ecstdTaskRoleArn = lens _eCSTaskDefinitionTaskRoleArn (\s a -> s { _eCSTaskDefinitionTaskRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-volumes -ecstdVolumes :: Lens' ECSTaskDefinition (Maybe [ECSTaskDefinitionVolume]) -ecstdVolumes = lens _eCSTaskDefinitionVolumes (\s a -> s { _eCSTaskDefinitionVolumes = a }) diff --git a/library-gen/Stratosphere/Resources/ECSTaskSet.hs b/library-gen/Stratosphere/Resources/ECSTaskSet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ECSTaskSet.hs +++ /dev/null @@ -1,109 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskset.html - -module Stratosphere.Resources.ECSTaskSet where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ECSTaskSetLoadBalancer -import Stratosphere.ResourceProperties.ECSTaskSetNetworkConfiguration -import Stratosphere.ResourceProperties.ECSTaskSetScale -import Stratosphere.ResourceProperties.ECSTaskSetServiceRegistry - --- | Full data type definition for ECSTaskSet. See 'ecsTaskSet' for a more --- convenient constructor. -data ECSTaskSet = - ECSTaskSet - { _eCSTaskSetCluster :: Val Text - , _eCSTaskSetExternalId :: Maybe (Val Text) - , _eCSTaskSetLaunchType :: Maybe (Val Text) - , _eCSTaskSetLoadBalancers :: Maybe [ECSTaskSetLoadBalancer] - , _eCSTaskSetNetworkConfiguration :: Maybe ECSTaskSetNetworkConfiguration - , _eCSTaskSetPlatformVersion :: Maybe (Val Text) - , _eCSTaskSetScale :: Maybe ECSTaskSetScale - , _eCSTaskSetService :: Val Text - , _eCSTaskSetServiceRegistries :: Maybe [ECSTaskSetServiceRegistry] - , _eCSTaskSetTaskDefinition :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties ECSTaskSet where - toResourceProperties ECSTaskSet{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ECS::TaskSet" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Cluster",) . toJSON) _eCSTaskSetCluster - , fmap (("ExternalId",) . toJSON) _eCSTaskSetExternalId - , fmap (("LaunchType",) . toJSON) _eCSTaskSetLaunchType - , fmap (("LoadBalancers",) . toJSON) _eCSTaskSetLoadBalancers - , fmap (("NetworkConfiguration",) . toJSON) _eCSTaskSetNetworkConfiguration - , fmap (("PlatformVersion",) . toJSON) _eCSTaskSetPlatformVersion - , fmap (("Scale",) . toJSON) _eCSTaskSetScale - , (Just . ("Service",) . toJSON) _eCSTaskSetService - , fmap (("ServiceRegistries",) . toJSON) _eCSTaskSetServiceRegistries - , (Just . ("TaskDefinition",) . toJSON) _eCSTaskSetTaskDefinition - ] - } - --- | Constructor for 'ECSTaskSet' containing required fields as arguments. -ecsTaskSet - :: Val Text -- ^ 'ecstsCluster' - -> Val Text -- ^ 'ecstsService' - -> Val Text -- ^ 'ecstsTaskDefinition' - -> ECSTaskSet -ecsTaskSet clusterarg servicearg taskDefinitionarg = - ECSTaskSet - { _eCSTaskSetCluster = clusterarg - , _eCSTaskSetExternalId = Nothing - , _eCSTaskSetLaunchType = Nothing - , _eCSTaskSetLoadBalancers = Nothing - , _eCSTaskSetNetworkConfiguration = Nothing - , _eCSTaskSetPlatformVersion = Nothing - , _eCSTaskSetScale = Nothing - , _eCSTaskSetService = servicearg - , _eCSTaskSetServiceRegistries = Nothing - , _eCSTaskSetTaskDefinition = taskDefinitionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskset.html#cfn-ecs-taskset-cluster -ecstsCluster :: Lens' ECSTaskSet (Val Text) -ecstsCluster = lens _eCSTaskSetCluster (\s a -> s { _eCSTaskSetCluster = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskset.html#cfn-ecs-taskset-externalid -ecstsExternalId :: Lens' ECSTaskSet (Maybe (Val Text)) -ecstsExternalId = lens _eCSTaskSetExternalId (\s a -> s { _eCSTaskSetExternalId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskset.html#cfn-ecs-taskset-launchtype -ecstsLaunchType :: Lens' ECSTaskSet (Maybe (Val Text)) -ecstsLaunchType = lens _eCSTaskSetLaunchType (\s a -> s { _eCSTaskSetLaunchType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskset.html#cfn-ecs-taskset-loadbalancers -ecstsLoadBalancers :: Lens' ECSTaskSet (Maybe [ECSTaskSetLoadBalancer]) -ecstsLoadBalancers = lens _eCSTaskSetLoadBalancers (\s a -> s { _eCSTaskSetLoadBalancers = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskset.html#cfn-ecs-taskset-networkconfiguration -ecstsNetworkConfiguration :: Lens' ECSTaskSet (Maybe ECSTaskSetNetworkConfiguration) -ecstsNetworkConfiguration = lens _eCSTaskSetNetworkConfiguration (\s a -> s { _eCSTaskSetNetworkConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskset.html#cfn-ecs-taskset-platformversion -ecstsPlatformVersion :: Lens' ECSTaskSet (Maybe (Val Text)) -ecstsPlatformVersion = lens _eCSTaskSetPlatformVersion (\s a -> s { _eCSTaskSetPlatformVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskset.html#cfn-ecs-taskset-scale -ecstsScale :: Lens' ECSTaskSet (Maybe ECSTaskSetScale) -ecstsScale = lens _eCSTaskSetScale (\s a -> s { _eCSTaskSetScale = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskset.html#cfn-ecs-taskset-service -ecstsService :: Lens' ECSTaskSet (Val Text) -ecstsService = lens _eCSTaskSetService (\s a -> s { _eCSTaskSetService = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskset.html#cfn-ecs-taskset-serviceregistries -ecstsServiceRegistries :: Lens' ECSTaskSet (Maybe [ECSTaskSetServiceRegistry]) -ecstsServiceRegistries = lens _eCSTaskSetServiceRegistries (\s a -> s { _eCSTaskSetServiceRegistries = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskset.html#cfn-ecs-taskset-taskdefinition -ecstsTaskDefinition :: Lens' ECSTaskSet (Val Text) -ecstsTaskDefinition = lens _eCSTaskSetTaskDefinition (\s a -> s { _eCSTaskSetTaskDefinition = a }) diff --git a/library-gen/Stratosphere/Resources/EFSAccessPoint.hs b/library-gen/Stratosphere/Resources/EFSAccessPoint.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EFSAccessPoint.hs +++ /dev/null @@ -1,71 +0,0 @@ -{-# 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 = - keyMapFromList $ 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 }) diff --git a/library-gen/Stratosphere/Resources/EFSFileSystem.hs b/library-gen/Stratosphere/Resources/EFSFileSystem.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EFSFileSystem.hs +++ /dev/null @@ -1,98 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-filesystem.html - -module Stratosphere.Resources.EFSFileSystem where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EFSFileSystemBackupPolicy -import Stratosphere.ResourceProperties.EFSFileSystemElasticFileSystemTag -import Stratosphere.ResourceProperties.EFSFileSystemLifecyclePolicy - --- | Full data type definition for EFSFileSystem. See 'efsFileSystem' for a --- more convenient constructor. -data EFSFileSystem = - EFSFileSystem - { _eFSFileSystemBackupPolicy :: Maybe EFSFileSystemBackupPolicy - , _eFSFileSystemEncrypted :: Maybe (Val Bool) - , _eFSFileSystemFileSystemPolicy :: Maybe Object - , _eFSFileSystemFileSystemTags :: Maybe [EFSFileSystemElasticFileSystemTag] - , _eFSFileSystemKmsKeyId :: Maybe (Val Text) - , _eFSFileSystemLifecyclePolicies :: Maybe [EFSFileSystemLifecyclePolicy] - , _eFSFileSystemPerformanceMode :: Maybe (Val Text) - , _eFSFileSystemProvisionedThroughputInMibps :: Maybe (Val Double) - , _eFSFileSystemThroughputMode :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties EFSFileSystem where - toResourceProperties EFSFileSystem{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EFS::FileSystem" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("BackupPolicy",) . toJSON) _eFSFileSystemBackupPolicy - , fmap (("Encrypted",) . toJSON) _eFSFileSystemEncrypted - , fmap (("FileSystemPolicy",) . toJSON) _eFSFileSystemFileSystemPolicy - , fmap (("FileSystemTags",) . toJSON) _eFSFileSystemFileSystemTags - , fmap (("KmsKeyId",) . toJSON) _eFSFileSystemKmsKeyId - , fmap (("LifecyclePolicies",) . toJSON) _eFSFileSystemLifecyclePolicies - , fmap (("PerformanceMode",) . toJSON) _eFSFileSystemPerformanceMode - , fmap (("ProvisionedThroughputInMibps",) . toJSON) _eFSFileSystemProvisionedThroughputInMibps - , fmap (("ThroughputMode",) . toJSON) _eFSFileSystemThroughputMode - ] - } - --- | Constructor for 'EFSFileSystem' containing required fields as arguments. -efsFileSystem - :: EFSFileSystem -efsFileSystem = - EFSFileSystem - { _eFSFileSystemBackupPolicy = Nothing - , _eFSFileSystemEncrypted = Nothing - , _eFSFileSystemFileSystemPolicy = Nothing - , _eFSFileSystemFileSystemTags = Nothing - , _eFSFileSystemKmsKeyId = Nothing - , _eFSFileSystemLifecyclePolicies = Nothing - , _eFSFileSystemPerformanceMode = Nothing - , _eFSFileSystemProvisionedThroughputInMibps = Nothing - , _eFSFileSystemThroughputMode = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-filesystem.html#cfn-efs-filesystem-backuppolicy -efsfsBackupPolicy :: Lens' EFSFileSystem (Maybe EFSFileSystemBackupPolicy) -efsfsBackupPolicy = lens _eFSFileSystemBackupPolicy (\s a -> s { _eFSFileSystemBackupPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-filesystem.html#cfn-efs-filesystem-encrypted -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 }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-filesystem.html#cfn-efs-filesystem-kmskeyid -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-efs-filesystem-lifecyclepolicies -efsfsLifecyclePolicies :: Lens' EFSFileSystem (Maybe [EFSFileSystemLifecyclePolicy]) -efsfsLifecyclePolicies = lens _eFSFileSystemLifecyclePolicies (\s a -> s { _eFSFileSystemLifecyclePolicies = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-filesystem.html#cfn-efs-filesystem-performancemode -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-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-efs-filesystem-throughputmode -efsfsThroughputMode :: Lens' EFSFileSystem (Maybe (Val Text)) -efsfsThroughputMode = lens _eFSFileSystemThroughputMode (\s a -> s { _eFSFileSystemThroughputMode = a }) diff --git a/library-gen/Stratosphere/Resources/EFSMountTarget.hs b/library-gen/Stratosphere/Resources/EFSMountTarget.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EFSMountTarget.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-mounttarget.html - -module Stratosphere.Resources.EFSMountTarget where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EFSMountTarget. See 'efsMountTarget' for a --- more convenient constructor. -data EFSMountTarget = - EFSMountTarget - { _eFSMountTargetFileSystemId :: Val Text - , _eFSMountTargetIpAddress :: Maybe (Val Text) - , _eFSMountTargetSecurityGroups :: ValList Text - , _eFSMountTargetSubnetId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EFSMountTarget where - toResourceProperties EFSMountTarget{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EFS::MountTarget" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("FileSystemId",) . toJSON) _eFSMountTargetFileSystemId - , fmap (("IpAddress",) . toJSON) _eFSMountTargetIpAddress - , (Just . ("SecurityGroups",) . toJSON) _eFSMountTargetSecurityGroups - , (Just . ("SubnetId",) . toJSON) _eFSMountTargetSubnetId - ] - } - --- | Constructor for 'EFSMountTarget' containing required fields as arguments. -efsMountTarget - :: Val Text -- ^ 'efsmtFileSystemId' - -> ValList Text -- ^ 'efsmtSecurityGroups' - -> Val Text -- ^ 'efsmtSubnetId' - -> EFSMountTarget -efsMountTarget fileSystemIdarg securityGroupsarg subnetIdarg = - EFSMountTarget - { _eFSMountTargetFileSystemId = fileSystemIdarg - , _eFSMountTargetIpAddress = Nothing - , _eFSMountTargetSecurityGroups = securityGroupsarg - , _eFSMountTargetSubnetId = subnetIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-mounttarget.html#cfn-efs-mounttarget-filesystemid -efsmtFileSystemId :: Lens' EFSMountTarget (Val Text) -efsmtFileSystemId = lens _eFSMountTargetFileSystemId (\s a -> s { _eFSMountTargetFileSystemId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-mounttarget.html#cfn-efs-mounttarget-ipaddress -efsmtIpAddress :: Lens' EFSMountTarget (Maybe (Val Text)) -efsmtIpAddress = lens _eFSMountTargetIpAddress (\s a -> s { _eFSMountTargetIpAddress = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-mounttarget.html#cfn-efs-mounttarget-securitygroups -efsmtSecurityGroups :: Lens' EFSMountTarget (ValList Text) -efsmtSecurityGroups = lens _eFSMountTargetSecurityGroups (\s a -> s { _eFSMountTargetSecurityGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-mounttarget.html#cfn-efs-mounttarget-subnetid -efsmtSubnetId :: Lens' EFSMountTarget (Val Text) -efsmtSubnetId = lens _eFSMountTargetSubnetId (\s a -> s { _eFSMountTargetSubnetId = a }) diff --git a/library-gen/Stratosphere/Resources/EKSCluster.hs b/library-gen/Stratosphere/Resources/EKSCluster.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EKSCluster.hs +++ /dev/null @@ -1,71 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eks-cluster.html - -module Stratosphere.Resources.EKSCluster where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EKSClusterEncryptionConfig -import Stratosphere.ResourceProperties.EKSClusterResourcesVpcConfig - --- | Full data type definition for EKSCluster. See 'eksCluster' for a more --- convenient constructor. -data EKSCluster = - EKSCluster - { _eKSClusterEncryptionConfig :: Maybe [EKSClusterEncryptionConfig] - , _eKSClusterName :: Maybe (Val Text) - , _eKSClusterResourcesVpcConfig :: EKSClusterResourcesVpcConfig - , _eKSClusterRoleArn :: Val Text - , _eKSClusterVersion :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties EKSCluster where - toResourceProperties EKSCluster{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EKS::Cluster" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("EncryptionConfig",) . toJSON) _eKSClusterEncryptionConfig - , fmap (("Name",) . toJSON) _eKSClusterName - , (Just . ("ResourcesVpcConfig",) . toJSON) _eKSClusterResourcesVpcConfig - , (Just . ("RoleArn",) . toJSON) _eKSClusterRoleArn - , fmap (("Version",) . toJSON) _eKSClusterVersion - ] - } - --- | Constructor for 'EKSCluster' containing required fields as arguments. -eksCluster - :: EKSClusterResourcesVpcConfig -- ^ 'ekscResourcesVpcConfig' - -> Val Text -- ^ 'ekscRoleArn' - -> EKSCluster -eksCluster resourcesVpcConfigarg roleArnarg = - EKSCluster - { _eKSClusterEncryptionConfig = Nothing - , _eKSClusterName = Nothing - , _eKSClusterResourcesVpcConfig = resourcesVpcConfigarg - , _eKSClusterRoleArn = roleArnarg - , _eKSClusterVersion = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eks-cluster.html#cfn-eks-cluster-encryptionconfig -ekscEncryptionConfig :: Lens' EKSCluster (Maybe [EKSClusterEncryptionConfig]) -ekscEncryptionConfig = lens _eKSClusterEncryptionConfig (\s a -> s { _eKSClusterEncryptionConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eks-cluster.html#cfn-eks-cluster-name -ekscName :: Lens' EKSCluster (Maybe (Val Text)) -ekscName = lens _eKSClusterName (\s a -> s { _eKSClusterName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eks-cluster.html#cfn-eks-cluster-resourcesvpcconfig -ekscResourcesVpcConfig :: Lens' EKSCluster EKSClusterResourcesVpcConfig -ekscResourcesVpcConfig = lens _eKSClusterResourcesVpcConfig (\s a -> s { _eKSClusterResourcesVpcConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eks-cluster.html#cfn-eks-cluster-rolearn -ekscRoleArn :: Lens' EKSCluster (Val Text) -ekscRoleArn = lens _eKSClusterRoleArn (\s a -> s { _eKSClusterRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eks-cluster.html#cfn-eks-cluster-version -ekscVersion :: Lens' EKSCluster (Maybe (Val Text)) -ekscVersion = lens _eKSClusterVersion (\s a -> s { _eKSClusterVersion = a }) diff --git a/library-gen/Stratosphere/Resources/EKSFargateProfile.hs b/library-gen/Stratosphere/Resources/EKSFargateProfile.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EKSFargateProfile.hs +++ /dev/null @@ -1,80 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eks-fargateprofile.html - -module Stratosphere.Resources.EKSFargateProfile where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EKSFargateProfileSelector -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for EKSFargateProfile. See 'eksFargateProfile' --- for a more convenient constructor. -data EKSFargateProfile = - EKSFargateProfile - { _eKSFargateProfileClusterName :: Val Text - , _eKSFargateProfileFargateProfileName :: Maybe (Val Text) - , _eKSFargateProfilePodExecutionRoleArn :: Val Text - , _eKSFargateProfileSelectors :: [EKSFargateProfileSelector] - , _eKSFargateProfileSubnets :: Maybe (ValList Text) - , _eKSFargateProfileTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties EKSFargateProfile where - toResourceProperties EKSFargateProfile{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EKS::FargateProfile" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ClusterName",) . toJSON) _eKSFargateProfileClusterName - , fmap (("FargateProfileName",) . toJSON) _eKSFargateProfileFargateProfileName - , (Just . ("PodExecutionRoleArn",) . toJSON) _eKSFargateProfilePodExecutionRoleArn - , (Just . ("Selectors",) . toJSON) _eKSFargateProfileSelectors - , fmap (("Subnets",) . toJSON) _eKSFargateProfileSubnets - , fmap (("Tags",) . toJSON) _eKSFargateProfileTags - ] - } - --- | Constructor for 'EKSFargateProfile' containing required fields as --- arguments. -eksFargateProfile - :: Val Text -- ^ 'eksfpClusterName' - -> Val Text -- ^ 'eksfpPodExecutionRoleArn' - -> [EKSFargateProfileSelector] -- ^ 'eksfpSelectors' - -> EKSFargateProfile -eksFargateProfile clusterNamearg podExecutionRoleArnarg selectorsarg = - EKSFargateProfile - { _eKSFargateProfileClusterName = clusterNamearg - , _eKSFargateProfileFargateProfileName = Nothing - , _eKSFargateProfilePodExecutionRoleArn = podExecutionRoleArnarg - , _eKSFargateProfileSelectors = selectorsarg - , _eKSFargateProfileSubnets = Nothing - , _eKSFargateProfileTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eks-fargateprofile.html#cfn-eks-fargateprofile-clustername -eksfpClusterName :: Lens' EKSFargateProfile (Val Text) -eksfpClusterName = lens _eKSFargateProfileClusterName (\s a -> s { _eKSFargateProfileClusterName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eks-fargateprofile.html#cfn-eks-fargateprofile-fargateprofilename -eksfpFargateProfileName :: Lens' EKSFargateProfile (Maybe (Val Text)) -eksfpFargateProfileName = lens _eKSFargateProfileFargateProfileName (\s a -> s { _eKSFargateProfileFargateProfileName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eks-fargateprofile.html#cfn-eks-fargateprofile-podexecutionrolearn -eksfpPodExecutionRoleArn :: Lens' EKSFargateProfile (Val Text) -eksfpPodExecutionRoleArn = lens _eKSFargateProfilePodExecutionRoleArn (\s a -> s { _eKSFargateProfilePodExecutionRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eks-fargateprofile.html#cfn-eks-fargateprofile-selectors -eksfpSelectors :: Lens' EKSFargateProfile [EKSFargateProfileSelector] -eksfpSelectors = lens _eKSFargateProfileSelectors (\s a -> s { _eKSFargateProfileSelectors = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eks-fargateprofile.html#cfn-eks-fargateprofile-subnets -eksfpSubnets :: Lens' EKSFargateProfile (Maybe (ValList Text)) -eksfpSubnets = lens _eKSFargateProfileSubnets (\s a -> s { _eKSFargateProfileSubnets = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eks-fargateprofile.html#cfn-eks-fargateprofile-tags -eksfpTags :: Lens' EKSFargateProfile (Maybe [Tag]) -eksfpTags = lens _eKSFargateProfileTags (\s a -> s { _eKSFargateProfileTags = a }) diff --git a/library-gen/Stratosphere/Resources/EKSNodegroup.hs b/library-gen/Stratosphere/Resources/EKSNodegroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EKSNodegroup.hs +++ /dev/null @@ -1,143 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eks-nodegroup.html - -module Stratosphere.Resources.EKSNodegroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EKSNodegroupLaunchTemplateSpecification -import Stratosphere.ResourceProperties.EKSNodegroupRemoteAccess -import Stratosphere.ResourceProperties.EKSNodegroupScalingConfig - --- | Full data type definition for EKSNodegroup. See 'eksNodegroup' for a more --- convenient constructor. -data EKSNodegroup = - EKSNodegroup - { _eKSNodegroupAmiType :: Maybe (Val Text) - , _eKSNodegroupClusterName :: Val Text - , _eKSNodegroupDiskSize :: Maybe (Val Double) - , _eKSNodegroupForceUpdateEnabled :: Maybe (Val Bool) - , _eKSNodegroupInstanceTypes :: Maybe (ValList Text) - , _eKSNodegroupLabels :: Maybe Object - , _eKSNodegroupLaunchTemplate :: Maybe EKSNodegroupLaunchTemplateSpecification - , _eKSNodegroupNodeRole :: Val Text - , _eKSNodegroupNodegroupName :: Maybe (Val Text) - , _eKSNodegroupReleaseVersion :: Maybe (Val Text) - , _eKSNodegroupRemoteAccess :: Maybe EKSNodegroupRemoteAccess - , _eKSNodegroupScalingConfig :: Maybe EKSNodegroupScalingConfig - , _eKSNodegroupSubnets :: ValList Text - , _eKSNodegroupTags :: Maybe Object - , _eKSNodegroupVersion :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties EKSNodegroup where - toResourceProperties EKSNodegroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EKS::Nodegroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AmiType",) . toJSON) _eKSNodegroupAmiType - , (Just . ("ClusterName",) . toJSON) _eKSNodegroupClusterName - , fmap (("DiskSize",) . toJSON) _eKSNodegroupDiskSize - , fmap (("ForceUpdateEnabled",) . toJSON) _eKSNodegroupForceUpdateEnabled - , fmap (("InstanceTypes",) . toJSON) _eKSNodegroupInstanceTypes - , fmap (("Labels",) . toJSON) _eKSNodegroupLabels - , fmap (("LaunchTemplate",) . toJSON) _eKSNodegroupLaunchTemplate - , (Just . ("NodeRole",) . toJSON) _eKSNodegroupNodeRole - , fmap (("NodegroupName",) . toJSON) _eKSNodegroupNodegroupName - , fmap (("ReleaseVersion",) . toJSON) _eKSNodegroupReleaseVersion - , fmap (("RemoteAccess",) . toJSON) _eKSNodegroupRemoteAccess - , fmap (("ScalingConfig",) . toJSON) _eKSNodegroupScalingConfig - , (Just . ("Subnets",) . toJSON) _eKSNodegroupSubnets - , fmap (("Tags",) . toJSON) _eKSNodegroupTags - , fmap (("Version",) . toJSON) _eKSNodegroupVersion - ] - } - --- | Constructor for 'EKSNodegroup' containing required fields as arguments. -eksNodegroup - :: Val Text -- ^ 'eksnClusterName' - -> Val Text -- ^ 'eksnNodeRole' - -> ValList Text -- ^ 'eksnSubnets' - -> EKSNodegroup -eksNodegroup clusterNamearg nodeRolearg subnetsarg = - EKSNodegroup - { _eKSNodegroupAmiType = Nothing - , _eKSNodegroupClusterName = clusterNamearg - , _eKSNodegroupDiskSize = Nothing - , _eKSNodegroupForceUpdateEnabled = Nothing - , _eKSNodegroupInstanceTypes = Nothing - , _eKSNodegroupLabels = Nothing - , _eKSNodegroupLaunchTemplate = Nothing - , _eKSNodegroupNodeRole = nodeRolearg - , _eKSNodegroupNodegroupName = Nothing - , _eKSNodegroupReleaseVersion = Nothing - , _eKSNodegroupRemoteAccess = Nothing - , _eKSNodegroupScalingConfig = Nothing - , _eKSNodegroupSubnets = subnetsarg - , _eKSNodegroupTags = Nothing - , _eKSNodegroupVersion = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eks-nodegroup.html#cfn-eks-nodegroup-amitype -eksnAmiType :: Lens' EKSNodegroup (Maybe (Val Text)) -eksnAmiType = lens _eKSNodegroupAmiType (\s a -> s { _eKSNodegroupAmiType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eks-nodegroup.html#cfn-eks-nodegroup-clustername -eksnClusterName :: Lens' EKSNodegroup (Val Text) -eksnClusterName = lens _eKSNodegroupClusterName (\s a -> s { _eKSNodegroupClusterName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eks-nodegroup.html#cfn-eks-nodegroup-disksize -eksnDiskSize :: Lens' EKSNodegroup (Maybe (Val Double)) -eksnDiskSize = lens _eKSNodegroupDiskSize (\s a -> s { _eKSNodegroupDiskSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eks-nodegroup.html#cfn-eks-nodegroup-forceupdateenabled -eksnForceUpdateEnabled :: Lens' EKSNodegroup (Maybe (Val Bool)) -eksnForceUpdateEnabled = lens _eKSNodegroupForceUpdateEnabled (\s a -> s { _eKSNodegroupForceUpdateEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eks-nodegroup.html#cfn-eks-nodegroup-instancetypes -eksnInstanceTypes :: Lens' EKSNodegroup (Maybe (ValList Text)) -eksnInstanceTypes = lens _eKSNodegroupInstanceTypes (\s a -> s { _eKSNodegroupInstanceTypes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eks-nodegroup.html#cfn-eks-nodegroup-labels -eksnLabels :: Lens' EKSNodegroup (Maybe Object) -eksnLabels = lens _eKSNodegroupLabels (\s a -> s { _eKSNodegroupLabels = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eks-nodegroup.html#cfn-eks-nodegroup-launchtemplate -eksnLaunchTemplate :: Lens' EKSNodegroup (Maybe EKSNodegroupLaunchTemplateSpecification) -eksnLaunchTemplate = lens _eKSNodegroupLaunchTemplate (\s a -> s { _eKSNodegroupLaunchTemplate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eks-nodegroup.html#cfn-eks-nodegroup-noderole -eksnNodeRole :: Lens' EKSNodegroup (Val Text) -eksnNodeRole = lens _eKSNodegroupNodeRole (\s a -> s { _eKSNodegroupNodeRole = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eks-nodegroup.html#cfn-eks-nodegroup-nodegroupname -eksnNodegroupName :: Lens' EKSNodegroup (Maybe (Val Text)) -eksnNodegroupName = lens _eKSNodegroupNodegroupName (\s a -> s { _eKSNodegroupNodegroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eks-nodegroup.html#cfn-eks-nodegroup-releaseversion -eksnReleaseVersion :: Lens' EKSNodegroup (Maybe (Val Text)) -eksnReleaseVersion = lens _eKSNodegroupReleaseVersion (\s a -> s { _eKSNodegroupReleaseVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eks-nodegroup.html#cfn-eks-nodegroup-remoteaccess -eksnRemoteAccess :: Lens' EKSNodegroup (Maybe EKSNodegroupRemoteAccess) -eksnRemoteAccess = lens _eKSNodegroupRemoteAccess (\s a -> s { _eKSNodegroupRemoteAccess = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eks-nodegroup.html#cfn-eks-nodegroup-scalingconfig -eksnScalingConfig :: Lens' EKSNodegroup (Maybe EKSNodegroupScalingConfig) -eksnScalingConfig = lens _eKSNodegroupScalingConfig (\s a -> s { _eKSNodegroupScalingConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eks-nodegroup.html#cfn-eks-nodegroup-subnets -eksnSubnets :: Lens' EKSNodegroup (ValList Text) -eksnSubnets = lens _eKSNodegroupSubnets (\s a -> s { _eKSNodegroupSubnets = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eks-nodegroup.html#cfn-eks-nodegroup-tags -eksnTags :: Lens' EKSNodegroup (Maybe Object) -eksnTags = lens _eKSNodegroupTags (\s a -> s { _eKSNodegroupTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eks-nodegroup.html#cfn-eks-nodegroup-version -eksnVersion :: Lens' EKSNodegroup (Maybe (Val Text)) -eksnVersion = lens _eKSNodegroupVersion (\s a -> s { _eKSNodegroupVersion = a }) diff --git a/library-gen/Stratosphere/Resources/EMRCluster.hs b/library-gen/Stratosphere/Resources/EMRCluster.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EMRCluster.hs +++ /dev/null @@ -1,176 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html - -module Stratosphere.Resources.EMRCluster where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRClusterApplication -import Stratosphere.ResourceProperties.EMRClusterBootstrapActionConfig -import Stratosphere.ResourceProperties.EMRClusterConfiguration -import Stratosphere.ResourceProperties.EMRClusterJobFlowInstancesConfig -import Stratosphere.ResourceProperties.EMRClusterKerberosAttributes -import Stratosphere.ResourceProperties.EMRClusterStepConfig -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for EMRCluster. See 'emrCluster' for a more --- convenient constructor. -data EMRCluster = - EMRCluster - { _eMRClusterAdditionalInfo :: Maybe Object - , _eMRClusterApplications :: Maybe [EMRClusterApplication] - , _eMRClusterAutoScalingRole :: Maybe (Val Text) - , _eMRClusterBootstrapActions :: Maybe [EMRClusterBootstrapActionConfig] - , _eMRClusterConfigurations :: Maybe [EMRClusterConfiguration] - , _eMRClusterCustomAmiId :: Maybe (Val Text) - , _eMRClusterEbsRootVolumeSize :: Maybe (Val Integer) - , _eMRClusterInstances :: EMRClusterJobFlowInstancesConfig - , _eMRClusterJobFlowRole :: Val Text - , _eMRClusterKerberosAttributes :: Maybe EMRClusterKerberosAttributes - , _eMRClusterLogUri :: Maybe (Val Text) - , _eMRClusterName :: Val Text - , _eMRClusterReleaseLabel :: Maybe (Val Text) - , _eMRClusterScaleDownBehavior :: Maybe (Val Text) - , _eMRClusterSecurityConfiguration :: Maybe (Val Text) - , _eMRClusterServiceRole :: Val Text - , _eMRClusterSteps :: Maybe [EMRClusterStepConfig] - , _eMRClusterTags :: Maybe [Tag] - , _eMRClusterVisibleToAllUsers :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToResourceProperties EMRCluster where - toResourceProperties EMRCluster{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EMR::Cluster" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AdditionalInfo",) . toJSON) _eMRClusterAdditionalInfo - , fmap (("Applications",) . toJSON) _eMRClusterApplications - , fmap (("AutoScalingRole",) . toJSON) _eMRClusterAutoScalingRole - , fmap (("BootstrapActions",) . toJSON) _eMRClusterBootstrapActions - , fmap (("Configurations",) . toJSON) _eMRClusterConfigurations - , fmap (("CustomAmiId",) . toJSON) _eMRClusterCustomAmiId - , fmap (("EbsRootVolumeSize",) . toJSON) _eMRClusterEbsRootVolumeSize - , (Just . ("Instances",) . toJSON) _eMRClusterInstances - , (Just . ("JobFlowRole",) . toJSON) _eMRClusterJobFlowRole - , fmap (("KerberosAttributes",) . toJSON) _eMRClusterKerberosAttributes - , fmap (("LogUri",) . toJSON) _eMRClusterLogUri - , (Just . ("Name",) . toJSON) _eMRClusterName - , fmap (("ReleaseLabel",) . toJSON) _eMRClusterReleaseLabel - , fmap (("ScaleDownBehavior",) . toJSON) _eMRClusterScaleDownBehavior - , fmap (("SecurityConfiguration",) . toJSON) _eMRClusterSecurityConfiguration - , (Just . ("ServiceRole",) . toJSON) _eMRClusterServiceRole - , fmap (("Steps",) . toJSON) _eMRClusterSteps - , fmap (("Tags",) . toJSON) _eMRClusterTags - , fmap (("VisibleToAllUsers",) . toJSON) _eMRClusterVisibleToAllUsers - ] - } - --- | Constructor for 'EMRCluster' containing required fields as arguments. -emrCluster - :: EMRClusterJobFlowInstancesConfig -- ^ 'emrcInstances' - -> Val Text -- ^ 'emrcJobFlowRole' - -> Val Text -- ^ 'emrcName' - -> Val Text -- ^ 'emrcServiceRole' - -> EMRCluster -emrCluster instancesarg jobFlowRolearg namearg serviceRolearg = - EMRCluster - { _eMRClusterAdditionalInfo = Nothing - , _eMRClusterApplications = Nothing - , _eMRClusterAutoScalingRole = Nothing - , _eMRClusterBootstrapActions = Nothing - , _eMRClusterConfigurations = Nothing - , _eMRClusterCustomAmiId = Nothing - , _eMRClusterEbsRootVolumeSize = Nothing - , _eMRClusterInstances = instancesarg - , _eMRClusterJobFlowRole = jobFlowRolearg - , _eMRClusterKerberosAttributes = Nothing - , _eMRClusterLogUri = Nothing - , _eMRClusterName = namearg - , _eMRClusterReleaseLabel = Nothing - , _eMRClusterScaleDownBehavior = Nothing - , _eMRClusterSecurityConfiguration = Nothing - , _eMRClusterServiceRole = serviceRolearg - , _eMRClusterSteps = Nothing - , _eMRClusterTags = Nothing - , _eMRClusterVisibleToAllUsers = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-additionalinfo -emrcAdditionalInfo :: Lens' EMRCluster (Maybe Object) -emrcAdditionalInfo = lens _eMRClusterAdditionalInfo (\s a -> s { _eMRClusterAdditionalInfo = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-applications -emrcApplications :: Lens' EMRCluster (Maybe [EMRClusterApplication]) -emrcApplications = lens _eMRClusterApplications (\s a -> s { _eMRClusterApplications = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-autoscalingrole -emrcAutoScalingRole :: Lens' EMRCluster (Maybe (Val Text)) -emrcAutoScalingRole = lens _eMRClusterAutoScalingRole (\s a -> s { _eMRClusterAutoScalingRole = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-bootstrapactions -emrcBootstrapActions :: Lens' EMRCluster (Maybe [EMRClusterBootstrapActionConfig]) -emrcBootstrapActions = lens _eMRClusterBootstrapActions (\s a -> s { _eMRClusterBootstrapActions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-configurations -emrcConfigurations :: Lens' EMRCluster (Maybe [EMRClusterConfiguration]) -emrcConfigurations = lens _eMRClusterConfigurations (\s a -> s { _eMRClusterConfigurations = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-customamiid -emrcCustomAmiId :: Lens' EMRCluster (Maybe (Val Text)) -emrcCustomAmiId = lens _eMRClusterCustomAmiId (\s a -> s { _eMRClusterCustomAmiId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-ebsrootvolumesize -emrcEbsRootVolumeSize :: Lens' EMRCluster (Maybe (Val Integer)) -emrcEbsRootVolumeSize = lens _eMRClusterEbsRootVolumeSize (\s a -> s { _eMRClusterEbsRootVolumeSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-instances -emrcInstances :: Lens' EMRCluster EMRClusterJobFlowInstancesConfig -emrcInstances = lens _eMRClusterInstances (\s a -> s { _eMRClusterInstances = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-jobflowrole -emrcJobFlowRole :: Lens' EMRCluster (Val Text) -emrcJobFlowRole = lens _eMRClusterJobFlowRole (\s a -> s { _eMRClusterJobFlowRole = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-kerberosattributes -emrcKerberosAttributes :: Lens' EMRCluster (Maybe EMRClusterKerberosAttributes) -emrcKerberosAttributes = lens _eMRClusterKerberosAttributes (\s a -> s { _eMRClusterKerberosAttributes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-loguri -emrcLogUri :: Lens' EMRCluster (Maybe (Val Text)) -emrcLogUri = lens _eMRClusterLogUri (\s a -> s { _eMRClusterLogUri = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-name -emrcName :: Lens' EMRCluster (Val Text) -emrcName = lens _eMRClusterName (\s a -> s { _eMRClusterName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-releaselabel -emrcReleaseLabel :: Lens' EMRCluster (Maybe (Val Text)) -emrcReleaseLabel = lens _eMRClusterReleaseLabel (\s a -> s { _eMRClusterReleaseLabel = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-scaledownbehavior -emrcScaleDownBehavior :: Lens' EMRCluster (Maybe (Val Text)) -emrcScaleDownBehavior = lens _eMRClusterScaleDownBehavior (\s a -> s { _eMRClusterScaleDownBehavior = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-securityconfiguration -emrcSecurityConfiguration :: Lens' EMRCluster (Maybe (Val Text)) -emrcSecurityConfiguration = lens _eMRClusterSecurityConfiguration (\s a -> s { _eMRClusterSecurityConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-servicerole -emrcServiceRole :: Lens' EMRCluster (Val Text) -emrcServiceRole = lens _eMRClusterServiceRole (\s a -> s { _eMRClusterServiceRole = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-steps -emrcSteps :: Lens' EMRCluster (Maybe [EMRClusterStepConfig]) -emrcSteps = lens _eMRClusterSteps (\s a -> s { _eMRClusterSteps = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-tags -emrcTags :: Lens' EMRCluster (Maybe [Tag]) -emrcTags = lens _eMRClusterTags (\s a -> s { _eMRClusterTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-cluster.html#cfn-elasticmapreduce-cluster-visibletoallusers -emrcVisibleToAllUsers :: Lens' EMRCluster (Maybe (Val Bool)) -emrcVisibleToAllUsers = lens _eMRClusterVisibleToAllUsers (\s a -> s { _eMRClusterVisibleToAllUsers = a }) diff --git a/library-gen/Stratosphere/Resources/EMRInstanceFleetConfig.hs b/library-gen/Stratosphere/Resources/EMRInstanceFleetConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EMRInstanceFleetConfig.hs +++ /dev/null @@ -1,86 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-instancefleetconfig.html - -module Stratosphere.Resources.EMRInstanceFleetConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRInstanceFleetConfigInstanceTypeConfig -import Stratosphere.ResourceProperties.EMRInstanceFleetConfigInstanceFleetProvisioningSpecifications - --- | Full data type definition for EMRInstanceFleetConfig. See --- 'emrInstanceFleetConfig' for a more convenient constructor. -data EMRInstanceFleetConfig = - EMRInstanceFleetConfig - { _eMRInstanceFleetConfigClusterId :: Val Text - , _eMRInstanceFleetConfigInstanceFleetType :: Val Text - , _eMRInstanceFleetConfigInstanceTypeConfigs :: Maybe [EMRInstanceFleetConfigInstanceTypeConfig] - , _eMRInstanceFleetConfigLaunchSpecifications :: Maybe EMRInstanceFleetConfigInstanceFleetProvisioningSpecifications - , _eMRInstanceFleetConfigName :: Maybe (Val Text) - , _eMRInstanceFleetConfigTargetOnDemandCapacity :: Maybe (Val Integer) - , _eMRInstanceFleetConfigTargetSpotCapacity :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToResourceProperties EMRInstanceFleetConfig where - toResourceProperties EMRInstanceFleetConfig{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EMR::InstanceFleetConfig" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ClusterId",) . toJSON) _eMRInstanceFleetConfigClusterId - , (Just . ("InstanceFleetType",) . toJSON) _eMRInstanceFleetConfigInstanceFleetType - , fmap (("InstanceTypeConfigs",) . toJSON) _eMRInstanceFleetConfigInstanceTypeConfigs - , fmap (("LaunchSpecifications",) . toJSON) _eMRInstanceFleetConfigLaunchSpecifications - , fmap (("Name",) . toJSON) _eMRInstanceFleetConfigName - , fmap (("TargetOnDemandCapacity",) . toJSON) _eMRInstanceFleetConfigTargetOnDemandCapacity - , fmap (("TargetSpotCapacity",) . toJSON) _eMRInstanceFleetConfigTargetSpotCapacity - ] - } - --- | Constructor for 'EMRInstanceFleetConfig' containing required fields as --- arguments. -emrInstanceFleetConfig - :: Val Text -- ^ 'emrifcClusterId' - -> Val Text -- ^ 'emrifcInstanceFleetType' - -> EMRInstanceFleetConfig -emrInstanceFleetConfig clusterIdarg instanceFleetTypearg = - EMRInstanceFleetConfig - { _eMRInstanceFleetConfigClusterId = clusterIdarg - , _eMRInstanceFleetConfigInstanceFleetType = instanceFleetTypearg - , _eMRInstanceFleetConfigInstanceTypeConfigs = Nothing - , _eMRInstanceFleetConfigLaunchSpecifications = Nothing - , _eMRInstanceFleetConfigName = Nothing - , _eMRInstanceFleetConfigTargetOnDemandCapacity = Nothing - , _eMRInstanceFleetConfigTargetSpotCapacity = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-instancefleetconfig.html#cfn-elasticmapreduce-instancefleetconfig-clusterid -emrifcClusterId :: Lens' EMRInstanceFleetConfig (Val Text) -emrifcClusterId = lens _eMRInstanceFleetConfigClusterId (\s a -> s { _eMRInstanceFleetConfigClusterId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-instancefleetconfig.html#cfn-elasticmapreduce-instancefleetconfig-instancefleettype -emrifcInstanceFleetType :: Lens' EMRInstanceFleetConfig (Val Text) -emrifcInstanceFleetType = lens _eMRInstanceFleetConfigInstanceFleetType (\s a -> s { _eMRInstanceFleetConfigInstanceFleetType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-instancefleetconfig.html#cfn-elasticmapreduce-instancefleetconfig-instancetypeconfigs -emrifcInstanceTypeConfigs :: Lens' EMRInstanceFleetConfig (Maybe [EMRInstanceFleetConfigInstanceTypeConfig]) -emrifcInstanceTypeConfigs = lens _eMRInstanceFleetConfigInstanceTypeConfigs (\s a -> s { _eMRInstanceFleetConfigInstanceTypeConfigs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-instancefleetconfig.html#cfn-elasticmapreduce-instancefleetconfig-launchspecifications -emrifcLaunchSpecifications :: Lens' EMRInstanceFleetConfig (Maybe EMRInstanceFleetConfigInstanceFleetProvisioningSpecifications) -emrifcLaunchSpecifications = lens _eMRInstanceFleetConfigLaunchSpecifications (\s a -> s { _eMRInstanceFleetConfigLaunchSpecifications = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-instancefleetconfig.html#cfn-elasticmapreduce-instancefleetconfig-name -emrifcName :: Lens' EMRInstanceFleetConfig (Maybe (Val Text)) -emrifcName = lens _eMRInstanceFleetConfigName (\s a -> s { _eMRInstanceFleetConfigName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-instancefleetconfig.html#cfn-elasticmapreduce-instancefleetconfig-targetondemandcapacity -emrifcTargetOnDemandCapacity :: Lens' EMRInstanceFleetConfig (Maybe (Val Integer)) -emrifcTargetOnDemandCapacity = lens _eMRInstanceFleetConfigTargetOnDemandCapacity (\s a -> s { _eMRInstanceFleetConfigTargetOnDemandCapacity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticmapreduce-instancefleetconfig.html#cfn-elasticmapreduce-instancefleetconfig-targetspotcapacity -emrifcTargetSpotCapacity :: Lens' EMRInstanceFleetConfig (Maybe (Val Integer)) -emrifcTargetSpotCapacity = lens _eMRInstanceFleetConfigTargetSpotCapacity (\s a -> s { _eMRInstanceFleetConfigTargetSpotCapacity = a }) diff --git a/library-gen/Stratosphere/Resources/EMRInstanceGroupConfig.hs b/library-gen/Stratosphere/Resources/EMRInstanceGroupConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EMRInstanceGroupConfig.hs +++ /dev/null @@ -1,110 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-instancegroupconfig.html - -module Stratosphere.Resources.EMRInstanceGroupConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRInstanceGroupConfigAutoScalingPolicy -import Stratosphere.ResourceProperties.EMRInstanceGroupConfigConfiguration -import Stratosphere.ResourceProperties.EMRInstanceGroupConfigEbsConfiguration - --- | Full data type definition for EMRInstanceGroupConfig. See --- 'emrInstanceGroupConfig' for a more convenient constructor. -data EMRInstanceGroupConfig = - EMRInstanceGroupConfig - { _eMRInstanceGroupConfigAutoScalingPolicy :: Maybe EMRInstanceGroupConfigAutoScalingPolicy - , _eMRInstanceGroupConfigBidPrice :: Maybe (Val Text) - , _eMRInstanceGroupConfigConfigurations :: Maybe [EMRInstanceGroupConfigConfiguration] - , _eMRInstanceGroupConfigEbsConfiguration :: Maybe EMRInstanceGroupConfigEbsConfiguration - , _eMRInstanceGroupConfigInstanceCount :: Val Integer - , _eMRInstanceGroupConfigInstanceRole :: Val Text - , _eMRInstanceGroupConfigInstanceType :: Val Text - , _eMRInstanceGroupConfigJobFlowId :: Val Text - , _eMRInstanceGroupConfigMarket :: Maybe (Val Text) - , _eMRInstanceGroupConfigName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties EMRInstanceGroupConfig where - toResourceProperties EMRInstanceGroupConfig{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EMR::InstanceGroupConfig" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AutoScalingPolicy",) . toJSON) _eMRInstanceGroupConfigAutoScalingPolicy - , fmap (("BidPrice",) . toJSON) _eMRInstanceGroupConfigBidPrice - , fmap (("Configurations",) . toJSON) _eMRInstanceGroupConfigConfigurations - , fmap (("EbsConfiguration",) . toJSON) _eMRInstanceGroupConfigEbsConfiguration - , (Just . ("InstanceCount",) . toJSON) _eMRInstanceGroupConfigInstanceCount - , (Just . ("InstanceRole",) . toJSON) _eMRInstanceGroupConfigInstanceRole - , (Just . ("InstanceType",) . toJSON) _eMRInstanceGroupConfigInstanceType - , (Just . ("JobFlowId",) . toJSON) _eMRInstanceGroupConfigJobFlowId - , fmap (("Market",) . toJSON) _eMRInstanceGroupConfigMarket - , fmap (("Name",) . toJSON) _eMRInstanceGroupConfigName - ] - } - --- | Constructor for 'EMRInstanceGroupConfig' containing required fields as --- arguments. -emrInstanceGroupConfig - :: Val Integer -- ^ 'emrigcInstanceCount' - -> Val Text -- ^ 'emrigcInstanceRole' - -> Val Text -- ^ 'emrigcInstanceType' - -> Val Text -- ^ 'emrigcJobFlowId' - -> EMRInstanceGroupConfig -emrInstanceGroupConfig instanceCountarg instanceRolearg instanceTypearg jobFlowIdarg = - EMRInstanceGroupConfig - { _eMRInstanceGroupConfigAutoScalingPolicy = Nothing - , _eMRInstanceGroupConfigBidPrice = Nothing - , _eMRInstanceGroupConfigConfigurations = Nothing - , _eMRInstanceGroupConfigEbsConfiguration = Nothing - , _eMRInstanceGroupConfigInstanceCount = instanceCountarg - , _eMRInstanceGroupConfigInstanceRole = instanceRolearg - , _eMRInstanceGroupConfigInstanceType = instanceTypearg - , _eMRInstanceGroupConfigJobFlowId = jobFlowIdarg - , _eMRInstanceGroupConfigMarket = Nothing - , _eMRInstanceGroupConfigName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-instancegroupconfig.html#cfn-elasticmapreduce-instancegroupconfig-autoscalingpolicy -emrigcAutoScalingPolicy :: Lens' EMRInstanceGroupConfig (Maybe EMRInstanceGroupConfigAutoScalingPolicy) -emrigcAutoScalingPolicy = lens _eMRInstanceGroupConfigAutoScalingPolicy (\s a -> s { _eMRInstanceGroupConfigAutoScalingPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-instancegroupconfig.html#cfn-emr-instancegroupconfig-bidprice -emrigcBidPrice :: Lens' EMRInstanceGroupConfig (Maybe (Val Text)) -emrigcBidPrice = lens _eMRInstanceGroupConfigBidPrice (\s a -> s { _eMRInstanceGroupConfigBidPrice = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-instancegroupconfig.html#cfn-emr-instancegroupconfig-configurations -emrigcConfigurations :: Lens' EMRInstanceGroupConfig (Maybe [EMRInstanceGroupConfigConfiguration]) -emrigcConfigurations = lens _eMRInstanceGroupConfigConfigurations (\s a -> s { _eMRInstanceGroupConfigConfigurations = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-instancegroupconfig.html#cfn-emr-instancegroupconfig-ebsconfiguration -emrigcEbsConfiguration :: Lens' EMRInstanceGroupConfig (Maybe EMRInstanceGroupConfigEbsConfiguration) -emrigcEbsConfiguration = lens _eMRInstanceGroupConfigEbsConfiguration (\s a -> s { _eMRInstanceGroupConfigEbsConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-instancegroupconfig.html#cfn-emr-instancegroupconfiginstancecount- -emrigcInstanceCount :: Lens' EMRInstanceGroupConfig (Val Integer) -emrigcInstanceCount = lens _eMRInstanceGroupConfigInstanceCount (\s a -> s { _eMRInstanceGroupConfigInstanceCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-instancegroupconfig.html#cfn-emr-instancegroupconfig-instancerole -emrigcInstanceRole :: Lens' EMRInstanceGroupConfig (Val Text) -emrigcInstanceRole = lens _eMRInstanceGroupConfigInstanceRole (\s a -> s { _eMRInstanceGroupConfigInstanceRole = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-instancegroupconfig.html#cfn-emr-instancegroupconfig-instancetype -emrigcInstanceType :: Lens' EMRInstanceGroupConfig (Val Text) -emrigcInstanceType = lens _eMRInstanceGroupConfigInstanceType (\s a -> s { _eMRInstanceGroupConfigInstanceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-instancegroupconfig.html#cfn-emr-instancegroupconfig-jobflowid -emrigcJobFlowId :: Lens' EMRInstanceGroupConfig (Val Text) -emrigcJobFlowId = lens _eMRInstanceGroupConfigJobFlowId (\s a -> s { _eMRInstanceGroupConfigJobFlowId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-instancegroupconfig.html#cfn-emr-instancegroupconfig-market -emrigcMarket :: Lens' EMRInstanceGroupConfig (Maybe (Val Text)) -emrigcMarket = lens _eMRInstanceGroupConfigMarket (\s a -> s { _eMRInstanceGroupConfigMarket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-instancegroupconfig.html#cfn-emr-instancegroupconfig-name -emrigcName :: Lens' EMRInstanceGroupConfig (Maybe (Val Text)) -emrigcName = lens _eMRInstanceGroupConfigName (\s a -> s { _eMRInstanceGroupConfigName = a }) diff --git a/library-gen/Stratosphere/Resources/EMRSecurityConfiguration.hs b/library-gen/Stratosphere/Resources/EMRSecurityConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EMRSecurityConfiguration.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-securityconfiguration.html - -module Stratosphere.Resources.EMRSecurityConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EMRSecurityConfiguration. See --- 'emrSecurityConfiguration' for a more convenient constructor. -data EMRSecurityConfiguration = - EMRSecurityConfiguration - { _eMRSecurityConfigurationName :: Maybe (Val Text) - , _eMRSecurityConfigurationSecurityConfiguration :: Object - } deriving (Show, Eq) - -instance ToResourceProperties EMRSecurityConfiguration where - toResourceProperties EMRSecurityConfiguration{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EMR::SecurityConfiguration" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Name",) . toJSON) _eMRSecurityConfigurationName - , (Just . ("SecurityConfiguration",) . toJSON) _eMRSecurityConfigurationSecurityConfiguration - ] - } - --- | Constructor for 'EMRSecurityConfiguration' containing required fields as --- arguments. -emrSecurityConfiguration - :: Object -- ^ 'emrscSecurityConfiguration' - -> EMRSecurityConfiguration -emrSecurityConfiguration securityConfigurationarg = - EMRSecurityConfiguration - { _eMRSecurityConfigurationName = Nothing - , _eMRSecurityConfigurationSecurityConfiguration = securityConfigurationarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-securityconfiguration.html#cfn-emr-securityconfiguration-name -emrscName :: Lens' EMRSecurityConfiguration (Maybe (Val Text)) -emrscName = lens _eMRSecurityConfigurationName (\s a -> s { _eMRSecurityConfigurationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-securityconfiguration.html#cfn-emr-securityconfiguration-securityconfiguration -emrscSecurityConfiguration :: Lens' EMRSecurityConfiguration Object -emrscSecurityConfiguration = lens _eMRSecurityConfigurationSecurityConfiguration (\s a -> s { _eMRSecurityConfigurationSecurityConfiguration = a }) diff --git a/library-gen/Stratosphere/Resources/EMRStep.hs b/library-gen/Stratosphere/Resources/EMRStep.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EMRStep.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-step.html - -module Stratosphere.Resources.EMRStep where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EMRStepHadoopJarStepConfig - --- | Full data type definition for EMRStep. See 'emrStep' for a more --- convenient constructor. -data EMRStep = - EMRStep - { _eMRStepActionOnFailure :: Val Text - , _eMRStepHadoopJarStep :: EMRStepHadoopJarStepConfig - , _eMRStepJobFlowId :: Val Text - , _eMRStepName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EMRStep where - toResourceProperties EMRStep{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EMR::Step" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ActionOnFailure",) . toJSON) _eMRStepActionOnFailure - , (Just . ("HadoopJarStep",) . toJSON) _eMRStepHadoopJarStep - , (Just . ("JobFlowId",) . toJSON) _eMRStepJobFlowId - , (Just . ("Name",) . toJSON) _eMRStepName - ] - } - --- | Constructor for 'EMRStep' containing required fields as arguments. -emrStep - :: Val Text -- ^ 'emrsActionOnFailure' - -> EMRStepHadoopJarStepConfig -- ^ 'emrsHadoopJarStep' - -> Val Text -- ^ 'emrsJobFlowId' - -> Val Text -- ^ 'emrsName' - -> EMRStep -emrStep actionOnFailurearg hadoopJarSteparg jobFlowIdarg namearg = - EMRStep - { _eMRStepActionOnFailure = actionOnFailurearg - , _eMRStepHadoopJarStep = hadoopJarSteparg - , _eMRStepJobFlowId = jobFlowIdarg - , _eMRStepName = namearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-step.html#cfn-elasticmapreduce-step-actiononfailure -emrsActionOnFailure :: Lens' EMRStep (Val Text) -emrsActionOnFailure = lens _eMRStepActionOnFailure (\s a -> s { _eMRStepActionOnFailure = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-step.html#cfn-elasticmapreduce-step-hadoopjarstep -emrsHadoopJarStep :: Lens' EMRStep EMRStepHadoopJarStepConfig -emrsHadoopJarStep = lens _eMRStepHadoopJarStep (\s a -> s { _eMRStepHadoopJarStep = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-step.html#cfn-elasticmapreduce-step-jobflowid -emrsJobFlowId :: Lens' EMRStep (Val Text) -emrsJobFlowId = lens _eMRStepJobFlowId (\s a -> s { _eMRStepJobFlowId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-emr-step.html#cfn-elasticmapreduce-step-name -emrsName :: Lens' EMRStep (Val Text) -emrsName = lens _eMRStepName (\s a -> s { _eMRStepName = a }) diff --git a/library-gen/Stratosphere/Resources/ElastiCacheCacheCluster.hs b/library-gen/Stratosphere/Resources/ElastiCacheCacheCluster.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ElastiCacheCacheCluster.hs +++ /dev/null @@ -1,184 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-cache-cluster.html - -module Stratosphere.Resources.ElastiCacheCacheCluster where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for ElastiCacheCacheCluster. See --- 'elastiCacheCacheCluster' for a more convenient constructor. -data ElastiCacheCacheCluster = - ElastiCacheCacheCluster - { _elastiCacheCacheClusterAZMode :: Maybe (Val Text) - , _elastiCacheCacheClusterAutoMinorVersionUpgrade :: Maybe (Val Bool) - , _elastiCacheCacheClusterCacheNodeType :: Val Text - , _elastiCacheCacheClusterCacheParameterGroupName :: Maybe (Val Text) - , _elastiCacheCacheClusterCacheSecurityGroupNames :: Maybe (ValList Text) - , _elastiCacheCacheClusterCacheSubnetGroupName :: Maybe (Val Text) - , _elastiCacheCacheClusterClusterName :: Maybe (Val Text) - , _elastiCacheCacheClusterEngine :: Val Text - , _elastiCacheCacheClusterEngineVersion :: Maybe (Val Text) - , _elastiCacheCacheClusterNotificationTopicArn :: Maybe (Val Text) - , _elastiCacheCacheClusterNumCacheNodes :: Val Integer - , _elastiCacheCacheClusterPort :: Maybe (Val Integer) - , _elastiCacheCacheClusterPreferredAvailabilityZone :: Maybe (Val Text) - , _elastiCacheCacheClusterPreferredAvailabilityZones :: Maybe (ValList Text) - , _elastiCacheCacheClusterPreferredMaintenanceWindow :: Maybe (Val Text) - , _elastiCacheCacheClusterSnapshotArns :: Maybe (ValList Text) - , _elastiCacheCacheClusterSnapshotName :: Maybe (Val Text) - , _elastiCacheCacheClusterSnapshotRetentionLimit :: Maybe (Val Integer) - , _elastiCacheCacheClusterSnapshotWindow :: Maybe (Val Text) - , _elastiCacheCacheClusterTags :: Maybe [Tag] - , _elastiCacheCacheClusterVpcSecurityGroupIds :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToResourceProperties ElastiCacheCacheCluster where - toResourceProperties ElastiCacheCacheCluster{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ElastiCache::CacheCluster" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AZMode",) . toJSON) _elastiCacheCacheClusterAZMode - , fmap (("AutoMinorVersionUpgrade",) . toJSON) _elastiCacheCacheClusterAutoMinorVersionUpgrade - , (Just . ("CacheNodeType",) . toJSON) _elastiCacheCacheClusterCacheNodeType - , fmap (("CacheParameterGroupName",) . toJSON) _elastiCacheCacheClusterCacheParameterGroupName - , fmap (("CacheSecurityGroupNames",) . toJSON) _elastiCacheCacheClusterCacheSecurityGroupNames - , fmap (("CacheSubnetGroupName",) . toJSON) _elastiCacheCacheClusterCacheSubnetGroupName - , fmap (("ClusterName",) . toJSON) _elastiCacheCacheClusterClusterName - , (Just . ("Engine",) . toJSON) _elastiCacheCacheClusterEngine - , fmap (("EngineVersion",) . toJSON) _elastiCacheCacheClusterEngineVersion - , fmap (("NotificationTopicArn",) . toJSON) _elastiCacheCacheClusterNotificationTopicArn - , (Just . ("NumCacheNodes",) . toJSON) _elastiCacheCacheClusterNumCacheNodes - , fmap (("Port",) . toJSON) _elastiCacheCacheClusterPort - , fmap (("PreferredAvailabilityZone",) . toJSON) _elastiCacheCacheClusterPreferredAvailabilityZone - , fmap (("PreferredAvailabilityZones",) . toJSON) _elastiCacheCacheClusterPreferredAvailabilityZones - , fmap (("PreferredMaintenanceWindow",) . toJSON) _elastiCacheCacheClusterPreferredMaintenanceWindow - , fmap (("SnapshotArns",) . toJSON) _elastiCacheCacheClusterSnapshotArns - , fmap (("SnapshotName",) . toJSON) _elastiCacheCacheClusterSnapshotName - , fmap (("SnapshotRetentionLimit",) . toJSON) _elastiCacheCacheClusterSnapshotRetentionLimit - , fmap (("SnapshotWindow",) . toJSON) _elastiCacheCacheClusterSnapshotWindow - , fmap (("Tags",) . toJSON) _elastiCacheCacheClusterTags - , fmap (("VpcSecurityGroupIds",) . toJSON) _elastiCacheCacheClusterVpcSecurityGroupIds - ] - } - --- | Constructor for 'ElastiCacheCacheCluster' containing required fields as --- arguments. -elastiCacheCacheCluster - :: Val Text -- ^ 'ecccCacheNodeType' - -> Val Text -- ^ 'ecccEngine' - -> Val Integer -- ^ 'ecccNumCacheNodes' - -> ElastiCacheCacheCluster -elastiCacheCacheCluster cacheNodeTypearg enginearg numCacheNodesarg = - ElastiCacheCacheCluster - { _elastiCacheCacheClusterAZMode = Nothing - , _elastiCacheCacheClusterAutoMinorVersionUpgrade = Nothing - , _elastiCacheCacheClusterCacheNodeType = cacheNodeTypearg - , _elastiCacheCacheClusterCacheParameterGroupName = Nothing - , _elastiCacheCacheClusterCacheSecurityGroupNames = Nothing - , _elastiCacheCacheClusterCacheSubnetGroupName = Nothing - , _elastiCacheCacheClusterClusterName = Nothing - , _elastiCacheCacheClusterEngine = enginearg - , _elastiCacheCacheClusterEngineVersion = Nothing - , _elastiCacheCacheClusterNotificationTopicArn = Nothing - , _elastiCacheCacheClusterNumCacheNodes = numCacheNodesarg - , _elastiCacheCacheClusterPort = Nothing - , _elastiCacheCacheClusterPreferredAvailabilityZone = Nothing - , _elastiCacheCacheClusterPreferredAvailabilityZones = Nothing - , _elastiCacheCacheClusterPreferredMaintenanceWindow = Nothing - , _elastiCacheCacheClusterSnapshotArns = Nothing - , _elastiCacheCacheClusterSnapshotName = Nothing - , _elastiCacheCacheClusterSnapshotRetentionLimit = Nothing - , _elastiCacheCacheClusterSnapshotWindow = Nothing - , _elastiCacheCacheClusterTags = Nothing - , _elastiCacheCacheClusterVpcSecurityGroupIds = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-cache-cluster.html#cfn-elasticache-cachecluster-azmode -ecccAZMode :: Lens' ElastiCacheCacheCluster (Maybe (Val Text)) -ecccAZMode = lens _elastiCacheCacheClusterAZMode (\s a -> s { _elastiCacheCacheClusterAZMode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-cache-cluster.html#cfn-elasticache-cachecluster-autominorversionupgrade -ecccAutoMinorVersionUpgrade :: Lens' ElastiCacheCacheCluster (Maybe (Val Bool)) -ecccAutoMinorVersionUpgrade = lens _elastiCacheCacheClusterAutoMinorVersionUpgrade (\s a -> s { _elastiCacheCacheClusterAutoMinorVersionUpgrade = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-cache-cluster.html#cfn-elasticache-cachecluster-cachenodetype -ecccCacheNodeType :: Lens' ElastiCacheCacheCluster (Val Text) -ecccCacheNodeType = lens _elastiCacheCacheClusterCacheNodeType (\s a -> s { _elastiCacheCacheClusterCacheNodeType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-cache-cluster.html#cfn-elasticache-cachecluster-cacheparametergroupname -ecccCacheParameterGroupName :: Lens' ElastiCacheCacheCluster (Maybe (Val Text)) -ecccCacheParameterGroupName = lens _elastiCacheCacheClusterCacheParameterGroupName (\s a -> s { _elastiCacheCacheClusterCacheParameterGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-cache-cluster.html#cfn-elasticache-cachecluster-cachesecuritygroupnames -ecccCacheSecurityGroupNames :: Lens' ElastiCacheCacheCluster (Maybe (ValList Text)) -ecccCacheSecurityGroupNames = lens _elastiCacheCacheClusterCacheSecurityGroupNames (\s a -> s { _elastiCacheCacheClusterCacheSecurityGroupNames = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-cache-cluster.html#cfn-elasticache-cachecluster-cachesubnetgroupname -ecccCacheSubnetGroupName :: Lens' ElastiCacheCacheCluster (Maybe (Val Text)) -ecccCacheSubnetGroupName = lens _elastiCacheCacheClusterCacheSubnetGroupName (\s a -> s { _elastiCacheCacheClusterCacheSubnetGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-cache-cluster.html#cfn-elasticache-cachecluster-clustername -ecccClusterName :: Lens' ElastiCacheCacheCluster (Maybe (Val Text)) -ecccClusterName = lens _elastiCacheCacheClusterClusterName (\s a -> s { _elastiCacheCacheClusterClusterName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-cache-cluster.html#cfn-elasticache-cachecluster-engine -ecccEngine :: Lens' ElastiCacheCacheCluster (Val Text) -ecccEngine = lens _elastiCacheCacheClusterEngine (\s a -> s { _elastiCacheCacheClusterEngine = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-cache-cluster.html#cfn-elasticache-cachecluster-engineversion -ecccEngineVersion :: Lens' ElastiCacheCacheCluster (Maybe (Val Text)) -ecccEngineVersion = lens _elastiCacheCacheClusterEngineVersion (\s a -> s { _elastiCacheCacheClusterEngineVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-cache-cluster.html#cfn-elasticache-cachecluster-notificationtopicarn -ecccNotificationTopicArn :: Lens' ElastiCacheCacheCluster (Maybe (Val Text)) -ecccNotificationTopicArn = lens _elastiCacheCacheClusterNotificationTopicArn (\s a -> s { _elastiCacheCacheClusterNotificationTopicArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-cache-cluster.html#cfn-elasticache-cachecluster-numcachenodes -ecccNumCacheNodes :: Lens' ElastiCacheCacheCluster (Val Integer) -ecccNumCacheNodes = lens _elastiCacheCacheClusterNumCacheNodes (\s a -> s { _elastiCacheCacheClusterNumCacheNodes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-cache-cluster.html#cfn-elasticache-cachecluster-port -ecccPort :: Lens' ElastiCacheCacheCluster (Maybe (Val Integer)) -ecccPort = lens _elastiCacheCacheClusterPort (\s a -> s { _elastiCacheCacheClusterPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-cache-cluster.html#cfn-elasticache-cachecluster-preferredavailabilityzone -ecccPreferredAvailabilityZone :: Lens' ElastiCacheCacheCluster (Maybe (Val Text)) -ecccPreferredAvailabilityZone = lens _elastiCacheCacheClusterPreferredAvailabilityZone (\s a -> s { _elastiCacheCacheClusterPreferredAvailabilityZone = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-cache-cluster.html#cfn-elasticache-cachecluster-preferredavailabilityzones -ecccPreferredAvailabilityZones :: Lens' ElastiCacheCacheCluster (Maybe (ValList Text)) -ecccPreferredAvailabilityZones = lens _elastiCacheCacheClusterPreferredAvailabilityZones (\s a -> s { _elastiCacheCacheClusterPreferredAvailabilityZones = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-cache-cluster.html#cfn-elasticache-cachecluster-preferredmaintenancewindow -ecccPreferredMaintenanceWindow :: Lens' ElastiCacheCacheCluster (Maybe (Val Text)) -ecccPreferredMaintenanceWindow = lens _elastiCacheCacheClusterPreferredMaintenanceWindow (\s a -> s { _elastiCacheCacheClusterPreferredMaintenanceWindow = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-cache-cluster.html#cfn-elasticache-cachecluster-snapshotarns -ecccSnapshotArns :: Lens' ElastiCacheCacheCluster (Maybe (ValList Text)) -ecccSnapshotArns = lens _elastiCacheCacheClusterSnapshotArns (\s a -> s { _elastiCacheCacheClusterSnapshotArns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-cache-cluster.html#cfn-elasticache-cachecluster-snapshotname -ecccSnapshotName :: Lens' ElastiCacheCacheCluster (Maybe (Val Text)) -ecccSnapshotName = lens _elastiCacheCacheClusterSnapshotName (\s a -> s { _elastiCacheCacheClusterSnapshotName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-cache-cluster.html#cfn-elasticache-cachecluster-snapshotretentionlimit -ecccSnapshotRetentionLimit :: Lens' ElastiCacheCacheCluster (Maybe (Val Integer)) -ecccSnapshotRetentionLimit = lens _elastiCacheCacheClusterSnapshotRetentionLimit (\s a -> s { _elastiCacheCacheClusterSnapshotRetentionLimit = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-cache-cluster.html#cfn-elasticache-cachecluster-snapshotwindow -ecccSnapshotWindow :: Lens' ElastiCacheCacheCluster (Maybe (Val Text)) -ecccSnapshotWindow = lens _elastiCacheCacheClusterSnapshotWindow (\s a -> s { _elastiCacheCacheClusterSnapshotWindow = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-cache-cluster.html#cfn-elasticache-cachecluster-tags -ecccTags :: Lens' ElastiCacheCacheCluster (Maybe [Tag]) -ecccTags = lens _elastiCacheCacheClusterTags (\s a -> s { _elastiCacheCacheClusterTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-cache-cluster.html#cfn-elasticache-cachecluster-vpcsecuritygroupids -ecccVpcSecurityGroupIds :: Lens' ElastiCacheCacheCluster (Maybe (ValList Text)) -ecccVpcSecurityGroupIds = lens _elastiCacheCacheClusterVpcSecurityGroupIds (\s a -> s { _elastiCacheCacheClusterVpcSecurityGroupIds = a }) diff --git a/library-gen/Stratosphere/Resources/ElastiCacheParameterGroup.hs b/library-gen/Stratosphere/Resources/ElastiCacheParameterGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ElastiCacheParameterGroup.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-parameter-group.html - -module Stratosphere.Resources.ElastiCacheParameterGroup where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ElastiCacheParameterGroup. See --- 'elastiCacheParameterGroup' for a more convenient constructor. -data ElastiCacheParameterGroup = - ElastiCacheParameterGroup - { _elastiCacheParameterGroupCacheParameterGroupFamily :: Val Text - , _elastiCacheParameterGroupDescription :: Val Text - , _elastiCacheParameterGroupProperties :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties ElastiCacheParameterGroup where - toResourceProperties ElastiCacheParameterGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ElastiCache::ParameterGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("CacheParameterGroupFamily",) . toJSON) _elastiCacheParameterGroupCacheParameterGroupFamily - , (Just . ("Description",) . toJSON) _elastiCacheParameterGroupDescription - , fmap (("Properties",) . toJSON) _elastiCacheParameterGroupProperties - ] - } - --- | Constructor for 'ElastiCacheParameterGroup' containing required fields as --- arguments. -elastiCacheParameterGroup - :: Val Text -- ^ 'ecpgCacheParameterGroupFamily' - -> Val Text -- ^ 'ecpgDescription' - -> ElastiCacheParameterGroup -elastiCacheParameterGroup cacheParameterGroupFamilyarg descriptionarg = - ElastiCacheParameterGroup - { _elastiCacheParameterGroupCacheParameterGroupFamily = cacheParameterGroupFamilyarg - , _elastiCacheParameterGroupDescription = descriptionarg - , _elastiCacheParameterGroupProperties = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-parameter-group.html#cfn-elasticache-parametergroup-cacheparametergroupfamily -ecpgCacheParameterGroupFamily :: Lens' ElastiCacheParameterGroup (Val Text) -ecpgCacheParameterGroupFamily = lens _elastiCacheParameterGroupCacheParameterGroupFamily (\s a -> s { _elastiCacheParameterGroupCacheParameterGroupFamily = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-parameter-group.html#cfn-elasticache-parametergroup-description -ecpgDescription :: Lens' ElastiCacheParameterGroup (Val Text) -ecpgDescription = lens _elastiCacheParameterGroupDescription (\s a -> s { _elastiCacheParameterGroupDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-parameter-group.html#cfn-elasticache-parametergroup-properties -ecpgProperties :: Lens' ElastiCacheParameterGroup (Maybe Object) -ecpgProperties = lens _elastiCacheParameterGroupProperties (\s a -> s { _elastiCacheParameterGroupProperties = a }) diff --git a/library-gen/Stratosphere/Resources/ElastiCacheReplicationGroup.hs b/library-gen/Stratosphere/Resources/ElastiCacheReplicationGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ElastiCacheReplicationGroup.hs +++ /dev/null @@ -1,253 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html - -module Stratosphere.Resources.ElastiCacheReplicationGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ElastiCacheReplicationGroupNodeGroupConfiguration -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for ElastiCacheReplicationGroup. See --- 'elastiCacheReplicationGroup' for a more convenient constructor. -data ElastiCacheReplicationGroup = - ElastiCacheReplicationGroup - { _elastiCacheReplicationGroupAtRestEncryptionEnabled :: Maybe (Val Bool) - , _elastiCacheReplicationGroupAuthToken :: Maybe (Val Text) - , _elastiCacheReplicationGroupAutoMinorVersionUpgrade :: Maybe (Val Bool) - , _elastiCacheReplicationGroupAutomaticFailoverEnabled :: Maybe (Val Bool) - , _elastiCacheReplicationGroupCacheNodeType :: Maybe (Val Text) - , _elastiCacheReplicationGroupCacheParameterGroupName :: Maybe (Val Text) - , _elastiCacheReplicationGroupCacheSecurityGroupNames :: Maybe (ValList Text) - , _elastiCacheReplicationGroupCacheSubnetGroupName :: Maybe (Val Text) - , _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) - , _elastiCacheReplicationGroupNumNodeGroups :: Maybe (Val Integer) - , _elastiCacheReplicationGroupPort :: Maybe (Val Integer) - , _elastiCacheReplicationGroupPreferredCacheClusterAZs :: Maybe (ValList Text) - , _elastiCacheReplicationGroupPreferredMaintenanceWindow :: Maybe (Val Text) - , _elastiCacheReplicationGroupPrimaryClusterId :: Maybe (Val Text) - , _elastiCacheReplicationGroupReplicasPerNodeGroup :: Maybe (Val Integer) - , _elastiCacheReplicationGroupReplicationGroupDescription :: Val Text - , _elastiCacheReplicationGroupReplicationGroupId :: Maybe (Val Text) - , _elastiCacheReplicationGroupSecurityGroupIds :: Maybe (ValList Text) - , _elastiCacheReplicationGroupSnapshotArns :: Maybe (ValList Text) - , _elastiCacheReplicationGroupSnapshotName :: Maybe (Val Text) - , _elastiCacheReplicationGroupSnapshotRetentionLimit :: Maybe (Val Integer) - , _elastiCacheReplicationGroupSnapshotWindow :: Maybe (Val Text) - , _elastiCacheReplicationGroupSnapshottingClusterId :: Maybe (Val Text) - , _elastiCacheReplicationGroupTags :: Maybe [Tag] - , _elastiCacheReplicationGroupTransitEncryptionEnabled :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToResourceProperties ElastiCacheReplicationGroup where - toResourceProperties ElastiCacheReplicationGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ElastiCache::ReplicationGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AtRestEncryptionEnabled",) . toJSON) _elastiCacheReplicationGroupAtRestEncryptionEnabled - , fmap (("AuthToken",) . toJSON) _elastiCacheReplicationGroupAuthToken - , fmap (("AutoMinorVersionUpgrade",) . toJSON) _elastiCacheReplicationGroupAutoMinorVersionUpgrade - , fmap (("AutomaticFailoverEnabled",) . toJSON) _elastiCacheReplicationGroupAutomaticFailoverEnabled - , fmap (("CacheNodeType",) . toJSON) _elastiCacheReplicationGroupCacheNodeType - , fmap (("CacheParameterGroupName",) . toJSON) _elastiCacheReplicationGroupCacheParameterGroupName - , fmap (("CacheSecurityGroupNames",) . toJSON) _elastiCacheReplicationGroupCacheSecurityGroupNames - , fmap (("CacheSubnetGroupName",) . toJSON) _elastiCacheReplicationGroupCacheSubnetGroupName - , 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 - , fmap (("NumNodeGroups",) . toJSON) _elastiCacheReplicationGroupNumNodeGroups - , fmap (("Port",) . toJSON) _elastiCacheReplicationGroupPort - , fmap (("PreferredCacheClusterAZs",) . toJSON) _elastiCacheReplicationGroupPreferredCacheClusterAZs - , fmap (("PreferredMaintenanceWindow",) . toJSON) _elastiCacheReplicationGroupPreferredMaintenanceWindow - , fmap (("PrimaryClusterId",) . toJSON) _elastiCacheReplicationGroupPrimaryClusterId - , fmap (("ReplicasPerNodeGroup",) . toJSON) _elastiCacheReplicationGroupReplicasPerNodeGroup - , (Just . ("ReplicationGroupDescription",) . toJSON) _elastiCacheReplicationGroupReplicationGroupDescription - , fmap (("ReplicationGroupId",) . toJSON) _elastiCacheReplicationGroupReplicationGroupId - , fmap (("SecurityGroupIds",) . toJSON) _elastiCacheReplicationGroupSecurityGroupIds - , fmap (("SnapshotArns",) . toJSON) _elastiCacheReplicationGroupSnapshotArns - , fmap (("SnapshotName",) . toJSON) _elastiCacheReplicationGroupSnapshotName - , fmap (("SnapshotRetentionLimit",) . toJSON) _elastiCacheReplicationGroupSnapshotRetentionLimit - , fmap (("SnapshotWindow",) . toJSON) _elastiCacheReplicationGroupSnapshotWindow - , fmap (("SnapshottingClusterId",) . toJSON) _elastiCacheReplicationGroupSnapshottingClusterId - , fmap (("Tags",) . toJSON) _elastiCacheReplicationGroupTags - , fmap (("TransitEncryptionEnabled",) . toJSON) _elastiCacheReplicationGroupTransitEncryptionEnabled - ] - } - --- | Constructor for 'ElastiCacheReplicationGroup' containing required fields --- as arguments. -elastiCacheReplicationGroup - :: Val Text -- ^ 'ecrgReplicationGroupDescription' - -> ElastiCacheReplicationGroup -elastiCacheReplicationGroup replicationGroupDescriptionarg = - ElastiCacheReplicationGroup - { _elastiCacheReplicationGroupAtRestEncryptionEnabled = Nothing - , _elastiCacheReplicationGroupAuthToken = Nothing - , _elastiCacheReplicationGroupAutoMinorVersionUpgrade = Nothing - , _elastiCacheReplicationGroupAutomaticFailoverEnabled = Nothing - , _elastiCacheReplicationGroupCacheNodeType = Nothing - , _elastiCacheReplicationGroupCacheParameterGroupName = Nothing - , _elastiCacheReplicationGroupCacheSecurityGroupNames = Nothing - , _elastiCacheReplicationGroupCacheSubnetGroupName = Nothing - , _elastiCacheReplicationGroupEngine = Nothing - , _elastiCacheReplicationGroupEngineVersion = Nothing - , _elastiCacheReplicationGroupKmsKeyId = Nothing - , _elastiCacheReplicationGroupMultiAZEnabled = Nothing - , _elastiCacheReplicationGroupNodeGroupConfiguration = Nothing - , _elastiCacheReplicationGroupNotificationTopicArn = Nothing - , _elastiCacheReplicationGroupNumCacheClusters = Nothing - , _elastiCacheReplicationGroupNumNodeGroups = Nothing - , _elastiCacheReplicationGroupPort = Nothing - , _elastiCacheReplicationGroupPreferredCacheClusterAZs = Nothing - , _elastiCacheReplicationGroupPreferredMaintenanceWindow = Nothing - , _elastiCacheReplicationGroupPrimaryClusterId = Nothing - , _elastiCacheReplicationGroupReplicasPerNodeGroup = Nothing - , _elastiCacheReplicationGroupReplicationGroupDescription = replicationGroupDescriptionarg - , _elastiCacheReplicationGroupReplicationGroupId = Nothing - , _elastiCacheReplicationGroupSecurityGroupIds = Nothing - , _elastiCacheReplicationGroupSnapshotArns = Nothing - , _elastiCacheReplicationGroupSnapshotName = Nothing - , _elastiCacheReplicationGroupSnapshotRetentionLimit = Nothing - , _elastiCacheReplicationGroupSnapshotWindow = Nothing - , _elastiCacheReplicationGroupSnapshottingClusterId = Nothing - , _elastiCacheReplicationGroupTags = Nothing - , _elastiCacheReplicationGroupTransitEncryptionEnabled = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-atrestencryptionenabled -ecrgAtRestEncryptionEnabled :: Lens' ElastiCacheReplicationGroup (Maybe (Val Bool)) -ecrgAtRestEncryptionEnabled = lens _elastiCacheReplicationGroupAtRestEncryptionEnabled (\s a -> s { _elastiCacheReplicationGroupAtRestEncryptionEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-authtoken -ecrgAuthToken :: Lens' ElastiCacheReplicationGroup (Maybe (Val Text)) -ecrgAuthToken = lens _elastiCacheReplicationGroupAuthToken (\s a -> s { _elastiCacheReplicationGroupAuthToken = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-autominorversionupgrade -ecrgAutoMinorVersionUpgrade :: Lens' ElastiCacheReplicationGroup (Maybe (Val Bool)) -ecrgAutoMinorVersionUpgrade = lens _elastiCacheReplicationGroupAutoMinorVersionUpgrade (\s a -> s { _elastiCacheReplicationGroupAutoMinorVersionUpgrade = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-automaticfailoverenabled -ecrgAutomaticFailoverEnabled :: Lens' ElastiCacheReplicationGroup (Maybe (Val Bool)) -ecrgAutomaticFailoverEnabled = lens _elastiCacheReplicationGroupAutomaticFailoverEnabled (\s a -> s { _elastiCacheReplicationGroupAutomaticFailoverEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-cachenodetype -ecrgCacheNodeType :: Lens' ElastiCacheReplicationGroup (Maybe (Val Text)) -ecrgCacheNodeType = lens _elastiCacheReplicationGroupCacheNodeType (\s a -> s { _elastiCacheReplicationGroupCacheNodeType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-cacheparametergroupname -ecrgCacheParameterGroupName :: Lens' ElastiCacheReplicationGroup (Maybe (Val Text)) -ecrgCacheParameterGroupName = lens _elastiCacheReplicationGroupCacheParameterGroupName (\s a -> s { _elastiCacheReplicationGroupCacheParameterGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-cachesecuritygroupnames -ecrgCacheSecurityGroupNames :: Lens' ElastiCacheReplicationGroup (Maybe (ValList Text)) -ecrgCacheSecurityGroupNames = lens _elastiCacheReplicationGroupCacheSecurityGroupNames (\s a -> s { _elastiCacheReplicationGroupCacheSecurityGroupNames = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-cachesubnetgroupname -ecrgCacheSubnetGroupName :: Lens' ElastiCacheReplicationGroup (Maybe (Val Text)) -ecrgCacheSubnetGroupName = lens _elastiCacheReplicationGroupCacheSubnetGroupName (\s a -> s { _elastiCacheReplicationGroupCacheSubnetGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-engine -ecrgEngine :: Lens' ElastiCacheReplicationGroup (Maybe (Val Text)) -ecrgEngine = lens _elastiCacheReplicationGroupEngine (\s a -> s { _elastiCacheReplicationGroupEngine = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-engineversion -ecrgEngineVersion :: Lens' ElastiCacheReplicationGroup (Maybe (Val Text)) -ecrgEngineVersion = lens _elastiCacheReplicationGroupEngineVersion (\s a -> s { _elastiCacheReplicationGroupEngineVersion = a }) - --- | 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]) -ecrgNodeGroupConfiguration = lens _elastiCacheReplicationGroupNodeGroupConfiguration (\s a -> s { _elastiCacheReplicationGroupNodeGroupConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-notificationtopicarn -ecrgNotificationTopicArn :: Lens' ElastiCacheReplicationGroup (Maybe (Val Text)) -ecrgNotificationTopicArn = lens _elastiCacheReplicationGroupNotificationTopicArn (\s a -> s { _elastiCacheReplicationGroupNotificationTopicArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-numcacheclusters -ecrgNumCacheClusters :: Lens' ElastiCacheReplicationGroup (Maybe (Val Integer)) -ecrgNumCacheClusters = lens _elastiCacheReplicationGroupNumCacheClusters (\s a -> s { _elastiCacheReplicationGroupNumCacheClusters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-numnodegroups -ecrgNumNodeGroups :: Lens' ElastiCacheReplicationGroup (Maybe (Val Integer)) -ecrgNumNodeGroups = lens _elastiCacheReplicationGroupNumNodeGroups (\s a -> s { _elastiCacheReplicationGroupNumNodeGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-port -ecrgPort :: Lens' ElastiCacheReplicationGroup (Maybe (Val Integer)) -ecrgPort = lens _elastiCacheReplicationGroupPort (\s a -> s { _elastiCacheReplicationGroupPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-preferredcacheclusterazs -ecrgPreferredCacheClusterAZs :: Lens' ElastiCacheReplicationGroup (Maybe (ValList Text)) -ecrgPreferredCacheClusterAZs = lens _elastiCacheReplicationGroupPreferredCacheClusterAZs (\s a -> s { _elastiCacheReplicationGroupPreferredCacheClusterAZs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-preferredmaintenancewindow -ecrgPreferredMaintenanceWindow :: Lens' ElastiCacheReplicationGroup (Maybe (Val Text)) -ecrgPreferredMaintenanceWindow = lens _elastiCacheReplicationGroupPreferredMaintenanceWindow (\s a -> s { _elastiCacheReplicationGroupPreferredMaintenanceWindow = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-primaryclusterid -ecrgPrimaryClusterId :: Lens' ElastiCacheReplicationGroup (Maybe (Val Text)) -ecrgPrimaryClusterId = lens _elastiCacheReplicationGroupPrimaryClusterId (\s a -> s { _elastiCacheReplicationGroupPrimaryClusterId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-replicaspernodegroup -ecrgReplicasPerNodeGroup :: Lens' ElastiCacheReplicationGroup (Maybe (Val Integer)) -ecrgReplicasPerNodeGroup = lens _elastiCacheReplicationGroupReplicasPerNodeGroup (\s a -> s { _elastiCacheReplicationGroupReplicasPerNodeGroup = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-replicationgroupdescription -ecrgReplicationGroupDescription :: Lens' ElastiCacheReplicationGroup (Val Text) -ecrgReplicationGroupDescription = lens _elastiCacheReplicationGroupReplicationGroupDescription (\s a -> s { _elastiCacheReplicationGroupReplicationGroupDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-replicationgroupid -ecrgReplicationGroupId :: Lens' ElastiCacheReplicationGroup (Maybe (Val Text)) -ecrgReplicationGroupId = lens _elastiCacheReplicationGroupReplicationGroupId (\s a -> s { _elastiCacheReplicationGroupReplicationGroupId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-securitygroupids -ecrgSecurityGroupIds :: Lens' ElastiCacheReplicationGroup (Maybe (ValList Text)) -ecrgSecurityGroupIds = lens _elastiCacheReplicationGroupSecurityGroupIds (\s a -> s { _elastiCacheReplicationGroupSecurityGroupIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-snapshotarns -ecrgSnapshotArns :: Lens' ElastiCacheReplicationGroup (Maybe (ValList Text)) -ecrgSnapshotArns = lens _elastiCacheReplicationGroupSnapshotArns (\s a -> s { _elastiCacheReplicationGroupSnapshotArns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-snapshotname -ecrgSnapshotName :: Lens' ElastiCacheReplicationGroup (Maybe (Val Text)) -ecrgSnapshotName = lens _elastiCacheReplicationGroupSnapshotName (\s a -> s { _elastiCacheReplicationGroupSnapshotName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-snapshotretentionlimit -ecrgSnapshotRetentionLimit :: Lens' ElastiCacheReplicationGroup (Maybe (Val Integer)) -ecrgSnapshotRetentionLimit = lens _elastiCacheReplicationGroupSnapshotRetentionLimit (\s a -> s { _elastiCacheReplicationGroupSnapshotRetentionLimit = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-snapshotwindow -ecrgSnapshotWindow :: Lens' ElastiCacheReplicationGroup (Maybe (Val Text)) -ecrgSnapshotWindow = lens _elastiCacheReplicationGroupSnapshotWindow (\s a -> s { _elastiCacheReplicationGroupSnapshotWindow = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-snapshottingclusterid -ecrgSnapshottingClusterId :: Lens' ElastiCacheReplicationGroup (Maybe (Val Text)) -ecrgSnapshottingClusterId = lens _elastiCacheReplicationGroupSnapshottingClusterId (\s a -> s { _elastiCacheReplicationGroupSnapshottingClusterId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-tags -ecrgTags :: Lens' ElastiCacheReplicationGroup (Maybe [Tag]) -ecrgTags = lens _elastiCacheReplicationGroupTags (\s a -> s { _elastiCacheReplicationGroupTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticache-replicationgroup.html#cfn-elasticache-replicationgroup-transitencryptionenabled -ecrgTransitEncryptionEnabled :: Lens' ElastiCacheReplicationGroup (Maybe (Val Bool)) -ecrgTransitEncryptionEnabled = lens _elastiCacheReplicationGroupTransitEncryptionEnabled (\s a -> s { _elastiCacheReplicationGroupTransitEncryptionEnabled = a }) diff --git a/library-gen/Stratosphere/Resources/ElastiCacheSecurityGroup.hs b/library-gen/Stratosphere/Resources/ElastiCacheSecurityGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ElastiCacheSecurityGroup.hs +++ /dev/null @@ -1,42 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-security-group.html - -module Stratosphere.Resources.ElastiCacheSecurityGroup where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ElastiCacheSecurityGroup. See --- 'elastiCacheSecurityGroup' for a more convenient constructor. -data ElastiCacheSecurityGroup = - ElastiCacheSecurityGroup - { _elastiCacheSecurityGroupDescription :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties ElastiCacheSecurityGroup where - toResourceProperties ElastiCacheSecurityGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ElastiCache::SecurityGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Description",) . toJSON) _elastiCacheSecurityGroupDescription - ] - } - --- | Constructor for 'ElastiCacheSecurityGroup' containing required fields as --- arguments. -elastiCacheSecurityGroup - :: Val Text -- ^ 'ecsegDescription' - -> ElastiCacheSecurityGroup -elastiCacheSecurityGroup descriptionarg = - ElastiCacheSecurityGroup - { _elastiCacheSecurityGroupDescription = descriptionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-security-group.html#cfn-elasticache-securitygroup-description -ecsegDescription :: Lens' ElastiCacheSecurityGroup (Val Text) -ecsegDescription = lens _elastiCacheSecurityGroupDescription (\s a -> s { _elastiCacheSecurityGroupDescription = a }) diff --git a/library-gen/Stratosphere/Resources/ElastiCacheSecurityGroupIngress.hs b/library-gen/Stratosphere/Resources/ElastiCacheSecurityGroupIngress.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ElastiCacheSecurityGroupIngress.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-security-group-ingress.html - -module Stratosphere.Resources.ElastiCacheSecurityGroupIngress where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ElastiCacheSecurityGroupIngress. See --- 'elastiCacheSecurityGroupIngress' for a more convenient constructor. -data ElastiCacheSecurityGroupIngress = - ElastiCacheSecurityGroupIngress - { _elastiCacheSecurityGroupIngressCacheSecurityGroupName :: Val Text - , _elastiCacheSecurityGroupIngressEC2SecurityGroupName :: Val Text - , _elastiCacheSecurityGroupIngressEC2SecurityGroupOwnerId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties ElastiCacheSecurityGroupIngress where - toResourceProperties ElastiCacheSecurityGroupIngress{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ElastiCache::SecurityGroupIngress" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("CacheSecurityGroupName",) . toJSON) _elastiCacheSecurityGroupIngressCacheSecurityGroupName - , (Just . ("EC2SecurityGroupName",) . toJSON) _elastiCacheSecurityGroupIngressEC2SecurityGroupName - , fmap (("EC2SecurityGroupOwnerId",) . toJSON) _elastiCacheSecurityGroupIngressEC2SecurityGroupOwnerId - ] - } - --- | Constructor for 'ElastiCacheSecurityGroupIngress' containing required --- fields as arguments. -elastiCacheSecurityGroupIngress - :: Val Text -- ^ 'ecsgiCacheSecurityGroupName' - -> Val Text -- ^ 'ecsgiEC2SecurityGroupName' - -> ElastiCacheSecurityGroupIngress -elastiCacheSecurityGroupIngress cacheSecurityGroupNamearg eC2SecurityGroupNamearg = - ElastiCacheSecurityGroupIngress - { _elastiCacheSecurityGroupIngressCacheSecurityGroupName = cacheSecurityGroupNamearg - , _elastiCacheSecurityGroupIngressEC2SecurityGroupName = eC2SecurityGroupNamearg - , _elastiCacheSecurityGroupIngressEC2SecurityGroupOwnerId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-security-group-ingress.html#cfn-elasticache-securitygroupingress-cachesecuritygroupname -ecsgiCacheSecurityGroupName :: Lens' ElastiCacheSecurityGroupIngress (Val Text) -ecsgiCacheSecurityGroupName = lens _elastiCacheSecurityGroupIngressCacheSecurityGroupName (\s a -> s { _elastiCacheSecurityGroupIngressCacheSecurityGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-security-group-ingress.html#cfn-elasticache-securitygroupingress-ec2securitygroupname -ecsgiEC2SecurityGroupName :: Lens' ElastiCacheSecurityGroupIngress (Val Text) -ecsgiEC2SecurityGroupName = lens _elastiCacheSecurityGroupIngressEC2SecurityGroupName (\s a -> s { _elastiCacheSecurityGroupIngressEC2SecurityGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-security-group-ingress.html#cfn-elasticache-securitygroupingress-ec2securitygroupownerid -ecsgiEC2SecurityGroupOwnerId :: Lens' ElastiCacheSecurityGroupIngress (Maybe (Val Text)) -ecsgiEC2SecurityGroupOwnerId = lens _elastiCacheSecurityGroupIngressEC2SecurityGroupOwnerId (\s a -> s { _elastiCacheSecurityGroupIngressEC2SecurityGroupOwnerId = a }) diff --git a/library-gen/Stratosphere/Resources/ElastiCacheSubnetGroup.hs b/library-gen/Stratosphere/Resources/ElastiCacheSubnetGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ElastiCacheSubnetGroup.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-subnetgroup.html - -module Stratosphere.Resources.ElastiCacheSubnetGroup where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ElastiCacheSubnetGroup. See --- 'elastiCacheSubnetGroup' for a more convenient constructor. -data ElastiCacheSubnetGroup = - ElastiCacheSubnetGroup - { _elastiCacheSubnetGroupCacheSubnetGroupName :: Maybe (Val Text) - , _elastiCacheSubnetGroupDescription :: Val Text - , _elastiCacheSubnetGroupSubnetIds :: ValList Text - } deriving (Show, Eq) - -instance ToResourceProperties ElastiCacheSubnetGroup where - toResourceProperties ElastiCacheSubnetGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ElastiCache::SubnetGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("CacheSubnetGroupName",) . toJSON) _elastiCacheSubnetGroupCacheSubnetGroupName - , (Just . ("Description",) . toJSON) _elastiCacheSubnetGroupDescription - , (Just . ("SubnetIds",) . toJSON) _elastiCacheSubnetGroupSubnetIds - ] - } - --- | Constructor for 'ElastiCacheSubnetGroup' containing required fields as --- arguments. -elastiCacheSubnetGroup - :: Val Text -- ^ 'ecsugDescription' - -> ValList Text -- ^ 'ecsugSubnetIds' - -> ElastiCacheSubnetGroup -elastiCacheSubnetGroup descriptionarg subnetIdsarg = - ElastiCacheSubnetGroup - { _elastiCacheSubnetGroupCacheSubnetGroupName = Nothing - , _elastiCacheSubnetGroupDescription = descriptionarg - , _elastiCacheSubnetGroupSubnetIds = subnetIdsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-subnetgroup.html#cfn-elasticache-subnetgroup-cachesubnetgroupname -ecsugCacheSubnetGroupName :: Lens' ElastiCacheSubnetGroup (Maybe (Val Text)) -ecsugCacheSubnetGroupName = lens _elastiCacheSubnetGroupCacheSubnetGroupName (\s a -> s { _elastiCacheSubnetGroupCacheSubnetGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-subnetgroup.html#cfn-elasticache-subnetgroup-description -ecsugDescription :: Lens' ElastiCacheSubnetGroup (Val Text) -ecsugDescription = lens _elastiCacheSubnetGroupDescription (\s a -> s { _elastiCacheSubnetGroupDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticache-subnetgroup.html#cfn-elasticache-subnetgroup-subnetids -ecsugSubnetIds :: Lens' ElastiCacheSubnetGroup (ValList Text) -ecsugSubnetIds = lens _elastiCacheSubnetGroupSubnetIds (\s a -> s { _elastiCacheSubnetGroupSubnetIds = a }) diff --git a/library-gen/Stratosphere/Resources/ElasticBeanstalkApplication.hs b/library-gen/Stratosphere/Resources/ElasticBeanstalkApplication.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ElasticBeanstalkApplication.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk.html - -module Stratosphere.Resources.ElasticBeanstalkApplication where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ElasticBeanstalkApplicationApplicationResourceLifecycleConfig - --- | Full data type definition for ElasticBeanstalkApplication. See --- 'elasticBeanstalkApplication' for a more convenient constructor. -data ElasticBeanstalkApplication = - ElasticBeanstalkApplication - { _elasticBeanstalkApplicationApplicationName :: Maybe (Val Text) - , _elasticBeanstalkApplicationDescription :: Maybe (Val Text) - , _elasticBeanstalkApplicationResourceLifecycleConfig :: Maybe ElasticBeanstalkApplicationApplicationResourceLifecycleConfig - } deriving (Show, Eq) - -instance ToResourceProperties ElasticBeanstalkApplication where - toResourceProperties ElasticBeanstalkApplication{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ElasticBeanstalk::Application" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ApplicationName",) . toJSON) _elasticBeanstalkApplicationApplicationName - , fmap (("Description",) . toJSON) _elasticBeanstalkApplicationDescription - , fmap (("ResourceLifecycleConfig",) . toJSON) _elasticBeanstalkApplicationResourceLifecycleConfig - ] - } - --- | Constructor for 'ElasticBeanstalkApplication' containing required fields --- as arguments. -elasticBeanstalkApplication - :: ElasticBeanstalkApplication -elasticBeanstalkApplication = - ElasticBeanstalkApplication - { _elasticBeanstalkApplicationApplicationName = Nothing - , _elasticBeanstalkApplicationDescription = Nothing - , _elasticBeanstalkApplicationResourceLifecycleConfig = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk.html#cfn-elasticbeanstalk-application-name -ebaApplicationName :: Lens' ElasticBeanstalkApplication (Maybe (Val Text)) -ebaApplicationName = lens _elasticBeanstalkApplicationApplicationName (\s a -> s { _elasticBeanstalkApplicationApplicationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk.html#cfn-elasticbeanstalk-application-description -ebaDescription :: Lens' ElasticBeanstalkApplication (Maybe (Val Text)) -ebaDescription = lens _elasticBeanstalkApplicationDescription (\s a -> s { _elasticBeanstalkApplicationDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk.html#cfn-elasticbeanstalk-application-resourcelifecycleconfig -ebaResourceLifecycleConfig :: Lens' ElasticBeanstalkApplication (Maybe ElasticBeanstalkApplicationApplicationResourceLifecycleConfig) -ebaResourceLifecycleConfig = lens _elasticBeanstalkApplicationResourceLifecycleConfig (\s a -> s { _elasticBeanstalkApplicationResourceLifecycleConfig = a }) diff --git a/library-gen/Stratosphere/Resources/ElasticBeanstalkApplicationVersion.hs b/library-gen/Stratosphere/Resources/ElasticBeanstalkApplicationVersion.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ElasticBeanstalkApplicationVersion.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-version.html - -module Stratosphere.Resources.ElasticBeanstalkApplicationVersion where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ElasticBeanstalkApplicationVersionSourceBundle - --- | Full data type definition for ElasticBeanstalkApplicationVersion. See --- 'elasticBeanstalkApplicationVersion' for a more convenient constructor. -data ElasticBeanstalkApplicationVersion = - ElasticBeanstalkApplicationVersion - { _elasticBeanstalkApplicationVersionApplicationName :: Val Text - , _elasticBeanstalkApplicationVersionDescription :: Maybe (Val Text) - , _elasticBeanstalkApplicationVersionSourceBundle :: ElasticBeanstalkApplicationVersionSourceBundle - } deriving (Show, Eq) - -instance ToResourceProperties ElasticBeanstalkApplicationVersion where - toResourceProperties ElasticBeanstalkApplicationVersion{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ElasticBeanstalk::ApplicationVersion" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApplicationName",) . toJSON) _elasticBeanstalkApplicationVersionApplicationName - , fmap (("Description",) . toJSON) _elasticBeanstalkApplicationVersionDescription - , (Just . ("SourceBundle",) . toJSON) _elasticBeanstalkApplicationVersionSourceBundle - ] - } - --- | Constructor for 'ElasticBeanstalkApplicationVersion' containing required --- fields as arguments. -elasticBeanstalkApplicationVersion - :: Val Text -- ^ 'ebavApplicationName' - -> ElasticBeanstalkApplicationVersionSourceBundle -- ^ 'ebavSourceBundle' - -> ElasticBeanstalkApplicationVersion -elasticBeanstalkApplicationVersion applicationNamearg sourceBundlearg = - ElasticBeanstalkApplicationVersion - { _elasticBeanstalkApplicationVersionApplicationName = applicationNamearg - , _elasticBeanstalkApplicationVersionDescription = Nothing - , _elasticBeanstalkApplicationVersionSourceBundle = sourceBundlearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-version.html#cfn-elasticbeanstalk-applicationversion-applicationname -ebavApplicationName :: Lens' ElasticBeanstalkApplicationVersion (Val Text) -ebavApplicationName = lens _elasticBeanstalkApplicationVersionApplicationName (\s a -> s { _elasticBeanstalkApplicationVersionApplicationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-version.html#cfn-elasticbeanstalk-applicationversion-description -ebavDescription :: Lens' ElasticBeanstalkApplicationVersion (Maybe (Val Text)) -ebavDescription = lens _elasticBeanstalkApplicationVersionDescription (\s a -> s { _elasticBeanstalkApplicationVersionDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-version.html#cfn-elasticbeanstalk-applicationversion-sourcebundle -ebavSourceBundle :: Lens' ElasticBeanstalkApplicationVersion ElasticBeanstalkApplicationVersionSourceBundle -ebavSourceBundle = lens _elasticBeanstalkApplicationVersionSourceBundle (\s a -> s { _elasticBeanstalkApplicationVersionSourceBundle = a }) diff --git a/library-gen/Stratosphere/Resources/ElasticBeanstalkConfigurationTemplate.hs b/library-gen/Stratosphere/Resources/ElasticBeanstalkConfigurationTemplate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ElasticBeanstalkConfigurationTemplate.hs +++ /dev/null @@ -1,86 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticbeanstalk-configurationtemplate.html - -module Stratosphere.Resources.ElasticBeanstalkConfigurationTemplate where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting -import Stratosphere.ResourceProperties.ElasticBeanstalkConfigurationTemplateSourceConfiguration - --- | Full data type definition for ElasticBeanstalkConfigurationTemplate. See --- 'elasticBeanstalkConfigurationTemplate' for a more convenient --- constructor. -data ElasticBeanstalkConfigurationTemplate = - ElasticBeanstalkConfigurationTemplate - { _elasticBeanstalkConfigurationTemplateApplicationName :: Val Text - , _elasticBeanstalkConfigurationTemplateDescription :: Maybe (Val Text) - , _elasticBeanstalkConfigurationTemplateEnvironmentId :: Maybe (Val Text) - , _elasticBeanstalkConfigurationTemplateOptionSettings :: Maybe [ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting] - , _elasticBeanstalkConfigurationTemplatePlatformArn :: Maybe (Val Text) - , _elasticBeanstalkConfigurationTemplateSolutionStackName :: Maybe (Val Text) - , _elasticBeanstalkConfigurationTemplateSourceConfiguration :: Maybe ElasticBeanstalkConfigurationTemplateSourceConfiguration - } deriving (Show, Eq) - -instance ToResourceProperties ElasticBeanstalkConfigurationTemplate where - toResourceProperties ElasticBeanstalkConfigurationTemplate{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ElasticBeanstalk::ConfigurationTemplate" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApplicationName",) . toJSON) _elasticBeanstalkConfigurationTemplateApplicationName - , fmap (("Description",) . toJSON) _elasticBeanstalkConfigurationTemplateDescription - , fmap (("EnvironmentId",) . toJSON) _elasticBeanstalkConfigurationTemplateEnvironmentId - , fmap (("OptionSettings",) . toJSON) _elasticBeanstalkConfigurationTemplateOptionSettings - , fmap (("PlatformArn",) . toJSON) _elasticBeanstalkConfigurationTemplatePlatformArn - , fmap (("SolutionStackName",) . toJSON) _elasticBeanstalkConfigurationTemplateSolutionStackName - , fmap (("SourceConfiguration",) . toJSON) _elasticBeanstalkConfigurationTemplateSourceConfiguration - ] - } - --- | Constructor for 'ElasticBeanstalkConfigurationTemplate' containing --- required fields as arguments. -elasticBeanstalkConfigurationTemplate - :: Val Text -- ^ 'ebctApplicationName' - -> ElasticBeanstalkConfigurationTemplate -elasticBeanstalkConfigurationTemplate applicationNamearg = - ElasticBeanstalkConfigurationTemplate - { _elasticBeanstalkConfigurationTemplateApplicationName = applicationNamearg - , _elasticBeanstalkConfigurationTemplateDescription = Nothing - , _elasticBeanstalkConfigurationTemplateEnvironmentId = Nothing - , _elasticBeanstalkConfigurationTemplateOptionSettings = Nothing - , _elasticBeanstalkConfigurationTemplatePlatformArn = Nothing - , _elasticBeanstalkConfigurationTemplateSolutionStackName = Nothing - , _elasticBeanstalkConfigurationTemplateSourceConfiguration = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticbeanstalk-configurationtemplate.html#cfn-elasticbeanstalk-configurationtemplate-applicationname -ebctApplicationName :: Lens' ElasticBeanstalkConfigurationTemplate (Val Text) -ebctApplicationName = lens _elasticBeanstalkConfigurationTemplateApplicationName (\s a -> s { _elasticBeanstalkConfigurationTemplateApplicationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticbeanstalk-configurationtemplate.html#cfn-elasticbeanstalk-configurationtemplate-description -ebctDescription :: Lens' ElasticBeanstalkConfigurationTemplate (Maybe (Val Text)) -ebctDescription = lens _elasticBeanstalkConfigurationTemplateDescription (\s a -> s { _elasticBeanstalkConfigurationTemplateDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticbeanstalk-configurationtemplate.html#cfn-elasticbeanstalk-configurationtemplate-environmentid -ebctEnvironmentId :: Lens' ElasticBeanstalkConfigurationTemplate (Maybe (Val Text)) -ebctEnvironmentId = lens _elasticBeanstalkConfigurationTemplateEnvironmentId (\s a -> s { _elasticBeanstalkConfigurationTemplateEnvironmentId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticbeanstalk-configurationtemplate.html#cfn-elasticbeanstalk-configurationtemplate-optionsettings -ebctOptionSettings :: Lens' ElasticBeanstalkConfigurationTemplate (Maybe [ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting]) -ebctOptionSettings = lens _elasticBeanstalkConfigurationTemplateOptionSettings (\s a -> s { _elasticBeanstalkConfigurationTemplateOptionSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticbeanstalk-configurationtemplate.html#cfn-elasticbeanstalk-configurationtemplate-platformarn -ebctPlatformArn :: Lens' ElasticBeanstalkConfigurationTemplate (Maybe (Val Text)) -ebctPlatformArn = lens _elasticBeanstalkConfigurationTemplatePlatformArn (\s a -> s { _elasticBeanstalkConfigurationTemplatePlatformArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticbeanstalk-configurationtemplate.html#cfn-elasticbeanstalk-configurationtemplate-solutionstackname -ebctSolutionStackName :: Lens' ElasticBeanstalkConfigurationTemplate (Maybe (Val Text)) -ebctSolutionStackName = lens _elasticBeanstalkConfigurationTemplateSolutionStackName (\s a -> s { _elasticBeanstalkConfigurationTemplateSolutionStackName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticbeanstalk-configurationtemplate.html#cfn-elasticbeanstalk-configurationtemplate-sourceconfiguration -ebctSourceConfiguration :: Lens' ElasticBeanstalkConfigurationTemplate (Maybe ElasticBeanstalkConfigurationTemplateSourceConfiguration) -ebctSourceConfiguration = lens _elasticBeanstalkConfigurationTemplateSourceConfiguration (\s a -> s { _elasticBeanstalkConfigurationTemplateSourceConfiguration = a }) diff --git a/library-gen/Stratosphere/Resources/ElasticBeanstalkEnvironment.hs b/library-gen/Stratosphere/Resources/ElasticBeanstalkEnvironment.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ElasticBeanstalkEnvironment.hs +++ /dev/null @@ -1,114 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-environment.html - -module Stratosphere.Resources.ElasticBeanstalkEnvironment where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ElasticBeanstalkEnvironmentOptionSetting -import Stratosphere.ResourceProperties.Tag -import Stratosphere.ResourceProperties.ElasticBeanstalkEnvironmentTier - --- | Full data type definition for ElasticBeanstalkEnvironment. See --- 'elasticBeanstalkEnvironment' for a more convenient constructor. -data ElasticBeanstalkEnvironment = - ElasticBeanstalkEnvironment - { _elasticBeanstalkEnvironmentApplicationName :: Val Text - , _elasticBeanstalkEnvironmentCNAMEPrefix :: Maybe (Val Text) - , _elasticBeanstalkEnvironmentDescription :: Maybe (Val Text) - , _elasticBeanstalkEnvironmentEnvironmentName :: Maybe (Val Text) - , _elasticBeanstalkEnvironmentOptionSettings :: Maybe [ElasticBeanstalkEnvironmentOptionSetting] - , _elasticBeanstalkEnvironmentPlatformArn :: Maybe (Val Text) - , _elasticBeanstalkEnvironmentSolutionStackName :: Maybe (Val Text) - , _elasticBeanstalkEnvironmentTags :: Maybe [Tag] - , _elasticBeanstalkEnvironmentTemplateName :: Maybe (Val Text) - , _elasticBeanstalkEnvironmentTier :: Maybe ElasticBeanstalkEnvironmentTier - , _elasticBeanstalkEnvironmentVersionLabel :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties ElasticBeanstalkEnvironment where - toResourceProperties ElasticBeanstalkEnvironment{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ElasticBeanstalk::Environment" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApplicationName",) . toJSON) _elasticBeanstalkEnvironmentApplicationName - , fmap (("CNAMEPrefix",) . toJSON) _elasticBeanstalkEnvironmentCNAMEPrefix - , fmap (("Description",) . toJSON) _elasticBeanstalkEnvironmentDescription - , fmap (("EnvironmentName",) . toJSON) _elasticBeanstalkEnvironmentEnvironmentName - , fmap (("OptionSettings",) . toJSON) _elasticBeanstalkEnvironmentOptionSettings - , fmap (("PlatformArn",) . toJSON) _elasticBeanstalkEnvironmentPlatformArn - , fmap (("SolutionStackName",) . toJSON) _elasticBeanstalkEnvironmentSolutionStackName - , fmap (("Tags",) . toJSON) _elasticBeanstalkEnvironmentTags - , fmap (("TemplateName",) . toJSON) _elasticBeanstalkEnvironmentTemplateName - , fmap (("Tier",) . toJSON) _elasticBeanstalkEnvironmentTier - , fmap (("VersionLabel",) . toJSON) _elasticBeanstalkEnvironmentVersionLabel - ] - } - --- | Constructor for 'ElasticBeanstalkEnvironment' containing required fields --- as arguments. -elasticBeanstalkEnvironment - :: Val Text -- ^ 'ebeApplicationName' - -> ElasticBeanstalkEnvironment -elasticBeanstalkEnvironment applicationNamearg = - ElasticBeanstalkEnvironment - { _elasticBeanstalkEnvironmentApplicationName = applicationNamearg - , _elasticBeanstalkEnvironmentCNAMEPrefix = Nothing - , _elasticBeanstalkEnvironmentDescription = Nothing - , _elasticBeanstalkEnvironmentEnvironmentName = Nothing - , _elasticBeanstalkEnvironmentOptionSettings = Nothing - , _elasticBeanstalkEnvironmentPlatformArn = Nothing - , _elasticBeanstalkEnvironmentSolutionStackName = Nothing - , _elasticBeanstalkEnvironmentTags = Nothing - , _elasticBeanstalkEnvironmentTemplateName = Nothing - , _elasticBeanstalkEnvironmentTier = Nothing - , _elasticBeanstalkEnvironmentVersionLabel = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-environment.html#cfn-beanstalk-environment-applicationname -ebeApplicationName :: Lens' ElasticBeanstalkEnvironment (Val Text) -ebeApplicationName = lens _elasticBeanstalkEnvironmentApplicationName (\s a -> s { _elasticBeanstalkEnvironmentApplicationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-environment.html#cfn-beanstalk-environment-cnameprefix -ebeCNAMEPrefix :: Lens' ElasticBeanstalkEnvironment (Maybe (Val Text)) -ebeCNAMEPrefix = lens _elasticBeanstalkEnvironmentCNAMEPrefix (\s a -> s { _elasticBeanstalkEnvironmentCNAMEPrefix = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-environment.html#cfn-beanstalk-environment-description -ebeDescription :: Lens' ElasticBeanstalkEnvironment (Maybe (Val Text)) -ebeDescription = lens _elasticBeanstalkEnvironmentDescription (\s a -> s { _elasticBeanstalkEnvironmentDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-environment.html#cfn-beanstalk-environment-name -ebeEnvironmentName :: Lens' ElasticBeanstalkEnvironment (Maybe (Val Text)) -ebeEnvironmentName = lens _elasticBeanstalkEnvironmentEnvironmentName (\s a -> s { _elasticBeanstalkEnvironmentEnvironmentName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-environment.html#cfn-beanstalk-environment-optionsettings -ebeOptionSettings :: Lens' ElasticBeanstalkEnvironment (Maybe [ElasticBeanstalkEnvironmentOptionSetting]) -ebeOptionSettings = lens _elasticBeanstalkEnvironmentOptionSettings (\s a -> s { _elasticBeanstalkEnvironmentOptionSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-environment.html#cfn-beanstalk-environment-platformarn -ebePlatformArn :: Lens' ElasticBeanstalkEnvironment (Maybe (Val Text)) -ebePlatformArn = lens _elasticBeanstalkEnvironmentPlatformArn (\s a -> s { _elasticBeanstalkEnvironmentPlatformArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-environment.html#cfn-beanstalk-environment-solutionstackname -ebeSolutionStackName :: Lens' ElasticBeanstalkEnvironment (Maybe (Val Text)) -ebeSolutionStackName = lens _elasticBeanstalkEnvironmentSolutionStackName (\s a -> s { _elasticBeanstalkEnvironmentSolutionStackName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-environment.html#cfn-elasticbeanstalk-environment-tags -ebeTags :: Lens' ElasticBeanstalkEnvironment (Maybe [Tag]) -ebeTags = lens _elasticBeanstalkEnvironmentTags (\s a -> s { _elasticBeanstalkEnvironmentTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-environment.html#cfn-beanstalk-environment-templatename -ebeTemplateName :: Lens' ElasticBeanstalkEnvironment (Maybe (Val Text)) -ebeTemplateName = lens _elasticBeanstalkEnvironmentTemplateName (\s a -> s { _elasticBeanstalkEnvironmentTemplateName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-environment.html#cfn-beanstalk-environment-tier -ebeTier :: Lens' ElasticBeanstalkEnvironment (Maybe ElasticBeanstalkEnvironmentTier) -ebeTier = lens _elasticBeanstalkEnvironmentTier (\s a -> s { _elasticBeanstalkEnvironmentTier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-beanstalk-environment.html#cfn-beanstalk-environment-versionlabel -ebeVersionLabel :: Lens' ElasticBeanstalkEnvironment (Maybe (Val Text)) -ebeVersionLabel = lens _elasticBeanstalkEnvironmentVersionLabel (\s a -> s { _elasticBeanstalkEnvironmentVersionLabel = a }) diff --git a/library-gen/Stratosphere/Resources/ElasticLoadBalancingLoadBalancer.hs b/library-gen/Stratosphere/Resources/ElasticLoadBalancingLoadBalancer.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ElasticLoadBalancingLoadBalancer.hs +++ /dev/null @@ -1,155 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb.html - -module Stratosphere.Resources.ElasticLoadBalancingLoadBalancer where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerAccessLoggingPolicy -import Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerAppCookieStickinessPolicy -import Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerConnectionDrainingPolicy -import Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerConnectionSettings -import Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerHealthCheck -import Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerLBCookieStickinessPolicy -import Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerListeners -import Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerPolicies -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for ElasticLoadBalancingLoadBalancer. See --- 'elasticLoadBalancingLoadBalancer' for a more convenient constructor. -data ElasticLoadBalancingLoadBalancer = - ElasticLoadBalancingLoadBalancer - { _elasticLoadBalancingLoadBalancerAccessLoggingPolicy :: Maybe ElasticLoadBalancingLoadBalancerAccessLoggingPolicy - , _elasticLoadBalancingLoadBalancerAppCookieStickinessPolicy :: Maybe [ElasticLoadBalancingLoadBalancerAppCookieStickinessPolicy] - , _elasticLoadBalancingLoadBalancerAvailabilityZones :: Maybe (ValList Text) - , _elasticLoadBalancingLoadBalancerConnectionDrainingPolicy :: Maybe ElasticLoadBalancingLoadBalancerConnectionDrainingPolicy - , _elasticLoadBalancingLoadBalancerConnectionSettings :: Maybe ElasticLoadBalancingLoadBalancerConnectionSettings - , _elasticLoadBalancingLoadBalancerCrossZone :: Maybe (Val Bool) - , _elasticLoadBalancingLoadBalancerHealthCheck :: Maybe ElasticLoadBalancingLoadBalancerHealthCheck - , _elasticLoadBalancingLoadBalancerInstances :: Maybe (ValList Text) - , _elasticLoadBalancingLoadBalancerLBCookieStickinessPolicy :: Maybe [ElasticLoadBalancingLoadBalancerLBCookieStickinessPolicy] - , _elasticLoadBalancingLoadBalancerListeners :: [ElasticLoadBalancingLoadBalancerListeners] - , _elasticLoadBalancingLoadBalancerLoadBalancerName :: Maybe (Val Text) - , _elasticLoadBalancingLoadBalancerPolicies :: Maybe [ElasticLoadBalancingLoadBalancerPolicies] - , _elasticLoadBalancingLoadBalancerScheme :: Maybe (Val Text) - , _elasticLoadBalancingLoadBalancerSecurityGroups :: Maybe (ValList Text) - , _elasticLoadBalancingLoadBalancerSubnets :: Maybe (ValList Text) - , _elasticLoadBalancingLoadBalancerTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties ElasticLoadBalancingLoadBalancer where - toResourceProperties ElasticLoadBalancingLoadBalancer{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ElasticLoadBalancing::LoadBalancer" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AccessLoggingPolicy",) . toJSON) _elasticLoadBalancingLoadBalancerAccessLoggingPolicy - , fmap (("AppCookieStickinessPolicy",) . toJSON) _elasticLoadBalancingLoadBalancerAppCookieStickinessPolicy - , fmap (("AvailabilityZones",) . toJSON) _elasticLoadBalancingLoadBalancerAvailabilityZones - , fmap (("ConnectionDrainingPolicy",) . toJSON) _elasticLoadBalancingLoadBalancerConnectionDrainingPolicy - , fmap (("ConnectionSettings",) . toJSON) _elasticLoadBalancingLoadBalancerConnectionSettings - , fmap (("CrossZone",) . toJSON) _elasticLoadBalancingLoadBalancerCrossZone - , fmap (("HealthCheck",) . toJSON) _elasticLoadBalancingLoadBalancerHealthCheck - , fmap (("Instances",) . toJSON) _elasticLoadBalancingLoadBalancerInstances - , fmap (("LBCookieStickinessPolicy",) . toJSON) _elasticLoadBalancingLoadBalancerLBCookieStickinessPolicy - , (Just . ("Listeners",) . toJSON) _elasticLoadBalancingLoadBalancerListeners - , fmap (("LoadBalancerName",) . toJSON) _elasticLoadBalancingLoadBalancerLoadBalancerName - , fmap (("Policies",) . toJSON) _elasticLoadBalancingLoadBalancerPolicies - , fmap (("Scheme",) . toJSON) _elasticLoadBalancingLoadBalancerScheme - , fmap (("SecurityGroups",) . toJSON) _elasticLoadBalancingLoadBalancerSecurityGroups - , fmap (("Subnets",) . toJSON) _elasticLoadBalancingLoadBalancerSubnets - , fmap (("Tags",) . toJSON) _elasticLoadBalancingLoadBalancerTags - ] - } - --- | Constructor for 'ElasticLoadBalancingLoadBalancer' containing required --- fields as arguments. -elasticLoadBalancingLoadBalancer - :: [ElasticLoadBalancingLoadBalancerListeners] -- ^ 'elblbListeners' - -> ElasticLoadBalancingLoadBalancer -elasticLoadBalancingLoadBalancer listenersarg = - ElasticLoadBalancingLoadBalancer - { _elasticLoadBalancingLoadBalancerAccessLoggingPolicy = Nothing - , _elasticLoadBalancingLoadBalancerAppCookieStickinessPolicy = Nothing - , _elasticLoadBalancingLoadBalancerAvailabilityZones = Nothing - , _elasticLoadBalancingLoadBalancerConnectionDrainingPolicy = Nothing - , _elasticLoadBalancingLoadBalancerConnectionSettings = Nothing - , _elasticLoadBalancingLoadBalancerCrossZone = Nothing - , _elasticLoadBalancingLoadBalancerHealthCheck = Nothing - , _elasticLoadBalancingLoadBalancerInstances = Nothing - , _elasticLoadBalancingLoadBalancerLBCookieStickinessPolicy = Nothing - , _elasticLoadBalancingLoadBalancerListeners = listenersarg - , _elasticLoadBalancingLoadBalancerLoadBalancerName = Nothing - , _elasticLoadBalancingLoadBalancerPolicies = Nothing - , _elasticLoadBalancingLoadBalancerScheme = Nothing - , _elasticLoadBalancingLoadBalancerSecurityGroups = Nothing - , _elasticLoadBalancingLoadBalancerSubnets = Nothing - , _elasticLoadBalancingLoadBalancerTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb.html#cfn-ec2-elb-accessloggingpolicy -elblbAccessLoggingPolicy :: Lens' ElasticLoadBalancingLoadBalancer (Maybe ElasticLoadBalancingLoadBalancerAccessLoggingPolicy) -elblbAccessLoggingPolicy = lens _elasticLoadBalancingLoadBalancerAccessLoggingPolicy (\s a -> s { _elasticLoadBalancingLoadBalancerAccessLoggingPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb.html#cfn-ec2-elb-appcookiestickinesspolicy -elblbAppCookieStickinessPolicy :: Lens' ElasticLoadBalancingLoadBalancer (Maybe [ElasticLoadBalancingLoadBalancerAppCookieStickinessPolicy]) -elblbAppCookieStickinessPolicy = lens _elasticLoadBalancingLoadBalancerAppCookieStickinessPolicy (\s a -> s { _elasticLoadBalancingLoadBalancerAppCookieStickinessPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb.html#cfn-ec2-elb-availabilityzones -elblbAvailabilityZones :: Lens' ElasticLoadBalancingLoadBalancer (Maybe (ValList Text)) -elblbAvailabilityZones = lens _elasticLoadBalancingLoadBalancerAvailabilityZones (\s a -> s { _elasticLoadBalancingLoadBalancerAvailabilityZones = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb.html#cfn-ec2-elb-connectiondrainingpolicy -elblbConnectionDrainingPolicy :: Lens' ElasticLoadBalancingLoadBalancer (Maybe ElasticLoadBalancingLoadBalancerConnectionDrainingPolicy) -elblbConnectionDrainingPolicy = lens _elasticLoadBalancingLoadBalancerConnectionDrainingPolicy (\s a -> s { _elasticLoadBalancingLoadBalancerConnectionDrainingPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb.html#cfn-ec2-elb-connectionsettings -elblbConnectionSettings :: Lens' ElasticLoadBalancingLoadBalancer (Maybe ElasticLoadBalancingLoadBalancerConnectionSettings) -elblbConnectionSettings = lens _elasticLoadBalancingLoadBalancerConnectionSettings (\s a -> s { _elasticLoadBalancingLoadBalancerConnectionSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb.html#cfn-ec2-elb-crosszone -elblbCrossZone :: Lens' ElasticLoadBalancingLoadBalancer (Maybe (Val Bool)) -elblbCrossZone = lens _elasticLoadBalancingLoadBalancerCrossZone (\s a -> s { _elasticLoadBalancingLoadBalancerCrossZone = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb.html#cfn-ec2-elb-healthcheck -elblbHealthCheck :: Lens' ElasticLoadBalancingLoadBalancer (Maybe ElasticLoadBalancingLoadBalancerHealthCheck) -elblbHealthCheck = lens _elasticLoadBalancingLoadBalancerHealthCheck (\s a -> s { _elasticLoadBalancingLoadBalancerHealthCheck = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb.html#cfn-ec2-elb-instances -elblbInstances :: Lens' ElasticLoadBalancingLoadBalancer (Maybe (ValList Text)) -elblbInstances = lens _elasticLoadBalancingLoadBalancerInstances (\s a -> s { _elasticLoadBalancingLoadBalancerInstances = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb.html#cfn-ec2-elb-lbcookiestickinesspolicy -elblbLBCookieStickinessPolicy :: Lens' ElasticLoadBalancingLoadBalancer (Maybe [ElasticLoadBalancingLoadBalancerLBCookieStickinessPolicy]) -elblbLBCookieStickinessPolicy = lens _elasticLoadBalancingLoadBalancerLBCookieStickinessPolicy (\s a -> s { _elasticLoadBalancingLoadBalancerLBCookieStickinessPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb.html#cfn-ec2-elb-listeners -elblbListeners :: Lens' ElasticLoadBalancingLoadBalancer [ElasticLoadBalancingLoadBalancerListeners] -elblbListeners = lens _elasticLoadBalancingLoadBalancerListeners (\s a -> s { _elasticLoadBalancingLoadBalancerListeners = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb.html#cfn-ec2-elb-elbname -elblbLoadBalancerName :: Lens' ElasticLoadBalancingLoadBalancer (Maybe (Val Text)) -elblbLoadBalancerName = lens _elasticLoadBalancingLoadBalancerLoadBalancerName (\s a -> s { _elasticLoadBalancingLoadBalancerLoadBalancerName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb.html#cfn-ec2-elb-policies -elblbPolicies :: Lens' ElasticLoadBalancingLoadBalancer (Maybe [ElasticLoadBalancingLoadBalancerPolicies]) -elblbPolicies = lens _elasticLoadBalancingLoadBalancerPolicies (\s a -> s { _elasticLoadBalancingLoadBalancerPolicies = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb.html#cfn-ec2-elb-scheme -elblbScheme :: Lens' ElasticLoadBalancingLoadBalancer (Maybe (Val Text)) -elblbScheme = lens _elasticLoadBalancingLoadBalancerScheme (\s a -> s { _elasticLoadBalancingLoadBalancerScheme = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb.html#cfn-ec2-elb-securitygroups -elblbSecurityGroups :: Lens' ElasticLoadBalancingLoadBalancer (Maybe (ValList Text)) -elblbSecurityGroups = lens _elasticLoadBalancingLoadBalancerSecurityGroups (\s a -> s { _elasticLoadBalancingLoadBalancerSecurityGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb.html#cfn-ec2-elb-subnets -elblbSubnets :: Lens' ElasticLoadBalancingLoadBalancer (Maybe (ValList Text)) -elblbSubnets = lens _elasticLoadBalancingLoadBalancerSubnets (\s a -> s { _elasticLoadBalancingLoadBalancerSubnets = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-elb.html#cfn-elasticloadbalancing-loadbalancer-tags -elblbTags :: Lens' ElasticLoadBalancingLoadBalancer (Maybe [Tag]) -elblbTags = lens _elasticLoadBalancingLoadBalancerTags (\s a -> s { _elasticLoadBalancingLoadBalancerTags = a }) diff --git a/library-gen/Stratosphere/Resources/ElasticLoadBalancingV2Listener.hs b/library-gen/Stratosphere/Resources/ElasticLoadBalancingV2Listener.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ElasticLoadBalancingV2Listener.hs +++ /dev/null @@ -1,88 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-listener.html - -module Stratosphere.Resources.ElasticLoadBalancingV2Listener where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerCertificate -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerAction - --- | Full data type definition for ElasticLoadBalancingV2Listener. See --- 'elasticLoadBalancingV2Listener' for a more convenient constructor. -data ElasticLoadBalancingV2Listener = - ElasticLoadBalancingV2Listener - { _elasticLoadBalancingV2ListenerAlpnPolicy :: Maybe (ValList Text) - , _elasticLoadBalancingV2ListenerCertificates :: Maybe [ElasticLoadBalancingV2ListenerCertificate] - , _elasticLoadBalancingV2ListenerDefaultActions :: [ElasticLoadBalancingV2ListenerAction] - , _elasticLoadBalancingV2ListenerLoadBalancerArn :: Val Text - , _elasticLoadBalancingV2ListenerPort :: Val Integer - , _elasticLoadBalancingV2ListenerProtocol :: Val Text - , _elasticLoadBalancingV2ListenerSslPolicy :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties ElasticLoadBalancingV2Listener where - toResourceProperties ElasticLoadBalancingV2Listener{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ElasticLoadBalancingV2::Listener" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AlpnPolicy",) . toJSON) _elasticLoadBalancingV2ListenerAlpnPolicy - , fmap (("Certificates",) . toJSON) _elasticLoadBalancingV2ListenerCertificates - , (Just . ("DefaultActions",) . toJSON) _elasticLoadBalancingV2ListenerDefaultActions - , (Just . ("LoadBalancerArn",) . toJSON) _elasticLoadBalancingV2ListenerLoadBalancerArn - , (Just . ("Port",) . toJSON) _elasticLoadBalancingV2ListenerPort - , (Just . ("Protocol",) . toJSON) _elasticLoadBalancingV2ListenerProtocol - , fmap (("SslPolicy",) . toJSON) _elasticLoadBalancingV2ListenerSslPolicy - ] - } - --- | Constructor for 'ElasticLoadBalancingV2Listener' containing required --- fields as arguments. -elasticLoadBalancingV2Listener - :: [ElasticLoadBalancingV2ListenerAction] -- ^ 'elbvlDefaultActions' - -> Val Text -- ^ 'elbvlLoadBalancerArn' - -> Val Integer -- ^ 'elbvlPort' - -> Val Text -- ^ 'elbvlProtocol' - -> ElasticLoadBalancingV2Listener -elasticLoadBalancingV2Listener defaultActionsarg loadBalancerArnarg portarg protocolarg = - ElasticLoadBalancingV2Listener - { _elasticLoadBalancingV2ListenerAlpnPolicy = Nothing - , _elasticLoadBalancingV2ListenerCertificates = Nothing - , _elasticLoadBalancingV2ListenerDefaultActions = defaultActionsarg - , _elasticLoadBalancingV2ListenerLoadBalancerArn = loadBalancerArnarg - , _elasticLoadBalancingV2ListenerPort = portarg - , _elasticLoadBalancingV2ListenerProtocol = protocolarg - , _elasticLoadBalancingV2ListenerSslPolicy = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-listener.html#cfn-elasticloadbalancingv2-listener-alpnpolicy -elbvlAlpnPolicy :: Lens' ElasticLoadBalancingV2Listener (Maybe (ValList Text)) -elbvlAlpnPolicy = lens _elasticLoadBalancingV2ListenerAlpnPolicy (\s a -> s { _elasticLoadBalancingV2ListenerAlpnPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-listener.html#cfn-elasticloadbalancingv2-listener-certificates -elbvlCertificates :: Lens' ElasticLoadBalancingV2Listener (Maybe [ElasticLoadBalancingV2ListenerCertificate]) -elbvlCertificates = lens _elasticLoadBalancingV2ListenerCertificates (\s a -> s { _elasticLoadBalancingV2ListenerCertificates = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-listener.html#cfn-elasticloadbalancingv2-listener-defaultactions -elbvlDefaultActions :: Lens' ElasticLoadBalancingV2Listener [ElasticLoadBalancingV2ListenerAction] -elbvlDefaultActions = lens _elasticLoadBalancingV2ListenerDefaultActions (\s a -> s { _elasticLoadBalancingV2ListenerDefaultActions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-listener.html#cfn-elasticloadbalancingv2-listener-loadbalancerarn -elbvlLoadBalancerArn :: Lens' ElasticLoadBalancingV2Listener (Val Text) -elbvlLoadBalancerArn = lens _elasticLoadBalancingV2ListenerLoadBalancerArn (\s a -> s { _elasticLoadBalancingV2ListenerLoadBalancerArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-listener.html#cfn-elasticloadbalancingv2-listener-port -elbvlPort :: Lens' ElasticLoadBalancingV2Listener (Val Integer) -elbvlPort = lens _elasticLoadBalancingV2ListenerPort (\s a -> s { _elasticLoadBalancingV2ListenerPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-listener.html#cfn-elasticloadbalancingv2-listener-protocol -elbvlProtocol :: Lens' ElasticLoadBalancingV2Listener (Val Text) -elbvlProtocol = lens _elasticLoadBalancingV2ListenerProtocol (\s a -> s { _elasticLoadBalancingV2ListenerProtocol = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-listener.html#cfn-elasticloadbalancingv2-listener-sslpolicy -elbvlSslPolicy :: Lens' ElasticLoadBalancingV2Listener (Maybe (Val Text)) -elbvlSslPolicy = lens _elasticLoadBalancingV2ListenerSslPolicy (\s a -> s { _elasticLoadBalancingV2ListenerSslPolicy = a }) diff --git a/library-gen/Stratosphere/Resources/ElasticLoadBalancingV2ListenerCertificateResource.hs b/library-gen/Stratosphere/Resources/ElasticLoadBalancingV2ListenerCertificateResource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ElasticLoadBalancingV2ListenerCertificateResource.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-listenercertificate.html - -module Stratosphere.Resources.ElasticLoadBalancingV2ListenerCertificateResource where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerCertificateCertificate - --- | Full data type definition for --- ElasticLoadBalancingV2ListenerCertificateResource. See --- 'elasticLoadBalancingV2ListenerCertificateResource' for a more convenient --- constructor. -data ElasticLoadBalancingV2ListenerCertificateResource = - ElasticLoadBalancingV2ListenerCertificateResource - { _elasticLoadBalancingV2ListenerCertificateResourceCertificates :: [ElasticLoadBalancingV2ListenerCertificateCertificate] - , _elasticLoadBalancingV2ListenerCertificateResourceListenerArn :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties ElasticLoadBalancingV2ListenerCertificateResource where - toResourceProperties ElasticLoadBalancingV2ListenerCertificateResource{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ElasticLoadBalancingV2::ListenerCertificate" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Certificates",) . toJSON) _elasticLoadBalancingV2ListenerCertificateResourceCertificates - , (Just . ("ListenerArn",) . toJSON) _elasticLoadBalancingV2ListenerCertificateResourceListenerArn - ] - } - --- | Constructor for 'ElasticLoadBalancingV2ListenerCertificateResource' --- containing required fields as arguments. -elasticLoadBalancingV2ListenerCertificateResource - :: [ElasticLoadBalancingV2ListenerCertificateCertificate] -- ^ 'elbvlcrCertificates' - -> Val Text -- ^ 'elbvlcrListenerArn' - -> ElasticLoadBalancingV2ListenerCertificateResource -elasticLoadBalancingV2ListenerCertificateResource certificatesarg listenerArnarg = - ElasticLoadBalancingV2ListenerCertificateResource - { _elasticLoadBalancingV2ListenerCertificateResourceCertificates = certificatesarg - , _elasticLoadBalancingV2ListenerCertificateResourceListenerArn = listenerArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-listenercertificate.html#cfn-elasticloadbalancingv2-listenercertificate-certificates -elbvlcrCertificates :: Lens' ElasticLoadBalancingV2ListenerCertificateResource [ElasticLoadBalancingV2ListenerCertificateCertificate] -elbvlcrCertificates = lens _elasticLoadBalancingV2ListenerCertificateResourceCertificates (\s a -> s { _elasticLoadBalancingV2ListenerCertificateResourceCertificates = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-listenercertificate.html#cfn-elasticloadbalancingv2-listenercertificate-listenerarn -elbvlcrListenerArn :: Lens' ElasticLoadBalancingV2ListenerCertificateResource (Val Text) -elbvlcrListenerArn = lens _elasticLoadBalancingV2ListenerCertificateResourceListenerArn (\s a -> s { _elasticLoadBalancingV2ListenerCertificateResourceListenerArn = a }) diff --git a/library-gen/Stratosphere/Resources/ElasticLoadBalancingV2ListenerRule.hs b/library-gen/Stratosphere/Resources/ElasticLoadBalancingV2ListenerRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ElasticLoadBalancingV2ListenerRule.hs +++ /dev/null @@ -1,67 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-listenerrule.html - -module Stratosphere.Resources.ElasticLoadBalancingV2ListenerRule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleAction -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleRuleCondition - --- | Full data type definition for ElasticLoadBalancingV2ListenerRule. See --- 'elasticLoadBalancingV2ListenerRule' for a more convenient constructor. -data ElasticLoadBalancingV2ListenerRule = - ElasticLoadBalancingV2ListenerRule - { _elasticLoadBalancingV2ListenerRuleActions :: [ElasticLoadBalancingV2ListenerRuleAction] - , _elasticLoadBalancingV2ListenerRuleConditions :: [ElasticLoadBalancingV2ListenerRuleRuleCondition] - , _elasticLoadBalancingV2ListenerRuleListenerArn :: Val Text - , _elasticLoadBalancingV2ListenerRulePriority :: Val Integer - } deriving (Show, Eq) - -instance ToResourceProperties ElasticLoadBalancingV2ListenerRule where - toResourceProperties ElasticLoadBalancingV2ListenerRule{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ElasticLoadBalancingV2::ListenerRule" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Actions",) . toJSON) _elasticLoadBalancingV2ListenerRuleActions - , (Just . ("Conditions",) . toJSON) _elasticLoadBalancingV2ListenerRuleConditions - , (Just . ("ListenerArn",) . toJSON) _elasticLoadBalancingV2ListenerRuleListenerArn - , (Just . ("Priority",) . toJSON) _elasticLoadBalancingV2ListenerRulePriority - ] - } - --- | Constructor for 'ElasticLoadBalancingV2ListenerRule' containing required --- fields as arguments. -elasticLoadBalancingV2ListenerRule - :: [ElasticLoadBalancingV2ListenerRuleAction] -- ^ 'elbvlrActions' - -> [ElasticLoadBalancingV2ListenerRuleRuleCondition] -- ^ 'elbvlrConditions' - -> Val Text -- ^ 'elbvlrListenerArn' - -> Val Integer -- ^ 'elbvlrPriority' - -> ElasticLoadBalancingV2ListenerRule -elasticLoadBalancingV2ListenerRule actionsarg conditionsarg listenerArnarg priorityarg = - ElasticLoadBalancingV2ListenerRule - { _elasticLoadBalancingV2ListenerRuleActions = actionsarg - , _elasticLoadBalancingV2ListenerRuleConditions = conditionsarg - , _elasticLoadBalancingV2ListenerRuleListenerArn = listenerArnarg - , _elasticLoadBalancingV2ListenerRulePriority = priorityarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-listenerrule.html#cfn-elasticloadbalancingv2-listenerrule-actions -elbvlrActions :: Lens' ElasticLoadBalancingV2ListenerRule [ElasticLoadBalancingV2ListenerRuleAction] -elbvlrActions = lens _elasticLoadBalancingV2ListenerRuleActions (\s a -> s { _elasticLoadBalancingV2ListenerRuleActions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-listenerrule.html#cfn-elasticloadbalancingv2-listenerrule-conditions -elbvlrConditions :: Lens' ElasticLoadBalancingV2ListenerRule [ElasticLoadBalancingV2ListenerRuleRuleCondition] -elbvlrConditions = lens _elasticLoadBalancingV2ListenerRuleConditions (\s a -> s { _elasticLoadBalancingV2ListenerRuleConditions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-listenerrule.html#cfn-elasticloadbalancingv2-listenerrule-listenerarn -elbvlrListenerArn :: Lens' ElasticLoadBalancingV2ListenerRule (Val Text) -elbvlrListenerArn = lens _elasticLoadBalancingV2ListenerRuleListenerArn (\s a -> s { _elasticLoadBalancingV2ListenerRuleListenerArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-listenerrule.html#cfn-elasticloadbalancingv2-listenerrule-priority -elbvlrPriority :: Lens' ElasticLoadBalancingV2ListenerRule (Val Integer) -elbvlrPriority = lens _elasticLoadBalancingV2ListenerRulePriority (\s a -> s { _elasticLoadBalancingV2ListenerRulePriority = a }) diff --git a/library-gen/Stratosphere/Resources/ElasticLoadBalancingV2LoadBalancer.hs b/library-gen/Stratosphere/Resources/ElasticLoadBalancingV2LoadBalancer.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ElasticLoadBalancingV2LoadBalancer.hs +++ /dev/null @@ -1,99 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-loadbalancer.html - -module Stratosphere.Resources.ElasticLoadBalancingV2LoadBalancer where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2LoadBalancerLoadBalancerAttribute -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2LoadBalancerSubnetMapping -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for ElasticLoadBalancingV2LoadBalancer. See --- 'elasticLoadBalancingV2LoadBalancer' for a more convenient constructor. -data ElasticLoadBalancingV2LoadBalancer = - ElasticLoadBalancingV2LoadBalancer - { _elasticLoadBalancingV2LoadBalancerIpAddressType :: Maybe (Val Text) - , _elasticLoadBalancingV2LoadBalancerLoadBalancerAttributes :: Maybe [ElasticLoadBalancingV2LoadBalancerLoadBalancerAttribute] - , _elasticLoadBalancingV2LoadBalancerName :: Maybe (Val Text) - , _elasticLoadBalancingV2LoadBalancerScheme :: Maybe (Val Text) - , _elasticLoadBalancingV2LoadBalancerSecurityGroups :: Maybe (ValList Text) - , _elasticLoadBalancingV2LoadBalancerSubnetMappings :: Maybe [ElasticLoadBalancingV2LoadBalancerSubnetMapping] - , _elasticLoadBalancingV2LoadBalancerSubnets :: Maybe (ValList Text) - , _elasticLoadBalancingV2LoadBalancerTags :: Maybe [Tag] - , _elasticLoadBalancingV2LoadBalancerType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties ElasticLoadBalancingV2LoadBalancer where - toResourceProperties ElasticLoadBalancingV2LoadBalancer{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ElasticLoadBalancingV2::LoadBalancer" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("IpAddressType",) . toJSON) _elasticLoadBalancingV2LoadBalancerIpAddressType - , fmap (("LoadBalancerAttributes",) . toJSON) _elasticLoadBalancingV2LoadBalancerLoadBalancerAttributes - , fmap (("Name",) . toJSON) _elasticLoadBalancingV2LoadBalancerName - , fmap (("Scheme",) . toJSON) _elasticLoadBalancingV2LoadBalancerScheme - , fmap (("SecurityGroups",) . toJSON) _elasticLoadBalancingV2LoadBalancerSecurityGroups - , fmap (("SubnetMappings",) . toJSON) _elasticLoadBalancingV2LoadBalancerSubnetMappings - , fmap (("Subnets",) . toJSON) _elasticLoadBalancingV2LoadBalancerSubnets - , fmap (("Tags",) . toJSON) _elasticLoadBalancingV2LoadBalancerTags - , fmap (("Type",) . toJSON) _elasticLoadBalancingV2LoadBalancerType - ] - } - --- | Constructor for 'ElasticLoadBalancingV2LoadBalancer' containing required --- fields as arguments. -elasticLoadBalancingV2LoadBalancer - :: ElasticLoadBalancingV2LoadBalancer -elasticLoadBalancingV2LoadBalancer = - ElasticLoadBalancingV2LoadBalancer - { _elasticLoadBalancingV2LoadBalancerIpAddressType = Nothing - , _elasticLoadBalancingV2LoadBalancerLoadBalancerAttributes = Nothing - , _elasticLoadBalancingV2LoadBalancerName = Nothing - , _elasticLoadBalancingV2LoadBalancerScheme = Nothing - , _elasticLoadBalancingV2LoadBalancerSecurityGroups = Nothing - , _elasticLoadBalancingV2LoadBalancerSubnetMappings = Nothing - , _elasticLoadBalancingV2LoadBalancerSubnets = Nothing - , _elasticLoadBalancingV2LoadBalancerTags = Nothing - , _elasticLoadBalancingV2LoadBalancerType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-loadbalancer.html#cfn-elasticloadbalancingv2-loadbalancer-ipaddresstype -elbvlbIpAddressType :: Lens' ElasticLoadBalancingV2LoadBalancer (Maybe (Val Text)) -elbvlbIpAddressType = lens _elasticLoadBalancingV2LoadBalancerIpAddressType (\s a -> s { _elasticLoadBalancingV2LoadBalancerIpAddressType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-loadbalancer.html#cfn-elasticloadbalancingv2-loadbalancer-loadbalancerattributes -elbvlbLoadBalancerAttributes :: Lens' ElasticLoadBalancingV2LoadBalancer (Maybe [ElasticLoadBalancingV2LoadBalancerLoadBalancerAttribute]) -elbvlbLoadBalancerAttributes = lens _elasticLoadBalancingV2LoadBalancerLoadBalancerAttributes (\s a -> s { _elasticLoadBalancingV2LoadBalancerLoadBalancerAttributes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-loadbalancer.html#cfn-elasticloadbalancingv2-loadbalancer-name -elbvlbName :: Lens' ElasticLoadBalancingV2LoadBalancer (Maybe (Val Text)) -elbvlbName = lens _elasticLoadBalancingV2LoadBalancerName (\s a -> s { _elasticLoadBalancingV2LoadBalancerName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-loadbalancer.html#cfn-elasticloadbalancingv2-loadbalancer-scheme -elbvlbScheme :: Lens' ElasticLoadBalancingV2LoadBalancer (Maybe (Val Text)) -elbvlbScheme = lens _elasticLoadBalancingV2LoadBalancerScheme (\s a -> s { _elasticLoadBalancingV2LoadBalancerScheme = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-loadbalancer.html#cfn-elasticloadbalancingv2-loadbalancer-securitygroups -elbvlbSecurityGroups :: Lens' ElasticLoadBalancingV2LoadBalancer (Maybe (ValList Text)) -elbvlbSecurityGroups = lens _elasticLoadBalancingV2LoadBalancerSecurityGroups (\s a -> s { _elasticLoadBalancingV2LoadBalancerSecurityGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-loadbalancer.html#cfn-elasticloadbalancingv2-loadbalancer-subnetmappings -elbvlbSubnetMappings :: Lens' ElasticLoadBalancingV2LoadBalancer (Maybe [ElasticLoadBalancingV2LoadBalancerSubnetMapping]) -elbvlbSubnetMappings = lens _elasticLoadBalancingV2LoadBalancerSubnetMappings (\s a -> s { _elasticLoadBalancingV2LoadBalancerSubnetMappings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-loadbalancer.html#cfn-elasticloadbalancingv2-loadbalancer-subnets -elbvlbSubnets :: Lens' ElasticLoadBalancingV2LoadBalancer (Maybe (ValList Text)) -elbvlbSubnets = lens _elasticLoadBalancingV2LoadBalancerSubnets (\s a -> s { _elasticLoadBalancingV2LoadBalancerSubnets = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-loadbalancer.html#cfn-elasticloadbalancingv2-loadbalancer-tags -elbvlbTags :: Lens' ElasticLoadBalancingV2LoadBalancer (Maybe [Tag]) -elbvlbTags = lens _elasticLoadBalancingV2LoadBalancerTags (\s a -> s { _elasticLoadBalancingV2LoadBalancerTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-loadbalancer.html#cfn-elasticloadbalancingv2-loadbalancer-type -elbvlbType :: Lens' ElasticLoadBalancingV2LoadBalancer (Maybe (Val Text)) -elbvlbType = lens _elasticLoadBalancingV2LoadBalancerType (\s a -> s { _elasticLoadBalancingV2LoadBalancerType = a }) diff --git a/library-gen/Stratosphere/Resources/ElasticLoadBalancingV2TargetGroup.hs b/library-gen/Stratosphere/Resources/ElasticLoadBalancingV2TargetGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ElasticLoadBalancingV2TargetGroup.hs +++ /dev/null @@ -1,156 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-targetgroup.html - -module Stratosphere.Resources.ElasticLoadBalancingV2TargetGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2TargetGroupMatcher -import Stratosphere.ResourceProperties.Tag -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2TargetGroupTargetGroupAttribute -import Stratosphere.ResourceProperties.ElasticLoadBalancingV2TargetGroupTargetDescription - --- | Full data type definition for ElasticLoadBalancingV2TargetGroup. See --- 'elasticLoadBalancingV2TargetGroup' for a more convenient constructor. -data ElasticLoadBalancingV2TargetGroup = - ElasticLoadBalancingV2TargetGroup - { _elasticLoadBalancingV2TargetGroupHealthCheckEnabled :: Maybe (Val Bool) - , _elasticLoadBalancingV2TargetGroupHealthCheckIntervalSeconds :: Maybe (Val Integer) - , _elasticLoadBalancingV2TargetGroupHealthCheckPath :: Maybe (Val Text) - , _elasticLoadBalancingV2TargetGroupHealthCheckPort :: Maybe (Val Text) - , _elasticLoadBalancingV2TargetGroupHealthCheckProtocol :: Maybe (Val Text) - , _elasticLoadBalancingV2TargetGroupHealthCheckTimeoutSeconds :: Maybe (Val Integer) - , _elasticLoadBalancingV2TargetGroupHealthyThresholdCount :: Maybe (Val Integer) - , _elasticLoadBalancingV2TargetGroupMatcher :: Maybe ElasticLoadBalancingV2TargetGroupMatcher - , _elasticLoadBalancingV2TargetGroupName :: Maybe (Val Text) - , _elasticLoadBalancingV2TargetGroupPort :: Maybe (Val Integer) - , _elasticLoadBalancingV2TargetGroupProtocol :: Maybe (Val Text) - , _elasticLoadBalancingV2TargetGroupTags :: Maybe [Tag] - , _elasticLoadBalancingV2TargetGroupTargetGroupAttributes :: Maybe [ElasticLoadBalancingV2TargetGroupTargetGroupAttribute] - , _elasticLoadBalancingV2TargetGroupTargetType :: Maybe (Val Text) - , _elasticLoadBalancingV2TargetGroupTargets :: Maybe [ElasticLoadBalancingV2TargetGroupTargetDescription] - , _elasticLoadBalancingV2TargetGroupUnhealthyThresholdCount :: Maybe (Val Integer) - , _elasticLoadBalancingV2TargetGroupVpcId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties ElasticLoadBalancingV2TargetGroup where - toResourceProperties ElasticLoadBalancingV2TargetGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ElasticLoadBalancingV2::TargetGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("HealthCheckEnabled",) . toJSON) _elasticLoadBalancingV2TargetGroupHealthCheckEnabled - , fmap (("HealthCheckIntervalSeconds",) . toJSON) _elasticLoadBalancingV2TargetGroupHealthCheckIntervalSeconds - , fmap (("HealthCheckPath",) . toJSON) _elasticLoadBalancingV2TargetGroupHealthCheckPath - , fmap (("HealthCheckPort",) . toJSON) _elasticLoadBalancingV2TargetGroupHealthCheckPort - , fmap (("HealthCheckProtocol",) . toJSON) _elasticLoadBalancingV2TargetGroupHealthCheckProtocol - , fmap (("HealthCheckTimeoutSeconds",) . toJSON) _elasticLoadBalancingV2TargetGroupHealthCheckTimeoutSeconds - , fmap (("HealthyThresholdCount",) . toJSON) _elasticLoadBalancingV2TargetGroupHealthyThresholdCount - , fmap (("Matcher",) . toJSON) _elasticLoadBalancingV2TargetGroupMatcher - , fmap (("Name",) . toJSON) _elasticLoadBalancingV2TargetGroupName - , fmap (("Port",) . toJSON) _elasticLoadBalancingV2TargetGroupPort - , fmap (("Protocol",) . toJSON) _elasticLoadBalancingV2TargetGroupProtocol - , fmap (("Tags",) . toJSON) _elasticLoadBalancingV2TargetGroupTags - , fmap (("TargetGroupAttributes",) . toJSON) _elasticLoadBalancingV2TargetGroupTargetGroupAttributes - , fmap (("TargetType",) . toJSON) _elasticLoadBalancingV2TargetGroupTargetType - , fmap (("Targets",) . toJSON) _elasticLoadBalancingV2TargetGroupTargets - , fmap (("UnhealthyThresholdCount",) . toJSON) _elasticLoadBalancingV2TargetGroupUnhealthyThresholdCount - , fmap (("VpcId",) . toJSON) _elasticLoadBalancingV2TargetGroupVpcId - ] - } - --- | Constructor for 'ElasticLoadBalancingV2TargetGroup' containing required --- fields as arguments. -elasticLoadBalancingV2TargetGroup - :: ElasticLoadBalancingV2TargetGroup -elasticLoadBalancingV2TargetGroup = - ElasticLoadBalancingV2TargetGroup - { _elasticLoadBalancingV2TargetGroupHealthCheckEnabled = Nothing - , _elasticLoadBalancingV2TargetGroupHealthCheckIntervalSeconds = Nothing - , _elasticLoadBalancingV2TargetGroupHealthCheckPath = Nothing - , _elasticLoadBalancingV2TargetGroupHealthCheckPort = Nothing - , _elasticLoadBalancingV2TargetGroupHealthCheckProtocol = Nothing - , _elasticLoadBalancingV2TargetGroupHealthCheckTimeoutSeconds = Nothing - , _elasticLoadBalancingV2TargetGroupHealthyThresholdCount = Nothing - , _elasticLoadBalancingV2TargetGroupMatcher = Nothing - , _elasticLoadBalancingV2TargetGroupName = Nothing - , _elasticLoadBalancingV2TargetGroupPort = Nothing - , _elasticLoadBalancingV2TargetGroupProtocol = Nothing - , _elasticLoadBalancingV2TargetGroupTags = Nothing - , _elasticLoadBalancingV2TargetGroupTargetGroupAttributes = Nothing - , _elasticLoadBalancingV2TargetGroupTargetType = Nothing - , _elasticLoadBalancingV2TargetGroupTargets = Nothing - , _elasticLoadBalancingV2TargetGroupUnhealthyThresholdCount = Nothing - , _elasticLoadBalancingV2TargetGroupVpcId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-targetgroup.html#cfn-elasticloadbalancingv2-targetgroup-healthcheckenabled -elbvtgHealthCheckEnabled :: Lens' ElasticLoadBalancingV2TargetGroup (Maybe (Val Bool)) -elbvtgHealthCheckEnabled = lens _elasticLoadBalancingV2TargetGroupHealthCheckEnabled (\s a -> s { _elasticLoadBalancingV2TargetGroupHealthCheckEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-targetgroup.html#cfn-elasticloadbalancingv2-targetgroup-healthcheckintervalseconds -elbvtgHealthCheckIntervalSeconds :: Lens' ElasticLoadBalancingV2TargetGroup (Maybe (Val Integer)) -elbvtgHealthCheckIntervalSeconds = lens _elasticLoadBalancingV2TargetGroupHealthCheckIntervalSeconds (\s a -> s { _elasticLoadBalancingV2TargetGroupHealthCheckIntervalSeconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-targetgroup.html#cfn-elasticloadbalancingv2-targetgroup-healthcheckpath -elbvtgHealthCheckPath :: Lens' ElasticLoadBalancingV2TargetGroup (Maybe (Val Text)) -elbvtgHealthCheckPath = lens _elasticLoadBalancingV2TargetGroupHealthCheckPath (\s a -> s { _elasticLoadBalancingV2TargetGroupHealthCheckPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-targetgroup.html#cfn-elasticloadbalancingv2-targetgroup-healthcheckport -elbvtgHealthCheckPort :: Lens' ElasticLoadBalancingV2TargetGroup (Maybe (Val Text)) -elbvtgHealthCheckPort = lens _elasticLoadBalancingV2TargetGroupHealthCheckPort (\s a -> s { _elasticLoadBalancingV2TargetGroupHealthCheckPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-targetgroup.html#cfn-elasticloadbalancingv2-targetgroup-healthcheckprotocol -elbvtgHealthCheckProtocol :: Lens' ElasticLoadBalancingV2TargetGroup (Maybe (Val Text)) -elbvtgHealthCheckProtocol = lens _elasticLoadBalancingV2TargetGroupHealthCheckProtocol (\s a -> s { _elasticLoadBalancingV2TargetGroupHealthCheckProtocol = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-targetgroup.html#cfn-elasticloadbalancingv2-targetgroup-healthchecktimeoutseconds -elbvtgHealthCheckTimeoutSeconds :: Lens' ElasticLoadBalancingV2TargetGroup (Maybe (Val Integer)) -elbvtgHealthCheckTimeoutSeconds = lens _elasticLoadBalancingV2TargetGroupHealthCheckTimeoutSeconds (\s a -> s { _elasticLoadBalancingV2TargetGroupHealthCheckTimeoutSeconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-targetgroup.html#cfn-elasticloadbalancingv2-targetgroup-healthythresholdcount -elbvtgHealthyThresholdCount :: Lens' ElasticLoadBalancingV2TargetGroup (Maybe (Val Integer)) -elbvtgHealthyThresholdCount = lens _elasticLoadBalancingV2TargetGroupHealthyThresholdCount (\s a -> s { _elasticLoadBalancingV2TargetGroupHealthyThresholdCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-targetgroup.html#cfn-elasticloadbalancingv2-targetgroup-matcher -elbvtgMatcher :: Lens' ElasticLoadBalancingV2TargetGroup (Maybe ElasticLoadBalancingV2TargetGroupMatcher) -elbvtgMatcher = lens _elasticLoadBalancingV2TargetGroupMatcher (\s a -> s { _elasticLoadBalancingV2TargetGroupMatcher = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-targetgroup.html#cfn-elasticloadbalancingv2-targetgroup-name -elbvtgName :: Lens' ElasticLoadBalancingV2TargetGroup (Maybe (Val Text)) -elbvtgName = lens _elasticLoadBalancingV2TargetGroupName (\s a -> s { _elasticLoadBalancingV2TargetGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-targetgroup.html#cfn-elasticloadbalancingv2-targetgroup-port -elbvtgPort :: Lens' ElasticLoadBalancingV2TargetGroup (Maybe (Val Integer)) -elbvtgPort = lens _elasticLoadBalancingV2TargetGroupPort (\s a -> s { _elasticLoadBalancingV2TargetGroupPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-targetgroup.html#cfn-elasticloadbalancingv2-targetgroup-protocol -elbvtgProtocol :: Lens' ElasticLoadBalancingV2TargetGroup (Maybe (Val Text)) -elbvtgProtocol = lens _elasticLoadBalancingV2TargetGroupProtocol (\s a -> s { _elasticLoadBalancingV2TargetGroupProtocol = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-targetgroup.html#cfn-elasticloadbalancingv2-targetgroup-tags -elbvtgTags :: Lens' ElasticLoadBalancingV2TargetGroup (Maybe [Tag]) -elbvtgTags = lens _elasticLoadBalancingV2TargetGroupTags (\s a -> s { _elasticLoadBalancingV2TargetGroupTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-targetgroup.html#cfn-elasticloadbalancingv2-targetgroup-targetgroupattributes -elbvtgTargetGroupAttributes :: Lens' ElasticLoadBalancingV2TargetGroup (Maybe [ElasticLoadBalancingV2TargetGroupTargetGroupAttribute]) -elbvtgTargetGroupAttributes = lens _elasticLoadBalancingV2TargetGroupTargetGroupAttributes (\s a -> s { _elasticLoadBalancingV2TargetGroupTargetGroupAttributes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-targetgroup.html#cfn-elasticloadbalancingv2-targetgroup-targettype -elbvtgTargetType :: Lens' ElasticLoadBalancingV2TargetGroup (Maybe (Val Text)) -elbvtgTargetType = lens _elasticLoadBalancingV2TargetGroupTargetType (\s a -> s { _elasticLoadBalancingV2TargetGroupTargetType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-targetgroup.html#cfn-elasticloadbalancingv2-targetgroup-targets -elbvtgTargets :: Lens' ElasticLoadBalancingV2TargetGroup (Maybe [ElasticLoadBalancingV2TargetGroupTargetDescription]) -elbvtgTargets = lens _elasticLoadBalancingV2TargetGroupTargets (\s a -> s { _elasticLoadBalancingV2TargetGroupTargets = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-targetgroup.html#cfn-elasticloadbalancingv2-targetgroup-unhealthythresholdcount -elbvtgUnhealthyThresholdCount :: Lens' ElasticLoadBalancingV2TargetGroup (Maybe (Val Integer)) -elbvtgUnhealthyThresholdCount = lens _elasticLoadBalancingV2TargetGroupUnhealthyThresholdCount (\s a -> s { _elasticLoadBalancingV2TargetGroupUnhealthyThresholdCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticloadbalancingv2-targetgroup.html#cfn-elasticloadbalancingv2-targetgroup-vpcid -elbvtgVpcId :: Lens' ElasticLoadBalancingV2TargetGroup (Maybe (Val Text)) -elbvtgVpcId = lens _elasticLoadBalancingV2TargetGroupVpcId (\s a -> s { _elasticLoadBalancingV2TargetGroupVpcId = a }) diff --git a/library-gen/Stratosphere/Resources/ElasticsearchDomain.hs b/library-gen/Stratosphere/Resources/ElasticsearchDomain.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ElasticsearchDomain.hs +++ /dev/null @@ -1,149 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticsearch-domain.html - -module Stratosphere.Resources.ElasticsearchDomain where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ElasticsearchDomainAdvancedSecurityOptionsInput -import Stratosphere.ResourceProperties.ElasticsearchDomainCognitoOptions -import Stratosphere.ResourceProperties.ElasticsearchDomainDomainEndpointOptions -import Stratosphere.ResourceProperties.ElasticsearchDomainEBSOptions -import Stratosphere.ResourceProperties.ElasticsearchDomainElasticsearchClusterConfig -import Stratosphere.ResourceProperties.ElasticsearchDomainEncryptionAtRestOptions -import Stratosphere.ResourceProperties.ElasticsearchDomainLogPublishingOption -import Stratosphere.ResourceProperties.ElasticsearchDomainNodeToNodeEncryptionOptions -import Stratosphere.ResourceProperties.ElasticsearchDomainSnapshotOptions -import Stratosphere.ResourceProperties.Tag -import Stratosphere.ResourceProperties.ElasticsearchDomainVPCOptions - --- | Full data type definition for ElasticsearchDomain. See --- 'elasticsearchDomain' for a more convenient constructor. -data ElasticsearchDomain = - ElasticsearchDomain - { _elasticsearchDomainAccessPolicies :: Maybe Object - , _elasticsearchDomainAdvancedOptions :: Maybe Object - , _elasticsearchDomainAdvancedSecurityOptions :: Maybe ElasticsearchDomainAdvancedSecurityOptionsInput - , _elasticsearchDomainCognitoOptions :: Maybe ElasticsearchDomainCognitoOptions - , _elasticsearchDomainDomainEndpointOptions :: Maybe ElasticsearchDomainDomainEndpointOptions - , _elasticsearchDomainDomainName :: Maybe (Val Text) - , _elasticsearchDomainEBSOptions :: Maybe ElasticsearchDomainEBSOptions - , _elasticsearchDomainElasticsearchClusterConfig :: Maybe ElasticsearchDomainElasticsearchClusterConfig - , _elasticsearchDomainElasticsearchVersion :: Maybe (Val Text) - , _elasticsearchDomainEncryptionAtRestOptions :: Maybe ElasticsearchDomainEncryptionAtRestOptions - , _elasticsearchDomainLogPublishingOptions :: Maybe (Map Text ElasticsearchDomainLogPublishingOption) - , _elasticsearchDomainNodeToNodeEncryptionOptions :: Maybe ElasticsearchDomainNodeToNodeEncryptionOptions - , _elasticsearchDomainSnapshotOptions :: Maybe ElasticsearchDomainSnapshotOptions - , _elasticsearchDomainTags :: Maybe [Tag] - , _elasticsearchDomainVPCOptions :: Maybe ElasticsearchDomainVPCOptions - } deriving (Show, Eq) - -instance ToResourceProperties ElasticsearchDomain where - toResourceProperties ElasticsearchDomain{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Elasticsearch::Domain" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AccessPolicies",) . toJSON) _elasticsearchDomainAccessPolicies - , fmap (("AdvancedOptions",) . toJSON) _elasticsearchDomainAdvancedOptions - , fmap (("AdvancedSecurityOptions",) . toJSON) _elasticsearchDomainAdvancedSecurityOptions - , fmap (("CognitoOptions",) . toJSON) _elasticsearchDomainCognitoOptions - , fmap (("DomainEndpointOptions",) . toJSON) _elasticsearchDomainDomainEndpointOptions - , fmap (("DomainName",) . toJSON) _elasticsearchDomainDomainName - , fmap (("EBSOptions",) . toJSON) _elasticsearchDomainEBSOptions - , fmap (("ElasticsearchClusterConfig",) . toJSON) _elasticsearchDomainElasticsearchClusterConfig - , fmap (("ElasticsearchVersion",) . toJSON) _elasticsearchDomainElasticsearchVersion - , fmap (("EncryptionAtRestOptions",) . toJSON) _elasticsearchDomainEncryptionAtRestOptions - , fmap (("LogPublishingOptions",) . toJSON) _elasticsearchDomainLogPublishingOptions - , fmap (("NodeToNodeEncryptionOptions",) . toJSON) _elasticsearchDomainNodeToNodeEncryptionOptions - , fmap (("SnapshotOptions",) . toJSON) _elasticsearchDomainSnapshotOptions - , fmap (("Tags",) . toJSON) _elasticsearchDomainTags - , fmap (("VPCOptions",) . toJSON) _elasticsearchDomainVPCOptions - ] - } - --- | Constructor for 'ElasticsearchDomain' containing required fields as --- arguments. -elasticsearchDomain - :: ElasticsearchDomain -elasticsearchDomain = - ElasticsearchDomain - { _elasticsearchDomainAccessPolicies = Nothing - , _elasticsearchDomainAdvancedOptions = Nothing - , _elasticsearchDomainAdvancedSecurityOptions = Nothing - , _elasticsearchDomainCognitoOptions = Nothing - , _elasticsearchDomainDomainEndpointOptions = Nothing - , _elasticsearchDomainDomainName = Nothing - , _elasticsearchDomainEBSOptions = Nothing - , _elasticsearchDomainElasticsearchClusterConfig = Nothing - , _elasticsearchDomainElasticsearchVersion = Nothing - , _elasticsearchDomainEncryptionAtRestOptions = Nothing - , _elasticsearchDomainLogPublishingOptions = Nothing - , _elasticsearchDomainNodeToNodeEncryptionOptions = Nothing - , _elasticsearchDomainSnapshotOptions = Nothing - , _elasticsearchDomainTags = Nothing - , _elasticsearchDomainVPCOptions = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticsearch-domain.html#cfn-elasticsearch-domain-accesspolicies -edAccessPolicies :: Lens' ElasticsearchDomain (Maybe Object) -edAccessPolicies = lens _elasticsearchDomainAccessPolicies (\s a -> s { _elasticsearchDomainAccessPolicies = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticsearch-domain.html#cfn-elasticsearch-domain-advancedoptions -edAdvancedOptions :: Lens' ElasticsearchDomain (Maybe Object) -edAdvancedOptions = lens _elasticsearchDomainAdvancedOptions (\s a -> s { _elasticsearchDomainAdvancedOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticsearch-domain.html#cfn-elasticsearch-domain-advancedsecurityoptions -edAdvancedSecurityOptions :: Lens' ElasticsearchDomain (Maybe ElasticsearchDomainAdvancedSecurityOptionsInput) -edAdvancedSecurityOptions = lens _elasticsearchDomainAdvancedSecurityOptions (\s a -> s { _elasticsearchDomainAdvancedSecurityOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticsearch-domain.html#cfn-elasticsearch-domain-cognitooptions -edCognitoOptions :: Lens' ElasticsearchDomain (Maybe ElasticsearchDomainCognitoOptions) -edCognitoOptions = lens _elasticsearchDomainCognitoOptions (\s a -> s { _elasticsearchDomainCognitoOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticsearch-domain.html#cfn-elasticsearch-domain-domainendpointoptions -edDomainEndpointOptions :: Lens' ElasticsearchDomain (Maybe ElasticsearchDomainDomainEndpointOptions) -edDomainEndpointOptions = lens _elasticsearchDomainDomainEndpointOptions (\s a -> s { _elasticsearchDomainDomainEndpointOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticsearch-domain.html#cfn-elasticsearch-domain-domainname -edDomainName :: Lens' ElasticsearchDomain (Maybe (Val Text)) -edDomainName = lens _elasticsearchDomainDomainName (\s a -> s { _elasticsearchDomainDomainName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticsearch-domain.html#cfn-elasticsearch-domain-ebsoptions -edEBSOptions :: Lens' ElasticsearchDomain (Maybe ElasticsearchDomainEBSOptions) -edEBSOptions = lens _elasticsearchDomainEBSOptions (\s a -> s { _elasticsearchDomainEBSOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticsearch-domain.html#cfn-elasticsearch-domain-elasticsearchclusterconfig -edElasticsearchClusterConfig :: Lens' ElasticsearchDomain (Maybe ElasticsearchDomainElasticsearchClusterConfig) -edElasticsearchClusterConfig = lens _elasticsearchDomainElasticsearchClusterConfig (\s a -> s { _elasticsearchDomainElasticsearchClusterConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticsearch-domain.html#cfn-elasticsearch-domain-elasticsearchversion -edElasticsearchVersion :: Lens' ElasticsearchDomain (Maybe (Val Text)) -edElasticsearchVersion = lens _elasticsearchDomainElasticsearchVersion (\s a -> s { _elasticsearchDomainElasticsearchVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticsearch-domain.html#cfn-elasticsearch-domain-encryptionatrestoptions -edEncryptionAtRestOptions :: Lens' ElasticsearchDomain (Maybe ElasticsearchDomainEncryptionAtRestOptions) -edEncryptionAtRestOptions = lens _elasticsearchDomainEncryptionAtRestOptions (\s a -> s { _elasticsearchDomainEncryptionAtRestOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticsearch-domain.html#cfn-elasticsearch-domain-logpublishingoptions -edLogPublishingOptions :: Lens' ElasticsearchDomain (Maybe (Map Text ElasticsearchDomainLogPublishingOption)) -edLogPublishingOptions = lens _elasticsearchDomainLogPublishingOptions (\s a -> s { _elasticsearchDomainLogPublishingOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticsearch-domain.html#cfn-elasticsearch-domain-nodetonodeencryptionoptions -edNodeToNodeEncryptionOptions :: Lens' ElasticsearchDomain (Maybe ElasticsearchDomainNodeToNodeEncryptionOptions) -edNodeToNodeEncryptionOptions = lens _elasticsearchDomainNodeToNodeEncryptionOptions (\s a -> s { _elasticsearchDomainNodeToNodeEncryptionOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticsearch-domain.html#cfn-elasticsearch-domain-snapshotoptions -edSnapshotOptions :: Lens' ElasticsearchDomain (Maybe ElasticsearchDomainSnapshotOptions) -edSnapshotOptions = lens _elasticsearchDomainSnapshotOptions (\s a -> s { _elasticsearchDomainSnapshotOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticsearch-domain.html#cfn-elasticsearch-domain-tags -edTags :: Lens' ElasticsearchDomain (Maybe [Tag]) -edTags = lens _elasticsearchDomainTags (\s a -> s { _elasticsearchDomainTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-elasticsearch-domain.html#cfn-elasticsearch-domain-vpcoptions -edVPCOptions :: Lens' ElasticsearchDomain (Maybe ElasticsearchDomainVPCOptions) -edVPCOptions = lens _elasticsearchDomainVPCOptions (\s a -> s { _elasticsearchDomainVPCOptions = a }) diff --git a/library-gen/Stratosphere/Resources/EventSchemasDiscoverer.hs b/library-gen/Stratosphere/Resources/EventSchemasDiscoverer.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EventSchemasDiscoverer.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eventschemas-discoverer.html - -module Stratosphere.Resources.EventSchemasDiscoverer where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EventSchemasDiscovererTagsEntry - --- | Full data type definition for EventSchemasDiscoverer. See --- 'eventSchemasDiscoverer' for a more convenient constructor. -data EventSchemasDiscoverer = - EventSchemasDiscoverer - { _eventSchemasDiscovererDescription :: Maybe (Val Text) - , _eventSchemasDiscovererSourceArn :: Val Text - , _eventSchemasDiscovererTags :: Maybe [EventSchemasDiscovererTagsEntry] - } deriving (Show, Eq) - -instance ToResourceProperties EventSchemasDiscoverer where - toResourceProperties EventSchemasDiscoverer{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EventSchemas::Discoverer" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _eventSchemasDiscovererDescription - , (Just . ("SourceArn",) . toJSON) _eventSchemasDiscovererSourceArn - , fmap (("Tags",) . toJSON) _eventSchemasDiscovererTags - ] - } - --- | Constructor for 'EventSchemasDiscoverer' containing required fields as --- arguments. -eventSchemasDiscoverer - :: Val Text -- ^ 'esdSourceArn' - -> EventSchemasDiscoverer -eventSchemasDiscoverer sourceArnarg = - EventSchemasDiscoverer - { _eventSchemasDiscovererDescription = Nothing - , _eventSchemasDiscovererSourceArn = sourceArnarg - , _eventSchemasDiscovererTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eventschemas-discoverer.html#cfn-eventschemas-discoverer-description -esdDescription :: Lens' EventSchemasDiscoverer (Maybe (Val Text)) -esdDescription = lens _eventSchemasDiscovererDescription (\s a -> s { _eventSchemasDiscovererDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eventschemas-discoverer.html#cfn-eventschemas-discoverer-sourcearn -esdSourceArn :: Lens' EventSchemasDiscoverer (Val Text) -esdSourceArn = lens _eventSchemasDiscovererSourceArn (\s a -> s { _eventSchemasDiscovererSourceArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eventschemas-discoverer.html#cfn-eventschemas-discoverer-tags -esdTags :: Lens' EventSchemasDiscoverer (Maybe [EventSchemasDiscovererTagsEntry]) -esdTags = lens _eventSchemasDiscovererTags (\s a -> s { _eventSchemasDiscovererTags = a }) diff --git a/library-gen/Stratosphere/Resources/EventSchemasRegistry.hs b/library-gen/Stratosphere/Resources/EventSchemasRegistry.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EventSchemasRegistry.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eventschemas-registry.html - -module Stratosphere.Resources.EventSchemasRegistry where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EventSchemasRegistryTagsEntry - --- | Full data type definition for EventSchemasRegistry. See --- 'eventSchemasRegistry' for a more convenient constructor. -data EventSchemasRegistry = - EventSchemasRegistry - { _eventSchemasRegistryDescription :: Maybe (Val Text) - , _eventSchemasRegistryRegistryName :: Maybe (Val Text) - , _eventSchemasRegistryTags :: Maybe [EventSchemasRegistryTagsEntry] - } deriving (Show, Eq) - -instance ToResourceProperties EventSchemasRegistry where - toResourceProperties EventSchemasRegistry{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EventSchemas::Registry" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _eventSchemasRegistryDescription - , fmap (("RegistryName",) . toJSON) _eventSchemasRegistryRegistryName - , fmap (("Tags",) . toJSON) _eventSchemasRegistryTags - ] - } - --- | Constructor for 'EventSchemasRegistry' containing required fields as --- arguments. -eventSchemasRegistry - :: EventSchemasRegistry -eventSchemasRegistry = - EventSchemasRegistry - { _eventSchemasRegistryDescription = Nothing - , _eventSchemasRegistryRegistryName = Nothing - , _eventSchemasRegistryTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eventschemas-registry.html#cfn-eventschemas-registry-description -esrDescription :: Lens' EventSchemasRegistry (Maybe (Val Text)) -esrDescription = lens _eventSchemasRegistryDescription (\s a -> s { _eventSchemasRegistryDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eventschemas-registry.html#cfn-eventschemas-registry-registryname -esrRegistryName :: Lens' EventSchemasRegistry (Maybe (Val Text)) -esrRegistryName = lens _eventSchemasRegistryRegistryName (\s a -> s { _eventSchemasRegistryRegistryName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eventschemas-registry.html#cfn-eventschemas-registry-tags -esrTags :: Lens' EventSchemasRegistry (Maybe [EventSchemasRegistryTagsEntry]) -esrTags = lens _eventSchemasRegistryTags (\s a -> s { _eventSchemasRegistryTags = a }) diff --git a/library-gen/Stratosphere/Resources/EventSchemasRegistryPolicy.hs b/library-gen/Stratosphere/Resources/EventSchemasRegistryPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EventSchemasRegistryPolicy.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eventschemas-registrypolicy.html - -module Stratosphere.Resources.EventSchemasRegistryPolicy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EventSchemasRegistryPolicy. See --- 'eventSchemasRegistryPolicy' for a more convenient constructor. -data EventSchemasRegistryPolicy = - EventSchemasRegistryPolicy - { _eventSchemasRegistryPolicyPolicy :: Object - , _eventSchemasRegistryPolicyRegistryName :: Val Text - , _eventSchemasRegistryPolicyRevisionId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties EventSchemasRegistryPolicy where - toResourceProperties EventSchemasRegistryPolicy{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EventSchemas::RegistryPolicy" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Policy",) . toJSON) _eventSchemasRegistryPolicyPolicy - , (Just . ("RegistryName",) . toJSON) _eventSchemasRegistryPolicyRegistryName - , fmap (("RevisionId",) . toJSON) _eventSchemasRegistryPolicyRevisionId - ] - } - --- | Constructor for 'EventSchemasRegistryPolicy' containing required fields --- as arguments. -eventSchemasRegistryPolicy - :: Object -- ^ 'esrpPolicy' - -> Val Text -- ^ 'esrpRegistryName' - -> EventSchemasRegistryPolicy -eventSchemasRegistryPolicy policyarg registryNamearg = - EventSchemasRegistryPolicy - { _eventSchemasRegistryPolicyPolicy = policyarg - , _eventSchemasRegistryPolicyRegistryName = registryNamearg - , _eventSchemasRegistryPolicyRevisionId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eventschemas-registrypolicy.html#cfn-eventschemas-registrypolicy-policy -esrpPolicy :: Lens' EventSchemasRegistryPolicy Object -esrpPolicy = lens _eventSchemasRegistryPolicyPolicy (\s a -> s { _eventSchemasRegistryPolicyPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eventschemas-registrypolicy.html#cfn-eventschemas-registrypolicy-registryname -esrpRegistryName :: Lens' EventSchemasRegistryPolicy (Val Text) -esrpRegistryName = lens _eventSchemasRegistryPolicyRegistryName (\s a -> s { _eventSchemasRegistryPolicyRegistryName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eventschemas-registrypolicy.html#cfn-eventschemas-registrypolicy-revisionid -esrpRevisionId :: Lens' EventSchemasRegistryPolicy (Maybe (Val Text)) -esrpRevisionId = lens _eventSchemasRegistryPolicyRevisionId (\s a -> s { _eventSchemasRegistryPolicyRevisionId = a }) diff --git a/library-gen/Stratosphere/Resources/EventSchemasSchema.hs b/library-gen/Stratosphere/Resources/EventSchemasSchema.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EventSchemasSchema.hs +++ /dev/null @@ -1,79 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eventschemas-schema.html - -module Stratosphere.Resources.EventSchemasSchema where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EventSchemasSchemaTagsEntry - --- | Full data type definition for EventSchemasSchema. See --- 'eventSchemasSchema' for a more convenient constructor. -data EventSchemasSchema = - EventSchemasSchema - { _eventSchemasSchemaContent :: Val Text - , _eventSchemasSchemaDescription :: Maybe (Val Text) - , _eventSchemasSchemaRegistryName :: Val Text - , _eventSchemasSchemaSchemaName :: Maybe (Val Text) - , _eventSchemasSchemaTags :: Maybe [EventSchemasSchemaTagsEntry] - , _eventSchemasSchemaType :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EventSchemasSchema where - toResourceProperties EventSchemasSchema{..} = - ResourceProperties - { resourcePropertiesType = "AWS::EventSchemas::Schema" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Content",) . toJSON) _eventSchemasSchemaContent - , fmap (("Description",) . toJSON) _eventSchemasSchemaDescription - , (Just . ("RegistryName",) . toJSON) _eventSchemasSchemaRegistryName - , fmap (("SchemaName",) . toJSON) _eventSchemasSchemaSchemaName - , fmap (("Tags",) . toJSON) _eventSchemasSchemaTags - , (Just . ("Type",) . toJSON) _eventSchemasSchemaType - ] - } - --- | Constructor for 'EventSchemasSchema' containing required fields as --- arguments. -eventSchemasSchema - :: Val Text -- ^ 'essContent' - -> Val Text -- ^ 'essRegistryName' - -> Val Text -- ^ 'essType' - -> EventSchemasSchema -eventSchemasSchema contentarg registryNamearg typearg = - EventSchemasSchema - { _eventSchemasSchemaContent = contentarg - , _eventSchemasSchemaDescription = Nothing - , _eventSchemasSchemaRegistryName = registryNamearg - , _eventSchemasSchemaSchemaName = Nothing - , _eventSchemasSchemaTags = Nothing - , _eventSchemasSchemaType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eventschemas-schema.html#cfn-eventschemas-schema-content -essContent :: Lens' EventSchemasSchema (Val Text) -essContent = lens _eventSchemasSchemaContent (\s a -> s { _eventSchemasSchemaContent = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eventschemas-schema.html#cfn-eventschemas-schema-description -essDescription :: Lens' EventSchemasSchema (Maybe (Val Text)) -essDescription = lens _eventSchemasSchemaDescription (\s a -> s { _eventSchemasSchemaDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eventschemas-schema.html#cfn-eventschemas-schema-registryname -essRegistryName :: Lens' EventSchemasSchema (Val Text) -essRegistryName = lens _eventSchemasSchemaRegistryName (\s a -> s { _eventSchemasSchemaRegistryName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eventschemas-schema.html#cfn-eventschemas-schema-schemaname -essSchemaName :: Lens' EventSchemasSchema (Maybe (Val Text)) -essSchemaName = lens _eventSchemasSchemaSchemaName (\s a -> s { _eventSchemasSchemaSchemaName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eventschemas-schema.html#cfn-eventschemas-schema-tags -essTags :: Lens' EventSchemasSchema (Maybe [EventSchemasSchemaTagsEntry]) -essTags = lens _eventSchemasSchemaTags (\s a -> s { _eventSchemasSchemaTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-eventschemas-schema.html#cfn-eventschemas-schema-type -essType :: Lens' EventSchemasSchema (Val Text) -essType = lens _eventSchemasSchemaType (\s a -> s { _eventSchemasSchemaType = a }) diff --git a/library-gen/Stratosphere/Resources/EventsEventBus.hs b/library-gen/Stratosphere/Resources/EventsEventBus.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EventsEventBus.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-eventbus.html - -module Stratosphere.Resources.EventsEventBus where - -import Stratosphere.ResourceImports - - --- | Full data type definition for EventsEventBus. See 'eventsEventBus' for a --- more convenient constructor. -data EventsEventBus = - EventsEventBus - { _eventsEventBusEventSourceName :: Maybe (Val Text) - , _eventsEventBusName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EventsEventBus where - toResourceProperties EventsEventBus{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Events::EventBus" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("EventSourceName",) . toJSON) _eventsEventBusEventSourceName - , (Just . ("Name",) . toJSON) _eventsEventBusName - ] - } - --- | Constructor for 'EventsEventBus' containing required fields as arguments. -eventsEventBus - :: Val Text -- ^ 'eebName' - -> EventsEventBus -eventsEventBus namearg = - EventsEventBus - { _eventsEventBusEventSourceName = Nothing - , _eventsEventBusName = namearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-eventbus.html#cfn-events-eventbus-eventsourcename -eebEventSourceName :: Lens' EventsEventBus (Maybe (Val Text)) -eebEventSourceName = lens _eventsEventBusEventSourceName (\s a -> s { _eventsEventBusEventSourceName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-eventbus.html#cfn-events-eventbus-name -eebName :: Lens' EventsEventBus (Val Text) -eebName = lens _eventsEventBusName (\s a -> s { _eventsEventBusName = a }) diff --git a/library-gen/Stratosphere/Resources/EventsEventBusPolicy.hs b/library-gen/Stratosphere/Resources/EventsEventBusPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EventsEventBusPolicy.hs +++ /dev/null @@ -1,72 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-eventbuspolicy.html - -module Stratosphere.Resources.EventsEventBusPolicy where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.EventsEventBusPolicyCondition - --- | Full data type definition for EventsEventBusPolicy. See --- 'eventsEventBusPolicy' for a more convenient constructor. -data EventsEventBusPolicy = - EventsEventBusPolicy - { _eventsEventBusPolicyAction :: Val Text - , _eventsEventBusPolicyCondition :: Maybe EventsEventBusPolicyCondition - , _eventsEventBusPolicyEventBusName :: Maybe (Val Text) - , _eventsEventBusPolicyPrincipal :: Val Text - , _eventsEventBusPolicyStatementId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties EventsEventBusPolicy where - toResourceProperties EventsEventBusPolicy{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Events::EventBusPolicy" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Action",) . toJSON) _eventsEventBusPolicyAction - , fmap (("Condition",) . toJSON) _eventsEventBusPolicyCondition - , fmap (("EventBusName",) . toJSON) _eventsEventBusPolicyEventBusName - , (Just . ("Principal",) . toJSON) _eventsEventBusPolicyPrincipal - , (Just . ("StatementId",) . toJSON) _eventsEventBusPolicyStatementId - ] - } - --- | Constructor for 'EventsEventBusPolicy' containing required fields as --- arguments. -eventsEventBusPolicy - :: Val Text -- ^ 'eebpAction' - -> Val Text -- ^ 'eebpPrincipal' - -> Val Text -- ^ 'eebpStatementId' - -> EventsEventBusPolicy -eventsEventBusPolicy actionarg principalarg statementIdarg = - EventsEventBusPolicy - { _eventsEventBusPolicyAction = actionarg - , _eventsEventBusPolicyCondition = Nothing - , _eventsEventBusPolicyEventBusName = Nothing - , _eventsEventBusPolicyPrincipal = principalarg - , _eventsEventBusPolicyStatementId = statementIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-eventbuspolicy.html#cfn-events-eventbuspolicy-action -eebpAction :: Lens' EventsEventBusPolicy (Val Text) -eebpAction = lens _eventsEventBusPolicyAction (\s a -> s { _eventsEventBusPolicyAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-eventbuspolicy.html#cfn-events-eventbuspolicy-condition -eebpCondition :: Lens' EventsEventBusPolicy (Maybe EventsEventBusPolicyCondition) -eebpCondition = lens _eventsEventBusPolicyCondition (\s a -> s { _eventsEventBusPolicyCondition = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-eventbuspolicy.html#cfn-events-eventbuspolicy-eventbusname -eebpEventBusName :: Lens' EventsEventBusPolicy (Maybe (Val Text)) -eebpEventBusName = lens _eventsEventBusPolicyEventBusName (\s a -> s { _eventsEventBusPolicyEventBusName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-eventbuspolicy.html#cfn-events-eventbuspolicy-principal -eebpPrincipal :: Lens' EventsEventBusPolicy (Val Text) -eebpPrincipal = lens _eventsEventBusPolicyPrincipal (\s a -> s { _eventsEventBusPolicyPrincipal = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-eventbuspolicy.html#cfn-events-eventbuspolicy-statementid -eebpStatementId :: Lens' EventsEventBusPolicy (Val Text) -eebpStatementId = lens _eventsEventBusPolicyStatementId (\s a -> s { _eventsEventBusPolicyStatementId = a }) diff --git a/library-gen/Stratosphere/Resources/EventsRule.hs b/library-gen/Stratosphere/Resources/EventsRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/EventsRule.hs +++ /dev/null @@ -1,90 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-rule.html - -module Stratosphere.Resources.EventsRule where - -import Stratosphere.ResourceImports -import Stratosphere.Types -import Stratosphere.ResourceProperties.EventsRuleTarget - --- | Full data type definition for EventsRule. See 'eventsRule' for a more --- convenient constructor. -data EventsRule = - EventsRule - { _eventsRuleDescription :: Maybe (Val Text) - , _eventsRuleEventBusName :: Maybe (Val Text) - , _eventsRuleEventPattern :: Maybe Object - , _eventsRuleName :: Maybe (Val Text) - , _eventsRuleRoleArn :: Maybe (Val Text) - , _eventsRuleScheduleExpression :: Maybe (Val Text) - , _eventsRuleState :: Maybe (Val EnabledState) - , _eventsRuleTargets :: Maybe [EventsRuleTarget] - } deriving (Show, Eq) - -instance ToResourceProperties EventsRule where - toResourceProperties EventsRule{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Events::Rule" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _eventsRuleDescription - , fmap (("EventBusName",) . toJSON) _eventsRuleEventBusName - , fmap (("EventPattern",) . toJSON) _eventsRuleEventPattern - , fmap (("Name",) . toJSON) _eventsRuleName - , fmap (("RoleArn",) . toJSON) _eventsRuleRoleArn - , fmap (("ScheduleExpression",) . toJSON) _eventsRuleScheduleExpression - , fmap (("State",) . toJSON) _eventsRuleState - , fmap (("Targets",) . toJSON) _eventsRuleTargets - ] - } - --- | Constructor for 'EventsRule' containing required fields as arguments. -eventsRule - :: EventsRule -eventsRule = - EventsRule - { _eventsRuleDescription = Nothing - , _eventsRuleEventBusName = Nothing - , _eventsRuleEventPattern = Nothing - , _eventsRuleName = Nothing - , _eventsRuleRoleArn = Nothing - , _eventsRuleScheduleExpression = Nothing - , _eventsRuleState = Nothing - , _eventsRuleTargets = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-rule.html#cfn-events-rule-description -erDescription :: Lens' EventsRule (Maybe (Val Text)) -erDescription = lens _eventsRuleDescription (\s a -> s { _eventsRuleDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-rule.html#cfn-events-rule-eventbusname -erEventBusName :: Lens' EventsRule (Maybe (Val Text)) -erEventBusName = lens _eventsRuleEventBusName (\s a -> s { _eventsRuleEventBusName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-rule.html#cfn-events-rule-eventpattern -erEventPattern :: Lens' EventsRule (Maybe Object) -erEventPattern = lens _eventsRuleEventPattern (\s a -> s { _eventsRuleEventPattern = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-rule.html#cfn-events-rule-name -erName :: Lens' EventsRule (Maybe (Val Text)) -erName = lens _eventsRuleName (\s a -> s { _eventsRuleName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-rule.html#cfn-events-rule-rolearn -erRoleArn :: Lens' EventsRule (Maybe (Val Text)) -erRoleArn = lens _eventsRuleRoleArn (\s a -> s { _eventsRuleRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-rule.html#cfn-events-rule-scheduleexpression -erScheduleExpression :: Lens' EventsRule (Maybe (Val Text)) -erScheduleExpression = lens _eventsRuleScheduleExpression (\s a -> s { _eventsRuleScheduleExpression = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-rule.html#cfn-events-rule-state -erState :: Lens' EventsRule (Maybe (Val EnabledState)) -erState = lens _eventsRuleState (\s a -> s { _eventsRuleState = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-events-rule.html#cfn-events-rule-targets -erTargets :: Lens' EventsRule (Maybe [EventsRuleTarget]) -erTargets = lens _eventsRuleTargets (\s a -> s { _eventsRuleTargets = a }) diff --git a/library-gen/Stratosphere/Resources/FMSNotificationChannel.hs b/library-gen/Stratosphere/Resources/FMSNotificationChannel.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/FMSNotificationChannel.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fms-notificationchannel.html - -module Stratosphere.Resources.FMSNotificationChannel where - -import Stratosphere.ResourceImports - - --- | Full data type definition for FMSNotificationChannel. See --- 'fmsNotificationChannel' for a more convenient constructor. -data FMSNotificationChannel = - FMSNotificationChannel - { _fMSNotificationChannelSnsRoleName :: Val Text - , _fMSNotificationChannelSnsTopicArn :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties FMSNotificationChannel where - toResourceProperties FMSNotificationChannel{..} = - ResourceProperties - { resourcePropertiesType = "AWS::FMS::NotificationChannel" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("SnsRoleName",) . toJSON) _fMSNotificationChannelSnsRoleName - , (Just . ("SnsTopicArn",) . toJSON) _fMSNotificationChannelSnsTopicArn - ] - } - --- | Constructor for 'FMSNotificationChannel' containing required fields as --- arguments. -fmsNotificationChannel - :: Val Text -- ^ 'fmsncSnsRoleName' - -> Val Text -- ^ 'fmsncSnsTopicArn' - -> FMSNotificationChannel -fmsNotificationChannel snsRoleNamearg snsTopicArnarg = - FMSNotificationChannel - { _fMSNotificationChannelSnsRoleName = snsRoleNamearg - , _fMSNotificationChannelSnsTopicArn = snsTopicArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fms-notificationchannel.html#cfn-fms-notificationchannel-snsrolename -fmsncSnsRoleName :: Lens' FMSNotificationChannel (Val Text) -fmsncSnsRoleName = lens _fMSNotificationChannelSnsRoleName (\s a -> s { _fMSNotificationChannelSnsRoleName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fms-notificationchannel.html#cfn-fms-notificationchannel-snstopicarn -fmsncSnsTopicArn :: Lens' FMSNotificationChannel (Val Text) -fmsncSnsTopicArn = lens _fMSNotificationChannelSnsTopicArn (\s a -> s { _fMSNotificationChannelSnsTopicArn = a }) diff --git a/library-gen/Stratosphere/Resources/FMSPolicy.hs b/library-gen/Stratosphere/Resources/FMSPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/FMSPolicy.hs +++ /dev/null @@ -1,117 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fms-policy.html - -module Stratosphere.Resources.FMSPolicy where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.FMSPolicyIEMap -import Stratosphere.ResourceProperties.FMSPolicyResourceTag -import Stratosphere.ResourceProperties.FMSPolicyPolicyTag - --- | Full data type definition for FMSPolicy. See 'fmsPolicy' for a more --- convenient constructor. -data FMSPolicy = - FMSPolicy - { _fMSPolicyDeleteAllPolicyResources :: Maybe (Val Bool) - , _fMSPolicyExcludeMap :: Maybe FMSPolicyIEMap - , _fMSPolicyExcludeResourceTags :: Val Bool - , _fMSPolicyIncludeMap :: Maybe FMSPolicyIEMap - , _fMSPolicyPolicyName :: Val Text - , _fMSPolicyRemediationEnabled :: Val Bool - , _fMSPolicyResourceTags :: Maybe [FMSPolicyResourceTag] - , _fMSPolicyResourceType :: Val Text - , _fMSPolicyResourceTypeList :: Maybe (ValList Text) - , _fMSPolicySecurityServicePolicyData :: Object - , _fMSPolicyTags :: Maybe [FMSPolicyPolicyTag] - } deriving (Show, Eq) - -instance ToResourceProperties FMSPolicy where - toResourceProperties FMSPolicy{..} = - ResourceProperties - { resourcePropertiesType = "AWS::FMS::Policy" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("DeleteAllPolicyResources",) . toJSON) _fMSPolicyDeleteAllPolicyResources - , fmap (("ExcludeMap",) . toJSON) _fMSPolicyExcludeMap - , (Just . ("ExcludeResourceTags",) . toJSON) _fMSPolicyExcludeResourceTags - , fmap (("IncludeMap",) . toJSON) _fMSPolicyIncludeMap - , (Just . ("PolicyName",) . toJSON) _fMSPolicyPolicyName - , (Just . ("RemediationEnabled",) . toJSON) _fMSPolicyRemediationEnabled - , fmap (("ResourceTags",) . toJSON) _fMSPolicyResourceTags - , (Just . ("ResourceType",) . toJSON) _fMSPolicyResourceType - , fmap (("ResourceTypeList",) . toJSON) _fMSPolicyResourceTypeList - , (Just . ("SecurityServicePolicyData",) . toJSON) _fMSPolicySecurityServicePolicyData - , fmap (("Tags",) . toJSON) _fMSPolicyTags - ] - } - --- | Constructor for 'FMSPolicy' containing required fields as arguments. -fmsPolicy - :: Val Bool -- ^ 'fmspExcludeResourceTags' - -> Val Text -- ^ 'fmspPolicyName' - -> Val Bool -- ^ 'fmspRemediationEnabled' - -> Val Text -- ^ 'fmspResourceType' - -> Object -- ^ 'fmspSecurityServicePolicyData' - -> FMSPolicy -fmsPolicy excludeResourceTagsarg policyNamearg remediationEnabledarg resourceTypearg securityServicePolicyDataarg = - FMSPolicy - { _fMSPolicyDeleteAllPolicyResources = Nothing - , _fMSPolicyExcludeMap = Nothing - , _fMSPolicyExcludeResourceTags = excludeResourceTagsarg - , _fMSPolicyIncludeMap = Nothing - , _fMSPolicyPolicyName = policyNamearg - , _fMSPolicyRemediationEnabled = remediationEnabledarg - , _fMSPolicyResourceTags = Nothing - , _fMSPolicyResourceType = resourceTypearg - , _fMSPolicyResourceTypeList = Nothing - , _fMSPolicySecurityServicePolicyData = securityServicePolicyDataarg - , _fMSPolicyTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fms-policy.html#cfn-fms-policy-deleteallpolicyresources -fmspDeleteAllPolicyResources :: Lens' FMSPolicy (Maybe (Val Bool)) -fmspDeleteAllPolicyResources = lens _fMSPolicyDeleteAllPolicyResources (\s a -> s { _fMSPolicyDeleteAllPolicyResources = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fms-policy.html#cfn-fms-policy-excludemap -fmspExcludeMap :: Lens' FMSPolicy (Maybe FMSPolicyIEMap) -fmspExcludeMap = lens _fMSPolicyExcludeMap (\s a -> s { _fMSPolicyExcludeMap = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fms-policy.html#cfn-fms-policy-excluderesourcetags -fmspExcludeResourceTags :: Lens' FMSPolicy (Val Bool) -fmspExcludeResourceTags = lens _fMSPolicyExcludeResourceTags (\s a -> s { _fMSPolicyExcludeResourceTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fms-policy.html#cfn-fms-policy-includemap -fmspIncludeMap :: Lens' FMSPolicy (Maybe FMSPolicyIEMap) -fmspIncludeMap = lens _fMSPolicyIncludeMap (\s a -> s { _fMSPolicyIncludeMap = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fms-policy.html#cfn-fms-policy-policyname -fmspPolicyName :: Lens' FMSPolicy (Val Text) -fmspPolicyName = lens _fMSPolicyPolicyName (\s a -> s { _fMSPolicyPolicyName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fms-policy.html#cfn-fms-policy-remediationenabled -fmspRemediationEnabled :: Lens' FMSPolicy (Val Bool) -fmspRemediationEnabled = lens _fMSPolicyRemediationEnabled (\s a -> s { _fMSPolicyRemediationEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fms-policy.html#cfn-fms-policy-resourcetags -fmspResourceTags :: Lens' FMSPolicy (Maybe [FMSPolicyResourceTag]) -fmspResourceTags = lens _fMSPolicyResourceTags (\s a -> s { _fMSPolicyResourceTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fms-policy.html#cfn-fms-policy-resourcetype -fmspResourceType :: Lens' FMSPolicy (Val Text) -fmspResourceType = lens _fMSPolicyResourceType (\s a -> s { _fMSPolicyResourceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fms-policy.html#cfn-fms-policy-resourcetypelist -fmspResourceTypeList :: Lens' FMSPolicy (Maybe (ValList Text)) -fmspResourceTypeList = lens _fMSPolicyResourceTypeList (\s a -> s { _fMSPolicyResourceTypeList = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fms-policy.html#cfn-fms-policy-securityservicepolicydata -fmspSecurityServicePolicyData :: Lens' FMSPolicy Object -fmspSecurityServicePolicyData = lens _fMSPolicySecurityServicePolicyData (\s a -> s { _fMSPolicySecurityServicePolicyData = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fms-policy.html#cfn-fms-policy-tags -fmspTags :: Lens' FMSPolicy (Maybe [FMSPolicyPolicyTag]) -fmspTags = lens _fMSPolicyTags (\s a -> s { _fMSPolicyTags = a }) diff --git a/library-gen/Stratosphere/Resources/FSxFileSystem.hs b/library-gen/Stratosphere/Resources/FSxFileSystem.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/FSxFileSystem.hs +++ /dev/null @@ -1,107 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fsx-filesystem.html - -module Stratosphere.Resources.FSxFileSystem where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.FSxFileSystemLustreConfiguration -import Stratosphere.ResourceProperties.Tag -import Stratosphere.ResourceProperties.FSxFileSystemWindowsConfiguration - --- | Full data type definition for FSxFileSystem. See 'fSxFileSystem' for a --- more convenient constructor. -data FSxFileSystem = - FSxFileSystem - { _fSxFileSystemBackupId :: Maybe (Val Text) - , _fSxFileSystemFileSystemType :: Val Text - , _fSxFileSystemKmsKeyId :: Maybe (Val Text) - , _fSxFileSystemLustreConfiguration :: Maybe FSxFileSystemLustreConfiguration - , _fSxFileSystemSecurityGroupIds :: Maybe (ValList Text) - , _fSxFileSystemStorageCapacity :: Maybe (Val Integer) - , _fSxFileSystemStorageType :: Maybe (Val Text) - , _fSxFileSystemSubnetIds :: ValList Text - , _fSxFileSystemTags :: Maybe [Tag] - , _fSxFileSystemWindowsConfiguration :: Maybe FSxFileSystemWindowsConfiguration - } deriving (Show, Eq) - -instance ToResourceProperties FSxFileSystem where - toResourceProperties FSxFileSystem{..} = - ResourceProperties - { resourcePropertiesType = "AWS::FSx::FileSystem" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("BackupId",) . toJSON) _fSxFileSystemBackupId - , (Just . ("FileSystemType",) . toJSON) _fSxFileSystemFileSystemType - , fmap (("KmsKeyId",) . toJSON) _fSxFileSystemKmsKeyId - , fmap (("LustreConfiguration",) . toJSON) _fSxFileSystemLustreConfiguration - , fmap (("SecurityGroupIds",) . toJSON) _fSxFileSystemSecurityGroupIds - , fmap (("StorageCapacity",) . toJSON) _fSxFileSystemStorageCapacity - , fmap (("StorageType",) . toJSON) _fSxFileSystemStorageType - , (Just . ("SubnetIds",) . toJSON) _fSxFileSystemSubnetIds - , fmap (("Tags",) . toJSON) _fSxFileSystemTags - , fmap (("WindowsConfiguration",) . toJSON) _fSxFileSystemWindowsConfiguration - ] - } - --- | Constructor for 'FSxFileSystem' containing required fields as arguments. -fSxFileSystem - :: Val Text -- ^ 'fsfsFileSystemType' - -> ValList Text -- ^ 'fsfsSubnetIds' - -> FSxFileSystem -fSxFileSystem fileSystemTypearg subnetIdsarg = - FSxFileSystem - { _fSxFileSystemBackupId = Nothing - , _fSxFileSystemFileSystemType = fileSystemTypearg - , _fSxFileSystemKmsKeyId = Nothing - , _fSxFileSystemLustreConfiguration = Nothing - , _fSxFileSystemSecurityGroupIds = Nothing - , _fSxFileSystemStorageCapacity = Nothing - , _fSxFileSystemStorageType = Nothing - , _fSxFileSystemSubnetIds = subnetIdsarg - , _fSxFileSystemTags = Nothing - , _fSxFileSystemWindowsConfiguration = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fsx-filesystem.html#cfn-fsx-filesystem-backupid -fsfsBackupId :: Lens' FSxFileSystem (Maybe (Val Text)) -fsfsBackupId = lens _fSxFileSystemBackupId (\s a -> s { _fSxFileSystemBackupId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fsx-filesystem.html#cfn-fsx-filesystem-filesystemtype -fsfsFileSystemType :: Lens' FSxFileSystem (Val Text) -fsfsFileSystemType = lens _fSxFileSystemFileSystemType (\s a -> s { _fSxFileSystemFileSystemType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fsx-filesystem.html#cfn-fsx-filesystem-kmskeyid -fsfsKmsKeyId :: Lens' FSxFileSystem (Maybe (Val Text)) -fsfsKmsKeyId = lens _fSxFileSystemKmsKeyId (\s a -> s { _fSxFileSystemKmsKeyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fsx-filesystem.html#cfn-fsx-filesystem-lustreconfiguration -fsfsLustreConfiguration :: Lens' FSxFileSystem (Maybe FSxFileSystemLustreConfiguration) -fsfsLustreConfiguration = lens _fSxFileSystemLustreConfiguration (\s a -> s { _fSxFileSystemLustreConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fsx-filesystem.html#cfn-fsx-filesystem-securitygroupids -fsfsSecurityGroupIds :: Lens' FSxFileSystem (Maybe (ValList Text)) -fsfsSecurityGroupIds = lens _fSxFileSystemSecurityGroupIds (\s a -> s { _fSxFileSystemSecurityGroupIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fsx-filesystem.html#cfn-fsx-filesystem-storagecapacity -fsfsStorageCapacity :: Lens' FSxFileSystem (Maybe (Val Integer)) -fsfsStorageCapacity = lens _fSxFileSystemStorageCapacity (\s a -> s { _fSxFileSystemStorageCapacity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fsx-filesystem.html#cfn-fsx-filesystem-storagetype -fsfsStorageType :: Lens' FSxFileSystem (Maybe (Val Text)) -fsfsStorageType = lens _fSxFileSystemStorageType (\s a -> s { _fSxFileSystemStorageType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fsx-filesystem.html#cfn-fsx-filesystem-subnetids -fsfsSubnetIds :: Lens' FSxFileSystem (ValList Text) -fsfsSubnetIds = lens _fSxFileSystemSubnetIds (\s a -> s { _fSxFileSystemSubnetIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fsx-filesystem.html#cfn-fsx-filesystem-tags -fsfsTags :: Lens' FSxFileSystem (Maybe [Tag]) -fsfsTags = lens _fSxFileSystemTags (\s a -> s { _fSxFileSystemTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-fsx-filesystem.html#cfn-fsx-filesystem-windowsconfiguration -fsfsWindowsConfiguration :: Lens' FSxFileSystem (Maybe FSxFileSystemWindowsConfiguration) -fsfsWindowsConfiguration = lens _fSxFileSystemWindowsConfiguration (\s a -> s { _fSxFileSystemWindowsConfiguration = a }) diff --git a/library-gen/Stratosphere/Resources/GameLiftAlias.hs b/library-gen/Stratosphere/Resources/GameLiftAlias.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GameLiftAlias.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-alias.html - -module Stratosphere.Resources.GameLiftAlias where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GameLiftAliasRoutingStrategy - --- | Full data type definition for GameLiftAlias. See 'gameLiftAlias' for a --- more convenient constructor. -data GameLiftAlias = - GameLiftAlias - { _gameLiftAliasDescription :: Maybe (Val Text) - , _gameLiftAliasName :: Val Text - , _gameLiftAliasRoutingStrategy :: GameLiftAliasRoutingStrategy - } deriving (Show, Eq) - -instance ToResourceProperties GameLiftAlias where - toResourceProperties GameLiftAlias{..} = - ResourceProperties - { resourcePropertiesType = "AWS::GameLift::Alias" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _gameLiftAliasDescription - , (Just . ("Name",) . toJSON) _gameLiftAliasName - , (Just . ("RoutingStrategy",) . toJSON) _gameLiftAliasRoutingStrategy - ] - } - --- | Constructor for 'GameLiftAlias' containing required fields as arguments. -gameLiftAlias - :: Val Text -- ^ 'glaName' - -> GameLiftAliasRoutingStrategy -- ^ 'glaRoutingStrategy' - -> GameLiftAlias -gameLiftAlias namearg routingStrategyarg = - GameLiftAlias - { _gameLiftAliasDescription = Nothing - , _gameLiftAliasName = namearg - , _gameLiftAliasRoutingStrategy = routingStrategyarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-alias.html#cfn-gamelift-alias-description -glaDescription :: Lens' GameLiftAlias (Maybe (Val Text)) -glaDescription = lens _gameLiftAliasDescription (\s a -> s { _gameLiftAliasDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-alias.html#cfn-gamelift-alias-name -glaName :: Lens' GameLiftAlias (Val Text) -glaName = lens _gameLiftAliasName (\s a -> s { _gameLiftAliasName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-alias.html#cfn-gamelift-alias-routingstrategy -glaRoutingStrategy :: Lens' GameLiftAlias GameLiftAliasRoutingStrategy -glaRoutingStrategy = lens _gameLiftAliasRoutingStrategy (\s a -> s { _gameLiftAliasRoutingStrategy = a }) diff --git a/library-gen/Stratosphere/Resources/GameLiftBuild.hs b/library-gen/Stratosphere/Resources/GameLiftBuild.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GameLiftBuild.hs +++ /dev/null @@ -1,61 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-build.html - -module Stratosphere.Resources.GameLiftBuild where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GameLiftBuildS3Location - --- | Full data type definition for GameLiftBuild. See 'gameLiftBuild' for a --- more convenient constructor. -data GameLiftBuild = - GameLiftBuild - { _gameLiftBuildName :: Maybe (Val Text) - , _gameLiftBuildOperatingSystem :: Maybe (Val Text) - , _gameLiftBuildStorageLocation :: Maybe GameLiftBuildS3Location - , _gameLiftBuildVersion :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties GameLiftBuild where - toResourceProperties GameLiftBuild{..} = - ResourceProperties - { resourcePropertiesType = "AWS::GameLift::Build" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Name",) . toJSON) _gameLiftBuildName - , fmap (("OperatingSystem",) . toJSON) _gameLiftBuildOperatingSystem - , fmap (("StorageLocation",) . toJSON) _gameLiftBuildStorageLocation - , fmap (("Version",) . toJSON) _gameLiftBuildVersion - ] - } - --- | Constructor for 'GameLiftBuild' containing required fields as arguments. -gameLiftBuild - :: GameLiftBuild -gameLiftBuild = - GameLiftBuild - { _gameLiftBuildName = Nothing - , _gameLiftBuildOperatingSystem = Nothing - , _gameLiftBuildStorageLocation = Nothing - , _gameLiftBuildVersion = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-build.html#cfn-gamelift-build-name -glbName :: Lens' GameLiftBuild (Maybe (Val Text)) -glbName = lens _gameLiftBuildName (\s a -> s { _gameLiftBuildName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-build.html#cfn-gamelift-build-operatingsystem -glbOperatingSystem :: Lens' GameLiftBuild (Maybe (Val Text)) -glbOperatingSystem = lens _gameLiftBuildOperatingSystem (\s a -> s { _gameLiftBuildOperatingSystem = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-build.html#cfn-gamelift-build-storagelocation -glbStorageLocation :: Lens' GameLiftBuild (Maybe GameLiftBuildS3Location) -glbStorageLocation = lens _gameLiftBuildStorageLocation (\s a -> s { _gameLiftBuildStorageLocation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-build.html#cfn-gamelift-build-version -glbVersion :: Lens' GameLiftBuild (Maybe (Val Text)) -glbVersion = lens _gameLiftBuildVersion (\s a -> s { _gameLiftBuildVersion = a }) diff --git a/library-gen/Stratosphere/Resources/GameLiftFleet.hs b/library-gen/Stratosphere/Resources/GameLiftFleet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GameLiftFleet.hs +++ /dev/null @@ -1,185 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html - -module Stratosphere.Resources.GameLiftFleet where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GameLiftFleetCertificateConfiguration -import Stratosphere.ResourceProperties.GameLiftFleetIpPermission -import Stratosphere.ResourceProperties.GameLiftFleetResourceCreationLimitPolicy -import Stratosphere.ResourceProperties.GameLiftFleetRuntimeConfiguration - --- | Full data type definition for GameLiftFleet. See 'gameLiftFleet' for a --- more convenient constructor. -data GameLiftFleet = - GameLiftFleet - { _gameLiftFleetBuildId :: Maybe (Val Text) - , _gameLiftFleetCertificateConfiguration :: Maybe GameLiftFleetCertificateConfiguration - , _gameLiftFleetDescription :: Maybe (Val Text) - , _gameLiftFleetDesiredEC2Instances :: Maybe (Val Integer) - , _gameLiftFleetEC2InboundPermissions :: Maybe [GameLiftFleetIpPermission] - , _gameLiftFleetEC2InstanceType :: Val Text - , _gameLiftFleetFleetType :: Maybe (Val Text) - , _gameLiftFleetInstanceRoleARN :: Maybe (Val Text) - , _gameLiftFleetLogPaths :: Maybe (ValList Text) - , _gameLiftFleetMaxSize :: Maybe (Val Integer) - , _gameLiftFleetMetricGroups :: Maybe (ValList Text) - , _gameLiftFleetMinSize :: Maybe (Val Integer) - , _gameLiftFleetName :: Val Text - , _gameLiftFleetNewGameSessionProtectionPolicy :: Maybe (Val Text) - , _gameLiftFleetPeerVpcAwsAccountId :: Maybe (Val Text) - , _gameLiftFleetPeerVpcId :: Maybe (Val Text) - , _gameLiftFleetResourceCreationLimitPolicy :: Maybe GameLiftFleetResourceCreationLimitPolicy - , _gameLiftFleetRuntimeConfiguration :: Maybe GameLiftFleetRuntimeConfiguration - , _gameLiftFleetScriptId :: Maybe (Val Text) - , _gameLiftFleetServerLaunchParameters :: Maybe (Val Text) - , _gameLiftFleetServerLaunchPath :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties GameLiftFleet where - toResourceProperties GameLiftFleet{..} = - ResourceProperties - { resourcePropertiesType = "AWS::GameLift::Fleet" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("BuildId",) . toJSON) _gameLiftFleetBuildId - , fmap (("CertificateConfiguration",) . toJSON) _gameLiftFleetCertificateConfiguration - , fmap (("Description",) . toJSON) _gameLiftFleetDescription - , fmap (("DesiredEC2Instances",) . toJSON) _gameLiftFleetDesiredEC2Instances - , fmap (("EC2InboundPermissions",) . toJSON) _gameLiftFleetEC2InboundPermissions - , (Just . ("EC2InstanceType",) . toJSON) _gameLiftFleetEC2InstanceType - , fmap (("FleetType",) . toJSON) _gameLiftFleetFleetType - , fmap (("InstanceRoleARN",) . toJSON) _gameLiftFleetInstanceRoleARN - , fmap (("LogPaths",) . toJSON) _gameLiftFleetLogPaths - , fmap (("MaxSize",) . toJSON) _gameLiftFleetMaxSize - , fmap (("MetricGroups",) . toJSON) _gameLiftFleetMetricGroups - , fmap (("MinSize",) . toJSON) _gameLiftFleetMinSize - , (Just . ("Name",) . toJSON) _gameLiftFleetName - , fmap (("NewGameSessionProtectionPolicy",) . toJSON) _gameLiftFleetNewGameSessionProtectionPolicy - , fmap (("PeerVpcAwsAccountId",) . toJSON) _gameLiftFleetPeerVpcAwsAccountId - , fmap (("PeerVpcId",) . toJSON) _gameLiftFleetPeerVpcId - , fmap (("ResourceCreationLimitPolicy",) . toJSON) _gameLiftFleetResourceCreationLimitPolicy - , fmap (("RuntimeConfiguration",) . toJSON) _gameLiftFleetRuntimeConfiguration - , fmap (("ScriptId",) . toJSON) _gameLiftFleetScriptId - , fmap (("ServerLaunchParameters",) . toJSON) _gameLiftFleetServerLaunchParameters - , fmap (("ServerLaunchPath",) . toJSON) _gameLiftFleetServerLaunchPath - ] - } - --- | Constructor for 'GameLiftFleet' containing required fields as arguments. -gameLiftFleet - :: Val Text -- ^ 'glfEC2InstanceType' - -> Val Text -- ^ 'glfName' - -> GameLiftFleet -gameLiftFleet eC2InstanceTypearg namearg = - GameLiftFleet - { _gameLiftFleetBuildId = Nothing - , _gameLiftFleetCertificateConfiguration = Nothing - , _gameLiftFleetDescription = Nothing - , _gameLiftFleetDesiredEC2Instances = Nothing - , _gameLiftFleetEC2InboundPermissions = Nothing - , _gameLiftFleetEC2InstanceType = eC2InstanceTypearg - , _gameLiftFleetFleetType = Nothing - , _gameLiftFleetInstanceRoleARN = Nothing - , _gameLiftFleetLogPaths = Nothing - , _gameLiftFleetMaxSize = Nothing - , _gameLiftFleetMetricGroups = Nothing - , _gameLiftFleetMinSize = Nothing - , _gameLiftFleetName = namearg - , _gameLiftFleetNewGameSessionProtectionPolicy = Nothing - , _gameLiftFleetPeerVpcAwsAccountId = Nothing - , _gameLiftFleetPeerVpcId = Nothing - , _gameLiftFleetResourceCreationLimitPolicy = Nothing - , _gameLiftFleetRuntimeConfiguration = Nothing - , _gameLiftFleetScriptId = Nothing - , _gameLiftFleetServerLaunchParameters = Nothing - , _gameLiftFleetServerLaunchPath = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-buildid -glfBuildId :: Lens' GameLiftFleet (Maybe (Val Text)) -glfBuildId = lens _gameLiftFleetBuildId (\s a -> s { _gameLiftFleetBuildId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-certificateconfiguration -glfCertificateConfiguration :: Lens' GameLiftFleet (Maybe GameLiftFleetCertificateConfiguration) -glfCertificateConfiguration = lens _gameLiftFleetCertificateConfiguration (\s a -> s { _gameLiftFleetCertificateConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-description -glfDescription :: Lens' GameLiftFleet (Maybe (Val Text)) -glfDescription = lens _gameLiftFleetDescription (\s a -> s { _gameLiftFleetDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-desiredec2instances -glfDesiredEC2Instances :: Lens' GameLiftFleet (Maybe (Val Integer)) -glfDesiredEC2Instances = lens _gameLiftFleetDesiredEC2Instances (\s a -> s { _gameLiftFleetDesiredEC2Instances = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-ec2inboundpermissions -glfEC2InboundPermissions :: Lens' GameLiftFleet (Maybe [GameLiftFleetIpPermission]) -glfEC2InboundPermissions = lens _gameLiftFleetEC2InboundPermissions (\s a -> s { _gameLiftFleetEC2InboundPermissions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-ec2instancetype -glfEC2InstanceType :: Lens' GameLiftFleet (Val Text) -glfEC2InstanceType = lens _gameLiftFleetEC2InstanceType (\s a -> s { _gameLiftFleetEC2InstanceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-fleettype -glfFleetType :: Lens' GameLiftFleet (Maybe (Val Text)) -glfFleetType = lens _gameLiftFleetFleetType (\s a -> s { _gameLiftFleetFleetType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-instancerolearn -glfInstanceRoleARN :: Lens' GameLiftFleet (Maybe (Val Text)) -glfInstanceRoleARN = lens _gameLiftFleetInstanceRoleARN (\s a -> s { _gameLiftFleetInstanceRoleARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-logpaths -glfLogPaths :: Lens' GameLiftFleet (Maybe (ValList Text)) -glfLogPaths = lens _gameLiftFleetLogPaths (\s a -> s { _gameLiftFleetLogPaths = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-maxsize -glfMaxSize :: Lens' GameLiftFleet (Maybe (Val Integer)) -glfMaxSize = lens _gameLiftFleetMaxSize (\s a -> s { _gameLiftFleetMaxSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-metricgroups -glfMetricGroups :: Lens' GameLiftFleet (Maybe (ValList Text)) -glfMetricGroups = lens _gameLiftFleetMetricGroups (\s a -> s { _gameLiftFleetMetricGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-minsize -glfMinSize :: Lens' GameLiftFleet (Maybe (Val Integer)) -glfMinSize = lens _gameLiftFleetMinSize (\s a -> s { _gameLiftFleetMinSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-name -glfName :: Lens' GameLiftFleet (Val Text) -glfName = lens _gameLiftFleetName (\s a -> s { _gameLiftFleetName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-newgamesessionprotectionpolicy -glfNewGameSessionProtectionPolicy :: Lens' GameLiftFleet (Maybe (Val Text)) -glfNewGameSessionProtectionPolicy = lens _gameLiftFleetNewGameSessionProtectionPolicy (\s a -> s { _gameLiftFleetNewGameSessionProtectionPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-peervpcawsaccountid -glfPeerVpcAwsAccountId :: Lens' GameLiftFleet (Maybe (Val Text)) -glfPeerVpcAwsAccountId = lens _gameLiftFleetPeerVpcAwsAccountId (\s a -> s { _gameLiftFleetPeerVpcAwsAccountId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-peervpcid -glfPeerVpcId :: Lens' GameLiftFleet (Maybe (Val Text)) -glfPeerVpcId = lens _gameLiftFleetPeerVpcId (\s a -> s { _gameLiftFleetPeerVpcId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-resourcecreationlimitpolicy -glfResourceCreationLimitPolicy :: Lens' GameLiftFleet (Maybe GameLiftFleetResourceCreationLimitPolicy) -glfResourceCreationLimitPolicy = lens _gameLiftFleetResourceCreationLimitPolicy (\s a -> s { _gameLiftFleetResourceCreationLimitPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-runtimeconfiguration -glfRuntimeConfiguration :: Lens' GameLiftFleet (Maybe GameLiftFleetRuntimeConfiguration) -glfRuntimeConfiguration = lens _gameLiftFleetRuntimeConfiguration (\s a -> s { _gameLiftFleetRuntimeConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-scriptid -glfScriptId :: Lens' GameLiftFleet (Maybe (Val Text)) -glfScriptId = lens _gameLiftFleetScriptId (\s a -> s { _gameLiftFleetScriptId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-serverlaunchparameters -glfServerLaunchParameters :: Lens' GameLiftFleet (Maybe (Val Text)) -glfServerLaunchParameters = lens _gameLiftFleetServerLaunchParameters (\s a -> s { _gameLiftFleetServerLaunchParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-fleet.html#cfn-gamelift-fleet-serverlaunchpath -glfServerLaunchPath :: Lens' GameLiftFleet (Maybe (Val Text)) -glfServerLaunchPath = lens _gameLiftFleetServerLaunchPath (\s a -> s { _gameLiftFleetServerLaunchPath = a }) diff --git a/library-gen/Stratosphere/Resources/GameLiftGameServerGroup.hs b/library-gen/Stratosphere/Resources/GameLiftGameServerGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GameLiftGameServerGroup.hs +++ /dev/null @@ -1,126 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-gameservergroup.html - -module Stratosphere.Resources.GameLiftGameServerGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GameLiftGameServerGroupAutoScalingPolicy -import Stratosphere.ResourceProperties.GameLiftGameServerGroupInstanceDefinitions -import Stratosphere.ResourceProperties.GameLiftGameServerGroupLaunchTemplate -import Stratosphere.ResourceProperties.GameLiftGameServerGroupTags -import Stratosphere.ResourceProperties.GameLiftGameServerGroupVpcSubnets - --- | Full data type definition for GameLiftGameServerGroup. See --- 'gameLiftGameServerGroup' for a more convenient constructor. -data GameLiftGameServerGroup = - GameLiftGameServerGroup - { _gameLiftGameServerGroupAutoScalingPolicy :: Maybe GameLiftGameServerGroupAutoScalingPolicy - , _gameLiftGameServerGroupBalancingStrategy :: Maybe (Val Text) - , _gameLiftGameServerGroupDeleteOption :: Maybe (Val Text) - , _gameLiftGameServerGroupGameServerGroupName :: Val Text - , _gameLiftGameServerGroupGameServerProtectionPolicy :: Maybe (Val Text) - , _gameLiftGameServerGroupInstanceDefinitions :: GameLiftGameServerGroupInstanceDefinitions - , _gameLiftGameServerGroupLaunchTemplate :: GameLiftGameServerGroupLaunchTemplate - , _gameLiftGameServerGroupMaxSize :: Maybe (Val Double) - , _gameLiftGameServerGroupMinSize :: Maybe (Val Double) - , _gameLiftGameServerGroupRoleArn :: Val Text - , _gameLiftGameServerGroupTags :: Maybe GameLiftGameServerGroupTags - , _gameLiftGameServerGroupVpcSubnets :: Maybe GameLiftGameServerGroupVpcSubnets - } deriving (Show, Eq) - -instance ToResourceProperties GameLiftGameServerGroup where - toResourceProperties GameLiftGameServerGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::GameLift::GameServerGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AutoScalingPolicy",) . toJSON) _gameLiftGameServerGroupAutoScalingPolicy - , fmap (("BalancingStrategy",) . toJSON) _gameLiftGameServerGroupBalancingStrategy - , fmap (("DeleteOption",) . toJSON) _gameLiftGameServerGroupDeleteOption - , (Just . ("GameServerGroupName",) . toJSON) _gameLiftGameServerGroupGameServerGroupName - , fmap (("GameServerProtectionPolicy",) . toJSON) _gameLiftGameServerGroupGameServerProtectionPolicy - , (Just . ("InstanceDefinitions",) . toJSON) _gameLiftGameServerGroupInstanceDefinitions - , (Just . ("LaunchTemplate",) . toJSON) _gameLiftGameServerGroupLaunchTemplate - , fmap (("MaxSize",) . toJSON) _gameLiftGameServerGroupMaxSize - , fmap (("MinSize",) . toJSON) _gameLiftGameServerGroupMinSize - , (Just . ("RoleArn",) . toJSON) _gameLiftGameServerGroupRoleArn - , fmap (("Tags",) . toJSON) _gameLiftGameServerGroupTags - , fmap (("VpcSubnets",) . toJSON) _gameLiftGameServerGroupVpcSubnets - ] - } - --- | Constructor for 'GameLiftGameServerGroup' containing required fields as --- arguments. -gameLiftGameServerGroup - :: Val Text -- ^ 'glgsgGameServerGroupName' - -> GameLiftGameServerGroupInstanceDefinitions -- ^ 'glgsgInstanceDefinitions' - -> GameLiftGameServerGroupLaunchTemplate -- ^ 'glgsgLaunchTemplate' - -> Val Text -- ^ 'glgsgRoleArn' - -> GameLiftGameServerGroup -gameLiftGameServerGroup gameServerGroupNamearg instanceDefinitionsarg launchTemplatearg roleArnarg = - GameLiftGameServerGroup - { _gameLiftGameServerGroupAutoScalingPolicy = Nothing - , _gameLiftGameServerGroupBalancingStrategy = Nothing - , _gameLiftGameServerGroupDeleteOption = Nothing - , _gameLiftGameServerGroupGameServerGroupName = gameServerGroupNamearg - , _gameLiftGameServerGroupGameServerProtectionPolicy = Nothing - , _gameLiftGameServerGroupInstanceDefinitions = instanceDefinitionsarg - , _gameLiftGameServerGroupLaunchTemplate = launchTemplatearg - , _gameLiftGameServerGroupMaxSize = Nothing - , _gameLiftGameServerGroupMinSize = Nothing - , _gameLiftGameServerGroupRoleArn = roleArnarg - , _gameLiftGameServerGroupTags = Nothing - , _gameLiftGameServerGroupVpcSubnets = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-gameservergroup.html#cfn-gamelift-gameservergroup-autoscalingpolicy -glgsgAutoScalingPolicy :: Lens' GameLiftGameServerGroup (Maybe GameLiftGameServerGroupAutoScalingPolicy) -glgsgAutoScalingPolicy = lens _gameLiftGameServerGroupAutoScalingPolicy (\s a -> s { _gameLiftGameServerGroupAutoScalingPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-gameservergroup.html#cfn-gamelift-gameservergroup-balancingstrategy -glgsgBalancingStrategy :: Lens' GameLiftGameServerGroup (Maybe (Val Text)) -glgsgBalancingStrategy = lens _gameLiftGameServerGroupBalancingStrategy (\s a -> s { _gameLiftGameServerGroupBalancingStrategy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-gameservergroup.html#cfn-gamelift-gameservergroup-deleteoption -glgsgDeleteOption :: Lens' GameLiftGameServerGroup (Maybe (Val Text)) -glgsgDeleteOption = lens _gameLiftGameServerGroupDeleteOption (\s a -> s { _gameLiftGameServerGroupDeleteOption = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-gameservergroup.html#cfn-gamelift-gameservergroup-gameservergroupname -glgsgGameServerGroupName :: Lens' GameLiftGameServerGroup (Val Text) -glgsgGameServerGroupName = lens _gameLiftGameServerGroupGameServerGroupName (\s a -> s { _gameLiftGameServerGroupGameServerGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-gameservergroup.html#cfn-gamelift-gameservergroup-gameserverprotectionpolicy -glgsgGameServerProtectionPolicy :: Lens' GameLiftGameServerGroup (Maybe (Val Text)) -glgsgGameServerProtectionPolicy = lens _gameLiftGameServerGroupGameServerProtectionPolicy (\s a -> s { _gameLiftGameServerGroupGameServerProtectionPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-gameservergroup.html#cfn-gamelift-gameservergroup-instancedefinitions -glgsgInstanceDefinitions :: Lens' GameLiftGameServerGroup GameLiftGameServerGroupInstanceDefinitions -glgsgInstanceDefinitions = lens _gameLiftGameServerGroupInstanceDefinitions (\s a -> s { _gameLiftGameServerGroupInstanceDefinitions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-gameservergroup.html#cfn-gamelift-gameservergroup-launchtemplate -glgsgLaunchTemplate :: Lens' GameLiftGameServerGroup GameLiftGameServerGroupLaunchTemplate -glgsgLaunchTemplate = lens _gameLiftGameServerGroupLaunchTemplate (\s a -> s { _gameLiftGameServerGroupLaunchTemplate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-gameservergroup.html#cfn-gamelift-gameservergroup-maxsize -glgsgMaxSize :: Lens' GameLiftGameServerGroup (Maybe (Val Double)) -glgsgMaxSize = lens _gameLiftGameServerGroupMaxSize (\s a -> s { _gameLiftGameServerGroupMaxSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-gameservergroup.html#cfn-gamelift-gameservergroup-minsize -glgsgMinSize :: Lens' GameLiftGameServerGroup (Maybe (Val Double)) -glgsgMinSize = lens _gameLiftGameServerGroupMinSize (\s a -> s { _gameLiftGameServerGroupMinSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-gameservergroup.html#cfn-gamelift-gameservergroup-rolearn -glgsgRoleArn :: Lens' GameLiftGameServerGroup (Val Text) -glgsgRoleArn = lens _gameLiftGameServerGroupRoleArn (\s a -> s { _gameLiftGameServerGroupRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-gameservergroup.html#cfn-gamelift-gameservergroup-tags -glgsgTags :: Lens' GameLiftGameServerGroup (Maybe GameLiftGameServerGroupTags) -glgsgTags = lens _gameLiftGameServerGroupTags (\s a -> s { _gameLiftGameServerGroupTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-gameservergroup.html#cfn-gamelift-gameservergroup-vpcsubnets -glgsgVpcSubnets :: Lens' GameLiftGameServerGroup (Maybe GameLiftGameServerGroupVpcSubnets) -glgsgVpcSubnets = lens _gameLiftGameServerGroupVpcSubnets (\s a -> s { _gameLiftGameServerGroupVpcSubnets = a }) diff --git a/library-gen/Stratosphere/Resources/GameLiftGameSessionQueue.hs b/library-gen/Stratosphere/Resources/GameLiftGameSessionQueue.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GameLiftGameSessionQueue.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-gamesessionqueue.html - -module Stratosphere.Resources.GameLiftGameSessionQueue where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GameLiftGameSessionQueueDestination -import Stratosphere.ResourceProperties.GameLiftGameSessionQueuePlayerLatencyPolicy - --- | Full data type definition for GameLiftGameSessionQueue. See --- 'gameLiftGameSessionQueue' for a more convenient constructor. -data GameLiftGameSessionQueue = - GameLiftGameSessionQueue - { _gameLiftGameSessionQueueDestinations :: Maybe [GameLiftGameSessionQueueDestination] - , _gameLiftGameSessionQueueName :: Val Text - , _gameLiftGameSessionQueuePlayerLatencyPolicies :: Maybe [GameLiftGameSessionQueuePlayerLatencyPolicy] - , _gameLiftGameSessionQueueTimeoutInSeconds :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToResourceProperties GameLiftGameSessionQueue where - toResourceProperties GameLiftGameSessionQueue{..} = - ResourceProperties - { resourcePropertiesType = "AWS::GameLift::GameSessionQueue" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Destinations",) . toJSON) _gameLiftGameSessionQueueDestinations - , (Just . ("Name",) . toJSON) _gameLiftGameSessionQueueName - , fmap (("PlayerLatencyPolicies",) . toJSON) _gameLiftGameSessionQueuePlayerLatencyPolicies - , fmap (("TimeoutInSeconds",) . toJSON) _gameLiftGameSessionQueueTimeoutInSeconds - ] - } - --- | Constructor for 'GameLiftGameSessionQueue' containing required fields as --- arguments. -gameLiftGameSessionQueue - :: Val Text -- ^ 'glgsqName' - -> GameLiftGameSessionQueue -gameLiftGameSessionQueue namearg = - GameLiftGameSessionQueue - { _gameLiftGameSessionQueueDestinations = Nothing - , _gameLiftGameSessionQueueName = namearg - , _gameLiftGameSessionQueuePlayerLatencyPolicies = Nothing - , _gameLiftGameSessionQueueTimeoutInSeconds = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-gamesessionqueue.html#cfn-gamelift-gamesessionqueue-destinations -glgsqDestinations :: Lens' GameLiftGameSessionQueue (Maybe [GameLiftGameSessionQueueDestination]) -glgsqDestinations = lens _gameLiftGameSessionQueueDestinations (\s a -> s { _gameLiftGameSessionQueueDestinations = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-gamesessionqueue.html#cfn-gamelift-gamesessionqueue-name -glgsqName :: Lens' GameLiftGameSessionQueue (Val Text) -glgsqName = lens _gameLiftGameSessionQueueName (\s a -> s { _gameLiftGameSessionQueueName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-gamesessionqueue.html#cfn-gamelift-gamesessionqueue-playerlatencypolicies -glgsqPlayerLatencyPolicies :: Lens' GameLiftGameSessionQueue (Maybe [GameLiftGameSessionQueuePlayerLatencyPolicy]) -glgsqPlayerLatencyPolicies = lens _gameLiftGameSessionQueuePlayerLatencyPolicies (\s a -> s { _gameLiftGameSessionQueuePlayerLatencyPolicies = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-gamesessionqueue.html#cfn-gamelift-gamesessionqueue-timeoutinseconds -glgsqTimeoutInSeconds :: Lens' GameLiftGameSessionQueue (Maybe (Val Integer)) -glgsqTimeoutInSeconds = lens _gameLiftGameSessionQueueTimeoutInSeconds (\s a -> s { _gameLiftGameSessionQueueTimeoutInSeconds = a }) diff --git a/library-gen/Stratosphere/Resources/GameLiftMatchmakingConfiguration.hs b/library-gen/Stratosphere/Resources/GameLiftMatchmakingConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GameLiftMatchmakingConfiguration.hs +++ /dev/null @@ -1,130 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-matchmakingconfiguration.html - -module Stratosphere.Resources.GameLiftMatchmakingConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GameLiftMatchmakingConfigurationGameProperty - --- | Full data type definition for GameLiftMatchmakingConfiguration. See --- 'gameLiftMatchmakingConfiguration' for a more convenient constructor. -data GameLiftMatchmakingConfiguration = - GameLiftMatchmakingConfiguration - { _gameLiftMatchmakingConfigurationAcceptanceRequired :: Val Bool - , _gameLiftMatchmakingConfigurationAcceptanceTimeoutSeconds :: Maybe (Val Integer) - , _gameLiftMatchmakingConfigurationAdditionalPlayerCount :: Maybe (Val Integer) - , _gameLiftMatchmakingConfigurationBackfillMode :: Maybe (Val Text) - , _gameLiftMatchmakingConfigurationCustomEventData :: Maybe (Val Text) - , _gameLiftMatchmakingConfigurationDescription :: Maybe (Val Text) - , _gameLiftMatchmakingConfigurationGameProperties :: Maybe [GameLiftMatchmakingConfigurationGameProperty] - , _gameLiftMatchmakingConfigurationGameSessionData :: Maybe (Val Text) - , _gameLiftMatchmakingConfigurationGameSessionQueueArns :: ValList Text - , _gameLiftMatchmakingConfigurationName :: Val Text - , _gameLiftMatchmakingConfigurationNotificationTarget :: Maybe (Val Text) - , _gameLiftMatchmakingConfigurationRequestTimeoutSeconds :: Val Integer - , _gameLiftMatchmakingConfigurationRuleSetName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties GameLiftMatchmakingConfiguration where - toResourceProperties GameLiftMatchmakingConfiguration{..} = - ResourceProperties - { resourcePropertiesType = "AWS::GameLift::MatchmakingConfiguration" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("AcceptanceRequired",) . toJSON) _gameLiftMatchmakingConfigurationAcceptanceRequired - , fmap (("AcceptanceTimeoutSeconds",) . toJSON) _gameLiftMatchmakingConfigurationAcceptanceTimeoutSeconds - , fmap (("AdditionalPlayerCount",) . toJSON) _gameLiftMatchmakingConfigurationAdditionalPlayerCount - , fmap (("BackfillMode",) . toJSON) _gameLiftMatchmakingConfigurationBackfillMode - , fmap (("CustomEventData",) . toJSON) _gameLiftMatchmakingConfigurationCustomEventData - , fmap (("Description",) . toJSON) _gameLiftMatchmakingConfigurationDescription - , fmap (("GameProperties",) . toJSON) _gameLiftMatchmakingConfigurationGameProperties - , fmap (("GameSessionData",) . toJSON) _gameLiftMatchmakingConfigurationGameSessionData - , (Just . ("GameSessionQueueArns",) . toJSON) _gameLiftMatchmakingConfigurationGameSessionQueueArns - , (Just . ("Name",) . toJSON) _gameLiftMatchmakingConfigurationName - , fmap (("NotificationTarget",) . toJSON) _gameLiftMatchmakingConfigurationNotificationTarget - , (Just . ("RequestTimeoutSeconds",) . toJSON) _gameLiftMatchmakingConfigurationRequestTimeoutSeconds - , (Just . ("RuleSetName",) . toJSON) _gameLiftMatchmakingConfigurationRuleSetName - ] - } - --- | Constructor for 'GameLiftMatchmakingConfiguration' containing required --- fields as arguments. -gameLiftMatchmakingConfiguration - :: Val Bool -- ^ 'glmcAcceptanceRequired' - -> ValList Text -- ^ 'glmcGameSessionQueueArns' - -> Val Text -- ^ 'glmcName' - -> Val Integer -- ^ 'glmcRequestTimeoutSeconds' - -> Val Text -- ^ 'glmcRuleSetName' - -> GameLiftMatchmakingConfiguration -gameLiftMatchmakingConfiguration acceptanceRequiredarg gameSessionQueueArnsarg namearg requestTimeoutSecondsarg ruleSetNamearg = - GameLiftMatchmakingConfiguration - { _gameLiftMatchmakingConfigurationAcceptanceRequired = acceptanceRequiredarg - , _gameLiftMatchmakingConfigurationAcceptanceTimeoutSeconds = Nothing - , _gameLiftMatchmakingConfigurationAdditionalPlayerCount = Nothing - , _gameLiftMatchmakingConfigurationBackfillMode = Nothing - , _gameLiftMatchmakingConfigurationCustomEventData = Nothing - , _gameLiftMatchmakingConfigurationDescription = Nothing - , _gameLiftMatchmakingConfigurationGameProperties = Nothing - , _gameLiftMatchmakingConfigurationGameSessionData = Nothing - , _gameLiftMatchmakingConfigurationGameSessionQueueArns = gameSessionQueueArnsarg - , _gameLiftMatchmakingConfigurationName = namearg - , _gameLiftMatchmakingConfigurationNotificationTarget = Nothing - , _gameLiftMatchmakingConfigurationRequestTimeoutSeconds = requestTimeoutSecondsarg - , _gameLiftMatchmakingConfigurationRuleSetName = ruleSetNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-matchmakingconfiguration.html#cfn-gamelift-matchmakingconfiguration-acceptancerequired -glmcAcceptanceRequired :: Lens' GameLiftMatchmakingConfiguration (Val Bool) -glmcAcceptanceRequired = lens _gameLiftMatchmakingConfigurationAcceptanceRequired (\s a -> s { _gameLiftMatchmakingConfigurationAcceptanceRequired = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-matchmakingconfiguration.html#cfn-gamelift-matchmakingconfiguration-acceptancetimeoutseconds -glmcAcceptanceTimeoutSeconds :: Lens' GameLiftMatchmakingConfiguration (Maybe (Val Integer)) -glmcAcceptanceTimeoutSeconds = lens _gameLiftMatchmakingConfigurationAcceptanceTimeoutSeconds (\s a -> s { _gameLiftMatchmakingConfigurationAcceptanceTimeoutSeconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-matchmakingconfiguration.html#cfn-gamelift-matchmakingconfiguration-additionalplayercount -glmcAdditionalPlayerCount :: Lens' GameLiftMatchmakingConfiguration (Maybe (Val Integer)) -glmcAdditionalPlayerCount = lens _gameLiftMatchmakingConfigurationAdditionalPlayerCount (\s a -> s { _gameLiftMatchmakingConfigurationAdditionalPlayerCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-matchmakingconfiguration.html#cfn-gamelift-matchmakingconfiguration-backfillmode -glmcBackfillMode :: Lens' GameLiftMatchmakingConfiguration (Maybe (Val Text)) -glmcBackfillMode = lens _gameLiftMatchmakingConfigurationBackfillMode (\s a -> s { _gameLiftMatchmakingConfigurationBackfillMode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-matchmakingconfiguration.html#cfn-gamelift-matchmakingconfiguration-customeventdata -glmcCustomEventData :: Lens' GameLiftMatchmakingConfiguration (Maybe (Val Text)) -glmcCustomEventData = lens _gameLiftMatchmakingConfigurationCustomEventData (\s a -> s { _gameLiftMatchmakingConfigurationCustomEventData = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-matchmakingconfiguration.html#cfn-gamelift-matchmakingconfiguration-description -glmcDescription :: Lens' GameLiftMatchmakingConfiguration (Maybe (Val Text)) -glmcDescription = lens _gameLiftMatchmakingConfigurationDescription (\s a -> s { _gameLiftMatchmakingConfigurationDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-matchmakingconfiguration.html#cfn-gamelift-matchmakingconfiguration-gameproperties -glmcGameProperties :: Lens' GameLiftMatchmakingConfiguration (Maybe [GameLiftMatchmakingConfigurationGameProperty]) -glmcGameProperties = lens _gameLiftMatchmakingConfigurationGameProperties (\s a -> s { _gameLiftMatchmakingConfigurationGameProperties = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-matchmakingconfiguration.html#cfn-gamelift-matchmakingconfiguration-gamesessiondata -glmcGameSessionData :: Lens' GameLiftMatchmakingConfiguration (Maybe (Val Text)) -glmcGameSessionData = lens _gameLiftMatchmakingConfigurationGameSessionData (\s a -> s { _gameLiftMatchmakingConfigurationGameSessionData = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-matchmakingconfiguration.html#cfn-gamelift-matchmakingconfiguration-gamesessionqueuearns -glmcGameSessionQueueArns :: Lens' GameLiftMatchmakingConfiguration (ValList Text) -glmcGameSessionQueueArns = lens _gameLiftMatchmakingConfigurationGameSessionQueueArns (\s a -> s { _gameLiftMatchmakingConfigurationGameSessionQueueArns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-matchmakingconfiguration.html#cfn-gamelift-matchmakingconfiguration-name -glmcName :: Lens' GameLiftMatchmakingConfiguration (Val Text) -glmcName = lens _gameLiftMatchmakingConfigurationName (\s a -> s { _gameLiftMatchmakingConfigurationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-matchmakingconfiguration.html#cfn-gamelift-matchmakingconfiguration-notificationtarget -glmcNotificationTarget :: Lens' GameLiftMatchmakingConfiguration (Maybe (Val Text)) -glmcNotificationTarget = lens _gameLiftMatchmakingConfigurationNotificationTarget (\s a -> s { _gameLiftMatchmakingConfigurationNotificationTarget = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-matchmakingconfiguration.html#cfn-gamelift-matchmakingconfiguration-requesttimeoutseconds -glmcRequestTimeoutSeconds :: Lens' GameLiftMatchmakingConfiguration (Val Integer) -glmcRequestTimeoutSeconds = lens _gameLiftMatchmakingConfigurationRequestTimeoutSeconds (\s a -> s { _gameLiftMatchmakingConfigurationRequestTimeoutSeconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-matchmakingconfiguration.html#cfn-gamelift-matchmakingconfiguration-rulesetname -glmcRuleSetName :: Lens' GameLiftMatchmakingConfiguration (Val Text) -glmcRuleSetName = lens _gameLiftMatchmakingConfigurationRuleSetName (\s a -> s { _gameLiftMatchmakingConfigurationRuleSetName = a }) diff --git a/library-gen/Stratosphere/Resources/GameLiftMatchmakingRuleSet.hs b/library-gen/Stratosphere/Resources/GameLiftMatchmakingRuleSet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GameLiftMatchmakingRuleSet.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-matchmakingruleset.html - -module Stratosphere.Resources.GameLiftMatchmakingRuleSet where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GameLiftMatchmakingRuleSet. See --- 'gameLiftMatchmakingRuleSet' for a more convenient constructor. -data GameLiftMatchmakingRuleSet = - GameLiftMatchmakingRuleSet - { _gameLiftMatchmakingRuleSetName :: Val Text - , _gameLiftMatchmakingRuleSetRuleSetBody :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties GameLiftMatchmakingRuleSet where - toResourceProperties GameLiftMatchmakingRuleSet{..} = - ResourceProperties - { resourcePropertiesType = "AWS::GameLift::MatchmakingRuleSet" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Name",) . toJSON) _gameLiftMatchmakingRuleSetName - , (Just . ("RuleSetBody",) . toJSON) _gameLiftMatchmakingRuleSetRuleSetBody - ] - } - --- | Constructor for 'GameLiftMatchmakingRuleSet' containing required fields --- as arguments. -gameLiftMatchmakingRuleSet - :: Val Text -- ^ 'glmrsName' - -> Val Text -- ^ 'glmrsRuleSetBody' - -> GameLiftMatchmakingRuleSet -gameLiftMatchmakingRuleSet namearg ruleSetBodyarg = - GameLiftMatchmakingRuleSet - { _gameLiftMatchmakingRuleSetName = namearg - , _gameLiftMatchmakingRuleSetRuleSetBody = ruleSetBodyarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-matchmakingruleset.html#cfn-gamelift-matchmakingruleset-name -glmrsName :: Lens' GameLiftMatchmakingRuleSet (Val Text) -glmrsName = lens _gameLiftMatchmakingRuleSetName (\s a -> s { _gameLiftMatchmakingRuleSetName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-matchmakingruleset.html#cfn-gamelift-matchmakingruleset-rulesetbody -glmrsRuleSetBody :: Lens' GameLiftMatchmakingRuleSet (Val Text) -glmrsRuleSetBody = lens _gameLiftMatchmakingRuleSetRuleSetBody (\s a -> s { _gameLiftMatchmakingRuleSetRuleSetBody = a }) diff --git a/library-gen/Stratosphere/Resources/GameLiftScript.hs b/library-gen/Stratosphere/Resources/GameLiftScript.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GameLiftScript.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-script.html - -module Stratosphere.Resources.GameLiftScript where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GameLiftScriptS3Location - --- | Full data type definition for GameLiftScript. See 'gameLiftScript' for a --- more convenient constructor. -data GameLiftScript = - GameLiftScript - { _gameLiftScriptName :: Maybe (Val Text) - , _gameLiftScriptStorageLocation :: GameLiftScriptS3Location - , _gameLiftScriptVersion :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties GameLiftScript where - toResourceProperties GameLiftScript{..} = - ResourceProperties - { resourcePropertiesType = "AWS::GameLift::Script" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Name",) . toJSON) _gameLiftScriptName - , (Just . ("StorageLocation",) . toJSON) _gameLiftScriptStorageLocation - , fmap (("Version",) . toJSON) _gameLiftScriptVersion - ] - } - --- | Constructor for 'GameLiftScript' containing required fields as arguments. -gameLiftScript - :: GameLiftScriptS3Location -- ^ 'glsStorageLocation' - -> GameLiftScript -gameLiftScript storageLocationarg = - GameLiftScript - { _gameLiftScriptName = Nothing - , _gameLiftScriptStorageLocation = storageLocationarg - , _gameLiftScriptVersion = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-script.html#cfn-gamelift-script-name -glsName :: Lens' GameLiftScript (Maybe (Val Text)) -glsName = lens _gameLiftScriptName (\s a -> s { _gameLiftScriptName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-script.html#cfn-gamelift-script-storagelocation -glsStorageLocation :: Lens' GameLiftScript GameLiftScriptS3Location -glsStorageLocation = lens _gameLiftScriptStorageLocation (\s a -> s { _gameLiftScriptStorageLocation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-gamelift-script.html#cfn-gamelift-script-version -glsVersion :: Lens' GameLiftScript (Maybe (Val Text)) -glsVersion = lens _gameLiftScriptVersion (\s a -> s { _gameLiftScriptVersion = a }) diff --git a/library-gen/Stratosphere/Resources/GlobalAcceleratorAccelerator.hs b/library-gen/Stratosphere/Resources/GlobalAcceleratorAccelerator.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GlobalAcceleratorAccelerator.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-accelerator.html - -module Stratosphere.Resources.GlobalAcceleratorAccelerator where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for GlobalAcceleratorAccelerator. See --- 'globalAcceleratorAccelerator' for a more convenient constructor. -data GlobalAcceleratorAccelerator = - GlobalAcceleratorAccelerator - { _globalAcceleratorAcceleratorEnabled :: Maybe (Val Bool) - , _globalAcceleratorAcceleratorIpAddressType :: Maybe (Val Text) - , _globalAcceleratorAcceleratorIpAddresses :: Maybe (ValList Text) - , _globalAcceleratorAcceleratorName :: Val Text - , _globalAcceleratorAcceleratorTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties GlobalAcceleratorAccelerator where - toResourceProperties GlobalAcceleratorAccelerator{..} = - ResourceProperties - { resourcePropertiesType = "AWS::GlobalAccelerator::Accelerator" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Enabled",) . toJSON) _globalAcceleratorAcceleratorEnabled - , fmap (("IpAddressType",) . toJSON) _globalAcceleratorAcceleratorIpAddressType - , fmap (("IpAddresses",) . toJSON) _globalAcceleratorAcceleratorIpAddresses - , (Just . ("Name",) . toJSON) _globalAcceleratorAcceleratorName - , fmap (("Tags",) . toJSON) _globalAcceleratorAcceleratorTags - ] - } - --- | Constructor for 'GlobalAcceleratorAccelerator' containing required fields --- as arguments. -globalAcceleratorAccelerator - :: Val Text -- ^ 'gaaName' - -> GlobalAcceleratorAccelerator -globalAcceleratorAccelerator namearg = - GlobalAcceleratorAccelerator - { _globalAcceleratorAcceleratorEnabled = Nothing - , _globalAcceleratorAcceleratorIpAddressType = Nothing - , _globalAcceleratorAcceleratorIpAddresses = Nothing - , _globalAcceleratorAcceleratorName = namearg - , _globalAcceleratorAcceleratorTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-accelerator.html#cfn-globalaccelerator-accelerator-enabled -gaaEnabled :: Lens' GlobalAcceleratorAccelerator (Maybe (Val Bool)) -gaaEnabled = lens _globalAcceleratorAcceleratorEnabled (\s a -> s { _globalAcceleratorAcceleratorEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-accelerator.html#cfn-globalaccelerator-accelerator-ipaddresstype -gaaIpAddressType :: Lens' GlobalAcceleratorAccelerator (Maybe (Val Text)) -gaaIpAddressType = lens _globalAcceleratorAcceleratorIpAddressType (\s a -> s { _globalAcceleratorAcceleratorIpAddressType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-accelerator.html#cfn-globalaccelerator-accelerator-ipaddresses -gaaIpAddresses :: Lens' GlobalAcceleratorAccelerator (Maybe (ValList Text)) -gaaIpAddresses = lens _globalAcceleratorAcceleratorIpAddresses (\s a -> s { _globalAcceleratorAcceleratorIpAddresses = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-accelerator.html#cfn-globalaccelerator-accelerator-name -gaaName :: Lens' GlobalAcceleratorAccelerator (Val Text) -gaaName = lens _globalAcceleratorAcceleratorName (\s a -> s { _globalAcceleratorAcceleratorName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-accelerator.html#cfn-globalaccelerator-accelerator-tags -gaaTags :: Lens' GlobalAcceleratorAccelerator (Maybe [Tag]) -gaaTags = lens _globalAcceleratorAcceleratorTags (\s a -> s { _globalAcceleratorAcceleratorTags = a }) diff --git a/library-gen/Stratosphere/Resources/GlobalAcceleratorEndpointGroup.hs b/library-gen/Stratosphere/Resources/GlobalAcceleratorEndpointGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GlobalAcceleratorEndpointGroup.hs +++ /dev/null @@ -1,99 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-endpointgroup.html - -module Stratosphere.Resources.GlobalAcceleratorEndpointGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GlobalAcceleratorEndpointGroupEndpointConfiguration - --- | Full data type definition for GlobalAcceleratorEndpointGroup. See --- 'globalAcceleratorEndpointGroup' for a more convenient constructor. -data GlobalAcceleratorEndpointGroup = - GlobalAcceleratorEndpointGroup - { _globalAcceleratorEndpointGroupEndpointConfigurations :: Maybe [GlobalAcceleratorEndpointGroupEndpointConfiguration] - , _globalAcceleratorEndpointGroupEndpointGroupRegion :: Val Text - , _globalAcceleratorEndpointGroupHealthCheckIntervalSeconds :: Maybe (Val Integer) - , _globalAcceleratorEndpointGroupHealthCheckPath :: Maybe (Val Text) - , _globalAcceleratorEndpointGroupHealthCheckPort :: Maybe (Val Integer) - , _globalAcceleratorEndpointGroupHealthCheckProtocol :: Maybe (Val Text) - , _globalAcceleratorEndpointGroupListenerArn :: Val Text - , _globalAcceleratorEndpointGroupThresholdCount :: Maybe (Val Integer) - , _globalAcceleratorEndpointGroupTrafficDialPercentage :: Maybe (Val Double) - } deriving (Show, Eq) - -instance ToResourceProperties GlobalAcceleratorEndpointGroup where - toResourceProperties GlobalAcceleratorEndpointGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::GlobalAccelerator::EndpointGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("EndpointConfigurations",) . toJSON) _globalAcceleratorEndpointGroupEndpointConfigurations - , (Just . ("EndpointGroupRegion",) . toJSON) _globalAcceleratorEndpointGroupEndpointGroupRegion - , fmap (("HealthCheckIntervalSeconds",) . toJSON) _globalAcceleratorEndpointGroupHealthCheckIntervalSeconds - , fmap (("HealthCheckPath",) . toJSON) _globalAcceleratorEndpointGroupHealthCheckPath - , fmap (("HealthCheckPort",) . toJSON) _globalAcceleratorEndpointGroupHealthCheckPort - , fmap (("HealthCheckProtocol",) . toJSON) _globalAcceleratorEndpointGroupHealthCheckProtocol - , (Just . ("ListenerArn",) . toJSON) _globalAcceleratorEndpointGroupListenerArn - , fmap (("ThresholdCount",) . toJSON) _globalAcceleratorEndpointGroupThresholdCount - , fmap (("TrafficDialPercentage",) . toJSON) _globalAcceleratorEndpointGroupTrafficDialPercentage - ] - } - --- | Constructor for 'GlobalAcceleratorEndpointGroup' containing required --- fields as arguments. -globalAcceleratorEndpointGroup - :: Val Text -- ^ 'gaegEndpointGroupRegion' - -> Val Text -- ^ 'gaegListenerArn' - -> GlobalAcceleratorEndpointGroup -globalAcceleratorEndpointGroup endpointGroupRegionarg listenerArnarg = - GlobalAcceleratorEndpointGroup - { _globalAcceleratorEndpointGroupEndpointConfigurations = Nothing - , _globalAcceleratorEndpointGroupEndpointGroupRegion = endpointGroupRegionarg - , _globalAcceleratorEndpointGroupHealthCheckIntervalSeconds = Nothing - , _globalAcceleratorEndpointGroupHealthCheckPath = Nothing - , _globalAcceleratorEndpointGroupHealthCheckPort = Nothing - , _globalAcceleratorEndpointGroupHealthCheckProtocol = Nothing - , _globalAcceleratorEndpointGroupListenerArn = listenerArnarg - , _globalAcceleratorEndpointGroupThresholdCount = Nothing - , _globalAcceleratorEndpointGroupTrafficDialPercentage = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-endpointgroup.html#cfn-globalaccelerator-endpointgroup-endpointconfigurations -gaegEndpointConfigurations :: Lens' GlobalAcceleratorEndpointGroup (Maybe [GlobalAcceleratorEndpointGroupEndpointConfiguration]) -gaegEndpointConfigurations = lens _globalAcceleratorEndpointGroupEndpointConfigurations (\s a -> s { _globalAcceleratorEndpointGroupEndpointConfigurations = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-endpointgroup.html#cfn-globalaccelerator-endpointgroup-endpointgroupregion -gaegEndpointGroupRegion :: Lens' GlobalAcceleratorEndpointGroup (Val Text) -gaegEndpointGroupRegion = lens _globalAcceleratorEndpointGroupEndpointGroupRegion (\s a -> s { _globalAcceleratorEndpointGroupEndpointGroupRegion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-endpointgroup.html#cfn-globalaccelerator-endpointgroup-healthcheckintervalseconds -gaegHealthCheckIntervalSeconds :: Lens' GlobalAcceleratorEndpointGroup (Maybe (Val Integer)) -gaegHealthCheckIntervalSeconds = lens _globalAcceleratorEndpointGroupHealthCheckIntervalSeconds (\s a -> s { _globalAcceleratorEndpointGroupHealthCheckIntervalSeconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-endpointgroup.html#cfn-globalaccelerator-endpointgroup-healthcheckpath -gaegHealthCheckPath :: Lens' GlobalAcceleratorEndpointGroup (Maybe (Val Text)) -gaegHealthCheckPath = lens _globalAcceleratorEndpointGroupHealthCheckPath (\s a -> s { _globalAcceleratorEndpointGroupHealthCheckPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-endpointgroup.html#cfn-globalaccelerator-endpointgroup-healthcheckport -gaegHealthCheckPort :: Lens' GlobalAcceleratorEndpointGroup (Maybe (Val Integer)) -gaegHealthCheckPort = lens _globalAcceleratorEndpointGroupHealthCheckPort (\s a -> s { _globalAcceleratorEndpointGroupHealthCheckPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-endpointgroup.html#cfn-globalaccelerator-endpointgroup-healthcheckprotocol -gaegHealthCheckProtocol :: Lens' GlobalAcceleratorEndpointGroup (Maybe (Val Text)) -gaegHealthCheckProtocol = lens _globalAcceleratorEndpointGroupHealthCheckProtocol (\s a -> s { _globalAcceleratorEndpointGroupHealthCheckProtocol = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-endpointgroup.html#cfn-globalaccelerator-endpointgroup-listenerarn -gaegListenerArn :: Lens' GlobalAcceleratorEndpointGroup (Val Text) -gaegListenerArn = lens _globalAcceleratorEndpointGroupListenerArn (\s a -> s { _globalAcceleratorEndpointGroupListenerArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-endpointgroup.html#cfn-globalaccelerator-endpointgroup-thresholdcount -gaegThresholdCount :: Lens' GlobalAcceleratorEndpointGroup (Maybe (Val Integer)) -gaegThresholdCount = lens _globalAcceleratorEndpointGroupThresholdCount (\s a -> s { _globalAcceleratorEndpointGroupThresholdCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-endpointgroup.html#cfn-globalaccelerator-endpointgroup-trafficdialpercentage -gaegTrafficDialPercentage :: Lens' GlobalAcceleratorEndpointGroup (Maybe (Val Double)) -gaegTrafficDialPercentage = lens _globalAcceleratorEndpointGroupTrafficDialPercentage (\s a -> s { _globalAcceleratorEndpointGroupTrafficDialPercentage = a }) diff --git a/library-gen/Stratosphere/Resources/GlobalAcceleratorListener.hs b/library-gen/Stratosphere/Resources/GlobalAcceleratorListener.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GlobalAcceleratorListener.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-listener.html - -module Stratosphere.Resources.GlobalAcceleratorListener where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GlobalAcceleratorListenerPortRange - --- | Full data type definition for GlobalAcceleratorListener. See --- 'globalAcceleratorListener' for a more convenient constructor. -data GlobalAcceleratorListener = - GlobalAcceleratorListener - { _globalAcceleratorListenerAcceleratorArn :: Val Text - , _globalAcceleratorListenerClientAffinity :: Maybe (Val Text) - , _globalAcceleratorListenerPortRanges :: [GlobalAcceleratorListenerPortRange] - , _globalAcceleratorListenerProtocol :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties GlobalAcceleratorListener where - toResourceProperties GlobalAcceleratorListener{..} = - ResourceProperties - { resourcePropertiesType = "AWS::GlobalAccelerator::Listener" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("AcceleratorArn",) . toJSON) _globalAcceleratorListenerAcceleratorArn - , fmap (("ClientAffinity",) . toJSON) _globalAcceleratorListenerClientAffinity - , (Just . ("PortRanges",) . toJSON) _globalAcceleratorListenerPortRanges - , (Just . ("Protocol",) . toJSON) _globalAcceleratorListenerProtocol - ] - } - --- | Constructor for 'GlobalAcceleratorListener' containing required fields as --- arguments. -globalAcceleratorListener - :: Val Text -- ^ 'galAcceleratorArn' - -> [GlobalAcceleratorListenerPortRange] -- ^ 'galPortRanges' - -> Val Text -- ^ 'galProtocol' - -> GlobalAcceleratorListener -globalAcceleratorListener acceleratorArnarg portRangesarg protocolarg = - GlobalAcceleratorListener - { _globalAcceleratorListenerAcceleratorArn = acceleratorArnarg - , _globalAcceleratorListenerClientAffinity = Nothing - , _globalAcceleratorListenerPortRanges = portRangesarg - , _globalAcceleratorListenerProtocol = protocolarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-listener.html#cfn-globalaccelerator-listener-acceleratorarn -galAcceleratorArn :: Lens' GlobalAcceleratorListener (Val Text) -galAcceleratorArn = lens _globalAcceleratorListenerAcceleratorArn (\s a -> s { _globalAcceleratorListenerAcceleratorArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-listener.html#cfn-globalaccelerator-listener-clientaffinity -galClientAffinity :: Lens' GlobalAcceleratorListener (Maybe (Val Text)) -galClientAffinity = lens _globalAcceleratorListenerClientAffinity (\s a -> s { _globalAcceleratorListenerClientAffinity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-listener.html#cfn-globalaccelerator-listener-portranges -galPortRanges :: Lens' GlobalAcceleratorListener [GlobalAcceleratorListenerPortRange] -galPortRanges = lens _globalAcceleratorListenerPortRanges (\s a -> s { _globalAcceleratorListenerPortRanges = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-globalaccelerator-listener.html#cfn-globalaccelerator-listener-protocol -galProtocol :: Lens' GlobalAcceleratorListener (Val Text) -galProtocol = lens _globalAcceleratorListenerProtocol (\s a -> s { _globalAcceleratorListenerProtocol = a }) diff --git a/library-gen/Stratosphere/Resources/GlueClassifier.hs b/library-gen/Stratosphere/Resources/GlueClassifier.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GlueClassifier.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-classifier.html - -module Stratosphere.Resources.GlueClassifier where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GlueClassifierCsvClassifier -import Stratosphere.ResourceProperties.GlueClassifierGrokClassifier -import Stratosphere.ResourceProperties.GlueClassifierJsonClassifier -import Stratosphere.ResourceProperties.GlueClassifierXMLClassifier - --- | Full data type definition for GlueClassifier. See 'glueClassifier' for a --- more convenient constructor. -data GlueClassifier = - GlueClassifier - { _glueClassifierCsvClassifier :: Maybe GlueClassifierCsvClassifier - , _glueClassifierGrokClassifier :: Maybe GlueClassifierGrokClassifier - , _glueClassifierJsonClassifier :: Maybe GlueClassifierJsonClassifier - , _glueClassifierXMLClassifier :: Maybe GlueClassifierXMLClassifier - } deriving (Show, Eq) - -instance ToResourceProperties GlueClassifier where - toResourceProperties GlueClassifier{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Glue::Classifier" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("CsvClassifier",) . toJSON) _glueClassifierCsvClassifier - , fmap (("GrokClassifier",) . toJSON) _glueClassifierGrokClassifier - , fmap (("JsonClassifier",) . toJSON) _glueClassifierJsonClassifier - , fmap (("XMLClassifier",) . toJSON) _glueClassifierXMLClassifier - ] - } - --- | Constructor for 'GlueClassifier' containing required fields as arguments. -glueClassifier - :: GlueClassifier -glueClassifier = - GlueClassifier - { _glueClassifierCsvClassifier = Nothing - , _glueClassifierGrokClassifier = Nothing - , _glueClassifierJsonClassifier = Nothing - , _glueClassifierXMLClassifier = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-classifier.html#cfn-glue-classifier-csvclassifier -gcCsvClassifier :: Lens' GlueClassifier (Maybe GlueClassifierCsvClassifier) -gcCsvClassifier = lens _glueClassifierCsvClassifier (\s a -> s { _glueClassifierCsvClassifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-classifier.html#cfn-glue-classifier-grokclassifier -gcGrokClassifier :: Lens' GlueClassifier (Maybe GlueClassifierGrokClassifier) -gcGrokClassifier = lens _glueClassifierGrokClassifier (\s a -> s { _glueClassifierGrokClassifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-classifier.html#cfn-glue-classifier-jsonclassifier -gcJsonClassifier :: Lens' GlueClassifier (Maybe GlueClassifierJsonClassifier) -gcJsonClassifier = lens _glueClassifierJsonClassifier (\s a -> s { _glueClassifierJsonClassifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-classifier.html#cfn-glue-classifier-xmlclassifier -gcXMLClassifier :: Lens' GlueClassifier (Maybe GlueClassifierXMLClassifier) -gcXMLClassifier = lens _glueClassifierXMLClassifier (\s a -> s { _glueClassifierXMLClassifier = a }) diff --git a/library-gen/Stratosphere/Resources/GlueConnection.hs b/library-gen/Stratosphere/Resources/GlueConnection.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GlueConnection.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-connection.html - -module Stratosphere.Resources.GlueConnection where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GlueConnectionConnectionInput - --- | Full data type definition for GlueConnection. See 'glueConnection' for a --- more convenient constructor. -data GlueConnection = - GlueConnection - { _glueConnectionCatalogId :: Val Text - , _glueConnectionConnectionInput :: GlueConnectionConnectionInput - } deriving (Show, Eq) - -instance ToResourceProperties GlueConnection where - toResourceProperties GlueConnection{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Glue::Connection" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("CatalogId",) . toJSON) _glueConnectionCatalogId - , (Just . ("ConnectionInput",) . toJSON) _glueConnectionConnectionInput - ] - } - --- | Constructor for 'GlueConnection' containing required fields as arguments. -glueConnection - :: Val Text -- ^ 'gcCatalogId' - -> GlueConnectionConnectionInput -- ^ 'gcConnectionInput' - -> GlueConnection -glueConnection catalogIdarg connectionInputarg = - GlueConnection - { _glueConnectionCatalogId = catalogIdarg - , _glueConnectionConnectionInput = connectionInputarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-connection.html#cfn-glue-connection-catalogid -gcCatalogId :: Lens' GlueConnection (Val Text) -gcCatalogId = lens _glueConnectionCatalogId (\s a -> s { _glueConnectionCatalogId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-connection.html#cfn-glue-connection-connectioninput -gcConnectionInput :: Lens' GlueConnection GlueConnectionConnectionInput -gcConnectionInput = lens _glueConnectionConnectionInput (\s a -> s { _glueConnectionConnectionInput = a }) diff --git a/library-gen/Stratosphere/Resources/GlueCrawler.hs b/library-gen/Stratosphere/Resources/GlueCrawler.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GlueCrawler.hs +++ /dev/null @@ -1,121 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-crawler.html - -module Stratosphere.Resources.GlueCrawler where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GlueCrawlerSchedule -import Stratosphere.ResourceProperties.GlueCrawlerSchemaChangePolicy -import Stratosphere.ResourceProperties.GlueCrawlerTargets - --- | Full data type definition for GlueCrawler. See 'glueCrawler' for a more --- convenient constructor. -data GlueCrawler = - GlueCrawler - { _glueCrawlerClassifiers :: Maybe (ValList Text) - , _glueCrawlerConfiguration :: Maybe (Val Text) - , _glueCrawlerCrawlerSecurityConfiguration :: Maybe (Val Text) - , _glueCrawlerDatabaseName :: Maybe (Val Text) - , _glueCrawlerDescription :: Maybe (Val Text) - , _glueCrawlerName :: Maybe (Val Text) - , _glueCrawlerRole :: Val Text - , _glueCrawlerSchedule :: Maybe GlueCrawlerSchedule - , _glueCrawlerSchemaChangePolicy :: Maybe GlueCrawlerSchemaChangePolicy - , _glueCrawlerTablePrefix :: Maybe (Val Text) - , _glueCrawlerTags :: Maybe Object - , _glueCrawlerTargets :: GlueCrawlerTargets - } deriving (Show, Eq) - -instance ToResourceProperties GlueCrawler where - toResourceProperties GlueCrawler{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Glue::Crawler" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Classifiers",) . toJSON) _glueCrawlerClassifiers - , fmap (("Configuration",) . toJSON) _glueCrawlerConfiguration - , fmap (("CrawlerSecurityConfiguration",) . toJSON) _glueCrawlerCrawlerSecurityConfiguration - , fmap (("DatabaseName",) . toJSON) _glueCrawlerDatabaseName - , fmap (("Description",) . toJSON) _glueCrawlerDescription - , fmap (("Name",) . toJSON) _glueCrawlerName - , (Just . ("Role",) . toJSON) _glueCrawlerRole - , fmap (("Schedule",) . toJSON) _glueCrawlerSchedule - , fmap (("SchemaChangePolicy",) . toJSON) _glueCrawlerSchemaChangePolicy - , fmap (("TablePrefix",) . toJSON) _glueCrawlerTablePrefix - , fmap (("Tags",) . toJSON) _glueCrawlerTags - , (Just . ("Targets",) . toJSON) _glueCrawlerTargets - ] - } - --- | Constructor for 'GlueCrawler' containing required fields as arguments. -glueCrawler - :: Val Text -- ^ 'gcRole' - -> GlueCrawlerTargets -- ^ 'gcTargets' - -> GlueCrawler -glueCrawler rolearg targetsarg = - GlueCrawler - { _glueCrawlerClassifiers = Nothing - , _glueCrawlerConfiguration = Nothing - , _glueCrawlerCrawlerSecurityConfiguration = Nothing - , _glueCrawlerDatabaseName = Nothing - , _glueCrawlerDescription = Nothing - , _glueCrawlerName = Nothing - , _glueCrawlerRole = rolearg - , _glueCrawlerSchedule = Nothing - , _glueCrawlerSchemaChangePolicy = Nothing - , _glueCrawlerTablePrefix = Nothing - , _glueCrawlerTags = Nothing - , _glueCrawlerTargets = targetsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-crawler.html#cfn-glue-crawler-classifiers -gcClassifiers :: Lens' GlueCrawler (Maybe (ValList Text)) -gcClassifiers = lens _glueCrawlerClassifiers (\s a -> s { _glueCrawlerClassifiers = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-crawler.html#cfn-glue-crawler-configuration -gcConfiguration :: Lens' GlueCrawler (Maybe (Val Text)) -gcConfiguration = lens _glueCrawlerConfiguration (\s a -> s { _glueCrawlerConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-crawler.html#cfn-glue-crawler-crawlersecurityconfiguration -gcCrawlerSecurityConfiguration :: Lens' GlueCrawler (Maybe (Val Text)) -gcCrawlerSecurityConfiguration = lens _glueCrawlerCrawlerSecurityConfiguration (\s a -> s { _glueCrawlerCrawlerSecurityConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-crawler.html#cfn-glue-crawler-databasename -gcDatabaseName :: Lens' GlueCrawler (Maybe (Val Text)) -gcDatabaseName = lens _glueCrawlerDatabaseName (\s a -> s { _glueCrawlerDatabaseName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-crawler.html#cfn-glue-crawler-description -gcDescription :: Lens' GlueCrawler (Maybe (Val Text)) -gcDescription = lens _glueCrawlerDescription (\s a -> s { _glueCrawlerDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-crawler.html#cfn-glue-crawler-name -gcName :: Lens' GlueCrawler (Maybe (Val Text)) -gcName = lens _glueCrawlerName (\s a -> s { _glueCrawlerName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-crawler.html#cfn-glue-crawler-role -gcRole :: Lens' GlueCrawler (Val Text) -gcRole = lens _glueCrawlerRole (\s a -> s { _glueCrawlerRole = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-crawler.html#cfn-glue-crawler-schedule -gcSchedule :: Lens' GlueCrawler (Maybe GlueCrawlerSchedule) -gcSchedule = lens _glueCrawlerSchedule (\s a -> s { _glueCrawlerSchedule = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-crawler.html#cfn-glue-crawler-schemachangepolicy -gcSchemaChangePolicy :: Lens' GlueCrawler (Maybe GlueCrawlerSchemaChangePolicy) -gcSchemaChangePolicy = lens _glueCrawlerSchemaChangePolicy (\s a -> s { _glueCrawlerSchemaChangePolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-crawler.html#cfn-glue-crawler-tableprefix -gcTablePrefix :: Lens' GlueCrawler (Maybe (Val Text)) -gcTablePrefix = lens _glueCrawlerTablePrefix (\s a -> s { _glueCrawlerTablePrefix = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-crawler.html#cfn-glue-crawler-tags -gcTags :: Lens' GlueCrawler (Maybe Object) -gcTags = lens _glueCrawlerTags (\s a -> s { _glueCrawlerTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-crawler.html#cfn-glue-crawler-targets -gcTargets :: Lens' GlueCrawler GlueCrawlerTargets -gcTargets = lens _glueCrawlerTargets (\s a -> s { _glueCrawlerTargets = a }) diff --git a/library-gen/Stratosphere/Resources/GlueDataCatalogEncryptionSettings.hs b/library-gen/Stratosphere/Resources/GlueDataCatalogEncryptionSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GlueDataCatalogEncryptionSettings.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-datacatalogencryptionsettings.html - -module Stratosphere.Resources.GlueDataCatalogEncryptionSettings where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GlueDataCatalogEncryptionSettingsDataCatalogEncryptionSettings - --- | Full data type definition for GlueDataCatalogEncryptionSettings. See --- 'glueDataCatalogEncryptionSettings' for a more convenient constructor. -data GlueDataCatalogEncryptionSettings = - GlueDataCatalogEncryptionSettings - { _glueDataCatalogEncryptionSettingsCatalogId :: Val Text - , _glueDataCatalogEncryptionSettingsDataCatalogEncryptionSettings :: GlueDataCatalogEncryptionSettingsDataCatalogEncryptionSettings - } deriving (Show, Eq) - -instance ToResourceProperties GlueDataCatalogEncryptionSettings where - toResourceProperties GlueDataCatalogEncryptionSettings{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Glue::DataCatalogEncryptionSettings" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("CatalogId",) . toJSON) _glueDataCatalogEncryptionSettingsCatalogId - , (Just . ("DataCatalogEncryptionSettings",) . toJSON) _glueDataCatalogEncryptionSettingsDataCatalogEncryptionSettings - ] - } - --- | Constructor for 'GlueDataCatalogEncryptionSettings' containing required --- fields as arguments. -glueDataCatalogEncryptionSettings - :: Val Text -- ^ 'gdcesCatalogId' - -> GlueDataCatalogEncryptionSettingsDataCatalogEncryptionSettings -- ^ 'gdcesDataCatalogEncryptionSettings' - -> GlueDataCatalogEncryptionSettings -glueDataCatalogEncryptionSettings catalogIdarg dataCatalogEncryptionSettingsarg = - GlueDataCatalogEncryptionSettings - { _glueDataCatalogEncryptionSettingsCatalogId = catalogIdarg - , _glueDataCatalogEncryptionSettingsDataCatalogEncryptionSettings = dataCatalogEncryptionSettingsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-datacatalogencryptionsettings.html#cfn-glue-datacatalogencryptionsettings-catalogid -gdcesCatalogId :: Lens' GlueDataCatalogEncryptionSettings (Val Text) -gdcesCatalogId = lens _glueDataCatalogEncryptionSettingsCatalogId (\s a -> s { _glueDataCatalogEncryptionSettingsCatalogId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-datacatalogencryptionsettings.html#cfn-glue-datacatalogencryptionsettings-datacatalogencryptionsettings -gdcesDataCatalogEncryptionSettings :: Lens' GlueDataCatalogEncryptionSettings GlueDataCatalogEncryptionSettingsDataCatalogEncryptionSettings -gdcesDataCatalogEncryptionSettings = lens _glueDataCatalogEncryptionSettingsDataCatalogEncryptionSettings (\s a -> s { _glueDataCatalogEncryptionSettingsDataCatalogEncryptionSettings = a }) diff --git a/library-gen/Stratosphere/Resources/GlueDatabase.hs b/library-gen/Stratosphere/Resources/GlueDatabase.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GlueDatabase.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-database.html - -module Stratosphere.Resources.GlueDatabase where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GlueDatabaseDatabaseInput - --- | Full data type definition for GlueDatabase. See 'glueDatabase' for a more --- convenient constructor. -data GlueDatabase = - GlueDatabase - { _glueDatabaseCatalogId :: Val Text - , _glueDatabaseDatabaseInput :: GlueDatabaseDatabaseInput - } deriving (Show, Eq) - -instance ToResourceProperties GlueDatabase where - toResourceProperties GlueDatabase{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Glue::Database" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("CatalogId",) . toJSON) _glueDatabaseCatalogId - , (Just . ("DatabaseInput",) . toJSON) _glueDatabaseDatabaseInput - ] - } - --- | Constructor for 'GlueDatabase' containing required fields as arguments. -glueDatabase - :: Val Text -- ^ 'gdCatalogId' - -> GlueDatabaseDatabaseInput -- ^ 'gdDatabaseInput' - -> GlueDatabase -glueDatabase catalogIdarg databaseInputarg = - GlueDatabase - { _glueDatabaseCatalogId = catalogIdarg - , _glueDatabaseDatabaseInput = databaseInputarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-database.html#cfn-glue-database-catalogid -gdCatalogId :: Lens' GlueDatabase (Val Text) -gdCatalogId = lens _glueDatabaseCatalogId (\s a -> s { _glueDatabaseCatalogId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-database.html#cfn-glue-database-databaseinput -gdDatabaseInput :: Lens' GlueDatabase GlueDatabaseDatabaseInput -gdDatabaseInput = lens _glueDatabaseDatabaseInput (\s a -> s { _glueDatabaseDatabaseInput = a }) diff --git a/library-gen/Stratosphere/Resources/GlueDevEndpoint.hs b/library-gen/Stratosphere/Resources/GlueDevEndpoint.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GlueDevEndpoint.hs +++ /dev/null @@ -1,140 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html - -module Stratosphere.Resources.GlueDevEndpoint where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GlueDevEndpoint. See 'glueDevEndpoint' for --- a more convenient constructor. -data GlueDevEndpoint = - GlueDevEndpoint - { _glueDevEndpointArguments :: Maybe Object - , _glueDevEndpointEndpointName :: Maybe (Val Text) - , _glueDevEndpointExtraJarsS3Path :: Maybe (Val Text) - , _glueDevEndpointExtraPythonLibsS3Path :: Maybe (Val Text) - , _glueDevEndpointGlueVersion :: Maybe (Val Text) - , _glueDevEndpointNumberOfNodes :: Maybe (Val Integer) - , _glueDevEndpointNumberOfWorkers :: Maybe (Val Integer) - , _glueDevEndpointPublicKey :: Maybe (Val Text) - , _glueDevEndpointPublicKeys :: Maybe (ValList Text) - , _glueDevEndpointRoleArn :: Val Text - , _glueDevEndpointSecurityConfiguration :: Maybe (Val Text) - , _glueDevEndpointSecurityGroupIds :: Maybe (ValList Text) - , _glueDevEndpointSubnetId :: Maybe (Val Text) - , _glueDevEndpointTags :: Maybe Object - , _glueDevEndpointWorkerType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties GlueDevEndpoint where - toResourceProperties GlueDevEndpoint{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Glue::DevEndpoint" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Arguments",) . toJSON) _glueDevEndpointArguments - , fmap (("EndpointName",) . toJSON) _glueDevEndpointEndpointName - , fmap (("ExtraJarsS3Path",) . toJSON) _glueDevEndpointExtraJarsS3Path - , fmap (("ExtraPythonLibsS3Path",) . toJSON) _glueDevEndpointExtraPythonLibsS3Path - , fmap (("GlueVersion",) . toJSON) _glueDevEndpointGlueVersion - , fmap (("NumberOfNodes",) . toJSON) _glueDevEndpointNumberOfNodes - , fmap (("NumberOfWorkers",) . toJSON) _glueDevEndpointNumberOfWorkers - , fmap (("PublicKey",) . toJSON) _glueDevEndpointPublicKey - , fmap (("PublicKeys",) . toJSON) _glueDevEndpointPublicKeys - , (Just . ("RoleArn",) . toJSON) _glueDevEndpointRoleArn - , fmap (("SecurityConfiguration",) . toJSON) _glueDevEndpointSecurityConfiguration - , fmap (("SecurityGroupIds",) . toJSON) _glueDevEndpointSecurityGroupIds - , fmap (("SubnetId",) . toJSON) _glueDevEndpointSubnetId - , fmap (("Tags",) . toJSON) _glueDevEndpointTags - , fmap (("WorkerType",) . toJSON) _glueDevEndpointWorkerType - ] - } - --- | Constructor for 'GlueDevEndpoint' containing required fields as --- arguments. -glueDevEndpoint - :: Val Text -- ^ 'gdeRoleArn' - -> GlueDevEndpoint -glueDevEndpoint roleArnarg = - GlueDevEndpoint - { _glueDevEndpointArguments = Nothing - , _glueDevEndpointEndpointName = Nothing - , _glueDevEndpointExtraJarsS3Path = Nothing - , _glueDevEndpointExtraPythonLibsS3Path = Nothing - , _glueDevEndpointGlueVersion = Nothing - , _glueDevEndpointNumberOfNodes = Nothing - , _glueDevEndpointNumberOfWorkers = Nothing - , _glueDevEndpointPublicKey = Nothing - , _glueDevEndpointPublicKeys = Nothing - , _glueDevEndpointRoleArn = roleArnarg - , _glueDevEndpointSecurityConfiguration = Nothing - , _glueDevEndpointSecurityGroupIds = Nothing - , _glueDevEndpointSubnetId = Nothing - , _glueDevEndpointTags = Nothing - , _glueDevEndpointWorkerType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-arguments -gdeArguments :: Lens' GlueDevEndpoint (Maybe Object) -gdeArguments = lens _glueDevEndpointArguments (\s a -> s { _glueDevEndpointArguments = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-endpointname -gdeEndpointName :: Lens' GlueDevEndpoint (Maybe (Val Text)) -gdeEndpointName = lens _glueDevEndpointEndpointName (\s a -> s { _glueDevEndpointEndpointName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-extrajarss3path -gdeExtraJarsS3Path :: Lens' GlueDevEndpoint (Maybe (Val Text)) -gdeExtraJarsS3Path = lens _glueDevEndpointExtraJarsS3Path (\s a -> s { _glueDevEndpointExtraJarsS3Path = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-extrapythonlibss3path -gdeExtraPythonLibsS3Path :: Lens' GlueDevEndpoint (Maybe (Val Text)) -gdeExtraPythonLibsS3Path = lens _glueDevEndpointExtraPythonLibsS3Path (\s a -> s { _glueDevEndpointExtraPythonLibsS3Path = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-glueversion -gdeGlueVersion :: Lens' GlueDevEndpoint (Maybe (Val Text)) -gdeGlueVersion = lens _glueDevEndpointGlueVersion (\s a -> s { _glueDevEndpointGlueVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-numberofnodes -gdeNumberOfNodes :: Lens' GlueDevEndpoint (Maybe (Val Integer)) -gdeNumberOfNodes = lens _glueDevEndpointNumberOfNodes (\s a -> s { _glueDevEndpointNumberOfNodes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-numberofworkers -gdeNumberOfWorkers :: Lens' GlueDevEndpoint (Maybe (Val Integer)) -gdeNumberOfWorkers = lens _glueDevEndpointNumberOfWorkers (\s a -> s { _glueDevEndpointNumberOfWorkers = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-publickey -gdePublicKey :: Lens' GlueDevEndpoint (Maybe (Val Text)) -gdePublicKey = lens _glueDevEndpointPublicKey (\s a -> s { _glueDevEndpointPublicKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-publickeys -gdePublicKeys :: Lens' GlueDevEndpoint (Maybe (ValList Text)) -gdePublicKeys = lens _glueDevEndpointPublicKeys (\s a -> s { _glueDevEndpointPublicKeys = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-rolearn -gdeRoleArn :: Lens' GlueDevEndpoint (Val Text) -gdeRoleArn = lens _glueDevEndpointRoleArn (\s a -> s { _glueDevEndpointRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-securityconfiguration -gdeSecurityConfiguration :: Lens' GlueDevEndpoint (Maybe (Val Text)) -gdeSecurityConfiguration = lens _glueDevEndpointSecurityConfiguration (\s a -> s { _glueDevEndpointSecurityConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-securitygroupids -gdeSecurityGroupIds :: Lens' GlueDevEndpoint (Maybe (ValList Text)) -gdeSecurityGroupIds = lens _glueDevEndpointSecurityGroupIds (\s a -> s { _glueDevEndpointSecurityGroupIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-subnetid -gdeSubnetId :: Lens' GlueDevEndpoint (Maybe (Val Text)) -gdeSubnetId = lens _glueDevEndpointSubnetId (\s a -> s { _glueDevEndpointSubnetId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-tags -gdeTags :: Lens' GlueDevEndpoint (Maybe Object) -gdeTags = lens _glueDevEndpointTags (\s a -> s { _glueDevEndpointTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-devendpoint.html#cfn-glue-devendpoint-workertype -gdeWorkerType :: Lens' GlueDevEndpoint (Maybe (Val Text)) -gdeWorkerType = lens _glueDevEndpointWorkerType (\s a -> s { _glueDevEndpointWorkerType = a }) diff --git a/library-gen/Stratosphere/Resources/GlueJob.hs b/library-gen/Stratosphere/Resources/GlueJob.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GlueJob.hs +++ /dev/null @@ -1,164 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html - -module Stratosphere.Resources.GlueJob where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GlueJobJobCommand -import Stratosphere.ResourceProperties.GlueJobConnectionsList -import Stratosphere.ResourceProperties.GlueJobExecutionProperty -import Stratosphere.ResourceProperties.GlueJobNotificationProperty - --- | Full data type definition for GlueJob. See 'glueJob' for a more --- convenient constructor. -data GlueJob = - GlueJob - { _glueJobAllocatedCapacity :: Maybe (Val Double) - , _glueJobCommand :: GlueJobJobCommand - , _glueJobConnections :: Maybe GlueJobConnectionsList - , _glueJobDefaultArguments :: Maybe Object - , _glueJobDescription :: Maybe (Val Text) - , _glueJobExecutionProperty :: Maybe GlueJobExecutionProperty - , _glueJobGlueVersion :: Maybe (Val Text) - , _glueJobLogUri :: Maybe (Val Text) - , _glueJobMaxCapacity :: Maybe (Val Double) - , _glueJobMaxRetries :: Maybe (Val Double) - , _glueJobName :: Maybe (Val Text) - , _glueJobNotificationProperty :: Maybe GlueJobNotificationProperty - , _glueJobNumberOfWorkers :: Maybe (Val Integer) - , _glueJobRole :: Val Text - , _glueJobSecurityConfiguration :: Maybe (Val Text) - , _glueJobTags :: Maybe Object - , _glueJobTimeout :: Maybe (Val Integer) - , _glueJobWorkerType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties GlueJob where - toResourceProperties GlueJob{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Glue::Job" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AllocatedCapacity",) . toJSON) _glueJobAllocatedCapacity - , (Just . ("Command",) . toJSON) _glueJobCommand - , fmap (("Connections",) . toJSON) _glueJobConnections - , fmap (("DefaultArguments",) . toJSON) _glueJobDefaultArguments - , fmap (("Description",) . toJSON) _glueJobDescription - , fmap (("ExecutionProperty",) . toJSON) _glueJobExecutionProperty - , fmap (("GlueVersion",) . toJSON) _glueJobGlueVersion - , fmap (("LogUri",) . toJSON) _glueJobLogUri - , fmap (("MaxCapacity",) . toJSON) _glueJobMaxCapacity - , fmap (("MaxRetries",) . toJSON) _glueJobMaxRetries - , fmap (("Name",) . toJSON) _glueJobName - , fmap (("NotificationProperty",) . toJSON) _glueJobNotificationProperty - , fmap (("NumberOfWorkers",) . toJSON) _glueJobNumberOfWorkers - , (Just . ("Role",) . toJSON) _glueJobRole - , fmap (("SecurityConfiguration",) . toJSON) _glueJobSecurityConfiguration - , fmap (("Tags",) . toJSON) _glueJobTags - , fmap (("Timeout",) . toJSON) _glueJobTimeout - , fmap (("WorkerType",) . toJSON) _glueJobWorkerType - ] - } - --- | Constructor for 'GlueJob' containing required fields as arguments. -glueJob - :: GlueJobJobCommand -- ^ 'gjCommand' - -> Val Text -- ^ 'gjRole' - -> GlueJob -glueJob commandarg rolearg = - GlueJob - { _glueJobAllocatedCapacity = Nothing - , _glueJobCommand = commandarg - , _glueJobConnections = Nothing - , _glueJobDefaultArguments = Nothing - , _glueJobDescription = Nothing - , _glueJobExecutionProperty = Nothing - , _glueJobGlueVersion = Nothing - , _glueJobLogUri = Nothing - , _glueJobMaxCapacity = Nothing - , _glueJobMaxRetries = Nothing - , _glueJobName = Nothing - , _glueJobNotificationProperty = Nothing - , _glueJobNumberOfWorkers = Nothing - , _glueJobRole = rolearg - , _glueJobSecurityConfiguration = Nothing - , _glueJobTags = Nothing - , _glueJobTimeout = Nothing - , _glueJobWorkerType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-allocatedcapacity -gjAllocatedCapacity :: Lens' GlueJob (Maybe (Val Double)) -gjAllocatedCapacity = lens _glueJobAllocatedCapacity (\s a -> s { _glueJobAllocatedCapacity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-command -gjCommand :: Lens' GlueJob GlueJobJobCommand -gjCommand = lens _glueJobCommand (\s a -> s { _glueJobCommand = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-connections -gjConnections :: Lens' GlueJob (Maybe GlueJobConnectionsList) -gjConnections = lens _glueJobConnections (\s a -> s { _glueJobConnections = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-defaultarguments -gjDefaultArguments :: Lens' GlueJob (Maybe Object) -gjDefaultArguments = lens _glueJobDefaultArguments (\s a -> s { _glueJobDefaultArguments = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-description -gjDescription :: Lens' GlueJob (Maybe (Val Text)) -gjDescription = lens _glueJobDescription (\s a -> s { _glueJobDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-executionproperty -gjExecutionProperty :: Lens' GlueJob (Maybe GlueJobExecutionProperty) -gjExecutionProperty = lens _glueJobExecutionProperty (\s a -> s { _glueJobExecutionProperty = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-glueversion -gjGlueVersion :: Lens' GlueJob (Maybe (Val Text)) -gjGlueVersion = lens _glueJobGlueVersion (\s a -> s { _glueJobGlueVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-loguri -gjLogUri :: Lens' GlueJob (Maybe (Val Text)) -gjLogUri = lens _glueJobLogUri (\s a -> s { _glueJobLogUri = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-maxcapacity -gjMaxCapacity :: Lens' GlueJob (Maybe (Val Double)) -gjMaxCapacity = lens _glueJobMaxCapacity (\s a -> s { _glueJobMaxCapacity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-maxretries -gjMaxRetries :: Lens' GlueJob (Maybe (Val Double)) -gjMaxRetries = lens _glueJobMaxRetries (\s a -> s { _glueJobMaxRetries = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-name -gjName :: Lens' GlueJob (Maybe (Val Text)) -gjName = lens _glueJobName (\s a -> s { _glueJobName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-notificationproperty -gjNotificationProperty :: Lens' GlueJob (Maybe GlueJobNotificationProperty) -gjNotificationProperty = lens _glueJobNotificationProperty (\s a -> s { _glueJobNotificationProperty = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-numberofworkers -gjNumberOfWorkers :: Lens' GlueJob (Maybe (Val Integer)) -gjNumberOfWorkers = lens _glueJobNumberOfWorkers (\s a -> s { _glueJobNumberOfWorkers = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-role -gjRole :: Lens' GlueJob (Val Text) -gjRole = lens _glueJobRole (\s a -> s { _glueJobRole = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-securityconfiguration -gjSecurityConfiguration :: Lens' GlueJob (Maybe (Val Text)) -gjSecurityConfiguration = lens _glueJobSecurityConfiguration (\s a -> s { _glueJobSecurityConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-tags -gjTags :: Lens' GlueJob (Maybe Object) -gjTags = lens _glueJobTags (\s a -> s { _glueJobTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-timeout -gjTimeout :: Lens' GlueJob (Maybe (Val Integer)) -gjTimeout = lens _glueJobTimeout (\s a -> s { _glueJobTimeout = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-job.html#cfn-glue-job-workertype -gjWorkerType :: Lens' GlueJob (Maybe (Val Text)) -gjWorkerType = lens _glueJobWorkerType (\s a -> s { _glueJobWorkerType = a }) diff --git a/library-gen/Stratosphere/Resources/GlueMLTransform.hs b/library-gen/Stratosphere/Resources/GlueMLTransform.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GlueMLTransform.hs +++ /dev/null @@ -1,122 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-mltransform.html - -module Stratosphere.Resources.GlueMLTransform where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GlueMLTransformInputRecordTables -import Stratosphere.ResourceProperties.GlueMLTransformTransformParameters - --- | Full data type definition for GlueMLTransform. See 'glueMLTransform' for --- a more convenient constructor. -data GlueMLTransform = - GlueMLTransform - { _glueMLTransformDescription :: Maybe (Val Text) - , _glueMLTransformGlueVersion :: Maybe (Val Text) - , _glueMLTransformInputRecordTables :: GlueMLTransformInputRecordTables - , _glueMLTransformMaxCapacity :: Maybe (Val Double) - , _glueMLTransformMaxRetries :: Maybe (Val Integer) - , _glueMLTransformName :: Maybe (Val Text) - , _glueMLTransformNumberOfWorkers :: Maybe (Val Integer) - , _glueMLTransformRole :: Val Text - , _glueMLTransformTags :: Maybe Object - , _glueMLTransformTimeout :: Maybe (Val Integer) - , _glueMLTransformTransformParameters :: GlueMLTransformTransformParameters - , _glueMLTransformWorkerType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties GlueMLTransform where - toResourceProperties GlueMLTransform{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Glue::MLTransform" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _glueMLTransformDescription - , fmap (("GlueVersion",) . toJSON) _glueMLTransformGlueVersion - , (Just . ("InputRecordTables",) . toJSON) _glueMLTransformInputRecordTables - , fmap (("MaxCapacity",) . toJSON) _glueMLTransformMaxCapacity - , fmap (("MaxRetries",) . toJSON) _glueMLTransformMaxRetries - , fmap (("Name",) . toJSON) _glueMLTransformName - , fmap (("NumberOfWorkers",) . toJSON) _glueMLTransformNumberOfWorkers - , (Just . ("Role",) . toJSON) _glueMLTransformRole - , fmap (("Tags",) . toJSON) _glueMLTransformTags - , fmap (("Timeout",) . toJSON) _glueMLTransformTimeout - , (Just . ("TransformParameters",) . toJSON) _glueMLTransformTransformParameters - , fmap (("WorkerType",) . toJSON) _glueMLTransformWorkerType - ] - } - --- | Constructor for 'GlueMLTransform' containing required fields as --- arguments. -glueMLTransform - :: GlueMLTransformInputRecordTables -- ^ 'gmltInputRecordTables' - -> Val Text -- ^ 'gmltRole' - -> GlueMLTransformTransformParameters -- ^ 'gmltTransformParameters' - -> GlueMLTransform -glueMLTransform inputRecordTablesarg rolearg transformParametersarg = - GlueMLTransform - { _glueMLTransformDescription = Nothing - , _glueMLTransformGlueVersion = Nothing - , _glueMLTransformInputRecordTables = inputRecordTablesarg - , _glueMLTransformMaxCapacity = Nothing - , _glueMLTransformMaxRetries = Nothing - , _glueMLTransformName = Nothing - , _glueMLTransformNumberOfWorkers = Nothing - , _glueMLTransformRole = rolearg - , _glueMLTransformTags = Nothing - , _glueMLTransformTimeout = Nothing - , _glueMLTransformTransformParameters = transformParametersarg - , _glueMLTransformWorkerType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-mltransform.html#cfn-glue-mltransform-description -gmltDescription :: Lens' GlueMLTransform (Maybe (Val Text)) -gmltDescription = lens _glueMLTransformDescription (\s a -> s { _glueMLTransformDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-mltransform.html#cfn-glue-mltransform-glueversion -gmltGlueVersion :: Lens' GlueMLTransform (Maybe (Val Text)) -gmltGlueVersion = lens _glueMLTransformGlueVersion (\s a -> s { _glueMLTransformGlueVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-mltransform.html#cfn-glue-mltransform-inputrecordtables -gmltInputRecordTables :: Lens' GlueMLTransform GlueMLTransformInputRecordTables -gmltInputRecordTables = lens _glueMLTransformInputRecordTables (\s a -> s { _glueMLTransformInputRecordTables = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-mltransform.html#cfn-glue-mltransform-maxcapacity -gmltMaxCapacity :: Lens' GlueMLTransform (Maybe (Val Double)) -gmltMaxCapacity = lens _glueMLTransformMaxCapacity (\s a -> s { _glueMLTransformMaxCapacity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-mltransform.html#cfn-glue-mltransform-maxretries -gmltMaxRetries :: Lens' GlueMLTransform (Maybe (Val Integer)) -gmltMaxRetries = lens _glueMLTransformMaxRetries (\s a -> s { _glueMLTransformMaxRetries = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-mltransform.html#cfn-glue-mltransform-name -gmltName :: Lens' GlueMLTransform (Maybe (Val Text)) -gmltName = lens _glueMLTransformName (\s a -> s { _glueMLTransformName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-mltransform.html#cfn-glue-mltransform-numberofworkers -gmltNumberOfWorkers :: Lens' GlueMLTransform (Maybe (Val Integer)) -gmltNumberOfWorkers = lens _glueMLTransformNumberOfWorkers (\s a -> s { _glueMLTransformNumberOfWorkers = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-mltransform.html#cfn-glue-mltransform-role -gmltRole :: Lens' GlueMLTransform (Val Text) -gmltRole = lens _glueMLTransformRole (\s a -> s { _glueMLTransformRole = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-mltransform.html#cfn-glue-mltransform-tags -gmltTags :: Lens' GlueMLTransform (Maybe Object) -gmltTags = lens _glueMLTransformTags (\s a -> s { _glueMLTransformTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-mltransform.html#cfn-glue-mltransform-timeout -gmltTimeout :: Lens' GlueMLTransform (Maybe (Val Integer)) -gmltTimeout = lens _glueMLTransformTimeout (\s a -> s { _glueMLTransformTimeout = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-mltransform.html#cfn-glue-mltransform-transformparameters -gmltTransformParameters :: Lens' GlueMLTransform GlueMLTransformTransformParameters -gmltTransformParameters = lens _glueMLTransformTransformParameters (\s a -> s { _glueMLTransformTransformParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-mltransform.html#cfn-glue-mltransform-workertype -gmltWorkerType :: Lens' GlueMLTransform (Maybe (Val Text)) -gmltWorkerType = lens _glueMLTransformWorkerType (\s a -> s { _glueMLTransformWorkerType = a }) diff --git a/library-gen/Stratosphere/Resources/GluePartition.hs b/library-gen/Stratosphere/Resources/GluePartition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GluePartition.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-partition.html - -module Stratosphere.Resources.GluePartition where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GluePartitionPartitionInput - --- | Full data type definition for GluePartition. See 'gluePartition' for a --- more convenient constructor. -data GluePartition = - GluePartition - { _gluePartitionCatalogId :: Val Text - , _gluePartitionDatabaseName :: Val Text - , _gluePartitionPartitionInput :: GluePartitionPartitionInput - , _gluePartitionTableName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties GluePartition where - toResourceProperties GluePartition{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Glue::Partition" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("CatalogId",) . toJSON) _gluePartitionCatalogId - , (Just . ("DatabaseName",) . toJSON) _gluePartitionDatabaseName - , (Just . ("PartitionInput",) . toJSON) _gluePartitionPartitionInput - , (Just . ("TableName",) . toJSON) _gluePartitionTableName - ] - } - --- | Constructor for 'GluePartition' containing required fields as arguments. -gluePartition - :: Val Text -- ^ 'gpCatalogId' - -> Val Text -- ^ 'gpDatabaseName' - -> GluePartitionPartitionInput -- ^ 'gpPartitionInput' - -> Val Text -- ^ 'gpTableName' - -> GluePartition -gluePartition catalogIdarg databaseNamearg partitionInputarg tableNamearg = - GluePartition - { _gluePartitionCatalogId = catalogIdarg - , _gluePartitionDatabaseName = databaseNamearg - , _gluePartitionPartitionInput = partitionInputarg - , _gluePartitionTableName = tableNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-partition.html#cfn-glue-partition-catalogid -gpCatalogId :: Lens' GluePartition (Val Text) -gpCatalogId = lens _gluePartitionCatalogId (\s a -> s { _gluePartitionCatalogId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-partition.html#cfn-glue-partition-databasename -gpDatabaseName :: Lens' GluePartition (Val Text) -gpDatabaseName = lens _gluePartitionDatabaseName (\s a -> s { _gluePartitionDatabaseName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-partition.html#cfn-glue-partition-partitioninput -gpPartitionInput :: Lens' GluePartition GluePartitionPartitionInput -gpPartitionInput = lens _gluePartitionPartitionInput (\s a -> s { _gluePartitionPartitionInput = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-partition.html#cfn-glue-partition-tablename -gpTableName :: Lens' GluePartition (Val Text) -gpTableName = lens _gluePartitionTableName (\s a -> s { _gluePartitionTableName = a }) diff --git a/library-gen/Stratosphere/Resources/GlueSecurityConfiguration.hs b/library-gen/Stratosphere/Resources/GlueSecurityConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GlueSecurityConfiguration.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-securityconfiguration.html - -module Stratosphere.Resources.GlueSecurityConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GlueSecurityConfigurationEncryptionConfiguration - --- | Full data type definition for GlueSecurityConfiguration. See --- 'glueSecurityConfiguration' for a more convenient constructor. -data GlueSecurityConfiguration = - GlueSecurityConfiguration - { _glueSecurityConfigurationEncryptionConfiguration :: GlueSecurityConfigurationEncryptionConfiguration - , _glueSecurityConfigurationName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties GlueSecurityConfiguration where - toResourceProperties GlueSecurityConfiguration{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Glue::SecurityConfiguration" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("EncryptionConfiguration",) . toJSON) _glueSecurityConfigurationEncryptionConfiguration - , (Just . ("Name",) . toJSON) _glueSecurityConfigurationName - ] - } - --- | Constructor for 'GlueSecurityConfiguration' containing required fields as --- arguments. -glueSecurityConfiguration - :: GlueSecurityConfigurationEncryptionConfiguration -- ^ 'gscEncryptionConfiguration' - -> Val Text -- ^ 'gscName' - -> GlueSecurityConfiguration -glueSecurityConfiguration encryptionConfigurationarg namearg = - GlueSecurityConfiguration - { _glueSecurityConfigurationEncryptionConfiguration = encryptionConfigurationarg - , _glueSecurityConfigurationName = namearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-securityconfiguration.html#cfn-glue-securityconfiguration-encryptionconfiguration -gscEncryptionConfiguration :: Lens' GlueSecurityConfiguration GlueSecurityConfigurationEncryptionConfiguration -gscEncryptionConfiguration = lens _glueSecurityConfigurationEncryptionConfiguration (\s a -> s { _glueSecurityConfigurationEncryptionConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-securityconfiguration.html#cfn-glue-securityconfiguration-name -gscName :: Lens' GlueSecurityConfiguration (Val Text) -gscName = lens _glueSecurityConfigurationName (\s a -> s { _glueSecurityConfigurationName = a }) diff --git a/library-gen/Stratosphere/Resources/GlueTable.hs b/library-gen/Stratosphere/Resources/GlueTable.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GlueTable.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-table.html - -module Stratosphere.Resources.GlueTable where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GlueTableTableInput - --- | Full data type definition for GlueTable. See 'glueTable' for a more --- convenient constructor. -data GlueTable = - GlueTable - { _glueTableCatalogId :: Val Text - , _glueTableDatabaseName :: Val Text - , _glueTableTableInput :: GlueTableTableInput - } deriving (Show, Eq) - -instance ToResourceProperties GlueTable where - toResourceProperties GlueTable{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Glue::Table" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("CatalogId",) . toJSON) _glueTableCatalogId - , (Just . ("DatabaseName",) . toJSON) _glueTableDatabaseName - , (Just . ("TableInput",) . toJSON) _glueTableTableInput - ] - } - --- | Constructor for 'GlueTable' containing required fields as arguments. -glueTable - :: Val Text -- ^ 'gtCatalogId' - -> Val Text -- ^ 'gtDatabaseName' - -> GlueTableTableInput -- ^ 'gtTableInput' - -> GlueTable -glueTable catalogIdarg databaseNamearg tableInputarg = - GlueTable - { _glueTableCatalogId = catalogIdarg - , _glueTableDatabaseName = databaseNamearg - , _glueTableTableInput = tableInputarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-table.html#cfn-glue-table-catalogid -gtCatalogId :: Lens' GlueTable (Val Text) -gtCatalogId = lens _glueTableCatalogId (\s a -> s { _glueTableCatalogId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-table.html#cfn-glue-table-databasename -gtDatabaseName :: Lens' GlueTable (Val Text) -gtDatabaseName = lens _glueTableDatabaseName (\s a -> s { _glueTableDatabaseName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-table.html#cfn-glue-table-tableinput -gtTableInput :: Lens' GlueTable GlueTableTableInput -gtTableInput = lens _glueTableTableInput (\s a -> s { _glueTableTableInput = a }) diff --git a/library-gen/Stratosphere/Resources/GlueTrigger.hs b/library-gen/Stratosphere/Resources/GlueTrigger.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GlueTrigger.hs +++ /dev/null @@ -1,99 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-trigger.html - -module Stratosphere.Resources.GlueTrigger where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GlueTriggerAction -import Stratosphere.ResourceProperties.GlueTriggerPredicate - --- | Full data type definition for GlueTrigger. See 'glueTrigger' for a more --- convenient constructor. -data GlueTrigger = - GlueTrigger - { _glueTriggerActions :: [GlueTriggerAction] - , _glueTriggerDescription :: Maybe (Val Text) - , _glueTriggerName :: Maybe (Val Text) - , _glueTriggerPredicate :: Maybe GlueTriggerPredicate - , _glueTriggerSchedule :: Maybe (Val Text) - , _glueTriggerStartOnCreation :: Maybe (Val Bool) - , _glueTriggerTags :: Maybe Object - , _glueTriggerType :: Val Text - , _glueTriggerWorkflowName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties GlueTrigger where - toResourceProperties GlueTrigger{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Glue::Trigger" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Actions",) . toJSON) _glueTriggerActions - , fmap (("Description",) . toJSON) _glueTriggerDescription - , fmap (("Name",) . toJSON) _glueTriggerName - , fmap (("Predicate",) . toJSON) _glueTriggerPredicate - , fmap (("Schedule",) . toJSON) _glueTriggerSchedule - , fmap (("StartOnCreation",) . toJSON) _glueTriggerStartOnCreation - , fmap (("Tags",) . toJSON) _glueTriggerTags - , (Just . ("Type",) . toJSON) _glueTriggerType - , fmap (("WorkflowName",) . toJSON) _glueTriggerWorkflowName - ] - } - --- | Constructor for 'GlueTrigger' containing required fields as arguments. -glueTrigger - :: [GlueTriggerAction] -- ^ 'gtActions' - -> Val Text -- ^ 'gtType' - -> GlueTrigger -glueTrigger actionsarg typearg = - GlueTrigger - { _glueTriggerActions = actionsarg - , _glueTriggerDescription = Nothing - , _glueTriggerName = Nothing - , _glueTriggerPredicate = Nothing - , _glueTriggerSchedule = Nothing - , _glueTriggerStartOnCreation = Nothing - , _glueTriggerTags = Nothing - , _glueTriggerType = typearg - , _glueTriggerWorkflowName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-trigger.html#cfn-glue-trigger-actions -gtActions :: Lens' GlueTrigger [GlueTriggerAction] -gtActions = lens _glueTriggerActions (\s a -> s { _glueTriggerActions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-trigger.html#cfn-glue-trigger-description -gtDescription :: Lens' GlueTrigger (Maybe (Val Text)) -gtDescription = lens _glueTriggerDescription (\s a -> s { _glueTriggerDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-trigger.html#cfn-glue-trigger-name -gtName :: Lens' GlueTrigger (Maybe (Val Text)) -gtName = lens _glueTriggerName (\s a -> s { _glueTriggerName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-trigger.html#cfn-glue-trigger-predicate -gtPredicate :: Lens' GlueTrigger (Maybe GlueTriggerPredicate) -gtPredicate = lens _glueTriggerPredicate (\s a -> s { _glueTriggerPredicate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-trigger.html#cfn-glue-trigger-schedule -gtSchedule :: Lens' GlueTrigger (Maybe (Val Text)) -gtSchedule = lens _glueTriggerSchedule (\s a -> s { _glueTriggerSchedule = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-trigger.html#cfn-glue-trigger-startoncreation -gtStartOnCreation :: Lens' GlueTrigger (Maybe (Val Bool)) -gtStartOnCreation = lens _glueTriggerStartOnCreation (\s a -> s { _glueTriggerStartOnCreation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-trigger.html#cfn-glue-trigger-tags -gtTags :: Lens' GlueTrigger (Maybe Object) -gtTags = lens _glueTriggerTags (\s a -> s { _glueTriggerTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-trigger.html#cfn-glue-trigger-type -gtType :: Lens' GlueTrigger (Val Text) -gtType = lens _glueTriggerType (\s a -> s { _glueTriggerType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-trigger.html#cfn-glue-trigger-workflowname -gtWorkflowName :: Lens' GlueTrigger (Maybe (Val Text)) -gtWorkflowName = lens _glueTriggerWorkflowName (\s a -> s { _glueTriggerWorkflowName = a }) diff --git a/library-gen/Stratosphere/Resources/GlueWorkflow.hs b/library-gen/Stratosphere/Resources/GlueWorkflow.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GlueWorkflow.hs +++ /dev/null @@ -1,61 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-workflow.html - -module Stratosphere.Resources.GlueWorkflow where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GlueWorkflow. See 'glueWorkflow' for a more --- convenient constructor. -data GlueWorkflow = - GlueWorkflow - { _glueWorkflowDefaultRunProperties :: Maybe Object - , _glueWorkflowDescription :: Maybe (Val Text) - , _glueWorkflowName :: Maybe (Val Text) - , _glueWorkflowTags :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties GlueWorkflow where - toResourceProperties GlueWorkflow{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Glue::Workflow" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("DefaultRunProperties",) . toJSON) _glueWorkflowDefaultRunProperties - , fmap (("Description",) . toJSON) _glueWorkflowDescription - , fmap (("Name",) . toJSON) _glueWorkflowName - , fmap (("Tags",) . toJSON) _glueWorkflowTags - ] - } - --- | Constructor for 'GlueWorkflow' containing required fields as arguments. -glueWorkflow - :: GlueWorkflow -glueWorkflow = - GlueWorkflow - { _glueWorkflowDefaultRunProperties = Nothing - , _glueWorkflowDescription = Nothing - , _glueWorkflowName = Nothing - , _glueWorkflowTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-workflow.html#cfn-glue-workflow-defaultrunproperties -gwDefaultRunProperties :: Lens' GlueWorkflow (Maybe Object) -gwDefaultRunProperties = lens _glueWorkflowDefaultRunProperties (\s a -> s { _glueWorkflowDefaultRunProperties = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-workflow.html#cfn-glue-workflow-description -gwDescription :: Lens' GlueWorkflow (Maybe (Val Text)) -gwDescription = lens _glueWorkflowDescription (\s a -> s { _glueWorkflowDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-workflow.html#cfn-glue-workflow-name -gwName :: Lens' GlueWorkflow (Maybe (Val Text)) -gwName = lens _glueWorkflowName (\s a -> s { _glueWorkflowName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-workflow.html#cfn-glue-workflow-tags -gwTags :: Lens' GlueWorkflow (Maybe Object) -gwTags = lens _glueWorkflowTags (\s a -> s { _glueWorkflowTags = a }) diff --git a/library-gen/Stratosphere/Resources/GreengrassConnectorDefinition.hs b/library-gen/Stratosphere/Resources/GreengrassConnectorDefinition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GreengrassConnectorDefinition.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-connectordefinition.html - -module Stratosphere.Resources.GreengrassConnectorDefinition where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassConnectorDefinitionConnectorDefinitionVersion - --- | Full data type definition for GreengrassConnectorDefinition. See --- 'greengrassConnectorDefinition' for a more convenient constructor. -data GreengrassConnectorDefinition = - GreengrassConnectorDefinition - { _greengrassConnectorDefinitionInitialVersion :: Maybe GreengrassConnectorDefinitionConnectorDefinitionVersion - , _greengrassConnectorDefinitionName :: Val Text - , _greengrassConnectorDefinitionTags :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties GreengrassConnectorDefinition where - toResourceProperties GreengrassConnectorDefinition{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Greengrass::ConnectorDefinition" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("InitialVersion",) . toJSON) _greengrassConnectorDefinitionInitialVersion - , (Just . ("Name",) . toJSON) _greengrassConnectorDefinitionName - , fmap (("Tags",) . toJSON) _greengrassConnectorDefinitionTags - ] - } - --- | Constructor for 'GreengrassConnectorDefinition' containing required --- fields as arguments. -greengrassConnectorDefinition - :: Val Text -- ^ 'gcdnName' - -> GreengrassConnectorDefinition -greengrassConnectorDefinition namearg = - GreengrassConnectorDefinition - { _greengrassConnectorDefinitionInitialVersion = Nothing - , _greengrassConnectorDefinitionName = namearg - , _greengrassConnectorDefinitionTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-connectordefinition.html#cfn-greengrass-connectordefinition-initialversion -gcdnInitialVersion :: Lens' GreengrassConnectorDefinition (Maybe GreengrassConnectorDefinitionConnectorDefinitionVersion) -gcdnInitialVersion = lens _greengrassConnectorDefinitionInitialVersion (\s a -> s { _greengrassConnectorDefinitionInitialVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-connectordefinition.html#cfn-greengrass-connectordefinition-name -gcdnName :: Lens' GreengrassConnectorDefinition (Val Text) -gcdnName = lens _greengrassConnectorDefinitionName (\s a -> s { _greengrassConnectorDefinitionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-connectordefinition.html#cfn-greengrass-connectordefinition-tags -gcdnTags :: Lens' GreengrassConnectorDefinition (Maybe Object) -gcdnTags = lens _greengrassConnectorDefinitionTags (\s a -> s { _greengrassConnectorDefinitionTags = a }) diff --git a/library-gen/Stratosphere/Resources/GreengrassConnectorDefinitionVersion.hs b/library-gen/Stratosphere/Resources/GreengrassConnectorDefinitionVersion.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GreengrassConnectorDefinitionVersion.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-connectordefinitionversion.html - -module Stratosphere.Resources.GreengrassConnectorDefinitionVersion where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassConnectorDefinitionVersionConnector - --- | Full data type definition for GreengrassConnectorDefinitionVersion. See --- 'greengrassConnectorDefinitionVersion' for a more convenient constructor. -data GreengrassConnectorDefinitionVersion = - GreengrassConnectorDefinitionVersion - { _greengrassConnectorDefinitionVersionConnectorDefinitionId :: Val Text - , _greengrassConnectorDefinitionVersionConnectors :: [GreengrassConnectorDefinitionVersionConnector] - } deriving (Show, Eq) - -instance ToResourceProperties GreengrassConnectorDefinitionVersion where - toResourceProperties GreengrassConnectorDefinitionVersion{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Greengrass::ConnectorDefinitionVersion" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ConnectorDefinitionId",) . toJSON) _greengrassConnectorDefinitionVersionConnectorDefinitionId - , (Just . ("Connectors",) . toJSON) _greengrassConnectorDefinitionVersionConnectors - ] - } - --- | Constructor for 'GreengrassConnectorDefinitionVersion' containing --- required fields as arguments. -greengrassConnectorDefinitionVersion - :: Val Text -- ^ 'gcdvConnectorDefinitionId' - -> [GreengrassConnectorDefinitionVersionConnector] -- ^ 'gcdvConnectors' - -> GreengrassConnectorDefinitionVersion -greengrassConnectorDefinitionVersion connectorDefinitionIdarg connectorsarg = - GreengrassConnectorDefinitionVersion - { _greengrassConnectorDefinitionVersionConnectorDefinitionId = connectorDefinitionIdarg - , _greengrassConnectorDefinitionVersionConnectors = connectorsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-connectordefinitionversion.html#cfn-greengrass-connectordefinitionversion-connectordefinitionid -gcdvConnectorDefinitionId :: Lens' GreengrassConnectorDefinitionVersion (Val Text) -gcdvConnectorDefinitionId = lens _greengrassConnectorDefinitionVersionConnectorDefinitionId (\s a -> s { _greengrassConnectorDefinitionVersionConnectorDefinitionId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-connectordefinitionversion.html#cfn-greengrass-connectordefinitionversion-connectors -gcdvConnectors :: Lens' GreengrassConnectorDefinitionVersion [GreengrassConnectorDefinitionVersionConnector] -gcdvConnectors = lens _greengrassConnectorDefinitionVersionConnectors (\s a -> s { _greengrassConnectorDefinitionVersionConnectors = a }) diff --git a/library-gen/Stratosphere/Resources/GreengrassCoreDefinition.hs b/library-gen/Stratosphere/Resources/GreengrassCoreDefinition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GreengrassCoreDefinition.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-coredefinition.html - -module Stratosphere.Resources.GreengrassCoreDefinition where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassCoreDefinitionCoreDefinitionVersion - --- | Full data type definition for GreengrassCoreDefinition. See --- 'greengrassCoreDefinition' for a more convenient constructor. -data GreengrassCoreDefinition = - GreengrassCoreDefinition - { _greengrassCoreDefinitionInitialVersion :: Maybe GreengrassCoreDefinitionCoreDefinitionVersion - , _greengrassCoreDefinitionName :: Val Text - , _greengrassCoreDefinitionTags :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties GreengrassCoreDefinition where - toResourceProperties GreengrassCoreDefinition{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Greengrass::CoreDefinition" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("InitialVersion",) . toJSON) _greengrassCoreDefinitionInitialVersion - , (Just . ("Name",) . toJSON) _greengrassCoreDefinitionName - , fmap (("Tags",) . toJSON) _greengrassCoreDefinitionTags - ] - } - --- | Constructor for 'GreengrassCoreDefinition' containing required fields as --- arguments. -greengrassCoreDefinition - :: Val Text -- ^ 'gcdrName' - -> GreengrassCoreDefinition -greengrassCoreDefinition namearg = - GreengrassCoreDefinition - { _greengrassCoreDefinitionInitialVersion = Nothing - , _greengrassCoreDefinitionName = namearg - , _greengrassCoreDefinitionTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-coredefinition.html#cfn-greengrass-coredefinition-initialversion -gcdrInitialVersion :: Lens' GreengrassCoreDefinition (Maybe GreengrassCoreDefinitionCoreDefinitionVersion) -gcdrInitialVersion = lens _greengrassCoreDefinitionInitialVersion (\s a -> s { _greengrassCoreDefinitionInitialVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-coredefinition.html#cfn-greengrass-coredefinition-name -gcdrName :: Lens' GreengrassCoreDefinition (Val Text) -gcdrName = lens _greengrassCoreDefinitionName (\s a -> s { _greengrassCoreDefinitionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-coredefinition.html#cfn-greengrass-coredefinition-tags -gcdrTags :: Lens' GreengrassCoreDefinition (Maybe Object) -gcdrTags = lens _greengrassCoreDefinitionTags (\s a -> s { _greengrassCoreDefinitionTags = a }) diff --git a/library-gen/Stratosphere/Resources/GreengrassCoreDefinitionVersion.hs b/library-gen/Stratosphere/Resources/GreengrassCoreDefinitionVersion.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GreengrassCoreDefinitionVersion.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-coredefinitionversion.html - -module Stratosphere.Resources.GreengrassCoreDefinitionVersion where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassCoreDefinitionVersionCore - --- | Full data type definition for GreengrassCoreDefinitionVersion. See --- 'greengrassCoreDefinitionVersion' for a more convenient constructor. -data GreengrassCoreDefinitionVersion = - GreengrassCoreDefinitionVersion - { _greengrassCoreDefinitionVersionCoreDefinitionId :: Val Text - , _greengrassCoreDefinitionVersionCores :: [GreengrassCoreDefinitionVersionCore] - } deriving (Show, Eq) - -instance ToResourceProperties GreengrassCoreDefinitionVersion where - toResourceProperties GreengrassCoreDefinitionVersion{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Greengrass::CoreDefinitionVersion" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("CoreDefinitionId",) . toJSON) _greengrassCoreDefinitionVersionCoreDefinitionId - , (Just . ("Cores",) . toJSON) _greengrassCoreDefinitionVersionCores - ] - } - --- | Constructor for 'GreengrassCoreDefinitionVersion' containing required --- fields as arguments. -greengrassCoreDefinitionVersion - :: Val Text -- ^ 'gcdvCoreDefinitionId' - -> [GreengrassCoreDefinitionVersionCore] -- ^ 'gcdvCores' - -> GreengrassCoreDefinitionVersion -greengrassCoreDefinitionVersion coreDefinitionIdarg coresarg = - GreengrassCoreDefinitionVersion - { _greengrassCoreDefinitionVersionCoreDefinitionId = coreDefinitionIdarg - , _greengrassCoreDefinitionVersionCores = coresarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-coredefinitionversion.html#cfn-greengrass-coredefinitionversion-coredefinitionid -gcdvCoreDefinitionId :: Lens' GreengrassCoreDefinitionVersion (Val Text) -gcdvCoreDefinitionId = lens _greengrassCoreDefinitionVersionCoreDefinitionId (\s a -> s { _greengrassCoreDefinitionVersionCoreDefinitionId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-coredefinitionversion.html#cfn-greengrass-coredefinitionversion-cores -gcdvCores :: Lens' GreengrassCoreDefinitionVersion [GreengrassCoreDefinitionVersionCore] -gcdvCores = lens _greengrassCoreDefinitionVersionCores (\s a -> s { _greengrassCoreDefinitionVersionCores = a }) diff --git a/library-gen/Stratosphere/Resources/GreengrassDeviceDefinition.hs b/library-gen/Stratosphere/Resources/GreengrassDeviceDefinition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GreengrassDeviceDefinition.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-devicedefinition.html - -module Stratosphere.Resources.GreengrassDeviceDefinition where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassDeviceDefinitionDeviceDefinitionVersion - --- | Full data type definition for GreengrassDeviceDefinition. See --- 'greengrassDeviceDefinition' for a more convenient constructor. -data GreengrassDeviceDefinition = - GreengrassDeviceDefinition - { _greengrassDeviceDefinitionInitialVersion :: Maybe GreengrassDeviceDefinitionDeviceDefinitionVersion - , _greengrassDeviceDefinitionName :: Val Text - , _greengrassDeviceDefinitionTags :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties GreengrassDeviceDefinition where - toResourceProperties GreengrassDeviceDefinition{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Greengrass::DeviceDefinition" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("InitialVersion",) . toJSON) _greengrassDeviceDefinitionInitialVersion - , (Just . ("Name",) . toJSON) _greengrassDeviceDefinitionName - , fmap (("Tags",) . toJSON) _greengrassDeviceDefinitionTags - ] - } - --- | Constructor for 'GreengrassDeviceDefinition' containing required fields --- as arguments. -greengrassDeviceDefinition - :: Val Text -- ^ 'gddName' - -> GreengrassDeviceDefinition -greengrassDeviceDefinition namearg = - GreengrassDeviceDefinition - { _greengrassDeviceDefinitionInitialVersion = Nothing - , _greengrassDeviceDefinitionName = namearg - , _greengrassDeviceDefinitionTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-devicedefinition.html#cfn-greengrass-devicedefinition-initialversion -gddInitialVersion :: Lens' GreengrassDeviceDefinition (Maybe GreengrassDeviceDefinitionDeviceDefinitionVersion) -gddInitialVersion = lens _greengrassDeviceDefinitionInitialVersion (\s a -> s { _greengrassDeviceDefinitionInitialVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-devicedefinition.html#cfn-greengrass-devicedefinition-name -gddName :: Lens' GreengrassDeviceDefinition (Val Text) -gddName = lens _greengrassDeviceDefinitionName (\s a -> s { _greengrassDeviceDefinitionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-devicedefinition.html#cfn-greengrass-devicedefinition-tags -gddTags :: Lens' GreengrassDeviceDefinition (Maybe Object) -gddTags = lens _greengrassDeviceDefinitionTags (\s a -> s { _greengrassDeviceDefinitionTags = a }) diff --git a/library-gen/Stratosphere/Resources/GreengrassDeviceDefinitionVersion.hs b/library-gen/Stratosphere/Resources/GreengrassDeviceDefinitionVersion.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GreengrassDeviceDefinitionVersion.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-devicedefinitionversion.html - -module Stratosphere.Resources.GreengrassDeviceDefinitionVersion where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassDeviceDefinitionVersionDevice - --- | Full data type definition for GreengrassDeviceDefinitionVersion. See --- 'greengrassDeviceDefinitionVersion' for a more convenient constructor. -data GreengrassDeviceDefinitionVersion = - GreengrassDeviceDefinitionVersion - { _greengrassDeviceDefinitionVersionDeviceDefinitionId :: Val Text - , _greengrassDeviceDefinitionVersionDevices :: [GreengrassDeviceDefinitionVersionDevice] - } deriving (Show, Eq) - -instance ToResourceProperties GreengrassDeviceDefinitionVersion where - toResourceProperties GreengrassDeviceDefinitionVersion{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Greengrass::DeviceDefinitionVersion" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("DeviceDefinitionId",) . toJSON) _greengrassDeviceDefinitionVersionDeviceDefinitionId - , (Just . ("Devices",) . toJSON) _greengrassDeviceDefinitionVersionDevices - ] - } - --- | Constructor for 'GreengrassDeviceDefinitionVersion' containing required --- fields as arguments. -greengrassDeviceDefinitionVersion - :: Val Text -- ^ 'gddvDeviceDefinitionId' - -> [GreengrassDeviceDefinitionVersionDevice] -- ^ 'gddvDevices' - -> GreengrassDeviceDefinitionVersion -greengrassDeviceDefinitionVersion deviceDefinitionIdarg devicesarg = - GreengrassDeviceDefinitionVersion - { _greengrassDeviceDefinitionVersionDeviceDefinitionId = deviceDefinitionIdarg - , _greengrassDeviceDefinitionVersionDevices = devicesarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-devicedefinitionversion.html#cfn-greengrass-devicedefinitionversion-devicedefinitionid -gddvDeviceDefinitionId :: Lens' GreengrassDeviceDefinitionVersion (Val Text) -gddvDeviceDefinitionId = lens _greengrassDeviceDefinitionVersionDeviceDefinitionId (\s a -> s { _greengrassDeviceDefinitionVersionDeviceDefinitionId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-devicedefinitionversion.html#cfn-greengrass-devicedefinitionversion-devices -gddvDevices :: Lens' GreengrassDeviceDefinitionVersion [GreengrassDeviceDefinitionVersionDevice] -gddvDevices = lens _greengrassDeviceDefinitionVersionDevices (\s a -> s { _greengrassDeviceDefinitionVersionDevices = a }) diff --git a/library-gen/Stratosphere/Resources/GreengrassFunctionDefinition.hs b/library-gen/Stratosphere/Resources/GreengrassFunctionDefinition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GreengrassFunctionDefinition.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-functiondefinition.html - -module Stratosphere.Resources.GreengrassFunctionDefinition where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionFunctionDefinitionVersion - --- | Full data type definition for GreengrassFunctionDefinition. See --- 'greengrassFunctionDefinition' for a more convenient constructor. -data GreengrassFunctionDefinition = - GreengrassFunctionDefinition - { _greengrassFunctionDefinitionInitialVersion :: Maybe GreengrassFunctionDefinitionFunctionDefinitionVersion - , _greengrassFunctionDefinitionName :: Val Text - , _greengrassFunctionDefinitionTags :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties GreengrassFunctionDefinition where - toResourceProperties GreengrassFunctionDefinition{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Greengrass::FunctionDefinition" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("InitialVersion",) . toJSON) _greengrassFunctionDefinitionInitialVersion - , (Just . ("Name",) . toJSON) _greengrassFunctionDefinitionName - , fmap (("Tags",) . toJSON) _greengrassFunctionDefinitionTags - ] - } - --- | Constructor for 'GreengrassFunctionDefinition' containing required fields --- as arguments. -greengrassFunctionDefinition - :: Val Text -- ^ 'gfdName' - -> GreengrassFunctionDefinition -greengrassFunctionDefinition namearg = - GreengrassFunctionDefinition - { _greengrassFunctionDefinitionInitialVersion = Nothing - , _greengrassFunctionDefinitionName = namearg - , _greengrassFunctionDefinitionTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-functiondefinition.html#cfn-greengrass-functiondefinition-initialversion -gfdInitialVersion :: Lens' GreengrassFunctionDefinition (Maybe GreengrassFunctionDefinitionFunctionDefinitionVersion) -gfdInitialVersion = lens _greengrassFunctionDefinitionInitialVersion (\s a -> s { _greengrassFunctionDefinitionInitialVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-functiondefinition.html#cfn-greengrass-functiondefinition-name -gfdName :: Lens' GreengrassFunctionDefinition (Val Text) -gfdName = lens _greengrassFunctionDefinitionName (\s a -> s { _greengrassFunctionDefinitionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-functiondefinition.html#cfn-greengrass-functiondefinition-tags -gfdTags :: Lens' GreengrassFunctionDefinition (Maybe Object) -gfdTags = lens _greengrassFunctionDefinitionTags (\s a -> s { _greengrassFunctionDefinitionTags = a }) diff --git a/library-gen/Stratosphere/Resources/GreengrassFunctionDefinitionVersion.hs b/library-gen/Stratosphere/Resources/GreengrassFunctionDefinitionVersion.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GreengrassFunctionDefinitionVersion.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-functiondefinitionversion.html - -module Stratosphere.Resources.GreengrassFunctionDefinitionVersion where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionVersionDefaultConfig -import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionVersionFunction - --- | Full data type definition for GreengrassFunctionDefinitionVersion. See --- 'greengrassFunctionDefinitionVersion' for a more convenient constructor. -data GreengrassFunctionDefinitionVersion = - GreengrassFunctionDefinitionVersion - { _greengrassFunctionDefinitionVersionDefaultConfig :: Maybe GreengrassFunctionDefinitionVersionDefaultConfig - , _greengrassFunctionDefinitionVersionFunctionDefinitionId :: Val Text - , _greengrassFunctionDefinitionVersionFunctions :: [GreengrassFunctionDefinitionVersionFunction] - } deriving (Show, Eq) - -instance ToResourceProperties GreengrassFunctionDefinitionVersion where - toResourceProperties GreengrassFunctionDefinitionVersion{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Greengrass::FunctionDefinitionVersion" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("DefaultConfig",) . toJSON) _greengrassFunctionDefinitionVersionDefaultConfig - , (Just . ("FunctionDefinitionId",) . toJSON) _greengrassFunctionDefinitionVersionFunctionDefinitionId - , (Just . ("Functions",) . toJSON) _greengrassFunctionDefinitionVersionFunctions - ] - } - --- | Constructor for 'GreengrassFunctionDefinitionVersion' containing required --- fields as arguments. -greengrassFunctionDefinitionVersion - :: Val Text -- ^ 'gfdvFunctionDefinitionId' - -> [GreengrassFunctionDefinitionVersionFunction] -- ^ 'gfdvFunctions' - -> GreengrassFunctionDefinitionVersion -greengrassFunctionDefinitionVersion functionDefinitionIdarg functionsarg = - GreengrassFunctionDefinitionVersion - { _greengrassFunctionDefinitionVersionDefaultConfig = Nothing - , _greengrassFunctionDefinitionVersionFunctionDefinitionId = functionDefinitionIdarg - , _greengrassFunctionDefinitionVersionFunctions = functionsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-functiondefinitionversion.html#cfn-greengrass-functiondefinitionversion-defaultconfig -gfdvDefaultConfig :: Lens' GreengrassFunctionDefinitionVersion (Maybe GreengrassFunctionDefinitionVersionDefaultConfig) -gfdvDefaultConfig = lens _greengrassFunctionDefinitionVersionDefaultConfig (\s a -> s { _greengrassFunctionDefinitionVersionDefaultConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-functiondefinitionversion.html#cfn-greengrass-functiondefinitionversion-functiondefinitionid -gfdvFunctionDefinitionId :: Lens' GreengrassFunctionDefinitionVersion (Val Text) -gfdvFunctionDefinitionId = lens _greengrassFunctionDefinitionVersionFunctionDefinitionId (\s a -> s { _greengrassFunctionDefinitionVersionFunctionDefinitionId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-functiondefinitionversion.html#cfn-greengrass-functiondefinitionversion-functions -gfdvFunctions :: Lens' GreengrassFunctionDefinitionVersion [GreengrassFunctionDefinitionVersionFunction] -gfdvFunctions = lens _greengrassFunctionDefinitionVersionFunctions (\s a -> s { _greengrassFunctionDefinitionVersionFunctions = a }) diff --git a/library-gen/Stratosphere/Resources/GreengrassGroup.hs b/library-gen/Stratosphere/Resources/GreengrassGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GreengrassGroup.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-group.html - -module Stratosphere.Resources.GreengrassGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassGroupGroupVersion - --- | Full data type definition for GreengrassGroup. See 'greengrassGroup' for --- a more convenient constructor. -data GreengrassGroup = - GreengrassGroup - { _greengrassGroupInitialVersion :: Maybe GreengrassGroupGroupVersion - , _greengrassGroupName :: Val Text - , _greengrassGroupRoleArn :: Maybe (Val Text) - , _greengrassGroupTags :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties GreengrassGroup where - toResourceProperties GreengrassGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Greengrass::Group" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("InitialVersion",) . toJSON) _greengrassGroupInitialVersion - , (Just . ("Name",) . toJSON) _greengrassGroupName - , fmap (("RoleArn",) . toJSON) _greengrassGroupRoleArn - , fmap (("Tags",) . toJSON) _greengrassGroupTags - ] - } - --- | Constructor for 'GreengrassGroup' containing required fields as --- arguments. -greengrassGroup - :: Val Text -- ^ 'ggName' - -> GreengrassGroup -greengrassGroup namearg = - GreengrassGroup - { _greengrassGroupInitialVersion = Nothing - , _greengrassGroupName = namearg - , _greengrassGroupRoleArn = Nothing - , _greengrassGroupTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-group.html#cfn-greengrass-group-initialversion -ggInitialVersion :: Lens' GreengrassGroup (Maybe GreengrassGroupGroupVersion) -ggInitialVersion = lens _greengrassGroupInitialVersion (\s a -> s { _greengrassGroupInitialVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-group.html#cfn-greengrass-group-name -ggName :: Lens' GreengrassGroup (Val Text) -ggName = lens _greengrassGroupName (\s a -> s { _greengrassGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-group.html#cfn-greengrass-group-rolearn -ggRoleArn :: Lens' GreengrassGroup (Maybe (Val Text)) -ggRoleArn = lens _greengrassGroupRoleArn (\s a -> s { _greengrassGroupRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-group.html#cfn-greengrass-group-tags -ggTags :: Lens' GreengrassGroup (Maybe Object) -ggTags = lens _greengrassGroupTags (\s a -> s { _greengrassGroupTags = a }) diff --git a/library-gen/Stratosphere/Resources/GreengrassGroupVersion.hs b/library-gen/Stratosphere/Resources/GreengrassGroupVersion.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GreengrassGroupVersion.hs +++ /dev/null @@ -1,91 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-groupversion.html - -module Stratosphere.Resources.GreengrassGroupVersion where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GreengrassGroupVersion. See --- 'greengrassGroupVersion' for a more convenient constructor. -data GreengrassGroupVersion = - GreengrassGroupVersion - { _greengrassGroupVersionConnectorDefinitionVersionArn :: Maybe (Val Text) - , _greengrassGroupVersionCoreDefinitionVersionArn :: Maybe (Val Text) - , _greengrassGroupVersionDeviceDefinitionVersionArn :: Maybe (Val Text) - , _greengrassGroupVersionFunctionDefinitionVersionArn :: Maybe (Val Text) - , _greengrassGroupVersionGroupId :: Val Text - , _greengrassGroupVersionLoggerDefinitionVersionArn :: Maybe (Val Text) - , _greengrassGroupVersionResourceDefinitionVersionArn :: Maybe (Val Text) - , _greengrassGroupVersionSubscriptionDefinitionVersionArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties GreengrassGroupVersion where - toResourceProperties GreengrassGroupVersion{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Greengrass::GroupVersion" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ConnectorDefinitionVersionArn",) . toJSON) _greengrassGroupVersionConnectorDefinitionVersionArn - , fmap (("CoreDefinitionVersionArn",) . toJSON) _greengrassGroupVersionCoreDefinitionVersionArn - , fmap (("DeviceDefinitionVersionArn",) . toJSON) _greengrassGroupVersionDeviceDefinitionVersionArn - , fmap (("FunctionDefinitionVersionArn",) . toJSON) _greengrassGroupVersionFunctionDefinitionVersionArn - , (Just . ("GroupId",) . toJSON) _greengrassGroupVersionGroupId - , fmap (("LoggerDefinitionVersionArn",) . toJSON) _greengrassGroupVersionLoggerDefinitionVersionArn - , fmap (("ResourceDefinitionVersionArn",) . toJSON) _greengrassGroupVersionResourceDefinitionVersionArn - , fmap (("SubscriptionDefinitionVersionArn",) . toJSON) _greengrassGroupVersionSubscriptionDefinitionVersionArn - ] - } - --- | Constructor for 'GreengrassGroupVersion' containing required fields as --- arguments. -greengrassGroupVersion - :: Val Text -- ^ 'ggvGroupId' - -> GreengrassGroupVersion -greengrassGroupVersion groupIdarg = - GreengrassGroupVersion - { _greengrassGroupVersionConnectorDefinitionVersionArn = Nothing - , _greengrassGroupVersionCoreDefinitionVersionArn = Nothing - , _greengrassGroupVersionDeviceDefinitionVersionArn = Nothing - , _greengrassGroupVersionFunctionDefinitionVersionArn = Nothing - , _greengrassGroupVersionGroupId = groupIdarg - , _greengrassGroupVersionLoggerDefinitionVersionArn = Nothing - , _greengrassGroupVersionResourceDefinitionVersionArn = Nothing - , _greengrassGroupVersionSubscriptionDefinitionVersionArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-groupversion.html#cfn-greengrass-groupversion-connectordefinitionversionarn -ggvConnectorDefinitionVersionArn :: Lens' GreengrassGroupVersion (Maybe (Val Text)) -ggvConnectorDefinitionVersionArn = lens _greengrassGroupVersionConnectorDefinitionVersionArn (\s a -> s { _greengrassGroupVersionConnectorDefinitionVersionArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-groupversion.html#cfn-greengrass-groupversion-coredefinitionversionarn -ggvCoreDefinitionVersionArn :: Lens' GreengrassGroupVersion (Maybe (Val Text)) -ggvCoreDefinitionVersionArn = lens _greengrassGroupVersionCoreDefinitionVersionArn (\s a -> s { _greengrassGroupVersionCoreDefinitionVersionArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-groupversion.html#cfn-greengrass-groupversion-devicedefinitionversionarn -ggvDeviceDefinitionVersionArn :: Lens' GreengrassGroupVersion (Maybe (Val Text)) -ggvDeviceDefinitionVersionArn = lens _greengrassGroupVersionDeviceDefinitionVersionArn (\s a -> s { _greengrassGroupVersionDeviceDefinitionVersionArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-groupversion.html#cfn-greengrass-groupversion-functiondefinitionversionarn -ggvFunctionDefinitionVersionArn :: Lens' GreengrassGroupVersion (Maybe (Val Text)) -ggvFunctionDefinitionVersionArn = lens _greengrassGroupVersionFunctionDefinitionVersionArn (\s a -> s { _greengrassGroupVersionFunctionDefinitionVersionArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-groupversion.html#cfn-greengrass-groupversion-groupid -ggvGroupId :: Lens' GreengrassGroupVersion (Val Text) -ggvGroupId = lens _greengrassGroupVersionGroupId (\s a -> s { _greengrassGroupVersionGroupId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-groupversion.html#cfn-greengrass-groupversion-loggerdefinitionversionarn -ggvLoggerDefinitionVersionArn :: Lens' GreengrassGroupVersion (Maybe (Val Text)) -ggvLoggerDefinitionVersionArn = lens _greengrassGroupVersionLoggerDefinitionVersionArn (\s a -> s { _greengrassGroupVersionLoggerDefinitionVersionArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-groupversion.html#cfn-greengrass-groupversion-resourcedefinitionversionarn -ggvResourceDefinitionVersionArn :: Lens' GreengrassGroupVersion (Maybe (Val Text)) -ggvResourceDefinitionVersionArn = lens _greengrassGroupVersionResourceDefinitionVersionArn (\s a -> s { _greengrassGroupVersionResourceDefinitionVersionArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-groupversion.html#cfn-greengrass-groupversion-subscriptiondefinitionversionarn -ggvSubscriptionDefinitionVersionArn :: Lens' GreengrassGroupVersion (Maybe (Val Text)) -ggvSubscriptionDefinitionVersionArn = lens _greengrassGroupVersionSubscriptionDefinitionVersionArn (\s a -> s { _greengrassGroupVersionSubscriptionDefinitionVersionArn = a }) diff --git a/library-gen/Stratosphere/Resources/GreengrassLoggerDefinition.hs b/library-gen/Stratosphere/Resources/GreengrassLoggerDefinition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GreengrassLoggerDefinition.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-loggerdefinition.html - -module Stratosphere.Resources.GreengrassLoggerDefinition where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassLoggerDefinitionLoggerDefinitionVersion - --- | Full data type definition for GreengrassLoggerDefinition. See --- 'greengrassLoggerDefinition' for a more convenient constructor. -data GreengrassLoggerDefinition = - GreengrassLoggerDefinition - { _greengrassLoggerDefinitionInitialVersion :: Maybe GreengrassLoggerDefinitionLoggerDefinitionVersion - , _greengrassLoggerDefinitionName :: Val Text - , _greengrassLoggerDefinitionTags :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties GreengrassLoggerDefinition where - toResourceProperties GreengrassLoggerDefinition{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Greengrass::LoggerDefinition" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("InitialVersion",) . toJSON) _greengrassLoggerDefinitionInitialVersion - , (Just . ("Name",) . toJSON) _greengrassLoggerDefinitionName - , fmap (("Tags",) . toJSON) _greengrassLoggerDefinitionTags - ] - } - --- | Constructor for 'GreengrassLoggerDefinition' containing required fields --- as arguments. -greengrassLoggerDefinition - :: Val Text -- ^ 'gldName' - -> GreengrassLoggerDefinition -greengrassLoggerDefinition namearg = - GreengrassLoggerDefinition - { _greengrassLoggerDefinitionInitialVersion = Nothing - , _greengrassLoggerDefinitionName = namearg - , _greengrassLoggerDefinitionTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-loggerdefinition.html#cfn-greengrass-loggerdefinition-initialversion -gldInitialVersion :: Lens' GreengrassLoggerDefinition (Maybe GreengrassLoggerDefinitionLoggerDefinitionVersion) -gldInitialVersion = lens _greengrassLoggerDefinitionInitialVersion (\s a -> s { _greengrassLoggerDefinitionInitialVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-loggerdefinition.html#cfn-greengrass-loggerdefinition-name -gldName :: Lens' GreengrassLoggerDefinition (Val Text) -gldName = lens _greengrassLoggerDefinitionName (\s a -> s { _greengrassLoggerDefinitionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-loggerdefinition.html#cfn-greengrass-loggerdefinition-tags -gldTags :: Lens' GreengrassLoggerDefinition (Maybe Object) -gldTags = lens _greengrassLoggerDefinitionTags (\s a -> s { _greengrassLoggerDefinitionTags = a }) diff --git a/library-gen/Stratosphere/Resources/GreengrassLoggerDefinitionVersion.hs b/library-gen/Stratosphere/Resources/GreengrassLoggerDefinitionVersion.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GreengrassLoggerDefinitionVersion.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-loggerdefinitionversion.html - -module Stratosphere.Resources.GreengrassLoggerDefinitionVersion where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassLoggerDefinitionVersionLogger - --- | Full data type definition for GreengrassLoggerDefinitionVersion. See --- 'greengrassLoggerDefinitionVersion' for a more convenient constructor. -data GreengrassLoggerDefinitionVersion = - GreengrassLoggerDefinitionVersion - { _greengrassLoggerDefinitionVersionLoggerDefinitionId :: Val Text - , _greengrassLoggerDefinitionVersionLoggers :: [GreengrassLoggerDefinitionVersionLogger] - } deriving (Show, Eq) - -instance ToResourceProperties GreengrassLoggerDefinitionVersion where - toResourceProperties GreengrassLoggerDefinitionVersion{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Greengrass::LoggerDefinitionVersion" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("LoggerDefinitionId",) . toJSON) _greengrassLoggerDefinitionVersionLoggerDefinitionId - , (Just . ("Loggers",) . toJSON) _greengrassLoggerDefinitionVersionLoggers - ] - } - --- | Constructor for 'GreengrassLoggerDefinitionVersion' containing required --- fields as arguments. -greengrassLoggerDefinitionVersion - :: Val Text -- ^ 'gldvLoggerDefinitionId' - -> [GreengrassLoggerDefinitionVersionLogger] -- ^ 'gldvLoggers' - -> GreengrassLoggerDefinitionVersion -greengrassLoggerDefinitionVersion loggerDefinitionIdarg loggersarg = - GreengrassLoggerDefinitionVersion - { _greengrassLoggerDefinitionVersionLoggerDefinitionId = loggerDefinitionIdarg - , _greengrassLoggerDefinitionVersionLoggers = loggersarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-loggerdefinitionversion.html#cfn-greengrass-loggerdefinitionversion-loggerdefinitionid -gldvLoggerDefinitionId :: Lens' GreengrassLoggerDefinitionVersion (Val Text) -gldvLoggerDefinitionId = lens _greengrassLoggerDefinitionVersionLoggerDefinitionId (\s a -> s { _greengrassLoggerDefinitionVersionLoggerDefinitionId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-loggerdefinitionversion.html#cfn-greengrass-loggerdefinitionversion-loggers -gldvLoggers :: Lens' GreengrassLoggerDefinitionVersion [GreengrassLoggerDefinitionVersionLogger] -gldvLoggers = lens _greengrassLoggerDefinitionVersionLoggers (\s a -> s { _greengrassLoggerDefinitionVersionLoggers = a }) diff --git a/library-gen/Stratosphere/Resources/GreengrassResourceDefinition.hs b/library-gen/Stratosphere/Resources/GreengrassResourceDefinition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GreengrassResourceDefinition.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-resourcedefinition.html - -module Stratosphere.Resources.GreengrassResourceDefinition where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionResourceDefinitionVersion - --- | Full data type definition for GreengrassResourceDefinition. See --- 'greengrassResourceDefinition' for a more convenient constructor. -data GreengrassResourceDefinition = - GreengrassResourceDefinition - { _greengrassResourceDefinitionInitialVersion :: Maybe GreengrassResourceDefinitionResourceDefinitionVersion - , _greengrassResourceDefinitionName :: Val Text - , _greengrassResourceDefinitionTags :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties GreengrassResourceDefinition where - toResourceProperties GreengrassResourceDefinition{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Greengrass::ResourceDefinition" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("InitialVersion",) . toJSON) _greengrassResourceDefinitionInitialVersion - , (Just . ("Name",) . toJSON) _greengrassResourceDefinitionName - , fmap (("Tags",) . toJSON) _greengrassResourceDefinitionTags - ] - } - --- | Constructor for 'GreengrassResourceDefinition' containing required fields --- as arguments. -greengrassResourceDefinition - :: Val Text -- ^ 'grdName' - -> GreengrassResourceDefinition -greengrassResourceDefinition namearg = - GreengrassResourceDefinition - { _greengrassResourceDefinitionInitialVersion = Nothing - , _greengrassResourceDefinitionName = namearg - , _greengrassResourceDefinitionTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-resourcedefinition.html#cfn-greengrass-resourcedefinition-initialversion -grdInitialVersion :: Lens' GreengrassResourceDefinition (Maybe GreengrassResourceDefinitionResourceDefinitionVersion) -grdInitialVersion = lens _greengrassResourceDefinitionInitialVersion (\s a -> s { _greengrassResourceDefinitionInitialVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-resourcedefinition.html#cfn-greengrass-resourcedefinition-name -grdName :: Lens' GreengrassResourceDefinition (Val Text) -grdName = lens _greengrassResourceDefinitionName (\s a -> s { _greengrassResourceDefinitionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-resourcedefinition.html#cfn-greengrass-resourcedefinition-tags -grdTags :: Lens' GreengrassResourceDefinition (Maybe Object) -grdTags = lens _greengrassResourceDefinitionTags (\s a -> s { _greengrassResourceDefinitionTags = a }) diff --git a/library-gen/Stratosphere/Resources/GreengrassResourceDefinitionVersion.hs b/library-gen/Stratosphere/Resources/GreengrassResourceDefinitionVersion.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GreengrassResourceDefinitionVersion.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-resourcedefinitionversion.html - -module Stratosphere.Resources.GreengrassResourceDefinitionVersion where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionResourceInstance - --- | Full data type definition for GreengrassResourceDefinitionVersion. See --- 'greengrassResourceDefinitionVersion' for a more convenient constructor. -data GreengrassResourceDefinitionVersion = - GreengrassResourceDefinitionVersion - { _greengrassResourceDefinitionVersionResourceDefinitionId :: Val Text - , _greengrassResourceDefinitionVersionResources :: [GreengrassResourceDefinitionVersionResourceInstance] - } deriving (Show, Eq) - -instance ToResourceProperties GreengrassResourceDefinitionVersion where - toResourceProperties GreengrassResourceDefinitionVersion{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Greengrass::ResourceDefinitionVersion" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ResourceDefinitionId",) . toJSON) _greengrassResourceDefinitionVersionResourceDefinitionId - , (Just . ("Resources",) . toJSON) _greengrassResourceDefinitionVersionResources - ] - } - --- | Constructor for 'GreengrassResourceDefinitionVersion' containing required --- fields as arguments. -greengrassResourceDefinitionVersion - :: Val Text -- ^ 'grdvResourceDefinitionId' - -> [GreengrassResourceDefinitionVersionResourceInstance] -- ^ 'grdvResources' - -> GreengrassResourceDefinitionVersion -greengrassResourceDefinitionVersion resourceDefinitionIdarg resourcesarg = - GreengrassResourceDefinitionVersion - { _greengrassResourceDefinitionVersionResourceDefinitionId = resourceDefinitionIdarg - , _greengrassResourceDefinitionVersionResources = resourcesarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-resourcedefinitionversion.html#cfn-greengrass-resourcedefinitionversion-resourcedefinitionid -grdvResourceDefinitionId :: Lens' GreengrassResourceDefinitionVersion (Val Text) -grdvResourceDefinitionId = lens _greengrassResourceDefinitionVersionResourceDefinitionId (\s a -> s { _greengrassResourceDefinitionVersionResourceDefinitionId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-resourcedefinitionversion.html#cfn-greengrass-resourcedefinitionversion-resources -grdvResources :: Lens' GreengrassResourceDefinitionVersion [GreengrassResourceDefinitionVersionResourceInstance] -grdvResources = lens _greengrassResourceDefinitionVersionResources (\s a -> s { _greengrassResourceDefinitionVersionResources = a }) diff --git a/library-gen/Stratosphere/Resources/GreengrassSubscriptionDefinition.hs b/library-gen/Stratosphere/Resources/GreengrassSubscriptionDefinition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GreengrassSubscriptionDefinition.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-subscriptiondefinition.html - -module Stratosphere.Resources.GreengrassSubscriptionDefinition where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassSubscriptionDefinitionSubscriptionDefinitionVersion - --- | Full data type definition for GreengrassSubscriptionDefinition. See --- 'greengrassSubscriptionDefinition' for a more convenient constructor. -data GreengrassSubscriptionDefinition = - GreengrassSubscriptionDefinition - { _greengrassSubscriptionDefinitionInitialVersion :: Maybe GreengrassSubscriptionDefinitionSubscriptionDefinitionVersion - , _greengrassSubscriptionDefinitionName :: Val Text - , _greengrassSubscriptionDefinitionTags :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties GreengrassSubscriptionDefinition where - toResourceProperties GreengrassSubscriptionDefinition{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Greengrass::SubscriptionDefinition" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("InitialVersion",) . toJSON) _greengrassSubscriptionDefinitionInitialVersion - , (Just . ("Name",) . toJSON) _greengrassSubscriptionDefinitionName - , fmap (("Tags",) . toJSON) _greengrassSubscriptionDefinitionTags - ] - } - --- | Constructor for 'GreengrassSubscriptionDefinition' containing required --- fields as arguments. -greengrassSubscriptionDefinition - :: Val Text -- ^ 'gsdName' - -> GreengrassSubscriptionDefinition -greengrassSubscriptionDefinition namearg = - GreengrassSubscriptionDefinition - { _greengrassSubscriptionDefinitionInitialVersion = Nothing - , _greengrassSubscriptionDefinitionName = namearg - , _greengrassSubscriptionDefinitionTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-subscriptiondefinition.html#cfn-greengrass-subscriptiondefinition-initialversion -gsdInitialVersion :: Lens' GreengrassSubscriptionDefinition (Maybe GreengrassSubscriptionDefinitionSubscriptionDefinitionVersion) -gsdInitialVersion = lens _greengrassSubscriptionDefinitionInitialVersion (\s a -> s { _greengrassSubscriptionDefinitionInitialVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-subscriptiondefinition.html#cfn-greengrass-subscriptiondefinition-name -gsdName :: Lens' GreengrassSubscriptionDefinition (Val Text) -gsdName = lens _greengrassSubscriptionDefinitionName (\s a -> s { _greengrassSubscriptionDefinitionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-subscriptiondefinition.html#cfn-greengrass-subscriptiondefinition-tags -gsdTags :: Lens' GreengrassSubscriptionDefinition (Maybe Object) -gsdTags = lens _greengrassSubscriptionDefinitionTags (\s a -> s { _greengrassSubscriptionDefinitionTags = a }) diff --git a/library-gen/Stratosphere/Resources/GreengrassSubscriptionDefinitionVersion.hs b/library-gen/Stratosphere/Resources/GreengrassSubscriptionDefinitionVersion.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GreengrassSubscriptionDefinitionVersion.hs +++ /dev/null @@ -1,51 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-subscriptiondefinitionversion.html - -module Stratosphere.Resources.GreengrassSubscriptionDefinitionVersion where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GreengrassSubscriptionDefinitionVersionSubscription - --- | Full data type definition for GreengrassSubscriptionDefinitionVersion. --- See 'greengrassSubscriptionDefinitionVersion' for a more convenient --- constructor. -data GreengrassSubscriptionDefinitionVersion = - GreengrassSubscriptionDefinitionVersion - { _greengrassSubscriptionDefinitionVersionSubscriptionDefinitionId :: Val Text - , _greengrassSubscriptionDefinitionVersionSubscriptions :: [GreengrassSubscriptionDefinitionVersionSubscription] - } deriving (Show, Eq) - -instance ToResourceProperties GreengrassSubscriptionDefinitionVersion where - toResourceProperties GreengrassSubscriptionDefinitionVersion{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Greengrass::SubscriptionDefinitionVersion" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("SubscriptionDefinitionId",) . toJSON) _greengrassSubscriptionDefinitionVersionSubscriptionDefinitionId - , (Just . ("Subscriptions",) . toJSON) _greengrassSubscriptionDefinitionVersionSubscriptions - ] - } - --- | Constructor for 'GreengrassSubscriptionDefinitionVersion' containing --- required fields as arguments. -greengrassSubscriptionDefinitionVersion - :: Val Text -- ^ 'gsdvSubscriptionDefinitionId' - -> [GreengrassSubscriptionDefinitionVersionSubscription] -- ^ 'gsdvSubscriptions' - -> GreengrassSubscriptionDefinitionVersion -greengrassSubscriptionDefinitionVersion subscriptionDefinitionIdarg subscriptionsarg = - GreengrassSubscriptionDefinitionVersion - { _greengrassSubscriptionDefinitionVersionSubscriptionDefinitionId = subscriptionDefinitionIdarg - , _greengrassSubscriptionDefinitionVersionSubscriptions = subscriptionsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-subscriptiondefinitionversion.html#cfn-greengrass-subscriptiondefinitionversion-subscriptiondefinitionid -gsdvSubscriptionDefinitionId :: Lens' GreengrassSubscriptionDefinitionVersion (Val Text) -gsdvSubscriptionDefinitionId = lens _greengrassSubscriptionDefinitionVersionSubscriptionDefinitionId (\s a -> s { _greengrassSubscriptionDefinitionVersionSubscriptionDefinitionId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-greengrass-subscriptiondefinitionversion.html#cfn-greengrass-subscriptiondefinitionversion-subscriptions -gsdvSubscriptions :: Lens' GreengrassSubscriptionDefinitionVersion [GreengrassSubscriptionDefinitionVersionSubscription] -gsdvSubscriptions = lens _greengrassSubscriptionDefinitionVersionSubscriptions (\s a -> s { _greengrassSubscriptionDefinitionVersionSubscriptions = a }) diff --git a/library-gen/Stratosphere/Resources/GuardDutyDetector.hs b/library-gen/Stratosphere/Resources/GuardDutyDetector.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GuardDutyDetector.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-detector.html - -module Stratosphere.Resources.GuardDutyDetector where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.GuardDutyDetectorCFNDataSourceConfigurations - --- | Full data type definition for GuardDutyDetector. See 'guardDutyDetector' --- for a more convenient constructor. -data GuardDutyDetector = - GuardDutyDetector - { _guardDutyDetectorDataSources :: Maybe GuardDutyDetectorCFNDataSourceConfigurations - , _guardDutyDetectorEnable :: Val Bool - , _guardDutyDetectorFindingPublishingFrequency :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties GuardDutyDetector where - toResourceProperties GuardDutyDetector{..} = - ResourceProperties - { resourcePropertiesType = "AWS::GuardDuty::Detector" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("DataSources",) . toJSON) _guardDutyDetectorDataSources - , (Just . ("Enable",) . toJSON) _guardDutyDetectorEnable - , fmap (("FindingPublishingFrequency",) . toJSON) _guardDutyDetectorFindingPublishingFrequency - ] - } - --- | Constructor for 'GuardDutyDetector' containing required fields as --- arguments. -guardDutyDetector - :: Val Bool -- ^ 'gddEnable' - -> GuardDutyDetector -guardDutyDetector enablearg = - GuardDutyDetector - { _guardDutyDetectorDataSources = Nothing - , _guardDutyDetectorEnable = enablearg - , _guardDutyDetectorFindingPublishingFrequency = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-detector.html#cfn-guardduty-detector-datasources -gddDataSources :: Lens' GuardDutyDetector (Maybe GuardDutyDetectorCFNDataSourceConfigurations) -gddDataSources = lens _guardDutyDetectorDataSources (\s a -> s { _guardDutyDetectorDataSources = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-detector.html#cfn-guardduty-detector-enable -gddEnable :: Lens' GuardDutyDetector (Val Bool) -gddEnable = lens _guardDutyDetectorEnable (\s a -> s { _guardDutyDetectorEnable = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-detector.html#cfn-guardduty-detector-findingpublishingfrequency -gddFindingPublishingFrequency :: Lens' GuardDutyDetector (Maybe (Val Text)) -gddFindingPublishingFrequency = lens _guardDutyDetectorFindingPublishingFrequency (\s a -> s { _guardDutyDetectorFindingPublishingFrequency = a }) diff --git a/library-gen/Stratosphere/Resources/GuardDutyFilter.hs b/library-gen/Stratosphere/Resources/GuardDutyFilter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GuardDutyFilter.hs +++ /dev/null @@ -1,74 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-filter.html - -module Stratosphere.Resources.GuardDutyFilter where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GuardDutyFilter. See 'guardDutyFilter' for --- a more convenient constructor. -data GuardDutyFilter = - GuardDutyFilter - { _guardDutyFilterAction :: Val Text - , _guardDutyFilterDescription :: Val Text - , _guardDutyFilterDetectorId :: Val Text - , _guardDutyFilterName :: Val Text - , _guardDutyFilterRank :: Val Integer - } deriving (Show, Eq) - -instance ToResourceProperties GuardDutyFilter where - toResourceProperties GuardDutyFilter{..} = - ResourceProperties - { resourcePropertiesType = "AWS::GuardDuty::Filter" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Action",) . toJSON) _guardDutyFilterAction - , (Just . ("Description",) . toJSON) _guardDutyFilterDescription - , (Just . ("DetectorId",) . toJSON) _guardDutyFilterDetectorId - , (Just . ("Name",) . toJSON) _guardDutyFilterName - , (Just . ("Rank",) . toJSON) _guardDutyFilterRank - ] - } - --- | Constructor for 'GuardDutyFilter' containing required fields as --- arguments. -guardDutyFilter - :: Val Text -- ^ 'gdfAction' - -> Val Text -- ^ 'gdfDescription' - -> Val Text -- ^ 'gdfDetectorId' - -> Val Text -- ^ 'gdfName' - -> Val Integer -- ^ 'gdfRank' - -> GuardDutyFilter -guardDutyFilter actionarg descriptionarg detectorIdarg namearg rankarg = - GuardDutyFilter - { _guardDutyFilterAction = actionarg - , _guardDutyFilterDescription = descriptionarg - , _guardDutyFilterDetectorId = detectorIdarg - , _guardDutyFilterName = namearg - , _guardDutyFilterRank = rankarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-filter.html#cfn-guardduty-filter-action -gdfAction :: Lens' GuardDutyFilter (Val Text) -gdfAction = lens _guardDutyFilterAction (\s a -> s { _guardDutyFilterAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-filter.html#cfn-guardduty-filter-description -gdfDescription :: Lens' GuardDutyFilter (Val Text) -gdfDescription = lens _guardDutyFilterDescription (\s a -> s { _guardDutyFilterDescription = a }) - --- | 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-name -gdfName :: Lens' GuardDutyFilter (Val Text) -gdfName = lens _guardDutyFilterName (\s a -> s { _guardDutyFilterName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-filter.html#cfn-guardduty-filter-rank -gdfRank :: Lens' GuardDutyFilter (Val Integer) -gdfRank = lens _guardDutyFilterRank (\s a -> s { _guardDutyFilterRank = a }) diff --git a/library-gen/Stratosphere/Resources/GuardDutyIPSet.hs b/library-gen/Stratosphere/Resources/GuardDutyIPSet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GuardDutyIPSet.hs +++ /dev/null @@ -1,72 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-ipset.html - -module Stratosphere.Resources.GuardDutyIPSet where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GuardDutyIPSet. See 'guardDutyIPSet' for a --- more convenient constructor. -data GuardDutyIPSet = - GuardDutyIPSet - { _guardDutyIPSetActivate :: Val Bool - , _guardDutyIPSetDetectorId :: Val Text - , _guardDutyIPSetFormat :: Val Text - , _guardDutyIPSetLocation :: Val Text - , _guardDutyIPSetName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties GuardDutyIPSet where - toResourceProperties GuardDutyIPSet{..} = - ResourceProperties - { resourcePropertiesType = "AWS::GuardDuty::IPSet" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Activate",) . toJSON) _guardDutyIPSetActivate - , (Just . ("DetectorId",) . toJSON) _guardDutyIPSetDetectorId - , (Just . ("Format",) . toJSON) _guardDutyIPSetFormat - , (Just . ("Location",) . toJSON) _guardDutyIPSetLocation - , fmap (("Name",) . toJSON) _guardDutyIPSetName - ] - } - --- | Constructor for 'GuardDutyIPSet' containing required fields as arguments. -guardDutyIPSet - :: Val Bool -- ^ 'gdipsActivate' - -> Val Text -- ^ 'gdipsDetectorId' - -> Val Text -- ^ 'gdipsFormat' - -> Val Text -- ^ 'gdipsLocation' - -> GuardDutyIPSet -guardDutyIPSet activatearg detectorIdarg formatarg locationarg = - GuardDutyIPSet - { _guardDutyIPSetActivate = activatearg - , _guardDutyIPSetDetectorId = detectorIdarg - , _guardDutyIPSetFormat = formatarg - , _guardDutyIPSetLocation = locationarg - , _guardDutyIPSetName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-ipset.html#cfn-guardduty-ipset-activate -gdipsActivate :: Lens' GuardDutyIPSet (Val Bool) -gdipsActivate = lens _guardDutyIPSetActivate (\s a -> s { _guardDutyIPSetActivate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-ipset.html#cfn-guardduty-ipset-detectorid -gdipsDetectorId :: Lens' GuardDutyIPSet (Val Text) -gdipsDetectorId = lens _guardDutyIPSetDetectorId (\s a -> s { _guardDutyIPSetDetectorId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-ipset.html#cfn-guardduty-ipset-format -gdipsFormat :: Lens' GuardDutyIPSet (Val Text) -gdipsFormat = lens _guardDutyIPSetFormat (\s a -> s { _guardDutyIPSetFormat = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-ipset.html#cfn-guardduty-ipset-location -gdipsLocation :: Lens' GuardDutyIPSet (Val Text) -gdipsLocation = lens _guardDutyIPSetLocation (\s a -> s { _guardDutyIPSetLocation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-ipset.html#cfn-guardduty-ipset-name -gdipsName :: Lens' GuardDutyIPSet (Maybe (Val Text)) -gdipsName = lens _guardDutyIPSetName (\s a -> s { _guardDutyIPSetName = a }) diff --git a/library-gen/Stratosphere/Resources/GuardDutyMaster.hs b/library-gen/Stratosphere/Resources/GuardDutyMaster.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GuardDutyMaster.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-master.html - -module Stratosphere.Resources.GuardDutyMaster where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GuardDutyMaster. See 'guardDutyMaster' for --- a more convenient constructor. -data GuardDutyMaster = - GuardDutyMaster - { _guardDutyMasterDetectorId :: Val Text - , _guardDutyMasterInvitationId :: Maybe (Val Text) - , _guardDutyMasterMasterId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties GuardDutyMaster where - toResourceProperties GuardDutyMaster{..} = - ResourceProperties - { resourcePropertiesType = "AWS::GuardDuty::Master" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("DetectorId",) . toJSON) _guardDutyMasterDetectorId - , fmap (("InvitationId",) . toJSON) _guardDutyMasterInvitationId - , (Just . ("MasterId",) . toJSON) _guardDutyMasterMasterId - ] - } - --- | Constructor for 'GuardDutyMaster' containing required fields as --- arguments. -guardDutyMaster - :: Val Text -- ^ 'gdmaDetectorId' - -> Val Text -- ^ 'gdmaMasterId' - -> GuardDutyMaster -guardDutyMaster detectorIdarg masterIdarg = - GuardDutyMaster - { _guardDutyMasterDetectorId = detectorIdarg - , _guardDutyMasterInvitationId = Nothing - , _guardDutyMasterMasterId = masterIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-master.html#cfn-guardduty-master-detectorid -gdmaDetectorId :: Lens' GuardDutyMaster (Val Text) -gdmaDetectorId = lens _guardDutyMasterDetectorId (\s a -> s { _guardDutyMasterDetectorId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-master.html#cfn-guardduty-master-invitationid -gdmaInvitationId :: Lens' GuardDutyMaster (Maybe (Val Text)) -gdmaInvitationId = lens _guardDutyMasterInvitationId (\s a -> s { _guardDutyMasterInvitationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-master.html#cfn-guardduty-master-masterid -gdmaMasterId :: Lens' GuardDutyMaster (Val Text) -gdmaMasterId = lens _guardDutyMasterMasterId (\s a -> s { _guardDutyMasterMasterId = a }) diff --git a/library-gen/Stratosphere/Resources/GuardDutyMember.hs b/library-gen/Stratosphere/Resources/GuardDutyMember.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GuardDutyMember.hs +++ /dev/null @@ -1,79 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-member.html - -module Stratosphere.Resources.GuardDutyMember where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GuardDutyMember. See 'guardDutyMember' for --- a more convenient constructor. -data GuardDutyMember = - GuardDutyMember - { _guardDutyMemberDetectorId :: Val Text - , _guardDutyMemberDisableEmailNotification :: Maybe (Val Bool) - , _guardDutyMemberEmail :: Val Text - , _guardDutyMemberMemberId :: Val Text - , _guardDutyMemberMessage :: Maybe (Val Text) - , _guardDutyMemberStatus :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties GuardDutyMember where - toResourceProperties GuardDutyMember{..} = - ResourceProperties - { resourcePropertiesType = "AWS::GuardDuty::Member" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("DetectorId",) . toJSON) _guardDutyMemberDetectorId - , fmap (("DisableEmailNotification",) . toJSON) _guardDutyMemberDisableEmailNotification - , (Just . ("Email",) . toJSON) _guardDutyMemberEmail - , (Just . ("MemberId",) . toJSON) _guardDutyMemberMemberId - , fmap (("Message",) . toJSON) _guardDutyMemberMessage - , fmap (("Status",) . toJSON) _guardDutyMemberStatus - ] - } - --- | Constructor for 'GuardDutyMember' containing required fields as --- arguments. -guardDutyMember - :: Val Text -- ^ 'gdmeDetectorId' - -> Val Text -- ^ 'gdmeEmail' - -> Val Text -- ^ 'gdmeMemberId' - -> GuardDutyMember -guardDutyMember detectorIdarg emailarg memberIdarg = - GuardDutyMember - { _guardDutyMemberDetectorId = detectorIdarg - , _guardDutyMemberDisableEmailNotification = Nothing - , _guardDutyMemberEmail = emailarg - , _guardDutyMemberMemberId = memberIdarg - , _guardDutyMemberMessage = Nothing - , _guardDutyMemberStatus = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-member.html#cfn-guardduty-member-detectorid -gdmeDetectorId :: Lens' GuardDutyMember (Val Text) -gdmeDetectorId = lens _guardDutyMemberDetectorId (\s a -> s { _guardDutyMemberDetectorId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-member.html#cfn-guardduty-member-disableemailnotification -gdmeDisableEmailNotification :: Lens' GuardDutyMember (Maybe (Val Bool)) -gdmeDisableEmailNotification = lens _guardDutyMemberDisableEmailNotification (\s a -> s { _guardDutyMemberDisableEmailNotification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-member.html#cfn-guardduty-member-email -gdmeEmail :: Lens' GuardDutyMember (Val Text) -gdmeEmail = lens _guardDutyMemberEmail (\s a -> s { _guardDutyMemberEmail = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-member.html#cfn-guardduty-member-memberid -gdmeMemberId :: Lens' GuardDutyMember (Val Text) -gdmeMemberId = lens _guardDutyMemberMemberId (\s a -> s { _guardDutyMemberMemberId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-member.html#cfn-guardduty-member-message -gdmeMessage :: Lens' GuardDutyMember (Maybe (Val Text)) -gdmeMessage = lens _guardDutyMemberMessage (\s a -> s { _guardDutyMemberMessage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-member.html#cfn-guardduty-member-status -gdmeStatus :: Lens' GuardDutyMember (Maybe (Val Text)) -gdmeStatus = lens _guardDutyMemberStatus (\s a -> s { _guardDutyMemberStatus = a }) diff --git a/library-gen/Stratosphere/Resources/GuardDutyThreatIntelSet.hs b/library-gen/Stratosphere/Resources/GuardDutyThreatIntelSet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/GuardDutyThreatIntelSet.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-threatintelset.html - -module Stratosphere.Resources.GuardDutyThreatIntelSet where - -import Stratosphere.ResourceImports - - --- | Full data type definition for GuardDutyThreatIntelSet. See --- 'guardDutyThreatIntelSet' for a more convenient constructor. -data GuardDutyThreatIntelSet = - GuardDutyThreatIntelSet - { _guardDutyThreatIntelSetActivate :: Val Bool - , _guardDutyThreatIntelSetDetectorId :: Val Text - , _guardDutyThreatIntelSetFormat :: Val Text - , _guardDutyThreatIntelSetLocation :: Val Text - , _guardDutyThreatIntelSetName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties GuardDutyThreatIntelSet where - toResourceProperties GuardDutyThreatIntelSet{..} = - ResourceProperties - { resourcePropertiesType = "AWS::GuardDuty::ThreatIntelSet" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Activate",) . toJSON) _guardDutyThreatIntelSetActivate - , (Just . ("DetectorId",) . toJSON) _guardDutyThreatIntelSetDetectorId - , (Just . ("Format",) . toJSON) _guardDutyThreatIntelSetFormat - , (Just . ("Location",) . toJSON) _guardDutyThreatIntelSetLocation - , fmap (("Name",) . toJSON) _guardDutyThreatIntelSetName - ] - } - --- | Constructor for 'GuardDutyThreatIntelSet' containing required fields as --- arguments. -guardDutyThreatIntelSet - :: Val Bool -- ^ 'gdtisActivate' - -> Val Text -- ^ 'gdtisDetectorId' - -> Val Text -- ^ 'gdtisFormat' - -> Val Text -- ^ 'gdtisLocation' - -> GuardDutyThreatIntelSet -guardDutyThreatIntelSet activatearg detectorIdarg formatarg locationarg = - GuardDutyThreatIntelSet - { _guardDutyThreatIntelSetActivate = activatearg - , _guardDutyThreatIntelSetDetectorId = detectorIdarg - , _guardDutyThreatIntelSetFormat = formatarg - , _guardDutyThreatIntelSetLocation = locationarg - , _guardDutyThreatIntelSetName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-threatintelset.html#cfn-guardduty-threatintelset-activate -gdtisActivate :: Lens' GuardDutyThreatIntelSet (Val Bool) -gdtisActivate = lens _guardDutyThreatIntelSetActivate (\s a -> s { _guardDutyThreatIntelSetActivate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-threatintelset.html#cfn-guardduty-threatintelset-detectorid -gdtisDetectorId :: Lens' GuardDutyThreatIntelSet (Val Text) -gdtisDetectorId = lens _guardDutyThreatIntelSetDetectorId (\s a -> s { _guardDutyThreatIntelSetDetectorId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-threatintelset.html#cfn-guardduty-threatintelset-format -gdtisFormat :: Lens' GuardDutyThreatIntelSet (Val Text) -gdtisFormat = lens _guardDutyThreatIntelSetFormat (\s a -> s { _guardDutyThreatIntelSetFormat = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-threatintelset.html#cfn-guardduty-threatintelset-location -gdtisLocation :: Lens' GuardDutyThreatIntelSet (Val Text) -gdtisLocation = lens _guardDutyThreatIntelSetLocation (\s a -> s { _guardDutyThreatIntelSetLocation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-threatintelset.html#cfn-guardduty-threatintelset-name -gdtisName :: Lens' GuardDutyThreatIntelSet (Maybe (Val Text)) -gdtisName = lens _guardDutyThreatIntelSetName (\s a -> s { _guardDutyThreatIntelSetName = a }) diff --git a/library-gen/Stratosphere/Resources/IAMAccessKey.hs b/library-gen/Stratosphere/Resources/IAMAccessKey.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/IAMAccessKey.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-accesskey.html - -module Stratosphere.Resources.IAMAccessKey where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IAMAccessKey. See 'iamAccessKey' for a more --- convenient constructor. -data IAMAccessKey = - IAMAccessKey - { _iAMAccessKeySerial :: Maybe (Val Integer) - , _iAMAccessKeyStatus :: Maybe (Val Text) - , _iAMAccessKeyUserName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties IAMAccessKey where - toResourceProperties IAMAccessKey{..} = - ResourceProperties - { resourcePropertiesType = "AWS::IAM::AccessKey" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Serial",) . toJSON) _iAMAccessKeySerial - , fmap (("Status",) . toJSON) _iAMAccessKeyStatus - , (Just . ("UserName",) . toJSON) _iAMAccessKeyUserName - ] - } - --- | Constructor for 'IAMAccessKey' containing required fields as arguments. -iamAccessKey - :: Val Text -- ^ 'iamakUserName' - -> IAMAccessKey -iamAccessKey userNamearg = - IAMAccessKey - { _iAMAccessKeySerial = Nothing - , _iAMAccessKeyStatus = Nothing - , _iAMAccessKeyUserName = userNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-accesskey.html#cfn-iam-accesskey-serial -iamakSerial :: Lens' IAMAccessKey (Maybe (Val Integer)) -iamakSerial = lens _iAMAccessKeySerial (\s a -> s { _iAMAccessKeySerial = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-accesskey.html#cfn-iam-accesskey-status -iamakStatus :: Lens' IAMAccessKey (Maybe (Val Text)) -iamakStatus = lens _iAMAccessKeyStatus (\s a -> s { _iAMAccessKeyStatus = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-accesskey.html#cfn-iam-accesskey-username -iamakUserName :: Lens' IAMAccessKey (Val Text) -iamakUserName = lens _iAMAccessKeyUserName (\s a -> s { _iAMAccessKeyUserName = a }) diff --git a/library-gen/Stratosphere/Resources/IAMGroup.hs b/library-gen/Stratosphere/Resources/IAMGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/IAMGroup.hs +++ /dev/null @@ -1,61 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-group.html - -module Stratosphere.Resources.IAMGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IAMGroupPolicy - --- | Full data type definition for IAMGroup. See 'iamGroup' for a more --- convenient constructor. -data IAMGroup = - IAMGroup - { _iAMGroupGroupName :: Maybe (Val Text) - , _iAMGroupManagedPolicyArns :: Maybe (ValList Text) - , _iAMGroupPath :: Maybe (Val Text) - , _iAMGroupPolicies :: Maybe [IAMGroupPolicy] - } deriving (Show, Eq) - -instance ToResourceProperties IAMGroup where - toResourceProperties IAMGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::IAM::Group" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("GroupName",) . toJSON) _iAMGroupGroupName - , fmap (("ManagedPolicyArns",) . toJSON) _iAMGroupManagedPolicyArns - , fmap (("Path",) . toJSON) _iAMGroupPath - , fmap (("Policies",) . toJSON) _iAMGroupPolicies - ] - } - --- | Constructor for 'IAMGroup' containing required fields as arguments. -iamGroup - :: IAMGroup -iamGroup = - IAMGroup - { _iAMGroupGroupName = Nothing - , _iAMGroupManagedPolicyArns = Nothing - , _iAMGroupPath = Nothing - , _iAMGroupPolicies = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-group.html#cfn-iam-group-groupname -iamgGroupName :: Lens' IAMGroup (Maybe (Val Text)) -iamgGroupName = lens _iAMGroupGroupName (\s a -> s { _iAMGroupGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-group.html#cfn-iam-group-managepolicyarns -iamgManagedPolicyArns :: Lens' IAMGroup (Maybe (ValList Text)) -iamgManagedPolicyArns = lens _iAMGroupManagedPolicyArns (\s a -> s { _iAMGroupManagedPolicyArns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-group.html#cfn-iam-group-path -iamgPath :: Lens' IAMGroup (Maybe (Val Text)) -iamgPath = lens _iAMGroupPath (\s a -> s { _iAMGroupPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-group.html#cfn-iam-group-policies -iamgPolicies :: Lens' IAMGroup (Maybe [IAMGroupPolicy]) -iamgPolicies = lens _iAMGroupPolicies (\s a -> s { _iAMGroupPolicies = a }) diff --git a/library-gen/Stratosphere/Resources/IAMInstanceProfile.hs b/library-gen/Stratosphere/Resources/IAMInstanceProfile.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/IAMInstanceProfile.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-instanceprofile.html - -module Stratosphere.Resources.IAMInstanceProfile where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IAMInstanceProfile. See --- 'iamInstanceProfile' for a more convenient constructor. -data IAMInstanceProfile = - IAMInstanceProfile - { _iAMInstanceProfileInstanceProfileName :: Maybe (Val Text) - , _iAMInstanceProfilePath :: Maybe (Val Text) - , _iAMInstanceProfileRoles :: ValList Text - } deriving (Show, Eq) - -instance ToResourceProperties IAMInstanceProfile where - toResourceProperties IAMInstanceProfile{..} = - ResourceProperties - { resourcePropertiesType = "AWS::IAM::InstanceProfile" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("InstanceProfileName",) . toJSON) _iAMInstanceProfileInstanceProfileName - , fmap (("Path",) . toJSON) _iAMInstanceProfilePath - , (Just . ("Roles",) . toJSON) _iAMInstanceProfileRoles - ] - } - --- | Constructor for 'IAMInstanceProfile' containing required fields as --- arguments. -iamInstanceProfile - :: ValList Text -- ^ 'iamipRoles' - -> IAMInstanceProfile -iamInstanceProfile rolesarg = - IAMInstanceProfile - { _iAMInstanceProfileInstanceProfileName = Nothing - , _iAMInstanceProfilePath = Nothing - , _iAMInstanceProfileRoles = rolesarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-instanceprofile.html#cfn-iam-instanceprofile-instanceprofilename -iamipInstanceProfileName :: Lens' IAMInstanceProfile (Maybe (Val Text)) -iamipInstanceProfileName = lens _iAMInstanceProfileInstanceProfileName (\s a -> s { _iAMInstanceProfileInstanceProfileName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-instanceprofile.html#cfn-iam-instanceprofile-path -iamipPath :: Lens' IAMInstanceProfile (Maybe (Val Text)) -iamipPath = lens _iAMInstanceProfilePath (\s a -> s { _iAMInstanceProfilePath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-instanceprofile.html#cfn-iam-instanceprofile-roles -iamipRoles :: Lens' IAMInstanceProfile (ValList Text) -iamipRoles = lens _iAMInstanceProfileRoles (\s a -> s { _iAMInstanceProfileRoles = a }) diff --git a/library-gen/Stratosphere/Resources/IAMManagedPolicy.hs b/library-gen/Stratosphere/Resources/IAMManagedPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/IAMManagedPolicy.hs +++ /dev/null @@ -1,84 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-managedpolicy.html - -module Stratosphere.Resources.IAMManagedPolicy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IAMManagedPolicy. See 'iamManagedPolicy' --- for a more convenient constructor. -data IAMManagedPolicy = - IAMManagedPolicy - { _iAMManagedPolicyDescription :: Maybe (Val Text) - , _iAMManagedPolicyGroups :: Maybe (ValList Text) - , _iAMManagedPolicyManagedPolicyName :: Maybe (Val Text) - , _iAMManagedPolicyPath :: Maybe (Val Text) - , _iAMManagedPolicyPolicyDocument :: Object - , _iAMManagedPolicyRoles :: Maybe (ValList Text) - , _iAMManagedPolicyUsers :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToResourceProperties IAMManagedPolicy where - toResourceProperties IAMManagedPolicy{..} = - ResourceProperties - { resourcePropertiesType = "AWS::IAM::ManagedPolicy" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _iAMManagedPolicyDescription - , fmap (("Groups",) . toJSON) _iAMManagedPolicyGroups - , fmap (("ManagedPolicyName",) . toJSON) _iAMManagedPolicyManagedPolicyName - , fmap (("Path",) . toJSON) _iAMManagedPolicyPath - , (Just . ("PolicyDocument",) . toJSON) _iAMManagedPolicyPolicyDocument - , fmap (("Roles",) . toJSON) _iAMManagedPolicyRoles - , fmap (("Users",) . toJSON) _iAMManagedPolicyUsers - ] - } - --- | Constructor for 'IAMManagedPolicy' containing required fields as --- arguments. -iamManagedPolicy - :: Object -- ^ 'iammpPolicyDocument' - -> IAMManagedPolicy -iamManagedPolicy policyDocumentarg = - IAMManagedPolicy - { _iAMManagedPolicyDescription = Nothing - , _iAMManagedPolicyGroups = Nothing - , _iAMManagedPolicyManagedPolicyName = Nothing - , _iAMManagedPolicyPath = Nothing - , _iAMManagedPolicyPolicyDocument = policyDocumentarg - , _iAMManagedPolicyRoles = Nothing - , _iAMManagedPolicyUsers = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-managedpolicy.html#cfn-iam-managedpolicy-description -iammpDescription :: Lens' IAMManagedPolicy (Maybe (Val Text)) -iammpDescription = lens _iAMManagedPolicyDescription (\s a -> s { _iAMManagedPolicyDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-managedpolicy.html#cfn-iam-managedpolicy-groups -iammpGroups :: Lens' IAMManagedPolicy (Maybe (ValList Text)) -iammpGroups = lens _iAMManagedPolicyGroups (\s a -> s { _iAMManagedPolicyGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-managedpolicy.html#cfn-iam-managedpolicy-managedpolicyname -iammpManagedPolicyName :: Lens' IAMManagedPolicy (Maybe (Val Text)) -iammpManagedPolicyName = lens _iAMManagedPolicyManagedPolicyName (\s a -> s { _iAMManagedPolicyManagedPolicyName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-managedpolicy.html#cfn-ec2-dhcpoptions-path -iammpPath :: Lens' IAMManagedPolicy (Maybe (Val Text)) -iammpPath = lens _iAMManagedPolicyPath (\s a -> s { _iAMManagedPolicyPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-managedpolicy.html#cfn-iam-managedpolicy-policydocument -iammpPolicyDocument :: Lens' IAMManagedPolicy Object -iammpPolicyDocument = lens _iAMManagedPolicyPolicyDocument (\s a -> s { _iAMManagedPolicyPolicyDocument = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-managedpolicy.html#cfn-iam-managedpolicy-roles -iammpRoles :: Lens' IAMManagedPolicy (Maybe (ValList Text)) -iammpRoles = lens _iAMManagedPolicyRoles (\s a -> s { _iAMManagedPolicyRoles = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-managedpolicy.html#cfn-iam-managedpolicy-users -iammpUsers :: Lens' IAMManagedPolicy (Maybe (ValList Text)) -iammpUsers = lens _iAMManagedPolicyUsers (\s a -> s { _iAMManagedPolicyUsers = a }) diff --git a/library-gen/Stratosphere/Resources/IAMPolicy.hs b/library-gen/Stratosphere/Resources/IAMPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/IAMPolicy.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-policy.html - -module Stratosphere.Resources.IAMPolicy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IAMPolicy. See 'iamPolicy' for a more --- convenient constructor. -data IAMPolicy = - IAMPolicy - { _iAMPolicyGroups :: Maybe (ValList Text) - , _iAMPolicyPolicyDocument :: Object - , _iAMPolicyPolicyName :: Val Text - , _iAMPolicyRoles :: Maybe (ValList Text) - , _iAMPolicyUsers :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToResourceProperties IAMPolicy where - toResourceProperties IAMPolicy{..} = - ResourceProperties - { resourcePropertiesType = "AWS::IAM::Policy" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Groups",) . toJSON) _iAMPolicyGroups - , (Just . ("PolicyDocument",) . toJSON) _iAMPolicyPolicyDocument - , (Just . ("PolicyName",) . toJSON) _iAMPolicyPolicyName - , fmap (("Roles",) . toJSON) _iAMPolicyRoles - , fmap (("Users",) . toJSON) _iAMPolicyUsers - ] - } - --- | Constructor for 'IAMPolicy' containing required fields as arguments. -iamPolicy - :: Object -- ^ 'iampPolicyDocument' - -> Val Text -- ^ 'iampPolicyName' - -> IAMPolicy -iamPolicy policyDocumentarg policyNamearg = - IAMPolicy - { _iAMPolicyGroups = Nothing - , _iAMPolicyPolicyDocument = policyDocumentarg - , _iAMPolicyPolicyName = policyNamearg - , _iAMPolicyRoles = Nothing - , _iAMPolicyUsers = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-policy.html#cfn-iam-policy-groups -iampGroups :: Lens' IAMPolicy (Maybe (ValList Text)) -iampGroups = lens _iAMPolicyGroups (\s a -> s { _iAMPolicyGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-policy.html#cfn-iam-policy-policydocument -iampPolicyDocument :: Lens' IAMPolicy Object -iampPolicyDocument = lens _iAMPolicyPolicyDocument (\s a -> s { _iAMPolicyPolicyDocument = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-policy.html#cfn-iam-policy-policyname -iampPolicyName :: Lens' IAMPolicy (Val Text) -iampPolicyName = lens _iAMPolicyPolicyName (\s a -> s { _iAMPolicyPolicyName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-policy.html#cfn-iam-policy-roles -iampRoles :: Lens' IAMPolicy (Maybe (ValList Text)) -iampRoles = lens _iAMPolicyRoles (\s a -> s { _iAMPolicyRoles = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-policy.html#cfn-iam-policy-users -iampUsers :: Lens' IAMPolicy (Maybe (ValList Text)) -iampUsers = lens _iAMPolicyUsers (\s a -> s { _iAMPolicyUsers = a }) diff --git a/library-gen/Stratosphere/Resources/IAMRole.hs b/library-gen/Stratosphere/Resources/IAMRole.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/IAMRole.hs +++ /dev/null @@ -1,98 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-role.html - -module Stratosphere.Resources.IAMRole where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IAMRolePolicy -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for IAMRole. See 'iamRole' for a more --- convenient constructor. -data IAMRole = - IAMRole - { _iAMRoleAssumeRolePolicyDocument :: Object - , _iAMRoleDescription :: Maybe (Val Text) - , _iAMRoleManagedPolicyArns :: Maybe (ValList Text) - , _iAMRoleMaxSessionDuration :: Maybe (Val Integer) - , _iAMRolePath :: Maybe (Val Text) - , _iAMRolePermissionsBoundary :: Maybe (Val Text) - , _iAMRolePolicies :: Maybe [IAMRolePolicy] - , _iAMRoleRoleName :: Maybe (Val Text) - , _iAMRoleTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties IAMRole where - toResourceProperties IAMRole{..} = - ResourceProperties - { resourcePropertiesType = "AWS::IAM::Role" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("AssumeRolePolicyDocument",) . toJSON) _iAMRoleAssumeRolePolicyDocument - , fmap (("Description",) . toJSON) _iAMRoleDescription - , fmap (("ManagedPolicyArns",) . toJSON) _iAMRoleManagedPolicyArns - , fmap (("MaxSessionDuration",) . toJSON) _iAMRoleMaxSessionDuration - , fmap (("Path",) . toJSON) _iAMRolePath - , fmap (("PermissionsBoundary",) . toJSON) _iAMRolePermissionsBoundary - , fmap (("Policies",) . toJSON) _iAMRolePolicies - , fmap (("RoleName",) . toJSON) _iAMRoleRoleName - , fmap (("Tags",) . toJSON) _iAMRoleTags - ] - } - --- | Constructor for 'IAMRole' containing required fields as arguments. -iamRole - :: Object -- ^ 'iamrAssumeRolePolicyDocument' - -> IAMRole -iamRole assumeRolePolicyDocumentarg = - IAMRole - { _iAMRoleAssumeRolePolicyDocument = assumeRolePolicyDocumentarg - , _iAMRoleDescription = Nothing - , _iAMRoleManagedPolicyArns = Nothing - , _iAMRoleMaxSessionDuration = Nothing - , _iAMRolePath = Nothing - , _iAMRolePermissionsBoundary = Nothing - , _iAMRolePolicies = Nothing - , _iAMRoleRoleName = Nothing - , _iAMRoleTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-role.html#cfn-iam-role-assumerolepolicydocument -iamrAssumeRolePolicyDocument :: Lens' IAMRole Object -iamrAssumeRolePolicyDocument = lens _iAMRoleAssumeRolePolicyDocument (\s a -> s { _iAMRoleAssumeRolePolicyDocument = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-role.html#cfn-iam-role-description -iamrDescription :: Lens' IAMRole (Maybe (Val Text)) -iamrDescription = lens _iAMRoleDescription (\s a -> s { _iAMRoleDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-role.html#cfn-iam-role-managepolicyarns -iamrManagedPolicyArns :: Lens' IAMRole (Maybe (ValList Text)) -iamrManagedPolicyArns = lens _iAMRoleManagedPolicyArns (\s a -> s { _iAMRoleManagedPolicyArns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-role.html#cfn-iam-role-maxsessionduration -iamrMaxSessionDuration :: Lens' IAMRole (Maybe (Val Integer)) -iamrMaxSessionDuration = lens _iAMRoleMaxSessionDuration (\s a -> s { _iAMRoleMaxSessionDuration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-role.html#cfn-iam-role-path -iamrPath :: Lens' IAMRole (Maybe (Val Text)) -iamrPath = lens _iAMRolePath (\s a -> s { _iAMRolePath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-role.html#cfn-iam-role-permissionsboundary -iamrPermissionsBoundary :: Lens' IAMRole (Maybe (Val Text)) -iamrPermissionsBoundary = lens _iAMRolePermissionsBoundary (\s a -> s { _iAMRolePermissionsBoundary = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-role.html#cfn-iam-role-policies -iamrPolicies :: Lens' IAMRole (Maybe [IAMRolePolicy]) -iamrPolicies = lens _iAMRolePolicies (\s a -> s { _iAMRolePolicies = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-role.html#cfn-iam-role-rolename -iamrRoleName :: Lens' IAMRole (Maybe (Val Text)) -iamrRoleName = lens _iAMRoleRoleName (\s a -> s { _iAMRoleRoleName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-role.html#cfn-iam-role-tags -iamrTags :: Lens' IAMRole (Maybe [Tag]) -iamrTags = lens _iAMRoleTags (\s a -> s { _iAMRoleTags = a }) diff --git a/library-gen/Stratosphere/Resources/IAMServiceLinkedRole.hs b/library-gen/Stratosphere/Resources/IAMServiceLinkedRole.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/IAMServiceLinkedRole.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-servicelinkedrole.html - -module Stratosphere.Resources.IAMServiceLinkedRole where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IAMServiceLinkedRole. See --- 'iamServiceLinkedRole' for a more convenient constructor. -data IAMServiceLinkedRole = - IAMServiceLinkedRole - { _iAMServiceLinkedRoleAWSServiceName :: Val Text - , _iAMServiceLinkedRoleCustomSuffix :: Maybe (Val Text) - , _iAMServiceLinkedRoleDescription :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties IAMServiceLinkedRole where - toResourceProperties IAMServiceLinkedRole{..} = - ResourceProperties - { resourcePropertiesType = "AWS::IAM::ServiceLinkedRole" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("AWSServiceName",) . toJSON) _iAMServiceLinkedRoleAWSServiceName - , fmap (("CustomSuffix",) . toJSON) _iAMServiceLinkedRoleCustomSuffix - , fmap (("Description",) . toJSON) _iAMServiceLinkedRoleDescription - ] - } - --- | Constructor for 'IAMServiceLinkedRole' containing required fields as --- arguments. -iamServiceLinkedRole - :: Val Text -- ^ 'iamslrAWSServiceName' - -> IAMServiceLinkedRole -iamServiceLinkedRole aWSServiceNamearg = - IAMServiceLinkedRole - { _iAMServiceLinkedRoleAWSServiceName = aWSServiceNamearg - , _iAMServiceLinkedRoleCustomSuffix = Nothing - , _iAMServiceLinkedRoleDescription = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-servicelinkedrole.html#cfn-iam-servicelinkedrole-awsservicename -iamslrAWSServiceName :: Lens' IAMServiceLinkedRole (Val Text) -iamslrAWSServiceName = lens _iAMServiceLinkedRoleAWSServiceName (\s a -> s { _iAMServiceLinkedRoleAWSServiceName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-servicelinkedrole.html#cfn-iam-servicelinkedrole-customsuffix -iamslrCustomSuffix :: Lens' IAMServiceLinkedRole (Maybe (Val Text)) -iamslrCustomSuffix = lens _iAMServiceLinkedRoleCustomSuffix (\s a -> s { _iAMServiceLinkedRoleCustomSuffix = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-servicelinkedrole.html#cfn-iam-servicelinkedrole-description -iamslrDescription :: Lens' IAMServiceLinkedRole (Maybe (Val Text)) -iamslrDescription = lens _iAMServiceLinkedRoleDescription (\s a -> s { _iAMServiceLinkedRoleDescription = a }) diff --git a/library-gen/Stratosphere/Resources/IAMUser.hs b/library-gen/Stratosphere/Resources/IAMUser.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/IAMUser.hs +++ /dev/null @@ -1,91 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-user.html - -module Stratosphere.Resources.IAMUser where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IAMUserLoginProfile -import Stratosphere.ResourceProperties.IAMUserPolicy -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for IAMUser. See 'iamUser' for a more --- convenient constructor. -data IAMUser = - IAMUser - { _iAMUserGroups :: Maybe (ValList Text) - , _iAMUserLoginProfile :: Maybe IAMUserLoginProfile - , _iAMUserManagedPolicyArns :: Maybe (ValList Text) - , _iAMUserPath :: Maybe (Val Text) - , _iAMUserPermissionsBoundary :: Maybe (Val Text) - , _iAMUserPolicies :: Maybe [IAMUserPolicy] - , _iAMUserTags :: Maybe [Tag] - , _iAMUserUserName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties IAMUser where - toResourceProperties IAMUser{..} = - ResourceProperties - { resourcePropertiesType = "AWS::IAM::User" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Groups",) . toJSON) _iAMUserGroups - , fmap (("LoginProfile",) . toJSON) _iAMUserLoginProfile - , fmap (("ManagedPolicyArns",) . toJSON) _iAMUserManagedPolicyArns - , fmap (("Path",) . toJSON) _iAMUserPath - , fmap (("PermissionsBoundary",) . toJSON) _iAMUserPermissionsBoundary - , fmap (("Policies",) . toJSON) _iAMUserPolicies - , fmap (("Tags",) . toJSON) _iAMUserTags - , fmap (("UserName",) . toJSON) _iAMUserUserName - ] - } - --- | Constructor for 'IAMUser' containing required fields as arguments. -iamUser - :: IAMUser -iamUser = - IAMUser - { _iAMUserGroups = Nothing - , _iAMUserLoginProfile = Nothing - , _iAMUserManagedPolicyArns = Nothing - , _iAMUserPath = Nothing - , _iAMUserPermissionsBoundary = Nothing - , _iAMUserPolicies = Nothing - , _iAMUserTags = Nothing - , _iAMUserUserName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-user.html#cfn-iam-user-groups -iamuGroups :: Lens' IAMUser (Maybe (ValList Text)) -iamuGroups = lens _iAMUserGroups (\s a -> s { _iAMUserGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-user.html#cfn-iam-user-loginprofile -iamuLoginProfile :: Lens' IAMUser (Maybe IAMUserLoginProfile) -iamuLoginProfile = lens _iAMUserLoginProfile (\s a -> s { _iAMUserLoginProfile = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-user.html#cfn-iam-user-managepolicyarns -iamuManagedPolicyArns :: Lens' IAMUser (Maybe (ValList Text)) -iamuManagedPolicyArns = lens _iAMUserManagedPolicyArns (\s a -> s { _iAMUserManagedPolicyArns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-user.html#cfn-iam-user-path -iamuPath :: Lens' IAMUser (Maybe (Val Text)) -iamuPath = lens _iAMUserPath (\s a -> s { _iAMUserPath = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-user.html#cfn-iam-user-permissionsboundary -iamuPermissionsBoundary :: Lens' IAMUser (Maybe (Val Text)) -iamuPermissionsBoundary = lens _iAMUserPermissionsBoundary (\s a -> s { _iAMUserPermissionsBoundary = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-user.html#cfn-iam-user-policies -iamuPolicies :: Lens' IAMUser (Maybe [IAMUserPolicy]) -iamuPolicies = lens _iAMUserPolicies (\s a -> s { _iAMUserPolicies = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-user.html#cfn-iam-user-tags -iamuTags :: Lens' IAMUser (Maybe [Tag]) -iamuTags = lens _iAMUserTags (\s a -> s { _iAMUserTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-user.html#cfn-iam-user-username -iamuUserName :: Lens' IAMUser (Maybe (Val Text)) -iamuUserName = lens _iAMUserUserName (\s a -> s { _iAMUserUserName = a }) diff --git a/library-gen/Stratosphere/Resources/IAMUserToGroupAddition.hs b/library-gen/Stratosphere/Resources/IAMUserToGroupAddition.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/IAMUserToGroupAddition.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-addusertogroup.html - -module Stratosphere.Resources.IAMUserToGroupAddition where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IAMUserToGroupAddition. See --- 'iamUserToGroupAddition' for a more convenient constructor. -data IAMUserToGroupAddition = - IAMUserToGroupAddition - { _iAMUserToGroupAdditionGroupName :: Val Text - , _iAMUserToGroupAdditionUsers :: ValList Text - } deriving (Show, Eq) - -instance ToResourceProperties IAMUserToGroupAddition where - toResourceProperties IAMUserToGroupAddition{..} = - ResourceProperties - { resourcePropertiesType = "AWS::IAM::UserToGroupAddition" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("GroupName",) . toJSON) _iAMUserToGroupAdditionGroupName - , (Just . ("Users",) . toJSON) _iAMUserToGroupAdditionUsers - ] - } - --- | Constructor for 'IAMUserToGroupAddition' containing required fields as --- arguments. -iamUserToGroupAddition - :: Val Text -- ^ 'iamutgaGroupName' - -> ValList Text -- ^ 'iamutgaUsers' - -> IAMUserToGroupAddition -iamUserToGroupAddition groupNamearg usersarg = - IAMUserToGroupAddition - { _iAMUserToGroupAdditionGroupName = groupNamearg - , _iAMUserToGroupAdditionUsers = usersarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-addusertogroup.html#cfn-iam-addusertogroup-groupname -iamutgaGroupName :: Lens' IAMUserToGroupAddition (Val Text) -iamutgaGroupName = lens _iAMUserToGroupAdditionGroupName (\s a -> s { _iAMUserToGroupAdditionGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iam-addusertogroup.html#cfn-iam-addusertogroup-users -iamutgaUsers :: Lens' IAMUserToGroupAddition (ValList Text) -iamutgaUsers = lens _iAMUserToGroupAdditionUsers (\s a -> s { _iAMUserToGroupAdditionUsers = a }) diff --git a/library-gen/Stratosphere/Resources/ImageBuilderComponent.hs b/library-gen/Stratosphere/Resources/ImageBuilderComponent.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ImageBuilderComponent.hs +++ /dev/null @@ -1,107 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-component.html - -module Stratosphere.Resources.ImageBuilderComponent where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ImageBuilderComponent. See --- 'imageBuilderComponent' for a more convenient constructor. -data ImageBuilderComponent = - ImageBuilderComponent - { _imageBuilderComponentChangeDescription :: Maybe (Val Text) - , _imageBuilderComponentData :: Maybe (Val Text) - , _imageBuilderComponentDescription :: Maybe (Val Text) - , _imageBuilderComponentKmsKeyId :: Maybe (Val Text) - , _imageBuilderComponentName :: Val Text - , _imageBuilderComponentPlatform :: Val Text - , _imageBuilderComponentSupportedOsVersions :: Maybe (ValList Text) - , _imageBuilderComponentTags :: Maybe Object - , _imageBuilderComponentUri :: Maybe (Val Text) - , _imageBuilderComponentVersion :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties ImageBuilderComponent where - toResourceProperties ImageBuilderComponent{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ImageBuilder::Component" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ChangeDescription",) . toJSON) _imageBuilderComponentChangeDescription - , fmap (("Data",) . toJSON) _imageBuilderComponentData - , fmap (("Description",) . toJSON) _imageBuilderComponentDescription - , fmap (("KmsKeyId",) . toJSON) _imageBuilderComponentKmsKeyId - , (Just . ("Name",) . toJSON) _imageBuilderComponentName - , (Just . ("Platform",) . toJSON) _imageBuilderComponentPlatform - , fmap (("SupportedOsVersions",) . toJSON) _imageBuilderComponentSupportedOsVersions - , fmap (("Tags",) . toJSON) _imageBuilderComponentTags - , fmap (("Uri",) . toJSON) _imageBuilderComponentUri - , (Just . ("Version",) . toJSON) _imageBuilderComponentVersion - ] - } - --- | Constructor for 'ImageBuilderComponent' containing required fields as --- arguments. -imageBuilderComponent - :: Val Text -- ^ 'ibcName' - -> Val Text -- ^ 'ibcPlatform' - -> Val Text -- ^ 'ibcVersion' - -> ImageBuilderComponent -imageBuilderComponent namearg platformarg versionarg = - ImageBuilderComponent - { _imageBuilderComponentChangeDescription = Nothing - , _imageBuilderComponentData = Nothing - , _imageBuilderComponentDescription = Nothing - , _imageBuilderComponentKmsKeyId = Nothing - , _imageBuilderComponentName = namearg - , _imageBuilderComponentPlatform = platformarg - , _imageBuilderComponentSupportedOsVersions = Nothing - , _imageBuilderComponentTags = Nothing - , _imageBuilderComponentUri = Nothing - , _imageBuilderComponentVersion = versionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-component.html#cfn-imagebuilder-component-changedescription -ibcChangeDescription :: Lens' ImageBuilderComponent (Maybe (Val Text)) -ibcChangeDescription = lens _imageBuilderComponentChangeDescription (\s a -> s { _imageBuilderComponentChangeDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-component.html#cfn-imagebuilder-component-data -ibcData :: Lens' ImageBuilderComponent (Maybe (Val Text)) -ibcData = lens _imageBuilderComponentData (\s a -> s { _imageBuilderComponentData = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-component.html#cfn-imagebuilder-component-description -ibcDescription :: Lens' ImageBuilderComponent (Maybe (Val Text)) -ibcDescription = lens _imageBuilderComponentDescription (\s a -> s { _imageBuilderComponentDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-component.html#cfn-imagebuilder-component-kmskeyid -ibcKmsKeyId :: Lens' ImageBuilderComponent (Maybe (Val Text)) -ibcKmsKeyId = lens _imageBuilderComponentKmsKeyId (\s a -> s { _imageBuilderComponentKmsKeyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-component.html#cfn-imagebuilder-component-name -ibcName :: Lens' ImageBuilderComponent (Val Text) -ibcName = lens _imageBuilderComponentName (\s a -> s { _imageBuilderComponentName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-component.html#cfn-imagebuilder-component-platform -ibcPlatform :: Lens' ImageBuilderComponent (Val Text) -ibcPlatform = lens _imageBuilderComponentPlatform (\s a -> s { _imageBuilderComponentPlatform = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-component.html#cfn-imagebuilder-component-supportedosversions -ibcSupportedOsVersions :: Lens' ImageBuilderComponent (Maybe (ValList Text)) -ibcSupportedOsVersions = lens _imageBuilderComponentSupportedOsVersions (\s a -> s { _imageBuilderComponentSupportedOsVersions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-component.html#cfn-imagebuilder-component-tags -ibcTags :: Lens' ImageBuilderComponent (Maybe Object) -ibcTags = lens _imageBuilderComponentTags (\s a -> s { _imageBuilderComponentTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-component.html#cfn-imagebuilder-component-uri -ibcUri :: Lens' ImageBuilderComponent (Maybe (Val Text)) -ibcUri = lens _imageBuilderComponentUri (\s a -> s { _imageBuilderComponentUri = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-component.html#cfn-imagebuilder-component-version -ibcVersion :: Lens' ImageBuilderComponent (Val Text) -ibcVersion = lens _imageBuilderComponentVersion (\s a -> s { _imageBuilderComponentVersion = a }) diff --git a/library-gen/Stratosphere/Resources/ImageBuilderDistributionConfiguration.hs b/library-gen/Stratosphere/Resources/ImageBuilderDistributionConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ImageBuilderDistributionConfiguration.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-distributionconfiguration.html - -module Stratosphere.Resources.ImageBuilderDistributionConfiguration where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ImageBuilderDistributionConfigurationDistribution - --- | Full data type definition for ImageBuilderDistributionConfiguration. See --- 'imageBuilderDistributionConfiguration' for a more convenient --- constructor. -data ImageBuilderDistributionConfiguration = - ImageBuilderDistributionConfiguration - { _imageBuilderDistributionConfigurationDescription :: Maybe (Val Text) - , _imageBuilderDistributionConfigurationDistributions :: [ImageBuilderDistributionConfigurationDistribution] - , _imageBuilderDistributionConfigurationName :: Val Text - , _imageBuilderDistributionConfigurationTags :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties ImageBuilderDistributionConfiguration where - toResourceProperties ImageBuilderDistributionConfiguration{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ImageBuilder::DistributionConfiguration" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _imageBuilderDistributionConfigurationDescription - , (Just . ("Distributions",) . toJSON) _imageBuilderDistributionConfigurationDistributions - , (Just . ("Name",) . toJSON) _imageBuilderDistributionConfigurationName - , fmap (("Tags",) . toJSON) _imageBuilderDistributionConfigurationTags - ] - } - --- | Constructor for 'ImageBuilderDistributionConfiguration' containing --- required fields as arguments. -imageBuilderDistributionConfiguration - :: [ImageBuilderDistributionConfigurationDistribution] -- ^ 'ibdcDistributions' - -> Val Text -- ^ 'ibdcName' - -> ImageBuilderDistributionConfiguration -imageBuilderDistributionConfiguration distributionsarg namearg = - ImageBuilderDistributionConfiguration - { _imageBuilderDistributionConfigurationDescription = Nothing - , _imageBuilderDistributionConfigurationDistributions = distributionsarg - , _imageBuilderDistributionConfigurationName = namearg - , _imageBuilderDistributionConfigurationTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-distributionconfiguration.html#cfn-imagebuilder-distributionconfiguration-description -ibdcDescription :: Lens' ImageBuilderDistributionConfiguration (Maybe (Val Text)) -ibdcDescription = lens _imageBuilderDistributionConfigurationDescription (\s a -> s { _imageBuilderDistributionConfigurationDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-distributionconfiguration.html#cfn-imagebuilder-distributionconfiguration-distributions -ibdcDistributions :: Lens' ImageBuilderDistributionConfiguration [ImageBuilderDistributionConfigurationDistribution] -ibdcDistributions = lens _imageBuilderDistributionConfigurationDistributions (\s a -> s { _imageBuilderDistributionConfigurationDistributions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-distributionconfiguration.html#cfn-imagebuilder-distributionconfiguration-name -ibdcName :: Lens' ImageBuilderDistributionConfiguration (Val Text) -ibdcName = lens _imageBuilderDistributionConfigurationName (\s a -> s { _imageBuilderDistributionConfigurationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-distributionconfiguration.html#cfn-imagebuilder-distributionconfiguration-tags -ibdcTags :: Lens' ImageBuilderDistributionConfiguration (Maybe Object) -ibdcTags = lens _imageBuilderDistributionConfigurationTags (\s a -> s { _imageBuilderDistributionConfigurationTags = a }) diff --git a/library-gen/Stratosphere/Resources/ImageBuilderImage.hs b/library-gen/Stratosphere/Resources/ImageBuilderImage.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ImageBuilderImage.hs +++ /dev/null @@ -1,78 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-image.html - -module Stratosphere.Resources.ImageBuilderImage where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ImageBuilderImageImageTestsConfiguration - --- | Full data type definition for ImageBuilderImage. See 'imageBuilderImage' --- for a more convenient constructor. -data ImageBuilderImage = - ImageBuilderImage - { _imageBuilderImageDistributionConfigurationArn :: Maybe (Val Text) - , _imageBuilderImageEnhancedImageMetadataEnabled :: Maybe (Val Bool) - , _imageBuilderImageImageRecipeArn :: Val Text - , _imageBuilderImageImageTestsConfiguration :: Maybe ImageBuilderImageImageTestsConfiguration - , _imageBuilderImageInfrastructureConfigurationArn :: Val Text - , _imageBuilderImageTags :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties ImageBuilderImage where - toResourceProperties ImageBuilderImage{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ImageBuilder::Image" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("DistributionConfigurationArn",) . toJSON) _imageBuilderImageDistributionConfigurationArn - , fmap (("EnhancedImageMetadataEnabled",) . toJSON) _imageBuilderImageEnhancedImageMetadataEnabled - , (Just . ("ImageRecipeArn",) . toJSON) _imageBuilderImageImageRecipeArn - , fmap (("ImageTestsConfiguration",) . toJSON) _imageBuilderImageImageTestsConfiguration - , (Just . ("InfrastructureConfigurationArn",) . toJSON) _imageBuilderImageInfrastructureConfigurationArn - , fmap (("Tags",) . toJSON) _imageBuilderImageTags - ] - } - --- | Constructor for 'ImageBuilderImage' containing required fields as --- arguments. -imageBuilderImage - :: Val Text -- ^ 'ibiImageRecipeArn' - -> Val Text -- ^ 'ibiInfrastructureConfigurationArn' - -> ImageBuilderImage -imageBuilderImage imageRecipeArnarg infrastructureConfigurationArnarg = - ImageBuilderImage - { _imageBuilderImageDistributionConfigurationArn = Nothing - , _imageBuilderImageEnhancedImageMetadataEnabled = Nothing - , _imageBuilderImageImageRecipeArn = imageRecipeArnarg - , _imageBuilderImageImageTestsConfiguration = Nothing - , _imageBuilderImageInfrastructureConfigurationArn = infrastructureConfigurationArnarg - , _imageBuilderImageTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-image.html#cfn-imagebuilder-image-distributionconfigurationarn -ibiDistributionConfigurationArn :: Lens' ImageBuilderImage (Maybe (Val Text)) -ibiDistributionConfigurationArn = lens _imageBuilderImageDistributionConfigurationArn (\s a -> s { _imageBuilderImageDistributionConfigurationArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-image.html#cfn-imagebuilder-image-enhancedimagemetadataenabled -ibiEnhancedImageMetadataEnabled :: Lens' ImageBuilderImage (Maybe (Val Bool)) -ibiEnhancedImageMetadataEnabled = lens _imageBuilderImageEnhancedImageMetadataEnabled (\s a -> s { _imageBuilderImageEnhancedImageMetadataEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-image.html#cfn-imagebuilder-image-imagerecipearn -ibiImageRecipeArn :: Lens' ImageBuilderImage (Val Text) -ibiImageRecipeArn = lens _imageBuilderImageImageRecipeArn (\s a -> s { _imageBuilderImageImageRecipeArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-image.html#cfn-imagebuilder-image-imagetestsconfiguration -ibiImageTestsConfiguration :: Lens' ImageBuilderImage (Maybe ImageBuilderImageImageTestsConfiguration) -ibiImageTestsConfiguration = lens _imageBuilderImageImageTestsConfiguration (\s a -> s { _imageBuilderImageImageTestsConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-image.html#cfn-imagebuilder-image-infrastructureconfigurationarn -ibiInfrastructureConfigurationArn :: Lens' ImageBuilderImage (Val Text) -ibiInfrastructureConfigurationArn = lens _imageBuilderImageInfrastructureConfigurationArn (\s a -> s { _imageBuilderImageInfrastructureConfigurationArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-image.html#cfn-imagebuilder-image-tags -ibiTags :: Lens' ImageBuilderImage (Maybe Object) -ibiTags = lens _imageBuilderImageTags (\s a -> s { _imageBuilderImageTags = a }) diff --git a/library-gen/Stratosphere/Resources/ImageBuilderImagePipeline.hs b/library-gen/Stratosphere/Resources/ImageBuilderImagePipeline.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ImageBuilderImagePipeline.hs +++ /dev/null @@ -1,108 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagepipeline.html - -module Stratosphere.Resources.ImageBuilderImagePipeline where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ImageBuilderImagePipelineImageTestsConfiguration -import Stratosphere.ResourceProperties.ImageBuilderImagePipelineSchedule - --- | Full data type definition for ImageBuilderImagePipeline. See --- 'imageBuilderImagePipeline' for a more convenient constructor. -data ImageBuilderImagePipeline = - ImageBuilderImagePipeline - { _imageBuilderImagePipelineDescription :: Maybe (Val Text) - , _imageBuilderImagePipelineDistributionConfigurationArn :: Maybe (Val Text) - , _imageBuilderImagePipelineEnhancedImageMetadataEnabled :: Maybe (Val Bool) - , _imageBuilderImagePipelineImageRecipeArn :: Val Text - , _imageBuilderImagePipelineImageTestsConfiguration :: Maybe ImageBuilderImagePipelineImageTestsConfiguration - , _imageBuilderImagePipelineInfrastructureConfigurationArn :: Val Text - , _imageBuilderImagePipelineName :: Val Text - , _imageBuilderImagePipelineSchedule :: Maybe ImageBuilderImagePipelineSchedule - , _imageBuilderImagePipelineStatus :: Maybe (Val Text) - , _imageBuilderImagePipelineTags :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties ImageBuilderImagePipeline where - toResourceProperties ImageBuilderImagePipeline{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ImageBuilder::ImagePipeline" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _imageBuilderImagePipelineDescription - , fmap (("DistributionConfigurationArn",) . toJSON) _imageBuilderImagePipelineDistributionConfigurationArn - , fmap (("EnhancedImageMetadataEnabled",) . toJSON) _imageBuilderImagePipelineEnhancedImageMetadataEnabled - , (Just . ("ImageRecipeArn",) . toJSON) _imageBuilderImagePipelineImageRecipeArn - , fmap (("ImageTestsConfiguration",) . toJSON) _imageBuilderImagePipelineImageTestsConfiguration - , (Just . ("InfrastructureConfigurationArn",) . toJSON) _imageBuilderImagePipelineInfrastructureConfigurationArn - , (Just . ("Name",) . toJSON) _imageBuilderImagePipelineName - , fmap (("Schedule",) . toJSON) _imageBuilderImagePipelineSchedule - , fmap (("Status",) . toJSON) _imageBuilderImagePipelineStatus - , fmap (("Tags",) . toJSON) _imageBuilderImagePipelineTags - ] - } - --- | Constructor for 'ImageBuilderImagePipeline' containing required fields as --- arguments. -imageBuilderImagePipeline - :: Val Text -- ^ 'ibipImageRecipeArn' - -> Val Text -- ^ 'ibipInfrastructureConfigurationArn' - -> Val Text -- ^ 'ibipName' - -> ImageBuilderImagePipeline -imageBuilderImagePipeline imageRecipeArnarg infrastructureConfigurationArnarg namearg = - ImageBuilderImagePipeline - { _imageBuilderImagePipelineDescription = Nothing - , _imageBuilderImagePipelineDistributionConfigurationArn = Nothing - , _imageBuilderImagePipelineEnhancedImageMetadataEnabled = Nothing - , _imageBuilderImagePipelineImageRecipeArn = imageRecipeArnarg - , _imageBuilderImagePipelineImageTestsConfiguration = Nothing - , _imageBuilderImagePipelineInfrastructureConfigurationArn = infrastructureConfigurationArnarg - , _imageBuilderImagePipelineName = namearg - , _imageBuilderImagePipelineSchedule = Nothing - , _imageBuilderImagePipelineStatus = Nothing - , _imageBuilderImagePipelineTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagepipeline.html#cfn-imagebuilder-imagepipeline-description -ibipDescription :: Lens' ImageBuilderImagePipeline (Maybe (Val Text)) -ibipDescription = lens _imageBuilderImagePipelineDescription (\s a -> s { _imageBuilderImagePipelineDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagepipeline.html#cfn-imagebuilder-imagepipeline-distributionconfigurationarn -ibipDistributionConfigurationArn :: Lens' ImageBuilderImagePipeline (Maybe (Val Text)) -ibipDistributionConfigurationArn = lens _imageBuilderImagePipelineDistributionConfigurationArn (\s a -> s { _imageBuilderImagePipelineDistributionConfigurationArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagepipeline.html#cfn-imagebuilder-imagepipeline-enhancedimagemetadataenabled -ibipEnhancedImageMetadataEnabled :: Lens' ImageBuilderImagePipeline (Maybe (Val Bool)) -ibipEnhancedImageMetadataEnabled = lens _imageBuilderImagePipelineEnhancedImageMetadataEnabled (\s a -> s { _imageBuilderImagePipelineEnhancedImageMetadataEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagepipeline.html#cfn-imagebuilder-imagepipeline-imagerecipearn -ibipImageRecipeArn :: Lens' ImageBuilderImagePipeline (Val Text) -ibipImageRecipeArn = lens _imageBuilderImagePipelineImageRecipeArn (\s a -> s { _imageBuilderImagePipelineImageRecipeArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagepipeline.html#cfn-imagebuilder-imagepipeline-imagetestsconfiguration -ibipImageTestsConfiguration :: Lens' ImageBuilderImagePipeline (Maybe ImageBuilderImagePipelineImageTestsConfiguration) -ibipImageTestsConfiguration = lens _imageBuilderImagePipelineImageTestsConfiguration (\s a -> s { _imageBuilderImagePipelineImageTestsConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagepipeline.html#cfn-imagebuilder-imagepipeline-infrastructureconfigurationarn -ibipInfrastructureConfigurationArn :: Lens' ImageBuilderImagePipeline (Val Text) -ibipInfrastructureConfigurationArn = lens _imageBuilderImagePipelineInfrastructureConfigurationArn (\s a -> s { _imageBuilderImagePipelineInfrastructureConfigurationArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagepipeline.html#cfn-imagebuilder-imagepipeline-name -ibipName :: Lens' ImageBuilderImagePipeline (Val Text) -ibipName = lens _imageBuilderImagePipelineName (\s a -> s { _imageBuilderImagePipelineName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagepipeline.html#cfn-imagebuilder-imagepipeline-schedule -ibipSchedule :: Lens' ImageBuilderImagePipeline (Maybe ImageBuilderImagePipelineSchedule) -ibipSchedule = lens _imageBuilderImagePipelineSchedule (\s a -> s { _imageBuilderImagePipelineSchedule = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagepipeline.html#cfn-imagebuilder-imagepipeline-status -ibipStatus :: Lens' ImageBuilderImagePipeline (Maybe (Val Text)) -ibipStatus = lens _imageBuilderImagePipelineStatus (\s a -> s { _imageBuilderImagePipelineStatus = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagepipeline.html#cfn-imagebuilder-imagepipeline-tags -ibipTags :: Lens' ImageBuilderImagePipeline (Maybe Object) -ibipTags = lens _imageBuilderImagePipelineTags (\s a -> s { _imageBuilderImagePipelineTags = a }) diff --git a/library-gen/Stratosphere/Resources/ImageBuilderImageRecipe.hs b/library-gen/Stratosphere/Resources/ImageBuilderImageRecipe.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ImageBuilderImageRecipe.hs +++ /dev/null @@ -1,95 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagerecipe.html - -module Stratosphere.Resources.ImageBuilderImageRecipe where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ImageBuilderImageRecipeInstanceBlockDeviceMapping -import Stratosphere.ResourceProperties.ImageBuilderImageRecipeComponentConfiguration - --- | Full data type definition for ImageBuilderImageRecipe. See --- 'imageBuilderImageRecipe' for a more convenient constructor. -data ImageBuilderImageRecipe = - ImageBuilderImageRecipe - { _imageBuilderImageRecipeBlockDeviceMappings :: Maybe [ImageBuilderImageRecipeInstanceBlockDeviceMapping] - , _imageBuilderImageRecipeComponents :: [ImageBuilderImageRecipeComponentConfiguration] - , _imageBuilderImageRecipeDescription :: Maybe (Val Text) - , _imageBuilderImageRecipeName :: Val Text - , _imageBuilderImageRecipeParentImage :: Val Text - , _imageBuilderImageRecipeTags :: Maybe Object - , _imageBuilderImageRecipeVersion :: Val Text - , _imageBuilderImageRecipeWorkingDirectory :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties ImageBuilderImageRecipe where - toResourceProperties ImageBuilderImageRecipe{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ImageBuilder::ImageRecipe" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("BlockDeviceMappings",) . toJSON) _imageBuilderImageRecipeBlockDeviceMappings - , (Just . ("Components",) . toJSON) _imageBuilderImageRecipeComponents - , fmap (("Description",) . toJSON) _imageBuilderImageRecipeDescription - , (Just . ("Name",) . toJSON) _imageBuilderImageRecipeName - , (Just . ("ParentImage",) . toJSON) _imageBuilderImageRecipeParentImage - , fmap (("Tags",) . toJSON) _imageBuilderImageRecipeTags - , (Just . ("Version",) . toJSON) _imageBuilderImageRecipeVersion - , fmap (("WorkingDirectory",) . toJSON) _imageBuilderImageRecipeWorkingDirectory - ] - } - --- | Constructor for 'ImageBuilderImageRecipe' containing required fields as --- arguments. -imageBuilderImageRecipe - :: [ImageBuilderImageRecipeComponentConfiguration] -- ^ 'ibirComponents' - -> Val Text -- ^ 'ibirName' - -> Val Text -- ^ 'ibirParentImage' - -> Val Text -- ^ 'ibirVersion' - -> ImageBuilderImageRecipe -imageBuilderImageRecipe componentsarg namearg parentImagearg versionarg = - ImageBuilderImageRecipe - { _imageBuilderImageRecipeBlockDeviceMappings = Nothing - , _imageBuilderImageRecipeComponents = componentsarg - , _imageBuilderImageRecipeDescription = Nothing - , _imageBuilderImageRecipeName = namearg - , _imageBuilderImageRecipeParentImage = parentImagearg - , _imageBuilderImageRecipeTags = Nothing - , _imageBuilderImageRecipeVersion = versionarg - , _imageBuilderImageRecipeWorkingDirectory = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagerecipe.html#cfn-imagebuilder-imagerecipe-blockdevicemappings -ibirBlockDeviceMappings :: Lens' ImageBuilderImageRecipe (Maybe [ImageBuilderImageRecipeInstanceBlockDeviceMapping]) -ibirBlockDeviceMappings = lens _imageBuilderImageRecipeBlockDeviceMappings (\s a -> s { _imageBuilderImageRecipeBlockDeviceMappings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagerecipe.html#cfn-imagebuilder-imagerecipe-components -ibirComponents :: Lens' ImageBuilderImageRecipe [ImageBuilderImageRecipeComponentConfiguration] -ibirComponents = lens _imageBuilderImageRecipeComponents (\s a -> s { _imageBuilderImageRecipeComponents = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagerecipe.html#cfn-imagebuilder-imagerecipe-description -ibirDescription :: Lens' ImageBuilderImageRecipe (Maybe (Val Text)) -ibirDescription = lens _imageBuilderImageRecipeDescription (\s a -> s { _imageBuilderImageRecipeDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagerecipe.html#cfn-imagebuilder-imagerecipe-name -ibirName :: Lens' ImageBuilderImageRecipe (Val Text) -ibirName = lens _imageBuilderImageRecipeName (\s a -> s { _imageBuilderImageRecipeName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagerecipe.html#cfn-imagebuilder-imagerecipe-parentimage -ibirParentImage :: Lens' ImageBuilderImageRecipe (Val Text) -ibirParentImage = lens _imageBuilderImageRecipeParentImage (\s a -> s { _imageBuilderImageRecipeParentImage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagerecipe.html#cfn-imagebuilder-imagerecipe-tags -ibirTags :: Lens' ImageBuilderImageRecipe (Maybe Object) -ibirTags = lens _imageBuilderImageRecipeTags (\s a -> s { _imageBuilderImageRecipeTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagerecipe.html#cfn-imagebuilder-imagerecipe-version -ibirVersion :: Lens' ImageBuilderImageRecipe (Val Text) -ibirVersion = lens _imageBuilderImageRecipeVersion (\s a -> s { _imageBuilderImageRecipeVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-imagerecipe.html#cfn-imagebuilder-imagerecipe-workingdirectory -ibirWorkingDirectory :: Lens' ImageBuilderImageRecipe (Maybe (Val Text)) -ibirWorkingDirectory = lens _imageBuilderImageRecipeWorkingDirectory (\s a -> s { _imageBuilderImageRecipeWorkingDirectory = a }) diff --git a/library-gen/Stratosphere/Resources/ImageBuilderInfrastructureConfiguration.hs b/library-gen/Stratosphere/Resources/ImageBuilderInfrastructureConfiguration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ImageBuilderInfrastructureConfiguration.hs +++ /dev/null @@ -1,121 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html - -module Stratosphere.Resources.ImageBuilderInfrastructureConfiguration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ImageBuilderInfrastructureConfiguration. --- See 'imageBuilderInfrastructureConfiguration' for a more convenient --- constructor. -data ImageBuilderInfrastructureConfiguration = - ImageBuilderInfrastructureConfiguration - { _imageBuilderInfrastructureConfigurationDescription :: Maybe (Val Text) - , _imageBuilderInfrastructureConfigurationInstanceProfileName :: Val Text - , _imageBuilderInfrastructureConfigurationInstanceTypes :: Maybe (ValList Text) - , _imageBuilderInfrastructureConfigurationKeyPair :: Maybe (Val Text) - , _imageBuilderInfrastructureConfigurationLogging :: Maybe Object - , _imageBuilderInfrastructureConfigurationName :: Val Text - , _imageBuilderInfrastructureConfigurationResourceTags :: Maybe Object - , _imageBuilderInfrastructureConfigurationSecurityGroupIds :: Maybe (ValList Text) - , _imageBuilderInfrastructureConfigurationSnsTopicArn :: Maybe (Val Text) - , _imageBuilderInfrastructureConfigurationSubnetId :: Maybe (Val Text) - , _imageBuilderInfrastructureConfigurationTags :: Maybe Object - , _imageBuilderInfrastructureConfigurationTerminateInstanceOnFailure :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToResourceProperties ImageBuilderInfrastructureConfiguration where - toResourceProperties ImageBuilderInfrastructureConfiguration{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ImageBuilder::InfrastructureConfiguration" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _imageBuilderInfrastructureConfigurationDescription - , (Just . ("InstanceProfileName",) . toJSON) _imageBuilderInfrastructureConfigurationInstanceProfileName - , fmap (("InstanceTypes",) . toJSON) _imageBuilderInfrastructureConfigurationInstanceTypes - , fmap (("KeyPair",) . toJSON) _imageBuilderInfrastructureConfigurationKeyPair - , fmap (("Logging",) . toJSON) _imageBuilderInfrastructureConfigurationLogging - , (Just . ("Name",) . toJSON) _imageBuilderInfrastructureConfigurationName - , fmap (("ResourceTags",) . toJSON) _imageBuilderInfrastructureConfigurationResourceTags - , fmap (("SecurityGroupIds",) . toJSON) _imageBuilderInfrastructureConfigurationSecurityGroupIds - , fmap (("SnsTopicArn",) . toJSON) _imageBuilderInfrastructureConfigurationSnsTopicArn - , fmap (("SubnetId",) . toJSON) _imageBuilderInfrastructureConfigurationSubnetId - , fmap (("Tags",) . toJSON) _imageBuilderInfrastructureConfigurationTags - , fmap (("TerminateInstanceOnFailure",) . toJSON) _imageBuilderInfrastructureConfigurationTerminateInstanceOnFailure - ] - } - --- | Constructor for 'ImageBuilderInfrastructureConfiguration' containing --- required fields as arguments. -imageBuilderInfrastructureConfiguration - :: Val Text -- ^ 'ibicInstanceProfileName' - -> Val Text -- ^ 'ibicName' - -> ImageBuilderInfrastructureConfiguration -imageBuilderInfrastructureConfiguration instanceProfileNamearg namearg = - ImageBuilderInfrastructureConfiguration - { _imageBuilderInfrastructureConfigurationDescription = Nothing - , _imageBuilderInfrastructureConfigurationInstanceProfileName = instanceProfileNamearg - , _imageBuilderInfrastructureConfigurationInstanceTypes = Nothing - , _imageBuilderInfrastructureConfigurationKeyPair = Nothing - , _imageBuilderInfrastructureConfigurationLogging = Nothing - , _imageBuilderInfrastructureConfigurationName = namearg - , _imageBuilderInfrastructureConfigurationResourceTags = Nothing - , _imageBuilderInfrastructureConfigurationSecurityGroupIds = Nothing - , _imageBuilderInfrastructureConfigurationSnsTopicArn = Nothing - , _imageBuilderInfrastructureConfigurationSubnetId = Nothing - , _imageBuilderInfrastructureConfigurationTags = Nothing - , _imageBuilderInfrastructureConfigurationTerminateInstanceOnFailure = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-description -ibicDescription :: Lens' ImageBuilderInfrastructureConfiguration (Maybe (Val Text)) -ibicDescription = lens _imageBuilderInfrastructureConfigurationDescription (\s a -> s { _imageBuilderInfrastructureConfigurationDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-instanceprofilename -ibicInstanceProfileName :: Lens' ImageBuilderInfrastructureConfiguration (Val Text) -ibicInstanceProfileName = lens _imageBuilderInfrastructureConfigurationInstanceProfileName (\s a -> s { _imageBuilderInfrastructureConfigurationInstanceProfileName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-instancetypes -ibicInstanceTypes :: Lens' ImageBuilderInfrastructureConfiguration (Maybe (ValList Text)) -ibicInstanceTypes = lens _imageBuilderInfrastructureConfigurationInstanceTypes (\s a -> s { _imageBuilderInfrastructureConfigurationInstanceTypes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-keypair -ibicKeyPair :: Lens' ImageBuilderInfrastructureConfiguration (Maybe (Val Text)) -ibicKeyPair = lens _imageBuilderInfrastructureConfigurationKeyPair (\s a -> s { _imageBuilderInfrastructureConfigurationKeyPair = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-logging -ibicLogging :: Lens' ImageBuilderInfrastructureConfiguration (Maybe Object) -ibicLogging = lens _imageBuilderInfrastructureConfigurationLogging (\s a -> s { _imageBuilderInfrastructureConfigurationLogging = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-name -ibicName :: Lens' ImageBuilderInfrastructureConfiguration (Val Text) -ibicName = lens _imageBuilderInfrastructureConfigurationName (\s a -> s { _imageBuilderInfrastructureConfigurationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-resourcetags -ibicResourceTags :: Lens' ImageBuilderInfrastructureConfiguration (Maybe Object) -ibicResourceTags = lens _imageBuilderInfrastructureConfigurationResourceTags (\s a -> s { _imageBuilderInfrastructureConfigurationResourceTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-securitygroupids -ibicSecurityGroupIds :: Lens' ImageBuilderInfrastructureConfiguration (Maybe (ValList Text)) -ibicSecurityGroupIds = lens _imageBuilderInfrastructureConfigurationSecurityGroupIds (\s a -> s { _imageBuilderInfrastructureConfigurationSecurityGroupIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-snstopicarn -ibicSnsTopicArn :: Lens' ImageBuilderInfrastructureConfiguration (Maybe (Val Text)) -ibicSnsTopicArn = lens _imageBuilderInfrastructureConfigurationSnsTopicArn (\s a -> s { _imageBuilderInfrastructureConfigurationSnsTopicArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-subnetid -ibicSubnetId :: Lens' ImageBuilderInfrastructureConfiguration (Maybe (Val Text)) -ibicSubnetId = lens _imageBuilderInfrastructureConfigurationSubnetId (\s a -> s { _imageBuilderInfrastructureConfigurationSubnetId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-tags -ibicTags :: Lens' ImageBuilderInfrastructureConfiguration (Maybe Object) -ibicTags = lens _imageBuilderInfrastructureConfigurationTags (\s a -> s { _imageBuilderInfrastructureConfigurationTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-imagebuilder-infrastructureconfiguration.html#cfn-imagebuilder-infrastructureconfiguration-terminateinstanceonfailure -ibicTerminateInstanceOnFailure :: Lens' ImageBuilderInfrastructureConfiguration (Maybe (Val Bool)) -ibicTerminateInstanceOnFailure = lens _imageBuilderInfrastructureConfigurationTerminateInstanceOnFailure (\s a -> s { _imageBuilderInfrastructureConfigurationTerminateInstanceOnFailure = a }) diff --git a/library-gen/Stratosphere/Resources/InspectorAssessmentTarget.hs b/library-gen/Stratosphere/Resources/InspectorAssessmentTarget.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/InspectorAssessmentTarget.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-inspector-assessmenttarget.html - -module Stratosphere.Resources.InspectorAssessmentTarget where - -import Stratosphere.ResourceImports - - --- | Full data type definition for InspectorAssessmentTarget. See --- 'inspectorAssessmentTarget' for a more convenient constructor. -data InspectorAssessmentTarget = - InspectorAssessmentTarget - { _inspectorAssessmentTargetAssessmentTargetName :: Maybe (Val Text) - , _inspectorAssessmentTargetResourceGroupArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties InspectorAssessmentTarget where - toResourceProperties InspectorAssessmentTarget{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Inspector::AssessmentTarget" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AssessmentTargetName",) . toJSON) _inspectorAssessmentTargetAssessmentTargetName - , fmap (("ResourceGroupArn",) . toJSON) _inspectorAssessmentTargetResourceGroupArn - ] - } - --- | Constructor for 'InspectorAssessmentTarget' containing required fields as --- arguments. -inspectorAssessmentTarget - :: InspectorAssessmentTarget -inspectorAssessmentTarget = - InspectorAssessmentTarget - { _inspectorAssessmentTargetAssessmentTargetName = Nothing - , _inspectorAssessmentTargetResourceGroupArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-inspector-assessmenttarget.html#cfn-inspector-assessmenttarget-assessmenttargetname -iatAssessmentTargetName :: Lens' InspectorAssessmentTarget (Maybe (Val Text)) -iatAssessmentTargetName = lens _inspectorAssessmentTargetAssessmentTargetName (\s a -> s { _inspectorAssessmentTargetAssessmentTargetName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-inspector-assessmenttarget.html#cfn-inspector-assessmenttarget-resourcegrouparn -iatResourceGroupArn :: Lens' InspectorAssessmentTarget (Maybe (Val Text)) -iatResourceGroupArn = lens _inspectorAssessmentTargetResourceGroupArn (\s a -> s { _inspectorAssessmentTargetResourceGroupArn = a }) diff --git a/library-gen/Stratosphere/Resources/InspectorAssessmentTemplate.hs b/library-gen/Stratosphere/Resources/InspectorAssessmentTemplate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/InspectorAssessmentTemplate.hs +++ /dev/null @@ -1,72 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-inspector-assessmenttemplate.html - -module Stratosphere.Resources.InspectorAssessmentTemplate where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for InspectorAssessmentTemplate. See --- 'inspectorAssessmentTemplate' for a more convenient constructor. -data InspectorAssessmentTemplate = - InspectorAssessmentTemplate - { _inspectorAssessmentTemplateAssessmentTargetArn :: Val Text - , _inspectorAssessmentTemplateAssessmentTemplateName :: Maybe (Val Text) - , _inspectorAssessmentTemplateDurationInSeconds :: Val Integer - , _inspectorAssessmentTemplateRulesPackageArns :: ValList Text - , _inspectorAssessmentTemplateUserAttributesForFindings :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties InspectorAssessmentTemplate where - toResourceProperties InspectorAssessmentTemplate{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Inspector::AssessmentTemplate" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("AssessmentTargetArn",) . toJSON) _inspectorAssessmentTemplateAssessmentTargetArn - , fmap (("AssessmentTemplateName",) . toJSON) _inspectorAssessmentTemplateAssessmentTemplateName - , (Just . ("DurationInSeconds",) . toJSON) _inspectorAssessmentTemplateDurationInSeconds - , (Just . ("RulesPackageArns",) . toJSON) _inspectorAssessmentTemplateRulesPackageArns - , fmap (("UserAttributesForFindings",) . toJSON) _inspectorAssessmentTemplateUserAttributesForFindings - ] - } - --- | Constructor for 'InspectorAssessmentTemplate' containing required fields --- as arguments. -inspectorAssessmentTemplate - :: Val Text -- ^ 'iatAssessmentTargetArn' - -> Val Integer -- ^ 'iatDurationInSeconds' - -> ValList Text -- ^ 'iatRulesPackageArns' - -> InspectorAssessmentTemplate -inspectorAssessmentTemplate assessmentTargetArnarg durationInSecondsarg rulesPackageArnsarg = - InspectorAssessmentTemplate - { _inspectorAssessmentTemplateAssessmentTargetArn = assessmentTargetArnarg - , _inspectorAssessmentTemplateAssessmentTemplateName = Nothing - , _inspectorAssessmentTemplateDurationInSeconds = durationInSecondsarg - , _inspectorAssessmentTemplateRulesPackageArns = rulesPackageArnsarg - , _inspectorAssessmentTemplateUserAttributesForFindings = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-inspector-assessmenttemplate.html#cfn-inspector-assessmenttemplate-assessmenttargetarn -iatAssessmentTargetArn :: Lens' InspectorAssessmentTemplate (Val Text) -iatAssessmentTargetArn = lens _inspectorAssessmentTemplateAssessmentTargetArn (\s a -> s { _inspectorAssessmentTemplateAssessmentTargetArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-inspector-assessmenttemplate.html#cfn-inspector-assessmenttemplate-assessmenttemplatename -iatAssessmentTemplateName :: Lens' InspectorAssessmentTemplate (Maybe (Val Text)) -iatAssessmentTemplateName = lens _inspectorAssessmentTemplateAssessmentTemplateName (\s a -> s { _inspectorAssessmentTemplateAssessmentTemplateName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-inspector-assessmenttemplate.html#cfn-inspector-assessmenttemplate-durationinseconds -iatDurationInSeconds :: Lens' InspectorAssessmentTemplate (Val Integer) -iatDurationInSeconds = lens _inspectorAssessmentTemplateDurationInSeconds (\s a -> s { _inspectorAssessmentTemplateDurationInSeconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-inspector-assessmenttemplate.html#cfn-inspector-assessmenttemplate-rulespackagearns -iatRulesPackageArns :: Lens' InspectorAssessmentTemplate (ValList Text) -iatRulesPackageArns = lens _inspectorAssessmentTemplateRulesPackageArns (\s a -> s { _inspectorAssessmentTemplateRulesPackageArns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-inspector-assessmenttemplate.html#cfn-inspector-assessmenttemplate-userattributesforfindings -iatUserAttributesForFindings :: Lens' InspectorAssessmentTemplate (Maybe [Tag]) -iatUserAttributesForFindings = lens _inspectorAssessmentTemplateUserAttributesForFindings (\s a -> s { _inspectorAssessmentTemplateUserAttributesForFindings = a }) diff --git a/library-gen/Stratosphere/Resources/InspectorResourceGroup.hs b/library-gen/Stratosphere/Resources/InspectorResourceGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/InspectorResourceGroup.hs +++ /dev/null @@ -1,42 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-inspector-resourcegroup.html - -module Stratosphere.Resources.InspectorResourceGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for InspectorResourceGroup. See --- 'inspectorResourceGroup' for a more convenient constructor. -data InspectorResourceGroup = - InspectorResourceGroup - { _inspectorResourceGroupResourceGroupTags :: [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties InspectorResourceGroup where - toResourceProperties InspectorResourceGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Inspector::ResourceGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ResourceGroupTags",) . toJSON) _inspectorResourceGroupResourceGroupTags - ] - } - --- | Constructor for 'InspectorResourceGroup' containing required fields as --- arguments. -inspectorResourceGroup - :: [Tag] -- ^ 'irgResourceGroupTags' - -> InspectorResourceGroup -inspectorResourceGroup resourceGroupTagsarg = - InspectorResourceGroup - { _inspectorResourceGroupResourceGroupTags = resourceGroupTagsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-inspector-resourcegroup.html#cfn-inspector-resourcegroup-resourcegrouptags -irgResourceGroupTags :: Lens' InspectorResourceGroup [Tag] -irgResourceGroupTags = lens _inspectorResourceGroupResourceGroupTags (\s a -> s { _inspectorResourceGroupResourceGroupTags = a }) diff --git a/library-gen/Stratosphere/Resources/IoT1ClickDevice.hs b/library-gen/Stratosphere/Resources/IoT1ClickDevice.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/IoT1ClickDevice.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot1click-device.html - -module Stratosphere.Resources.IoT1ClickDevice where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoT1ClickDevice. See 'ioT1ClickDevice' for --- a more convenient constructor. -data IoT1ClickDevice = - IoT1ClickDevice - { _ioT1ClickDeviceDeviceId :: Val Text - , _ioT1ClickDeviceEnabled :: Val Bool - } deriving (Show, Eq) - -instance ToResourceProperties IoT1ClickDevice where - toResourceProperties IoT1ClickDevice{..} = - ResourceProperties - { resourcePropertiesType = "AWS::IoT1Click::Device" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("DeviceId",) . toJSON) _ioT1ClickDeviceDeviceId - , (Just . ("Enabled",) . toJSON) _ioT1ClickDeviceEnabled - ] - } - --- | Constructor for 'IoT1ClickDevice' containing required fields as --- arguments. -ioT1ClickDevice - :: Val Text -- ^ 'itcdDeviceId' - -> Val Bool -- ^ 'itcdEnabled' - -> IoT1ClickDevice -ioT1ClickDevice deviceIdarg enabledarg = - IoT1ClickDevice - { _ioT1ClickDeviceDeviceId = deviceIdarg - , _ioT1ClickDeviceEnabled = enabledarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot1click-device.html#cfn-iot1click-device-deviceid -itcdDeviceId :: Lens' IoT1ClickDevice (Val Text) -itcdDeviceId = lens _ioT1ClickDeviceDeviceId (\s a -> s { _ioT1ClickDeviceDeviceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot1click-device.html#cfn-iot1click-device-enabled -itcdEnabled :: Lens' IoT1ClickDevice (Val Bool) -itcdEnabled = lens _ioT1ClickDeviceEnabled (\s a -> s { _ioT1ClickDeviceEnabled = a }) diff --git a/library-gen/Stratosphere/Resources/IoT1ClickPlacement.hs b/library-gen/Stratosphere/Resources/IoT1ClickPlacement.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/IoT1ClickPlacement.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot1click-placement.html - -module Stratosphere.Resources.IoT1ClickPlacement where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoT1ClickPlacement. See --- 'ioT1ClickPlacement' for a more convenient constructor. -data IoT1ClickPlacement = - IoT1ClickPlacement - { _ioT1ClickPlacementAssociatedDevices :: Maybe Object - , _ioT1ClickPlacementAttributes :: Maybe Object - , _ioT1ClickPlacementPlacementName :: Maybe (Val Text) - , _ioT1ClickPlacementProjectName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties IoT1ClickPlacement where - toResourceProperties IoT1ClickPlacement{..} = - ResourceProperties - { resourcePropertiesType = "AWS::IoT1Click::Placement" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AssociatedDevices",) . toJSON) _ioT1ClickPlacementAssociatedDevices - , fmap (("Attributes",) . toJSON) _ioT1ClickPlacementAttributes - , fmap (("PlacementName",) . toJSON) _ioT1ClickPlacementPlacementName - , (Just . ("ProjectName",) . toJSON) _ioT1ClickPlacementProjectName - ] - } - --- | Constructor for 'IoT1ClickPlacement' containing required fields as --- arguments. -ioT1ClickPlacement - :: Val Text -- ^ 'itcplProjectName' - -> IoT1ClickPlacement -ioT1ClickPlacement projectNamearg = - IoT1ClickPlacement - { _ioT1ClickPlacementAssociatedDevices = Nothing - , _ioT1ClickPlacementAttributes = Nothing - , _ioT1ClickPlacementPlacementName = Nothing - , _ioT1ClickPlacementProjectName = projectNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot1click-placement.html#cfn-iot1click-placement-associateddevices -itcplAssociatedDevices :: Lens' IoT1ClickPlacement (Maybe Object) -itcplAssociatedDevices = lens _ioT1ClickPlacementAssociatedDevices (\s a -> s { _ioT1ClickPlacementAssociatedDevices = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot1click-placement.html#cfn-iot1click-placement-attributes -itcplAttributes :: Lens' IoT1ClickPlacement (Maybe Object) -itcplAttributes = lens _ioT1ClickPlacementAttributes (\s a -> s { _ioT1ClickPlacementAttributes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot1click-placement.html#cfn-iot1click-placement-placementname -itcplPlacementName :: Lens' IoT1ClickPlacement (Maybe (Val Text)) -itcplPlacementName = lens _ioT1ClickPlacementPlacementName (\s a -> s { _ioT1ClickPlacementPlacementName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot1click-placement.html#cfn-iot1click-placement-projectname -itcplProjectName :: Lens' IoT1ClickPlacement (Val Text) -itcplProjectName = lens _ioT1ClickPlacementProjectName (\s a -> s { _ioT1ClickPlacementProjectName = a }) diff --git a/library-gen/Stratosphere/Resources/IoT1ClickProject.hs b/library-gen/Stratosphere/Resources/IoT1ClickProject.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/IoT1ClickProject.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot1click-project.html - -module Stratosphere.Resources.IoT1ClickProject where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoT1ClickProjectPlacementTemplate - --- | Full data type definition for IoT1ClickProject. See 'ioT1ClickProject' --- for a more convenient constructor. -data IoT1ClickProject = - IoT1ClickProject - { _ioT1ClickProjectDescription :: Maybe (Val Text) - , _ioT1ClickProjectPlacementTemplate :: IoT1ClickProjectPlacementTemplate - , _ioT1ClickProjectProjectName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties IoT1ClickProject where - toResourceProperties IoT1ClickProject{..} = - ResourceProperties - { resourcePropertiesType = "AWS::IoT1Click::Project" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _ioT1ClickProjectDescription - , (Just . ("PlacementTemplate",) . toJSON) _ioT1ClickProjectPlacementTemplate - , fmap (("ProjectName",) . toJSON) _ioT1ClickProjectProjectName - ] - } - --- | Constructor for 'IoT1ClickProject' containing required fields as --- arguments. -ioT1ClickProject - :: IoT1ClickProjectPlacementTemplate -- ^ 'itcprPlacementTemplate' - -> IoT1ClickProject -ioT1ClickProject placementTemplatearg = - IoT1ClickProject - { _ioT1ClickProjectDescription = Nothing - , _ioT1ClickProjectPlacementTemplate = placementTemplatearg - , _ioT1ClickProjectProjectName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot1click-project.html#cfn-iot1click-project-description -itcprDescription :: Lens' IoT1ClickProject (Maybe (Val Text)) -itcprDescription = lens _ioT1ClickProjectDescription (\s a -> s { _ioT1ClickProjectDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot1click-project.html#cfn-iot1click-project-placementtemplate -itcprPlacementTemplate :: Lens' IoT1ClickProject IoT1ClickProjectPlacementTemplate -itcprPlacementTemplate = lens _ioT1ClickProjectPlacementTemplate (\s a -> s { _ioT1ClickProjectPlacementTemplate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot1click-project.html#cfn-iot1click-project-projectname -itcprProjectName :: Lens' IoT1ClickProject (Maybe (Val Text)) -itcprProjectName = lens _ioT1ClickProjectProjectName (\s a -> s { _ioT1ClickProjectProjectName = a }) diff --git a/library-gen/Stratosphere/Resources/IoTAnalyticsChannel.hs b/library-gen/Stratosphere/Resources/IoTAnalyticsChannel.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/IoTAnalyticsChannel.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotanalytics-channel.html - -module Stratosphere.Resources.IoTAnalyticsChannel where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTAnalyticsChannelChannelStorage -import Stratosphere.ResourceProperties.IoTAnalyticsChannelRetentionPeriod -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for IoTAnalyticsChannel. See --- 'ioTAnalyticsChannel' for a more convenient constructor. -data IoTAnalyticsChannel = - IoTAnalyticsChannel - { _ioTAnalyticsChannelChannelName :: Maybe (Val Text) - , _ioTAnalyticsChannelChannelStorage :: Maybe IoTAnalyticsChannelChannelStorage - , _ioTAnalyticsChannelRetentionPeriod :: Maybe IoTAnalyticsChannelRetentionPeriod - , _ioTAnalyticsChannelTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties IoTAnalyticsChannel where - toResourceProperties IoTAnalyticsChannel{..} = - ResourceProperties - { resourcePropertiesType = "AWS::IoTAnalytics::Channel" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ChannelName",) . toJSON) _ioTAnalyticsChannelChannelName - , fmap (("ChannelStorage",) . toJSON) _ioTAnalyticsChannelChannelStorage - , fmap (("RetentionPeriod",) . toJSON) _ioTAnalyticsChannelRetentionPeriod - , fmap (("Tags",) . toJSON) _ioTAnalyticsChannelTags - ] - } - --- | Constructor for 'IoTAnalyticsChannel' containing required fields as --- arguments. -ioTAnalyticsChannel - :: IoTAnalyticsChannel -ioTAnalyticsChannel = - IoTAnalyticsChannel - { _ioTAnalyticsChannelChannelName = Nothing - , _ioTAnalyticsChannelChannelStorage = Nothing - , _ioTAnalyticsChannelRetentionPeriod = Nothing - , _ioTAnalyticsChannelTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotanalytics-channel.html#cfn-iotanalytics-channel-channelname -itacChannelName :: Lens' IoTAnalyticsChannel (Maybe (Val Text)) -itacChannelName = lens _ioTAnalyticsChannelChannelName (\s a -> s { _ioTAnalyticsChannelChannelName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotanalytics-channel.html#cfn-iotanalytics-channel-channelstorage -itacChannelStorage :: Lens' IoTAnalyticsChannel (Maybe IoTAnalyticsChannelChannelStorage) -itacChannelStorage = lens _ioTAnalyticsChannelChannelStorage (\s a -> s { _ioTAnalyticsChannelChannelStorage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotanalytics-channel.html#cfn-iotanalytics-channel-retentionperiod -itacRetentionPeriod :: Lens' IoTAnalyticsChannel (Maybe IoTAnalyticsChannelRetentionPeriod) -itacRetentionPeriod = lens _ioTAnalyticsChannelRetentionPeriod (\s a -> s { _ioTAnalyticsChannelRetentionPeriod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotanalytics-channel.html#cfn-iotanalytics-channel-tags -itacTags :: Lens' IoTAnalyticsChannel (Maybe [Tag]) -itacTags = lens _ioTAnalyticsChannelTags (\s a -> s { _ioTAnalyticsChannelTags = a }) diff --git a/library-gen/Stratosphere/Resources/IoTAnalyticsDataset.hs b/library-gen/Stratosphere/Resources/IoTAnalyticsDataset.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/IoTAnalyticsDataset.hs +++ /dev/null @@ -1,89 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotanalytics-dataset.html - -module Stratosphere.Resources.IoTAnalyticsDataset where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetAction -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetDatasetContentDeliveryRule -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetRetentionPeriod -import Stratosphere.ResourceProperties.Tag -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetTrigger -import Stratosphere.ResourceProperties.IoTAnalyticsDatasetVersioningConfiguration - --- | Full data type definition for IoTAnalyticsDataset. See --- 'ioTAnalyticsDataset' for a more convenient constructor. -data IoTAnalyticsDataset = - IoTAnalyticsDataset - { _ioTAnalyticsDatasetActions :: [IoTAnalyticsDatasetAction] - , _ioTAnalyticsDatasetContentDeliveryRules :: Maybe [IoTAnalyticsDatasetDatasetContentDeliveryRule] - , _ioTAnalyticsDatasetDatasetName :: Maybe (Val Text) - , _ioTAnalyticsDatasetRetentionPeriod :: Maybe IoTAnalyticsDatasetRetentionPeriod - , _ioTAnalyticsDatasetTags :: Maybe [Tag] - , _ioTAnalyticsDatasetTriggers :: Maybe [IoTAnalyticsDatasetTrigger] - , _ioTAnalyticsDatasetVersioningConfiguration :: Maybe IoTAnalyticsDatasetVersioningConfiguration - } deriving (Show, Eq) - -instance ToResourceProperties IoTAnalyticsDataset where - toResourceProperties IoTAnalyticsDataset{..} = - ResourceProperties - { resourcePropertiesType = "AWS::IoTAnalytics::Dataset" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Actions",) . toJSON) _ioTAnalyticsDatasetActions - , fmap (("ContentDeliveryRules",) . toJSON) _ioTAnalyticsDatasetContentDeliveryRules - , fmap (("DatasetName",) . toJSON) _ioTAnalyticsDatasetDatasetName - , fmap (("RetentionPeriod",) . toJSON) _ioTAnalyticsDatasetRetentionPeriod - , fmap (("Tags",) . toJSON) _ioTAnalyticsDatasetTags - , fmap (("Triggers",) . toJSON) _ioTAnalyticsDatasetTriggers - , fmap (("VersioningConfiguration",) . toJSON) _ioTAnalyticsDatasetVersioningConfiguration - ] - } - --- | Constructor for 'IoTAnalyticsDataset' containing required fields as --- arguments. -ioTAnalyticsDataset - :: [IoTAnalyticsDatasetAction] -- ^ 'itadsActions' - -> IoTAnalyticsDataset -ioTAnalyticsDataset actionsarg = - IoTAnalyticsDataset - { _ioTAnalyticsDatasetActions = actionsarg - , _ioTAnalyticsDatasetContentDeliveryRules = Nothing - , _ioTAnalyticsDatasetDatasetName = Nothing - , _ioTAnalyticsDatasetRetentionPeriod = Nothing - , _ioTAnalyticsDatasetTags = Nothing - , _ioTAnalyticsDatasetTriggers = Nothing - , _ioTAnalyticsDatasetVersioningConfiguration = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotanalytics-dataset.html#cfn-iotanalytics-dataset-actions -itadsActions :: Lens' IoTAnalyticsDataset [IoTAnalyticsDatasetAction] -itadsActions = lens _ioTAnalyticsDatasetActions (\s a -> s { _ioTAnalyticsDatasetActions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotanalytics-dataset.html#cfn-iotanalytics-dataset-contentdeliveryrules -itadsContentDeliveryRules :: Lens' IoTAnalyticsDataset (Maybe [IoTAnalyticsDatasetDatasetContentDeliveryRule]) -itadsContentDeliveryRules = lens _ioTAnalyticsDatasetContentDeliveryRules (\s a -> s { _ioTAnalyticsDatasetContentDeliveryRules = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotanalytics-dataset.html#cfn-iotanalytics-dataset-datasetname -itadsDatasetName :: Lens' IoTAnalyticsDataset (Maybe (Val Text)) -itadsDatasetName = lens _ioTAnalyticsDatasetDatasetName (\s a -> s { _ioTAnalyticsDatasetDatasetName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotanalytics-dataset.html#cfn-iotanalytics-dataset-retentionperiod -itadsRetentionPeriod :: Lens' IoTAnalyticsDataset (Maybe IoTAnalyticsDatasetRetentionPeriod) -itadsRetentionPeriod = lens _ioTAnalyticsDatasetRetentionPeriod (\s a -> s { _ioTAnalyticsDatasetRetentionPeriod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotanalytics-dataset.html#cfn-iotanalytics-dataset-tags -itadsTags :: Lens' IoTAnalyticsDataset (Maybe [Tag]) -itadsTags = lens _ioTAnalyticsDatasetTags (\s a -> s { _ioTAnalyticsDatasetTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotanalytics-dataset.html#cfn-iotanalytics-dataset-triggers -itadsTriggers :: Lens' IoTAnalyticsDataset (Maybe [IoTAnalyticsDatasetTrigger]) -itadsTriggers = lens _ioTAnalyticsDatasetTriggers (\s a -> s { _ioTAnalyticsDatasetTriggers = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotanalytics-dataset.html#cfn-iotanalytics-dataset-versioningconfiguration -itadsVersioningConfiguration :: Lens' IoTAnalyticsDataset (Maybe IoTAnalyticsDatasetVersioningConfiguration) -itadsVersioningConfiguration = lens _ioTAnalyticsDatasetVersioningConfiguration (\s a -> s { _ioTAnalyticsDatasetVersioningConfiguration = a }) diff --git a/library-gen/Stratosphere/Resources/IoTAnalyticsDatastore.hs b/library-gen/Stratosphere/Resources/IoTAnalyticsDatastore.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/IoTAnalyticsDatastore.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotanalytics-datastore.html - -module Stratosphere.Resources.IoTAnalyticsDatastore where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTAnalyticsDatastoreDatastoreStorage -import Stratosphere.ResourceProperties.IoTAnalyticsDatastoreRetentionPeriod -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for IoTAnalyticsDatastore. See --- 'ioTAnalyticsDatastore' for a more convenient constructor. -data IoTAnalyticsDatastore = - IoTAnalyticsDatastore - { _ioTAnalyticsDatastoreDatastoreName :: Maybe (Val Text) - , _ioTAnalyticsDatastoreDatastoreStorage :: Maybe IoTAnalyticsDatastoreDatastoreStorage - , _ioTAnalyticsDatastoreRetentionPeriod :: Maybe IoTAnalyticsDatastoreRetentionPeriod - , _ioTAnalyticsDatastoreTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties IoTAnalyticsDatastore where - toResourceProperties IoTAnalyticsDatastore{..} = - ResourceProperties - { resourcePropertiesType = "AWS::IoTAnalytics::Datastore" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("DatastoreName",) . toJSON) _ioTAnalyticsDatastoreDatastoreName - , fmap (("DatastoreStorage",) . toJSON) _ioTAnalyticsDatastoreDatastoreStorage - , fmap (("RetentionPeriod",) . toJSON) _ioTAnalyticsDatastoreRetentionPeriod - , fmap (("Tags",) . toJSON) _ioTAnalyticsDatastoreTags - ] - } - --- | Constructor for 'IoTAnalyticsDatastore' containing required fields as --- arguments. -ioTAnalyticsDatastore - :: IoTAnalyticsDatastore -ioTAnalyticsDatastore = - IoTAnalyticsDatastore - { _ioTAnalyticsDatastoreDatastoreName = Nothing - , _ioTAnalyticsDatastoreDatastoreStorage = Nothing - , _ioTAnalyticsDatastoreRetentionPeriod = Nothing - , _ioTAnalyticsDatastoreTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotanalytics-datastore.html#cfn-iotanalytics-datastore-datastorename -itadstDatastoreName :: Lens' IoTAnalyticsDatastore (Maybe (Val Text)) -itadstDatastoreName = lens _ioTAnalyticsDatastoreDatastoreName (\s a -> s { _ioTAnalyticsDatastoreDatastoreName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotanalytics-datastore.html#cfn-iotanalytics-datastore-datastorestorage -itadstDatastoreStorage :: Lens' IoTAnalyticsDatastore (Maybe IoTAnalyticsDatastoreDatastoreStorage) -itadstDatastoreStorage = lens _ioTAnalyticsDatastoreDatastoreStorage (\s a -> s { _ioTAnalyticsDatastoreDatastoreStorage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotanalytics-datastore.html#cfn-iotanalytics-datastore-retentionperiod -itadstRetentionPeriod :: Lens' IoTAnalyticsDatastore (Maybe IoTAnalyticsDatastoreRetentionPeriod) -itadstRetentionPeriod = lens _ioTAnalyticsDatastoreRetentionPeriod (\s a -> s { _ioTAnalyticsDatastoreRetentionPeriod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotanalytics-datastore.html#cfn-iotanalytics-datastore-tags -itadstTags :: Lens' IoTAnalyticsDatastore (Maybe [Tag]) -itadstTags = lens _ioTAnalyticsDatastoreTags (\s a -> s { _ioTAnalyticsDatastoreTags = a }) diff --git a/library-gen/Stratosphere/Resources/IoTAnalyticsPipeline.hs b/library-gen/Stratosphere/Resources/IoTAnalyticsPipeline.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/IoTAnalyticsPipeline.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotanalytics-pipeline.html - -module Stratosphere.Resources.IoTAnalyticsPipeline where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTAnalyticsPipelineActivity -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for IoTAnalyticsPipeline. See --- 'ioTAnalyticsPipeline' for a more convenient constructor. -data IoTAnalyticsPipeline = - IoTAnalyticsPipeline - { _ioTAnalyticsPipelinePipelineActivities :: [IoTAnalyticsPipelineActivity] - , _ioTAnalyticsPipelinePipelineName :: Maybe (Val Text) - , _ioTAnalyticsPipelineTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties IoTAnalyticsPipeline where - toResourceProperties IoTAnalyticsPipeline{..} = - ResourceProperties - { resourcePropertiesType = "AWS::IoTAnalytics::Pipeline" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("PipelineActivities",) . toJSON) _ioTAnalyticsPipelinePipelineActivities - , fmap (("PipelineName",) . toJSON) _ioTAnalyticsPipelinePipelineName - , fmap (("Tags",) . toJSON) _ioTAnalyticsPipelineTags - ] - } - --- | Constructor for 'IoTAnalyticsPipeline' containing required fields as --- arguments. -ioTAnalyticsPipeline - :: [IoTAnalyticsPipelineActivity] -- ^ 'itapPipelineActivities' - -> IoTAnalyticsPipeline -ioTAnalyticsPipeline pipelineActivitiesarg = - IoTAnalyticsPipeline - { _ioTAnalyticsPipelinePipelineActivities = pipelineActivitiesarg - , _ioTAnalyticsPipelinePipelineName = Nothing - , _ioTAnalyticsPipelineTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotanalytics-pipeline.html#cfn-iotanalytics-pipeline-pipelineactivities -itapPipelineActivities :: Lens' IoTAnalyticsPipeline [IoTAnalyticsPipelineActivity] -itapPipelineActivities = lens _ioTAnalyticsPipelinePipelineActivities (\s a -> s { _ioTAnalyticsPipelinePipelineActivities = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotanalytics-pipeline.html#cfn-iotanalytics-pipeline-pipelinename -itapPipelineName :: Lens' IoTAnalyticsPipeline (Maybe (Val Text)) -itapPipelineName = lens _ioTAnalyticsPipelinePipelineName (\s a -> s { _ioTAnalyticsPipelinePipelineName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotanalytics-pipeline.html#cfn-iotanalytics-pipeline-tags -itapTags :: Lens' IoTAnalyticsPipeline (Maybe [Tag]) -itapTags = lens _ioTAnalyticsPipelineTags (\s a -> s { _ioTAnalyticsPipelineTags = a }) diff --git a/library-gen/Stratosphere/Resources/IoTCertificate.hs b/library-gen/Stratosphere/Resources/IoTCertificate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/IoTCertificate.hs +++ /dev/null @@ -1,69 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot-certificate.html - -module Stratosphere.Resources.IoTCertificate where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTCertificate. See 'ioTCertificate' for a --- more convenient constructor. -data IoTCertificate = - IoTCertificate - { _ioTCertificateCACertificatePem :: Maybe (Val Text) - , _ioTCertificateCertificateMode :: Maybe (Val Text) - , _ioTCertificateCertificatePem :: Maybe (Val Text) - , _ioTCertificateCertificateSigningRequest :: Maybe (Val Text) - , _ioTCertificateStatus :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties IoTCertificate where - toResourceProperties IoTCertificate{..} = - ResourceProperties - { resourcePropertiesType = "AWS::IoT::Certificate" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("CACertificatePem",) . toJSON) _ioTCertificateCACertificatePem - , fmap (("CertificateMode",) . toJSON) _ioTCertificateCertificateMode - , fmap (("CertificatePem",) . toJSON) _ioTCertificateCertificatePem - , fmap (("CertificateSigningRequest",) . toJSON) _ioTCertificateCertificateSigningRequest - , (Just . ("Status",) . toJSON) _ioTCertificateStatus - ] - } - --- | Constructor for 'IoTCertificate' containing required fields as arguments. -ioTCertificate - :: Val Text -- ^ 'itcStatus' - -> IoTCertificate -ioTCertificate statusarg = - IoTCertificate - { _ioTCertificateCACertificatePem = Nothing - , _ioTCertificateCertificateMode = Nothing - , _ioTCertificateCertificatePem = Nothing - , _ioTCertificateCertificateSigningRequest = Nothing - , _ioTCertificateStatus = statusarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot-certificate.html#cfn-iot-certificate-cacertificatepem -itcCACertificatePem :: Lens' IoTCertificate (Maybe (Val Text)) -itcCACertificatePem = lens _ioTCertificateCACertificatePem (\s a -> s { _ioTCertificateCACertificatePem = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot-certificate.html#cfn-iot-certificate-certificatemode -itcCertificateMode :: Lens' IoTCertificate (Maybe (Val Text)) -itcCertificateMode = lens _ioTCertificateCertificateMode (\s a -> s { _ioTCertificateCertificateMode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot-certificate.html#cfn-iot-certificate-certificatepem -itcCertificatePem :: Lens' IoTCertificate (Maybe (Val Text)) -itcCertificatePem = lens _ioTCertificateCertificatePem (\s a -> s { _ioTCertificateCertificatePem = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot-certificate.html#cfn-iot-certificate-certificatesigningrequest -itcCertificateSigningRequest :: Lens' IoTCertificate (Maybe (Val Text)) -itcCertificateSigningRequest = lens _ioTCertificateCertificateSigningRequest (\s a -> s { _ioTCertificateCertificateSigningRequest = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot-certificate.html#cfn-iot-certificate-status -itcStatus :: Lens' IoTCertificate (Val Text) -itcStatus = lens _ioTCertificateStatus (\s a -> s { _ioTCertificateStatus = a }) diff --git a/library-gen/Stratosphere/Resources/IoTEventsDetectorModel.hs b/library-gen/Stratosphere/Resources/IoTEventsDetectorModel.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/IoTEventsDetectorModel.hs +++ /dev/null @@ -1,84 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotevents-detectormodel.html - -module Stratosphere.Resources.IoTEventsDetectorModel where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTEventsDetectorModelDetectorModelDefinition -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for IoTEventsDetectorModel. See --- 'ioTEventsDetectorModel' for a more convenient constructor. -data IoTEventsDetectorModel = - IoTEventsDetectorModel - { _ioTEventsDetectorModelDetectorModelDefinition :: Maybe IoTEventsDetectorModelDetectorModelDefinition - , _ioTEventsDetectorModelDetectorModelDescription :: Maybe (Val Text) - , _ioTEventsDetectorModelDetectorModelName :: Maybe (Val Text) - , _ioTEventsDetectorModelEvaluationMethod :: Maybe (Val Text) - , _ioTEventsDetectorModelKey :: Maybe (Val Text) - , _ioTEventsDetectorModelRoleArn :: Maybe (Val Text) - , _ioTEventsDetectorModelTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties IoTEventsDetectorModel where - toResourceProperties IoTEventsDetectorModel{..} = - ResourceProperties - { resourcePropertiesType = "AWS::IoTEvents::DetectorModel" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("DetectorModelDefinition",) . toJSON) _ioTEventsDetectorModelDetectorModelDefinition - , fmap (("DetectorModelDescription",) . toJSON) _ioTEventsDetectorModelDetectorModelDescription - , fmap (("DetectorModelName",) . toJSON) _ioTEventsDetectorModelDetectorModelName - , fmap (("EvaluationMethod",) . toJSON) _ioTEventsDetectorModelEvaluationMethod - , fmap (("Key",) . toJSON) _ioTEventsDetectorModelKey - , fmap (("RoleArn",) . toJSON) _ioTEventsDetectorModelRoleArn - , fmap (("Tags",) . toJSON) _ioTEventsDetectorModelTags - ] - } - --- | Constructor for 'IoTEventsDetectorModel' containing required fields as --- arguments. -ioTEventsDetectorModel - :: IoTEventsDetectorModel -ioTEventsDetectorModel = - IoTEventsDetectorModel - { _ioTEventsDetectorModelDetectorModelDefinition = Nothing - , _ioTEventsDetectorModelDetectorModelDescription = Nothing - , _ioTEventsDetectorModelDetectorModelName = Nothing - , _ioTEventsDetectorModelEvaluationMethod = Nothing - , _ioTEventsDetectorModelKey = Nothing - , _ioTEventsDetectorModelRoleArn = Nothing - , _ioTEventsDetectorModelTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotevents-detectormodel.html#cfn-iotevents-detectormodel-detectormodeldefinition -itedmDetectorModelDefinition :: Lens' IoTEventsDetectorModel (Maybe IoTEventsDetectorModelDetectorModelDefinition) -itedmDetectorModelDefinition = lens _ioTEventsDetectorModelDetectorModelDefinition (\s a -> s { _ioTEventsDetectorModelDetectorModelDefinition = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotevents-detectormodel.html#cfn-iotevents-detectormodel-detectormodeldescription -itedmDetectorModelDescription :: Lens' IoTEventsDetectorModel (Maybe (Val Text)) -itedmDetectorModelDescription = lens _ioTEventsDetectorModelDetectorModelDescription (\s a -> s { _ioTEventsDetectorModelDetectorModelDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotevents-detectormodel.html#cfn-iotevents-detectormodel-detectormodelname -itedmDetectorModelName :: Lens' IoTEventsDetectorModel (Maybe (Val Text)) -itedmDetectorModelName = lens _ioTEventsDetectorModelDetectorModelName (\s a -> s { _ioTEventsDetectorModelDetectorModelName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotevents-detectormodel.html#cfn-iotevents-detectormodel-evaluationmethod -itedmEvaluationMethod :: Lens' IoTEventsDetectorModel (Maybe (Val Text)) -itedmEvaluationMethod = lens _ioTEventsDetectorModelEvaluationMethod (\s a -> s { _ioTEventsDetectorModelEvaluationMethod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotevents-detectormodel.html#cfn-iotevents-detectormodel-key -itedmKey :: Lens' IoTEventsDetectorModel (Maybe (Val Text)) -itedmKey = lens _ioTEventsDetectorModelKey (\s a -> s { _ioTEventsDetectorModelKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotevents-detectormodel.html#cfn-iotevents-detectormodel-rolearn -itedmRoleArn :: Lens' IoTEventsDetectorModel (Maybe (Val Text)) -itedmRoleArn = lens _ioTEventsDetectorModelRoleArn (\s a -> s { _ioTEventsDetectorModelRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotevents-detectormodel.html#cfn-iotevents-detectormodel-tags -itedmTags :: Lens' IoTEventsDetectorModel (Maybe [Tag]) -itedmTags = lens _ioTEventsDetectorModelTags (\s a -> s { _ioTEventsDetectorModelTags = a }) diff --git a/library-gen/Stratosphere/Resources/IoTEventsInput.hs b/library-gen/Stratosphere/Resources/IoTEventsInput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/IoTEventsInput.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotevents-input.html - -module Stratosphere.Resources.IoTEventsInput where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTEventsInputInputDefinition -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for IoTEventsInput. See 'ioTEventsInput' for a --- more convenient constructor. -data IoTEventsInput = - IoTEventsInput - { _ioTEventsInputInputDefinition :: Maybe IoTEventsInputInputDefinition - , _ioTEventsInputInputDescription :: Maybe (Val Text) - , _ioTEventsInputInputName :: Maybe (Val Text) - , _ioTEventsInputTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties IoTEventsInput where - toResourceProperties IoTEventsInput{..} = - ResourceProperties - { resourcePropertiesType = "AWS::IoTEvents::Input" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("InputDefinition",) . toJSON) _ioTEventsInputInputDefinition - , fmap (("InputDescription",) . toJSON) _ioTEventsInputInputDescription - , fmap (("InputName",) . toJSON) _ioTEventsInputInputName - , fmap (("Tags",) . toJSON) _ioTEventsInputTags - ] - } - --- | Constructor for 'IoTEventsInput' containing required fields as arguments. -ioTEventsInput - :: IoTEventsInput -ioTEventsInput = - IoTEventsInput - { _ioTEventsInputInputDefinition = Nothing - , _ioTEventsInputInputDescription = Nothing - , _ioTEventsInputInputName = Nothing - , _ioTEventsInputTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotevents-input.html#cfn-iotevents-input-inputdefinition -iteiInputDefinition :: Lens' IoTEventsInput (Maybe IoTEventsInputInputDefinition) -iteiInputDefinition = lens _ioTEventsInputInputDefinition (\s a -> s { _ioTEventsInputInputDefinition = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotevents-input.html#cfn-iotevents-input-inputdescription -iteiInputDescription :: Lens' IoTEventsInput (Maybe (Val Text)) -iteiInputDescription = lens _ioTEventsInputInputDescription (\s a -> s { _ioTEventsInputInputDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotevents-input.html#cfn-iotevents-input-inputname -iteiInputName :: Lens' IoTEventsInput (Maybe (Val Text)) -iteiInputName = lens _ioTEventsInputInputName (\s a -> s { _ioTEventsInputInputName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotevents-input.html#cfn-iotevents-input-tags -iteiTags :: Lens' IoTEventsInput (Maybe [Tag]) -iteiTags = lens _ioTEventsInputTags (\s a -> s { _ioTEventsInputTags = a }) diff --git a/library-gen/Stratosphere/Resources/IoTPolicy.hs b/library-gen/Stratosphere/Resources/IoTPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/IoTPolicy.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot-policy.html - -module Stratosphere.Resources.IoTPolicy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTPolicy. See 'ioTPolicy' for a more --- convenient constructor. -data IoTPolicy = - IoTPolicy - { _ioTPolicyPolicyDocument :: Object - , _ioTPolicyPolicyName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties IoTPolicy where - toResourceProperties IoTPolicy{..} = - ResourceProperties - { resourcePropertiesType = "AWS::IoT::Policy" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("PolicyDocument",) . toJSON) _ioTPolicyPolicyDocument - , fmap (("PolicyName",) . toJSON) _ioTPolicyPolicyName - ] - } - --- | Constructor for 'IoTPolicy' containing required fields as arguments. -ioTPolicy - :: Object -- ^ 'itpPolicyDocument' - -> IoTPolicy -ioTPolicy policyDocumentarg = - IoTPolicy - { _ioTPolicyPolicyDocument = policyDocumentarg - , _ioTPolicyPolicyName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot-policy.html#cfn-iot-policy-policydocument -itpPolicyDocument :: Lens' IoTPolicy Object -itpPolicyDocument = lens _ioTPolicyPolicyDocument (\s a -> s { _ioTPolicyPolicyDocument = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot-policy.html#cfn-iot-policy-policyname -itpPolicyName :: Lens' IoTPolicy (Maybe (Val Text)) -itpPolicyName = lens _ioTPolicyPolicyName (\s a -> s { _ioTPolicyPolicyName = a }) diff --git a/library-gen/Stratosphere/Resources/IoTPolicyPrincipalAttachment.hs b/library-gen/Stratosphere/Resources/IoTPolicyPrincipalAttachment.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/IoTPolicyPrincipalAttachment.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot-policyprincipalattachment.html - -module Stratosphere.Resources.IoTPolicyPrincipalAttachment where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTPolicyPrincipalAttachment. See --- 'ioTPolicyPrincipalAttachment' for a more convenient constructor. -data IoTPolicyPrincipalAttachment = - IoTPolicyPrincipalAttachment - { _ioTPolicyPrincipalAttachmentPolicyName :: Val Text - , _ioTPolicyPrincipalAttachmentPrincipal :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties IoTPolicyPrincipalAttachment where - toResourceProperties IoTPolicyPrincipalAttachment{..} = - ResourceProperties - { resourcePropertiesType = "AWS::IoT::PolicyPrincipalAttachment" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("PolicyName",) . toJSON) _ioTPolicyPrincipalAttachmentPolicyName - , (Just . ("Principal",) . toJSON) _ioTPolicyPrincipalAttachmentPrincipal - ] - } - --- | Constructor for 'IoTPolicyPrincipalAttachment' containing required fields --- as arguments. -ioTPolicyPrincipalAttachment - :: Val Text -- ^ 'itppaPolicyName' - -> Val Text -- ^ 'itppaPrincipal' - -> IoTPolicyPrincipalAttachment -ioTPolicyPrincipalAttachment policyNamearg principalarg = - IoTPolicyPrincipalAttachment - { _ioTPolicyPrincipalAttachmentPolicyName = policyNamearg - , _ioTPolicyPrincipalAttachmentPrincipal = principalarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot-policyprincipalattachment.html#cfn-iot-policyprincipalattachment-policyname -itppaPolicyName :: Lens' IoTPolicyPrincipalAttachment (Val Text) -itppaPolicyName = lens _ioTPolicyPrincipalAttachmentPolicyName (\s a -> s { _ioTPolicyPrincipalAttachmentPolicyName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot-policyprincipalattachment.html#cfn-iot-policyprincipalattachment-principal -itppaPrincipal :: Lens' IoTPolicyPrincipalAttachment (Val Text) -itppaPrincipal = lens _ioTPolicyPrincipalAttachmentPrincipal (\s a -> s { _ioTPolicyPrincipalAttachmentPrincipal = a }) diff --git a/library-gen/Stratosphere/Resources/IoTProvisioningTemplate.hs b/library-gen/Stratosphere/Resources/IoTProvisioningTemplate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/IoTProvisioningTemplate.hs +++ /dev/null @@ -1,86 +0,0 @@ -{-# 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 -import Stratosphere.ResourceProperties.IoTProvisioningTemplateTags - --- | 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 IoTProvisioningTemplateTags - , _ioTProvisioningTemplateTemplateBody :: Val Text - , _ioTProvisioningTemplateTemplateName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties IoTProvisioningTemplate where - toResourceProperties IoTProvisioningTemplate{..} = - ResourceProperties - { resourcePropertiesType = "AWS::IoT::ProvisioningTemplate" - , resourcePropertiesProperties = - keyMapFromList $ 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 IoTProvisioningTemplateTags) -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 }) diff --git a/library-gen/Stratosphere/Resources/IoTThing.hs b/library-gen/Stratosphere/Resources/IoTThing.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/IoTThing.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot-thing.html - -module Stratosphere.Resources.IoTThing where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTThingAttributePayload - --- | Full data type definition for IoTThing. See 'ioTThing' for a more --- convenient constructor. -data IoTThing = - IoTThing - { _ioTThingAttributePayload :: Maybe IoTThingAttributePayload - , _ioTThingThingName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties IoTThing where - toResourceProperties IoTThing{..} = - ResourceProperties - { resourcePropertiesType = "AWS::IoT::Thing" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AttributePayload",) . toJSON) _ioTThingAttributePayload - , fmap (("ThingName",) . toJSON) _ioTThingThingName - ] - } - --- | Constructor for 'IoTThing' containing required fields as arguments. -ioTThing - :: IoTThing -ioTThing = - IoTThing - { _ioTThingAttributePayload = Nothing - , _ioTThingThingName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot-thing.html#cfn-iot-thing-attributepayload -ittAttributePayload :: Lens' IoTThing (Maybe IoTThingAttributePayload) -ittAttributePayload = lens _ioTThingAttributePayload (\s a -> s { _ioTThingAttributePayload = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot-thing.html#cfn-iot-thing-thingname -ittThingName :: Lens' IoTThing (Maybe (Val Text)) -ittThingName = lens _ioTThingThingName (\s a -> s { _ioTThingThingName = a }) diff --git a/library-gen/Stratosphere/Resources/IoTThingPrincipalAttachment.hs b/library-gen/Stratosphere/Resources/IoTThingPrincipalAttachment.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/IoTThingPrincipalAttachment.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot-thingprincipalattachment.html - -module Stratosphere.Resources.IoTThingPrincipalAttachment where - -import Stratosphere.ResourceImports - - --- | Full data type definition for IoTThingPrincipalAttachment. See --- 'ioTThingPrincipalAttachment' for a more convenient constructor. -data IoTThingPrincipalAttachment = - IoTThingPrincipalAttachment - { _ioTThingPrincipalAttachmentPrincipal :: Val Text - , _ioTThingPrincipalAttachmentThingName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties IoTThingPrincipalAttachment where - toResourceProperties IoTThingPrincipalAttachment{..} = - ResourceProperties - { resourcePropertiesType = "AWS::IoT::ThingPrincipalAttachment" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Principal",) . toJSON) _ioTThingPrincipalAttachmentPrincipal - , (Just . ("ThingName",) . toJSON) _ioTThingPrincipalAttachmentThingName - ] - } - --- | Constructor for 'IoTThingPrincipalAttachment' containing required fields --- as arguments. -ioTThingPrincipalAttachment - :: Val Text -- ^ 'ittpaPrincipal' - -> Val Text -- ^ 'ittpaThingName' - -> IoTThingPrincipalAttachment -ioTThingPrincipalAttachment principalarg thingNamearg = - IoTThingPrincipalAttachment - { _ioTThingPrincipalAttachmentPrincipal = principalarg - , _ioTThingPrincipalAttachmentThingName = thingNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot-thingprincipalattachment.html#cfn-iot-thingprincipalattachment-principal -ittpaPrincipal :: Lens' IoTThingPrincipalAttachment (Val Text) -ittpaPrincipal = lens _ioTThingPrincipalAttachmentPrincipal (\s a -> s { _ioTThingPrincipalAttachmentPrincipal = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot-thingprincipalattachment.html#cfn-iot-thingprincipalattachment-thingname -ittpaThingName :: Lens' IoTThingPrincipalAttachment (Val Text) -ittpaThingName = lens _ioTThingPrincipalAttachmentThingName (\s a -> s { _ioTThingPrincipalAttachmentThingName = a }) diff --git a/library-gen/Stratosphere/Resources/IoTThingsGraphFlowTemplate.hs b/library-gen/Stratosphere/Resources/IoTThingsGraphFlowTemplate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/IoTThingsGraphFlowTemplate.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotthingsgraph-flowtemplate.html - -module Stratosphere.Resources.IoTThingsGraphFlowTemplate where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTThingsGraphFlowTemplateDefinitionDocument - --- | Full data type definition for IoTThingsGraphFlowTemplate. See --- 'ioTThingsGraphFlowTemplate' for a more convenient constructor. -data IoTThingsGraphFlowTemplate = - IoTThingsGraphFlowTemplate - { _ioTThingsGraphFlowTemplateCompatibleNamespaceVersion :: Maybe (Val Double) - , _ioTThingsGraphFlowTemplateDefinition :: IoTThingsGraphFlowTemplateDefinitionDocument - } deriving (Show, Eq) - -instance ToResourceProperties IoTThingsGraphFlowTemplate where - toResourceProperties IoTThingsGraphFlowTemplate{..} = - ResourceProperties - { resourcePropertiesType = "AWS::IoTThingsGraph::FlowTemplate" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("CompatibleNamespaceVersion",) . toJSON) _ioTThingsGraphFlowTemplateCompatibleNamespaceVersion - , (Just . ("Definition",) . toJSON) _ioTThingsGraphFlowTemplateDefinition - ] - } - --- | Constructor for 'IoTThingsGraphFlowTemplate' containing required fields --- as arguments. -ioTThingsGraphFlowTemplate - :: IoTThingsGraphFlowTemplateDefinitionDocument -- ^ 'ittgftDefinition' - -> IoTThingsGraphFlowTemplate -ioTThingsGraphFlowTemplate definitionarg = - IoTThingsGraphFlowTemplate - { _ioTThingsGraphFlowTemplateCompatibleNamespaceVersion = Nothing - , _ioTThingsGraphFlowTemplateDefinition = definitionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotthingsgraph-flowtemplate.html#cfn-iotthingsgraph-flowtemplate-compatiblenamespaceversion -ittgftCompatibleNamespaceVersion :: Lens' IoTThingsGraphFlowTemplate (Maybe (Val Double)) -ittgftCompatibleNamespaceVersion = lens _ioTThingsGraphFlowTemplateCompatibleNamespaceVersion (\s a -> s { _ioTThingsGraphFlowTemplateCompatibleNamespaceVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotthingsgraph-flowtemplate.html#cfn-iotthingsgraph-flowtemplate-definition -ittgftDefinition :: Lens' IoTThingsGraphFlowTemplate IoTThingsGraphFlowTemplateDefinitionDocument -ittgftDefinition = lens _ioTThingsGraphFlowTemplateDefinition (\s a -> s { _ioTThingsGraphFlowTemplateDefinition = a }) diff --git a/library-gen/Stratosphere/Resources/IoTTopicRule.hs b/library-gen/Stratosphere/Resources/IoTTopicRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/IoTTopicRule.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot-topicrule.html - -module Stratosphere.Resources.IoTTopicRule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.IoTTopicRuleTopicRulePayload - --- | Full data type definition for IoTTopicRule. See 'ioTTopicRule' for a more --- convenient constructor. -data IoTTopicRule = - IoTTopicRule - { _ioTTopicRuleRuleName :: Maybe (Val Text) - , _ioTTopicRuleTopicRulePayload :: IoTTopicRuleTopicRulePayload - } deriving (Show, Eq) - -instance ToResourceProperties IoTTopicRule where - toResourceProperties IoTTopicRule{..} = - ResourceProperties - { resourcePropertiesType = "AWS::IoT::TopicRule" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("RuleName",) . toJSON) _ioTTopicRuleRuleName - , (Just . ("TopicRulePayload",) . toJSON) _ioTTopicRuleTopicRulePayload - ] - } - --- | Constructor for 'IoTTopicRule' containing required fields as arguments. -ioTTopicRule - :: IoTTopicRuleTopicRulePayload -- ^ 'ittrTopicRulePayload' - -> IoTTopicRule -ioTTopicRule topicRulePayloadarg = - IoTTopicRule - { _ioTTopicRuleRuleName = Nothing - , _ioTTopicRuleTopicRulePayload = topicRulePayloadarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot-topicrule.html#cfn-iot-topicrule-rulename -ittrRuleName :: Lens' IoTTopicRule (Maybe (Val Text)) -ittrRuleName = lens _ioTTopicRuleRuleName (\s a -> s { _ioTTopicRuleRuleName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iot-topicrule.html#cfn-iot-topicrule-topicrulepayload -ittrTopicRulePayload :: Lens' IoTTopicRule IoTTopicRuleTopicRulePayload -ittrTopicRulePayload = lens _ioTTopicRuleTopicRulePayload (\s a -> s { _ioTTopicRuleTopicRulePayload = a }) diff --git a/library-gen/Stratosphere/Resources/KMSAlias.hs b/library-gen/Stratosphere/Resources/KMSAlias.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/KMSAlias.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-alias.html - -module Stratosphere.Resources.KMSAlias where - -import Stratosphere.ResourceImports - - --- | Full data type definition for KMSAlias. See 'kmsAlias' for a more --- convenient constructor. -data KMSAlias = - KMSAlias - { _kMSAliasAliasName :: Val Text - , _kMSAliasTargetKeyId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties KMSAlias where - toResourceProperties KMSAlias{..} = - ResourceProperties - { resourcePropertiesType = "AWS::KMS::Alias" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("AliasName",) . toJSON) _kMSAliasAliasName - , (Just . ("TargetKeyId",) . toJSON) _kMSAliasTargetKeyId - ] - } - --- | Constructor for 'KMSAlias' containing required fields as arguments. -kmsAlias - :: Val Text -- ^ 'kmsaAliasName' - -> Val Text -- ^ 'kmsaTargetKeyId' - -> KMSAlias -kmsAlias aliasNamearg targetKeyIdarg = - KMSAlias - { _kMSAliasAliasName = aliasNamearg - , _kMSAliasTargetKeyId = targetKeyIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-alias.html#cfn-kms-alias-aliasname -kmsaAliasName :: Lens' KMSAlias (Val Text) -kmsaAliasName = lens _kMSAliasAliasName (\s a -> s { _kMSAliasAliasName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-alias.html#cfn-kms-alias-targetkeyid -kmsaTargetKeyId :: Lens' KMSAlias (Val Text) -kmsaTargetKeyId = lens _kMSAliasTargetKeyId (\s a -> s { _kMSAliasTargetKeyId = a }) diff --git a/library-gen/Stratosphere/Resources/KMSKey.hs b/library-gen/Stratosphere/Resources/KMSKey.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/KMSKey.hs +++ /dev/null @@ -1,83 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-key.html - -module Stratosphere.Resources.KMSKey where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for KMSKey. See 'kmsKey' for a more convenient --- constructor. -data KMSKey = - KMSKey - { _kMSKeyDescription :: Maybe (Val Text) - , _kMSKeyEnableKeyRotation :: Maybe (Val Bool) - , _kMSKeyEnabled :: Maybe (Val Bool) - , _kMSKeyKeyPolicy :: Object - , _kMSKeyKeyUsage :: Maybe (Val Text) - , _kMSKeyPendingWindowInDays :: Maybe (Val Integer) - , _kMSKeyTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties KMSKey where - toResourceProperties KMSKey{..} = - ResourceProperties - { resourcePropertiesType = "AWS::KMS::Key" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _kMSKeyDescription - , fmap (("EnableKeyRotation",) . toJSON) _kMSKeyEnableKeyRotation - , fmap (("Enabled",) . toJSON) _kMSKeyEnabled - , (Just . ("KeyPolicy",) . toJSON) _kMSKeyKeyPolicy - , fmap (("KeyUsage",) . toJSON) _kMSKeyKeyUsage - , fmap (("PendingWindowInDays",) . toJSON) _kMSKeyPendingWindowInDays - , fmap (("Tags",) . toJSON) _kMSKeyTags - ] - } - --- | Constructor for 'KMSKey' containing required fields as arguments. -kmsKey - :: Object -- ^ 'kmskKeyPolicy' - -> KMSKey -kmsKey keyPolicyarg = - KMSKey - { _kMSKeyDescription = Nothing - , _kMSKeyEnableKeyRotation = Nothing - , _kMSKeyEnabled = Nothing - , _kMSKeyKeyPolicy = keyPolicyarg - , _kMSKeyKeyUsage = Nothing - , _kMSKeyPendingWindowInDays = Nothing - , _kMSKeyTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-key.html#cfn-kms-key-description -kmskDescription :: Lens' KMSKey (Maybe (Val Text)) -kmskDescription = lens _kMSKeyDescription (\s a -> s { _kMSKeyDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-key.html#cfn-kms-key-enablekeyrotation -kmskEnableKeyRotation :: Lens' KMSKey (Maybe (Val Bool)) -kmskEnableKeyRotation = lens _kMSKeyEnableKeyRotation (\s a -> s { _kMSKeyEnableKeyRotation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-key.html#cfn-kms-key-enabled -kmskEnabled :: Lens' KMSKey (Maybe (Val Bool)) -kmskEnabled = lens _kMSKeyEnabled (\s a -> s { _kMSKeyEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-key.html#cfn-kms-key-keypolicy -kmskKeyPolicy :: Lens' KMSKey Object -kmskKeyPolicy = lens _kMSKeyKeyPolicy (\s a -> s { _kMSKeyKeyPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-key.html#cfn-kms-key-keyusage -kmskKeyUsage :: Lens' KMSKey (Maybe (Val Text)) -kmskKeyUsage = lens _kMSKeyKeyUsage (\s a -> s { _kMSKeyKeyUsage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-key.html#cfn-kms-key-pendingwindowindays -kmskPendingWindowInDays :: Lens' KMSKey (Maybe (Val Integer)) -kmskPendingWindowInDays = lens _kMSKeyPendingWindowInDays (\s a -> s { _kMSKeyPendingWindowInDays = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kms-key.html#cfn-kms-key-tags -kmskTags :: Lens' KMSKey (Maybe [Tag]) -kmskTags = lens _kMSKeyTags (\s a -> s { _kMSKeyTags = a }) diff --git a/library-gen/Stratosphere/Resources/KinesisAnalyticsApplication.hs b/library-gen/Stratosphere/Resources/KinesisAnalyticsApplication.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/KinesisAnalyticsApplication.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalytics-application.html - -module Stratosphere.Resources.KinesisAnalyticsApplication where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInput - --- | Full data type definition for KinesisAnalyticsApplication. See --- 'kinesisAnalyticsApplication' for a more convenient constructor. -data KinesisAnalyticsApplication = - KinesisAnalyticsApplication - { _kinesisAnalyticsApplicationApplicationCode :: Maybe (Val Text) - , _kinesisAnalyticsApplicationApplicationDescription :: Maybe (Val Text) - , _kinesisAnalyticsApplicationApplicationName :: Maybe (Val Text) - , _kinesisAnalyticsApplicationInputs :: [KinesisAnalyticsApplicationInput] - } deriving (Show, Eq) - -instance ToResourceProperties KinesisAnalyticsApplication where - toResourceProperties KinesisAnalyticsApplication{..} = - ResourceProperties - { resourcePropertiesType = "AWS::KinesisAnalytics::Application" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ApplicationCode",) . toJSON) _kinesisAnalyticsApplicationApplicationCode - , fmap (("ApplicationDescription",) . toJSON) _kinesisAnalyticsApplicationApplicationDescription - , fmap (("ApplicationName",) . toJSON) _kinesisAnalyticsApplicationApplicationName - , (Just . ("Inputs",) . toJSON) _kinesisAnalyticsApplicationInputs - ] - } - --- | Constructor for 'KinesisAnalyticsApplication' containing required fields --- as arguments. -kinesisAnalyticsApplication - :: [KinesisAnalyticsApplicationInput] -- ^ 'kaaInputs' - -> KinesisAnalyticsApplication -kinesisAnalyticsApplication inputsarg = - KinesisAnalyticsApplication - { _kinesisAnalyticsApplicationApplicationCode = Nothing - , _kinesisAnalyticsApplicationApplicationDescription = Nothing - , _kinesisAnalyticsApplicationApplicationName = Nothing - , _kinesisAnalyticsApplicationInputs = inputsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalytics-application.html#cfn-kinesisanalytics-application-applicationcode -kaaApplicationCode :: Lens' KinesisAnalyticsApplication (Maybe (Val Text)) -kaaApplicationCode = lens _kinesisAnalyticsApplicationApplicationCode (\s a -> s { _kinesisAnalyticsApplicationApplicationCode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalytics-application.html#cfn-kinesisanalytics-application-applicationdescription -kaaApplicationDescription :: Lens' KinesisAnalyticsApplication (Maybe (Val Text)) -kaaApplicationDescription = lens _kinesisAnalyticsApplicationApplicationDescription (\s a -> s { _kinesisAnalyticsApplicationApplicationDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalytics-application.html#cfn-kinesisanalytics-application-applicationname -kaaApplicationName :: Lens' KinesisAnalyticsApplication (Maybe (Val Text)) -kaaApplicationName = lens _kinesisAnalyticsApplicationApplicationName (\s a -> s { _kinesisAnalyticsApplicationApplicationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalytics-application.html#cfn-kinesisanalytics-application-inputs -kaaInputs :: Lens' KinesisAnalyticsApplication [KinesisAnalyticsApplicationInput] -kaaInputs = lens _kinesisAnalyticsApplicationInputs (\s a -> s { _kinesisAnalyticsApplicationInputs = a }) diff --git a/library-gen/Stratosphere/Resources/KinesisAnalyticsApplicationOutput.hs b/library-gen/Stratosphere/Resources/KinesisAnalyticsApplicationOutput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/KinesisAnalyticsApplicationOutput.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalytics-applicationoutput.html - -module Stratosphere.Resources.KinesisAnalyticsApplicationOutput where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputOutput - --- | Full data type definition for KinesisAnalyticsApplicationOutput. See --- 'kinesisAnalyticsApplicationOutput' for a more convenient constructor. -data KinesisAnalyticsApplicationOutput = - KinesisAnalyticsApplicationOutput - { _kinesisAnalyticsApplicationOutputApplicationName :: Val Text - , _kinesisAnalyticsApplicationOutputOutput :: KinesisAnalyticsApplicationOutputOutput - } deriving (Show, Eq) - -instance ToResourceProperties KinesisAnalyticsApplicationOutput where - toResourceProperties KinesisAnalyticsApplicationOutput{..} = - ResourceProperties - { resourcePropertiesType = "AWS::KinesisAnalytics::ApplicationOutput" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApplicationName",) . toJSON) _kinesisAnalyticsApplicationOutputApplicationName - , (Just . ("Output",) . toJSON) _kinesisAnalyticsApplicationOutputOutput - ] - } - --- | Constructor for 'KinesisAnalyticsApplicationOutput' containing required --- fields as arguments. -kinesisAnalyticsApplicationOutput - :: Val Text -- ^ 'kaaoApplicationName' - -> KinesisAnalyticsApplicationOutputOutput -- ^ 'kaaoOutput' - -> KinesisAnalyticsApplicationOutput -kinesisAnalyticsApplicationOutput applicationNamearg outputarg = - KinesisAnalyticsApplicationOutput - { _kinesisAnalyticsApplicationOutputApplicationName = applicationNamearg - , _kinesisAnalyticsApplicationOutputOutput = outputarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalytics-applicationoutput.html#cfn-kinesisanalytics-applicationoutput-applicationname -kaaoApplicationName :: Lens' KinesisAnalyticsApplicationOutput (Val Text) -kaaoApplicationName = lens _kinesisAnalyticsApplicationOutputApplicationName (\s a -> s { _kinesisAnalyticsApplicationOutputApplicationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalytics-applicationoutput.html#cfn-kinesisanalytics-applicationoutput-output -kaaoOutput :: Lens' KinesisAnalyticsApplicationOutput KinesisAnalyticsApplicationOutputOutput -kaaoOutput = lens _kinesisAnalyticsApplicationOutputOutput (\s a -> s { _kinesisAnalyticsApplicationOutputOutput = a }) diff --git a/library-gen/Stratosphere/Resources/KinesisAnalyticsApplicationReferenceDataSource.hs b/library-gen/Stratosphere/Resources/KinesisAnalyticsApplicationReferenceDataSource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/KinesisAnalyticsApplicationReferenceDataSource.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalytics-applicationreferencedatasource.html - -module Stratosphere.Resources.KinesisAnalyticsApplicationReferenceDataSource where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource - --- | Full data type definition for --- KinesisAnalyticsApplicationReferenceDataSource. See --- 'kinesisAnalyticsApplicationReferenceDataSource' for a more convenient --- constructor. -data KinesisAnalyticsApplicationReferenceDataSource = - KinesisAnalyticsApplicationReferenceDataSource - { _kinesisAnalyticsApplicationReferenceDataSourceApplicationName :: Val Text - , _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource :: KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource - } deriving (Show, Eq) - -instance ToResourceProperties KinesisAnalyticsApplicationReferenceDataSource where - toResourceProperties KinesisAnalyticsApplicationReferenceDataSource{..} = - ResourceProperties - { resourcePropertiesType = "AWS::KinesisAnalytics::ApplicationReferenceDataSource" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApplicationName",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceApplicationName - , (Just . ("ReferenceDataSource",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource - ] - } - --- | Constructor for 'KinesisAnalyticsApplicationReferenceDataSource' --- containing required fields as arguments. -kinesisAnalyticsApplicationReferenceDataSource - :: Val Text -- ^ 'kaardsApplicationName' - -> KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource -- ^ 'kaardsReferenceDataSource' - -> KinesisAnalyticsApplicationReferenceDataSource -kinesisAnalyticsApplicationReferenceDataSource applicationNamearg referenceDataSourcearg = - KinesisAnalyticsApplicationReferenceDataSource - { _kinesisAnalyticsApplicationReferenceDataSourceApplicationName = applicationNamearg - , _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource = referenceDataSourcearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalytics-applicationreferencedatasource.html#cfn-kinesisanalytics-applicationreferencedatasource-applicationname -kaardsApplicationName :: Lens' KinesisAnalyticsApplicationReferenceDataSource (Val Text) -kaardsApplicationName = lens _kinesisAnalyticsApplicationReferenceDataSourceApplicationName (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceApplicationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalytics-applicationreferencedatasource.html#cfn-kinesisanalytics-applicationreferencedatasource-referencedatasource -kaardsReferenceDataSource :: Lens' KinesisAnalyticsApplicationReferenceDataSource KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource -kaardsReferenceDataSource = lens _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource (\s a -> s { _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource = a }) diff --git a/library-gen/Stratosphere/Resources/KinesisAnalyticsV2Application.hs b/library-gen/Stratosphere/Resources/KinesisAnalyticsV2Application.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/KinesisAnalyticsV2Application.hs +++ /dev/null @@ -1,79 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-application.html - -module Stratosphere.Resources.KinesisAnalyticsV2Application where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationApplicationConfiguration -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for KinesisAnalyticsV2Application. See --- 'kinesisAnalyticsV2Application' for a more convenient constructor. -data KinesisAnalyticsV2Application = - KinesisAnalyticsV2Application - { _kinesisAnalyticsV2ApplicationApplicationConfiguration :: Maybe KinesisAnalyticsV2ApplicationApplicationConfiguration - , _kinesisAnalyticsV2ApplicationApplicationDescription :: Maybe (Val Text) - , _kinesisAnalyticsV2ApplicationApplicationName :: Maybe (Val Text) - , _kinesisAnalyticsV2ApplicationRuntimeEnvironment :: Val Text - , _kinesisAnalyticsV2ApplicationServiceExecutionRole :: Val Text - , _kinesisAnalyticsV2ApplicationTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties KinesisAnalyticsV2Application where - toResourceProperties KinesisAnalyticsV2Application{..} = - ResourceProperties - { resourcePropertiesType = "AWS::KinesisAnalyticsV2::Application" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ApplicationConfiguration",) . toJSON) _kinesisAnalyticsV2ApplicationApplicationConfiguration - , fmap (("ApplicationDescription",) . toJSON) _kinesisAnalyticsV2ApplicationApplicationDescription - , fmap (("ApplicationName",) . toJSON) _kinesisAnalyticsV2ApplicationApplicationName - , (Just . ("RuntimeEnvironment",) . toJSON) _kinesisAnalyticsV2ApplicationRuntimeEnvironment - , (Just . ("ServiceExecutionRole",) . toJSON) _kinesisAnalyticsV2ApplicationServiceExecutionRole - , fmap (("Tags",) . toJSON) _kinesisAnalyticsV2ApplicationTags - ] - } - --- | Constructor for 'KinesisAnalyticsV2Application' containing required --- fields as arguments. -kinesisAnalyticsV2Application - :: Val Text -- ^ 'kavaRuntimeEnvironment' - -> Val Text -- ^ 'kavaServiceExecutionRole' - -> KinesisAnalyticsV2Application -kinesisAnalyticsV2Application runtimeEnvironmentarg serviceExecutionRolearg = - KinesisAnalyticsV2Application - { _kinesisAnalyticsV2ApplicationApplicationConfiguration = Nothing - , _kinesisAnalyticsV2ApplicationApplicationDescription = Nothing - , _kinesisAnalyticsV2ApplicationApplicationName = Nothing - , _kinesisAnalyticsV2ApplicationRuntimeEnvironment = runtimeEnvironmentarg - , _kinesisAnalyticsV2ApplicationServiceExecutionRole = serviceExecutionRolearg - , _kinesisAnalyticsV2ApplicationTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-application.html#cfn-kinesisanalyticsv2-application-applicationconfiguration -kavaApplicationConfiguration :: Lens' KinesisAnalyticsV2Application (Maybe KinesisAnalyticsV2ApplicationApplicationConfiguration) -kavaApplicationConfiguration = lens _kinesisAnalyticsV2ApplicationApplicationConfiguration (\s a -> s { _kinesisAnalyticsV2ApplicationApplicationConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-application.html#cfn-kinesisanalyticsv2-application-applicationdescription -kavaApplicationDescription :: Lens' KinesisAnalyticsV2Application (Maybe (Val Text)) -kavaApplicationDescription = lens _kinesisAnalyticsV2ApplicationApplicationDescription (\s a -> s { _kinesisAnalyticsV2ApplicationApplicationDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-application.html#cfn-kinesisanalyticsv2-application-applicationname -kavaApplicationName :: Lens' KinesisAnalyticsV2Application (Maybe (Val Text)) -kavaApplicationName = lens _kinesisAnalyticsV2ApplicationApplicationName (\s a -> s { _kinesisAnalyticsV2ApplicationApplicationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-application.html#cfn-kinesisanalyticsv2-application-runtimeenvironment -kavaRuntimeEnvironment :: Lens' KinesisAnalyticsV2Application (Val Text) -kavaRuntimeEnvironment = lens _kinesisAnalyticsV2ApplicationRuntimeEnvironment (\s a -> s { _kinesisAnalyticsV2ApplicationRuntimeEnvironment = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-application.html#cfn-kinesisanalyticsv2-application-serviceexecutionrole -kavaServiceExecutionRole :: Lens' KinesisAnalyticsV2Application (Val Text) -kavaServiceExecutionRole = lens _kinesisAnalyticsV2ApplicationServiceExecutionRole (\s a -> s { _kinesisAnalyticsV2ApplicationServiceExecutionRole = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-application.html#cfn-kinesisanalyticsv2-application-tags -kavaTags :: Lens' KinesisAnalyticsV2Application (Maybe [Tag]) -kavaTags = lens _kinesisAnalyticsV2ApplicationTags (\s a -> s { _kinesisAnalyticsV2ApplicationTags = a }) diff --git a/library-gen/Stratosphere/Resources/KinesisAnalyticsV2ApplicationCloudWatchLoggingOption.hs b/library-gen/Stratosphere/Resources/KinesisAnalyticsV2ApplicationCloudWatchLoggingOption.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/KinesisAnalyticsV2ApplicationCloudWatchLoggingOption.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-applicationcloudwatchloggingoption.html - -module Stratosphere.Resources.KinesisAnalyticsV2ApplicationCloudWatchLoggingOption where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationCloudWatchLoggingOption. See --- 'kinesisAnalyticsV2ApplicationCloudWatchLoggingOption' for a more --- convenient constructor. -data KinesisAnalyticsV2ApplicationCloudWatchLoggingOption = - KinesisAnalyticsV2ApplicationCloudWatchLoggingOption - { _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionApplicationName :: Val Text - , _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption :: KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption - } deriving (Show, Eq) - -instance ToResourceProperties KinesisAnalyticsV2ApplicationCloudWatchLoggingOption where - toResourceProperties KinesisAnalyticsV2ApplicationCloudWatchLoggingOption{..} = - ResourceProperties - { resourcePropertiesType = "AWS::KinesisAnalyticsV2::ApplicationCloudWatchLoggingOption" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApplicationName",) . toJSON) _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionApplicationName - , (Just . ("CloudWatchLoggingOption",) . toJSON) _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption - ] - } - --- | Constructor for 'KinesisAnalyticsV2ApplicationCloudWatchLoggingOption' --- containing required fields as arguments. -kinesisAnalyticsV2ApplicationCloudWatchLoggingOption - :: Val Text -- ^ 'kavacwloApplicationName' - -> KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption -- ^ 'kavacwloCloudWatchLoggingOption' - -> KinesisAnalyticsV2ApplicationCloudWatchLoggingOption -kinesisAnalyticsV2ApplicationCloudWatchLoggingOption applicationNamearg cloudWatchLoggingOptionarg = - KinesisAnalyticsV2ApplicationCloudWatchLoggingOption - { _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionApplicationName = applicationNamearg - , _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption = cloudWatchLoggingOptionarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-applicationcloudwatchloggingoption.html#cfn-kinesisanalyticsv2-applicationcloudwatchloggingoption-applicationname -kavacwloApplicationName :: Lens' KinesisAnalyticsV2ApplicationCloudWatchLoggingOption (Val Text) -kavacwloApplicationName = lens _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionApplicationName (\s a -> s { _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionApplicationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-applicationcloudwatchloggingoption.html#cfn-kinesisanalyticsv2-applicationcloudwatchloggingoption-cloudwatchloggingoption -kavacwloCloudWatchLoggingOption :: Lens' KinesisAnalyticsV2ApplicationCloudWatchLoggingOption KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption -kavacwloCloudWatchLoggingOption = lens _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption (\s a -> s { _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption = a }) diff --git a/library-gen/Stratosphere/Resources/KinesisAnalyticsV2ApplicationOutput.hs b/library-gen/Stratosphere/Resources/KinesisAnalyticsV2ApplicationOutput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/KinesisAnalyticsV2ApplicationOutput.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-applicationoutput.html - -module Stratosphere.Resources.KinesisAnalyticsV2ApplicationOutput where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputOutput - --- | Full data type definition for KinesisAnalyticsV2ApplicationOutput. See --- 'kinesisAnalyticsV2ApplicationOutput' for a more convenient constructor. -data KinesisAnalyticsV2ApplicationOutput = - KinesisAnalyticsV2ApplicationOutput - { _kinesisAnalyticsV2ApplicationOutputApplicationName :: Val Text - , _kinesisAnalyticsV2ApplicationOutputOutput :: KinesisAnalyticsV2ApplicationOutputOutput - } deriving (Show, Eq) - -instance ToResourceProperties KinesisAnalyticsV2ApplicationOutput where - toResourceProperties KinesisAnalyticsV2ApplicationOutput{..} = - ResourceProperties - { resourcePropertiesType = "AWS::KinesisAnalyticsV2::ApplicationOutput" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApplicationName",) . toJSON) _kinesisAnalyticsV2ApplicationOutputApplicationName - , (Just . ("Output",) . toJSON) _kinesisAnalyticsV2ApplicationOutputOutput - ] - } - --- | Constructor for 'KinesisAnalyticsV2ApplicationOutput' containing required --- fields as arguments. -kinesisAnalyticsV2ApplicationOutput - :: Val Text -- ^ 'kavaoApplicationName' - -> KinesisAnalyticsV2ApplicationOutputOutput -- ^ 'kavaoOutput' - -> KinesisAnalyticsV2ApplicationOutput -kinesisAnalyticsV2ApplicationOutput applicationNamearg outputarg = - KinesisAnalyticsV2ApplicationOutput - { _kinesisAnalyticsV2ApplicationOutputApplicationName = applicationNamearg - , _kinesisAnalyticsV2ApplicationOutputOutput = outputarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-applicationoutput.html#cfn-kinesisanalyticsv2-applicationoutput-applicationname -kavaoApplicationName :: Lens' KinesisAnalyticsV2ApplicationOutput (Val Text) -kavaoApplicationName = lens _kinesisAnalyticsV2ApplicationOutputApplicationName (\s a -> s { _kinesisAnalyticsV2ApplicationOutputApplicationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-applicationoutput.html#cfn-kinesisanalyticsv2-applicationoutput-output -kavaoOutput :: Lens' KinesisAnalyticsV2ApplicationOutput KinesisAnalyticsV2ApplicationOutputOutput -kavaoOutput = lens _kinesisAnalyticsV2ApplicationOutputOutput (\s a -> s { _kinesisAnalyticsV2ApplicationOutputOutput = a }) diff --git a/library-gen/Stratosphere/Resources/KinesisAnalyticsV2ApplicationReferenceDataSource.hs b/library-gen/Stratosphere/Resources/KinesisAnalyticsV2ApplicationReferenceDataSource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/KinesisAnalyticsV2ApplicationReferenceDataSource.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-applicationreferencedatasource.html - -module Stratosphere.Resources.KinesisAnalyticsV2ApplicationReferenceDataSource where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource - --- | Full data type definition for --- KinesisAnalyticsV2ApplicationReferenceDataSource. See --- 'kinesisAnalyticsV2ApplicationReferenceDataSource' for a more convenient --- constructor. -data KinesisAnalyticsV2ApplicationReferenceDataSource = - KinesisAnalyticsV2ApplicationReferenceDataSource - { _kinesisAnalyticsV2ApplicationReferenceDataSourceApplicationName :: Val Text - , _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource :: KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource - } deriving (Show, Eq) - -instance ToResourceProperties KinesisAnalyticsV2ApplicationReferenceDataSource where - toResourceProperties KinesisAnalyticsV2ApplicationReferenceDataSource{..} = - ResourceProperties - { resourcePropertiesType = "AWS::KinesisAnalyticsV2::ApplicationReferenceDataSource" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApplicationName",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceApplicationName - , (Just . ("ReferenceDataSource",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource - ] - } - --- | Constructor for 'KinesisAnalyticsV2ApplicationReferenceDataSource' --- containing required fields as arguments. -kinesisAnalyticsV2ApplicationReferenceDataSource - :: Val Text -- ^ 'kavardsApplicationName' - -> KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource -- ^ 'kavardsReferenceDataSource' - -> KinesisAnalyticsV2ApplicationReferenceDataSource -kinesisAnalyticsV2ApplicationReferenceDataSource applicationNamearg referenceDataSourcearg = - KinesisAnalyticsV2ApplicationReferenceDataSource - { _kinesisAnalyticsV2ApplicationReferenceDataSourceApplicationName = applicationNamearg - , _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource = referenceDataSourcearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-applicationreferencedatasource.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-applicationname -kavardsApplicationName :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSource (Val Text) -kavardsApplicationName = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceApplicationName (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceApplicationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisanalyticsv2-applicationreferencedatasource.html#cfn-kinesisanalyticsv2-applicationreferencedatasource-referencedatasource -kavardsReferenceDataSource :: Lens' KinesisAnalyticsV2ApplicationReferenceDataSource KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource -kavardsReferenceDataSource = lens _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource (\s a -> s { _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource = a }) diff --git a/library-gen/Stratosphere/Resources/KinesisFirehoseDeliveryStream.hs b/library-gen/Stratosphere/Resources/KinesisFirehoseDeliveryStream.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/KinesisFirehoseDeliveryStream.hs +++ /dev/null @@ -1,103 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisfirehose-deliverystream.html - -module Stratosphere.Resources.KinesisFirehoseDeliveryStream where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamS3DestinationConfiguration -import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration - --- | Full data type definition for KinesisFirehoseDeliveryStream. See --- 'kinesisFirehoseDeliveryStream' for a more convenient constructor. -data KinesisFirehoseDeliveryStream = - KinesisFirehoseDeliveryStream - { _kinesisFirehoseDeliveryStreamDeliveryStreamName :: Maybe (Val Text) - , _kinesisFirehoseDeliveryStreamDeliveryStreamType :: Maybe (Val Text) - , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration :: Maybe KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration - , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration :: Maybe KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration - , _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration :: Maybe KinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration - , _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration :: Maybe KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration - , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration :: Maybe KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration - , _kinesisFirehoseDeliveryStreamS3DestinationConfiguration :: Maybe KinesisFirehoseDeliveryStreamS3DestinationConfiguration - , _kinesisFirehoseDeliveryStreamSplunkDestinationConfiguration :: Maybe KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration - } deriving (Show, Eq) - -instance ToResourceProperties KinesisFirehoseDeliveryStream where - toResourceProperties KinesisFirehoseDeliveryStream{..} = - ResourceProperties - { resourcePropertiesType = "AWS::KinesisFirehose::DeliveryStream" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("DeliveryStreamName",) . toJSON) _kinesisFirehoseDeliveryStreamDeliveryStreamName - , fmap (("DeliveryStreamType",) . toJSON) _kinesisFirehoseDeliveryStreamDeliveryStreamType - , fmap (("ElasticsearchDestinationConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration - , fmap (("ExtendedS3DestinationConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration - , fmap (("HttpEndpointDestinationConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration - , fmap (("KinesisStreamSourceConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration - , fmap (("RedshiftDestinationConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration - , fmap (("S3DestinationConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfiguration - , fmap (("SplunkDestinationConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamSplunkDestinationConfiguration - ] - } - --- | Constructor for 'KinesisFirehoseDeliveryStream' containing required --- fields as arguments. -kinesisFirehoseDeliveryStream - :: KinesisFirehoseDeliveryStream -kinesisFirehoseDeliveryStream = - KinesisFirehoseDeliveryStream - { _kinesisFirehoseDeliveryStreamDeliveryStreamName = Nothing - , _kinesisFirehoseDeliveryStreamDeliveryStreamType = Nothing - , _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration = Nothing - , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration = Nothing - , _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration = Nothing - , _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration = Nothing - , _kinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration = Nothing - , _kinesisFirehoseDeliveryStreamS3DestinationConfiguration = Nothing - , _kinesisFirehoseDeliveryStreamSplunkDestinationConfiguration = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisfirehose-deliverystream.html#cfn-kinesisfirehose-deliverystream-deliverystreamname -kfdsDeliveryStreamName :: Lens' KinesisFirehoseDeliveryStream (Maybe (Val Text)) -kfdsDeliveryStreamName = lens _kinesisFirehoseDeliveryStreamDeliveryStreamName (\s a -> s { _kinesisFirehoseDeliveryStreamDeliveryStreamName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisfirehose-deliverystream.html#cfn-kinesisfirehose-deliverystream-deliverystreamtype -kfdsDeliveryStreamType :: Lens' KinesisFirehoseDeliveryStream (Maybe (Val Text)) -kfdsDeliveryStreamType = lens _kinesisFirehoseDeliveryStreamDeliveryStreamType (\s a -> s { _kinesisFirehoseDeliveryStreamDeliveryStreamType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisfirehose-deliverystream.html#cfn-kinesisfirehose-deliverystream-elasticsearchdestinationconfiguration -kfdsElasticsearchDestinationConfiguration :: Lens' KinesisFirehoseDeliveryStream (Maybe KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration) -kfdsElasticsearchDestinationConfiguration = lens _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisfirehose-deliverystream.html#cfn-kinesisfirehose-deliverystream-extendeds3destinationconfiguration -kfdsExtendedS3DestinationConfiguration :: Lens' KinesisFirehoseDeliveryStream (Maybe KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration) -kfdsExtendedS3DestinationConfiguration = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisfirehose-deliverystream.html#cfn-kinesisfirehose-deliverystream-httpendpointdestinationconfiguration -kfdsHttpEndpointDestinationConfiguration :: Lens' KinesisFirehoseDeliveryStream (Maybe KinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration) -kfdsHttpEndpointDestinationConfiguration = lens _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisfirehose-deliverystream.html#cfn-kinesisfirehose-deliverystream-kinesisstreamsourceconfiguration -kfdsKinesisStreamSourceConfiguration :: Lens' KinesisFirehoseDeliveryStream (Maybe KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration) -kfdsKinesisStreamSourceConfiguration = lens _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisfirehose-deliverystream.html#cfn-kinesisfirehose-deliverystream-redshiftdestinationconfiguration -kfdsRedshiftDestinationConfiguration :: Lens' KinesisFirehoseDeliveryStream (Maybe KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration) -kfdsRedshiftDestinationConfiguration = lens _kinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisfirehose-deliverystream.html#cfn-kinesisfirehose-deliverystream-s3destinationconfiguration -kfdsS3DestinationConfiguration :: Lens' KinesisFirehoseDeliveryStream (Maybe KinesisFirehoseDeliveryStreamS3DestinationConfiguration) -kfdsS3DestinationConfiguration = lens _kinesisFirehoseDeliveryStreamS3DestinationConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamS3DestinationConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesisfirehose-deliverystream.html#cfn-kinesisfirehose-deliverystream-splunkdestinationconfiguration -kfdsSplunkDestinationConfiguration :: Lens' KinesisFirehoseDeliveryStream (Maybe KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration) -kfdsSplunkDestinationConfiguration = lens _kinesisFirehoseDeliveryStreamSplunkDestinationConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamSplunkDestinationConfiguration = a }) diff --git a/library-gen/Stratosphere/Resources/KinesisStream.hs b/library-gen/Stratosphere/Resources/KinesisStream.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/KinesisStream.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesis-stream.html - -module Stratosphere.Resources.KinesisStream where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.KinesisStreamStreamEncryption -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for KinesisStream. See 'kinesisStream' for a --- more convenient constructor. -data KinesisStream = - KinesisStream - { _kinesisStreamName :: Maybe (Val Text) - , _kinesisStreamRetentionPeriodHours :: Maybe (Val Integer) - , _kinesisStreamShardCount :: Val Integer - , _kinesisStreamStreamEncryption :: Maybe KinesisStreamStreamEncryption - , _kinesisStreamTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties KinesisStream where - toResourceProperties KinesisStream{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Kinesis::Stream" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Name",) . toJSON) _kinesisStreamName - , fmap (("RetentionPeriodHours",) . toJSON) _kinesisStreamRetentionPeriodHours - , (Just . ("ShardCount",) . toJSON) _kinesisStreamShardCount - , fmap (("StreamEncryption",) . toJSON) _kinesisStreamStreamEncryption - , fmap (("Tags",) . toJSON) _kinesisStreamTags - ] - } - --- | Constructor for 'KinesisStream' containing required fields as arguments. -kinesisStream - :: Val Integer -- ^ 'ksShardCount' - -> KinesisStream -kinesisStream shardCountarg = - KinesisStream - { _kinesisStreamName = Nothing - , _kinesisStreamRetentionPeriodHours = Nothing - , _kinesisStreamShardCount = shardCountarg - , _kinesisStreamStreamEncryption = Nothing - , _kinesisStreamTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesis-stream.html#cfn-kinesis-stream-name -ksName :: Lens' KinesisStream (Maybe (Val Text)) -ksName = lens _kinesisStreamName (\s a -> s { _kinesisStreamName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesis-stream.html#cfn-kinesis-stream-retentionperiodhours -ksRetentionPeriodHours :: Lens' KinesisStream (Maybe (Val Integer)) -ksRetentionPeriodHours = lens _kinesisStreamRetentionPeriodHours (\s a -> s { _kinesisStreamRetentionPeriodHours = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesis-stream.html#cfn-kinesis-stream-shardcount -ksShardCount :: Lens' KinesisStream (Val Integer) -ksShardCount = lens _kinesisStreamShardCount (\s a -> s { _kinesisStreamShardCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesis-stream.html#cfn-kinesis-stream-streamencryption -ksStreamEncryption :: Lens' KinesisStream (Maybe KinesisStreamStreamEncryption) -ksStreamEncryption = lens _kinesisStreamStreamEncryption (\s a -> s { _kinesisStreamStreamEncryption = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesis-stream.html#cfn-kinesis-stream-tags -ksTags :: Lens' KinesisStream (Maybe [Tag]) -ksTags = lens _kinesisStreamTags (\s a -> s { _kinesisStreamTags = a }) diff --git a/library-gen/Stratosphere/Resources/KinesisStreamConsumer.hs b/library-gen/Stratosphere/Resources/KinesisStreamConsumer.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/KinesisStreamConsumer.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesis-streamconsumer.html - -module Stratosphere.Resources.KinesisStreamConsumer where - -import Stratosphere.ResourceImports - - --- | Full data type definition for KinesisStreamConsumer. See --- 'kinesisStreamConsumer' for a more convenient constructor. -data KinesisStreamConsumer = - KinesisStreamConsumer - { _kinesisStreamConsumerConsumerName :: Val Text - , _kinesisStreamConsumerStreamARN :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties KinesisStreamConsumer where - toResourceProperties KinesisStreamConsumer{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Kinesis::StreamConsumer" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ConsumerName",) . toJSON) _kinesisStreamConsumerConsumerName - , (Just . ("StreamARN",) . toJSON) _kinesisStreamConsumerStreamARN - ] - } - --- | Constructor for 'KinesisStreamConsumer' containing required fields as --- arguments. -kinesisStreamConsumer - :: Val Text -- ^ 'kscConsumerName' - -> Val Text -- ^ 'kscStreamARN' - -> KinesisStreamConsumer -kinesisStreamConsumer consumerNamearg streamARNarg = - KinesisStreamConsumer - { _kinesisStreamConsumerConsumerName = consumerNamearg - , _kinesisStreamConsumerStreamARN = streamARNarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesis-streamconsumer.html#cfn-kinesis-streamconsumer-consumername -kscConsumerName :: Lens' KinesisStreamConsumer (Val Text) -kscConsumerName = lens _kinesisStreamConsumerConsumerName (\s a -> s { _kinesisStreamConsumerConsumerName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-kinesis-streamconsumer.html#cfn-kinesis-streamconsumer-streamarn -kscStreamARN :: Lens' KinesisStreamConsumer (Val Text) -kscStreamARN = lens _kinesisStreamConsumerStreamARN (\s a -> s { _kinesisStreamConsumerStreamARN = a }) diff --git a/library-gen/Stratosphere/Resources/LakeFormationDataLakeSettings.hs b/library-gen/Stratosphere/Resources/LakeFormationDataLakeSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/LakeFormationDataLakeSettings.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lakeformation-datalakesettings.html - -module Stratosphere.Resources.LakeFormationDataLakeSettings where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.LakeFormationDataLakeSettingsDataLakePrincipal - --- | Full data type definition for LakeFormationDataLakeSettings. See --- 'lakeFormationDataLakeSettings' for a more convenient constructor. -data LakeFormationDataLakeSettings = - LakeFormationDataLakeSettings - { _lakeFormationDataLakeSettingsAdmins :: Maybe [LakeFormationDataLakeSettingsDataLakePrincipal] - } deriving (Show, Eq) - -instance ToResourceProperties LakeFormationDataLakeSettings where - toResourceProperties LakeFormationDataLakeSettings{..} = - ResourceProperties - { resourcePropertiesType = "AWS::LakeFormation::DataLakeSettings" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Admins",) . toJSON) _lakeFormationDataLakeSettingsAdmins - ] - } - --- | Constructor for 'LakeFormationDataLakeSettings' containing required --- fields as arguments. -lakeFormationDataLakeSettings - :: LakeFormationDataLakeSettings -lakeFormationDataLakeSettings = - LakeFormationDataLakeSettings - { _lakeFormationDataLakeSettingsAdmins = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lakeformation-datalakesettings.html#cfn-lakeformation-datalakesettings-admins -lfdlsAdmins :: Lens' LakeFormationDataLakeSettings (Maybe [LakeFormationDataLakeSettingsDataLakePrincipal]) -lfdlsAdmins = lens _lakeFormationDataLakeSettingsAdmins (\s a -> s { _lakeFormationDataLakeSettingsAdmins = a }) diff --git a/library-gen/Stratosphere/Resources/LakeFormationPermissions.hs b/library-gen/Stratosphere/Resources/LakeFormationPermissions.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/LakeFormationPermissions.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lakeformation-permissions.html - -module Stratosphere.Resources.LakeFormationPermissions where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.LakeFormationPermissionsDataLakePrincipal -import Stratosphere.ResourceProperties.LakeFormationPermissionsResource - --- | Full data type definition for LakeFormationPermissions. See --- 'lakeFormationPermissions' for a more convenient constructor. -data LakeFormationPermissions = - LakeFormationPermissions - { _lakeFormationPermissionsDataLakePrincipal :: LakeFormationPermissionsDataLakePrincipal - , _lakeFormationPermissionsPermissions :: Maybe (ValList Text) - , _lakeFormationPermissionsPermissionsWithGrantOption :: Maybe (ValList Text) - , _lakeFormationPermissionsResource :: LakeFormationPermissionsResource - } deriving (Show, Eq) - -instance ToResourceProperties LakeFormationPermissions where - toResourceProperties LakeFormationPermissions{..} = - ResourceProperties - { resourcePropertiesType = "AWS::LakeFormation::Permissions" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("DataLakePrincipal",) . toJSON) _lakeFormationPermissionsDataLakePrincipal - , fmap (("Permissions",) . toJSON) _lakeFormationPermissionsPermissions - , fmap (("PermissionsWithGrantOption",) . toJSON) _lakeFormationPermissionsPermissionsWithGrantOption - , (Just . ("Resource",) . toJSON) _lakeFormationPermissionsResource - ] - } - --- | Constructor for 'LakeFormationPermissions' containing required fields as --- arguments. -lakeFormationPermissions - :: LakeFormationPermissionsDataLakePrincipal -- ^ 'lfpDataLakePrincipal' - -> LakeFormationPermissionsResource -- ^ 'lfpResource' - -> LakeFormationPermissions -lakeFormationPermissions dataLakePrincipalarg resourcearg = - LakeFormationPermissions - { _lakeFormationPermissionsDataLakePrincipal = dataLakePrincipalarg - , _lakeFormationPermissionsPermissions = Nothing - , _lakeFormationPermissionsPermissionsWithGrantOption = Nothing - , _lakeFormationPermissionsResource = resourcearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lakeformation-permissions.html#cfn-lakeformation-permissions-datalakeprincipal -lfpDataLakePrincipal :: Lens' LakeFormationPermissions LakeFormationPermissionsDataLakePrincipal -lfpDataLakePrincipal = lens _lakeFormationPermissionsDataLakePrincipal (\s a -> s { _lakeFormationPermissionsDataLakePrincipal = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lakeformation-permissions.html#cfn-lakeformation-permissions-permissions -lfpPermissions :: Lens' LakeFormationPermissions (Maybe (ValList Text)) -lfpPermissions = lens _lakeFormationPermissionsPermissions (\s a -> s { _lakeFormationPermissionsPermissions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lakeformation-permissions.html#cfn-lakeformation-permissions-permissionswithgrantoption -lfpPermissionsWithGrantOption :: Lens' LakeFormationPermissions (Maybe (ValList Text)) -lfpPermissionsWithGrantOption = lens _lakeFormationPermissionsPermissionsWithGrantOption (\s a -> s { _lakeFormationPermissionsPermissionsWithGrantOption = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lakeformation-permissions.html#cfn-lakeformation-permissions-resource -lfpResource :: Lens' LakeFormationPermissions LakeFormationPermissionsResource -lfpResource = lens _lakeFormationPermissionsResource (\s a -> s { _lakeFormationPermissionsResource = a }) diff --git a/library-gen/Stratosphere/Resources/LakeFormationResource.hs b/library-gen/Stratosphere/Resources/LakeFormationResource.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/LakeFormationResource.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lakeformation-resource.html - -module Stratosphere.Resources.LakeFormationResource where - -import Stratosphere.ResourceImports - - --- | Full data type definition for LakeFormationResource. See --- 'lakeFormationResource' for a more convenient constructor. -data LakeFormationResource = - LakeFormationResource - { _lakeFormationResourceResourceArn :: Val Text - , _lakeFormationResourceRoleArn :: Maybe (Val Text) - , _lakeFormationResourceUseServiceLinkedRole :: Val Bool - } deriving (Show, Eq) - -instance ToResourceProperties LakeFormationResource where - toResourceProperties LakeFormationResource{..} = - ResourceProperties - { resourcePropertiesType = "AWS::LakeFormation::Resource" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ResourceArn",) . toJSON) _lakeFormationResourceResourceArn - , fmap (("RoleArn",) . toJSON) _lakeFormationResourceRoleArn - , (Just . ("UseServiceLinkedRole",) . toJSON) _lakeFormationResourceUseServiceLinkedRole - ] - } - --- | Constructor for 'LakeFormationResource' containing required fields as --- arguments. -lakeFormationResource - :: Val Text -- ^ 'lfrResourceArn' - -> Val Bool -- ^ 'lfrUseServiceLinkedRole' - -> LakeFormationResource -lakeFormationResource resourceArnarg useServiceLinkedRolearg = - LakeFormationResource - { _lakeFormationResourceResourceArn = resourceArnarg - , _lakeFormationResourceRoleArn = Nothing - , _lakeFormationResourceUseServiceLinkedRole = useServiceLinkedRolearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lakeformation-resource.html#cfn-lakeformation-resource-resourcearn -lfrResourceArn :: Lens' LakeFormationResource (Val Text) -lfrResourceArn = lens _lakeFormationResourceResourceArn (\s a -> s { _lakeFormationResourceResourceArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lakeformation-resource.html#cfn-lakeformation-resource-rolearn -lfrRoleArn :: Lens' LakeFormationResource (Maybe (Val Text)) -lfrRoleArn = lens _lakeFormationResourceRoleArn (\s a -> s { _lakeFormationResourceRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lakeformation-resource.html#cfn-lakeformation-resource-useservicelinkedrole -lfrUseServiceLinkedRole :: Lens' LakeFormationResource (Val Bool) -lfrUseServiceLinkedRole = lens _lakeFormationResourceUseServiceLinkedRole (\s a -> s { _lakeFormationResourceUseServiceLinkedRole = a }) diff --git a/library-gen/Stratosphere/Resources/LambdaAlias.hs b/library-gen/Stratosphere/Resources/LambdaAlias.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/LambdaAlias.hs +++ /dev/null @@ -1,79 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-alias.html - -module Stratosphere.Resources.LambdaAlias where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.LambdaAliasProvisionedConcurrencyConfiguration -import Stratosphere.ResourceProperties.LambdaAliasAliasRoutingConfiguration - --- | Full data type definition for LambdaAlias. See 'lambdaAlias' for a more --- convenient constructor. -data LambdaAlias = - LambdaAlias - { _lambdaAliasDescription :: Maybe (Val Text) - , _lambdaAliasFunctionName :: Val Text - , _lambdaAliasFunctionVersion :: Val Text - , _lambdaAliasName :: Val Text - , _lambdaAliasProvisionedConcurrencyConfig :: Maybe LambdaAliasProvisionedConcurrencyConfiguration - , _lambdaAliasRoutingConfig :: Maybe LambdaAliasAliasRoutingConfiguration - } deriving (Show, Eq) - -instance ToResourceProperties LambdaAlias where - toResourceProperties LambdaAlias{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Lambda::Alias" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _lambdaAliasDescription - , (Just . ("FunctionName",) . toJSON) _lambdaAliasFunctionName - , (Just . ("FunctionVersion",) . toJSON) _lambdaAliasFunctionVersion - , (Just . ("Name",) . toJSON) _lambdaAliasName - , fmap (("ProvisionedConcurrencyConfig",) . toJSON) _lambdaAliasProvisionedConcurrencyConfig - , fmap (("RoutingConfig",) . toJSON) _lambdaAliasRoutingConfig - ] - } - --- | Constructor for 'LambdaAlias' containing required fields as arguments. -lambdaAlias - :: Val Text -- ^ 'laFunctionName' - -> Val Text -- ^ 'laFunctionVersion' - -> Val Text -- ^ 'laName' - -> LambdaAlias -lambdaAlias functionNamearg functionVersionarg namearg = - LambdaAlias - { _lambdaAliasDescription = Nothing - , _lambdaAliasFunctionName = functionNamearg - , _lambdaAliasFunctionVersion = functionVersionarg - , _lambdaAliasName = namearg - , _lambdaAliasProvisionedConcurrencyConfig = Nothing - , _lambdaAliasRoutingConfig = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-alias.html#cfn-lambda-alias-description -laDescription :: Lens' LambdaAlias (Maybe (Val Text)) -laDescription = lens _lambdaAliasDescription (\s a -> s { _lambdaAliasDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-alias.html#cfn-lambda-alias-functionname -laFunctionName :: Lens' LambdaAlias (Val Text) -laFunctionName = lens _lambdaAliasFunctionName (\s a -> s { _lambdaAliasFunctionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-alias.html#cfn-lambda-alias-functionversion -laFunctionVersion :: Lens' LambdaAlias (Val Text) -laFunctionVersion = lens _lambdaAliasFunctionVersion (\s a -> s { _lambdaAliasFunctionVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-alias.html#cfn-lambda-alias-name -laName :: Lens' LambdaAlias (Val Text) -laName = lens _lambdaAliasName (\s a -> s { _lambdaAliasName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-alias.html#cfn-lambda-alias-provisionedconcurrencyconfig -laProvisionedConcurrencyConfig :: Lens' LambdaAlias (Maybe LambdaAliasProvisionedConcurrencyConfiguration) -laProvisionedConcurrencyConfig = lens _lambdaAliasProvisionedConcurrencyConfig (\s a -> s { _lambdaAliasProvisionedConcurrencyConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-alias.html#cfn-lambda-alias-routingconfig -laRoutingConfig :: Lens' LambdaAlias (Maybe LambdaAliasAliasRoutingConfiguration) -laRoutingConfig = lens _lambdaAliasRoutingConfig (\s a -> s { _lambdaAliasRoutingConfig = a }) diff --git a/library-gen/Stratosphere/Resources/LambdaEventInvokeConfig.hs b/library-gen/Stratosphere/Resources/LambdaEventInvokeConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/LambdaEventInvokeConfig.hs +++ /dev/null @@ -1,71 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-eventinvokeconfig.html - -module Stratosphere.Resources.LambdaEventInvokeConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.LambdaEventInvokeConfigDestinationConfig - --- | Full data type definition for LambdaEventInvokeConfig. See --- 'lambdaEventInvokeConfig' for a more convenient constructor. -data LambdaEventInvokeConfig = - LambdaEventInvokeConfig - { _lambdaEventInvokeConfigDestinationConfig :: Maybe LambdaEventInvokeConfigDestinationConfig - , _lambdaEventInvokeConfigFunctionName :: Val Text - , _lambdaEventInvokeConfigMaximumEventAgeInSeconds :: Maybe (Val Integer) - , _lambdaEventInvokeConfigMaximumRetryAttempts :: Maybe (Val Integer) - , _lambdaEventInvokeConfigQualifier :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties LambdaEventInvokeConfig where - toResourceProperties LambdaEventInvokeConfig{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Lambda::EventInvokeConfig" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("DestinationConfig",) . toJSON) _lambdaEventInvokeConfigDestinationConfig - , (Just . ("FunctionName",) . toJSON) _lambdaEventInvokeConfigFunctionName - , fmap (("MaximumEventAgeInSeconds",) . toJSON) _lambdaEventInvokeConfigMaximumEventAgeInSeconds - , fmap (("MaximumRetryAttempts",) . toJSON) _lambdaEventInvokeConfigMaximumRetryAttempts - , (Just . ("Qualifier",) . toJSON) _lambdaEventInvokeConfigQualifier - ] - } - --- | Constructor for 'LambdaEventInvokeConfig' containing required fields as --- arguments. -lambdaEventInvokeConfig - :: Val Text -- ^ 'leicFunctionName' - -> Val Text -- ^ 'leicQualifier' - -> LambdaEventInvokeConfig -lambdaEventInvokeConfig functionNamearg qualifierarg = - LambdaEventInvokeConfig - { _lambdaEventInvokeConfigDestinationConfig = Nothing - , _lambdaEventInvokeConfigFunctionName = functionNamearg - , _lambdaEventInvokeConfigMaximumEventAgeInSeconds = Nothing - , _lambdaEventInvokeConfigMaximumRetryAttempts = Nothing - , _lambdaEventInvokeConfigQualifier = qualifierarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-eventinvokeconfig.html#cfn-lambda-eventinvokeconfig-destinationconfig -leicDestinationConfig :: Lens' LambdaEventInvokeConfig (Maybe LambdaEventInvokeConfigDestinationConfig) -leicDestinationConfig = lens _lambdaEventInvokeConfigDestinationConfig (\s a -> s { _lambdaEventInvokeConfigDestinationConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-eventinvokeconfig.html#cfn-lambda-eventinvokeconfig-functionname -leicFunctionName :: Lens' LambdaEventInvokeConfig (Val Text) -leicFunctionName = lens _lambdaEventInvokeConfigFunctionName (\s a -> s { _lambdaEventInvokeConfigFunctionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-eventinvokeconfig.html#cfn-lambda-eventinvokeconfig-maximumeventageinseconds -leicMaximumEventAgeInSeconds :: Lens' LambdaEventInvokeConfig (Maybe (Val Integer)) -leicMaximumEventAgeInSeconds = lens _lambdaEventInvokeConfigMaximumEventAgeInSeconds (\s a -> s { _lambdaEventInvokeConfigMaximumEventAgeInSeconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-eventinvokeconfig.html#cfn-lambda-eventinvokeconfig-maximumretryattempts -leicMaximumRetryAttempts :: Lens' LambdaEventInvokeConfig (Maybe (Val Integer)) -leicMaximumRetryAttempts = lens _lambdaEventInvokeConfigMaximumRetryAttempts (\s a -> s { _lambdaEventInvokeConfigMaximumRetryAttempts = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-eventinvokeconfig.html#cfn-lambda-eventinvokeconfig-qualifier -leicQualifier :: Lens' LambdaEventInvokeConfig (Val Text) -leicQualifier = lens _lambdaEventInvokeConfigQualifier (\s a -> s { _lambdaEventInvokeConfigQualifier = a }) diff --git a/library-gen/Stratosphere/Resources/LambdaEventSourceMapping.hs b/library-gen/Stratosphere/Resources/LambdaEventSourceMapping.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/LambdaEventSourceMapping.hs +++ /dev/null @@ -1,120 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-eventsourcemapping.html - -module Stratosphere.Resources.LambdaEventSourceMapping where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.LambdaEventSourceMappingDestinationConfig - --- | Full data type definition for LambdaEventSourceMapping. See --- 'lambdaEventSourceMapping' for a more convenient constructor. -data LambdaEventSourceMapping = - LambdaEventSourceMapping - { _lambdaEventSourceMappingBatchSize :: Maybe (Val Integer) - , _lambdaEventSourceMappingBisectBatchOnFunctionError :: Maybe (Val Bool) - , _lambdaEventSourceMappingDestinationConfig :: Maybe LambdaEventSourceMappingDestinationConfig - , _lambdaEventSourceMappingEnabled :: Maybe (Val Bool) - , _lambdaEventSourceMappingEventSourceArn :: Val Text - , _lambdaEventSourceMappingFunctionName :: Val Text - , _lambdaEventSourceMappingMaximumBatchingWindowInSeconds :: Maybe (Val Integer) - , _lambdaEventSourceMappingMaximumRecordAgeInSeconds :: Maybe (Val Integer) - , _lambdaEventSourceMappingMaximumRetryAttempts :: Maybe (Val Integer) - , _lambdaEventSourceMappingParallelizationFactor :: Maybe (Val Integer) - , _lambdaEventSourceMappingStartingPosition :: Maybe (Val Text) - , _lambdaEventSourceMappingTopics :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToResourceProperties LambdaEventSourceMapping where - toResourceProperties LambdaEventSourceMapping{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Lambda::EventSourceMapping" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("BatchSize",) . toJSON) _lambdaEventSourceMappingBatchSize - , fmap (("BisectBatchOnFunctionError",) . toJSON) _lambdaEventSourceMappingBisectBatchOnFunctionError - , fmap (("DestinationConfig",) . toJSON) _lambdaEventSourceMappingDestinationConfig - , fmap (("Enabled",) . toJSON) _lambdaEventSourceMappingEnabled - , (Just . ("EventSourceArn",) . toJSON) _lambdaEventSourceMappingEventSourceArn - , (Just . ("FunctionName",) . toJSON) _lambdaEventSourceMappingFunctionName - , fmap (("MaximumBatchingWindowInSeconds",) . toJSON) _lambdaEventSourceMappingMaximumBatchingWindowInSeconds - , fmap (("MaximumRecordAgeInSeconds",) . toJSON) _lambdaEventSourceMappingMaximumRecordAgeInSeconds - , fmap (("MaximumRetryAttempts",) . toJSON) _lambdaEventSourceMappingMaximumRetryAttempts - , fmap (("ParallelizationFactor",) . toJSON) _lambdaEventSourceMappingParallelizationFactor - , fmap (("StartingPosition",) . toJSON) _lambdaEventSourceMappingStartingPosition - , fmap (("Topics",) . toJSON) _lambdaEventSourceMappingTopics - ] - } - --- | Constructor for 'LambdaEventSourceMapping' containing required fields as --- arguments. -lambdaEventSourceMapping - :: Val Text -- ^ 'lesmEventSourceArn' - -> Val Text -- ^ 'lesmFunctionName' - -> LambdaEventSourceMapping -lambdaEventSourceMapping eventSourceArnarg functionNamearg = - LambdaEventSourceMapping - { _lambdaEventSourceMappingBatchSize = Nothing - , _lambdaEventSourceMappingBisectBatchOnFunctionError = Nothing - , _lambdaEventSourceMappingDestinationConfig = Nothing - , _lambdaEventSourceMappingEnabled = Nothing - , _lambdaEventSourceMappingEventSourceArn = eventSourceArnarg - , _lambdaEventSourceMappingFunctionName = functionNamearg - , _lambdaEventSourceMappingMaximumBatchingWindowInSeconds = Nothing - , _lambdaEventSourceMappingMaximumRecordAgeInSeconds = Nothing - , _lambdaEventSourceMappingMaximumRetryAttempts = Nothing - , _lambdaEventSourceMappingParallelizationFactor = Nothing - , _lambdaEventSourceMappingStartingPosition = Nothing - , _lambdaEventSourceMappingTopics = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-eventsourcemapping.html#cfn-lambda-eventsourcemapping-batchsize -lesmBatchSize :: Lens' LambdaEventSourceMapping (Maybe (Val Integer)) -lesmBatchSize = lens _lambdaEventSourceMappingBatchSize (\s a -> s { _lambdaEventSourceMappingBatchSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-eventsourcemapping.html#cfn-lambda-eventsourcemapping-bisectbatchonfunctionerror -lesmBisectBatchOnFunctionError :: Lens' LambdaEventSourceMapping (Maybe (Val Bool)) -lesmBisectBatchOnFunctionError = lens _lambdaEventSourceMappingBisectBatchOnFunctionError (\s a -> s { _lambdaEventSourceMappingBisectBatchOnFunctionError = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-eventsourcemapping.html#cfn-lambda-eventsourcemapping-destinationconfig -lesmDestinationConfig :: Lens' LambdaEventSourceMapping (Maybe LambdaEventSourceMappingDestinationConfig) -lesmDestinationConfig = lens _lambdaEventSourceMappingDestinationConfig (\s a -> s { _lambdaEventSourceMappingDestinationConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-eventsourcemapping.html#cfn-lambda-eventsourcemapping-enabled -lesmEnabled :: Lens' LambdaEventSourceMapping (Maybe (Val Bool)) -lesmEnabled = lens _lambdaEventSourceMappingEnabled (\s a -> s { _lambdaEventSourceMappingEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-eventsourcemapping.html#cfn-lambda-eventsourcemapping-eventsourcearn -lesmEventSourceArn :: Lens' LambdaEventSourceMapping (Val Text) -lesmEventSourceArn = lens _lambdaEventSourceMappingEventSourceArn (\s a -> s { _lambdaEventSourceMappingEventSourceArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-eventsourcemapping.html#cfn-lambda-eventsourcemapping-functionname -lesmFunctionName :: Lens' LambdaEventSourceMapping (Val Text) -lesmFunctionName = lens _lambdaEventSourceMappingFunctionName (\s a -> s { _lambdaEventSourceMappingFunctionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-eventsourcemapping.html#cfn-lambda-eventsourcemapping-maximumbatchingwindowinseconds -lesmMaximumBatchingWindowInSeconds :: Lens' LambdaEventSourceMapping (Maybe (Val Integer)) -lesmMaximumBatchingWindowInSeconds = lens _lambdaEventSourceMappingMaximumBatchingWindowInSeconds (\s a -> s { _lambdaEventSourceMappingMaximumBatchingWindowInSeconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-eventsourcemapping.html#cfn-lambda-eventsourcemapping-maximumrecordageinseconds -lesmMaximumRecordAgeInSeconds :: Lens' LambdaEventSourceMapping (Maybe (Val Integer)) -lesmMaximumRecordAgeInSeconds = lens _lambdaEventSourceMappingMaximumRecordAgeInSeconds (\s a -> s { _lambdaEventSourceMappingMaximumRecordAgeInSeconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-eventsourcemapping.html#cfn-lambda-eventsourcemapping-maximumretryattempts -lesmMaximumRetryAttempts :: Lens' LambdaEventSourceMapping (Maybe (Val Integer)) -lesmMaximumRetryAttempts = lens _lambdaEventSourceMappingMaximumRetryAttempts (\s a -> s { _lambdaEventSourceMappingMaximumRetryAttempts = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-eventsourcemapping.html#cfn-lambda-eventsourcemapping-parallelizationfactor -lesmParallelizationFactor :: Lens' LambdaEventSourceMapping (Maybe (Val Integer)) -lesmParallelizationFactor = lens _lambdaEventSourceMappingParallelizationFactor (\s a -> s { _lambdaEventSourceMappingParallelizationFactor = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-eventsourcemapping.html#cfn-lambda-eventsourcemapping-startingposition -lesmStartingPosition :: Lens' LambdaEventSourceMapping (Maybe (Val Text)) -lesmStartingPosition = lens _lambdaEventSourceMappingStartingPosition (\s a -> s { _lambdaEventSourceMappingStartingPosition = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-eventsourcemapping.html#cfn-lambda-eventsourcemapping-topics -lesmTopics :: Lens' LambdaEventSourceMapping (Maybe (ValList Text)) -lesmTopics = lens _lambdaEventSourceMappingTopics (\s a -> s { _lambdaEventSourceMappingTopics = a }) diff --git a/library-gen/Stratosphere/Resources/LambdaFunction.hs b/library-gen/Stratosphere/Resources/LambdaFunction.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/LambdaFunction.hs +++ /dev/null @@ -1,163 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-function.html - -module Stratosphere.Resources.LambdaFunction where - -import Stratosphere.ResourceImports -import Stratosphere.Types -import Stratosphere.ResourceProperties.LambdaFunctionCode -import Stratosphere.ResourceProperties.LambdaFunctionDeadLetterConfig -import Stratosphere.ResourceProperties.LambdaFunctionEnvironment -import Stratosphere.ResourceProperties.LambdaFunctionFileSystemConfig -import Stratosphere.ResourceProperties.Tag -import Stratosphere.ResourceProperties.LambdaFunctionTracingConfig -import Stratosphere.ResourceProperties.LambdaFunctionVpcConfig - --- | Full data type definition for LambdaFunction. See 'lambdaFunction' for a --- more convenient constructor. -data LambdaFunction = - LambdaFunction - { _lambdaFunctionCode :: LambdaFunctionCode - , _lambdaFunctionDeadLetterConfig :: Maybe LambdaFunctionDeadLetterConfig - , _lambdaFunctionDescription :: Maybe (Val Text) - , _lambdaFunctionEnvironment :: Maybe LambdaFunctionEnvironment - , _lambdaFunctionFileSystemConfigs :: Maybe [LambdaFunctionFileSystemConfig] - , _lambdaFunctionFunctionName :: Maybe (Val Text) - , _lambdaFunctionHandler :: Val Text - , _lambdaFunctionKmsKeyArn :: Maybe (Val Text) - , _lambdaFunctionLayers :: Maybe (ValList Text) - , _lambdaFunctionMemorySize :: Maybe (Val Integer) - , _lambdaFunctionReservedConcurrentExecutions :: Maybe (Val Integer) - , _lambdaFunctionRole :: Val Text - , _lambdaFunctionRuntime :: Val Runtime - , _lambdaFunctionTags :: Maybe [Tag] - , _lambdaFunctionTimeout :: Maybe (Val Integer) - , _lambdaFunctionTracingConfig :: Maybe LambdaFunctionTracingConfig - , _lambdaFunctionVpcConfig :: Maybe LambdaFunctionVpcConfig - } deriving (Show, Eq) - -instance ToResourceProperties LambdaFunction where - toResourceProperties LambdaFunction{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Lambda::Function" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Code",) . toJSON) _lambdaFunctionCode - , fmap (("DeadLetterConfig",) . toJSON) _lambdaFunctionDeadLetterConfig - , fmap (("Description",) . toJSON) _lambdaFunctionDescription - , fmap (("Environment",) . toJSON) _lambdaFunctionEnvironment - , fmap (("FileSystemConfigs",) . toJSON) _lambdaFunctionFileSystemConfigs - , fmap (("FunctionName",) . toJSON) _lambdaFunctionFunctionName - , (Just . ("Handler",) . toJSON) _lambdaFunctionHandler - , fmap (("KmsKeyArn",) . toJSON) _lambdaFunctionKmsKeyArn - , fmap (("Layers",) . toJSON) _lambdaFunctionLayers - , fmap (("MemorySize",) . toJSON) _lambdaFunctionMemorySize - , fmap (("ReservedConcurrentExecutions",) . toJSON) _lambdaFunctionReservedConcurrentExecutions - , (Just . ("Role",) . toJSON) _lambdaFunctionRole - , (Just . ("Runtime",) . toJSON) _lambdaFunctionRuntime - , fmap (("Tags",) . toJSON) _lambdaFunctionTags - , fmap (("Timeout",) . toJSON) _lambdaFunctionTimeout - , fmap (("TracingConfig",) . toJSON) _lambdaFunctionTracingConfig - , fmap (("VpcConfig",) . toJSON) _lambdaFunctionVpcConfig - ] - } - --- | Constructor for 'LambdaFunction' containing required fields as arguments. -lambdaFunction - :: LambdaFunctionCode -- ^ 'lfCode' - -> Val Text -- ^ 'lfHandler' - -> Val Text -- ^ 'lfRole' - -> Val Runtime -- ^ 'lfRuntime' - -> LambdaFunction -lambdaFunction codearg handlerarg rolearg runtimearg = - LambdaFunction - { _lambdaFunctionCode = codearg - , _lambdaFunctionDeadLetterConfig = Nothing - , _lambdaFunctionDescription = Nothing - , _lambdaFunctionEnvironment = Nothing - , _lambdaFunctionFileSystemConfigs = Nothing - , _lambdaFunctionFunctionName = Nothing - , _lambdaFunctionHandler = handlerarg - , _lambdaFunctionKmsKeyArn = Nothing - , _lambdaFunctionLayers = Nothing - , _lambdaFunctionMemorySize = Nothing - , _lambdaFunctionReservedConcurrentExecutions = Nothing - , _lambdaFunctionRole = rolearg - , _lambdaFunctionRuntime = runtimearg - , _lambdaFunctionTags = Nothing - , _lambdaFunctionTimeout = Nothing - , _lambdaFunctionTracingConfig = Nothing - , _lambdaFunctionVpcConfig = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-function.html#cfn-lambda-function-code -lfCode :: Lens' LambdaFunction LambdaFunctionCode -lfCode = lens _lambdaFunctionCode (\s a -> s { _lambdaFunctionCode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-function.html#cfn-lambda-function-deadletterconfig -lfDeadLetterConfig :: Lens' LambdaFunction (Maybe LambdaFunctionDeadLetterConfig) -lfDeadLetterConfig = lens _lambdaFunctionDeadLetterConfig (\s a -> s { _lambdaFunctionDeadLetterConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-function.html#cfn-lambda-function-description -lfDescription :: Lens' LambdaFunction (Maybe (Val Text)) -lfDescription = lens _lambdaFunctionDescription (\s a -> s { _lambdaFunctionDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-function.html#cfn-lambda-function-environment -lfEnvironment :: Lens' LambdaFunction (Maybe LambdaFunctionEnvironment) -lfEnvironment = lens _lambdaFunctionEnvironment (\s a -> s { _lambdaFunctionEnvironment = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-function.html#cfn-lambda-function-filesystemconfigs -lfFileSystemConfigs :: Lens' LambdaFunction (Maybe [LambdaFunctionFileSystemConfig]) -lfFileSystemConfigs = lens _lambdaFunctionFileSystemConfigs (\s a -> s { _lambdaFunctionFileSystemConfigs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-function.html#cfn-lambda-function-functionname -lfFunctionName :: Lens' LambdaFunction (Maybe (Val Text)) -lfFunctionName = lens _lambdaFunctionFunctionName (\s a -> s { _lambdaFunctionFunctionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-function.html#cfn-lambda-function-handler -lfHandler :: Lens' LambdaFunction (Val Text) -lfHandler = lens _lambdaFunctionHandler (\s a -> s { _lambdaFunctionHandler = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-function.html#cfn-lambda-function-kmskeyarn -lfKmsKeyArn :: Lens' LambdaFunction (Maybe (Val Text)) -lfKmsKeyArn = lens _lambdaFunctionKmsKeyArn (\s a -> s { _lambdaFunctionKmsKeyArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-function.html#cfn-lambda-function-layers -lfLayers :: Lens' LambdaFunction (Maybe (ValList Text)) -lfLayers = lens _lambdaFunctionLayers (\s a -> s { _lambdaFunctionLayers = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-function.html#cfn-lambda-function-memorysize -lfMemorySize :: Lens' LambdaFunction (Maybe (Val Integer)) -lfMemorySize = lens _lambdaFunctionMemorySize (\s a -> s { _lambdaFunctionMemorySize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-function.html#cfn-lambda-function-reservedconcurrentexecutions -lfReservedConcurrentExecutions :: Lens' LambdaFunction (Maybe (Val Integer)) -lfReservedConcurrentExecutions = lens _lambdaFunctionReservedConcurrentExecutions (\s a -> s { _lambdaFunctionReservedConcurrentExecutions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-function.html#cfn-lambda-function-role -lfRole :: Lens' LambdaFunction (Val Text) -lfRole = lens _lambdaFunctionRole (\s a -> s { _lambdaFunctionRole = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-function.html#cfn-lambda-function-runtime -lfRuntime :: Lens' LambdaFunction (Val Runtime) -lfRuntime = lens _lambdaFunctionRuntime (\s a -> s { _lambdaFunctionRuntime = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-function.html#cfn-lambda-function-tags -lfTags :: Lens' LambdaFunction (Maybe [Tag]) -lfTags = lens _lambdaFunctionTags (\s a -> s { _lambdaFunctionTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-function.html#cfn-lambda-function-timeout -lfTimeout :: Lens' LambdaFunction (Maybe (Val Integer)) -lfTimeout = lens _lambdaFunctionTimeout (\s a -> s { _lambdaFunctionTimeout = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-function.html#cfn-lambda-function-tracingconfig -lfTracingConfig :: Lens' LambdaFunction (Maybe LambdaFunctionTracingConfig) -lfTracingConfig = lens _lambdaFunctionTracingConfig (\s a -> s { _lambdaFunctionTracingConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-function.html#cfn-lambda-function-vpcconfig -lfVpcConfig :: Lens' LambdaFunction (Maybe LambdaFunctionVpcConfig) -lfVpcConfig = lens _lambdaFunctionVpcConfig (\s a -> s { _lambdaFunctionVpcConfig = a }) diff --git a/library-gen/Stratosphere/Resources/LambdaLayerVersion.hs b/library-gen/Stratosphere/Resources/LambdaLayerVersion.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/LambdaLayerVersion.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-layerversion.html - -module Stratosphere.Resources.LambdaLayerVersion where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.LambdaLayerVersionContent - --- | Full data type definition for LambdaLayerVersion. See --- 'lambdaLayerVersion' for a more convenient constructor. -data LambdaLayerVersion = - LambdaLayerVersion - { _lambdaLayerVersionCompatibleRuntimes :: Maybe (ValList Text) - , _lambdaLayerVersionContent :: LambdaLayerVersionContent - , _lambdaLayerVersionDescription :: Maybe (Val Text) - , _lambdaLayerVersionLayerName :: Maybe (Val Text) - , _lambdaLayerVersionLicenseInfo :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties LambdaLayerVersion where - toResourceProperties LambdaLayerVersion{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Lambda::LayerVersion" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("CompatibleRuntimes",) . toJSON) _lambdaLayerVersionCompatibleRuntimes - , (Just . ("Content",) . toJSON) _lambdaLayerVersionContent - , fmap (("Description",) . toJSON) _lambdaLayerVersionDescription - , fmap (("LayerName",) . toJSON) _lambdaLayerVersionLayerName - , fmap (("LicenseInfo",) . toJSON) _lambdaLayerVersionLicenseInfo - ] - } - --- | Constructor for 'LambdaLayerVersion' containing required fields as --- arguments. -lambdaLayerVersion - :: LambdaLayerVersionContent -- ^ 'llvContent' - -> LambdaLayerVersion -lambdaLayerVersion contentarg = - LambdaLayerVersion - { _lambdaLayerVersionCompatibleRuntimes = Nothing - , _lambdaLayerVersionContent = contentarg - , _lambdaLayerVersionDescription = Nothing - , _lambdaLayerVersionLayerName = Nothing - , _lambdaLayerVersionLicenseInfo = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-layerversion.html#cfn-lambda-layerversion-compatibleruntimes -llvCompatibleRuntimes :: Lens' LambdaLayerVersion (Maybe (ValList Text)) -llvCompatibleRuntimes = lens _lambdaLayerVersionCompatibleRuntimes (\s a -> s { _lambdaLayerVersionCompatibleRuntimes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-layerversion.html#cfn-lambda-layerversion-content -llvContent :: Lens' LambdaLayerVersion LambdaLayerVersionContent -llvContent = lens _lambdaLayerVersionContent (\s a -> s { _lambdaLayerVersionContent = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-layerversion.html#cfn-lambda-layerversion-description -llvDescription :: Lens' LambdaLayerVersion (Maybe (Val Text)) -llvDescription = lens _lambdaLayerVersionDescription (\s a -> s { _lambdaLayerVersionDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-layerversion.html#cfn-lambda-layerversion-layername -llvLayerName :: Lens' LambdaLayerVersion (Maybe (Val Text)) -llvLayerName = lens _lambdaLayerVersionLayerName (\s a -> s { _lambdaLayerVersionLayerName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-layerversion.html#cfn-lambda-layerversion-licenseinfo -llvLicenseInfo :: Lens' LambdaLayerVersion (Maybe (Val Text)) -llvLicenseInfo = lens _lambdaLayerVersionLicenseInfo (\s a -> s { _lambdaLayerVersionLicenseInfo = a }) diff --git a/library-gen/Stratosphere/Resources/LambdaLayerVersionPermission.hs b/library-gen/Stratosphere/Resources/LambdaLayerVersionPermission.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/LambdaLayerVersionPermission.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-layerversionpermission.html - -module Stratosphere.Resources.LambdaLayerVersionPermission where - -import Stratosphere.ResourceImports - - --- | Full data type definition for LambdaLayerVersionPermission. See --- 'lambdaLayerVersionPermission' for a more convenient constructor. -data LambdaLayerVersionPermission = - LambdaLayerVersionPermission - { _lambdaLayerVersionPermissionAction :: Val Text - , _lambdaLayerVersionPermissionLayerVersionArn :: Val Text - , _lambdaLayerVersionPermissionOrganizationId :: Maybe (Val Text) - , _lambdaLayerVersionPermissionPrincipal :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties LambdaLayerVersionPermission where - toResourceProperties LambdaLayerVersionPermission{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Lambda::LayerVersionPermission" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Action",) . toJSON) _lambdaLayerVersionPermissionAction - , (Just . ("LayerVersionArn",) . toJSON) _lambdaLayerVersionPermissionLayerVersionArn - , fmap (("OrganizationId",) . toJSON) _lambdaLayerVersionPermissionOrganizationId - , (Just . ("Principal",) . toJSON) _lambdaLayerVersionPermissionPrincipal - ] - } - --- | Constructor for 'LambdaLayerVersionPermission' containing required fields --- as arguments. -lambdaLayerVersionPermission - :: Val Text -- ^ 'llvpAction' - -> Val Text -- ^ 'llvpLayerVersionArn' - -> Val Text -- ^ 'llvpPrincipal' - -> LambdaLayerVersionPermission -lambdaLayerVersionPermission actionarg layerVersionArnarg principalarg = - LambdaLayerVersionPermission - { _lambdaLayerVersionPermissionAction = actionarg - , _lambdaLayerVersionPermissionLayerVersionArn = layerVersionArnarg - , _lambdaLayerVersionPermissionOrganizationId = Nothing - , _lambdaLayerVersionPermissionPrincipal = principalarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-layerversionpermission.html#cfn-lambda-layerversionpermission-action -llvpAction :: Lens' LambdaLayerVersionPermission (Val Text) -llvpAction = lens _lambdaLayerVersionPermissionAction (\s a -> s { _lambdaLayerVersionPermissionAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-layerversionpermission.html#cfn-lambda-layerversionpermission-layerversionarn -llvpLayerVersionArn :: Lens' LambdaLayerVersionPermission (Val Text) -llvpLayerVersionArn = lens _lambdaLayerVersionPermissionLayerVersionArn (\s a -> s { _lambdaLayerVersionPermissionLayerVersionArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-layerversionpermission.html#cfn-lambda-layerversionpermission-organizationid -llvpOrganizationId :: Lens' LambdaLayerVersionPermission (Maybe (Val Text)) -llvpOrganizationId = lens _lambdaLayerVersionPermissionOrganizationId (\s a -> s { _lambdaLayerVersionPermissionOrganizationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-layerversionpermission.html#cfn-lambda-layerversionpermission-principal -llvpPrincipal :: Lens' LambdaLayerVersionPermission (Val Text) -llvpPrincipal = lens _lambdaLayerVersionPermissionPrincipal (\s a -> s { _lambdaLayerVersionPermissionPrincipal = a }) diff --git a/library-gen/Stratosphere/Resources/LambdaPermission.hs b/library-gen/Stratosphere/Resources/LambdaPermission.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/LambdaPermission.hs +++ /dev/null @@ -1,79 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-permission.html - -module Stratosphere.Resources.LambdaPermission where - -import Stratosphere.ResourceImports - - --- | Full data type definition for LambdaPermission. See 'lambdaPermission' --- for a more convenient constructor. -data LambdaPermission = - LambdaPermission - { _lambdaPermissionAction :: Val Text - , _lambdaPermissionEventSourceToken :: Maybe (Val Text) - , _lambdaPermissionFunctionName :: Val Text - , _lambdaPermissionPrincipal :: Val Text - , _lambdaPermissionSourceAccount :: Maybe (Val Text) - , _lambdaPermissionSourceArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties LambdaPermission where - toResourceProperties LambdaPermission{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Lambda::Permission" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Action",) . toJSON) _lambdaPermissionAction - , fmap (("EventSourceToken",) . toJSON) _lambdaPermissionEventSourceToken - , (Just . ("FunctionName",) . toJSON) _lambdaPermissionFunctionName - , (Just . ("Principal",) . toJSON) _lambdaPermissionPrincipal - , fmap (("SourceAccount",) . toJSON) _lambdaPermissionSourceAccount - , fmap (("SourceArn",) . toJSON) _lambdaPermissionSourceArn - ] - } - --- | Constructor for 'LambdaPermission' containing required fields as --- arguments. -lambdaPermission - :: Val Text -- ^ 'lpAction' - -> Val Text -- ^ 'lpFunctionName' - -> Val Text -- ^ 'lpPrincipal' - -> LambdaPermission -lambdaPermission actionarg functionNamearg principalarg = - LambdaPermission - { _lambdaPermissionAction = actionarg - , _lambdaPermissionEventSourceToken = Nothing - , _lambdaPermissionFunctionName = functionNamearg - , _lambdaPermissionPrincipal = principalarg - , _lambdaPermissionSourceAccount = Nothing - , _lambdaPermissionSourceArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-permission.html#cfn-lambda-permission-action -lpAction :: Lens' LambdaPermission (Val Text) -lpAction = lens _lambdaPermissionAction (\s a -> s { _lambdaPermissionAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-permission.html#cfn-lambda-permission-eventsourcetoken -lpEventSourceToken :: Lens' LambdaPermission (Maybe (Val Text)) -lpEventSourceToken = lens _lambdaPermissionEventSourceToken (\s a -> s { _lambdaPermissionEventSourceToken = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-permission.html#cfn-lambda-permission-functionname -lpFunctionName :: Lens' LambdaPermission (Val Text) -lpFunctionName = lens _lambdaPermissionFunctionName (\s a -> s { _lambdaPermissionFunctionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-permission.html#cfn-lambda-permission-principal -lpPrincipal :: Lens' LambdaPermission (Val Text) -lpPrincipal = lens _lambdaPermissionPrincipal (\s a -> s { _lambdaPermissionPrincipal = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-permission.html#cfn-lambda-permission-sourceaccount -lpSourceAccount :: Lens' LambdaPermission (Maybe (Val Text)) -lpSourceAccount = lens _lambdaPermissionSourceAccount (\s a -> s { _lambdaPermissionSourceAccount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-permission.html#cfn-lambda-permission-sourcearn -lpSourceArn :: Lens' LambdaPermission (Maybe (Val Text)) -lpSourceArn = lens _lambdaPermissionSourceArn (\s a -> s { _lambdaPermissionSourceArn = a }) diff --git a/library-gen/Stratosphere/Resources/LambdaVersion.hs b/library-gen/Stratosphere/Resources/LambdaVersion.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/LambdaVersion.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-version.html - -module Stratosphere.Resources.LambdaVersion where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.LambdaVersionProvisionedConcurrencyConfiguration - --- | Full data type definition for LambdaVersion. See 'lambdaVersion' for a --- more convenient constructor. -data LambdaVersion = - LambdaVersion - { _lambdaVersionCodeSha256 :: Maybe (Val Text) - , _lambdaVersionDescription :: Maybe (Val Text) - , _lambdaVersionFunctionName :: Val Text - , _lambdaVersionProvisionedConcurrencyConfig :: Maybe LambdaVersionProvisionedConcurrencyConfiguration - } deriving (Show, Eq) - -instance ToResourceProperties LambdaVersion where - toResourceProperties LambdaVersion{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Lambda::Version" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("CodeSha256",) . toJSON) _lambdaVersionCodeSha256 - , fmap (("Description",) . toJSON) _lambdaVersionDescription - , (Just . ("FunctionName",) . toJSON) _lambdaVersionFunctionName - , fmap (("ProvisionedConcurrencyConfig",) . toJSON) _lambdaVersionProvisionedConcurrencyConfig - ] - } - --- | Constructor for 'LambdaVersion' containing required fields as arguments. -lambdaVersion - :: Val Text -- ^ 'lvFunctionName' - -> LambdaVersion -lambdaVersion functionNamearg = - LambdaVersion - { _lambdaVersionCodeSha256 = Nothing - , _lambdaVersionDescription = Nothing - , _lambdaVersionFunctionName = functionNamearg - , _lambdaVersionProvisionedConcurrencyConfig = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-version.html#cfn-lambda-version-codesha256 -lvCodeSha256 :: Lens' LambdaVersion (Maybe (Val Text)) -lvCodeSha256 = lens _lambdaVersionCodeSha256 (\s a -> s { _lambdaVersionCodeSha256 = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-version.html#cfn-lambda-version-description -lvDescription :: Lens' LambdaVersion (Maybe (Val Text)) -lvDescription = lens _lambdaVersionDescription (\s a -> s { _lambdaVersionDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-version.html#cfn-lambda-version-functionname -lvFunctionName :: Lens' LambdaVersion (Val Text) -lvFunctionName = lens _lambdaVersionFunctionName (\s a -> s { _lambdaVersionFunctionName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-lambda-version.html#cfn-lambda-version-provisionedconcurrencyconfig -lvProvisionedConcurrencyConfig :: Lens' LambdaVersion (Maybe LambdaVersionProvisionedConcurrencyConfiguration) -lvProvisionedConcurrencyConfig = lens _lambdaVersionProvisionedConcurrencyConfig (\s a -> s { _lambdaVersionProvisionedConcurrencyConfig = a }) diff --git a/library-gen/Stratosphere/Resources/LogsDestination.hs b/library-gen/Stratosphere/Resources/LogsDestination.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/LogsDestination.hs +++ /dev/null @@ -1,66 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-logs-destination.html - -module Stratosphere.Resources.LogsDestination where - -import Stratosphere.ResourceImports - - --- | Full data type definition for LogsDestination. See 'logsDestination' for --- a more convenient constructor. -data LogsDestination = - LogsDestination - { _logsDestinationDestinationName :: Val Text - , _logsDestinationDestinationPolicy :: Val Text - , _logsDestinationRoleArn :: Val Text - , _logsDestinationTargetArn :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties LogsDestination where - toResourceProperties LogsDestination{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Logs::Destination" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("DestinationName",) . toJSON) _logsDestinationDestinationName - , (Just . ("DestinationPolicy",) . toJSON) _logsDestinationDestinationPolicy - , (Just . ("RoleArn",) . toJSON) _logsDestinationRoleArn - , (Just . ("TargetArn",) . toJSON) _logsDestinationTargetArn - ] - } - --- | Constructor for 'LogsDestination' containing required fields as --- arguments. -logsDestination - :: Val Text -- ^ 'ldDestinationName' - -> Val Text -- ^ 'ldDestinationPolicy' - -> Val Text -- ^ 'ldRoleArn' - -> Val Text -- ^ 'ldTargetArn' - -> LogsDestination -logsDestination destinationNamearg destinationPolicyarg roleArnarg targetArnarg = - LogsDestination - { _logsDestinationDestinationName = destinationNamearg - , _logsDestinationDestinationPolicy = destinationPolicyarg - , _logsDestinationRoleArn = roleArnarg - , _logsDestinationTargetArn = targetArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-logs-destination.html#cfn-logs-destination-destinationname -ldDestinationName :: Lens' LogsDestination (Val Text) -ldDestinationName = lens _logsDestinationDestinationName (\s a -> s { _logsDestinationDestinationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-logs-destination.html#cfn-logs-destination-destinationpolicy -ldDestinationPolicy :: Lens' LogsDestination (Val Text) -ldDestinationPolicy = lens _logsDestinationDestinationPolicy (\s a -> s { _logsDestinationDestinationPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-logs-destination.html#cfn-logs-destination-rolearn -ldRoleArn :: Lens' LogsDestination (Val Text) -ldRoleArn = lens _logsDestinationRoleArn (\s a -> s { _logsDestinationRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-logs-destination.html#cfn-logs-destination-targetarn -ldTargetArn :: Lens' LogsDestination (Val Text) -ldTargetArn = lens _logsDestinationTargetArn (\s a -> s { _logsDestinationTargetArn = a }) diff --git a/library-gen/Stratosphere/Resources/LogsLogGroup.hs b/library-gen/Stratosphere/Resources/LogsLogGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/LogsLogGroup.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-logs-loggroup.html - -module Stratosphere.Resources.LogsLogGroup where - -import Stratosphere.ResourceImports - - --- | Full data type definition for LogsLogGroup. See 'logsLogGroup' for a more --- convenient constructor. -data LogsLogGroup = - LogsLogGroup - { _logsLogGroupLogGroupName :: Maybe (Val Text) - , _logsLogGroupRetentionInDays :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToResourceProperties LogsLogGroup where - toResourceProperties LogsLogGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Logs::LogGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("LogGroupName",) . toJSON) _logsLogGroupLogGroupName - , fmap (("RetentionInDays",) . toJSON) _logsLogGroupRetentionInDays - ] - } - --- | Constructor for 'LogsLogGroup' containing required fields as arguments. -logsLogGroup - :: LogsLogGroup -logsLogGroup = - LogsLogGroup - { _logsLogGroupLogGroupName = Nothing - , _logsLogGroupRetentionInDays = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-logs-loggroup.html#cfn-cwl-loggroup-loggroupname -llgLogGroupName :: Lens' LogsLogGroup (Maybe (Val Text)) -llgLogGroupName = lens _logsLogGroupLogGroupName (\s a -> s { _logsLogGroupLogGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-logs-loggroup.html#cfn-cwl-loggroup-retentionindays -llgRetentionInDays :: Lens' LogsLogGroup (Maybe (Val Integer)) -llgRetentionInDays = lens _logsLogGroupRetentionInDays (\s a -> s { _logsLogGroupRetentionInDays = a }) diff --git a/library-gen/Stratosphere/Resources/LogsLogStream.hs b/library-gen/Stratosphere/Resources/LogsLogStream.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/LogsLogStream.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-logs-logstream.html - -module Stratosphere.Resources.LogsLogStream where - -import Stratosphere.ResourceImports - - --- | Full data type definition for LogsLogStream. See 'logsLogStream' for a --- more convenient constructor. -data LogsLogStream = - LogsLogStream - { _logsLogStreamLogGroupName :: Val Text - , _logsLogStreamLogStreamName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties LogsLogStream where - toResourceProperties LogsLogStream{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Logs::LogStream" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("LogGroupName",) . toJSON) _logsLogStreamLogGroupName - , fmap (("LogStreamName",) . toJSON) _logsLogStreamLogStreamName - ] - } - --- | Constructor for 'LogsLogStream' containing required fields as arguments. -logsLogStream - :: Val Text -- ^ 'llsLogGroupName' - -> LogsLogStream -logsLogStream logGroupNamearg = - LogsLogStream - { _logsLogStreamLogGroupName = logGroupNamearg - , _logsLogStreamLogStreamName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-logs-logstream.html#cfn-logs-logstream-loggroupname -llsLogGroupName :: Lens' LogsLogStream (Val Text) -llsLogGroupName = lens _logsLogStreamLogGroupName (\s a -> s { _logsLogStreamLogGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-logs-logstream.html#cfn-logs-logstream-logstreamname -llsLogStreamName :: Lens' LogsLogStream (Maybe (Val Text)) -llsLogStreamName = lens _logsLogStreamLogStreamName (\s a -> s { _logsLogStreamLogStreamName = a }) diff --git a/library-gen/Stratosphere/Resources/LogsMetricFilter.hs b/library-gen/Stratosphere/Resources/LogsMetricFilter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/LogsMetricFilter.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-logs-metricfilter.html - -module Stratosphere.Resources.LogsMetricFilter where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.LogsMetricFilterMetricTransformation - --- | Full data type definition for LogsMetricFilter. See 'logsMetricFilter' --- for a more convenient constructor. -data LogsMetricFilter = - LogsMetricFilter - { _logsMetricFilterFilterPattern :: Val Text - , _logsMetricFilterLogGroupName :: Val Text - , _logsMetricFilterMetricTransformations :: [LogsMetricFilterMetricTransformation] - } deriving (Show, Eq) - -instance ToResourceProperties LogsMetricFilter where - toResourceProperties LogsMetricFilter{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Logs::MetricFilter" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("FilterPattern",) . toJSON) _logsMetricFilterFilterPattern - , (Just . ("LogGroupName",) . toJSON) _logsMetricFilterLogGroupName - , (Just . ("MetricTransformations",) . toJSON) _logsMetricFilterMetricTransformations - ] - } - --- | Constructor for 'LogsMetricFilter' containing required fields as --- arguments. -logsMetricFilter - :: Val Text -- ^ 'lmfFilterPattern' - -> Val Text -- ^ 'lmfLogGroupName' - -> [LogsMetricFilterMetricTransformation] -- ^ 'lmfMetricTransformations' - -> LogsMetricFilter -logsMetricFilter filterPatternarg logGroupNamearg metricTransformationsarg = - LogsMetricFilter - { _logsMetricFilterFilterPattern = filterPatternarg - , _logsMetricFilterLogGroupName = logGroupNamearg - , _logsMetricFilterMetricTransformations = metricTransformationsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-logs-metricfilter.html#cfn-cwl-metricfilter-filterpattern -lmfFilterPattern :: Lens' LogsMetricFilter (Val Text) -lmfFilterPattern = lens _logsMetricFilterFilterPattern (\s a -> s { _logsMetricFilterFilterPattern = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-logs-metricfilter.html#cfn-cwl-metricfilter-loggroupname -lmfLogGroupName :: Lens' LogsMetricFilter (Val Text) -lmfLogGroupName = lens _logsMetricFilterLogGroupName (\s a -> s { _logsMetricFilterLogGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-logs-metricfilter.html#cfn-cwl-metricfilter-metrictransformations -lmfMetricTransformations :: Lens' LogsMetricFilter [LogsMetricFilterMetricTransformation] -lmfMetricTransformations = lens _logsMetricFilterMetricTransformations (\s a -> s { _logsMetricFilterMetricTransformations = a }) diff --git a/library-gen/Stratosphere/Resources/LogsSubscriptionFilter.hs b/library-gen/Stratosphere/Resources/LogsSubscriptionFilter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/LogsSubscriptionFilter.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-logs-subscriptionfilter.html - -module Stratosphere.Resources.LogsSubscriptionFilter where - -import Stratosphere.ResourceImports - - --- | Full data type definition for LogsSubscriptionFilter. See --- 'logsSubscriptionFilter' for a more convenient constructor. -data LogsSubscriptionFilter = - LogsSubscriptionFilter - { _logsSubscriptionFilterDestinationArn :: Val Text - , _logsSubscriptionFilterFilterPattern :: Val Text - , _logsSubscriptionFilterLogGroupName :: Val Text - , _logsSubscriptionFilterRoleArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties LogsSubscriptionFilter where - toResourceProperties LogsSubscriptionFilter{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Logs::SubscriptionFilter" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("DestinationArn",) . toJSON) _logsSubscriptionFilterDestinationArn - , (Just . ("FilterPattern",) . toJSON) _logsSubscriptionFilterFilterPattern - , (Just . ("LogGroupName",) . toJSON) _logsSubscriptionFilterLogGroupName - , fmap (("RoleArn",) . toJSON) _logsSubscriptionFilterRoleArn - ] - } - --- | Constructor for 'LogsSubscriptionFilter' containing required fields as --- arguments. -logsSubscriptionFilter - :: Val Text -- ^ 'lsfDestinationArn' - -> Val Text -- ^ 'lsfFilterPattern' - -> Val Text -- ^ 'lsfLogGroupName' - -> LogsSubscriptionFilter -logsSubscriptionFilter destinationArnarg filterPatternarg logGroupNamearg = - LogsSubscriptionFilter - { _logsSubscriptionFilterDestinationArn = destinationArnarg - , _logsSubscriptionFilterFilterPattern = filterPatternarg - , _logsSubscriptionFilterLogGroupName = logGroupNamearg - , _logsSubscriptionFilterRoleArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-logs-subscriptionfilter.html#cfn-cwl-subscriptionfilter-destinationarn -lsfDestinationArn :: Lens' LogsSubscriptionFilter (Val Text) -lsfDestinationArn = lens _logsSubscriptionFilterDestinationArn (\s a -> s { _logsSubscriptionFilterDestinationArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-logs-subscriptionfilter.html#cfn-cwl-subscriptionfilter-filterpattern -lsfFilterPattern :: Lens' LogsSubscriptionFilter (Val Text) -lsfFilterPattern = lens _logsSubscriptionFilterFilterPattern (\s a -> s { _logsSubscriptionFilterFilterPattern = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-logs-subscriptionfilter.html#cfn-cwl-subscriptionfilter-loggroupname -lsfLogGroupName :: Lens' LogsSubscriptionFilter (Val Text) -lsfLogGroupName = lens _logsSubscriptionFilterLogGroupName (\s a -> s { _logsSubscriptionFilterLogGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-logs-subscriptionfilter.html#cfn-cwl-subscriptionfilter-rolearn -lsfRoleArn :: Lens' LogsSubscriptionFilter (Maybe (Val Text)) -lsfRoleArn = lens _logsSubscriptionFilterRoleArn (\s a -> s { _logsSubscriptionFilterRoleArn = a }) diff --git a/library-gen/Stratosphere/Resources/MSKCluster.hs b/library-gen/Stratosphere/Resources/MSKCluster.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/MSKCluster.hs +++ /dev/null @@ -1,119 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-msk-cluster.html - -module Stratosphere.Resources.MSKCluster where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.MSKClusterBrokerNodeGroupInfo -import Stratosphere.ResourceProperties.MSKClusterClientAuthentication -import Stratosphere.ResourceProperties.MSKClusterConfigurationInfo -import Stratosphere.ResourceProperties.MSKClusterEncryptionInfo -import Stratosphere.ResourceProperties.MSKClusterLoggingInfo -import Stratosphere.ResourceProperties.MSKClusterOpenMonitoring - --- | Full data type definition for MSKCluster. See 'mskCluster' for a more --- convenient constructor. -data MSKCluster = - MSKCluster - { _mSKClusterBrokerNodeGroupInfo :: MSKClusterBrokerNodeGroupInfo - , _mSKClusterClientAuthentication :: Maybe MSKClusterClientAuthentication - , _mSKClusterClusterName :: Val Text - , _mSKClusterConfigurationInfo :: Maybe MSKClusterConfigurationInfo - , _mSKClusterEncryptionInfo :: Maybe MSKClusterEncryptionInfo - , _mSKClusterEnhancedMonitoring :: Maybe (Val Text) - , _mSKClusterKafkaVersion :: Val Text - , _mSKClusterLoggingInfo :: Maybe MSKClusterLoggingInfo - , _mSKClusterNumberOfBrokerNodes :: Val Integer - , _mSKClusterOpenMonitoring :: Maybe MSKClusterOpenMonitoring - , _mSKClusterTags :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties MSKCluster where - toResourceProperties MSKCluster{..} = - ResourceProperties - { resourcePropertiesType = "AWS::MSK::Cluster" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("BrokerNodeGroupInfo",) . toJSON) _mSKClusterBrokerNodeGroupInfo - , fmap (("ClientAuthentication",) . toJSON) _mSKClusterClientAuthentication - , (Just . ("ClusterName",) . toJSON) _mSKClusterClusterName - , fmap (("ConfigurationInfo",) . toJSON) _mSKClusterConfigurationInfo - , fmap (("EncryptionInfo",) . toJSON) _mSKClusterEncryptionInfo - , fmap (("EnhancedMonitoring",) . toJSON) _mSKClusterEnhancedMonitoring - , (Just . ("KafkaVersion",) . toJSON) _mSKClusterKafkaVersion - , fmap (("LoggingInfo",) . toJSON) _mSKClusterLoggingInfo - , (Just . ("NumberOfBrokerNodes",) . toJSON) _mSKClusterNumberOfBrokerNodes - , fmap (("OpenMonitoring",) . toJSON) _mSKClusterOpenMonitoring - , fmap (("Tags",) . toJSON) _mSKClusterTags - ] - } - --- | Constructor for 'MSKCluster' containing required fields as arguments. -mskCluster - :: MSKClusterBrokerNodeGroupInfo -- ^ 'mskcBrokerNodeGroupInfo' - -> Val Text -- ^ 'mskcClusterName' - -> Val Text -- ^ 'mskcKafkaVersion' - -> Val Integer -- ^ 'mskcNumberOfBrokerNodes' - -> MSKCluster -mskCluster brokerNodeGroupInfoarg clusterNamearg kafkaVersionarg numberOfBrokerNodesarg = - MSKCluster - { _mSKClusterBrokerNodeGroupInfo = brokerNodeGroupInfoarg - , _mSKClusterClientAuthentication = Nothing - , _mSKClusterClusterName = clusterNamearg - , _mSKClusterConfigurationInfo = Nothing - , _mSKClusterEncryptionInfo = Nothing - , _mSKClusterEnhancedMonitoring = Nothing - , _mSKClusterKafkaVersion = kafkaVersionarg - , _mSKClusterLoggingInfo = Nothing - , _mSKClusterNumberOfBrokerNodes = numberOfBrokerNodesarg - , _mSKClusterOpenMonitoring = Nothing - , _mSKClusterTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-msk-cluster.html#cfn-msk-cluster-brokernodegroupinfo -mskcBrokerNodeGroupInfo :: Lens' MSKCluster MSKClusterBrokerNodeGroupInfo -mskcBrokerNodeGroupInfo = lens _mSKClusterBrokerNodeGroupInfo (\s a -> s { _mSKClusterBrokerNodeGroupInfo = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-msk-cluster.html#cfn-msk-cluster-clientauthentication -mskcClientAuthentication :: Lens' MSKCluster (Maybe MSKClusterClientAuthentication) -mskcClientAuthentication = lens _mSKClusterClientAuthentication (\s a -> s { _mSKClusterClientAuthentication = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-msk-cluster.html#cfn-msk-cluster-clustername -mskcClusterName :: Lens' MSKCluster (Val Text) -mskcClusterName = lens _mSKClusterClusterName (\s a -> s { _mSKClusterClusterName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-msk-cluster.html#cfn-msk-cluster-configurationinfo -mskcConfigurationInfo :: Lens' MSKCluster (Maybe MSKClusterConfigurationInfo) -mskcConfigurationInfo = lens _mSKClusterConfigurationInfo (\s a -> s { _mSKClusterConfigurationInfo = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-msk-cluster.html#cfn-msk-cluster-encryptioninfo -mskcEncryptionInfo :: Lens' MSKCluster (Maybe MSKClusterEncryptionInfo) -mskcEncryptionInfo = lens _mSKClusterEncryptionInfo (\s a -> s { _mSKClusterEncryptionInfo = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-msk-cluster.html#cfn-msk-cluster-enhancedmonitoring -mskcEnhancedMonitoring :: Lens' MSKCluster (Maybe (Val Text)) -mskcEnhancedMonitoring = lens _mSKClusterEnhancedMonitoring (\s a -> s { _mSKClusterEnhancedMonitoring = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-msk-cluster.html#cfn-msk-cluster-kafkaversion -mskcKafkaVersion :: Lens' MSKCluster (Val Text) -mskcKafkaVersion = lens _mSKClusterKafkaVersion (\s a -> s { _mSKClusterKafkaVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-msk-cluster.html#cfn-msk-cluster-logginginfo -mskcLoggingInfo :: Lens' MSKCluster (Maybe MSKClusterLoggingInfo) -mskcLoggingInfo = lens _mSKClusterLoggingInfo (\s a -> s { _mSKClusterLoggingInfo = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-msk-cluster.html#cfn-msk-cluster-numberofbrokernodes -mskcNumberOfBrokerNodes :: Lens' MSKCluster (Val Integer) -mskcNumberOfBrokerNodes = lens _mSKClusterNumberOfBrokerNodes (\s a -> s { _mSKClusterNumberOfBrokerNodes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-msk-cluster.html#cfn-msk-cluster-openmonitoring -mskcOpenMonitoring :: Lens' MSKCluster (Maybe MSKClusterOpenMonitoring) -mskcOpenMonitoring = lens _mSKClusterOpenMonitoring (\s a -> s { _mSKClusterOpenMonitoring = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-msk-cluster.html#cfn-msk-cluster-tags -mskcTags :: Lens' MSKCluster (Maybe Object) -mskcTags = lens _mSKClusterTags (\s a -> s { _mSKClusterTags = a }) diff --git a/library-gen/Stratosphere/Resources/MacieCustomDataIdentifier.hs b/library-gen/Stratosphere/Resources/MacieCustomDataIdentifier.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/MacieCustomDataIdentifier.hs +++ /dev/null @@ -1,78 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-macie-customdataidentifier.html - -module Stratosphere.Resources.MacieCustomDataIdentifier where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MacieCustomDataIdentifier. See --- 'macieCustomDataIdentifier' for a more convenient constructor. -data MacieCustomDataIdentifier = - MacieCustomDataIdentifier - { _macieCustomDataIdentifierDescription :: Maybe (Val Text) - , _macieCustomDataIdentifierIgnoreWords :: Maybe (ValList Text) - , _macieCustomDataIdentifierKeywords :: Maybe (ValList Text) - , _macieCustomDataIdentifierMaximumMatchDistance :: Maybe (Val Integer) - , _macieCustomDataIdentifierName :: Val Text - , _macieCustomDataIdentifierRegex :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties MacieCustomDataIdentifier where - toResourceProperties MacieCustomDataIdentifier{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Macie::CustomDataIdentifier" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _macieCustomDataIdentifierDescription - , fmap (("IgnoreWords",) . toJSON) _macieCustomDataIdentifierIgnoreWords - , fmap (("Keywords",) . toJSON) _macieCustomDataIdentifierKeywords - , fmap (("MaximumMatchDistance",) . toJSON) _macieCustomDataIdentifierMaximumMatchDistance - , (Just . ("Name",) . toJSON) _macieCustomDataIdentifierName - , (Just . ("Regex",) . toJSON) _macieCustomDataIdentifierRegex - ] - } - --- | Constructor for 'MacieCustomDataIdentifier' containing required fields as --- arguments. -macieCustomDataIdentifier - :: Val Text -- ^ 'mcdiName' - -> Val Text -- ^ 'mcdiRegex' - -> MacieCustomDataIdentifier -macieCustomDataIdentifier namearg regexarg = - MacieCustomDataIdentifier - { _macieCustomDataIdentifierDescription = Nothing - , _macieCustomDataIdentifierIgnoreWords = Nothing - , _macieCustomDataIdentifierKeywords = Nothing - , _macieCustomDataIdentifierMaximumMatchDistance = Nothing - , _macieCustomDataIdentifierName = namearg - , _macieCustomDataIdentifierRegex = regexarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-macie-customdataidentifier.html#cfn-macie-customdataidentifier-description -mcdiDescription :: Lens' MacieCustomDataIdentifier (Maybe (Val Text)) -mcdiDescription = lens _macieCustomDataIdentifierDescription (\s a -> s { _macieCustomDataIdentifierDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-macie-customdataidentifier.html#cfn-macie-customdataidentifier-ignorewords -mcdiIgnoreWords :: Lens' MacieCustomDataIdentifier (Maybe (ValList Text)) -mcdiIgnoreWords = lens _macieCustomDataIdentifierIgnoreWords (\s a -> s { _macieCustomDataIdentifierIgnoreWords = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-macie-customdataidentifier.html#cfn-macie-customdataidentifier-keywords -mcdiKeywords :: Lens' MacieCustomDataIdentifier (Maybe (ValList Text)) -mcdiKeywords = lens _macieCustomDataIdentifierKeywords (\s a -> s { _macieCustomDataIdentifierKeywords = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-macie-customdataidentifier.html#cfn-macie-customdataidentifier-maximummatchdistance -mcdiMaximumMatchDistance :: Lens' MacieCustomDataIdentifier (Maybe (Val Integer)) -mcdiMaximumMatchDistance = lens _macieCustomDataIdentifierMaximumMatchDistance (\s a -> s { _macieCustomDataIdentifierMaximumMatchDistance = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-macie-customdataidentifier.html#cfn-macie-customdataidentifier-name -mcdiName :: Lens' MacieCustomDataIdentifier (Val Text) -mcdiName = lens _macieCustomDataIdentifierName (\s a -> s { _macieCustomDataIdentifierName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-macie-customdataidentifier.html#cfn-macie-customdataidentifier-regex -mcdiRegex :: Lens' MacieCustomDataIdentifier (Val Text) -mcdiRegex = lens _macieCustomDataIdentifierRegex (\s a -> s { _macieCustomDataIdentifierRegex = a }) diff --git a/library-gen/Stratosphere/Resources/MacieFindingsFilter.hs b/library-gen/Stratosphere/Resources/MacieFindingsFilter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/MacieFindingsFilter.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-macie-findingsfilter.html - -module Stratosphere.Resources.MacieFindingsFilter where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MacieFindingsFilter. See --- 'macieFindingsFilter' for a more convenient constructor. -data MacieFindingsFilter = - MacieFindingsFilter - { _macieFindingsFilterAction :: Maybe (Val Text) - , _macieFindingsFilterDescription :: Maybe (Val Text) - , _macieFindingsFilterName :: Val Text - , _macieFindingsFilterPosition :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToResourceProperties MacieFindingsFilter where - toResourceProperties MacieFindingsFilter{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Macie::FindingsFilter" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Action",) . toJSON) _macieFindingsFilterAction - , fmap (("Description",) . toJSON) _macieFindingsFilterDescription - , (Just . ("Name",) . toJSON) _macieFindingsFilterName - , fmap (("Position",) . toJSON) _macieFindingsFilterPosition - ] - } - --- | Constructor for 'MacieFindingsFilter' containing required fields as --- arguments. -macieFindingsFilter - :: Val Text -- ^ 'mffName' - -> MacieFindingsFilter -macieFindingsFilter namearg = - MacieFindingsFilter - { _macieFindingsFilterAction = Nothing - , _macieFindingsFilterDescription = Nothing - , _macieFindingsFilterName = namearg - , _macieFindingsFilterPosition = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-macie-findingsfilter.html#cfn-macie-findingsfilter-action -mffAction :: Lens' MacieFindingsFilter (Maybe (Val Text)) -mffAction = lens _macieFindingsFilterAction (\s a -> s { _macieFindingsFilterAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-macie-findingsfilter.html#cfn-macie-findingsfilter-description -mffDescription :: Lens' MacieFindingsFilter (Maybe (Val Text)) -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 (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 -mffPosition :: Lens' MacieFindingsFilter (Maybe (Val Integer)) -mffPosition = lens _macieFindingsFilterPosition (\s a -> s { _macieFindingsFilterPosition = a }) diff --git a/library-gen/Stratosphere/Resources/MacieSession.hs b/library-gen/Stratosphere/Resources/MacieSession.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/MacieSession.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-macie-session.html - -module Stratosphere.Resources.MacieSession where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MacieSession. See 'macieSession' for a more --- convenient constructor. -data MacieSession = - MacieSession - { _macieSessionFindingPublishingFrequency :: Maybe (Val Text) - , _macieSessionStatus :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties MacieSession where - toResourceProperties MacieSession{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Macie::Session" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("FindingPublishingFrequency",) . toJSON) _macieSessionFindingPublishingFrequency - , fmap (("Status",) . toJSON) _macieSessionStatus - ] - } - --- | Constructor for 'MacieSession' containing required fields as arguments. -macieSession - :: MacieSession -macieSession = - MacieSession - { _macieSessionFindingPublishingFrequency = Nothing - , _macieSessionStatus = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-macie-session.html#cfn-macie-session-findingpublishingfrequency -msFindingPublishingFrequency :: Lens' MacieSession (Maybe (Val Text)) -msFindingPublishingFrequency = lens _macieSessionFindingPublishingFrequency (\s a -> s { _macieSessionFindingPublishingFrequency = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-macie-session.html#cfn-macie-session-status -msStatus :: Lens' MacieSession (Maybe (Val Text)) -msStatus = lens _macieSessionStatus (\s a -> s { _macieSessionStatus = a }) diff --git a/library-gen/Stratosphere/Resources/ManagedBlockchainMember.hs b/library-gen/Stratosphere/Resources/ManagedBlockchainMember.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ManagedBlockchainMember.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-managedblockchain-member.html - -module Stratosphere.Resources.ManagedBlockchainMember where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ManagedBlockchainMemberMemberConfiguration -import Stratosphere.ResourceProperties.ManagedBlockchainMemberNetworkConfiguration - --- | Full data type definition for ManagedBlockchainMember. See --- 'managedBlockchainMember' for a more convenient constructor. -data ManagedBlockchainMember = - ManagedBlockchainMember - { _managedBlockchainMemberInvitationId :: Maybe (Val Text) - , _managedBlockchainMemberMemberConfiguration :: ManagedBlockchainMemberMemberConfiguration - , _managedBlockchainMemberNetworkConfiguration :: Maybe ManagedBlockchainMemberNetworkConfiguration - , _managedBlockchainMemberNetworkId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties ManagedBlockchainMember where - toResourceProperties ManagedBlockchainMember{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ManagedBlockchain::Member" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("InvitationId",) . toJSON) _managedBlockchainMemberInvitationId - , (Just . ("MemberConfiguration",) . toJSON) _managedBlockchainMemberMemberConfiguration - , fmap (("NetworkConfiguration",) . toJSON) _managedBlockchainMemberNetworkConfiguration - , fmap (("NetworkId",) . toJSON) _managedBlockchainMemberNetworkId - ] - } - --- | Constructor for 'ManagedBlockchainMember' containing required fields as --- arguments. -managedBlockchainMember - :: ManagedBlockchainMemberMemberConfiguration -- ^ 'mbmMemberConfiguration' - -> ManagedBlockchainMember -managedBlockchainMember memberConfigurationarg = - ManagedBlockchainMember - { _managedBlockchainMemberInvitationId = Nothing - , _managedBlockchainMemberMemberConfiguration = memberConfigurationarg - , _managedBlockchainMemberNetworkConfiguration = Nothing - , _managedBlockchainMemberNetworkId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-managedblockchain-member.html#cfn-managedblockchain-member-invitationid -mbmInvitationId :: Lens' ManagedBlockchainMember (Maybe (Val Text)) -mbmInvitationId = lens _managedBlockchainMemberInvitationId (\s a -> s { _managedBlockchainMemberInvitationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-managedblockchain-member.html#cfn-managedblockchain-member-memberconfiguration -mbmMemberConfiguration :: Lens' ManagedBlockchainMember ManagedBlockchainMemberMemberConfiguration -mbmMemberConfiguration = lens _managedBlockchainMemberMemberConfiguration (\s a -> s { _managedBlockchainMemberMemberConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-managedblockchain-member.html#cfn-managedblockchain-member-networkconfiguration -mbmNetworkConfiguration :: Lens' ManagedBlockchainMember (Maybe ManagedBlockchainMemberNetworkConfiguration) -mbmNetworkConfiguration = lens _managedBlockchainMemberNetworkConfiguration (\s a -> s { _managedBlockchainMemberNetworkConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-managedblockchain-member.html#cfn-managedblockchain-member-networkid -mbmNetworkId :: Lens' ManagedBlockchainMember (Maybe (Val Text)) -mbmNetworkId = lens _managedBlockchainMemberNetworkId (\s a -> s { _managedBlockchainMemberNetworkId = a }) diff --git a/library-gen/Stratosphere/Resources/ManagedBlockchainNode.hs b/library-gen/Stratosphere/Resources/ManagedBlockchainNode.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ManagedBlockchainNode.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-managedblockchain-node.html - -module Stratosphere.Resources.ManagedBlockchainNode where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ManagedBlockchainNodeNodeConfiguration - --- | Full data type definition for ManagedBlockchainNode. See --- 'managedBlockchainNode' for a more convenient constructor. -data ManagedBlockchainNode = - ManagedBlockchainNode - { _managedBlockchainNodeMemberId :: Val Text - , _managedBlockchainNodeNetworkId :: Val Text - , _managedBlockchainNodeNodeConfiguration :: ManagedBlockchainNodeNodeConfiguration - } deriving (Show, Eq) - -instance ToResourceProperties ManagedBlockchainNode where - toResourceProperties ManagedBlockchainNode{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ManagedBlockchain::Node" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("MemberId",) . toJSON) _managedBlockchainNodeMemberId - , (Just . ("NetworkId",) . toJSON) _managedBlockchainNodeNetworkId - , (Just . ("NodeConfiguration",) . toJSON) _managedBlockchainNodeNodeConfiguration - ] - } - --- | Constructor for 'ManagedBlockchainNode' containing required fields as --- arguments. -managedBlockchainNode - :: Val Text -- ^ 'mbnMemberId' - -> Val Text -- ^ 'mbnNetworkId' - -> ManagedBlockchainNodeNodeConfiguration -- ^ 'mbnNodeConfiguration' - -> ManagedBlockchainNode -managedBlockchainNode memberIdarg networkIdarg nodeConfigurationarg = - ManagedBlockchainNode - { _managedBlockchainNodeMemberId = memberIdarg - , _managedBlockchainNodeNetworkId = networkIdarg - , _managedBlockchainNodeNodeConfiguration = nodeConfigurationarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-managedblockchain-node.html#cfn-managedblockchain-node-memberid -mbnMemberId :: Lens' ManagedBlockchainNode (Val Text) -mbnMemberId = lens _managedBlockchainNodeMemberId (\s a -> s { _managedBlockchainNodeMemberId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-managedblockchain-node.html#cfn-managedblockchain-node-networkid -mbnNetworkId :: Lens' ManagedBlockchainNode (Val Text) -mbnNetworkId = lens _managedBlockchainNodeNetworkId (\s a -> s { _managedBlockchainNodeNetworkId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-managedblockchain-node.html#cfn-managedblockchain-node-nodeconfiguration -mbnNodeConfiguration :: Lens' ManagedBlockchainNode ManagedBlockchainNodeNodeConfiguration -mbnNodeConfiguration = lens _managedBlockchainNodeNodeConfiguration (\s a -> s { _managedBlockchainNodeNodeConfiguration = a }) diff --git a/library-gen/Stratosphere/Resources/MediaConvertJobTemplate.hs b/library-gen/Stratosphere/Resources/MediaConvertJobTemplate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/MediaConvertJobTemplate.hs +++ /dev/null @@ -1,106 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-jobtemplate.html - -module Stratosphere.Resources.MediaConvertJobTemplate where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.MediaConvertJobTemplateAccelerationSettings -import Stratosphere.ResourceProperties.MediaConvertJobTemplateHopDestination - --- | Full data type definition for MediaConvertJobTemplate. See --- 'mediaConvertJobTemplate' for a more convenient constructor. -data MediaConvertJobTemplate = - MediaConvertJobTemplate - { _mediaConvertJobTemplateAccelerationSettings :: Maybe MediaConvertJobTemplateAccelerationSettings - , _mediaConvertJobTemplateCategory :: Maybe (Val Text) - , _mediaConvertJobTemplateDescription :: Maybe (Val Text) - , _mediaConvertJobTemplateHopDestinations :: Maybe [MediaConvertJobTemplateHopDestination] - , _mediaConvertJobTemplateName :: Maybe (Val Text) - , _mediaConvertJobTemplatePriority :: Maybe (Val Integer) - , _mediaConvertJobTemplateQueue :: Maybe (Val Text) - , _mediaConvertJobTemplateSettingsJson :: Object - , _mediaConvertJobTemplateStatusUpdateInterval :: Maybe (Val Text) - , _mediaConvertJobTemplateTags :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties MediaConvertJobTemplate where - toResourceProperties MediaConvertJobTemplate{..} = - ResourceProperties - { resourcePropertiesType = "AWS::MediaConvert::JobTemplate" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AccelerationSettings",) . toJSON) _mediaConvertJobTemplateAccelerationSettings - , fmap (("Category",) . toJSON) _mediaConvertJobTemplateCategory - , fmap (("Description",) . toJSON) _mediaConvertJobTemplateDescription - , fmap (("HopDestinations",) . toJSON) _mediaConvertJobTemplateHopDestinations - , fmap (("Name",) . toJSON) _mediaConvertJobTemplateName - , fmap (("Priority",) . toJSON) _mediaConvertJobTemplatePriority - , fmap (("Queue",) . toJSON) _mediaConvertJobTemplateQueue - , (Just . ("SettingsJson",) . toJSON) _mediaConvertJobTemplateSettingsJson - , fmap (("StatusUpdateInterval",) . toJSON) _mediaConvertJobTemplateStatusUpdateInterval - , fmap (("Tags",) . toJSON) _mediaConvertJobTemplateTags - ] - } - --- | Constructor for 'MediaConvertJobTemplate' containing required fields as --- arguments. -mediaConvertJobTemplate - :: Object -- ^ 'mcjtSettingsJson' - -> MediaConvertJobTemplate -mediaConvertJobTemplate settingsJsonarg = - MediaConvertJobTemplate - { _mediaConvertJobTemplateAccelerationSettings = Nothing - , _mediaConvertJobTemplateCategory = Nothing - , _mediaConvertJobTemplateDescription = Nothing - , _mediaConvertJobTemplateHopDestinations = Nothing - , _mediaConvertJobTemplateName = Nothing - , _mediaConvertJobTemplatePriority = Nothing - , _mediaConvertJobTemplateQueue = Nothing - , _mediaConvertJobTemplateSettingsJson = settingsJsonarg - , _mediaConvertJobTemplateStatusUpdateInterval = Nothing - , _mediaConvertJobTemplateTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-jobtemplate.html#cfn-mediaconvert-jobtemplate-accelerationsettings -mcjtAccelerationSettings :: Lens' MediaConvertJobTemplate (Maybe MediaConvertJobTemplateAccelerationSettings) -mcjtAccelerationSettings = lens _mediaConvertJobTemplateAccelerationSettings (\s a -> s { _mediaConvertJobTemplateAccelerationSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-jobtemplate.html#cfn-mediaconvert-jobtemplate-category -mcjtCategory :: Lens' MediaConvertJobTemplate (Maybe (Val Text)) -mcjtCategory = lens _mediaConvertJobTemplateCategory (\s a -> s { _mediaConvertJobTemplateCategory = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-jobtemplate.html#cfn-mediaconvert-jobtemplate-description -mcjtDescription :: Lens' MediaConvertJobTemplate (Maybe (Val Text)) -mcjtDescription = lens _mediaConvertJobTemplateDescription (\s a -> s { _mediaConvertJobTemplateDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-jobtemplate.html#cfn-mediaconvert-jobtemplate-hopdestinations -mcjtHopDestinations :: Lens' MediaConvertJobTemplate (Maybe [MediaConvertJobTemplateHopDestination]) -mcjtHopDestinations = lens _mediaConvertJobTemplateHopDestinations (\s a -> s { _mediaConvertJobTemplateHopDestinations = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-jobtemplate.html#cfn-mediaconvert-jobtemplate-name -mcjtName :: Lens' MediaConvertJobTemplate (Maybe (Val Text)) -mcjtName = lens _mediaConvertJobTemplateName (\s a -> s { _mediaConvertJobTemplateName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-jobtemplate.html#cfn-mediaconvert-jobtemplate-priority -mcjtPriority :: Lens' MediaConvertJobTemplate (Maybe (Val Integer)) -mcjtPriority = lens _mediaConvertJobTemplatePriority (\s a -> s { _mediaConvertJobTemplatePriority = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-jobtemplate.html#cfn-mediaconvert-jobtemplate-queue -mcjtQueue :: Lens' MediaConvertJobTemplate (Maybe (Val Text)) -mcjtQueue = lens _mediaConvertJobTemplateQueue (\s a -> s { _mediaConvertJobTemplateQueue = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-jobtemplate.html#cfn-mediaconvert-jobtemplate-settingsjson -mcjtSettingsJson :: Lens' MediaConvertJobTemplate Object -mcjtSettingsJson = lens _mediaConvertJobTemplateSettingsJson (\s a -> s { _mediaConvertJobTemplateSettingsJson = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-jobtemplate.html#cfn-mediaconvert-jobtemplate-statusupdateinterval -mcjtStatusUpdateInterval :: Lens' MediaConvertJobTemplate (Maybe (Val Text)) -mcjtStatusUpdateInterval = lens _mediaConvertJobTemplateStatusUpdateInterval (\s a -> s { _mediaConvertJobTemplateStatusUpdateInterval = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-jobtemplate.html#cfn-mediaconvert-jobtemplate-tags -mcjtTags :: Lens' MediaConvertJobTemplate (Maybe Object) -mcjtTags = lens _mediaConvertJobTemplateTags (\s a -> s { _mediaConvertJobTemplateTags = a }) diff --git a/library-gen/Stratosphere/Resources/MediaConvertPreset.hs b/library-gen/Stratosphere/Resources/MediaConvertPreset.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/MediaConvertPreset.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-preset.html - -module Stratosphere.Resources.MediaConvertPreset where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MediaConvertPreset. See --- 'mediaConvertPreset' for a more convenient constructor. -data MediaConvertPreset = - MediaConvertPreset - { _mediaConvertPresetCategory :: Maybe (Val Text) - , _mediaConvertPresetDescription :: Maybe (Val Text) - , _mediaConvertPresetName :: Maybe (Val Text) - , _mediaConvertPresetSettingsJson :: Object - , _mediaConvertPresetTags :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties MediaConvertPreset where - toResourceProperties MediaConvertPreset{..} = - ResourceProperties - { resourcePropertiesType = "AWS::MediaConvert::Preset" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Category",) . toJSON) _mediaConvertPresetCategory - , fmap (("Description",) . toJSON) _mediaConvertPresetDescription - , fmap (("Name",) . toJSON) _mediaConvertPresetName - , (Just . ("SettingsJson",) . toJSON) _mediaConvertPresetSettingsJson - , fmap (("Tags",) . toJSON) _mediaConvertPresetTags - ] - } - --- | Constructor for 'MediaConvertPreset' containing required fields as --- arguments. -mediaConvertPreset - :: Object -- ^ 'mcpSettingsJson' - -> MediaConvertPreset -mediaConvertPreset settingsJsonarg = - MediaConvertPreset - { _mediaConvertPresetCategory = Nothing - , _mediaConvertPresetDescription = Nothing - , _mediaConvertPresetName = Nothing - , _mediaConvertPresetSettingsJson = settingsJsonarg - , _mediaConvertPresetTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-preset.html#cfn-mediaconvert-preset-category -mcpCategory :: Lens' MediaConvertPreset (Maybe (Val Text)) -mcpCategory = lens _mediaConvertPresetCategory (\s a -> s { _mediaConvertPresetCategory = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-preset.html#cfn-mediaconvert-preset-description -mcpDescription :: Lens' MediaConvertPreset (Maybe (Val Text)) -mcpDescription = lens _mediaConvertPresetDescription (\s a -> s { _mediaConvertPresetDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-preset.html#cfn-mediaconvert-preset-name -mcpName :: Lens' MediaConvertPreset (Maybe (Val Text)) -mcpName = lens _mediaConvertPresetName (\s a -> s { _mediaConvertPresetName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-preset.html#cfn-mediaconvert-preset-settingsjson -mcpSettingsJson :: Lens' MediaConvertPreset Object -mcpSettingsJson = lens _mediaConvertPresetSettingsJson (\s a -> s { _mediaConvertPresetSettingsJson = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-preset.html#cfn-mediaconvert-preset-tags -mcpTags :: Lens' MediaConvertPreset (Maybe Object) -mcpTags = lens _mediaConvertPresetTags (\s a -> s { _mediaConvertPresetTags = a }) diff --git a/library-gen/Stratosphere/Resources/MediaConvertQueue.hs b/library-gen/Stratosphere/Resources/MediaConvertQueue.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/MediaConvertQueue.hs +++ /dev/null @@ -1,69 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-queue.html - -module Stratosphere.Resources.MediaConvertQueue where - -import Stratosphere.ResourceImports - - --- | Full data type definition for MediaConvertQueue. See 'mediaConvertQueue' --- for a more convenient constructor. -data MediaConvertQueue = - MediaConvertQueue - { _mediaConvertQueueDescription :: Maybe (Val Text) - , _mediaConvertQueueName :: Maybe (Val Text) - , _mediaConvertQueuePricingPlan :: Maybe (Val Text) - , _mediaConvertQueueStatus :: Maybe (Val Text) - , _mediaConvertQueueTags :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties MediaConvertQueue where - toResourceProperties MediaConvertQueue{..} = - ResourceProperties - { resourcePropertiesType = "AWS::MediaConvert::Queue" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _mediaConvertQueueDescription - , fmap (("Name",) . toJSON) _mediaConvertQueueName - , fmap (("PricingPlan",) . toJSON) _mediaConvertQueuePricingPlan - , fmap (("Status",) . toJSON) _mediaConvertQueueStatus - , fmap (("Tags",) . toJSON) _mediaConvertQueueTags - ] - } - --- | Constructor for 'MediaConvertQueue' containing required fields as --- arguments. -mediaConvertQueue - :: MediaConvertQueue -mediaConvertQueue = - MediaConvertQueue - { _mediaConvertQueueDescription = Nothing - , _mediaConvertQueueName = Nothing - , _mediaConvertQueuePricingPlan = Nothing - , _mediaConvertQueueStatus = Nothing - , _mediaConvertQueueTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-queue.html#cfn-mediaconvert-queue-description -mcqDescription :: Lens' MediaConvertQueue (Maybe (Val Text)) -mcqDescription = lens _mediaConvertQueueDescription (\s a -> s { _mediaConvertQueueDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-queue.html#cfn-mediaconvert-queue-name -mcqName :: Lens' MediaConvertQueue (Maybe (Val Text)) -mcqName = lens _mediaConvertQueueName (\s a -> s { _mediaConvertQueueName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-queue.html#cfn-mediaconvert-queue-pricingplan -mcqPricingPlan :: Lens' MediaConvertQueue (Maybe (Val Text)) -mcqPricingPlan = lens _mediaConvertQueuePricingPlan (\s a -> s { _mediaConvertQueuePricingPlan = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-queue.html#cfn-mediaconvert-queue-status -mcqStatus :: Lens' MediaConvertQueue (Maybe (Val Text)) -mcqStatus = lens _mediaConvertQueueStatus (\s a -> s { _mediaConvertQueueStatus = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediaconvert-queue.html#cfn-mediaconvert-queue-tags -mcqTags :: Lens' MediaConvertQueue (Maybe Object) -mcqTags = lens _mediaConvertQueueTags (\s a -> s { _mediaConvertQueueTags = a }) diff --git a/library-gen/Stratosphere/Resources/MediaLiveChannel.hs b/library-gen/Stratosphere/Resources/MediaLiveChannel.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/MediaLiveChannel.hs +++ /dev/null @@ -1,99 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-medialive-channel.html - -module Stratosphere.Resources.MediaLiveChannel where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.MediaLiveChannelOutputDestination -import Stratosphere.ResourceProperties.MediaLiveChannelInputAttachment -import Stratosphere.ResourceProperties.MediaLiveChannelInputSpecification - --- | Full data type definition for MediaLiveChannel. See 'mediaLiveChannel' --- for a more convenient constructor. -data MediaLiveChannel = - MediaLiveChannel - { _mediaLiveChannelChannelClass :: Maybe (Val Text) - , _mediaLiveChannelDestinations :: Maybe [MediaLiveChannelOutputDestination] - , _mediaLiveChannelEncoderSettings :: Maybe Object - , _mediaLiveChannelInputAttachments :: Maybe [MediaLiveChannelInputAttachment] - , _mediaLiveChannelInputSpecification :: Maybe MediaLiveChannelInputSpecification - , _mediaLiveChannelLogLevel :: Maybe (Val Text) - , _mediaLiveChannelName :: Maybe (Val Text) - , _mediaLiveChannelRoleArn :: Maybe (Val Text) - , _mediaLiveChannelTags :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties MediaLiveChannel where - toResourceProperties MediaLiveChannel{..} = - ResourceProperties - { resourcePropertiesType = "AWS::MediaLive::Channel" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ChannelClass",) . toJSON) _mediaLiveChannelChannelClass - , fmap (("Destinations",) . toJSON) _mediaLiveChannelDestinations - , fmap (("EncoderSettings",) . toJSON) _mediaLiveChannelEncoderSettings - , fmap (("InputAttachments",) . toJSON) _mediaLiveChannelInputAttachments - , fmap (("InputSpecification",) . toJSON) _mediaLiveChannelInputSpecification - , fmap (("LogLevel",) . toJSON) _mediaLiveChannelLogLevel - , fmap (("Name",) . toJSON) _mediaLiveChannelName - , fmap (("RoleArn",) . toJSON) _mediaLiveChannelRoleArn - , fmap (("Tags",) . toJSON) _mediaLiveChannelTags - ] - } - --- | Constructor for 'MediaLiveChannel' containing required fields as --- arguments. -mediaLiveChannel - :: MediaLiveChannel -mediaLiveChannel = - MediaLiveChannel - { _mediaLiveChannelChannelClass = Nothing - , _mediaLiveChannelDestinations = Nothing - , _mediaLiveChannelEncoderSettings = Nothing - , _mediaLiveChannelInputAttachments = Nothing - , _mediaLiveChannelInputSpecification = Nothing - , _mediaLiveChannelLogLevel = Nothing - , _mediaLiveChannelName = Nothing - , _mediaLiveChannelRoleArn = Nothing - , _mediaLiveChannelTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-medialive-channel.html#cfn-medialive-channel-channelclass -mlcChannelClass :: Lens' MediaLiveChannel (Maybe (Val Text)) -mlcChannelClass = lens _mediaLiveChannelChannelClass (\s a -> s { _mediaLiveChannelChannelClass = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-medialive-channel.html#cfn-medialive-channel-destinations -mlcDestinations :: Lens' MediaLiveChannel (Maybe [MediaLiveChannelOutputDestination]) -mlcDestinations = lens _mediaLiveChannelDestinations (\s a -> s { _mediaLiveChannelDestinations = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-medialive-channel.html#cfn-medialive-channel-encodersettings -mlcEncoderSettings :: Lens' MediaLiveChannel (Maybe Object) -mlcEncoderSettings = lens _mediaLiveChannelEncoderSettings (\s a -> s { _mediaLiveChannelEncoderSettings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-medialive-channel.html#cfn-medialive-channel-inputattachments -mlcInputAttachments :: Lens' MediaLiveChannel (Maybe [MediaLiveChannelInputAttachment]) -mlcInputAttachments = lens _mediaLiveChannelInputAttachments (\s a -> s { _mediaLiveChannelInputAttachments = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-medialive-channel.html#cfn-medialive-channel-inputspecification -mlcInputSpecification :: Lens' MediaLiveChannel (Maybe MediaLiveChannelInputSpecification) -mlcInputSpecification = lens _mediaLiveChannelInputSpecification (\s a -> s { _mediaLiveChannelInputSpecification = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-medialive-channel.html#cfn-medialive-channel-loglevel -mlcLogLevel :: Lens' MediaLiveChannel (Maybe (Val Text)) -mlcLogLevel = lens _mediaLiveChannelLogLevel (\s a -> s { _mediaLiveChannelLogLevel = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-medialive-channel.html#cfn-medialive-channel-name -mlcName :: Lens' MediaLiveChannel (Maybe (Val Text)) -mlcName = lens _mediaLiveChannelName (\s a -> s { _mediaLiveChannelName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-medialive-channel.html#cfn-medialive-channel-rolearn -mlcRoleArn :: Lens' MediaLiveChannel (Maybe (Val Text)) -mlcRoleArn = lens _mediaLiveChannelRoleArn (\s a -> s { _mediaLiveChannelRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-medialive-channel.html#cfn-medialive-channel-tags -mlcTags :: Lens' MediaLiveChannel (Maybe Object) -mlcTags = lens _mediaLiveChannelTags (\s a -> s { _mediaLiveChannelTags = a }) diff --git a/library-gen/Stratosphere/Resources/MediaLiveInput.hs b/library-gen/Stratosphere/Resources/MediaLiveInput.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/MediaLiveInput.hs +++ /dev/null @@ -1,99 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-medialive-input.html - -module Stratosphere.Resources.MediaLiveInput where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.MediaLiveInputInputDestinationRequest -import Stratosphere.ResourceProperties.MediaLiveInputMediaConnectFlowRequest -import Stratosphere.ResourceProperties.MediaLiveInputInputSourceRequest -import Stratosphere.ResourceProperties.MediaLiveInputInputVpcRequest - --- | Full data type definition for MediaLiveInput. See 'mediaLiveInput' for a --- more convenient constructor. -data MediaLiveInput = - MediaLiveInput - { _mediaLiveInputDestinations :: Maybe [MediaLiveInputInputDestinationRequest] - , _mediaLiveInputInputSecurityGroups :: Maybe (ValList Text) - , _mediaLiveInputMediaConnectFlows :: Maybe [MediaLiveInputMediaConnectFlowRequest] - , _mediaLiveInputName :: Maybe (Val Text) - , _mediaLiveInputRoleArn :: Maybe (Val Text) - , _mediaLiveInputSources :: Maybe [MediaLiveInputInputSourceRequest] - , _mediaLiveInputTags :: Maybe Object - , _mediaLiveInputType :: Maybe (Val Text) - , _mediaLiveInputVpc :: Maybe MediaLiveInputInputVpcRequest - } deriving (Show, Eq) - -instance ToResourceProperties MediaLiveInput where - toResourceProperties MediaLiveInput{..} = - ResourceProperties - { resourcePropertiesType = "AWS::MediaLive::Input" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Destinations",) . toJSON) _mediaLiveInputDestinations - , fmap (("InputSecurityGroups",) . toJSON) _mediaLiveInputInputSecurityGroups - , fmap (("MediaConnectFlows",) . toJSON) _mediaLiveInputMediaConnectFlows - , fmap (("Name",) . toJSON) _mediaLiveInputName - , fmap (("RoleArn",) . toJSON) _mediaLiveInputRoleArn - , fmap (("Sources",) . toJSON) _mediaLiveInputSources - , fmap (("Tags",) . toJSON) _mediaLiveInputTags - , fmap (("Type",) . toJSON) _mediaLiveInputType - , fmap (("Vpc",) . toJSON) _mediaLiveInputVpc - ] - } - --- | Constructor for 'MediaLiveInput' containing required fields as arguments. -mediaLiveInput - :: MediaLiveInput -mediaLiveInput = - MediaLiveInput - { _mediaLiveInputDestinations = Nothing - , _mediaLiveInputInputSecurityGroups = Nothing - , _mediaLiveInputMediaConnectFlows = Nothing - , _mediaLiveInputName = Nothing - , _mediaLiveInputRoleArn = Nothing - , _mediaLiveInputSources = Nothing - , _mediaLiveInputTags = Nothing - , _mediaLiveInputType = Nothing - , _mediaLiveInputVpc = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-medialive-input.html#cfn-medialive-input-destinations -mliDestinations :: Lens' MediaLiveInput (Maybe [MediaLiveInputInputDestinationRequest]) -mliDestinations = lens _mediaLiveInputDestinations (\s a -> s { _mediaLiveInputDestinations = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-medialive-input.html#cfn-medialive-input-inputsecuritygroups -mliInputSecurityGroups :: Lens' MediaLiveInput (Maybe (ValList Text)) -mliInputSecurityGroups = lens _mediaLiveInputInputSecurityGroups (\s a -> s { _mediaLiveInputInputSecurityGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-medialive-input.html#cfn-medialive-input-mediaconnectflows -mliMediaConnectFlows :: Lens' MediaLiveInput (Maybe [MediaLiveInputMediaConnectFlowRequest]) -mliMediaConnectFlows = lens _mediaLiveInputMediaConnectFlows (\s a -> s { _mediaLiveInputMediaConnectFlows = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-medialive-input.html#cfn-medialive-input-name -mliName :: Lens' MediaLiveInput (Maybe (Val Text)) -mliName = lens _mediaLiveInputName (\s a -> s { _mediaLiveInputName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-medialive-input.html#cfn-medialive-input-rolearn -mliRoleArn :: Lens' MediaLiveInput (Maybe (Val Text)) -mliRoleArn = lens _mediaLiveInputRoleArn (\s a -> s { _mediaLiveInputRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-medialive-input.html#cfn-medialive-input-sources -mliSources :: Lens' MediaLiveInput (Maybe [MediaLiveInputInputSourceRequest]) -mliSources = lens _mediaLiveInputSources (\s a -> s { _mediaLiveInputSources = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-medialive-input.html#cfn-medialive-input-tags -mliTags :: Lens' MediaLiveInput (Maybe Object) -mliTags = lens _mediaLiveInputTags (\s a -> s { _mediaLiveInputTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-medialive-input.html#cfn-medialive-input-type -mliType :: Lens' MediaLiveInput (Maybe (Val Text)) -mliType = lens _mediaLiveInputType (\s a -> s { _mediaLiveInputType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-medialive-input.html#cfn-medialive-input-vpc -mliVpc :: Lens' MediaLiveInput (Maybe MediaLiveInputInputVpcRequest) -mliVpc = lens _mediaLiveInputVpc (\s a -> s { _mediaLiveInputVpc = a }) diff --git a/library-gen/Stratosphere/Resources/MediaLiveInputSecurityGroup.hs b/library-gen/Stratosphere/Resources/MediaLiveInputSecurityGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/MediaLiveInputSecurityGroup.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-medialive-inputsecuritygroup.html - -module Stratosphere.Resources.MediaLiveInputSecurityGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.MediaLiveInputSecurityGroupInputWhitelistRuleCidr - --- | Full data type definition for MediaLiveInputSecurityGroup. See --- 'mediaLiveInputSecurityGroup' for a more convenient constructor. -data MediaLiveInputSecurityGroup = - MediaLiveInputSecurityGroup - { _mediaLiveInputSecurityGroupTags :: Maybe Object - , _mediaLiveInputSecurityGroupWhitelistRules :: Maybe [MediaLiveInputSecurityGroupInputWhitelistRuleCidr] - } deriving (Show, Eq) - -instance ToResourceProperties MediaLiveInputSecurityGroup where - toResourceProperties MediaLiveInputSecurityGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::MediaLive::InputSecurityGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Tags",) . toJSON) _mediaLiveInputSecurityGroupTags - , fmap (("WhitelistRules",) . toJSON) _mediaLiveInputSecurityGroupWhitelistRules - ] - } - --- | Constructor for 'MediaLiveInputSecurityGroup' containing required fields --- as arguments. -mediaLiveInputSecurityGroup - :: MediaLiveInputSecurityGroup -mediaLiveInputSecurityGroup = - MediaLiveInputSecurityGroup - { _mediaLiveInputSecurityGroupTags = Nothing - , _mediaLiveInputSecurityGroupWhitelistRules = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-medialive-inputsecuritygroup.html#cfn-medialive-inputsecuritygroup-tags -mlisgTags :: Lens' MediaLiveInputSecurityGroup (Maybe Object) -mlisgTags = lens _mediaLiveInputSecurityGroupTags (\s a -> s { _mediaLiveInputSecurityGroupTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-medialive-inputsecuritygroup.html#cfn-medialive-inputsecuritygroup-whitelistrules -mlisgWhitelistRules :: Lens' MediaLiveInputSecurityGroup (Maybe [MediaLiveInputSecurityGroupInputWhitelistRuleCidr]) -mlisgWhitelistRules = lens _mediaLiveInputSecurityGroupWhitelistRules (\s a -> s { _mediaLiveInputSecurityGroupWhitelistRules = a }) diff --git a/library-gen/Stratosphere/Resources/MediaStoreContainer.hs b/library-gen/Stratosphere/Resources/MediaStoreContainer.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/MediaStoreContainer.hs +++ /dev/null @@ -1,86 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediastore-container.html - -module Stratosphere.Resources.MediaStoreContainer where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.MediaStoreContainerCorsRule -import Stratosphere.ResourceProperties.MediaStoreContainerMetricPolicy -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for MediaStoreContainer. See --- 'mediaStoreContainer' for a more convenient constructor. -data MediaStoreContainer = - MediaStoreContainer - { _mediaStoreContainerAccessLoggingEnabled :: Maybe (Val Bool) - , _mediaStoreContainerContainerName :: Val Text - , _mediaStoreContainerCorsPolicy :: Maybe [MediaStoreContainerCorsRule] - , _mediaStoreContainerLifecyclePolicy :: Maybe (Val Text) - , _mediaStoreContainerMetricPolicy :: Maybe MediaStoreContainerMetricPolicy - , _mediaStoreContainerPolicy :: Maybe (Val Text) - , _mediaStoreContainerTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties MediaStoreContainer where - toResourceProperties MediaStoreContainer{..} = - ResourceProperties - { resourcePropertiesType = "AWS::MediaStore::Container" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AccessLoggingEnabled",) . toJSON) _mediaStoreContainerAccessLoggingEnabled - , (Just . ("ContainerName",) . toJSON) _mediaStoreContainerContainerName - , fmap (("CorsPolicy",) . toJSON) _mediaStoreContainerCorsPolicy - , fmap (("LifecyclePolicy",) . toJSON) _mediaStoreContainerLifecyclePolicy - , fmap (("MetricPolicy",) . toJSON) _mediaStoreContainerMetricPolicy - , fmap (("Policy",) . toJSON) _mediaStoreContainerPolicy - , fmap (("Tags",) . toJSON) _mediaStoreContainerTags - ] - } - --- | Constructor for 'MediaStoreContainer' containing required fields as --- arguments. -mediaStoreContainer - :: Val Text -- ^ 'mscContainerName' - -> MediaStoreContainer -mediaStoreContainer containerNamearg = - MediaStoreContainer - { _mediaStoreContainerAccessLoggingEnabled = Nothing - , _mediaStoreContainerContainerName = containerNamearg - , _mediaStoreContainerCorsPolicy = Nothing - , _mediaStoreContainerLifecyclePolicy = Nothing - , _mediaStoreContainerMetricPolicy = Nothing - , _mediaStoreContainerPolicy = Nothing - , _mediaStoreContainerTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediastore-container.html#cfn-mediastore-container-accessloggingenabled -mscAccessLoggingEnabled :: Lens' MediaStoreContainer (Maybe (Val Bool)) -mscAccessLoggingEnabled = lens _mediaStoreContainerAccessLoggingEnabled (\s a -> s { _mediaStoreContainerAccessLoggingEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediastore-container.html#cfn-mediastore-container-containername -mscContainerName :: Lens' MediaStoreContainer (Val Text) -mscContainerName = lens _mediaStoreContainerContainerName (\s a -> s { _mediaStoreContainerContainerName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediastore-container.html#cfn-mediastore-container-corspolicy -mscCorsPolicy :: Lens' MediaStoreContainer (Maybe [MediaStoreContainerCorsRule]) -mscCorsPolicy = lens _mediaStoreContainerCorsPolicy (\s a -> s { _mediaStoreContainerCorsPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediastore-container.html#cfn-mediastore-container-lifecyclepolicy -mscLifecyclePolicy :: Lens' MediaStoreContainer (Maybe (Val Text)) -mscLifecyclePolicy = lens _mediaStoreContainerLifecyclePolicy (\s a -> s { _mediaStoreContainerLifecyclePolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediastore-container.html#cfn-mediastore-container-metricpolicy -mscMetricPolicy :: Lens' MediaStoreContainer (Maybe MediaStoreContainerMetricPolicy) -mscMetricPolicy = lens _mediaStoreContainerMetricPolicy (\s a -> s { _mediaStoreContainerMetricPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediastore-container.html#cfn-mediastore-container-policy -mscPolicy :: Lens' MediaStoreContainer (Maybe (Val Text)) -mscPolicy = lens _mediaStoreContainerPolicy (\s a -> s { _mediaStoreContainerPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-mediastore-container.html#cfn-mediastore-container-tags -mscTags :: Lens' MediaStoreContainer (Maybe [Tag]) -mscTags = lens _mediaStoreContainerTags (\s a -> s { _mediaStoreContainerTags = a }) diff --git a/library-gen/Stratosphere/Resources/NeptuneDBCluster.hs b/library-gen/Stratosphere/Resources/NeptuneDBCluster.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/NeptuneDBCluster.hs +++ /dev/null @@ -1,189 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html - -module Stratosphere.Resources.NeptuneDBCluster where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.NeptuneDBClusterDBClusterRole -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for NeptuneDBCluster. See 'neptuneDBCluster' --- for a more convenient constructor. -data NeptuneDBCluster = - NeptuneDBCluster - { _neptuneDBClusterAssociatedRoles :: Maybe [NeptuneDBClusterDBClusterRole] - , _neptuneDBClusterAvailabilityZones :: Maybe (ValList Text) - , _neptuneDBClusterBackupRetentionPeriod :: Maybe (Val Integer) - , _neptuneDBClusterDBClusterIdentifier :: Maybe (Val Text) - , _neptuneDBClusterDBClusterParameterGroupName :: Maybe (Val Text) - , _neptuneDBClusterDBSubnetGroupName :: Maybe (Val Text) - , _neptuneDBClusterDeletionProtection :: Maybe (Val Bool) - , _neptuneDBClusterEnableCloudwatchLogsExports :: Maybe (ValList Text) - , _neptuneDBClusterEngineVersion :: Maybe (Val Text) - , _neptuneDBClusterIamAuthEnabled :: Maybe (Val Bool) - , _neptuneDBClusterKmsKeyId :: Maybe (Val Text) - , _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) - -instance ToResourceProperties NeptuneDBCluster where - toResourceProperties NeptuneDBCluster{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Neptune::DBCluster" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AssociatedRoles",) . toJSON) _neptuneDBClusterAssociatedRoles - , fmap (("AvailabilityZones",) . toJSON) _neptuneDBClusterAvailabilityZones - , fmap (("BackupRetentionPeriod",) . toJSON) _neptuneDBClusterBackupRetentionPeriod - , fmap (("DBClusterIdentifier",) . toJSON) _neptuneDBClusterDBClusterIdentifier - , fmap (("DBClusterParameterGroupName",) . toJSON) _neptuneDBClusterDBClusterParameterGroupName - , fmap (("DBSubnetGroupName",) . toJSON) _neptuneDBClusterDBSubnetGroupName - , fmap (("DeletionProtection",) . toJSON) _neptuneDBClusterDeletionProtection - , fmap (("EnableCloudwatchLogsExports",) . toJSON) _neptuneDBClusterEnableCloudwatchLogsExports - , fmap (("EngineVersion",) . toJSON) _neptuneDBClusterEngineVersion - , fmap (("IamAuthEnabled",) . toJSON) _neptuneDBClusterIamAuthEnabled - , fmap (("KmsKeyId",) . toJSON) _neptuneDBClusterKmsKeyId - , 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 - ] - } - --- | Constructor for 'NeptuneDBCluster' containing required fields as --- arguments. -neptuneDBCluster - :: NeptuneDBCluster -neptuneDBCluster = - NeptuneDBCluster - { _neptuneDBClusterAssociatedRoles = Nothing - , _neptuneDBClusterAvailabilityZones = Nothing - , _neptuneDBClusterBackupRetentionPeriod = Nothing - , _neptuneDBClusterDBClusterIdentifier = Nothing - , _neptuneDBClusterDBClusterParameterGroupName = Nothing - , _neptuneDBClusterDBSubnetGroupName = Nothing - , _neptuneDBClusterDeletionProtection = Nothing - , _neptuneDBClusterEnableCloudwatchLogsExports = Nothing - , _neptuneDBClusterEngineVersion = Nothing - , _neptuneDBClusterIamAuthEnabled = Nothing - , _neptuneDBClusterKmsKeyId = Nothing - , _neptuneDBClusterPort = Nothing - , _neptuneDBClusterPreferredBackupWindow = Nothing - , _neptuneDBClusterPreferredMaintenanceWindow = Nothing - , _neptuneDBClusterRestoreToTime = Nothing - , _neptuneDBClusterRestoreType = Nothing - , _neptuneDBClusterSnapshotIdentifier = Nothing - , _neptuneDBClusterSourceDBClusterIdentifier = Nothing - , _neptuneDBClusterStorageEncrypted = Nothing - , _neptuneDBClusterTags = Nothing - , _neptuneDBClusterUseLatestRestorableTime = Nothing - , _neptuneDBClusterVpcSecurityGroupIds = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-associatedroles -ndbcAssociatedRoles :: Lens' NeptuneDBCluster (Maybe [NeptuneDBClusterDBClusterRole]) -ndbcAssociatedRoles = lens _neptuneDBClusterAssociatedRoles (\s a -> s { _neptuneDBClusterAssociatedRoles = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-availabilityzones -ndbcAvailabilityZones :: Lens' NeptuneDBCluster (Maybe (ValList Text)) -ndbcAvailabilityZones = lens _neptuneDBClusterAvailabilityZones (\s a -> s { _neptuneDBClusterAvailabilityZones = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-backupretentionperiod -ndbcBackupRetentionPeriod :: Lens' NeptuneDBCluster (Maybe (Val Integer)) -ndbcBackupRetentionPeriod = lens _neptuneDBClusterBackupRetentionPeriod (\s a -> s { _neptuneDBClusterBackupRetentionPeriod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-dbclusteridentifier -ndbcDBClusterIdentifier :: Lens' NeptuneDBCluster (Maybe (Val Text)) -ndbcDBClusterIdentifier = lens _neptuneDBClusterDBClusterIdentifier (\s a -> s { _neptuneDBClusterDBClusterIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-dbclusterparametergroupname -ndbcDBClusterParameterGroupName :: Lens' NeptuneDBCluster (Maybe (Val Text)) -ndbcDBClusterParameterGroupName = lens _neptuneDBClusterDBClusterParameterGroupName (\s a -> s { _neptuneDBClusterDBClusterParameterGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-dbsubnetgroupname -ndbcDBSubnetGroupName :: Lens' NeptuneDBCluster (Maybe (Val Text)) -ndbcDBSubnetGroupName = lens _neptuneDBClusterDBSubnetGroupName (\s a -> s { _neptuneDBClusterDBSubnetGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-deletionprotection -ndbcDeletionProtection :: Lens' NeptuneDBCluster (Maybe (Val Bool)) -ndbcDeletionProtection = lens _neptuneDBClusterDeletionProtection (\s a -> s { _neptuneDBClusterDeletionProtection = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-enablecloudwatchlogsexports -ndbcEnableCloudwatchLogsExports :: Lens' NeptuneDBCluster (Maybe (ValList Text)) -ndbcEnableCloudwatchLogsExports = lens _neptuneDBClusterEnableCloudwatchLogsExports (\s a -> s { _neptuneDBClusterEnableCloudwatchLogsExports = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-engineversion -ndbcEngineVersion :: Lens' NeptuneDBCluster (Maybe (Val Text)) -ndbcEngineVersion = lens _neptuneDBClusterEngineVersion (\s a -> s { _neptuneDBClusterEngineVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-iamauthenabled -ndbcIamAuthEnabled :: Lens' NeptuneDBCluster (Maybe (Val Bool)) -ndbcIamAuthEnabled = lens _neptuneDBClusterIamAuthEnabled (\s a -> s { _neptuneDBClusterIamAuthEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-kmskeyid -ndbcKmsKeyId :: Lens' NeptuneDBCluster (Maybe (Val Text)) -ndbcKmsKeyId = lens _neptuneDBClusterKmsKeyId (\s a -> s { _neptuneDBClusterKmsKeyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-port -ndbcPort :: Lens' NeptuneDBCluster (Maybe (Val Integer)) -ndbcPort = lens _neptuneDBClusterPort (\s a -> s { _neptuneDBClusterPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-preferredbackupwindow -ndbcPreferredBackupWindow :: Lens' NeptuneDBCluster (Maybe (Val Text)) -ndbcPreferredBackupWindow = lens _neptuneDBClusterPreferredBackupWindow (\s a -> s { _neptuneDBClusterPreferredBackupWindow = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-preferredmaintenancewindow -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 }) - --- | 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)) -ndbcVpcSecurityGroupIds = lens _neptuneDBClusterVpcSecurityGroupIds (\s a -> s { _neptuneDBClusterVpcSecurityGroupIds = a }) diff --git a/library-gen/Stratosphere/Resources/NeptuneDBClusterParameterGroup.hs b/library-gen/Stratosphere/Resources/NeptuneDBClusterParameterGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/NeptuneDBClusterParameterGroup.hs +++ /dev/null @@ -1,72 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbclusterparametergroup.html - -module Stratosphere.Resources.NeptuneDBClusterParameterGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for NeptuneDBClusterParameterGroup. See --- 'neptuneDBClusterParameterGroup' for a more convenient constructor. -data NeptuneDBClusterParameterGroup = - NeptuneDBClusterParameterGroup - { _neptuneDBClusterParameterGroupDescription :: Val Text - , _neptuneDBClusterParameterGroupFamily :: Val Text - , _neptuneDBClusterParameterGroupName :: Maybe (Val Text) - , _neptuneDBClusterParameterGroupParameters :: Object - , _neptuneDBClusterParameterGroupTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties NeptuneDBClusterParameterGroup where - toResourceProperties NeptuneDBClusterParameterGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Neptune::DBClusterParameterGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Description",) . toJSON) _neptuneDBClusterParameterGroupDescription - , (Just . ("Family",) . toJSON) _neptuneDBClusterParameterGroupFamily - , fmap (("Name",) . toJSON) _neptuneDBClusterParameterGroupName - , (Just . ("Parameters",) . toJSON) _neptuneDBClusterParameterGroupParameters - , fmap (("Tags",) . toJSON) _neptuneDBClusterParameterGroupTags - ] - } - --- | Constructor for 'NeptuneDBClusterParameterGroup' containing required --- fields as arguments. -neptuneDBClusterParameterGroup - :: Val Text -- ^ 'ndbcpgDescription' - -> Val Text -- ^ 'ndbcpgFamily' - -> Object -- ^ 'ndbcpgParameters' - -> NeptuneDBClusterParameterGroup -neptuneDBClusterParameterGroup descriptionarg familyarg parametersarg = - NeptuneDBClusterParameterGroup - { _neptuneDBClusterParameterGroupDescription = descriptionarg - , _neptuneDBClusterParameterGroupFamily = familyarg - , _neptuneDBClusterParameterGroupName = Nothing - , _neptuneDBClusterParameterGroupParameters = parametersarg - , _neptuneDBClusterParameterGroupTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbclusterparametergroup.html#cfn-neptune-dbclusterparametergroup-description -ndbcpgDescription :: Lens' NeptuneDBClusterParameterGroup (Val Text) -ndbcpgDescription = lens _neptuneDBClusterParameterGroupDescription (\s a -> s { _neptuneDBClusterParameterGroupDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbclusterparametergroup.html#cfn-neptune-dbclusterparametergroup-family -ndbcpgFamily :: Lens' NeptuneDBClusterParameterGroup (Val Text) -ndbcpgFamily = lens _neptuneDBClusterParameterGroupFamily (\s a -> s { _neptuneDBClusterParameterGroupFamily = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbclusterparametergroup.html#cfn-neptune-dbclusterparametergroup-name -ndbcpgName :: Lens' NeptuneDBClusterParameterGroup (Maybe (Val Text)) -ndbcpgName = lens _neptuneDBClusterParameterGroupName (\s a -> s { _neptuneDBClusterParameterGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbclusterparametergroup.html#cfn-neptune-dbclusterparametergroup-parameters -ndbcpgParameters :: Lens' NeptuneDBClusterParameterGroup Object -ndbcpgParameters = lens _neptuneDBClusterParameterGroupParameters (\s a -> s { _neptuneDBClusterParameterGroupParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbclusterparametergroup.html#cfn-neptune-dbclusterparametergroup-tags -ndbcpgTags :: Lens' NeptuneDBClusterParameterGroup (Maybe [Tag]) -ndbcpgTags = lens _neptuneDBClusterParameterGroupTags (\s a -> s { _neptuneDBClusterParameterGroupTags = a }) diff --git a/library-gen/Stratosphere/Resources/NeptuneDBInstance.hs b/library-gen/Stratosphere/Resources/NeptuneDBInstance.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/NeptuneDBInstance.hs +++ /dev/null @@ -1,112 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbinstance.html - -module Stratosphere.Resources.NeptuneDBInstance where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for NeptuneDBInstance. See 'neptuneDBInstance' --- for a more convenient constructor. -data NeptuneDBInstance = - NeptuneDBInstance - { _neptuneDBInstanceAllowMajorVersionUpgrade :: Maybe (Val Bool) - , _neptuneDBInstanceAutoMinorVersionUpgrade :: Maybe (Val Bool) - , _neptuneDBInstanceAvailabilityZone :: Maybe (Val Text) - , _neptuneDBInstanceDBClusterIdentifier :: Maybe (Val Text) - , _neptuneDBInstanceDBInstanceClass :: Val Text - , _neptuneDBInstanceDBInstanceIdentifier :: Maybe (Val Text) - , _neptuneDBInstanceDBParameterGroupName :: Maybe (Val Text) - , _neptuneDBInstanceDBSnapshotIdentifier :: Maybe (Val Text) - , _neptuneDBInstanceDBSubnetGroupName :: Maybe (Val Text) - , _neptuneDBInstancePreferredMaintenanceWindow :: Maybe (Val Text) - , _neptuneDBInstanceTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties NeptuneDBInstance where - toResourceProperties NeptuneDBInstance{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Neptune::DBInstance" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AllowMajorVersionUpgrade",) . toJSON) _neptuneDBInstanceAllowMajorVersionUpgrade - , fmap (("AutoMinorVersionUpgrade",) . toJSON) _neptuneDBInstanceAutoMinorVersionUpgrade - , fmap (("AvailabilityZone",) . toJSON) _neptuneDBInstanceAvailabilityZone - , fmap (("DBClusterIdentifier",) . toJSON) _neptuneDBInstanceDBClusterIdentifier - , (Just . ("DBInstanceClass",) . toJSON) _neptuneDBInstanceDBInstanceClass - , fmap (("DBInstanceIdentifier",) . toJSON) _neptuneDBInstanceDBInstanceIdentifier - , fmap (("DBParameterGroupName",) . toJSON) _neptuneDBInstanceDBParameterGroupName - , fmap (("DBSnapshotIdentifier",) . toJSON) _neptuneDBInstanceDBSnapshotIdentifier - , fmap (("DBSubnetGroupName",) . toJSON) _neptuneDBInstanceDBSubnetGroupName - , fmap (("PreferredMaintenanceWindow",) . toJSON) _neptuneDBInstancePreferredMaintenanceWindow - , fmap (("Tags",) . toJSON) _neptuneDBInstanceTags - ] - } - --- | Constructor for 'NeptuneDBInstance' containing required fields as --- arguments. -neptuneDBInstance - :: Val Text -- ^ 'ndbiDBInstanceClass' - -> NeptuneDBInstance -neptuneDBInstance dBInstanceClassarg = - NeptuneDBInstance - { _neptuneDBInstanceAllowMajorVersionUpgrade = Nothing - , _neptuneDBInstanceAutoMinorVersionUpgrade = Nothing - , _neptuneDBInstanceAvailabilityZone = Nothing - , _neptuneDBInstanceDBClusterIdentifier = Nothing - , _neptuneDBInstanceDBInstanceClass = dBInstanceClassarg - , _neptuneDBInstanceDBInstanceIdentifier = Nothing - , _neptuneDBInstanceDBParameterGroupName = Nothing - , _neptuneDBInstanceDBSnapshotIdentifier = Nothing - , _neptuneDBInstanceDBSubnetGroupName = Nothing - , _neptuneDBInstancePreferredMaintenanceWindow = Nothing - , _neptuneDBInstanceTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbinstance.html#cfn-neptune-dbinstance-allowmajorversionupgrade -ndbiAllowMajorVersionUpgrade :: Lens' NeptuneDBInstance (Maybe (Val Bool)) -ndbiAllowMajorVersionUpgrade = lens _neptuneDBInstanceAllowMajorVersionUpgrade (\s a -> s { _neptuneDBInstanceAllowMajorVersionUpgrade = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbinstance.html#cfn-neptune-dbinstance-autominorversionupgrade -ndbiAutoMinorVersionUpgrade :: Lens' NeptuneDBInstance (Maybe (Val Bool)) -ndbiAutoMinorVersionUpgrade = lens _neptuneDBInstanceAutoMinorVersionUpgrade (\s a -> s { _neptuneDBInstanceAutoMinorVersionUpgrade = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbinstance.html#cfn-neptune-dbinstance-availabilityzone -ndbiAvailabilityZone :: Lens' NeptuneDBInstance (Maybe (Val Text)) -ndbiAvailabilityZone = lens _neptuneDBInstanceAvailabilityZone (\s a -> s { _neptuneDBInstanceAvailabilityZone = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbinstance.html#cfn-neptune-dbinstance-dbclusteridentifier -ndbiDBClusterIdentifier :: Lens' NeptuneDBInstance (Maybe (Val Text)) -ndbiDBClusterIdentifier = lens _neptuneDBInstanceDBClusterIdentifier (\s a -> s { _neptuneDBInstanceDBClusterIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbinstance.html#cfn-neptune-dbinstance-dbinstanceclass -ndbiDBInstanceClass :: Lens' NeptuneDBInstance (Val Text) -ndbiDBInstanceClass = lens _neptuneDBInstanceDBInstanceClass (\s a -> s { _neptuneDBInstanceDBInstanceClass = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbinstance.html#cfn-neptune-dbinstance-dbinstanceidentifier -ndbiDBInstanceIdentifier :: Lens' NeptuneDBInstance (Maybe (Val Text)) -ndbiDBInstanceIdentifier = lens _neptuneDBInstanceDBInstanceIdentifier (\s a -> s { _neptuneDBInstanceDBInstanceIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbinstance.html#cfn-neptune-dbinstance-dbparametergroupname -ndbiDBParameterGroupName :: Lens' NeptuneDBInstance (Maybe (Val Text)) -ndbiDBParameterGroupName = lens _neptuneDBInstanceDBParameterGroupName (\s a -> s { _neptuneDBInstanceDBParameterGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbinstance.html#cfn-neptune-dbinstance-dbsnapshotidentifier -ndbiDBSnapshotIdentifier :: Lens' NeptuneDBInstance (Maybe (Val Text)) -ndbiDBSnapshotIdentifier = lens _neptuneDBInstanceDBSnapshotIdentifier (\s a -> s { _neptuneDBInstanceDBSnapshotIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbinstance.html#cfn-neptune-dbinstance-dbsubnetgroupname -ndbiDBSubnetGroupName :: Lens' NeptuneDBInstance (Maybe (Val Text)) -ndbiDBSubnetGroupName = lens _neptuneDBInstanceDBSubnetGroupName (\s a -> s { _neptuneDBInstanceDBSubnetGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbinstance.html#cfn-neptune-dbinstance-preferredmaintenancewindow -ndbiPreferredMaintenanceWindow :: Lens' NeptuneDBInstance (Maybe (Val Text)) -ndbiPreferredMaintenanceWindow = lens _neptuneDBInstancePreferredMaintenanceWindow (\s a -> s { _neptuneDBInstancePreferredMaintenanceWindow = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbinstance.html#cfn-neptune-dbinstance-tags -ndbiTags :: Lens' NeptuneDBInstance (Maybe [Tag]) -ndbiTags = lens _neptuneDBInstanceTags (\s a -> s { _neptuneDBInstanceTags = a }) diff --git a/library-gen/Stratosphere/Resources/NeptuneDBParameterGroup.hs b/library-gen/Stratosphere/Resources/NeptuneDBParameterGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/NeptuneDBParameterGroup.hs +++ /dev/null @@ -1,72 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbparametergroup.html - -module Stratosphere.Resources.NeptuneDBParameterGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for NeptuneDBParameterGroup. See --- 'neptuneDBParameterGroup' for a more convenient constructor. -data NeptuneDBParameterGroup = - NeptuneDBParameterGroup - { _neptuneDBParameterGroupDescription :: Val Text - , _neptuneDBParameterGroupFamily :: Val Text - , _neptuneDBParameterGroupName :: Maybe (Val Text) - , _neptuneDBParameterGroupParameters :: Object - , _neptuneDBParameterGroupTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties NeptuneDBParameterGroup where - toResourceProperties NeptuneDBParameterGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Neptune::DBParameterGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Description",) . toJSON) _neptuneDBParameterGroupDescription - , (Just . ("Family",) . toJSON) _neptuneDBParameterGroupFamily - , fmap (("Name",) . toJSON) _neptuneDBParameterGroupName - , (Just . ("Parameters",) . toJSON) _neptuneDBParameterGroupParameters - , fmap (("Tags",) . toJSON) _neptuneDBParameterGroupTags - ] - } - --- | Constructor for 'NeptuneDBParameterGroup' containing required fields as --- arguments. -neptuneDBParameterGroup - :: Val Text -- ^ 'ndbpgDescription' - -> Val Text -- ^ 'ndbpgFamily' - -> Object -- ^ 'ndbpgParameters' - -> NeptuneDBParameterGroup -neptuneDBParameterGroup descriptionarg familyarg parametersarg = - NeptuneDBParameterGroup - { _neptuneDBParameterGroupDescription = descriptionarg - , _neptuneDBParameterGroupFamily = familyarg - , _neptuneDBParameterGroupName = Nothing - , _neptuneDBParameterGroupParameters = parametersarg - , _neptuneDBParameterGroupTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbparametergroup.html#cfn-neptune-dbparametergroup-description -ndbpgDescription :: Lens' NeptuneDBParameterGroup (Val Text) -ndbpgDescription = lens _neptuneDBParameterGroupDescription (\s a -> s { _neptuneDBParameterGroupDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbparametergroup.html#cfn-neptune-dbparametergroup-family -ndbpgFamily :: Lens' NeptuneDBParameterGroup (Val Text) -ndbpgFamily = lens _neptuneDBParameterGroupFamily (\s a -> s { _neptuneDBParameterGroupFamily = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbparametergroup.html#cfn-neptune-dbparametergroup-name -ndbpgName :: Lens' NeptuneDBParameterGroup (Maybe (Val Text)) -ndbpgName = lens _neptuneDBParameterGroupName (\s a -> s { _neptuneDBParameterGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbparametergroup.html#cfn-neptune-dbparametergroup-parameters -ndbpgParameters :: Lens' NeptuneDBParameterGroup Object -ndbpgParameters = lens _neptuneDBParameterGroupParameters (\s a -> s { _neptuneDBParameterGroupParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbparametergroup.html#cfn-neptune-dbparametergroup-tags -ndbpgTags :: Lens' NeptuneDBParameterGroup (Maybe [Tag]) -ndbpgTags = lens _neptuneDBParameterGroupTags (\s a -> s { _neptuneDBParameterGroupTags = a }) diff --git a/library-gen/Stratosphere/Resources/NeptuneDBSubnetGroup.hs b/library-gen/Stratosphere/Resources/NeptuneDBSubnetGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/NeptuneDBSubnetGroup.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbsubnetgroup.html - -module Stratosphere.Resources.NeptuneDBSubnetGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for NeptuneDBSubnetGroup. See --- 'neptuneDBSubnetGroup' for a more convenient constructor. -data NeptuneDBSubnetGroup = - NeptuneDBSubnetGroup - { _neptuneDBSubnetGroupDBSubnetGroupDescription :: Val Text - , _neptuneDBSubnetGroupDBSubnetGroupName :: Maybe (Val Text) - , _neptuneDBSubnetGroupSubnetIds :: ValList Text - , _neptuneDBSubnetGroupTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties NeptuneDBSubnetGroup where - toResourceProperties NeptuneDBSubnetGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Neptune::DBSubnetGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("DBSubnetGroupDescription",) . toJSON) _neptuneDBSubnetGroupDBSubnetGroupDescription - , fmap (("DBSubnetGroupName",) . toJSON) _neptuneDBSubnetGroupDBSubnetGroupName - , (Just . ("SubnetIds",) . toJSON) _neptuneDBSubnetGroupSubnetIds - , fmap (("Tags",) . toJSON) _neptuneDBSubnetGroupTags - ] - } - --- | Constructor for 'NeptuneDBSubnetGroup' containing required fields as --- arguments. -neptuneDBSubnetGroup - :: Val Text -- ^ 'ndbsgDBSubnetGroupDescription' - -> ValList Text -- ^ 'ndbsgSubnetIds' - -> NeptuneDBSubnetGroup -neptuneDBSubnetGroup dBSubnetGroupDescriptionarg subnetIdsarg = - NeptuneDBSubnetGroup - { _neptuneDBSubnetGroupDBSubnetGroupDescription = dBSubnetGroupDescriptionarg - , _neptuneDBSubnetGroupDBSubnetGroupName = Nothing - , _neptuneDBSubnetGroupSubnetIds = subnetIdsarg - , _neptuneDBSubnetGroupTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbsubnetgroup.html#cfn-neptune-dbsubnetgroup-dbsubnetgroupdescription -ndbsgDBSubnetGroupDescription :: Lens' NeptuneDBSubnetGroup (Val Text) -ndbsgDBSubnetGroupDescription = lens _neptuneDBSubnetGroupDBSubnetGroupDescription (\s a -> s { _neptuneDBSubnetGroupDBSubnetGroupDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbsubnetgroup.html#cfn-neptune-dbsubnetgroup-dbsubnetgroupname -ndbsgDBSubnetGroupName :: Lens' NeptuneDBSubnetGroup (Maybe (Val Text)) -ndbsgDBSubnetGroupName = lens _neptuneDBSubnetGroupDBSubnetGroupName (\s a -> s { _neptuneDBSubnetGroupDBSubnetGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbsubnetgroup.html#cfn-neptune-dbsubnetgroup-subnetids -ndbsgSubnetIds :: Lens' NeptuneDBSubnetGroup (ValList Text) -ndbsgSubnetIds = lens _neptuneDBSubnetGroupSubnetIds (\s a -> s { _neptuneDBSubnetGroupSubnetIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbsubnetgroup.html#cfn-neptune-dbsubnetgroup-tags -ndbsgTags :: Lens' NeptuneDBSubnetGroup (Maybe [Tag]) -ndbsgTags = lens _neptuneDBSubnetGroupTags (\s a -> s { _neptuneDBSubnetGroupTags = a }) diff --git a/library-gen/Stratosphere/Resources/NetworkManagerCustomerGatewayAssociation.hs b/library-gen/Stratosphere/Resources/NetworkManagerCustomerGatewayAssociation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/NetworkManagerCustomerGatewayAssociation.hs +++ /dev/null @@ -1,66 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-customergatewayassociation.html - -module Stratosphere.Resources.NetworkManagerCustomerGatewayAssociation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for NetworkManagerCustomerGatewayAssociation. --- See 'networkManagerCustomerGatewayAssociation' for a more convenient --- constructor. -data NetworkManagerCustomerGatewayAssociation = - NetworkManagerCustomerGatewayAssociation - { _networkManagerCustomerGatewayAssociationCustomerGatewayArn :: Val Text - , _networkManagerCustomerGatewayAssociationDeviceId :: Val Text - , _networkManagerCustomerGatewayAssociationGlobalNetworkId :: Val Text - , _networkManagerCustomerGatewayAssociationLinkId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties NetworkManagerCustomerGatewayAssociation where - toResourceProperties NetworkManagerCustomerGatewayAssociation{..} = - ResourceProperties - { resourcePropertiesType = "AWS::NetworkManager::CustomerGatewayAssociation" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("CustomerGatewayArn",) . toJSON) _networkManagerCustomerGatewayAssociationCustomerGatewayArn - , (Just . ("DeviceId",) . toJSON) _networkManagerCustomerGatewayAssociationDeviceId - , (Just . ("GlobalNetworkId",) . toJSON) _networkManagerCustomerGatewayAssociationGlobalNetworkId - , fmap (("LinkId",) . toJSON) _networkManagerCustomerGatewayAssociationLinkId - ] - } - --- | Constructor for 'NetworkManagerCustomerGatewayAssociation' containing --- required fields as arguments. -networkManagerCustomerGatewayAssociation - :: Val Text -- ^ 'nmcgaCustomerGatewayArn' - -> Val Text -- ^ 'nmcgaDeviceId' - -> Val Text -- ^ 'nmcgaGlobalNetworkId' - -> NetworkManagerCustomerGatewayAssociation -networkManagerCustomerGatewayAssociation customerGatewayArnarg deviceIdarg globalNetworkIdarg = - NetworkManagerCustomerGatewayAssociation - { _networkManagerCustomerGatewayAssociationCustomerGatewayArn = customerGatewayArnarg - , _networkManagerCustomerGatewayAssociationDeviceId = deviceIdarg - , _networkManagerCustomerGatewayAssociationGlobalNetworkId = globalNetworkIdarg - , _networkManagerCustomerGatewayAssociationLinkId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-customergatewayassociation.html#cfn-networkmanager-customergatewayassociation-customergatewayarn -nmcgaCustomerGatewayArn :: Lens' NetworkManagerCustomerGatewayAssociation (Val Text) -nmcgaCustomerGatewayArn = lens _networkManagerCustomerGatewayAssociationCustomerGatewayArn (\s a -> s { _networkManagerCustomerGatewayAssociationCustomerGatewayArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-customergatewayassociation.html#cfn-networkmanager-customergatewayassociation-deviceid -nmcgaDeviceId :: Lens' NetworkManagerCustomerGatewayAssociation (Val Text) -nmcgaDeviceId = lens _networkManagerCustomerGatewayAssociationDeviceId (\s a -> s { _networkManagerCustomerGatewayAssociationDeviceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-customergatewayassociation.html#cfn-networkmanager-customergatewayassociation-globalnetworkid -nmcgaGlobalNetworkId :: Lens' NetworkManagerCustomerGatewayAssociation (Val Text) -nmcgaGlobalNetworkId = lens _networkManagerCustomerGatewayAssociationGlobalNetworkId (\s a -> s { _networkManagerCustomerGatewayAssociationGlobalNetworkId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-customergatewayassociation.html#cfn-networkmanager-customergatewayassociation-linkid -nmcgaLinkId :: Lens' NetworkManagerCustomerGatewayAssociation (Maybe (Val Text)) -nmcgaLinkId = lens _networkManagerCustomerGatewayAssociationLinkId (\s a -> s { _networkManagerCustomerGatewayAssociationLinkId = a }) diff --git a/library-gen/Stratosphere/Resources/NetworkManagerDevice.hs b/library-gen/Stratosphere/Resources/NetworkManagerDevice.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/NetworkManagerDevice.hs +++ /dev/null @@ -1,99 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-device.html - -module Stratosphere.Resources.NetworkManagerDevice where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.NetworkManagerDeviceLocation -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for NetworkManagerDevice. See --- 'networkManagerDevice' for a more convenient constructor. -data NetworkManagerDevice = - NetworkManagerDevice - { _networkManagerDeviceDescription :: Maybe (Val Text) - , _networkManagerDeviceGlobalNetworkId :: Val Text - , _networkManagerDeviceLocation :: Maybe NetworkManagerDeviceLocation - , _networkManagerDeviceModel :: Maybe (Val Text) - , _networkManagerDeviceSerialNumber :: Maybe (Val Text) - , _networkManagerDeviceSiteId :: Maybe (Val Text) - , _networkManagerDeviceTags :: Maybe [Tag] - , _networkManagerDeviceType :: Maybe (Val Text) - , _networkManagerDeviceVendor :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties NetworkManagerDevice where - toResourceProperties NetworkManagerDevice{..} = - ResourceProperties - { resourcePropertiesType = "AWS::NetworkManager::Device" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _networkManagerDeviceDescription - , (Just . ("GlobalNetworkId",) . toJSON) _networkManagerDeviceGlobalNetworkId - , fmap (("Location",) . toJSON) _networkManagerDeviceLocation - , fmap (("Model",) . toJSON) _networkManagerDeviceModel - , fmap (("SerialNumber",) . toJSON) _networkManagerDeviceSerialNumber - , fmap (("SiteId",) . toJSON) _networkManagerDeviceSiteId - , fmap (("Tags",) . toJSON) _networkManagerDeviceTags - , fmap (("Type",) . toJSON) _networkManagerDeviceType - , fmap (("Vendor",) . toJSON) _networkManagerDeviceVendor - ] - } - --- | Constructor for 'NetworkManagerDevice' containing required fields as --- arguments. -networkManagerDevice - :: Val Text -- ^ 'nmdGlobalNetworkId' - -> NetworkManagerDevice -networkManagerDevice globalNetworkIdarg = - NetworkManagerDevice - { _networkManagerDeviceDescription = Nothing - , _networkManagerDeviceGlobalNetworkId = globalNetworkIdarg - , _networkManagerDeviceLocation = Nothing - , _networkManagerDeviceModel = Nothing - , _networkManagerDeviceSerialNumber = Nothing - , _networkManagerDeviceSiteId = Nothing - , _networkManagerDeviceTags = Nothing - , _networkManagerDeviceType = Nothing - , _networkManagerDeviceVendor = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-device.html#cfn-networkmanager-device-description -nmdDescription :: Lens' NetworkManagerDevice (Maybe (Val Text)) -nmdDescription = lens _networkManagerDeviceDescription (\s a -> s { _networkManagerDeviceDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-device.html#cfn-networkmanager-device-globalnetworkid -nmdGlobalNetworkId :: Lens' NetworkManagerDevice (Val Text) -nmdGlobalNetworkId = lens _networkManagerDeviceGlobalNetworkId (\s a -> s { _networkManagerDeviceGlobalNetworkId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-device.html#cfn-networkmanager-device-location -nmdLocation :: Lens' NetworkManagerDevice (Maybe NetworkManagerDeviceLocation) -nmdLocation = lens _networkManagerDeviceLocation (\s a -> s { _networkManagerDeviceLocation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-device.html#cfn-networkmanager-device-model -nmdModel :: Lens' NetworkManagerDevice (Maybe (Val Text)) -nmdModel = lens _networkManagerDeviceModel (\s a -> s { _networkManagerDeviceModel = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-device.html#cfn-networkmanager-device-serialnumber -nmdSerialNumber :: Lens' NetworkManagerDevice (Maybe (Val Text)) -nmdSerialNumber = lens _networkManagerDeviceSerialNumber (\s a -> s { _networkManagerDeviceSerialNumber = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-device.html#cfn-networkmanager-device-siteid -nmdSiteId :: Lens' NetworkManagerDevice (Maybe (Val Text)) -nmdSiteId = lens _networkManagerDeviceSiteId (\s a -> s { _networkManagerDeviceSiteId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-device.html#cfn-networkmanager-device-tags -nmdTags :: Lens' NetworkManagerDevice (Maybe [Tag]) -nmdTags = lens _networkManagerDeviceTags (\s a -> s { _networkManagerDeviceTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-device.html#cfn-networkmanager-device-type -nmdType :: Lens' NetworkManagerDevice (Maybe (Val Text)) -nmdType = lens _networkManagerDeviceType (\s a -> s { _networkManagerDeviceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-device.html#cfn-networkmanager-device-vendor -nmdVendor :: Lens' NetworkManagerDevice (Maybe (Val Text)) -nmdVendor = lens _networkManagerDeviceVendor (\s a -> s { _networkManagerDeviceVendor = a }) diff --git a/library-gen/Stratosphere/Resources/NetworkManagerGlobalNetwork.hs b/library-gen/Stratosphere/Resources/NetworkManagerGlobalNetwork.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/NetworkManagerGlobalNetwork.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-globalnetwork.html - -module Stratosphere.Resources.NetworkManagerGlobalNetwork where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for NetworkManagerGlobalNetwork. See --- 'networkManagerGlobalNetwork' for a more convenient constructor. -data NetworkManagerGlobalNetwork = - NetworkManagerGlobalNetwork - { _networkManagerGlobalNetworkDescription :: Maybe (Val Text) - , _networkManagerGlobalNetworkTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties NetworkManagerGlobalNetwork where - toResourceProperties NetworkManagerGlobalNetwork{..} = - ResourceProperties - { resourcePropertiesType = "AWS::NetworkManager::GlobalNetwork" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _networkManagerGlobalNetworkDescription - , fmap (("Tags",) . toJSON) _networkManagerGlobalNetworkTags - ] - } - --- | Constructor for 'NetworkManagerGlobalNetwork' containing required fields --- as arguments. -networkManagerGlobalNetwork - :: NetworkManagerGlobalNetwork -networkManagerGlobalNetwork = - NetworkManagerGlobalNetwork - { _networkManagerGlobalNetworkDescription = Nothing - , _networkManagerGlobalNetworkTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-globalnetwork.html#cfn-networkmanager-globalnetwork-description -nmgnDescription :: Lens' NetworkManagerGlobalNetwork (Maybe (Val Text)) -nmgnDescription = lens _networkManagerGlobalNetworkDescription (\s a -> s { _networkManagerGlobalNetworkDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-globalnetwork.html#cfn-networkmanager-globalnetwork-tags -nmgnTags :: Lens' NetworkManagerGlobalNetwork (Maybe [Tag]) -nmgnTags = lens _networkManagerGlobalNetworkTags (\s a -> s { _networkManagerGlobalNetworkTags = a }) diff --git a/library-gen/Stratosphere/Resources/NetworkManagerLink.hs b/library-gen/Stratosphere/Resources/NetworkManagerLink.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/NetworkManagerLink.hs +++ /dev/null @@ -1,87 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-link.html - -module Stratosphere.Resources.NetworkManagerLink where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.NetworkManagerLinkBandwidth -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for NetworkManagerLink. See --- 'networkManagerLink' for a more convenient constructor. -data NetworkManagerLink = - NetworkManagerLink - { _networkManagerLinkBandwidth :: NetworkManagerLinkBandwidth - , _networkManagerLinkDescription :: Maybe (Val Text) - , _networkManagerLinkGlobalNetworkId :: Val Text - , _networkManagerLinkProvider :: Maybe (Val Text) - , _networkManagerLinkSiteId :: Val Text - , _networkManagerLinkTags :: Maybe [Tag] - , _networkManagerLinkType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties NetworkManagerLink where - toResourceProperties NetworkManagerLink{..} = - ResourceProperties - { resourcePropertiesType = "AWS::NetworkManager::Link" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Bandwidth",) . toJSON) _networkManagerLinkBandwidth - , fmap (("Description",) . toJSON) _networkManagerLinkDescription - , (Just . ("GlobalNetworkId",) . toJSON) _networkManagerLinkGlobalNetworkId - , fmap (("Provider",) . toJSON) _networkManagerLinkProvider - , (Just . ("SiteId",) . toJSON) _networkManagerLinkSiteId - , fmap (("Tags",) . toJSON) _networkManagerLinkTags - , fmap (("Type",) . toJSON) _networkManagerLinkType - ] - } - --- | Constructor for 'NetworkManagerLink' containing required fields as --- arguments. -networkManagerLink - :: NetworkManagerLinkBandwidth -- ^ 'nmlBandwidth' - -> Val Text -- ^ 'nmlGlobalNetworkId' - -> Val Text -- ^ 'nmlSiteId' - -> NetworkManagerLink -networkManagerLink bandwidtharg globalNetworkIdarg siteIdarg = - NetworkManagerLink - { _networkManagerLinkBandwidth = bandwidtharg - , _networkManagerLinkDescription = Nothing - , _networkManagerLinkGlobalNetworkId = globalNetworkIdarg - , _networkManagerLinkProvider = Nothing - , _networkManagerLinkSiteId = siteIdarg - , _networkManagerLinkTags = Nothing - , _networkManagerLinkType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-link.html#cfn-networkmanager-link-bandwidth -nmlBandwidth :: Lens' NetworkManagerLink NetworkManagerLinkBandwidth -nmlBandwidth = lens _networkManagerLinkBandwidth (\s a -> s { _networkManagerLinkBandwidth = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-link.html#cfn-networkmanager-link-description -nmlDescription :: Lens' NetworkManagerLink (Maybe (Val Text)) -nmlDescription = lens _networkManagerLinkDescription (\s a -> s { _networkManagerLinkDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-link.html#cfn-networkmanager-link-globalnetworkid -nmlGlobalNetworkId :: Lens' NetworkManagerLink (Val Text) -nmlGlobalNetworkId = lens _networkManagerLinkGlobalNetworkId (\s a -> s { _networkManagerLinkGlobalNetworkId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-link.html#cfn-networkmanager-link-provider -nmlProvider :: Lens' NetworkManagerLink (Maybe (Val Text)) -nmlProvider = lens _networkManagerLinkProvider (\s a -> s { _networkManagerLinkProvider = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-link.html#cfn-networkmanager-link-siteid -nmlSiteId :: Lens' NetworkManagerLink (Val Text) -nmlSiteId = lens _networkManagerLinkSiteId (\s a -> s { _networkManagerLinkSiteId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-link.html#cfn-networkmanager-link-tags -nmlTags :: Lens' NetworkManagerLink (Maybe [Tag]) -nmlTags = lens _networkManagerLinkTags (\s a -> s { _networkManagerLinkTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-link.html#cfn-networkmanager-link-type -nmlType :: Lens' NetworkManagerLink (Maybe (Val Text)) -nmlType = lens _networkManagerLinkType (\s a -> s { _networkManagerLinkType = a }) diff --git a/library-gen/Stratosphere/Resources/NetworkManagerLinkAssociation.hs b/library-gen/Stratosphere/Resources/NetworkManagerLinkAssociation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/NetworkManagerLinkAssociation.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-linkassociation.html - -module Stratosphere.Resources.NetworkManagerLinkAssociation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for NetworkManagerLinkAssociation. See --- 'networkManagerLinkAssociation' for a more convenient constructor. -data NetworkManagerLinkAssociation = - NetworkManagerLinkAssociation - { _networkManagerLinkAssociationDeviceId :: Val Text - , _networkManagerLinkAssociationGlobalNetworkId :: Val Text - , _networkManagerLinkAssociationLinkId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties NetworkManagerLinkAssociation where - toResourceProperties NetworkManagerLinkAssociation{..} = - ResourceProperties - { resourcePropertiesType = "AWS::NetworkManager::LinkAssociation" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("DeviceId",) . toJSON) _networkManagerLinkAssociationDeviceId - , (Just . ("GlobalNetworkId",) . toJSON) _networkManagerLinkAssociationGlobalNetworkId - , (Just . ("LinkId",) . toJSON) _networkManagerLinkAssociationLinkId - ] - } - --- | Constructor for 'NetworkManagerLinkAssociation' containing required --- fields as arguments. -networkManagerLinkAssociation - :: Val Text -- ^ 'nmlaDeviceId' - -> Val Text -- ^ 'nmlaGlobalNetworkId' - -> Val Text -- ^ 'nmlaLinkId' - -> NetworkManagerLinkAssociation -networkManagerLinkAssociation deviceIdarg globalNetworkIdarg linkIdarg = - NetworkManagerLinkAssociation - { _networkManagerLinkAssociationDeviceId = deviceIdarg - , _networkManagerLinkAssociationGlobalNetworkId = globalNetworkIdarg - , _networkManagerLinkAssociationLinkId = linkIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-linkassociation.html#cfn-networkmanager-linkassociation-deviceid -nmlaDeviceId :: Lens' NetworkManagerLinkAssociation (Val Text) -nmlaDeviceId = lens _networkManagerLinkAssociationDeviceId (\s a -> s { _networkManagerLinkAssociationDeviceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-linkassociation.html#cfn-networkmanager-linkassociation-globalnetworkid -nmlaGlobalNetworkId :: Lens' NetworkManagerLinkAssociation (Val Text) -nmlaGlobalNetworkId = lens _networkManagerLinkAssociationGlobalNetworkId (\s a -> s { _networkManagerLinkAssociationGlobalNetworkId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-linkassociation.html#cfn-networkmanager-linkassociation-linkid -nmlaLinkId :: Lens' NetworkManagerLinkAssociation (Val Text) -nmlaLinkId = lens _networkManagerLinkAssociationLinkId (\s a -> s { _networkManagerLinkAssociationLinkId = a }) diff --git a/library-gen/Stratosphere/Resources/NetworkManagerSite.hs b/library-gen/Stratosphere/Resources/NetworkManagerSite.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/NetworkManagerSite.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-site.html - -module Stratosphere.Resources.NetworkManagerSite where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.NetworkManagerSiteLocation -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for NetworkManagerSite. See --- 'networkManagerSite' for a more convenient constructor. -data NetworkManagerSite = - NetworkManagerSite - { _networkManagerSiteDescription :: Maybe (Val Text) - , _networkManagerSiteGlobalNetworkId :: Val Text - , _networkManagerSiteLocation :: Maybe NetworkManagerSiteLocation - , _networkManagerSiteTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties NetworkManagerSite where - toResourceProperties NetworkManagerSite{..} = - ResourceProperties - { resourcePropertiesType = "AWS::NetworkManager::Site" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _networkManagerSiteDescription - , (Just . ("GlobalNetworkId",) . toJSON) _networkManagerSiteGlobalNetworkId - , fmap (("Location",) . toJSON) _networkManagerSiteLocation - , fmap (("Tags",) . toJSON) _networkManagerSiteTags - ] - } - --- | Constructor for 'NetworkManagerSite' containing required fields as --- arguments. -networkManagerSite - :: Val Text -- ^ 'nmsGlobalNetworkId' - -> NetworkManagerSite -networkManagerSite globalNetworkIdarg = - NetworkManagerSite - { _networkManagerSiteDescription = Nothing - , _networkManagerSiteGlobalNetworkId = globalNetworkIdarg - , _networkManagerSiteLocation = Nothing - , _networkManagerSiteTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-site.html#cfn-networkmanager-site-description -nmsDescription :: Lens' NetworkManagerSite (Maybe (Val Text)) -nmsDescription = lens _networkManagerSiteDescription (\s a -> s { _networkManagerSiteDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-site.html#cfn-networkmanager-site-globalnetworkid -nmsGlobalNetworkId :: Lens' NetworkManagerSite (Val Text) -nmsGlobalNetworkId = lens _networkManagerSiteGlobalNetworkId (\s a -> s { _networkManagerSiteGlobalNetworkId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-site.html#cfn-networkmanager-site-location -nmsLocation :: Lens' NetworkManagerSite (Maybe NetworkManagerSiteLocation) -nmsLocation = lens _networkManagerSiteLocation (\s a -> s { _networkManagerSiteLocation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-site.html#cfn-networkmanager-site-tags -nmsTags :: Lens' NetworkManagerSite (Maybe [Tag]) -nmsTags = lens _networkManagerSiteTags (\s a -> s { _networkManagerSiteTags = a }) diff --git a/library-gen/Stratosphere/Resources/NetworkManagerTransitGatewayRegistration.hs b/library-gen/Stratosphere/Resources/NetworkManagerTransitGatewayRegistration.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/NetworkManagerTransitGatewayRegistration.hs +++ /dev/null @@ -1,51 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-transitgatewayregistration.html - -module Stratosphere.Resources.NetworkManagerTransitGatewayRegistration where - -import Stratosphere.ResourceImports - - --- | Full data type definition for NetworkManagerTransitGatewayRegistration. --- See 'networkManagerTransitGatewayRegistration' for a more convenient --- constructor. -data NetworkManagerTransitGatewayRegistration = - NetworkManagerTransitGatewayRegistration - { _networkManagerTransitGatewayRegistrationGlobalNetworkId :: Val Text - , _networkManagerTransitGatewayRegistrationTransitGatewayArn :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties NetworkManagerTransitGatewayRegistration where - toResourceProperties NetworkManagerTransitGatewayRegistration{..} = - ResourceProperties - { resourcePropertiesType = "AWS::NetworkManager::TransitGatewayRegistration" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("GlobalNetworkId",) . toJSON) _networkManagerTransitGatewayRegistrationGlobalNetworkId - , (Just . ("TransitGatewayArn",) . toJSON) _networkManagerTransitGatewayRegistrationTransitGatewayArn - ] - } - --- | Constructor for 'NetworkManagerTransitGatewayRegistration' containing --- required fields as arguments. -networkManagerTransitGatewayRegistration - :: Val Text -- ^ 'nmtgrGlobalNetworkId' - -> Val Text -- ^ 'nmtgrTransitGatewayArn' - -> NetworkManagerTransitGatewayRegistration -networkManagerTransitGatewayRegistration globalNetworkIdarg transitGatewayArnarg = - NetworkManagerTransitGatewayRegistration - { _networkManagerTransitGatewayRegistrationGlobalNetworkId = globalNetworkIdarg - , _networkManagerTransitGatewayRegistrationTransitGatewayArn = transitGatewayArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-transitgatewayregistration.html#cfn-networkmanager-transitgatewayregistration-globalnetworkid -nmtgrGlobalNetworkId :: Lens' NetworkManagerTransitGatewayRegistration (Val Text) -nmtgrGlobalNetworkId = lens _networkManagerTransitGatewayRegistrationGlobalNetworkId (\s a -> s { _networkManagerTransitGatewayRegistrationGlobalNetworkId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-networkmanager-transitgatewayregistration.html#cfn-networkmanager-transitgatewayregistration-transitgatewayarn -nmtgrTransitGatewayArn :: Lens' NetworkManagerTransitGatewayRegistration (Val Text) -nmtgrTransitGatewayArn = lens _networkManagerTransitGatewayRegistrationTransitGatewayArn (\s a -> s { _networkManagerTransitGatewayRegistrationTransitGatewayArn = a }) diff --git a/library-gen/Stratosphere/Resources/OpsWorksApp.hs b/library-gen/Stratosphere/Resources/OpsWorksApp.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/OpsWorksApp.hs +++ /dev/null @@ -1,123 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-app.html - -module Stratosphere.Resources.OpsWorksApp where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.OpsWorksAppSource -import Stratosphere.ResourceProperties.OpsWorksAppDataSource -import Stratosphere.ResourceProperties.OpsWorksAppEnvironmentVariable -import Stratosphere.ResourceProperties.OpsWorksAppSslConfiguration - --- | Full data type definition for OpsWorksApp. See 'opsWorksApp' for a more --- convenient constructor. -data OpsWorksApp = - OpsWorksApp - { _opsWorksAppAppSource :: Maybe OpsWorksAppSource - , _opsWorksAppAttributes :: Maybe Object - , _opsWorksAppDataSources :: Maybe [OpsWorksAppDataSource] - , _opsWorksAppDescription :: Maybe (Val Text) - , _opsWorksAppDomains :: Maybe (ValList Text) - , _opsWorksAppEnableSsl :: Maybe (Val Bool) - , _opsWorksAppEnvironment :: Maybe [OpsWorksAppEnvironmentVariable] - , _opsWorksAppName :: Val Text - , _opsWorksAppShortname :: Maybe (Val Text) - , _opsWorksAppSslConfiguration :: Maybe OpsWorksAppSslConfiguration - , _opsWorksAppStackId :: Val Text - , _opsWorksAppType :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties OpsWorksApp where - toResourceProperties OpsWorksApp{..} = - ResourceProperties - { resourcePropertiesType = "AWS::OpsWorks::App" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AppSource",) . toJSON) _opsWorksAppAppSource - , fmap (("Attributes",) . toJSON) _opsWorksAppAttributes - , fmap (("DataSources",) . toJSON) _opsWorksAppDataSources - , fmap (("Description",) . toJSON) _opsWorksAppDescription - , fmap (("Domains",) . toJSON) _opsWorksAppDomains - , fmap (("EnableSsl",) . toJSON) _opsWorksAppEnableSsl - , fmap (("Environment",) . toJSON) _opsWorksAppEnvironment - , (Just . ("Name",) . toJSON) _opsWorksAppName - , fmap (("Shortname",) . toJSON) _opsWorksAppShortname - , fmap (("SslConfiguration",) . toJSON) _opsWorksAppSslConfiguration - , (Just . ("StackId",) . toJSON) _opsWorksAppStackId - , (Just . ("Type",) . toJSON) _opsWorksAppType - ] - } - --- | Constructor for 'OpsWorksApp' containing required fields as arguments. -opsWorksApp - :: Val Text -- ^ 'owaName' - -> Val Text -- ^ 'owaStackId' - -> Val Text -- ^ 'owaType' - -> OpsWorksApp -opsWorksApp namearg stackIdarg typearg = - OpsWorksApp - { _opsWorksAppAppSource = Nothing - , _opsWorksAppAttributes = Nothing - , _opsWorksAppDataSources = Nothing - , _opsWorksAppDescription = Nothing - , _opsWorksAppDomains = Nothing - , _opsWorksAppEnableSsl = Nothing - , _opsWorksAppEnvironment = Nothing - , _opsWorksAppName = namearg - , _opsWorksAppShortname = Nothing - , _opsWorksAppSslConfiguration = Nothing - , _opsWorksAppStackId = stackIdarg - , _opsWorksAppType = typearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-app.html#cfn-opsworks-app-appsource -owaAppSource :: Lens' OpsWorksApp (Maybe OpsWorksAppSource) -owaAppSource = lens _opsWorksAppAppSource (\s a -> s { _opsWorksAppAppSource = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-app.html#cfn-opsworks-app-attributes -owaAttributes :: Lens' OpsWorksApp (Maybe Object) -owaAttributes = lens _opsWorksAppAttributes (\s a -> s { _opsWorksAppAttributes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-app.html#cfn-opsworks-app-datasources -owaDataSources :: Lens' OpsWorksApp (Maybe [OpsWorksAppDataSource]) -owaDataSources = lens _opsWorksAppDataSources (\s a -> s { _opsWorksAppDataSources = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-app.html#cfn-opsworks-app-description -owaDescription :: Lens' OpsWorksApp (Maybe (Val Text)) -owaDescription = lens _opsWorksAppDescription (\s a -> s { _opsWorksAppDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-app.html#cfn-opsworks-app-domains -owaDomains :: Lens' OpsWorksApp (Maybe (ValList Text)) -owaDomains = lens _opsWorksAppDomains (\s a -> s { _opsWorksAppDomains = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-app.html#cfn-opsworks-app-enablessl -owaEnableSsl :: Lens' OpsWorksApp (Maybe (Val Bool)) -owaEnableSsl = lens _opsWorksAppEnableSsl (\s a -> s { _opsWorksAppEnableSsl = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-app.html#cfn-opsworks-app-environment -owaEnvironment :: Lens' OpsWorksApp (Maybe [OpsWorksAppEnvironmentVariable]) -owaEnvironment = lens _opsWorksAppEnvironment (\s a -> s { _opsWorksAppEnvironment = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-app.html#cfn-opsworks-app-name -owaName :: Lens' OpsWorksApp (Val Text) -owaName = lens _opsWorksAppName (\s a -> s { _opsWorksAppName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-app.html#cfn-opsworks-app-shortname -owaShortname :: Lens' OpsWorksApp (Maybe (Val Text)) -owaShortname = lens _opsWorksAppShortname (\s a -> s { _opsWorksAppShortname = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-app.html#cfn-opsworks-app-sslconfiguration -owaSslConfiguration :: Lens' OpsWorksApp (Maybe OpsWorksAppSslConfiguration) -owaSslConfiguration = lens _opsWorksAppSslConfiguration (\s a -> s { _opsWorksAppSslConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-app.html#cfn-opsworks-app-stackid -owaStackId :: Lens' OpsWorksApp (Val Text) -owaStackId = lens _opsWorksAppStackId (\s a -> s { _opsWorksAppStackId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-app.html#cfn-opsworks-app-type -owaType :: Lens' OpsWorksApp (Val Text) -owaType = lens _opsWorksAppType (\s a -> s { _opsWorksAppType = a }) diff --git a/library-gen/Stratosphere/Resources/OpsWorksCMServer.hs b/library-gen/Stratosphere/Resources/OpsWorksCMServer.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/OpsWorksCMServer.hs +++ /dev/null @@ -1,185 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworkscm-server.html - -module Stratosphere.Resources.OpsWorksCMServer where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.OpsWorksCMServerEngineAttribute -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for OpsWorksCMServer. See 'opsWorksCMServer' --- for a more convenient constructor. -data OpsWorksCMServer = - OpsWorksCMServer - { _opsWorksCMServerAssociatePublicIpAddress :: Maybe (Val Bool) - , _opsWorksCMServerBackupId :: Maybe (Val Text) - , _opsWorksCMServerBackupRetentionCount :: Maybe (Val Integer) - , _opsWorksCMServerCustomCertificate :: Maybe (Val Text) - , _opsWorksCMServerCustomDomain :: Maybe (Val Text) - , _opsWorksCMServerCustomPrivateKey :: Maybe (Val Text) - , _opsWorksCMServerDisableAutomatedBackup :: Maybe (Val Bool) - , _opsWorksCMServerEngine :: Maybe (Val Text) - , _opsWorksCMServerEngineAttributes :: Maybe [OpsWorksCMServerEngineAttribute] - , _opsWorksCMServerEngineModel :: Maybe (Val Text) - , _opsWorksCMServerEngineVersion :: Maybe (Val Text) - , _opsWorksCMServerInstanceProfileArn :: Val Text - , _opsWorksCMServerInstanceType :: Val Text - , _opsWorksCMServerKeyPair :: Maybe (Val Text) - , _opsWorksCMServerPreferredBackupWindow :: Maybe (Val Text) - , _opsWorksCMServerPreferredMaintenanceWindow :: Maybe (Val Text) - , _opsWorksCMServerSecurityGroupIds :: Maybe (ValList Text) - , _opsWorksCMServerServerName :: Maybe (Val Text) - , _opsWorksCMServerServiceRoleArn :: Val Text - , _opsWorksCMServerSubnetIds :: Maybe (ValList Text) - , _opsWorksCMServerTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties OpsWorksCMServer where - toResourceProperties OpsWorksCMServer{..} = - ResourceProperties - { resourcePropertiesType = "AWS::OpsWorksCM::Server" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AssociatePublicIpAddress",) . toJSON) _opsWorksCMServerAssociatePublicIpAddress - , fmap (("BackupId",) . toJSON) _opsWorksCMServerBackupId - , fmap (("BackupRetentionCount",) . toJSON) _opsWorksCMServerBackupRetentionCount - , fmap (("CustomCertificate",) . toJSON) _opsWorksCMServerCustomCertificate - , fmap (("CustomDomain",) . toJSON) _opsWorksCMServerCustomDomain - , fmap (("CustomPrivateKey",) . toJSON) _opsWorksCMServerCustomPrivateKey - , fmap (("DisableAutomatedBackup",) . toJSON) _opsWorksCMServerDisableAutomatedBackup - , fmap (("Engine",) . toJSON) _opsWorksCMServerEngine - , fmap (("EngineAttributes",) . toJSON) _opsWorksCMServerEngineAttributes - , fmap (("EngineModel",) . toJSON) _opsWorksCMServerEngineModel - , fmap (("EngineVersion",) . toJSON) _opsWorksCMServerEngineVersion - , (Just . ("InstanceProfileArn",) . toJSON) _opsWorksCMServerInstanceProfileArn - , (Just . ("InstanceType",) . toJSON) _opsWorksCMServerInstanceType - , fmap (("KeyPair",) . toJSON) _opsWorksCMServerKeyPair - , fmap (("PreferredBackupWindow",) . toJSON) _opsWorksCMServerPreferredBackupWindow - , fmap (("PreferredMaintenanceWindow",) . toJSON) _opsWorksCMServerPreferredMaintenanceWindow - , fmap (("SecurityGroupIds",) . toJSON) _opsWorksCMServerSecurityGroupIds - , fmap (("ServerName",) . toJSON) _opsWorksCMServerServerName - , (Just . ("ServiceRoleArn",) . toJSON) _opsWorksCMServerServiceRoleArn - , fmap (("SubnetIds",) . toJSON) _opsWorksCMServerSubnetIds - , fmap (("Tags",) . toJSON) _opsWorksCMServerTags - ] - } - --- | Constructor for 'OpsWorksCMServer' containing required fields as --- arguments. -opsWorksCMServer - :: Val Text -- ^ 'owcmsInstanceProfileArn' - -> Val Text -- ^ 'owcmsInstanceType' - -> Val Text -- ^ 'owcmsServiceRoleArn' - -> OpsWorksCMServer -opsWorksCMServer instanceProfileArnarg instanceTypearg serviceRoleArnarg = - OpsWorksCMServer - { _opsWorksCMServerAssociatePublicIpAddress = Nothing - , _opsWorksCMServerBackupId = Nothing - , _opsWorksCMServerBackupRetentionCount = Nothing - , _opsWorksCMServerCustomCertificate = Nothing - , _opsWorksCMServerCustomDomain = Nothing - , _opsWorksCMServerCustomPrivateKey = Nothing - , _opsWorksCMServerDisableAutomatedBackup = Nothing - , _opsWorksCMServerEngine = Nothing - , _opsWorksCMServerEngineAttributes = Nothing - , _opsWorksCMServerEngineModel = Nothing - , _opsWorksCMServerEngineVersion = Nothing - , _opsWorksCMServerInstanceProfileArn = instanceProfileArnarg - , _opsWorksCMServerInstanceType = instanceTypearg - , _opsWorksCMServerKeyPair = Nothing - , _opsWorksCMServerPreferredBackupWindow = Nothing - , _opsWorksCMServerPreferredMaintenanceWindow = Nothing - , _opsWorksCMServerSecurityGroupIds = Nothing - , _opsWorksCMServerServerName = Nothing - , _opsWorksCMServerServiceRoleArn = serviceRoleArnarg - , _opsWorksCMServerSubnetIds = Nothing - , _opsWorksCMServerTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworkscm-server.html#cfn-opsworkscm-server-associatepublicipaddress -owcmsAssociatePublicIpAddress :: Lens' OpsWorksCMServer (Maybe (Val Bool)) -owcmsAssociatePublicIpAddress = lens _opsWorksCMServerAssociatePublicIpAddress (\s a -> s { _opsWorksCMServerAssociatePublicIpAddress = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworkscm-server.html#cfn-opsworkscm-server-backupid -owcmsBackupId :: Lens' OpsWorksCMServer (Maybe (Val Text)) -owcmsBackupId = lens _opsWorksCMServerBackupId (\s a -> s { _opsWorksCMServerBackupId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworkscm-server.html#cfn-opsworkscm-server-backupretentioncount -owcmsBackupRetentionCount :: Lens' OpsWorksCMServer (Maybe (Val Integer)) -owcmsBackupRetentionCount = lens _opsWorksCMServerBackupRetentionCount (\s a -> s { _opsWorksCMServerBackupRetentionCount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworkscm-server.html#cfn-opsworkscm-server-customcertificate -owcmsCustomCertificate :: Lens' OpsWorksCMServer (Maybe (Val Text)) -owcmsCustomCertificate = lens _opsWorksCMServerCustomCertificate (\s a -> s { _opsWorksCMServerCustomCertificate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworkscm-server.html#cfn-opsworkscm-server-customdomain -owcmsCustomDomain :: Lens' OpsWorksCMServer (Maybe (Val Text)) -owcmsCustomDomain = lens _opsWorksCMServerCustomDomain (\s a -> s { _opsWorksCMServerCustomDomain = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworkscm-server.html#cfn-opsworkscm-server-customprivatekey -owcmsCustomPrivateKey :: Lens' OpsWorksCMServer (Maybe (Val Text)) -owcmsCustomPrivateKey = lens _opsWorksCMServerCustomPrivateKey (\s a -> s { _opsWorksCMServerCustomPrivateKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworkscm-server.html#cfn-opsworkscm-server-disableautomatedbackup -owcmsDisableAutomatedBackup :: Lens' OpsWorksCMServer (Maybe (Val Bool)) -owcmsDisableAutomatedBackup = lens _opsWorksCMServerDisableAutomatedBackup (\s a -> s { _opsWorksCMServerDisableAutomatedBackup = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworkscm-server.html#cfn-opsworkscm-server-engine -owcmsEngine :: Lens' OpsWorksCMServer (Maybe (Val Text)) -owcmsEngine = lens _opsWorksCMServerEngine (\s a -> s { _opsWorksCMServerEngine = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworkscm-server.html#cfn-opsworkscm-server-engineattributes -owcmsEngineAttributes :: Lens' OpsWorksCMServer (Maybe [OpsWorksCMServerEngineAttribute]) -owcmsEngineAttributes = lens _opsWorksCMServerEngineAttributes (\s a -> s { _opsWorksCMServerEngineAttributes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworkscm-server.html#cfn-opsworkscm-server-enginemodel -owcmsEngineModel :: Lens' OpsWorksCMServer (Maybe (Val Text)) -owcmsEngineModel = lens _opsWorksCMServerEngineModel (\s a -> s { _opsWorksCMServerEngineModel = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworkscm-server.html#cfn-opsworkscm-server-engineversion -owcmsEngineVersion :: Lens' OpsWorksCMServer (Maybe (Val Text)) -owcmsEngineVersion = lens _opsWorksCMServerEngineVersion (\s a -> s { _opsWorksCMServerEngineVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworkscm-server.html#cfn-opsworkscm-server-instanceprofilearn -owcmsInstanceProfileArn :: Lens' OpsWorksCMServer (Val Text) -owcmsInstanceProfileArn = lens _opsWorksCMServerInstanceProfileArn (\s a -> s { _opsWorksCMServerInstanceProfileArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworkscm-server.html#cfn-opsworkscm-server-instancetype -owcmsInstanceType :: Lens' OpsWorksCMServer (Val Text) -owcmsInstanceType = lens _opsWorksCMServerInstanceType (\s a -> s { _opsWorksCMServerInstanceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworkscm-server.html#cfn-opsworkscm-server-keypair -owcmsKeyPair :: Lens' OpsWorksCMServer (Maybe (Val Text)) -owcmsKeyPair = lens _opsWorksCMServerKeyPair (\s a -> s { _opsWorksCMServerKeyPair = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworkscm-server.html#cfn-opsworkscm-server-preferredbackupwindow -owcmsPreferredBackupWindow :: Lens' OpsWorksCMServer (Maybe (Val Text)) -owcmsPreferredBackupWindow = lens _opsWorksCMServerPreferredBackupWindow (\s a -> s { _opsWorksCMServerPreferredBackupWindow = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworkscm-server.html#cfn-opsworkscm-server-preferredmaintenancewindow -owcmsPreferredMaintenanceWindow :: Lens' OpsWorksCMServer (Maybe (Val Text)) -owcmsPreferredMaintenanceWindow = lens _opsWorksCMServerPreferredMaintenanceWindow (\s a -> s { _opsWorksCMServerPreferredMaintenanceWindow = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworkscm-server.html#cfn-opsworkscm-server-securitygroupids -owcmsSecurityGroupIds :: Lens' OpsWorksCMServer (Maybe (ValList Text)) -owcmsSecurityGroupIds = lens _opsWorksCMServerSecurityGroupIds (\s a -> s { _opsWorksCMServerSecurityGroupIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworkscm-server.html#cfn-opsworkscm-server-servername -owcmsServerName :: Lens' OpsWorksCMServer (Maybe (Val Text)) -owcmsServerName = lens _opsWorksCMServerServerName (\s a -> s { _opsWorksCMServerServerName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworkscm-server.html#cfn-opsworkscm-server-servicerolearn -owcmsServiceRoleArn :: Lens' OpsWorksCMServer (Val Text) -owcmsServiceRoleArn = lens _opsWorksCMServerServiceRoleArn (\s a -> s { _opsWorksCMServerServiceRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworkscm-server.html#cfn-opsworkscm-server-subnetids -owcmsSubnetIds :: Lens' OpsWorksCMServer (Maybe (ValList Text)) -owcmsSubnetIds = lens _opsWorksCMServerSubnetIds (\s a -> s { _opsWorksCMServerSubnetIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworkscm-server.html#cfn-opsworkscm-server-tags -owcmsTags :: Lens' OpsWorksCMServer (Maybe [Tag]) -owcmsTags = lens _opsWorksCMServerTags (\s a -> s { _opsWorksCMServerTags = a }) diff --git a/library-gen/Stratosphere/Resources/OpsWorksElasticLoadBalancerAttachment.hs b/library-gen/Stratosphere/Resources/OpsWorksElasticLoadBalancerAttachment.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/OpsWorksElasticLoadBalancerAttachment.hs +++ /dev/null @@ -1,51 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-elbattachment.html - -module Stratosphere.Resources.OpsWorksElasticLoadBalancerAttachment where - -import Stratosphere.ResourceImports - - --- | Full data type definition for OpsWorksElasticLoadBalancerAttachment. See --- 'opsWorksElasticLoadBalancerAttachment' for a more convenient --- constructor. -data OpsWorksElasticLoadBalancerAttachment = - OpsWorksElasticLoadBalancerAttachment - { _opsWorksElasticLoadBalancerAttachmentElasticLoadBalancerName :: Val Text - , _opsWorksElasticLoadBalancerAttachmentLayerId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties OpsWorksElasticLoadBalancerAttachment where - toResourceProperties OpsWorksElasticLoadBalancerAttachment{..} = - ResourceProperties - { resourcePropertiesType = "AWS::OpsWorks::ElasticLoadBalancerAttachment" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ElasticLoadBalancerName",) . toJSON) _opsWorksElasticLoadBalancerAttachmentElasticLoadBalancerName - , (Just . ("LayerId",) . toJSON) _opsWorksElasticLoadBalancerAttachmentLayerId - ] - } - --- | Constructor for 'OpsWorksElasticLoadBalancerAttachment' containing --- required fields as arguments. -opsWorksElasticLoadBalancerAttachment - :: Val Text -- ^ 'owelbaElasticLoadBalancerName' - -> Val Text -- ^ 'owelbaLayerId' - -> OpsWorksElasticLoadBalancerAttachment -opsWorksElasticLoadBalancerAttachment elasticLoadBalancerNamearg layerIdarg = - OpsWorksElasticLoadBalancerAttachment - { _opsWorksElasticLoadBalancerAttachmentElasticLoadBalancerName = elasticLoadBalancerNamearg - , _opsWorksElasticLoadBalancerAttachmentLayerId = layerIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-elbattachment.html#cfn-opsworks-elbattachment-elbname -owelbaElasticLoadBalancerName :: Lens' OpsWorksElasticLoadBalancerAttachment (Val Text) -owelbaElasticLoadBalancerName = lens _opsWorksElasticLoadBalancerAttachmentElasticLoadBalancerName (\s a -> s { _opsWorksElasticLoadBalancerAttachmentElasticLoadBalancerName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-elbattachment.html#cfn-opsworks-elbattachment-layerid -owelbaLayerId :: Lens' OpsWorksElasticLoadBalancerAttachment (Val Text) -owelbaLayerId = lens _opsWorksElasticLoadBalancerAttachmentLayerId (\s a -> s { _opsWorksElasticLoadBalancerAttachmentLayerId = a }) diff --git a/library-gen/Stratosphere/Resources/OpsWorksInstance.hs b/library-gen/Stratosphere/Resources/OpsWorksInstance.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/OpsWorksInstance.hs +++ /dev/null @@ -1,185 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-instance.html - -module Stratosphere.Resources.OpsWorksInstance where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.OpsWorksInstanceBlockDeviceMapping -import Stratosphere.ResourceProperties.OpsWorksInstanceTimeBasedAutoScaling - --- | Full data type definition for OpsWorksInstance. See 'opsWorksInstance' --- for a more convenient constructor. -data OpsWorksInstance = - OpsWorksInstance - { _opsWorksInstanceAgentVersion :: Maybe (Val Text) - , _opsWorksInstanceAmiId :: Maybe (Val Text) - , _opsWorksInstanceArchitecture :: Maybe (Val Text) - , _opsWorksInstanceAutoScalingType :: Maybe (Val Text) - , _opsWorksInstanceAvailabilityZone :: Maybe (Val Text) - , _opsWorksInstanceBlockDeviceMappings :: Maybe [OpsWorksInstanceBlockDeviceMapping] - , _opsWorksInstanceEbsOptimized :: Maybe (Val Bool) - , _opsWorksInstanceElasticIps :: Maybe (ValList Text) - , _opsWorksInstanceHostname :: Maybe (Val Text) - , _opsWorksInstanceInstallUpdatesOnBoot :: Maybe (Val Bool) - , _opsWorksInstanceInstanceType :: Val Text - , _opsWorksInstanceLayerIds :: ValList Text - , _opsWorksInstanceOs :: Maybe (Val Text) - , _opsWorksInstanceRootDeviceType :: Maybe (Val Text) - , _opsWorksInstanceSshKeyName :: Maybe (Val Text) - , _opsWorksInstanceStackId :: Val Text - , _opsWorksInstanceSubnetId :: Maybe (Val Text) - , _opsWorksInstanceTenancy :: Maybe (Val Text) - , _opsWorksInstanceTimeBasedAutoScaling :: Maybe OpsWorksInstanceTimeBasedAutoScaling - , _opsWorksInstanceVirtualizationType :: Maybe (Val Text) - , _opsWorksInstanceVolumes :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToResourceProperties OpsWorksInstance where - toResourceProperties OpsWorksInstance{..} = - ResourceProperties - { resourcePropertiesType = "AWS::OpsWorks::Instance" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AgentVersion",) . toJSON) _opsWorksInstanceAgentVersion - , fmap (("AmiId",) . toJSON) _opsWorksInstanceAmiId - , fmap (("Architecture",) . toJSON) _opsWorksInstanceArchitecture - , fmap (("AutoScalingType",) . toJSON) _opsWorksInstanceAutoScalingType - , fmap (("AvailabilityZone",) . toJSON) _opsWorksInstanceAvailabilityZone - , fmap (("BlockDeviceMappings",) . toJSON) _opsWorksInstanceBlockDeviceMappings - , fmap (("EbsOptimized",) . toJSON) _opsWorksInstanceEbsOptimized - , fmap (("ElasticIps",) . toJSON) _opsWorksInstanceElasticIps - , fmap (("Hostname",) . toJSON) _opsWorksInstanceHostname - , fmap (("InstallUpdatesOnBoot",) . toJSON) _opsWorksInstanceInstallUpdatesOnBoot - , (Just . ("InstanceType",) . toJSON) _opsWorksInstanceInstanceType - , (Just . ("LayerIds",) . toJSON) _opsWorksInstanceLayerIds - , fmap (("Os",) . toJSON) _opsWorksInstanceOs - , fmap (("RootDeviceType",) . toJSON) _opsWorksInstanceRootDeviceType - , fmap (("SshKeyName",) . toJSON) _opsWorksInstanceSshKeyName - , (Just . ("StackId",) . toJSON) _opsWorksInstanceStackId - , fmap (("SubnetId",) . toJSON) _opsWorksInstanceSubnetId - , fmap (("Tenancy",) . toJSON) _opsWorksInstanceTenancy - , fmap (("TimeBasedAutoScaling",) . toJSON) _opsWorksInstanceTimeBasedAutoScaling - , fmap (("VirtualizationType",) . toJSON) _opsWorksInstanceVirtualizationType - , fmap (("Volumes",) . toJSON) _opsWorksInstanceVolumes - ] - } - --- | Constructor for 'OpsWorksInstance' containing required fields as --- arguments. -opsWorksInstance - :: Val Text -- ^ 'owiInstanceType' - -> ValList Text -- ^ 'owiLayerIds' - -> Val Text -- ^ 'owiStackId' - -> OpsWorksInstance -opsWorksInstance instanceTypearg layerIdsarg stackIdarg = - OpsWorksInstance - { _opsWorksInstanceAgentVersion = Nothing - , _opsWorksInstanceAmiId = Nothing - , _opsWorksInstanceArchitecture = Nothing - , _opsWorksInstanceAutoScalingType = Nothing - , _opsWorksInstanceAvailabilityZone = Nothing - , _opsWorksInstanceBlockDeviceMappings = Nothing - , _opsWorksInstanceEbsOptimized = Nothing - , _opsWorksInstanceElasticIps = Nothing - , _opsWorksInstanceHostname = Nothing - , _opsWorksInstanceInstallUpdatesOnBoot = Nothing - , _opsWorksInstanceInstanceType = instanceTypearg - , _opsWorksInstanceLayerIds = layerIdsarg - , _opsWorksInstanceOs = Nothing - , _opsWorksInstanceRootDeviceType = Nothing - , _opsWorksInstanceSshKeyName = Nothing - , _opsWorksInstanceStackId = stackIdarg - , _opsWorksInstanceSubnetId = Nothing - , _opsWorksInstanceTenancy = Nothing - , _opsWorksInstanceTimeBasedAutoScaling = Nothing - , _opsWorksInstanceVirtualizationType = Nothing - , _opsWorksInstanceVolumes = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-instance.html#cfn-opsworks-instance-agentversion -owiAgentVersion :: Lens' OpsWorksInstance (Maybe (Val Text)) -owiAgentVersion = lens _opsWorksInstanceAgentVersion (\s a -> s { _opsWorksInstanceAgentVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-instance.html#cfn-opsworks-instance-amiid -owiAmiId :: Lens' OpsWorksInstance (Maybe (Val Text)) -owiAmiId = lens _opsWorksInstanceAmiId (\s a -> s { _opsWorksInstanceAmiId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-instance.html#cfn-opsworks-instance-architecture -owiArchitecture :: Lens' OpsWorksInstance (Maybe (Val Text)) -owiArchitecture = lens _opsWorksInstanceArchitecture (\s a -> s { _opsWorksInstanceArchitecture = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-instance.html#cfn-opsworks-instance-autoscalingtype -owiAutoScalingType :: Lens' OpsWorksInstance (Maybe (Val Text)) -owiAutoScalingType = lens _opsWorksInstanceAutoScalingType (\s a -> s { _opsWorksInstanceAutoScalingType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-instance.html#cfn-opsworks-instance-availabilityzone -owiAvailabilityZone :: Lens' OpsWorksInstance (Maybe (Val Text)) -owiAvailabilityZone = lens _opsWorksInstanceAvailabilityZone (\s a -> s { _opsWorksInstanceAvailabilityZone = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-instance.html#cfn-opsworks-instance-blockdevicemappings -owiBlockDeviceMappings :: Lens' OpsWorksInstance (Maybe [OpsWorksInstanceBlockDeviceMapping]) -owiBlockDeviceMappings = lens _opsWorksInstanceBlockDeviceMappings (\s a -> s { _opsWorksInstanceBlockDeviceMappings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-instance.html#cfn-opsworks-instance-ebsoptimized -owiEbsOptimized :: Lens' OpsWorksInstance (Maybe (Val Bool)) -owiEbsOptimized = lens _opsWorksInstanceEbsOptimized (\s a -> s { _opsWorksInstanceEbsOptimized = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-instance.html#cfn-opsworks-instance-elasticips -owiElasticIps :: Lens' OpsWorksInstance (Maybe (ValList Text)) -owiElasticIps = lens _opsWorksInstanceElasticIps (\s a -> s { _opsWorksInstanceElasticIps = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-instance.html#cfn-opsworks-instance-hostname -owiHostname :: Lens' OpsWorksInstance (Maybe (Val Text)) -owiHostname = lens _opsWorksInstanceHostname (\s a -> s { _opsWorksInstanceHostname = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-instance.html#cfn-opsworks-instance-installupdatesonboot -owiInstallUpdatesOnBoot :: Lens' OpsWorksInstance (Maybe (Val Bool)) -owiInstallUpdatesOnBoot = lens _opsWorksInstanceInstallUpdatesOnBoot (\s a -> s { _opsWorksInstanceInstallUpdatesOnBoot = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-instance.html#cfn-opsworks-instance-instancetype -owiInstanceType :: Lens' OpsWorksInstance (Val Text) -owiInstanceType = lens _opsWorksInstanceInstanceType (\s a -> s { _opsWorksInstanceInstanceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-instance.html#cfn-opsworks-instance-layerids -owiLayerIds :: Lens' OpsWorksInstance (ValList Text) -owiLayerIds = lens _opsWorksInstanceLayerIds (\s a -> s { _opsWorksInstanceLayerIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-instance.html#cfn-opsworks-instance-os -owiOs :: Lens' OpsWorksInstance (Maybe (Val Text)) -owiOs = lens _opsWorksInstanceOs (\s a -> s { _opsWorksInstanceOs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-instance.html#cfn-opsworks-instance-rootdevicetype -owiRootDeviceType :: Lens' OpsWorksInstance (Maybe (Val Text)) -owiRootDeviceType = lens _opsWorksInstanceRootDeviceType (\s a -> s { _opsWorksInstanceRootDeviceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-instance.html#cfn-opsworks-instance-sshkeyname -owiSshKeyName :: Lens' OpsWorksInstance (Maybe (Val Text)) -owiSshKeyName = lens _opsWorksInstanceSshKeyName (\s a -> s { _opsWorksInstanceSshKeyName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-instance.html#cfn-opsworks-instance-stackid -owiStackId :: Lens' OpsWorksInstance (Val Text) -owiStackId = lens _opsWorksInstanceStackId (\s a -> s { _opsWorksInstanceStackId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-instance.html#cfn-opsworks-instance-subnetid -owiSubnetId :: Lens' OpsWorksInstance (Maybe (Val Text)) -owiSubnetId = lens _opsWorksInstanceSubnetId (\s a -> s { _opsWorksInstanceSubnetId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-instance.html#cfn-opsworks-instance-tenancy -owiTenancy :: Lens' OpsWorksInstance (Maybe (Val Text)) -owiTenancy = lens _opsWorksInstanceTenancy (\s a -> s { _opsWorksInstanceTenancy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-instance.html#cfn-opsworks-instance-timebasedautoscaling -owiTimeBasedAutoScaling :: Lens' OpsWorksInstance (Maybe OpsWorksInstanceTimeBasedAutoScaling) -owiTimeBasedAutoScaling = lens _opsWorksInstanceTimeBasedAutoScaling (\s a -> s { _opsWorksInstanceTimeBasedAutoScaling = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-instance.html#cfn-opsworks-instance-virtualizationtype -owiVirtualizationType :: Lens' OpsWorksInstance (Maybe (Val Text)) -owiVirtualizationType = lens _opsWorksInstanceVirtualizationType (\s a -> s { _opsWorksInstanceVirtualizationType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-instance.html#cfn-opsworks-instance-volumes -owiVolumes :: Lens' OpsWorksInstance (Maybe (ValList Text)) -owiVolumes = lens _opsWorksInstanceVolumes (\s a -> s { _opsWorksInstanceVolumes = a }) diff --git a/library-gen/Stratosphere/Resources/OpsWorksLayer.hs b/library-gen/Stratosphere/Resources/OpsWorksLayer.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/OpsWorksLayer.hs +++ /dev/null @@ -1,177 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-layer.html - -module Stratosphere.Resources.OpsWorksLayer where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.OpsWorksLayerRecipes -import Stratosphere.ResourceProperties.OpsWorksLayerLifecycleEventConfiguration -import Stratosphere.ResourceProperties.OpsWorksLayerLoadBasedAutoScaling -import Stratosphere.ResourceProperties.Tag -import Stratosphere.ResourceProperties.OpsWorksLayerVolumeConfiguration - --- | Full data type definition for OpsWorksLayer. See 'opsWorksLayer' for a --- more convenient constructor. -data OpsWorksLayer = - OpsWorksLayer - { _opsWorksLayerAttributes :: Maybe Object - , _opsWorksLayerAutoAssignElasticIps :: Val Bool - , _opsWorksLayerAutoAssignPublicIps :: Val Bool - , _opsWorksLayerCustomInstanceProfileArn :: Maybe (Val Text) - , _opsWorksLayerCustomJson :: Maybe Object - , _opsWorksLayerCustomRecipes :: Maybe OpsWorksLayerRecipes - , _opsWorksLayerCustomSecurityGroupIds :: Maybe (ValList Text) - , _opsWorksLayerEnableAutoHealing :: Val Bool - , _opsWorksLayerInstallUpdatesOnBoot :: Maybe (Val Bool) - , _opsWorksLayerLifecycleEventConfiguration :: Maybe OpsWorksLayerLifecycleEventConfiguration - , _opsWorksLayerLoadBasedAutoScaling :: Maybe OpsWorksLayerLoadBasedAutoScaling - , _opsWorksLayerName :: Val Text - , _opsWorksLayerPackages :: Maybe (ValList Text) - , _opsWorksLayerShortname :: Val Text - , _opsWorksLayerStackId :: Val Text - , _opsWorksLayerTags :: Maybe [Tag] - , _opsWorksLayerType :: Val Text - , _opsWorksLayerUseEbsOptimizedInstances :: Maybe (Val Bool) - , _opsWorksLayerVolumeConfigurations :: Maybe [OpsWorksLayerVolumeConfiguration] - } deriving (Show, Eq) - -instance ToResourceProperties OpsWorksLayer where - toResourceProperties OpsWorksLayer{..} = - ResourceProperties - { resourcePropertiesType = "AWS::OpsWorks::Layer" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Attributes",) . toJSON) _opsWorksLayerAttributes - , (Just . ("AutoAssignElasticIps",) . toJSON) _opsWorksLayerAutoAssignElasticIps - , (Just . ("AutoAssignPublicIps",) . toJSON) _opsWorksLayerAutoAssignPublicIps - , fmap (("CustomInstanceProfileArn",) . toJSON) _opsWorksLayerCustomInstanceProfileArn - , fmap (("CustomJson",) . toJSON) _opsWorksLayerCustomJson - , fmap (("CustomRecipes",) . toJSON) _opsWorksLayerCustomRecipes - , fmap (("CustomSecurityGroupIds",) . toJSON) _opsWorksLayerCustomSecurityGroupIds - , (Just . ("EnableAutoHealing",) . toJSON) _opsWorksLayerEnableAutoHealing - , fmap (("InstallUpdatesOnBoot",) . toJSON) _opsWorksLayerInstallUpdatesOnBoot - , fmap (("LifecycleEventConfiguration",) . toJSON) _opsWorksLayerLifecycleEventConfiguration - , fmap (("LoadBasedAutoScaling",) . toJSON) _opsWorksLayerLoadBasedAutoScaling - , (Just . ("Name",) . toJSON) _opsWorksLayerName - , fmap (("Packages",) . toJSON) _opsWorksLayerPackages - , (Just . ("Shortname",) . toJSON) _opsWorksLayerShortname - , (Just . ("StackId",) . toJSON) _opsWorksLayerStackId - , fmap (("Tags",) . toJSON) _opsWorksLayerTags - , (Just . ("Type",) . toJSON) _opsWorksLayerType - , fmap (("UseEbsOptimizedInstances",) . toJSON) _opsWorksLayerUseEbsOptimizedInstances - , fmap (("VolumeConfigurations",) . toJSON) _opsWorksLayerVolumeConfigurations - ] - } - --- | Constructor for 'OpsWorksLayer' containing required fields as arguments. -opsWorksLayer - :: Val Bool -- ^ 'owlAutoAssignElasticIps' - -> Val Bool -- ^ 'owlAutoAssignPublicIps' - -> Val Bool -- ^ 'owlEnableAutoHealing' - -> Val Text -- ^ 'owlName' - -> Val Text -- ^ 'owlShortname' - -> Val Text -- ^ 'owlStackId' - -> Val Text -- ^ 'owlType' - -> OpsWorksLayer -opsWorksLayer autoAssignElasticIpsarg autoAssignPublicIpsarg enableAutoHealingarg namearg shortnamearg stackIdarg typearg = - OpsWorksLayer - { _opsWorksLayerAttributes = Nothing - , _opsWorksLayerAutoAssignElasticIps = autoAssignElasticIpsarg - , _opsWorksLayerAutoAssignPublicIps = autoAssignPublicIpsarg - , _opsWorksLayerCustomInstanceProfileArn = Nothing - , _opsWorksLayerCustomJson = Nothing - , _opsWorksLayerCustomRecipes = Nothing - , _opsWorksLayerCustomSecurityGroupIds = Nothing - , _opsWorksLayerEnableAutoHealing = enableAutoHealingarg - , _opsWorksLayerInstallUpdatesOnBoot = Nothing - , _opsWorksLayerLifecycleEventConfiguration = Nothing - , _opsWorksLayerLoadBasedAutoScaling = Nothing - , _opsWorksLayerName = namearg - , _opsWorksLayerPackages = Nothing - , _opsWorksLayerShortname = shortnamearg - , _opsWorksLayerStackId = stackIdarg - , _opsWorksLayerTags = Nothing - , _opsWorksLayerType = typearg - , _opsWorksLayerUseEbsOptimizedInstances = Nothing - , _opsWorksLayerVolumeConfigurations = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-layer.html#cfn-opsworks-layer-attributes -owlAttributes :: Lens' OpsWorksLayer (Maybe Object) -owlAttributes = lens _opsWorksLayerAttributes (\s a -> s { _opsWorksLayerAttributes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-layer.html#cfn-opsworks-layer-autoassignelasticips -owlAutoAssignElasticIps :: Lens' OpsWorksLayer (Val Bool) -owlAutoAssignElasticIps = lens _opsWorksLayerAutoAssignElasticIps (\s a -> s { _opsWorksLayerAutoAssignElasticIps = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-layer.html#cfn-opsworks-layer-autoassignpublicips -owlAutoAssignPublicIps :: Lens' OpsWorksLayer (Val Bool) -owlAutoAssignPublicIps = lens _opsWorksLayerAutoAssignPublicIps (\s a -> s { _opsWorksLayerAutoAssignPublicIps = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-layer.html#cfn-opsworks-layer-custominstanceprofilearn -owlCustomInstanceProfileArn :: Lens' OpsWorksLayer (Maybe (Val Text)) -owlCustomInstanceProfileArn = lens _opsWorksLayerCustomInstanceProfileArn (\s a -> s { _opsWorksLayerCustomInstanceProfileArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-layer.html#cfn-opsworks-layer-customjson -owlCustomJson :: Lens' OpsWorksLayer (Maybe Object) -owlCustomJson = lens _opsWorksLayerCustomJson (\s a -> s { _opsWorksLayerCustomJson = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-layer.html#cfn-opsworks-layer-customrecipes -owlCustomRecipes :: Lens' OpsWorksLayer (Maybe OpsWorksLayerRecipes) -owlCustomRecipes = lens _opsWorksLayerCustomRecipes (\s a -> s { _opsWorksLayerCustomRecipes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-layer.html#cfn-opsworks-layer-customsecuritygroupids -owlCustomSecurityGroupIds :: Lens' OpsWorksLayer (Maybe (ValList Text)) -owlCustomSecurityGroupIds = lens _opsWorksLayerCustomSecurityGroupIds (\s a -> s { _opsWorksLayerCustomSecurityGroupIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-layer.html#cfn-opsworks-layer-enableautohealing -owlEnableAutoHealing :: Lens' OpsWorksLayer (Val Bool) -owlEnableAutoHealing = lens _opsWorksLayerEnableAutoHealing (\s a -> s { _opsWorksLayerEnableAutoHealing = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-layer.html#cfn-opsworks-layer-installupdatesonboot -owlInstallUpdatesOnBoot :: Lens' OpsWorksLayer (Maybe (Val Bool)) -owlInstallUpdatesOnBoot = lens _opsWorksLayerInstallUpdatesOnBoot (\s a -> s { _opsWorksLayerInstallUpdatesOnBoot = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-layer.html#cfn-opsworks-layer-lifecycleeventconfiguration -owlLifecycleEventConfiguration :: Lens' OpsWorksLayer (Maybe OpsWorksLayerLifecycleEventConfiguration) -owlLifecycleEventConfiguration = lens _opsWorksLayerLifecycleEventConfiguration (\s a -> s { _opsWorksLayerLifecycleEventConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-layer.html#cfn-opsworks-layer-loadbasedautoscaling -owlLoadBasedAutoScaling :: Lens' OpsWorksLayer (Maybe OpsWorksLayerLoadBasedAutoScaling) -owlLoadBasedAutoScaling = lens _opsWorksLayerLoadBasedAutoScaling (\s a -> s { _opsWorksLayerLoadBasedAutoScaling = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-layer.html#cfn-opsworks-layer-name -owlName :: Lens' OpsWorksLayer (Val Text) -owlName = lens _opsWorksLayerName (\s a -> s { _opsWorksLayerName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-layer.html#cfn-opsworks-layer-packages -owlPackages :: Lens' OpsWorksLayer (Maybe (ValList Text)) -owlPackages = lens _opsWorksLayerPackages (\s a -> s { _opsWorksLayerPackages = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-layer.html#cfn-opsworks-layer-shortname -owlShortname :: Lens' OpsWorksLayer (Val Text) -owlShortname = lens _opsWorksLayerShortname (\s a -> s { _opsWorksLayerShortname = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-layer.html#cfn-opsworks-layer-stackid -owlStackId :: Lens' OpsWorksLayer (Val Text) -owlStackId = lens _opsWorksLayerStackId (\s a -> s { _opsWorksLayerStackId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-layer.html#cfn-opsworks-layer-tags -owlTags :: Lens' OpsWorksLayer (Maybe [Tag]) -owlTags = lens _opsWorksLayerTags (\s a -> s { _opsWorksLayerTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-layer.html#cfn-opsworks-layer-type -owlType :: Lens' OpsWorksLayer (Val Text) -owlType = lens _opsWorksLayerType (\s a -> s { _opsWorksLayerType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-layer.html#cfn-opsworks-layer-useebsoptimizedinstances -owlUseEbsOptimizedInstances :: Lens' OpsWorksLayer (Maybe (Val Bool)) -owlUseEbsOptimizedInstances = lens _opsWorksLayerUseEbsOptimizedInstances (\s a -> s { _opsWorksLayerUseEbsOptimizedInstances = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-layer.html#cfn-opsworks-layer-volumeconfigurations -owlVolumeConfigurations :: Lens' OpsWorksLayer (Maybe [OpsWorksLayerVolumeConfiguration]) -owlVolumeConfigurations = lens _opsWorksLayerVolumeConfigurations (\s a -> s { _opsWorksLayerVolumeConfigurations = a }) diff --git a/library-gen/Stratosphere/Resources/OpsWorksStack.hs b/library-gen/Stratosphere/Resources/OpsWorksStack.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/OpsWorksStack.hs +++ /dev/null @@ -1,216 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-stack.html - -module Stratosphere.Resources.OpsWorksStack where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.OpsWorksStackChefConfiguration -import Stratosphere.ResourceProperties.OpsWorksStackStackConfigurationManager -import Stratosphere.ResourceProperties.OpsWorksStackSource -import Stratosphere.ResourceProperties.OpsWorksStackElasticIp -import Stratosphere.ResourceProperties.OpsWorksStackRdsDbInstance -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for OpsWorksStack. See 'opsWorksStack' for a --- more convenient constructor. -data OpsWorksStack = - OpsWorksStack - { _opsWorksStackAgentVersion :: Maybe (Val Text) - , _opsWorksStackAttributes :: Maybe Object - , _opsWorksStackChefConfiguration :: Maybe OpsWorksStackChefConfiguration - , _opsWorksStackCloneAppIds :: Maybe (ValList Text) - , _opsWorksStackClonePermissions :: Maybe (Val Bool) - , _opsWorksStackConfigurationManager :: Maybe OpsWorksStackStackConfigurationManager - , _opsWorksStackCustomCookbooksSource :: Maybe OpsWorksStackSource - , _opsWorksStackCustomJson :: Maybe Object - , _opsWorksStackDefaultAvailabilityZone :: Maybe (Val Text) - , _opsWorksStackDefaultInstanceProfileArn :: Val Text - , _opsWorksStackDefaultOs :: Maybe (Val Text) - , _opsWorksStackDefaultRootDeviceType :: Maybe (Val Text) - , _opsWorksStackDefaultSshKeyName :: Maybe (Val Text) - , _opsWorksStackDefaultSubnetId :: Maybe (Val Text) - , _opsWorksStackEcsClusterArn :: Maybe (Val Text) - , _opsWorksStackElasticIps :: Maybe [OpsWorksStackElasticIp] - , _opsWorksStackHostnameTheme :: Maybe (Val Text) - , _opsWorksStackName :: Val Text - , _opsWorksStackRdsDbInstances :: Maybe [OpsWorksStackRdsDbInstance] - , _opsWorksStackServiceRoleArn :: Val Text - , _opsWorksStackSourceStackId :: Maybe (Val Text) - , _opsWorksStackTags :: Maybe [Tag] - , _opsWorksStackUseCustomCookbooks :: Maybe (Val Bool) - , _opsWorksStackUseOpsworksSecurityGroups :: Maybe (Val Bool) - , _opsWorksStackVpcId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties OpsWorksStack where - toResourceProperties OpsWorksStack{..} = - ResourceProperties - { resourcePropertiesType = "AWS::OpsWorks::Stack" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AgentVersion",) . toJSON) _opsWorksStackAgentVersion - , fmap (("Attributes",) . toJSON) _opsWorksStackAttributes - , fmap (("ChefConfiguration",) . toJSON) _opsWorksStackChefConfiguration - , fmap (("CloneAppIds",) . toJSON) _opsWorksStackCloneAppIds - , fmap (("ClonePermissions",) . toJSON) _opsWorksStackClonePermissions - , fmap (("ConfigurationManager",) . toJSON) _opsWorksStackConfigurationManager - , fmap (("CustomCookbooksSource",) . toJSON) _opsWorksStackCustomCookbooksSource - , fmap (("CustomJson",) . toJSON) _opsWorksStackCustomJson - , fmap (("DefaultAvailabilityZone",) . toJSON) _opsWorksStackDefaultAvailabilityZone - , (Just . ("DefaultInstanceProfileArn",) . toJSON) _opsWorksStackDefaultInstanceProfileArn - , fmap (("DefaultOs",) . toJSON) _opsWorksStackDefaultOs - , fmap (("DefaultRootDeviceType",) . toJSON) _opsWorksStackDefaultRootDeviceType - , fmap (("DefaultSshKeyName",) . toJSON) _opsWorksStackDefaultSshKeyName - , fmap (("DefaultSubnetId",) . toJSON) _opsWorksStackDefaultSubnetId - , fmap (("EcsClusterArn",) . toJSON) _opsWorksStackEcsClusterArn - , fmap (("ElasticIps",) . toJSON) _opsWorksStackElasticIps - , fmap (("HostnameTheme",) . toJSON) _opsWorksStackHostnameTheme - , (Just . ("Name",) . toJSON) _opsWorksStackName - , fmap (("RdsDbInstances",) . toJSON) _opsWorksStackRdsDbInstances - , (Just . ("ServiceRoleArn",) . toJSON) _opsWorksStackServiceRoleArn - , fmap (("SourceStackId",) . toJSON) _opsWorksStackSourceStackId - , fmap (("Tags",) . toJSON) _opsWorksStackTags - , fmap (("UseCustomCookbooks",) . toJSON) _opsWorksStackUseCustomCookbooks - , fmap (("UseOpsworksSecurityGroups",) . toJSON) _opsWorksStackUseOpsworksSecurityGroups - , fmap (("VpcId",) . toJSON) _opsWorksStackVpcId - ] - } - --- | Constructor for 'OpsWorksStack' containing required fields as arguments. -opsWorksStack - :: Val Text -- ^ 'owsDefaultInstanceProfileArn' - -> Val Text -- ^ 'owsName' - -> Val Text -- ^ 'owsServiceRoleArn' - -> OpsWorksStack -opsWorksStack defaultInstanceProfileArnarg namearg serviceRoleArnarg = - OpsWorksStack - { _opsWorksStackAgentVersion = Nothing - , _opsWorksStackAttributes = Nothing - , _opsWorksStackChefConfiguration = Nothing - , _opsWorksStackCloneAppIds = Nothing - , _opsWorksStackClonePermissions = Nothing - , _opsWorksStackConfigurationManager = Nothing - , _opsWorksStackCustomCookbooksSource = Nothing - , _opsWorksStackCustomJson = Nothing - , _opsWorksStackDefaultAvailabilityZone = Nothing - , _opsWorksStackDefaultInstanceProfileArn = defaultInstanceProfileArnarg - , _opsWorksStackDefaultOs = Nothing - , _opsWorksStackDefaultRootDeviceType = Nothing - , _opsWorksStackDefaultSshKeyName = Nothing - , _opsWorksStackDefaultSubnetId = Nothing - , _opsWorksStackEcsClusterArn = Nothing - , _opsWorksStackElasticIps = Nothing - , _opsWorksStackHostnameTheme = Nothing - , _opsWorksStackName = namearg - , _opsWorksStackRdsDbInstances = Nothing - , _opsWorksStackServiceRoleArn = serviceRoleArnarg - , _opsWorksStackSourceStackId = Nothing - , _opsWorksStackTags = Nothing - , _opsWorksStackUseCustomCookbooks = Nothing - , _opsWorksStackUseOpsworksSecurityGroups = Nothing - , _opsWorksStackVpcId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-stack.html#cfn-opsworks-stack-agentversion -owsAgentVersion :: Lens' OpsWorksStack (Maybe (Val Text)) -owsAgentVersion = lens _opsWorksStackAgentVersion (\s a -> s { _opsWorksStackAgentVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-stack.html#cfn-opsworks-stack-attributes -owsAttributes :: Lens' OpsWorksStack (Maybe Object) -owsAttributes = lens _opsWorksStackAttributes (\s a -> s { _opsWorksStackAttributes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-stack.html#cfn-opsworks-stack-chefconfiguration -owsChefConfiguration :: Lens' OpsWorksStack (Maybe OpsWorksStackChefConfiguration) -owsChefConfiguration = lens _opsWorksStackChefConfiguration (\s a -> s { _opsWorksStackChefConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-stack.html#cfn-opsworks-stack-cloneappids -owsCloneAppIds :: Lens' OpsWorksStack (Maybe (ValList Text)) -owsCloneAppIds = lens _opsWorksStackCloneAppIds (\s a -> s { _opsWorksStackCloneAppIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-stack.html#cfn-opsworks-stack-clonepermissions -owsClonePermissions :: Lens' OpsWorksStack (Maybe (Val Bool)) -owsClonePermissions = lens _opsWorksStackClonePermissions (\s a -> s { _opsWorksStackClonePermissions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-stack.html#cfn-opsworks-stack-configmanager -owsConfigurationManager :: Lens' OpsWorksStack (Maybe OpsWorksStackStackConfigurationManager) -owsConfigurationManager = lens _opsWorksStackConfigurationManager (\s a -> s { _opsWorksStackConfigurationManager = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-stack.html#cfn-opsworks-stack-custcookbooksource -owsCustomCookbooksSource :: Lens' OpsWorksStack (Maybe OpsWorksStackSource) -owsCustomCookbooksSource = lens _opsWorksStackCustomCookbooksSource (\s a -> s { _opsWorksStackCustomCookbooksSource = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-stack.html#cfn-opsworks-stack-custjson -owsCustomJson :: Lens' OpsWorksStack (Maybe Object) -owsCustomJson = lens _opsWorksStackCustomJson (\s a -> s { _opsWorksStackCustomJson = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-stack.html#cfn-opsworks-stack-defaultaz -owsDefaultAvailabilityZone :: Lens' OpsWorksStack (Maybe (Val Text)) -owsDefaultAvailabilityZone = lens _opsWorksStackDefaultAvailabilityZone (\s a -> s { _opsWorksStackDefaultAvailabilityZone = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-stack.html#cfn-opsworks-stack-defaultinstanceprof -owsDefaultInstanceProfileArn :: Lens' OpsWorksStack (Val Text) -owsDefaultInstanceProfileArn = lens _opsWorksStackDefaultInstanceProfileArn (\s a -> s { _opsWorksStackDefaultInstanceProfileArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-stack.html#cfn-opsworks-stack-defaultos -owsDefaultOs :: Lens' OpsWorksStack (Maybe (Val Text)) -owsDefaultOs = lens _opsWorksStackDefaultOs (\s a -> s { _opsWorksStackDefaultOs = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-stack.html#cfn-opsworks-stack-defaultrootdevicetype -owsDefaultRootDeviceType :: Lens' OpsWorksStack (Maybe (Val Text)) -owsDefaultRootDeviceType = lens _opsWorksStackDefaultRootDeviceType (\s a -> s { _opsWorksStackDefaultRootDeviceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-stack.html#cfn-opsworks-stack-defaultsshkeyname -owsDefaultSshKeyName :: Lens' OpsWorksStack (Maybe (Val Text)) -owsDefaultSshKeyName = lens _opsWorksStackDefaultSshKeyName (\s a -> s { _opsWorksStackDefaultSshKeyName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-stack.html#defaultsubnet -owsDefaultSubnetId :: Lens' OpsWorksStack (Maybe (Val Text)) -owsDefaultSubnetId = lens _opsWorksStackDefaultSubnetId (\s a -> s { _opsWorksStackDefaultSubnetId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-stack.html#cfn-opsworks-stack-ecsclusterarn -owsEcsClusterArn :: Lens' OpsWorksStack (Maybe (Val Text)) -owsEcsClusterArn = lens _opsWorksStackEcsClusterArn (\s a -> s { _opsWorksStackEcsClusterArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-stack.html#cfn-opsworks-stack-elasticips -owsElasticIps :: Lens' OpsWorksStack (Maybe [OpsWorksStackElasticIp]) -owsElasticIps = lens _opsWorksStackElasticIps (\s a -> s { _opsWorksStackElasticIps = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-stack.html#cfn-opsworks-stack-hostnametheme -owsHostnameTheme :: Lens' OpsWorksStack (Maybe (Val Text)) -owsHostnameTheme = lens _opsWorksStackHostnameTheme (\s a -> s { _opsWorksStackHostnameTheme = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-stack.html#cfn-opsworks-stack-name -owsName :: Lens' OpsWorksStack (Val Text) -owsName = lens _opsWorksStackName (\s a -> s { _opsWorksStackName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-stack.html#cfn-opsworks-stack-rdsdbinstances -owsRdsDbInstances :: Lens' OpsWorksStack (Maybe [OpsWorksStackRdsDbInstance]) -owsRdsDbInstances = lens _opsWorksStackRdsDbInstances (\s a -> s { _opsWorksStackRdsDbInstances = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-stack.html#cfn-opsworks-stack-servicerolearn -owsServiceRoleArn :: Lens' OpsWorksStack (Val Text) -owsServiceRoleArn = lens _opsWorksStackServiceRoleArn (\s a -> s { _opsWorksStackServiceRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-stack.html#cfn-opsworks-stack-sourcestackid -owsSourceStackId :: Lens' OpsWorksStack (Maybe (Val Text)) -owsSourceStackId = lens _opsWorksStackSourceStackId (\s a -> s { _opsWorksStackSourceStackId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-stack.html#cfn-opsworks-stack-tags -owsTags :: Lens' OpsWorksStack (Maybe [Tag]) -owsTags = lens _opsWorksStackTags (\s a -> s { _opsWorksStackTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-stack.html#usecustcookbooks -owsUseCustomCookbooks :: Lens' OpsWorksStack (Maybe (Val Bool)) -owsUseCustomCookbooks = lens _opsWorksStackUseCustomCookbooks (\s a -> s { _opsWorksStackUseCustomCookbooks = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-stack.html#cfn-opsworks-stack-useopsworkssecuritygroups -owsUseOpsworksSecurityGroups :: Lens' OpsWorksStack (Maybe (Val Bool)) -owsUseOpsworksSecurityGroups = lens _opsWorksStackUseOpsworksSecurityGroups (\s a -> s { _opsWorksStackUseOpsworksSecurityGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-stack.html#cfn-opsworks-stack-vpcid -owsVpcId :: Lens' OpsWorksStack (Maybe (Val Text)) -owsVpcId = lens _opsWorksStackVpcId (\s a -> s { _opsWorksStackVpcId = a }) diff --git a/library-gen/Stratosphere/Resources/OpsWorksUserProfile.hs b/library-gen/Stratosphere/Resources/OpsWorksUserProfile.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/OpsWorksUserProfile.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-userprofile.html - -module Stratosphere.Resources.OpsWorksUserProfile where - -import Stratosphere.ResourceImports - - --- | Full data type definition for OpsWorksUserProfile. See --- 'opsWorksUserProfile' for a more convenient constructor. -data OpsWorksUserProfile = - OpsWorksUserProfile - { _opsWorksUserProfileAllowSelfManagement :: Maybe (Val Bool) - , _opsWorksUserProfileIamUserArn :: Val Text - , _opsWorksUserProfileSshPublicKey :: Maybe (Val Text) - , _opsWorksUserProfileSshUsername :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties OpsWorksUserProfile where - toResourceProperties OpsWorksUserProfile{..} = - ResourceProperties - { resourcePropertiesType = "AWS::OpsWorks::UserProfile" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AllowSelfManagement",) . toJSON) _opsWorksUserProfileAllowSelfManagement - , (Just . ("IamUserArn",) . toJSON) _opsWorksUserProfileIamUserArn - , fmap (("SshPublicKey",) . toJSON) _opsWorksUserProfileSshPublicKey - , fmap (("SshUsername",) . toJSON) _opsWorksUserProfileSshUsername - ] - } - --- | Constructor for 'OpsWorksUserProfile' containing required fields as --- arguments. -opsWorksUserProfile - :: Val Text -- ^ 'owupIamUserArn' - -> OpsWorksUserProfile -opsWorksUserProfile iamUserArnarg = - OpsWorksUserProfile - { _opsWorksUserProfileAllowSelfManagement = Nothing - , _opsWorksUserProfileIamUserArn = iamUserArnarg - , _opsWorksUserProfileSshPublicKey = Nothing - , _opsWorksUserProfileSshUsername = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-userprofile.html#cfn-opsworks-userprofile-allowselfmanagement -owupAllowSelfManagement :: Lens' OpsWorksUserProfile (Maybe (Val Bool)) -owupAllowSelfManagement = lens _opsWorksUserProfileAllowSelfManagement (\s a -> s { _opsWorksUserProfileAllowSelfManagement = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-userprofile.html#cfn-opsworks-userprofile-iamuserarn -owupIamUserArn :: Lens' OpsWorksUserProfile (Val Text) -owupIamUserArn = lens _opsWorksUserProfileIamUserArn (\s a -> s { _opsWorksUserProfileIamUserArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-userprofile.html#cfn-opsworks-userprofile-sshpublickey -owupSshPublicKey :: Lens' OpsWorksUserProfile (Maybe (Val Text)) -owupSshPublicKey = lens _opsWorksUserProfileSshPublicKey (\s a -> s { _opsWorksUserProfileSshPublicKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-userprofile.html#cfn-opsworks-userprofile-sshusername -owupSshUsername :: Lens' OpsWorksUserProfile (Maybe (Val Text)) -owupSshUsername = lens _opsWorksUserProfileSshUsername (\s a -> s { _opsWorksUserProfileSshUsername = a }) diff --git a/library-gen/Stratosphere/Resources/OpsWorksVolume.hs b/library-gen/Stratosphere/Resources/OpsWorksVolume.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/OpsWorksVolume.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-volume.html - -module Stratosphere.Resources.OpsWorksVolume where - -import Stratosphere.ResourceImports - - --- | Full data type definition for OpsWorksVolume. See 'opsWorksVolume' for a --- more convenient constructor. -data OpsWorksVolume = - OpsWorksVolume - { _opsWorksVolumeEc2VolumeId :: Val Text - , _opsWorksVolumeMountPoint :: Maybe (Val Text) - , _opsWorksVolumeName :: Maybe (Val Text) - , _opsWorksVolumeStackId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties OpsWorksVolume where - toResourceProperties OpsWorksVolume{..} = - ResourceProperties - { resourcePropertiesType = "AWS::OpsWorks::Volume" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Ec2VolumeId",) . toJSON) _opsWorksVolumeEc2VolumeId - , fmap (("MountPoint",) . toJSON) _opsWorksVolumeMountPoint - , fmap (("Name",) . toJSON) _opsWorksVolumeName - , (Just . ("StackId",) . toJSON) _opsWorksVolumeStackId - ] - } - --- | Constructor for 'OpsWorksVolume' containing required fields as arguments. -opsWorksVolume - :: Val Text -- ^ 'owvEc2VolumeId' - -> Val Text -- ^ 'owvStackId' - -> OpsWorksVolume -opsWorksVolume ec2VolumeIdarg stackIdarg = - OpsWorksVolume - { _opsWorksVolumeEc2VolumeId = ec2VolumeIdarg - , _opsWorksVolumeMountPoint = Nothing - , _opsWorksVolumeName = Nothing - , _opsWorksVolumeStackId = stackIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-volume.html#cfn-opsworks-volume-ec2volumeid -owvEc2VolumeId :: Lens' OpsWorksVolume (Val Text) -owvEc2VolumeId = lens _opsWorksVolumeEc2VolumeId (\s a -> s { _opsWorksVolumeEc2VolumeId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-volume.html#cfn-opsworks-volume-mountpoint -owvMountPoint :: Lens' OpsWorksVolume (Maybe (Val Text)) -owvMountPoint = lens _opsWorksVolumeMountPoint (\s a -> s { _opsWorksVolumeMountPoint = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-volume.html#cfn-opsworks-volume-name -owvName :: Lens' OpsWorksVolume (Maybe (Val Text)) -owvName = lens _opsWorksVolumeName (\s a -> s { _opsWorksVolumeName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-opsworks-volume.html#cfn-opsworks-volume-stackid -owvStackId :: Lens' OpsWorksVolume (Val Text) -owvStackId = lens _opsWorksVolumeStackId (\s a -> s { _opsWorksVolumeStackId = a }) diff --git a/library-gen/Stratosphere/Resources/PinpointADMChannel.hs b/library-gen/Stratosphere/Resources/PinpointADMChannel.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/PinpointADMChannel.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-admchannel.html - -module Stratosphere.Resources.PinpointADMChannel where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointADMChannel. See --- 'pinpointADMChannel' for a more convenient constructor. -data PinpointADMChannel = - PinpointADMChannel - { _pinpointADMChannelApplicationId :: Val Text - , _pinpointADMChannelClientId :: Val Text - , _pinpointADMChannelClientSecret :: Val Text - , _pinpointADMChannelEnabled :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToResourceProperties PinpointADMChannel where - toResourceProperties PinpointADMChannel{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Pinpoint::ADMChannel" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApplicationId",) . toJSON) _pinpointADMChannelApplicationId - , (Just . ("ClientId",) . toJSON) _pinpointADMChannelClientId - , (Just . ("ClientSecret",) . toJSON) _pinpointADMChannelClientSecret - , fmap (("Enabled",) . toJSON) _pinpointADMChannelEnabled - ] - } - --- | Constructor for 'PinpointADMChannel' containing required fields as --- arguments. -pinpointADMChannel - :: Val Text -- ^ 'padmcApplicationId' - -> Val Text -- ^ 'padmcClientId' - -> Val Text -- ^ 'padmcClientSecret' - -> PinpointADMChannel -pinpointADMChannel applicationIdarg clientIdarg clientSecretarg = - PinpointADMChannel - { _pinpointADMChannelApplicationId = applicationIdarg - , _pinpointADMChannelClientId = clientIdarg - , _pinpointADMChannelClientSecret = clientSecretarg - , _pinpointADMChannelEnabled = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-admchannel.html#cfn-pinpoint-admchannel-applicationid -padmcApplicationId :: Lens' PinpointADMChannel (Val Text) -padmcApplicationId = lens _pinpointADMChannelApplicationId (\s a -> s { _pinpointADMChannelApplicationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-admchannel.html#cfn-pinpoint-admchannel-clientid -padmcClientId :: Lens' PinpointADMChannel (Val Text) -padmcClientId = lens _pinpointADMChannelClientId (\s a -> s { _pinpointADMChannelClientId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-admchannel.html#cfn-pinpoint-admchannel-clientsecret -padmcClientSecret :: Lens' PinpointADMChannel (Val Text) -padmcClientSecret = lens _pinpointADMChannelClientSecret (\s a -> s { _pinpointADMChannelClientSecret = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-admchannel.html#cfn-pinpoint-admchannel-enabled -padmcEnabled :: Lens' PinpointADMChannel (Maybe (Val Bool)) -padmcEnabled = lens _pinpointADMChannelEnabled (\s a -> s { _pinpointADMChannelEnabled = a }) diff --git a/library-gen/Stratosphere/Resources/PinpointAPNSChannel.hs b/library-gen/Stratosphere/Resources/PinpointAPNSChannel.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/PinpointAPNSChannel.hs +++ /dev/null @@ -1,98 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnschannel.html - -module Stratosphere.Resources.PinpointAPNSChannel where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointAPNSChannel. See --- 'pinpointAPNSChannel' for a more convenient constructor. -data PinpointAPNSChannel = - PinpointAPNSChannel - { _pinpointAPNSChannelApplicationId :: Val Text - , _pinpointAPNSChannelBundleId :: Maybe (Val Text) - , _pinpointAPNSChannelCertificate :: Maybe (Val Text) - , _pinpointAPNSChannelDefaultAuthenticationMethod :: Maybe (Val Text) - , _pinpointAPNSChannelEnabled :: Maybe (Val Bool) - , _pinpointAPNSChannelPrivateKey :: Maybe (Val Text) - , _pinpointAPNSChannelTeamId :: Maybe (Val Text) - , _pinpointAPNSChannelTokenKey :: Maybe (Val Text) - , _pinpointAPNSChannelTokenKeyId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties PinpointAPNSChannel where - toResourceProperties PinpointAPNSChannel{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Pinpoint::APNSChannel" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApplicationId",) . toJSON) _pinpointAPNSChannelApplicationId - , fmap (("BundleId",) . toJSON) _pinpointAPNSChannelBundleId - , fmap (("Certificate",) . toJSON) _pinpointAPNSChannelCertificate - , fmap (("DefaultAuthenticationMethod",) . toJSON) _pinpointAPNSChannelDefaultAuthenticationMethod - , fmap (("Enabled",) . toJSON) _pinpointAPNSChannelEnabled - , fmap (("PrivateKey",) . toJSON) _pinpointAPNSChannelPrivateKey - , fmap (("TeamId",) . toJSON) _pinpointAPNSChannelTeamId - , fmap (("TokenKey",) . toJSON) _pinpointAPNSChannelTokenKey - , fmap (("TokenKeyId",) . toJSON) _pinpointAPNSChannelTokenKeyId - ] - } - --- | Constructor for 'PinpointAPNSChannel' containing required fields as --- arguments. -pinpointAPNSChannel - :: Val Text -- ^ 'papnscApplicationId' - -> PinpointAPNSChannel -pinpointAPNSChannel applicationIdarg = - PinpointAPNSChannel - { _pinpointAPNSChannelApplicationId = applicationIdarg - , _pinpointAPNSChannelBundleId = Nothing - , _pinpointAPNSChannelCertificate = Nothing - , _pinpointAPNSChannelDefaultAuthenticationMethod = Nothing - , _pinpointAPNSChannelEnabled = Nothing - , _pinpointAPNSChannelPrivateKey = Nothing - , _pinpointAPNSChannelTeamId = Nothing - , _pinpointAPNSChannelTokenKey = Nothing - , _pinpointAPNSChannelTokenKeyId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnschannel.html#cfn-pinpoint-apnschannel-applicationid -papnscApplicationId :: Lens' PinpointAPNSChannel (Val Text) -papnscApplicationId = lens _pinpointAPNSChannelApplicationId (\s a -> s { _pinpointAPNSChannelApplicationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnschannel.html#cfn-pinpoint-apnschannel-bundleid -papnscBundleId :: Lens' PinpointAPNSChannel (Maybe (Val Text)) -papnscBundleId = lens _pinpointAPNSChannelBundleId (\s a -> s { _pinpointAPNSChannelBundleId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnschannel.html#cfn-pinpoint-apnschannel-certificate -papnscCertificate :: Lens' PinpointAPNSChannel (Maybe (Val Text)) -papnscCertificate = lens _pinpointAPNSChannelCertificate (\s a -> s { _pinpointAPNSChannelCertificate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnschannel.html#cfn-pinpoint-apnschannel-defaultauthenticationmethod -papnscDefaultAuthenticationMethod :: Lens' PinpointAPNSChannel (Maybe (Val Text)) -papnscDefaultAuthenticationMethod = lens _pinpointAPNSChannelDefaultAuthenticationMethod (\s a -> s { _pinpointAPNSChannelDefaultAuthenticationMethod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnschannel.html#cfn-pinpoint-apnschannel-enabled -papnscEnabled :: Lens' PinpointAPNSChannel (Maybe (Val Bool)) -papnscEnabled = lens _pinpointAPNSChannelEnabled (\s a -> s { _pinpointAPNSChannelEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnschannel.html#cfn-pinpoint-apnschannel-privatekey -papnscPrivateKey :: Lens' PinpointAPNSChannel (Maybe (Val Text)) -papnscPrivateKey = lens _pinpointAPNSChannelPrivateKey (\s a -> s { _pinpointAPNSChannelPrivateKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnschannel.html#cfn-pinpoint-apnschannel-teamid -papnscTeamId :: Lens' PinpointAPNSChannel (Maybe (Val Text)) -papnscTeamId = lens _pinpointAPNSChannelTeamId (\s a -> s { _pinpointAPNSChannelTeamId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnschannel.html#cfn-pinpoint-apnschannel-tokenkey -papnscTokenKey :: Lens' PinpointAPNSChannel (Maybe (Val Text)) -papnscTokenKey = lens _pinpointAPNSChannelTokenKey (\s a -> s { _pinpointAPNSChannelTokenKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnschannel.html#cfn-pinpoint-apnschannel-tokenkeyid -papnscTokenKeyId :: Lens' PinpointAPNSChannel (Maybe (Val Text)) -papnscTokenKeyId = lens _pinpointAPNSChannelTokenKeyId (\s a -> s { _pinpointAPNSChannelTokenKeyId = a }) diff --git a/library-gen/Stratosphere/Resources/PinpointAPNSSandboxChannel.hs b/library-gen/Stratosphere/Resources/PinpointAPNSSandboxChannel.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/PinpointAPNSSandboxChannel.hs +++ /dev/null @@ -1,98 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnssandboxchannel.html - -module Stratosphere.Resources.PinpointAPNSSandboxChannel where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointAPNSSandboxChannel. See --- 'pinpointAPNSSandboxChannel' for a more convenient constructor. -data PinpointAPNSSandboxChannel = - PinpointAPNSSandboxChannel - { _pinpointAPNSSandboxChannelApplicationId :: Val Text - , _pinpointAPNSSandboxChannelBundleId :: Maybe (Val Text) - , _pinpointAPNSSandboxChannelCertificate :: Maybe (Val Text) - , _pinpointAPNSSandboxChannelDefaultAuthenticationMethod :: Maybe (Val Text) - , _pinpointAPNSSandboxChannelEnabled :: Maybe (Val Bool) - , _pinpointAPNSSandboxChannelPrivateKey :: Maybe (Val Text) - , _pinpointAPNSSandboxChannelTeamId :: Maybe (Val Text) - , _pinpointAPNSSandboxChannelTokenKey :: Maybe (Val Text) - , _pinpointAPNSSandboxChannelTokenKeyId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties PinpointAPNSSandboxChannel where - toResourceProperties PinpointAPNSSandboxChannel{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Pinpoint::APNSSandboxChannel" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApplicationId",) . toJSON) _pinpointAPNSSandboxChannelApplicationId - , fmap (("BundleId",) . toJSON) _pinpointAPNSSandboxChannelBundleId - , fmap (("Certificate",) . toJSON) _pinpointAPNSSandboxChannelCertificate - , fmap (("DefaultAuthenticationMethod",) . toJSON) _pinpointAPNSSandboxChannelDefaultAuthenticationMethod - , fmap (("Enabled",) . toJSON) _pinpointAPNSSandboxChannelEnabled - , fmap (("PrivateKey",) . toJSON) _pinpointAPNSSandboxChannelPrivateKey - , fmap (("TeamId",) . toJSON) _pinpointAPNSSandboxChannelTeamId - , fmap (("TokenKey",) . toJSON) _pinpointAPNSSandboxChannelTokenKey - , fmap (("TokenKeyId",) . toJSON) _pinpointAPNSSandboxChannelTokenKeyId - ] - } - --- | Constructor for 'PinpointAPNSSandboxChannel' containing required fields --- as arguments. -pinpointAPNSSandboxChannel - :: Val Text -- ^ 'papnsscApplicationId' - -> PinpointAPNSSandboxChannel -pinpointAPNSSandboxChannel applicationIdarg = - PinpointAPNSSandboxChannel - { _pinpointAPNSSandboxChannelApplicationId = applicationIdarg - , _pinpointAPNSSandboxChannelBundleId = Nothing - , _pinpointAPNSSandboxChannelCertificate = Nothing - , _pinpointAPNSSandboxChannelDefaultAuthenticationMethod = Nothing - , _pinpointAPNSSandboxChannelEnabled = Nothing - , _pinpointAPNSSandboxChannelPrivateKey = Nothing - , _pinpointAPNSSandboxChannelTeamId = Nothing - , _pinpointAPNSSandboxChannelTokenKey = Nothing - , _pinpointAPNSSandboxChannelTokenKeyId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnssandboxchannel.html#cfn-pinpoint-apnssandboxchannel-applicationid -papnsscApplicationId :: Lens' PinpointAPNSSandboxChannel (Val Text) -papnsscApplicationId = lens _pinpointAPNSSandboxChannelApplicationId (\s a -> s { _pinpointAPNSSandboxChannelApplicationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnssandboxchannel.html#cfn-pinpoint-apnssandboxchannel-bundleid -papnsscBundleId :: Lens' PinpointAPNSSandboxChannel (Maybe (Val Text)) -papnsscBundleId = lens _pinpointAPNSSandboxChannelBundleId (\s a -> s { _pinpointAPNSSandboxChannelBundleId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnssandboxchannel.html#cfn-pinpoint-apnssandboxchannel-certificate -papnsscCertificate :: Lens' PinpointAPNSSandboxChannel (Maybe (Val Text)) -papnsscCertificate = lens _pinpointAPNSSandboxChannelCertificate (\s a -> s { _pinpointAPNSSandboxChannelCertificate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnssandboxchannel.html#cfn-pinpoint-apnssandboxchannel-defaultauthenticationmethod -papnsscDefaultAuthenticationMethod :: Lens' PinpointAPNSSandboxChannel (Maybe (Val Text)) -papnsscDefaultAuthenticationMethod = lens _pinpointAPNSSandboxChannelDefaultAuthenticationMethod (\s a -> s { _pinpointAPNSSandboxChannelDefaultAuthenticationMethod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnssandboxchannel.html#cfn-pinpoint-apnssandboxchannel-enabled -papnsscEnabled :: Lens' PinpointAPNSSandboxChannel (Maybe (Val Bool)) -papnsscEnabled = lens _pinpointAPNSSandboxChannelEnabled (\s a -> s { _pinpointAPNSSandboxChannelEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnssandboxchannel.html#cfn-pinpoint-apnssandboxchannel-privatekey -papnsscPrivateKey :: Lens' PinpointAPNSSandboxChannel (Maybe (Val Text)) -papnsscPrivateKey = lens _pinpointAPNSSandboxChannelPrivateKey (\s a -> s { _pinpointAPNSSandboxChannelPrivateKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnssandboxchannel.html#cfn-pinpoint-apnssandboxchannel-teamid -papnsscTeamId :: Lens' PinpointAPNSSandboxChannel (Maybe (Val Text)) -papnsscTeamId = lens _pinpointAPNSSandboxChannelTeamId (\s a -> s { _pinpointAPNSSandboxChannelTeamId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnssandboxchannel.html#cfn-pinpoint-apnssandboxchannel-tokenkey -papnsscTokenKey :: Lens' PinpointAPNSSandboxChannel (Maybe (Val Text)) -papnsscTokenKey = lens _pinpointAPNSSandboxChannelTokenKey (\s a -> s { _pinpointAPNSSandboxChannelTokenKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnssandboxchannel.html#cfn-pinpoint-apnssandboxchannel-tokenkeyid -papnsscTokenKeyId :: Lens' PinpointAPNSSandboxChannel (Maybe (Val Text)) -papnsscTokenKeyId = lens _pinpointAPNSSandboxChannelTokenKeyId (\s a -> s { _pinpointAPNSSandboxChannelTokenKeyId = a }) diff --git a/library-gen/Stratosphere/Resources/PinpointAPNSVoipChannel.hs b/library-gen/Stratosphere/Resources/PinpointAPNSVoipChannel.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/PinpointAPNSVoipChannel.hs +++ /dev/null @@ -1,98 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipchannel.html - -module Stratosphere.Resources.PinpointAPNSVoipChannel where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointAPNSVoipChannel. See --- 'pinpointAPNSVoipChannel' for a more convenient constructor. -data PinpointAPNSVoipChannel = - PinpointAPNSVoipChannel - { _pinpointAPNSVoipChannelApplicationId :: Val Text - , _pinpointAPNSVoipChannelBundleId :: Maybe (Val Text) - , _pinpointAPNSVoipChannelCertificate :: Maybe (Val Text) - , _pinpointAPNSVoipChannelDefaultAuthenticationMethod :: Maybe (Val Text) - , _pinpointAPNSVoipChannelEnabled :: Maybe (Val Bool) - , _pinpointAPNSVoipChannelPrivateKey :: Maybe (Val Text) - , _pinpointAPNSVoipChannelTeamId :: Maybe (Val Text) - , _pinpointAPNSVoipChannelTokenKey :: Maybe (Val Text) - , _pinpointAPNSVoipChannelTokenKeyId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties PinpointAPNSVoipChannel where - toResourceProperties PinpointAPNSVoipChannel{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Pinpoint::APNSVoipChannel" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApplicationId",) . toJSON) _pinpointAPNSVoipChannelApplicationId - , fmap (("BundleId",) . toJSON) _pinpointAPNSVoipChannelBundleId - , fmap (("Certificate",) . toJSON) _pinpointAPNSVoipChannelCertificate - , fmap (("DefaultAuthenticationMethod",) . toJSON) _pinpointAPNSVoipChannelDefaultAuthenticationMethod - , fmap (("Enabled",) . toJSON) _pinpointAPNSVoipChannelEnabled - , fmap (("PrivateKey",) . toJSON) _pinpointAPNSVoipChannelPrivateKey - , fmap (("TeamId",) . toJSON) _pinpointAPNSVoipChannelTeamId - , fmap (("TokenKey",) . toJSON) _pinpointAPNSVoipChannelTokenKey - , fmap (("TokenKeyId",) . toJSON) _pinpointAPNSVoipChannelTokenKeyId - ] - } - --- | Constructor for 'PinpointAPNSVoipChannel' containing required fields as --- arguments. -pinpointAPNSVoipChannel - :: Val Text -- ^ 'papnsvcApplicationId' - -> PinpointAPNSVoipChannel -pinpointAPNSVoipChannel applicationIdarg = - PinpointAPNSVoipChannel - { _pinpointAPNSVoipChannelApplicationId = applicationIdarg - , _pinpointAPNSVoipChannelBundleId = Nothing - , _pinpointAPNSVoipChannelCertificate = Nothing - , _pinpointAPNSVoipChannelDefaultAuthenticationMethod = Nothing - , _pinpointAPNSVoipChannelEnabled = Nothing - , _pinpointAPNSVoipChannelPrivateKey = Nothing - , _pinpointAPNSVoipChannelTeamId = Nothing - , _pinpointAPNSVoipChannelTokenKey = Nothing - , _pinpointAPNSVoipChannelTokenKeyId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipchannel.html#cfn-pinpoint-apnsvoipchannel-applicationid -papnsvcApplicationId :: Lens' PinpointAPNSVoipChannel (Val Text) -papnsvcApplicationId = lens _pinpointAPNSVoipChannelApplicationId (\s a -> s { _pinpointAPNSVoipChannelApplicationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipchannel.html#cfn-pinpoint-apnsvoipchannel-bundleid -papnsvcBundleId :: Lens' PinpointAPNSVoipChannel (Maybe (Val Text)) -papnsvcBundleId = lens _pinpointAPNSVoipChannelBundleId (\s a -> s { _pinpointAPNSVoipChannelBundleId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipchannel.html#cfn-pinpoint-apnsvoipchannel-certificate -papnsvcCertificate :: Lens' PinpointAPNSVoipChannel (Maybe (Val Text)) -papnsvcCertificate = lens _pinpointAPNSVoipChannelCertificate (\s a -> s { _pinpointAPNSVoipChannelCertificate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipchannel.html#cfn-pinpoint-apnsvoipchannel-defaultauthenticationmethod -papnsvcDefaultAuthenticationMethod :: Lens' PinpointAPNSVoipChannel (Maybe (Val Text)) -papnsvcDefaultAuthenticationMethod = lens _pinpointAPNSVoipChannelDefaultAuthenticationMethod (\s a -> s { _pinpointAPNSVoipChannelDefaultAuthenticationMethod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipchannel.html#cfn-pinpoint-apnsvoipchannel-enabled -papnsvcEnabled :: Lens' PinpointAPNSVoipChannel (Maybe (Val Bool)) -papnsvcEnabled = lens _pinpointAPNSVoipChannelEnabled (\s a -> s { _pinpointAPNSVoipChannelEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipchannel.html#cfn-pinpoint-apnsvoipchannel-privatekey -papnsvcPrivateKey :: Lens' PinpointAPNSVoipChannel (Maybe (Val Text)) -papnsvcPrivateKey = lens _pinpointAPNSVoipChannelPrivateKey (\s a -> s { _pinpointAPNSVoipChannelPrivateKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipchannel.html#cfn-pinpoint-apnsvoipchannel-teamid -papnsvcTeamId :: Lens' PinpointAPNSVoipChannel (Maybe (Val Text)) -papnsvcTeamId = lens _pinpointAPNSVoipChannelTeamId (\s a -> s { _pinpointAPNSVoipChannelTeamId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipchannel.html#cfn-pinpoint-apnsvoipchannel-tokenkey -papnsvcTokenKey :: Lens' PinpointAPNSVoipChannel (Maybe (Val Text)) -papnsvcTokenKey = lens _pinpointAPNSVoipChannelTokenKey (\s a -> s { _pinpointAPNSVoipChannelTokenKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipchannel.html#cfn-pinpoint-apnsvoipchannel-tokenkeyid -papnsvcTokenKeyId :: Lens' PinpointAPNSVoipChannel (Maybe (Val Text)) -papnsvcTokenKeyId = lens _pinpointAPNSVoipChannelTokenKeyId (\s a -> s { _pinpointAPNSVoipChannelTokenKeyId = a }) diff --git a/library-gen/Stratosphere/Resources/PinpointAPNSVoipSandboxChannel.hs b/library-gen/Stratosphere/Resources/PinpointAPNSVoipSandboxChannel.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/PinpointAPNSVoipSandboxChannel.hs +++ /dev/null @@ -1,98 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipsandboxchannel.html - -module Stratosphere.Resources.PinpointAPNSVoipSandboxChannel where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointAPNSVoipSandboxChannel. See --- 'pinpointAPNSVoipSandboxChannel' for a more convenient constructor. -data PinpointAPNSVoipSandboxChannel = - PinpointAPNSVoipSandboxChannel - { _pinpointAPNSVoipSandboxChannelApplicationId :: Val Text - , _pinpointAPNSVoipSandboxChannelBundleId :: Maybe (Val Text) - , _pinpointAPNSVoipSandboxChannelCertificate :: Maybe (Val Text) - , _pinpointAPNSVoipSandboxChannelDefaultAuthenticationMethod :: Maybe (Val Text) - , _pinpointAPNSVoipSandboxChannelEnabled :: Maybe (Val Bool) - , _pinpointAPNSVoipSandboxChannelPrivateKey :: Maybe (Val Text) - , _pinpointAPNSVoipSandboxChannelTeamId :: Maybe (Val Text) - , _pinpointAPNSVoipSandboxChannelTokenKey :: Maybe (Val Text) - , _pinpointAPNSVoipSandboxChannelTokenKeyId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties PinpointAPNSVoipSandboxChannel where - toResourceProperties PinpointAPNSVoipSandboxChannel{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Pinpoint::APNSVoipSandboxChannel" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApplicationId",) . toJSON) _pinpointAPNSVoipSandboxChannelApplicationId - , fmap (("BundleId",) . toJSON) _pinpointAPNSVoipSandboxChannelBundleId - , fmap (("Certificate",) . toJSON) _pinpointAPNSVoipSandboxChannelCertificate - , fmap (("DefaultAuthenticationMethod",) . toJSON) _pinpointAPNSVoipSandboxChannelDefaultAuthenticationMethod - , fmap (("Enabled",) . toJSON) _pinpointAPNSVoipSandboxChannelEnabled - , fmap (("PrivateKey",) . toJSON) _pinpointAPNSVoipSandboxChannelPrivateKey - , fmap (("TeamId",) . toJSON) _pinpointAPNSVoipSandboxChannelTeamId - , fmap (("TokenKey",) . toJSON) _pinpointAPNSVoipSandboxChannelTokenKey - , fmap (("TokenKeyId",) . toJSON) _pinpointAPNSVoipSandboxChannelTokenKeyId - ] - } - --- | Constructor for 'PinpointAPNSVoipSandboxChannel' containing required --- fields as arguments. -pinpointAPNSVoipSandboxChannel - :: Val Text -- ^ 'papnsvscApplicationId' - -> PinpointAPNSVoipSandboxChannel -pinpointAPNSVoipSandboxChannel applicationIdarg = - PinpointAPNSVoipSandboxChannel - { _pinpointAPNSVoipSandboxChannelApplicationId = applicationIdarg - , _pinpointAPNSVoipSandboxChannelBundleId = Nothing - , _pinpointAPNSVoipSandboxChannelCertificate = Nothing - , _pinpointAPNSVoipSandboxChannelDefaultAuthenticationMethod = Nothing - , _pinpointAPNSVoipSandboxChannelEnabled = Nothing - , _pinpointAPNSVoipSandboxChannelPrivateKey = Nothing - , _pinpointAPNSVoipSandboxChannelTeamId = Nothing - , _pinpointAPNSVoipSandboxChannelTokenKey = Nothing - , _pinpointAPNSVoipSandboxChannelTokenKeyId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipsandboxchannel.html#cfn-pinpoint-apnsvoipsandboxchannel-applicationid -papnsvscApplicationId :: Lens' PinpointAPNSVoipSandboxChannel (Val Text) -papnsvscApplicationId = lens _pinpointAPNSVoipSandboxChannelApplicationId (\s a -> s { _pinpointAPNSVoipSandboxChannelApplicationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipsandboxchannel.html#cfn-pinpoint-apnsvoipsandboxchannel-bundleid -papnsvscBundleId :: Lens' PinpointAPNSVoipSandboxChannel (Maybe (Val Text)) -papnsvscBundleId = lens _pinpointAPNSVoipSandboxChannelBundleId (\s a -> s { _pinpointAPNSVoipSandboxChannelBundleId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipsandboxchannel.html#cfn-pinpoint-apnsvoipsandboxchannel-certificate -papnsvscCertificate :: Lens' PinpointAPNSVoipSandboxChannel (Maybe (Val Text)) -papnsvscCertificate = lens _pinpointAPNSVoipSandboxChannelCertificate (\s a -> s { _pinpointAPNSVoipSandboxChannelCertificate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipsandboxchannel.html#cfn-pinpoint-apnsvoipsandboxchannel-defaultauthenticationmethod -papnsvscDefaultAuthenticationMethod :: Lens' PinpointAPNSVoipSandboxChannel (Maybe (Val Text)) -papnsvscDefaultAuthenticationMethod = lens _pinpointAPNSVoipSandboxChannelDefaultAuthenticationMethod (\s a -> s { _pinpointAPNSVoipSandboxChannelDefaultAuthenticationMethod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipsandboxchannel.html#cfn-pinpoint-apnsvoipsandboxchannel-enabled -papnsvscEnabled :: Lens' PinpointAPNSVoipSandboxChannel (Maybe (Val Bool)) -papnsvscEnabled = lens _pinpointAPNSVoipSandboxChannelEnabled (\s a -> s { _pinpointAPNSVoipSandboxChannelEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipsandboxchannel.html#cfn-pinpoint-apnsvoipsandboxchannel-privatekey -papnsvscPrivateKey :: Lens' PinpointAPNSVoipSandboxChannel (Maybe (Val Text)) -papnsvscPrivateKey = lens _pinpointAPNSVoipSandboxChannelPrivateKey (\s a -> s { _pinpointAPNSVoipSandboxChannelPrivateKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipsandboxchannel.html#cfn-pinpoint-apnsvoipsandboxchannel-teamid -papnsvscTeamId :: Lens' PinpointAPNSVoipSandboxChannel (Maybe (Val Text)) -papnsvscTeamId = lens _pinpointAPNSVoipSandboxChannelTeamId (\s a -> s { _pinpointAPNSVoipSandboxChannelTeamId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipsandboxchannel.html#cfn-pinpoint-apnsvoipsandboxchannel-tokenkey -papnsvscTokenKey :: Lens' PinpointAPNSVoipSandboxChannel (Maybe (Val Text)) -papnsvscTokenKey = lens _pinpointAPNSVoipSandboxChannelTokenKey (\s a -> s { _pinpointAPNSVoipSandboxChannelTokenKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipsandboxchannel.html#cfn-pinpoint-apnsvoipsandboxchannel-tokenkeyid -papnsvscTokenKeyId :: Lens' PinpointAPNSVoipSandboxChannel (Maybe (Val Text)) -papnsvscTokenKeyId = lens _pinpointAPNSVoipSandboxChannelTokenKeyId (\s a -> s { _pinpointAPNSVoipSandboxChannelTokenKeyId = a }) diff --git a/library-gen/Stratosphere/Resources/PinpointApp.hs b/library-gen/Stratosphere/Resources/PinpointApp.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/PinpointApp.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-app.html - -module Stratosphere.Resources.PinpointApp where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointApp. See 'pinpointApp' for a more --- convenient constructor. -data PinpointApp = - PinpointApp - { _pinpointAppName :: Val Text - , _pinpointAppTags :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties PinpointApp where - toResourceProperties PinpointApp{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Pinpoint::App" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Name",) . toJSON) _pinpointAppName - , fmap (("Tags",) . toJSON) _pinpointAppTags - ] - } - --- | Constructor for 'PinpointApp' containing required fields as arguments. -pinpointApp - :: Val Text -- ^ 'paName' - -> PinpointApp -pinpointApp namearg = - PinpointApp - { _pinpointAppName = namearg - , _pinpointAppTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-app.html#cfn-pinpoint-app-name -paName :: Lens' PinpointApp (Val Text) -paName = lens _pinpointAppName (\s a -> s { _pinpointAppName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-app.html#cfn-pinpoint-app-tags -paTags :: Lens' PinpointApp (Maybe Object) -paTags = lens _pinpointAppTags (\s a -> s { _pinpointAppTags = a }) diff --git a/library-gen/Stratosphere/Resources/PinpointApplicationSettings.hs b/library-gen/Stratosphere/Resources/PinpointApplicationSettings.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/PinpointApplicationSettings.hs +++ /dev/null @@ -1,72 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-applicationsettings.html - -module Stratosphere.Resources.PinpointApplicationSettings where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.PinpointApplicationSettingsCampaignHook -import Stratosphere.ResourceProperties.PinpointApplicationSettingsLimits -import Stratosphere.ResourceProperties.PinpointApplicationSettingsQuietTime - --- | Full data type definition for PinpointApplicationSettings. See --- 'pinpointApplicationSettings' for a more convenient constructor. -data PinpointApplicationSettings = - PinpointApplicationSettings - { _pinpointApplicationSettingsApplicationId :: Val Text - , _pinpointApplicationSettingsCampaignHook :: Maybe PinpointApplicationSettingsCampaignHook - , _pinpointApplicationSettingsCloudWatchMetricsEnabled :: Maybe (Val Bool) - , _pinpointApplicationSettingsLimits :: Maybe PinpointApplicationSettingsLimits - , _pinpointApplicationSettingsQuietTime :: Maybe PinpointApplicationSettingsQuietTime - } deriving (Show, Eq) - -instance ToResourceProperties PinpointApplicationSettings where - toResourceProperties PinpointApplicationSettings{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Pinpoint::ApplicationSettings" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApplicationId",) . toJSON) _pinpointApplicationSettingsApplicationId - , fmap (("CampaignHook",) . toJSON) _pinpointApplicationSettingsCampaignHook - , fmap (("CloudWatchMetricsEnabled",) . toJSON) _pinpointApplicationSettingsCloudWatchMetricsEnabled - , fmap (("Limits",) . toJSON) _pinpointApplicationSettingsLimits - , fmap (("QuietTime",) . toJSON) _pinpointApplicationSettingsQuietTime - ] - } - --- | Constructor for 'PinpointApplicationSettings' containing required fields --- as arguments. -pinpointApplicationSettings - :: Val Text -- ^ 'pasApplicationId' - -> PinpointApplicationSettings -pinpointApplicationSettings applicationIdarg = - PinpointApplicationSettings - { _pinpointApplicationSettingsApplicationId = applicationIdarg - , _pinpointApplicationSettingsCampaignHook = Nothing - , _pinpointApplicationSettingsCloudWatchMetricsEnabled = Nothing - , _pinpointApplicationSettingsLimits = Nothing - , _pinpointApplicationSettingsQuietTime = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-applicationsettings.html#cfn-pinpoint-applicationsettings-applicationid -pasApplicationId :: Lens' PinpointApplicationSettings (Val Text) -pasApplicationId = lens _pinpointApplicationSettingsApplicationId (\s a -> s { _pinpointApplicationSettingsApplicationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-applicationsettings.html#cfn-pinpoint-applicationsettings-campaignhook -pasCampaignHook :: Lens' PinpointApplicationSettings (Maybe PinpointApplicationSettingsCampaignHook) -pasCampaignHook = lens _pinpointApplicationSettingsCampaignHook (\s a -> s { _pinpointApplicationSettingsCampaignHook = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-applicationsettings.html#cfn-pinpoint-applicationsettings-cloudwatchmetricsenabled -pasCloudWatchMetricsEnabled :: Lens' PinpointApplicationSettings (Maybe (Val Bool)) -pasCloudWatchMetricsEnabled = lens _pinpointApplicationSettingsCloudWatchMetricsEnabled (\s a -> s { _pinpointApplicationSettingsCloudWatchMetricsEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-applicationsettings.html#cfn-pinpoint-applicationsettings-limits -pasLimits :: Lens' PinpointApplicationSettings (Maybe PinpointApplicationSettingsLimits) -pasLimits = lens _pinpointApplicationSettingsLimits (\s a -> s { _pinpointApplicationSettingsLimits = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-applicationsettings.html#cfn-pinpoint-applicationsettings-quiettime -pasQuietTime :: Lens' PinpointApplicationSettings (Maybe PinpointApplicationSettingsQuietTime) -pasQuietTime = lens _pinpointApplicationSettingsQuietTime (\s a -> s { _pinpointApplicationSettingsQuietTime = a }) diff --git a/library-gen/Stratosphere/Resources/PinpointBaiduChannel.hs b/library-gen/Stratosphere/Resources/PinpointBaiduChannel.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/PinpointBaiduChannel.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-baiduchannel.html - -module Stratosphere.Resources.PinpointBaiduChannel where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointBaiduChannel. See --- 'pinpointBaiduChannel' for a more convenient constructor. -data PinpointBaiduChannel = - PinpointBaiduChannel - { _pinpointBaiduChannelApiKey :: Val Text - , _pinpointBaiduChannelApplicationId :: Val Text - , _pinpointBaiduChannelEnabled :: Maybe (Val Bool) - , _pinpointBaiduChannelSecretKey :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties PinpointBaiduChannel where - toResourceProperties PinpointBaiduChannel{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Pinpoint::BaiduChannel" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApiKey",) . toJSON) _pinpointBaiduChannelApiKey - , (Just . ("ApplicationId",) . toJSON) _pinpointBaiduChannelApplicationId - , fmap (("Enabled",) . toJSON) _pinpointBaiduChannelEnabled - , (Just . ("SecretKey",) . toJSON) _pinpointBaiduChannelSecretKey - ] - } - --- | Constructor for 'PinpointBaiduChannel' containing required fields as --- arguments. -pinpointBaiduChannel - :: Val Text -- ^ 'pbcApiKey' - -> Val Text -- ^ 'pbcApplicationId' - -> Val Text -- ^ 'pbcSecretKey' - -> PinpointBaiduChannel -pinpointBaiduChannel apiKeyarg applicationIdarg secretKeyarg = - PinpointBaiduChannel - { _pinpointBaiduChannelApiKey = apiKeyarg - , _pinpointBaiduChannelApplicationId = applicationIdarg - , _pinpointBaiduChannelEnabled = Nothing - , _pinpointBaiduChannelSecretKey = secretKeyarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-baiduchannel.html#cfn-pinpoint-baiduchannel-apikey -pbcApiKey :: Lens' PinpointBaiduChannel (Val Text) -pbcApiKey = lens _pinpointBaiduChannelApiKey (\s a -> s { _pinpointBaiduChannelApiKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-baiduchannel.html#cfn-pinpoint-baiduchannel-applicationid -pbcApplicationId :: Lens' PinpointBaiduChannel (Val Text) -pbcApplicationId = lens _pinpointBaiduChannelApplicationId (\s a -> s { _pinpointBaiduChannelApplicationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-baiduchannel.html#cfn-pinpoint-baiduchannel-enabled -pbcEnabled :: Lens' PinpointBaiduChannel (Maybe (Val Bool)) -pbcEnabled = lens _pinpointBaiduChannelEnabled (\s a -> s { _pinpointBaiduChannelEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-baiduchannel.html#cfn-pinpoint-baiduchannel-secretkey -pbcSecretKey :: Lens' PinpointBaiduChannel (Val Text) -pbcSecretKey = lens _pinpointBaiduChannelSecretKey (\s a -> s { _pinpointBaiduChannelSecretKey = a }) diff --git a/library-gen/Stratosphere/Resources/PinpointCampaign.hs b/library-gen/Stratosphere/Resources/PinpointCampaign.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/PinpointCampaign.hs +++ /dev/null @@ -1,148 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html - -module Stratosphere.Resources.PinpointCampaign where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.PinpointCampaignWriteTreatmentResource -import Stratosphere.ResourceProperties.PinpointCampaignCampaignHook -import Stratosphere.ResourceProperties.PinpointCampaignLimits -import Stratosphere.ResourceProperties.PinpointCampaignMessageConfiguration -import Stratosphere.ResourceProperties.PinpointCampaignSchedule - --- | Full data type definition for PinpointCampaign. See 'pinpointCampaign' --- for a more convenient constructor. -data PinpointCampaign = - PinpointCampaign - { _pinpointCampaignAdditionalTreatments :: Maybe [PinpointCampaignWriteTreatmentResource] - , _pinpointCampaignApplicationId :: Val Text - , _pinpointCampaignCampaignHook :: Maybe PinpointCampaignCampaignHook - , _pinpointCampaignDescription :: Maybe (Val Text) - , _pinpointCampaignHoldoutPercent :: Maybe (Val Integer) - , _pinpointCampaignIsPaused :: Maybe (Val Bool) - , _pinpointCampaignLimits :: Maybe PinpointCampaignLimits - , _pinpointCampaignMessageConfiguration :: PinpointCampaignMessageConfiguration - , _pinpointCampaignName :: Val Text - , _pinpointCampaignSchedule :: PinpointCampaignSchedule - , _pinpointCampaignSegmentId :: Val Text - , _pinpointCampaignSegmentVersion :: Maybe (Val Integer) - , _pinpointCampaignTags :: Maybe Object - , _pinpointCampaignTreatmentDescription :: Maybe (Val Text) - , _pinpointCampaignTreatmentName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties PinpointCampaign where - toResourceProperties PinpointCampaign{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Pinpoint::Campaign" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AdditionalTreatments",) . toJSON) _pinpointCampaignAdditionalTreatments - , (Just . ("ApplicationId",) . toJSON) _pinpointCampaignApplicationId - , fmap (("CampaignHook",) . toJSON) _pinpointCampaignCampaignHook - , fmap (("Description",) . toJSON) _pinpointCampaignDescription - , fmap (("HoldoutPercent",) . toJSON) _pinpointCampaignHoldoutPercent - , fmap (("IsPaused",) . toJSON) _pinpointCampaignIsPaused - , fmap (("Limits",) . toJSON) _pinpointCampaignLimits - , (Just . ("MessageConfiguration",) . toJSON) _pinpointCampaignMessageConfiguration - , (Just . ("Name",) . toJSON) _pinpointCampaignName - , (Just . ("Schedule",) . toJSON) _pinpointCampaignSchedule - , (Just . ("SegmentId",) . toJSON) _pinpointCampaignSegmentId - , fmap (("SegmentVersion",) . toJSON) _pinpointCampaignSegmentVersion - , fmap (("Tags",) . toJSON) _pinpointCampaignTags - , fmap (("TreatmentDescription",) . toJSON) _pinpointCampaignTreatmentDescription - , fmap (("TreatmentName",) . toJSON) _pinpointCampaignTreatmentName - ] - } - --- | Constructor for 'PinpointCampaign' containing required fields as --- arguments. -pinpointCampaign - :: Val Text -- ^ 'pcApplicationId' - -> PinpointCampaignMessageConfiguration -- ^ 'pcMessageConfiguration' - -> Val Text -- ^ 'pcName' - -> PinpointCampaignSchedule -- ^ 'pcSchedule' - -> Val Text -- ^ 'pcSegmentId' - -> PinpointCampaign -pinpointCampaign applicationIdarg messageConfigurationarg namearg schedulearg segmentIdarg = - PinpointCampaign - { _pinpointCampaignAdditionalTreatments = Nothing - , _pinpointCampaignApplicationId = applicationIdarg - , _pinpointCampaignCampaignHook = Nothing - , _pinpointCampaignDescription = Nothing - , _pinpointCampaignHoldoutPercent = Nothing - , _pinpointCampaignIsPaused = Nothing - , _pinpointCampaignLimits = Nothing - , _pinpointCampaignMessageConfiguration = messageConfigurationarg - , _pinpointCampaignName = namearg - , _pinpointCampaignSchedule = schedulearg - , _pinpointCampaignSegmentId = segmentIdarg - , _pinpointCampaignSegmentVersion = Nothing - , _pinpointCampaignTags = Nothing - , _pinpointCampaignTreatmentDescription = Nothing - , _pinpointCampaignTreatmentName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-additionaltreatments -pcAdditionalTreatments :: Lens' PinpointCampaign (Maybe [PinpointCampaignWriteTreatmentResource]) -pcAdditionalTreatments = lens _pinpointCampaignAdditionalTreatments (\s a -> s { _pinpointCampaignAdditionalTreatments = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-applicationid -pcApplicationId :: Lens' PinpointCampaign (Val Text) -pcApplicationId = lens _pinpointCampaignApplicationId (\s a -> s { _pinpointCampaignApplicationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-campaignhook -pcCampaignHook :: Lens' PinpointCampaign (Maybe PinpointCampaignCampaignHook) -pcCampaignHook = lens _pinpointCampaignCampaignHook (\s a -> s { _pinpointCampaignCampaignHook = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-description -pcDescription :: Lens' PinpointCampaign (Maybe (Val Text)) -pcDescription = lens _pinpointCampaignDescription (\s a -> s { _pinpointCampaignDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-holdoutpercent -pcHoldoutPercent :: Lens' PinpointCampaign (Maybe (Val Integer)) -pcHoldoutPercent = lens _pinpointCampaignHoldoutPercent (\s a -> s { _pinpointCampaignHoldoutPercent = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-ispaused -pcIsPaused :: Lens' PinpointCampaign (Maybe (Val Bool)) -pcIsPaused = lens _pinpointCampaignIsPaused (\s a -> s { _pinpointCampaignIsPaused = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-limits -pcLimits :: Lens' PinpointCampaign (Maybe PinpointCampaignLimits) -pcLimits = lens _pinpointCampaignLimits (\s a -> s { _pinpointCampaignLimits = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-messageconfiguration -pcMessageConfiguration :: Lens' PinpointCampaign PinpointCampaignMessageConfiguration -pcMessageConfiguration = lens _pinpointCampaignMessageConfiguration (\s a -> s { _pinpointCampaignMessageConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-name -pcName :: Lens' PinpointCampaign (Val Text) -pcName = lens _pinpointCampaignName (\s a -> s { _pinpointCampaignName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-schedule -pcSchedule :: Lens' PinpointCampaign PinpointCampaignSchedule -pcSchedule = lens _pinpointCampaignSchedule (\s a -> s { _pinpointCampaignSchedule = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-segmentid -pcSegmentId :: Lens' PinpointCampaign (Val Text) -pcSegmentId = lens _pinpointCampaignSegmentId (\s a -> s { _pinpointCampaignSegmentId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-segmentversion -pcSegmentVersion :: Lens' PinpointCampaign (Maybe (Val Integer)) -pcSegmentVersion = lens _pinpointCampaignSegmentVersion (\s a -> s { _pinpointCampaignSegmentVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-tags -pcTags :: Lens' PinpointCampaign (Maybe Object) -pcTags = lens _pinpointCampaignTags (\s a -> s { _pinpointCampaignTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-treatmentdescription -pcTreatmentDescription :: Lens' PinpointCampaign (Maybe (Val Text)) -pcTreatmentDescription = lens _pinpointCampaignTreatmentDescription (\s a -> s { _pinpointCampaignTreatmentDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-treatmentname -pcTreatmentName :: Lens' PinpointCampaign (Maybe (Val Text)) -pcTreatmentName = lens _pinpointCampaignTreatmentName (\s a -> s { _pinpointCampaignTreatmentName = a }) diff --git a/library-gen/Stratosphere/Resources/PinpointEmailChannel.hs b/library-gen/Stratosphere/Resources/PinpointEmailChannel.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/PinpointEmailChannel.hs +++ /dev/null @@ -1,79 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-emailchannel.html - -module Stratosphere.Resources.PinpointEmailChannel where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointEmailChannel. See --- 'pinpointEmailChannel' for a more convenient constructor. -data PinpointEmailChannel = - PinpointEmailChannel - { _pinpointEmailChannelApplicationId :: Val Text - , _pinpointEmailChannelConfigurationSet :: Maybe (Val Text) - , _pinpointEmailChannelEnabled :: Maybe (Val Bool) - , _pinpointEmailChannelFromAddress :: Val Text - , _pinpointEmailChannelIdentity :: Val Text - , _pinpointEmailChannelRoleArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties PinpointEmailChannel where - toResourceProperties PinpointEmailChannel{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Pinpoint::EmailChannel" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApplicationId",) . toJSON) _pinpointEmailChannelApplicationId - , fmap (("ConfigurationSet",) . toJSON) _pinpointEmailChannelConfigurationSet - , fmap (("Enabled",) . toJSON) _pinpointEmailChannelEnabled - , (Just . ("FromAddress",) . toJSON) _pinpointEmailChannelFromAddress - , (Just . ("Identity",) . toJSON) _pinpointEmailChannelIdentity - , fmap (("RoleArn",) . toJSON) _pinpointEmailChannelRoleArn - ] - } - --- | Constructor for 'PinpointEmailChannel' containing required fields as --- arguments. -pinpointEmailChannel - :: Val Text -- ^ 'pecApplicationId' - -> Val Text -- ^ 'pecFromAddress' - -> Val Text -- ^ 'pecIdentity' - -> PinpointEmailChannel -pinpointEmailChannel applicationIdarg fromAddressarg identityarg = - PinpointEmailChannel - { _pinpointEmailChannelApplicationId = applicationIdarg - , _pinpointEmailChannelConfigurationSet = Nothing - , _pinpointEmailChannelEnabled = Nothing - , _pinpointEmailChannelFromAddress = fromAddressarg - , _pinpointEmailChannelIdentity = identityarg - , _pinpointEmailChannelRoleArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-emailchannel.html#cfn-pinpoint-emailchannel-applicationid -pecApplicationId :: Lens' PinpointEmailChannel (Val Text) -pecApplicationId = lens _pinpointEmailChannelApplicationId (\s a -> s { _pinpointEmailChannelApplicationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-emailchannel.html#cfn-pinpoint-emailchannel-configurationset -pecConfigurationSet :: Lens' PinpointEmailChannel (Maybe (Val Text)) -pecConfigurationSet = lens _pinpointEmailChannelConfigurationSet (\s a -> s { _pinpointEmailChannelConfigurationSet = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-emailchannel.html#cfn-pinpoint-emailchannel-enabled -pecEnabled :: Lens' PinpointEmailChannel (Maybe (Val Bool)) -pecEnabled = lens _pinpointEmailChannelEnabled (\s a -> s { _pinpointEmailChannelEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-emailchannel.html#cfn-pinpoint-emailchannel-fromaddress -pecFromAddress :: Lens' PinpointEmailChannel (Val Text) -pecFromAddress = lens _pinpointEmailChannelFromAddress (\s a -> s { _pinpointEmailChannelFromAddress = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-emailchannel.html#cfn-pinpoint-emailchannel-identity -pecIdentity :: Lens' PinpointEmailChannel (Val Text) -pecIdentity = lens _pinpointEmailChannelIdentity (\s a -> s { _pinpointEmailChannelIdentity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-emailchannel.html#cfn-pinpoint-emailchannel-rolearn -pecRoleArn :: Lens' PinpointEmailChannel (Maybe (Val Text)) -pecRoleArn = lens _pinpointEmailChannelRoleArn (\s a -> s { _pinpointEmailChannelRoleArn = a }) diff --git a/library-gen/Stratosphere/Resources/PinpointEmailConfigurationSet.hs b/library-gen/Stratosphere/Resources/PinpointEmailConfigurationSet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/PinpointEmailConfigurationSet.hs +++ /dev/null @@ -1,81 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpointemail-configurationset.html - -module Stratosphere.Resources.PinpointEmailConfigurationSet where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.PinpointEmailConfigurationSetDeliveryOptions -import Stratosphere.ResourceProperties.PinpointEmailConfigurationSetReputationOptions -import Stratosphere.ResourceProperties.PinpointEmailConfigurationSetSendingOptions -import Stratosphere.ResourceProperties.PinpointEmailConfigurationSetTags -import Stratosphere.ResourceProperties.PinpointEmailConfigurationSetTrackingOptions - --- | Full data type definition for PinpointEmailConfigurationSet. See --- 'pinpointEmailConfigurationSet' for a more convenient constructor. -data PinpointEmailConfigurationSet = - PinpointEmailConfigurationSet - { _pinpointEmailConfigurationSetDeliveryOptions :: Maybe PinpointEmailConfigurationSetDeliveryOptions - , _pinpointEmailConfigurationSetName :: Val Text - , _pinpointEmailConfigurationSetReputationOptions :: Maybe PinpointEmailConfigurationSetReputationOptions - , _pinpointEmailConfigurationSetSendingOptions :: Maybe PinpointEmailConfigurationSetSendingOptions - , _pinpointEmailConfigurationSetTags :: Maybe [PinpointEmailConfigurationSetTags] - , _pinpointEmailConfigurationSetTrackingOptions :: Maybe PinpointEmailConfigurationSetTrackingOptions - } deriving (Show, Eq) - -instance ToResourceProperties PinpointEmailConfigurationSet where - toResourceProperties PinpointEmailConfigurationSet{..} = - ResourceProperties - { resourcePropertiesType = "AWS::PinpointEmail::ConfigurationSet" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("DeliveryOptions",) . toJSON) _pinpointEmailConfigurationSetDeliveryOptions - , (Just . ("Name",) . toJSON) _pinpointEmailConfigurationSetName - , fmap (("ReputationOptions",) . toJSON) _pinpointEmailConfigurationSetReputationOptions - , fmap (("SendingOptions",) . toJSON) _pinpointEmailConfigurationSetSendingOptions - , fmap (("Tags",) . toJSON) _pinpointEmailConfigurationSetTags - , fmap (("TrackingOptions",) . toJSON) _pinpointEmailConfigurationSetTrackingOptions - ] - } - --- | Constructor for 'PinpointEmailConfigurationSet' containing required --- fields as arguments. -pinpointEmailConfigurationSet - :: Val Text -- ^ 'pecsName' - -> PinpointEmailConfigurationSet -pinpointEmailConfigurationSet namearg = - PinpointEmailConfigurationSet - { _pinpointEmailConfigurationSetDeliveryOptions = Nothing - , _pinpointEmailConfigurationSetName = namearg - , _pinpointEmailConfigurationSetReputationOptions = Nothing - , _pinpointEmailConfigurationSetSendingOptions = Nothing - , _pinpointEmailConfigurationSetTags = Nothing - , _pinpointEmailConfigurationSetTrackingOptions = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpointemail-configurationset.html#cfn-pinpointemail-configurationset-deliveryoptions -pecsDeliveryOptions :: Lens' PinpointEmailConfigurationSet (Maybe PinpointEmailConfigurationSetDeliveryOptions) -pecsDeliveryOptions = lens _pinpointEmailConfigurationSetDeliveryOptions (\s a -> s { _pinpointEmailConfigurationSetDeliveryOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpointemail-configurationset.html#cfn-pinpointemail-configurationset-name -pecsName :: Lens' PinpointEmailConfigurationSet (Val Text) -pecsName = lens _pinpointEmailConfigurationSetName (\s a -> s { _pinpointEmailConfigurationSetName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpointemail-configurationset.html#cfn-pinpointemail-configurationset-reputationoptions -pecsReputationOptions :: Lens' PinpointEmailConfigurationSet (Maybe PinpointEmailConfigurationSetReputationOptions) -pecsReputationOptions = lens _pinpointEmailConfigurationSetReputationOptions (\s a -> s { _pinpointEmailConfigurationSetReputationOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpointemail-configurationset.html#cfn-pinpointemail-configurationset-sendingoptions -pecsSendingOptions :: Lens' PinpointEmailConfigurationSet (Maybe PinpointEmailConfigurationSetSendingOptions) -pecsSendingOptions = lens _pinpointEmailConfigurationSetSendingOptions (\s a -> s { _pinpointEmailConfigurationSetSendingOptions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpointemail-configurationset.html#cfn-pinpointemail-configurationset-tags -pecsTags :: Lens' PinpointEmailConfigurationSet (Maybe [PinpointEmailConfigurationSetTags]) -pecsTags = lens _pinpointEmailConfigurationSetTags (\s a -> s { _pinpointEmailConfigurationSetTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpointemail-configurationset.html#cfn-pinpointemail-configurationset-trackingoptions -pecsTrackingOptions :: Lens' PinpointEmailConfigurationSet (Maybe PinpointEmailConfigurationSetTrackingOptions) -pecsTrackingOptions = lens _pinpointEmailConfigurationSetTrackingOptions (\s a -> s { _pinpointEmailConfigurationSetTrackingOptions = a }) diff --git a/library-gen/Stratosphere/Resources/PinpointEmailConfigurationSetEventDestination.hs b/library-gen/Stratosphere/Resources/PinpointEmailConfigurationSetEventDestination.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/PinpointEmailConfigurationSetEventDestination.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpointemail-configurationseteventdestination.html - -module Stratosphere.Resources.PinpointEmailConfigurationSetEventDestination where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.PinpointEmailConfigurationSetEventDestinationEventDestination - --- | Full data type definition for --- PinpointEmailConfigurationSetEventDestination. See --- 'pinpointEmailConfigurationSetEventDestination' for a more convenient --- constructor. -data PinpointEmailConfigurationSetEventDestination = - PinpointEmailConfigurationSetEventDestination - { _pinpointEmailConfigurationSetEventDestinationConfigurationSetName :: Val Text - , _pinpointEmailConfigurationSetEventDestinationEventDestination :: Maybe PinpointEmailConfigurationSetEventDestinationEventDestination - , _pinpointEmailConfigurationSetEventDestinationEventDestinationName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties PinpointEmailConfigurationSetEventDestination where - toResourceProperties PinpointEmailConfigurationSetEventDestination{..} = - ResourceProperties - { resourcePropertiesType = "AWS::PinpointEmail::ConfigurationSetEventDestination" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ConfigurationSetName",) . toJSON) _pinpointEmailConfigurationSetEventDestinationConfigurationSetName - , fmap (("EventDestination",) . toJSON) _pinpointEmailConfigurationSetEventDestinationEventDestination - , (Just . ("EventDestinationName",) . toJSON) _pinpointEmailConfigurationSetEventDestinationEventDestinationName - ] - } - --- | Constructor for 'PinpointEmailConfigurationSetEventDestination' --- containing required fields as arguments. -pinpointEmailConfigurationSetEventDestination - :: Val Text -- ^ 'pecsedConfigurationSetName' - -> Val Text -- ^ 'pecsedEventDestinationName' - -> PinpointEmailConfigurationSetEventDestination -pinpointEmailConfigurationSetEventDestination configurationSetNamearg eventDestinationNamearg = - PinpointEmailConfigurationSetEventDestination - { _pinpointEmailConfigurationSetEventDestinationConfigurationSetName = configurationSetNamearg - , _pinpointEmailConfigurationSetEventDestinationEventDestination = Nothing - , _pinpointEmailConfigurationSetEventDestinationEventDestinationName = eventDestinationNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpointemail-configurationseteventdestination.html#cfn-pinpointemail-configurationseteventdestination-configurationsetname -pecsedConfigurationSetName :: Lens' PinpointEmailConfigurationSetEventDestination (Val Text) -pecsedConfigurationSetName = lens _pinpointEmailConfigurationSetEventDestinationConfigurationSetName (\s a -> s { _pinpointEmailConfigurationSetEventDestinationConfigurationSetName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpointemail-configurationseteventdestination.html#cfn-pinpointemail-configurationseteventdestination-eventdestination -pecsedEventDestination :: Lens' PinpointEmailConfigurationSetEventDestination (Maybe PinpointEmailConfigurationSetEventDestinationEventDestination) -pecsedEventDestination = lens _pinpointEmailConfigurationSetEventDestinationEventDestination (\s a -> s { _pinpointEmailConfigurationSetEventDestinationEventDestination = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpointemail-configurationseteventdestination.html#cfn-pinpointemail-configurationseteventdestination-eventdestinationname -pecsedEventDestinationName :: Lens' PinpointEmailConfigurationSetEventDestination (Val Text) -pecsedEventDestinationName = lens _pinpointEmailConfigurationSetEventDestinationEventDestinationName (\s a -> s { _pinpointEmailConfigurationSetEventDestinationEventDestinationName = a }) diff --git a/library-gen/Stratosphere/Resources/PinpointEmailDedicatedIpPool.hs b/library-gen/Stratosphere/Resources/PinpointEmailDedicatedIpPool.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/PinpointEmailDedicatedIpPool.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpointemail-dedicatedippool.html - -module Stratosphere.Resources.PinpointEmailDedicatedIpPool where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.PinpointEmailDedicatedIpPoolTags - --- | Full data type definition for PinpointEmailDedicatedIpPool. See --- 'pinpointEmailDedicatedIpPool' for a more convenient constructor. -data PinpointEmailDedicatedIpPool = - PinpointEmailDedicatedIpPool - { _pinpointEmailDedicatedIpPoolPoolName :: Maybe (Val Text) - , _pinpointEmailDedicatedIpPoolTags :: Maybe [PinpointEmailDedicatedIpPoolTags] - } deriving (Show, Eq) - -instance ToResourceProperties PinpointEmailDedicatedIpPool where - toResourceProperties PinpointEmailDedicatedIpPool{..} = - ResourceProperties - { resourcePropertiesType = "AWS::PinpointEmail::DedicatedIpPool" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("PoolName",) . toJSON) _pinpointEmailDedicatedIpPoolPoolName - , fmap (("Tags",) . toJSON) _pinpointEmailDedicatedIpPoolTags - ] - } - --- | Constructor for 'PinpointEmailDedicatedIpPool' containing required fields --- as arguments. -pinpointEmailDedicatedIpPool - :: PinpointEmailDedicatedIpPool -pinpointEmailDedicatedIpPool = - PinpointEmailDedicatedIpPool - { _pinpointEmailDedicatedIpPoolPoolName = Nothing - , _pinpointEmailDedicatedIpPoolTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpointemail-dedicatedippool.html#cfn-pinpointemail-dedicatedippool-poolname -pedipPoolName :: Lens' PinpointEmailDedicatedIpPool (Maybe (Val Text)) -pedipPoolName = lens _pinpointEmailDedicatedIpPoolPoolName (\s a -> s { _pinpointEmailDedicatedIpPoolPoolName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpointemail-dedicatedippool.html#cfn-pinpointemail-dedicatedippool-tags -pedipTags :: Lens' PinpointEmailDedicatedIpPool (Maybe [PinpointEmailDedicatedIpPoolTags]) -pedipTags = lens _pinpointEmailDedicatedIpPoolTags (\s a -> s { _pinpointEmailDedicatedIpPoolTags = a }) diff --git a/library-gen/Stratosphere/Resources/PinpointEmailIdentity.hs b/library-gen/Stratosphere/Resources/PinpointEmailIdentity.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/PinpointEmailIdentity.hs +++ /dev/null @@ -1,71 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpointemail-identity.html - -module Stratosphere.Resources.PinpointEmailIdentity where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.PinpointEmailIdentityMailFromAttributes -import Stratosphere.ResourceProperties.PinpointEmailIdentityTags - --- | Full data type definition for PinpointEmailIdentity. See --- 'pinpointEmailIdentity' for a more convenient constructor. -data PinpointEmailIdentity = - PinpointEmailIdentity - { _pinpointEmailIdentityDkimSigningEnabled :: Maybe (Val Bool) - , _pinpointEmailIdentityFeedbackForwardingEnabled :: Maybe (Val Bool) - , _pinpointEmailIdentityMailFromAttributes :: Maybe PinpointEmailIdentityMailFromAttributes - , _pinpointEmailIdentityName :: Val Text - , _pinpointEmailIdentityTags :: Maybe [PinpointEmailIdentityTags] - } deriving (Show, Eq) - -instance ToResourceProperties PinpointEmailIdentity where - toResourceProperties PinpointEmailIdentity{..} = - ResourceProperties - { resourcePropertiesType = "AWS::PinpointEmail::Identity" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("DkimSigningEnabled",) . toJSON) _pinpointEmailIdentityDkimSigningEnabled - , fmap (("FeedbackForwardingEnabled",) . toJSON) _pinpointEmailIdentityFeedbackForwardingEnabled - , fmap (("MailFromAttributes",) . toJSON) _pinpointEmailIdentityMailFromAttributes - , (Just . ("Name",) . toJSON) _pinpointEmailIdentityName - , fmap (("Tags",) . toJSON) _pinpointEmailIdentityTags - ] - } - --- | Constructor for 'PinpointEmailIdentity' containing required fields as --- arguments. -pinpointEmailIdentity - :: Val Text -- ^ 'peiName' - -> PinpointEmailIdentity -pinpointEmailIdentity namearg = - PinpointEmailIdentity - { _pinpointEmailIdentityDkimSigningEnabled = Nothing - , _pinpointEmailIdentityFeedbackForwardingEnabled = Nothing - , _pinpointEmailIdentityMailFromAttributes = Nothing - , _pinpointEmailIdentityName = namearg - , _pinpointEmailIdentityTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpointemail-identity.html#cfn-pinpointemail-identity-dkimsigningenabled -peiDkimSigningEnabled :: Lens' PinpointEmailIdentity (Maybe (Val Bool)) -peiDkimSigningEnabled = lens _pinpointEmailIdentityDkimSigningEnabled (\s a -> s { _pinpointEmailIdentityDkimSigningEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpointemail-identity.html#cfn-pinpointemail-identity-feedbackforwardingenabled -peiFeedbackForwardingEnabled :: Lens' PinpointEmailIdentity (Maybe (Val Bool)) -peiFeedbackForwardingEnabled = lens _pinpointEmailIdentityFeedbackForwardingEnabled (\s a -> s { _pinpointEmailIdentityFeedbackForwardingEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpointemail-identity.html#cfn-pinpointemail-identity-mailfromattributes -peiMailFromAttributes :: Lens' PinpointEmailIdentity (Maybe PinpointEmailIdentityMailFromAttributes) -peiMailFromAttributes = lens _pinpointEmailIdentityMailFromAttributes (\s a -> s { _pinpointEmailIdentityMailFromAttributes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpointemail-identity.html#cfn-pinpointemail-identity-name -peiName :: Lens' PinpointEmailIdentity (Val Text) -peiName = lens _pinpointEmailIdentityName (\s a -> s { _pinpointEmailIdentityName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpointemail-identity.html#cfn-pinpointemail-identity-tags -peiTags :: Lens' PinpointEmailIdentity (Maybe [PinpointEmailIdentityTags]) -peiTags = lens _pinpointEmailIdentityTags (\s a -> s { _pinpointEmailIdentityTags = a }) diff --git a/library-gen/Stratosphere/Resources/PinpointEmailTemplate.hs b/library-gen/Stratosphere/Resources/PinpointEmailTemplate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/PinpointEmailTemplate.hs +++ /dev/null @@ -1,85 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-emailtemplate.html - -module Stratosphere.Resources.PinpointEmailTemplate where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointEmailTemplate. See --- 'pinpointEmailTemplate' for a more convenient constructor. -data PinpointEmailTemplate = - PinpointEmailTemplate - { _pinpointEmailTemplateDefaultSubstitutions :: Maybe (Val Text) - , _pinpointEmailTemplateHtmlPart :: Maybe (Val Text) - , _pinpointEmailTemplateSubject :: Val Text - , _pinpointEmailTemplateTags :: Maybe Object - , _pinpointEmailTemplateTemplateDescription :: Maybe (Val Text) - , _pinpointEmailTemplateTemplateName :: Val Text - , _pinpointEmailTemplateTextPart :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties PinpointEmailTemplate where - toResourceProperties PinpointEmailTemplate{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Pinpoint::EmailTemplate" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("DefaultSubstitutions",) . toJSON) _pinpointEmailTemplateDefaultSubstitutions - , fmap (("HtmlPart",) . toJSON) _pinpointEmailTemplateHtmlPart - , (Just . ("Subject",) . toJSON) _pinpointEmailTemplateSubject - , fmap (("Tags",) . toJSON) _pinpointEmailTemplateTags - , fmap (("TemplateDescription",) . toJSON) _pinpointEmailTemplateTemplateDescription - , (Just . ("TemplateName",) . toJSON) _pinpointEmailTemplateTemplateName - , fmap (("TextPart",) . toJSON) _pinpointEmailTemplateTextPart - ] - } - --- | Constructor for 'PinpointEmailTemplate' containing required fields as --- arguments. -pinpointEmailTemplate - :: Val Text -- ^ 'petSubject' - -> Val Text -- ^ 'petTemplateName' - -> PinpointEmailTemplate -pinpointEmailTemplate subjectarg templateNamearg = - PinpointEmailTemplate - { _pinpointEmailTemplateDefaultSubstitutions = Nothing - , _pinpointEmailTemplateHtmlPart = Nothing - , _pinpointEmailTemplateSubject = subjectarg - , _pinpointEmailTemplateTags = Nothing - , _pinpointEmailTemplateTemplateDescription = Nothing - , _pinpointEmailTemplateTemplateName = templateNamearg - , _pinpointEmailTemplateTextPart = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-emailtemplate.html#cfn-pinpoint-emailtemplate-defaultsubstitutions -petDefaultSubstitutions :: Lens' PinpointEmailTemplate (Maybe (Val Text)) -petDefaultSubstitutions = lens _pinpointEmailTemplateDefaultSubstitutions (\s a -> s { _pinpointEmailTemplateDefaultSubstitutions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-emailtemplate.html#cfn-pinpoint-emailtemplate-htmlpart -petHtmlPart :: Lens' PinpointEmailTemplate (Maybe (Val Text)) -petHtmlPart = lens _pinpointEmailTemplateHtmlPart (\s a -> s { _pinpointEmailTemplateHtmlPart = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-emailtemplate.html#cfn-pinpoint-emailtemplate-subject -petSubject :: Lens' PinpointEmailTemplate (Val Text) -petSubject = lens _pinpointEmailTemplateSubject (\s a -> s { _pinpointEmailTemplateSubject = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-emailtemplate.html#cfn-pinpoint-emailtemplate-tags -petTags :: Lens' PinpointEmailTemplate (Maybe Object) -petTags = lens _pinpointEmailTemplateTags (\s a -> s { _pinpointEmailTemplateTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-emailtemplate.html#cfn-pinpoint-emailtemplate-templatedescription -petTemplateDescription :: Lens' PinpointEmailTemplate (Maybe (Val Text)) -petTemplateDescription = lens _pinpointEmailTemplateTemplateDescription (\s a -> s { _pinpointEmailTemplateTemplateDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-emailtemplate.html#cfn-pinpoint-emailtemplate-templatename -petTemplateName :: Lens' PinpointEmailTemplate (Val Text) -petTemplateName = lens _pinpointEmailTemplateTemplateName (\s a -> s { _pinpointEmailTemplateTemplateName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-emailtemplate.html#cfn-pinpoint-emailtemplate-textpart -petTextPart :: Lens' PinpointEmailTemplate (Maybe (Val Text)) -petTextPart = lens _pinpointEmailTemplateTextPart (\s a -> s { _pinpointEmailTemplateTextPart = a }) diff --git a/library-gen/Stratosphere/Resources/PinpointEventStream.hs b/library-gen/Stratosphere/Resources/PinpointEventStream.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/PinpointEventStream.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-eventstream.html - -module Stratosphere.Resources.PinpointEventStream where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointEventStream. See --- 'pinpointEventStream' for a more convenient constructor. -data PinpointEventStream = - PinpointEventStream - { _pinpointEventStreamApplicationId :: Val Text - , _pinpointEventStreamDestinationStreamArn :: Val Text - , _pinpointEventStreamRoleArn :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties PinpointEventStream where - toResourceProperties PinpointEventStream{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Pinpoint::EventStream" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApplicationId",) . toJSON) _pinpointEventStreamApplicationId - , (Just . ("DestinationStreamArn",) . toJSON) _pinpointEventStreamDestinationStreamArn - , (Just . ("RoleArn",) . toJSON) _pinpointEventStreamRoleArn - ] - } - --- | Constructor for 'PinpointEventStream' containing required fields as --- arguments. -pinpointEventStream - :: Val Text -- ^ 'pesApplicationId' - -> Val Text -- ^ 'pesDestinationStreamArn' - -> Val Text -- ^ 'pesRoleArn' - -> PinpointEventStream -pinpointEventStream applicationIdarg destinationStreamArnarg roleArnarg = - PinpointEventStream - { _pinpointEventStreamApplicationId = applicationIdarg - , _pinpointEventStreamDestinationStreamArn = destinationStreamArnarg - , _pinpointEventStreamRoleArn = roleArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-eventstream.html#cfn-pinpoint-eventstream-applicationid -pesApplicationId :: Lens' PinpointEventStream (Val Text) -pesApplicationId = lens _pinpointEventStreamApplicationId (\s a -> s { _pinpointEventStreamApplicationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-eventstream.html#cfn-pinpoint-eventstream-destinationstreamarn -pesDestinationStreamArn :: Lens' PinpointEventStream (Val Text) -pesDestinationStreamArn = lens _pinpointEventStreamDestinationStreamArn (\s a -> s { _pinpointEventStreamDestinationStreamArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-eventstream.html#cfn-pinpoint-eventstream-rolearn -pesRoleArn :: Lens' PinpointEventStream (Val Text) -pesRoleArn = lens _pinpointEventStreamRoleArn (\s a -> s { _pinpointEventStreamRoleArn = a }) diff --git a/library-gen/Stratosphere/Resources/PinpointGCMChannel.hs b/library-gen/Stratosphere/Resources/PinpointGCMChannel.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/PinpointGCMChannel.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-gcmchannel.html - -module Stratosphere.Resources.PinpointGCMChannel where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointGCMChannel. See --- 'pinpointGCMChannel' for a more convenient constructor. -data PinpointGCMChannel = - PinpointGCMChannel - { _pinpointGCMChannelApiKey :: Val Text - , _pinpointGCMChannelApplicationId :: Val Text - , _pinpointGCMChannelEnabled :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToResourceProperties PinpointGCMChannel where - toResourceProperties PinpointGCMChannel{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Pinpoint::GCMChannel" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApiKey",) . toJSON) _pinpointGCMChannelApiKey - , (Just . ("ApplicationId",) . toJSON) _pinpointGCMChannelApplicationId - , fmap (("Enabled",) . toJSON) _pinpointGCMChannelEnabled - ] - } - --- | Constructor for 'PinpointGCMChannel' containing required fields as --- arguments. -pinpointGCMChannel - :: Val Text -- ^ 'pgcmcApiKey' - -> Val Text -- ^ 'pgcmcApplicationId' - -> PinpointGCMChannel -pinpointGCMChannel apiKeyarg applicationIdarg = - PinpointGCMChannel - { _pinpointGCMChannelApiKey = apiKeyarg - , _pinpointGCMChannelApplicationId = applicationIdarg - , _pinpointGCMChannelEnabled = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-gcmchannel.html#cfn-pinpoint-gcmchannel-apikey -pgcmcApiKey :: Lens' PinpointGCMChannel (Val Text) -pgcmcApiKey = lens _pinpointGCMChannelApiKey (\s a -> s { _pinpointGCMChannelApiKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-gcmchannel.html#cfn-pinpoint-gcmchannel-applicationid -pgcmcApplicationId :: Lens' PinpointGCMChannel (Val Text) -pgcmcApplicationId = lens _pinpointGCMChannelApplicationId (\s a -> s { _pinpointGCMChannelApplicationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-gcmchannel.html#cfn-pinpoint-gcmchannel-enabled -pgcmcEnabled :: Lens' PinpointGCMChannel (Maybe (Val Bool)) -pgcmcEnabled = lens _pinpointGCMChannelEnabled (\s a -> s { _pinpointGCMChannelEnabled = a }) diff --git a/library-gen/Stratosphere/Resources/PinpointPushTemplate.hs b/library-gen/Stratosphere/Resources/PinpointPushTemplate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/PinpointPushTemplate.hs +++ /dev/null @@ -1,100 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-pushtemplate.html - -module Stratosphere.Resources.PinpointPushTemplate where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.PinpointPushTemplateAndroidPushNotificationTemplate -import Stratosphere.ResourceProperties.PinpointPushTemplateAPNSPushNotificationTemplate -import Stratosphere.ResourceProperties.PinpointPushTemplateDefaultPushNotificationTemplate - --- | Full data type definition for PinpointPushTemplate. See --- 'pinpointPushTemplate' for a more convenient constructor. -data PinpointPushTemplate = - PinpointPushTemplate - { _pinpointPushTemplateADM :: Maybe PinpointPushTemplateAndroidPushNotificationTemplate - , _pinpointPushTemplateAPNS :: Maybe PinpointPushTemplateAPNSPushNotificationTemplate - , _pinpointPushTemplateBaidu :: Maybe PinpointPushTemplateAndroidPushNotificationTemplate - , _pinpointPushTemplateDefault :: Maybe PinpointPushTemplateDefaultPushNotificationTemplate - , _pinpointPushTemplateDefaultSubstitutions :: Maybe (Val Text) - , _pinpointPushTemplateGCM :: Maybe PinpointPushTemplateAndroidPushNotificationTemplate - , _pinpointPushTemplateTags :: Maybe Object - , _pinpointPushTemplateTemplateDescription :: Maybe (Val Text) - , _pinpointPushTemplateTemplateName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties PinpointPushTemplate where - toResourceProperties PinpointPushTemplate{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Pinpoint::PushTemplate" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ADM",) . toJSON) _pinpointPushTemplateADM - , fmap (("APNS",) . toJSON) _pinpointPushTemplateAPNS - , fmap (("Baidu",) . toJSON) _pinpointPushTemplateBaidu - , fmap (("Default",) . toJSON) _pinpointPushTemplateDefault - , fmap (("DefaultSubstitutions",) . toJSON) _pinpointPushTemplateDefaultSubstitutions - , fmap (("GCM",) . toJSON) _pinpointPushTemplateGCM - , fmap (("Tags",) . toJSON) _pinpointPushTemplateTags - , fmap (("TemplateDescription",) . toJSON) _pinpointPushTemplateTemplateDescription - , (Just . ("TemplateName",) . toJSON) _pinpointPushTemplateTemplateName - ] - } - --- | Constructor for 'PinpointPushTemplate' containing required fields as --- arguments. -pinpointPushTemplate - :: Val Text -- ^ 'pptTemplateName' - -> PinpointPushTemplate -pinpointPushTemplate templateNamearg = - PinpointPushTemplate - { _pinpointPushTemplateADM = Nothing - , _pinpointPushTemplateAPNS = Nothing - , _pinpointPushTemplateBaidu = Nothing - , _pinpointPushTemplateDefault = Nothing - , _pinpointPushTemplateDefaultSubstitutions = Nothing - , _pinpointPushTemplateGCM = Nothing - , _pinpointPushTemplateTags = Nothing - , _pinpointPushTemplateTemplateDescription = Nothing - , _pinpointPushTemplateTemplateName = templateNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-pushtemplate.html#cfn-pinpoint-pushtemplate-adm -pptADM :: Lens' PinpointPushTemplate (Maybe PinpointPushTemplateAndroidPushNotificationTemplate) -pptADM = lens _pinpointPushTemplateADM (\s a -> s { _pinpointPushTemplateADM = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-pushtemplate.html#cfn-pinpoint-pushtemplate-apns -pptAPNS :: Lens' PinpointPushTemplate (Maybe PinpointPushTemplateAPNSPushNotificationTemplate) -pptAPNS = lens _pinpointPushTemplateAPNS (\s a -> s { _pinpointPushTemplateAPNS = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-pushtemplate.html#cfn-pinpoint-pushtemplate-baidu -pptBaidu :: Lens' PinpointPushTemplate (Maybe PinpointPushTemplateAndroidPushNotificationTemplate) -pptBaidu = lens _pinpointPushTemplateBaidu (\s a -> s { _pinpointPushTemplateBaidu = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-pushtemplate.html#cfn-pinpoint-pushtemplate-default -pptDefault :: Lens' PinpointPushTemplate (Maybe PinpointPushTemplateDefaultPushNotificationTemplate) -pptDefault = lens _pinpointPushTemplateDefault (\s a -> s { _pinpointPushTemplateDefault = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-pushtemplate.html#cfn-pinpoint-pushtemplate-defaultsubstitutions -pptDefaultSubstitutions :: Lens' PinpointPushTemplate (Maybe (Val Text)) -pptDefaultSubstitutions = lens _pinpointPushTemplateDefaultSubstitutions (\s a -> s { _pinpointPushTemplateDefaultSubstitutions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-pushtemplate.html#cfn-pinpoint-pushtemplate-gcm -pptGCM :: Lens' PinpointPushTemplate (Maybe PinpointPushTemplateAndroidPushNotificationTemplate) -pptGCM = lens _pinpointPushTemplateGCM (\s a -> s { _pinpointPushTemplateGCM = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-pushtemplate.html#cfn-pinpoint-pushtemplate-tags -pptTags :: Lens' PinpointPushTemplate (Maybe Object) -pptTags = lens _pinpointPushTemplateTags (\s a -> s { _pinpointPushTemplateTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-pushtemplate.html#cfn-pinpoint-pushtemplate-templatedescription -pptTemplateDescription :: Lens' PinpointPushTemplate (Maybe (Val Text)) -pptTemplateDescription = lens _pinpointPushTemplateTemplateDescription (\s a -> s { _pinpointPushTemplateTemplateDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-pushtemplate.html#cfn-pinpoint-pushtemplate-templatename -pptTemplateName :: Lens' PinpointPushTemplate (Val Text) -pptTemplateName = lens _pinpointPushTemplateTemplateName (\s a -> s { _pinpointPushTemplateTemplateName = a }) diff --git a/library-gen/Stratosphere/Resources/PinpointSMSChannel.hs b/library-gen/Stratosphere/Resources/PinpointSMSChannel.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/PinpointSMSChannel.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-smschannel.html - -module Stratosphere.Resources.PinpointSMSChannel where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointSMSChannel. See --- 'pinpointSMSChannel' for a more convenient constructor. -data PinpointSMSChannel = - PinpointSMSChannel - { _pinpointSMSChannelApplicationId :: Val Text - , _pinpointSMSChannelEnabled :: Maybe (Val Bool) - , _pinpointSMSChannelSenderId :: Maybe (Val Text) - , _pinpointSMSChannelShortCode :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties PinpointSMSChannel where - toResourceProperties PinpointSMSChannel{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Pinpoint::SMSChannel" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApplicationId",) . toJSON) _pinpointSMSChannelApplicationId - , fmap (("Enabled",) . toJSON) _pinpointSMSChannelEnabled - , fmap (("SenderId",) . toJSON) _pinpointSMSChannelSenderId - , fmap (("ShortCode",) . toJSON) _pinpointSMSChannelShortCode - ] - } - --- | Constructor for 'PinpointSMSChannel' containing required fields as --- arguments. -pinpointSMSChannel - :: Val Text -- ^ 'psmscApplicationId' - -> PinpointSMSChannel -pinpointSMSChannel applicationIdarg = - PinpointSMSChannel - { _pinpointSMSChannelApplicationId = applicationIdarg - , _pinpointSMSChannelEnabled = Nothing - , _pinpointSMSChannelSenderId = Nothing - , _pinpointSMSChannelShortCode = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-smschannel.html#cfn-pinpoint-smschannel-applicationid -psmscApplicationId :: Lens' PinpointSMSChannel (Val Text) -psmscApplicationId = lens _pinpointSMSChannelApplicationId (\s a -> s { _pinpointSMSChannelApplicationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-smschannel.html#cfn-pinpoint-smschannel-enabled -psmscEnabled :: Lens' PinpointSMSChannel (Maybe (Val Bool)) -psmscEnabled = lens _pinpointSMSChannelEnabled (\s a -> s { _pinpointSMSChannelEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-smschannel.html#cfn-pinpoint-smschannel-senderid -psmscSenderId :: Lens' PinpointSMSChannel (Maybe (Val Text)) -psmscSenderId = lens _pinpointSMSChannelSenderId (\s a -> s { _pinpointSMSChannelSenderId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-smschannel.html#cfn-pinpoint-smschannel-shortcode -psmscShortCode :: Lens' PinpointSMSChannel (Maybe (Val Text)) -psmscShortCode = lens _pinpointSMSChannelShortCode (\s a -> s { _pinpointSMSChannelShortCode = a }) diff --git a/library-gen/Stratosphere/Resources/PinpointSegment.hs b/library-gen/Stratosphere/Resources/PinpointSegment.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/PinpointSegment.hs +++ /dev/null @@ -1,72 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-segment.html - -module Stratosphere.Resources.PinpointSegment where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.PinpointSegmentSegmentDimensions -import Stratosphere.ResourceProperties.PinpointSegmentSegmentGroups - --- | Full data type definition for PinpointSegment. See 'pinpointSegment' for --- a more convenient constructor. -data PinpointSegment = - PinpointSegment - { _pinpointSegmentApplicationId :: Val Text - , _pinpointSegmentDimensions :: Maybe PinpointSegmentSegmentDimensions - , _pinpointSegmentName :: Val Text - , _pinpointSegmentSegmentGroups :: Maybe PinpointSegmentSegmentGroups - , _pinpointSegmentTags :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties PinpointSegment where - toResourceProperties PinpointSegment{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Pinpoint::Segment" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApplicationId",) . toJSON) _pinpointSegmentApplicationId - , fmap (("Dimensions",) . toJSON) _pinpointSegmentDimensions - , (Just . ("Name",) . toJSON) _pinpointSegmentName - , fmap (("SegmentGroups",) . toJSON) _pinpointSegmentSegmentGroups - , fmap (("Tags",) . toJSON) _pinpointSegmentTags - ] - } - --- | Constructor for 'PinpointSegment' containing required fields as --- arguments. -pinpointSegment - :: Val Text -- ^ 'psApplicationId' - -> Val Text -- ^ 'psName' - -> PinpointSegment -pinpointSegment applicationIdarg namearg = - PinpointSegment - { _pinpointSegmentApplicationId = applicationIdarg - , _pinpointSegmentDimensions = Nothing - , _pinpointSegmentName = namearg - , _pinpointSegmentSegmentGroups = Nothing - , _pinpointSegmentTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-segment.html#cfn-pinpoint-segment-applicationid -psApplicationId :: Lens' PinpointSegment (Val Text) -psApplicationId = lens _pinpointSegmentApplicationId (\s a -> s { _pinpointSegmentApplicationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-segment.html#cfn-pinpoint-segment-dimensions -psDimensions :: Lens' PinpointSegment (Maybe PinpointSegmentSegmentDimensions) -psDimensions = lens _pinpointSegmentDimensions (\s a -> s { _pinpointSegmentDimensions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-segment.html#cfn-pinpoint-segment-name -psName :: Lens' PinpointSegment (Val Text) -psName = lens _pinpointSegmentName (\s a -> s { _pinpointSegmentName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-segment.html#cfn-pinpoint-segment-segmentgroups -psSegmentGroups :: Lens' PinpointSegment (Maybe PinpointSegmentSegmentGroups) -psSegmentGroups = lens _pinpointSegmentSegmentGroups (\s a -> s { _pinpointSegmentSegmentGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-segment.html#cfn-pinpoint-segment-tags -psTags :: Lens' PinpointSegment (Maybe Object) -psTags = lens _pinpointSegmentTags (\s a -> s { _pinpointSegmentTags = a }) diff --git a/library-gen/Stratosphere/Resources/PinpointSmsTemplate.hs b/library-gen/Stratosphere/Resources/PinpointSmsTemplate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/PinpointSmsTemplate.hs +++ /dev/null @@ -1,71 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-smstemplate.html - -module Stratosphere.Resources.PinpointSmsTemplate where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointSmsTemplate. See --- 'pinpointSmsTemplate' for a more convenient constructor. -data PinpointSmsTemplate = - PinpointSmsTemplate - { _pinpointSmsTemplateBody :: Val Text - , _pinpointSmsTemplateDefaultSubstitutions :: Maybe (Val Text) - , _pinpointSmsTemplateTags :: Maybe Object - , _pinpointSmsTemplateTemplateDescription :: Maybe (Val Text) - , _pinpointSmsTemplateTemplateName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties PinpointSmsTemplate where - toResourceProperties PinpointSmsTemplate{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Pinpoint::SmsTemplate" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Body",) . toJSON) _pinpointSmsTemplateBody - , fmap (("DefaultSubstitutions",) . toJSON) _pinpointSmsTemplateDefaultSubstitutions - , fmap (("Tags",) . toJSON) _pinpointSmsTemplateTags - , fmap (("TemplateDescription",) . toJSON) _pinpointSmsTemplateTemplateDescription - , (Just . ("TemplateName",) . toJSON) _pinpointSmsTemplateTemplateName - ] - } - --- | Constructor for 'PinpointSmsTemplate' containing required fields as --- arguments. -pinpointSmsTemplate - :: Val Text -- ^ 'pstBody' - -> Val Text -- ^ 'pstTemplateName' - -> PinpointSmsTemplate -pinpointSmsTemplate bodyarg templateNamearg = - PinpointSmsTemplate - { _pinpointSmsTemplateBody = bodyarg - , _pinpointSmsTemplateDefaultSubstitutions = Nothing - , _pinpointSmsTemplateTags = Nothing - , _pinpointSmsTemplateTemplateDescription = Nothing - , _pinpointSmsTemplateTemplateName = templateNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-smstemplate.html#cfn-pinpoint-smstemplate-body -pstBody :: Lens' PinpointSmsTemplate (Val Text) -pstBody = lens _pinpointSmsTemplateBody (\s a -> s { _pinpointSmsTemplateBody = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-smstemplate.html#cfn-pinpoint-smstemplate-defaultsubstitutions -pstDefaultSubstitutions :: Lens' PinpointSmsTemplate (Maybe (Val Text)) -pstDefaultSubstitutions = lens _pinpointSmsTemplateDefaultSubstitutions (\s a -> s { _pinpointSmsTemplateDefaultSubstitutions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-smstemplate.html#cfn-pinpoint-smstemplate-tags -pstTags :: Lens' PinpointSmsTemplate (Maybe Object) -pstTags = lens _pinpointSmsTemplateTags (\s a -> s { _pinpointSmsTemplateTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-smstemplate.html#cfn-pinpoint-smstemplate-templatedescription -pstTemplateDescription :: Lens' PinpointSmsTemplate (Maybe (Val Text)) -pstTemplateDescription = lens _pinpointSmsTemplateTemplateDescription (\s a -> s { _pinpointSmsTemplateTemplateDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-smstemplate.html#cfn-pinpoint-smstemplate-templatename -pstTemplateName :: Lens' PinpointSmsTemplate (Val Text) -pstTemplateName = lens _pinpointSmsTemplateTemplateName (\s a -> s { _pinpointSmsTemplateTemplateName = a }) diff --git a/library-gen/Stratosphere/Resources/PinpointVoiceChannel.hs b/library-gen/Stratosphere/Resources/PinpointVoiceChannel.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/PinpointVoiceChannel.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-voicechannel.html - -module Stratosphere.Resources.PinpointVoiceChannel where - -import Stratosphere.ResourceImports - - --- | Full data type definition for PinpointVoiceChannel. See --- 'pinpointVoiceChannel' for a more convenient constructor. -data PinpointVoiceChannel = - PinpointVoiceChannel - { _pinpointVoiceChannelApplicationId :: Val Text - , _pinpointVoiceChannelEnabled :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToResourceProperties PinpointVoiceChannel where - toResourceProperties PinpointVoiceChannel{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Pinpoint::VoiceChannel" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ApplicationId",) . toJSON) _pinpointVoiceChannelApplicationId - , fmap (("Enabled",) . toJSON) _pinpointVoiceChannelEnabled - ] - } - --- | Constructor for 'PinpointVoiceChannel' containing required fields as --- arguments. -pinpointVoiceChannel - :: Val Text -- ^ 'pvcApplicationId' - -> PinpointVoiceChannel -pinpointVoiceChannel applicationIdarg = - PinpointVoiceChannel - { _pinpointVoiceChannelApplicationId = applicationIdarg - , _pinpointVoiceChannelEnabled = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-voicechannel.html#cfn-pinpoint-voicechannel-applicationid -pvcApplicationId :: Lens' PinpointVoiceChannel (Val Text) -pvcApplicationId = lens _pinpointVoiceChannelApplicationId (\s a -> s { _pinpointVoiceChannelApplicationId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-voicechannel.html#cfn-pinpoint-voicechannel-enabled -pvcEnabled :: Lens' PinpointVoiceChannel (Maybe (Val Bool)) -pvcEnabled = lens _pinpointVoiceChannelEnabled (\s a -> s { _pinpointVoiceChannelEnabled = a }) diff --git a/library-gen/Stratosphere/Resources/QLDBLedger.hs b/library-gen/Stratosphere/Resources/QLDBLedger.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/QLDBLedger.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-qldb-ledger.html - -module Stratosphere.Resources.QLDBLedger where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for QLDBLedger. See 'qldbLedger' for a more --- convenient constructor. -data QLDBLedger = - QLDBLedger - { _qLDBLedgerDeletionProtection :: Maybe (Val Bool) - , _qLDBLedgerName :: Maybe (Val Text) - , _qLDBLedgerPermissionsMode :: Val Text - , _qLDBLedgerTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties QLDBLedger where - toResourceProperties QLDBLedger{..} = - ResourceProperties - { resourcePropertiesType = "AWS::QLDB::Ledger" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("DeletionProtection",) . toJSON) _qLDBLedgerDeletionProtection - , fmap (("Name",) . toJSON) _qLDBLedgerName - , (Just . ("PermissionsMode",) . toJSON) _qLDBLedgerPermissionsMode - , fmap (("Tags",) . toJSON) _qLDBLedgerTags - ] - } - --- | Constructor for 'QLDBLedger' containing required fields as arguments. -qldbLedger - :: Val Text -- ^ 'qldblPermissionsMode' - -> QLDBLedger -qldbLedger permissionsModearg = - QLDBLedger - { _qLDBLedgerDeletionProtection = Nothing - , _qLDBLedgerName = Nothing - , _qLDBLedgerPermissionsMode = permissionsModearg - , _qLDBLedgerTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-qldb-ledger.html#cfn-qldb-ledger-deletionprotection -qldblDeletionProtection :: Lens' QLDBLedger (Maybe (Val Bool)) -qldblDeletionProtection = lens _qLDBLedgerDeletionProtection (\s a -> s { _qLDBLedgerDeletionProtection = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-qldb-ledger.html#cfn-qldb-ledger-name -qldblName :: Lens' QLDBLedger (Maybe (Val Text)) -qldblName = lens _qLDBLedgerName (\s a -> s { _qLDBLedgerName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-qldb-ledger.html#cfn-qldb-ledger-permissionsmode -qldblPermissionsMode :: Lens' QLDBLedger (Val Text) -qldblPermissionsMode = lens _qLDBLedgerPermissionsMode (\s a -> s { _qLDBLedgerPermissionsMode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-qldb-ledger.html#cfn-qldb-ledger-tags -qldblTags :: Lens' QLDBLedger (Maybe [Tag]) -qldblTags = lens _qLDBLedgerTags (\s a -> s { _qLDBLedgerTags = a }) diff --git a/library-gen/Stratosphere/Resources/QLDBStream.hs b/library-gen/Stratosphere/Resources/QLDBStream.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/QLDBStream.hs +++ /dev/null @@ -1,88 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-qldb-stream.html - -module Stratosphere.Resources.QLDBStream where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.QLDBStreamKinesisConfiguration -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for QLDBStream. See 'qldbStream' for a more --- convenient constructor. -data QLDBStream = - QLDBStream - { _qLDBStreamExclusiveEndTime :: Maybe (Val Text) - , _qLDBStreamInclusiveStartTime :: Val Text - , _qLDBStreamKinesisConfiguration :: QLDBStreamKinesisConfiguration - , _qLDBStreamLedgerName :: Val Text - , _qLDBStreamRoleArn :: Val Text - , _qLDBStreamStreamName :: Val Text - , _qLDBStreamTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties QLDBStream where - toResourceProperties QLDBStream{..} = - ResourceProperties - { resourcePropertiesType = "AWS::QLDB::Stream" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ExclusiveEndTime",) . toJSON) _qLDBStreamExclusiveEndTime - , (Just . ("InclusiveStartTime",) . toJSON) _qLDBStreamInclusiveStartTime - , (Just . ("KinesisConfiguration",) . toJSON) _qLDBStreamKinesisConfiguration - , (Just . ("LedgerName",) . toJSON) _qLDBStreamLedgerName - , (Just . ("RoleArn",) . toJSON) _qLDBStreamRoleArn - , (Just . ("StreamName",) . toJSON) _qLDBStreamStreamName - , fmap (("Tags",) . toJSON) _qLDBStreamTags - ] - } - --- | Constructor for 'QLDBStream' containing required fields as arguments. -qldbStream - :: Val Text -- ^ 'qldbsInclusiveStartTime' - -> QLDBStreamKinesisConfiguration -- ^ 'qldbsKinesisConfiguration' - -> Val Text -- ^ 'qldbsLedgerName' - -> Val Text -- ^ 'qldbsRoleArn' - -> Val Text -- ^ 'qldbsStreamName' - -> QLDBStream -qldbStream inclusiveStartTimearg kinesisConfigurationarg ledgerNamearg roleArnarg streamNamearg = - QLDBStream - { _qLDBStreamExclusiveEndTime = Nothing - , _qLDBStreamInclusiveStartTime = inclusiveStartTimearg - , _qLDBStreamKinesisConfiguration = kinesisConfigurationarg - , _qLDBStreamLedgerName = ledgerNamearg - , _qLDBStreamRoleArn = roleArnarg - , _qLDBStreamStreamName = streamNamearg - , _qLDBStreamTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-qldb-stream.html#cfn-qldb-stream-exclusiveendtime -qldbsExclusiveEndTime :: Lens' QLDBStream (Maybe (Val Text)) -qldbsExclusiveEndTime = lens _qLDBStreamExclusiveEndTime (\s a -> s { _qLDBStreamExclusiveEndTime = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-qldb-stream.html#cfn-qldb-stream-inclusivestarttime -qldbsInclusiveStartTime :: Lens' QLDBStream (Val Text) -qldbsInclusiveStartTime = lens _qLDBStreamInclusiveStartTime (\s a -> s { _qLDBStreamInclusiveStartTime = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-qldb-stream.html#cfn-qldb-stream-kinesisconfiguration -qldbsKinesisConfiguration :: Lens' QLDBStream QLDBStreamKinesisConfiguration -qldbsKinesisConfiguration = lens _qLDBStreamKinesisConfiguration (\s a -> s { _qLDBStreamKinesisConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-qldb-stream.html#cfn-qldb-stream-ledgername -qldbsLedgerName :: Lens' QLDBStream (Val Text) -qldbsLedgerName = lens _qLDBStreamLedgerName (\s a -> s { _qLDBStreamLedgerName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-qldb-stream.html#cfn-qldb-stream-rolearn -qldbsRoleArn :: Lens' QLDBStream (Val Text) -qldbsRoleArn = lens _qLDBStreamRoleArn (\s a -> s { _qLDBStreamRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-qldb-stream.html#cfn-qldb-stream-streamname -qldbsStreamName :: Lens' QLDBStream (Val Text) -qldbsStreamName = lens _qLDBStreamStreamName (\s a -> s { _qLDBStreamStreamName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-qldb-stream.html#cfn-qldb-stream-tags -qldbsTags :: Lens' QLDBStream (Maybe [Tag]) -qldbsTags = lens _qLDBStreamTags (\s a -> s { _qLDBStreamTags = a }) diff --git a/library-gen/Stratosphere/Resources/RAMResourceShare.hs b/library-gen/Stratosphere/Resources/RAMResourceShare.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/RAMResourceShare.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ram-resourceshare.html - -module Stratosphere.Resources.RAMResourceShare where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for RAMResourceShare. See 'ramResourceShare' --- for a more convenient constructor. -data RAMResourceShare = - RAMResourceShare - { _rAMResourceShareAllowExternalPrincipals :: Maybe (Val Bool) - , _rAMResourceShareName :: Val Text - , _rAMResourceSharePrincipals :: Maybe (ValList Text) - , _rAMResourceShareResourceArns :: Maybe (ValList Text) - , _rAMResourceShareTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties RAMResourceShare where - toResourceProperties RAMResourceShare{..} = - ResourceProperties - { resourcePropertiesType = "AWS::RAM::ResourceShare" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AllowExternalPrincipals",) . toJSON) _rAMResourceShareAllowExternalPrincipals - , (Just . ("Name",) . toJSON) _rAMResourceShareName - , fmap (("Principals",) . toJSON) _rAMResourceSharePrincipals - , fmap (("ResourceArns",) . toJSON) _rAMResourceShareResourceArns - , fmap (("Tags",) . toJSON) _rAMResourceShareTags - ] - } - --- | Constructor for 'RAMResourceShare' containing required fields as --- arguments. -ramResourceShare - :: Val Text -- ^ 'ramrsName' - -> RAMResourceShare -ramResourceShare namearg = - RAMResourceShare - { _rAMResourceShareAllowExternalPrincipals = Nothing - , _rAMResourceShareName = namearg - , _rAMResourceSharePrincipals = Nothing - , _rAMResourceShareResourceArns = Nothing - , _rAMResourceShareTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ram-resourceshare.html#cfn-ram-resourceshare-allowexternalprincipals -ramrsAllowExternalPrincipals :: Lens' RAMResourceShare (Maybe (Val Bool)) -ramrsAllowExternalPrincipals = lens _rAMResourceShareAllowExternalPrincipals (\s a -> s { _rAMResourceShareAllowExternalPrincipals = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ram-resourceshare.html#cfn-ram-resourceshare-name -ramrsName :: Lens' RAMResourceShare (Val Text) -ramrsName = lens _rAMResourceShareName (\s a -> s { _rAMResourceShareName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ram-resourceshare.html#cfn-ram-resourceshare-principals -ramrsPrincipals :: Lens' RAMResourceShare (Maybe (ValList Text)) -ramrsPrincipals = lens _rAMResourceSharePrincipals (\s a -> s { _rAMResourceSharePrincipals = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ram-resourceshare.html#cfn-ram-resourceshare-resourcearns -ramrsResourceArns :: Lens' RAMResourceShare (Maybe (ValList Text)) -ramrsResourceArns = lens _rAMResourceShareResourceArns (\s a -> s { _rAMResourceShareResourceArns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ram-resourceshare.html#cfn-ram-resourceshare-tags -ramrsTags :: Lens' RAMResourceShare (Maybe [Tag]) -ramrsTags = lens _rAMResourceShareTags (\s a -> s { _rAMResourceShareTags = a }) diff --git a/library-gen/Stratosphere/Resources/RDSDBCluster.hs b/library-gen/Stratosphere/Resources/RDSDBCluster.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/RDSDBCluster.hs +++ /dev/null @@ -1,253 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html - -module Stratosphere.Resources.RDSDBCluster where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.RDSDBClusterDBClusterRole -import Stratosphere.ResourceProperties.RDSDBClusterScalingConfiguration -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for RDSDBCluster. See 'rdsdbCluster' for a more --- convenient constructor. -data RDSDBCluster = - RDSDBCluster - { _rDSDBClusterAssociatedRoles :: Maybe [RDSDBClusterDBClusterRole] - , _rDSDBClusterAvailabilityZones :: Maybe (ValList Text) - , _rDSDBClusterBacktrackWindow :: Maybe (Val Integer) - , _rDSDBClusterBackupRetentionPeriod :: Maybe (Val Integer) - , _rDSDBClusterDBClusterIdentifier :: Maybe (Val Text) - , _rDSDBClusterDBClusterParameterGroupName :: Maybe (Val Text) - , _rDSDBClusterDBSubnetGroupName :: Maybe (Val Text) - , _rDSDBClusterDatabaseName :: Maybe (Val Text) - , _rDSDBClusterDeletionProtection :: Maybe (Val Bool) - , _rDSDBClusterEnableCloudwatchLogsExports :: Maybe (ValList Text) - , _rDSDBClusterEnableHttpEndpoint :: Maybe (Val Bool) - , _rDSDBClusterEnableIAMDatabaseAuthentication :: Maybe (Val Bool) - , _rDSDBClusterEngine :: Val Text - , _rDSDBClusterEngineMode :: Maybe (Val Text) - , _rDSDBClusterEngineVersion :: Maybe (Val Text) - , _rDSDBClusterKmsKeyId :: Maybe (Val Text) - , _rDSDBClusterMasterUserPassword :: Maybe (Val Text) - , _rDSDBClusterMasterUsername :: Maybe (Val Text) - , _rDSDBClusterPort :: Maybe (Val Integer) - , _rDSDBClusterPreferredBackupWindow :: Maybe (Val Text) - , _rDSDBClusterPreferredMaintenanceWindow :: Maybe (Val Text) - , _rDSDBClusterReplicationSourceIdentifier :: Maybe (Val Text) - , _rDSDBClusterRestoreType :: Maybe (Val Text) - , _rDSDBClusterScalingConfiguration :: Maybe RDSDBClusterScalingConfiguration - , _rDSDBClusterSnapshotIdentifier :: Maybe (Val Text) - , _rDSDBClusterSourceDBClusterIdentifier :: Maybe (Val Text) - , _rDSDBClusterSourceRegion :: Maybe (Val Text) - , _rDSDBClusterStorageEncrypted :: Maybe (Val Bool) - , _rDSDBClusterTags :: Maybe [Tag] - , _rDSDBClusterUseLatestRestorableTime :: Maybe (Val Bool) - , _rDSDBClusterVpcSecurityGroupIds :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToResourceProperties RDSDBCluster where - toResourceProperties RDSDBCluster{..} = - ResourceProperties - { resourcePropertiesType = "AWS::RDS::DBCluster" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AssociatedRoles",) . toJSON) _rDSDBClusterAssociatedRoles - , fmap (("AvailabilityZones",) . toJSON) _rDSDBClusterAvailabilityZones - , fmap (("BacktrackWindow",) . toJSON) _rDSDBClusterBacktrackWindow - , fmap (("BackupRetentionPeriod",) . toJSON) _rDSDBClusterBackupRetentionPeriod - , fmap (("DBClusterIdentifier",) . toJSON) _rDSDBClusterDBClusterIdentifier - , fmap (("DBClusterParameterGroupName",) . toJSON) _rDSDBClusterDBClusterParameterGroupName - , fmap (("DBSubnetGroupName",) . toJSON) _rDSDBClusterDBSubnetGroupName - , fmap (("DatabaseName",) . toJSON) _rDSDBClusterDatabaseName - , fmap (("DeletionProtection",) . toJSON) _rDSDBClusterDeletionProtection - , fmap (("EnableCloudwatchLogsExports",) . toJSON) _rDSDBClusterEnableCloudwatchLogsExports - , fmap (("EnableHttpEndpoint",) . toJSON) _rDSDBClusterEnableHttpEndpoint - , fmap (("EnableIAMDatabaseAuthentication",) . toJSON) _rDSDBClusterEnableIAMDatabaseAuthentication - , (Just . ("Engine",) . toJSON) _rDSDBClusterEngine - , fmap (("EngineMode",) . toJSON) _rDSDBClusterEngineMode - , fmap (("EngineVersion",) . toJSON) _rDSDBClusterEngineVersion - , fmap (("KmsKeyId",) . toJSON) _rDSDBClusterKmsKeyId - , fmap (("MasterUserPassword",) . toJSON) _rDSDBClusterMasterUserPassword - , fmap (("MasterUsername",) . toJSON) _rDSDBClusterMasterUsername - , fmap (("Port",) . toJSON) _rDSDBClusterPort - , fmap (("PreferredBackupWindow",) . toJSON) _rDSDBClusterPreferredBackupWindow - , fmap (("PreferredMaintenanceWindow",) . toJSON) _rDSDBClusterPreferredMaintenanceWindow - , fmap (("ReplicationSourceIdentifier",) . toJSON) _rDSDBClusterReplicationSourceIdentifier - , fmap (("RestoreType",) . toJSON) _rDSDBClusterRestoreType - , fmap (("ScalingConfiguration",) . toJSON) _rDSDBClusterScalingConfiguration - , fmap (("SnapshotIdentifier",) . toJSON) _rDSDBClusterSnapshotIdentifier - , fmap (("SourceDBClusterIdentifier",) . toJSON) _rDSDBClusterSourceDBClusterIdentifier - , fmap (("SourceRegion",) . toJSON) _rDSDBClusterSourceRegion - , fmap (("StorageEncrypted",) . toJSON) _rDSDBClusterStorageEncrypted - , fmap (("Tags",) . toJSON) _rDSDBClusterTags - , fmap (("UseLatestRestorableTime",) . toJSON) _rDSDBClusterUseLatestRestorableTime - , fmap (("VpcSecurityGroupIds",) . toJSON) _rDSDBClusterVpcSecurityGroupIds - ] - } - --- | Constructor for 'RDSDBCluster' containing required fields as arguments. -rdsdbCluster - :: Val Text -- ^ 'rdsdbcEngine' - -> RDSDBCluster -rdsdbCluster enginearg = - RDSDBCluster - { _rDSDBClusterAssociatedRoles = Nothing - , _rDSDBClusterAvailabilityZones = Nothing - , _rDSDBClusterBacktrackWindow = Nothing - , _rDSDBClusterBackupRetentionPeriod = Nothing - , _rDSDBClusterDBClusterIdentifier = Nothing - , _rDSDBClusterDBClusterParameterGroupName = Nothing - , _rDSDBClusterDBSubnetGroupName = Nothing - , _rDSDBClusterDatabaseName = Nothing - , _rDSDBClusterDeletionProtection = Nothing - , _rDSDBClusterEnableCloudwatchLogsExports = Nothing - , _rDSDBClusterEnableHttpEndpoint = Nothing - , _rDSDBClusterEnableIAMDatabaseAuthentication = Nothing - , _rDSDBClusterEngine = enginearg - , _rDSDBClusterEngineMode = Nothing - , _rDSDBClusterEngineVersion = Nothing - , _rDSDBClusterKmsKeyId = Nothing - , _rDSDBClusterMasterUserPassword = Nothing - , _rDSDBClusterMasterUsername = Nothing - , _rDSDBClusterPort = Nothing - , _rDSDBClusterPreferredBackupWindow = Nothing - , _rDSDBClusterPreferredMaintenanceWindow = Nothing - , _rDSDBClusterReplicationSourceIdentifier = Nothing - , _rDSDBClusterRestoreType = Nothing - , _rDSDBClusterScalingConfiguration = Nothing - , _rDSDBClusterSnapshotIdentifier = Nothing - , _rDSDBClusterSourceDBClusterIdentifier = Nothing - , _rDSDBClusterSourceRegion = Nothing - , _rDSDBClusterStorageEncrypted = Nothing - , _rDSDBClusterTags = Nothing - , _rDSDBClusterUseLatestRestorableTime = Nothing - , _rDSDBClusterVpcSecurityGroupIds = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-associatedroles -rdsdbcAssociatedRoles :: Lens' RDSDBCluster (Maybe [RDSDBClusterDBClusterRole]) -rdsdbcAssociatedRoles = lens _rDSDBClusterAssociatedRoles (\s a -> s { _rDSDBClusterAssociatedRoles = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-availabilityzones -rdsdbcAvailabilityZones :: Lens' RDSDBCluster (Maybe (ValList Text)) -rdsdbcAvailabilityZones = lens _rDSDBClusterAvailabilityZones (\s a -> s { _rDSDBClusterAvailabilityZones = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-backtrackwindow -rdsdbcBacktrackWindow :: Lens' RDSDBCluster (Maybe (Val Integer)) -rdsdbcBacktrackWindow = lens _rDSDBClusterBacktrackWindow (\s a -> s { _rDSDBClusterBacktrackWindow = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-backuprententionperiod -rdsdbcBackupRetentionPeriod :: Lens' RDSDBCluster (Maybe (Val Integer)) -rdsdbcBackupRetentionPeriod = lens _rDSDBClusterBackupRetentionPeriod (\s a -> s { _rDSDBClusterBackupRetentionPeriod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-dbclusteridentifier -rdsdbcDBClusterIdentifier :: Lens' RDSDBCluster (Maybe (Val Text)) -rdsdbcDBClusterIdentifier = lens _rDSDBClusterDBClusterIdentifier (\s a -> s { _rDSDBClusterDBClusterIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-dbclusterparametergroupname -rdsdbcDBClusterParameterGroupName :: Lens' RDSDBCluster (Maybe (Val Text)) -rdsdbcDBClusterParameterGroupName = lens _rDSDBClusterDBClusterParameterGroupName (\s a -> s { _rDSDBClusterDBClusterParameterGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-dbsubnetgroupname -rdsdbcDBSubnetGroupName :: Lens' RDSDBCluster (Maybe (Val Text)) -rdsdbcDBSubnetGroupName = lens _rDSDBClusterDBSubnetGroupName (\s a -> s { _rDSDBClusterDBSubnetGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-databasename -rdsdbcDatabaseName :: Lens' RDSDBCluster (Maybe (Val Text)) -rdsdbcDatabaseName = lens _rDSDBClusterDatabaseName (\s a -> s { _rDSDBClusterDatabaseName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-deletionprotection -rdsdbcDeletionProtection :: Lens' RDSDBCluster (Maybe (Val Bool)) -rdsdbcDeletionProtection = lens _rDSDBClusterDeletionProtection (\s a -> s { _rDSDBClusterDeletionProtection = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-enablecloudwatchlogsexports -rdsdbcEnableCloudwatchLogsExports :: Lens' RDSDBCluster (Maybe (ValList Text)) -rdsdbcEnableCloudwatchLogsExports = lens _rDSDBClusterEnableCloudwatchLogsExports (\s a -> s { _rDSDBClusterEnableCloudwatchLogsExports = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-enablehttpendpoint -rdsdbcEnableHttpEndpoint :: Lens' RDSDBCluster (Maybe (Val Bool)) -rdsdbcEnableHttpEndpoint = lens _rDSDBClusterEnableHttpEndpoint (\s a -> s { _rDSDBClusterEnableHttpEndpoint = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-enableiamdatabaseauthentication -rdsdbcEnableIAMDatabaseAuthentication :: Lens' RDSDBCluster (Maybe (Val Bool)) -rdsdbcEnableIAMDatabaseAuthentication = lens _rDSDBClusterEnableIAMDatabaseAuthentication (\s a -> s { _rDSDBClusterEnableIAMDatabaseAuthentication = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-engine -rdsdbcEngine :: Lens' RDSDBCluster (Val Text) -rdsdbcEngine = lens _rDSDBClusterEngine (\s a -> s { _rDSDBClusterEngine = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-enginemode -rdsdbcEngineMode :: Lens' RDSDBCluster (Maybe (Val Text)) -rdsdbcEngineMode = lens _rDSDBClusterEngineMode (\s a -> s { _rDSDBClusterEngineMode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-engineversion -rdsdbcEngineVersion :: Lens' RDSDBCluster (Maybe (Val Text)) -rdsdbcEngineVersion = lens _rDSDBClusterEngineVersion (\s a -> s { _rDSDBClusterEngineVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-kmskeyid -rdsdbcKmsKeyId :: Lens' RDSDBCluster (Maybe (Val Text)) -rdsdbcKmsKeyId = lens _rDSDBClusterKmsKeyId (\s a -> s { _rDSDBClusterKmsKeyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-masteruserpassword -rdsdbcMasterUserPassword :: Lens' RDSDBCluster (Maybe (Val Text)) -rdsdbcMasterUserPassword = lens _rDSDBClusterMasterUserPassword (\s a -> s { _rDSDBClusterMasterUserPassword = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-masterusername -rdsdbcMasterUsername :: Lens' RDSDBCluster (Maybe (Val Text)) -rdsdbcMasterUsername = lens _rDSDBClusterMasterUsername (\s a -> s { _rDSDBClusterMasterUsername = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-port -rdsdbcPort :: Lens' RDSDBCluster (Maybe (Val Integer)) -rdsdbcPort = lens _rDSDBClusterPort (\s a -> s { _rDSDBClusterPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-preferredbackupwindow -rdsdbcPreferredBackupWindow :: Lens' RDSDBCluster (Maybe (Val Text)) -rdsdbcPreferredBackupWindow = lens _rDSDBClusterPreferredBackupWindow (\s a -> s { _rDSDBClusterPreferredBackupWindow = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-preferredmaintenancewindow -rdsdbcPreferredMaintenanceWindow :: Lens' RDSDBCluster (Maybe (Val Text)) -rdsdbcPreferredMaintenanceWindow = lens _rDSDBClusterPreferredMaintenanceWindow (\s a -> s { _rDSDBClusterPreferredMaintenanceWindow = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-replicationsourceidentifier -rdsdbcReplicationSourceIdentifier :: Lens' RDSDBCluster (Maybe (Val Text)) -rdsdbcReplicationSourceIdentifier = lens _rDSDBClusterReplicationSourceIdentifier (\s a -> s { _rDSDBClusterReplicationSourceIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-restoretype -rdsdbcRestoreType :: Lens' RDSDBCluster (Maybe (Val Text)) -rdsdbcRestoreType = lens _rDSDBClusterRestoreType (\s a -> s { _rDSDBClusterRestoreType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-scalingconfiguration -rdsdbcScalingConfiguration :: Lens' RDSDBCluster (Maybe RDSDBClusterScalingConfiguration) -rdsdbcScalingConfiguration = lens _rDSDBClusterScalingConfiguration (\s a -> s { _rDSDBClusterScalingConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-snapshotidentifier -rdsdbcSnapshotIdentifier :: Lens' RDSDBCluster (Maybe (Val Text)) -rdsdbcSnapshotIdentifier = lens _rDSDBClusterSnapshotIdentifier (\s a -> s { _rDSDBClusterSnapshotIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-sourcedbclusteridentifier -rdsdbcSourceDBClusterIdentifier :: Lens' RDSDBCluster (Maybe (Val Text)) -rdsdbcSourceDBClusterIdentifier = lens _rDSDBClusterSourceDBClusterIdentifier (\s a -> s { _rDSDBClusterSourceDBClusterIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-sourceregion -rdsdbcSourceRegion :: Lens' RDSDBCluster (Maybe (Val Text)) -rdsdbcSourceRegion = lens _rDSDBClusterSourceRegion (\s a -> s { _rDSDBClusterSourceRegion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-storageencrypted -rdsdbcStorageEncrypted :: Lens' RDSDBCluster (Maybe (Val Bool)) -rdsdbcStorageEncrypted = lens _rDSDBClusterStorageEncrypted (\s a -> s { _rDSDBClusterStorageEncrypted = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-tags -rdsdbcTags :: Lens' RDSDBCluster (Maybe [Tag]) -rdsdbcTags = lens _rDSDBClusterTags (\s a -> s { _rDSDBClusterTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-uselatestrestorabletime -rdsdbcUseLatestRestorableTime :: Lens' RDSDBCluster (Maybe (Val Bool)) -rdsdbcUseLatestRestorableTime = lens _rDSDBClusterUseLatestRestorableTime (\s a -> s { _rDSDBClusterUseLatestRestorableTime = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbcluster.html#cfn-rds-dbcluster-vpcsecuritygroupids -rdsdbcVpcSecurityGroupIds :: Lens' RDSDBCluster (Maybe (ValList Text)) -rdsdbcVpcSecurityGroupIds = lens _rDSDBClusterVpcSecurityGroupIds (\s a -> s { _rDSDBClusterVpcSecurityGroupIds = a }) diff --git a/library-gen/Stratosphere/Resources/RDSDBClusterParameterGroup.hs b/library-gen/Stratosphere/Resources/RDSDBClusterParameterGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/RDSDBClusterParameterGroup.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbclusterparametergroup.html - -module Stratosphere.Resources.RDSDBClusterParameterGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for RDSDBClusterParameterGroup. See --- 'rdsdbClusterParameterGroup' for a more convenient constructor. -data RDSDBClusterParameterGroup = - RDSDBClusterParameterGroup - { _rDSDBClusterParameterGroupDescription :: Val Text - , _rDSDBClusterParameterGroupFamily :: Val Text - , _rDSDBClusterParameterGroupParameters :: Object - , _rDSDBClusterParameterGroupTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties RDSDBClusterParameterGroup where - toResourceProperties RDSDBClusterParameterGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::RDS::DBClusterParameterGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Description",) . toJSON) _rDSDBClusterParameterGroupDescription - , (Just . ("Family",) . toJSON) _rDSDBClusterParameterGroupFamily - , (Just . ("Parameters",) . toJSON) _rDSDBClusterParameterGroupParameters - , fmap (("Tags",) . toJSON) _rDSDBClusterParameterGroupTags - ] - } - --- | Constructor for 'RDSDBClusterParameterGroup' containing required fields --- as arguments. -rdsdbClusterParameterGroup - :: Val Text -- ^ 'rdsdbcpgDescription' - -> Val Text -- ^ 'rdsdbcpgFamily' - -> Object -- ^ 'rdsdbcpgParameters' - -> RDSDBClusterParameterGroup -rdsdbClusterParameterGroup descriptionarg familyarg parametersarg = - RDSDBClusterParameterGroup - { _rDSDBClusterParameterGroupDescription = descriptionarg - , _rDSDBClusterParameterGroupFamily = familyarg - , _rDSDBClusterParameterGroupParameters = parametersarg - , _rDSDBClusterParameterGroupTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbclusterparametergroup.html#cfn-rds-dbclusterparametergroup-description -rdsdbcpgDescription :: Lens' RDSDBClusterParameterGroup (Val Text) -rdsdbcpgDescription = lens _rDSDBClusterParameterGroupDescription (\s a -> s { _rDSDBClusterParameterGroupDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbclusterparametergroup.html#cfn-rds-dbclusterparametergroup-family -rdsdbcpgFamily :: Lens' RDSDBClusterParameterGroup (Val Text) -rdsdbcpgFamily = lens _rDSDBClusterParameterGroupFamily (\s a -> s { _rDSDBClusterParameterGroupFamily = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbclusterparametergroup.html#cfn-rds-dbclusterparametergroup-parameters -rdsdbcpgParameters :: Lens' RDSDBClusterParameterGroup Object -rdsdbcpgParameters = lens _rDSDBClusterParameterGroupParameters (\s a -> s { _rDSDBClusterParameterGroupParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbclusterparametergroup.html#cfn-rds-dbclusterparametergroup-tags -rdsdbcpgTags :: Lens' RDSDBClusterParameterGroup (Maybe [Tag]) -rdsdbcpgTags = lens _rDSDBClusterParameterGroupTags (\s a -> s { _rDSDBClusterParameterGroupTags = a }) diff --git a/library-gen/Stratosphere/Resources/RDSDBInstance.hs b/library-gen/Stratosphere/Resources/RDSDBInstance.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/RDSDBInstance.hs +++ /dev/null @@ -1,400 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html - -module Stratosphere.Resources.RDSDBInstance where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.RDSDBInstanceDBInstanceRole -import Stratosphere.ResourceProperties.RDSDBInstanceProcessorFeature -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for RDSDBInstance. See 'rdsdbInstance' for a --- more convenient constructor. -data RDSDBInstance = - RDSDBInstance - { _rDSDBInstanceAllocatedStorage :: Maybe (Val Text) - , _rDSDBInstanceAllowMajorVersionUpgrade :: Maybe (Val Bool) - , _rDSDBInstanceAssociatedRoles :: Maybe [RDSDBInstanceDBInstanceRole] - , _rDSDBInstanceAutoMinorVersionUpgrade :: Maybe (Val Bool) - , _rDSDBInstanceAvailabilityZone :: Maybe (Val Text) - , _rDSDBInstanceBackupRetentionPeriod :: Maybe (Val Integer) - , _rDSDBInstanceCACertificateIdentifier :: Maybe (Val Text) - , _rDSDBInstanceCharacterSetName :: Maybe (Val Text) - , _rDSDBInstanceCopyTagsToSnapshot :: Maybe (Val Bool) - , _rDSDBInstanceDBClusterIdentifier :: Maybe (Val Text) - , _rDSDBInstanceDBInstanceClass :: Val Text - , _rDSDBInstanceDBInstanceIdentifier :: Maybe (Val Text) - , _rDSDBInstanceDBName :: Maybe (Val Text) - , _rDSDBInstanceDBParameterGroupName :: Maybe (Val Text) - , _rDSDBInstanceDBSecurityGroups :: Maybe (ValList Text) - , _rDSDBInstanceDBSnapshotIdentifier :: Maybe (Val Text) - , _rDSDBInstanceDBSubnetGroupName :: Maybe (Val Text) - , _rDSDBInstanceDeleteAutomatedBackups :: Maybe (Val Bool) - , _rDSDBInstanceDeletionProtection :: Maybe (Val Bool) - , _rDSDBInstanceDomain :: Maybe (Val Text) - , _rDSDBInstanceDomainIAMRoleName :: Maybe (Val Text) - , _rDSDBInstanceEnableCloudwatchLogsExports :: Maybe (ValList Text) - , _rDSDBInstanceEnableIAMDatabaseAuthentication :: Maybe (Val Bool) - , _rDSDBInstanceEnablePerformanceInsights :: Maybe (Val Bool) - , _rDSDBInstanceEngine :: Maybe (Val Text) - , _rDSDBInstanceEngineVersion :: Maybe (Val Text) - , _rDSDBInstanceIops :: Maybe (Val Integer) - , _rDSDBInstanceKmsKeyId :: Maybe (Val Text) - , _rDSDBInstanceLicenseModel :: Maybe (Val Text) - , _rDSDBInstanceMasterUserPassword :: Maybe (Val Text) - , _rDSDBInstanceMasterUsername :: Maybe (Val Text) - , _rDSDBInstanceMaxAllocatedStorage :: Maybe (Val Integer) - , _rDSDBInstanceMonitoringInterval :: Maybe (Val Integer) - , _rDSDBInstanceMonitoringRoleArn :: Maybe (Val Text) - , _rDSDBInstanceMultiAZ :: Maybe (Val Bool) - , _rDSDBInstanceOptionGroupName :: Maybe (Val Text) - , _rDSDBInstancePerformanceInsightsKMSKeyId :: Maybe (Val Text) - , _rDSDBInstancePerformanceInsightsRetentionPeriod :: Maybe (Val Integer) - , _rDSDBInstancePort :: Maybe (Val Text) - , _rDSDBInstancePreferredBackupWindow :: Maybe (Val Text) - , _rDSDBInstancePreferredMaintenanceWindow :: Maybe (Val Text) - , _rDSDBInstanceProcessorFeatures :: Maybe [RDSDBInstanceProcessorFeature] - , _rDSDBInstancePromotionTier :: Maybe (Val Integer) - , _rDSDBInstancePubliclyAccessible :: Maybe (Val Bool) - , _rDSDBInstanceSourceDBInstanceIdentifier :: Maybe (Val Text) - , _rDSDBInstanceSourceRegion :: Maybe (Val Text) - , _rDSDBInstanceStorageEncrypted :: Maybe (Val Bool) - , _rDSDBInstanceStorageType :: Maybe (Val Text) - , _rDSDBInstanceTags :: Maybe [Tag] - , _rDSDBInstanceTimezone :: Maybe (Val Text) - , _rDSDBInstanceUseDefaultProcessorFeatures :: Maybe (Val Bool) - , _rDSDBInstanceVPCSecurityGroups :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToResourceProperties RDSDBInstance where - toResourceProperties RDSDBInstance{..} = - ResourceProperties - { resourcePropertiesType = "AWS::RDS::DBInstance" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AllocatedStorage",) . toJSON) _rDSDBInstanceAllocatedStorage - , fmap (("AllowMajorVersionUpgrade",) . toJSON) _rDSDBInstanceAllowMajorVersionUpgrade - , fmap (("AssociatedRoles",) . toJSON) _rDSDBInstanceAssociatedRoles - , fmap (("AutoMinorVersionUpgrade",) . toJSON) _rDSDBInstanceAutoMinorVersionUpgrade - , fmap (("AvailabilityZone",) . toJSON) _rDSDBInstanceAvailabilityZone - , fmap (("BackupRetentionPeriod",) . toJSON) _rDSDBInstanceBackupRetentionPeriod - , fmap (("CACertificateIdentifier",) . toJSON) _rDSDBInstanceCACertificateIdentifier - , fmap (("CharacterSetName",) . toJSON) _rDSDBInstanceCharacterSetName - , fmap (("CopyTagsToSnapshot",) . toJSON) _rDSDBInstanceCopyTagsToSnapshot - , fmap (("DBClusterIdentifier",) . toJSON) _rDSDBInstanceDBClusterIdentifier - , (Just . ("DBInstanceClass",) . toJSON) _rDSDBInstanceDBInstanceClass - , fmap (("DBInstanceIdentifier",) . toJSON) _rDSDBInstanceDBInstanceIdentifier - , fmap (("DBName",) . toJSON) _rDSDBInstanceDBName - , fmap (("DBParameterGroupName",) . toJSON) _rDSDBInstanceDBParameterGroupName - , fmap (("DBSecurityGroups",) . toJSON) _rDSDBInstanceDBSecurityGroups - , fmap (("DBSnapshotIdentifier",) . toJSON) _rDSDBInstanceDBSnapshotIdentifier - , fmap (("DBSubnetGroupName",) . toJSON) _rDSDBInstanceDBSubnetGroupName - , fmap (("DeleteAutomatedBackups",) . toJSON) _rDSDBInstanceDeleteAutomatedBackups - , fmap (("DeletionProtection",) . toJSON) _rDSDBInstanceDeletionProtection - , fmap (("Domain",) . toJSON) _rDSDBInstanceDomain - , fmap (("DomainIAMRoleName",) . toJSON) _rDSDBInstanceDomainIAMRoleName - , fmap (("EnableCloudwatchLogsExports",) . toJSON) _rDSDBInstanceEnableCloudwatchLogsExports - , fmap (("EnableIAMDatabaseAuthentication",) . toJSON) _rDSDBInstanceEnableIAMDatabaseAuthentication - , fmap (("EnablePerformanceInsights",) . toJSON) _rDSDBInstanceEnablePerformanceInsights - , fmap (("Engine",) . toJSON) _rDSDBInstanceEngine - , fmap (("EngineVersion",) . toJSON) _rDSDBInstanceEngineVersion - , fmap (("Iops",) . toJSON) _rDSDBInstanceIops - , fmap (("KmsKeyId",) . toJSON) _rDSDBInstanceKmsKeyId - , fmap (("LicenseModel",) . toJSON) _rDSDBInstanceLicenseModel - , fmap (("MasterUserPassword",) . toJSON) _rDSDBInstanceMasterUserPassword - , fmap (("MasterUsername",) . toJSON) _rDSDBInstanceMasterUsername - , fmap (("MaxAllocatedStorage",) . toJSON) _rDSDBInstanceMaxAllocatedStorage - , fmap (("MonitoringInterval",) . toJSON) _rDSDBInstanceMonitoringInterval - , fmap (("MonitoringRoleArn",) . toJSON) _rDSDBInstanceMonitoringRoleArn - , fmap (("MultiAZ",) . toJSON) _rDSDBInstanceMultiAZ - , fmap (("OptionGroupName",) . toJSON) _rDSDBInstanceOptionGroupName - , fmap (("PerformanceInsightsKMSKeyId",) . toJSON) _rDSDBInstancePerformanceInsightsKMSKeyId - , fmap (("PerformanceInsightsRetentionPeriod",) . toJSON) _rDSDBInstancePerformanceInsightsRetentionPeriod - , fmap (("Port",) . toJSON) _rDSDBInstancePort - , fmap (("PreferredBackupWindow",) . toJSON) _rDSDBInstancePreferredBackupWindow - , fmap (("PreferredMaintenanceWindow",) . toJSON) _rDSDBInstancePreferredMaintenanceWindow - , fmap (("ProcessorFeatures",) . toJSON) _rDSDBInstanceProcessorFeatures - , fmap (("PromotionTier",) . toJSON) _rDSDBInstancePromotionTier - , fmap (("PubliclyAccessible",) . toJSON) _rDSDBInstancePubliclyAccessible - , fmap (("SourceDBInstanceIdentifier",) . toJSON) _rDSDBInstanceSourceDBInstanceIdentifier - , fmap (("SourceRegion",) . toJSON) _rDSDBInstanceSourceRegion - , fmap (("StorageEncrypted",) . toJSON) _rDSDBInstanceStorageEncrypted - , fmap (("StorageType",) . toJSON) _rDSDBInstanceStorageType - , fmap (("Tags",) . toJSON) _rDSDBInstanceTags - , fmap (("Timezone",) . toJSON) _rDSDBInstanceTimezone - , fmap (("UseDefaultProcessorFeatures",) . toJSON) _rDSDBInstanceUseDefaultProcessorFeatures - , fmap (("VPCSecurityGroups",) . toJSON) _rDSDBInstanceVPCSecurityGroups - ] - } - --- | Constructor for 'RDSDBInstance' containing required fields as arguments. -rdsdbInstance - :: Val Text -- ^ 'rdsdbiDBInstanceClass' - -> RDSDBInstance -rdsdbInstance dBInstanceClassarg = - RDSDBInstance - { _rDSDBInstanceAllocatedStorage = Nothing - , _rDSDBInstanceAllowMajorVersionUpgrade = Nothing - , _rDSDBInstanceAssociatedRoles = Nothing - , _rDSDBInstanceAutoMinorVersionUpgrade = Nothing - , _rDSDBInstanceAvailabilityZone = Nothing - , _rDSDBInstanceBackupRetentionPeriod = Nothing - , _rDSDBInstanceCACertificateIdentifier = Nothing - , _rDSDBInstanceCharacterSetName = Nothing - , _rDSDBInstanceCopyTagsToSnapshot = Nothing - , _rDSDBInstanceDBClusterIdentifier = Nothing - , _rDSDBInstanceDBInstanceClass = dBInstanceClassarg - , _rDSDBInstanceDBInstanceIdentifier = Nothing - , _rDSDBInstanceDBName = Nothing - , _rDSDBInstanceDBParameterGroupName = Nothing - , _rDSDBInstanceDBSecurityGroups = Nothing - , _rDSDBInstanceDBSnapshotIdentifier = Nothing - , _rDSDBInstanceDBSubnetGroupName = Nothing - , _rDSDBInstanceDeleteAutomatedBackups = Nothing - , _rDSDBInstanceDeletionProtection = Nothing - , _rDSDBInstanceDomain = Nothing - , _rDSDBInstanceDomainIAMRoleName = Nothing - , _rDSDBInstanceEnableCloudwatchLogsExports = Nothing - , _rDSDBInstanceEnableIAMDatabaseAuthentication = Nothing - , _rDSDBInstanceEnablePerformanceInsights = Nothing - , _rDSDBInstanceEngine = Nothing - , _rDSDBInstanceEngineVersion = Nothing - , _rDSDBInstanceIops = Nothing - , _rDSDBInstanceKmsKeyId = Nothing - , _rDSDBInstanceLicenseModel = Nothing - , _rDSDBInstanceMasterUserPassword = Nothing - , _rDSDBInstanceMasterUsername = Nothing - , _rDSDBInstanceMaxAllocatedStorage = Nothing - , _rDSDBInstanceMonitoringInterval = Nothing - , _rDSDBInstanceMonitoringRoleArn = Nothing - , _rDSDBInstanceMultiAZ = Nothing - , _rDSDBInstanceOptionGroupName = Nothing - , _rDSDBInstancePerformanceInsightsKMSKeyId = Nothing - , _rDSDBInstancePerformanceInsightsRetentionPeriod = Nothing - , _rDSDBInstancePort = Nothing - , _rDSDBInstancePreferredBackupWindow = Nothing - , _rDSDBInstancePreferredMaintenanceWindow = Nothing - , _rDSDBInstanceProcessorFeatures = Nothing - , _rDSDBInstancePromotionTier = Nothing - , _rDSDBInstancePubliclyAccessible = Nothing - , _rDSDBInstanceSourceDBInstanceIdentifier = Nothing - , _rDSDBInstanceSourceRegion = Nothing - , _rDSDBInstanceStorageEncrypted = Nothing - , _rDSDBInstanceStorageType = Nothing - , _rDSDBInstanceTags = Nothing - , _rDSDBInstanceTimezone = Nothing - , _rDSDBInstanceUseDefaultProcessorFeatures = Nothing - , _rDSDBInstanceVPCSecurityGroups = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-allocatedstorage -rdsdbiAllocatedStorage :: Lens' RDSDBInstance (Maybe (Val Text)) -rdsdbiAllocatedStorage = lens _rDSDBInstanceAllocatedStorage (\s a -> s { _rDSDBInstanceAllocatedStorage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-allowmajorversionupgrade -rdsdbiAllowMajorVersionUpgrade :: Lens' RDSDBInstance (Maybe (Val Bool)) -rdsdbiAllowMajorVersionUpgrade = lens _rDSDBInstanceAllowMajorVersionUpgrade (\s a -> s { _rDSDBInstanceAllowMajorVersionUpgrade = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-associatedroles -rdsdbiAssociatedRoles :: Lens' RDSDBInstance (Maybe [RDSDBInstanceDBInstanceRole]) -rdsdbiAssociatedRoles = lens _rDSDBInstanceAssociatedRoles (\s a -> s { _rDSDBInstanceAssociatedRoles = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-autominorversionupgrade -rdsdbiAutoMinorVersionUpgrade :: Lens' RDSDBInstance (Maybe (Val Bool)) -rdsdbiAutoMinorVersionUpgrade = lens _rDSDBInstanceAutoMinorVersionUpgrade (\s a -> s { _rDSDBInstanceAutoMinorVersionUpgrade = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-availabilityzone -rdsdbiAvailabilityZone :: Lens' RDSDBInstance (Maybe (Val Text)) -rdsdbiAvailabilityZone = lens _rDSDBInstanceAvailabilityZone (\s a -> s { _rDSDBInstanceAvailabilityZone = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-backupretentionperiod -rdsdbiBackupRetentionPeriod :: Lens' RDSDBInstance (Maybe (Val Integer)) -rdsdbiBackupRetentionPeriod = lens _rDSDBInstanceBackupRetentionPeriod (\s a -> s { _rDSDBInstanceBackupRetentionPeriod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-cacertificateidentifier -rdsdbiCACertificateIdentifier :: Lens' RDSDBInstance (Maybe (Val Text)) -rdsdbiCACertificateIdentifier = lens _rDSDBInstanceCACertificateIdentifier (\s a -> s { _rDSDBInstanceCACertificateIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-charactersetname -rdsdbiCharacterSetName :: Lens' RDSDBInstance (Maybe (Val Text)) -rdsdbiCharacterSetName = lens _rDSDBInstanceCharacterSetName (\s a -> s { _rDSDBInstanceCharacterSetName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-copytagstosnapshot -rdsdbiCopyTagsToSnapshot :: Lens' RDSDBInstance (Maybe (Val Bool)) -rdsdbiCopyTagsToSnapshot = lens _rDSDBInstanceCopyTagsToSnapshot (\s a -> s { _rDSDBInstanceCopyTagsToSnapshot = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-dbclusteridentifier -rdsdbiDBClusterIdentifier :: Lens' RDSDBInstance (Maybe (Val Text)) -rdsdbiDBClusterIdentifier = lens _rDSDBInstanceDBClusterIdentifier (\s a -> s { _rDSDBInstanceDBClusterIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-dbinstanceclass -rdsdbiDBInstanceClass :: Lens' RDSDBInstance (Val Text) -rdsdbiDBInstanceClass = lens _rDSDBInstanceDBInstanceClass (\s a -> s { _rDSDBInstanceDBInstanceClass = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-dbinstanceidentifier -rdsdbiDBInstanceIdentifier :: Lens' RDSDBInstance (Maybe (Val Text)) -rdsdbiDBInstanceIdentifier = lens _rDSDBInstanceDBInstanceIdentifier (\s a -> s { _rDSDBInstanceDBInstanceIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-dbname -rdsdbiDBName :: Lens' RDSDBInstance (Maybe (Val Text)) -rdsdbiDBName = lens _rDSDBInstanceDBName (\s a -> s { _rDSDBInstanceDBName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-dbparametergroupname -rdsdbiDBParameterGroupName :: Lens' RDSDBInstance (Maybe (Val Text)) -rdsdbiDBParameterGroupName = lens _rDSDBInstanceDBParameterGroupName (\s a -> s { _rDSDBInstanceDBParameterGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-dbsecuritygroups -rdsdbiDBSecurityGroups :: Lens' RDSDBInstance (Maybe (ValList Text)) -rdsdbiDBSecurityGroups = lens _rDSDBInstanceDBSecurityGroups (\s a -> s { _rDSDBInstanceDBSecurityGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-dbsnapshotidentifier -rdsdbiDBSnapshotIdentifier :: Lens' RDSDBInstance (Maybe (Val Text)) -rdsdbiDBSnapshotIdentifier = lens _rDSDBInstanceDBSnapshotIdentifier (\s a -> s { _rDSDBInstanceDBSnapshotIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-dbsubnetgroupname -rdsdbiDBSubnetGroupName :: Lens' RDSDBInstance (Maybe (Val Text)) -rdsdbiDBSubnetGroupName = lens _rDSDBInstanceDBSubnetGroupName (\s a -> s { _rDSDBInstanceDBSubnetGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-deleteautomatedbackups -rdsdbiDeleteAutomatedBackups :: Lens' RDSDBInstance (Maybe (Val Bool)) -rdsdbiDeleteAutomatedBackups = lens _rDSDBInstanceDeleteAutomatedBackups (\s a -> s { _rDSDBInstanceDeleteAutomatedBackups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-deletionprotection -rdsdbiDeletionProtection :: Lens' RDSDBInstance (Maybe (Val Bool)) -rdsdbiDeletionProtection = lens _rDSDBInstanceDeletionProtection (\s a -> s { _rDSDBInstanceDeletionProtection = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-domain -rdsdbiDomain :: Lens' RDSDBInstance (Maybe (Val Text)) -rdsdbiDomain = lens _rDSDBInstanceDomain (\s a -> s { _rDSDBInstanceDomain = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-domainiamrolename -rdsdbiDomainIAMRoleName :: Lens' RDSDBInstance (Maybe (Val Text)) -rdsdbiDomainIAMRoleName = lens _rDSDBInstanceDomainIAMRoleName (\s a -> s { _rDSDBInstanceDomainIAMRoleName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-enablecloudwatchlogsexports -rdsdbiEnableCloudwatchLogsExports :: Lens' RDSDBInstance (Maybe (ValList Text)) -rdsdbiEnableCloudwatchLogsExports = lens _rDSDBInstanceEnableCloudwatchLogsExports (\s a -> s { _rDSDBInstanceEnableCloudwatchLogsExports = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-enableiamdatabaseauthentication -rdsdbiEnableIAMDatabaseAuthentication :: Lens' RDSDBInstance (Maybe (Val Bool)) -rdsdbiEnableIAMDatabaseAuthentication = lens _rDSDBInstanceEnableIAMDatabaseAuthentication (\s a -> s { _rDSDBInstanceEnableIAMDatabaseAuthentication = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-enableperformanceinsights -rdsdbiEnablePerformanceInsights :: Lens' RDSDBInstance (Maybe (Val Bool)) -rdsdbiEnablePerformanceInsights = lens _rDSDBInstanceEnablePerformanceInsights (\s a -> s { _rDSDBInstanceEnablePerformanceInsights = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-engine -rdsdbiEngine :: Lens' RDSDBInstance (Maybe (Val Text)) -rdsdbiEngine = lens _rDSDBInstanceEngine (\s a -> s { _rDSDBInstanceEngine = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-engineversion -rdsdbiEngineVersion :: Lens' RDSDBInstance (Maybe (Val Text)) -rdsdbiEngineVersion = lens _rDSDBInstanceEngineVersion (\s a -> s { _rDSDBInstanceEngineVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-iops -rdsdbiIops :: Lens' RDSDBInstance (Maybe (Val Integer)) -rdsdbiIops = lens _rDSDBInstanceIops (\s a -> s { _rDSDBInstanceIops = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-kmskeyid -rdsdbiKmsKeyId :: Lens' RDSDBInstance (Maybe (Val Text)) -rdsdbiKmsKeyId = lens _rDSDBInstanceKmsKeyId (\s a -> s { _rDSDBInstanceKmsKeyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-licensemodel -rdsdbiLicenseModel :: Lens' RDSDBInstance (Maybe (Val Text)) -rdsdbiLicenseModel = lens _rDSDBInstanceLicenseModel (\s a -> s { _rDSDBInstanceLicenseModel = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-masteruserpassword -rdsdbiMasterUserPassword :: Lens' RDSDBInstance (Maybe (Val Text)) -rdsdbiMasterUserPassword = lens _rDSDBInstanceMasterUserPassword (\s a -> s { _rDSDBInstanceMasterUserPassword = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-masterusername -rdsdbiMasterUsername :: Lens' RDSDBInstance (Maybe (Val Text)) -rdsdbiMasterUsername = lens _rDSDBInstanceMasterUsername (\s a -> s { _rDSDBInstanceMasterUsername = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-maxallocatedstorage -rdsdbiMaxAllocatedStorage :: Lens' RDSDBInstance (Maybe (Val Integer)) -rdsdbiMaxAllocatedStorage = lens _rDSDBInstanceMaxAllocatedStorage (\s a -> s { _rDSDBInstanceMaxAllocatedStorage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-monitoringinterval -rdsdbiMonitoringInterval :: Lens' RDSDBInstance (Maybe (Val Integer)) -rdsdbiMonitoringInterval = lens _rDSDBInstanceMonitoringInterval (\s a -> s { _rDSDBInstanceMonitoringInterval = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-monitoringrolearn -rdsdbiMonitoringRoleArn :: Lens' RDSDBInstance (Maybe (Val Text)) -rdsdbiMonitoringRoleArn = lens _rDSDBInstanceMonitoringRoleArn (\s a -> s { _rDSDBInstanceMonitoringRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-multiaz -rdsdbiMultiAZ :: Lens' RDSDBInstance (Maybe (Val Bool)) -rdsdbiMultiAZ = lens _rDSDBInstanceMultiAZ (\s a -> s { _rDSDBInstanceMultiAZ = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-optiongroupname -rdsdbiOptionGroupName :: Lens' RDSDBInstance (Maybe (Val Text)) -rdsdbiOptionGroupName = lens _rDSDBInstanceOptionGroupName (\s a -> s { _rDSDBInstanceOptionGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-performanceinsightskmskeyid -rdsdbiPerformanceInsightsKMSKeyId :: Lens' RDSDBInstance (Maybe (Val Text)) -rdsdbiPerformanceInsightsKMSKeyId = lens _rDSDBInstancePerformanceInsightsKMSKeyId (\s a -> s { _rDSDBInstancePerformanceInsightsKMSKeyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-performanceinsightsretentionperiod -rdsdbiPerformanceInsightsRetentionPeriod :: Lens' RDSDBInstance (Maybe (Val Integer)) -rdsdbiPerformanceInsightsRetentionPeriod = lens _rDSDBInstancePerformanceInsightsRetentionPeriod (\s a -> s { _rDSDBInstancePerformanceInsightsRetentionPeriod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-port -rdsdbiPort :: Lens' RDSDBInstance (Maybe (Val Text)) -rdsdbiPort = lens _rDSDBInstancePort (\s a -> s { _rDSDBInstancePort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-preferredbackupwindow -rdsdbiPreferredBackupWindow :: Lens' RDSDBInstance (Maybe (Val Text)) -rdsdbiPreferredBackupWindow = lens _rDSDBInstancePreferredBackupWindow (\s a -> s { _rDSDBInstancePreferredBackupWindow = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-preferredmaintenancewindow -rdsdbiPreferredMaintenanceWindow :: Lens' RDSDBInstance (Maybe (Val Text)) -rdsdbiPreferredMaintenanceWindow = lens _rDSDBInstancePreferredMaintenanceWindow (\s a -> s { _rDSDBInstancePreferredMaintenanceWindow = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-processorfeatures -rdsdbiProcessorFeatures :: Lens' RDSDBInstance (Maybe [RDSDBInstanceProcessorFeature]) -rdsdbiProcessorFeatures = lens _rDSDBInstanceProcessorFeatures (\s a -> s { _rDSDBInstanceProcessorFeatures = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-promotiontier -rdsdbiPromotionTier :: Lens' RDSDBInstance (Maybe (Val Integer)) -rdsdbiPromotionTier = lens _rDSDBInstancePromotionTier (\s a -> s { _rDSDBInstancePromotionTier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-publiclyaccessible -rdsdbiPubliclyAccessible :: Lens' RDSDBInstance (Maybe (Val Bool)) -rdsdbiPubliclyAccessible = lens _rDSDBInstancePubliclyAccessible (\s a -> s { _rDSDBInstancePubliclyAccessible = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-sourcedbinstanceidentifier -rdsdbiSourceDBInstanceIdentifier :: Lens' RDSDBInstance (Maybe (Val Text)) -rdsdbiSourceDBInstanceIdentifier = lens _rDSDBInstanceSourceDBInstanceIdentifier (\s a -> s { _rDSDBInstanceSourceDBInstanceIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-sourceregion -rdsdbiSourceRegion :: Lens' RDSDBInstance (Maybe (Val Text)) -rdsdbiSourceRegion = lens _rDSDBInstanceSourceRegion (\s a -> s { _rDSDBInstanceSourceRegion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-storageencrypted -rdsdbiStorageEncrypted :: Lens' RDSDBInstance (Maybe (Val Bool)) -rdsdbiStorageEncrypted = lens _rDSDBInstanceStorageEncrypted (\s a -> s { _rDSDBInstanceStorageEncrypted = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-storagetype -rdsdbiStorageType :: Lens' RDSDBInstance (Maybe (Val Text)) -rdsdbiStorageType = lens _rDSDBInstanceStorageType (\s a -> s { _rDSDBInstanceStorageType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-tags -rdsdbiTags :: Lens' RDSDBInstance (Maybe [Tag]) -rdsdbiTags = lens _rDSDBInstanceTags (\s a -> s { _rDSDBInstanceTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-timezone -rdsdbiTimezone :: Lens' RDSDBInstance (Maybe (Val Text)) -rdsdbiTimezone = lens _rDSDBInstanceTimezone (\s a -> s { _rDSDBInstanceTimezone = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-usedefaultprocessorfeatures -rdsdbiUseDefaultProcessorFeatures :: Lens' RDSDBInstance (Maybe (Val Bool)) -rdsdbiUseDefaultProcessorFeatures = lens _rDSDBInstanceUseDefaultProcessorFeatures (\s a -> s { _rDSDBInstanceUseDefaultProcessorFeatures = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-vpcsecuritygroups -rdsdbiVPCSecurityGroups :: Lens' RDSDBInstance (Maybe (ValList Text)) -rdsdbiVPCSecurityGroups = lens _rDSDBInstanceVPCSecurityGroups (\s a -> s { _rDSDBInstanceVPCSecurityGroups = a }) diff --git a/library-gen/Stratosphere/Resources/RDSDBParameterGroup.hs b/library-gen/Stratosphere/Resources/RDSDBParameterGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/RDSDBParameterGroup.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbparametergroup.html - -module Stratosphere.Resources.RDSDBParameterGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for RDSDBParameterGroup. See --- 'rdsdbParameterGroup' for a more convenient constructor. -data RDSDBParameterGroup = - RDSDBParameterGroup - { _rDSDBParameterGroupDescription :: Val Text - , _rDSDBParameterGroupFamily :: Val Text - , _rDSDBParameterGroupParameters :: Maybe Object - , _rDSDBParameterGroupTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties RDSDBParameterGroup where - toResourceProperties RDSDBParameterGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::RDS::DBParameterGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Description",) . toJSON) _rDSDBParameterGroupDescription - , (Just . ("Family",) . toJSON) _rDSDBParameterGroupFamily - , fmap (("Parameters",) . toJSON) _rDSDBParameterGroupParameters - , fmap (("Tags",) . toJSON) _rDSDBParameterGroupTags - ] - } - --- | Constructor for 'RDSDBParameterGroup' containing required fields as --- arguments. -rdsdbParameterGroup - :: Val Text -- ^ 'rdsdbpgDescription' - -> Val Text -- ^ 'rdsdbpgFamily' - -> RDSDBParameterGroup -rdsdbParameterGroup descriptionarg familyarg = - RDSDBParameterGroup - { _rDSDBParameterGroupDescription = descriptionarg - , _rDSDBParameterGroupFamily = familyarg - , _rDSDBParameterGroupParameters = Nothing - , _rDSDBParameterGroupTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbparametergroup.html#cfn-rds-dbparametergroup-description -rdsdbpgDescription :: Lens' RDSDBParameterGroup (Val Text) -rdsdbpgDescription = lens _rDSDBParameterGroupDescription (\s a -> s { _rDSDBParameterGroupDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbparametergroup.html#cfn-rds-dbparametergroup-family -rdsdbpgFamily :: Lens' RDSDBParameterGroup (Val Text) -rdsdbpgFamily = lens _rDSDBParameterGroupFamily (\s a -> s { _rDSDBParameterGroupFamily = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbparametergroup.html#cfn-rds-dbparametergroup-parameters -rdsdbpgParameters :: Lens' RDSDBParameterGroup (Maybe Object) -rdsdbpgParameters = lens _rDSDBParameterGroupParameters (\s a -> s { _rDSDBParameterGroupParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-dbparametergroup.html#cfn-rds-dbparametergroup-tags -rdsdbpgTags :: Lens' RDSDBParameterGroup (Maybe [Tag]) -rdsdbpgTags = lens _rDSDBParameterGroupTags (\s a -> s { _rDSDBParameterGroupTags = a }) diff --git a/library-gen/Stratosphere/Resources/RDSDBProxy.hs b/library-gen/Stratosphere/Resources/RDSDBProxy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/RDSDBProxy.hs +++ /dev/null @@ -1,109 +0,0 @@ -{-# 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 = - keyMapFromList $ 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 }) diff --git a/library-gen/Stratosphere/Resources/RDSDBProxyTargetGroup.hs b/library-gen/Stratosphere/Resources/RDSDBProxyTargetGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/RDSDBProxyTargetGroup.hs +++ /dev/null @@ -1,71 +0,0 @@ -{-# 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 - , _rDSDBProxyTargetGroupTargetGroupName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties RDSDBProxyTargetGroup where - toResourceProperties RDSDBProxyTargetGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::RDS::DBProxyTargetGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ConnectionPoolConfigurationInfo",) . toJSON) _rDSDBProxyTargetGroupConnectionPoolConfigurationInfo - , fmap (("DBClusterIdentifiers",) . toJSON) _rDSDBProxyTargetGroupDBClusterIdentifiers - , fmap (("DBInstanceIdentifiers",) . toJSON) _rDSDBProxyTargetGroupDBInstanceIdentifiers - , (Just . ("DBProxyName",) . toJSON) _rDSDBProxyTargetGroupDBProxyName - , (Just . ("TargetGroupName",) . toJSON) _rDSDBProxyTargetGroupTargetGroupName - ] - } - --- | Constructor for 'RDSDBProxyTargetGroup' containing required fields as --- arguments. -rdsdbProxyTargetGroup - :: Val Text -- ^ 'rdsdbptgDBProxyName' - -> Val Text -- ^ 'rdsdbptgTargetGroupName' - -> RDSDBProxyTargetGroup -rdsdbProxyTargetGroup dBProxyNamearg targetGroupNamearg = - RDSDBProxyTargetGroup - { _rDSDBProxyTargetGroupConnectionPoolConfigurationInfo = Nothing - , _rDSDBProxyTargetGroupDBClusterIdentifiers = Nothing - , _rDSDBProxyTargetGroupDBInstanceIdentifiers = Nothing - , _rDSDBProxyTargetGroupDBProxyName = dBProxyNamearg - , _rDSDBProxyTargetGroupTargetGroupName = targetGroupNamearg - } - --- | 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 }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbproxytargetgroup.html#cfn-rds-dbproxytargetgroup-targetgroupname -rdsdbptgTargetGroupName :: Lens' RDSDBProxyTargetGroup (Val Text) -rdsdbptgTargetGroupName = lens _rDSDBProxyTargetGroupTargetGroupName (\s a -> s { _rDSDBProxyTargetGroupTargetGroupName = a }) diff --git a/library-gen/Stratosphere/Resources/RDSDBSecurityGroup.hs b/library-gen/Stratosphere/Resources/RDSDBSecurityGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/RDSDBSecurityGroup.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-security-group.html - -module Stratosphere.Resources.RDSDBSecurityGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.RDSDBSecurityGroupIngressProperty -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for RDSDBSecurityGroup. See --- 'rdsdbSecurityGroup' for a more convenient constructor. -data RDSDBSecurityGroup = - RDSDBSecurityGroup - { _rDSDBSecurityGroupDBSecurityGroupIngress :: [RDSDBSecurityGroupIngressProperty] - , _rDSDBSecurityGroupEC2VpcId :: Maybe (Val Text) - , _rDSDBSecurityGroupGroupDescription :: Val Text - , _rDSDBSecurityGroupTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties RDSDBSecurityGroup where - toResourceProperties RDSDBSecurityGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::RDS::DBSecurityGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("DBSecurityGroupIngress",) . toJSON) _rDSDBSecurityGroupDBSecurityGroupIngress - , fmap (("EC2VpcId",) . toJSON) _rDSDBSecurityGroupEC2VpcId - , (Just . ("GroupDescription",) . toJSON) _rDSDBSecurityGroupGroupDescription - , fmap (("Tags",) . toJSON) _rDSDBSecurityGroupTags - ] - } - --- | Constructor for 'RDSDBSecurityGroup' containing required fields as --- arguments. -rdsdbSecurityGroup - :: [RDSDBSecurityGroupIngressProperty] -- ^ 'rdsdbsegDBSecurityGroupIngress' - -> Val Text -- ^ 'rdsdbsegGroupDescription' - -> RDSDBSecurityGroup -rdsdbSecurityGroup dBSecurityGroupIngressarg groupDescriptionarg = - RDSDBSecurityGroup - { _rDSDBSecurityGroupDBSecurityGroupIngress = dBSecurityGroupIngressarg - , _rDSDBSecurityGroupEC2VpcId = Nothing - , _rDSDBSecurityGroupGroupDescription = groupDescriptionarg - , _rDSDBSecurityGroupTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-security-group.html#cfn-rds-dbsecuritygroup-dbsecuritygroupingress -rdsdbsegDBSecurityGroupIngress :: Lens' RDSDBSecurityGroup [RDSDBSecurityGroupIngressProperty] -rdsdbsegDBSecurityGroupIngress = lens _rDSDBSecurityGroupDBSecurityGroupIngress (\s a -> s { _rDSDBSecurityGroupDBSecurityGroupIngress = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-security-group.html#cfn-rds-dbsecuritygroup-ec2vpcid -rdsdbsegEC2VpcId :: Lens' RDSDBSecurityGroup (Maybe (Val Text)) -rdsdbsegEC2VpcId = lens _rDSDBSecurityGroupEC2VpcId (\s a -> s { _rDSDBSecurityGroupEC2VpcId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-security-group.html#cfn-rds-dbsecuritygroup-groupdescription -rdsdbsegGroupDescription :: Lens' RDSDBSecurityGroup (Val Text) -rdsdbsegGroupDescription = lens _rDSDBSecurityGroupGroupDescription (\s a -> s { _rDSDBSecurityGroupGroupDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-security-group.html#cfn-rds-dbsecuritygroup-tags -rdsdbsegTags :: Lens' RDSDBSecurityGroup (Maybe [Tag]) -rdsdbsegTags = lens _rDSDBSecurityGroupTags (\s a -> s { _rDSDBSecurityGroupTags = a }) diff --git a/library-gen/Stratosphere/Resources/RDSDBSecurityGroupIngress.hs b/library-gen/Stratosphere/Resources/RDSDBSecurityGroupIngress.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/RDSDBSecurityGroupIngress.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-security-group-ingress.html - -module Stratosphere.Resources.RDSDBSecurityGroupIngress where - -import Stratosphere.ResourceImports - - --- | Full data type definition for RDSDBSecurityGroupIngress. See --- 'rdsdbSecurityGroupIngress' for a more convenient constructor. -data RDSDBSecurityGroupIngress = - RDSDBSecurityGroupIngress - { _rDSDBSecurityGroupIngressCIDRIP :: Maybe (Val Text) - , _rDSDBSecurityGroupIngressDBSecurityGroupName :: Val Text - , _rDSDBSecurityGroupIngressEC2SecurityGroupId :: Maybe (Val Text) - , _rDSDBSecurityGroupIngressEC2SecurityGroupName :: Maybe (Val Text) - , _rDSDBSecurityGroupIngressEC2SecurityGroupOwnerId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties RDSDBSecurityGroupIngress where - toResourceProperties RDSDBSecurityGroupIngress{..} = - ResourceProperties - { resourcePropertiesType = "AWS::RDS::DBSecurityGroupIngress" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("CIDRIP",) . toJSON) _rDSDBSecurityGroupIngressCIDRIP - , (Just . ("DBSecurityGroupName",) . toJSON) _rDSDBSecurityGroupIngressDBSecurityGroupName - , fmap (("EC2SecurityGroupId",) . toJSON) _rDSDBSecurityGroupIngressEC2SecurityGroupId - , fmap (("EC2SecurityGroupName",) . toJSON) _rDSDBSecurityGroupIngressEC2SecurityGroupName - , fmap (("EC2SecurityGroupOwnerId",) . toJSON) _rDSDBSecurityGroupIngressEC2SecurityGroupOwnerId - ] - } - --- | Constructor for 'RDSDBSecurityGroupIngress' containing required fields as --- arguments. -rdsdbSecurityGroupIngress - :: Val Text -- ^ 'rdsdbsgiDBSecurityGroupName' - -> RDSDBSecurityGroupIngress -rdsdbSecurityGroupIngress dBSecurityGroupNamearg = - RDSDBSecurityGroupIngress - { _rDSDBSecurityGroupIngressCIDRIP = Nothing - , _rDSDBSecurityGroupIngressDBSecurityGroupName = dBSecurityGroupNamearg - , _rDSDBSecurityGroupIngressEC2SecurityGroupId = Nothing - , _rDSDBSecurityGroupIngressEC2SecurityGroupName = Nothing - , _rDSDBSecurityGroupIngressEC2SecurityGroupOwnerId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-security-group-ingress.html#cfn-rds-securitygroup-ingress-cidrip -rdsdbsgiCIDRIP :: Lens' RDSDBSecurityGroupIngress (Maybe (Val Text)) -rdsdbsgiCIDRIP = lens _rDSDBSecurityGroupIngressCIDRIP (\s a -> s { _rDSDBSecurityGroupIngressCIDRIP = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-security-group-ingress.html#cfn-rds-securitygroup-ingress-dbsecuritygroupname -rdsdbsgiDBSecurityGroupName :: Lens' RDSDBSecurityGroupIngress (Val Text) -rdsdbsgiDBSecurityGroupName = lens _rDSDBSecurityGroupIngressDBSecurityGroupName (\s a -> s { _rDSDBSecurityGroupIngressDBSecurityGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-security-group-ingress.html#cfn-rds-securitygroup-ingress-ec2securitygroupid -rdsdbsgiEC2SecurityGroupId :: Lens' RDSDBSecurityGroupIngress (Maybe (Val Text)) -rdsdbsgiEC2SecurityGroupId = lens _rDSDBSecurityGroupIngressEC2SecurityGroupId (\s a -> s { _rDSDBSecurityGroupIngressEC2SecurityGroupId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-security-group-ingress.html#cfn-rds-securitygroup-ingress-ec2securitygroupname -rdsdbsgiEC2SecurityGroupName :: Lens' RDSDBSecurityGroupIngress (Maybe (Val Text)) -rdsdbsgiEC2SecurityGroupName = lens _rDSDBSecurityGroupIngressEC2SecurityGroupName (\s a -> s { _rDSDBSecurityGroupIngressEC2SecurityGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-security-group-ingress.html#cfn-rds-securitygroup-ingress-ec2securitygroupownerid -rdsdbsgiEC2SecurityGroupOwnerId :: Lens' RDSDBSecurityGroupIngress (Maybe (Val Text)) -rdsdbsgiEC2SecurityGroupOwnerId = lens _rDSDBSecurityGroupIngressEC2SecurityGroupOwnerId (\s a -> s { _rDSDBSecurityGroupIngressEC2SecurityGroupOwnerId = a }) diff --git a/library-gen/Stratosphere/Resources/RDSDBSubnetGroup.hs b/library-gen/Stratosphere/Resources/RDSDBSubnetGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/RDSDBSubnetGroup.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbsubnet-group.html - -module Stratosphere.Resources.RDSDBSubnetGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for RDSDBSubnetGroup. See 'rdsdbSubnetGroup' --- for a more convenient constructor. -data RDSDBSubnetGroup = - RDSDBSubnetGroup - { _rDSDBSubnetGroupDBSubnetGroupDescription :: Val Text - , _rDSDBSubnetGroupDBSubnetGroupName :: Maybe (Val Text) - , _rDSDBSubnetGroupSubnetIds :: ValList Text - , _rDSDBSubnetGroupTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties RDSDBSubnetGroup where - toResourceProperties RDSDBSubnetGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::RDS::DBSubnetGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("DBSubnetGroupDescription",) . toJSON) _rDSDBSubnetGroupDBSubnetGroupDescription - , fmap (("DBSubnetGroupName",) . toJSON) _rDSDBSubnetGroupDBSubnetGroupName - , (Just . ("SubnetIds",) . toJSON) _rDSDBSubnetGroupSubnetIds - , fmap (("Tags",) . toJSON) _rDSDBSubnetGroupTags - ] - } - --- | Constructor for 'RDSDBSubnetGroup' containing required fields as --- arguments. -rdsdbSubnetGroup - :: Val Text -- ^ 'rdsdbsugDBSubnetGroupDescription' - -> ValList Text -- ^ 'rdsdbsugSubnetIds' - -> RDSDBSubnetGroup -rdsdbSubnetGroup dBSubnetGroupDescriptionarg subnetIdsarg = - RDSDBSubnetGroup - { _rDSDBSubnetGroupDBSubnetGroupDescription = dBSubnetGroupDescriptionarg - , _rDSDBSubnetGroupDBSubnetGroupName = Nothing - , _rDSDBSubnetGroupSubnetIds = subnetIdsarg - , _rDSDBSubnetGroupTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbsubnet-group.html#cfn-rds-dbsubnetgroup-dbsubnetgroupdescription -rdsdbsugDBSubnetGroupDescription :: Lens' RDSDBSubnetGroup (Val Text) -rdsdbsugDBSubnetGroupDescription = lens _rDSDBSubnetGroupDBSubnetGroupDescription (\s a -> s { _rDSDBSubnetGroupDBSubnetGroupDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbsubnet-group.html#cfn-rds-dbsubnetgroup-dbsubnetgroupname -rdsdbsugDBSubnetGroupName :: Lens' RDSDBSubnetGroup (Maybe (Val Text)) -rdsdbsugDBSubnetGroupName = lens _rDSDBSubnetGroupDBSubnetGroupName (\s a -> s { _rDSDBSubnetGroupDBSubnetGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbsubnet-group.html#cfn-rds-dbsubnetgroup-subnetids -rdsdbsugSubnetIds :: Lens' RDSDBSubnetGroup (ValList Text) -rdsdbsugSubnetIds = lens _rDSDBSubnetGroupSubnetIds (\s a -> s { _rDSDBSubnetGroupSubnetIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-dbsubnet-group.html#cfn-rds-dbsubnetgroup-tags -rdsdbsugTags :: Lens' RDSDBSubnetGroup (Maybe [Tag]) -rdsdbsugTags = lens _rDSDBSubnetGroupTags (\s a -> s { _rDSDBSubnetGroupTags = a }) diff --git a/library-gen/Stratosphere/Resources/RDSEventSubscription.hs b/library-gen/Stratosphere/Resources/RDSEventSubscription.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/RDSEventSubscription.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-eventsubscription.html - -module Stratosphere.Resources.RDSEventSubscription where - -import Stratosphere.ResourceImports - - --- | Full data type definition for RDSEventSubscription. See --- 'rdsEventSubscription' for a more convenient constructor. -data RDSEventSubscription = - RDSEventSubscription - { _rDSEventSubscriptionEnabled :: Maybe (Val Bool) - , _rDSEventSubscriptionEventCategories :: Maybe (ValList Text) - , _rDSEventSubscriptionSnsTopicArn :: Val Text - , _rDSEventSubscriptionSourceIds :: Maybe (ValList Text) - , _rDSEventSubscriptionSourceType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties RDSEventSubscription where - toResourceProperties RDSEventSubscription{..} = - ResourceProperties - { resourcePropertiesType = "AWS::RDS::EventSubscription" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Enabled",) . toJSON) _rDSEventSubscriptionEnabled - , fmap (("EventCategories",) . toJSON) _rDSEventSubscriptionEventCategories - , (Just . ("SnsTopicArn",) . toJSON) _rDSEventSubscriptionSnsTopicArn - , fmap (("SourceIds",) . toJSON) _rDSEventSubscriptionSourceIds - , fmap (("SourceType",) . toJSON) _rDSEventSubscriptionSourceType - ] - } - --- | Constructor for 'RDSEventSubscription' containing required fields as --- arguments. -rdsEventSubscription - :: Val Text -- ^ 'rdsesSnsTopicArn' - -> RDSEventSubscription -rdsEventSubscription snsTopicArnarg = - RDSEventSubscription - { _rDSEventSubscriptionEnabled = Nothing - , _rDSEventSubscriptionEventCategories = Nothing - , _rDSEventSubscriptionSnsTopicArn = snsTopicArnarg - , _rDSEventSubscriptionSourceIds = Nothing - , _rDSEventSubscriptionSourceType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-eventsubscription.html#cfn-rds-eventsubscription-enabled -rdsesEnabled :: Lens' RDSEventSubscription (Maybe (Val Bool)) -rdsesEnabled = lens _rDSEventSubscriptionEnabled (\s a -> s { _rDSEventSubscriptionEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-eventsubscription.html#cfn-rds-eventsubscription-eventcategories -rdsesEventCategories :: Lens' RDSEventSubscription (Maybe (ValList Text)) -rdsesEventCategories = lens _rDSEventSubscriptionEventCategories (\s a -> s { _rDSEventSubscriptionEventCategories = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-eventsubscription.html#cfn-rds-eventsubscription-snstopicarn -rdsesSnsTopicArn :: Lens' RDSEventSubscription (Val Text) -rdsesSnsTopicArn = lens _rDSEventSubscriptionSnsTopicArn (\s a -> s { _rDSEventSubscriptionSnsTopicArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-eventsubscription.html#cfn-rds-eventsubscription-sourceids -rdsesSourceIds :: Lens' RDSEventSubscription (Maybe (ValList Text)) -rdsesSourceIds = lens _rDSEventSubscriptionSourceIds (\s a -> s { _rDSEventSubscriptionSourceIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-eventsubscription.html#cfn-rds-eventsubscription-sourcetype -rdsesSourceType :: Lens' RDSEventSubscription (Maybe (Val Text)) -rdsesSourceType = lens _rDSEventSubscriptionSourceType (\s a -> s { _rDSEventSubscriptionSourceType = a }) diff --git a/library-gen/Stratosphere/Resources/RDSOptionGroup.hs b/library-gen/Stratosphere/Resources/RDSOptionGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/RDSOptionGroup.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-optiongroup.html - -module Stratosphere.Resources.RDSOptionGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.RDSOptionGroupOptionConfiguration -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for RDSOptionGroup. See 'rdsOptionGroup' for a --- more convenient constructor. -data RDSOptionGroup = - RDSOptionGroup - { _rDSOptionGroupEngineName :: Val Text - , _rDSOptionGroupMajorEngineVersion :: Val Text - , _rDSOptionGroupOptionConfigurations :: [RDSOptionGroupOptionConfiguration] - , _rDSOptionGroupOptionGroupDescription :: Val Text - , _rDSOptionGroupTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties RDSOptionGroup where - toResourceProperties RDSOptionGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::RDS::OptionGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("EngineName",) . toJSON) _rDSOptionGroupEngineName - , (Just . ("MajorEngineVersion",) . toJSON) _rDSOptionGroupMajorEngineVersion - , (Just . ("OptionConfigurations",) . toJSON) _rDSOptionGroupOptionConfigurations - , (Just . ("OptionGroupDescription",) . toJSON) _rDSOptionGroupOptionGroupDescription - , fmap (("Tags",) . toJSON) _rDSOptionGroupTags - ] - } - --- | Constructor for 'RDSOptionGroup' containing required fields as arguments. -rdsOptionGroup - :: Val Text -- ^ 'rdsogEngineName' - -> Val Text -- ^ 'rdsogMajorEngineVersion' - -> [RDSOptionGroupOptionConfiguration] -- ^ 'rdsogOptionConfigurations' - -> Val Text -- ^ 'rdsogOptionGroupDescription' - -> RDSOptionGroup -rdsOptionGroup engineNamearg majorEngineVersionarg optionConfigurationsarg optionGroupDescriptionarg = - RDSOptionGroup - { _rDSOptionGroupEngineName = engineNamearg - , _rDSOptionGroupMajorEngineVersion = majorEngineVersionarg - , _rDSOptionGroupOptionConfigurations = optionConfigurationsarg - , _rDSOptionGroupOptionGroupDescription = optionGroupDescriptionarg - , _rDSOptionGroupTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-optiongroup.html#cfn-rds-optiongroup-enginename -rdsogEngineName :: Lens' RDSOptionGroup (Val Text) -rdsogEngineName = lens _rDSOptionGroupEngineName (\s a -> s { _rDSOptionGroupEngineName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-optiongroup.html#cfn-rds-optiongroup-majorengineversion -rdsogMajorEngineVersion :: Lens' RDSOptionGroup (Val Text) -rdsogMajorEngineVersion = lens _rDSOptionGroupMajorEngineVersion (\s a -> s { _rDSOptionGroupMajorEngineVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-optiongroup.html#cfn-rds-optiongroup-optionconfigurations -rdsogOptionConfigurations :: Lens' RDSOptionGroup [RDSOptionGroupOptionConfiguration] -rdsogOptionConfigurations = lens _rDSOptionGroupOptionConfigurations (\s a -> s { _rDSOptionGroupOptionConfigurations = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-optiongroup.html#cfn-rds-optiongroup-optiongroupdescription -rdsogOptionGroupDescription :: Lens' RDSOptionGroup (Val Text) -rdsogOptionGroupDescription = lens _rDSOptionGroupOptionGroupDescription (\s a -> s { _rDSOptionGroupOptionGroupDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-rds-optiongroup.html#cfn-rds-optiongroup-tags -rdsogTags :: Lens' RDSOptionGroup (Maybe [Tag]) -rdsogTags = lens _rDSOptionGroupTags (\s a -> s { _rDSOptionGroupTags = a }) diff --git a/library-gen/Stratosphere/Resources/RedshiftCluster.hs b/library-gen/Stratosphere/Resources/RedshiftCluster.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/RedshiftCluster.hs +++ /dev/null @@ -1,243 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html - -module Stratosphere.Resources.RedshiftCluster where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.RedshiftClusterLoggingProperties -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for RedshiftCluster. See 'redshiftCluster' for --- a more convenient constructor. -data RedshiftCluster = - RedshiftCluster - { _redshiftClusterAllowVersionUpgrade :: Maybe (Val Bool) - , _redshiftClusterAutomatedSnapshotRetentionPeriod :: Maybe (Val Integer) - , _redshiftClusterAvailabilityZone :: Maybe (Val Text) - , _redshiftClusterClusterIdentifier :: Maybe (Val Text) - , _redshiftClusterClusterParameterGroupName :: Maybe (Val Text) - , _redshiftClusterClusterSecurityGroups :: Maybe (ValList Text) - , _redshiftClusterClusterSubnetGroupName :: Maybe (Val Text) - , _redshiftClusterClusterType :: Val Text - , _redshiftClusterClusterVersion :: Maybe (Val Text) - , _redshiftClusterDBName :: Val Text - , _redshiftClusterElasticIp :: Maybe (Val Text) - , _redshiftClusterEncrypted :: Maybe (Val Bool) - , _redshiftClusterHsmClientCertificateIdentifier :: Maybe (Val Text) - , _redshiftClusterHsmConfigurationIdentifier :: Maybe (Val Text) - , _redshiftClusterIamRoles :: Maybe (ValList Text) - , _redshiftClusterKmsKeyId :: Maybe (Val Text) - , _redshiftClusterLoggingProperties :: Maybe RedshiftClusterLoggingProperties - , _redshiftClusterMasterUserPassword :: Val Text - , _redshiftClusterMasterUsername :: Val Text - , _redshiftClusterNodeType :: Val Text - , _redshiftClusterNumberOfNodes :: Maybe (Val Integer) - , _redshiftClusterOwnerAccount :: Maybe (Val Text) - , _redshiftClusterPort :: Maybe (Val Integer) - , _redshiftClusterPreferredMaintenanceWindow :: Maybe (Val Text) - , _redshiftClusterPubliclyAccessible :: Maybe (Val Bool) - , _redshiftClusterSnapshotClusterIdentifier :: Maybe (Val Text) - , _redshiftClusterSnapshotIdentifier :: Maybe (Val Text) - , _redshiftClusterTags :: Maybe [Tag] - , _redshiftClusterVpcSecurityGroupIds :: Maybe (ValList Text) - } deriving (Show, Eq) - -instance ToResourceProperties RedshiftCluster where - toResourceProperties RedshiftCluster{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Redshift::Cluster" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AllowVersionUpgrade",) . toJSON) _redshiftClusterAllowVersionUpgrade - , fmap (("AutomatedSnapshotRetentionPeriod",) . toJSON) _redshiftClusterAutomatedSnapshotRetentionPeriod - , fmap (("AvailabilityZone",) . toJSON) _redshiftClusterAvailabilityZone - , fmap (("ClusterIdentifier",) . toJSON) _redshiftClusterClusterIdentifier - , fmap (("ClusterParameterGroupName",) . toJSON) _redshiftClusterClusterParameterGroupName - , fmap (("ClusterSecurityGroups",) . toJSON) _redshiftClusterClusterSecurityGroups - , fmap (("ClusterSubnetGroupName",) . toJSON) _redshiftClusterClusterSubnetGroupName - , (Just . ("ClusterType",) . toJSON) _redshiftClusterClusterType - , fmap (("ClusterVersion",) . toJSON) _redshiftClusterClusterVersion - , (Just . ("DBName",) . toJSON) _redshiftClusterDBName - , fmap (("ElasticIp",) . toJSON) _redshiftClusterElasticIp - , fmap (("Encrypted",) . toJSON) _redshiftClusterEncrypted - , fmap (("HsmClientCertificateIdentifier",) . toJSON) _redshiftClusterHsmClientCertificateIdentifier - , fmap (("HsmConfigurationIdentifier",) . toJSON) _redshiftClusterHsmConfigurationIdentifier - , fmap (("IamRoles",) . toJSON) _redshiftClusterIamRoles - , fmap (("KmsKeyId",) . toJSON) _redshiftClusterKmsKeyId - , fmap (("LoggingProperties",) . toJSON) _redshiftClusterLoggingProperties - , (Just . ("MasterUserPassword",) . toJSON) _redshiftClusterMasterUserPassword - , (Just . ("MasterUsername",) . toJSON) _redshiftClusterMasterUsername - , (Just . ("NodeType",) . toJSON) _redshiftClusterNodeType - , fmap (("NumberOfNodes",) . toJSON) _redshiftClusterNumberOfNodes - , fmap (("OwnerAccount",) . toJSON) _redshiftClusterOwnerAccount - , fmap (("Port",) . toJSON) _redshiftClusterPort - , fmap (("PreferredMaintenanceWindow",) . toJSON) _redshiftClusterPreferredMaintenanceWindow - , fmap (("PubliclyAccessible",) . toJSON) _redshiftClusterPubliclyAccessible - , fmap (("SnapshotClusterIdentifier",) . toJSON) _redshiftClusterSnapshotClusterIdentifier - , fmap (("SnapshotIdentifier",) . toJSON) _redshiftClusterSnapshotIdentifier - , fmap (("Tags",) . toJSON) _redshiftClusterTags - , fmap (("VpcSecurityGroupIds",) . toJSON) _redshiftClusterVpcSecurityGroupIds - ] - } - --- | Constructor for 'RedshiftCluster' containing required fields as --- arguments. -redshiftCluster - :: Val Text -- ^ 'rcClusterType' - -> Val Text -- ^ 'rcDBName' - -> Val Text -- ^ 'rcMasterUserPassword' - -> Val Text -- ^ 'rcMasterUsername' - -> Val Text -- ^ 'rcNodeType' - -> RedshiftCluster -redshiftCluster clusterTypearg dBNamearg masterUserPasswordarg masterUsernamearg nodeTypearg = - RedshiftCluster - { _redshiftClusterAllowVersionUpgrade = Nothing - , _redshiftClusterAutomatedSnapshotRetentionPeriod = Nothing - , _redshiftClusterAvailabilityZone = Nothing - , _redshiftClusterClusterIdentifier = Nothing - , _redshiftClusterClusterParameterGroupName = Nothing - , _redshiftClusterClusterSecurityGroups = Nothing - , _redshiftClusterClusterSubnetGroupName = Nothing - , _redshiftClusterClusterType = clusterTypearg - , _redshiftClusterClusterVersion = Nothing - , _redshiftClusterDBName = dBNamearg - , _redshiftClusterElasticIp = Nothing - , _redshiftClusterEncrypted = Nothing - , _redshiftClusterHsmClientCertificateIdentifier = Nothing - , _redshiftClusterHsmConfigurationIdentifier = Nothing - , _redshiftClusterIamRoles = Nothing - , _redshiftClusterKmsKeyId = Nothing - , _redshiftClusterLoggingProperties = Nothing - , _redshiftClusterMasterUserPassword = masterUserPasswordarg - , _redshiftClusterMasterUsername = masterUsernamearg - , _redshiftClusterNodeType = nodeTypearg - , _redshiftClusterNumberOfNodes = Nothing - , _redshiftClusterOwnerAccount = Nothing - , _redshiftClusterPort = Nothing - , _redshiftClusterPreferredMaintenanceWindow = Nothing - , _redshiftClusterPubliclyAccessible = Nothing - , _redshiftClusterSnapshotClusterIdentifier = Nothing - , _redshiftClusterSnapshotIdentifier = Nothing - , _redshiftClusterTags = Nothing - , _redshiftClusterVpcSecurityGroupIds = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html#cfn-redshift-cluster-allowversionupgrade -rcAllowVersionUpgrade :: Lens' RedshiftCluster (Maybe (Val Bool)) -rcAllowVersionUpgrade = lens _redshiftClusterAllowVersionUpgrade (\s a -> s { _redshiftClusterAllowVersionUpgrade = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html#cfn-redshift-cluster-automatedsnapshotretentionperiod -rcAutomatedSnapshotRetentionPeriod :: Lens' RedshiftCluster (Maybe (Val Integer)) -rcAutomatedSnapshotRetentionPeriod = lens _redshiftClusterAutomatedSnapshotRetentionPeriod (\s a -> s { _redshiftClusterAutomatedSnapshotRetentionPeriod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html#cfn-redshift-cluster-availabilityzone -rcAvailabilityZone :: Lens' RedshiftCluster (Maybe (Val Text)) -rcAvailabilityZone = lens _redshiftClusterAvailabilityZone (\s a -> s { _redshiftClusterAvailabilityZone = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html#cfn-redshift-cluster-clusteridentifier -rcClusterIdentifier :: Lens' RedshiftCluster (Maybe (Val Text)) -rcClusterIdentifier = lens _redshiftClusterClusterIdentifier (\s a -> s { _redshiftClusterClusterIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html#cfn-redshift-cluster-clusterparametergroupname -rcClusterParameterGroupName :: Lens' RedshiftCluster (Maybe (Val Text)) -rcClusterParameterGroupName = lens _redshiftClusterClusterParameterGroupName (\s a -> s { _redshiftClusterClusterParameterGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html#cfn-redshift-cluster-clustersecuritygroups -rcClusterSecurityGroups :: Lens' RedshiftCluster (Maybe (ValList Text)) -rcClusterSecurityGroups = lens _redshiftClusterClusterSecurityGroups (\s a -> s { _redshiftClusterClusterSecurityGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html#cfn-redshift-cluster-clustersubnetgroupname -rcClusterSubnetGroupName :: Lens' RedshiftCluster (Maybe (Val Text)) -rcClusterSubnetGroupName = lens _redshiftClusterClusterSubnetGroupName (\s a -> s { _redshiftClusterClusterSubnetGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html#cfn-redshift-cluster-clustertype -rcClusterType :: Lens' RedshiftCluster (Val Text) -rcClusterType = lens _redshiftClusterClusterType (\s a -> s { _redshiftClusterClusterType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html#cfn-redshift-cluster-clusterversion -rcClusterVersion :: Lens' RedshiftCluster (Maybe (Val Text)) -rcClusterVersion = lens _redshiftClusterClusterVersion (\s a -> s { _redshiftClusterClusterVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html#cfn-redshift-cluster-dbname -rcDBName :: Lens' RedshiftCluster (Val Text) -rcDBName = lens _redshiftClusterDBName (\s a -> s { _redshiftClusterDBName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html#cfn-redshift-cluster-elasticip -rcElasticIp :: Lens' RedshiftCluster (Maybe (Val Text)) -rcElasticIp = lens _redshiftClusterElasticIp (\s a -> s { _redshiftClusterElasticIp = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html#cfn-redshift-cluster-encrypted -rcEncrypted :: Lens' RedshiftCluster (Maybe (Val Bool)) -rcEncrypted = lens _redshiftClusterEncrypted (\s a -> s { _redshiftClusterEncrypted = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html#cfn-redshift-cluster-hsmclientcertidentifier -rcHsmClientCertificateIdentifier :: Lens' RedshiftCluster (Maybe (Val Text)) -rcHsmClientCertificateIdentifier = lens _redshiftClusterHsmClientCertificateIdentifier (\s a -> s { _redshiftClusterHsmClientCertificateIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html#cfn-redshift-cluster-HsmConfigurationIdentifier -rcHsmConfigurationIdentifier :: Lens' RedshiftCluster (Maybe (Val Text)) -rcHsmConfigurationIdentifier = lens _redshiftClusterHsmConfigurationIdentifier (\s a -> s { _redshiftClusterHsmConfigurationIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html#cfn-redshift-cluster-iamroles -rcIamRoles :: Lens' RedshiftCluster (Maybe (ValList Text)) -rcIamRoles = lens _redshiftClusterIamRoles (\s a -> s { _redshiftClusterIamRoles = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html#cfn-redshift-cluster-kmskeyid -rcKmsKeyId :: Lens' RedshiftCluster (Maybe (Val Text)) -rcKmsKeyId = lens _redshiftClusterKmsKeyId (\s a -> s { _redshiftClusterKmsKeyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html#cfn-redshift-cluster-loggingproperties -rcLoggingProperties :: Lens' RedshiftCluster (Maybe RedshiftClusterLoggingProperties) -rcLoggingProperties = lens _redshiftClusterLoggingProperties (\s a -> s { _redshiftClusterLoggingProperties = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html#cfn-redshift-cluster-masteruserpassword -rcMasterUserPassword :: Lens' RedshiftCluster (Val Text) -rcMasterUserPassword = lens _redshiftClusterMasterUserPassword (\s a -> s { _redshiftClusterMasterUserPassword = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html#cfn-redshift-cluster-masterusername -rcMasterUsername :: Lens' RedshiftCluster (Val Text) -rcMasterUsername = lens _redshiftClusterMasterUsername (\s a -> s { _redshiftClusterMasterUsername = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html#cfn-redshift-cluster-nodetype -rcNodeType :: Lens' RedshiftCluster (Val Text) -rcNodeType = lens _redshiftClusterNodeType (\s a -> s { _redshiftClusterNodeType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html#cfn-redshift-cluster-nodetype -rcNumberOfNodes :: Lens' RedshiftCluster (Maybe (Val Integer)) -rcNumberOfNodes = lens _redshiftClusterNumberOfNodes (\s a -> s { _redshiftClusterNumberOfNodes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html#cfn-redshift-cluster-owneraccount -rcOwnerAccount :: Lens' RedshiftCluster (Maybe (Val Text)) -rcOwnerAccount = lens _redshiftClusterOwnerAccount (\s a -> s { _redshiftClusterOwnerAccount = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html#cfn-redshift-cluster-port -rcPort :: Lens' RedshiftCluster (Maybe (Val Integer)) -rcPort = lens _redshiftClusterPort (\s a -> s { _redshiftClusterPort = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html#cfn-redshift-cluster-preferredmaintenancewindow -rcPreferredMaintenanceWindow :: Lens' RedshiftCluster (Maybe (Val Text)) -rcPreferredMaintenanceWindow = lens _redshiftClusterPreferredMaintenanceWindow (\s a -> s { _redshiftClusterPreferredMaintenanceWindow = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html#cfn-redshift-cluster-publiclyaccessible -rcPubliclyAccessible :: Lens' RedshiftCluster (Maybe (Val Bool)) -rcPubliclyAccessible = lens _redshiftClusterPubliclyAccessible (\s a -> s { _redshiftClusterPubliclyAccessible = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html#cfn-redshift-cluster-snapshotclusteridentifier -rcSnapshotClusterIdentifier :: Lens' RedshiftCluster (Maybe (Val Text)) -rcSnapshotClusterIdentifier = lens _redshiftClusterSnapshotClusterIdentifier (\s a -> s { _redshiftClusterSnapshotClusterIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html#cfn-redshift-cluster-snapshotidentifier -rcSnapshotIdentifier :: Lens' RedshiftCluster (Maybe (Val Text)) -rcSnapshotIdentifier = lens _redshiftClusterSnapshotIdentifier (\s a -> s { _redshiftClusterSnapshotIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html#cfn-redshift-cluster-tags -rcTags :: Lens' RedshiftCluster (Maybe [Tag]) -rcTags = lens _redshiftClusterTags (\s a -> s { _redshiftClusterTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-cluster.html#cfn-redshift-cluster-vpcsecuritygroupids -rcVpcSecurityGroupIds :: Lens' RedshiftCluster (Maybe (ValList Text)) -rcVpcSecurityGroupIds = lens _redshiftClusterVpcSecurityGroupIds (\s a -> s { _redshiftClusterVpcSecurityGroupIds = a }) diff --git a/library-gen/Stratosphere/Resources/RedshiftClusterParameterGroup.hs b/library-gen/Stratosphere/Resources/RedshiftClusterParameterGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/RedshiftClusterParameterGroup.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-clusterparametergroup.html - -module Stratosphere.Resources.RedshiftClusterParameterGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.RedshiftClusterParameterGroupParameter -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for RedshiftClusterParameterGroup. See --- 'redshiftClusterParameterGroup' for a more convenient constructor. -data RedshiftClusterParameterGroup = - RedshiftClusterParameterGroup - { _redshiftClusterParameterGroupDescription :: Val Text - , _redshiftClusterParameterGroupParameterGroupFamily :: Val Text - , _redshiftClusterParameterGroupParameters :: Maybe [RedshiftClusterParameterGroupParameter] - , _redshiftClusterParameterGroupTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties RedshiftClusterParameterGroup where - toResourceProperties RedshiftClusterParameterGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Redshift::ClusterParameterGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Description",) . toJSON) _redshiftClusterParameterGroupDescription - , (Just . ("ParameterGroupFamily",) . toJSON) _redshiftClusterParameterGroupParameterGroupFamily - , fmap (("Parameters",) . toJSON) _redshiftClusterParameterGroupParameters - , fmap (("Tags",) . toJSON) _redshiftClusterParameterGroupTags - ] - } - --- | Constructor for 'RedshiftClusterParameterGroup' containing required --- fields as arguments. -redshiftClusterParameterGroup - :: Val Text -- ^ 'rcpgDescription' - -> Val Text -- ^ 'rcpgParameterGroupFamily' - -> RedshiftClusterParameterGroup -redshiftClusterParameterGroup descriptionarg parameterGroupFamilyarg = - RedshiftClusterParameterGroup - { _redshiftClusterParameterGroupDescription = descriptionarg - , _redshiftClusterParameterGroupParameterGroupFamily = parameterGroupFamilyarg - , _redshiftClusterParameterGroupParameters = Nothing - , _redshiftClusterParameterGroupTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-clusterparametergroup.html#cfn-redshift-clusterparametergroup-description -rcpgDescription :: Lens' RedshiftClusterParameterGroup (Val Text) -rcpgDescription = lens _redshiftClusterParameterGroupDescription (\s a -> s { _redshiftClusterParameterGroupDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-clusterparametergroup.html#cfn-redshift-clusterparametergroup-parametergroupfamily -rcpgParameterGroupFamily :: Lens' RedshiftClusterParameterGroup (Val Text) -rcpgParameterGroupFamily = lens _redshiftClusterParameterGroupParameterGroupFamily (\s a -> s { _redshiftClusterParameterGroupParameterGroupFamily = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-clusterparametergroup.html#cfn-redshift-clusterparametergroup-parameters -rcpgParameters :: Lens' RedshiftClusterParameterGroup (Maybe [RedshiftClusterParameterGroupParameter]) -rcpgParameters = lens _redshiftClusterParameterGroupParameters (\s a -> s { _redshiftClusterParameterGroupParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-clusterparametergroup.html#cfn-redshift-clusterparametergroup-tags -rcpgTags :: Lens' RedshiftClusterParameterGroup (Maybe [Tag]) -rcpgTags = lens _redshiftClusterParameterGroupTags (\s a -> s { _redshiftClusterParameterGroupTags = a }) diff --git a/library-gen/Stratosphere/Resources/RedshiftClusterSecurityGroup.hs b/library-gen/Stratosphere/Resources/RedshiftClusterSecurityGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/RedshiftClusterSecurityGroup.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-clustersecuritygroup.html - -module Stratosphere.Resources.RedshiftClusterSecurityGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for RedshiftClusterSecurityGroup. See --- 'redshiftClusterSecurityGroup' for a more convenient constructor. -data RedshiftClusterSecurityGroup = - RedshiftClusterSecurityGroup - { _redshiftClusterSecurityGroupDescription :: Val Text - , _redshiftClusterSecurityGroupTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties RedshiftClusterSecurityGroup where - toResourceProperties RedshiftClusterSecurityGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Redshift::ClusterSecurityGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Description",) . toJSON) _redshiftClusterSecurityGroupDescription - , fmap (("Tags",) . toJSON) _redshiftClusterSecurityGroupTags - ] - } - --- | Constructor for 'RedshiftClusterSecurityGroup' containing required fields --- as arguments. -redshiftClusterSecurityGroup - :: Val Text -- ^ 'rcsegDescription' - -> RedshiftClusterSecurityGroup -redshiftClusterSecurityGroup descriptionarg = - RedshiftClusterSecurityGroup - { _redshiftClusterSecurityGroupDescription = descriptionarg - , _redshiftClusterSecurityGroupTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-clustersecuritygroup.html#cfn-redshift-clustersecuritygroup-description -rcsegDescription :: Lens' RedshiftClusterSecurityGroup (Val Text) -rcsegDescription = lens _redshiftClusterSecurityGroupDescription (\s a -> s { _redshiftClusterSecurityGroupDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-clustersecuritygroup.html#cfn-redshift-clustersecuritygroup-tags -rcsegTags :: Lens' RedshiftClusterSecurityGroup (Maybe [Tag]) -rcsegTags = lens _redshiftClusterSecurityGroupTags (\s a -> s { _redshiftClusterSecurityGroupTags = a }) diff --git a/library-gen/Stratosphere/Resources/RedshiftClusterSecurityGroupIngress.hs b/library-gen/Stratosphere/Resources/RedshiftClusterSecurityGroupIngress.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/RedshiftClusterSecurityGroupIngress.hs +++ /dev/null @@ -1,63 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-clustersecuritygroupingress.html - -module Stratosphere.Resources.RedshiftClusterSecurityGroupIngress where - -import Stratosphere.ResourceImports - - --- | Full data type definition for RedshiftClusterSecurityGroupIngress. See --- 'redshiftClusterSecurityGroupIngress' for a more convenient constructor. -data RedshiftClusterSecurityGroupIngress = - RedshiftClusterSecurityGroupIngress - { _redshiftClusterSecurityGroupIngressCIDRIP :: Maybe (Val Text) - , _redshiftClusterSecurityGroupIngressClusterSecurityGroupName :: Val Text - , _redshiftClusterSecurityGroupIngressEC2SecurityGroupName :: Maybe (Val Text) - , _redshiftClusterSecurityGroupIngressEC2SecurityGroupOwnerId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties RedshiftClusterSecurityGroupIngress where - toResourceProperties RedshiftClusterSecurityGroupIngress{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Redshift::ClusterSecurityGroupIngress" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("CIDRIP",) . toJSON) _redshiftClusterSecurityGroupIngressCIDRIP - , (Just . ("ClusterSecurityGroupName",) . toJSON) _redshiftClusterSecurityGroupIngressClusterSecurityGroupName - , fmap (("EC2SecurityGroupName",) . toJSON) _redshiftClusterSecurityGroupIngressEC2SecurityGroupName - , fmap (("EC2SecurityGroupOwnerId",) . toJSON) _redshiftClusterSecurityGroupIngressEC2SecurityGroupOwnerId - ] - } - --- | Constructor for 'RedshiftClusterSecurityGroupIngress' containing required --- fields as arguments. -redshiftClusterSecurityGroupIngress - :: Val Text -- ^ 'rcsgiClusterSecurityGroupName' - -> RedshiftClusterSecurityGroupIngress -redshiftClusterSecurityGroupIngress clusterSecurityGroupNamearg = - RedshiftClusterSecurityGroupIngress - { _redshiftClusterSecurityGroupIngressCIDRIP = Nothing - , _redshiftClusterSecurityGroupIngressClusterSecurityGroupName = clusterSecurityGroupNamearg - , _redshiftClusterSecurityGroupIngressEC2SecurityGroupName = Nothing - , _redshiftClusterSecurityGroupIngressEC2SecurityGroupOwnerId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-clustersecuritygroupingress.html#cfn-redshift-clustersecuritygroupingress-cidrip -rcsgiCIDRIP :: Lens' RedshiftClusterSecurityGroupIngress (Maybe (Val Text)) -rcsgiCIDRIP = lens _redshiftClusterSecurityGroupIngressCIDRIP (\s a -> s { _redshiftClusterSecurityGroupIngressCIDRIP = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-clustersecuritygroupingress.html#cfn-redshift-clustersecuritygroupingress-clustersecuritygroupname -rcsgiClusterSecurityGroupName :: Lens' RedshiftClusterSecurityGroupIngress (Val Text) -rcsgiClusterSecurityGroupName = lens _redshiftClusterSecurityGroupIngressClusterSecurityGroupName (\s a -> s { _redshiftClusterSecurityGroupIngressClusterSecurityGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-clustersecuritygroupingress.html#cfn-redshift-clustersecuritygroupingress-ec2securitygroupname -rcsgiEC2SecurityGroupName :: Lens' RedshiftClusterSecurityGroupIngress (Maybe (Val Text)) -rcsgiEC2SecurityGroupName = lens _redshiftClusterSecurityGroupIngressEC2SecurityGroupName (\s a -> s { _redshiftClusterSecurityGroupIngressEC2SecurityGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-clustersecuritygroupingress.html#cfn-redshift-clustersecuritygroupingress-ec2securitygroupownerid -rcsgiEC2SecurityGroupOwnerId :: Lens' RedshiftClusterSecurityGroupIngress (Maybe (Val Text)) -rcsgiEC2SecurityGroupOwnerId = lens _redshiftClusterSecurityGroupIngressEC2SecurityGroupOwnerId (\s a -> s { _redshiftClusterSecurityGroupIngressEC2SecurityGroupOwnerId = a }) diff --git a/library-gen/Stratosphere/Resources/RedshiftClusterSubnetGroup.hs b/library-gen/Stratosphere/Resources/RedshiftClusterSubnetGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/RedshiftClusterSubnetGroup.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-clustersubnetgroup.html - -module Stratosphere.Resources.RedshiftClusterSubnetGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for RedshiftClusterSubnetGroup. See --- 'redshiftClusterSubnetGroup' for a more convenient constructor. -data RedshiftClusterSubnetGroup = - RedshiftClusterSubnetGroup - { _redshiftClusterSubnetGroupDescription :: Val Text - , _redshiftClusterSubnetGroupSubnetIds :: ValList Text - , _redshiftClusterSubnetGroupTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties RedshiftClusterSubnetGroup where - toResourceProperties RedshiftClusterSubnetGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Redshift::ClusterSubnetGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Description",) . toJSON) _redshiftClusterSubnetGroupDescription - , (Just . ("SubnetIds",) . toJSON) _redshiftClusterSubnetGroupSubnetIds - , fmap (("Tags",) . toJSON) _redshiftClusterSubnetGroupTags - ] - } - --- | Constructor for 'RedshiftClusterSubnetGroup' containing required fields --- as arguments. -redshiftClusterSubnetGroup - :: Val Text -- ^ 'rcsugDescription' - -> ValList Text -- ^ 'rcsugSubnetIds' - -> RedshiftClusterSubnetGroup -redshiftClusterSubnetGroup descriptionarg subnetIdsarg = - RedshiftClusterSubnetGroup - { _redshiftClusterSubnetGroupDescription = descriptionarg - , _redshiftClusterSubnetGroupSubnetIds = subnetIdsarg - , _redshiftClusterSubnetGroupTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-clustersubnetgroup.html#cfn-redshift-clustersubnetgroup-description -rcsugDescription :: Lens' RedshiftClusterSubnetGroup (Val Text) -rcsugDescription = lens _redshiftClusterSubnetGroupDescription (\s a -> s { _redshiftClusterSubnetGroupDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-clustersubnetgroup.html#cfn-redshift-clustersubnetgroup-subnetids -rcsugSubnetIds :: Lens' RedshiftClusterSubnetGroup (ValList Text) -rcsugSubnetIds = lens _redshiftClusterSubnetGroupSubnetIds (\s a -> s { _redshiftClusterSubnetGroupSubnetIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-redshift-clustersubnetgroup.html#cfn-redshift-clustersubnetgroup-tags -rcsugTags :: Lens' RedshiftClusterSubnetGroup (Maybe [Tag]) -rcsugTags = lens _redshiftClusterSubnetGroupTags (\s a -> s { _redshiftClusterSubnetGroupTags = a }) diff --git a/library-gen/Stratosphere/Resources/ResourceGroupsGroup.hs b/library-gen/Stratosphere/Resources/ResourceGroupsGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ResourceGroupsGroup.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-resourcegroups-group.html - -module Stratosphere.Resources.ResourceGroupsGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ResourceGroupsGroupResourceQuery -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for ResourceGroupsGroup. See --- 'resourceGroupsGroup' for a more convenient constructor. -data ResourceGroupsGroup = - ResourceGroupsGroup - { _resourceGroupsGroupDescription :: Maybe (Val Text) - , _resourceGroupsGroupName :: Val Text - , _resourceGroupsGroupResourceQuery :: Maybe ResourceGroupsGroupResourceQuery - , _resourceGroupsGroupTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties ResourceGroupsGroup where - toResourceProperties ResourceGroupsGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ResourceGroups::Group" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _resourceGroupsGroupDescription - , (Just . ("Name",) . toJSON) _resourceGroupsGroupName - , fmap (("ResourceQuery",) . toJSON) _resourceGroupsGroupResourceQuery - , fmap (("Tags",) . toJSON) _resourceGroupsGroupTags - ] - } - --- | Constructor for 'ResourceGroupsGroup' containing required fields as --- arguments. -resourceGroupsGroup - :: Val Text -- ^ 'rggName' - -> ResourceGroupsGroup -resourceGroupsGroup namearg = - ResourceGroupsGroup - { _resourceGroupsGroupDescription = Nothing - , _resourceGroupsGroupName = namearg - , _resourceGroupsGroupResourceQuery = Nothing - , _resourceGroupsGroupTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-resourcegroups-group.html#cfn-resourcegroups-group-description -rggDescription :: Lens' ResourceGroupsGroup (Maybe (Val Text)) -rggDescription = lens _resourceGroupsGroupDescription (\s a -> s { _resourceGroupsGroupDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-resourcegroups-group.html#cfn-resourcegroups-group-name -rggName :: Lens' ResourceGroupsGroup (Val Text) -rggName = lens _resourceGroupsGroupName (\s a -> s { _resourceGroupsGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-resourcegroups-group.html#cfn-resourcegroups-group-resourcequery -rggResourceQuery :: Lens' ResourceGroupsGroup (Maybe ResourceGroupsGroupResourceQuery) -rggResourceQuery = lens _resourceGroupsGroupResourceQuery (\s a -> s { _resourceGroupsGroupResourceQuery = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-resourcegroups-group.html#cfn-resourcegroups-group-tags -rggTags :: Lens' ResourceGroupsGroup (Maybe [Tag]) -rggTags = lens _resourceGroupsGroupTags (\s a -> s { _resourceGroupsGroupTags = a }) diff --git a/library-gen/Stratosphere/Resources/RoboMakerFleet.hs b/library-gen/Stratosphere/Resources/RoboMakerFleet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/RoboMakerFleet.hs +++ /dev/null @@ -1,47 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-fleet.html - -module Stratosphere.Resources.RoboMakerFleet where - -import Stratosphere.ResourceImports - - --- | Full data type definition for RoboMakerFleet. See 'roboMakerFleet' for a --- more convenient constructor. -data RoboMakerFleet = - RoboMakerFleet - { _roboMakerFleetName :: Maybe (Val Text) - , _roboMakerFleetTags :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties RoboMakerFleet where - toResourceProperties RoboMakerFleet{..} = - ResourceProperties - { resourcePropertiesType = "AWS::RoboMaker::Fleet" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Name",) . toJSON) _roboMakerFleetName - , fmap (("Tags",) . toJSON) _roboMakerFleetTags - ] - } - --- | Constructor for 'RoboMakerFleet' containing required fields as arguments. -roboMakerFleet - :: RoboMakerFleet -roboMakerFleet = - RoboMakerFleet - { _roboMakerFleetName = Nothing - , _roboMakerFleetTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-fleet.html#cfn-robomaker-fleet-name -rmfName :: Lens' RoboMakerFleet (Maybe (Val Text)) -rmfName = lens _roboMakerFleetName (\s a -> s { _roboMakerFleetName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-fleet.html#cfn-robomaker-fleet-tags -rmfTags :: Lens' RoboMakerFleet (Maybe Object) -rmfTags = lens _roboMakerFleetTags (\s a -> s { _roboMakerFleetTags = a }) diff --git a/library-gen/Stratosphere/Resources/RoboMakerRobot.hs b/library-gen/Stratosphere/Resources/RoboMakerRobot.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/RoboMakerRobot.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robot.html - -module Stratosphere.Resources.RoboMakerRobot where - -import Stratosphere.ResourceImports - - --- | Full data type definition for RoboMakerRobot. See 'roboMakerRobot' for a --- more convenient constructor. -data RoboMakerRobot = - RoboMakerRobot - { _roboMakerRobotArchitecture :: Val Text - , _roboMakerRobotFleet :: Maybe (Val Text) - , _roboMakerRobotGreengrassGroupId :: Val Text - , _roboMakerRobotName :: Maybe (Val Text) - , _roboMakerRobotTags :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties RoboMakerRobot where - toResourceProperties RoboMakerRobot{..} = - ResourceProperties - { resourcePropertiesType = "AWS::RoboMaker::Robot" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Architecture",) . toJSON) _roboMakerRobotArchitecture - , fmap (("Fleet",) . toJSON) _roboMakerRobotFleet - , (Just . ("GreengrassGroupId",) . toJSON) _roboMakerRobotGreengrassGroupId - , fmap (("Name",) . toJSON) _roboMakerRobotName - , fmap (("Tags",) . toJSON) _roboMakerRobotTags - ] - } - --- | Constructor for 'RoboMakerRobot' containing required fields as arguments. -roboMakerRobot - :: Val Text -- ^ 'rmrArchitecture' - -> Val Text -- ^ 'rmrGreengrassGroupId' - -> RoboMakerRobot -roboMakerRobot architecturearg greengrassGroupIdarg = - RoboMakerRobot - { _roboMakerRobotArchitecture = architecturearg - , _roboMakerRobotFleet = Nothing - , _roboMakerRobotGreengrassGroupId = greengrassGroupIdarg - , _roboMakerRobotName = Nothing - , _roboMakerRobotTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robot.html#cfn-robomaker-robot-architecture -rmrArchitecture :: Lens' RoboMakerRobot (Val Text) -rmrArchitecture = lens _roboMakerRobotArchitecture (\s a -> s { _roboMakerRobotArchitecture = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robot.html#cfn-robomaker-robot-fleet -rmrFleet :: Lens' RoboMakerRobot (Maybe (Val Text)) -rmrFleet = lens _roboMakerRobotFleet (\s a -> s { _roboMakerRobotFleet = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robot.html#cfn-robomaker-robot-greengrassgroupid -rmrGreengrassGroupId :: Lens' RoboMakerRobot (Val Text) -rmrGreengrassGroupId = lens _roboMakerRobotGreengrassGroupId (\s a -> s { _roboMakerRobotGreengrassGroupId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robot.html#cfn-robomaker-robot-name -rmrName :: Lens' RoboMakerRobot (Maybe (Val Text)) -rmrName = lens _roboMakerRobotName (\s a -> s { _roboMakerRobotName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robot.html#cfn-robomaker-robot-tags -rmrTags :: Lens' RoboMakerRobot (Maybe Object) -rmrTags = lens _roboMakerRobotTags (\s a -> s { _roboMakerRobotTags = a }) diff --git a/library-gen/Stratosphere/Resources/RoboMakerRobotApplication.hs b/library-gen/Stratosphere/Resources/RoboMakerRobotApplication.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/RoboMakerRobotApplication.hs +++ /dev/null @@ -1,72 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robotapplication.html - -module Stratosphere.Resources.RoboMakerRobotApplication where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.RoboMakerRobotApplicationRobotSoftwareSuite -import Stratosphere.ResourceProperties.RoboMakerRobotApplicationSourceConfig - --- | Full data type definition for RoboMakerRobotApplication. See --- 'roboMakerRobotApplication' for a more convenient constructor. -data RoboMakerRobotApplication = - RoboMakerRobotApplication - { _roboMakerRobotApplicationCurrentRevisionId :: Maybe (Val Text) - , _roboMakerRobotApplicationName :: Maybe (Val Text) - , _roboMakerRobotApplicationRobotSoftwareSuite :: RoboMakerRobotApplicationRobotSoftwareSuite - , _roboMakerRobotApplicationSources :: [RoboMakerRobotApplicationSourceConfig] - , _roboMakerRobotApplicationTags :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties RoboMakerRobotApplication where - toResourceProperties RoboMakerRobotApplication{..} = - ResourceProperties - { resourcePropertiesType = "AWS::RoboMaker::RobotApplication" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("CurrentRevisionId",) . toJSON) _roboMakerRobotApplicationCurrentRevisionId - , fmap (("Name",) . toJSON) _roboMakerRobotApplicationName - , (Just . ("RobotSoftwareSuite",) . toJSON) _roboMakerRobotApplicationRobotSoftwareSuite - , (Just . ("Sources",) . toJSON) _roboMakerRobotApplicationSources - , fmap (("Tags",) . toJSON) _roboMakerRobotApplicationTags - ] - } - --- | Constructor for 'RoboMakerRobotApplication' containing required fields as --- arguments. -roboMakerRobotApplication - :: RoboMakerRobotApplicationRobotSoftwareSuite -- ^ 'rmraRobotSoftwareSuite' - -> [RoboMakerRobotApplicationSourceConfig] -- ^ 'rmraSources' - -> RoboMakerRobotApplication -roboMakerRobotApplication robotSoftwareSuitearg sourcesarg = - RoboMakerRobotApplication - { _roboMakerRobotApplicationCurrentRevisionId = Nothing - , _roboMakerRobotApplicationName = Nothing - , _roboMakerRobotApplicationRobotSoftwareSuite = robotSoftwareSuitearg - , _roboMakerRobotApplicationSources = sourcesarg - , _roboMakerRobotApplicationTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robotapplication.html#cfn-robomaker-robotapplication-currentrevisionid -rmraCurrentRevisionId :: Lens' RoboMakerRobotApplication (Maybe (Val Text)) -rmraCurrentRevisionId = lens _roboMakerRobotApplicationCurrentRevisionId (\s a -> s { _roboMakerRobotApplicationCurrentRevisionId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robotapplication.html#cfn-robomaker-robotapplication-name -rmraName :: Lens' RoboMakerRobotApplication (Maybe (Val Text)) -rmraName = lens _roboMakerRobotApplicationName (\s a -> s { _roboMakerRobotApplicationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robotapplication.html#cfn-robomaker-robotapplication-robotsoftwaresuite -rmraRobotSoftwareSuite :: Lens' RoboMakerRobotApplication RoboMakerRobotApplicationRobotSoftwareSuite -rmraRobotSoftwareSuite = lens _roboMakerRobotApplicationRobotSoftwareSuite (\s a -> s { _roboMakerRobotApplicationRobotSoftwareSuite = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robotapplication.html#cfn-robomaker-robotapplication-sources -rmraSources :: Lens' RoboMakerRobotApplication [RoboMakerRobotApplicationSourceConfig] -rmraSources = lens _roboMakerRobotApplicationSources (\s a -> s { _roboMakerRobotApplicationSources = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robotapplication.html#cfn-robomaker-robotapplication-tags -rmraTags :: Lens' RoboMakerRobotApplication (Maybe Object) -rmraTags = lens _roboMakerRobotApplicationTags (\s a -> s { _roboMakerRobotApplicationTags = a }) diff --git a/library-gen/Stratosphere/Resources/RoboMakerRobotApplicationVersion.hs b/library-gen/Stratosphere/Resources/RoboMakerRobotApplicationVersion.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/RoboMakerRobotApplicationVersion.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robotapplicationversion.html - -module Stratosphere.Resources.RoboMakerRobotApplicationVersion where - -import Stratosphere.ResourceImports - - --- | Full data type definition for RoboMakerRobotApplicationVersion. See --- 'roboMakerRobotApplicationVersion' for a more convenient constructor. -data RoboMakerRobotApplicationVersion = - RoboMakerRobotApplicationVersion - { _roboMakerRobotApplicationVersionApplication :: Val Text - , _roboMakerRobotApplicationVersionCurrentRevisionId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties RoboMakerRobotApplicationVersion where - toResourceProperties RoboMakerRobotApplicationVersion{..} = - ResourceProperties - { resourcePropertiesType = "AWS::RoboMaker::RobotApplicationVersion" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Application",) . toJSON) _roboMakerRobotApplicationVersionApplication - , fmap (("CurrentRevisionId",) . toJSON) _roboMakerRobotApplicationVersionCurrentRevisionId - ] - } - --- | Constructor for 'RoboMakerRobotApplicationVersion' containing required --- fields as arguments. -roboMakerRobotApplicationVersion - :: Val Text -- ^ 'rmravApplication' - -> RoboMakerRobotApplicationVersion -roboMakerRobotApplicationVersion applicationarg = - RoboMakerRobotApplicationVersion - { _roboMakerRobotApplicationVersionApplication = applicationarg - , _roboMakerRobotApplicationVersionCurrentRevisionId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robotapplicationversion.html#cfn-robomaker-robotapplicationversion-application -rmravApplication :: Lens' RoboMakerRobotApplicationVersion (Val Text) -rmravApplication = lens _roboMakerRobotApplicationVersionApplication (\s a -> s { _roboMakerRobotApplicationVersionApplication = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-robotapplicationversion.html#cfn-robomaker-robotapplicationversion-currentrevisionid -rmravCurrentRevisionId :: Lens' RoboMakerRobotApplicationVersion (Maybe (Val Text)) -rmravCurrentRevisionId = lens _roboMakerRobotApplicationVersionCurrentRevisionId (\s a -> s { _roboMakerRobotApplicationVersionCurrentRevisionId = a }) diff --git a/library-gen/Stratosphere/Resources/RoboMakerSimulationApplication.hs b/library-gen/Stratosphere/Resources/RoboMakerSimulationApplication.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/RoboMakerSimulationApplication.hs +++ /dev/null @@ -1,90 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-simulationapplication.html - -module Stratosphere.Resources.RoboMakerSimulationApplication where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.RoboMakerSimulationApplicationRenderingEngine -import Stratosphere.ResourceProperties.RoboMakerSimulationApplicationRobotSoftwareSuite -import Stratosphere.ResourceProperties.RoboMakerSimulationApplicationSimulationSoftwareSuite -import Stratosphere.ResourceProperties.RoboMakerSimulationApplicationSourceConfig - --- | Full data type definition for RoboMakerSimulationApplication. See --- 'roboMakerSimulationApplication' for a more convenient constructor. -data RoboMakerSimulationApplication = - RoboMakerSimulationApplication - { _roboMakerSimulationApplicationCurrentRevisionId :: Maybe (Val Text) - , _roboMakerSimulationApplicationName :: Maybe (Val Text) - , _roboMakerSimulationApplicationRenderingEngine :: RoboMakerSimulationApplicationRenderingEngine - , _roboMakerSimulationApplicationRobotSoftwareSuite :: RoboMakerSimulationApplicationRobotSoftwareSuite - , _roboMakerSimulationApplicationSimulationSoftwareSuite :: RoboMakerSimulationApplicationSimulationSoftwareSuite - , _roboMakerSimulationApplicationSources :: [RoboMakerSimulationApplicationSourceConfig] - , _roboMakerSimulationApplicationTags :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties RoboMakerSimulationApplication where - toResourceProperties RoboMakerSimulationApplication{..} = - ResourceProperties - { resourcePropertiesType = "AWS::RoboMaker::SimulationApplication" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("CurrentRevisionId",) . toJSON) _roboMakerSimulationApplicationCurrentRevisionId - , fmap (("Name",) . toJSON) _roboMakerSimulationApplicationName - , (Just . ("RenderingEngine",) . toJSON) _roboMakerSimulationApplicationRenderingEngine - , (Just . ("RobotSoftwareSuite",) . toJSON) _roboMakerSimulationApplicationRobotSoftwareSuite - , (Just . ("SimulationSoftwareSuite",) . toJSON) _roboMakerSimulationApplicationSimulationSoftwareSuite - , (Just . ("Sources",) . toJSON) _roboMakerSimulationApplicationSources - , fmap (("Tags",) . toJSON) _roboMakerSimulationApplicationTags - ] - } - --- | Constructor for 'RoboMakerSimulationApplication' containing required --- fields as arguments. -roboMakerSimulationApplication - :: RoboMakerSimulationApplicationRenderingEngine -- ^ 'rmsaRenderingEngine' - -> RoboMakerSimulationApplicationRobotSoftwareSuite -- ^ 'rmsaRobotSoftwareSuite' - -> RoboMakerSimulationApplicationSimulationSoftwareSuite -- ^ 'rmsaSimulationSoftwareSuite' - -> [RoboMakerSimulationApplicationSourceConfig] -- ^ 'rmsaSources' - -> RoboMakerSimulationApplication -roboMakerSimulationApplication renderingEnginearg robotSoftwareSuitearg simulationSoftwareSuitearg sourcesarg = - RoboMakerSimulationApplication - { _roboMakerSimulationApplicationCurrentRevisionId = Nothing - , _roboMakerSimulationApplicationName = Nothing - , _roboMakerSimulationApplicationRenderingEngine = renderingEnginearg - , _roboMakerSimulationApplicationRobotSoftwareSuite = robotSoftwareSuitearg - , _roboMakerSimulationApplicationSimulationSoftwareSuite = simulationSoftwareSuitearg - , _roboMakerSimulationApplicationSources = sourcesarg - , _roboMakerSimulationApplicationTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-simulationapplication.html#cfn-robomaker-simulationapplication-currentrevisionid -rmsaCurrentRevisionId :: Lens' RoboMakerSimulationApplication (Maybe (Val Text)) -rmsaCurrentRevisionId = lens _roboMakerSimulationApplicationCurrentRevisionId (\s a -> s { _roboMakerSimulationApplicationCurrentRevisionId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-simulationapplication.html#cfn-robomaker-simulationapplication-name -rmsaName :: Lens' RoboMakerSimulationApplication (Maybe (Val Text)) -rmsaName = lens _roboMakerSimulationApplicationName (\s a -> s { _roboMakerSimulationApplicationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-simulationapplication.html#cfn-robomaker-simulationapplication-renderingengine -rmsaRenderingEngine :: Lens' RoboMakerSimulationApplication RoboMakerSimulationApplicationRenderingEngine -rmsaRenderingEngine = lens _roboMakerSimulationApplicationRenderingEngine (\s a -> s { _roboMakerSimulationApplicationRenderingEngine = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-simulationapplication.html#cfn-robomaker-simulationapplication-robotsoftwaresuite -rmsaRobotSoftwareSuite :: Lens' RoboMakerSimulationApplication RoboMakerSimulationApplicationRobotSoftwareSuite -rmsaRobotSoftwareSuite = lens _roboMakerSimulationApplicationRobotSoftwareSuite (\s a -> s { _roboMakerSimulationApplicationRobotSoftwareSuite = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-simulationapplication.html#cfn-robomaker-simulationapplication-simulationsoftwaresuite -rmsaSimulationSoftwareSuite :: Lens' RoboMakerSimulationApplication RoboMakerSimulationApplicationSimulationSoftwareSuite -rmsaSimulationSoftwareSuite = lens _roboMakerSimulationApplicationSimulationSoftwareSuite (\s a -> s { _roboMakerSimulationApplicationSimulationSoftwareSuite = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-simulationapplication.html#cfn-robomaker-simulationapplication-sources -rmsaSources :: Lens' RoboMakerSimulationApplication [RoboMakerSimulationApplicationSourceConfig] -rmsaSources = lens _roboMakerSimulationApplicationSources (\s a -> s { _roboMakerSimulationApplicationSources = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-simulationapplication.html#cfn-robomaker-simulationapplication-tags -rmsaTags :: Lens' RoboMakerSimulationApplication (Maybe Object) -rmsaTags = lens _roboMakerSimulationApplicationTags (\s a -> s { _roboMakerSimulationApplicationTags = a }) diff --git a/library-gen/Stratosphere/Resources/RoboMakerSimulationApplicationVersion.hs b/library-gen/Stratosphere/Resources/RoboMakerSimulationApplicationVersion.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/RoboMakerSimulationApplicationVersion.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-simulationapplicationversion.html - -module Stratosphere.Resources.RoboMakerSimulationApplicationVersion where - -import Stratosphere.ResourceImports - - --- | Full data type definition for RoboMakerSimulationApplicationVersion. See --- 'roboMakerSimulationApplicationVersion' for a more convenient --- constructor. -data RoboMakerSimulationApplicationVersion = - RoboMakerSimulationApplicationVersion - { _roboMakerSimulationApplicationVersionApplication :: Val Text - , _roboMakerSimulationApplicationVersionCurrentRevisionId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties RoboMakerSimulationApplicationVersion where - toResourceProperties RoboMakerSimulationApplicationVersion{..} = - ResourceProperties - { resourcePropertiesType = "AWS::RoboMaker::SimulationApplicationVersion" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Application",) . toJSON) _roboMakerSimulationApplicationVersionApplication - , fmap (("CurrentRevisionId",) . toJSON) _roboMakerSimulationApplicationVersionCurrentRevisionId - ] - } - --- | Constructor for 'RoboMakerSimulationApplicationVersion' containing --- required fields as arguments. -roboMakerSimulationApplicationVersion - :: Val Text -- ^ 'rmsavApplication' - -> RoboMakerSimulationApplicationVersion -roboMakerSimulationApplicationVersion applicationarg = - RoboMakerSimulationApplicationVersion - { _roboMakerSimulationApplicationVersionApplication = applicationarg - , _roboMakerSimulationApplicationVersionCurrentRevisionId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-simulationapplicationversion.html#cfn-robomaker-simulationapplicationversion-application -rmsavApplication :: Lens' RoboMakerSimulationApplicationVersion (Val Text) -rmsavApplication = lens _roboMakerSimulationApplicationVersionApplication (\s a -> s { _roboMakerSimulationApplicationVersionApplication = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-simulationapplicationversion.html#cfn-robomaker-simulationapplicationversion-currentrevisionid -rmsavCurrentRevisionId :: Lens' RoboMakerSimulationApplicationVersion (Maybe (Val Text)) -rmsavCurrentRevisionId = lens _roboMakerSimulationApplicationVersionCurrentRevisionId (\s a -> s { _roboMakerSimulationApplicationVersionCurrentRevisionId = a }) diff --git a/library-gen/Stratosphere/Resources/Route53HealthCheck.hs b/library-gen/Stratosphere/Resources/Route53HealthCheck.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/Route53HealthCheck.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53-healthcheck.html - -module Stratosphere.Resources.Route53HealthCheck where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Route53HealthCheckHealthCheckTag - --- | Full data type definition for Route53HealthCheck. See --- 'route53HealthCheck' for a more convenient constructor. -data Route53HealthCheck = - Route53HealthCheck - { _route53HealthCheckHealthCheckConfig :: Object - , _route53HealthCheckHealthCheckTags :: Maybe [Route53HealthCheckHealthCheckTag] - } deriving (Show, Eq) - -instance ToResourceProperties Route53HealthCheck where - toResourceProperties Route53HealthCheck{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Route53::HealthCheck" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("HealthCheckConfig",) . toJSON) _route53HealthCheckHealthCheckConfig - , fmap (("HealthCheckTags",) . toJSON) _route53HealthCheckHealthCheckTags - ] - } - --- | Constructor for 'Route53HealthCheck' containing required fields as --- arguments. -route53HealthCheck - :: Object -- ^ 'rhcHealthCheckConfig' - -> Route53HealthCheck -route53HealthCheck healthCheckConfigarg = - Route53HealthCheck - { _route53HealthCheckHealthCheckConfig = healthCheckConfigarg - , _route53HealthCheckHealthCheckTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53-healthcheck.html#cfn-route53-healthcheck-healthcheckconfig -rhcHealthCheckConfig :: Lens' Route53HealthCheck Object -rhcHealthCheckConfig = lens _route53HealthCheckHealthCheckConfig (\s a -> s { _route53HealthCheckHealthCheckConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53-healthcheck.html#cfn-route53-healthcheck-healthchecktags -rhcHealthCheckTags :: Lens' Route53HealthCheck (Maybe [Route53HealthCheckHealthCheckTag]) -rhcHealthCheckTags = lens _route53HealthCheckHealthCheckTags (\s a -> s { _route53HealthCheckHealthCheckTags = a }) diff --git a/library-gen/Stratosphere/Resources/Route53HostedZone.hs b/library-gen/Stratosphere/Resources/Route53HostedZone.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/Route53HostedZone.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53-hostedzone.html - -module Stratosphere.Resources.Route53HostedZone where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Route53HostedZoneHostedZoneConfig -import Stratosphere.ResourceProperties.Route53HostedZoneHostedZoneTag -import Stratosphere.ResourceProperties.Route53HostedZoneQueryLoggingConfig -import Stratosphere.ResourceProperties.Route53HostedZoneVPC - --- | Full data type definition for Route53HostedZone. See 'route53HostedZone' --- for a more convenient constructor. -data Route53HostedZone = - Route53HostedZone - { _route53HostedZoneHostedZoneConfig :: Maybe Route53HostedZoneHostedZoneConfig - , _route53HostedZoneHostedZoneTags :: Maybe [Route53HostedZoneHostedZoneTag] - , _route53HostedZoneName :: Val Text - , _route53HostedZoneQueryLoggingConfig :: Maybe Route53HostedZoneQueryLoggingConfig - , _route53HostedZoneVPCs :: Maybe [Route53HostedZoneVPC] - } deriving (Show, Eq) - -instance ToResourceProperties Route53HostedZone where - toResourceProperties Route53HostedZone{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Route53::HostedZone" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("HostedZoneConfig",) . toJSON) _route53HostedZoneHostedZoneConfig - , fmap (("HostedZoneTags",) . toJSON) _route53HostedZoneHostedZoneTags - , (Just . ("Name",) . toJSON) _route53HostedZoneName - , fmap (("QueryLoggingConfig",) . toJSON) _route53HostedZoneQueryLoggingConfig - , fmap (("VPCs",) . toJSON) _route53HostedZoneVPCs - ] - } - --- | Constructor for 'Route53HostedZone' containing required fields as --- arguments. -route53HostedZone - :: Val Text -- ^ 'rhzName' - -> Route53HostedZone -route53HostedZone namearg = - Route53HostedZone - { _route53HostedZoneHostedZoneConfig = Nothing - , _route53HostedZoneHostedZoneTags = Nothing - , _route53HostedZoneName = namearg - , _route53HostedZoneQueryLoggingConfig = Nothing - , _route53HostedZoneVPCs = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53-hostedzone.html#cfn-route53-hostedzone-hostedzoneconfig -rhzHostedZoneConfig :: Lens' Route53HostedZone (Maybe Route53HostedZoneHostedZoneConfig) -rhzHostedZoneConfig = lens _route53HostedZoneHostedZoneConfig (\s a -> s { _route53HostedZoneHostedZoneConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53-hostedzone.html#cfn-route53-hostedzone-hostedzonetags -rhzHostedZoneTags :: Lens' Route53HostedZone (Maybe [Route53HostedZoneHostedZoneTag]) -rhzHostedZoneTags = lens _route53HostedZoneHostedZoneTags (\s a -> s { _route53HostedZoneHostedZoneTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53-hostedzone.html#cfn-route53-hostedzone-name -rhzName :: Lens' Route53HostedZone (Val Text) -rhzName = lens _route53HostedZoneName (\s a -> s { _route53HostedZoneName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53-hostedzone.html#cfn-route53-hostedzone-queryloggingconfig -rhzQueryLoggingConfig :: Lens' Route53HostedZone (Maybe Route53HostedZoneQueryLoggingConfig) -rhzQueryLoggingConfig = lens _route53HostedZoneQueryLoggingConfig (\s a -> s { _route53HostedZoneQueryLoggingConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53-hostedzone.html#cfn-route53-hostedzone-vpcs -rhzVPCs :: Lens' Route53HostedZone (Maybe [Route53HostedZoneVPC]) -rhzVPCs = lens _route53HostedZoneVPCs (\s a -> s { _route53HostedZoneVPCs = a }) diff --git a/library-gen/Stratosphere/Resources/Route53RecordSet.hs b/library-gen/Stratosphere/Resources/Route53RecordSet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/Route53RecordSet.hs +++ /dev/null @@ -1,142 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html - -module Stratosphere.Resources.Route53RecordSet where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Route53RecordSetAliasTarget -import Stratosphere.ResourceProperties.Route53RecordSetGeoLocation - --- | Full data type definition for Route53RecordSet. See 'route53RecordSet' --- for a more convenient constructor. -data Route53RecordSet = - Route53RecordSet - { _route53RecordSetAliasTarget :: Maybe Route53RecordSetAliasTarget - , _route53RecordSetComment :: Maybe (Val Text) - , _route53RecordSetFailover :: Maybe (Val Text) - , _route53RecordSetGeoLocation :: Maybe Route53RecordSetGeoLocation - , _route53RecordSetHealthCheckId :: Maybe (Val Text) - , _route53RecordSetHostedZoneId :: Maybe (Val Text) - , _route53RecordSetHostedZoneName :: Maybe (Val Text) - , _route53RecordSetMultiValueAnswer :: Maybe (Val Bool) - , _route53RecordSetName :: Val Text - , _route53RecordSetRegion :: Maybe (Val Text) - , _route53RecordSetResourceRecords :: Maybe (ValList Text) - , _route53RecordSetSetIdentifier :: Maybe (Val Text) - , _route53RecordSetTTL :: Maybe (Val Text) - , _route53RecordSetType :: Val Text - , _route53RecordSetWeight :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToResourceProperties Route53RecordSet where - toResourceProperties Route53RecordSet{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Route53::RecordSet" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AliasTarget",) . toJSON) _route53RecordSetAliasTarget - , fmap (("Comment",) . toJSON) _route53RecordSetComment - , fmap (("Failover",) . toJSON) _route53RecordSetFailover - , fmap (("GeoLocation",) . toJSON) _route53RecordSetGeoLocation - , fmap (("HealthCheckId",) . toJSON) _route53RecordSetHealthCheckId - , fmap (("HostedZoneId",) . toJSON) _route53RecordSetHostedZoneId - , fmap (("HostedZoneName",) . toJSON) _route53RecordSetHostedZoneName - , fmap (("MultiValueAnswer",) . toJSON) _route53RecordSetMultiValueAnswer - , (Just . ("Name",) . toJSON) _route53RecordSetName - , fmap (("Region",) . toJSON) _route53RecordSetRegion - , fmap (("ResourceRecords",) . toJSON) _route53RecordSetResourceRecords - , fmap (("SetIdentifier",) . toJSON) _route53RecordSetSetIdentifier - , fmap (("TTL",) . toJSON) _route53RecordSetTTL - , (Just . ("Type",) . toJSON) _route53RecordSetType - , fmap (("Weight",) . toJSON) _route53RecordSetWeight - ] - } - --- | Constructor for 'Route53RecordSet' containing required fields as --- arguments. -route53RecordSet - :: Val Text -- ^ 'rrsName' - -> Val Text -- ^ 'rrsType' - -> Route53RecordSet -route53RecordSet namearg typearg = - Route53RecordSet - { _route53RecordSetAliasTarget = Nothing - , _route53RecordSetComment = Nothing - , _route53RecordSetFailover = Nothing - , _route53RecordSetGeoLocation = Nothing - , _route53RecordSetHealthCheckId = Nothing - , _route53RecordSetHostedZoneId = Nothing - , _route53RecordSetHostedZoneName = Nothing - , _route53RecordSetMultiValueAnswer = Nothing - , _route53RecordSetName = namearg - , _route53RecordSetRegion = Nothing - , _route53RecordSetResourceRecords = Nothing - , _route53RecordSetSetIdentifier = Nothing - , _route53RecordSetTTL = Nothing - , _route53RecordSetType = typearg - , _route53RecordSetWeight = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-aliastarget -rrsAliasTarget :: Lens' Route53RecordSet (Maybe Route53RecordSetAliasTarget) -rrsAliasTarget = lens _route53RecordSetAliasTarget (\s a -> s { _route53RecordSetAliasTarget = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-comment -rrsComment :: Lens' Route53RecordSet (Maybe (Val Text)) -rrsComment = lens _route53RecordSetComment (\s a -> s { _route53RecordSetComment = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-failover -rrsFailover :: Lens' Route53RecordSet (Maybe (Val Text)) -rrsFailover = lens _route53RecordSetFailover (\s a -> s { _route53RecordSetFailover = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-geolocation -rrsGeoLocation :: Lens' Route53RecordSet (Maybe Route53RecordSetGeoLocation) -rrsGeoLocation = lens _route53RecordSetGeoLocation (\s a -> s { _route53RecordSetGeoLocation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-healthcheckid -rrsHealthCheckId :: Lens' Route53RecordSet (Maybe (Val Text)) -rrsHealthCheckId = lens _route53RecordSetHealthCheckId (\s a -> s { _route53RecordSetHealthCheckId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-hostedzoneid -rrsHostedZoneId :: Lens' Route53RecordSet (Maybe (Val Text)) -rrsHostedZoneId = lens _route53RecordSetHostedZoneId (\s a -> s { _route53RecordSetHostedZoneId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-hostedzonename -rrsHostedZoneName :: Lens' Route53RecordSet (Maybe (Val Text)) -rrsHostedZoneName = lens _route53RecordSetHostedZoneName (\s a -> s { _route53RecordSetHostedZoneName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-multivalueanswer -rrsMultiValueAnswer :: Lens' Route53RecordSet (Maybe (Val Bool)) -rrsMultiValueAnswer = lens _route53RecordSetMultiValueAnswer (\s a -> s { _route53RecordSetMultiValueAnswer = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-name -rrsName :: Lens' Route53RecordSet (Val Text) -rrsName = lens _route53RecordSetName (\s a -> s { _route53RecordSetName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-region -rrsRegion :: Lens' Route53RecordSet (Maybe (Val Text)) -rrsRegion = lens _route53RecordSetRegion (\s a -> s { _route53RecordSetRegion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-resourcerecords -rrsResourceRecords :: Lens' Route53RecordSet (Maybe (ValList Text)) -rrsResourceRecords = lens _route53RecordSetResourceRecords (\s a -> s { _route53RecordSetResourceRecords = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-setidentifier -rrsSetIdentifier :: Lens' Route53RecordSet (Maybe (Val Text)) -rrsSetIdentifier = lens _route53RecordSetSetIdentifier (\s a -> s { _route53RecordSetSetIdentifier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-ttl -rrsTTL :: Lens' Route53RecordSet (Maybe (Val Text)) -rrsTTL = lens _route53RecordSetTTL (\s a -> s { _route53RecordSetTTL = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-type -rrsType :: Lens' Route53RecordSet (Val Text) -rrsType = lens _route53RecordSetType (\s a -> s { _route53RecordSetType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-route53-recordset.html#cfn-route53-recordset-weight -rrsWeight :: Lens' Route53RecordSet (Maybe (Val Integer)) -rrsWeight = lens _route53RecordSetWeight (\s a -> s { _route53RecordSetWeight = a }) diff --git a/library-gen/Stratosphere/Resources/Route53RecordSetGroup.hs b/library-gen/Stratosphere/Resources/Route53RecordSetGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/Route53RecordSetGroup.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53-recordsetgroup.html - -module Stratosphere.Resources.Route53RecordSetGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Route53RecordSetGroupRecordSet - --- | Full data type definition for Route53RecordSetGroup. See --- 'route53RecordSetGroup' for a more convenient constructor. -data Route53RecordSetGroup = - Route53RecordSetGroup - { _route53RecordSetGroupComment :: Maybe (Val Text) - , _route53RecordSetGroupHostedZoneId :: Maybe (Val Text) - , _route53RecordSetGroupHostedZoneName :: Maybe (Val Text) - , _route53RecordSetGroupRecordSets :: Maybe [Route53RecordSetGroupRecordSet] - } deriving (Show, Eq) - -instance ToResourceProperties Route53RecordSetGroup where - toResourceProperties Route53RecordSetGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Route53::RecordSetGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Comment",) . toJSON) _route53RecordSetGroupComment - , fmap (("HostedZoneId",) . toJSON) _route53RecordSetGroupHostedZoneId - , fmap (("HostedZoneName",) . toJSON) _route53RecordSetGroupHostedZoneName - , fmap (("RecordSets",) . toJSON) _route53RecordSetGroupRecordSets - ] - } - --- | Constructor for 'Route53RecordSetGroup' containing required fields as --- arguments. -route53RecordSetGroup - :: Route53RecordSetGroup -route53RecordSetGroup = - Route53RecordSetGroup - { _route53RecordSetGroupComment = Nothing - , _route53RecordSetGroupHostedZoneId = Nothing - , _route53RecordSetGroupHostedZoneName = Nothing - , _route53RecordSetGroupRecordSets = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53-recordsetgroup.html#cfn-route53-recordsetgroup-comment -rrsgComment :: Lens' Route53RecordSetGroup (Maybe (Val Text)) -rrsgComment = lens _route53RecordSetGroupComment (\s a -> s { _route53RecordSetGroupComment = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53-recordsetgroup.html#cfn-route53-recordsetgroup-hostedzoneid -rrsgHostedZoneId :: Lens' Route53RecordSetGroup (Maybe (Val Text)) -rrsgHostedZoneId = lens _route53RecordSetGroupHostedZoneId (\s a -> s { _route53RecordSetGroupHostedZoneId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53-recordsetgroup.html#cfn-route53-recordsetgroup-hostedzonename -rrsgHostedZoneName :: Lens' Route53RecordSetGroup (Maybe (Val Text)) -rrsgHostedZoneName = lens _route53RecordSetGroupHostedZoneName (\s a -> s { _route53RecordSetGroupHostedZoneName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53-recordsetgroup.html#cfn-route53-recordsetgroup-recordsets -rrsgRecordSets :: Lens' Route53RecordSetGroup (Maybe [Route53RecordSetGroupRecordSet]) -rrsgRecordSets = lens _route53RecordSetGroupRecordSets (\s a -> s { _route53RecordSetGroupRecordSets = a }) diff --git a/library-gen/Stratosphere/Resources/Route53ResolverResolverEndpoint.hs b/library-gen/Stratosphere/Resources/Route53ResolverResolverEndpoint.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/Route53ResolverResolverEndpoint.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53resolver-resolverendpoint.html - -module Stratosphere.Resources.Route53ResolverResolverEndpoint where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Route53ResolverResolverEndpointIpAddressRequest -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for Route53ResolverResolverEndpoint. See --- 'route53ResolverResolverEndpoint' for a more convenient constructor. -data Route53ResolverResolverEndpoint = - Route53ResolverResolverEndpoint - { _route53ResolverResolverEndpointDirection :: Val Text - , _route53ResolverResolverEndpointIpAddresses :: [Route53ResolverResolverEndpointIpAddressRequest] - , _route53ResolverResolverEndpointName :: Maybe (Val Text) - , _route53ResolverResolverEndpointSecurityGroupIds :: ValList Text - , _route53ResolverResolverEndpointTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties Route53ResolverResolverEndpoint where - toResourceProperties Route53ResolverResolverEndpoint{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Route53Resolver::ResolverEndpoint" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Direction",) . toJSON) _route53ResolverResolverEndpointDirection - , (Just . ("IpAddresses",) . toJSON) _route53ResolverResolverEndpointIpAddresses - , fmap (("Name",) . toJSON) _route53ResolverResolverEndpointName - , (Just . ("SecurityGroupIds",) . toJSON) _route53ResolverResolverEndpointSecurityGroupIds - , fmap (("Tags",) . toJSON) _route53ResolverResolverEndpointTags - ] - } - --- | Constructor for 'Route53ResolverResolverEndpoint' containing required --- fields as arguments. -route53ResolverResolverEndpoint - :: Val Text -- ^ 'rrreDirection' - -> [Route53ResolverResolverEndpointIpAddressRequest] -- ^ 'rrreIpAddresses' - -> ValList Text -- ^ 'rrreSecurityGroupIds' - -> Route53ResolverResolverEndpoint -route53ResolverResolverEndpoint directionarg ipAddressesarg securityGroupIdsarg = - Route53ResolverResolverEndpoint - { _route53ResolverResolverEndpointDirection = directionarg - , _route53ResolverResolverEndpointIpAddresses = ipAddressesarg - , _route53ResolverResolverEndpointName = Nothing - , _route53ResolverResolverEndpointSecurityGroupIds = securityGroupIdsarg - , _route53ResolverResolverEndpointTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53resolver-resolverendpoint.html#cfn-route53resolver-resolverendpoint-direction -rrreDirection :: Lens' Route53ResolverResolverEndpoint (Val Text) -rrreDirection = lens _route53ResolverResolverEndpointDirection (\s a -> s { _route53ResolverResolverEndpointDirection = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53resolver-resolverendpoint.html#cfn-route53resolver-resolverendpoint-ipaddresses -rrreIpAddresses :: Lens' Route53ResolverResolverEndpoint [Route53ResolverResolverEndpointIpAddressRequest] -rrreIpAddresses = lens _route53ResolverResolverEndpointIpAddresses (\s a -> s { _route53ResolverResolverEndpointIpAddresses = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53resolver-resolverendpoint.html#cfn-route53resolver-resolverendpoint-name -rrreName :: Lens' Route53ResolverResolverEndpoint (Maybe (Val Text)) -rrreName = lens _route53ResolverResolverEndpointName (\s a -> s { _route53ResolverResolverEndpointName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53resolver-resolverendpoint.html#cfn-route53resolver-resolverendpoint-securitygroupids -rrreSecurityGroupIds :: Lens' Route53ResolverResolverEndpoint (ValList Text) -rrreSecurityGroupIds = lens _route53ResolverResolverEndpointSecurityGroupIds (\s a -> s { _route53ResolverResolverEndpointSecurityGroupIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53resolver-resolverendpoint.html#cfn-route53resolver-resolverendpoint-tags -rrreTags :: Lens' Route53ResolverResolverEndpoint (Maybe [Tag]) -rrreTags = lens _route53ResolverResolverEndpointTags (\s a -> s { _route53ResolverResolverEndpointTags = a }) diff --git a/library-gen/Stratosphere/Resources/Route53ResolverResolverQueryLoggingConfig.hs b/library-gen/Stratosphere/Resources/Route53ResolverResolverQueryLoggingConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/Route53ResolverResolverQueryLoggingConfig.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53resolver-resolverqueryloggingconfig.html - -module Stratosphere.Resources.Route53ResolverResolverQueryLoggingConfig where - -import Stratosphere.ResourceImports - - --- | Full data type definition for Route53ResolverResolverQueryLoggingConfig. --- See 'route53ResolverResolverQueryLoggingConfig' for a more convenient --- constructor. -data Route53ResolverResolverQueryLoggingConfig = - Route53ResolverResolverQueryLoggingConfig - { _route53ResolverResolverQueryLoggingConfigDestinationArn :: Maybe (Val Text) - , _route53ResolverResolverQueryLoggingConfigName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties Route53ResolverResolverQueryLoggingConfig where - toResourceProperties Route53ResolverResolverQueryLoggingConfig{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Route53Resolver::ResolverQueryLoggingConfig" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("DestinationArn",) . toJSON) _route53ResolverResolverQueryLoggingConfigDestinationArn - , fmap (("Name",) . toJSON) _route53ResolverResolverQueryLoggingConfigName - ] - } - --- | Constructor for 'Route53ResolverResolverQueryLoggingConfig' containing --- required fields as arguments. -route53ResolverResolverQueryLoggingConfig - :: Route53ResolverResolverQueryLoggingConfig -route53ResolverResolverQueryLoggingConfig = - Route53ResolverResolverQueryLoggingConfig - { _route53ResolverResolverQueryLoggingConfigDestinationArn = Nothing - , _route53ResolverResolverQueryLoggingConfigName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53resolver-resolverqueryloggingconfig.html#cfn-route53resolver-resolverqueryloggingconfig-destinationarn -rrrqlcDestinationArn :: Lens' Route53ResolverResolverQueryLoggingConfig (Maybe (Val Text)) -rrrqlcDestinationArn = lens _route53ResolverResolverQueryLoggingConfigDestinationArn (\s a -> s { _route53ResolverResolverQueryLoggingConfigDestinationArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53resolver-resolverqueryloggingconfig.html#cfn-route53resolver-resolverqueryloggingconfig-name -rrrqlcName :: Lens' Route53ResolverResolverQueryLoggingConfig (Maybe (Val Text)) -rrrqlcName = lens _route53ResolverResolverQueryLoggingConfigName (\s a -> s { _route53ResolverResolverQueryLoggingConfigName = a }) diff --git a/library-gen/Stratosphere/Resources/Route53ResolverResolverQueryLoggingConfigAssociation.hs b/library-gen/Stratosphere/Resources/Route53ResolverResolverQueryLoggingConfigAssociation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/Route53ResolverResolverQueryLoggingConfigAssociation.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53resolver-resolverqueryloggingconfigassociation.html - -module Stratosphere.Resources.Route53ResolverResolverQueryLoggingConfigAssociation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- Route53ResolverResolverQueryLoggingConfigAssociation. See --- 'route53ResolverResolverQueryLoggingConfigAssociation' for a more --- convenient constructor. -data Route53ResolverResolverQueryLoggingConfigAssociation = - Route53ResolverResolverQueryLoggingConfigAssociation - { _route53ResolverResolverQueryLoggingConfigAssociationResolverQueryLogConfigId :: Maybe (Val Text) - , _route53ResolverResolverQueryLoggingConfigAssociationResourceId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties Route53ResolverResolverQueryLoggingConfigAssociation where - toResourceProperties Route53ResolverResolverQueryLoggingConfigAssociation{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Route53Resolver::ResolverQueryLoggingConfigAssociation" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ResolverQueryLogConfigId",) . toJSON) _route53ResolverResolverQueryLoggingConfigAssociationResolverQueryLogConfigId - , fmap (("ResourceId",) . toJSON) _route53ResolverResolverQueryLoggingConfigAssociationResourceId - ] - } - --- | Constructor for 'Route53ResolverResolverQueryLoggingConfigAssociation' --- containing required fields as arguments. -route53ResolverResolverQueryLoggingConfigAssociation - :: Route53ResolverResolverQueryLoggingConfigAssociation -route53ResolverResolverQueryLoggingConfigAssociation = - Route53ResolverResolverQueryLoggingConfigAssociation - { _route53ResolverResolverQueryLoggingConfigAssociationResolverQueryLogConfigId = Nothing - , _route53ResolverResolverQueryLoggingConfigAssociationResourceId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53resolver-resolverqueryloggingconfigassociation.html#cfn-route53resolver-resolverqueryloggingconfigassociation-resolverquerylogconfigid -rrrqlcaResolverQueryLogConfigId :: Lens' Route53ResolverResolverQueryLoggingConfigAssociation (Maybe (Val Text)) -rrrqlcaResolverQueryLogConfigId = lens _route53ResolverResolverQueryLoggingConfigAssociationResolverQueryLogConfigId (\s a -> s { _route53ResolverResolverQueryLoggingConfigAssociationResolverQueryLogConfigId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53resolver-resolverqueryloggingconfigassociation.html#cfn-route53resolver-resolverqueryloggingconfigassociation-resourceid -rrrqlcaResourceId :: Lens' Route53ResolverResolverQueryLoggingConfigAssociation (Maybe (Val Text)) -rrrqlcaResourceId = lens _route53ResolverResolverQueryLoggingConfigAssociationResourceId (\s a -> s { _route53ResolverResolverQueryLoggingConfigAssociationResourceId = a }) diff --git a/library-gen/Stratosphere/Resources/Route53ResolverResolverRule.hs b/library-gen/Stratosphere/Resources/Route53ResolverResolverRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/Route53ResolverResolverRule.hs +++ /dev/null @@ -1,79 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53resolver-resolverrule.html - -module Stratosphere.Resources.Route53ResolverResolverRule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag -import Stratosphere.ResourceProperties.Route53ResolverResolverRuleTargetAddress - --- | Full data type definition for Route53ResolverResolverRule. See --- 'route53ResolverResolverRule' for a more convenient constructor. -data Route53ResolverResolverRule = - Route53ResolverResolverRule - { _route53ResolverResolverRuleDomainName :: Val Text - , _route53ResolverResolverRuleName :: Maybe (Val Text) - , _route53ResolverResolverRuleResolverEndpointId :: Maybe (Val Text) - , _route53ResolverResolverRuleRuleType :: Val Text - , _route53ResolverResolverRuleTags :: Maybe [Tag] - , _route53ResolverResolverRuleTargetIps :: Maybe [Route53ResolverResolverRuleTargetAddress] - } deriving (Show, Eq) - -instance ToResourceProperties Route53ResolverResolverRule where - toResourceProperties Route53ResolverResolverRule{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Route53Resolver::ResolverRule" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("DomainName",) . toJSON) _route53ResolverResolverRuleDomainName - , fmap (("Name",) . toJSON) _route53ResolverResolverRuleName - , fmap (("ResolverEndpointId",) . toJSON) _route53ResolverResolverRuleResolverEndpointId - , (Just . ("RuleType",) . toJSON) _route53ResolverResolverRuleRuleType - , fmap (("Tags",) . toJSON) _route53ResolverResolverRuleTags - , fmap (("TargetIps",) . toJSON) _route53ResolverResolverRuleTargetIps - ] - } - --- | Constructor for 'Route53ResolverResolverRule' containing required fields --- as arguments. -route53ResolverResolverRule - :: Val Text -- ^ 'rrrrDomainName' - -> Val Text -- ^ 'rrrrRuleType' - -> Route53ResolverResolverRule -route53ResolverResolverRule domainNamearg ruleTypearg = - Route53ResolverResolverRule - { _route53ResolverResolverRuleDomainName = domainNamearg - , _route53ResolverResolverRuleName = Nothing - , _route53ResolverResolverRuleResolverEndpointId = Nothing - , _route53ResolverResolverRuleRuleType = ruleTypearg - , _route53ResolverResolverRuleTags = Nothing - , _route53ResolverResolverRuleTargetIps = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53resolver-resolverrule.html#cfn-route53resolver-resolverrule-domainname -rrrrDomainName :: Lens' Route53ResolverResolverRule (Val Text) -rrrrDomainName = lens _route53ResolverResolverRuleDomainName (\s a -> s { _route53ResolverResolverRuleDomainName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53resolver-resolverrule.html#cfn-route53resolver-resolverrule-name -rrrrName :: Lens' Route53ResolverResolverRule (Maybe (Val Text)) -rrrrName = lens _route53ResolverResolverRuleName (\s a -> s { _route53ResolverResolverRuleName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53resolver-resolverrule.html#cfn-route53resolver-resolverrule-resolverendpointid -rrrrResolverEndpointId :: Lens' Route53ResolverResolverRule (Maybe (Val Text)) -rrrrResolverEndpointId = lens _route53ResolverResolverRuleResolverEndpointId (\s a -> s { _route53ResolverResolverRuleResolverEndpointId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53resolver-resolverrule.html#cfn-route53resolver-resolverrule-ruletype -rrrrRuleType :: Lens' Route53ResolverResolverRule (Val Text) -rrrrRuleType = lens _route53ResolverResolverRuleRuleType (\s a -> s { _route53ResolverResolverRuleRuleType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53resolver-resolverrule.html#cfn-route53resolver-resolverrule-tags -rrrrTags :: Lens' Route53ResolverResolverRule (Maybe [Tag]) -rrrrTags = lens _route53ResolverResolverRuleTags (\s a -> s { _route53ResolverResolverRuleTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53resolver-resolverrule.html#cfn-route53resolver-resolverrule-targetips -rrrrTargetIps :: Lens' Route53ResolverResolverRule (Maybe [Route53ResolverResolverRuleTargetAddress]) -rrrrTargetIps = lens _route53ResolverResolverRuleTargetIps (\s a -> s { _route53ResolverResolverRuleTargetIps = a }) diff --git a/library-gen/Stratosphere/Resources/Route53ResolverResolverRuleAssociation.hs b/library-gen/Stratosphere/Resources/Route53ResolverResolverRuleAssociation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/Route53ResolverResolverRuleAssociation.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53resolver-resolverruleassociation.html - -module Stratosphere.Resources.Route53ResolverResolverRuleAssociation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for Route53ResolverResolverRuleAssociation. See --- 'route53ResolverResolverRuleAssociation' for a more convenient --- constructor. -data Route53ResolverResolverRuleAssociation = - Route53ResolverResolverRuleAssociation - { _route53ResolverResolverRuleAssociationName :: Maybe (Val Text) - , _route53ResolverResolverRuleAssociationResolverRuleId :: Val Text - , _route53ResolverResolverRuleAssociationVPCId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties Route53ResolverResolverRuleAssociation where - toResourceProperties Route53ResolverResolverRuleAssociation{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Route53Resolver::ResolverRuleAssociation" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Name",) . toJSON) _route53ResolverResolverRuleAssociationName - , (Just . ("ResolverRuleId",) . toJSON) _route53ResolverResolverRuleAssociationResolverRuleId - , (Just . ("VPCId",) . toJSON) _route53ResolverResolverRuleAssociationVPCId - ] - } - --- | Constructor for 'Route53ResolverResolverRuleAssociation' containing --- required fields as arguments. -route53ResolverResolverRuleAssociation - :: Val Text -- ^ 'rrrraResolverRuleId' - -> Val Text -- ^ 'rrrraVPCId' - -> Route53ResolverResolverRuleAssociation -route53ResolverResolverRuleAssociation resolverRuleIdarg vPCIdarg = - Route53ResolverResolverRuleAssociation - { _route53ResolverResolverRuleAssociationName = Nothing - , _route53ResolverResolverRuleAssociationResolverRuleId = resolverRuleIdarg - , _route53ResolverResolverRuleAssociationVPCId = vPCIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53resolver-resolverruleassociation.html#cfn-route53resolver-resolverruleassociation-name -rrrraName :: Lens' Route53ResolverResolverRuleAssociation (Maybe (Val Text)) -rrrraName = lens _route53ResolverResolverRuleAssociationName (\s a -> s { _route53ResolverResolverRuleAssociationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53resolver-resolverruleassociation.html#cfn-route53resolver-resolverruleassociation-resolverruleid -rrrraResolverRuleId :: Lens' Route53ResolverResolverRuleAssociation (Val Text) -rrrraResolverRuleId = lens _route53ResolverResolverRuleAssociationResolverRuleId (\s a -> s { _route53ResolverResolverRuleAssociationResolverRuleId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-route53resolver-resolverruleassociation.html#cfn-route53resolver-resolverruleassociation-vpcid -rrrraVPCId :: Lens' Route53ResolverResolverRuleAssociation (Val Text) -rrrraVPCId = lens _route53ResolverResolverRuleAssociationVPCId (\s a -> s { _route53ResolverResolverRuleAssociationVPCId = a }) diff --git a/library-gen/Stratosphere/Resources/S3AccessPoint.hs b/library-gen/Stratosphere/Resources/S3AccessPoint.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/S3AccessPoint.hs +++ /dev/null @@ -1,91 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-s3-accesspoint.html - -module Stratosphere.Resources.S3AccessPoint where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.S3AccessPointPublicAccessBlockConfiguration -import Stratosphere.ResourceProperties.S3AccessPointVpcConfiguration - --- | Full data type definition for S3AccessPoint. See 's3AccessPoint' for a --- more convenient constructor. -data S3AccessPoint = - S3AccessPoint - { _s3AccessPointBucket :: Val Text - , _s3AccessPointCreationDate :: Maybe (Val Text) - , _s3AccessPointName :: Maybe (Val Text) - , _s3AccessPointNetworkOrigin :: Maybe (Val Text) - , _s3AccessPointPolicy :: Maybe Object - , _s3AccessPointPolicyStatus :: Maybe Object - , _s3AccessPointPublicAccessBlockConfiguration :: Maybe S3AccessPointPublicAccessBlockConfiguration - , _s3AccessPointVpcConfiguration :: Maybe S3AccessPointVpcConfiguration - } deriving (Show, Eq) - -instance ToResourceProperties S3AccessPoint where - toResourceProperties S3AccessPoint{..} = - ResourceProperties - { resourcePropertiesType = "AWS::S3::AccessPoint" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Bucket",) . toJSON) _s3AccessPointBucket - , fmap (("CreationDate",) . toJSON) _s3AccessPointCreationDate - , fmap (("Name",) . toJSON) _s3AccessPointName - , fmap (("NetworkOrigin",) . toJSON) _s3AccessPointNetworkOrigin - , fmap (("Policy",) . toJSON) _s3AccessPointPolicy - , fmap (("PolicyStatus",) . toJSON) _s3AccessPointPolicyStatus - , fmap (("PublicAccessBlockConfiguration",) . toJSON) _s3AccessPointPublicAccessBlockConfiguration - , fmap (("VpcConfiguration",) . toJSON) _s3AccessPointVpcConfiguration - ] - } - --- | Constructor for 'S3AccessPoint' containing required fields as arguments. -s3AccessPoint - :: Val Text -- ^ 'sapBucket' - -> S3AccessPoint -s3AccessPoint bucketarg = - S3AccessPoint - { _s3AccessPointBucket = bucketarg - , _s3AccessPointCreationDate = Nothing - , _s3AccessPointName = Nothing - , _s3AccessPointNetworkOrigin = Nothing - , _s3AccessPointPolicy = Nothing - , _s3AccessPointPolicyStatus = Nothing - , _s3AccessPointPublicAccessBlockConfiguration = Nothing - , _s3AccessPointVpcConfiguration = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-s3-accesspoint.html#cfn-s3-accesspoint-bucket -sapBucket :: Lens' S3AccessPoint (Val Text) -sapBucket = lens _s3AccessPointBucket (\s a -> s { _s3AccessPointBucket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-s3-accesspoint.html#cfn-s3-accesspoint-creationdate -sapCreationDate :: Lens' S3AccessPoint (Maybe (Val Text)) -sapCreationDate = lens _s3AccessPointCreationDate (\s a -> s { _s3AccessPointCreationDate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-s3-accesspoint.html#cfn-s3-accesspoint-name -sapName :: Lens' S3AccessPoint (Maybe (Val Text)) -sapName = lens _s3AccessPointName (\s a -> s { _s3AccessPointName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-s3-accesspoint.html#cfn-s3-accesspoint-networkorigin -sapNetworkOrigin :: Lens' S3AccessPoint (Maybe (Val Text)) -sapNetworkOrigin = lens _s3AccessPointNetworkOrigin (\s a -> s { _s3AccessPointNetworkOrigin = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-s3-accesspoint.html#cfn-s3-accesspoint-policy -sapPolicy :: Lens' S3AccessPoint (Maybe Object) -sapPolicy = lens _s3AccessPointPolicy (\s a -> s { _s3AccessPointPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-s3-accesspoint.html#cfn-s3-accesspoint-policystatus -sapPolicyStatus :: Lens' S3AccessPoint (Maybe Object) -sapPolicyStatus = lens _s3AccessPointPolicyStatus (\s a -> s { _s3AccessPointPolicyStatus = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-s3-accesspoint.html#cfn-s3-accesspoint-publicaccessblockconfiguration -sapPublicAccessBlockConfiguration :: Lens' S3AccessPoint (Maybe S3AccessPointPublicAccessBlockConfiguration) -sapPublicAccessBlockConfiguration = lens _s3AccessPointPublicAccessBlockConfiguration (\s a -> s { _s3AccessPointPublicAccessBlockConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-s3-accesspoint.html#cfn-s3-accesspoint-vpcconfiguration -sapVpcConfiguration :: Lens' S3AccessPoint (Maybe S3AccessPointVpcConfiguration) -sapVpcConfiguration = lens _s3AccessPointVpcConfiguration (\s a -> s { _s3AccessPointVpcConfiguration = a }) diff --git a/library-gen/Stratosphere/Resources/S3Bucket.hs b/library-gen/Stratosphere/Resources/S3Bucket.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/S3Bucket.hs +++ /dev/null @@ -1,174 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html - -module Stratosphere.Resources.S3Bucket where - -import Stratosphere.ResourceImports -import Stratosphere.Types -import Stratosphere.ResourceProperties.S3BucketAccelerateConfiguration -import Stratosphere.ResourceProperties.S3BucketAnalyticsConfiguration -import Stratosphere.ResourceProperties.S3BucketBucketEncryption -import Stratosphere.ResourceProperties.S3BucketCorsConfiguration -import Stratosphere.ResourceProperties.S3BucketInventoryConfiguration -import Stratosphere.ResourceProperties.S3BucketLifecycleConfiguration -import Stratosphere.ResourceProperties.S3BucketLoggingConfiguration -import Stratosphere.ResourceProperties.S3BucketMetricsConfiguration -import Stratosphere.ResourceProperties.S3BucketNotificationConfiguration -import Stratosphere.ResourceProperties.S3BucketObjectLockConfiguration -import Stratosphere.ResourceProperties.S3BucketPublicAccessBlockConfiguration -import Stratosphere.ResourceProperties.S3BucketReplicationConfiguration -import Stratosphere.ResourceProperties.Tag -import Stratosphere.ResourceProperties.S3BucketVersioningConfiguration -import Stratosphere.ResourceProperties.S3BucketWebsiteConfiguration - --- | Full data type definition for S3Bucket. See 's3Bucket' for a more --- convenient constructor. -data S3Bucket = - S3Bucket - { _s3BucketAccelerateConfiguration :: Maybe S3BucketAccelerateConfiguration - , _s3BucketAccessControl :: Maybe (Val CannedACL) - , _s3BucketAnalyticsConfigurations :: Maybe [S3BucketAnalyticsConfiguration] - , _s3BucketBucketEncryption :: Maybe S3BucketBucketEncryption - , _s3BucketBucketName :: Maybe (Val Text) - , _s3BucketCorsConfiguration :: Maybe S3BucketCorsConfiguration - , _s3BucketInventoryConfigurations :: Maybe [S3BucketInventoryConfiguration] - , _s3BucketLifecycleConfiguration :: Maybe S3BucketLifecycleConfiguration - , _s3BucketLoggingConfiguration :: Maybe S3BucketLoggingConfiguration - , _s3BucketMetricsConfigurations :: Maybe [S3BucketMetricsConfiguration] - , _s3BucketNotificationConfiguration :: Maybe S3BucketNotificationConfiguration - , _s3BucketObjectLockConfiguration :: Maybe S3BucketObjectLockConfiguration - , _s3BucketObjectLockEnabled :: Maybe (Val Bool) - , _s3BucketPublicAccessBlockConfiguration :: Maybe S3BucketPublicAccessBlockConfiguration - , _s3BucketReplicationConfiguration :: Maybe S3BucketReplicationConfiguration - , _s3BucketTags :: Maybe [Tag] - , _s3BucketVersioningConfiguration :: Maybe S3BucketVersioningConfiguration - , _s3BucketWebsiteConfiguration :: Maybe S3BucketWebsiteConfiguration - } deriving (Show, Eq) - -instance ToResourceProperties S3Bucket where - toResourceProperties S3Bucket{..} = - ResourceProperties - { resourcePropertiesType = "AWS::S3::Bucket" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AccelerateConfiguration",) . toJSON) _s3BucketAccelerateConfiguration - , fmap (("AccessControl",) . toJSON) _s3BucketAccessControl - , fmap (("AnalyticsConfigurations",) . toJSON) _s3BucketAnalyticsConfigurations - , fmap (("BucketEncryption",) . toJSON) _s3BucketBucketEncryption - , fmap (("BucketName",) . toJSON) _s3BucketBucketName - , fmap (("CorsConfiguration",) . toJSON) _s3BucketCorsConfiguration - , fmap (("InventoryConfigurations",) . toJSON) _s3BucketInventoryConfigurations - , fmap (("LifecycleConfiguration",) . toJSON) _s3BucketLifecycleConfiguration - , fmap (("LoggingConfiguration",) . toJSON) _s3BucketLoggingConfiguration - , fmap (("MetricsConfigurations",) . toJSON) _s3BucketMetricsConfigurations - , fmap (("NotificationConfiguration",) . toJSON) _s3BucketNotificationConfiguration - , fmap (("ObjectLockConfiguration",) . toJSON) _s3BucketObjectLockConfiguration - , fmap (("ObjectLockEnabled",) . toJSON) _s3BucketObjectLockEnabled - , fmap (("PublicAccessBlockConfiguration",) . toJSON) _s3BucketPublicAccessBlockConfiguration - , fmap (("ReplicationConfiguration",) . toJSON) _s3BucketReplicationConfiguration - , fmap (("Tags",) . toJSON) _s3BucketTags - , fmap (("VersioningConfiguration",) . toJSON) _s3BucketVersioningConfiguration - , fmap (("WebsiteConfiguration",) . toJSON) _s3BucketWebsiteConfiguration - ] - } - --- | Constructor for 'S3Bucket' containing required fields as arguments. -s3Bucket - :: S3Bucket -s3Bucket = - S3Bucket - { _s3BucketAccelerateConfiguration = Nothing - , _s3BucketAccessControl = Nothing - , _s3BucketAnalyticsConfigurations = Nothing - , _s3BucketBucketEncryption = Nothing - , _s3BucketBucketName = Nothing - , _s3BucketCorsConfiguration = Nothing - , _s3BucketInventoryConfigurations = Nothing - , _s3BucketLifecycleConfiguration = Nothing - , _s3BucketLoggingConfiguration = Nothing - , _s3BucketMetricsConfigurations = Nothing - , _s3BucketNotificationConfiguration = Nothing - , _s3BucketObjectLockConfiguration = Nothing - , _s3BucketObjectLockEnabled = Nothing - , _s3BucketPublicAccessBlockConfiguration = Nothing - , _s3BucketReplicationConfiguration = Nothing - , _s3BucketTags = Nothing - , _s3BucketVersioningConfiguration = Nothing - , _s3BucketWebsiteConfiguration = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html#cfn-s3-bucket-accelerateconfiguration -sbAccelerateConfiguration :: Lens' S3Bucket (Maybe S3BucketAccelerateConfiguration) -sbAccelerateConfiguration = lens _s3BucketAccelerateConfiguration (\s a -> s { _s3BucketAccelerateConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html#cfn-s3-bucket-accesscontrol -sbAccessControl :: Lens' S3Bucket (Maybe (Val CannedACL)) -sbAccessControl = lens _s3BucketAccessControl (\s a -> s { _s3BucketAccessControl = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html#cfn-s3-bucket-analyticsconfigurations -sbAnalyticsConfigurations :: Lens' S3Bucket (Maybe [S3BucketAnalyticsConfiguration]) -sbAnalyticsConfigurations = lens _s3BucketAnalyticsConfigurations (\s a -> s { _s3BucketAnalyticsConfigurations = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html#cfn-s3-bucket-bucketencryption -sbBucketEncryption :: Lens' S3Bucket (Maybe S3BucketBucketEncryption) -sbBucketEncryption = lens _s3BucketBucketEncryption (\s a -> s { _s3BucketBucketEncryption = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html#cfn-s3-bucket-name -sbBucketName :: Lens' S3Bucket (Maybe (Val Text)) -sbBucketName = lens _s3BucketBucketName (\s a -> s { _s3BucketBucketName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html#cfn-s3-bucket-crossoriginconfig -sbCorsConfiguration :: Lens' S3Bucket (Maybe S3BucketCorsConfiguration) -sbCorsConfiguration = lens _s3BucketCorsConfiguration (\s a -> s { _s3BucketCorsConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html#cfn-s3-bucket-inventoryconfigurations -sbInventoryConfigurations :: Lens' S3Bucket (Maybe [S3BucketInventoryConfiguration]) -sbInventoryConfigurations = lens _s3BucketInventoryConfigurations (\s a -> s { _s3BucketInventoryConfigurations = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html#cfn-s3-bucket-lifecycleconfig -sbLifecycleConfiguration :: Lens' S3Bucket (Maybe S3BucketLifecycleConfiguration) -sbLifecycleConfiguration = lens _s3BucketLifecycleConfiguration (\s a -> s { _s3BucketLifecycleConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html#cfn-s3-bucket-loggingconfig -sbLoggingConfiguration :: Lens' S3Bucket (Maybe S3BucketLoggingConfiguration) -sbLoggingConfiguration = lens _s3BucketLoggingConfiguration (\s a -> s { _s3BucketLoggingConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html#cfn-s3-bucket-metricsconfigurations -sbMetricsConfigurations :: Lens' S3Bucket (Maybe [S3BucketMetricsConfiguration]) -sbMetricsConfigurations = lens _s3BucketMetricsConfigurations (\s a -> s { _s3BucketMetricsConfigurations = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html#cfn-s3-bucket-notification -sbNotificationConfiguration :: Lens' S3Bucket (Maybe S3BucketNotificationConfiguration) -sbNotificationConfiguration = lens _s3BucketNotificationConfiguration (\s a -> s { _s3BucketNotificationConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html#cfn-s3-bucket-objectlockconfiguration -sbObjectLockConfiguration :: Lens' S3Bucket (Maybe S3BucketObjectLockConfiguration) -sbObjectLockConfiguration = lens _s3BucketObjectLockConfiguration (\s a -> s { _s3BucketObjectLockConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html#cfn-s3-bucket-objectlockenabled -sbObjectLockEnabled :: Lens' S3Bucket (Maybe (Val Bool)) -sbObjectLockEnabled = lens _s3BucketObjectLockEnabled (\s a -> s { _s3BucketObjectLockEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html#cfn-s3-bucket-publicaccessblockconfiguration -sbPublicAccessBlockConfiguration :: Lens' S3Bucket (Maybe S3BucketPublicAccessBlockConfiguration) -sbPublicAccessBlockConfiguration = lens _s3BucketPublicAccessBlockConfiguration (\s a -> s { _s3BucketPublicAccessBlockConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html#cfn-s3-bucket-replicationconfiguration -sbReplicationConfiguration :: Lens' S3Bucket (Maybe S3BucketReplicationConfiguration) -sbReplicationConfiguration = lens _s3BucketReplicationConfiguration (\s a -> s { _s3BucketReplicationConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html#cfn-s3-bucket-tags -sbTags :: Lens' S3Bucket (Maybe [Tag]) -sbTags = lens _s3BucketTags (\s a -> s { _s3BucketTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html#cfn-s3-bucket-versioning -sbVersioningConfiguration :: Lens' S3Bucket (Maybe S3BucketVersioningConfiguration) -sbVersioningConfiguration = lens _s3BucketVersioningConfiguration (\s a -> s { _s3BucketVersioningConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html#cfn-s3-bucket-websiteconfiguration -sbWebsiteConfiguration :: Lens' S3Bucket (Maybe S3BucketWebsiteConfiguration) -sbWebsiteConfiguration = lens _s3BucketWebsiteConfiguration (\s a -> s { _s3BucketWebsiteConfiguration = a }) diff --git a/library-gen/Stratosphere/Resources/S3BucketPolicy.hs b/library-gen/Stratosphere/Resources/S3BucketPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/S3BucketPolicy.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-policy.html - -module Stratosphere.Resources.S3BucketPolicy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for S3BucketPolicy. See 's3BucketPolicy' for a --- more convenient constructor. -data S3BucketPolicy = - S3BucketPolicy - { _s3BucketPolicyBucket :: Val Text - , _s3BucketPolicyPolicyDocument :: Object - } deriving (Show, Eq) - -instance ToResourceProperties S3BucketPolicy where - toResourceProperties S3BucketPolicy{..} = - ResourceProperties - { resourcePropertiesType = "AWS::S3::BucketPolicy" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Bucket",) . toJSON) _s3BucketPolicyBucket - , (Just . ("PolicyDocument",) . toJSON) _s3BucketPolicyPolicyDocument - ] - } - --- | Constructor for 'S3BucketPolicy' containing required fields as arguments. -s3BucketPolicy - :: Val Text -- ^ 'sbpBucket' - -> Object -- ^ 'sbpPolicyDocument' - -> S3BucketPolicy -s3BucketPolicy bucketarg policyDocumentarg = - S3BucketPolicy - { _s3BucketPolicyBucket = bucketarg - , _s3BucketPolicyPolicyDocument = policyDocumentarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-policy.html#aws-properties-s3-policy-bucket -sbpBucket :: Lens' S3BucketPolicy (Val Text) -sbpBucket = lens _s3BucketPolicyBucket (\s a -> s { _s3BucketPolicyBucket = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-policy.html#aws-properties-s3-policy-policydocument -sbpPolicyDocument :: Lens' S3BucketPolicy Object -sbpPolicyDocument = lens _s3BucketPolicyPolicyDocument (\s a -> s { _s3BucketPolicyPolicyDocument = a }) diff --git a/library-gen/Stratosphere/Resources/SDBDomain.hs b/library-gen/Stratosphere/Resources/SDBDomain.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SDBDomain.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-simpledb.html - -module Stratosphere.Resources.SDBDomain where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SDBDomain. See 'sdbDomain' for a more --- convenient constructor. -data SDBDomain = - SDBDomain - { _sDBDomainDescription :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties SDBDomain where - toResourceProperties SDBDomain{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SDB::Domain" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _sDBDomainDescription - ] - } - --- | Constructor for 'SDBDomain' containing required fields as arguments. -sdbDomain - :: SDBDomain -sdbDomain = - SDBDomain - { _sDBDomainDescription = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-simpledb.html#cfn-sdb-domain-description -sdbdDescription :: Lens' SDBDomain (Maybe (Val Text)) -sdbdDescription = lens _sDBDomainDescription (\s a -> s { _sDBDomainDescription = a }) diff --git a/library-gen/Stratosphere/Resources/SESConfigurationSet.hs b/library-gen/Stratosphere/Resources/SESConfigurationSet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SESConfigurationSet.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ses-configurationset.html - -module Stratosphere.Resources.SESConfigurationSet where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SESConfigurationSet. See --- 'sesConfigurationSet' for a more convenient constructor. -data SESConfigurationSet = - SESConfigurationSet - { _sESConfigurationSetName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties SESConfigurationSet where - toResourceProperties SESConfigurationSet{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SES::ConfigurationSet" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Name",) . toJSON) _sESConfigurationSetName - ] - } - --- | Constructor for 'SESConfigurationSet' containing required fields as --- arguments. -sesConfigurationSet - :: SESConfigurationSet -sesConfigurationSet = - SESConfigurationSet - { _sESConfigurationSetName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ses-configurationset.html#cfn-ses-configurationset-name -sescsName :: Lens' SESConfigurationSet (Maybe (Val Text)) -sescsName = lens _sESConfigurationSetName (\s a -> s { _sESConfigurationSetName = a }) diff --git a/library-gen/Stratosphere/Resources/SESConfigurationSetEventDestination.hs b/library-gen/Stratosphere/Resources/SESConfigurationSetEventDestination.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SESConfigurationSetEventDestination.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ses-configurationseteventdestination.html - -module Stratosphere.Resources.SESConfigurationSetEventDestination where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SESConfigurationSetEventDestinationEventDestination - --- | Full data type definition for SESConfigurationSetEventDestination. See --- 'sesConfigurationSetEventDestination' for a more convenient constructor. -data SESConfigurationSetEventDestination = - SESConfigurationSetEventDestination - { _sESConfigurationSetEventDestinationConfigurationSetName :: Val Text - , _sESConfigurationSetEventDestinationEventDestination :: SESConfigurationSetEventDestinationEventDestination - } deriving (Show, Eq) - -instance ToResourceProperties SESConfigurationSetEventDestination where - toResourceProperties SESConfigurationSetEventDestination{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SES::ConfigurationSetEventDestination" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ConfigurationSetName",) . toJSON) _sESConfigurationSetEventDestinationConfigurationSetName - , (Just . ("EventDestination",) . toJSON) _sESConfigurationSetEventDestinationEventDestination - ] - } - --- | Constructor for 'SESConfigurationSetEventDestination' containing required --- fields as arguments. -sesConfigurationSetEventDestination - :: Val Text -- ^ 'sescsedConfigurationSetName' - -> SESConfigurationSetEventDestinationEventDestination -- ^ 'sescsedEventDestination' - -> SESConfigurationSetEventDestination -sesConfigurationSetEventDestination configurationSetNamearg eventDestinationarg = - SESConfigurationSetEventDestination - { _sESConfigurationSetEventDestinationConfigurationSetName = configurationSetNamearg - , _sESConfigurationSetEventDestinationEventDestination = eventDestinationarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ses-configurationseteventdestination.html#cfn-ses-configurationseteventdestination-configurationsetname -sescsedConfigurationSetName :: Lens' SESConfigurationSetEventDestination (Val Text) -sescsedConfigurationSetName = lens _sESConfigurationSetEventDestinationConfigurationSetName (\s a -> s { _sESConfigurationSetEventDestinationConfigurationSetName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ses-configurationseteventdestination.html#cfn-ses-configurationseteventdestination-eventdestination -sescsedEventDestination :: Lens' SESConfigurationSetEventDestination SESConfigurationSetEventDestinationEventDestination -sescsedEventDestination = lens _sESConfigurationSetEventDestinationEventDestination (\s a -> s { _sESConfigurationSetEventDestinationEventDestination = a }) diff --git a/library-gen/Stratosphere/Resources/SESReceiptFilter.hs b/library-gen/Stratosphere/Resources/SESReceiptFilter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SESReceiptFilter.hs +++ /dev/null @@ -1,42 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ses-receiptfilter.html - -module Stratosphere.Resources.SESReceiptFilter where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SESReceiptFilterFilter - --- | Full data type definition for SESReceiptFilter. See 'sesReceiptFilter' --- for a more convenient constructor. -data SESReceiptFilter = - SESReceiptFilter - { _sESReceiptFilterFilter :: SESReceiptFilterFilter - } deriving (Show, Eq) - -instance ToResourceProperties SESReceiptFilter where - toResourceProperties SESReceiptFilter{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SES::ReceiptFilter" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Filter",) . toJSON) _sESReceiptFilterFilter - ] - } - --- | Constructor for 'SESReceiptFilter' containing required fields as --- arguments. -sesReceiptFilter - :: SESReceiptFilterFilter -- ^ 'sesrfFilter' - -> SESReceiptFilter -sesReceiptFilter filterarg = - SESReceiptFilter - { _sESReceiptFilterFilter = filterarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ses-receiptfilter.html#cfn-ses-receiptfilter-filter -sesrfFilter :: Lens' SESReceiptFilter SESReceiptFilterFilter -sesrfFilter = lens _sESReceiptFilterFilter (\s a -> s { _sESReceiptFilterFilter = a }) diff --git a/library-gen/Stratosphere/Resources/SESReceiptRule.hs b/library-gen/Stratosphere/Resources/SESReceiptRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SESReceiptRule.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ses-receiptrule.html - -module Stratosphere.Resources.SESReceiptRule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SESReceiptRuleRule - --- | Full data type definition for SESReceiptRule. See 'sesReceiptRule' for a --- more convenient constructor. -data SESReceiptRule = - SESReceiptRule - { _sESReceiptRuleAfter :: Maybe (Val Text) - , _sESReceiptRuleRule :: SESReceiptRuleRule - , _sESReceiptRuleRuleSetName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties SESReceiptRule where - toResourceProperties SESReceiptRule{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SES::ReceiptRule" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("After",) . toJSON) _sESReceiptRuleAfter - , (Just . ("Rule",) . toJSON) _sESReceiptRuleRule - , (Just . ("RuleSetName",) . toJSON) _sESReceiptRuleRuleSetName - ] - } - --- | Constructor for 'SESReceiptRule' containing required fields as arguments. -sesReceiptRule - :: SESReceiptRuleRule -- ^ 'sesrrRule' - -> Val Text -- ^ 'sesrrRuleSetName' - -> SESReceiptRule -sesReceiptRule rulearg ruleSetNamearg = - SESReceiptRule - { _sESReceiptRuleAfter = Nothing - , _sESReceiptRuleRule = rulearg - , _sESReceiptRuleRuleSetName = ruleSetNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ses-receiptrule.html#cfn-ses-receiptrule-after -sesrrAfter :: Lens' SESReceiptRule (Maybe (Val Text)) -sesrrAfter = lens _sESReceiptRuleAfter (\s a -> s { _sESReceiptRuleAfter = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ses-receiptrule.html#cfn-ses-receiptrule-rule -sesrrRule :: Lens' SESReceiptRule SESReceiptRuleRule -sesrrRule = lens _sESReceiptRuleRule (\s a -> s { _sESReceiptRuleRule = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ses-receiptrule.html#cfn-ses-receiptrule-rulesetname -sesrrRuleSetName :: Lens' SESReceiptRule (Val Text) -sesrrRuleSetName = lens _sESReceiptRuleRuleSetName (\s a -> s { _sESReceiptRuleRuleSetName = a }) diff --git a/library-gen/Stratosphere/Resources/SESReceiptRuleSet.hs b/library-gen/Stratosphere/Resources/SESReceiptRuleSet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SESReceiptRuleSet.hs +++ /dev/null @@ -1,41 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ses-receiptruleset.html - -module Stratosphere.Resources.SESReceiptRuleSet where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SESReceiptRuleSet. See 'sesReceiptRuleSet' --- for a more convenient constructor. -data SESReceiptRuleSet = - SESReceiptRuleSet - { _sESReceiptRuleSetRuleSetName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties SESReceiptRuleSet where - toResourceProperties SESReceiptRuleSet{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SES::ReceiptRuleSet" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("RuleSetName",) . toJSON) _sESReceiptRuleSetRuleSetName - ] - } - --- | Constructor for 'SESReceiptRuleSet' containing required fields as --- arguments. -sesReceiptRuleSet - :: SESReceiptRuleSet -sesReceiptRuleSet = - SESReceiptRuleSet - { _sESReceiptRuleSetRuleSetName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ses-receiptruleset.html#cfn-ses-receiptruleset-rulesetname -sesrrsRuleSetName :: Lens' SESReceiptRuleSet (Maybe (Val Text)) -sesrrsRuleSetName = lens _sESReceiptRuleSetRuleSetName (\s a -> s { _sESReceiptRuleSetRuleSetName = a }) diff --git a/library-gen/Stratosphere/Resources/SESTemplate.hs b/library-gen/Stratosphere/Resources/SESTemplate.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SESTemplate.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ses-template.html - -module Stratosphere.Resources.SESTemplate where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SESTemplateTemplate - --- | Full data type definition for SESTemplate. See 'sesTemplate' for a more --- convenient constructor. -data SESTemplate = - SESTemplate - { _sESTemplateTemplate :: Maybe SESTemplateTemplate - } deriving (Show, Eq) - -instance ToResourceProperties SESTemplate where - toResourceProperties SESTemplate{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SES::Template" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Template",) . toJSON) _sESTemplateTemplate - ] - } - --- | Constructor for 'SESTemplate' containing required fields as arguments. -sesTemplate - :: SESTemplate -sesTemplate = - SESTemplate - { _sESTemplateTemplate = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ses-template.html#cfn-ses-template-template -sestTemplate :: Lens' SESTemplate (Maybe SESTemplateTemplate) -sestTemplate = lens _sESTemplateTemplate (\s a -> s { _sESTemplateTemplate = a }) diff --git a/library-gen/Stratosphere/Resources/SNSSubscription.hs b/library-gen/Stratosphere/Resources/SNSSubscription.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SNSSubscription.hs +++ /dev/null @@ -1,92 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sns-subscription.html - -module Stratosphere.Resources.SNSSubscription where - -import Stratosphere.ResourceImports -import Stratosphere.Types - --- | Full data type definition for SNSSubscription. See 'snsSubscription' for --- a more convenient constructor. -data SNSSubscription = - SNSSubscription - { _sNSSubscriptionDeliveryPolicy :: Maybe Object - , _sNSSubscriptionEndpoint :: Maybe (Val Text) - , _sNSSubscriptionFilterPolicy :: Maybe Object - , _sNSSubscriptionProtocol :: Val SNSProtocol - , _sNSSubscriptionRawMessageDelivery :: Maybe (Val Bool) - , _sNSSubscriptionRedrivePolicy :: Maybe Object - , _sNSSubscriptionRegion :: Maybe (Val Text) - , _sNSSubscriptionTopicArn :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties SNSSubscription where - toResourceProperties SNSSubscription{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SNS::Subscription" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("DeliveryPolicy",) . toJSON) _sNSSubscriptionDeliveryPolicy - , fmap (("Endpoint",) . toJSON) _sNSSubscriptionEndpoint - , fmap (("FilterPolicy",) . toJSON) _sNSSubscriptionFilterPolicy - , (Just . ("Protocol",) . toJSON) _sNSSubscriptionProtocol - , fmap (("RawMessageDelivery",) . toJSON) _sNSSubscriptionRawMessageDelivery - , fmap (("RedrivePolicy",) . toJSON) _sNSSubscriptionRedrivePolicy - , fmap (("Region",) . toJSON) _sNSSubscriptionRegion - , (Just . ("TopicArn",) . toJSON) _sNSSubscriptionTopicArn - ] - } - --- | Constructor for 'SNSSubscription' containing required fields as --- arguments. -snsSubscription - :: Val SNSProtocol -- ^ 'snssProtocol' - -> Val Text -- ^ 'snssTopicArn' - -> SNSSubscription -snsSubscription protocolarg topicArnarg = - SNSSubscription - { _sNSSubscriptionDeliveryPolicy = Nothing - , _sNSSubscriptionEndpoint = Nothing - , _sNSSubscriptionFilterPolicy = Nothing - , _sNSSubscriptionProtocol = protocolarg - , _sNSSubscriptionRawMessageDelivery = Nothing - , _sNSSubscriptionRedrivePolicy = Nothing - , _sNSSubscriptionRegion = Nothing - , _sNSSubscriptionTopicArn = topicArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sns-subscription.html#cfn-sns-subscription-deliverypolicy -snssDeliveryPolicy :: Lens' SNSSubscription (Maybe Object) -snssDeliveryPolicy = lens _sNSSubscriptionDeliveryPolicy (\s a -> s { _sNSSubscriptionDeliveryPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sns-subscription.html#cfn-sns-endpoint -snssEndpoint :: Lens' SNSSubscription (Maybe (Val Text)) -snssEndpoint = lens _sNSSubscriptionEndpoint (\s a -> s { _sNSSubscriptionEndpoint = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sns-subscription.html#cfn-sns-subscription-filterpolicy -snssFilterPolicy :: Lens' SNSSubscription (Maybe Object) -snssFilterPolicy = lens _sNSSubscriptionFilterPolicy (\s a -> s { _sNSSubscriptionFilterPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sns-subscription.html#cfn-sns-protocol -snssProtocol :: Lens' SNSSubscription (Val SNSProtocol) -snssProtocol = lens _sNSSubscriptionProtocol (\s a -> s { _sNSSubscriptionProtocol = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sns-subscription.html#cfn-sns-subscription-rawmessagedelivery -snssRawMessageDelivery :: Lens' SNSSubscription (Maybe (Val Bool)) -snssRawMessageDelivery = lens _sNSSubscriptionRawMessageDelivery (\s a -> s { _sNSSubscriptionRawMessageDelivery = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sns-subscription.html#cfn-sns-subscription-redrivepolicy -snssRedrivePolicy :: Lens' SNSSubscription (Maybe Object) -snssRedrivePolicy = lens _sNSSubscriptionRedrivePolicy (\s a -> s { _sNSSubscriptionRedrivePolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sns-subscription.html#cfn-sns-subscription-region -snssRegion :: Lens' SNSSubscription (Maybe (Val Text)) -snssRegion = lens _sNSSubscriptionRegion (\s a -> s { _sNSSubscriptionRegion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sns-subscription.html#topicarn -snssTopicArn :: Lens' SNSSubscription (Val Text) -snssTopicArn = lens _sNSSubscriptionTopicArn (\s a -> s { _sNSSubscriptionTopicArn = a }) diff --git a/library-gen/Stratosphere/Resources/SNSTopic.hs b/library-gen/Stratosphere/Resources/SNSTopic.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SNSTopic.hs +++ /dev/null @@ -1,76 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sns-topic.html - -module Stratosphere.Resources.SNSTopic where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SNSTopicSubscription -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for SNSTopic. See 'snsTopic' for a more --- convenient constructor. -data SNSTopic = - SNSTopic - { _sNSTopicContentBasedDeduplication :: Maybe (Val Bool) - , _sNSTopicDisplayName :: Maybe (Val Text) - , _sNSTopicKmsMasterKeyId :: Maybe (Val Text) - , _sNSTopicSubscription :: Maybe [SNSTopicSubscription] - , _sNSTopicTags :: Maybe [Tag] - , _sNSTopicTopicName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties SNSTopic where - toResourceProperties SNSTopic{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SNS::Topic" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ContentBasedDeduplication",) . toJSON) _sNSTopicContentBasedDeduplication - , fmap (("DisplayName",) . toJSON) _sNSTopicDisplayName - , fmap (("KmsMasterKeyId",) . toJSON) _sNSTopicKmsMasterKeyId - , fmap (("Subscription",) . toJSON) _sNSTopicSubscription - , fmap (("Tags",) . toJSON) _sNSTopicTags - , fmap (("TopicName",) . toJSON) _sNSTopicTopicName - ] - } - --- | Constructor for 'SNSTopic' containing required fields as arguments. -snsTopic - :: SNSTopic -snsTopic = - SNSTopic - { _sNSTopicContentBasedDeduplication = Nothing - , _sNSTopicDisplayName = 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-kmsmasterkeyid -snstKmsMasterKeyId :: Lens' SNSTopic (Maybe (Val Text)) -snstKmsMasterKeyId = lens _sNSTopicKmsMasterKeyId (\s a -> s { _sNSTopicKmsMasterKeyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sns-topic.html#cfn-sns-topic-subscription -snstSubscription :: Lens' SNSTopic (Maybe [SNSTopicSubscription]) -snstSubscription = lens _sNSTopicSubscription (\s a -> s { _sNSTopicSubscription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sns-topic.html#cfn-sns-topic-tags -snstTags :: Lens' SNSTopic (Maybe [Tag]) -snstTags = lens _sNSTopicTags (\s a -> s { _sNSTopicTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sns-topic.html#cfn-sns-topic-topicname -snstTopicName :: Lens' SNSTopic (Maybe (Val Text)) -snstTopicName = lens _sNSTopicTopicName (\s a -> s { _sNSTopicTopicName = a }) diff --git a/library-gen/Stratosphere/Resources/SNSTopicPolicy.hs b/library-gen/Stratosphere/Resources/SNSTopicPolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SNSTopicPolicy.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sns-policy.html - -module Stratosphere.Resources.SNSTopicPolicy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SNSTopicPolicy. See 'snsTopicPolicy' for a --- more convenient constructor. -data SNSTopicPolicy = - SNSTopicPolicy - { _sNSTopicPolicyPolicyDocument :: Object - , _sNSTopicPolicyTopics :: ValList Text - } deriving (Show, Eq) - -instance ToResourceProperties SNSTopicPolicy where - toResourceProperties SNSTopicPolicy{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SNS::TopicPolicy" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("PolicyDocument",) . toJSON) _sNSTopicPolicyPolicyDocument - , (Just . ("Topics",) . toJSON) _sNSTopicPolicyTopics - ] - } - --- | Constructor for 'SNSTopicPolicy' containing required fields as arguments. -snsTopicPolicy - :: Object -- ^ 'snstpPolicyDocument' - -> ValList Text -- ^ 'snstpTopics' - -> SNSTopicPolicy -snsTopicPolicy policyDocumentarg topicsarg = - SNSTopicPolicy - { _sNSTopicPolicyPolicyDocument = policyDocumentarg - , _sNSTopicPolicyTopics = topicsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sns-policy.html#cfn-sns-topicpolicy-policydocument -snstpPolicyDocument :: Lens' SNSTopicPolicy Object -snstpPolicyDocument = lens _sNSTopicPolicyPolicyDocument (\s a -> s { _sNSTopicPolicyPolicyDocument = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sns-policy.html#cfn-sns-topicpolicy-topics -snstpTopics :: Lens' SNSTopicPolicy (ValList Text) -snstpTopics = lens _sNSTopicPolicyTopics (\s a -> s { _sNSTopicPolicyTopics = a }) diff --git a/library-gen/Stratosphere/Resources/SQSQueue.hs b/library-gen/Stratosphere/Resources/SQSQueue.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SQSQueue.hs +++ /dev/null @@ -1,117 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sqs-queues.html - -module Stratosphere.Resources.SQSQueue where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for SQSQueue. See 'sqsQueue' for a more --- convenient constructor. -data SQSQueue = - SQSQueue - { _sQSQueueContentBasedDeduplication :: Maybe (Val Bool) - , _sQSQueueDelaySeconds :: Maybe (Val Integer) - , _sQSQueueFifoQueue :: Maybe (Val Bool) - , _sQSQueueKmsDataKeyReusePeriodSeconds :: Maybe (Val Integer) - , _sQSQueueKmsMasterKeyId :: Maybe (Val Text) - , _sQSQueueMaximumMessageSize :: Maybe (Val Integer) - , _sQSQueueMessageRetentionPeriod :: Maybe (Val Integer) - , _sQSQueueQueueName :: Maybe (Val Text) - , _sQSQueueReceiveMessageWaitTimeSeconds :: Maybe (Val Integer) - , _sQSQueueRedrivePolicy :: Maybe Object - , _sQSQueueTags :: Maybe [Tag] - , _sQSQueueVisibilityTimeout :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToResourceProperties SQSQueue where - toResourceProperties SQSQueue{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SQS::Queue" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ContentBasedDeduplication",) . toJSON) _sQSQueueContentBasedDeduplication - , fmap (("DelaySeconds",) . toJSON) _sQSQueueDelaySeconds - , fmap (("FifoQueue",) . toJSON) _sQSQueueFifoQueue - , fmap (("KmsDataKeyReusePeriodSeconds",) . toJSON) _sQSQueueKmsDataKeyReusePeriodSeconds - , fmap (("KmsMasterKeyId",) . toJSON) _sQSQueueKmsMasterKeyId - , fmap (("MaximumMessageSize",) . toJSON) _sQSQueueMaximumMessageSize - , fmap (("MessageRetentionPeriod",) . toJSON) _sQSQueueMessageRetentionPeriod - , fmap (("QueueName",) . toJSON) _sQSQueueQueueName - , fmap (("ReceiveMessageWaitTimeSeconds",) . toJSON) _sQSQueueReceiveMessageWaitTimeSeconds - , fmap (("RedrivePolicy",) . toJSON) _sQSQueueRedrivePolicy - , fmap (("Tags",) . toJSON) _sQSQueueTags - , fmap (("VisibilityTimeout",) . toJSON) _sQSQueueVisibilityTimeout - ] - } - --- | Constructor for 'SQSQueue' containing required fields as arguments. -sqsQueue - :: SQSQueue -sqsQueue = - SQSQueue - { _sQSQueueContentBasedDeduplication = Nothing - , _sQSQueueDelaySeconds = Nothing - , _sQSQueueFifoQueue = Nothing - , _sQSQueueKmsDataKeyReusePeriodSeconds = Nothing - , _sQSQueueKmsMasterKeyId = Nothing - , _sQSQueueMaximumMessageSize = Nothing - , _sQSQueueMessageRetentionPeriod = Nothing - , _sQSQueueQueueName = Nothing - , _sQSQueueReceiveMessageWaitTimeSeconds = Nothing - , _sQSQueueRedrivePolicy = Nothing - , _sQSQueueTags = Nothing - , _sQSQueueVisibilityTimeout = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sqs-queues.html#aws-sqs-queue-contentbaseddeduplication -sqsqContentBasedDeduplication :: Lens' SQSQueue (Maybe (Val Bool)) -sqsqContentBasedDeduplication = lens _sQSQueueContentBasedDeduplication (\s a -> s { _sQSQueueContentBasedDeduplication = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sqs-queues.html#aws-sqs-queue-delayseconds -sqsqDelaySeconds :: Lens' SQSQueue (Maybe (Val Integer)) -sqsqDelaySeconds = lens _sQSQueueDelaySeconds (\s a -> s { _sQSQueueDelaySeconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sqs-queues.html#aws-sqs-queue-fifoqueue -sqsqFifoQueue :: Lens' SQSQueue (Maybe (Val Bool)) -sqsqFifoQueue = lens _sQSQueueFifoQueue (\s a -> s { _sQSQueueFifoQueue = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sqs-queues.html#aws-sqs-queue-kmsdatakeyreuseperiodseconds -sqsqKmsDataKeyReusePeriodSeconds :: Lens' SQSQueue (Maybe (Val Integer)) -sqsqKmsDataKeyReusePeriodSeconds = lens _sQSQueueKmsDataKeyReusePeriodSeconds (\s a -> s { _sQSQueueKmsDataKeyReusePeriodSeconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sqs-queues.html#aws-sqs-queue-kmsmasterkeyid -sqsqKmsMasterKeyId :: Lens' SQSQueue (Maybe (Val Text)) -sqsqKmsMasterKeyId = lens _sQSQueueKmsMasterKeyId (\s a -> s { _sQSQueueKmsMasterKeyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sqs-queues.html#aws-sqs-queue-maxmesgsize -sqsqMaximumMessageSize :: Lens' SQSQueue (Maybe (Val Integer)) -sqsqMaximumMessageSize = lens _sQSQueueMaximumMessageSize (\s a -> s { _sQSQueueMaximumMessageSize = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sqs-queues.html#aws-sqs-queue-msgretentionperiod -sqsqMessageRetentionPeriod :: Lens' SQSQueue (Maybe (Val Integer)) -sqsqMessageRetentionPeriod = lens _sQSQueueMessageRetentionPeriod (\s a -> s { _sQSQueueMessageRetentionPeriod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sqs-queues.html#aws-sqs-queue-name -sqsqQueueName :: Lens' SQSQueue (Maybe (Val Text)) -sqsqQueueName = lens _sQSQueueQueueName (\s a -> s { _sQSQueueQueueName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sqs-queues.html#aws-sqs-queue-receivemsgwaittime -sqsqReceiveMessageWaitTimeSeconds :: Lens' SQSQueue (Maybe (Val Integer)) -sqsqReceiveMessageWaitTimeSeconds = lens _sQSQueueReceiveMessageWaitTimeSeconds (\s a -> s { _sQSQueueReceiveMessageWaitTimeSeconds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sqs-queues.html#aws-sqs-queue-redrive -sqsqRedrivePolicy :: Lens' SQSQueue (Maybe Object) -sqsqRedrivePolicy = lens _sQSQueueRedrivePolicy (\s a -> s { _sQSQueueRedrivePolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sqs-queues.html#cfn-sqs-queue-tags -sqsqTags :: Lens' SQSQueue (Maybe [Tag]) -sqsqTags = lens _sQSQueueTags (\s a -> s { _sQSQueueTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sqs-queues.html#aws-sqs-queue-visiblitytimeout -sqsqVisibilityTimeout :: Lens' SQSQueue (Maybe (Val Integer)) -sqsqVisibilityTimeout = lens _sQSQueueVisibilityTimeout (\s a -> s { _sQSQueueVisibilityTimeout = a }) diff --git a/library-gen/Stratosphere/Resources/SQSQueuePolicy.hs b/library-gen/Stratosphere/Resources/SQSQueuePolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SQSQueuePolicy.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sqs-policy.html - -module Stratosphere.Resources.SQSQueuePolicy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SQSQueuePolicy. See 'sqsQueuePolicy' for a --- more convenient constructor. -data SQSQueuePolicy = - SQSQueuePolicy - { _sQSQueuePolicyPolicyDocument :: Object - , _sQSQueuePolicyQueues :: ValList Text - } deriving (Show, Eq) - -instance ToResourceProperties SQSQueuePolicy where - toResourceProperties SQSQueuePolicy{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SQS::QueuePolicy" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("PolicyDocument",) . toJSON) _sQSQueuePolicyPolicyDocument - , (Just . ("Queues",) . toJSON) _sQSQueuePolicyQueues - ] - } - --- | Constructor for 'SQSQueuePolicy' containing required fields as arguments. -sqsQueuePolicy - :: Object -- ^ 'sqsqpPolicyDocument' - -> ValList Text -- ^ 'sqsqpQueues' - -> SQSQueuePolicy -sqsQueuePolicy policyDocumentarg queuesarg = - SQSQueuePolicy - { _sQSQueuePolicyPolicyDocument = policyDocumentarg - , _sQSQueuePolicyQueues = queuesarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sqs-policy.html#cfn-sqs-queuepolicy-policydoc -sqsqpPolicyDocument :: Lens' SQSQueuePolicy Object -sqsqpPolicyDocument = lens _sQSQueuePolicyPolicyDocument (\s a -> s { _sQSQueuePolicyPolicyDocument = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sqs-policy.html#cfn-sqs-queuepolicy-queues -sqsqpQueues :: Lens' SQSQueuePolicy (ValList Text) -sqsqpQueues = lens _sQSQueuePolicyQueues (\s a -> s { _sQSQueuePolicyQueues = a }) diff --git a/library-gen/Stratosphere/Resources/SSMAssociation.hs b/library-gen/Stratosphere/Resources/SSMAssociation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SSMAssociation.hs +++ /dev/null @@ -1,141 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-association.html - -module Stratosphere.Resources.SSMAssociation where - -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 --- more convenient constructor. -data SSMAssociation = - SSMAssociation - { _sSMAssociationApplyOnlyAtCronInterval :: Maybe (Val Bool) - , _sSMAssociationAssociationName :: Maybe (Val Text) - , _sSMAssociationAutomationTargetParameterName :: Maybe (Val Text) - , _sSMAssociationComplianceSeverity :: Maybe (Val Text) - , _sSMAssociationDocumentVersion :: Maybe (Val Text) - , _sSMAssociationInstanceId :: Maybe (Val Text) - , _sSMAssociationMaxConcurrency :: Maybe (Val Text) - , _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] - , _sSMAssociationWaitForSuccessTimeoutSeconds :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToResourceProperties SSMAssociation where - toResourceProperties SSMAssociation{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SSM::Association" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ApplyOnlyAtCronInterval",) . toJSON) _sSMAssociationApplyOnlyAtCronInterval - , fmap (("AssociationName",) . toJSON) _sSMAssociationAssociationName - , fmap (("AutomationTargetParameterName",) . toJSON) _sSMAssociationAutomationTargetParameterName - , fmap (("ComplianceSeverity",) . toJSON) _sSMAssociationComplianceSeverity - , fmap (("DocumentVersion",) . toJSON) _sSMAssociationDocumentVersion - , fmap (("InstanceId",) . toJSON) _sSMAssociationInstanceId - , fmap (("MaxConcurrency",) . toJSON) _sSMAssociationMaxConcurrency - , 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 - , fmap (("WaitForSuccessTimeoutSeconds",) . toJSON) _sSMAssociationWaitForSuccessTimeoutSeconds - ] - } - --- | Constructor for 'SSMAssociation' containing required fields as arguments. -ssmAssociation - :: Val Text -- ^ 'ssmaName' - -> SSMAssociation -ssmAssociation namearg = - SSMAssociation - { _sSMAssociationApplyOnlyAtCronInterval = Nothing - , _sSMAssociationAssociationName = Nothing - , _sSMAssociationAutomationTargetParameterName = Nothing - , _sSMAssociationComplianceSeverity = Nothing - , _sSMAssociationDocumentVersion = Nothing - , _sSMAssociationInstanceId = Nothing - , _sSMAssociationMaxConcurrency = Nothing - , _sSMAssociationMaxErrors = Nothing - , _sSMAssociationName = namearg - , _sSMAssociationOutputLocation = Nothing - , _sSMAssociationParameters = Nothing - , _sSMAssociationScheduleExpression = Nothing - , _sSMAssociationSyncCompliance = Nothing - , _sSMAssociationTargets = Nothing - , _sSMAssociationWaitForSuccessTimeoutSeconds = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-association.html#cfn-ssm-association-applyonlyatcroninterval -ssmaApplyOnlyAtCronInterval :: Lens' SSMAssociation (Maybe (Val Bool)) -ssmaApplyOnlyAtCronInterval = lens _sSMAssociationApplyOnlyAtCronInterval (\s a -> s { _sSMAssociationApplyOnlyAtCronInterval = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-association.html#cfn-ssm-association-associationname -ssmaAssociationName :: Lens' SSMAssociation (Maybe (Val Text)) -ssmaAssociationName = lens _sSMAssociationAssociationName (\s a -> s { _sSMAssociationAssociationName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-association.html#cfn-ssm-association-automationtargetparametername -ssmaAutomationTargetParameterName :: Lens' SSMAssociation (Maybe (Val Text)) -ssmaAutomationTargetParameterName = lens _sSMAssociationAutomationTargetParameterName (\s a -> s { _sSMAssociationAutomationTargetParameterName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-association.html#cfn-ssm-association-complianceseverity -ssmaComplianceSeverity :: Lens' SSMAssociation (Maybe (Val Text)) -ssmaComplianceSeverity = lens _sSMAssociationComplianceSeverity (\s a -> s { _sSMAssociationComplianceSeverity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-association.html#cfn-ssm-association-documentversion -ssmaDocumentVersion :: Lens' SSMAssociation (Maybe (Val Text)) -ssmaDocumentVersion = lens _sSMAssociationDocumentVersion (\s a -> s { _sSMAssociationDocumentVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-association.html#cfn-ssm-association-instanceid -ssmaInstanceId :: Lens' SSMAssociation (Maybe (Val Text)) -ssmaInstanceId = lens _sSMAssociationInstanceId (\s a -> s { _sSMAssociationInstanceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-association.html#cfn-ssm-association-maxconcurrency -ssmaMaxConcurrency :: Lens' SSMAssociation (Maybe (Val Text)) -ssmaMaxConcurrency = lens _sSMAssociationMaxConcurrency (\s a -> s { _sSMAssociationMaxConcurrency = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-association.html#cfn-ssm-association-maxerrors -ssmaMaxErrors :: Lens' SSMAssociation (Maybe (Val Text)) -ssmaMaxErrors = lens _sSMAssociationMaxErrors (\s a -> s { _sSMAssociationMaxErrors = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-association.html#cfn-ssm-association-name -ssmaName :: Lens' SSMAssociation (Val Text) -ssmaName = lens _sSMAssociationName (\s a -> s { _sSMAssociationName = a }) - --- | 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)) -ssmaScheduleExpression = lens _sSMAssociationScheduleExpression (\s a -> s { _sSMAssociationScheduleExpression = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-association.html#cfn-ssm-association-synccompliance -ssmaSyncCompliance :: Lens' SSMAssociation (Maybe (Val Text)) -ssmaSyncCompliance = lens _sSMAssociationSyncCompliance (\s a -> s { _sSMAssociationSyncCompliance = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-association.html#cfn-ssm-association-targets -ssmaTargets :: Lens' SSMAssociation (Maybe [SSMAssociationTarget]) -ssmaTargets = lens _sSMAssociationTargets (\s a -> s { _sSMAssociationTargets = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-association.html#cfn-ssm-association-waitforsuccesstimeoutseconds -ssmaWaitForSuccessTimeoutSeconds :: Lens' SSMAssociation (Maybe (Val Integer)) -ssmaWaitForSuccessTimeoutSeconds = lens _sSMAssociationWaitForSuccessTimeoutSeconds (\s a -> s { _sSMAssociationWaitForSuccessTimeoutSeconds = a }) diff --git a/library-gen/Stratosphere/Resources/SSMDocument.hs b/library-gen/Stratosphere/Resources/SSMDocument.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SSMDocument.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-document.html - -module Stratosphere.Resources.SSMDocument where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for SSMDocument. See 'ssmDocument' for a more --- convenient constructor. -data SSMDocument = - SSMDocument - { _sSMDocumentContent :: Object - , _sSMDocumentDocumentType :: Maybe (Val Text) - , _sSMDocumentName :: Maybe (Val Text) - , _sSMDocumentTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties SSMDocument where - toResourceProperties SSMDocument{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SSM::Document" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Content",) . toJSON) _sSMDocumentContent - , fmap (("DocumentType",) . toJSON) _sSMDocumentDocumentType - , fmap (("Name",) . toJSON) _sSMDocumentName - , fmap (("Tags",) . toJSON) _sSMDocumentTags - ] - } - --- | Constructor for 'SSMDocument' containing required fields as arguments. -ssmDocument - :: Object -- ^ 'ssmdContent' - -> SSMDocument -ssmDocument contentarg = - SSMDocument - { _sSMDocumentContent = contentarg - , _sSMDocumentDocumentType = Nothing - , _sSMDocumentName = Nothing - , _sSMDocumentTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-document.html#cfn-ssm-document-content -ssmdContent :: Lens' SSMDocument Object -ssmdContent = lens _sSMDocumentContent (\s a -> s { _sSMDocumentContent = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-document.html#cfn-ssm-document-documenttype -ssmdDocumentType :: Lens' SSMDocument (Maybe (Val Text)) -ssmdDocumentType = lens _sSMDocumentDocumentType (\s a -> s { _sSMDocumentDocumentType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-document.html#cfn-ssm-document-name -ssmdName :: Lens' SSMDocument (Maybe (Val Text)) -ssmdName = lens _sSMDocumentName (\s a -> s { _sSMDocumentName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-document.html#cfn-ssm-document-tags -ssmdTags :: Lens' SSMDocument (Maybe [Tag]) -ssmdTags = lens _sSMDocumentTags (\s a -> s { _sSMDocumentTags = a }) diff --git a/library-gen/Stratosphere/Resources/SSMMaintenanceWindow.hs b/library-gen/Stratosphere/Resources/SSMMaintenanceWindow.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SSMMaintenanceWindow.hs +++ /dev/null @@ -1,116 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindow.html - -module Stratosphere.Resources.SSMMaintenanceWindow where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for SSMMaintenanceWindow. See --- 'ssmMaintenanceWindow' for a more convenient constructor. -data SSMMaintenanceWindow = - SSMMaintenanceWindow - { _sSMMaintenanceWindowAllowUnassociatedTargets :: Val Bool - , _sSMMaintenanceWindowCutoff :: Val Integer - , _sSMMaintenanceWindowDescription :: Maybe (Val Text) - , _sSMMaintenanceWindowDuration :: Val Integer - , _sSMMaintenanceWindowEndDate :: Maybe (Val Text) - , _sSMMaintenanceWindowName :: Val Text - , _sSMMaintenanceWindowSchedule :: Val Text - , _sSMMaintenanceWindowScheduleOffset :: Maybe (Val Integer) - , _sSMMaintenanceWindowScheduleTimezone :: Maybe (Val Text) - , _sSMMaintenanceWindowStartDate :: Maybe (Val Text) - , _sSMMaintenanceWindowTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties SSMMaintenanceWindow where - toResourceProperties SSMMaintenanceWindow{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SSM::MaintenanceWindow" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("AllowUnassociatedTargets",) . toJSON) _sSMMaintenanceWindowAllowUnassociatedTargets - , (Just . ("Cutoff",) . toJSON) _sSMMaintenanceWindowCutoff - , fmap (("Description",) . toJSON) _sSMMaintenanceWindowDescription - , (Just . ("Duration",) . toJSON) _sSMMaintenanceWindowDuration - , fmap (("EndDate",) . toJSON) _sSMMaintenanceWindowEndDate - , (Just . ("Name",) . toJSON) _sSMMaintenanceWindowName - , (Just . ("Schedule",) . toJSON) _sSMMaintenanceWindowSchedule - , fmap (("ScheduleOffset",) . toJSON) _sSMMaintenanceWindowScheduleOffset - , fmap (("ScheduleTimezone",) . toJSON) _sSMMaintenanceWindowScheduleTimezone - , fmap (("StartDate",) . toJSON) _sSMMaintenanceWindowStartDate - , fmap (("Tags",) . toJSON) _sSMMaintenanceWindowTags - ] - } - --- | Constructor for 'SSMMaintenanceWindow' containing required fields as --- arguments. -ssmMaintenanceWindow - :: Val Bool -- ^ 'ssmmwAllowUnassociatedTargets' - -> Val Integer -- ^ 'ssmmwCutoff' - -> Val Integer -- ^ 'ssmmwDuration' - -> Val Text -- ^ 'ssmmwName' - -> Val Text -- ^ 'ssmmwSchedule' - -> SSMMaintenanceWindow -ssmMaintenanceWindow allowUnassociatedTargetsarg cutoffarg durationarg namearg schedulearg = - SSMMaintenanceWindow - { _sSMMaintenanceWindowAllowUnassociatedTargets = allowUnassociatedTargetsarg - , _sSMMaintenanceWindowCutoff = cutoffarg - , _sSMMaintenanceWindowDescription = Nothing - , _sSMMaintenanceWindowDuration = durationarg - , _sSMMaintenanceWindowEndDate = Nothing - , _sSMMaintenanceWindowName = namearg - , _sSMMaintenanceWindowSchedule = schedulearg - , _sSMMaintenanceWindowScheduleOffset = Nothing - , _sSMMaintenanceWindowScheduleTimezone = Nothing - , _sSMMaintenanceWindowStartDate = Nothing - , _sSMMaintenanceWindowTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindow.html#cfn-ssm-maintenancewindow-allowunassociatedtargets -ssmmwAllowUnassociatedTargets :: Lens' SSMMaintenanceWindow (Val Bool) -ssmmwAllowUnassociatedTargets = lens _sSMMaintenanceWindowAllowUnassociatedTargets (\s a -> s { _sSMMaintenanceWindowAllowUnassociatedTargets = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindow.html#cfn-ssm-maintenancewindow-cutoff -ssmmwCutoff :: Lens' SSMMaintenanceWindow (Val Integer) -ssmmwCutoff = lens _sSMMaintenanceWindowCutoff (\s a -> s { _sSMMaintenanceWindowCutoff = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindow.html#cfn-ssm-maintenancewindow-description -ssmmwDescription :: Lens' SSMMaintenanceWindow (Maybe (Val Text)) -ssmmwDescription = lens _sSMMaintenanceWindowDescription (\s a -> s { _sSMMaintenanceWindowDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindow.html#cfn-ssm-maintenancewindow-duration -ssmmwDuration :: Lens' SSMMaintenanceWindow (Val Integer) -ssmmwDuration = lens _sSMMaintenanceWindowDuration (\s a -> s { _sSMMaintenanceWindowDuration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindow.html#cfn-ssm-maintenancewindow-enddate -ssmmwEndDate :: Lens' SSMMaintenanceWindow (Maybe (Val Text)) -ssmmwEndDate = lens _sSMMaintenanceWindowEndDate (\s a -> s { _sSMMaintenanceWindowEndDate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindow.html#cfn-ssm-maintenancewindow-name -ssmmwName :: Lens' SSMMaintenanceWindow (Val Text) -ssmmwName = lens _sSMMaintenanceWindowName (\s a -> s { _sSMMaintenanceWindowName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindow.html#cfn-ssm-maintenancewindow-schedule -ssmmwSchedule :: Lens' SSMMaintenanceWindow (Val Text) -ssmmwSchedule = lens _sSMMaintenanceWindowSchedule (\s a -> s { _sSMMaintenanceWindowSchedule = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindow.html#cfn-ssm-maintenancewindow-scheduleoffset -ssmmwScheduleOffset :: Lens' SSMMaintenanceWindow (Maybe (Val Integer)) -ssmmwScheduleOffset = lens _sSMMaintenanceWindowScheduleOffset (\s a -> s { _sSMMaintenanceWindowScheduleOffset = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindow.html#cfn-ssm-maintenancewindow-scheduletimezone -ssmmwScheduleTimezone :: Lens' SSMMaintenanceWindow (Maybe (Val Text)) -ssmmwScheduleTimezone = lens _sSMMaintenanceWindowScheduleTimezone (\s a -> s { _sSMMaintenanceWindowScheduleTimezone = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindow.html#cfn-ssm-maintenancewindow-startdate -ssmmwStartDate :: Lens' SSMMaintenanceWindow (Maybe (Val Text)) -ssmmwStartDate = lens _sSMMaintenanceWindowStartDate (\s a -> s { _sSMMaintenanceWindowStartDate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindow.html#cfn-ssm-maintenancewindow-tags -ssmmwTags :: Lens' SSMMaintenanceWindow (Maybe [Tag]) -ssmmwTags = lens _sSMMaintenanceWindowTags (\s a -> s { _sSMMaintenanceWindowTags = a }) diff --git a/library-gen/Stratosphere/Resources/SSMMaintenanceWindowTarget.hs b/library-gen/Stratosphere/Resources/SSMMaintenanceWindowTarget.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SSMMaintenanceWindowTarget.hs +++ /dev/null @@ -1,79 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtarget.html - -module Stratosphere.Resources.SSMMaintenanceWindowTarget where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SSMMaintenanceWindowTargetTargets - --- | Full data type definition for SSMMaintenanceWindowTarget. See --- 'ssmMaintenanceWindowTarget' for a more convenient constructor. -data SSMMaintenanceWindowTarget = - SSMMaintenanceWindowTarget - { _sSMMaintenanceWindowTargetDescription :: Maybe (Val Text) - , _sSMMaintenanceWindowTargetName :: Maybe (Val Text) - , _sSMMaintenanceWindowTargetOwnerInformation :: Maybe (Val Text) - , _sSMMaintenanceWindowTargetResourceType :: Val Text - , _sSMMaintenanceWindowTargetTargets :: [SSMMaintenanceWindowTargetTargets] - , _sSMMaintenanceWindowTargetWindowId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties SSMMaintenanceWindowTarget where - toResourceProperties SSMMaintenanceWindowTarget{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SSM::MaintenanceWindowTarget" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _sSMMaintenanceWindowTargetDescription - , fmap (("Name",) . toJSON) _sSMMaintenanceWindowTargetName - , fmap (("OwnerInformation",) . toJSON) _sSMMaintenanceWindowTargetOwnerInformation - , (Just . ("ResourceType",) . toJSON) _sSMMaintenanceWindowTargetResourceType - , (Just . ("Targets",) . toJSON) _sSMMaintenanceWindowTargetTargets - , (Just . ("WindowId",) . toJSON) _sSMMaintenanceWindowTargetWindowId - ] - } - --- | Constructor for 'SSMMaintenanceWindowTarget' containing required fields --- as arguments. -ssmMaintenanceWindowTarget - :: Val Text -- ^ 'ssmmwtarResourceType' - -> [SSMMaintenanceWindowTargetTargets] -- ^ 'ssmmwtarTargets' - -> Val Text -- ^ 'ssmmwtarWindowId' - -> SSMMaintenanceWindowTarget -ssmMaintenanceWindowTarget resourceTypearg targetsarg windowIdarg = - SSMMaintenanceWindowTarget - { _sSMMaintenanceWindowTargetDescription = Nothing - , _sSMMaintenanceWindowTargetName = Nothing - , _sSMMaintenanceWindowTargetOwnerInformation = Nothing - , _sSMMaintenanceWindowTargetResourceType = resourceTypearg - , _sSMMaintenanceWindowTargetTargets = targetsarg - , _sSMMaintenanceWindowTargetWindowId = windowIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtarget.html#cfn-ssm-maintenancewindowtarget-description -ssmmwtarDescription :: Lens' SSMMaintenanceWindowTarget (Maybe (Val Text)) -ssmmwtarDescription = lens _sSMMaintenanceWindowTargetDescription (\s a -> s { _sSMMaintenanceWindowTargetDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtarget.html#cfn-ssm-maintenancewindowtarget-name -ssmmwtarName :: Lens' SSMMaintenanceWindowTarget (Maybe (Val Text)) -ssmmwtarName = lens _sSMMaintenanceWindowTargetName (\s a -> s { _sSMMaintenanceWindowTargetName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtarget.html#cfn-ssm-maintenancewindowtarget-ownerinformation -ssmmwtarOwnerInformation :: Lens' SSMMaintenanceWindowTarget (Maybe (Val Text)) -ssmmwtarOwnerInformation = lens _sSMMaintenanceWindowTargetOwnerInformation (\s a -> s { _sSMMaintenanceWindowTargetOwnerInformation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtarget.html#cfn-ssm-maintenancewindowtarget-resourcetype -ssmmwtarResourceType :: Lens' SSMMaintenanceWindowTarget (Val Text) -ssmmwtarResourceType = lens _sSMMaintenanceWindowTargetResourceType (\s a -> s { _sSMMaintenanceWindowTargetResourceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtarget.html#cfn-ssm-maintenancewindowtarget-targets -ssmmwtarTargets :: Lens' SSMMaintenanceWindowTarget [SSMMaintenanceWindowTargetTargets] -ssmmwtarTargets = lens _sSMMaintenanceWindowTargetTargets (\s a -> s { _sSMMaintenanceWindowTargetTargets = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtarget.html#cfn-ssm-maintenancewindowtarget-windowid -ssmmwtarWindowId :: Lens' SSMMaintenanceWindowTarget (Val Text) -ssmmwtarWindowId = lens _sSMMaintenanceWindowTargetWindowId (\s a -> s { _sSMMaintenanceWindowTargetWindowId = a }) diff --git a/library-gen/Stratosphere/Resources/SSMMaintenanceWindowTask.hs b/library-gen/Stratosphere/Resources/SSMMaintenanceWindowTask.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SSMMaintenanceWindowTask.hs +++ /dev/null @@ -1,134 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html - -module Stratosphere.Resources.SSMMaintenanceWindowTask where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskLoggingInfo -import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskTarget -import Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskTaskInvocationParameters - --- | Full data type definition for SSMMaintenanceWindowTask. See --- 'ssmMaintenanceWindowTask' for a more convenient constructor. -data SSMMaintenanceWindowTask = - SSMMaintenanceWindowTask - { _sSMMaintenanceWindowTaskDescription :: Maybe (Val Text) - , _sSMMaintenanceWindowTaskLoggingInfo :: Maybe SSMMaintenanceWindowTaskLoggingInfo - , _sSMMaintenanceWindowTaskMaxConcurrency :: Val Text - , _sSMMaintenanceWindowTaskMaxErrors :: Val Text - , _sSMMaintenanceWindowTaskName :: Maybe (Val Text) - , _sSMMaintenanceWindowTaskPriority :: Val Integer - , _sSMMaintenanceWindowTaskServiceRoleArn :: Maybe (Val Text) - , _sSMMaintenanceWindowTaskTargets :: [SSMMaintenanceWindowTaskTarget] - , _sSMMaintenanceWindowTaskTaskArn :: Val Text - , _sSMMaintenanceWindowTaskTaskInvocationParameters :: Maybe SSMMaintenanceWindowTaskTaskInvocationParameters - , _sSMMaintenanceWindowTaskTaskParameters :: Maybe Object - , _sSMMaintenanceWindowTaskTaskType :: Val Text - , _sSMMaintenanceWindowTaskWindowId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties SSMMaintenanceWindowTask where - toResourceProperties SSMMaintenanceWindowTask{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SSM::MaintenanceWindowTask" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _sSMMaintenanceWindowTaskDescription - , fmap (("LoggingInfo",) . toJSON) _sSMMaintenanceWindowTaskLoggingInfo - , (Just . ("MaxConcurrency",) . toJSON) _sSMMaintenanceWindowTaskMaxConcurrency - , (Just . ("MaxErrors",) . toJSON) _sSMMaintenanceWindowTaskMaxErrors - , fmap (("Name",) . toJSON) _sSMMaintenanceWindowTaskName - , (Just . ("Priority",) . toJSON) _sSMMaintenanceWindowTaskPriority - , fmap (("ServiceRoleArn",) . toJSON) _sSMMaintenanceWindowTaskServiceRoleArn - , (Just . ("Targets",) . toJSON) _sSMMaintenanceWindowTaskTargets - , (Just . ("TaskArn",) . toJSON) _sSMMaintenanceWindowTaskTaskArn - , fmap (("TaskInvocationParameters",) . toJSON) _sSMMaintenanceWindowTaskTaskInvocationParameters - , fmap (("TaskParameters",) . toJSON) _sSMMaintenanceWindowTaskTaskParameters - , (Just . ("TaskType",) . toJSON) _sSMMaintenanceWindowTaskTaskType - , (Just . ("WindowId",) . toJSON) _sSMMaintenanceWindowTaskWindowId - ] - } - --- | Constructor for 'SSMMaintenanceWindowTask' containing required fields as --- arguments. -ssmMaintenanceWindowTask - :: Val Text -- ^ 'ssmmwtasMaxConcurrency' - -> Val Text -- ^ 'ssmmwtasMaxErrors' - -> Val Integer -- ^ 'ssmmwtasPriority' - -> [SSMMaintenanceWindowTaskTarget] -- ^ 'ssmmwtasTargets' - -> Val Text -- ^ 'ssmmwtasTaskArn' - -> Val Text -- ^ 'ssmmwtasTaskType' - -> Val Text -- ^ 'ssmmwtasWindowId' - -> SSMMaintenanceWindowTask -ssmMaintenanceWindowTask maxConcurrencyarg maxErrorsarg priorityarg targetsarg taskArnarg taskTypearg windowIdarg = - SSMMaintenanceWindowTask - { _sSMMaintenanceWindowTaskDescription = Nothing - , _sSMMaintenanceWindowTaskLoggingInfo = Nothing - , _sSMMaintenanceWindowTaskMaxConcurrency = maxConcurrencyarg - , _sSMMaintenanceWindowTaskMaxErrors = maxErrorsarg - , _sSMMaintenanceWindowTaskName = Nothing - , _sSMMaintenanceWindowTaskPriority = priorityarg - , _sSMMaintenanceWindowTaskServiceRoleArn = Nothing - , _sSMMaintenanceWindowTaskTargets = targetsarg - , _sSMMaintenanceWindowTaskTaskArn = taskArnarg - , _sSMMaintenanceWindowTaskTaskInvocationParameters = Nothing - , _sSMMaintenanceWindowTaskTaskParameters = Nothing - , _sSMMaintenanceWindowTaskTaskType = taskTypearg - , _sSMMaintenanceWindowTaskWindowId = windowIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-description -ssmmwtasDescription :: Lens' SSMMaintenanceWindowTask (Maybe (Val Text)) -ssmmwtasDescription = lens _sSMMaintenanceWindowTaskDescription (\s a -> s { _sSMMaintenanceWindowTaskDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-logginginfo -ssmmwtasLoggingInfo :: Lens' SSMMaintenanceWindowTask (Maybe SSMMaintenanceWindowTaskLoggingInfo) -ssmmwtasLoggingInfo = lens _sSMMaintenanceWindowTaskLoggingInfo (\s a -> s { _sSMMaintenanceWindowTaskLoggingInfo = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-maxconcurrency -ssmmwtasMaxConcurrency :: Lens' SSMMaintenanceWindowTask (Val Text) -ssmmwtasMaxConcurrency = lens _sSMMaintenanceWindowTaskMaxConcurrency (\s a -> s { _sSMMaintenanceWindowTaskMaxConcurrency = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-maxerrors -ssmmwtasMaxErrors :: Lens' SSMMaintenanceWindowTask (Val Text) -ssmmwtasMaxErrors = lens _sSMMaintenanceWindowTaskMaxErrors (\s a -> s { _sSMMaintenanceWindowTaskMaxErrors = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-name -ssmmwtasName :: Lens' SSMMaintenanceWindowTask (Maybe (Val Text)) -ssmmwtasName = lens _sSMMaintenanceWindowTaskName (\s a -> s { _sSMMaintenanceWindowTaskName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-priority -ssmmwtasPriority :: Lens' SSMMaintenanceWindowTask (Val Integer) -ssmmwtasPriority = lens _sSMMaintenanceWindowTaskPriority (\s a -> s { _sSMMaintenanceWindowTaskPriority = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-servicerolearn -ssmmwtasServiceRoleArn :: Lens' SSMMaintenanceWindowTask (Maybe (Val Text)) -ssmmwtasServiceRoleArn = lens _sSMMaintenanceWindowTaskServiceRoleArn (\s a -> s { _sSMMaintenanceWindowTaskServiceRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-targets -ssmmwtasTargets :: Lens' SSMMaintenanceWindowTask [SSMMaintenanceWindowTaskTarget] -ssmmwtasTargets = lens _sSMMaintenanceWindowTaskTargets (\s a -> s { _sSMMaintenanceWindowTaskTargets = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-taskarn -ssmmwtasTaskArn :: Lens' SSMMaintenanceWindowTask (Val Text) -ssmmwtasTaskArn = lens _sSMMaintenanceWindowTaskTaskArn (\s a -> s { _sSMMaintenanceWindowTaskTaskArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-taskinvocationparameters -ssmmwtasTaskInvocationParameters :: Lens' SSMMaintenanceWindowTask (Maybe SSMMaintenanceWindowTaskTaskInvocationParameters) -ssmmwtasTaskInvocationParameters = lens _sSMMaintenanceWindowTaskTaskInvocationParameters (\s a -> s { _sSMMaintenanceWindowTaskTaskInvocationParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-taskparameters -ssmmwtasTaskParameters :: Lens' SSMMaintenanceWindowTask (Maybe Object) -ssmmwtasTaskParameters = lens _sSMMaintenanceWindowTaskTaskParameters (\s a -> s { _sSMMaintenanceWindowTaskTaskParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-tasktype -ssmmwtasTaskType :: Lens' SSMMaintenanceWindowTask (Val Text) -ssmmwtasTaskType = lens _sSMMaintenanceWindowTaskTaskType (\s a -> s { _sSMMaintenanceWindowTaskTaskType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-maintenancewindowtask.html#cfn-ssm-maintenancewindowtask-windowid -ssmmwtasWindowId :: Lens' SSMMaintenanceWindowTask (Val Text) -ssmmwtasWindowId = lens _sSMMaintenanceWindowTaskWindowId (\s a -> s { _sSMMaintenanceWindowTaskWindowId = a }) diff --git a/library-gen/Stratosphere/Resources/SSMParameter.hs b/library-gen/Stratosphere/Resources/SSMParameter.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SSMParameter.hs +++ /dev/null @@ -1,98 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-parameter.html - -module Stratosphere.Resources.SSMParameter where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SSMParameter. See 'ssmParameter' for a more --- convenient constructor. -data SSMParameter = - SSMParameter - { _sSMParameterAllowedPattern :: Maybe (Val Text) - , _sSMParameterDataType :: Maybe (Val Text) - , _sSMParameterDescription :: Maybe (Val Text) - , _sSMParameterName :: Maybe (Val Text) - , _sSMParameterPolicies :: Maybe (Val Text) - , _sSMParameterTags :: Maybe Object - , _sSMParameterTier :: Maybe (Val Text) - , _sSMParameterType :: Val Text - , _sSMParameterValue :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties SSMParameter where - toResourceProperties SSMParameter{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SSM::Parameter" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AllowedPattern",) . toJSON) _sSMParameterAllowedPattern - , fmap (("DataType",) . toJSON) _sSMParameterDataType - , fmap (("Description",) . toJSON) _sSMParameterDescription - , fmap (("Name",) . toJSON) _sSMParameterName - , fmap (("Policies",) . toJSON) _sSMParameterPolicies - , fmap (("Tags",) . toJSON) _sSMParameterTags - , fmap (("Tier",) . toJSON) _sSMParameterTier - , (Just . ("Type",) . toJSON) _sSMParameterType - , (Just . ("Value",) . toJSON) _sSMParameterValue - ] - } - --- | Constructor for 'SSMParameter' containing required fields as arguments. -ssmParameter - :: Val Text -- ^ 'ssmpType' - -> Val Text -- ^ 'ssmpValue' - -> SSMParameter -ssmParameter typearg valuearg = - SSMParameter - { _sSMParameterAllowedPattern = Nothing - , _sSMParameterDataType = Nothing - , _sSMParameterDescription = Nothing - , _sSMParameterName = Nothing - , _sSMParameterPolicies = Nothing - , _sSMParameterTags = Nothing - , _sSMParameterTier = Nothing - , _sSMParameterType = typearg - , _sSMParameterValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-parameter.html#cfn-ssm-parameter-allowedpattern -ssmpAllowedPattern :: Lens' SSMParameter (Maybe (Val Text)) -ssmpAllowedPattern = lens _sSMParameterAllowedPattern (\s a -> s { _sSMParameterAllowedPattern = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-parameter.html#cfn-ssm-parameter-datatype -ssmpDataType :: Lens' SSMParameter (Maybe (Val Text)) -ssmpDataType = lens _sSMParameterDataType (\s a -> s { _sSMParameterDataType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-parameter.html#cfn-ssm-parameter-description -ssmpDescription :: Lens' SSMParameter (Maybe (Val Text)) -ssmpDescription = lens _sSMParameterDescription (\s a -> s { _sSMParameterDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-parameter.html#cfn-ssm-parameter-name -ssmpName :: Lens' SSMParameter (Maybe (Val Text)) -ssmpName = lens _sSMParameterName (\s a -> s { _sSMParameterName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-parameter.html#cfn-ssm-parameter-policies -ssmpPolicies :: Lens' SSMParameter (Maybe (Val Text)) -ssmpPolicies = lens _sSMParameterPolicies (\s a -> s { _sSMParameterPolicies = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-parameter.html#cfn-ssm-parameter-tags -ssmpTags :: Lens' SSMParameter (Maybe Object) -ssmpTags = lens _sSMParameterTags (\s a -> s { _sSMParameterTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-parameter.html#cfn-ssm-parameter-tier -ssmpTier :: Lens' SSMParameter (Maybe (Val Text)) -ssmpTier = lens _sSMParameterTier (\s a -> s { _sSMParameterTier = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-parameter.html#cfn-ssm-parameter-type -ssmpType :: Lens' SSMParameter (Val Text) -ssmpType = lens _sSMParameterType (\s a -> s { _sSMParameterType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-parameter.html#cfn-ssm-parameter-value -ssmpValue :: Lens' SSMParameter (Val Text) -ssmpValue = lens _sSMParameterValue (\s a -> s { _sSMParameterValue = a }) diff --git a/library-gen/Stratosphere/Resources/SSMPatchBaseline.hs b/library-gen/Stratosphere/Resources/SSMPatchBaseline.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SSMPatchBaseline.hs +++ /dev/null @@ -1,129 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-patchbaseline.html - -module Stratosphere.Resources.SSMPatchBaseline where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SSMPatchBaselineRuleGroup -import Stratosphere.ResourceProperties.SSMPatchBaselinePatchFilterGroup -import Stratosphere.ResourceProperties.SSMPatchBaselinePatchSource -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for SSMPatchBaseline. See 'ssmPatchBaseline' --- for a more convenient constructor. -data SSMPatchBaseline = - SSMPatchBaseline - { _sSMPatchBaselineApprovalRules :: Maybe SSMPatchBaselineRuleGroup - , _sSMPatchBaselineApprovedPatches :: Maybe (ValList Text) - , _sSMPatchBaselineApprovedPatchesComplianceLevel :: Maybe (Val Text) - , _sSMPatchBaselineApprovedPatchesEnableNonSecurity :: Maybe (Val Bool) - , _sSMPatchBaselineDescription :: Maybe (Val Text) - , _sSMPatchBaselineGlobalFilters :: Maybe SSMPatchBaselinePatchFilterGroup - , _sSMPatchBaselineName :: Val Text - , _sSMPatchBaselineOperatingSystem :: Maybe (Val Text) - , _sSMPatchBaselinePatchGroups :: Maybe (ValList Text) - , _sSMPatchBaselineRejectedPatches :: Maybe (ValList Text) - , _sSMPatchBaselineRejectedPatchesAction :: Maybe (Val Text) - , _sSMPatchBaselineSources :: Maybe [SSMPatchBaselinePatchSource] - , _sSMPatchBaselineTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties SSMPatchBaseline where - toResourceProperties SSMPatchBaseline{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SSM::PatchBaseline" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ApprovalRules",) . toJSON) _sSMPatchBaselineApprovalRules - , fmap (("ApprovedPatches",) . toJSON) _sSMPatchBaselineApprovedPatches - , fmap (("ApprovedPatchesComplianceLevel",) . toJSON) _sSMPatchBaselineApprovedPatchesComplianceLevel - , fmap (("ApprovedPatchesEnableNonSecurity",) . toJSON) _sSMPatchBaselineApprovedPatchesEnableNonSecurity - , fmap (("Description",) . toJSON) _sSMPatchBaselineDescription - , fmap (("GlobalFilters",) . toJSON) _sSMPatchBaselineGlobalFilters - , (Just . ("Name",) . toJSON) _sSMPatchBaselineName - , fmap (("OperatingSystem",) . toJSON) _sSMPatchBaselineOperatingSystem - , fmap (("PatchGroups",) . toJSON) _sSMPatchBaselinePatchGroups - , fmap (("RejectedPatches",) . toJSON) _sSMPatchBaselineRejectedPatches - , fmap (("RejectedPatchesAction",) . toJSON) _sSMPatchBaselineRejectedPatchesAction - , fmap (("Sources",) . toJSON) _sSMPatchBaselineSources - , fmap (("Tags",) . toJSON) _sSMPatchBaselineTags - ] - } - --- | Constructor for 'SSMPatchBaseline' containing required fields as --- arguments. -ssmPatchBaseline - :: Val Text -- ^ 'ssmpbName' - -> SSMPatchBaseline -ssmPatchBaseline namearg = - SSMPatchBaseline - { _sSMPatchBaselineApprovalRules = Nothing - , _sSMPatchBaselineApprovedPatches = Nothing - , _sSMPatchBaselineApprovedPatchesComplianceLevel = Nothing - , _sSMPatchBaselineApprovedPatchesEnableNonSecurity = Nothing - , _sSMPatchBaselineDescription = Nothing - , _sSMPatchBaselineGlobalFilters = Nothing - , _sSMPatchBaselineName = namearg - , _sSMPatchBaselineOperatingSystem = Nothing - , _sSMPatchBaselinePatchGroups = Nothing - , _sSMPatchBaselineRejectedPatches = Nothing - , _sSMPatchBaselineRejectedPatchesAction = Nothing - , _sSMPatchBaselineSources = Nothing - , _sSMPatchBaselineTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-patchbaseline.html#cfn-ssm-patchbaseline-approvalrules -ssmpbApprovalRules :: Lens' SSMPatchBaseline (Maybe SSMPatchBaselineRuleGroup) -ssmpbApprovalRules = lens _sSMPatchBaselineApprovalRules (\s a -> s { _sSMPatchBaselineApprovalRules = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-patchbaseline.html#cfn-ssm-patchbaseline-approvedpatches -ssmpbApprovedPatches :: Lens' SSMPatchBaseline (Maybe (ValList Text)) -ssmpbApprovedPatches = lens _sSMPatchBaselineApprovedPatches (\s a -> s { _sSMPatchBaselineApprovedPatches = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-patchbaseline.html#cfn-ssm-patchbaseline-approvedpatchescompliancelevel -ssmpbApprovedPatchesComplianceLevel :: Lens' SSMPatchBaseline (Maybe (Val Text)) -ssmpbApprovedPatchesComplianceLevel = lens _sSMPatchBaselineApprovedPatchesComplianceLevel (\s a -> s { _sSMPatchBaselineApprovedPatchesComplianceLevel = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-patchbaseline.html#cfn-ssm-patchbaseline-approvedpatchesenablenonsecurity -ssmpbApprovedPatchesEnableNonSecurity :: Lens' SSMPatchBaseline (Maybe (Val Bool)) -ssmpbApprovedPatchesEnableNonSecurity = lens _sSMPatchBaselineApprovedPatchesEnableNonSecurity (\s a -> s { _sSMPatchBaselineApprovedPatchesEnableNonSecurity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-patchbaseline.html#cfn-ssm-patchbaseline-description -ssmpbDescription :: Lens' SSMPatchBaseline (Maybe (Val Text)) -ssmpbDescription = lens _sSMPatchBaselineDescription (\s a -> s { _sSMPatchBaselineDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-patchbaseline.html#cfn-ssm-patchbaseline-globalfilters -ssmpbGlobalFilters :: Lens' SSMPatchBaseline (Maybe SSMPatchBaselinePatchFilterGroup) -ssmpbGlobalFilters = lens _sSMPatchBaselineGlobalFilters (\s a -> s { _sSMPatchBaselineGlobalFilters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-patchbaseline.html#cfn-ssm-patchbaseline-name -ssmpbName :: Lens' SSMPatchBaseline (Val Text) -ssmpbName = lens _sSMPatchBaselineName (\s a -> s { _sSMPatchBaselineName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-patchbaseline.html#cfn-ssm-patchbaseline-operatingsystem -ssmpbOperatingSystem :: Lens' SSMPatchBaseline (Maybe (Val Text)) -ssmpbOperatingSystem = lens _sSMPatchBaselineOperatingSystem (\s a -> s { _sSMPatchBaselineOperatingSystem = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-patchbaseline.html#cfn-ssm-patchbaseline-patchgroups -ssmpbPatchGroups :: Lens' SSMPatchBaseline (Maybe (ValList Text)) -ssmpbPatchGroups = lens _sSMPatchBaselinePatchGroups (\s a -> s { _sSMPatchBaselinePatchGroups = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-patchbaseline.html#cfn-ssm-patchbaseline-rejectedpatches -ssmpbRejectedPatches :: Lens' SSMPatchBaseline (Maybe (ValList Text)) -ssmpbRejectedPatches = lens _sSMPatchBaselineRejectedPatches (\s a -> s { _sSMPatchBaselineRejectedPatches = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-patchbaseline.html#cfn-ssm-patchbaseline-rejectedpatchesaction -ssmpbRejectedPatchesAction :: Lens' SSMPatchBaseline (Maybe (Val Text)) -ssmpbRejectedPatchesAction = lens _sSMPatchBaselineRejectedPatchesAction (\s a -> s { _sSMPatchBaselineRejectedPatchesAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-patchbaseline.html#cfn-ssm-patchbaseline-sources -ssmpbSources :: Lens' SSMPatchBaseline (Maybe [SSMPatchBaselinePatchSource]) -ssmpbSources = lens _sSMPatchBaselineSources (\s a -> s { _sSMPatchBaselineSources = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-patchbaseline.html#cfn-ssm-patchbaseline-tags -ssmpbTags :: Lens' SSMPatchBaseline (Maybe [Tag]) -ssmpbTags = lens _sSMPatchBaselineTags (\s a -> s { _sSMPatchBaselineTags = a }) diff --git a/library-gen/Stratosphere/Resources/SSMResourceDataSync.hs b/library-gen/Stratosphere/Resources/SSMResourceDataSync.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SSMResourceDataSync.hs +++ /dev/null @@ -1,99 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-resourcedatasync.html - -module Stratosphere.Resources.SSMResourceDataSync where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SSMResourceDataSyncS3Destination -import Stratosphere.ResourceProperties.SSMResourceDataSyncSyncSource - --- | Full data type definition for SSMResourceDataSync. See --- 'ssmResourceDataSync' for a more convenient constructor. -data SSMResourceDataSync = - SSMResourceDataSync - { _sSMResourceDataSyncBucketName :: Maybe (Val Text) - , _sSMResourceDataSyncBucketPrefix :: Maybe (Val Text) - , _sSMResourceDataSyncBucketRegion :: Maybe (Val Text) - , _sSMResourceDataSyncKMSKeyArn :: Maybe (Val Text) - , _sSMResourceDataSyncS3Destination :: Maybe SSMResourceDataSyncS3Destination - , _sSMResourceDataSyncSyncFormat :: Maybe (Val Text) - , _sSMResourceDataSyncSyncName :: Val Text - , _sSMResourceDataSyncSyncSource :: Maybe SSMResourceDataSyncSyncSource - , _sSMResourceDataSyncSyncType :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties SSMResourceDataSync where - toResourceProperties SSMResourceDataSync{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SSM::ResourceDataSync" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("BucketName",) . toJSON) _sSMResourceDataSyncBucketName - , fmap (("BucketPrefix",) . toJSON) _sSMResourceDataSyncBucketPrefix - , fmap (("BucketRegion",) . toJSON) _sSMResourceDataSyncBucketRegion - , fmap (("KMSKeyArn",) . toJSON) _sSMResourceDataSyncKMSKeyArn - , fmap (("S3Destination",) . toJSON) _sSMResourceDataSyncS3Destination - , fmap (("SyncFormat",) . toJSON) _sSMResourceDataSyncSyncFormat - , (Just . ("SyncName",) . toJSON) _sSMResourceDataSyncSyncName - , fmap (("SyncSource",) . toJSON) _sSMResourceDataSyncSyncSource - , fmap (("SyncType",) . toJSON) _sSMResourceDataSyncSyncType - ] - } - --- | Constructor for 'SSMResourceDataSync' containing required fields as --- arguments. -ssmResourceDataSync - :: Val Text -- ^ 'ssmrdsSyncName' - -> SSMResourceDataSync -ssmResourceDataSync syncNamearg = - SSMResourceDataSync - { _sSMResourceDataSyncBucketName = Nothing - , _sSMResourceDataSyncBucketPrefix = Nothing - , _sSMResourceDataSyncBucketRegion = Nothing - , _sSMResourceDataSyncKMSKeyArn = Nothing - , _sSMResourceDataSyncS3Destination = Nothing - , _sSMResourceDataSyncSyncFormat = Nothing - , _sSMResourceDataSyncSyncName = syncNamearg - , _sSMResourceDataSyncSyncSource = Nothing - , _sSMResourceDataSyncSyncType = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-resourcedatasync.html#cfn-ssm-resourcedatasync-bucketname -ssmrdsBucketName :: Lens' SSMResourceDataSync (Maybe (Val Text)) -ssmrdsBucketName = lens _sSMResourceDataSyncBucketName (\s a -> s { _sSMResourceDataSyncBucketName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-resourcedatasync.html#cfn-ssm-resourcedatasync-bucketprefix -ssmrdsBucketPrefix :: Lens' SSMResourceDataSync (Maybe (Val Text)) -ssmrdsBucketPrefix = lens _sSMResourceDataSyncBucketPrefix (\s a -> s { _sSMResourceDataSyncBucketPrefix = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-resourcedatasync.html#cfn-ssm-resourcedatasync-bucketregion -ssmrdsBucketRegion :: Lens' SSMResourceDataSync (Maybe (Val Text)) -ssmrdsBucketRegion = lens _sSMResourceDataSyncBucketRegion (\s a -> s { _sSMResourceDataSyncBucketRegion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-resourcedatasync.html#cfn-ssm-resourcedatasync-kmskeyarn -ssmrdsKMSKeyArn :: Lens' SSMResourceDataSync (Maybe (Val Text)) -ssmrdsKMSKeyArn = lens _sSMResourceDataSyncKMSKeyArn (\s a -> s { _sSMResourceDataSyncKMSKeyArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-resourcedatasync.html#cfn-ssm-resourcedatasync-s3destination -ssmrdsS3Destination :: Lens' SSMResourceDataSync (Maybe SSMResourceDataSyncS3Destination) -ssmrdsS3Destination = lens _sSMResourceDataSyncS3Destination (\s a -> s { _sSMResourceDataSyncS3Destination = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-resourcedatasync.html#cfn-ssm-resourcedatasync-syncformat -ssmrdsSyncFormat :: Lens' SSMResourceDataSync (Maybe (Val Text)) -ssmrdsSyncFormat = lens _sSMResourceDataSyncSyncFormat (\s a -> s { _sSMResourceDataSyncSyncFormat = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-resourcedatasync.html#cfn-ssm-resourcedatasync-syncname -ssmrdsSyncName :: Lens' SSMResourceDataSync (Val Text) -ssmrdsSyncName = lens _sSMResourceDataSyncSyncName (\s a -> s { _sSMResourceDataSyncSyncName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-resourcedatasync.html#cfn-ssm-resourcedatasync-syncsource -ssmrdsSyncSource :: Lens' SSMResourceDataSync (Maybe SSMResourceDataSyncSyncSource) -ssmrdsSyncSource = lens _sSMResourceDataSyncSyncSource (\s a -> s { _sSMResourceDataSyncSyncSource = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ssm-resourcedatasync.html#cfn-ssm-resourcedatasync-synctype -ssmrdsSyncType :: Lens' SSMResourceDataSync (Maybe (Val Text)) -ssmrdsSyncType = lens _sSMResourceDataSyncSyncType (\s a -> s { _sSMResourceDataSyncSyncType = a }) diff --git a/library-gen/Stratosphere/Resources/SageMakerCodeRepository.hs b/library-gen/Stratosphere/Resources/SageMakerCodeRepository.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SageMakerCodeRepository.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-coderepository.html - -module Stratosphere.Resources.SageMakerCodeRepository where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SageMakerCodeRepositoryGitConfig - --- | Full data type definition for SageMakerCodeRepository. See --- 'sageMakerCodeRepository' for a more convenient constructor. -data SageMakerCodeRepository = - SageMakerCodeRepository - { _sageMakerCodeRepositoryCodeRepositoryName :: Maybe (Val Text) - , _sageMakerCodeRepositoryGitConfig :: SageMakerCodeRepositoryGitConfig - } deriving (Show, Eq) - -instance ToResourceProperties SageMakerCodeRepository where - toResourceProperties SageMakerCodeRepository{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SageMaker::CodeRepository" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("CodeRepositoryName",) . toJSON) _sageMakerCodeRepositoryCodeRepositoryName - , (Just . ("GitConfig",) . toJSON) _sageMakerCodeRepositoryGitConfig - ] - } - --- | Constructor for 'SageMakerCodeRepository' containing required fields as --- arguments. -sageMakerCodeRepository - :: SageMakerCodeRepositoryGitConfig -- ^ 'smcrGitConfig' - -> SageMakerCodeRepository -sageMakerCodeRepository gitConfigarg = - SageMakerCodeRepository - { _sageMakerCodeRepositoryCodeRepositoryName = Nothing - , _sageMakerCodeRepositoryGitConfig = gitConfigarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-coderepository.html#cfn-sagemaker-coderepository-coderepositoryname -smcrCodeRepositoryName :: Lens' SageMakerCodeRepository (Maybe (Val Text)) -smcrCodeRepositoryName = lens _sageMakerCodeRepositoryCodeRepositoryName (\s a -> s { _sageMakerCodeRepositoryCodeRepositoryName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-coderepository.html#cfn-sagemaker-coderepository-gitconfig -smcrGitConfig :: Lens' SageMakerCodeRepository SageMakerCodeRepositoryGitConfig -smcrGitConfig = lens _sageMakerCodeRepositoryGitConfig (\s a -> s { _sageMakerCodeRepositoryGitConfig = a }) diff --git a/library-gen/Stratosphere/Resources/SageMakerEndpoint.hs b/library-gen/Stratosphere/Resources/SageMakerEndpoint.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SageMakerEndpoint.hs +++ /dev/null @@ -1,71 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-endpoint.html - -module Stratosphere.Resources.SageMakerEndpoint where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SageMakerEndpointVariantProperty -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for SageMakerEndpoint. See 'sageMakerEndpoint' --- for a more convenient constructor. -data SageMakerEndpoint = - SageMakerEndpoint - { _sageMakerEndpointEndpointConfigName :: Val Text - , _sageMakerEndpointEndpointName :: Maybe (Val Text) - , _sageMakerEndpointExcludeRetainedVariantProperties :: Maybe [SageMakerEndpointVariantProperty] - , _sageMakerEndpointRetainAllVariantProperties :: Maybe (Val Bool) - , _sageMakerEndpointTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties SageMakerEndpoint where - toResourceProperties SageMakerEndpoint{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SageMaker::Endpoint" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("EndpointConfigName",) . toJSON) _sageMakerEndpointEndpointConfigName - , fmap (("EndpointName",) . toJSON) _sageMakerEndpointEndpointName - , fmap (("ExcludeRetainedVariantProperties",) . toJSON) _sageMakerEndpointExcludeRetainedVariantProperties - , fmap (("RetainAllVariantProperties",) . toJSON) _sageMakerEndpointRetainAllVariantProperties - , fmap (("Tags",) . toJSON) _sageMakerEndpointTags - ] - } - --- | Constructor for 'SageMakerEndpoint' containing required fields as --- arguments. -sageMakerEndpoint - :: Val Text -- ^ 'smeEndpointConfigName' - -> SageMakerEndpoint -sageMakerEndpoint endpointConfigNamearg = - SageMakerEndpoint - { _sageMakerEndpointEndpointConfigName = endpointConfigNamearg - , _sageMakerEndpointEndpointName = Nothing - , _sageMakerEndpointExcludeRetainedVariantProperties = Nothing - , _sageMakerEndpointRetainAllVariantProperties = Nothing - , _sageMakerEndpointTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-endpoint.html#cfn-sagemaker-endpoint-endpointconfigname -smeEndpointConfigName :: Lens' SageMakerEndpoint (Val Text) -smeEndpointConfigName = lens _sageMakerEndpointEndpointConfigName (\s a -> s { _sageMakerEndpointEndpointConfigName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-endpoint.html#cfn-sagemaker-endpoint-endpointname -smeEndpointName :: Lens' SageMakerEndpoint (Maybe (Val Text)) -smeEndpointName = lens _sageMakerEndpointEndpointName (\s a -> s { _sageMakerEndpointEndpointName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-endpoint.html#cfn-sagemaker-endpoint-excluderetainedvariantproperties -smeExcludeRetainedVariantProperties :: Lens' SageMakerEndpoint (Maybe [SageMakerEndpointVariantProperty]) -smeExcludeRetainedVariantProperties = lens _sageMakerEndpointExcludeRetainedVariantProperties (\s a -> s { _sageMakerEndpointExcludeRetainedVariantProperties = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-endpoint.html#cfn-sagemaker-endpoint-retainallvariantproperties -smeRetainAllVariantProperties :: Lens' SageMakerEndpoint (Maybe (Val Bool)) -smeRetainAllVariantProperties = lens _sageMakerEndpointRetainAllVariantProperties (\s a -> s { _sageMakerEndpointRetainAllVariantProperties = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-endpoint.html#cfn-sagemaker-endpoint-tags -smeTags :: Lens' SageMakerEndpoint (Maybe [Tag]) -smeTags = lens _sageMakerEndpointTags (\s a -> s { _sageMakerEndpointTags = a }) diff --git a/library-gen/Stratosphere/Resources/SageMakerEndpointConfig.hs b/library-gen/Stratosphere/Resources/SageMakerEndpointConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SageMakerEndpointConfig.hs +++ /dev/null @@ -1,72 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-endpointconfig.html - -module Stratosphere.Resources.SageMakerEndpointConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SageMakerEndpointConfigDataCaptureConfig -import Stratosphere.ResourceProperties.SageMakerEndpointConfigProductionVariant -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for SageMakerEndpointConfig. See --- 'sageMakerEndpointConfig' for a more convenient constructor. -data SageMakerEndpointConfig = - SageMakerEndpointConfig - { _sageMakerEndpointConfigDataCaptureConfig :: Maybe SageMakerEndpointConfigDataCaptureConfig - , _sageMakerEndpointConfigEndpointConfigName :: Maybe (Val Text) - , _sageMakerEndpointConfigKmsKeyId :: Maybe (Val Text) - , _sageMakerEndpointConfigProductionVariants :: [SageMakerEndpointConfigProductionVariant] - , _sageMakerEndpointConfigTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties SageMakerEndpointConfig where - toResourceProperties SageMakerEndpointConfig{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SageMaker::EndpointConfig" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("DataCaptureConfig",) . toJSON) _sageMakerEndpointConfigDataCaptureConfig - , fmap (("EndpointConfigName",) . toJSON) _sageMakerEndpointConfigEndpointConfigName - , fmap (("KmsKeyId",) . toJSON) _sageMakerEndpointConfigKmsKeyId - , (Just . ("ProductionVariants",) . toJSON) _sageMakerEndpointConfigProductionVariants - , fmap (("Tags",) . toJSON) _sageMakerEndpointConfigTags - ] - } - --- | Constructor for 'SageMakerEndpointConfig' containing required fields as --- arguments. -sageMakerEndpointConfig - :: [SageMakerEndpointConfigProductionVariant] -- ^ 'smecProductionVariants' - -> SageMakerEndpointConfig -sageMakerEndpointConfig productionVariantsarg = - SageMakerEndpointConfig - { _sageMakerEndpointConfigDataCaptureConfig = Nothing - , _sageMakerEndpointConfigEndpointConfigName = Nothing - , _sageMakerEndpointConfigKmsKeyId = Nothing - , _sageMakerEndpointConfigProductionVariants = productionVariantsarg - , _sageMakerEndpointConfigTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-endpointconfig.html#cfn-sagemaker-endpointconfig-datacaptureconfig -smecDataCaptureConfig :: Lens' SageMakerEndpointConfig (Maybe SageMakerEndpointConfigDataCaptureConfig) -smecDataCaptureConfig = lens _sageMakerEndpointConfigDataCaptureConfig (\s a -> s { _sageMakerEndpointConfigDataCaptureConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-endpointconfig.html#cfn-sagemaker-endpointconfig-endpointconfigname -smecEndpointConfigName :: Lens' SageMakerEndpointConfig (Maybe (Val Text)) -smecEndpointConfigName = lens _sageMakerEndpointConfigEndpointConfigName (\s a -> s { _sageMakerEndpointConfigEndpointConfigName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-endpointconfig.html#cfn-sagemaker-endpointconfig-kmskeyid -smecKmsKeyId :: Lens' SageMakerEndpointConfig (Maybe (Val Text)) -smecKmsKeyId = lens _sageMakerEndpointConfigKmsKeyId (\s a -> s { _sageMakerEndpointConfigKmsKeyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-endpointconfig.html#cfn-sagemaker-endpointconfig-productionvariants -smecProductionVariants :: Lens' SageMakerEndpointConfig [SageMakerEndpointConfigProductionVariant] -smecProductionVariants = lens _sageMakerEndpointConfigProductionVariants (\s a -> s { _sageMakerEndpointConfigProductionVariants = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-endpointconfig.html#cfn-sagemaker-endpointconfig-tags -smecTags :: Lens' SageMakerEndpointConfig (Maybe [Tag]) -smecTags = lens _sageMakerEndpointConfigTags (\s a -> s { _sageMakerEndpointConfigTags = a }) diff --git a/library-gen/Stratosphere/Resources/SageMakerModel.hs b/library-gen/Stratosphere/Resources/SageMakerModel.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SageMakerModel.hs +++ /dev/null @@ -1,85 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-model.html - -module Stratosphere.Resources.SageMakerModel where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SageMakerModelContainerDefinition -import Stratosphere.ResourceProperties.Tag -import Stratosphere.ResourceProperties.SageMakerModelVpcConfig - --- | Full data type definition for SageMakerModel. See 'sageMakerModel' for a --- more convenient constructor. -data SageMakerModel = - SageMakerModel - { _sageMakerModelContainers :: Maybe [SageMakerModelContainerDefinition] - , _sageMakerModelEnableNetworkIsolation :: Maybe (Val Bool) - , _sageMakerModelExecutionRoleArn :: Val Text - , _sageMakerModelModelName :: Maybe (Val Text) - , _sageMakerModelPrimaryContainer :: Maybe SageMakerModelContainerDefinition - , _sageMakerModelTags :: Maybe [Tag] - , _sageMakerModelVpcConfig :: Maybe SageMakerModelVpcConfig - } deriving (Show, Eq) - -instance ToResourceProperties SageMakerModel where - toResourceProperties SageMakerModel{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SageMaker::Model" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Containers",) . toJSON) _sageMakerModelContainers - , fmap (("EnableNetworkIsolation",) . toJSON) _sageMakerModelEnableNetworkIsolation - , (Just . ("ExecutionRoleArn",) . toJSON) _sageMakerModelExecutionRoleArn - , fmap (("ModelName",) . toJSON) _sageMakerModelModelName - , fmap (("PrimaryContainer",) . toJSON) _sageMakerModelPrimaryContainer - , fmap (("Tags",) . toJSON) _sageMakerModelTags - , fmap (("VpcConfig",) . toJSON) _sageMakerModelVpcConfig - ] - } - --- | Constructor for 'SageMakerModel' containing required fields as arguments. -sageMakerModel - :: Val Text -- ^ 'smmExecutionRoleArn' - -> SageMakerModel -sageMakerModel executionRoleArnarg = - SageMakerModel - { _sageMakerModelContainers = Nothing - , _sageMakerModelEnableNetworkIsolation = Nothing - , _sageMakerModelExecutionRoleArn = executionRoleArnarg - , _sageMakerModelModelName = Nothing - , _sageMakerModelPrimaryContainer = Nothing - , _sageMakerModelTags = Nothing - , _sageMakerModelVpcConfig = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-model.html#cfn-sagemaker-model-containers -smmContainers :: Lens' SageMakerModel (Maybe [SageMakerModelContainerDefinition]) -smmContainers = lens _sageMakerModelContainers (\s a -> s { _sageMakerModelContainers = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-model.html#cfn-sagemaker-model-enablenetworkisolation -smmEnableNetworkIsolation :: Lens' SageMakerModel (Maybe (Val Bool)) -smmEnableNetworkIsolation = lens _sageMakerModelEnableNetworkIsolation (\s a -> s { _sageMakerModelEnableNetworkIsolation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-model.html#cfn-sagemaker-model-executionrolearn -smmExecutionRoleArn :: Lens' SageMakerModel (Val Text) -smmExecutionRoleArn = lens _sageMakerModelExecutionRoleArn (\s a -> s { _sageMakerModelExecutionRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-model.html#cfn-sagemaker-model-modelname -smmModelName :: Lens' SageMakerModel (Maybe (Val Text)) -smmModelName = lens _sageMakerModelModelName (\s a -> s { _sageMakerModelModelName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-model.html#cfn-sagemaker-model-primarycontainer -smmPrimaryContainer :: Lens' SageMakerModel (Maybe SageMakerModelContainerDefinition) -smmPrimaryContainer = lens _sageMakerModelPrimaryContainer (\s a -> s { _sageMakerModelPrimaryContainer = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-model.html#cfn-sagemaker-model-tags -smmTags :: Lens' SageMakerModel (Maybe [Tag]) -smmTags = lens _sageMakerModelTags (\s a -> s { _sageMakerModelTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-model.html#cfn-sagemaker-model-vpcconfig -smmVpcConfig :: Lens' SageMakerModel (Maybe SageMakerModelVpcConfig) -smmVpcConfig = lens _sageMakerModelVpcConfig (\s a -> s { _sageMakerModelVpcConfig = a }) diff --git a/library-gen/Stratosphere/Resources/SageMakerMonitoringSchedule.hs b/library-gen/Stratosphere/Resources/SageMakerMonitoringSchedule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SageMakerMonitoringSchedule.hs +++ /dev/null @@ -1,108 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-monitoringschedule.html - -module Stratosphere.Resources.SageMakerMonitoringSchedule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringExecutionSummary -import Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringScheduleConfig -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for SageMakerMonitoringSchedule. See --- 'sageMakerMonitoringSchedule' for a more convenient constructor. -data SageMakerMonitoringSchedule = - SageMakerMonitoringSchedule - { _sageMakerMonitoringScheduleCreationTime :: Maybe (Val Text) - , _sageMakerMonitoringScheduleEndpointName :: Maybe (Val Text) - , _sageMakerMonitoringScheduleFailureReason :: Maybe (Val Text) - , _sageMakerMonitoringScheduleLastModifiedTime :: Maybe (Val Text) - , _sageMakerMonitoringScheduleLastMonitoringExecutionSummary :: Maybe SageMakerMonitoringScheduleMonitoringExecutionSummary - , _sageMakerMonitoringScheduleMonitoringScheduleArn :: Maybe (Val Text) - , _sageMakerMonitoringScheduleMonitoringScheduleConfig :: SageMakerMonitoringScheduleMonitoringScheduleConfig - , _sageMakerMonitoringScheduleMonitoringScheduleName :: Val Text - , _sageMakerMonitoringScheduleMonitoringScheduleStatus :: Maybe (Val Text) - , _sageMakerMonitoringScheduleTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties SageMakerMonitoringSchedule where - toResourceProperties SageMakerMonitoringSchedule{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SageMaker::MonitoringSchedule" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("CreationTime",) . toJSON) _sageMakerMonitoringScheduleCreationTime - , fmap (("EndpointName",) . toJSON) _sageMakerMonitoringScheduleEndpointName - , fmap (("FailureReason",) . toJSON) _sageMakerMonitoringScheduleFailureReason - , fmap (("LastModifiedTime",) . toJSON) _sageMakerMonitoringScheduleLastModifiedTime - , fmap (("LastMonitoringExecutionSummary",) . toJSON) _sageMakerMonitoringScheduleLastMonitoringExecutionSummary - , fmap (("MonitoringScheduleArn",) . toJSON) _sageMakerMonitoringScheduleMonitoringScheduleArn - , (Just . ("MonitoringScheduleConfig",) . toJSON) _sageMakerMonitoringScheduleMonitoringScheduleConfig - , (Just . ("MonitoringScheduleName",) . toJSON) _sageMakerMonitoringScheduleMonitoringScheduleName - , fmap (("MonitoringScheduleStatus",) . toJSON) _sageMakerMonitoringScheduleMonitoringScheduleStatus - , fmap (("Tags",) . toJSON) _sageMakerMonitoringScheduleTags - ] - } - --- | Constructor for 'SageMakerMonitoringSchedule' containing required fields --- as arguments. -sageMakerMonitoringSchedule - :: SageMakerMonitoringScheduleMonitoringScheduleConfig -- ^ 'smmsMonitoringScheduleConfig' - -> Val Text -- ^ 'smmsMonitoringScheduleName' - -> SageMakerMonitoringSchedule -sageMakerMonitoringSchedule monitoringScheduleConfigarg monitoringScheduleNamearg = - SageMakerMonitoringSchedule - { _sageMakerMonitoringScheduleCreationTime = Nothing - , _sageMakerMonitoringScheduleEndpointName = Nothing - , _sageMakerMonitoringScheduleFailureReason = Nothing - , _sageMakerMonitoringScheduleLastModifiedTime = Nothing - , _sageMakerMonitoringScheduleLastMonitoringExecutionSummary = Nothing - , _sageMakerMonitoringScheduleMonitoringScheduleArn = Nothing - , _sageMakerMonitoringScheduleMonitoringScheduleConfig = monitoringScheduleConfigarg - , _sageMakerMonitoringScheduleMonitoringScheduleName = monitoringScheduleNamearg - , _sageMakerMonitoringScheduleMonitoringScheduleStatus = Nothing - , _sageMakerMonitoringScheduleTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-monitoringschedule.html#cfn-sagemaker-monitoringschedule-creationtime -smmsCreationTime :: Lens' SageMakerMonitoringSchedule (Maybe (Val Text)) -smmsCreationTime = lens _sageMakerMonitoringScheduleCreationTime (\s a -> s { _sageMakerMonitoringScheduleCreationTime = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-monitoringschedule.html#cfn-sagemaker-monitoringschedule-endpointname -smmsEndpointName :: Lens' SageMakerMonitoringSchedule (Maybe (Val Text)) -smmsEndpointName = lens _sageMakerMonitoringScheduleEndpointName (\s a -> s { _sageMakerMonitoringScheduleEndpointName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-monitoringschedule.html#cfn-sagemaker-monitoringschedule-failurereason -smmsFailureReason :: Lens' SageMakerMonitoringSchedule (Maybe (Val Text)) -smmsFailureReason = lens _sageMakerMonitoringScheduleFailureReason (\s a -> s { _sageMakerMonitoringScheduleFailureReason = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-monitoringschedule.html#cfn-sagemaker-monitoringschedule-lastmodifiedtime -smmsLastModifiedTime :: Lens' SageMakerMonitoringSchedule (Maybe (Val Text)) -smmsLastModifiedTime = lens _sageMakerMonitoringScheduleLastModifiedTime (\s a -> s { _sageMakerMonitoringScheduleLastModifiedTime = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-monitoringschedule.html#cfn-sagemaker-monitoringschedule-lastmonitoringexecutionsummary -smmsLastMonitoringExecutionSummary :: Lens' SageMakerMonitoringSchedule (Maybe SageMakerMonitoringScheduleMonitoringExecutionSummary) -smmsLastMonitoringExecutionSummary = lens _sageMakerMonitoringScheduleLastMonitoringExecutionSummary (\s a -> s { _sageMakerMonitoringScheduleLastMonitoringExecutionSummary = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-monitoringschedule.html#cfn-sagemaker-monitoringschedule-monitoringschedulearn -smmsMonitoringScheduleArn :: Lens' SageMakerMonitoringSchedule (Maybe (Val Text)) -smmsMonitoringScheduleArn = lens _sageMakerMonitoringScheduleMonitoringScheduleArn (\s a -> s { _sageMakerMonitoringScheduleMonitoringScheduleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-monitoringschedule.html#cfn-sagemaker-monitoringschedule-monitoringscheduleconfig -smmsMonitoringScheduleConfig :: Lens' SageMakerMonitoringSchedule SageMakerMonitoringScheduleMonitoringScheduleConfig -smmsMonitoringScheduleConfig = lens _sageMakerMonitoringScheduleMonitoringScheduleConfig (\s a -> s { _sageMakerMonitoringScheduleMonitoringScheduleConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-monitoringschedule.html#cfn-sagemaker-monitoringschedule-monitoringschedulename -smmsMonitoringScheduleName :: Lens' SageMakerMonitoringSchedule (Val Text) -smmsMonitoringScheduleName = lens _sageMakerMonitoringScheduleMonitoringScheduleName (\s a -> s { _sageMakerMonitoringScheduleMonitoringScheduleName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-monitoringschedule.html#cfn-sagemaker-monitoringschedule-monitoringschedulestatus -smmsMonitoringScheduleStatus :: Lens' SageMakerMonitoringSchedule (Maybe (Val Text)) -smmsMonitoringScheduleStatus = lens _sageMakerMonitoringScheduleMonitoringScheduleStatus (\s a -> s { _sageMakerMonitoringScheduleMonitoringScheduleStatus = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-monitoringschedule.html#cfn-sagemaker-monitoringschedule-tags -smmsTags :: Lens' SageMakerMonitoringSchedule (Maybe [Tag]) -smmsTags = lens _sageMakerMonitoringScheduleTags (\s a -> s { _sageMakerMonitoringScheduleTags = a }) diff --git a/library-gen/Stratosphere/Resources/SageMakerNotebookInstance.hs b/library-gen/Stratosphere/Resources/SageMakerNotebookInstance.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SageMakerNotebookInstance.hs +++ /dev/null @@ -1,134 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-notebookinstance.html - -module Stratosphere.Resources.SageMakerNotebookInstance where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for SageMakerNotebookInstance. See --- 'sageMakerNotebookInstance' for a more convenient constructor. -data SageMakerNotebookInstance = - SageMakerNotebookInstance - { _sageMakerNotebookInstanceAcceleratorTypes :: Maybe (ValList Text) - , _sageMakerNotebookInstanceAdditionalCodeRepositories :: Maybe (ValList Text) - , _sageMakerNotebookInstanceDefaultCodeRepository :: Maybe (Val Text) - , _sageMakerNotebookInstanceDirectInternetAccess :: Maybe (Val Text) - , _sageMakerNotebookInstanceInstanceType :: Val Text - , _sageMakerNotebookInstanceKmsKeyId :: Maybe (Val Text) - , _sageMakerNotebookInstanceLifecycleConfigName :: Maybe (Val Text) - , _sageMakerNotebookInstanceNotebookInstanceName :: Maybe (Val Text) - , _sageMakerNotebookInstanceRoleArn :: Val Text - , _sageMakerNotebookInstanceRootAccess :: Maybe (Val Text) - , _sageMakerNotebookInstanceSecurityGroupIds :: Maybe (ValList Text) - , _sageMakerNotebookInstanceSubnetId :: Maybe (Val Text) - , _sageMakerNotebookInstanceTags :: Maybe [Tag] - , _sageMakerNotebookInstanceVolumeSizeInGB :: Maybe (Val Integer) - } deriving (Show, Eq) - -instance ToResourceProperties SageMakerNotebookInstance where - toResourceProperties SageMakerNotebookInstance{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SageMaker::NotebookInstance" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AcceleratorTypes",) . toJSON) _sageMakerNotebookInstanceAcceleratorTypes - , fmap (("AdditionalCodeRepositories",) . toJSON) _sageMakerNotebookInstanceAdditionalCodeRepositories - , fmap (("DefaultCodeRepository",) . toJSON) _sageMakerNotebookInstanceDefaultCodeRepository - , fmap (("DirectInternetAccess",) . toJSON) _sageMakerNotebookInstanceDirectInternetAccess - , (Just . ("InstanceType",) . toJSON) _sageMakerNotebookInstanceInstanceType - , fmap (("KmsKeyId",) . toJSON) _sageMakerNotebookInstanceKmsKeyId - , fmap (("LifecycleConfigName",) . toJSON) _sageMakerNotebookInstanceLifecycleConfigName - , fmap (("NotebookInstanceName",) . toJSON) _sageMakerNotebookInstanceNotebookInstanceName - , (Just . ("RoleArn",) . toJSON) _sageMakerNotebookInstanceRoleArn - , fmap (("RootAccess",) . toJSON) _sageMakerNotebookInstanceRootAccess - , fmap (("SecurityGroupIds",) . toJSON) _sageMakerNotebookInstanceSecurityGroupIds - , fmap (("SubnetId",) . toJSON) _sageMakerNotebookInstanceSubnetId - , fmap (("Tags",) . toJSON) _sageMakerNotebookInstanceTags - , fmap (("VolumeSizeInGB",) . toJSON) _sageMakerNotebookInstanceVolumeSizeInGB - ] - } - --- | Constructor for 'SageMakerNotebookInstance' containing required fields as --- arguments. -sageMakerNotebookInstance - :: Val Text -- ^ 'smniInstanceType' - -> Val Text -- ^ 'smniRoleArn' - -> SageMakerNotebookInstance -sageMakerNotebookInstance instanceTypearg roleArnarg = - SageMakerNotebookInstance - { _sageMakerNotebookInstanceAcceleratorTypes = Nothing - , _sageMakerNotebookInstanceAdditionalCodeRepositories = Nothing - , _sageMakerNotebookInstanceDefaultCodeRepository = Nothing - , _sageMakerNotebookInstanceDirectInternetAccess = Nothing - , _sageMakerNotebookInstanceInstanceType = instanceTypearg - , _sageMakerNotebookInstanceKmsKeyId = Nothing - , _sageMakerNotebookInstanceLifecycleConfigName = Nothing - , _sageMakerNotebookInstanceNotebookInstanceName = Nothing - , _sageMakerNotebookInstanceRoleArn = roleArnarg - , _sageMakerNotebookInstanceRootAccess = Nothing - , _sageMakerNotebookInstanceSecurityGroupIds = Nothing - , _sageMakerNotebookInstanceSubnetId = Nothing - , _sageMakerNotebookInstanceTags = Nothing - , _sageMakerNotebookInstanceVolumeSizeInGB = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-notebookinstance.html#cfn-sagemaker-notebookinstance-acceleratortypes -smniAcceleratorTypes :: Lens' SageMakerNotebookInstance (Maybe (ValList Text)) -smniAcceleratorTypes = lens _sageMakerNotebookInstanceAcceleratorTypes (\s a -> s { _sageMakerNotebookInstanceAcceleratorTypes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-notebookinstance.html#cfn-sagemaker-notebookinstance-additionalcoderepositories -smniAdditionalCodeRepositories :: Lens' SageMakerNotebookInstance (Maybe (ValList Text)) -smniAdditionalCodeRepositories = lens _sageMakerNotebookInstanceAdditionalCodeRepositories (\s a -> s { _sageMakerNotebookInstanceAdditionalCodeRepositories = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-notebookinstance.html#cfn-sagemaker-notebookinstance-defaultcoderepository -smniDefaultCodeRepository :: Lens' SageMakerNotebookInstance (Maybe (Val Text)) -smniDefaultCodeRepository = lens _sageMakerNotebookInstanceDefaultCodeRepository (\s a -> s { _sageMakerNotebookInstanceDefaultCodeRepository = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-notebookinstance.html#cfn-sagemaker-notebookinstance-directinternetaccess -smniDirectInternetAccess :: Lens' SageMakerNotebookInstance (Maybe (Val Text)) -smniDirectInternetAccess = lens _sageMakerNotebookInstanceDirectInternetAccess (\s a -> s { _sageMakerNotebookInstanceDirectInternetAccess = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-notebookinstance.html#cfn-sagemaker-notebookinstance-instancetype -smniInstanceType :: Lens' SageMakerNotebookInstance (Val Text) -smniInstanceType = lens _sageMakerNotebookInstanceInstanceType (\s a -> s { _sageMakerNotebookInstanceInstanceType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-notebookinstance.html#cfn-sagemaker-notebookinstance-kmskeyid -smniKmsKeyId :: Lens' SageMakerNotebookInstance (Maybe (Val Text)) -smniKmsKeyId = lens _sageMakerNotebookInstanceKmsKeyId (\s a -> s { _sageMakerNotebookInstanceKmsKeyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-notebookinstance.html#cfn-sagemaker-notebookinstance-lifecycleconfigname -smniLifecycleConfigName :: Lens' SageMakerNotebookInstance (Maybe (Val Text)) -smniLifecycleConfigName = lens _sageMakerNotebookInstanceLifecycleConfigName (\s a -> s { _sageMakerNotebookInstanceLifecycleConfigName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-notebookinstance.html#cfn-sagemaker-notebookinstance-notebookinstancename -smniNotebookInstanceName :: Lens' SageMakerNotebookInstance (Maybe (Val Text)) -smniNotebookInstanceName = lens _sageMakerNotebookInstanceNotebookInstanceName (\s a -> s { _sageMakerNotebookInstanceNotebookInstanceName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-notebookinstance.html#cfn-sagemaker-notebookinstance-rolearn -smniRoleArn :: Lens' SageMakerNotebookInstance (Val Text) -smniRoleArn = lens _sageMakerNotebookInstanceRoleArn (\s a -> s { _sageMakerNotebookInstanceRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-notebookinstance.html#cfn-sagemaker-notebookinstance-rootaccess -smniRootAccess :: Lens' SageMakerNotebookInstance (Maybe (Val Text)) -smniRootAccess = lens _sageMakerNotebookInstanceRootAccess (\s a -> s { _sageMakerNotebookInstanceRootAccess = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-notebookinstance.html#cfn-sagemaker-notebookinstance-securitygroupids -smniSecurityGroupIds :: Lens' SageMakerNotebookInstance (Maybe (ValList Text)) -smniSecurityGroupIds = lens _sageMakerNotebookInstanceSecurityGroupIds (\s a -> s { _sageMakerNotebookInstanceSecurityGroupIds = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-notebookinstance.html#cfn-sagemaker-notebookinstance-subnetid -smniSubnetId :: Lens' SageMakerNotebookInstance (Maybe (Val Text)) -smniSubnetId = lens _sageMakerNotebookInstanceSubnetId (\s a -> s { _sageMakerNotebookInstanceSubnetId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-notebookinstance.html#cfn-sagemaker-notebookinstance-tags -smniTags :: Lens' SageMakerNotebookInstance (Maybe [Tag]) -smniTags = lens _sageMakerNotebookInstanceTags (\s a -> s { _sageMakerNotebookInstanceTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-notebookinstance.html#cfn-sagemaker-notebookinstance-volumesizeingb -smniVolumeSizeInGB :: Lens' SageMakerNotebookInstance (Maybe (Val Integer)) -smniVolumeSizeInGB = lens _sageMakerNotebookInstanceVolumeSizeInGB (\s a -> s { _sageMakerNotebookInstanceVolumeSizeInGB = a }) diff --git a/library-gen/Stratosphere/Resources/SageMakerNotebookInstanceLifecycleConfig.hs b/library-gen/Stratosphere/Resources/SageMakerNotebookInstanceLifecycleConfig.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SageMakerNotebookInstanceLifecycleConfig.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-notebookinstancelifecycleconfig.html - -module Stratosphere.Resources.SageMakerNotebookInstanceLifecycleConfig where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook - --- | Full data type definition for SageMakerNotebookInstanceLifecycleConfig. --- See 'sageMakerNotebookInstanceLifecycleConfig' for a more convenient --- constructor. -data SageMakerNotebookInstanceLifecycleConfig = - SageMakerNotebookInstanceLifecycleConfig - { _sageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleConfigName :: Maybe (Val Text) - , _sageMakerNotebookInstanceLifecycleConfigOnCreate :: Maybe [SageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook] - , _sageMakerNotebookInstanceLifecycleConfigOnStart :: Maybe [SageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook] - } deriving (Show, Eq) - -instance ToResourceProperties SageMakerNotebookInstanceLifecycleConfig where - toResourceProperties SageMakerNotebookInstanceLifecycleConfig{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SageMaker::NotebookInstanceLifecycleConfig" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("NotebookInstanceLifecycleConfigName",) . toJSON) _sageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleConfigName - , fmap (("OnCreate",) . toJSON) _sageMakerNotebookInstanceLifecycleConfigOnCreate - , fmap (("OnStart",) . toJSON) _sageMakerNotebookInstanceLifecycleConfigOnStart - ] - } - --- | Constructor for 'SageMakerNotebookInstanceLifecycleConfig' containing --- required fields as arguments. -sageMakerNotebookInstanceLifecycleConfig - :: SageMakerNotebookInstanceLifecycleConfig -sageMakerNotebookInstanceLifecycleConfig = - SageMakerNotebookInstanceLifecycleConfig - { _sageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleConfigName = Nothing - , _sageMakerNotebookInstanceLifecycleConfigOnCreate = Nothing - , _sageMakerNotebookInstanceLifecycleConfigOnStart = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-notebookinstancelifecycleconfig.html#cfn-sagemaker-notebookinstancelifecycleconfig-notebookinstancelifecycleconfigname -smnilcNotebookInstanceLifecycleConfigName :: Lens' SageMakerNotebookInstanceLifecycleConfig (Maybe (Val Text)) -smnilcNotebookInstanceLifecycleConfigName = lens _sageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleConfigName (\s a -> s { _sageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleConfigName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-notebookinstancelifecycleconfig.html#cfn-sagemaker-notebookinstancelifecycleconfig-oncreate -smnilcOnCreate :: Lens' SageMakerNotebookInstanceLifecycleConfig (Maybe [SageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook]) -smnilcOnCreate = lens _sageMakerNotebookInstanceLifecycleConfigOnCreate (\s a -> s { _sageMakerNotebookInstanceLifecycleConfigOnCreate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-notebookinstancelifecycleconfig.html#cfn-sagemaker-notebookinstancelifecycleconfig-onstart -smnilcOnStart :: Lens' SageMakerNotebookInstanceLifecycleConfig (Maybe [SageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook]) -smnilcOnStart = lens _sageMakerNotebookInstanceLifecycleConfigOnStart (\s a -> s { _sageMakerNotebookInstanceLifecycleConfigOnStart = a }) diff --git a/library-gen/Stratosphere/Resources/SageMakerWorkteam.hs b/library-gen/Stratosphere/Resources/SageMakerWorkteam.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SageMakerWorkteam.hs +++ /dev/null @@ -1,71 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-workteam.html - -module Stratosphere.Resources.SageMakerWorkteam where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SageMakerWorkteamMemberDefinition -import Stratosphere.ResourceProperties.SageMakerWorkteamNotificationConfiguration -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for SageMakerWorkteam. See 'sageMakerWorkteam' --- for a more convenient constructor. -data SageMakerWorkteam = - SageMakerWorkteam - { _sageMakerWorkteamDescription :: Maybe (Val Text) - , _sageMakerWorkteamMemberDefinitions :: Maybe [SageMakerWorkteamMemberDefinition] - , _sageMakerWorkteamNotificationConfiguration :: Maybe SageMakerWorkteamNotificationConfiguration - , _sageMakerWorkteamTags :: Maybe [Tag] - , _sageMakerWorkteamWorkteamName :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties SageMakerWorkteam where - toResourceProperties SageMakerWorkteam{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SageMaker::Workteam" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _sageMakerWorkteamDescription - , fmap (("MemberDefinitions",) . toJSON) _sageMakerWorkteamMemberDefinitions - , fmap (("NotificationConfiguration",) . toJSON) _sageMakerWorkteamNotificationConfiguration - , fmap (("Tags",) . toJSON) _sageMakerWorkteamTags - , fmap (("WorkteamName",) . toJSON) _sageMakerWorkteamWorkteamName - ] - } - --- | Constructor for 'SageMakerWorkteam' containing required fields as --- arguments. -sageMakerWorkteam - :: SageMakerWorkteam -sageMakerWorkteam = - SageMakerWorkteam - { _sageMakerWorkteamDescription = Nothing - , _sageMakerWorkteamMemberDefinitions = Nothing - , _sageMakerWorkteamNotificationConfiguration = Nothing - , _sageMakerWorkteamTags = Nothing - , _sageMakerWorkteamWorkteamName = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-workteam.html#cfn-sagemaker-workteam-description -smwDescription :: Lens' SageMakerWorkteam (Maybe (Val Text)) -smwDescription = lens _sageMakerWorkteamDescription (\s a -> s { _sageMakerWorkteamDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-workteam.html#cfn-sagemaker-workteam-memberdefinitions -smwMemberDefinitions :: Lens' SageMakerWorkteam (Maybe [SageMakerWorkteamMemberDefinition]) -smwMemberDefinitions = lens _sageMakerWorkteamMemberDefinitions (\s a -> s { _sageMakerWorkteamMemberDefinitions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-workteam.html#cfn-sagemaker-workteam-notificationconfiguration -smwNotificationConfiguration :: Lens' SageMakerWorkteam (Maybe SageMakerWorkteamNotificationConfiguration) -smwNotificationConfiguration = lens _sageMakerWorkteamNotificationConfiguration (\s a -> s { _sageMakerWorkteamNotificationConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-workteam.html#cfn-sagemaker-workteam-tags -smwTags :: Lens' SageMakerWorkteam (Maybe [Tag]) -smwTags = lens _sageMakerWorkteamTags (\s a -> s { _sageMakerWorkteamTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-workteam.html#cfn-sagemaker-workteam-workteamname -smwWorkteamName :: Lens' SageMakerWorkteam (Maybe (Val Text)) -smwWorkteamName = lens _sageMakerWorkteamWorkteamName (\s a -> s { _sageMakerWorkteamWorkteamName = a }) diff --git a/library-gen/Stratosphere/Resources/SecretsManagerResourcePolicy.hs b/library-gen/Stratosphere/Resources/SecretsManagerResourcePolicy.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SecretsManagerResourcePolicy.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-resourcepolicy.html - -module Stratosphere.Resources.SecretsManagerResourcePolicy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SecretsManagerResourcePolicy. See --- 'secretsManagerResourcePolicy' for a more convenient constructor. -data SecretsManagerResourcePolicy = - SecretsManagerResourcePolicy - { _secretsManagerResourcePolicyResourcePolicy :: Object - , _secretsManagerResourcePolicySecretId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties SecretsManagerResourcePolicy where - toResourceProperties SecretsManagerResourcePolicy{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SecretsManager::ResourcePolicy" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ResourcePolicy",) . toJSON) _secretsManagerResourcePolicyResourcePolicy - , (Just . ("SecretId",) . toJSON) _secretsManagerResourcePolicySecretId - ] - } - --- | Constructor for 'SecretsManagerResourcePolicy' containing required fields --- as arguments. -secretsManagerResourcePolicy - :: Object -- ^ 'smrpResourcePolicy' - -> Val Text -- ^ 'smrpSecretId' - -> SecretsManagerResourcePolicy -secretsManagerResourcePolicy resourcePolicyarg secretIdarg = - SecretsManagerResourcePolicy - { _secretsManagerResourcePolicyResourcePolicy = resourcePolicyarg - , _secretsManagerResourcePolicySecretId = secretIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-resourcepolicy.html#cfn-secretsmanager-resourcepolicy-resourcepolicy -smrpResourcePolicy :: Lens' SecretsManagerResourcePolicy Object -smrpResourcePolicy = lens _secretsManagerResourcePolicyResourcePolicy (\s a -> s { _secretsManagerResourcePolicyResourcePolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-resourcepolicy.html#cfn-secretsmanager-resourcepolicy-secretid -smrpSecretId :: Lens' SecretsManagerResourcePolicy (Val Text) -smrpSecretId = lens _secretsManagerResourcePolicySecretId (\s a -> s { _secretsManagerResourcePolicySecretId = a }) diff --git a/library-gen/Stratosphere/Resources/SecretsManagerRotationSchedule.hs b/library-gen/Stratosphere/Resources/SecretsManagerRotationSchedule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SecretsManagerRotationSchedule.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-rotationschedule.html - -module Stratosphere.Resources.SecretsManagerRotationSchedule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SecretsManagerRotationScheduleHostedRotationLambda -import Stratosphere.ResourceProperties.SecretsManagerRotationScheduleRotationRules - --- | Full data type definition for SecretsManagerRotationSchedule. See --- 'secretsManagerRotationSchedule' for a more convenient constructor. -data SecretsManagerRotationSchedule = - SecretsManagerRotationSchedule - { _secretsManagerRotationScheduleHostedRotationLambda :: Maybe SecretsManagerRotationScheduleHostedRotationLambda - , _secretsManagerRotationScheduleRotationLambdaARN :: Maybe (Val Text) - , _secretsManagerRotationScheduleRotationRules :: Maybe SecretsManagerRotationScheduleRotationRules - , _secretsManagerRotationScheduleSecretId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties SecretsManagerRotationSchedule where - toResourceProperties SecretsManagerRotationSchedule{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SecretsManager::RotationSchedule" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("HostedRotationLambda",) . toJSON) _secretsManagerRotationScheduleHostedRotationLambda - , fmap (("RotationLambdaARN",) . toJSON) _secretsManagerRotationScheduleRotationLambdaARN - , fmap (("RotationRules",) . toJSON) _secretsManagerRotationScheduleRotationRules - , (Just . ("SecretId",) . toJSON) _secretsManagerRotationScheduleSecretId - ] - } - --- | Constructor for 'SecretsManagerRotationSchedule' containing required --- fields as arguments. -secretsManagerRotationSchedule - :: Val Text -- ^ 'smrsSecretId' - -> SecretsManagerRotationSchedule -secretsManagerRotationSchedule secretIdarg = - SecretsManagerRotationSchedule - { _secretsManagerRotationScheduleHostedRotationLambda = Nothing - , _secretsManagerRotationScheduleRotationLambdaARN = Nothing - , _secretsManagerRotationScheduleRotationRules = Nothing - , _secretsManagerRotationScheduleSecretId = secretIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-rotationschedule.html#cfn-secretsmanager-rotationschedule-hostedrotationlambda -smrsHostedRotationLambda :: Lens' SecretsManagerRotationSchedule (Maybe SecretsManagerRotationScheduleHostedRotationLambda) -smrsHostedRotationLambda = lens _secretsManagerRotationScheduleHostedRotationLambda (\s a -> s { _secretsManagerRotationScheduleHostedRotationLambda = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-rotationschedule.html#cfn-secretsmanager-rotationschedule-rotationlambdaarn -smrsRotationLambdaARN :: Lens' SecretsManagerRotationSchedule (Maybe (Val Text)) -smrsRotationLambdaARN = lens _secretsManagerRotationScheduleRotationLambdaARN (\s a -> s { _secretsManagerRotationScheduleRotationLambdaARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-rotationschedule.html#cfn-secretsmanager-rotationschedule-rotationrules -smrsRotationRules :: Lens' SecretsManagerRotationSchedule (Maybe SecretsManagerRotationScheduleRotationRules) -smrsRotationRules = lens _secretsManagerRotationScheduleRotationRules (\s a -> s { _secretsManagerRotationScheduleRotationRules = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-rotationschedule.html#cfn-secretsmanager-rotationschedule-secretid -smrsSecretId :: Lens' SecretsManagerRotationSchedule (Val Text) -smrsSecretId = lens _secretsManagerRotationScheduleSecretId (\s a -> s { _secretsManagerRotationScheduleSecretId = a }) diff --git a/library-gen/Stratosphere/Resources/SecretsManagerSecret.hs b/library-gen/Stratosphere/Resources/SecretsManagerSecret.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SecretsManagerSecret.hs +++ /dev/null @@ -1,77 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-secret.html - -module Stratosphere.Resources.SecretsManagerSecret where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SecretsManagerSecretGenerateSecretString -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for SecretsManagerSecret. See --- 'secretsManagerSecret' for a more convenient constructor. -data SecretsManagerSecret = - SecretsManagerSecret - { _secretsManagerSecretDescription :: Maybe (Val Text) - , _secretsManagerSecretGenerateSecretString :: Maybe SecretsManagerSecretGenerateSecretString - , _secretsManagerSecretKmsKeyId :: Maybe (Val Text) - , _secretsManagerSecretName :: Maybe (Val Text) - , _secretsManagerSecretSecretString :: Maybe (Val Text) - , _secretsManagerSecretTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties SecretsManagerSecret where - toResourceProperties SecretsManagerSecret{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SecretsManager::Secret" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _secretsManagerSecretDescription - , fmap (("GenerateSecretString",) . toJSON) _secretsManagerSecretGenerateSecretString - , fmap (("KmsKeyId",) . toJSON) _secretsManagerSecretKmsKeyId - , fmap (("Name",) . toJSON) _secretsManagerSecretName - , fmap (("SecretString",) . toJSON) _secretsManagerSecretSecretString - , fmap (("Tags",) . toJSON) _secretsManagerSecretTags - ] - } - --- | Constructor for 'SecretsManagerSecret' containing required fields as --- arguments. -secretsManagerSecret - :: SecretsManagerSecret -secretsManagerSecret = - SecretsManagerSecret - { _secretsManagerSecretDescription = Nothing - , _secretsManagerSecretGenerateSecretString = Nothing - , _secretsManagerSecretKmsKeyId = Nothing - , _secretsManagerSecretName = Nothing - , _secretsManagerSecretSecretString = Nothing - , _secretsManagerSecretTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-secret.html#cfn-secretsmanager-secret-description -smsDescription :: Lens' SecretsManagerSecret (Maybe (Val Text)) -smsDescription = lens _secretsManagerSecretDescription (\s a -> s { _secretsManagerSecretDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-secret.html#cfn-secretsmanager-secret-generatesecretstring -smsGenerateSecretString :: Lens' SecretsManagerSecret (Maybe SecretsManagerSecretGenerateSecretString) -smsGenerateSecretString = lens _secretsManagerSecretGenerateSecretString (\s a -> s { _secretsManagerSecretGenerateSecretString = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-secret.html#cfn-secretsmanager-secret-kmskeyid -smsKmsKeyId :: Lens' SecretsManagerSecret (Maybe (Val Text)) -smsKmsKeyId = lens _secretsManagerSecretKmsKeyId (\s a -> s { _secretsManagerSecretKmsKeyId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-secret.html#cfn-secretsmanager-secret-name -smsName :: Lens' SecretsManagerSecret (Maybe (Val Text)) -smsName = lens _secretsManagerSecretName (\s a -> s { _secretsManagerSecretName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-secret.html#cfn-secretsmanager-secret-secretstring -smsSecretString :: Lens' SecretsManagerSecret (Maybe (Val Text)) -smsSecretString = lens _secretsManagerSecretSecretString (\s a -> s { _secretsManagerSecretSecretString = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-secret.html#cfn-secretsmanager-secret-tags -smsTags :: Lens' SecretsManagerSecret (Maybe [Tag]) -smsTags = lens _secretsManagerSecretTags (\s a -> s { _secretsManagerSecretTags = a }) diff --git a/library-gen/Stratosphere/Resources/SecretsManagerSecretTargetAttachment.hs b/library-gen/Stratosphere/Resources/SecretsManagerSecretTargetAttachment.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SecretsManagerSecretTargetAttachment.hs +++ /dev/null @@ -1,58 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-secrettargetattachment.html - -module Stratosphere.Resources.SecretsManagerSecretTargetAttachment where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SecretsManagerSecretTargetAttachment. See --- 'secretsManagerSecretTargetAttachment' for a more convenient constructor. -data SecretsManagerSecretTargetAttachment = - SecretsManagerSecretTargetAttachment - { _secretsManagerSecretTargetAttachmentSecretId :: Val Text - , _secretsManagerSecretTargetAttachmentTargetId :: Val Text - , _secretsManagerSecretTargetAttachmentTargetType :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties SecretsManagerSecretTargetAttachment where - toResourceProperties SecretsManagerSecretTargetAttachment{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SecretsManager::SecretTargetAttachment" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("SecretId",) . toJSON) _secretsManagerSecretTargetAttachmentSecretId - , (Just . ("TargetId",) . toJSON) _secretsManagerSecretTargetAttachmentTargetId - , (Just . ("TargetType",) . toJSON) _secretsManagerSecretTargetAttachmentTargetType - ] - } - --- | Constructor for 'SecretsManagerSecretTargetAttachment' containing --- required fields as arguments. -secretsManagerSecretTargetAttachment - :: Val Text -- ^ 'smstaSecretId' - -> Val Text -- ^ 'smstaTargetId' - -> Val Text -- ^ 'smstaTargetType' - -> SecretsManagerSecretTargetAttachment -secretsManagerSecretTargetAttachment secretIdarg targetIdarg targetTypearg = - SecretsManagerSecretTargetAttachment - { _secretsManagerSecretTargetAttachmentSecretId = secretIdarg - , _secretsManagerSecretTargetAttachmentTargetId = targetIdarg - , _secretsManagerSecretTargetAttachmentTargetType = targetTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-secrettargetattachment.html#cfn-secretsmanager-secrettargetattachment-secretid -smstaSecretId :: Lens' SecretsManagerSecretTargetAttachment (Val Text) -smstaSecretId = lens _secretsManagerSecretTargetAttachmentSecretId (\s a -> s { _secretsManagerSecretTargetAttachmentSecretId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-secrettargetattachment.html#cfn-secretsmanager-secrettargetattachment-targetid -smstaTargetId :: Lens' SecretsManagerSecretTargetAttachment (Val Text) -smstaTargetId = lens _secretsManagerSecretTargetAttachmentTargetId (\s a -> s { _secretsManagerSecretTargetAttachmentTargetId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-secretsmanager-secrettargetattachment.html#cfn-secretsmanager-secrettargetattachment-targettype -smstaTargetType :: Lens' SecretsManagerSecretTargetAttachment (Val Text) -smstaTargetType = lens _secretsManagerSecretTargetAttachmentTargetType (\s a -> s { _secretsManagerSecretTargetAttachmentTargetType = a }) diff --git a/library-gen/Stratosphere/Resources/SecurityHubHub.hs b/library-gen/Stratosphere/Resources/SecurityHubHub.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SecurityHubHub.hs +++ /dev/null @@ -1,40 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-securityhub-hub.html - -module Stratosphere.Resources.SecurityHubHub where - -import Stratosphere.ResourceImports - - --- | Full data type definition for SecurityHubHub. See 'securityHubHub' for a --- more convenient constructor. -data SecurityHubHub = - SecurityHubHub - { _securityHubHubTags :: Maybe Object - } deriving (Show, Eq) - -instance ToResourceProperties SecurityHubHub where - toResourceProperties SecurityHubHub{..} = - ResourceProperties - { resourcePropertiesType = "AWS::SecurityHub::Hub" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Tags",) . toJSON) _securityHubHubTags - ] - } - --- | Constructor for 'SecurityHubHub' containing required fields as arguments. -securityHubHub - :: SecurityHubHub -securityHubHub = - SecurityHubHub - { _securityHubHubTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-securityhub-hub.html#cfn-securityhub-hub-tags -shhTags :: Lens' SecurityHubHub (Maybe Object) -shhTags = lens _securityHubHubTags (\s a -> s { _securityHubHubTags = a }) diff --git a/library-gen/Stratosphere/Resources/ServiceCatalogAcceptedPortfolioShare.hs b/library-gen/Stratosphere/Resources/ServiceCatalogAcceptedPortfolioShare.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ServiceCatalogAcceptedPortfolioShare.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-acceptedportfolioshare.html - -module Stratosphere.Resources.ServiceCatalogAcceptedPortfolioShare where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ServiceCatalogAcceptedPortfolioShare. See --- 'serviceCatalogAcceptedPortfolioShare' for a more convenient constructor. -data ServiceCatalogAcceptedPortfolioShare = - ServiceCatalogAcceptedPortfolioShare - { _serviceCatalogAcceptedPortfolioShareAcceptLanguage :: Maybe (Val Text) - , _serviceCatalogAcceptedPortfolioSharePortfolioId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties ServiceCatalogAcceptedPortfolioShare where - toResourceProperties ServiceCatalogAcceptedPortfolioShare{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ServiceCatalog::AcceptedPortfolioShare" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AcceptLanguage",) . toJSON) _serviceCatalogAcceptedPortfolioShareAcceptLanguage - , (Just . ("PortfolioId",) . toJSON) _serviceCatalogAcceptedPortfolioSharePortfolioId - ] - } - --- | Constructor for 'ServiceCatalogAcceptedPortfolioShare' containing --- required fields as arguments. -serviceCatalogAcceptedPortfolioShare - :: Val Text -- ^ 'scapsPortfolioId' - -> ServiceCatalogAcceptedPortfolioShare -serviceCatalogAcceptedPortfolioShare portfolioIdarg = - ServiceCatalogAcceptedPortfolioShare - { _serviceCatalogAcceptedPortfolioShareAcceptLanguage = Nothing - , _serviceCatalogAcceptedPortfolioSharePortfolioId = portfolioIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-acceptedportfolioshare.html#cfn-servicecatalog-acceptedportfolioshare-acceptlanguage -scapsAcceptLanguage :: Lens' ServiceCatalogAcceptedPortfolioShare (Maybe (Val Text)) -scapsAcceptLanguage = lens _serviceCatalogAcceptedPortfolioShareAcceptLanguage (\s a -> s { _serviceCatalogAcceptedPortfolioShareAcceptLanguage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-acceptedportfolioshare.html#cfn-servicecatalog-acceptedportfolioshare-portfolioid -scapsPortfolioId :: Lens' ServiceCatalogAcceptedPortfolioShare (Val Text) -scapsPortfolioId = lens _serviceCatalogAcceptedPortfolioSharePortfolioId (\s a -> s { _serviceCatalogAcceptedPortfolioSharePortfolioId = a }) diff --git a/library-gen/Stratosphere/Resources/ServiceCatalogCloudFormationProduct.hs b/library-gen/Stratosphere/Resources/ServiceCatalogCloudFormationProduct.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ServiceCatalogCloudFormationProduct.hs +++ /dev/null @@ -1,115 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-cloudformationproduct.html - -module Stratosphere.Resources.ServiceCatalogCloudFormationProduct where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ServiceCatalogCloudFormationProductProvisioningArtifactProperties -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for ServiceCatalogCloudFormationProduct. See --- 'serviceCatalogCloudFormationProduct' for a more convenient constructor. -data ServiceCatalogCloudFormationProduct = - ServiceCatalogCloudFormationProduct - { _serviceCatalogCloudFormationProductAcceptLanguage :: Maybe (Val Text) - , _serviceCatalogCloudFormationProductDescription :: Maybe (Val Text) - , _serviceCatalogCloudFormationProductDistributor :: Maybe (Val Text) - , _serviceCatalogCloudFormationProductName :: Val Text - , _serviceCatalogCloudFormationProductOwner :: Val Text - , _serviceCatalogCloudFormationProductProvisioningArtifactParameters :: [ServiceCatalogCloudFormationProductProvisioningArtifactProperties] - , _serviceCatalogCloudFormationProductReplaceProvisioningArtifacts :: Maybe (Val Bool) - , _serviceCatalogCloudFormationProductSupportDescription :: Maybe (Val Text) - , _serviceCatalogCloudFormationProductSupportEmail :: Maybe (Val Text) - , _serviceCatalogCloudFormationProductSupportUrl :: Maybe (Val Text) - , _serviceCatalogCloudFormationProductTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties ServiceCatalogCloudFormationProduct where - toResourceProperties ServiceCatalogCloudFormationProduct{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ServiceCatalog::CloudFormationProduct" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AcceptLanguage",) . toJSON) _serviceCatalogCloudFormationProductAcceptLanguage - , fmap (("Description",) . toJSON) _serviceCatalogCloudFormationProductDescription - , fmap (("Distributor",) . toJSON) _serviceCatalogCloudFormationProductDistributor - , (Just . ("Name",) . toJSON) _serviceCatalogCloudFormationProductName - , (Just . ("Owner",) . toJSON) _serviceCatalogCloudFormationProductOwner - , (Just . ("ProvisioningArtifactParameters",) . toJSON) _serviceCatalogCloudFormationProductProvisioningArtifactParameters - , fmap (("ReplaceProvisioningArtifacts",) . toJSON) _serviceCatalogCloudFormationProductReplaceProvisioningArtifacts - , fmap (("SupportDescription",) . toJSON) _serviceCatalogCloudFormationProductSupportDescription - , fmap (("SupportEmail",) . toJSON) _serviceCatalogCloudFormationProductSupportEmail - , fmap (("SupportUrl",) . toJSON) _serviceCatalogCloudFormationProductSupportUrl - , fmap (("Tags",) . toJSON) _serviceCatalogCloudFormationProductTags - ] - } - --- | Constructor for 'ServiceCatalogCloudFormationProduct' containing required --- fields as arguments. -serviceCatalogCloudFormationProduct - :: Val Text -- ^ 'sccfpName' - -> Val Text -- ^ 'sccfpOwner' - -> [ServiceCatalogCloudFormationProductProvisioningArtifactProperties] -- ^ 'sccfpProvisioningArtifactParameters' - -> ServiceCatalogCloudFormationProduct -serviceCatalogCloudFormationProduct namearg ownerarg provisioningArtifactParametersarg = - ServiceCatalogCloudFormationProduct - { _serviceCatalogCloudFormationProductAcceptLanguage = Nothing - , _serviceCatalogCloudFormationProductDescription = Nothing - , _serviceCatalogCloudFormationProductDistributor = Nothing - , _serviceCatalogCloudFormationProductName = namearg - , _serviceCatalogCloudFormationProductOwner = ownerarg - , _serviceCatalogCloudFormationProductProvisioningArtifactParameters = provisioningArtifactParametersarg - , _serviceCatalogCloudFormationProductReplaceProvisioningArtifacts = Nothing - , _serviceCatalogCloudFormationProductSupportDescription = Nothing - , _serviceCatalogCloudFormationProductSupportEmail = Nothing - , _serviceCatalogCloudFormationProductSupportUrl = Nothing - , _serviceCatalogCloudFormationProductTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-cloudformationproduct.html#cfn-servicecatalog-cloudformationproduct-acceptlanguage -sccfpAcceptLanguage :: Lens' ServiceCatalogCloudFormationProduct (Maybe (Val Text)) -sccfpAcceptLanguage = lens _serviceCatalogCloudFormationProductAcceptLanguage (\s a -> s { _serviceCatalogCloudFormationProductAcceptLanguage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-cloudformationproduct.html#cfn-servicecatalog-cloudformationproduct-description -sccfpDescription :: Lens' ServiceCatalogCloudFormationProduct (Maybe (Val Text)) -sccfpDescription = lens _serviceCatalogCloudFormationProductDescription (\s a -> s { _serviceCatalogCloudFormationProductDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-cloudformationproduct.html#cfn-servicecatalog-cloudformationproduct-distributor -sccfpDistributor :: Lens' ServiceCatalogCloudFormationProduct (Maybe (Val Text)) -sccfpDistributor = lens _serviceCatalogCloudFormationProductDistributor (\s a -> s { _serviceCatalogCloudFormationProductDistributor = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-cloudformationproduct.html#cfn-servicecatalog-cloudformationproduct-name -sccfpName :: Lens' ServiceCatalogCloudFormationProduct (Val Text) -sccfpName = lens _serviceCatalogCloudFormationProductName (\s a -> s { _serviceCatalogCloudFormationProductName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-cloudformationproduct.html#cfn-servicecatalog-cloudformationproduct-owner -sccfpOwner :: Lens' ServiceCatalogCloudFormationProduct (Val Text) -sccfpOwner = lens _serviceCatalogCloudFormationProductOwner (\s a -> s { _serviceCatalogCloudFormationProductOwner = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-cloudformationproduct.html#cfn-servicecatalog-cloudformationproduct-provisioningartifactparameters -sccfpProvisioningArtifactParameters :: Lens' ServiceCatalogCloudFormationProduct [ServiceCatalogCloudFormationProductProvisioningArtifactProperties] -sccfpProvisioningArtifactParameters = lens _serviceCatalogCloudFormationProductProvisioningArtifactParameters (\s a -> s { _serviceCatalogCloudFormationProductProvisioningArtifactParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-cloudformationproduct.html#cfn-servicecatalog-cloudformationproduct-replaceprovisioningartifacts -sccfpReplaceProvisioningArtifacts :: Lens' ServiceCatalogCloudFormationProduct (Maybe (Val Bool)) -sccfpReplaceProvisioningArtifacts = lens _serviceCatalogCloudFormationProductReplaceProvisioningArtifacts (\s a -> s { _serviceCatalogCloudFormationProductReplaceProvisioningArtifacts = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-cloudformationproduct.html#cfn-servicecatalog-cloudformationproduct-supportdescription -sccfpSupportDescription :: Lens' ServiceCatalogCloudFormationProduct (Maybe (Val Text)) -sccfpSupportDescription = lens _serviceCatalogCloudFormationProductSupportDescription (\s a -> s { _serviceCatalogCloudFormationProductSupportDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-cloudformationproduct.html#cfn-servicecatalog-cloudformationproduct-supportemail -sccfpSupportEmail :: Lens' ServiceCatalogCloudFormationProduct (Maybe (Val Text)) -sccfpSupportEmail = lens _serviceCatalogCloudFormationProductSupportEmail (\s a -> s { _serviceCatalogCloudFormationProductSupportEmail = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-cloudformationproduct.html#cfn-servicecatalog-cloudformationproduct-supporturl -sccfpSupportUrl :: Lens' ServiceCatalogCloudFormationProduct (Maybe (Val Text)) -sccfpSupportUrl = lens _serviceCatalogCloudFormationProductSupportUrl (\s a -> s { _serviceCatalogCloudFormationProductSupportUrl = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-cloudformationproduct.html#cfn-servicecatalog-cloudformationproduct-tags -sccfpTags :: Lens' ServiceCatalogCloudFormationProduct (Maybe [Tag]) -sccfpTags = lens _serviceCatalogCloudFormationProductTags (\s a -> s { _serviceCatalogCloudFormationProductTags = a }) diff --git a/library-gen/Stratosphere/Resources/ServiceCatalogCloudFormationProvisionedProduct.hs b/library-gen/Stratosphere/Resources/ServiceCatalogCloudFormationProvisionedProduct.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ServiceCatalogCloudFormationProvisionedProduct.hs +++ /dev/null @@ -1,122 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-cloudformationprovisionedproduct.html - -module Stratosphere.Resources.ServiceCatalogCloudFormationProvisionedProduct where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ServiceCatalogCloudFormationProvisionedProductProvisioningParameter -import Stratosphere.ResourceProperties.ServiceCatalogCloudFormationProvisionedProductProvisioningPreferences -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for --- ServiceCatalogCloudFormationProvisionedProduct. See --- 'serviceCatalogCloudFormationProvisionedProduct' for a more convenient --- constructor. -data ServiceCatalogCloudFormationProvisionedProduct = - ServiceCatalogCloudFormationProvisionedProduct - { _serviceCatalogCloudFormationProvisionedProductAcceptLanguage :: Maybe (Val Text) - , _serviceCatalogCloudFormationProvisionedProductNotificationArns :: Maybe (ValList Text) - , _serviceCatalogCloudFormationProvisionedProductPathId :: Maybe (Val Text) - , _serviceCatalogCloudFormationProvisionedProductPathName :: Maybe (Val Text) - , _serviceCatalogCloudFormationProvisionedProductProductId :: Maybe (Val Text) - , _serviceCatalogCloudFormationProvisionedProductProductName :: Maybe (Val Text) - , _serviceCatalogCloudFormationProvisionedProductProvisionedProductName :: Maybe (Val Text) - , _serviceCatalogCloudFormationProvisionedProductProvisioningArtifactId :: Maybe (Val Text) - , _serviceCatalogCloudFormationProvisionedProductProvisioningArtifactName :: Maybe (Val Text) - , _serviceCatalogCloudFormationProvisionedProductProvisioningParameters :: Maybe [ServiceCatalogCloudFormationProvisionedProductProvisioningParameter] - , _serviceCatalogCloudFormationProvisionedProductProvisioningPreferences :: Maybe ServiceCatalogCloudFormationProvisionedProductProvisioningPreferences - , _serviceCatalogCloudFormationProvisionedProductTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties ServiceCatalogCloudFormationProvisionedProduct where - toResourceProperties ServiceCatalogCloudFormationProvisionedProduct{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ServiceCatalog::CloudFormationProvisionedProduct" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AcceptLanguage",) . toJSON) _serviceCatalogCloudFormationProvisionedProductAcceptLanguage - , fmap (("NotificationArns",) . toJSON) _serviceCatalogCloudFormationProvisionedProductNotificationArns - , fmap (("PathId",) . toJSON) _serviceCatalogCloudFormationProvisionedProductPathId - , fmap (("PathName",) . toJSON) _serviceCatalogCloudFormationProvisionedProductPathName - , fmap (("ProductId",) . toJSON) _serviceCatalogCloudFormationProvisionedProductProductId - , fmap (("ProductName",) . toJSON) _serviceCatalogCloudFormationProvisionedProductProductName - , fmap (("ProvisionedProductName",) . toJSON) _serviceCatalogCloudFormationProvisionedProductProvisionedProductName - , fmap (("ProvisioningArtifactId",) . toJSON) _serviceCatalogCloudFormationProvisionedProductProvisioningArtifactId - , fmap (("ProvisioningArtifactName",) . toJSON) _serviceCatalogCloudFormationProvisionedProductProvisioningArtifactName - , fmap (("ProvisioningParameters",) . toJSON) _serviceCatalogCloudFormationProvisionedProductProvisioningParameters - , fmap (("ProvisioningPreferences",) . toJSON) _serviceCatalogCloudFormationProvisionedProductProvisioningPreferences - , fmap (("Tags",) . toJSON) _serviceCatalogCloudFormationProvisionedProductTags - ] - } - --- | Constructor for 'ServiceCatalogCloudFormationProvisionedProduct' --- containing required fields as arguments. -serviceCatalogCloudFormationProvisionedProduct - :: ServiceCatalogCloudFormationProvisionedProduct -serviceCatalogCloudFormationProvisionedProduct = - ServiceCatalogCloudFormationProvisionedProduct - { _serviceCatalogCloudFormationProvisionedProductAcceptLanguage = Nothing - , _serviceCatalogCloudFormationProvisionedProductNotificationArns = Nothing - , _serviceCatalogCloudFormationProvisionedProductPathId = Nothing - , _serviceCatalogCloudFormationProvisionedProductPathName = Nothing - , _serviceCatalogCloudFormationProvisionedProductProductId = Nothing - , _serviceCatalogCloudFormationProvisionedProductProductName = Nothing - , _serviceCatalogCloudFormationProvisionedProductProvisionedProductName = Nothing - , _serviceCatalogCloudFormationProvisionedProductProvisioningArtifactId = Nothing - , _serviceCatalogCloudFormationProvisionedProductProvisioningArtifactName = Nothing - , _serviceCatalogCloudFormationProvisionedProductProvisioningParameters = Nothing - , _serviceCatalogCloudFormationProvisionedProductProvisioningPreferences = Nothing - , _serviceCatalogCloudFormationProvisionedProductTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-cloudformationprovisionedproduct.html#cfn-servicecatalog-cloudformationprovisionedproduct-acceptlanguage -sccfppAcceptLanguage :: Lens' ServiceCatalogCloudFormationProvisionedProduct (Maybe (Val Text)) -sccfppAcceptLanguage = lens _serviceCatalogCloudFormationProvisionedProductAcceptLanguage (\s a -> s { _serviceCatalogCloudFormationProvisionedProductAcceptLanguage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-cloudformationprovisionedproduct.html#cfn-servicecatalog-cloudformationprovisionedproduct-notificationarns -sccfppNotificationArns :: Lens' ServiceCatalogCloudFormationProvisionedProduct (Maybe (ValList Text)) -sccfppNotificationArns = lens _serviceCatalogCloudFormationProvisionedProductNotificationArns (\s a -> s { _serviceCatalogCloudFormationProvisionedProductNotificationArns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-cloudformationprovisionedproduct.html#cfn-servicecatalog-cloudformationprovisionedproduct-pathid -sccfppPathId :: Lens' ServiceCatalogCloudFormationProvisionedProduct (Maybe (Val Text)) -sccfppPathId = lens _serviceCatalogCloudFormationProvisionedProductPathId (\s a -> s { _serviceCatalogCloudFormationProvisionedProductPathId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-cloudformationprovisionedproduct.html#cfn-servicecatalog-cloudformationprovisionedproduct-pathname -sccfppPathName :: Lens' ServiceCatalogCloudFormationProvisionedProduct (Maybe (Val Text)) -sccfppPathName = lens _serviceCatalogCloudFormationProvisionedProductPathName (\s a -> s { _serviceCatalogCloudFormationProvisionedProductPathName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-cloudformationprovisionedproduct.html#cfn-servicecatalog-cloudformationprovisionedproduct-productid -sccfppProductId :: Lens' ServiceCatalogCloudFormationProvisionedProduct (Maybe (Val Text)) -sccfppProductId = lens _serviceCatalogCloudFormationProvisionedProductProductId (\s a -> s { _serviceCatalogCloudFormationProvisionedProductProductId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-cloudformationprovisionedproduct.html#cfn-servicecatalog-cloudformationprovisionedproduct-productname -sccfppProductName :: Lens' ServiceCatalogCloudFormationProvisionedProduct (Maybe (Val Text)) -sccfppProductName = lens _serviceCatalogCloudFormationProvisionedProductProductName (\s a -> s { _serviceCatalogCloudFormationProvisionedProductProductName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-cloudformationprovisionedproduct.html#cfn-servicecatalog-cloudformationprovisionedproduct-provisionedproductname -sccfppProvisionedProductName :: Lens' ServiceCatalogCloudFormationProvisionedProduct (Maybe (Val Text)) -sccfppProvisionedProductName = lens _serviceCatalogCloudFormationProvisionedProductProvisionedProductName (\s a -> s { _serviceCatalogCloudFormationProvisionedProductProvisionedProductName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-cloudformationprovisionedproduct.html#cfn-servicecatalog-cloudformationprovisionedproduct-provisioningartifactid -sccfppProvisioningArtifactId :: Lens' ServiceCatalogCloudFormationProvisionedProduct (Maybe (Val Text)) -sccfppProvisioningArtifactId = lens _serviceCatalogCloudFormationProvisionedProductProvisioningArtifactId (\s a -> s { _serviceCatalogCloudFormationProvisionedProductProvisioningArtifactId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-cloudformationprovisionedproduct.html#cfn-servicecatalog-cloudformationprovisionedproduct-provisioningartifactname -sccfppProvisioningArtifactName :: Lens' ServiceCatalogCloudFormationProvisionedProduct (Maybe (Val Text)) -sccfppProvisioningArtifactName = lens _serviceCatalogCloudFormationProvisionedProductProvisioningArtifactName (\s a -> s { _serviceCatalogCloudFormationProvisionedProductProvisioningArtifactName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-cloudformationprovisionedproduct.html#cfn-servicecatalog-cloudformationprovisionedproduct-provisioningparameters -sccfppProvisioningParameters :: Lens' ServiceCatalogCloudFormationProvisionedProduct (Maybe [ServiceCatalogCloudFormationProvisionedProductProvisioningParameter]) -sccfppProvisioningParameters = lens _serviceCatalogCloudFormationProvisionedProductProvisioningParameters (\s a -> s { _serviceCatalogCloudFormationProvisionedProductProvisioningParameters = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-cloudformationprovisionedproduct.html#cfn-servicecatalog-cloudformationprovisionedproduct-provisioningpreferences -sccfppProvisioningPreferences :: Lens' ServiceCatalogCloudFormationProvisionedProduct (Maybe ServiceCatalogCloudFormationProvisionedProductProvisioningPreferences) -sccfppProvisioningPreferences = lens _serviceCatalogCloudFormationProvisionedProductProvisioningPreferences (\s a -> s { _serviceCatalogCloudFormationProvisionedProductProvisioningPreferences = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-cloudformationprovisionedproduct.html#cfn-servicecatalog-cloudformationprovisionedproduct-tags -sccfppTags :: Lens' ServiceCatalogCloudFormationProvisionedProduct (Maybe [Tag]) -sccfppTags = lens _serviceCatalogCloudFormationProvisionedProductTags (\s a -> s { _serviceCatalogCloudFormationProvisionedProductTags = a }) diff --git a/library-gen/Stratosphere/Resources/ServiceCatalogLaunchNotificationConstraint.hs b/library-gen/Stratosphere/Resources/ServiceCatalogLaunchNotificationConstraint.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ServiceCatalogLaunchNotificationConstraint.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-launchnotificationconstraint.html - -module Stratosphere.Resources.ServiceCatalogLaunchNotificationConstraint where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ServiceCatalogLaunchNotificationConstraint. --- See 'serviceCatalogLaunchNotificationConstraint' for a more convenient --- constructor. -data ServiceCatalogLaunchNotificationConstraint = - ServiceCatalogLaunchNotificationConstraint - { _serviceCatalogLaunchNotificationConstraintAcceptLanguage :: Maybe (Val Text) - , _serviceCatalogLaunchNotificationConstraintDescription :: Maybe (Val Text) - , _serviceCatalogLaunchNotificationConstraintNotificationArns :: ValList Text - , _serviceCatalogLaunchNotificationConstraintPortfolioId :: Val Text - , _serviceCatalogLaunchNotificationConstraintProductId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties ServiceCatalogLaunchNotificationConstraint where - toResourceProperties ServiceCatalogLaunchNotificationConstraint{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ServiceCatalog::LaunchNotificationConstraint" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AcceptLanguage",) . toJSON) _serviceCatalogLaunchNotificationConstraintAcceptLanguage - , fmap (("Description",) . toJSON) _serviceCatalogLaunchNotificationConstraintDescription - , (Just . ("NotificationArns",) . toJSON) _serviceCatalogLaunchNotificationConstraintNotificationArns - , (Just . ("PortfolioId",) . toJSON) _serviceCatalogLaunchNotificationConstraintPortfolioId - , (Just . ("ProductId",) . toJSON) _serviceCatalogLaunchNotificationConstraintProductId - ] - } - --- | Constructor for 'ServiceCatalogLaunchNotificationConstraint' containing --- required fields as arguments. -serviceCatalogLaunchNotificationConstraint - :: ValList Text -- ^ 'sclncNotificationArns' - -> Val Text -- ^ 'sclncPortfolioId' - -> Val Text -- ^ 'sclncProductId' - -> ServiceCatalogLaunchNotificationConstraint -serviceCatalogLaunchNotificationConstraint notificationArnsarg portfolioIdarg productIdarg = - ServiceCatalogLaunchNotificationConstraint - { _serviceCatalogLaunchNotificationConstraintAcceptLanguage = Nothing - , _serviceCatalogLaunchNotificationConstraintDescription = Nothing - , _serviceCatalogLaunchNotificationConstraintNotificationArns = notificationArnsarg - , _serviceCatalogLaunchNotificationConstraintPortfolioId = portfolioIdarg - , _serviceCatalogLaunchNotificationConstraintProductId = productIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-launchnotificationconstraint.html#cfn-servicecatalog-launchnotificationconstraint-acceptlanguage -sclncAcceptLanguage :: Lens' ServiceCatalogLaunchNotificationConstraint (Maybe (Val Text)) -sclncAcceptLanguage = lens _serviceCatalogLaunchNotificationConstraintAcceptLanguage (\s a -> s { _serviceCatalogLaunchNotificationConstraintAcceptLanguage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-launchnotificationconstraint.html#cfn-servicecatalog-launchnotificationconstraint-description -sclncDescription :: Lens' ServiceCatalogLaunchNotificationConstraint (Maybe (Val Text)) -sclncDescription = lens _serviceCatalogLaunchNotificationConstraintDescription (\s a -> s { _serviceCatalogLaunchNotificationConstraintDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-launchnotificationconstraint.html#cfn-servicecatalog-launchnotificationconstraint-notificationarns -sclncNotificationArns :: Lens' ServiceCatalogLaunchNotificationConstraint (ValList Text) -sclncNotificationArns = lens _serviceCatalogLaunchNotificationConstraintNotificationArns (\s a -> s { _serviceCatalogLaunchNotificationConstraintNotificationArns = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-launchnotificationconstraint.html#cfn-servicecatalog-launchnotificationconstraint-portfolioid -sclncPortfolioId :: Lens' ServiceCatalogLaunchNotificationConstraint (Val Text) -sclncPortfolioId = lens _serviceCatalogLaunchNotificationConstraintPortfolioId (\s a -> s { _serviceCatalogLaunchNotificationConstraintPortfolioId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-launchnotificationconstraint.html#cfn-servicecatalog-launchnotificationconstraint-productid -sclncProductId :: Lens' ServiceCatalogLaunchNotificationConstraint (Val Text) -sclncProductId = lens _serviceCatalogLaunchNotificationConstraintProductId (\s a -> s { _serviceCatalogLaunchNotificationConstraintProductId = a }) diff --git a/library-gen/Stratosphere/Resources/ServiceCatalogLaunchRoleConstraint.hs b/library-gen/Stratosphere/Resources/ServiceCatalogLaunchRoleConstraint.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ServiceCatalogLaunchRoleConstraint.hs +++ /dev/null @@ -1,78 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-launchroleconstraint.html - -module Stratosphere.Resources.ServiceCatalogLaunchRoleConstraint where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ServiceCatalogLaunchRoleConstraint. See --- 'serviceCatalogLaunchRoleConstraint' for a more convenient constructor. -data ServiceCatalogLaunchRoleConstraint = - ServiceCatalogLaunchRoleConstraint - { _serviceCatalogLaunchRoleConstraintAcceptLanguage :: Maybe (Val Text) - , _serviceCatalogLaunchRoleConstraintDescription :: Maybe (Val Text) - , _serviceCatalogLaunchRoleConstraintLocalRoleName :: Maybe (Val Text) - , _serviceCatalogLaunchRoleConstraintPortfolioId :: Val Text - , _serviceCatalogLaunchRoleConstraintProductId :: Val Text - , _serviceCatalogLaunchRoleConstraintRoleArn :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties ServiceCatalogLaunchRoleConstraint where - toResourceProperties ServiceCatalogLaunchRoleConstraint{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ServiceCatalog::LaunchRoleConstraint" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AcceptLanguage",) . toJSON) _serviceCatalogLaunchRoleConstraintAcceptLanguage - , fmap (("Description",) . toJSON) _serviceCatalogLaunchRoleConstraintDescription - , fmap (("LocalRoleName",) . toJSON) _serviceCatalogLaunchRoleConstraintLocalRoleName - , (Just . ("PortfolioId",) . toJSON) _serviceCatalogLaunchRoleConstraintPortfolioId - , (Just . ("ProductId",) . toJSON) _serviceCatalogLaunchRoleConstraintProductId - , fmap (("RoleArn",) . toJSON) _serviceCatalogLaunchRoleConstraintRoleArn - ] - } - --- | Constructor for 'ServiceCatalogLaunchRoleConstraint' containing required --- fields as arguments. -serviceCatalogLaunchRoleConstraint - :: Val Text -- ^ 'sclrcPortfolioId' - -> Val Text -- ^ 'sclrcProductId' - -> ServiceCatalogLaunchRoleConstraint -serviceCatalogLaunchRoleConstraint portfolioIdarg productIdarg = - ServiceCatalogLaunchRoleConstraint - { _serviceCatalogLaunchRoleConstraintAcceptLanguage = Nothing - , _serviceCatalogLaunchRoleConstraintDescription = Nothing - , _serviceCatalogLaunchRoleConstraintLocalRoleName = Nothing - , _serviceCatalogLaunchRoleConstraintPortfolioId = portfolioIdarg - , _serviceCatalogLaunchRoleConstraintProductId = productIdarg - , _serviceCatalogLaunchRoleConstraintRoleArn = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-launchroleconstraint.html#cfn-servicecatalog-launchroleconstraint-acceptlanguage -sclrcAcceptLanguage :: Lens' ServiceCatalogLaunchRoleConstraint (Maybe (Val Text)) -sclrcAcceptLanguage = lens _serviceCatalogLaunchRoleConstraintAcceptLanguage (\s a -> s { _serviceCatalogLaunchRoleConstraintAcceptLanguage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-launchroleconstraint.html#cfn-servicecatalog-launchroleconstraint-description -sclrcDescription :: Lens' ServiceCatalogLaunchRoleConstraint (Maybe (Val Text)) -sclrcDescription = lens _serviceCatalogLaunchRoleConstraintDescription (\s a -> s { _serviceCatalogLaunchRoleConstraintDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-launchroleconstraint.html#cfn-servicecatalog-launchroleconstraint-localrolename -sclrcLocalRoleName :: Lens' ServiceCatalogLaunchRoleConstraint (Maybe (Val Text)) -sclrcLocalRoleName = lens _serviceCatalogLaunchRoleConstraintLocalRoleName (\s a -> s { _serviceCatalogLaunchRoleConstraintLocalRoleName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-launchroleconstraint.html#cfn-servicecatalog-launchroleconstraint-portfolioid -sclrcPortfolioId :: Lens' ServiceCatalogLaunchRoleConstraint (Val Text) -sclrcPortfolioId = lens _serviceCatalogLaunchRoleConstraintPortfolioId (\s a -> s { _serviceCatalogLaunchRoleConstraintPortfolioId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-launchroleconstraint.html#cfn-servicecatalog-launchroleconstraint-productid -sclrcProductId :: Lens' ServiceCatalogLaunchRoleConstraint (Val Text) -sclrcProductId = lens _serviceCatalogLaunchRoleConstraintProductId (\s a -> s { _serviceCatalogLaunchRoleConstraintProductId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-launchroleconstraint.html#cfn-servicecatalog-launchroleconstraint-rolearn -sclrcRoleArn :: Lens' ServiceCatalogLaunchRoleConstraint (Maybe (Val Text)) -sclrcRoleArn = lens _serviceCatalogLaunchRoleConstraintRoleArn (\s a -> s { _serviceCatalogLaunchRoleConstraintRoleArn = a }) diff --git a/library-gen/Stratosphere/Resources/ServiceCatalogLaunchTemplateConstraint.hs b/library-gen/Stratosphere/Resources/ServiceCatalogLaunchTemplateConstraint.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ServiceCatalogLaunchTemplateConstraint.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-launchtemplateconstraint.html - -module Stratosphere.Resources.ServiceCatalogLaunchTemplateConstraint where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ServiceCatalogLaunchTemplateConstraint. See --- 'serviceCatalogLaunchTemplateConstraint' for a more convenient --- constructor. -data ServiceCatalogLaunchTemplateConstraint = - ServiceCatalogLaunchTemplateConstraint - { _serviceCatalogLaunchTemplateConstraintAcceptLanguage :: Maybe (Val Text) - , _serviceCatalogLaunchTemplateConstraintDescription :: Maybe (Val Text) - , _serviceCatalogLaunchTemplateConstraintPortfolioId :: Val Text - , _serviceCatalogLaunchTemplateConstraintProductId :: Val Text - , _serviceCatalogLaunchTemplateConstraintRules :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties ServiceCatalogLaunchTemplateConstraint where - toResourceProperties ServiceCatalogLaunchTemplateConstraint{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ServiceCatalog::LaunchTemplateConstraint" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AcceptLanguage",) . toJSON) _serviceCatalogLaunchTemplateConstraintAcceptLanguage - , fmap (("Description",) . toJSON) _serviceCatalogLaunchTemplateConstraintDescription - , (Just . ("PortfolioId",) . toJSON) _serviceCatalogLaunchTemplateConstraintPortfolioId - , (Just . ("ProductId",) . toJSON) _serviceCatalogLaunchTemplateConstraintProductId - , (Just . ("Rules",) . toJSON) _serviceCatalogLaunchTemplateConstraintRules - ] - } - --- | Constructor for 'ServiceCatalogLaunchTemplateConstraint' containing --- required fields as arguments. -serviceCatalogLaunchTemplateConstraint - :: Val Text -- ^ 'scltcPortfolioId' - -> Val Text -- ^ 'scltcProductId' - -> Val Text -- ^ 'scltcRules' - -> ServiceCatalogLaunchTemplateConstraint -serviceCatalogLaunchTemplateConstraint portfolioIdarg productIdarg rulesarg = - ServiceCatalogLaunchTemplateConstraint - { _serviceCatalogLaunchTemplateConstraintAcceptLanguage = Nothing - , _serviceCatalogLaunchTemplateConstraintDescription = Nothing - , _serviceCatalogLaunchTemplateConstraintPortfolioId = portfolioIdarg - , _serviceCatalogLaunchTemplateConstraintProductId = productIdarg - , _serviceCatalogLaunchTemplateConstraintRules = rulesarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-launchtemplateconstraint.html#cfn-servicecatalog-launchtemplateconstraint-acceptlanguage -scltcAcceptLanguage :: Lens' ServiceCatalogLaunchTemplateConstraint (Maybe (Val Text)) -scltcAcceptLanguage = lens _serviceCatalogLaunchTemplateConstraintAcceptLanguage (\s a -> s { _serviceCatalogLaunchTemplateConstraintAcceptLanguage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-launchtemplateconstraint.html#cfn-servicecatalog-launchtemplateconstraint-description -scltcDescription :: Lens' ServiceCatalogLaunchTemplateConstraint (Maybe (Val Text)) -scltcDescription = lens _serviceCatalogLaunchTemplateConstraintDescription (\s a -> s { _serviceCatalogLaunchTemplateConstraintDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-launchtemplateconstraint.html#cfn-servicecatalog-launchtemplateconstraint-portfolioid -scltcPortfolioId :: Lens' ServiceCatalogLaunchTemplateConstraint (Val Text) -scltcPortfolioId = lens _serviceCatalogLaunchTemplateConstraintPortfolioId (\s a -> s { _serviceCatalogLaunchTemplateConstraintPortfolioId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-launchtemplateconstraint.html#cfn-servicecatalog-launchtemplateconstraint-productid -scltcProductId :: Lens' ServiceCatalogLaunchTemplateConstraint (Val Text) -scltcProductId = lens _serviceCatalogLaunchTemplateConstraintProductId (\s a -> s { _serviceCatalogLaunchTemplateConstraintProductId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-launchtemplateconstraint.html#cfn-servicecatalog-launchtemplateconstraint-rules -scltcRules :: Lens' ServiceCatalogLaunchTemplateConstraint (Val Text) -scltcRules = lens _serviceCatalogLaunchTemplateConstraintRules (\s a -> s { _serviceCatalogLaunchTemplateConstraintRules = a }) diff --git a/library-gen/Stratosphere/Resources/ServiceCatalogPortfolio.hs b/library-gen/Stratosphere/Resources/ServiceCatalogPortfolio.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ServiceCatalogPortfolio.hs +++ /dev/null @@ -1,71 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-portfolio.html - -module Stratosphere.Resources.ServiceCatalogPortfolio where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for ServiceCatalogPortfolio. See --- 'serviceCatalogPortfolio' for a more convenient constructor. -data ServiceCatalogPortfolio = - ServiceCatalogPortfolio - { _serviceCatalogPortfolioAcceptLanguage :: Maybe (Val Text) - , _serviceCatalogPortfolioDescription :: Maybe (Val Text) - , _serviceCatalogPortfolioDisplayName :: Val Text - , _serviceCatalogPortfolioProviderName :: Val Text - , _serviceCatalogPortfolioTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties ServiceCatalogPortfolio where - toResourceProperties ServiceCatalogPortfolio{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ServiceCatalog::Portfolio" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AcceptLanguage",) . toJSON) _serviceCatalogPortfolioAcceptLanguage - , fmap (("Description",) . toJSON) _serviceCatalogPortfolioDescription - , (Just . ("DisplayName",) . toJSON) _serviceCatalogPortfolioDisplayName - , (Just . ("ProviderName",) . toJSON) _serviceCatalogPortfolioProviderName - , fmap (("Tags",) . toJSON) _serviceCatalogPortfolioTags - ] - } - --- | Constructor for 'ServiceCatalogPortfolio' containing required fields as --- arguments. -serviceCatalogPortfolio - :: Val Text -- ^ 'scpDisplayName' - -> Val Text -- ^ 'scpProviderName' - -> ServiceCatalogPortfolio -serviceCatalogPortfolio displayNamearg providerNamearg = - ServiceCatalogPortfolio - { _serviceCatalogPortfolioAcceptLanguage = Nothing - , _serviceCatalogPortfolioDescription = Nothing - , _serviceCatalogPortfolioDisplayName = displayNamearg - , _serviceCatalogPortfolioProviderName = providerNamearg - , _serviceCatalogPortfolioTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-portfolio.html#cfn-servicecatalog-portfolio-acceptlanguage -scpAcceptLanguage :: Lens' ServiceCatalogPortfolio (Maybe (Val Text)) -scpAcceptLanguage = lens _serviceCatalogPortfolioAcceptLanguage (\s a -> s { _serviceCatalogPortfolioAcceptLanguage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-portfolio.html#cfn-servicecatalog-portfolio-description -scpDescription :: Lens' ServiceCatalogPortfolio (Maybe (Val Text)) -scpDescription = lens _serviceCatalogPortfolioDescription (\s a -> s { _serviceCatalogPortfolioDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-portfolio.html#cfn-servicecatalog-portfolio-displayname -scpDisplayName :: Lens' ServiceCatalogPortfolio (Val Text) -scpDisplayName = lens _serviceCatalogPortfolioDisplayName (\s a -> s { _serviceCatalogPortfolioDisplayName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-portfolio.html#cfn-servicecatalog-portfolio-providername -scpProviderName :: Lens' ServiceCatalogPortfolio (Val Text) -scpProviderName = lens _serviceCatalogPortfolioProviderName (\s a -> s { _serviceCatalogPortfolioProviderName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-portfolio.html#cfn-servicecatalog-portfolio-tags -scpTags :: Lens' ServiceCatalogPortfolio (Maybe [Tag]) -scpTags = lens _serviceCatalogPortfolioTags (\s a -> s { _serviceCatalogPortfolioTags = a }) diff --git a/library-gen/Stratosphere/Resources/ServiceCatalogPortfolioPrincipalAssociation.hs b/library-gen/Stratosphere/Resources/ServiceCatalogPortfolioPrincipalAssociation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ServiceCatalogPortfolioPrincipalAssociation.hs +++ /dev/null @@ -1,67 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-portfolioprincipalassociation.html - -module Stratosphere.Resources.ServiceCatalogPortfolioPrincipalAssociation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for --- ServiceCatalogPortfolioPrincipalAssociation. See --- 'serviceCatalogPortfolioPrincipalAssociation' for a more convenient --- constructor. -data ServiceCatalogPortfolioPrincipalAssociation = - ServiceCatalogPortfolioPrincipalAssociation - { _serviceCatalogPortfolioPrincipalAssociationAcceptLanguage :: Maybe (Val Text) - , _serviceCatalogPortfolioPrincipalAssociationPortfolioId :: Val Text - , _serviceCatalogPortfolioPrincipalAssociationPrincipalARN :: Val Text - , _serviceCatalogPortfolioPrincipalAssociationPrincipalType :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties ServiceCatalogPortfolioPrincipalAssociation where - toResourceProperties ServiceCatalogPortfolioPrincipalAssociation{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ServiceCatalog::PortfolioPrincipalAssociation" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AcceptLanguage",) . toJSON) _serviceCatalogPortfolioPrincipalAssociationAcceptLanguage - , (Just . ("PortfolioId",) . toJSON) _serviceCatalogPortfolioPrincipalAssociationPortfolioId - , (Just . ("PrincipalARN",) . toJSON) _serviceCatalogPortfolioPrincipalAssociationPrincipalARN - , (Just . ("PrincipalType",) . toJSON) _serviceCatalogPortfolioPrincipalAssociationPrincipalType - ] - } - --- | Constructor for 'ServiceCatalogPortfolioPrincipalAssociation' containing --- required fields as arguments. -serviceCatalogPortfolioPrincipalAssociation - :: Val Text -- ^ 'scppriaPortfolioId' - -> Val Text -- ^ 'scppriaPrincipalARN' - -> Val Text -- ^ 'scppriaPrincipalType' - -> ServiceCatalogPortfolioPrincipalAssociation -serviceCatalogPortfolioPrincipalAssociation portfolioIdarg principalARNarg principalTypearg = - ServiceCatalogPortfolioPrincipalAssociation - { _serviceCatalogPortfolioPrincipalAssociationAcceptLanguage = Nothing - , _serviceCatalogPortfolioPrincipalAssociationPortfolioId = portfolioIdarg - , _serviceCatalogPortfolioPrincipalAssociationPrincipalARN = principalARNarg - , _serviceCatalogPortfolioPrincipalAssociationPrincipalType = principalTypearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-portfolioprincipalassociation.html#cfn-servicecatalog-portfolioprincipalassociation-acceptlanguage -scppriaAcceptLanguage :: Lens' ServiceCatalogPortfolioPrincipalAssociation (Maybe (Val Text)) -scppriaAcceptLanguage = lens _serviceCatalogPortfolioPrincipalAssociationAcceptLanguage (\s a -> s { _serviceCatalogPortfolioPrincipalAssociationAcceptLanguage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-portfolioprincipalassociation.html#cfn-servicecatalog-portfolioprincipalassociation-portfolioid -scppriaPortfolioId :: Lens' ServiceCatalogPortfolioPrincipalAssociation (Val Text) -scppriaPortfolioId = lens _serviceCatalogPortfolioPrincipalAssociationPortfolioId (\s a -> s { _serviceCatalogPortfolioPrincipalAssociationPortfolioId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-portfolioprincipalassociation.html#cfn-servicecatalog-portfolioprincipalassociation-principalarn -scppriaPrincipalARN :: Lens' ServiceCatalogPortfolioPrincipalAssociation (Val Text) -scppriaPrincipalARN = lens _serviceCatalogPortfolioPrincipalAssociationPrincipalARN (\s a -> s { _serviceCatalogPortfolioPrincipalAssociationPrincipalARN = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-portfolioprincipalassociation.html#cfn-servicecatalog-portfolioprincipalassociation-principaltype -scppriaPrincipalType :: Lens' ServiceCatalogPortfolioPrincipalAssociation (Val Text) -scppriaPrincipalType = lens _serviceCatalogPortfolioPrincipalAssociationPrincipalType (\s a -> s { _serviceCatalogPortfolioPrincipalAssociationPrincipalType = a }) diff --git a/library-gen/Stratosphere/Resources/ServiceCatalogPortfolioProductAssociation.hs b/library-gen/Stratosphere/Resources/ServiceCatalogPortfolioProductAssociation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ServiceCatalogPortfolioProductAssociation.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-portfolioproductassociation.html - -module Stratosphere.Resources.ServiceCatalogPortfolioProductAssociation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ServiceCatalogPortfolioProductAssociation. --- See 'serviceCatalogPortfolioProductAssociation' for a more convenient --- constructor. -data ServiceCatalogPortfolioProductAssociation = - ServiceCatalogPortfolioProductAssociation - { _serviceCatalogPortfolioProductAssociationAcceptLanguage :: Maybe (Val Text) - , _serviceCatalogPortfolioProductAssociationPortfolioId :: Val Text - , _serviceCatalogPortfolioProductAssociationProductId :: Val Text - , _serviceCatalogPortfolioProductAssociationSourcePortfolioId :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToResourceProperties ServiceCatalogPortfolioProductAssociation where - toResourceProperties ServiceCatalogPortfolioProductAssociation{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ServiceCatalog::PortfolioProductAssociation" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AcceptLanguage",) . toJSON) _serviceCatalogPortfolioProductAssociationAcceptLanguage - , (Just . ("PortfolioId",) . toJSON) _serviceCatalogPortfolioProductAssociationPortfolioId - , (Just . ("ProductId",) . toJSON) _serviceCatalogPortfolioProductAssociationProductId - , fmap (("SourcePortfolioId",) . toJSON) _serviceCatalogPortfolioProductAssociationSourcePortfolioId - ] - } - --- | Constructor for 'ServiceCatalogPortfolioProductAssociation' containing --- required fields as arguments. -serviceCatalogPortfolioProductAssociation - :: Val Text -- ^ 'scpproaPortfolioId' - -> Val Text -- ^ 'scpproaProductId' - -> ServiceCatalogPortfolioProductAssociation -serviceCatalogPortfolioProductAssociation portfolioIdarg productIdarg = - ServiceCatalogPortfolioProductAssociation - { _serviceCatalogPortfolioProductAssociationAcceptLanguage = Nothing - , _serviceCatalogPortfolioProductAssociationPortfolioId = portfolioIdarg - , _serviceCatalogPortfolioProductAssociationProductId = productIdarg - , _serviceCatalogPortfolioProductAssociationSourcePortfolioId = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-portfolioproductassociation.html#cfn-servicecatalog-portfolioproductassociation-acceptlanguage -scpproaAcceptLanguage :: Lens' ServiceCatalogPortfolioProductAssociation (Maybe (Val Text)) -scpproaAcceptLanguage = lens _serviceCatalogPortfolioProductAssociationAcceptLanguage (\s a -> s { _serviceCatalogPortfolioProductAssociationAcceptLanguage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-portfolioproductassociation.html#cfn-servicecatalog-portfolioproductassociation-portfolioid -scpproaPortfolioId :: Lens' ServiceCatalogPortfolioProductAssociation (Val Text) -scpproaPortfolioId = lens _serviceCatalogPortfolioProductAssociationPortfolioId (\s a -> s { _serviceCatalogPortfolioProductAssociationPortfolioId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-portfolioproductassociation.html#cfn-servicecatalog-portfolioproductassociation-productid -scpproaProductId :: Lens' ServiceCatalogPortfolioProductAssociation (Val Text) -scpproaProductId = lens _serviceCatalogPortfolioProductAssociationProductId (\s a -> s { _serviceCatalogPortfolioProductAssociationProductId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-portfolioproductassociation.html#cfn-servicecatalog-portfolioproductassociation-sourceportfolioid -scpproaSourcePortfolioId :: Lens' ServiceCatalogPortfolioProductAssociation (Maybe (Val Text)) -scpproaSourcePortfolioId = lens _serviceCatalogPortfolioProductAssociationSourcePortfolioId (\s a -> s { _serviceCatalogPortfolioProductAssociationSourcePortfolioId = a }) diff --git a/library-gen/Stratosphere/Resources/ServiceCatalogPortfolioShare.hs b/library-gen/Stratosphere/Resources/ServiceCatalogPortfolioShare.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ServiceCatalogPortfolioShare.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-portfolioshare.html - -module Stratosphere.Resources.ServiceCatalogPortfolioShare where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ServiceCatalogPortfolioShare. See --- 'serviceCatalogPortfolioShare' for a more convenient constructor. -data ServiceCatalogPortfolioShare = - ServiceCatalogPortfolioShare - { _serviceCatalogPortfolioShareAcceptLanguage :: Maybe (Val Text) - , _serviceCatalogPortfolioShareAccountId :: Val Text - , _serviceCatalogPortfolioSharePortfolioId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties ServiceCatalogPortfolioShare where - toResourceProperties ServiceCatalogPortfolioShare{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ServiceCatalog::PortfolioShare" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AcceptLanguage",) . toJSON) _serviceCatalogPortfolioShareAcceptLanguage - , (Just . ("AccountId",) . toJSON) _serviceCatalogPortfolioShareAccountId - , (Just . ("PortfolioId",) . toJSON) _serviceCatalogPortfolioSharePortfolioId - ] - } - --- | Constructor for 'ServiceCatalogPortfolioShare' containing required fields --- as arguments. -serviceCatalogPortfolioShare - :: Val Text -- ^ 'scpsAccountId' - -> Val Text -- ^ 'scpsPortfolioId' - -> ServiceCatalogPortfolioShare -serviceCatalogPortfolioShare accountIdarg portfolioIdarg = - ServiceCatalogPortfolioShare - { _serviceCatalogPortfolioShareAcceptLanguage = Nothing - , _serviceCatalogPortfolioShareAccountId = accountIdarg - , _serviceCatalogPortfolioSharePortfolioId = portfolioIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-portfolioshare.html#cfn-servicecatalog-portfolioshare-acceptlanguage -scpsAcceptLanguage :: Lens' ServiceCatalogPortfolioShare (Maybe (Val Text)) -scpsAcceptLanguage = lens _serviceCatalogPortfolioShareAcceptLanguage (\s a -> s { _serviceCatalogPortfolioShareAcceptLanguage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-portfolioshare.html#cfn-servicecatalog-portfolioshare-accountid -scpsAccountId :: Lens' ServiceCatalogPortfolioShare (Val Text) -scpsAccountId = lens _serviceCatalogPortfolioShareAccountId (\s a -> s { _serviceCatalogPortfolioShareAccountId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-portfolioshare.html#cfn-servicecatalog-portfolioshare-portfolioid -scpsPortfolioId :: Lens' ServiceCatalogPortfolioShare (Val Text) -scpsPortfolioId = lens _serviceCatalogPortfolioSharePortfolioId (\s a -> s { _serviceCatalogPortfolioSharePortfolioId = a }) diff --git a/library-gen/Stratosphere/Resources/ServiceCatalogResourceUpdateConstraint.hs b/library-gen/Stratosphere/Resources/ServiceCatalogResourceUpdateConstraint.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ServiceCatalogResourceUpdateConstraint.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-resourceupdateconstraint.html - -module Stratosphere.Resources.ServiceCatalogResourceUpdateConstraint where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ServiceCatalogResourceUpdateConstraint. See --- 'serviceCatalogResourceUpdateConstraint' for a more convenient --- constructor. -data ServiceCatalogResourceUpdateConstraint = - ServiceCatalogResourceUpdateConstraint - { _serviceCatalogResourceUpdateConstraintAcceptLanguage :: Maybe (Val Text) - , _serviceCatalogResourceUpdateConstraintDescription :: Maybe (Val Text) - , _serviceCatalogResourceUpdateConstraintPortfolioId :: Val Text - , _serviceCatalogResourceUpdateConstraintProductId :: Val Text - , _serviceCatalogResourceUpdateConstraintTagUpdateOnProvisionedProduct :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties ServiceCatalogResourceUpdateConstraint where - toResourceProperties ServiceCatalogResourceUpdateConstraint{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ServiceCatalog::ResourceUpdateConstraint" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AcceptLanguage",) . toJSON) _serviceCatalogResourceUpdateConstraintAcceptLanguage - , fmap (("Description",) . toJSON) _serviceCatalogResourceUpdateConstraintDescription - , (Just . ("PortfolioId",) . toJSON) _serviceCatalogResourceUpdateConstraintPortfolioId - , (Just . ("ProductId",) . toJSON) _serviceCatalogResourceUpdateConstraintProductId - , (Just . ("TagUpdateOnProvisionedProduct",) . toJSON) _serviceCatalogResourceUpdateConstraintTagUpdateOnProvisionedProduct - ] - } - --- | Constructor for 'ServiceCatalogResourceUpdateConstraint' containing --- required fields as arguments. -serviceCatalogResourceUpdateConstraint - :: Val Text -- ^ 'scrucPortfolioId' - -> Val Text -- ^ 'scrucProductId' - -> Val Text -- ^ 'scrucTagUpdateOnProvisionedProduct' - -> ServiceCatalogResourceUpdateConstraint -serviceCatalogResourceUpdateConstraint portfolioIdarg productIdarg tagUpdateOnProvisionedProductarg = - ServiceCatalogResourceUpdateConstraint - { _serviceCatalogResourceUpdateConstraintAcceptLanguage = Nothing - , _serviceCatalogResourceUpdateConstraintDescription = Nothing - , _serviceCatalogResourceUpdateConstraintPortfolioId = portfolioIdarg - , _serviceCatalogResourceUpdateConstraintProductId = productIdarg - , _serviceCatalogResourceUpdateConstraintTagUpdateOnProvisionedProduct = tagUpdateOnProvisionedProductarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-resourceupdateconstraint.html#cfn-servicecatalog-resourceupdateconstraint-acceptlanguage -scrucAcceptLanguage :: Lens' ServiceCatalogResourceUpdateConstraint (Maybe (Val Text)) -scrucAcceptLanguage = lens _serviceCatalogResourceUpdateConstraintAcceptLanguage (\s a -> s { _serviceCatalogResourceUpdateConstraintAcceptLanguage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-resourceupdateconstraint.html#cfn-servicecatalog-resourceupdateconstraint-description -scrucDescription :: Lens' ServiceCatalogResourceUpdateConstraint (Maybe (Val Text)) -scrucDescription = lens _serviceCatalogResourceUpdateConstraintDescription (\s a -> s { _serviceCatalogResourceUpdateConstraintDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-resourceupdateconstraint.html#cfn-servicecatalog-resourceupdateconstraint-portfolioid -scrucPortfolioId :: Lens' ServiceCatalogResourceUpdateConstraint (Val Text) -scrucPortfolioId = lens _serviceCatalogResourceUpdateConstraintPortfolioId (\s a -> s { _serviceCatalogResourceUpdateConstraintPortfolioId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-resourceupdateconstraint.html#cfn-servicecatalog-resourceupdateconstraint-productid -scrucProductId :: Lens' ServiceCatalogResourceUpdateConstraint (Val Text) -scrucProductId = lens _serviceCatalogResourceUpdateConstraintProductId (\s a -> s { _serviceCatalogResourceUpdateConstraintProductId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-resourceupdateconstraint.html#cfn-servicecatalog-resourceupdateconstraint-tagupdateonprovisionedproduct -scrucTagUpdateOnProvisionedProduct :: Lens' ServiceCatalogResourceUpdateConstraint (Val Text) -scrucTagUpdateOnProvisionedProduct = lens _serviceCatalogResourceUpdateConstraintTagUpdateOnProvisionedProduct (\s a -> s { _serviceCatalogResourceUpdateConstraintTagUpdateOnProvisionedProduct = a }) diff --git a/library-gen/Stratosphere/Resources/ServiceCatalogStackSetConstraint.hs b/library-gen/Stratosphere/Resources/ServiceCatalogStackSetConstraint.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ServiceCatalogStackSetConstraint.hs +++ /dev/null @@ -1,105 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-stacksetconstraint.html - -module Stratosphere.Resources.ServiceCatalogStackSetConstraint where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ServiceCatalogStackSetConstraint. See --- 'serviceCatalogStackSetConstraint' for a more convenient constructor. -data ServiceCatalogStackSetConstraint = - ServiceCatalogStackSetConstraint - { _serviceCatalogStackSetConstraintAcceptLanguage :: Maybe (Val Text) - , _serviceCatalogStackSetConstraintAccountList :: ValList Text - , _serviceCatalogStackSetConstraintAdminRole :: Val Text - , _serviceCatalogStackSetConstraintDescription :: Val Text - , _serviceCatalogStackSetConstraintExecutionRole :: Val Text - , _serviceCatalogStackSetConstraintPortfolioId :: Val Text - , _serviceCatalogStackSetConstraintProductId :: Val Text - , _serviceCatalogStackSetConstraintRegionList :: ValList Text - , _serviceCatalogStackSetConstraintStackInstanceControl :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties ServiceCatalogStackSetConstraint where - toResourceProperties ServiceCatalogStackSetConstraint{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ServiceCatalog::StackSetConstraint" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("AcceptLanguage",) . toJSON) _serviceCatalogStackSetConstraintAcceptLanguage - , (Just . ("AccountList",) . toJSON) _serviceCatalogStackSetConstraintAccountList - , (Just . ("AdminRole",) . toJSON) _serviceCatalogStackSetConstraintAdminRole - , (Just . ("Description",) . toJSON) _serviceCatalogStackSetConstraintDescription - , (Just . ("ExecutionRole",) . toJSON) _serviceCatalogStackSetConstraintExecutionRole - , (Just . ("PortfolioId",) . toJSON) _serviceCatalogStackSetConstraintPortfolioId - , (Just . ("ProductId",) . toJSON) _serviceCatalogStackSetConstraintProductId - , (Just . ("RegionList",) . toJSON) _serviceCatalogStackSetConstraintRegionList - , (Just . ("StackInstanceControl",) . toJSON) _serviceCatalogStackSetConstraintStackInstanceControl - ] - } - --- | Constructor for 'ServiceCatalogStackSetConstraint' containing required --- fields as arguments. -serviceCatalogStackSetConstraint - :: ValList Text -- ^ 'scsscAccountList' - -> Val Text -- ^ 'scsscAdminRole' - -> Val Text -- ^ 'scsscDescription' - -> Val Text -- ^ 'scsscExecutionRole' - -> Val Text -- ^ 'scsscPortfolioId' - -> Val Text -- ^ 'scsscProductId' - -> ValList Text -- ^ 'scsscRegionList' - -> Val Text -- ^ 'scsscStackInstanceControl' - -> ServiceCatalogStackSetConstraint -serviceCatalogStackSetConstraint accountListarg adminRolearg descriptionarg executionRolearg portfolioIdarg productIdarg regionListarg stackInstanceControlarg = - ServiceCatalogStackSetConstraint - { _serviceCatalogStackSetConstraintAcceptLanguage = Nothing - , _serviceCatalogStackSetConstraintAccountList = accountListarg - , _serviceCatalogStackSetConstraintAdminRole = adminRolearg - , _serviceCatalogStackSetConstraintDescription = descriptionarg - , _serviceCatalogStackSetConstraintExecutionRole = executionRolearg - , _serviceCatalogStackSetConstraintPortfolioId = portfolioIdarg - , _serviceCatalogStackSetConstraintProductId = productIdarg - , _serviceCatalogStackSetConstraintRegionList = regionListarg - , _serviceCatalogStackSetConstraintStackInstanceControl = stackInstanceControlarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-stacksetconstraint.html#cfn-servicecatalog-stacksetconstraint-acceptlanguage -scsscAcceptLanguage :: Lens' ServiceCatalogStackSetConstraint (Maybe (Val Text)) -scsscAcceptLanguage = lens _serviceCatalogStackSetConstraintAcceptLanguage (\s a -> s { _serviceCatalogStackSetConstraintAcceptLanguage = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-stacksetconstraint.html#cfn-servicecatalog-stacksetconstraint-accountlist -scsscAccountList :: Lens' ServiceCatalogStackSetConstraint (ValList Text) -scsscAccountList = lens _serviceCatalogStackSetConstraintAccountList (\s a -> s { _serviceCatalogStackSetConstraintAccountList = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-stacksetconstraint.html#cfn-servicecatalog-stacksetconstraint-adminrole -scsscAdminRole :: Lens' ServiceCatalogStackSetConstraint (Val Text) -scsscAdminRole = lens _serviceCatalogStackSetConstraintAdminRole (\s a -> s { _serviceCatalogStackSetConstraintAdminRole = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-stacksetconstraint.html#cfn-servicecatalog-stacksetconstraint-description -scsscDescription :: Lens' ServiceCatalogStackSetConstraint (Val Text) -scsscDescription = lens _serviceCatalogStackSetConstraintDescription (\s a -> s { _serviceCatalogStackSetConstraintDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-stacksetconstraint.html#cfn-servicecatalog-stacksetconstraint-executionrole -scsscExecutionRole :: Lens' ServiceCatalogStackSetConstraint (Val Text) -scsscExecutionRole = lens _serviceCatalogStackSetConstraintExecutionRole (\s a -> s { _serviceCatalogStackSetConstraintExecutionRole = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-stacksetconstraint.html#cfn-servicecatalog-stacksetconstraint-portfolioid -scsscPortfolioId :: Lens' ServiceCatalogStackSetConstraint (Val Text) -scsscPortfolioId = lens _serviceCatalogStackSetConstraintPortfolioId (\s a -> s { _serviceCatalogStackSetConstraintPortfolioId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-stacksetconstraint.html#cfn-servicecatalog-stacksetconstraint-productid -scsscProductId :: Lens' ServiceCatalogStackSetConstraint (Val Text) -scsscProductId = lens _serviceCatalogStackSetConstraintProductId (\s a -> s { _serviceCatalogStackSetConstraintProductId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-stacksetconstraint.html#cfn-servicecatalog-stacksetconstraint-regionlist -scsscRegionList :: Lens' ServiceCatalogStackSetConstraint (ValList Text) -scsscRegionList = lens _serviceCatalogStackSetConstraintRegionList (\s a -> s { _serviceCatalogStackSetConstraintRegionList = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-stacksetconstraint.html#cfn-servicecatalog-stacksetconstraint-stackinstancecontrol -scsscStackInstanceControl :: Lens' ServiceCatalogStackSetConstraint (Val Text) -scsscStackInstanceControl = lens _serviceCatalogStackSetConstraintStackInstanceControl (\s a -> s { _serviceCatalogStackSetConstraintStackInstanceControl = a }) diff --git a/library-gen/Stratosphere/Resources/ServiceCatalogTagOption.hs b/library-gen/Stratosphere/Resources/ServiceCatalogTagOption.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ServiceCatalogTagOption.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-tagoption.html - -module Stratosphere.Resources.ServiceCatalogTagOption where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ServiceCatalogTagOption. See --- 'serviceCatalogTagOption' for a more convenient constructor. -data ServiceCatalogTagOption = - ServiceCatalogTagOption - { _serviceCatalogTagOptionActive :: Maybe (Val Bool) - , _serviceCatalogTagOptionKey :: Val Text - , _serviceCatalogTagOptionValue :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties ServiceCatalogTagOption where - toResourceProperties ServiceCatalogTagOption{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ServiceCatalog::TagOption" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Active",) . toJSON) _serviceCatalogTagOptionActive - , (Just . ("Key",) . toJSON) _serviceCatalogTagOptionKey - , (Just . ("Value",) . toJSON) _serviceCatalogTagOptionValue - ] - } - --- | Constructor for 'ServiceCatalogTagOption' containing required fields as --- arguments. -serviceCatalogTagOption - :: Val Text -- ^ 'sctoKey' - -> Val Text -- ^ 'sctoValue' - -> ServiceCatalogTagOption -serviceCatalogTagOption keyarg valuearg = - ServiceCatalogTagOption - { _serviceCatalogTagOptionActive = Nothing - , _serviceCatalogTagOptionKey = keyarg - , _serviceCatalogTagOptionValue = valuearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-tagoption.html#cfn-servicecatalog-tagoption-active -sctoActive :: Lens' ServiceCatalogTagOption (Maybe (Val Bool)) -sctoActive = lens _serviceCatalogTagOptionActive (\s a -> s { _serviceCatalogTagOptionActive = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-tagoption.html#cfn-servicecatalog-tagoption-key -sctoKey :: Lens' ServiceCatalogTagOption (Val Text) -sctoKey = lens _serviceCatalogTagOptionKey (\s a -> s { _serviceCatalogTagOptionKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-tagoption.html#cfn-servicecatalog-tagoption-value -sctoValue :: Lens' ServiceCatalogTagOption (Val Text) -sctoValue = lens _serviceCatalogTagOptionValue (\s a -> s { _serviceCatalogTagOptionValue = a }) diff --git a/library-gen/Stratosphere/Resources/ServiceCatalogTagOptionAssociation.hs b/library-gen/Stratosphere/Resources/ServiceCatalogTagOptionAssociation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ServiceCatalogTagOptionAssociation.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-tagoptionassociation.html - -module Stratosphere.Resources.ServiceCatalogTagOptionAssociation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ServiceCatalogTagOptionAssociation. See --- 'serviceCatalogTagOptionAssociation' for a more convenient constructor. -data ServiceCatalogTagOptionAssociation = - ServiceCatalogTagOptionAssociation - { _serviceCatalogTagOptionAssociationResourceId :: Val Text - , _serviceCatalogTagOptionAssociationTagOptionId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties ServiceCatalogTagOptionAssociation where - toResourceProperties ServiceCatalogTagOptionAssociation{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ServiceCatalog::TagOptionAssociation" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ResourceId",) . toJSON) _serviceCatalogTagOptionAssociationResourceId - , (Just . ("TagOptionId",) . toJSON) _serviceCatalogTagOptionAssociationTagOptionId - ] - } - --- | Constructor for 'ServiceCatalogTagOptionAssociation' containing required --- fields as arguments. -serviceCatalogTagOptionAssociation - :: Val Text -- ^ 'sctoaResourceId' - -> Val Text -- ^ 'sctoaTagOptionId' - -> ServiceCatalogTagOptionAssociation -serviceCatalogTagOptionAssociation resourceIdarg tagOptionIdarg = - ServiceCatalogTagOptionAssociation - { _serviceCatalogTagOptionAssociationResourceId = resourceIdarg - , _serviceCatalogTagOptionAssociationTagOptionId = tagOptionIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-tagoptionassociation.html#cfn-servicecatalog-tagoptionassociation-resourceid -sctoaResourceId :: Lens' ServiceCatalogTagOptionAssociation (Val Text) -sctoaResourceId = lens _serviceCatalogTagOptionAssociationResourceId (\s a -> s { _serviceCatalogTagOptionAssociationResourceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicecatalog-tagoptionassociation.html#cfn-servicecatalog-tagoptionassociation-tagoptionid -sctoaTagOptionId :: Lens' ServiceCatalogTagOptionAssociation (Val Text) -sctoaTagOptionId = lens _serviceCatalogTagOptionAssociationTagOptionId (\s a -> s { _serviceCatalogTagOptionAssociationTagOptionId = a }) diff --git a/library-gen/Stratosphere/Resources/ServiceDiscoveryHttpNamespace.hs b/library-gen/Stratosphere/Resources/ServiceDiscoveryHttpNamespace.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ServiceDiscoveryHttpNamespace.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-httpnamespace.html - -module Stratosphere.Resources.ServiceDiscoveryHttpNamespace where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for ServiceDiscoveryHttpNamespace. See --- 'serviceDiscoveryHttpNamespace' for a more convenient constructor. -data ServiceDiscoveryHttpNamespace = - ServiceDiscoveryHttpNamespace - { _serviceDiscoveryHttpNamespaceDescription :: Maybe (Val Text) - , _serviceDiscoveryHttpNamespaceName :: Val Text - , _serviceDiscoveryHttpNamespaceTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties ServiceDiscoveryHttpNamespace where - toResourceProperties ServiceDiscoveryHttpNamespace{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ServiceDiscovery::HttpNamespace" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _serviceDiscoveryHttpNamespaceDescription - , (Just . ("Name",) . toJSON) _serviceDiscoveryHttpNamespaceName - , fmap (("Tags",) . toJSON) _serviceDiscoveryHttpNamespaceTags - ] - } - --- | Constructor for 'ServiceDiscoveryHttpNamespace' containing required --- fields as arguments. -serviceDiscoveryHttpNamespace - :: Val Text -- ^ 'sdhnName' - -> ServiceDiscoveryHttpNamespace -serviceDiscoveryHttpNamespace namearg = - ServiceDiscoveryHttpNamespace - { _serviceDiscoveryHttpNamespaceDescription = Nothing - , _serviceDiscoveryHttpNamespaceName = namearg - , _serviceDiscoveryHttpNamespaceTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-httpnamespace.html#cfn-servicediscovery-httpnamespace-description -sdhnDescription :: Lens' ServiceDiscoveryHttpNamespace (Maybe (Val Text)) -sdhnDescription = lens _serviceDiscoveryHttpNamespaceDescription (\s a -> s { _serviceDiscoveryHttpNamespaceDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-httpnamespace.html#cfn-servicediscovery-httpnamespace-name -sdhnName :: Lens' ServiceDiscoveryHttpNamespace (Val Text) -sdhnName = lens _serviceDiscoveryHttpNamespaceName (\s a -> s { _serviceDiscoveryHttpNamespaceName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-httpnamespace.html#cfn-servicediscovery-httpnamespace-tags -sdhnTags :: Lens' ServiceDiscoveryHttpNamespace (Maybe [Tag]) -sdhnTags = lens _serviceDiscoveryHttpNamespaceTags (\s a -> s { _serviceDiscoveryHttpNamespaceTags = a }) diff --git a/library-gen/Stratosphere/Resources/ServiceDiscoveryInstance.hs b/library-gen/Stratosphere/Resources/ServiceDiscoveryInstance.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ServiceDiscoveryInstance.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-instance.html - -module Stratosphere.Resources.ServiceDiscoveryInstance where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ServiceDiscoveryInstance. See --- 'serviceDiscoveryInstance' for a more convenient constructor. -data ServiceDiscoveryInstance = - ServiceDiscoveryInstance - { _serviceDiscoveryInstanceInstanceAttributes :: Object - , _serviceDiscoveryInstanceInstanceId :: Maybe (Val Text) - , _serviceDiscoveryInstanceServiceId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties ServiceDiscoveryInstance where - toResourceProperties ServiceDiscoveryInstance{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ServiceDiscovery::Instance" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("InstanceAttributes",) . toJSON) _serviceDiscoveryInstanceInstanceAttributes - , fmap (("InstanceId",) . toJSON) _serviceDiscoveryInstanceInstanceId - , (Just . ("ServiceId",) . toJSON) _serviceDiscoveryInstanceServiceId - ] - } - --- | Constructor for 'ServiceDiscoveryInstance' containing required fields as --- arguments. -serviceDiscoveryInstance - :: Object -- ^ 'sdiInstanceAttributes' - -> Val Text -- ^ 'sdiServiceId' - -> ServiceDiscoveryInstance -serviceDiscoveryInstance instanceAttributesarg serviceIdarg = - ServiceDiscoveryInstance - { _serviceDiscoveryInstanceInstanceAttributes = instanceAttributesarg - , _serviceDiscoveryInstanceInstanceId = Nothing - , _serviceDiscoveryInstanceServiceId = serviceIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-instance.html#cfn-servicediscovery-instance-instanceattributes -sdiInstanceAttributes :: Lens' ServiceDiscoveryInstance Object -sdiInstanceAttributes = lens _serviceDiscoveryInstanceInstanceAttributes (\s a -> s { _serviceDiscoveryInstanceInstanceAttributes = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-instance.html#cfn-servicediscovery-instance-instanceid -sdiInstanceId :: Lens' ServiceDiscoveryInstance (Maybe (Val Text)) -sdiInstanceId = lens _serviceDiscoveryInstanceInstanceId (\s a -> s { _serviceDiscoveryInstanceInstanceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-instance.html#cfn-servicediscovery-instance-serviceid -sdiServiceId :: Lens' ServiceDiscoveryInstance (Val Text) -sdiServiceId = lens _serviceDiscoveryInstanceServiceId (\s a -> s { _serviceDiscoveryInstanceServiceId = a }) diff --git a/library-gen/Stratosphere/Resources/ServiceDiscoveryPrivateDnsNamespace.hs b/library-gen/Stratosphere/Resources/ServiceDiscoveryPrivateDnsNamespace.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ServiceDiscoveryPrivateDnsNamespace.hs +++ /dev/null @@ -1,64 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-privatednsnamespace.html - -module Stratosphere.Resources.ServiceDiscoveryPrivateDnsNamespace where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for ServiceDiscoveryPrivateDnsNamespace. See --- 'serviceDiscoveryPrivateDnsNamespace' for a more convenient constructor. -data ServiceDiscoveryPrivateDnsNamespace = - ServiceDiscoveryPrivateDnsNamespace - { _serviceDiscoveryPrivateDnsNamespaceDescription :: Maybe (Val Text) - , _serviceDiscoveryPrivateDnsNamespaceName :: Val Text - , _serviceDiscoveryPrivateDnsNamespaceTags :: Maybe [Tag] - , _serviceDiscoveryPrivateDnsNamespaceVpc :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties ServiceDiscoveryPrivateDnsNamespace where - toResourceProperties ServiceDiscoveryPrivateDnsNamespace{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ServiceDiscovery::PrivateDnsNamespace" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _serviceDiscoveryPrivateDnsNamespaceDescription - , (Just . ("Name",) . toJSON) _serviceDiscoveryPrivateDnsNamespaceName - , fmap (("Tags",) . toJSON) _serviceDiscoveryPrivateDnsNamespaceTags - , (Just . ("Vpc",) . toJSON) _serviceDiscoveryPrivateDnsNamespaceVpc - ] - } - --- | Constructor for 'ServiceDiscoveryPrivateDnsNamespace' containing required --- fields as arguments. -serviceDiscoveryPrivateDnsNamespace - :: Val Text -- ^ 'sdprdnName' - -> Val Text -- ^ 'sdprdnVpc' - -> ServiceDiscoveryPrivateDnsNamespace -serviceDiscoveryPrivateDnsNamespace namearg vpcarg = - ServiceDiscoveryPrivateDnsNamespace - { _serviceDiscoveryPrivateDnsNamespaceDescription = Nothing - , _serviceDiscoveryPrivateDnsNamespaceName = namearg - , _serviceDiscoveryPrivateDnsNamespaceTags = Nothing - , _serviceDiscoveryPrivateDnsNamespaceVpc = vpcarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-privatednsnamespace.html#cfn-servicediscovery-privatednsnamespace-description -sdprdnDescription :: Lens' ServiceDiscoveryPrivateDnsNamespace (Maybe (Val Text)) -sdprdnDescription = lens _serviceDiscoveryPrivateDnsNamespaceDescription (\s a -> s { _serviceDiscoveryPrivateDnsNamespaceDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-privatednsnamespace.html#cfn-servicediscovery-privatednsnamespace-name -sdprdnName :: Lens' ServiceDiscoveryPrivateDnsNamespace (Val Text) -sdprdnName = lens _serviceDiscoveryPrivateDnsNamespaceName (\s a -> s { _serviceDiscoveryPrivateDnsNamespaceName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-privatednsnamespace.html#cfn-servicediscovery-privatednsnamespace-tags -sdprdnTags :: Lens' ServiceDiscoveryPrivateDnsNamespace (Maybe [Tag]) -sdprdnTags = lens _serviceDiscoveryPrivateDnsNamespaceTags (\s a -> s { _serviceDiscoveryPrivateDnsNamespaceTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-privatednsnamespace.html#cfn-servicediscovery-privatednsnamespace-vpc -sdprdnVpc :: Lens' ServiceDiscoveryPrivateDnsNamespace (Val Text) -sdprdnVpc = lens _serviceDiscoveryPrivateDnsNamespaceVpc (\s a -> s { _serviceDiscoveryPrivateDnsNamespaceVpc = a }) diff --git a/library-gen/Stratosphere/Resources/ServiceDiscoveryPublicDnsNamespace.hs b/library-gen/Stratosphere/Resources/ServiceDiscoveryPublicDnsNamespace.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ServiceDiscoveryPublicDnsNamespace.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-publicdnsnamespace.html - -module Stratosphere.Resources.ServiceDiscoveryPublicDnsNamespace where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for ServiceDiscoveryPublicDnsNamespace. See --- 'serviceDiscoveryPublicDnsNamespace' for a more convenient constructor. -data ServiceDiscoveryPublicDnsNamespace = - ServiceDiscoveryPublicDnsNamespace - { _serviceDiscoveryPublicDnsNamespaceDescription :: Maybe (Val Text) - , _serviceDiscoveryPublicDnsNamespaceName :: Val Text - , _serviceDiscoveryPublicDnsNamespaceTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties ServiceDiscoveryPublicDnsNamespace where - toResourceProperties ServiceDiscoveryPublicDnsNamespace{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ServiceDiscovery::PublicDnsNamespace" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _serviceDiscoveryPublicDnsNamespaceDescription - , (Just . ("Name",) . toJSON) _serviceDiscoveryPublicDnsNamespaceName - , fmap (("Tags",) . toJSON) _serviceDiscoveryPublicDnsNamespaceTags - ] - } - --- | Constructor for 'ServiceDiscoveryPublicDnsNamespace' containing required --- fields as arguments. -serviceDiscoveryPublicDnsNamespace - :: Val Text -- ^ 'sdpudnName' - -> ServiceDiscoveryPublicDnsNamespace -serviceDiscoveryPublicDnsNamespace namearg = - ServiceDiscoveryPublicDnsNamespace - { _serviceDiscoveryPublicDnsNamespaceDescription = Nothing - , _serviceDiscoveryPublicDnsNamespaceName = namearg - , _serviceDiscoveryPublicDnsNamespaceTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-publicdnsnamespace.html#cfn-servicediscovery-publicdnsnamespace-description -sdpudnDescription :: Lens' ServiceDiscoveryPublicDnsNamespace (Maybe (Val Text)) -sdpudnDescription = lens _serviceDiscoveryPublicDnsNamespaceDescription (\s a -> s { _serviceDiscoveryPublicDnsNamespaceDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-publicdnsnamespace.html#cfn-servicediscovery-publicdnsnamespace-name -sdpudnName :: Lens' ServiceDiscoveryPublicDnsNamespace (Val Text) -sdpudnName = lens _serviceDiscoveryPublicDnsNamespaceName (\s a -> s { _serviceDiscoveryPublicDnsNamespaceName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-publicdnsnamespace.html#cfn-servicediscovery-publicdnsnamespace-tags -sdpudnTags :: Lens' ServiceDiscoveryPublicDnsNamespace (Maybe [Tag]) -sdpudnTags = lens _serviceDiscoveryPublicDnsNamespaceTags (\s a -> s { _serviceDiscoveryPublicDnsNamespaceTags = a }) diff --git a/library-gen/Stratosphere/Resources/ServiceDiscoveryService.hs b/library-gen/Stratosphere/Resources/ServiceDiscoveryService.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/ServiceDiscoveryService.hs +++ /dev/null @@ -1,86 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-service.html - -module Stratosphere.Resources.ServiceDiscoveryService where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.ServiceDiscoveryServiceDnsConfig -import Stratosphere.ResourceProperties.ServiceDiscoveryServiceHealthCheckConfig -import Stratosphere.ResourceProperties.ServiceDiscoveryServiceHealthCheckCustomConfig -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for ServiceDiscoveryService. See --- 'serviceDiscoveryService' for a more convenient constructor. -data ServiceDiscoveryService = - ServiceDiscoveryService - { _serviceDiscoveryServiceDescription :: Maybe (Val Text) - , _serviceDiscoveryServiceDnsConfig :: Maybe ServiceDiscoveryServiceDnsConfig - , _serviceDiscoveryServiceHealthCheckConfig :: Maybe ServiceDiscoveryServiceHealthCheckConfig - , _serviceDiscoveryServiceHealthCheckCustomConfig :: Maybe ServiceDiscoveryServiceHealthCheckCustomConfig - , _serviceDiscoveryServiceName :: Maybe (Val Text) - , _serviceDiscoveryServiceNamespaceId :: Maybe (Val Text) - , _serviceDiscoveryServiceTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties ServiceDiscoveryService where - toResourceProperties ServiceDiscoveryService{..} = - ResourceProperties - { resourcePropertiesType = "AWS::ServiceDiscovery::Service" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _serviceDiscoveryServiceDescription - , fmap (("DnsConfig",) . toJSON) _serviceDiscoveryServiceDnsConfig - , fmap (("HealthCheckConfig",) . toJSON) _serviceDiscoveryServiceHealthCheckConfig - , fmap (("HealthCheckCustomConfig",) . toJSON) _serviceDiscoveryServiceHealthCheckCustomConfig - , fmap (("Name",) . toJSON) _serviceDiscoveryServiceName - , fmap (("NamespaceId",) . toJSON) _serviceDiscoveryServiceNamespaceId - , fmap (("Tags",) . toJSON) _serviceDiscoveryServiceTags - ] - } - --- | Constructor for 'ServiceDiscoveryService' containing required fields as --- arguments. -serviceDiscoveryService - :: ServiceDiscoveryService -serviceDiscoveryService = - ServiceDiscoveryService - { _serviceDiscoveryServiceDescription = Nothing - , _serviceDiscoveryServiceDnsConfig = Nothing - , _serviceDiscoveryServiceHealthCheckConfig = Nothing - , _serviceDiscoveryServiceHealthCheckCustomConfig = Nothing - , _serviceDiscoveryServiceName = Nothing - , _serviceDiscoveryServiceNamespaceId = Nothing - , _serviceDiscoveryServiceTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-service.html#cfn-servicediscovery-service-description -sdsDescription :: Lens' ServiceDiscoveryService (Maybe (Val Text)) -sdsDescription = lens _serviceDiscoveryServiceDescription (\s a -> s { _serviceDiscoveryServiceDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-service.html#cfn-servicediscovery-service-dnsconfig -sdsDnsConfig :: Lens' ServiceDiscoveryService (Maybe ServiceDiscoveryServiceDnsConfig) -sdsDnsConfig = lens _serviceDiscoveryServiceDnsConfig (\s a -> s { _serviceDiscoveryServiceDnsConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-service.html#cfn-servicediscovery-service-healthcheckconfig -sdsHealthCheckConfig :: Lens' ServiceDiscoveryService (Maybe ServiceDiscoveryServiceHealthCheckConfig) -sdsHealthCheckConfig = lens _serviceDiscoveryServiceHealthCheckConfig (\s a -> s { _serviceDiscoveryServiceHealthCheckConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-service.html#cfn-servicediscovery-service-healthcheckcustomconfig -sdsHealthCheckCustomConfig :: Lens' ServiceDiscoveryService (Maybe ServiceDiscoveryServiceHealthCheckCustomConfig) -sdsHealthCheckCustomConfig = lens _serviceDiscoveryServiceHealthCheckCustomConfig (\s a -> s { _serviceDiscoveryServiceHealthCheckCustomConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-service.html#cfn-servicediscovery-service-name -sdsName :: Lens' ServiceDiscoveryService (Maybe (Val Text)) -sdsName = lens _serviceDiscoveryServiceName (\s a -> s { _serviceDiscoveryServiceName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-service.html#cfn-servicediscovery-service-namespaceid -sdsNamespaceId :: Lens' ServiceDiscoveryService (Maybe (Val Text)) -sdsNamespaceId = lens _serviceDiscoveryServiceNamespaceId (\s a -> s { _serviceDiscoveryServiceNamespaceId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-servicediscovery-service.html#cfn-servicediscovery-service-tags -sdsTags :: Lens' ServiceDiscoveryService (Maybe [Tag]) -sdsTags = lens _serviceDiscoveryServiceTags (\s a -> s { _serviceDiscoveryServiceTags = a }) diff --git a/library-gen/Stratosphere/Resources/StepFunctionsActivity.hs b/library-gen/Stratosphere/Resources/StepFunctionsActivity.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/StepFunctionsActivity.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-stepfunctions-activity.html - -module Stratosphere.Resources.StepFunctionsActivity where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.StepFunctionsActivityTagsEntry - --- | Full data type definition for StepFunctionsActivity. See --- 'stepFunctionsActivity' for a more convenient constructor. -data StepFunctionsActivity = - StepFunctionsActivity - { _stepFunctionsActivityName :: Val Text - , _stepFunctionsActivityTags :: Maybe [StepFunctionsActivityTagsEntry] - } deriving (Show, Eq) - -instance ToResourceProperties StepFunctionsActivity where - toResourceProperties StepFunctionsActivity{..} = - ResourceProperties - { resourcePropertiesType = "AWS::StepFunctions::Activity" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Name",) . toJSON) _stepFunctionsActivityName - , fmap (("Tags",) . toJSON) _stepFunctionsActivityTags - ] - } - --- | Constructor for 'StepFunctionsActivity' containing required fields as --- arguments. -stepFunctionsActivity - :: Val Text -- ^ 'sfaName' - -> StepFunctionsActivity -stepFunctionsActivity namearg = - StepFunctionsActivity - { _stepFunctionsActivityName = namearg - , _stepFunctionsActivityTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-stepfunctions-activity.html#cfn-stepfunctions-activity-name -sfaName :: Lens' StepFunctionsActivity (Val Text) -sfaName = lens _stepFunctionsActivityName (\s a -> s { _stepFunctionsActivityName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-stepfunctions-activity.html#cfn-stepfunctions-activity-tags -sfaTags :: Lens' StepFunctionsActivity (Maybe [StepFunctionsActivityTagsEntry]) -sfaTags = lens _stepFunctionsActivityTags (\s a -> s { _stepFunctionsActivityTags = a }) diff --git a/library-gen/Stratosphere/Resources/StepFunctionsStateMachine.hs b/library-gen/Stratosphere/Resources/StepFunctionsStateMachine.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/StepFunctionsStateMachine.hs +++ /dev/null @@ -1,101 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-stepfunctions-statemachine.html - -module Stratosphere.Resources.StepFunctionsStateMachine where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.StepFunctionsStateMachineS3Location -import Stratosphere.ResourceProperties.StepFunctionsStateMachineLoggingConfiguration -import Stratosphere.ResourceProperties.StepFunctionsStateMachineTagsEntry -import Stratosphere.ResourceProperties.StepFunctionsStateMachineTracingConfiguration - --- | Full data type definition for StepFunctionsStateMachine. See --- 'stepFunctionsStateMachine' for a more convenient constructor. -data StepFunctionsStateMachine = - StepFunctionsStateMachine - { _stepFunctionsStateMachineDefinitionS3Location :: Maybe StepFunctionsStateMachineS3Location - , _stepFunctionsStateMachineDefinitionString :: Maybe (Val Text) - , _stepFunctionsStateMachineDefinitionSubstitutions :: Maybe Object - , _stepFunctionsStateMachineLoggingConfiguration :: Maybe StepFunctionsStateMachineLoggingConfiguration - , _stepFunctionsStateMachineRoleArn :: Val Text - , _stepFunctionsStateMachineStateMachineName :: Maybe (Val Text) - , _stepFunctionsStateMachineStateMachineType :: Maybe (Val Text) - , _stepFunctionsStateMachineTags :: Maybe [StepFunctionsStateMachineTagsEntry] - , _stepFunctionsStateMachineTracingConfiguration :: Maybe StepFunctionsStateMachineTracingConfiguration - } deriving (Show, Eq) - -instance ToResourceProperties StepFunctionsStateMachine where - toResourceProperties StepFunctionsStateMachine{..} = - ResourceProperties - { resourcePropertiesType = "AWS::StepFunctions::StateMachine" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("DefinitionS3Location",) . toJSON) _stepFunctionsStateMachineDefinitionS3Location - , fmap (("DefinitionString",) . toJSON) _stepFunctionsStateMachineDefinitionString - , fmap (("DefinitionSubstitutions",) . toJSON) _stepFunctionsStateMachineDefinitionSubstitutions - , fmap (("LoggingConfiguration",) . toJSON) _stepFunctionsStateMachineLoggingConfiguration - , (Just . ("RoleArn",) . toJSON) _stepFunctionsStateMachineRoleArn - , fmap (("StateMachineName",) . toJSON) _stepFunctionsStateMachineStateMachineName - , fmap (("StateMachineType",) . toJSON) _stepFunctionsStateMachineStateMachineType - , fmap (("Tags",) . toJSON) _stepFunctionsStateMachineTags - , fmap (("TracingConfiguration",) . toJSON) _stepFunctionsStateMachineTracingConfiguration - ] - } - --- | Constructor for 'StepFunctionsStateMachine' containing required fields as --- arguments. -stepFunctionsStateMachine - :: Val Text -- ^ 'sfsmRoleArn' - -> StepFunctionsStateMachine -stepFunctionsStateMachine roleArnarg = - StepFunctionsStateMachine - { _stepFunctionsStateMachineDefinitionS3Location = Nothing - , _stepFunctionsStateMachineDefinitionString = Nothing - , _stepFunctionsStateMachineDefinitionSubstitutions = Nothing - , _stepFunctionsStateMachineLoggingConfiguration = Nothing - , _stepFunctionsStateMachineRoleArn = roleArnarg - , _stepFunctionsStateMachineStateMachineName = Nothing - , _stepFunctionsStateMachineStateMachineType = Nothing - , _stepFunctionsStateMachineTags = Nothing - , _stepFunctionsStateMachineTracingConfiguration = 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 (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-definitionsubstitutions -sfsmDefinitionSubstitutions :: Lens' StepFunctionsStateMachine (Maybe Object) -sfsmDefinitionSubstitutions = lens _stepFunctionsStateMachineDefinitionSubstitutions (\s a -> s { _stepFunctionsStateMachineDefinitionSubstitutions = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-stepfunctions-statemachine.html#cfn-stepfunctions-statemachine-loggingconfiguration -sfsmLoggingConfiguration :: Lens' StepFunctionsStateMachine (Maybe StepFunctionsStateMachineLoggingConfiguration) -sfsmLoggingConfiguration = lens _stepFunctionsStateMachineLoggingConfiguration (\s a -> s { _stepFunctionsStateMachineLoggingConfiguration = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-stepfunctions-statemachine.html#cfn-stepfunctions-statemachine-rolearn -sfsmRoleArn :: Lens' StepFunctionsStateMachine (Val Text) -sfsmRoleArn = lens _stepFunctionsStateMachineRoleArn (\s a -> s { _stepFunctionsStateMachineRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-stepfunctions-statemachine.html#cfn-stepfunctions-statemachine-statemachinename -sfsmStateMachineName :: Lens' StepFunctionsStateMachine (Maybe (Val Text)) -sfsmStateMachineName = lens _stepFunctionsStateMachineStateMachineName (\s a -> s { _stepFunctionsStateMachineStateMachineName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-stepfunctions-statemachine.html#cfn-stepfunctions-statemachine-statemachinetype -sfsmStateMachineType :: Lens' StepFunctionsStateMachine (Maybe (Val Text)) -sfsmStateMachineType = lens _stepFunctionsStateMachineStateMachineType (\s a -> s { _stepFunctionsStateMachineStateMachineType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-stepfunctions-statemachine.html#cfn-stepfunctions-statemachine-tags -sfsmTags :: Lens' StepFunctionsStateMachine (Maybe [StepFunctionsStateMachineTagsEntry]) -sfsmTags = lens _stepFunctionsStateMachineTags (\s a -> s { _stepFunctionsStateMachineTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-stepfunctions-statemachine.html#cfn-stepfunctions-statemachine-tracingconfiguration -sfsmTracingConfiguration :: Lens' StepFunctionsStateMachine (Maybe StepFunctionsStateMachineTracingConfiguration) -sfsmTracingConfiguration = lens _stepFunctionsStateMachineTracingConfiguration (\s a -> s { _stepFunctionsStateMachineTracingConfiguration = a }) diff --git a/library-gen/Stratosphere/Resources/SyntheticsCanary.hs b/library-gen/Stratosphere/Resources/SyntheticsCanary.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/SyntheticsCanary.hs +++ /dev/null @@ -1,129 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-synthetics-canary.html - -module Stratosphere.Resources.SyntheticsCanary where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.SyntheticsCanaryCode -import Stratosphere.ResourceProperties.SyntheticsCanaryRunConfig -import Stratosphere.ResourceProperties.SyntheticsCanarySchedule -import Stratosphere.ResourceProperties.Tag -import Stratosphere.ResourceProperties.SyntheticsCanaryVPCConfig - --- | Full data type definition for SyntheticsCanary. See 'syntheticsCanary' --- for a more convenient constructor. -data SyntheticsCanary = - SyntheticsCanary - { _syntheticsCanaryArtifactS3Location :: Val Text - , _syntheticsCanaryCode :: SyntheticsCanaryCode - , _syntheticsCanaryExecutionRoleArn :: Val Text - , _syntheticsCanaryFailureRetentionPeriod :: Maybe (Val Integer) - , _syntheticsCanaryName :: Val Text - , _syntheticsCanaryRunConfig :: Maybe SyntheticsCanaryRunConfig - , _syntheticsCanaryRuntimeVersion :: Val Text - , _syntheticsCanarySchedule :: SyntheticsCanarySchedule - , _syntheticsCanaryStartCanaryAfterCreation :: Val Bool - , _syntheticsCanarySuccessRetentionPeriod :: Maybe (Val Integer) - , _syntheticsCanaryTags :: Maybe [Tag] - , _syntheticsCanaryVPCConfig :: Maybe SyntheticsCanaryVPCConfig - } deriving (Show, Eq) - -instance ToResourceProperties SyntheticsCanary where - toResourceProperties SyntheticsCanary{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Synthetics::Canary" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ArtifactS3Location",) . toJSON) _syntheticsCanaryArtifactS3Location - , (Just . ("Code",) . toJSON) _syntheticsCanaryCode - , (Just . ("ExecutionRoleArn",) . toJSON) _syntheticsCanaryExecutionRoleArn - , fmap (("FailureRetentionPeriod",) . toJSON) _syntheticsCanaryFailureRetentionPeriod - , (Just . ("Name",) . toJSON) _syntheticsCanaryName - , fmap (("RunConfig",) . toJSON) _syntheticsCanaryRunConfig - , (Just . ("RuntimeVersion",) . toJSON) _syntheticsCanaryRuntimeVersion - , (Just . ("Schedule",) . toJSON) _syntheticsCanarySchedule - , (Just . ("StartCanaryAfterCreation",) . toJSON) _syntheticsCanaryStartCanaryAfterCreation - , fmap (("SuccessRetentionPeriod",) . toJSON) _syntheticsCanarySuccessRetentionPeriod - , fmap (("Tags",) . toJSON) _syntheticsCanaryTags - , fmap (("VPCConfig",) . toJSON) _syntheticsCanaryVPCConfig - ] - } - --- | Constructor for 'SyntheticsCanary' containing required fields as --- arguments. -syntheticsCanary - :: Val Text -- ^ 'scArtifactS3Location' - -> SyntheticsCanaryCode -- ^ 'scCode' - -> Val Text -- ^ 'scExecutionRoleArn' - -> Val Text -- ^ 'scName' - -> Val Text -- ^ 'scRuntimeVersion' - -> SyntheticsCanarySchedule -- ^ 'scSchedule' - -> Val Bool -- ^ 'scStartCanaryAfterCreation' - -> SyntheticsCanary -syntheticsCanary artifactS3Locationarg codearg executionRoleArnarg namearg runtimeVersionarg schedulearg startCanaryAfterCreationarg = - SyntheticsCanary - { _syntheticsCanaryArtifactS3Location = artifactS3Locationarg - , _syntheticsCanaryCode = codearg - , _syntheticsCanaryExecutionRoleArn = executionRoleArnarg - , _syntheticsCanaryFailureRetentionPeriod = Nothing - , _syntheticsCanaryName = namearg - , _syntheticsCanaryRunConfig = Nothing - , _syntheticsCanaryRuntimeVersion = runtimeVersionarg - , _syntheticsCanarySchedule = schedulearg - , _syntheticsCanaryStartCanaryAfterCreation = startCanaryAfterCreationarg - , _syntheticsCanarySuccessRetentionPeriod = Nothing - , _syntheticsCanaryTags = Nothing - , _syntheticsCanaryVPCConfig = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-synthetics-canary.html#cfn-synthetics-canary-artifacts3location -scArtifactS3Location :: Lens' SyntheticsCanary (Val Text) -scArtifactS3Location = lens _syntheticsCanaryArtifactS3Location (\s a -> s { _syntheticsCanaryArtifactS3Location = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-synthetics-canary.html#cfn-synthetics-canary-code -scCode :: Lens' SyntheticsCanary SyntheticsCanaryCode -scCode = lens _syntheticsCanaryCode (\s a -> s { _syntheticsCanaryCode = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-synthetics-canary.html#cfn-synthetics-canary-executionrolearn -scExecutionRoleArn :: Lens' SyntheticsCanary (Val Text) -scExecutionRoleArn = lens _syntheticsCanaryExecutionRoleArn (\s a -> s { _syntheticsCanaryExecutionRoleArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-synthetics-canary.html#cfn-synthetics-canary-failureretentionperiod -scFailureRetentionPeriod :: Lens' SyntheticsCanary (Maybe (Val Integer)) -scFailureRetentionPeriod = lens _syntheticsCanaryFailureRetentionPeriod (\s a -> s { _syntheticsCanaryFailureRetentionPeriod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-synthetics-canary.html#cfn-synthetics-canary-name -scName :: Lens' SyntheticsCanary (Val Text) -scName = lens _syntheticsCanaryName (\s a -> s { _syntheticsCanaryName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-synthetics-canary.html#cfn-synthetics-canary-runconfig -scRunConfig :: Lens' SyntheticsCanary (Maybe SyntheticsCanaryRunConfig) -scRunConfig = lens _syntheticsCanaryRunConfig (\s a -> s { _syntheticsCanaryRunConfig = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-synthetics-canary.html#cfn-synthetics-canary-runtimeversion -scRuntimeVersion :: Lens' SyntheticsCanary (Val Text) -scRuntimeVersion = lens _syntheticsCanaryRuntimeVersion (\s a -> s { _syntheticsCanaryRuntimeVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-synthetics-canary.html#cfn-synthetics-canary-schedule -scSchedule :: Lens' SyntheticsCanary SyntheticsCanarySchedule -scSchedule = lens _syntheticsCanarySchedule (\s a -> s { _syntheticsCanarySchedule = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-synthetics-canary.html#cfn-synthetics-canary-startcanaryaftercreation -scStartCanaryAfterCreation :: Lens' SyntheticsCanary (Val Bool) -scStartCanaryAfterCreation = lens _syntheticsCanaryStartCanaryAfterCreation (\s a -> s { _syntheticsCanaryStartCanaryAfterCreation = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-synthetics-canary.html#cfn-synthetics-canary-successretentionperiod -scSuccessRetentionPeriod :: Lens' SyntheticsCanary (Maybe (Val Integer)) -scSuccessRetentionPeriod = lens _syntheticsCanarySuccessRetentionPeriod (\s a -> s { _syntheticsCanarySuccessRetentionPeriod = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-synthetics-canary.html#cfn-synthetics-canary-tags -scTags :: Lens' SyntheticsCanary (Maybe [Tag]) -scTags = lens _syntheticsCanaryTags (\s a -> s { _syntheticsCanaryTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-synthetics-canary.html#cfn-synthetics-canary-vpcconfig -scVPCConfig :: Lens' SyntheticsCanary (Maybe SyntheticsCanaryVPCConfig) -scVPCConfig = lens _syntheticsCanaryVPCConfig (\s a -> s { _syntheticsCanaryVPCConfig = a }) diff --git a/library-gen/Stratosphere/Resources/TransferServer.hs b/library-gen/Stratosphere/Resources/TransferServer.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/TransferServer.hs +++ /dev/null @@ -1,91 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-transfer-server.html - -module Stratosphere.Resources.TransferServer where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.TransferServerEndpointDetails -import Stratosphere.ResourceProperties.TransferServerIdentityProviderDetails -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for TransferServer. See 'transferServer' for a --- more convenient constructor. -data TransferServer = - TransferServer - { _transferServerCertificate :: Maybe (Val Text) - , _transferServerEndpointDetails :: Maybe TransferServerEndpointDetails - , _transferServerEndpointType :: Maybe (Val Text) - , _transferServerIdentityProviderDetails :: Maybe TransferServerIdentityProviderDetails - , _transferServerIdentityProviderType :: Maybe (Val Text) - , _transferServerLoggingRole :: Maybe (Val Text) - , _transferServerSecurityPolicyName :: Maybe (Val Text) - , _transferServerTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties TransferServer where - toResourceProperties TransferServer{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Transfer::Server" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Certificate",) . toJSON) _transferServerCertificate - , fmap (("EndpointDetails",) . toJSON) _transferServerEndpointDetails - , fmap (("EndpointType",) . toJSON) _transferServerEndpointType - , fmap (("IdentityProviderDetails",) . toJSON) _transferServerIdentityProviderDetails - , fmap (("IdentityProviderType",) . toJSON) _transferServerIdentityProviderType - , fmap (("LoggingRole",) . toJSON) _transferServerLoggingRole - , fmap (("SecurityPolicyName",) . toJSON) _transferServerSecurityPolicyName - , fmap (("Tags",) . toJSON) _transferServerTags - ] - } - --- | Constructor for 'TransferServer' containing required fields as arguments. -transferServer - :: TransferServer -transferServer = - TransferServer - { _transferServerCertificate = Nothing - , _transferServerEndpointDetails = Nothing - , _transferServerEndpointType = Nothing - , _transferServerIdentityProviderDetails = Nothing - , _transferServerIdentityProviderType = Nothing - , _transferServerLoggingRole = Nothing - , _transferServerSecurityPolicyName = Nothing - , _transferServerTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-transfer-server.html#cfn-transfer-server-certificate -tsCertificate :: Lens' TransferServer (Maybe (Val Text)) -tsCertificate = lens _transferServerCertificate (\s a -> s { _transferServerCertificate = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-transfer-server.html#cfn-transfer-server-endpointdetails -tsEndpointDetails :: Lens' TransferServer (Maybe TransferServerEndpointDetails) -tsEndpointDetails = lens _transferServerEndpointDetails (\s a -> s { _transferServerEndpointDetails = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-transfer-server.html#cfn-transfer-server-endpointtype -tsEndpointType :: Lens' TransferServer (Maybe (Val Text)) -tsEndpointType = lens _transferServerEndpointType (\s a -> s { _transferServerEndpointType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-transfer-server.html#cfn-transfer-server-identityproviderdetails -tsIdentityProviderDetails :: Lens' TransferServer (Maybe TransferServerIdentityProviderDetails) -tsIdentityProviderDetails = lens _transferServerIdentityProviderDetails (\s a -> s { _transferServerIdentityProviderDetails = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-transfer-server.html#cfn-transfer-server-identityprovidertype -tsIdentityProviderType :: Lens' TransferServer (Maybe (Val Text)) -tsIdentityProviderType = lens _transferServerIdentityProviderType (\s a -> s { _transferServerIdentityProviderType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-transfer-server.html#cfn-transfer-server-loggingrole -tsLoggingRole :: Lens' TransferServer (Maybe (Val Text)) -tsLoggingRole = lens _transferServerLoggingRole (\s a -> s { _transferServerLoggingRole = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-transfer-server.html#cfn-transfer-server-securitypolicyname -tsSecurityPolicyName :: Lens' TransferServer (Maybe (Val Text)) -tsSecurityPolicyName = lens _transferServerSecurityPolicyName (\s a -> s { _transferServerSecurityPolicyName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-transfer-server.html#cfn-transfer-server-tags -tsTags :: Lens' TransferServer (Maybe [Tag]) -tsTags = lens _transferServerTags (\s a -> s { _transferServerTags = a }) diff --git a/library-gen/Stratosphere/Resources/TransferUser.hs b/library-gen/Stratosphere/Resources/TransferUser.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/TransferUser.hs +++ /dev/null @@ -1,100 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-transfer-user.html - -module Stratosphere.Resources.TransferUser where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.TransferUserHomeDirectoryMapEntry -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for TransferUser. See 'transferUser' for a more --- convenient constructor. -data TransferUser = - TransferUser - { _transferUserHomeDirectory :: Maybe (Val Text) - , _transferUserHomeDirectoryMappings :: Maybe [TransferUserHomeDirectoryMapEntry] - , _transferUserHomeDirectoryType :: Maybe (Val Text) - , _transferUserPolicy :: Maybe (Val Text) - , _transferUserRole :: Val Text - , _transferUserServerId :: Val Text - , _transferUserSshPublicKeys :: Maybe (ValList Text) - , _transferUserTags :: Maybe [Tag] - , _transferUserUserName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties TransferUser where - toResourceProperties TransferUser{..} = - ResourceProperties - { resourcePropertiesType = "AWS::Transfer::User" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("HomeDirectory",) . toJSON) _transferUserHomeDirectory - , fmap (("HomeDirectoryMappings",) . toJSON) _transferUserHomeDirectoryMappings - , fmap (("HomeDirectoryType",) . toJSON) _transferUserHomeDirectoryType - , fmap (("Policy",) . toJSON) _transferUserPolicy - , (Just . ("Role",) . toJSON) _transferUserRole - , (Just . ("ServerId",) . toJSON) _transferUserServerId - , fmap (("SshPublicKeys",) . toJSON) _transferUserSshPublicKeys - , fmap (("Tags",) . toJSON) _transferUserTags - , (Just . ("UserName",) . toJSON) _transferUserUserName - ] - } - --- | Constructor for 'TransferUser' containing required fields as arguments. -transferUser - :: Val Text -- ^ 'tuRole' - -> Val Text -- ^ 'tuServerId' - -> Val Text -- ^ 'tuUserName' - -> TransferUser -transferUser rolearg serverIdarg userNamearg = - TransferUser - { _transferUserHomeDirectory = Nothing - , _transferUserHomeDirectoryMappings = Nothing - , _transferUserHomeDirectoryType = Nothing - , _transferUserPolicy = Nothing - , _transferUserRole = rolearg - , _transferUserServerId = serverIdarg - , _transferUserSshPublicKeys = Nothing - , _transferUserTags = Nothing - , _transferUserUserName = userNamearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-transfer-user.html#cfn-transfer-user-homedirectory -tuHomeDirectory :: Lens' TransferUser (Maybe (Val Text)) -tuHomeDirectory = lens _transferUserHomeDirectory (\s a -> s { _transferUserHomeDirectory = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-transfer-user.html#cfn-transfer-user-homedirectorymappings -tuHomeDirectoryMappings :: Lens' TransferUser (Maybe [TransferUserHomeDirectoryMapEntry]) -tuHomeDirectoryMappings = lens _transferUserHomeDirectoryMappings (\s a -> s { _transferUserHomeDirectoryMappings = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-transfer-user.html#cfn-transfer-user-homedirectorytype -tuHomeDirectoryType :: Lens' TransferUser (Maybe (Val Text)) -tuHomeDirectoryType = lens _transferUserHomeDirectoryType (\s a -> s { _transferUserHomeDirectoryType = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-transfer-user.html#cfn-transfer-user-policy -tuPolicy :: Lens' TransferUser (Maybe (Val Text)) -tuPolicy = lens _transferUserPolicy (\s a -> s { _transferUserPolicy = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-transfer-user.html#cfn-transfer-user-role -tuRole :: Lens' TransferUser (Val Text) -tuRole = lens _transferUserRole (\s a -> s { _transferUserRole = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-transfer-user.html#cfn-transfer-user-serverid -tuServerId :: Lens' TransferUser (Val Text) -tuServerId = lens _transferUserServerId (\s a -> s { _transferUserServerId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-transfer-user.html#cfn-transfer-user-sshpublickeys -tuSshPublicKeys :: Lens' TransferUser (Maybe (ValList Text)) -tuSshPublicKeys = lens _transferUserSshPublicKeys (\s a -> s { _transferUserSshPublicKeys = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-transfer-user.html#cfn-transfer-user-tags -tuTags :: Lens' TransferUser (Maybe [Tag]) -tuTags = lens _transferUserTags (\s a -> s { _transferUserTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-transfer-user.html#cfn-transfer-user-username -tuUserName :: Lens' TransferUser (Val Text) -tuUserName = lens _transferUserUserName (\s a -> s { _transferUserUserName = a }) diff --git a/library-gen/Stratosphere/Resources/WAFByteMatchSet.hs b/library-gen/Stratosphere/Resources/WAFByteMatchSet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/WAFByteMatchSet.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-waf-bytematchset.html - -module Stratosphere.Resources.WAFByteMatchSet where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFByteMatchSetByteMatchTuple - --- | Full data type definition for WAFByteMatchSet. See 'wafByteMatchSet' for --- a more convenient constructor. -data WAFByteMatchSet = - WAFByteMatchSet - { _wAFByteMatchSetByteMatchTuples :: Maybe [WAFByteMatchSetByteMatchTuple] - , _wAFByteMatchSetName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties WAFByteMatchSet where - toResourceProperties WAFByteMatchSet{..} = - ResourceProperties - { resourcePropertiesType = "AWS::WAF::ByteMatchSet" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ByteMatchTuples",) . toJSON) _wAFByteMatchSetByteMatchTuples - , (Just . ("Name",) . toJSON) _wAFByteMatchSetName - ] - } - --- | Constructor for 'WAFByteMatchSet' containing required fields as --- arguments. -wafByteMatchSet - :: Val Text -- ^ 'wafbmsName' - -> WAFByteMatchSet -wafByteMatchSet namearg = - WAFByteMatchSet - { _wAFByteMatchSetByteMatchTuples = Nothing - , _wAFByteMatchSetName = namearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-waf-bytematchset.html#cfn-waf-bytematchset-bytematchtuples -wafbmsByteMatchTuples :: Lens' WAFByteMatchSet (Maybe [WAFByteMatchSetByteMatchTuple]) -wafbmsByteMatchTuples = lens _wAFByteMatchSetByteMatchTuples (\s a -> s { _wAFByteMatchSetByteMatchTuples = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-waf-bytematchset.html#cfn-waf-bytematchset-name -wafbmsName :: Lens' WAFByteMatchSet (Val Text) -wafbmsName = lens _wAFByteMatchSetName (\s a -> s { _wAFByteMatchSetName = a }) diff --git a/library-gen/Stratosphere/Resources/WAFIPSet.hs b/library-gen/Stratosphere/Resources/WAFIPSet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/WAFIPSet.hs +++ /dev/null @@ -1,48 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-waf-ipset.html - -module Stratosphere.Resources.WAFIPSet where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFIPSetIPSetDescriptor - --- | Full data type definition for WAFIPSet. See 'wafipSet' for a more --- convenient constructor. -data WAFIPSet = - WAFIPSet - { _wAFIPSetIPSetDescriptors :: Maybe [WAFIPSetIPSetDescriptor] - , _wAFIPSetName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties WAFIPSet where - toResourceProperties WAFIPSet{..} = - ResourceProperties - { resourcePropertiesType = "AWS::WAF::IPSet" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("IPSetDescriptors",) . toJSON) _wAFIPSetIPSetDescriptors - , (Just . ("Name",) . toJSON) _wAFIPSetName - ] - } - --- | Constructor for 'WAFIPSet' containing required fields as arguments. -wafipSet - :: Val Text -- ^ 'wafipsName' - -> WAFIPSet -wafipSet namearg = - WAFIPSet - { _wAFIPSetIPSetDescriptors = Nothing - , _wAFIPSetName = namearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-waf-ipset.html#cfn-waf-ipset-ipsetdescriptors -wafipsIPSetDescriptors :: Lens' WAFIPSet (Maybe [WAFIPSetIPSetDescriptor]) -wafipsIPSetDescriptors = lens _wAFIPSetIPSetDescriptors (\s a -> s { _wAFIPSetIPSetDescriptors = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-waf-ipset.html#cfn-waf-ipset-name -wafipsName :: Lens' WAFIPSet (Val Text) -wafipsName = lens _wAFIPSetName (\s a -> s { _wAFIPSetName = a }) diff --git a/library-gen/Stratosphere/Resources/WAFRegionalByteMatchSet.hs b/library-gen/Stratosphere/Resources/WAFRegionalByteMatchSet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/WAFRegionalByteMatchSet.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-bytematchset.html - -module Stratosphere.Resources.WAFRegionalByteMatchSet where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFRegionalByteMatchSetByteMatchTuple - --- | Full data type definition for WAFRegionalByteMatchSet. See --- 'wafRegionalByteMatchSet' for a more convenient constructor. -data WAFRegionalByteMatchSet = - WAFRegionalByteMatchSet - { _wAFRegionalByteMatchSetByteMatchTuples :: Maybe [WAFRegionalByteMatchSetByteMatchTuple] - , _wAFRegionalByteMatchSetName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties WAFRegionalByteMatchSet where - toResourceProperties WAFRegionalByteMatchSet{..} = - ResourceProperties - { resourcePropertiesType = "AWS::WAFRegional::ByteMatchSet" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("ByteMatchTuples",) . toJSON) _wAFRegionalByteMatchSetByteMatchTuples - , (Just . ("Name",) . toJSON) _wAFRegionalByteMatchSetName - ] - } - --- | Constructor for 'WAFRegionalByteMatchSet' containing required fields as --- arguments. -wafRegionalByteMatchSet - :: Val Text -- ^ 'wafrbmsName' - -> WAFRegionalByteMatchSet -wafRegionalByteMatchSet namearg = - WAFRegionalByteMatchSet - { _wAFRegionalByteMatchSetByteMatchTuples = Nothing - , _wAFRegionalByteMatchSetName = namearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-bytematchset.html#cfn-wafregional-bytematchset-bytematchtuples -wafrbmsByteMatchTuples :: Lens' WAFRegionalByteMatchSet (Maybe [WAFRegionalByteMatchSetByteMatchTuple]) -wafrbmsByteMatchTuples = lens _wAFRegionalByteMatchSetByteMatchTuples (\s a -> s { _wAFRegionalByteMatchSetByteMatchTuples = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-bytematchset.html#cfn-wafregional-bytematchset-name -wafrbmsName :: Lens' WAFRegionalByteMatchSet (Val Text) -wafrbmsName = lens _wAFRegionalByteMatchSetName (\s a -> s { _wAFRegionalByteMatchSetName = a }) diff --git a/library-gen/Stratosphere/Resources/WAFRegionalGeoMatchSet.hs b/library-gen/Stratosphere/Resources/WAFRegionalGeoMatchSet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/WAFRegionalGeoMatchSet.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-geomatchset.html - -module Stratosphere.Resources.WAFRegionalGeoMatchSet where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFRegionalGeoMatchSetGeoMatchConstraint - --- | Full data type definition for WAFRegionalGeoMatchSet. See --- 'wafRegionalGeoMatchSet' for a more convenient constructor. -data WAFRegionalGeoMatchSet = - WAFRegionalGeoMatchSet - { _wAFRegionalGeoMatchSetGeoMatchConstraints :: Maybe [WAFRegionalGeoMatchSetGeoMatchConstraint] - , _wAFRegionalGeoMatchSetName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties WAFRegionalGeoMatchSet where - toResourceProperties WAFRegionalGeoMatchSet{..} = - ResourceProperties - { resourcePropertiesType = "AWS::WAFRegional::GeoMatchSet" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("GeoMatchConstraints",) . toJSON) _wAFRegionalGeoMatchSetGeoMatchConstraints - , (Just . ("Name",) . toJSON) _wAFRegionalGeoMatchSetName - ] - } - --- | Constructor for 'WAFRegionalGeoMatchSet' containing required fields as --- arguments. -wafRegionalGeoMatchSet - :: Val Text -- ^ 'wafrgmsName' - -> WAFRegionalGeoMatchSet -wafRegionalGeoMatchSet namearg = - WAFRegionalGeoMatchSet - { _wAFRegionalGeoMatchSetGeoMatchConstraints = Nothing - , _wAFRegionalGeoMatchSetName = namearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-geomatchset.html#cfn-wafregional-geomatchset-geomatchconstraints -wafrgmsGeoMatchConstraints :: Lens' WAFRegionalGeoMatchSet (Maybe [WAFRegionalGeoMatchSetGeoMatchConstraint]) -wafrgmsGeoMatchConstraints = lens _wAFRegionalGeoMatchSetGeoMatchConstraints (\s a -> s { _wAFRegionalGeoMatchSetGeoMatchConstraints = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-geomatchset.html#cfn-wafregional-geomatchset-name -wafrgmsName :: Lens' WAFRegionalGeoMatchSet (Val Text) -wafrgmsName = lens _wAFRegionalGeoMatchSetName (\s a -> s { _wAFRegionalGeoMatchSetName = a }) diff --git a/library-gen/Stratosphere/Resources/WAFRegionalIPSet.hs b/library-gen/Stratosphere/Resources/WAFRegionalIPSet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/WAFRegionalIPSet.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-ipset.html - -module Stratosphere.Resources.WAFRegionalIPSet where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFRegionalIPSetIPSetDescriptor - --- | Full data type definition for WAFRegionalIPSet. See 'wafRegionalIPSet' --- for a more convenient constructor. -data WAFRegionalIPSet = - WAFRegionalIPSet - { _wAFRegionalIPSetIPSetDescriptors :: Maybe [WAFRegionalIPSetIPSetDescriptor] - , _wAFRegionalIPSetName :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties WAFRegionalIPSet where - toResourceProperties WAFRegionalIPSet{..} = - ResourceProperties - { resourcePropertiesType = "AWS::WAFRegional::IPSet" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("IPSetDescriptors",) . toJSON) _wAFRegionalIPSetIPSetDescriptors - , (Just . ("Name",) . toJSON) _wAFRegionalIPSetName - ] - } - --- | Constructor for 'WAFRegionalIPSet' containing required fields as --- arguments. -wafRegionalIPSet - :: Val Text -- ^ 'wafripsName' - -> WAFRegionalIPSet -wafRegionalIPSet namearg = - WAFRegionalIPSet - { _wAFRegionalIPSetIPSetDescriptors = Nothing - , _wAFRegionalIPSetName = namearg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-ipset.html#cfn-wafregional-ipset-ipsetdescriptors -wafripsIPSetDescriptors :: Lens' WAFRegionalIPSet (Maybe [WAFRegionalIPSetIPSetDescriptor]) -wafripsIPSetDescriptors = lens _wAFRegionalIPSetIPSetDescriptors (\s a -> s { _wAFRegionalIPSetIPSetDescriptors = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-ipset.html#cfn-wafregional-ipset-name -wafripsName :: Lens' WAFRegionalIPSet (Val Text) -wafripsName = lens _wAFRegionalIPSetName (\s a -> s { _wAFRegionalIPSetName = a }) diff --git a/library-gen/Stratosphere/Resources/WAFRegionalRateBasedRule.hs b/library-gen/Stratosphere/Resources/WAFRegionalRateBasedRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/WAFRegionalRateBasedRule.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-ratebasedrule.html - -module Stratosphere.Resources.WAFRegionalRateBasedRule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFRegionalRateBasedRulePredicate - --- | Full data type definition for WAFRegionalRateBasedRule. See --- 'wafRegionalRateBasedRule' for a more convenient constructor. -data WAFRegionalRateBasedRule = - WAFRegionalRateBasedRule - { _wAFRegionalRateBasedRuleMatchPredicates :: Maybe [WAFRegionalRateBasedRulePredicate] - , _wAFRegionalRateBasedRuleMetricName :: Val Text - , _wAFRegionalRateBasedRuleName :: Val Text - , _wAFRegionalRateBasedRuleRateKey :: Val Text - , _wAFRegionalRateBasedRuleRateLimit :: Val Integer - } deriving (Show, Eq) - -instance ToResourceProperties WAFRegionalRateBasedRule where - toResourceProperties WAFRegionalRateBasedRule{..} = - ResourceProperties - { resourcePropertiesType = "AWS::WAFRegional::RateBasedRule" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("MatchPredicates",) . toJSON) _wAFRegionalRateBasedRuleMatchPredicates - , (Just . ("MetricName",) . toJSON) _wAFRegionalRateBasedRuleMetricName - , (Just . ("Name",) . toJSON) _wAFRegionalRateBasedRuleName - , (Just . ("RateKey",) . toJSON) _wAFRegionalRateBasedRuleRateKey - , (Just . ("RateLimit",) . toJSON) _wAFRegionalRateBasedRuleRateLimit - ] - } - --- | Constructor for 'WAFRegionalRateBasedRule' containing required fields as --- arguments. -wafRegionalRateBasedRule - :: Val Text -- ^ 'wafrrbrMetricName' - -> Val Text -- ^ 'wafrrbrName' - -> Val Text -- ^ 'wafrrbrRateKey' - -> Val Integer -- ^ 'wafrrbrRateLimit' - -> WAFRegionalRateBasedRule -wafRegionalRateBasedRule metricNamearg namearg rateKeyarg rateLimitarg = - WAFRegionalRateBasedRule - { _wAFRegionalRateBasedRuleMatchPredicates = Nothing - , _wAFRegionalRateBasedRuleMetricName = metricNamearg - , _wAFRegionalRateBasedRuleName = namearg - , _wAFRegionalRateBasedRuleRateKey = rateKeyarg - , _wAFRegionalRateBasedRuleRateLimit = rateLimitarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-ratebasedrule.html#cfn-wafregional-ratebasedrule-matchpredicates -wafrrbrMatchPredicates :: Lens' WAFRegionalRateBasedRule (Maybe [WAFRegionalRateBasedRulePredicate]) -wafrrbrMatchPredicates = lens _wAFRegionalRateBasedRuleMatchPredicates (\s a -> s { _wAFRegionalRateBasedRuleMatchPredicates = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-ratebasedrule.html#cfn-wafregional-ratebasedrule-metricname -wafrrbrMetricName :: Lens' WAFRegionalRateBasedRule (Val Text) -wafrrbrMetricName = lens _wAFRegionalRateBasedRuleMetricName (\s a -> s { _wAFRegionalRateBasedRuleMetricName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-ratebasedrule.html#cfn-wafregional-ratebasedrule-name -wafrrbrName :: Lens' WAFRegionalRateBasedRule (Val Text) -wafrrbrName = lens _wAFRegionalRateBasedRuleName (\s a -> s { _wAFRegionalRateBasedRuleName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-ratebasedrule.html#cfn-wafregional-ratebasedrule-ratekey -wafrrbrRateKey :: Lens' WAFRegionalRateBasedRule (Val Text) -wafrrbrRateKey = lens _wAFRegionalRateBasedRuleRateKey (\s a -> s { _wAFRegionalRateBasedRuleRateKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-ratebasedrule.html#cfn-wafregional-ratebasedrule-ratelimit -wafrrbrRateLimit :: Lens' WAFRegionalRateBasedRule (Val Integer) -wafrrbrRateLimit = lens _wAFRegionalRateBasedRuleRateLimit (\s a -> s { _wAFRegionalRateBasedRuleRateLimit = a }) diff --git a/library-gen/Stratosphere/Resources/WAFRegionalRegexPatternSet.hs b/library-gen/Stratosphere/Resources/WAFRegionalRegexPatternSet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/WAFRegionalRegexPatternSet.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-regexpatternset.html - -module Stratosphere.Resources.WAFRegionalRegexPatternSet where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFRegionalRegexPatternSet. See --- 'wafRegionalRegexPatternSet' for a more convenient constructor. -data WAFRegionalRegexPatternSet = - WAFRegionalRegexPatternSet - { _wAFRegionalRegexPatternSetName :: Val Text - , _wAFRegionalRegexPatternSetRegexPatternStrings :: ValList Text - } deriving (Show, Eq) - -instance ToResourceProperties WAFRegionalRegexPatternSet where - toResourceProperties WAFRegionalRegexPatternSet{..} = - ResourceProperties - { resourcePropertiesType = "AWS::WAFRegional::RegexPatternSet" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Name",) . toJSON) _wAFRegionalRegexPatternSetName - , (Just . ("RegexPatternStrings",) . toJSON) _wAFRegionalRegexPatternSetRegexPatternStrings - ] - } - --- | Constructor for 'WAFRegionalRegexPatternSet' containing required fields --- as arguments. -wafRegionalRegexPatternSet - :: Val Text -- ^ 'wafrrpsName' - -> ValList Text -- ^ 'wafrrpsRegexPatternStrings' - -> WAFRegionalRegexPatternSet -wafRegionalRegexPatternSet namearg regexPatternStringsarg = - WAFRegionalRegexPatternSet - { _wAFRegionalRegexPatternSetName = namearg - , _wAFRegionalRegexPatternSetRegexPatternStrings = regexPatternStringsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-regexpatternset.html#cfn-wafregional-regexpatternset-name -wafrrpsName :: Lens' WAFRegionalRegexPatternSet (Val Text) -wafrrpsName = lens _wAFRegionalRegexPatternSetName (\s a -> s { _wAFRegionalRegexPatternSetName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-regexpatternset.html#cfn-wafregional-regexpatternset-regexpatternstrings -wafrrpsRegexPatternStrings :: Lens' WAFRegionalRegexPatternSet (ValList Text) -wafrrpsRegexPatternStrings = lens _wAFRegionalRegexPatternSetRegexPatternStrings (\s a -> s { _wAFRegionalRegexPatternSetRegexPatternStrings = a }) diff --git a/library-gen/Stratosphere/Resources/WAFRegionalRule.hs b/library-gen/Stratosphere/Resources/WAFRegionalRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/WAFRegionalRule.hs +++ /dev/null @@ -1,57 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-rule.html - -module Stratosphere.Resources.WAFRegionalRule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFRegionalRulePredicate - --- | Full data type definition for WAFRegionalRule. See 'wafRegionalRule' for --- a more convenient constructor. -data WAFRegionalRule = - WAFRegionalRule - { _wAFRegionalRuleMetricName :: Val Text - , _wAFRegionalRuleName :: Val Text - , _wAFRegionalRulePredicates :: Maybe [WAFRegionalRulePredicate] - } deriving (Show, Eq) - -instance ToResourceProperties WAFRegionalRule where - toResourceProperties WAFRegionalRule{..} = - ResourceProperties - { resourcePropertiesType = "AWS::WAFRegional::Rule" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("MetricName",) . toJSON) _wAFRegionalRuleMetricName - , (Just . ("Name",) . toJSON) _wAFRegionalRuleName - , fmap (("Predicates",) . toJSON) _wAFRegionalRulePredicates - ] - } - --- | Constructor for 'WAFRegionalRule' containing required fields as --- arguments. -wafRegionalRule - :: Val Text -- ^ 'wafrrMetricName' - -> Val Text -- ^ 'wafrrName' - -> WAFRegionalRule -wafRegionalRule metricNamearg namearg = - WAFRegionalRule - { _wAFRegionalRuleMetricName = metricNamearg - , _wAFRegionalRuleName = namearg - , _wAFRegionalRulePredicates = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-rule.html#cfn-wafregional-rule-metricname -wafrrMetricName :: Lens' WAFRegionalRule (Val Text) -wafrrMetricName = lens _wAFRegionalRuleMetricName (\s a -> s { _wAFRegionalRuleMetricName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-rule.html#cfn-wafregional-rule-name -wafrrName :: Lens' WAFRegionalRule (Val Text) -wafrrName = lens _wAFRegionalRuleName (\s a -> s { _wAFRegionalRuleName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-rule.html#cfn-wafregional-rule-predicates -wafrrPredicates :: Lens' WAFRegionalRule (Maybe [WAFRegionalRulePredicate]) -wafrrPredicates = lens _wAFRegionalRulePredicates (\s a -> s { _wAFRegionalRulePredicates = a }) diff --git a/library-gen/Stratosphere/Resources/WAFRegionalSizeConstraintSet.hs b/library-gen/Stratosphere/Resources/WAFRegionalSizeConstraintSet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/WAFRegionalSizeConstraintSet.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-sizeconstraintset.html - -module Stratosphere.Resources.WAFRegionalSizeConstraintSet where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFRegionalSizeConstraintSetSizeConstraint - --- | Full data type definition for WAFRegionalSizeConstraintSet. See --- 'wafRegionalSizeConstraintSet' for a more convenient constructor. -data WAFRegionalSizeConstraintSet = - WAFRegionalSizeConstraintSet - { _wAFRegionalSizeConstraintSetName :: Val Text - , _wAFRegionalSizeConstraintSetSizeConstraints :: Maybe [WAFRegionalSizeConstraintSetSizeConstraint] - } deriving (Show, Eq) - -instance ToResourceProperties WAFRegionalSizeConstraintSet where - toResourceProperties WAFRegionalSizeConstraintSet{..} = - ResourceProperties - { resourcePropertiesType = "AWS::WAFRegional::SizeConstraintSet" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Name",) . toJSON) _wAFRegionalSizeConstraintSetName - , fmap (("SizeConstraints",) . toJSON) _wAFRegionalSizeConstraintSetSizeConstraints - ] - } - --- | Constructor for 'WAFRegionalSizeConstraintSet' containing required fields --- as arguments. -wafRegionalSizeConstraintSet - :: Val Text -- ^ 'wafrscsName' - -> WAFRegionalSizeConstraintSet -wafRegionalSizeConstraintSet namearg = - WAFRegionalSizeConstraintSet - { _wAFRegionalSizeConstraintSetName = namearg - , _wAFRegionalSizeConstraintSetSizeConstraints = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-sizeconstraintset.html#cfn-wafregional-sizeconstraintset-name -wafrscsName :: Lens' WAFRegionalSizeConstraintSet (Val Text) -wafrscsName = lens _wAFRegionalSizeConstraintSetName (\s a -> s { _wAFRegionalSizeConstraintSetName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-sizeconstraintset.html#cfn-wafregional-sizeconstraintset-sizeconstraints -wafrscsSizeConstraints :: Lens' WAFRegionalSizeConstraintSet (Maybe [WAFRegionalSizeConstraintSetSizeConstraint]) -wafrscsSizeConstraints = lens _wAFRegionalSizeConstraintSetSizeConstraints (\s a -> s { _wAFRegionalSizeConstraintSetSizeConstraints = a }) diff --git a/library-gen/Stratosphere/Resources/WAFRegionalSqlInjectionMatchSet.hs b/library-gen/Stratosphere/Resources/WAFRegionalSqlInjectionMatchSet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/WAFRegionalSqlInjectionMatchSet.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-sqlinjectionmatchset.html - -module Stratosphere.Resources.WAFRegionalSqlInjectionMatchSet where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFRegionalSqlInjectionMatchSetSqlInjectionMatchTuple - --- | Full data type definition for WAFRegionalSqlInjectionMatchSet. See --- 'wafRegionalSqlInjectionMatchSet' for a more convenient constructor. -data WAFRegionalSqlInjectionMatchSet = - WAFRegionalSqlInjectionMatchSet - { _wAFRegionalSqlInjectionMatchSetName :: Val Text - , _wAFRegionalSqlInjectionMatchSetSqlInjectionMatchTuples :: Maybe [WAFRegionalSqlInjectionMatchSetSqlInjectionMatchTuple] - } deriving (Show, Eq) - -instance ToResourceProperties WAFRegionalSqlInjectionMatchSet where - toResourceProperties WAFRegionalSqlInjectionMatchSet{..} = - ResourceProperties - { resourcePropertiesType = "AWS::WAFRegional::SqlInjectionMatchSet" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Name",) . toJSON) _wAFRegionalSqlInjectionMatchSetName - , fmap (("SqlInjectionMatchTuples",) . toJSON) _wAFRegionalSqlInjectionMatchSetSqlInjectionMatchTuples - ] - } - --- | Constructor for 'WAFRegionalSqlInjectionMatchSet' containing required --- fields as arguments. -wafRegionalSqlInjectionMatchSet - :: Val Text -- ^ 'wafrsimsName' - -> WAFRegionalSqlInjectionMatchSet -wafRegionalSqlInjectionMatchSet namearg = - WAFRegionalSqlInjectionMatchSet - { _wAFRegionalSqlInjectionMatchSetName = namearg - , _wAFRegionalSqlInjectionMatchSetSqlInjectionMatchTuples = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-sqlinjectionmatchset.html#cfn-wafregional-sqlinjectionmatchset-name -wafrsimsName :: Lens' WAFRegionalSqlInjectionMatchSet (Val Text) -wafrsimsName = lens _wAFRegionalSqlInjectionMatchSetName (\s a -> s { _wAFRegionalSqlInjectionMatchSetName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-sqlinjectionmatchset.html#cfn-wafregional-sqlinjectionmatchset-sqlinjectionmatchtuples -wafrsimsSqlInjectionMatchTuples :: Lens' WAFRegionalSqlInjectionMatchSet (Maybe [WAFRegionalSqlInjectionMatchSetSqlInjectionMatchTuple]) -wafrsimsSqlInjectionMatchTuples = lens _wAFRegionalSqlInjectionMatchSetSqlInjectionMatchTuples (\s a -> s { _wAFRegionalSqlInjectionMatchSetSqlInjectionMatchTuples = a }) diff --git a/library-gen/Stratosphere/Resources/WAFRegionalWebACL.hs b/library-gen/Stratosphere/Resources/WAFRegionalWebACL.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/WAFRegionalWebACL.hs +++ /dev/null @@ -1,66 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-webacl.html - -module Stratosphere.Resources.WAFRegionalWebACL where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFRegionalWebACLAction -import Stratosphere.ResourceProperties.WAFRegionalWebACLRule - --- | Full data type definition for WAFRegionalWebACL. See 'wafRegionalWebACL' --- for a more convenient constructor. -data WAFRegionalWebACL = - WAFRegionalWebACL - { _wAFRegionalWebACLDefaultAction :: WAFRegionalWebACLAction - , _wAFRegionalWebACLMetricName :: Val Text - , _wAFRegionalWebACLName :: Val Text - , _wAFRegionalWebACLRules :: Maybe [WAFRegionalWebACLRule] - } deriving (Show, Eq) - -instance ToResourceProperties WAFRegionalWebACL where - toResourceProperties WAFRegionalWebACL{..} = - ResourceProperties - { resourcePropertiesType = "AWS::WAFRegional::WebACL" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("DefaultAction",) . toJSON) _wAFRegionalWebACLDefaultAction - , (Just . ("MetricName",) . toJSON) _wAFRegionalWebACLMetricName - , (Just . ("Name",) . toJSON) _wAFRegionalWebACLName - , fmap (("Rules",) . toJSON) _wAFRegionalWebACLRules - ] - } - --- | Constructor for 'WAFRegionalWebACL' containing required fields as --- arguments. -wafRegionalWebACL - :: WAFRegionalWebACLAction -- ^ 'wafrwaclDefaultAction' - -> Val Text -- ^ 'wafrwaclMetricName' - -> Val Text -- ^ 'wafrwaclName' - -> WAFRegionalWebACL -wafRegionalWebACL defaultActionarg metricNamearg namearg = - WAFRegionalWebACL - { _wAFRegionalWebACLDefaultAction = defaultActionarg - , _wAFRegionalWebACLMetricName = metricNamearg - , _wAFRegionalWebACLName = namearg - , _wAFRegionalWebACLRules = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-webacl.html#cfn-wafregional-webacl-defaultaction -wafrwaclDefaultAction :: Lens' WAFRegionalWebACL WAFRegionalWebACLAction -wafrwaclDefaultAction = lens _wAFRegionalWebACLDefaultAction (\s a -> s { _wAFRegionalWebACLDefaultAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-webacl.html#cfn-wafregional-webacl-metricname -wafrwaclMetricName :: Lens' WAFRegionalWebACL (Val Text) -wafrwaclMetricName = lens _wAFRegionalWebACLMetricName (\s a -> s { _wAFRegionalWebACLMetricName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-webacl.html#cfn-wafregional-webacl-name -wafrwaclName :: Lens' WAFRegionalWebACL (Val Text) -wafrwaclName = lens _wAFRegionalWebACLName (\s a -> s { _wAFRegionalWebACLName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-webacl.html#cfn-wafregional-webacl-rules -wafrwaclRules :: Lens' WAFRegionalWebACL (Maybe [WAFRegionalWebACLRule]) -wafrwaclRules = lens _wAFRegionalWebACLRules (\s a -> s { _wAFRegionalWebACLRules = a }) diff --git a/library-gen/Stratosphere/Resources/WAFRegionalWebACLAssociation.hs b/library-gen/Stratosphere/Resources/WAFRegionalWebACLAssociation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/WAFRegionalWebACLAssociation.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-webaclassociation.html - -module Stratosphere.Resources.WAFRegionalWebACLAssociation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFRegionalWebACLAssociation. See --- 'wafRegionalWebACLAssociation' for a more convenient constructor. -data WAFRegionalWebACLAssociation = - WAFRegionalWebACLAssociation - { _wAFRegionalWebACLAssociationResourceArn :: Val Text - , _wAFRegionalWebACLAssociationWebACLId :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties WAFRegionalWebACLAssociation where - toResourceProperties WAFRegionalWebACLAssociation{..} = - ResourceProperties - { resourcePropertiesType = "AWS::WAFRegional::WebACLAssociation" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ResourceArn",) . toJSON) _wAFRegionalWebACLAssociationResourceArn - , (Just . ("WebACLId",) . toJSON) _wAFRegionalWebACLAssociationWebACLId - ] - } - --- | Constructor for 'WAFRegionalWebACLAssociation' containing required fields --- as arguments. -wafRegionalWebACLAssociation - :: Val Text -- ^ 'wafrwaclaResourceArn' - -> Val Text -- ^ 'wafrwaclaWebACLId' - -> WAFRegionalWebACLAssociation -wafRegionalWebACLAssociation resourceArnarg webACLIdarg = - WAFRegionalWebACLAssociation - { _wAFRegionalWebACLAssociationResourceArn = resourceArnarg - , _wAFRegionalWebACLAssociationWebACLId = webACLIdarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-webaclassociation.html#cfn-wafregional-webaclassociation-resourcearn -wafrwaclaResourceArn :: Lens' WAFRegionalWebACLAssociation (Val Text) -wafrwaclaResourceArn = lens _wAFRegionalWebACLAssociationResourceArn (\s a -> s { _wAFRegionalWebACLAssociationResourceArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-webaclassociation.html#cfn-wafregional-webaclassociation-webaclid -wafrwaclaWebACLId :: Lens' WAFRegionalWebACLAssociation (Val Text) -wafrwaclaWebACLId = lens _wAFRegionalWebACLAssociationWebACLId (\s a -> s { _wAFRegionalWebACLAssociationWebACLId = a }) diff --git a/library-gen/Stratosphere/Resources/WAFRegionalXssMatchSet.hs b/library-gen/Stratosphere/Resources/WAFRegionalXssMatchSet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/WAFRegionalXssMatchSet.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-xssmatchset.html - -module Stratosphere.Resources.WAFRegionalXssMatchSet where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFRegionalXssMatchSetXssMatchTuple - --- | Full data type definition for WAFRegionalXssMatchSet. See --- 'wafRegionalXssMatchSet' for a more convenient constructor. -data WAFRegionalXssMatchSet = - WAFRegionalXssMatchSet - { _wAFRegionalXssMatchSetName :: Val Text - , _wAFRegionalXssMatchSetXssMatchTuples :: Maybe [WAFRegionalXssMatchSetXssMatchTuple] - } deriving (Show, Eq) - -instance ToResourceProperties WAFRegionalXssMatchSet where - toResourceProperties WAFRegionalXssMatchSet{..} = - ResourceProperties - { resourcePropertiesType = "AWS::WAFRegional::XssMatchSet" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Name",) . toJSON) _wAFRegionalXssMatchSetName - , fmap (("XssMatchTuples",) . toJSON) _wAFRegionalXssMatchSetXssMatchTuples - ] - } - --- | Constructor for 'WAFRegionalXssMatchSet' containing required fields as --- arguments. -wafRegionalXssMatchSet - :: Val Text -- ^ 'wafrxmsName' - -> WAFRegionalXssMatchSet -wafRegionalXssMatchSet namearg = - WAFRegionalXssMatchSet - { _wAFRegionalXssMatchSetName = namearg - , _wAFRegionalXssMatchSetXssMatchTuples = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-xssmatchset.html#cfn-wafregional-xssmatchset-name -wafrxmsName :: Lens' WAFRegionalXssMatchSet (Val Text) -wafrxmsName = lens _wAFRegionalXssMatchSetName (\s a -> s { _wAFRegionalXssMatchSetName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafregional-xssmatchset.html#cfn-wafregional-xssmatchset-xssmatchtuples -wafrxmsXssMatchTuples :: Lens' WAFRegionalXssMatchSet (Maybe [WAFRegionalXssMatchSetXssMatchTuple]) -wafrxmsXssMatchTuples = lens _wAFRegionalXssMatchSetXssMatchTuples (\s a -> s { _wAFRegionalXssMatchSetXssMatchTuples = a }) diff --git a/library-gen/Stratosphere/Resources/WAFRule.hs b/library-gen/Stratosphere/Resources/WAFRule.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/WAFRule.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-waf-rule.html - -module Stratosphere.Resources.WAFRule where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFRulePredicate - --- | Full data type definition for WAFRule. See 'wafRule' for a more --- convenient constructor. -data WAFRule = - WAFRule - { _wAFRuleMetricName :: Val Text - , _wAFRuleName :: Val Text - , _wAFRulePredicates :: Maybe [WAFRulePredicate] - } deriving (Show, Eq) - -instance ToResourceProperties WAFRule where - toResourceProperties WAFRule{..} = - ResourceProperties - { resourcePropertiesType = "AWS::WAF::Rule" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("MetricName",) . toJSON) _wAFRuleMetricName - , (Just . ("Name",) . toJSON) _wAFRuleName - , fmap (("Predicates",) . toJSON) _wAFRulePredicates - ] - } - --- | Constructor for 'WAFRule' containing required fields as arguments. -wafRule - :: Val Text -- ^ 'wafrMetricName' - -> Val Text -- ^ 'wafrName' - -> WAFRule -wafRule metricNamearg namearg = - WAFRule - { _wAFRuleMetricName = metricNamearg - , _wAFRuleName = namearg - , _wAFRulePredicates = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-waf-rule.html#cfn-waf-rule-metricname -wafrMetricName :: Lens' WAFRule (Val Text) -wafrMetricName = lens _wAFRuleMetricName (\s a -> s { _wAFRuleMetricName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-waf-rule.html#cfn-waf-rule-name -wafrName :: Lens' WAFRule (Val Text) -wafrName = lens _wAFRuleName (\s a -> s { _wAFRuleName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-waf-rule.html#cfn-waf-rule-predicates -wafrPredicates :: Lens' WAFRule (Maybe [WAFRulePredicate]) -wafrPredicates = lens _wAFRulePredicates (\s a -> s { _wAFRulePredicates = a }) diff --git a/library-gen/Stratosphere/Resources/WAFSizeConstraintSet.hs b/library-gen/Stratosphere/Resources/WAFSizeConstraintSet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/WAFSizeConstraintSet.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-waf-sizeconstraintset.html - -module Stratosphere.Resources.WAFSizeConstraintSet where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFSizeConstraintSetSizeConstraint - --- | Full data type definition for WAFSizeConstraintSet. See --- 'wafSizeConstraintSet' for a more convenient constructor. -data WAFSizeConstraintSet = - WAFSizeConstraintSet - { _wAFSizeConstraintSetName :: Val Text - , _wAFSizeConstraintSetSizeConstraints :: [WAFSizeConstraintSetSizeConstraint] - } deriving (Show, Eq) - -instance ToResourceProperties WAFSizeConstraintSet where - toResourceProperties WAFSizeConstraintSet{..} = - ResourceProperties - { resourcePropertiesType = "AWS::WAF::SizeConstraintSet" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Name",) . toJSON) _wAFSizeConstraintSetName - , (Just . ("SizeConstraints",) . toJSON) _wAFSizeConstraintSetSizeConstraints - ] - } - --- | Constructor for 'WAFSizeConstraintSet' containing required fields as --- arguments. -wafSizeConstraintSet - :: Val Text -- ^ 'wafscsName' - -> [WAFSizeConstraintSetSizeConstraint] -- ^ 'wafscsSizeConstraints' - -> WAFSizeConstraintSet -wafSizeConstraintSet namearg sizeConstraintsarg = - WAFSizeConstraintSet - { _wAFSizeConstraintSetName = namearg - , _wAFSizeConstraintSetSizeConstraints = sizeConstraintsarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-waf-sizeconstraintset.html#cfn-waf-sizeconstraintset-name -wafscsName :: Lens' WAFSizeConstraintSet (Val Text) -wafscsName = lens _wAFSizeConstraintSetName (\s a -> s { _wAFSizeConstraintSetName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-waf-sizeconstraintset.html#cfn-waf-sizeconstraintset-sizeconstraints -wafscsSizeConstraints :: Lens' WAFSizeConstraintSet [WAFSizeConstraintSetSizeConstraint] -wafscsSizeConstraints = lens _wAFSizeConstraintSetSizeConstraints (\s a -> s { _wAFSizeConstraintSetSizeConstraints = a }) diff --git a/library-gen/Stratosphere/Resources/WAFSqlInjectionMatchSet.hs b/library-gen/Stratosphere/Resources/WAFSqlInjectionMatchSet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/WAFSqlInjectionMatchSet.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-waf-sqlinjectionmatchset.html - -module Stratosphere.Resources.WAFSqlInjectionMatchSet where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFSqlInjectionMatchSetSqlInjectionMatchTuple - --- | Full data type definition for WAFSqlInjectionMatchSet. See --- 'wafSqlInjectionMatchSet' for a more convenient constructor. -data WAFSqlInjectionMatchSet = - WAFSqlInjectionMatchSet - { _wAFSqlInjectionMatchSetName :: Val Text - , _wAFSqlInjectionMatchSetSqlInjectionMatchTuples :: Maybe [WAFSqlInjectionMatchSetSqlInjectionMatchTuple] - } deriving (Show, Eq) - -instance ToResourceProperties WAFSqlInjectionMatchSet where - toResourceProperties WAFSqlInjectionMatchSet{..} = - ResourceProperties - { resourcePropertiesType = "AWS::WAF::SqlInjectionMatchSet" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Name",) . toJSON) _wAFSqlInjectionMatchSetName - , fmap (("SqlInjectionMatchTuples",) . toJSON) _wAFSqlInjectionMatchSetSqlInjectionMatchTuples - ] - } - --- | Constructor for 'WAFSqlInjectionMatchSet' containing required fields as --- arguments. -wafSqlInjectionMatchSet - :: Val Text -- ^ 'wafsimsName' - -> WAFSqlInjectionMatchSet -wafSqlInjectionMatchSet namearg = - WAFSqlInjectionMatchSet - { _wAFSqlInjectionMatchSetName = namearg - , _wAFSqlInjectionMatchSetSqlInjectionMatchTuples = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-waf-sqlinjectionmatchset.html#cfn-waf-sqlinjectionmatchset-name -wafsimsName :: Lens' WAFSqlInjectionMatchSet (Val Text) -wafsimsName = lens _wAFSqlInjectionMatchSetName (\s a -> s { _wAFSqlInjectionMatchSetName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-waf-sqlinjectionmatchset.html#cfn-waf-sqlinjectionmatchset-sqlinjectionmatchtuples -wafsimsSqlInjectionMatchTuples :: Lens' WAFSqlInjectionMatchSet (Maybe [WAFSqlInjectionMatchSetSqlInjectionMatchTuple]) -wafsimsSqlInjectionMatchTuples = lens _wAFSqlInjectionMatchSetSqlInjectionMatchTuples (\s a -> s { _wAFSqlInjectionMatchSetSqlInjectionMatchTuples = a }) diff --git a/library-gen/Stratosphere/Resources/WAFWebACL.hs b/library-gen/Stratosphere/Resources/WAFWebACL.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/WAFWebACL.hs +++ /dev/null @@ -1,65 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-waf-webacl.html - -module Stratosphere.Resources.WAFWebACL where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFWebACLWafAction -import Stratosphere.ResourceProperties.WAFWebACLActivatedRule - --- | Full data type definition for WAFWebACL. See 'wafWebACL' for a more --- convenient constructor. -data WAFWebACL = - WAFWebACL - { _wAFWebACLDefaultAction :: WAFWebACLWafAction - , _wAFWebACLMetricName :: Val Text - , _wAFWebACLName :: Val Text - , _wAFWebACLRules :: Maybe [WAFWebACLActivatedRule] - } deriving (Show, Eq) - -instance ToResourceProperties WAFWebACL where - toResourceProperties WAFWebACL{..} = - ResourceProperties - { resourcePropertiesType = "AWS::WAF::WebACL" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("DefaultAction",) . toJSON) _wAFWebACLDefaultAction - , (Just . ("MetricName",) . toJSON) _wAFWebACLMetricName - , (Just . ("Name",) . toJSON) _wAFWebACLName - , fmap (("Rules",) . toJSON) _wAFWebACLRules - ] - } - --- | Constructor for 'WAFWebACL' containing required fields as arguments. -wafWebACL - :: WAFWebACLWafAction -- ^ 'wafwaclDefaultAction' - -> Val Text -- ^ 'wafwaclMetricName' - -> Val Text -- ^ 'wafwaclName' - -> WAFWebACL -wafWebACL defaultActionarg metricNamearg namearg = - WAFWebACL - { _wAFWebACLDefaultAction = defaultActionarg - , _wAFWebACLMetricName = metricNamearg - , _wAFWebACLName = namearg - , _wAFWebACLRules = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-waf-webacl.html#cfn-waf-webacl-defaultaction -wafwaclDefaultAction :: Lens' WAFWebACL WAFWebACLWafAction -wafwaclDefaultAction = lens _wAFWebACLDefaultAction (\s a -> s { _wAFWebACLDefaultAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-waf-webacl.html#cfn-waf-webacl-metricname -wafwaclMetricName :: Lens' WAFWebACL (Val Text) -wafwaclMetricName = lens _wAFWebACLMetricName (\s a -> s { _wAFWebACLMetricName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-waf-webacl.html#cfn-waf-webacl-name -wafwaclName :: Lens' WAFWebACL (Val Text) -wafwaclName = lens _wAFWebACLName (\s a -> s { _wAFWebACLName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-waf-webacl.html#cfn-waf-webacl-rules -wafwaclRules :: Lens' WAFWebACL (Maybe [WAFWebACLActivatedRule]) -wafwaclRules = lens _wAFWebACLRules (\s a -> s { _wAFWebACLRules = a }) diff --git a/library-gen/Stratosphere/Resources/WAFXssMatchSet.hs b/library-gen/Stratosphere/Resources/WAFXssMatchSet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/WAFXssMatchSet.hs +++ /dev/null @@ -1,49 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-waf-xssmatchset.html - -module Stratosphere.Resources.WAFXssMatchSet where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFXssMatchSetXssMatchTuple - --- | Full data type definition for WAFXssMatchSet. See 'wafXssMatchSet' for a --- more convenient constructor. -data WAFXssMatchSet = - WAFXssMatchSet - { _wAFXssMatchSetName :: Val Text - , _wAFXssMatchSetXssMatchTuples :: [WAFXssMatchSetXssMatchTuple] - } deriving (Show, Eq) - -instance ToResourceProperties WAFXssMatchSet where - toResourceProperties WAFXssMatchSet{..} = - ResourceProperties - { resourcePropertiesType = "AWS::WAF::XssMatchSet" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Name",) . toJSON) _wAFXssMatchSetName - , (Just . ("XssMatchTuples",) . toJSON) _wAFXssMatchSetXssMatchTuples - ] - } - --- | Constructor for 'WAFXssMatchSet' containing required fields as arguments. -wafXssMatchSet - :: Val Text -- ^ 'wafxmsName' - -> [WAFXssMatchSetXssMatchTuple] -- ^ 'wafxmsXssMatchTuples' - -> WAFXssMatchSet -wafXssMatchSet namearg xssMatchTuplesarg = - WAFXssMatchSet - { _wAFXssMatchSetName = namearg - , _wAFXssMatchSetXssMatchTuples = xssMatchTuplesarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-waf-xssmatchset.html#cfn-waf-xssmatchset-name -wafxmsName :: Lens' WAFXssMatchSet (Val Text) -wafxmsName = lens _wAFXssMatchSetName (\s a -> s { _wAFXssMatchSetName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-waf-xssmatchset.html#cfn-waf-xssmatchset-xssmatchtuples -wafxmsXssMatchTuples :: Lens' WAFXssMatchSet [WAFXssMatchSetXssMatchTuple] -wafxmsXssMatchTuples = lens _wAFXssMatchSetXssMatchTuples (\s a -> s { _wAFXssMatchSetXssMatchTuples = a }) diff --git a/library-gen/Stratosphere/Resources/WAFv2IPSet.hs b/library-gen/Stratosphere/Resources/WAFv2IPSet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/WAFv2IPSet.hs +++ /dev/null @@ -1,78 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-ipset.html - -module Stratosphere.Resources.WAFv2IPSet where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for WAFv2IPSet. See 'waFv2IPSet' for a more --- convenient constructor. -data WAFv2IPSet = - WAFv2IPSet - { _wAFv2IPSetAddresses :: ValList Text - , _wAFv2IPSetDescription :: Maybe (Val Text) - , _wAFv2IPSetIPAddressVersion :: Val Text - , _wAFv2IPSetName :: Maybe (Val Text) - , _wAFv2IPSetScope :: Val Text - , _wAFv2IPSetTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties WAFv2IPSet where - toResourceProperties WAFv2IPSet{..} = - ResourceProperties - { resourcePropertiesType = "AWS::WAFv2::IPSet" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Addresses",) . toJSON) _wAFv2IPSetAddresses - , fmap (("Description",) . toJSON) _wAFv2IPSetDescription - , (Just . ("IPAddressVersion",) . toJSON) _wAFv2IPSetIPAddressVersion - , fmap (("Name",) . toJSON) _wAFv2IPSetName - , (Just . ("Scope",) . toJSON) _wAFv2IPSetScope - , fmap (("Tags",) . toJSON) _wAFv2IPSetTags - ] - } - --- | Constructor for 'WAFv2IPSet' containing required fields as arguments. -waFv2IPSet - :: ValList Text -- ^ 'wafvipsAddresses' - -> Val Text -- ^ 'wafvipsIPAddressVersion' - -> Val Text -- ^ 'wafvipsScope' - -> WAFv2IPSet -waFv2IPSet addressesarg iPAddressVersionarg scopearg = - WAFv2IPSet - { _wAFv2IPSetAddresses = addressesarg - , _wAFv2IPSetDescription = Nothing - , _wAFv2IPSetIPAddressVersion = iPAddressVersionarg - , _wAFv2IPSetName = Nothing - , _wAFv2IPSetScope = scopearg - , _wAFv2IPSetTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-ipset.html#cfn-wafv2-ipset-addresses -wafvipsAddresses :: Lens' WAFv2IPSet (ValList Text) -wafvipsAddresses = lens _wAFv2IPSetAddresses (\s a -> s { _wAFv2IPSetAddresses = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-ipset.html#cfn-wafv2-ipset-description -wafvipsDescription :: Lens' WAFv2IPSet (Maybe (Val Text)) -wafvipsDescription = lens _wAFv2IPSetDescription (\s a -> s { _wAFv2IPSetDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-ipset.html#cfn-wafv2-ipset-ipaddressversion -wafvipsIPAddressVersion :: Lens' WAFv2IPSet (Val Text) -wafvipsIPAddressVersion = lens _wAFv2IPSetIPAddressVersion (\s a -> s { _wAFv2IPSetIPAddressVersion = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-ipset.html#cfn-wafv2-ipset-name -wafvipsName :: Lens' WAFv2IPSet (Maybe (Val Text)) -wafvipsName = lens _wAFv2IPSetName (\s a -> s { _wAFv2IPSetName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-ipset.html#cfn-wafv2-ipset-scope -wafvipsScope :: Lens' WAFv2IPSet (Val Text) -wafvipsScope = lens _wAFv2IPSetScope (\s a -> s { _wAFv2IPSetScope = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-ipset.html#cfn-wafv2-ipset-tags -wafvipsTags :: Lens' WAFv2IPSet (Maybe [Tag]) -wafvipsTags = lens _wAFv2IPSetTags (\s a -> s { _wAFv2IPSetTags = a }) diff --git a/library-gen/Stratosphere/Resources/WAFv2RegexPatternSet.hs b/library-gen/Stratosphere/Resources/WAFv2RegexPatternSet.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/WAFv2RegexPatternSet.hs +++ /dev/null @@ -1,71 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-regexpatternset.html - -module Stratosphere.Resources.WAFv2RegexPatternSet where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag - --- | Full data type definition for WAFv2RegexPatternSet. See --- 'waFv2RegexPatternSet' for a more convenient constructor. -data WAFv2RegexPatternSet = - WAFv2RegexPatternSet - { _wAFv2RegexPatternSetDescription :: Maybe (Val Text) - , _wAFv2RegexPatternSetName :: Maybe (Val Text) - , _wAFv2RegexPatternSetRegularExpressionList :: ValList Text - , _wAFv2RegexPatternSetScope :: Val Text - , _wAFv2RegexPatternSetTags :: Maybe [Tag] - } deriving (Show, Eq) - -instance ToResourceProperties WAFv2RegexPatternSet where - toResourceProperties WAFv2RegexPatternSet{..} = - ResourceProperties - { resourcePropertiesType = "AWS::WAFv2::RegexPatternSet" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ fmap (("Description",) . toJSON) _wAFv2RegexPatternSetDescription - , fmap (("Name",) . toJSON) _wAFv2RegexPatternSetName - , (Just . ("RegularExpressionList",) . toJSON) _wAFv2RegexPatternSetRegularExpressionList - , (Just . ("Scope",) . toJSON) _wAFv2RegexPatternSetScope - , fmap (("Tags",) . toJSON) _wAFv2RegexPatternSetTags - ] - } - --- | Constructor for 'WAFv2RegexPatternSet' containing required fields as --- arguments. -waFv2RegexPatternSet - :: ValList Text -- ^ 'wafrpsRegularExpressionList' - -> Val Text -- ^ 'wafrpsScope' - -> WAFv2RegexPatternSet -waFv2RegexPatternSet regularExpressionListarg scopearg = - WAFv2RegexPatternSet - { _wAFv2RegexPatternSetDescription = Nothing - , _wAFv2RegexPatternSetName = Nothing - , _wAFv2RegexPatternSetRegularExpressionList = regularExpressionListarg - , _wAFv2RegexPatternSetScope = scopearg - , _wAFv2RegexPatternSetTags = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-regexpatternset.html#cfn-wafv2-regexpatternset-description -wafrpsDescription :: Lens' WAFv2RegexPatternSet (Maybe (Val Text)) -wafrpsDescription = lens _wAFv2RegexPatternSetDescription (\s a -> s { _wAFv2RegexPatternSetDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-regexpatternset.html#cfn-wafv2-regexpatternset-name -wafrpsName :: Lens' WAFv2RegexPatternSet (Maybe (Val Text)) -wafrpsName = lens _wAFv2RegexPatternSetName (\s a -> s { _wAFv2RegexPatternSetName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-regexpatternset.html#cfn-wafv2-regexpatternset-regularexpressionlist -wafrpsRegularExpressionList :: Lens' WAFv2RegexPatternSet (ValList Text) -wafrpsRegularExpressionList = lens _wAFv2RegexPatternSetRegularExpressionList (\s a -> s { _wAFv2RegexPatternSetRegularExpressionList = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-regexpatternset.html#cfn-wafv2-regexpatternset-scope -wafrpsScope :: Lens' WAFv2RegexPatternSet (Val Text) -wafrpsScope = lens _wAFv2RegexPatternSetScope (\s a -> s { _wAFv2RegexPatternSetScope = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-regexpatternset.html#cfn-wafv2-regexpatternset-tags -wafrpsTags :: Lens' WAFv2RegexPatternSet (Maybe [Tag]) -wafrpsTags = lens _wAFv2RegexPatternSetTags (\s a -> s { _wAFv2RegexPatternSetTags = a }) diff --git a/library-gen/Stratosphere/Resources/WAFv2RuleGroup.hs b/library-gen/Stratosphere/Resources/WAFv2RuleGroup.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/WAFv2RuleGroup.hs +++ /dev/null @@ -1,87 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-rulegroup.html - -module Stratosphere.Resources.WAFv2RuleGroup where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2RuleGroupRule -import Stratosphere.ResourceProperties.Tag -import Stratosphere.ResourceProperties.WAFv2RuleGroupVisibilityConfig - --- | Full data type definition for WAFv2RuleGroup. See 'waFv2RuleGroup' for a --- more convenient constructor. -data WAFv2RuleGroup = - WAFv2RuleGroup - { _wAFv2RuleGroupCapacity :: Val Integer - , _wAFv2RuleGroupDescription :: Maybe (Val Text) - , _wAFv2RuleGroupName :: Maybe (Val Text) - , _wAFv2RuleGroupRules :: Maybe [WAFv2RuleGroupRule] - , _wAFv2RuleGroupScope :: Val Text - , _wAFv2RuleGroupTags :: Maybe [Tag] - , _wAFv2RuleGroupVisibilityConfig :: WAFv2RuleGroupVisibilityConfig - } deriving (Show, Eq) - -instance ToResourceProperties WAFv2RuleGroup where - toResourceProperties WAFv2RuleGroup{..} = - ResourceProperties - { resourcePropertiesType = "AWS::WAFv2::RuleGroup" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("Capacity",) . toJSON) _wAFv2RuleGroupCapacity - , fmap (("Description",) . toJSON) _wAFv2RuleGroupDescription - , fmap (("Name",) . toJSON) _wAFv2RuleGroupName - , fmap (("Rules",) . toJSON) _wAFv2RuleGroupRules - , (Just . ("Scope",) . toJSON) _wAFv2RuleGroupScope - , fmap (("Tags",) . toJSON) _wAFv2RuleGroupTags - , (Just . ("VisibilityConfig",) . toJSON) _wAFv2RuleGroupVisibilityConfig - ] - } - --- | Constructor for 'WAFv2RuleGroup' containing required fields as arguments. -waFv2RuleGroup - :: Val Integer -- ^ 'wafrgCapacity' - -> Val Text -- ^ 'wafrgScope' - -> WAFv2RuleGroupVisibilityConfig -- ^ 'wafrgVisibilityConfig' - -> WAFv2RuleGroup -waFv2RuleGroup capacityarg scopearg visibilityConfigarg = - WAFv2RuleGroup - { _wAFv2RuleGroupCapacity = capacityarg - , _wAFv2RuleGroupDescription = Nothing - , _wAFv2RuleGroupName = Nothing - , _wAFv2RuleGroupRules = Nothing - , _wAFv2RuleGroupScope = scopearg - , _wAFv2RuleGroupTags = Nothing - , _wAFv2RuleGroupVisibilityConfig = visibilityConfigarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-rulegroup.html#cfn-wafv2-rulegroup-capacity -wafrgCapacity :: Lens' WAFv2RuleGroup (Val Integer) -wafrgCapacity = lens _wAFv2RuleGroupCapacity (\s a -> s { _wAFv2RuleGroupCapacity = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-rulegroup.html#cfn-wafv2-rulegroup-description -wafrgDescription :: Lens' WAFv2RuleGroup (Maybe (Val Text)) -wafrgDescription = lens _wAFv2RuleGroupDescription (\s a -> s { _wAFv2RuleGroupDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-rulegroup.html#cfn-wafv2-rulegroup-name -wafrgName :: Lens' WAFv2RuleGroup (Maybe (Val Text)) -wafrgName = lens _wAFv2RuleGroupName (\s a -> s { _wAFv2RuleGroupName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-rulegroup.html#cfn-wafv2-rulegroup-rules -wafrgRules :: Lens' WAFv2RuleGroup (Maybe [WAFv2RuleGroupRule]) -wafrgRules = lens _wAFv2RuleGroupRules (\s a -> s { _wAFv2RuleGroupRules = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-rulegroup.html#cfn-wafv2-rulegroup-scope -wafrgScope :: Lens' WAFv2RuleGroup (Val Text) -wafrgScope = lens _wAFv2RuleGroupScope (\s a -> s { _wAFv2RuleGroupScope = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-rulegroup.html#cfn-wafv2-rulegroup-tags -wafrgTags :: Lens' WAFv2RuleGroup (Maybe [Tag]) -wafrgTags = lens _wAFv2RuleGroupTags (\s a -> s { _wAFv2RuleGroupTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-rulegroup.html#cfn-wafv2-rulegroup-visibilityconfig -wafrgVisibilityConfig :: Lens' WAFv2RuleGroup WAFv2RuleGroupVisibilityConfig -wafrgVisibilityConfig = lens _wAFv2RuleGroupVisibilityConfig (\s a -> s { _wAFv2RuleGroupVisibilityConfig = a }) diff --git a/library-gen/Stratosphere/Resources/WAFv2WebACL.hs b/library-gen/Stratosphere/Resources/WAFv2WebACL.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/WAFv2WebACL.hs +++ /dev/null @@ -1,88 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-webacl.html - -module Stratosphere.Resources.WAFv2WebACL where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.WAFv2WebACLDefaultAction -import Stratosphere.ResourceProperties.WAFv2WebACLRule -import Stratosphere.ResourceProperties.Tag -import Stratosphere.ResourceProperties.WAFv2WebACLVisibilityConfig - --- | Full data type definition for WAFv2WebACL. See 'waFv2WebACL' for a more --- convenient constructor. -data WAFv2WebACL = - WAFv2WebACL - { _wAFv2WebACLDefaultAction :: WAFv2WebACLDefaultAction - , _wAFv2WebACLDescription :: Maybe (Val Text) - , _wAFv2WebACLName :: Maybe (Val Text) - , _wAFv2WebACLRules :: Maybe [WAFv2WebACLRule] - , _wAFv2WebACLScope :: Val Text - , _wAFv2WebACLTags :: Maybe [Tag] - , _wAFv2WebACLVisibilityConfig :: WAFv2WebACLVisibilityConfig - } deriving (Show, Eq) - -instance ToResourceProperties WAFv2WebACL where - toResourceProperties WAFv2WebACL{..} = - ResourceProperties - { resourcePropertiesType = "AWS::WAFv2::WebACL" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("DefaultAction",) . toJSON) _wAFv2WebACLDefaultAction - , fmap (("Description",) . toJSON) _wAFv2WebACLDescription - , fmap (("Name",) . toJSON) _wAFv2WebACLName - , fmap (("Rules",) . toJSON) _wAFv2WebACLRules - , (Just . ("Scope",) . toJSON) _wAFv2WebACLScope - , fmap (("Tags",) . toJSON) _wAFv2WebACLTags - , (Just . ("VisibilityConfig",) . toJSON) _wAFv2WebACLVisibilityConfig - ] - } - --- | Constructor for 'WAFv2WebACL' containing required fields as arguments. -waFv2WebACL - :: WAFv2WebACLDefaultAction -- ^ 'wafvwaclDefaultAction' - -> Val Text -- ^ 'wafvwaclScope' - -> WAFv2WebACLVisibilityConfig -- ^ 'wafvwaclVisibilityConfig' - -> WAFv2WebACL -waFv2WebACL defaultActionarg scopearg visibilityConfigarg = - WAFv2WebACL - { _wAFv2WebACLDefaultAction = defaultActionarg - , _wAFv2WebACLDescription = Nothing - , _wAFv2WebACLName = Nothing - , _wAFv2WebACLRules = Nothing - , _wAFv2WebACLScope = scopearg - , _wAFv2WebACLTags = Nothing - , _wAFv2WebACLVisibilityConfig = visibilityConfigarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-webacl.html#cfn-wafv2-webacl-defaultaction -wafvwaclDefaultAction :: Lens' WAFv2WebACL WAFv2WebACLDefaultAction -wafvwaclDefaultAction = lens _wAFv2WebACLDefaultAction (\s a -> s { _wAFv2WebACLDefaultAction = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-webacl.html#cfn-wafv2-webacl-description -wafvwaclDescription :: Lens' WAFv2WebACL (Maybe (Val Text)) -wafvwaclDescription = lens _wAFv2WebACLDescription (\s a -> s { _wAFv2WebACLDescription = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-webacl.html#cfn-wafv2-webacl-name -wafvwaclName :: Lens' WAFv2WebACL (Maybe (Val Text)) -wafvwaclName = lens _wAFv2WebACLName (\s a -> s { _wAFv2WebACLName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-webacl.html#cfn-wafv2-webacl-rules -wafvwaclRules :: Lens' WAFv2WebACL (Maybe [WAFv2WebACLRule]) -wafvwaclRules = lens _wAFv2WebACLRules (\s a -> s { _wAFv2WebACLRules = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-webacl.html#cfn-wafv2-webacl-scope -wafvwaclScope :: Lens' WAFv2WebACL (Val Text) -wafvwaclScope = lens _wAFv2WebACLScope (\s a -> s { _wAFv2WebACLScope = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-webacl.html#cfn-wafv2-webacl-tags -wafvwaclTags :: Lens' WAFv2WebACL (Maybe [Tag]) -wafvwaclTags = lens _wAFv2WebACLTags (\s a -> s { _wAFv2WebACLTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-webacl.html#cfn-wafv2-webacl-visibilityconfig -wafvwaclVisibilityConfig :: Lens' WAFv2WebACL WAFv2WebACLVisibilityConfig -wafvwaclVisibilityConfig = lens _wAFv2WebACLVisibilityConfig (\s a -> s { _wAFv2WebACLVisibilityConfig = a }) diff --git a/library-gen/Stratosphere/Resources/WAFv2WebACLAssociation.hs b/library-gen/Stratosphere/Resources/WAFv2WebACLAssociation.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/WAFv2WebACLAssociation.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-webaclassociation.html - -module Stratosphere.Resources.WAFv2WebACLAssociation where - -import Stratosphere.ResourceImports - - --- | Full data type definition for WAFv2WebACLAssociation. See --- 'waFv2WebACLAssociation' for a more convenient constructor. -data WAFv2WebACLAssociation = - WAFv2WebACLAssociation - { _wAFv2WebACLAssociationResourceArn :: Val Text - , _wAFv2WebACLAssociationWebACLArn :: Val Text - } deriving (Show, Eq) - -instance ToResourceProperties WAFv2WebACLAssociation where - toResourceProperties WAFv2WebACLAssociation{..} = - ResourceProperties - { resourcePropertiesType = "AWS::WAFv2::WebACLAssociation" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("ResourceArn",) . toJSON) _wAFv2WebACLAssociationResourceArn - , (Just . ("WebACLArn",) . toJSON) _wAFv2WebACLAssociationWebACLArn - ] - } - --- | Constructor for 'WAFv2WebACLAssociation' containing required fields as --- arguments. -waFv2WebACLAssociation - :: Val Text -- ^ 'wafwaclaResourceArn' - -> Val Text -- ^ 'wafwaclaWebACLArn' - -> WAFv2WebACLAssociation -waFv2WebACLAssociation resourceArnarg webACLArnarg = - WAFv2WebACLAssociation - { _wAFv2WebACLAssociationResourceArn = resourceArnarg - , _wAFv2WebACLAssociationWebACLArn = webACLArnarg - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-webaclassociation.html#cfn-wafv2-webaclassociation-resourcearn -wafwaclaResourceArn :: Lens' WAFv2WebACLAssociation (Val Text) -wafwaclaResourceArn = lens _wAFv2WebACLAssociationResourceArn (\s a -> s { _wAFv2WebACLAssociationResourceArn = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-wafv2-webaclassociation.html#cfn-wafv2-webaclassociation-webaclarn -wafwaclaWebACLArn :: Lens' WAFv2WebACLAssociation (Val Text) -wafwaclaWebACLArn = lens _wAFv2WebACLAssociationWebACLArn (\s a -> s { _wAFv2WebACLAssociationWebACLArn = a }) diff --git a/library-gen/Stratosphere/Resources/WorkSpacesWorkspace.hs b/library-gen/Stratosphere/Resources/WorkSpacesWorkspace.hs deleted file mode 100644 --- a/library-gen/Stratosphere/Resources/WorkSpacesWorkspace.hs +++ /dev/null @@ -1,94 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StrictData #-} -{-# LANGUAGE TupleSections #-} - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-workspaces-workspace.html - -module Stratosphere.Resources.WorkSpacesWorkspace where - -import Stratosphere.ResourceImports -import Stratosphere.ResourceProperties.Tag -import Stratosphere.ResourceProperties.WorkSpacesWorkspaceWorkspaceProperties - --- | Full data type definition for WorkSpacesWorkspace. See --- 'workSpacesWorkspace' for a more convenient constructor. -data WorkSpacesWorkspace = - WorkSpacesWorkspace - { _workSpacesWorkspaceBundleId :: Val Text - , _workSpacesWorkspaceDirectoryId :: Val Text - , _workSpacesWorkspaceRootVolumeEncryptionEnabled :: Maybe (Val Bool) - , _workSpacesWorkspaceTags :: Maybe [Tag] - , _workSpacesWorkspaceUserName :: Val Text - , _workSpacesWorkspaceUserVolumeEncryptionEnabled :: Maybe (Val Bool) - , _workSpacesWorkspaceVolumeEncryptionKey :: Maybe (Val Text) - , _workSpacesWorkspaceWorkspaceProperties :: Maybe WorkSpacesWorkspaceWorkspaceProperties - } deriving (Show, Eq) - -instance ToResourceProperties WorkSpacesWorkspace where - toResourceProperties WorkSpacesWorkspace{..} = - ResourceProperties - { resourcePropertiesType = "AWS::WorkSpaces::Workspace" - , resourcePropertiesProperties = - keyMapFromList $ catMaybes - [ (Just . ("BundleId",) . toJSON) _workSpacesWorkspaceBundleId - , (Just . ("DirectoryId",) . toJSON) _workSpacesWorkspaceDirectoryId - , fmap (("RootVolumeEncryptionEnabled",) . toJSON) _workSpacesWorkspaceRootVolumeEncryptionEnabled - , fmap (("Tags",) . toJSON) _workSpacesWorkspaceTags - , (Just . ("UserName",) . toJSON) _workSpacesWorkspaceUserName - , fmap (("UserVolumeEncryptionEnabled",) . toJSON) _workSpacesWorkspaceUserVolumeEncryptionEnabled - , fmap (("VolumeEncryptionKey",) . toJSON) _workSpacesWorkspaceVolumeEncryptionKey - , fmap (("WorkspaceProperties",) . toJSON) _workSpacesWorkspaceWorkspaceProperties - ] - } - --- | Constructor for 'WorkSpacesWorkspace' containing required fields as --- arguments. -workSpacesWorkspace - :: Val Text -- ^ 'wswBundleId' - -> Val Text -- ^ 'wswDirectoryId' - -> Val Text -- ^ 'wswUserName' - -> WorkSpacesWorkspace -workSpacesWorkspace bundleIdarg directoryIdarg userNamearg = - WorkSpacesWorkspace - { _workSpacesWorkspaceBundleId = bundleIdarg - , _workSpacesWorkspaceDirectoryId = directoryIdarg - , _workSpacesWorkspaceRootVolumeEncryptionEnabled = Nothing - , _workSpacesWorkspaceTags = Nothing - , _workSpacesWorkspaceUserName = userNamearg - , _workSpacesWorkspaceUserVolumeEncryptionEnabled = Nothing - , _workSpacesWorkspaceVolumeEncryptionKey = Nothing - , _workSpacesWorkspaceWorkspaceProperties = Nothing - } - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-workspaces-workspace.html#cfn-workspaces-workspace-bundleid -wswBundleId :: Lens' WorkSpacesWorkspace (Val Text) -wswBundleId = lens _workSpacesWorkspaceBundleId (\s a -> s { _workSpacesWorkspaceBundleId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-workspaces-workspace.html#cfn-workspaces-workspace-directoryid -wswDirectoryId :: Lens' WorkSpacesWorkspace (Val Text) -wswDirectoryId = lens _workSpacesWorkspaceDirectoryId (\s a -> s { _workSpacesWorkspaceDirectoryId = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-workspaces-workspace.html#cfn-workspaces-workspace-rootvolumeencryptionenabled -wswRootVolumeEncryptionEnabled :: Lens' WorkSpacesWorkspace (Maybe (Val Bool)) -wswRootVolumeEncryptionEnabled = lens _workSpacesWorkspaceRootVolumeEncryptionEnabled (\s a -> s { _workSpacesWorkspaceRootVolumeEncryptionEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-workspaces-workspace.html#cfn-workspaces-workspace-tags -wswTags :: Lens' WorkSpacesWorkspace (Maybe [Tag]) -wswTags = lens _workSpacesWorkspaceTags (\s a -> s { _workSpacesWorkspaceTags = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-workspaces-workspace.html#cfn-workspaces-workspace-username -wswUserName :: Lens' WorkSpacesWorkspace (Val Text) -wswUserName = lens _workSpacesWorkspaceUserName (\s a -> s { _workSpacesWorkspaceUserName = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-workspaces-workspace.html#cfn-workspaces-workspace-uservolumeencryptionenabled -wswUserVolumeEncryptionEnabled :: Lens' WorkSpacesWorkspace (Maybe (Val Bool)) -wswUserVolumeEncryptionEnabled = lens _workSpacesWorkspaceUserVolumeEncryptionEnabled (\s a -> s { _workSpacesWorkspaceUserVolumeEncryptionEnabled = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-workspaces-workspace.html#cfn-workspaces-workspace-volumeencryptionkey -wswVolumeEncryptionKey :: Lens' WorkSpacesWorkspace (Maybe (Val Text)) -wswVolumeEncryptionKey = lens _workSpacesWorkspaceVolumeEncryptionKey (\s a -> s { _workSpacesWorkspaceVolumeEncryptionKey = a }) - --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-workspaces-workspace.html#cfn-workspaces-workspace-workspaceproperties -wswWorkspaceProperties :: Lens' WorkSpacesWorkspace (Maybe WorkSpacesWorkspaceWorkspaceProperties) -wswWorkspaceProperties = lens _workSpacesWorkspaceWorkspaceProperties (\s a -> s { _workSpacesWorkspaceWorkspaceProperties = a }) diff --git a/library/Stratosphere.hs b/library/Stratosphere.hs deleted file mode 100644 --- a/library/Stratosphere.hs +++ /dev/null @@ -1,85 +0,0 @@ --- | This is a library for creating AWS CloudFormation templates. --- --- CloudFormation is a system that creates AWS resources from declarative --- templates. One common criticism of CloudFormation is its use of JSON as the --- template specification language. Once you have a large number of templates, --- possibly including cross-references among themselves, raw JSON templates --- become unwieldy, and it becomes harder to confidently modify them. --- Stratosphere alleviates this issue by providing an Embedded Domain Specific --- Language (EDSL) to construct templates. - -module Stratosphere - ( - -- * Introduction - -- $intro - - -- * Usage - -- $usage - - module Stratosphere.Outputs - , module Stratosphere.Parameters - , module Stratosphere.Resources - , module Stratosphere.Template - , module Stratosphere.Values - , module Stratosphere.Types - , module Stratosphere.Check - , module Control.Lens - ) where - -import Control.Lens -import Stratosphere.Outputs -import Stratosphere.Parameters -import Stratosphere.Resources -import Stratosphere.Template -import Stratosphere.Values -import Stratosphere.Types -import Stratosphere.Check - -{-# ANN module "HLint: ignore Use import/export shortcut" #-} - - --- $intro --- --- The core datatype of stratosphere is the 'Template', which corresponds to a --- single CloudFormation template document. Users construct a template in a --- type-safe way using simple data types. The following example creates a --- template containing a single EC2 instance with a key pair passed in as a --- parameter: --- --- @ --- instanceTemplate :: Template --- instanceTemplate = --- template --- [ resource "EC2Instance" ( --- EC2InstanceProperties $ --- ec2Instance --- & eciImageId ?~ "ami-22111148" --- & eciKeyName ?~ (Ref "KeyName") --- ) --- & resourceDeletionPolicy ?~ Retain --- ] --- & templateDescription ?~ "Sample template" --- & templateParameters ?~ --- [ parameter "KeyName" "AWS::EC2::KeyPair::KeyName" --- & parameterDescription ?~ "Name of an existing EC2 KeyPair to enable SSH access to the instance" --- & parameterConstraintDescription ?~ "Must be the name of an existing EC2 KeyPair." --- ] --- @ - --- $usage --- --- The types in stratosphere attempt to map exactly to CloudFormation template --- components. For example, a template requires a set of 'Resources', and --- optionally accepts a Description, 'Parameters', etc. For each component of a --- template, there is usually a set of required arguments, and a (usually --- large) number of optional arguments. Each record type has a corresponding --- constructor function that has the required parameters as arguments. --- --- For example, since a 'Template' requires a set of Resources, the 'template' --- constructor has 'Resources' as an argument. Then, you can fill in the --- 'Maybe' parameters using lenses like '&' and '?~'. --- --- Once a 'Template' is created, you can either use Aeson's encode function, or --- use our 'encodeTemplate' function (based on aeson-pretty) to produce a JSON --- ByteString. From there, you can use your favorite tool to interact with --- CloudFormation using the template. diff --git a/library/Stratosphere/Check.hs b/library/Stratosphere/Check.hs deleted file mode 100644 --- a/library/Stratosphere/Check.hs +++ /dev/null @@ -1,35 +0,0 @@ --- | `Stratosphere.Check` exports functions to catch errors --- that would be too expensive or unwieldy to encode in types. --- --- Stability: Experimental - -module Stratosphere.Check - ( duplicateProperties - ) where - -import Data.Hashable (Hashable) -import qualified Data.HashMap.Strict as HM -import qualified Data.Text as T - -import Stratosphere.Resources (_resourceName, unResources) -import Stratosphere.Template (Template, _templateResources) - -newtype DuplicateProperty = DuplicateProperty T.Text - deriving (Show, Eq) - -duplicateProperties :: Template -> [DuplicateProperty] -duplicateProperties = - map DuplicateProperty - . duplicates - . map _resourceName - . unResources - . _templateResources - -duplicates :: (Foldable f, Eq a, Hashable a) => f a -> [a] -duplicates = - HM.keys . HM.filter (> one) . foldr (insertByAdding one) HM.empty - where one :: Int - one = 1 - -insertByAdding :: (Eq k, Hashable k, Num v) => v -> k -> HM.HashMap k v -> HM.HashMap k v -insertByAdding = flip $ HM.insertWith (+) diff --git a/library/Stratosphere/Helpers.hs b/library/Stratosphere/Helpers.hs deleted file mode 100644 --- a/library/Stratosphere/Helpers.hs +++ /dev/null @@ -1,58 +0,0 @@ -module Stratosphere.Helpers - ( maybeField - , prefixNamer - , prefixFieldRules - , modTemplateJSONField - , NamedItem (..) - , namedItemToJSON - ) where - -import Control.Lens (set) -import Control.Lens.TH -import Data.Aeson -import qualified Data.Aeson.Key as Key -import Data.Char (isUpper, toLower) -import Data.List (stripPrefix) -import Data.Maybe (maybeToList) -import qualified Data.Text as T -import Language.Haskell.TH - --- | Might create an aeson pair from a Maybe value. -maybeField :: ToJSON a => Key -> Maybe a -> Maybe (Key, Value) -maybeField field = fmap ((field .=) . toJSON) - --- | Similar to `camelCaseNamer`, except we specify the prefix exactly. We use --- this because camelCaseNamer is terrible with names that start in all caps, --- like EC2. We would like to start the field names with "ec2...", but --- camelCaseNamer wants "eC2...". -prefixNamer :: String -> Name -> [Name] -> Name -> [DefName] -prefixNamer prefix _ _ field = maybeToList $ - do - fieldPart <- stripPrefix prefix (nameBase field) - method <- computeMethod fieldPart - let cls = "Has" ++ fieldPart - return (MethodName (mkName cls) (mkName method)) - where computeMethod (x:xs) | isUpper x = Just (toLower x : xs) - computeMethod _ = Nothing - --- | See `prefixNamer` -prefixFieldRules :: String -> LensRules -prefixFieldRules prefix = set lensField (prefixNamer prefix) defaultFieldRules - --- | Used for the JSON instances in Template. It is put here because it must be --- in a separate module. -modTemplateJSONField :: String -> String -modTemplateJSONField "_templateFormatVersion" = "AWSTemplateFormatVersion" -modTemplateJSONField s = drop 9 s - - --- | This class defines items with names in them. It is used to extract the --- name from JSON fields so we can get an Object with the names as keys instead --- of just an array. -class NamedItem a where - itemName :: a -> T.Text - nameToJSON :: a -> Value - -namedItemToJSON :: (NamedItem a) => [a] -> Value -namedItemToJSON xs = - object $ fmap (\x -> (Key.fromText (itemName x)) .= nameToJSON x) xs diff --git a/library/Stratosphere/Outputs.hs b/library/Stratosphere/Outputs.hs deleted file mode 100644 --- a/library/Stratosphere/Outputs.hs +++ /dev/null @@ -1,108 +0,0 @@ -{-# LANGUAGE ExistentialQuantification #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE FunctionalDependencies #-} -{-# LANGUAGE GeneralizedNewtypeDeriving #-} -{-# LANGUAGE MultiParamTypeClasses #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StandaloneDeriving #-} -{-# LANGUAGE TemplateHaskell #-} -{-# LANGUAGE TypeFamilies #-} - --- | See: --- http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/outputs-section-structure.html --- --- The optional Outputs section declares output values that you want to view --- from the AWS CloudFormation console or that you want to return in response --- to describe stack calls. For example, you can output the Amazon S3 bucket --- name for a stack so that you can easily find it. - -module Stratosphere.Outputs - ( Output (..) - , output - , OutputExport (..) - , Outputs (..) - , outputName - , outputDescription - , outputValue - , outputExport - ) where - -import Control.Lens hiding ((.=)) -import Data.Aeson -import Data.Maybe (catMaybes) -import Data.Semigroup (Semigroup) -import Data.Text (Text) -import GHC.Exts (IsList(..)) - -import Stratosphere.Helpers -import Stratosphere.Values - -data OutputExport - = OutputExport - { outputExportName :: Val Text - } deriving (Show, Eq) - -instance ToJSON OutputExport where - toJSON OutputExport{..} = - object - [ "Name" .= outputExportName - ] - --- | See 'output' for a convenient constructor. -data Output = - Output - { _outputName :: Text - -- ^ An identifier for this output. The logical ID must be alphanumeric - -- (A-Za-z0-9) and unique within the template. - , _outputDescription :: Maybe Text - -- ^ A String type up to 4K in length describing the output value. - , _outputValue :: Val Text - -- ^ The value of the property that is returned by the aws cloudformation - -- describe-stacks command. The value of an output can be literals, - -- parameter references, pseudo parameters, a mapping value, and intrinsic - -- functions. - , _outputExport :: Maybe OutputExport - } deriving (Show, Eq) - -$(makeLenses ''Output) - -instance ToRef Output b where - toRef o = Ref (_outputName o) - --- | Constructor for 'Output' -output - :: Text -- ^ Name - -> Val Text -- ^ Value - -> Output -output oname oval = - Output - { _outputName = oname - , _outputDescription = Nothing - , _outputValue = oval - , _outputExport = Nothing - } - -outputToJSON :: Output -> Value -outputToJSON Output {..} = - object $ catMaybes - [ Just ("Value" .= _outputValue) - , maybeField "Description" _outputDescription - , maybeField "Export" _outputExport - ] - --- | Wrapper around a list of 'Output's to we can modify the aeson instances. -newtype Outputs = Outputs { unOutputs :: [Output] } - deriving (Show, Eq, Semigroup, Monoid) - -instance IsList Outputs where - type Item Outputs = Output - fromList = Outputs - toList = unOutputs - -instance NamedItem Output where - itemName = _outputName - nameToJSON = outputToJSON - -instance ToJSON Outputs where - toJSON = namedItemToJSON . unOutputs diff --git a/library/Stratosphere/Parameters.hs b/library/Stratosphere/Parameters.hs deleted file mode 100644 --- a/library/Stratosphere/Parameters.hs +++ /dev/null @@ -1,127 +0,0 @@ -{-# LANGUAGE ExistentialQuantification #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE FunctionalDependencies #-} -{-# LANGUAGE GeneralizedNewtypeDeriving #-} -{-# LANGUAGE MultiParamTypeClasses #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE StandaloneDeriving #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TemplateHaskell #-} -{-# LANGUAGE TypeFamilies #-} - --- | See: --- http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/parameters-section-structure.html --- --- You can use the optional Parameters section to pass values into your --- template when you create a stack. With parameters, you can create templates --- that are customized each time you create a stack. Each parameter must --- contain a value when you create a stack. You can specify a default value to --- make the parameter optional. For more information about creating stacks, see --- Working with Stacks. - -module Stratosphere.Parameters where - -import Control.Lens hiding ((.=)) -import Data.Aeson -import Data.Maybe (catMaybes) -import Data.Semigroup (Semigroup) -import qualified Data.Text as T -import GHC.Exts (IsList(..)) - -import Stratosphere.Helpers -import Stratosphere.Values - -data Parameter = - Parameter - { _parameterName :: T.Text - , _parameterType' :: T.Text - -- ^ The data type for the parameter. - , _parameterDefault' :: Maybe Value - -- ^ A value of the appropriate type for the template to use if no value is - -- specified when a stack is created. If you define constraints for the - -- parameter, you must specify a value that adheres to those constraints. - , _parameterNoEcho :: Maybe Bool - -- ^ Whether to mask the parameter value whenever anyone makes a call that - -- describes the stack. If you set the value to true, the parameter value - -- is masked with asterisks (*****). - , _parameterAllowedValues :: Maybe Array - -- ^ An array containing the list of values allowed for the parameter. - , _parameterAllowedPattern :: Maybe T.Text - -- ^ A regular expression that represents the patterns you want to allow - -- for String types. - , _parameterMaxLength :: Maybe Integer - -- ^ An integer value that determines the largest number of characters you - -- want to allow for String types. - , _parameterMinLength :: Maybe Integer - -- ^ An integer value that determines the smallest number of characters you - -- want to allow for String types. - , _parameterMaxValue :: Maybe Integer - -- ^ A numeric value that determines the largest numeric value you want to - -- allow for Number types. - , _parameterMinValue :: Maybe Integer - -- ^ A numeric value that determines the smallest numeric value you want to - -- allow for Number types. - , _parameterDescription :: Maybe T.Text - -- ^ A string of up to 4000 characters that describes the parameter. - , _parameterConstraintDescription :: Maybe T.Text - -- ^ A string that explains the constraint when the constraint is violated. - } deriving (Show, Eq) - -$(makeLenses ''Parameter) - -instance ToRef Parameter b where - toRef p = Ref (_parameterName p) - -parameterToJSON :: Parameter -> Value -parameterToJSON Parameter {..} = - object $ catMaybes - [ Just ("Type" .= _parameterType') - , maybeField "Default" _parameterDefault' - , maybeField "NoEcho" _parameterNoEcho - , maybeField "AllowedValues" _parameterAllowedValues - , maybeField "AllowedPattern" _parameterAllowedPattern - , maybeField "MaxLength" _parameterMaxLength - , maybeField "MinLength" _parameterMinLength - , maybeField "MaxValue" _parameterMaxValue - , maybeField "MinValue" _parameterMinValue - , maybeField "Description" _parameterDescription - , maybeField "ConstraintDescription" _parameterConstraintDescription - ] - --- | Constructor for 'Parameter' with required arguments. -parameter - :: T.Text -- ^ Name - -> T.Text -- ^ Type - -> Parameter -parameter pname ptype = - Parameter - { _parameterName = pname - , _parameterType' = ptype - , _parameterDefault' = Nothing - , _parameterNoEcho = Nothing - , _parameterAllowedValues = Nothing - , _parameterAllowedPattern = Nothing - , _parameterMaxLength = Nothing - , _parameterMinLength = Nothing - , _parameterMaxValue = Nothing - , _parameterMinValue = Nothing - , _parameterDescription = Nothing - , _parameterConstraintDescription = Nothing - } - --- | Wrapper around a list of 'Parameters's to we can modify the aeson --- instances. -newtype Parameters = Parameters { unParameters :: [Parameter] } - deriving (Show, Eq, Semigroup, Monoid) - -instance IsList Parameters where - type Item Parameters = Parameter - fromList = Parameters - toList = unParameters - -instance NamedItem Parameter where - itemName = _parameterName - nameToJSON = parameterToJSON - -instance ToJSON Parameters where - toJSON = namedItemToJSON . unParameters diff --git a/library/Stratosphere/ResourceAttributes/AutoScalingReplacingUpdatePolicy.hs b/library/Stratosphere/ResourceAttributes/AutoScalingReplacingUpdatePolicy.hs deleted file mode 100644 --- a/library/Stratosphere/ResourceAttributes/AutoScalingReplacingUpdatePolicy.hs +++ /dev/null @@ -1,46 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TupleSections #-} - --- | To specify how AWS CloudFormation handles replacing updates for an Auto --- Scaling group, use the AutoScalingReplacingUpdate policy. - -module Stratosphere.ResourceAttributes.AutoScalingReplacingUpdatePolicy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AutoScalingReplacingUpdatePolicy. See --- 'autoScalingReplacingUpdatePolicy' for a more convenient constructor. -data AutoScalingReplacingUpdatePolicy = - AutoScalingReplacingUpdatePolicy - { _autoScalingReplacingUpdatePolicyWillReplace :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON AutoScalingReplacingUpdatePolicy where - toJSON AutoScalingReplacingUpdatePolicy{..} = - object $ - catMaybes - [ fmap (("WillReplace",) . toJSON) _autoScalingReplacingUpdatePolicyWillReplace - ] - --- | Constructor for 'AutoScalingReplacingUpdatePolicy' containing required fields --- as arguments. -autoScalingReplacingUpdatePolicy - :: AutoScalingReplacingUpdatePolicy -autoScalingReplacingUpdatePolicy = - AutoScalingReplacingUpdatePolicy - { _autoScalingReplacingUpdatePolicyWillReplace = Nothing - } - --- | Specifies whether an Auto Scaling group and the instances it contains are --- replaced during an update. During replacement, AWS CloudFormation retains --- the old group until it finishes creating the new one. This allows AWS --- CloudFormation to roll back to the old Auto Scaling group if the update --- doesn't succeed. While AWS CloudFormation creates the new group, it doesn't --- detach or attach any instances. After creating the new Auto Scaling group, --- AWS CloudFormation removes the old Auto Scaling group during the cleanup --- process. If the update doesn't succeed, AWS CloudFormation removes the new --- Auto Scaling group. -asrupWillReplace :: Lens' AutoScalingReplacingUpdatePolicy (Maybe (Val Bool)) -asrupWillReplace = lens _autoScalingReplacingUpdatePolicyWillReplace (\s a -> s { _autoScalingReplacingUpdatePolicyWillReplace = a }) diff --git a/library/Stratosphere/ResourceAttributes/AutoScalingRollingUpdatePolicy.hs b/library/Stratosphere/ResourceAttributes/AutoScalingRollingUpdatePolicy.hs deleted file mode 100644 --- a/library/Stratosphere/ResourceAttributes/AutoScalingRollingUpdatePolicy.hs +++ /dev/null @@ -1,109 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TupleSections #-} - --- | To specify how AWS CloudFormation handles rolling updates for an Auto --- Scaling group, use the AutoScalingRollingUpdatePolicy policy. - -module Stratosphere.ResourceAttributes.AutoScalingRollingUpdatePolicy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AutoScalingRollingUpdatePolicy. See --- 'autoScalingRollingUpdatePolicy' for a more convenient constructor. -data AutoScalingRollingUpdatePolicy = - AutoScalingRollingUpdatePolicy - { _autoScalingRollingUpdatePolicyMaxBatchSize :: Maybe (Val Integer) - , _autoScalingRollingUpdatePolicyMinInstancesInService :: Maybe (Val Integer) - , _autoScalingRollingUpdatePolicyMinSuccessfulInstancesPercent :: Maybe (Val Integer) - , _autoScalingRollingUpdatePolicyPauseTime :: Maybe (Val Text) - , _autoScalingRollingUpdatePolicySuspendProcesses :: Maybe (ValList Text) - , _autoScalingRollingUpdatePolicyWaitOnResourceSignals :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON AutoScalingRollingUpdatePolicy where - toJSON AutoScalingRollingUpdatePolicy{..} = - object $ - catMaybes - [ fmap (("MaxBatchSize",) . toJSON) _autoScalingRollingUpdatePolicyMaxBatchSize - , fmap (("MinInstancesInService",) . toJSON) _autoScalingRollingUpdatePolicyMinInstancesInService - , fmap (("MinSuccessfulInstancesPercent",) . toJSON) _autoScalingRollingUpdatePolicyMinSuccessfulInstancesPercent - , fmap (("PauseTime",) . toJSON) _autoScalingRollingUpdatePolicyPauseTime - , fmap (("SuspendProcesses",) . toJSON) _autoScalingRollingUpdatePolicySuspendProcesses - , fmap (("WaitOnResourceSignals",) . toJSON) _autoScalingRollingUpdatePolicyWaitOnResourceSignals - ] - --- | Constructor for 'AutoScalingRollingUpdatePolicy' containing required fields as --- arguments. -autoScalingRollingUpdatePolicy - :: AutoScalingRollingUpdatePolicy -autoScalingRollingUpdatePolicy = - AutoScalingRollingUpdatePolicy - { _autoScalingRollingUpdatePolicyMaxBatchSize = Nothing - , _autoScalingRollingUpdatePolicyMinInstancesInService = Nothing - , _autoScalingRollingUpdatePolicyMinSuccessfulInstancesPercent = Nothing - , _autoScalingRollingUpdatePolicyPauseTime = Nothing - , _autoScalingRollingUpdatePolicySuspendProcesses = Nothing - , _autoScalingRollingUpdatePolicyWaitOnResourceSignals = Nothing - } - --- | Specifies the maximum number of instances that AWS CloudFormation --- terminates. -asrupMaxBatchSize :: Lens' AutoScalingRollingUpdatePolicy (Maybe (Val Integer)) -asrupMaxBatchSize = lens _autoScalingRollingUpdatePolicyMaxBatchSize (\s a -> s { _autoScalingRollingUpdatePolicyMaxBatchSize = a }) - --- | Specifies the minimum number of instances that must be in service within --- the Auto Scaling group while AWS CloudFormation terminates obsolete --- instances. -asrupMinInstancesInService :: Lens' AutoScalingRollingUpdatePolicy (Maybe (Val Integer)) -asrupMinInstancesInService = lens _autoScalingRollingUpdatePolicyMinInstancesInService (\s a -> s { _autoScalingRollingUpdatePolicyMinInstancesInService = a }) - --- | Specifies the percentage of instances in an Auto Scaling rolling update --- that must signal success for an update to succeed. You can specify a value --- from 0 to 100. AWS CloudFormation rounds to the nearest tenth of a percent. --- For example, if you update five instances with a minimum successful --- percentage of 50, three instances must signal success. If an instance --- doesn't send a signal within the time specified using the PauseTime --- property, AWS CloudFormation assumes that the instance wasn't successfully --- updated. If you specify this property, you must also enable the --- WaitOnResourceSignals and PauseTime properties. -asrupMinSuccessfulInstancesPercent :: Lens' AutoScalingRollingUpdatePolicy (Maybe (Val Integer)) -asrupMinSuccessfulInstancesPercent = lens _autoScalingRollingUpdatePolicyMinSuccessfulInstancesPercent (\s a -> s { _autoScalingRollingUpdatePolicyMinSuccessfulInstancesPercent = a }) - --- | Specifies the amount of time that AWS CloudFormation should pause after --- making a change to a batch of instances to give these instances time to --- start software applications. For example, you might need PauseTime when --- scaling up the number of instances in an Auto Scaling group. If you enable --- the WaitOnResourceSignals property, PauseTime is the amount of time AWS --- CloudFormation should wait for the Auto Scaling group to receive the --- required number of valid signals from added or replaced instances. If the --- PauseTime is exceeded before the Auto Scaling group receives the required --- number of signals, the update fails. For best results, specify a time --- period that gives your instances sufficient time to get started. If the --- update needs to be rolled back, a short PauseTime can cause the rollback to --- fail. Specify PauseTime in the ISO8601 duration format (in the format --- PT#H#M#S, where each # is the number of hours, minutes, and seconds, --- respectively). The maximum PauseTime is one hour (PT1H). -asrupPauseTime :: Lens' AutoScalingRollingUpdatePolicy (Maybe (Val Text)) -asrupPauseTime = lens _autoScalingRollingUpdatePolicyPauseTime (\s a -> s { _autoScalingRollingUpdatePolicyPauseTime = a }) - --- | Specifies the Auto Scaling processes to suspend during a stack update. --- Suspending processes prevents Auto Scaling from interfering with a stack --- update. For example, you can suspend alarming so that Auto Scaling doesn't --- execute scaling policies associated with an alarm. For valid values, see --- the ScalingProcesses.member.N parameter for the SuspendProcesses action in --- the Auto Scaling API Reference. -asrupSuspendProcesses :: Lens' AutoScalingRollingUpdatePolicy (Maybe (ValList Text)) -asrupSuspendProcesses = lens _autoScalingRollingUpdatePolicySuspendProcesses (\s a -> s { _autoScalingRollingUpdatePolicySuspendProcesses = a }) - --- | Specifies whether the Auto Scaling group waits on signals from new --- instances during an update. AWS CloudFormation suspends the update of an --- Auto Scaling group after new Amazon EC2 instances are launched into the --- group. AWS CloudFormation must receive a signal from each new instance --- within the specified PauseTime before continuing the update. To signal the --- Auto Scaling group, use the cfn-signal helper script or SignalResource API. --- Use this property to ensure that instances have completed installing and --- configuring applications before the Auto Scaling group update proceeds. -asrupWaitOnResourceSignals :: Lens' AutoScalingRollingUpdatePolicy (Maybe (Val Bool)) -asrupWaitOnResourceSignals = lens _autoScalingRollingUpdatePolicyWaitOnResourceSignals (\s a -> s { _autoScalingRollingUpdatePolicyWaitOnResourceSignals = a }) diff --git a/library/Stratosphere/ResourceAttributes/AutoScalingScheduledActionPolicy.hs b/library/Stratosphere/ResourceAttributes/AutoScalingScheduledActionPolicy.hs deleted file mode 100644 --- a/library/Stratosphere/ResourceAttributes/AutoScalingScheduledActionPolicy.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TupleSections #-} - --- | To specify how AWS CloudFormation handles updates for the MinSize, --- MaxSize, and DesiredCapacity properties when the --- AWS::AutoScaling::AutoScalingGroup resource has an associated scheduled --- action, use the AutoScalingScheduledAction policy. With scheduled actions, --- the group size properties of an Auto Scaling group can change at any time. --- When you update a stack with an Auto Scaling group and scheduled action, --- AWS CloudFormation always sets the group size property values of your Auto --- Scaling group to the values that are defined in the --- AWS::AutoScaling::AutoScalingGroup resource of your template, even if a --- scheduled action is in effect. If you do not want AWS CloudFormation to --- change any of the group size property values when you have a scheduled --- action in effect, use the AutoScalingScheduledAction update policy to --- prevent AWS CloudFormation from changing the MinSize, MaxSize, or --- DesiredCapacity properties unless you have modified these values in your --- template. - -module Stratosphere.ResourceAttributes.AutoScalingScheduledActionPolicy where - -import Stratosphere.ResourceImports - - --- | Full data type definition for AutoScalingScheduledActionPolicy. See --- 'autoScalingScheduledActionPolicy' for a more convenient constructor. -data AutoScalingScheduledActionPolicy = - AutoScalingScheduledActionPolicy - { _autoScalingScheduledActionPolicyIgnoreUnmodifiedGroupSizeProperties :: Maybe (Val Bool) - } deriving (Show, Eq) - -instance ToJSON AutoScalingScheduledActionPolicy where - toJSON AutoScalingScheduledActionPolicy{..} = - object $ - catMaybes - [ fmap (("IgnoreUnmodifiedGroupSizeProperties",) . toJSON) _autoScalingScheduledActionPolicyIgnoreUnmodifiedGroupSizeProperties - ] - --- | Constructor for 'AutoScalingScheduledActionPolicy' containing required fields --- as arguments. -autoScalingScheduledActionPolicy - :: AutoScalingScheduledActionPolicy -autoScalingScheduledActionPolicy = - AutoScalingScheduledActionPolicy - { _autoScalingScheduledActionPolicyIgnoreUnmodifiedGroupSizeProperties = Nothing - } - --- | Specifies whether AWS CloudFormation ignores differences in group size --- properties between your current Auto Scaling group and the Auto Scaling --- group described in the AWS::AutoScaling::AutoScalingGroup resource of your --- template during a stack update. If you modify any of the group size --- property values in your template, AWS CloudFormation uses the modified --- values and updates your Auto Scaling group. -assapIgnoreUnmodifiedGroupSizeProperties :: Lens' AutoScalingScheduledActionPolicy (Maybe (Val Bool)) -assapIgnoreUnmodifiedGroupSizeProperties = lens _autoScalingScheduledActionPolicyIgnoreUnmodifiedGroupSizeProperties (\s a -> s { _autoScalingScheduledActionPolicyIgnoreUnmodifiedGroupSizeProperties = a }) diff --git a/library/Stratosphere/ResourceAttributes/CreationPolicy.hs b/library/Stratosphere/ResourceAttributes/CreationPolicy.hs deleted file mode 100644 --- a/library/Stratosphere/ResourceAttributes/CreationPolicy.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} - --- | You associate the CreationPolicy attribute with a resource to prevent its --- status from reaching create complete until AWS CloudFormation receives a --- specified number of success signals or the timeout period is exceeded. To --- signal a resource, you can use the cfn-signal helper script or --- SignalResource API. AWS CloudFormation publishes valid signals to the stack --- events so that you track the number of signals sent. The creation policy is --- invoked only when AWS CloudFormation creates the associated resource. --- Currently, the only AWS CloudFormation resources that support creation --- policies are AWS::AutoScaling::AutoScalingGroup, AWS::EC2::Instance, and --- AWS::CloudFormation::WaitCondition. The CreationPolicy attribute is helpful --- when you want to wait on resource configuration actions before stack --- creation proceeds. For example, if you install and configure software --- applications on an Amazon EC2 instance, you might want those applications --- up and running before proceeding. In such cases, you can add a --- CreationPolicy attribute to the instance and then send a success signal to --- the instance after the applications are installed and configured. For a --- detailed example, see Deploying Applications on Amazon EC2 with AWS --- CloudFormation. - -module Stratosphere.ResourceAttributes.CreationPolicy where - -import GHC.Generics (Generic) -import Stratosphere.ResourceImports -import Stratosphere.ResourceAttributes.ResourceSignal - --- | Full data type definition for CreationPolicy. See 'creationPolicy' for a --- more convenient constructor. -data CreationPolicy = - CreationPolicy - { _creationPolicyResourceSignal :: ResourceSignal - } deriving (Show, Eq, Generic) - -instance ToJSON CreationPolicy where - toJSON = genericToJSON defaultOptions { fieldLabelModifier = Prelude.drop 15, omitNothingFields = True } - --- | Constructor for 'CreationPolicy' containing required fields as arguments. -creationPolicy - :: ResourceSignal -- ^ 'cpResourceSignal' - -> CreationPolicy -creationPolicy resourceSignalarg = - CreationPolicy - { _creationPolicyResourceSignal = resourceSignalarg - } - --- | -cpResourceSignal :: Lens' CreationPolicy ResourceSignal -cpResourceSignal = lens _creationPolicyResourceSignal (\s a -> s { _creationPolicyResourceSignal = a }) diff --git a/library/Stratosphere/ResourceAttributes/ResourceSignal.hs b/library/Stratosphere/ResourceAttributes/ResourceSignal.hs deleted file mode 100644 --- a/library/Stratosphere/ResourceAttributes/ResourceSignal.hs +++ /dev/null @@ -1,55 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TupleSections #-} - --- | - -module Stratosphere.ResourceAttributes.ResourceSignal where - -import Stratosphere.ResourceImports - - --- | Full data type definition for ResourceSignal. See 'resourceSignal' for a --- more convenient constructor. -data ResourceSignal = - ResourceSignal - { _resourceSignalCount :: Maybe (Val Integer) - , _resourceSignalTimeout :: Maybe (Val Text) - } deriving (Show, Eq) - -instance ToJSON ResourceSignal where - toJSON ResourceSignal{..} = - object $ - catMaybes - [ fmap (("Count",) . toJSON) _resourceSignalCount - , fmap (("Timeout",) . toJSON) _resourceSignalTimeout - ] - --- | Constructor for 'ResourceSignal' containing required fields as arguments. -resourceSignal - :: ResourceSignal -resourceSignal = - ResourceSignal - { _resourceSignalCount = Nothing - , _resourceSignalTimeout = Nothing - } - --- | The number of success signals AWS CloudFormation must receive before it --- sets the resource status as CREATE_COMPLETE. If the resource receives a --- failure signal or doesn't receive the specified number of signals before --- the timeout period expires, the resource creation fails and AWS --- CloudFormation rolls the stack back. -rsCount :: Lens' ResourceSignal (Maybe (Val Integer)) -rsCount = lens _resourceSignalCount (\s a -> s { _resourceSignalCount = a }) - --- | The length of time that AWS CloudFormation waits for the number of --- signals that was specified in the Count property. The timeout period starts --- after AWS CloudFormation starts creating the resource, and the timeout --- expires no sooner than the time you specify but can occur shortly --- thereafter. The maximum time that you can specify is 12 hours. The value --- must be in ISO8601 duration format, in the form: "PT#H#M#S", where each # --- is the number of hours, minutes, and seconds, respectively. For best --- results, specify a period of time that gives your instances plenty of time --- to get up and running. A shorter timeout can cause a rollback. -rsTimeout :: Lens' ResourceSignal (Maybe (Val Text)) -rsTimeout = lens _resourceSignalTimeout (\s a -> s { _resourceSignalTimeout = a }) diff --git a/library/Stratosphere/ResourceAttributes/UpdatePolicy.hs b/library/Stratosphere/ResourceAttributes/UpdatePolicy.hs deleted file mode 100644 --- a/library/Stratosphere/ResourceAttributes/UpdatePolicy.hs +++ /dev/null @@ -1,50 +0,0 @@ -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} - --- | Use the UpdatePolicy attribute to specify how AWS CloudFormation handles --- updates to the AWS::AutoScaling::AutoScalingGroup resource. AWS --- CloudFormation invokes one of three update policies depending on the type --- of change you make or on whether a scheduled action is associated with the --- Auto Scaling group. - -module Stratosphere.ResourceAttributes.UpdatePolicy where - -import GHC.Generics (Generic) -import Stratosphere.ResourceImports -import Stratosphere.ResourceAttributes.AutoScalingReplacingUpdatePolicy -import Stratosphere.ResourceAttributes.AutoScalingRollingUpdatePolicy -import Stratosphere.ResourceAttributes.AutoScalingScheduledActionPolicy - --- | Full data type definition for UpdatePolicy. See 'updatePolicy' for a more --- convenient constructor. -data UpdatePolicy = - UpdatePolicy - { _updatePolicyAutoScalingReplacingUpdate :: Maybe AutoScalingReplacingUpdatePolicy - , _updatePolicyAutoScalingRollingUpdate :: Maybe AutoScalingRollingUpdatePolicy - , _updatePolicyAutoScalingScheduledAction :: Maybe AutoScalingScheduledActionPolicy - } deriving (Show, Eq, Generic) - -instance ToJSON UpdatePolicy where - toJSON = genericToJSON defaultOptions { fieldLabelModifier = Prelude.drop 13, omitNothingFields = True } - --- | Constructor for 'UpdatePolicy' containing required fields as arguments. -updatePolicy - :: UpdatePolicy -updatePolicy = - UpdatePolicy - { _updatePolicyAutoScalingReplacingUpdate = Nothing - , _updatePolicyAutoScalingRollingUpdate = Nothing - , _updatePolicyAutoScalingScheduledAction = Nothing - } - --- | -upAutoScalingReplacingUpdate :: Lens' UpdatePolicy (Maybe AutoScalingReplacingUpdatePolicy) -upAutoScalingReplacingUpdate = lens _updatePolicyAutoScalingReplacingUpdate (\s a -> s { _updatePolicyAutoScalingReplacingUpdate = a }) - --- | -upAutoScalingRollingUpdate :: Lens' UpdatePolicy (Maybe AutoScalingRollingUpdatePolicy) -upAutoScalingRollingUpdate = lens _updatePolicyAutoScalingRollingUpdate (\s a -> s { _updatePolicyAutoScalingRollingUpdate = a }) - --- | -upAutoScalingScheduledAction :: Lens' UpdatePolicy (Maybe AutoScalingScheduledActionPolicy) -upAutoScalingScheduledAction = lens _updatePolicyAutoScalingScheduledAction (\s a -> s { _updatePolicyAutoScalingScheduledAction = a }) diff --git a/library/Stratosphere/ResourceImports.hs b/library/Stratosphere/ResourceImports.hs deleted file mode 100644 --- a/library/Stratosphere/ResourceImports.hs +++ /dev/null @@ -1,24 +0,0 @@ -module Stratosphere.ResourceImports - ( module X - , keyMapFromList - , keyMapEmpty - ) where - -import Control.Lens as X (Lens', lens) -import Data.Aeson as X -import Data.Aeson.KeyMap as X -import Data.Aeson.TH as X -import Data.Map as X (Map) -import Data.Maybe as X (catMaybes) -import Data.Monoid as X (mempty) -import Data.Text as X (Text) -import Stratosphere.ResourceProperties as X -import Stratosphere.Values as X - --- Re-export key map functions so we don't need a qualified import - -keyMapFromList :: [(Key, v)] -> KeyMap v -keyMapFromList = X.fromList - -keyMapEmpty :: KeyMap v -keyMapEmpty = X.empty diff --git a/library/Stratosphere/ResourceProperties.hs b/library/Stratosphere/ResourceProperties.hs deleted file mode 100644 --- a/library/Stratosphere/ResourceProperties.hs +++ /dev/null @@ -1,27 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE StrictData #-} - -module Stratosphere.ResourceProperties - ( ResourceProperties(..) - , ToResourceProperties(..) - , resourcePropertiesJSON - ) where - -import Data.Aeson -import Data.Aeson.Types (Pair) -import Data.Text (Text) - -data ResourceProperties - = ResourceProperties - { resourcePropertiesType :: Text - , resourcePropertiesProperties :: Object - } deriving (Show, Eq) - -class ToResourceProperties a where - toResourceProperties :: a -> ResourceProperties - -resourcePropertiesJSON :: ResourceProperties -> [Pair] -resourcePropertiesJSON (ResourceProperties ty props) = - [ "Type" .= ty - , "Properties" .= props - ] diff --git a/library/Stratosphere/Template.hs b/library/Stratosphere/Template.hs deleted file mode 100644 --- a/library/Stratosphere/Template.hs +++ /dev/null @@ -1,114 +0,0 @@ -{-# LANGUAGE ExistentialQuantification #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE FunctionalDependencies #-} -{-# LANGUAGE MultiParamTypeClasses #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StandaloneDeriving #-} -{-# LANGUAGE TemplateHaskell #-} - --- | See: --- http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/template-anatomy.html - -module Stratosphere.Template - ( Template (..) - , template - , encodeTemplate - , Mapping - - -- Template lenses - , templateFormatVersion - , templateDescription - , templateMetadata - , templateParameters - , templateMappings - , templateConditions - , templateResources - , templateOutputs - ) where - -import Control.Lens -import Data.Aeson -import Data.Aeson.Encode.Pretty -import Data.Aeson.TH -import qualified Data.ByteString.Lazy as BS -import qualified Data.HashMap.Strict as HM -import qualified Data.Text as T - -import Stratosphere.Helpers (modTemplateJSONField) -import Stratosphere.Outputs -import Stratosphere.Parameters -import Stratosphere.Resources - -type Mapping = HM.HashMap T.Text Object - -data Template = - Template - { _templateFormatVersion :: Maybe T.Text - -- ^ Specifies the AWS CloudFormation template version that the template - -- conforms to. The template format version is not the same as the API or - -- WSDL version. The template format version can change independently of - -- the API and WSDL versions. - , _templateDescription :: Maybe T.Text - -- ^ A text string that describes the template. This section must always - -- follow the template format version section. - , _templateMetadata :: Maybe Object - -- ^ JSON objects that provide additional information about the template. - , _templateParameters :: Maybe Parameters - -- ^ Specifies values that you can pass in to your template at runtime - -- (when you create or update a stack). You can refer to parameters in the - -- Resources and Outputs sections of the template. - , _templateMappings :: Maybe (HM.HashMap T.Text Mapping) - -- ^ A mapping of keys and associated values that you can use to specify - -- conditional parameter values, similar to a lookup table. You can match a - -- key to a corresponding value by using the Fn::FindInMap intrinsic - -- function in the Resources and Outputs section. - , _templateConditions :: Maybe Object - -- ^ Defines conditions that control whether certain resources are created - -- or whether certain resource properties are assigned a value during stack - -- creation or update. For example, you could conditionally create a - -- resource that depends on whether the stack is for a production or test - -- environment. - , _templateResources :: Resources - -- ^ Specifies the stack resources and their properties, such as an Amazon - -- Elastic Compute Cloud instance or an Amazon Simple Storage Service - -- bucket. You can refer to resources in the Resources and Outputs sections - -- of the template. - , _templateOutputs :: Maybe Outputs - -- ^ Describes the values that are returned whenever you view your stack's - -- properties. For example, you can declare an output for an Amazon S3 - -- bucket name and then call the aws cloudformation describe-stacks AWS CLI - -- command to view the name. - } deriving (Show, Eq) - - -$(deriveToJSON defaultOptions { fieldLabelModifier = modTemplateJSONField - , omitNothingFields = True } ''Template) -$(makeLenses ''Template) - --- | Convenient constructor for 'Template' with required arguments. -template :: Resources -> Template -template res = - Template - { _templateFormatVersion = Nothing - , _templateDescription = Nothing - , _templateMetadata = Nothing - , _templateParameters = Nothing - , _templateMappings = Nothing - , _templateConditions = Nothing - , _templateResources = res - , _templateOutputs = Nothing - } - --- | Pretty print a template using aeson-pretty. -encodeTemplate :: Template -> BS.ByteString -encodeTemplate = encodePretty' defConfig { confIndent = Spaces 2, confCompare = comp } - where comp = keyOrder [ "AWSTemplateFormatVersion" - , "Description" - , "Metadata" - , "Parameters" - , "Mappings" - , "Conditions" - , "Resources" - , "Outputs" - ] diff --git a/library/Stratosphere/Types.hs b/library/Stratosphere/Types.hs deleted file mode 100644 --- a/library/Stratosphere/Types.hs +++ /dev/null @@ -1,234 +0,0 @@ -{-# LANGUAGE DeriveAnyClass #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE OverloadedStrings #-} - --- | Module for hand-written types that are used in generated modules. - -module Stratosphere.Types - ( EnabledState (..) - , AuthorizerType (..) - , AuthorizationType (..) - , HttpMethod (..) - , LoggingLevel (..) - , ApiBackendType (..) - , Period (..) - , AttributeType (..) - , KeyType (..) - , ProjectionType (..) - , StreamViewType (..) - , SNSProtocol (..) - , Runtime (..) - , PassthroughBehavior (..) - , CannedACL (..) - , KinesisFirehoseS3CompressionFormat(..) - , KinesisFirehoseElasticsearchS3BackupMode(..) - , KinesisFirehoseNoEncryptionConfig(..) - ) where - -import Data.Aeson -import Data.Text (Text) -import GHC.Generics - - -data EnabledState - = ENABLED - | DISABLED - deriving (Show, Read, Eq, Generic, ToJSON) - --- https://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-authorizer.html#cfn-apigateway-authorizer-type -data AuthorizerType - = TOKEN_AUTH - | COGNITO_USER_POOLS_AUTH - deriving (Show, Read, Eq) - -instance ToJSON AuthorizerType where - toJSON TOKEN_AUTH = String "TOKEN" - toJSON COGNITO_USER_POOLS_AUTH = String "COGNITO_USER_POOLS" - -data AuthorizationType - = NONE - | AWS_IAM - | CUSTOM - | COGNITO_USER_POOLS - deriving (Show, Read, Eq, Generic, ToJSON) - -data HttpMethod - = ANY - | DELETE - | GET - | HEAD - | OPTIONS - | PATCH - | POST - | PUT - deriving (Show, Read, Eq, Generic, ToJSON) - -data LoggingLevel - = OFF - | ERROR - | INFO - deriving (Show, Read, Eq, Generic, ToJSON) - -data ApiBackendType - = HTTP - | AWS - | MOCK - | HTTP_PROXY - | AWS_PROXY - deriving (Show, Read, Eq, Generic, ToJSON) - -data Period - = DAY - | WEEK - | MONTH - deriving (Show, Read, Eq, Generic, ToJSON) - -data AttributeType - = S - | N - | B - deriving (Show, Read, Eq, Generic, ToJSON) - -data KeyType - = HASH - | RANGE - deriving (Show, Read, Eq, Generic, ToJSON) - -data ProjectionType - = ProjectKeysOnly - | ProjectIncluded - | ProjectAll - deriving (Show, Read, Eq, Generic) - -instance ToJSON ProjectionType where - toJSON ProjectKeysOnly = String "KEYS_ONLY" - toJSON ProjectIncluded = String "INCLUDE" - toJSON ProjectAll = String "ALL" - -data StreamViewType - = KEYS_ONLY - | NEW_IMAGE - | OLD_IMAGE - | NEW_AND_OLD_IMAGES - deriving (Show, Read, Eq, Generic, ToJSON) - -data SNSProtocol - = SnsHttp - | SnsHttps - | SnsEmail - | SnsEmailJson - | SnsSms - | SnsSqs - | SnsApplication - | SnsLambda - deriving (Show, Read, Eq, Generic) - -instance ToJSON SNSProtocol where - toJSON SnsHttp = String "http" - toJSON SnsHttps = String "https" - toJSON SnsEmail = String "email" - toJSON SnsEmailJson = String "email-json" - toJSON SnsSms = String "sms" - toJSON SnsSqs = String "sqs" - toJSON SnsApplication = String "application" - toJSON SnsLambda = String "lambda" - --- | Possible values for AWS Lambda Runtimes. Note that if a valid runtime is --- missing, please open an issue on the Github repo. In the meantime, however, --- you can use the 'OtherRuntime' constructor. --- --- Valid values here --- https://docs.aws.amazon.com/lambda/latest/dg/API_CreateFunction.html#SSS-CreateFunction-request-Runtime -data Runtime - = NodeJS810 - | NodeJS10x - | NodeJS12x - | Java8 - | Java11 - | Python27 - | Python36 - | Python37 - | Python38 - | DotNetCore10 - | DotNetCore21 - | Go1X - | Ruby25 - | OtherRuntime Text - deriving (Show, Read, Eq, Generic) - -instance ToJSON Runtime where - toJSON NodeJS810 = String "nodejs8.10" - toJSON NodeJS10x = String "nodejs10.x" - toJSON NodeJS12x = String "nodejs12.x" - toJSON Java8 = String "java8" - toJSON Java11 = String "java11" - toJSON Python27 = String "python2.7" - toJSON Python36 = String "python3.6" - toJSON Python37 = String "python3.7" - toJSON Python38 = String "python3.8" - toJSON DotNetCore10 = String "dotnetcore1.0" - toJSON DotNetCore21 = String "dotnetcore2.1" - toJSON Go1X = String "go1.x" - toJSON Ruby25 = String "ruby2.5" - toJSON (OtherRuntime other) = String other - --- | See: --- https://docs.aws.amazon.com/apigateway/api-reference/link-relation/integration-put/#passthroughBehavior -data PassthroughBehavior - = WHEN_NO_MATCH - | WHEN_NO_TEMPLATES - | NEVER - deriving (Show, Read, Eq, Generic, ToJSON) - --- | Amazon S3 supports a set of predefined grants, known as canned ACLs. Each --- canned ACL has a predefined a set of grantees and permissions. The following --- table lists the set of canned ACLs and the associated predefined grants. --- See: --- http://docs.aws.amazon.com/AmazonS3/latest/dev/acl-overview.html#canned-acl -data CannedACL - = AuthenticatedRead - | AwsExecRead - | BucketOwnerRead - | BucketOwnerFullControl - | LogDeliveryWrite - | Private - | PublicRead - | PublicReadWrite - deriving (Show, Read, Eq, Generic, ToJSON) - --- | See: --- http://docs.aws.amazon.com/firehose/latest/APIReference/API_S3DestinationConfiguration.html -data KinesisFirehoseS3CompressionFormat - = KFS3Uncompressed - | KFS3Gzip - | KFS3Zip - | KFS3Snappy - deriving (Show, Read, Eq, Generic) - - -instance ToJSON KinesisFirehoseS3CompressionFormat where - toJSON KFS3Uncompressed = String "UNCOMPRESSED" - toJSON KFS3Gzip = String "GZIP" - toJSON KFS3Zip = String "ZIP" - toJSON KFS3Snappy = String "SNAPPY" - --- | See: --- http://docs.aws.amazon.com/firehose/latest/APIReference/API_ElasticsearchDestinationConfiguration.html -data KinesisFirehoseElasticsearchS3BackupMode - = KFS3FailedDocumentsOnly - | KFS3AllDocuments - deriving (Show, Read, Eq, Generic) - - -instance ToJSON KinesisFirehoseElasticsearchS3BackupMode where - toJSON KFS3FailedDocumentsOnly = String "FailedDocumentsOnly" - toJSON KFS3AllDocuments = String "AllDocuments" - --- | See: --- http://docs.aws.amazon.com/firehose/latest/APIReference/API_EncryptionConfiguration.html -data KinesisFirehoseNoEncryptionConfig = KinesisFirehoseNoEncryptionConfig - deriving (Show, Read, Eq, Generic) - - -instance ToJSON KinesisFirehoseNoEncryptionConfig where - toJSON _ = String "NoEncryption" diff --git a/library/Stratosphere/Values.hs b/library/Stratosphere/Values.hs deleted file mode 100644 --- a/library/Stratosphere/Values.hs +++ /dev/null @@ -1,131 +0,0 @@ -{-# LANGUAGE GADTs #-} -{-# LANGUAGE MultiParamTypeClasses #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE StandaloneDeriving #-} -{-# LANGUAGE TypeFamilies #-} - -module Stratosphere.Values - ( Val (..) - , sub - , ValList (..) - , ToRef (..) - ) where - -import Data.Aeson -import Data.Aeson.KeyMap -import Data.Maybe (fromMaybe) -import Data.String (IsString(..)) -import Data.Text (Text) -import Data.Typeable -import GHC.Exts (IsList(..)) - --- | This type is a wrapper around any values in a template. A value can be a --- 'Literal', a 'Ref', or an intrinsic function. See: --- http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/intrinsic-function-reference.html -data Val a where - Literal :: a -> Val a - Ref :: Text -> Val a - If :: Text -> Val a -> Val a -> Val a - And :: Val Bool -> Val Bool -> Val Bool - Equals :: (Show a, ToJSON a, Eq a, Typeable a) => Val a -> Val a -> Val Bool - Or :: Val Bool -> Val Bool -> Val Bool - Not :: Val Bool -> Val Bool - GetAtt :: Text -> Text -> Val a - Base64 :: Val Text -> Val Text - Join :: Text -> ValList Text -> Val Text - Select :: Integer -> ValList a -> Val a - FindInMap :: Val Text -> Val Text -> Val Text -> Val a -- ^ Map name, top level key, and second level key - ImportValue :: Val Text -> Val a -- ^ The account-and-region-unique exported name of the value to import - Sub :: Text -> Maybe (KeyMap (Val Text)) -> Val Text -- ^ Substitution string and optional map of values - -deriving instance (Show a) => Show (Val a) - -instance Eq a => Eq (Val a) where - Literal a == Literal a' = a == a' - Ref a == Ref a' = a == a' - If a b c == If a' b' c' = a == a' && b == b' && c == c' - And a b == And a' b' = a == a' && b == b' - Equals a b == Equals a' b' = eqEquals a b a' b' - Or a b == Or a' b' = a == a' && b == b' - Not a == Not a' = a == a' - GetAtt a b == GetAtt a' b' = a == a' && b == b' - Base64 a == Base64 a' = a == a' - FindInMap a b c == FindInMap a' b' c' = a == a' && b == b' && c == c' - ImportValue a == ImportValue a' = a == a' - Sub a b == Sub a' b' = a == a' && b == b' - _ == _ = False - -eqEquals :: (Typeable a, Typeable b, Eq a, Eq b) => a -> a -> b -> b -> Bool -eqEquals a b a' b' = fromMaybe False $ do - a'' <- cast a' - b'' <- cast b' - pure $ a == a'' && b == b'' - -instance (IsString a) => IsString (Val a) where - fromString s = Literal (fromString s) - -instance (ToJSON a) => ToJSON (Val a) where - toJSON (Literal v) = toJSON v - toJSON (Ref r) = refToJSON r - toJSON (If i x y) = mkFunc "Fn::If" [toJSON i, toJSON x, toJSON y] - toJSON (And x y) = mkFunc "Fn::And" [toJSON x, toJSON y] - toJSON (Equals x y) = mkFunc "Fn::Equals" [toJSON x, toJSON y] - toJSON (Or x y) = mkFunc "Fn::Or" [toJSON x, toJSON y] - toJSON (Not x) = mkFunc "Fn::Not" [toJSON x] - toJSON (GetAtt x y) = mkFunc "Fn::GetAtt" [toJSON x, toJSON y] - toJSON (Base64 v) = object [("Fn::Base64", toJSON v)] - toJSON (Join d vs) = mkFunc "Fn::Join" [toJSON d, toJSON vs] - toJSON (Select i vs) = mkFunc "Fn::Select" [toJSON i, toJSON vs] - toJSON (FindInMap mapName topKey secondKey) = - object [("Fn::FindInMap", toJSON [toJSON mapName, toJSON topKey, toJSON secondKey])] - toJSON (ImportValue t) = importValueToJSON t - toJSON (Sub s Nothing) = object [("Fn::Sub", toJSON s)] - toJSON (Sub s (Just vals)) = mkFunc "Fn::Sub" [toJSON s, Object (toJSON <$> vals)] - --- | Simple version of 'Sub' without a map of values. -sub :: Text -> Val Text -sub s = Sub s Nothing - -refToJSON :: Text -> Value -refToJSON ref = object [("Ref", toJSON ref)] - -importValueToJSON :: Val Text -> Value -importValueToJSON ref = object [("Fn::ImportValue", toJSON ref)] - -mkFunc :: Key -> [Value] -> Value -mkFunc key args = object [(key, Array $ GHC.Exts.fromList args)] - --- | 'ValList' is like 'Val', except it is used in place of lists of Vals in --- templates. For example, if you have a parameter called @SubnetIds@ of type --- @List@ then, you can use @RefList "SubnetIds"@ to --- reference it. -data ValList a - = ValList [Val a] - | RefList Text - | ImportValueList (Val Text) - | Split Text (Val a) - | GetAZs (Val Text) - deriving (Show, Eq) - -instance IsList (ValList a) where - type Item (ValList a) = Val a - fromList = ValList - - toList (ValList xs) = xs - -- This is obviously not meaningful, but the IsList instance is so useful - -- that I decided to allow it. - toList (RefList _) = [] - toList (ImportValueList _) = [] - toList (Split _ _) = [] - toList (GetAZs _) = [] - -instance (ToJSON a) => ToJSON (ValList a) where - toJSON (ValList vals) = toJSON vals - toJSON (RefList ref) = refToJSON ref - toJSON (ImportValueList ref) = importValueToJSON ref - toJSON (Split d s) = mkFunc "Fn::Split" [toJSON d, toJSON s] - toJSON (GetAZs r) = object [("Fn::GetAZs", toJSON r)] - --- | Class used to create a 'Ref' from another type. -class ToRef a b where - toRef :: a -> Val b diff --git a/src/Stratosphere.hs b/src/Stratosphere.hs new file mode 100644 --- /dev/null +++ b/src/Stratosphere.hs @@ -0,0 +1,105 @@ +-- | This is a library for creating AWS CloudFormation templates. +-- +-- CloudFormation is a system that creates AWS resources from declarative +-- templates. One common criticism of CloudFormation is its use of JSON as the +-- template specification language. Once you have a large number of templates, +-- possibly including cross-references among themselves, raw JSON templates +-- become unwieldy, and it becomes harder to confidently modify them. +-- Stratosphere alleviates this issue by providing an Embedded Domain Specific +-- Language (EDSL) to construct templates. + +module Stratosphere + ( + -- * Introduction + -- $intro + + -- * Usage + -- $usage + + module Exports + , awsAccountId + , awsNoValue + , awsRegion + , awsStackId + , awsStackName + ) +where + +import Data.Function as Exports ((&), (.), ($)) +import Data.Text as Exports (Text) +import Stratosphere.Check as Exports +import Stratosphere.NamedItem as Exports +import Stratosphere.Output as Exports +import Stratosphere.Parameter as Exports +import Stratosphere.Property as Exports +import Stratosphere.Resource as Exports +import Stratosphere.ResourceProperties as Exports +import Stratosphere.Tag as Exports +import Stratosphere.Template as Exports +import Stratosphere.Value as Exports + +-- | See https://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/pseudo-parameter-reference.html +awsAccountId :: Value Text +awsAccountId = Ref "AWS::AccountId" + +-- | See https://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/pseudo-parameter-reference.html +awsRegion :: Value Text +awsRegion = Ref "AWS::Region" + +-- | See https://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/pseudo-parameter-reference.html +awsStackId :: Value Text +awsStackId = Ref "AWS::StackId" + +-- | See https://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/pseudo-parameter-reference.html +awsStackName :: Value Text +awsStackName = Ref "AWS::StackName" + +-- | See https://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/pseudo-parameter-reference.html +awsNoValue :: Value Text +awsNoValue = Ref "AWS::NoValue" + +-- $intro +-- +-- The core datatype of stratosphere is the 'Template', which corresponds to a +-- single CloudFormation template document. Users construct a template in a +-- type-safe way using simple data types. The following example creates a +-- template containing a single EC2 instance with a key pair passed in as a +-- parameter: +-- +-- @ +-- instanceTemplate :: Template +-- instanceTemplate = +-- template +-- [ resource "EC2Instance" ( +-- EC2InstanceProperties $ +-- ec2Instance +-- & eciImageId ?~ "ami-22111148" +-- & eciKeyName ?~ (Ref "KeyName") +-- ) +-- & resourceDeletionPolicy ?~ Retain +-- ] +-- & templateDescription ?~ "Sample template" +-- & templateParameters ?~ +-- [ parameter "KeyName" "AWS::EC2::KeyPair::KeyName" +-- & parameterDescription ?~ "Name of an existing EC2 KeyPair to enable SSH access to the instance" +-- & parameterConstraintDescription ?~ "Must be the name of an existing EC2 KeyPair." +-- ] +-- @ + +-- $usage +-- +-- The types in stratosphere attempt to map exactly to CloudFormation template +-- components. For example, a template requires a set of 'Resources', and +-- optionally accepts a Description, 'Parameters', etc. For each component of a +-- template, there is usually a set of required arguments, and a (usually +-- large) number of optional arguments. Each record type has a corresponding +-- constructor function that has the required parameters as arguments. +-- +-- For example, since a 'Template' requires a set of Resources, the 'template' +-- constructor has 'Resources' as an argument. Then, you can fill in the +-- 'Maybe' parameters using record updates. +-- +-- Once a 'Template' is created, you can either use Aeson's encode function, or +-- use our 'encodeTemplate' function (based on aeson-pretty) to produce a JSON +-- ByteString. From there, you can use your favorite tool to interact with +-- CloudFormation using the template. diff --git a/src/Stratosphere/Check.hs b/src/Stratosphere/Check.hs new file mode 100644 --- /dev/null +++ b/src/Stratosphere/Check.hs @@ -0,0 +1,34 @@ +{-# OPTIONS -Wno-redundant-constraints #-} + +-- | `Stratosphere.Check` exports functions to catch errors +-- that would be too expensive or unwieldy to encode in types. +-- +-- Stability: Experimental + +module Stratosphere.Check (duplicateProperties) where + +import Stratosphere.Prelude +import Stratosphere.Resource +import Stratosphere.Template + +import qualified Data.Map.Strict as Map + +newtype DuplicateProperty = DuplicateProperty Text + deriving (Show, Eq) + +duplicateProperties :: Template -> [DuplicateProperty] +duplicateProperties = + map DuplicateProperty + . duplicates + . map (.logicalName) + . (.resourceList) + . (\Template{..} -> resources) + +duplicates :: (Foldable f, Eq a, Ord a) => f a -> [a] +duplicates = + Map.keys . Map.filter (> one) . foldr (insertByAdding one) [] + where one :: Int + one = 1 + +insertByAdding :: (Eq k, Ord k, Num v) => v -> k -> Map k v -> Map k v +insertByAdding = flip $ Map.insertWith (+) diff --git a/src/Stratosphere/NamedItem.hs b/src/Stratosphere/NamedItem.hs new file mode 100644 --- /dev/null +++ b/src/Stratosphere/NamedItem.hs @@ -0,0 +1,22 @@ +module Stratosphere.NamedItem + ( NamedItem (..) + , namedItemToJSON + ) +where + +import Stratosphere.Prelude + +import qualified Data.Aeson as JSON +import qualified Data.Aeson.Key as Key + +-- | This class defines items with names in them. It is used to extract the +-- name from JSON fields so we can get an Object with the names as keys instead +-- of just an array. +class NamedItem a where + itemName :: a -> Text + nameToJSON :: a -> JSON.Value + +namedItemToJSON :: (NamedItem a) => [a] -> JSON.Value +namedItemToJSON + = JSON.object + . fmap (\item -> (Key.fromText (itemName item)) .= nameToJSON item) diff --git a/src/Stratosphere/Output.hs b/src/Stratosphere/Output.hs new file mode 100644 --- /dev/null +++ b/src/Stratosphere/Output.hs @@ -0,0 +1,115 @@ +-- | See: +-- http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/outputs-section-structure.html +-- +-- The optional Outputs section declares output values that you want to view +-- from the AWS CloudFormation console or that you want to return in response +-- to describe stack calls. For example, you can output the Amazon S3 bucket +-- name for a stack so that you can easily find it. + +module Stratosphere.Output + ( Output(..) + , OutputExport(..) + , Outputs(..) + , mkOutput + ) +where + +import GHC.Exts (IsList(..)) +import Stratosphere.NamedItem +import Stratosphere.Prelude +import Stratosphere.Property +import Stratosphere.Value + +import qualified Data.Aeson as JSON + +data OutputExport + = OutputExport { outputExportName :: Value Text } + deriving stock (Show, Eq) + +instance JSON.ToJSON OutputExport where + toJSON OutputExport{..} + = JSON.object + [ "Name" .= outputExportName + ] + +-- | See 'mkOutput' for a convenient constructor. +data Output = Output + { name :: Text + -- ^ An identifier for this output. The logical ID must be alphanumeric + -- (A-Za-z0-9) and unique within the template. + , condition :: Maybe Text + -- ^ Output condition controling the output creation + , description :: Maybe Text + -- ^ A String type up to 4K in length describing the output value. + , value :: Value Text + -- ^ The value of the property that is returned by the aws cloudformation + -- describe-stacks command. The value of an output can be literals, + -- parameter references, pseudo parameters, a mapping value, and intrinsic + -- functions. + , export :: Maybe OutputExport + } deriving (Show, Eq) + +instance ToRef Output b where + toRef Output{..} = Ref name + +instance Property "Name" Output where + type PropertyType "Name" Output = Text + set newValue Output{..} = Output{name = newValue, ..} + +instance Property "Condition" Output where + type PropertyType "Condition" Output = Text + set newValue Output{..} = Output{condition = pure newValue, ..} + +instance Property "Description" Output where + type PropertyType "Description" Output = Text + set newValue Output{..} = Output{description = pure newValue, ..} + +instance Property "Value" Output where + type PropertyType "Value" Output = Value Text + set newValue Output{..} = Output{value = newValue, ..} + +instance Property "Export" Output where + type PropertyType "Export" Output = OutputExport + set newValue Output{..} = Output{export = pure newValue, ..} + +-- | Constructor for 'Output' +mkOutput + :: Text -- ^ Name + -> Value Text -- ^ Value + -> Output +mkOutput name value = + Output + { condition = Nothing + , description = Nothing + , export = Nothing + , .. + } + +outputToJSON :: Output -> JSON.Value +outputToJSON Output{..} + = JSON.object + $ catMaybes + [ Just ("Value" .= value) + , maybeField "Condition" condition + , maybeField "Description" description + , maybeField "Export" export + ] + +-- | Wrapper around a list of 'Output's to we can modify the aeson instances. +newtype Outputs = Outputs { outputs :: [Output] } + deriving stock (Show, Eq) + deriving newtype (Monoid, MonoFunctor, Semigroup) + +type instance Element Outputs = Output + +instance IsList Outputs where + type Item Outputs = Output + fromList = Outputs + toList = (.outputs) + +instance NamedItem Output where + itemName = (.name) + nameToJSON = outputToJSON + +instance JSON.ToJSON Outputs where + toJSON = namedItemToJSON . (.outputs) diff --git a/src/Stratosphere/Parameter.hs b/src/Stratosphere/Parameter.hs new file mode 100644 --- /dev/null +++ b/src/Stratosphere/Parameter.hs @@ -0,0 +1,162 @@ +-- | See: +-- http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/parameters-section-structure.html +-- +-- You can use the optional Parameters section to pass values into your +-- template when you create a stack. With parameters, you can create templates +-- that are customized each time you create a stack. Each parameter must +-- contain a value when you create a stack. You can specify a default value to +-- make the parameter optional. For more information about creating stacks, see +-- Working with Stacks. + +module Stratosphere.Parameter where + +import GHC.Exts (IsList(..)) +import Stratosphere.NamedItem +import Stratosphere.Prelude +import Stratosphere.Property +import Stratosphere.Value + +import qualified Data.Aeson as JSON + +data Parameter = + Parameter + { name :: Text + , type' :: Text + -- ^ The data type for the parameter. + , default' :: Maybe JSON.Value + -- ^ A value of the appropriate type for the template to use if no value is + -- specified when a stack is created. If you define constraints for the + -- parameter, you must specify a value that adheres to those constraints. + , noEcho :: Maybe Bool + -- ^ Whether to mask the parameter value whenever anyone makes a call that + -- describes the stack. If you set the value to true, the parameter value + -- is masked with asterisks (*****). + , allowedValues :: Maybe JSON.Array + -- ^ An array containing the list of values allowed for the parameter. + , allowedPattern :: Maybe Text + -- ^ A regular expression that represents the patterns you want to allow + -- for String types. + , maxLength :: Maybe Integer + -- ^ An integer value that determines the largest number of characters you + -- want to allow for String types. + , minLength :: Maybe Integer + -- ^ An integer value that determines the smallest number of characters you + -- want to allow for String types. + , maxValue :: Maybe Integer + -- ^ A numeric value that determines the largest numeric value you want to + -- allow for Number types. + , minValue :: Maybe Integer + -- ^ A numeric value that determines the smallest numeric value you want to + -- allow for Number types. + , description :: Maybe Text + -- ^ A string of up to 4000 characters that describes the parameter. + , constraintDescription :: Maybe Text + -- ^ A string that explains the constraint when the constraint is violated. + } deriving (Show, Eq) + +instance Property "Name" Parameter where + type PropertyType "Name" Parameter = Text + set newValue Parameter{..} = Parameter{name = newValue, ..} + +instance Property "Type" Parameter where + type PropertyType "Type" Parameter = Text + set newValue Parameter{..} = Parameter{type' = newValue, ..} + +instance Property "Default" Parameter where + type PropertyType "Default" Parameter = JSON.Value + set newValue Parameter{..} = Parameter{default' = pure newValue, ..} + +instance Property "NoEcho" Parameter where + type PropertyType "NoEcho" Parameter = Bool + set newValue Parameter{..} = Parameter{noEcho = pure newValue, ..} + +instance Property "AllowedValues" Parameter where + type PropertyType "AllowedValues" Parameter = JSON.Array + set newValue Parameter{..} = Parameter{allowedValues = pure newValue, ..} + +instance Property "AllowedPattern" Parameter where + type PropertyType "AllowedPattern" Parameter = Text + set newValue Parameter{..} = Parameter{allowedPattern = pure newValue, ..} + +instance Property "MaxLength" Parameter where + type PropertyType "MaxLength" Parameter = Integer + set newValue Parameter{..} = Parameter{maxLength = pure newValue, ..} + +instance Property "MinLength" Parameter where + type PropertyType "MinLength" Parameter = Integer + set newValue Parameter{..} = Parameter{minLength = pure newValue, ..} + +instance Property "MaxValue" Parameter where + type PropertyType "MaxValue" Parameter = Integer + set newValue Parameter{..} = Parameter{maxValue = pure newValue, ..} + +instance Property "MinValue" Parameter where + type PropertyType "MinValue" Parameter = Integer + set newValue Parameter{..} = Parameter{minValue = pure newValue, ..} + +instance Property "Description" Parameter where + type PropertyType "Description" Parameter = Text + set newValue Parameter{..} = Parameter{description = pure newValue, ..} + +instance Property "ConstraintDescription" Parameter where + type PropertyType "ConstraintDescription" Parameter = Text + set newValue Parameter{..} = Parameter{constraintDescription = pure newValue, ..} + +instance ToRef Parameter b where + toRef Parameter{..} = Ref name + +parameterToJSON :: Parameter -> JSON.Value +parameterToJSON Parameter{..} + = JSON.object $ catMaybes + [ Just ("Type" .= type') + , maybeField "AllowedPattern" allowedPattern + , maybeField "AllowedValues" allowedValues + , maybeField "ConstraintDescription" constraintDescription + , maybeField "Default" default' + , maybeField "Description" description + , maybeField "MaxLength" maxLength + , maybeField "MaxValue" maxValue + , maybeField "MinLength" minLength + , maybeField "MinValue" minValue + , maybeField "NoEcho" noEcho + ] + +-- | Constructor for 'Parameter' with required arguments. +mkParameter + :: Text -- ^ Name + -> Text -- ^ Type + -> Parameter +mkParameter name type' = + Parameter + { allowedPattern = Nothing + , allowedValues = Nothing + , constraintDescription = Nothing + , default' = Nothing + , description = Nothing + , maxLength = Nothing + , maxValue = Nothing + , minValue = Nothing + , minLength = Nothing + , noEcho = Nothing + , .. + } + +-- | Wrapper around a list of 'Parameters's to we can modify the aeson +-- instances. +newtype Parameters = Parameters { parameterList :: [Parameter] } + deriving stock (Show, Eq) + deriving newtype (Monoid, MonoFunctor, Semigroup) + +type instance Element Parameters = Parameter + +instance IsList Parameters where + type Item Parameters = Parameter + fromList = Parameters + toList = (.parameterList) + +instance NamedItem Parameter where + itemName = (.name) + nameToJSON = parameterToJSON + +instance JSON.ToJSON Parameters where + toJSON = namedItemToJSON . (.parameterList) diff --git a/src/Stratosphere/Prelude.hs b/src/Stratosphere/Prelude.hs new file mode 100644 --- /dev/null +++ b/src/Stratosphere/Prelude.hs @@ -0,0 +1,21 @@ +module Stratosphere.Prelude (module Exports, maybeField) where + +import Data.Aeson as Exports ((.=)) +import Data.Kind as Exports (Type) +import Data.Map.Strict as Exports (Map) +import Data.Maybe as Exports (catMaybes) +import Data.MonoTraversable as Exports +import Data.Text as Exports (Text) +import GHC.Exts as Exports (fromList) +import GHC.Generics as Exports (Generic) +import Prelude as Exports + +import qualified Data.Aeson as JSON + +-- | Might create an aeson pair from a Maybe value. +maybeField + :: JSON.ToJSON a + => JSON.Key + -> Maybe a + -> Maybe (JSON.Key, JSON.Value) +maybeField field = fmap ((field .=) . JSON.toJSON) diff --git a/src/Stratosphere/Property.hs b/src/Stratosphere/Property.hs new file mode 100644 --- /dev/null +++ b/src/Stratosphere/Property.hs @@ -0,0 +1,12 @@ +{-# LANGUAGE AllowAmbiguousTypes #-} +{-# LANGUAGE FunctionalDependencies #-} + +module Stratosphere.Property where + +import Data.Kind (Type) +import GHC.TypeLits (Symbol) + +class Property (propertyName :: Symbol) (record :: Type) where + type PropertyType propertyName record :: Type + + set :: PropertyType propertyName record -> record -> record diff --git a/src/Stratosphere/Resource.hs b/src/Stratosphere/Resource.hs new file mode 100644 --- /dev/null +++ b/src/Stratosphere/Resource.hs @@ -0,0 +1,129 @@ +module Stratosphere.Resource + ( DeletionPolicy(..) + , Resource(..) + , ResourceProperties(..) + , Resources(..) + , resource + , resourceToJSON + ) +where + +import GHC.Exts (IsList(..)) +import Prelude +import Stratosphere.NamedItem +import Stratosphere.Prelude +import Stratosphere.Property +import Stratosphere.ResourceProperties +import Stratosphere.Value + +import qualified Data.Aeson as JSON +import qualified Stratosphere.ResourceAttributes.CreationPolicy as ResourceAttributes +import qualified Stratosphere.ResourceAttributes.UpdatePolicy as ResourceAttributes + +data DeletionPolicy + = Delete + | Retain + | Snapshot + deriving (Show, Eq, Generic) + +instance JSON.ToJSON DeletionPolicy where + toJSON = \case + Delete -> "Delete" + Retain -> "Retain" + Snapshot -> "Snapshot" + +data Resource = Resource + { condition :: Maybe Text + , creationPolicy :: Maybe ResourceAttributes.CreationPolicy + , deletionPolicy :: Maybe DeletionPolicy + , dependsOn :: Maybe [Text] + , logicalName :: Text + , metadata :: Maybe JSON.Object + , properties :: ResourceProperties + , updatePolicy :: Maybe ResourceAttributes.UpdatePolicy + } + deriving (Show, Eq) + +instance Property "Condition" Resource where + type PropertyType "Condition" Resource = Text + set newValue Resource{..} = Resource{condition = pure newValue, ..} + +instance Property "CreationPolicy" Resource where + type PropertyType "CreationPolicy" Resource = ResourceAttributes.CreationPolicy + set newValue Resource{..} = Resource{creationPolicy = pure newValue, ..} + +instance Property "DeletionPolicy" Resource where + type PropertyType "DeletionPolicy" Resource = DeletionPolicy + set newValue Resource{..} = Resource{deletionPolicy = pure newValue, ..} + +instance Property "DependsOn" Resource where + type PropertyType "DependsOn" Resource = [Text] + set newValue Resource{..} = Resource{dependsOn = pure newValue, ..} + +instance Property "LogicalName" Resource where + type PropertyType "LogicalName" Resource = Text + set newValue Resource{..} = Resource{logicalName = newValue, ..} + +instance Property "Metadata" Resource where + type PropertyType "Metadata" Resource = JSON.Object + set newValue Resource{..} = Resource{metadata = pure newValue, ..} + +instance Property "Properties" Resource where + type PropertyType "Properties" Resource = ResourceProperties + set newValue Resource{..} = Resource{properties = newValue, ..} + +instance Property "UpdatePolicy" Resource where + type PropertyType "UpdatePolicy" Resource = ResourceAttributes.UpdatePolicy + set newValue Resource{..} = Resource{updatePolicy = pure newValue, ..} + +instance ToRef Resource b where + toRef = Ref . (.logicalName) + +-- | Convenient constructor for 'Resource' with required arguments. +resource + :: ToResourceProperties a + => Text -- ^ Logical name + -> a + -> Resource +resource logicalName properties = + Resource + { condition = Nothing + , creationPolicy = Nothing + , deletionPolicy = Nothing + , dependsOn = Nothing + , metadata = Nothing + , properties = toResourceProperties properties + , updatePolicy = Nothing + , .. + } + +resourceToJSON :: Resource -> JSON.Value +resourceToJSON Resource{..} + = JSON.object + $ resourcePropertiesJSON properties <> catMaybes + [ maybeField "Condition" condition + , maybeField "CreationPolicy" creationPolicy + , maybeField "DeletionPolicy" deletionPolicy + , maybeField "DependsOn" dependsOn + , maybeField "Metadata" metadata + , maybeField "UpdatePolicy" updatePolicy + ] + +-- | Wrapper around a list of 'Resources's to we can modify the aeson instances. +newtype Resources = Resources { resourceList :: [Resource] } + deriving stock (Show, Eq) + deriving newtype (Monoid, MonoFunctor, Semigroup) + +type instance Element Resources = Resource + +instance IsList Resources where + type Item Resources = Resource + fromList = Resources + toList = (.resourceList) + +instance NamedItem Resource where + itemName = (.logicalName) + nameToJSON = resourceToJSON + +instance JSON.ToJSON Resources where + toJSON = namedItemToJSON . (.resourceList) diff --git a/src/Stratosphere/ResourceAttributes/AutoScalingReplacingUpdatePolicy.hs b/src/Stratosphere/ResourceAttributes/AutoScalingReplacingUpdatePolicy.hs new file mode 100644 --- /dev/null +++ b/src/Stratosphere/ResourceAttributes/AutoScalingReplacingUpdatePolicy.hs @@ -0,0 +1,29 @@ +-- | To specify how AWS CloudFormation handles replacing updates for an Auto +-- Scaling group, use the AutoScalingReplacingUpdate policy. + +module Stratosphere.ResourceAttributes.AutoScalingReplacingUpdatePolicy where + +import Stratosphere.Prelude +import Stratosphere.Value + +import qualified Data.Aeson as JSON + +-- | Full data type definition for AutoScalingReplacingUpdatePolicy. See +-- 'mkAutoScalingReplacingUpdatePolicy' for a more convenient constructor. +data AutoScalingReplacingUpdatePolicy = AutoScalingReplacingUpdatePolicy + { willReplace :: Maybe (Value Bool) + } + deriving (Show, Eq) + +instance JSON.ToJSON AutoScalingReplacingUpdatePolicy where + toJSON AutoScalingReplacingUpdatePolicy{..} + = JSON.object + $ catMaybes [fmap (("WillReplace",) . JSON.toJSON) willReplace] + +-- | Constructor for 'AutoScalingReplacingUpdatePolicy' containing required fields +-- as arguments. +mkAutoScalingReplacingUpdatePolicy :: AutoScalingReplacingUpdatePolicy +mkAutoScalingReplacingUpdatePolicy + = AutoScalingReplacingUpdatePolicy + { willReplace = Nothing + } diff --git a/src/Stratosphere/ResourceAttributes/AutoScalingRollingUpdatePolicy.hs b/src/Stratosphere/ResourceAttributes/AutoScalingRollingUpdatePolicy.hs new file mode 100644 --- /dev/null +++ b/src/Stratosphere/ResourceAttributes/AutoScalingRollingUpdatePolicy.hs @@ -0,0 +1,95 @@ +-- | To specify how AWS CloudFormation handles rolling updates for an Auto +-- Scaling group, use the AutoScalingRollingUpdatePolicy policy. + +module Stratosphere.ResourceAttributes.AutoScalingRollingUpdatePolicy where + +import Stratosphere.Prelude +import Stratosphere.Property +import Stratosphere.Value + +import qualified Data.Aeson as JSON + +-- | Full data type definition for AutoScalingRollingUpdatePolicy. See +-- 'mkAutoScalingRollingUpdatePolicy' for a more convenient constructor. +data AutoScalingRollingUpdatePolicy = AutoScalingRollingUpdatePolicy + { maxBatchSize :: Maybe (Value Integer) + , minInstancesInService :: Maybe (Value Integer) + , minSuccessfulInstancesPercent :: Maybe (Value Integer) + , pauseTime :: Maybe (Value Text) + , suspendProcesses :: Maybe (ValueList Text) + , waitOnResourceSignals :: Maybe (Value Bool) + } + deriving (Show, Eq) + +instance Property "MaxBatchSize" AutoScalingRollingUpdatePolicy where + type PropertyType "MaxBatchSize" AutoScalingRollingUpdatePolicy = Value Integer + set newValue AutoScalingRollingUpdatePolicy{..} + = AutoScalingRollingUpdatePolicy + { maxBatchSize = pure newValue + , .. + } + +instance Property "MinInstancesInService" AutoScalingRollingUpdatePolicy where + type PropertyType "MinInstancesInService" AutoScalingRollingUpdatePolicy = Value Integer + set newValue AutoScalingRollingUpdatePolicy{..} + = AutoScalingRollingUpdatePolicy + { minInstancesInService = pure newValue + , .. + } + +instance Property "MinSuccessfulInstancesPercent" AutoScalingRollingUpdatePolicy where + type PropertyType "MinSuccessfulInstancesPercent" AutoScalingRollingUpdatePolicy = Value Integer + set newValue AutoScalingRollingUpdatePolicy{..} + = AutoScalingRollingUpdatePolicy + { minSuccessfulInstancesPercent = pure newValue + , .. + } + +instance Property "PauseTime" AutoScalingRollingUpdatePolicy where + type PropertyType "PauseTime" AutoScalingRollingUpdatePolicy = Value Text + set newValue AutoScalingRollingUpdatePolicy{..} + = AutoScalingRollingUpdatePolicy + { pauseTime = pure newValue + , .. + } + +instance Property "SuspendProcesses" AutoScalingRollingUpdatePolicy where + type PropertyType "SuspendProcesses" AutoScalingRollingUpdatePolicy = ValueList Text + set newValue AutoScalingRollingUpdatePolicy{..} + = AutoScalingRollingUpdatePolicy + { suspendProcesses = pure newValue + , .. + } + +instance Property "WaitOnResourceSignals" AutoScalingRollingUpdatePolicy where + type PropertyType "WaitOnResourceSignals" AutoScalingRollingUpdatePolicy = Value Bool + set newValue AutoScalingRollingUpdatePolicy{..} + = AutoScalingRollingUpdatePolicy + { waitOnResourceSignals = pure newValue + , .. + } + +instance JSON.ToJSON AutoScalingRollingUpdatePolicy where + toJSON AutoScalingRollingUpdatePolicy{..} + = JSON.object + $ catMaybes + [ fmap (("MaxBatchSize",) . JSON.toJSON) maxBatchSize + , fmap (("MinInstancesInService",) . JSON.toJSON) minInstancesInService + , fmap (("MinSuccessfulInstancesPercent",) . JSON.toJSON) minSuccessfulInstancesPercent + , fmap (("PauseTime",) . JSON.toJSON) pauseTime + , fmap (("SuspendProcesses",) . JSON.toJSON) suspendProcesses + , fmap (("WaitOnResourceSignals",) . JSON.toJSON) waitOnResourceSignals + ] + +-- | Constructor for 'AutoScalingRollingUpdatePolicy' containing required fields as +-- arguments. +mkAutoScalingRollingUpdatePolicy :: AutoScalingRollingUpdatePolicy +mkAutoScalingRollingUpdatePolicy + = AutoScalingRollingUpdatePolicy + { maxBatchSize = Nothing + , minInstancesInService = Nothing + , minSuccessfulInstancesPercent = Nothing + , pauseTime = Nothing + , suspendProcesses = Nothing + , waitOnResourceSignals = Nothing + } diff --git a/src/Stratosphere/ResourceAttributes/AutoScalingScheduledActionPolicy.hs b/src/Stratosphere/ResourceAttributes/AutoScalingScheduledActionPolicy.hs new file mode 100644 --- /dev/null +++ b/src/Stratosphere/ResourceAttributes/AutoScalingScheduledActionPolicy.hs @@ -0,0 +1,52 @@ +-- | To specify how AWS CloudFormation handles updates for the MinSize, +-- MaxSize, and DesiredCapacity properties when the +-- AWS::AutoScaling::AutoScalingGroup resource has an associated scheduled +-- action, use the AutoScalingScheduledAction policy. With scheduled actions, +-- the group size properties of an Auto Scaling group can change at any time. +-- When you update a stack with an Auto Scaling group and scheduled action, +-- AWS CloudFormation always sets the group size property values of your Auto +-- Scaling group to the values that are defined in the +-- AWS::AutoScaling::AutoScalingGroup resource of your template, even if a +-- scheduled action is in effect. If you do not want AWS CloudFormation to +-- change any of the group size property values when you have a scheduled +-- action in effect, use the AutoScalingScheduledAction update policy to +-- prevent AWS CloudFormation from changing the MinSize, MaxSize, or +-- DesiredCapacity properties unless you have modified these values in your +-- template. + +module Stratosphere.ResourceAttributes.AutoScalingScheduledActionPolicy where + +import Stratosphere.Prelude +import Stratosphere.Property +import Stratosphere.Value + +import qualified Data.Aeson as JSON + +-- | Full data type definition for AutoScalingScheduledActionPolicy. See +-- 'mkAutoScalingScheduledActionPolicy' for a more convenient constructor. +data AutoScalingScheduledActionPolicy = AutoScalingScheduledActionPolicy + { ignoreUnmodifiedGroupSizeProperties :: Maybe (Value Bool) + } + deriving (Show, Eq) + +instance Property "IgnoreUnmodifiedGroupSizeProperties" AutoScalingScheduledActionPolicy where + type PropertyType "IgnoreUnmodifiedGroupSizeProperties" AutoScalingScheduledActionPolicy = Value Bool + set newValue AutoScalingScheduledActionPolicy{} + = AutoScalingScheduledActionPolicy + { ignoreUnmodifiedGroupSizeProperties = pure newValue + } + +instance JSON.ToJSON AutoScalingScheduledActionPolicy where + toJSON AutoScalingScheduledActionPolicy{..} + = JSON.object + $ catMaybes + [ fmap (("IgnoreUnmodifiedGroupSizeProperties",) . JSON.toJSON) ignoreUnmodifiedGroupSizeProperties + ] + +-- | Constructor for 'AutoScalingScheduledActionPolicy' containing required fields +-- as arguments. +mkAutoScalingScheduledActionPolicy :: AutoScalingScheduledActionPolicy +mkAutoScalingScheduledActionPolicy + = AutoScalingScheduledActionPolicy + { ignoreUnmodifiedGroupSizeProperties = Nothing + } diff --git a/src/Stratosphere/ResourceAttributes/CreationPolicy.hs b/src/Stratosphere/ResourceAttributes/CreationPolicy.hs new file mode 100644 --- /dev/null +++ b/src/Stratosphere/ResourceAttributes/CreationPolicy.hs @@ -0,0 +1,43 @@ +-- | You associate the CreationPolicy attribute with a resource to prevent its +-- status from reaching create complete until AWS CloudFormation receives a +-- specified number of success signals or the timeout period is exceeded. To +-- signal a resource, you can use the cfn-signal helper script or +-- SignalResource API. AWS CloudFormation publishes valid signals to the stack +-- events so that you track the number of signals sent. The creation policy is +-- invoked only when AWS CloudFormation creates the associated resource. +-- Currently, the only AWS CloudFormation resources that support creation +-- policies are AWS::AutoScaling::AutoScalingGroup, AWS::EC2::Instance, and +-- AWS::CloudFormation::WaitCondition. The CreationPolicy attribute is helpful +-- when you want to wait on resource configuration actions before stack +-- creation proceeds. For example, if you install and configure software +-- applications on an Amazon EC2 instance, you might want those applications +-- up and running before proceeding. In such cases, you can add a +-- CreationPolicy attribute to the instance and then send a success signal to +-- the instance after the applications are installed and configured. For a +-- detailed example, see Deploying Applications on Amazon EC2 with AWS +-- CloudFormation. + +module Stratosphere.ResourceAttributes.CreationPolicy where + +import Stratosphere.Prelude +import Stratosphere.ResourceAttributes.ResourceSignal + +import qualified Data.Aeson as JSON + +-- | Full data type definition for CreationPolicy. See 'mkCreationPolicy' for a +-- more convenient constructor. +data CreationPolicy = CreationPolicy + { resourceSignal :: ResourceSignal + } + deriving (Show, Eq, Generic) + +instance JSON.ToJSON CreationPolicy where + toJSON policy + = JSON.object + $ [("ResourceSignal", JSON.toJSON policy.resourceSignal)] + +-- | Constructor for 'CreationPolicy' containing required fields as arguments. +mkCreationPolicy + :: ResourceSignal -- ^ 'resourceSignal' + -> CreationPolicy +mkCreationPolicy resourceSignal = CreationPolicy{..} diff --git a/src/Stratosphere/ResourceAttributes/ResourceSignal.hs b/src/Stratosphere/ResourceAttributes/ResourceSignal.hs new file mode 100644 --- /dev/null +++ b/src/Stratosphere/ResourceAttributes/ResourceSignal.hs @@ -0,0 +1,39 @@ +module Stratosphere.ResourceAttributes.ResourceSignal where + +import Stratosphere.Prelude +import Stratosphere.Property +import Stratosphere.Value + +import qualified Data.Aeson as JSON + +-- | Full data type definition for ResourceSignal. See 'mkResourceSignal' for a +-- more convenient constructor. +data ResourceSignal = ResourceSignal + { count :: Maybe (Value Integer) + , timeout :: Maybe (Value Text) + } + deriving (Show, Eq) + +instance JSON.ToJSON ResourceSignal where + toJSON ResourceSignal{..} + = JSON.object + $ catMaybes + [ fmap (("Count",) . JSON.toJSON) count + , fmap (("Timeout",) . JSON.toJSON) timeout + ] + +instance Property "Count" ResourceSignal where + type PropertyType "Count" ResourceSignal = Value Integer + set newValue ResourceSignal{..} = ResourceSignal{count = pure newValue, ..} + +instance Property "Timeout" ResourceSignal where + type PropertyType "Timeout" ResourceSignal = Value Text + set newValue ResourceSignal{..} = ResourceSignal{timeout = pure newValue, ..} + +-- | Constructor for 'ResourceSignal' containing required fields as arguments. +mkResourceSignal :: ResourceSignal +mkResourceSignal + = ResourceSignal + { count = Nothing + , timeout = Nothing + } diff --git a/src/Stratosphere/ResourceAttributes/UpdatePolicy.hs b/src/Stratosphere/ResourceAttributes/UpdatePolicy.hs new file mode 100644 --- /dev/null +++ b/src/Stratosphere/ResourceAttributes/UpdatePolicy.hs @@ -0,0 +1,54 @@ +-- | Use the UpdatePolicy attribute to specify how AWS CloudFormation handles +-- updates to the AWS::AutoScaling::AutoScalingGroup resource. AWS +-- CloudFormation invokes one of three update policies depending on the type +-- of change you make or on whether a scheduled action is associated with the +-- Auto Scaling group. + +module Stratosphere.ResourceAttributes.UpdatePolicy where + +import Stratosphere.Prelude +import Stratosphere.Property +import Stratosphere.ResourceAttributes.AutoScalingReplacingUpdatePolicy +import Stratosphere.ResourceAttributes.AutoScalingRollingUpdatePolicy +import Stratosphere.ResourceAttributes.AutoScalingScheduledActionPolicy + +import qualified Data.Aeson as JSON + +-- | Full data type definition for UpdatePolicy. See 'mkUpdatePolicy' for a more +-- convenient constructor. +data UpdatePolicy = UpdatePolicy + { replacingUpdate :: Maybe AutoScalingReplacingUpdatePolicy + , rollingUpdate :: Maybe AutoScalingRollingUpdatePolicy + , scheduledAction :: Maybe AutoScalingScheduledActionPolicy + } + deriving (Show, Eq, Generic) + +instance Property "ReplacingUpdate" UpdatePolicy where + type PropertyType "ReplacingUpdate" UpdatePolicy = AutoScalingReplacingUpdatePolicy + set newValue UpdatePolicy{..} = UpdatePolicy{replacingUpdate = pure newValue, ..} + +instance Property "RollingUpdate" UpdatePolicy where + type PropertyType "RollingUpdate" UpdatePolicy = AutoScalingRollingUpdatePolicy + set newValue UpdatePolicy{..} = UpdatePolicy{rollingUpdate = pure newValue, ..} + +instance Property "ScheduledAction" UpdatePolicy where + type PropertyType "ScheduledAction" UpdatePolicy = AutoScalingScheduledActionPolicy + set newValue UpdatePolicy{..} = UpdatePolicy{scheduledAction = pure newValue, ..} + +instance JSON.ToJSON UpdatePolicy where + toJSON UpdatePolicy{..} + = JSON.object + $ catMaybes + [ fmap (("ReplacingUpdate",) . JSON.toJSON) replacingUpdate + , fmap (("RollingUpdate",) . JSON.toJSON) rollingUpdate + , fmap (("ScheduledAction",) . JSON.toJSON) scheduledAction + ] + +-- | Constructor for 'UpdatePolicy' containing required fields as arguments. +mkUpdatePolicy :: UpdatePolicy +mkUpdatePolicy = + UpdatePolicy + { replacingUpdate = Nothing + , rollingUpdate = Nothing + , scheduledAction = Nothing + } diff --git a/src/Stratosphere/ResourceProperties.hs b/src/Stratosphere/ResourceProperties.hs new file mode 100644 --- /dev/null +++ b/src/Stratosphere/ResourceProperties.hs @@ -0,0 +1,28 @@ +module Stratosphere.ResourceProperties + ( ResourceProperties(..) + , ToResourceProperties(..) + , resourcePropertiesJSON + ) +where + +import Stratosphere.Prelude + +import qualified Data.Aeson as JSON +import qualified Data.Aeson.Types as JSON + +data ResourceProperties + = ResourceProperties + { awsType :: Text + , properties :: JSON.Object + , supportsTags :: Bool + } + deriving (Show, Eq) + +class ToResourceProperties a where + toResourceProperties :: a -> ResourceProperties + +resourcePropertiesJSON :: ResourceProperties -> [JSON.Pair] +resourcePropertiesJSON ResourceProperties{..} = + [ "Type" .= awsType + , "Properties" .= properties + ] diff --git a/src/Stratosphere/Template.hs b/src/Stratosphere/Template.hs new file mode 100644 --- /dev/null +++ b/src/Stratosphere/Template.hs @@ -0,0 +1,140 @@ +-- | See: +-- http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/template-anatomy.html + +module Stratosphere.Template + ( Template(..) + , Mapping + , encodeTemplate + , mkTemplate + ) +where + +import Data.Aeson +import Data.Aeson.Encode.Pretty +import Prelude +import Stratosphere.Output +import Stratosphere.Parameter +import Stratosphere.Prelude +import Stratosphere.Property +import Stratosphere.Resource + +import qualified Data.ByteString.Lazy as BS +import qualified Data.Aeson as JSON +import qualified Data.Char as Char + +type Mapping = Map Text Object + +data Template = + Template + { conditions :: Maybe Object + -- ^ Defines conditions that control whether certain resources are created + -- or whether certain resource properties are assigned a value during stack + -- creation or update. For example, you could conditionally create a + -- resource that depends on whether the stack is for a production or test + -- environment. + , description :: Maybe Text + -- ^ A text string that describes the template. This section must always + -- follow the template format version section. + , formatVersion :: Maybe Text + -- ^ Specifies the AWS CloudFormation template version that the template + -- conforms to. The template format version is not the same as the API or + -- WSDL version. The template format version can change independently of + -- the API and WSDL versions. + , mappings :: Maybe (Map Text Mapping) + -- ^ A mapping of keys and associated values that you can use to specify + -- conditional parameter values, similar to a lookup table. You can match a + -- key to a corresponding value by using the Fn::FindInMap intrinsic + -- function in the Resources and Outputs section. + , metadata :: Maybe Object + -- ^ JSON objects that provide additional information about the template. + , outputs :: Maybe Outputs + -- ^ Describes the values that are returned whenever you view your stack's + -- properties. For example, you can declare an output for an Amazon S3 + -- bucket name and then call the aws cloudformation describe-stacks AWS CLI + -- command to view the name. + , parameters :: Maybe Parameters + -- ^ Specifies values that you can pass in to your template at runtime + -- (when you create or update a stack). You can refer to parameters in the + -- Resources and Outputs sections of the template. + , resources :: Resources + -- ^ Specifies the stack resources and their properties, such as an Amazon + -- Elastic Compute Cloud instance or an Amazon Simple Storage Service + -- bucket. You can refer to resources in the Resources and Outputs sections + -- of the template. + } + deriving (Show, Eq, Generic) + +instance Property "Conditions" Template where + type PropertyType "Conditions" Template = Object + set newValue Template{..} = Template{conditions = pure newValue, ..} + +instance Property "Description" Template where + type PropertyType "Description" Template = Text + set newValue Template{..} = Template{description = pure newValue, ..} + +instance Property "FormatVersion" Template where + type PropertyType "FormatVersion" Template = Text + set newValue Template{..} = Template{formatVersion = pure newValue, ..} + +instance Property "Mappings" Template where + type PropertyType "Mappings" Template = Map Text Mapping + set newValue Template{..} = Template{mappings = pure newValue, ..} + +instance Property "Metadata" Template where + type PropertyType "Metadata" Template = JSON.Object + set newValue Template{..} = Template{metadata = pure newValue, ..} + +instance Property "Outputs" Template where + type PropertyType "Outputs" Template = Outputs + set newValue Template{..} = Template{outputs = pure newValue, ..} + +instance Property "Parameters" Template where + type PropertyType "Parameters" Template = Parameters + set newValue Template{..} = Template{parameters = pure newValue, ..} + +instance Property "Resources" Template where + type PropertyType "Resources" Template = Resources + set newValue Template{..} = Template{resources = newValue, ..} + +instance JSON.ToJSON Template where + toJSON + = JSON.genericToJSON + $ JSON.defaultOptions + { JSON.fieldLabelModifier = upperHead + , JSON.omitNothingFields = True + } + where + upperHead :: String -> String + upperHead = \case + (headc:tails) -> Char.toUpper headc : tails + other -> other + +-- | Convenient constructor for 'Template' with required arguments. +mkTemplate :: Resources -> Template +mkTemplate resources + = Template + { formatVersion = Nothing + , description = Nothing + , metadata = Nothing + , parameters = Nothing + , mappings = Nothing + , conditions = Nothing + , outputs = Nothing + , .. + } + +-- | Pretty print a template using aeson-pretty. +encodeTemplate :: Template -> BS.ByteString +encodeTemplate = encodePretty' defConfig { confIndent = Spaces 2, confCompare = comp } + where + comp + = keyOrder + [ "AWSTemplateFormatVersion" + , "Description" + , "Metadata" + , "Parameters" + , "Mappings" + , "Conditions" + , "Resources" + , "Outputs" + ] diff --git a/src/Stratosphere/Value.hs b/src/Stratosphere/Value.hs new file mode 100644 --- /dev/null +++ b/src/Stratosphere/Value.hs @@ -0,0 +1,144 @@ +module Stratosphere.Value + ( Value(..) + , ToRef(..) + , ValueList(..) + , sub + ) +where + +import Data.Aeson ((.=)) +import Data.Maybe (fromMaybe) +import Data.String (IsString(..)) +import Data.Text (Text) +import Data.Typeable +import GHC.Exts (IsList(..)) +import Prelude + +import qualified Data.Aeson as JSON +import qualified Data.Aeson.KeyMap as JSON + +-- | This type is a wrapper around any values in a template. A value can be a +-- 'Literal', a 'Ref', or an intrinsic function. See: +-- http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/intrinsic-function-reference.html +data Value a where + Literal :: a -> Value a + Ref :: Text -> Value a + If :: Text -> Value a -> Value a -> Value a + And :: Value Bool -> Value Bool -> Value Bool + Equals :: (Show a, JSON.ToJSON a, Eq a, Typeable a) => Value a -> Value a -> Value Bool + Or :: Value Bool -> Value Bool -> Value Bool + Not :: Value Bool -> Value Bool + GetAtt :: Text -> Text -> Value a + Base64 :: Value Text -> Value Text + Join :: Text -> ValueList Text -> Value Text + Select :: Integer -> ValueList a -> Value a + FindInMap :: Value Text -> Value Text -> Value Text -> Value a -- ^ Map name, top level key, and second level key + ImportValue :: Value Text -> Value a -- ^ The account-and-region-unique exported name of the value to import + Sub :: Text -> Maybe (JSON.KeyMap (Value Text)) -> Value Text -- ^ Substitution string and optional map of values + +deriving instance Show a => Show (Value a) + +instance Eq a => Eq (Value a) where + Literal a == Literal a' = a == a' + Ref a == Ref a' = a == a' + If a b c == If a' b' c' = a == a' && b == b' && c == c' + And a b == And a' b' = a == a' && b == b' + Equals a b == Equals a' b' = eqEquals a b a' b' + Or a b == Or a' b' = a == a' && b == b' + Not a == Not a' = a == a' + GetAtt a b == GetAtt a' b' = a == a' && b == b' + Base64 a == Base64 a' = a == a' + FindInMap a b c == FindInMap a' b' c' = a == a' && b == b' && c == c' + ImportValue a == ImportValue a' = a == a' + Sub a b == Sub a' b' = a == a' && b == b' + _ == _ = False + +eqEquals :: (Typeable a, Typeable b, Eq a) => a -> a -> b -> b -> Bool +eqEquals a b a' b' = fromMaybe False $ do + a'' <- cast a' + b'' <- cast b' + pure $ a == a'' && b == b'' + +instance IsString a => IsString (Value a) where + fromString s = Literal (fromString s) + +instance JSON.ToJSON a => JSON.ToJSON (Value a) where + toJSON = \case + (And x y) -> mkFunc "Fn::And" [JSON.toJSON x, JSON.toJSON y] + (Base64 v) -> JSON.object [("Fn::Base64", JSON.toJSON v)] + (Equals x y) -> mkFunc "Fn::Equals" [JSON.toJSON x, JSON.toJSON y] + (GetAtt x y) -> mkFunc "Fn::GetAtt" [JSON.toJSON x, JSON.toJSON y] + (If i x y) -> mkFunc "Fn::If" [JSON.toJSON i, JSON.toJSON x, JSON.toJSON y] + (ImportValue t) -> importValueToJSON t + (Join d vs) -> mkFunc "Fn::Join" [JSON.toJSON d, JSON.toJSON vs] + (Literal v) -> JSON.toJSON v + (Not x) -> mkFunc "Fn::Not" [JSON.toJSON x] + (Or x y) -> mkFunc "Fn::Or" [JSON.toJSON x, JSON.toJSON y] + (Ref r) -> refToJSON r + (Select i vs) -> mkFunc "Fn::Select" [JSON.toJSON i, JSON.toJSON vs] + (Sub s (Just vals)) -> mkFunc "Fn::Sub" [JSON.toJSON s, JSON.Object (JSON.toJSON <$> vals)] + (Sub s Nothing) -> JSON.object [("Fn::Sub" .= s)] + (FindInMap mapName topKey secondKey) -> JSON.object + [ ("Fn::FindInMap" .= ([JSON.toJSON mapName, JSON.toJSON topKey, JSON.toJSON secondKey] :: [JSON.Value])) + ] + +-- | Simple version of 'Sub' without a map of values. +sub :: Text -> Value Text +sub s = Sub s Nothing + +refToJSON :: Text -> JSON.Value +refToJSON ref = JSON.object [("Ref" .= ref)] + +importValueToJSON :: Value Text -> JSON.Value +importValueToJSON ref = JSON.object [("Fn::ImportValue", JSON.toJSON ref)] + +mkFunc :: JSON.Key -> [JSON.Value] -> JSON.Value +mkFunc key args = JSON.object [(key, JSON.Array $ fromList args)] + +-- | 'ValueList' is like 'Value', except it is used in place of lists of values in +-- templates. For example, if you have a parameter called @SubnetIds@ of type +-- @List@ then, you can use @RefList "SubnetIds"@ to +-- reference it. +data ValueList a + = Cidr (Value Text) (Value Text) (Value Text) + | GetAZs (Value Text) + | ImportValueList (Value Text) + | RefList Text + | Split Text (Value a) + | ValueList [Value a] + deriving (Show, Eq) + +instance IsList (ValueList a) where + type Item (ValueList a) = Value a + fromList = ValueList + + toList = \case + -- This is obviously not meaningful, but the IsList instance is so useful + -- that I decided to allow it. + (Cidr _ _ _) -> [] + (GetAZs _) -> [] + (ImportValueList _) -> [] + (RefList _) -> [] + (Split _ _) -> [] + (ValueList xs) -> xs + +instance JSON.ToJSON a => JSON.ToJSON (ValueList a) where + toJSON = \case + (Cidr ipBlock count cidrBits) -> JSON.object [("Fn::Cidr", cidrArray ipBlock count cidrBits)] + (GetAZs r) -> JSON.object [("Fn::GetAZs", JSON.toJSON r)] + (ImportValueList ref) -> importValueToJSON ref + (RefList ref) -> refToJSON ref + (Split d s) -> mkFunc "Fn::Split" [JSON.toJSON d, JSON.toJSON s] + (ValueList vals) -> JSON.toJSON vals + where + cidrArray :: Value Text -> Value Text -> Value Text -> JSON.Value + cidrArray ipBlock count cidrBits + = JSON.Array + [ JSON.toJSON ipBlock + , JSON.toJSON count + , JSON.toJSON cidrBits + ] + +-- | Class used to create a 'Ref' from another type. +class ToRef a b where + toRef :: a -> Value b diff --git a/stratosphere.cabal b/stratosphere.cabal --- a/stratosphere.cabal +++ b/stratosphere.cabal @@ -1,2232 +1,152 @@ cabal-version: 1.12 --- This file has been generated from package.yaml by hpack version 0.34.4. --- --- see: https://github.com/sol/hpack - -name: stratosphere -version: 0.60.0 -synopsis: EDSL for AWS CloudFormation -description: EDSL for AWS CloudFormation -category: AWS, Cloud -stability: experimental -homepage: https://github.com/mbj/stratosphere#readme -bug-reports: https://github.com/mbj/stratosphere/issues -maintainer: Markus Schirp -license: MIT -license-file: LICENSE.md -build-type: Simple -extra-source-files: - CHANGELOG.md - README.md - -source-repository head - type: git - location: https://github.com/mbj/stratosphere - -flag library-only - description: Don't compile examples - manual: True - default: True - -library - exposed-modules: - Stratosphere - Stratosphere.Check - Stratosphere.Helpers - Stratosphere.Outputs - Stratosphere.Parameters - Stratosphere.ResourceAttributes.AutoScalingReplacingUpdatePolicy - Stratosphere.ResourceAttributes.AutoScalingRollingUpdatePolicy - Stratosphere.ResourceAttributes.AutoScalingScheduledActionPolicy - Stratosphere.ResourceAttributes.CreationPolicy - Stratosphere.ResourceAttributes.ResourceSignal - Stratosphere.ResourceAttributes.UpdatePolicy - Stratosphere.ResourceImports - Stratosphere.ResourceProperties - Stratosphere.Template - Stratosphere.Types - Stratosphere.Values - Stratosphere.ResourceProperties.AccessAnalyzerAnalyzerArchiveRule - Stratosphere.ResourceProperties.AccessAnalyzerAnalyzerFilter - Stratosphere.ResourceProperties.ACMPCACertificateAuthorityCrlConfiguration - Stratosphere.ResourceProperties.ACMPCACertificateAuthorityRevocationConfiguration - Stratosphere.ResourceProperties.ACMPCACertificateAuthoritySubject - Stratosphere.ResourceProperties.ACMPCACertificateValidity - Stratosphere.ResourceProperties.AmazonMQBrokerConfigurationId - Stratosphere.ResourceProperties.AmazonMQBrokerEncryptionOptions - Stratosphere.ResourceProperties.AmazonMQBrokerInterBrokerCred - Stratosphere.ResourceProperties.AmazonMQBrokerLdapMetadata - Stratosphere.ResourceProperties.AmazonMQBrokerLdapServerMetadata - Stratosphere.ResourceProperties.AmazonMQBrokerLogList - Stratosphere.ResourceProperties.AmazonMQBrokerMaintenanceWindow - Stratosphere.ResourceProperties.AmazonMQBrokerServerMetadata - Stratosphere.ResourceProperties.AmazonMQBrokerTagsEntry - Stratosphere.ResourceProperties.AmazonMQBrokerUser - Stratosphere.ResourceProperties.AmazonMQConfigurationAssociationConfigurationId - Stratosphere.ResourceProperties.AmazonMQConfigurationTagsEntry - Stratosphere.ResourceProperties.AmplifyAppAutoBranchCreationConfig - Stratosphere.ResourceProperties.AmplifyAppBasicAuthConfig - Stratosphere.ResourceProperties.AmplifyAppCustomRule - Stratosphere.ResourceProperties.AmplifyAppEnvironmentVariable - Stratosphere.ResourceProperties.AmplifyBranchBasicAuthConfig - Stratosphere.ResourceProperties.AmplifyBranchEnvironmentVariable - Stratosphere.ResourceProperties.AmplifyDomainSubDomainSetting - Stratosphere.ResourceProperties.ApiGatewayApiKeyStageKey - Stratosphere.ResourceProperties.ApiGatewayDeploymentAccessLogSetting - Stratosphere.ResourceProperties.ApiGatewayDeploymentCanarySetting - Stratosphere.ResourceProperties.ApiGatewayDeploymentDeploymentCanarySettings - Stratosphere.ResourceProperties.ApiGatewayDeploymentMethodSetting - Stratosphere.ResourceProperties.ApiGatewayDeploymentStageDescription - Stratosphere.ResourceProperties.ApiGatewayDocumentationPartLocation - Stratosphere.ResourceProperties.ApiGatewayDomainNameEndpointConfiguration - Stratosphere.ResourceProperties.ApiGatewayMethodIntegration - Stratosphere.ResourceProperties.ApiGatewayMethodIntegrationResponse - Stratosphere.ResourceProperties.ApiGatewayMethodMethodResponse - Stratosphere.ResourceProperties.ApiGatewayRestApiEndpointConfiguration - Stratosphere.ResourceProperties.ApiGatewayRestApiS3Location - Stratosphere.ResourceProperties.ApiGatewayStageAccessLogSetting - Stratosphere.ResourceProperties.ApiGatewayStageCanarySetting - Stratosphere.ResourceProperties.ApiGatewayStageMethodSetting - Stratosphere.ResourceProperties.ApiGatewayUsagePlanApiStage - Stratosphere.ResourceProperties.ApiGatewayUsagePlanQuotaSettings - Stratosphere.ResourceProperties.ApiGatewayUsagePlanThrottleSettings - Stratosphere.ResourceProperties.ApiGatewayV2ApiBodyS3Location - Stratosphere.ResourceProperties.ApiGatewayV2ApiCors - Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesAccessLogSettings - Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesIntegrationOverrides - Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesRouteOverrides - Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesRouteSettings - Stratosphere.ResourceProperties.ApiGatewayV2ApiGatewayManagedOverridesStageOverrides - Stratosphere.ResourceProperties.ApiGatewayV2AuthorizerJWTConfiguration - Stratosphere.ResourceProperties.ApiGatewayV2DomainNameDomainNameConfiguration - Stratosphere.ResourceProperties.ApiGatewayV2IntegrationTlsConfig - Stratosphere.ResourceProperties.ApiGatewayV2RouteParameterConstraints - Stratosphere.ResourceProperties.ApiGatewayV2RouteResponseParameterConstraints - Stratosphere.ResourceProperties.ApiGatewayV2StageAccessLogSettings - Stratosphere.ResourceProperties.ApiGatewayV2StageRouteSettings - Stratosphere.ResourceProperties.AppConfigApplicationTags - Stratosphere.ResourceProperties.AppConfigConfigurationProfileTags - Stratosphere.ResourceProperties.AppConfigConfigurationProfileValidators - Stratosphere.ResourceProperties.AppConfigDeploymentStrategyTags - Stratosphere.ResourceProperties.AppConfigDeploymentTags - Stratosphere.ResourceProperties.AppConfigEnvironmentMonitors - Stratosphere.ResourceProperties.AppConfigEnvironmentTags - Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetScalableTargetAction - Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetScheduledAction - Stratosphere.ResourceProperties.ApplicationAutoScalingScalableTargetSuspendedState - Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification - Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyMetricDimension - Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyPredefinedMetricSpecification - Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyStepAdjustment - Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration - Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration - Stratosphere.ResourceProperties.ApplicationInsightsApplicationAlarm - Stratosphere.ResourceProperties.ApplicationInsightsApplicationAlarmMetric - Stratosphere.ResourceProperties.ApplicationInsightsApplicationComponentConfiguration - Stratosphere.ResourceProperties.ApplicationInsightsApplicationComponentMonitoringSetting - Stratosphere.ResourceProperties.ApplicationInsightsApplicationConfigurationDetails - Stratosphere.ResourceProperties.ApplicationInsightsApplicationCustomComponent - Stratosphere.ResourceProperties.ApplicationInsightsApplicationLog - Stratosphere.ResourceProperties.ApplicationInsightsApplicationLogPattern - Stratosphere.ResourceProperties.ApplicationInsightsApplicationLogPatternSet - Stratosphere.ResourceProperties.ApplicationInsightsApplicationSubComponentConfigurationDetails - Stratosphere.ResourceProperties.ApplicationInsightsApplicationSubComponentTypeConfiguration - Stratosphere.ResourceProperties.ApplicationInsightsApplicationWindowsEvent - Stratosphere.ResourceProperties.AppMeshGatewayRouteGatewayRouteSpec - Stratosphere.ResourceProperties.AppMeshGatewayRouteGatewayRouteTarget - Stratosphere.ResourceProperties.AppMeshGatewayRouteGatewayRouteVirtualService - Stratosphere.ResourceProperties.AppMeshGatewayRouteGrpcGatewayRoute - Stratosphere.ResourceProperties.AppMeshGatewayRouteGrpcGatewayRouteAction - Stratosphere.ResourceProperties.AppMeshGatewayRouteGrpcGatewayRouteMatch - Stratosphere.ResourceProperties.AppMeshGatewayRouteHttpGatewayRoute - Stratosphere.ResourceProperties.AppMeshGatewayRouteHttpGatewayRouteAction - Stratosphere.ResourceProperties.AppMeshGatewayRouteHttpGatewayRouteMatch - Stratosphere.ResourceProperties.AppMeshMeshEgressFilter - Stratosphere.ResourceProperties.AppMeshMeshMeshSpec - Stratosphere.ResourceProperties.AppMeshRouteDuration - Stratosphere.ResourceProperties.AppMeshRouteGrpcRetryPolicy - Stratosphere.ResourceProperties.AppMeshRouteGrpcRoute - Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteAction - Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMatch - Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMetadata - Stratosphere.ResourceProperties.AppMeshRouteGrpcRouteMetadataMatchMethod - Stratosphere.ResourceProperties.AppMeshRouteGrpcTimeout - Stratosphere.ResourceProperties.AppMeshRouteHeaderMatchMethod - Stratosphere.ResourceProperties.AppMeshRouteHttpRetryPolicy - Stratosphere.ResourceProperties.AppMeshRouteHttpRoute - Stratosphere.ResourceProperties.AppMeshRouteHttpRouteAction - Stratosphere.ResourceProperties.AppMeshRouteHttpRouteHeader - Stratosphere.ResourceProperties.AppMeshRouteHttpRouteMatch - Stratosphere.ResourceProperties.AppMeshRouteHttpTimeout - Stratosphere.ResourceProperties.AppMeshRouteMatchRange - Stratosphere.ResourceProperties.AppMeshRouteRouteSpec - Stratosphere.ResourceProperties.AppMeshRouteTcpRoute - Stratosphere.ResourceProperties.AppMeshRouteTcpRouteAction - Stratosphere.ResourceProperties.AppMeshRouteTcpTimeout - Stratosphere.ResourceProperties.AppMeshRouteWeightedTarget - Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayAccessLog - Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayBackendDefaults - Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayClientPolicy - Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayClientPolicyTls - Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayFileAccessLog - Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayHealthCheckPolicy - Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayListener - Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayListenerTls - Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayListenerTlsAcmCertificate - Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayListenerTlsCertificate - Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayListenerTlsFileCertificate - Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayLogging - Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayPortMapping - Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewaySpec - Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayTlsValidationContext - Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayTlsValidationContextAcmTrust - Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayTlsValidationContextFileTrust - Stratosphere.ResourceProperties.AppMeshVirtualGatewayVirtualGatewayTlsValidationContextTrust - Stratosphere.ResourceProperties.AppMeshVirtualNodeAccessLog - Stratosphere.ResourceProperties.AppMeshVirtualNodeAwsCloudMapInstanceAttribute - Stratosphere.ResourceProperties.AppMeshVirtualNodeAwsCloudMapServiceDiscovery - Stratosphere.ResourceProperties.AppMeshVirtualNodeBackend - Stratosphere.ResourceProperties.AppMeshVirtualNodeBackendDefaults - Stratosphere.ResourceProperties.AppMeshVirtualNodeClientPolicy - Stratosphere.ResourceProperties.AppMeshVirtualNodeClientPolicyTls - Stratosphere.ResourceProperties.AppMeshVirtualNodeDnsServiceDiscovery - Stratosphere.ResourceProperties.AppMeshVirtualNodeDuration - Stratosphere.ResourceProperties.AppMeshVirtualNodeFileAccessLog - Stratosphere.ResourceProperties.AppMeshVirtualNodeGrpcTimeout - Stratosphere.ResourceProperties.AppMeshVirtualNodeHealthCheck - Stratosphere.ResourceProperties.AppMeshVirtualNodeHttpTimeout - Stratosphere.ResourceProperties.AppMeshVirtualNodeListener - Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTimeout - Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTls - Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTlsAcmCertificate - Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTlsCertificate - Stratosphere.ResourceProperties.AppMeshVirtualNodeListenerTlsFileCertificate - Stratosphere.ResourceProperties.AppMeshVirtualNodeLogging - Stratosphere.ResourceProperties.AppMeshVirtualNodePortMapping - Stratosphere.ResourceProperties.AppMeshVirtualNodeServiceDiscovery - Stratosphere.ResourceProperties.AppMeshVirtualNodeTcpTimeout - Stratosphere.ResourceProperties.AppMeshVirtualNodeTlsValidationContext - Stratosphere.ResourceProperties.AppMeshVirtualNodeTlsValidationContextAcmTrust - Stratosphere.ResourceProperties.AppMeshVirtualNodeTlsValidationContextFileTrust - Stratosphere.ResourceProperties.AppMeshVirtualNodeTlsValidationContextTrust - Stratosphere.ResourceProperties.AppMeshVirtualNodeVirtualNodeSpec - Stratosphere.ResourceProperties.AppMeshVirtualNodeVirtualServiceBackend - Stratosphere.ResourceProperties.AppMeshVirtualRouterPortMapping - Stratosphere.ResourceProperties.AppMeshVirtualRouterVirtualRouterListener - Stratosphere.ResourceProperties.AppMeshVirtualRouterVirtualRouterSpec - Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualNodeServiceProvider - Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualRouterServiceProvider - Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualServiceProvider - Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualServiceSpec - Stratosphere.ResourceProperties.AppStreamDirectoryConfigServiceAccountCredentials - Stratosphere.ResourceProperties.AppStreamFleetComputeCapacity - Stratosphere.ResourceProperties.AppStreamFleetDomainJoinInfo - Stratosphere.ResourceProperties.AppStreamFleetVpcConfig - Stratosphere.ResourceProperties.AppStreamImageBuilderAccessEndpoint - Stratosphere.ResourceProperties.AppStreamImageBuilderDomainJoinInfo - Stratosphere.ResourceProperties.AppStreamImageBuilderVpcConfig - Stratosphere.ResourceProperties.AppStreamStackAccessEndpoint - Stratosphere.ResourceProperties.AppStreamStackApplicationSettings - Stratosphere.ResourceProperties.AppStreamStackStorageConnector - Stratosphere.ResourceProperties.AppStreamStackUserSetting - Stratosphere.ResourceProperties.AppSyncDataSourceAuthorizationConfig - Stratosphere.ResourceProperties.AppSyncDataSourceAwsIamConfig - Stratosphere.ResourceProperties.AppSyncDataSourceDeltaSyncConfig - Stratosphere.ResourceProperties.AppSyncDataSourceDynamoDBConfig - Stratosphere.ResourceProperties.AppSyncDataSourceElasticsearchConfig - Stratosphere.ResourceProperties.AppSyncDataSourceHttpConfig - Stratosphere.ResourceProperties.AppSyncDataSourceLambdaConfig - Stratosphere.ResourceProperties.AppSyncDataSourceRdsHttpEndpointConfig - Stratosphere.ResourceProperties.AppSyncDataSourceRelationalDatabaseConfig - Stratosphere.ResourceProperties.AppSyncGraphQLApiAdditionalAuthenticationProvider - Stratosphere.ResourceProperties.AppSyncGraphQLApiCognitoUserPoolConfig - Stratosphere.ResourceProperties.AppSyncGraphQLApiLogConfig - Stratosphere.ResourceProperties.AppSyncGraphQLApiOpenIDConnectConfig - Stratosphere.ResourceProperties.AppSyncGraphQLApiUserPoolConfig - Stratosphere.ResourceProperties.AppSyncResolverCachingConfig - Stratosphere.ResourceProperties.AppSyncResolverLambdaConflictHandlerConfig - Stratosphere.ResourceProperties.AppSyncResolverPipelineConfig - Stratosphere.ResourceProperties.AppSyncResolverSyncConfig - Stratosphere.ResourceProperties.ASKSkillAuthenticationConfiguration - Stratosphere.ResourceProperties.ASKSkillOverrides - Stratosphere.ResourceProperties.ASKSkillSkillPackage - Stratosphere.ResourceProperties.AthenaDataCatalogTags - Stratosphere.ResourceProperties.AthenaWorkGroupEncryptionConfiguration - Stratosphere.ResourceProperties.AthenaWorkGroupResultConfiguration - Stratosphere.ResourceProperties.AthenaWorkGroupResultConfigurationUpdates - Stratosphere.ResourceProperties.AthenaWorkGroupTags - Stratosphere.ResourceProperties.AthenaWorkGroupWorkGroupConfiguration - Stratosphere.ResourceProperties.AthenaWorkGroupWorkGroupConfigurationUpdates - Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupInstancesDistribution - Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupLaunchTemplate - Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupLaunchTemplateOverrides - Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupLaunchTemplateSpecification - Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupLifecycleHookSpecification - Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupMetricsCollection - Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupMixedInstancesPolicy - Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupNotificationConfiguration - Stratosphere.ResourceProperties.AutoScalingAutoScalingGroupTagProperty - Stratosphere.ResourceProperties.AutoScalingLaunchConfigurationBlockDevice - Stratosphere.ResourceProperties.AutoScalingLaunchConfigurationBlockDeviceMapping - Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanApplicationSource - Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification - Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanCustomizedScalingMetricSpecification - Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanMetricDimension - Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification - Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanPredefinedScalingMetricSpecification - Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanScalingInstruction - Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanTagFilter - Stratosphere.ResourceProperties.AutoScalingPlansScalingPlanTargetTrackingConfiguration - Stratosphere.ResourceProperties.AutoScalingScalingPolicyCustomizedMetricSpecification - Stratosphere.ResourceProperties.AutoScalingScalingPolicyMetricDimension - Stratosphere.ResourceProperties.AutoScalingScalingPolicyPredefinedMetricSpecification - Stratosphere.ResourceProperties.AutoScalingScalingPolicyStepAdjustment - Stratosphere.ResourceProperties.AutoScalingScalingPolicyTargetTrackingConfiguration - Stratosphere.ResourceProperties.BackupBackupPlanBackupPlanResourceType - Stratosphere.ResourceProperties.BackupBackupPlanBackupRuleResourceType - Stratosphere.ResourceProperties.BackupBackupPlanCopyActionResourceType - Stratosphere.ResourceProperties.BackupBackupPlanLifecycleResourceType - Stratosphere.ResourceProperties.BackupBackupSelectionBackupSelectionResourceType - Stratosphere.ResourceProperties.BackupBackupSelectionConditionResourceType - Stratosphere.ResourceProperties.BackupBackupVaultNotificationObjectType - Stratosphere.ResourceProperties.BatchComputeEnvironmentComputeResources - Stratosphere.ResourceProperties.BatchComputeEnvironmentLaunchTemplateSpecification - Stratosphere.ResourceProperties.BatchJobDefinitionContainerProperties - Stratosphere.ResourceProperties.BatchJobDefinitionDevice - Stratosphere.ResourceProperties.BatchJobDefinitionEnvironment - Stratosphere.ResourceProperties.BatchJobDefinitionLinuxParameters - Stratosphere.ResourceProperties.BatchJobDefinitionMountPoints - Stratosphere.ResourceProperties.BatchJobDefinitionNodeProperties - Stratosphere.ResourceProperties.BatchJobDefinitionNodeRangeProperty - Stratosphere.ResourceProperties.BatchJobDefinitionResourceRequirement - Stratosphere.ResourceProperties.BatchJobDefinitionRetryStrategy - Stratosphere.ResourceProperties.BatchJobDefinitionTimeout - Stratosphere.ResourceProperties.BatchJobDefinitionUlimit - Stratosphere.ResourceProperties.BatchJobDefinitionVolumes - Stratosphere.ResourceProperties.BatchJobDefinitionVolumesHost - Stratosphere.ResourceProperties.BatchJobQueueComputeEnvironmentOrder - Stratosphere.ResourceProperties.BudgetsBudgetBudgetData - Stratosphere.ResourceProperties.BudgetsBudgetCostTypes - Stratosphere.ResourceProperties.BudgetsBudgetNotification - Stratosphere.ResourceProperties.BudgetsBudgetNotificationWithSubscribers - Stratosphere.ResourceProperties.BudgetsBudgetSpend - Stratosphere.ResourceProperties.BudgetsBudgetSubscriber - Stratosphere.ResourceProperties.BudgetsBudgetTimePeriod - Stratosphere.ResourceProperties.CassandraTableBillingMode - Stratosphere.ResourceProperties.CassandraTableClusteringKeyColumn - Stratosphere.ResourceProperties.CassandraTableColumn - Stratosphere.ResourceProperties.CassandraTableProvisionedThroughput - Stratosphere.ResourceProperties.CertificateManagerCertificateDomainValidationOption - Stratosphere.ResourceProperties.Cloud9EnvironmentEC2Repository - Stratosphere.ResourceProperties.CloudFrontCachePolicyCachePolicyConfig - Stratosphere.ResourceProperties.CloudFrontCachePolicyCookiesConfig - Stratosphere.ResourceProperties.CloudFrontCachePolicyHeadersConfig - Stratosphere.ResourceProperties.CloudFrontCachePolicyParametersInCacheKeyAndForwardedToOrigin - Stratosphere.ResourceProperties.CloudFrontCachePolicyQueryStringsConfig - Stratosphere.ResourceProperties.CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig - Stratosphere.ResourceProperties.CloudFrontDistributionCacheBehavior - Stratosphere.ResourceProperties.CloudFrontDistributionCookies - Stratosphere.ResourceProperties.CloudFrontDistributionCustomErrorResponse - Stratosphere.ResourceProperties.CloudFrontDistributionCustomOriginConfig - Stratosphere.ResourceProperties.CloudFrontDistributionDefaultCacheBehavior - Stratosphere.ResourceProperties.CloudFrontDistributionDistributionConfig - Stratosphere.ResourceProperties.CloudFrontDistributionForwardedValues - Stratosphere.ResourceProperties.CloudFrontDistributionGeoRestriction - Stratosphere.ResourceProperties.CloudFrontDistributionLambdaFunctionAssociation - Stratosphere.ResourceProperties.CloudFrontDistributionLogging - Stratosphere.ResourceProperties.CloudFrontDistributionOrigin - Stratosphere.ResourceProperties.CloudFrontDistributionOriginCustomHeader - Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroup - Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroupFailoverCriteria - Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroupMember - Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroupMembers - Stratosphere.ResourceProperties.CloudFrontDistributionOriginGroups - Stratosphere.ResourceProperties.CloudFrontDistributionRestrictions - Stratosphere.ResourceProperties.CloudFrontDistributionS3OriginConfig - Stratosphere.ResourceProperties.CloudFrontDistributionStatusCodes - Stratosphere.ResourceProperties.CloudFrontDistributionViewerCertificate - Stratosphere.ResourceProperties.CloudFrontOriginRequestPolicyCookiesConfig - Stratosphere.ResourceProperties.CloudFrontOriginRequestPolicyHeadersConfig - Stratosphere.ResourceProperties.CloudFrontOriginRequestPolicyOriginRequestPolicyConfig - Stratosphere.ResourceProperties.CloudFrontOriginRequestPolicyQueryStringsConfig - Stratosphere.ResourceProperties.CloudFrontRealtimeLogConfigEndPoint - Stratosphere.ResourceProperties.CloudFrontRealtimeLogConfigKinesisStreamConfig - Stratosphere.ResourceProperties.CloudFrontStreamingDistributionLogging - Stratosphere.ResourceProperties.CloudFrontStreamingDistributionS3Origin - Stratosphere.ResourceProperties.CloudFrontStreamingDistributionStreamingDistributionConfig - Stratosphere.ResourceProperties.CloudFrontStreamingDistributionTrustedSigners - Stratosphere.ResourceProperties.CloudTrailTrailDataResource - Stratosphere.ResourceProperties.CloudTrailTrailEventSelector - Stratosphere.ResourceProperties.CloudWatchAlarmDimension - Stratosphere.ResourceProperties.CloudWatchAlarmMetric - Stratosphere.ResourceProperties.CloudWatchAlarmMetricDataQuery - Stratosphere.ResourceProperties.CloudWatchAlarmMetricStat - Stratosphere.ResourceProperties.CloudWatchAnomalyDetectorConfiguration - Stratosphere.ResourceProperties.CloudWatchAnomalyDetectorDimension - Stratosphere.ResourceProperties.CloudWatchAnomalyDetectorRange - Stratosphere.ResourceProperties.CodeBuildProjectArtifacts - Stratosphere.ResourceProperties.CodeBuildProjectBatchRestrictions - Stratosphere.ResourceProperties.CodeBuildProjectBuildStatusConfig - Stratosphere.ResourceProperties.CodeBuildProjectCloudWatchLogsConfig - Stratosphere.ResourceProperties.CodeBuildProjectEnvironment - Stratosphere.ResourceProperties.CodeBuildProjectEnvironmentVariable - Stratosphere.ResourceProperties.CodeBuildProjectGitSubmodulesConfig - Stratosphere.ResourceProperties.CodeBuildProjectLogsConfig - Stratosphere.ResourceProperties.CodeBuildProjectProjectBuildBatchConfig - Stratosphere.ResourceProperties.CodeBuildProjectProjectCache - Stratosphere.ResourceProperties.CodeBuildProjectProjectFileSystemLocation - Stratosphere.ResourceProperties.CodeBuildProjectProjectSourceVersion - Stratosphere.ResourceProperties.CodeBuildProjectProjectTriggers - Stratosphere.ResourceProperties.CodeBuildProjectRegistryCredential - Stratosphere.ResourceProperties.CodeBuildProjectS3LogsConfig - Stratosphere.ResourceProperties.CodeBuildProjectSource - Stratosphere.ResourceProperties.CodeBuildProjectSourceAuth - Stratosphere.ResourceProperties.CodeBuildProjectVpcConfig - Stratosphere.ResourceProperties.CodeBuildProjectWebhookFilter - Stratosphere.ResourceProperties.CodeBuildReportGroupReportExportConfig - Stratosphere.ResourceProperties.CodeBuildReportGroupS3ReportExportConfig - Stratosphere.ResourceProperties.CodeCommitRepositoryCode - Stratosphere.ResourceProperties.CodeCommitRepositoryRepositoryTrigger - Stratosphere.ResourceProperties.CodeCommitRepositoryS3 - Stratosphere.ResourceProperties.CodeDeployDeploymentConfigMinimumHealthyHosts - Stratosphere.ResourceProperties.CodeDeployDeploymentGroupAlarm - Stratosphere.ResourceProperties.CodeDeployDeploymentGroupAlarmConfiguration - Stratosphere.ResourceProperties.CodeDeployDeploymentGroupAutoRollbackConfiguration - Stratosphere.ResourceProperties.CodeDeployDeploymentGroupDeployment - Stratosphere.ResourceProperties.CodeDeployDeploymentGroupDeploymentStyle - Stratosphere.ResourceProperties.CodeDeployDeploymentGroupEC2TagFilter - Stratosphere.ResourceProperties.CodeDeployDeploymentGroupEC2TagSet - Stratosphere.ResourceProperties.CodeDeployDeploymentGroupEC2TagSetListObject - Stratosphere.ResourceProperties.CodeDeployDeploymentGroupELBInfo - Stratosphere.ResourceProperties.CodeDeployDeploymentGroupGitHubLocation - Stratosphere.ResourceProperties.CodeDeployDeploymentGroupLoadBalancerInfo - Stratosphere.ResourceProperties.CodeDeployDeploymentGroupOnPremisesTagSet - Stratosphere.ResourceProperties.CodeDeployDeploymentGroupOnPremisesTagSetListObject - Stratosphere.ResourceProperties.CodeDeployDeploymentGroupRevisionLocation - Stratosphere.ResourceProperties.CodeDeployDeploymentGroupS3Location - Stratosphere.ResourceProperties.CodeDeployDeploymentGroupTagFilter - Stratosphere.ResourceProperties.CodeDeployDeploymentGroupTargetGroupInfo - Stratosphere.ResourceProperties.CodeDeployDeploymentGroupTriggerConfig - Stratosphere.ResourceProperties.CodeGuruProfilerProfilingGroupChannel - Stratosphere.ResourceProperties.CodePipelineCustomActionTypeArtifactDetails - Stratosphere.ResourceProperties.CodePipelineCustomActionTypeConfigurationProperties - Stratosphere.ResourceProperties.CodePipelineCustomActionTypeSettings - Stratosphere.ResourceProperties.CodePipelinePipelineActionDeclaration - Stratosphere.ResourceProperties.CodePipelinePipelineActionTypeId - Stratosphere.ResourceProperties.CodePipelinePipelineArtifactStore - Stratosphere.ResourceProperties.CodePipelinePipelineArtifactStoreMap - Stratosphere.ResourceProperties.CodePipelinePipelineBlockerDeclaration - Stratosphere.ResourceProperties.CodePipelinePipelineEncryptionKey - Stratosphere.ResourceProperties.CodePipelinePipelineInputArtifact - Stratosphere.ResourceProperties.CodePipelinePipelineOutputArtifact - Stratosphere.ResourceProperties.CodePipelinePipelineStageDeclaration - Stratosphere.ResourceProperties.CodePipelinePipelineStageTransition - Stratosphere.ResourceProperties.CodePipelineWebhookWebhookAuthConfiguration - Stratosphere.ResourceProperties.CodePipelineWebhookWebhookFilterRule - Stratosphere.ResourceProperties.CodeStarGitHubRepositoryCode - Stratosphere.ResourceProperties.CodeStarGitHubRepositoryS3 - Stratosphere.ResourceProperties.CodeStarNotificationsNotificationRuleTarget - Stratosphere.ResourceProperties.CognitoIdentityPoolCognitoIdentityProvider - Stratosphere.ResourceProperties.CognitoIdentityPoolCognitoStreams - Stratosphere.ResourceProperties.CognitoIdentityPoolPushSync - Stratosphere.ResourceProperties.CognitoIdentityPoolRoleAttachmentMappingRule - Stratosphere.ResourceProperties.CognitoIdentityPoolRoleAttachmentRoleMapping - Stratosphere.ResourceProperties.CognitoIdentityPoolRoleAttachmentRulesConfigurationType - Stratosphere.ResourceProperties.CognitoUserPoolAccountRecoverySetting - Stratosphere.ResourceProperties.CognitoUserPoolAdminCreateUserConfig - Stratosphere.ResourceProperties.CognitoUserPoolClientAnalyticsConfiguration - Stratosphere.ResourceProperties.CognitoUserPoolClientTokenValidityUnits - Stratosphere.ResourceProperties.CognitoUserPoolDeviceConfiguration - Stratosphere.ResourceProperties.CognitoUserPoolDomainCustomDomainConfigType - Stratosphere.ResourceProperties.CognitoUserPoolEmailConfiguration - Stratosphere.ResourceProperties.CognitoUserPoolInviteMessageTemplate - Stratosphere.ResourceProperties.CognitoUserPoolLambdaConfig - Stratosphere.ResourceProperties.CognitoUserPoolNumberAttributeConstraints - Stratosphere.ResourceProperties.CognitoUserPoolPasswordPolicy - Stratosphere.ResourceProperties.CognitoUserPoolPolicies - Stratosphere.ResourceProperties.CognitoUserPoolRecoveryOption - Stratosphere.ResourceProperties.CognitoUserPoolResourceServerResourceServerScopeType - Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionsType - Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverActionType - Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentAccountTakeoverRiskConfigurationType - Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsActionsType - Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentCompromisedCredentialsRiskConfigurationType - Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentNotifyConfigurationType - Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentNotifyEmailType - Stratosphere.ResourceProperties.CognitoUserPoolRiskConfigurationAttachmentRiskExceptionConfigurationType - Stratosphere.ResourceProperties.CognitoUserPoolSchemaAttribute - Stratosphere.ResourceProperties.CognitoUserPoolSmsConfiguration - Stratosphere.ResourceProperties.CognitoUserPoolStringAttributeConstraints - Stratosphere.ResourceProperties.CognitoUserPoolUserAttributeType - Stratosphere.ResourceProperties.CognitoUserPoolUsernameConfiguration - Stratosphere.ResourceProperties.CognitoUserPoolUserPoolAddOns - Stratosphere.ResourceProperties.CognitoUserPoolVerificationMessageTemplate - Stratosphere.ResourceProperties.ConfigConfigRuleScope - Stratosphere.ResourceProperties.ConfigConfigRuleSource - Stratosphere.ResourceProperties.ConfigConfigRuleSourceDetail - Stratosphere.ResourceProperties.ConfigConfigurationAggregatorAccountAggregationSource - Stratosphere.ResourceProperties.ConfigConfigurationAggregatorOrganizationAggregationSource - Stratosphere.ResourceProperties.ConfigConfigurationRecorderRecordingGroup - Stratosphere.ResourceProperties.ConfigConformancePackConformancePackInputParameter - Stratosphere.ResourceProperties.ConfigDeliveryChannelConfigSnapshotDeliveryProperties - Stratosphere.ResourceProperties.ConfigOrganizationConfigRuleOrganizationCustomRuleMetadata - Stratosphere.ResourceProperties.ConfigOrganizationConfigRuleOrganizationManagedRuleMetadata - Stratosphere.ResourceProperties.ConfigOrganizationConformancePackConformancePackInputParameter - Stratosphere.ResourceProperties.ConfigRemediationConfigurationExecutionControls - Stratosphere.ResourceProperties.ConfigRemediationConfigurationRemediationParameterValue - Stratosphere.ResourceProperties.ConfigRemediationConfigurationResourceValue - Stratosphere.ResourceProperties.ConfigRemediationConfigurationSsmControls - Stratosphere.ResourceProperties.ConfigRemediationConfigurationStaticValue - Stratosphere.ResourceProperties.DataPipelinePipelineField - Stratosphere.ResourceProperties.DataPipelinePipelineParameterAttribute - Stratosphere.ResourceProperties.DataPipelinePipelineParameterObject - Stratosphere.ResourceProperties.DataPipelinePipelineParameterValue - Stratosphere.ResourceProperties.DataPipelinePipelinePipelineObject - Stratosphere.ResourceProperties.DataPipelinePipelinePipelineTag - Stratosphere.ResourceProperties.DAXClusterSSESpecification - Stratosphere.ResourceProperties.DirectoryServiceMicrosoftADVpcSettings - Stratosphere.ResourceProperties.DirectoryServiceSimpleADVpcSettings - Stratosphere.ResourceProperties.DLMLifecyclePolicyCreateRule - Stratosphere.ResourceProperties.DLMLifecyclePolicyCrossRegionCopyRetainRule - Stratosphere.ResourceProperties.DLMLifecyclePolicyCrossRegionCopyRule - Stratosphere.ResourceProperties.DLMLifecyclePolicyFastRestoreRule - Stratosphere.ResourceProperties.DLMLifecyclePolicyParameters - Stratosphere.ResourceProperties.DLMLifecyclePolicyPolicyDetails - Stratosphere.ResourceProperties.DLMLifecyclePolicyRetainRule - Stratosphere.ResourceProperties.DLMLifecyclePolicySchedule - Stratosphere.ResourceProperties.DMSEndpointDynamoDbSettings - Stratosphere.ResourceProperties.DMSEndpointElasticsearchSettings - Stratosphere.ResourceProperties.DMSEndpointKafkaSettings - Stratosphere.ResourceProperties.DMSEndpointKinesisSettings - Stratosphere.ResourceProperties.DMSEndpointMongoDbSettings - Stratosphere.ResourceProperties.DMSEndpointNeptuneSettings - Stratosphere.ResourceProperties.DMSEndpointS3Settings - Stratosphere.ResourceProperties.DynamoDBTableAttributeDefinition - Stratosphere.ResourceProperties.DynamoDBTableGlobalSecondaryIndex - Stratosphere.ResourceProperties.DynamoDBTableKeySchema - Stratosphere.ResourceProperties.DynamoDBTableLocalSecondaryIndex - Stratosphere.ResourceProperties.DynamoDBTablePointInTimeRecoverySpecification - Stratosphere.ResourceProperties.DynamoDBTableProjection - Stratosphere.ResourceProperties.DynamoDBTableProvisionedThroughput - Stratosphere.ResourceProperties.DynamoDBTableSSESpecification - Stratosphere.ResourceProperties.DynamoDBTableStreamSpecification - Stratosphere.ResourceProperties.DynamoDBTableTimeToLiveSpecification - Stratosphere.ResourceProperties.EC2CapacityReservationTagSpecification - Stratosphere.ResourceProperties.EC2CarrierGatewayTags - Stratosphere.ResourceProperties.EC2ClientVpnEndpointCertificateAuthenticationRequest - Stratosphere.ResourceProperties.EC2ClientVpnEndpointClientAuthenticationRequest - Stratosphere.ResourceProperties.EC2ClientVpnEndpointConnectionLogOptions - Stratosphere.ResourceProperties.EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest - Stratosphere.ResourceProperties.EC2ClientVpnEndpointFederatedAuthenticationRequest - Stratosphere.ResourceProperties.EC2ClientVpnEndpointTagSpecification - Stratosphere.ResourceProperties.EC2EC2FleetCapacityReservationOptionsRequest - Stratosphere.ResourceProperties.EC2EC2FleetFleetLaunchTemplateConfigRequest - Stratosphere.ResourceProperties.EC2EC2FleetFleetLaunchTemplateOverridesRequest - Stratosphere.ResourceProperties.EC2EC2FleetFleetLaunchTemplateSpecificationRequest - Stratosphere.ResourceProperties.EC2EC2FleetOnDemandOptionsRequest - Stratosphere.ResourceProperties.EC2EC2FleetPlacement - Stratosphere.ResourceProperties.EC2EC2FleetSpotOptionsRequest - Stratosphere.ResourceProperties.EC2EC2FleetTagSpecification - Stratosphere.ResourceProperties.EC2EC2FleetTargetCapacitySpecificationRequest - Stratosphere.ResourceProperties.EC2InstanceAssociationParameter - Stratosphere.ResourceProperties.EC2InstanceBlockDeviceMapping - Stratosphere.ResourceProperties.EC2InstanceCpuOptions - Stratosphere.ResourceProperties.EC2InstanceCreditSpecification - Stratosphere.ResourceProperties.EC2InstanceEbs - Stratosphere.ResourceProperties.EC2InstanceElasticGpuSpecification - Stratosphere.ResourceProperties.EC2InstanceElasticInferenceAccelerator - Stratosphere.ResourceProperties.EC2InstanceHibernationOptions - Stratosphere.ResourceProperties.EC2InstanceInstanceIpv6Address - Stratosphere.ResourceProperties.EC2InstanceLaunchTemplateSpecification - Stratosphere.ResourceProperties.EC2InstanceLicenseSpecification - Stratosphere.ResourceProperties.EC2InstanceNetworkInterface - Stratosphere.ResourceProperties.EC2InstanceNoDevice - Stratosphere.ResourceProperties.EC2InstancePrivateIpAddressSpecification - Stratosphere.ResourceProperties.EC2InstanceSsmAssociation - Stratosphere.ResourceProperties.EC2InstanceVolume - Stratosphere.ResourceProperties.EC2LaunchTemplateBlockDeviceMapping - Stratosphere.ResourceProperties.EC2LaunchTemplateCapacityReservationSpecification - Stratosphere.ResourceProperties.EC2LaunchTemplateCapacityReservationTarget - Stratosphere.ResourceProperties.EC2LaunchTemplateCpuOptions - Stratosphere.ResourceProperties.EC2LaunchTemplateCreditSpecification - Stratosphere.ResourceProperties.EC2LaunchTemplateEbs - Stratosphere.ResourceProperties.EC2LaunchTemplateElasticGpuSpecification - Stratosphere.ResourceProperties.EC2LaunchTemplateHibernationOptions - Stratosphere.ResourceProperties.EC2LaunchTemplateIamInstanceProfile - Stratosphere.ResourceProperties.EC2LaunchTemplateInstanceMarketOptions - Stratosphere.ResourceProperties.EC2LaunchTemplateIpv6Add - Stratosphere.ResourceProperties.EC2LaunchTemplateLaunchTemplateData - Stratosphere.ResourceProperties.EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator - Stratosphere.ResourceProperties.EC2LaunchTemplateLicenseSpecification - Stratosphere.ResourceProperties.EC2LaunchTemplateMetadataOptions - Stratosphere.ResourceProperties.EC2LaunchTemplateMonitoring - Stratosphere.ResourceProperties.EC2LaunchTemplateNetworkInterface - Stratosphere.ResourceProperties.EC2LaunchTemplatePlacement - Stratosphere.ResourceProperties.EC2LaunchTemplatePrivateIpAdd - Stratosphere.ResourceProperties.EC2LaunchTemplateSpotOptions - Stratosphere.ResourceProperties.EC2LaunchTemplateTagSpecification - Stratosphere.ResourceProperties.EC2LocalGatewayRouteTableVPCAssociationTags - Stratosphere.ResourceProperties.EC2NetworkAclEntryIcmp - Stratosphere.ResourceProperties.EC2NetworkAclEntryPortRange - Stratosphere.ResourceProperties.EC2NetworkInterfaceInstanceIpv6Address - Stratosphere.ResourceProperties.EC2NetworkInterfacePrivateIpAddressSpecification - Stratosphere.ResourceProperties.EC2PrefixListEntry - Stratosphere.ResourceProperties.EC2SecurityGroupEgressProperty - Stratosphere.ResourceProperties.EC2SecurityGroupIngressProperty - Stratosphere.ResourceProperties.EC2SpotFleetBlockDeviceMapping - Stratosphere.ResourceProperties.EC2SpotFleetClassicLoadBalancer - Stratosphere.ResourceProperties.EC2SpotFleetClassicLoadBalancersConfig - Stratosphere.ResourceProperties.EC2SpotFleetEbsBlockDevice - Stratosphere.ResourceProperties.EC2SpotFleetFleetLaunchTemplateSpecification - Stratosphere.ResourceProperties.EC2SpotFleetGroupIdentifier - Stratosphere.ResourceProperties.EC2SpotFleetIamInstanceProfileSpecification - Stratosphere.ResourceProperties.EC2SpotFleetInstanceIpv6Address - Stratosphere.ResourceProperties.EC2SpotFleetInstanceNetworkInterfaceSpecification - Stratosphere.ResourceProperties.EC2SpotFleetLaunchTemplateConfig - Stratosphere.ResourceProperties.EC2SpotFleetLaunchTemplateOverrides - Stratosphere.ResourceProperties.EC2SpotFleetLoadBalancersConfig - Stratosphere.ResourceProperties.EC2SpotFleetPrivateIpAddressSpecification - Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetLaunchSpecification - Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetMonitoring - Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetRequestConfigData - Stratosphere.ResourceProperties.EC2SpotFleetSpotFleetTagSpecification - Stratosphere.ResourceProperties.EC2SpotFleetSpotPlacement - Stratosphere.ResourceProperties.EC2SpotFleetTargetGroup - Stratosphere.ResourceProperties.EC2SpotFleetTargetGroupsConfig - Stratosphere.ResourceProperties.EC2TrafficMirrorFilterRuleTrafficMirrorPortRange - Stratosphere.ResourceProperties.EC2VPNConnectionVpnTunnelOptionsSpecification - Stratosphere.ResourceProperties.ECRRepositoryLifecyclePolicy - Stratosphere.ResourceProperties.ECSCapacityProviderAutoScalingGroupProvider - Stratosphere.ResourceProperties.ECSCapacityProviderManagedScaling - Stratosphere.ResourceProperties.ECSClusterCapacityProviderStrategyItem - Stratosphere.ResourceProperties.ECSClusterClusterSettings - Stratosphere.ResourceProperties.ECSServiceAwsVpcConfiguration - Stratosphere.ResourceProperties.ECSServiceDeploymentConfiguration - Stratosphere.ResourceProperties.ECSServiceDeploymentController - Stratosphere.ResourceProperties.ECSServiceLoadBalancer - Stratosphere.ResourceProperties.ECSServiceNetworkConfiguration - Stratosphere.ResourceProperties.ECSServicePlacementConstraint - Stratosphere.ResourceProperties.ECSServicePlacementStrategy - Stratosphere.ResourceProperties.ECSServiceServiceRegistry - Stratosphere.ResourceProperties.ECSTaskDefinitionAuthorizationConfig - Stratosphere.ResourceProperties.ECSTaskDefinitionContainerDefinition - Stratosphere.ResourceProperties.ECSTaskDefinitionContainerDependency - Stratosphere.ResourceProperties.ECSTaskDefinitionDevice - Stratosphere.ResourceProperties.ECSTaskDefinitionDockerVolumeConfiguration - Stratosphere.ResourceProperties.ECSTaskDefinitionEFSVolumeConfiguration - Stratosphere.ResourceProperties.ECSTaskDefinitionEnvironmentFile - Stratosphere.ResourceProperties.ECSTaskDefinitionFirelensConfiguration - Stratosphere.ResourceProperties.ECSTaskDefinitionHealthCheck - Stratosphere.ResourceProperties.ECSTaskDefinitionHostEntry - Stratosphere.ResourceProperties.ECSTaskDefinitionHostVolumeProperties - Stratosphere.ResourceProperties.ECSTaskDefinitionInferenceAccelerator - Stratosphere.ResourceProperties.ECSTaskDefinitionKernelCapabilities - Stratosphere.ResourceProperties.ECSTaskDefinitionKeyValuePair - Stratosphere.ResourceProperties.ECSTaskDefinitionLinuxParameters - Stratosphere.ResourceProperties.ECSTaskDefinitionLogConfiguration - Stratosphere.ResourceProperties.ECSTaskDefinitionMountPoint - Stratosphere.ResourceProperties.ECSTaskDefinitionPortMapping - Stratosphere.ResourceProperties.ECSTaskDefinitionProxyConfiguration - Stratosphere.ResourceProperties.ECSTaskDefinitionRepositoryCredentials - Stratosphere.ResourceProperties.ECSTaskDefinitionResourceRequirement - Stratosphere.ResourceProperties.ECSTaskDefinitionSecret - Stratosphere.ResourceProperties.ECSTaskDefinitionSystemControl - Stratosphere.ResourceProperties.ECSTaskDefinitionTaskDefinitionPlacementConstraint - Stratosphere.ResourceProperties.ECSTaskDefinitionTmpfs - Stratosphere.ResourceProperties.ECSTaskDefinitionUlimit - Stratosphere.ResourceProperties.ECSTaskDefinitionVolume - Stratosphere.ResourceProperties.ECSTaskDefinitionVolumeFrom - Stratosphere.ResourceProperties.ECSTaskSetAwsVpcConfiguration - Stratosphere.ResourceProperties.ECSTaskSetLoadBalancer - Stratosphere.ResourceProperties.ECSTaskSetNetworkConfiguration - Stratosphere.ResourceProperties.ECSTaskSetScale - Stratosphere.ResourceProperties.ECSTaskSetServiceRegistry - Stratosphere.ResourceProperties.EFSAccessPointAccessPointTag - Stratosphere.ResourceProperties.EFSAccessPointCreationInfo - Stratosphere.ResourceProperties.EFSAccessPointPosixUser - Stratosphere.ResourceProperties.EFSAccessPointRootDirectory - Stratosphere.ResourceProperties.EFSFileSystemBackupPolicy - Stratosphere.ResourceProperties.EFSFileSystemElasticFileSystemTag - Stratosphere.ResourceProperties.EFSFileSystemLifecyclePolicy - Stratosphere.ResourceProperties.EKSClusterEncryptionConfig - Stratosphere.ResourceProperties.EKSClusterProvider - Stratosphere.ResourceProperties.EKSClusterResourcesVpcConfig - Stratosphere.ResourceProperties.EKSFargateProfileLabel - Stratosphere.ResourceProperties.EKSFargateProfileSelector - Stratosphere.ResourceProperties.EKSNodegroupLaunchTemplateSpecification - Stratosphere.ResourceProperties.EKSNodegroupRemoteAccess - Stratosphere.ResourceProperties.EKSNodegroupScalingConfig - Stratosphere.ResourceProperties.ElastiCacheReplicationGroupNodeGroupConfiguration - Stratosphere.ResourceProperties.ElasticBeanstalkApplicationApplicationResourceLifecycleConfig - Stratosphere.ResourceProperties.ElasticBeanstalkApplicationApplicationVersionLifecycleConfig - Stratosphere.ResourceProperties.ElasticBeanstalkApplicationMaxAgeRule - Stratosphere.ResourceProperties.ElasticBeanstalkApplicationMaxCountRule - Stratosphere.ResourceProperties.ElasticBeanstalkApplicationVersionSourceBundle - Stratosphere.ResourceProperties.ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting - Stratosphere.ResourceProperties.ElasticBeanstalkConfigurationTemplateSourceConfiguration - Stratosphere.ResourceProperties.ElasticBeanstalkEnvironmentOptionSetting - Stratosphere.ResourceProperties.ElasticBeanstalkEnvironmentTier - Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerAccessLoggingPolicy - Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerAppCookieStickinessPolicy - Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerConnectionDrainingPolicy - Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerConnectionSettings - Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerHealthCheck - Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerLBCookieStickinessPolicy - Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerListeners - Stratosphere.ResourceProperties.ElasticLoadBalancingLoadBalancerPolicies - Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerAction - Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig - Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerAuthenticateOidcConfig - Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerCertificate - Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerCertificateCertificate - Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerFixedResponseConfig - Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerForwardConfig - Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRedirectConfig - Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleAction - Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig - Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig - Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleFixedResponseConfig - Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleForwardConfig - Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleHostHeaderConfig - Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig - Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig - Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRulePathPatternConfig - Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleQueryStringConfig - Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue - Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleRedirectConfig - Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleRuleCondition - Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleSourceIpConfig - Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleTargetGroupStickinessConfig - Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleTargetGroupTuple - Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerTargetGroupStickinessConfig - Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerTargetGroupTuple - Stratosphere.ResourceProperties.ElasticLoadBalancingV2LoadBalancerLoadBalancerAttribute - Stratosphere.ResourceProperties.ElasticLoadBalancingV2LoadBalancerSubnetMapping - Stratosphere.ResourceProperties.ElasticLoadBalancingV2TargetGroupMatcher - Stratosphere.ResourceProperties.ElasticLoadBalancingV2TargetGroupTargetDescription - Stratosphere.ResourceProperties.ElasticLoadBalancingV2TargetGroupTargetGroupAttribute - Stratosphere.ResourceProperties.ElasticsearchDomainAdvancedSecurityOptionsInput - Stratosphere.ResourceProperties.ElasticsearchDomainCognitoOptions - Stratosphere.ResourceProperties.ElasticsearchDomainDomainEndpointOptions - Stratosphere.ResourceProperties.ElasticsearchDomainEBSOptions - Stratosphere.ResourceProperties.ElasticsearchDomainElasticsearchClusterConfig - Stratosphere.ResourceProperties.ElasticsearchDomainEncryptionAtRestOptions - Stratosphere.ResourceProperties.ElasticsearchDomainLogPublishingOption - Stratosphere.ResourceProperties.ElasticsearchDomainMasterUserOptions - Stratosphere.ResourceProperties.ElasticsearchDomainNodeToNodeEncryptionOptions - Stratosphere.ResourceProperties.ElasticsearchDomainSnapshotOptions - Stratosphere.ResourceProperties.ElasticsearchDomainVPCOptions - Stratosphere.ResourceProperties.ElasticsearchDomainZoneAwarenessConfig - Stratosphere.ResourceProperties.EMRClusterApplication - Stratosphere.ResourceProperties.EMRClusterAutoScalingPolicy - Stratosphere.ResourceProperties.EMRClusterBootstrapActionConfig - Stratosphere.ResourceProperties.EMRClusterCloudWatchAlarmDefinition - Stratosphere.ResourceProperties.EMRClusterConfiguration - Stratosphere.ResourceProperties.EMRClusterEbsBlockDeviceConfig - Stratosphere.ResourceProperties.EMRClusterEbsConfiguration - Stratosphere.ResourceProperties.EMRClusterHadoopJarStepConfig - Stratosphere.ResourceProperties.EMRClusterInstanceFleetConfig - Stratosphere.ResourceProperties.EMRClusterInstanceFleetProvisioningSpecifications - Stratosphere.ResourceProperties.EMRClusterInstanceGroupConfig - Stratosphere.ResourceProperties.EMRClusterInstanceTypeConfig - Stratosphere.ResourceProperties.EMRClusterJobFlowInstancesConfig - Stratosphere.ResourceProperties.EMRClusterKerberosAttributes - Stratosphere.ResourceProperties.EMRClusterKeyValue - Stratosphere.ResourceProperties.EMRClusterMetricDimension - Stratosphere.ResourceProperties.EMRClusterPlacementType - Stratosphere.ResourceProperties.EMRClusterScalingAction - Stratosphere.ResourceProperties.EMRClusterScalingConstraints - Stratosphere.ResourceProperties.EMRClusterScalingRule - Stratosphere.ResourceProperties.EMRClusterScalingTrigger - Stratosphere.ResourceProperties.EMRClusterScriptBootstrapActionConfig - Stratosphere.ResourceProperties.EMRClusterSimpleScalingPolicyConfiguration - Stratosphere.ResourceProperties.EMRClusterSpotProvisioningSpecification - Stratosphere.ResourceProperties.EMRClusterStepConfig - Stratosphere.ResourceProperties.EMRClusterVolumeSpecification - Stratosphere.ResourceProperties.EMRInstanceFleetConfigConfiguration - Stratosphere.ResourceProperties.EMRInstanceFleetConfigEbsBlockDeviceConfig - Stratosphere.ResourceProperties.EMRInstanceFleetConfigEbsConfiguration - Stratosphere.ResourceProperties.EMRInstanceFleetConfigInstanceFleetProvisioningSpecifications - Stratosphere.ResourceProperties.EMRInstanceFleetConfigInstanceTypeConfig - Stratosphere.ResourceProperties.EMRInstanceFleetConfigSpotProvisioningSpecification - Stratosphere.ResourceProperties.EMRInstanceFleetConfigVolumeSpecification - Stratosphere.ResourceProperties.EMRInstanceGroupConfigAutoScalingPolicy - Stratosphere.ResourceProperties.EMRInstanceGroupConfigCloudWatchAlarmDefinition - Stratosphere.ResourceProperties.EMRInstanceGroupConfigConfiguration - Stratosphere.ResourceProperties.EMRInstanceGroupConfigEbsBlockDeviceConfig - Stratosphere.ResourceProperties.EMRInstanceGroupConfigEbsConfiguration - Stratosphere.ResourceProperties.EMRInstanceGroupConfigMetricDimension - Stratosphere.ResourceProperties.EMRInstanceGroupConfigScalingAction - Stratosphere.ResourceProperties.EMRInstanceGroupConfigScalingConstraints - Stratosphere.ResourceProperties.EMRInstanceGroupConfigScalingRule - Stratosphere.ResourceProperties.EMRInstanceGroupConfigScalingTrigger - Stratosphere.ResourceProperties.EMRInstanceGroupConfigSimpleScalingPolicyConfiguration - Stratosphere.ResourceProperties.EMRInstanceGroupConfigVolumeSpecification - Stratosphere.ResourceProperties.EMRStepHadoopJarStepConfig - Stratosphere.ResourceProperties.EMRStepKeyValue - Stratosphere.ResourceProperties.EventSchemasDiscovererTagsEntry - Stratosphere.ResourceProperties.EventSchemasRegistryTagsEntry - Stratosphere.ResourceProperties.EventSchemasSchemaTagsEntry - Stratosphere.ResourceProperties.EventsEventBusPolicyCondition - Stratosphere.ResourceProperties.EventsRuleAwsVpcConfiguration - Stratosphere.ResourceProperties.EventsRuleBatchArrayProperties - Stratosphere.ResourceProperties.EventsRuleBatchParameters - Stratosphere.ResourceProperties.EventsRuleBatchRetryStrategy - Stratosphere.ResourceProperties.EventsRuleEcsParameters - Stratosphere.ResourceProperties.EventsRuleHttpParameters - Stratosphere.ResourceProperties.EventsRuleInputTransformer - Stratosphere.ResourceProperties.EventsRuleKinesisParameters - Stratosphere.ResourceProperties.EventsRuleNetworkConfiguration - Stratosphere.ResourceProperties.EventsRuleRunCommandParameters - Stratosphere.ResourceProperties.EventsRuleRunCommandTarget - Stratosphere.ResourceProperties.EventsRuleSqsParameters - Stratosphere.ResourceProperties.EventsRuleTarget - Stratosphere.ResourceProperties.FMSPolicyIEMap - Stratosphere.ResourceProperties.FMSPolicyPolicyTag - Stratosphere.ResourceProperties.FMSPolicyResourceTag - Stratosphere.ResourceProperties.FSxFileSystemLustreConfiguration - Stratosphere.ResourceProperties.FSxFileSystemSelfManagedActiveDirectoryConfiguration - Stratosphere.ResourceProperties.FSxFileSystemWindowsConfiguration - Stratosphere.ResourceProperties.GameLiftAliasRoutingStrategy - Stratosphere.ResourceProperties.GameLiftBuildS3Location - Stratosphere.ResourceProperties.GameLiftFleetCertificateConfiguration - Stratosphere.ResourceProperties.GameLiftFleetIpPermission - Stratosphere.ResourceProperties.GameLiftFleetResourceCreationLimitPolicy - Stratosphere.ResourceProperties.GameLiftFleetRuntimeConfiguration - Stratosphere.ResourceProperties.GameLiftFleetServerProcess - Stratosphere.ResourceProperties.GameLiftGameServerGroupAutoScalingPolicy - Stratosphere.ResourceProperties.GameLiftGameServerGroupInstanceDefinition - Stratosphere.ResourceProperties.GameLiftGameServerGroupInstanceDefinitions - Stratosphere.ResourceProperties.GameLiftGameServerGroupLaunchTemplate - Stratosphere.ResourceProperties.GameLiftGameServerGroupTags - Stratosphere.ResourceProperties.GameLiftGameServerGroupTargetTrackingConfiguration - Stratosphere.ResourceProperties.GameLiftGameServerGroupVpcSubnets - Stratosphere.ResourceProperties.GameLiftGameSessionQueueDestination - Stratosphere.ResourceProperties.GameLiftGameSessionQueuePlayerLatencyPolicy - Stratosphere.ResourceProperties.GameLiftMatchmakingConfigurationGameProperty - Stratosphere.ResourceProperties.GameLiftScriptS3Location - Stratosphere.ResourceProperties.GlobalAcceleratorEndpointGroupEndpointConfiguration - Stratosphere.ResourceProperties.GlobalAcceleratorListenerPortRange - Stratosphere.ResourceProperties.GlueClassifierCsvClassifier - Stratosphere.ResourceProperties.GlueClassifierGrokClassifier - Stratosphere.ResourceProperties.GlueClassifierJsonClassifier - Stratosphere.ResourceProperties.GlueClassifierXMLClassifier - Stratosphere.ResourceProperties.GlueConnectionConnectionInput - Stratosphere.ResourceProperties.GlueConnectionPhysicalConnectionRequirements - Stratosphere.ResourceProperties.GlueCrawlerCatalogTarget - Stratosphere.ResourceProperties.GlueCrawlerDynamoDBTarget - Stratosphere.ResourceProperties.GlueCrawlerJdbcTarget - Stratosphere.ResourceProperties.GlueCrawlerS3Target - Stratosphere.ResourceProperties.GlueCrawlerSchedule - Stratosphere.ResourceProperties.GlueCrawlerSchemaChangePolicy - Stratosphere.ResourceProperties.GlueCrawlerTargets - Stratosphere.ResourceProperties.GlueDatabaseDatabaseInput - Stratosphere.ResourceProperties.GlueDataCatalogEncryptionSettingsConnectionPasswordEncryption - Stratosphere.ResourceProperties.GlueDataCatalogEncryptionSettingsDataCatalogEncryptionSettings - Stratosphere.ResourceProperties.GlueDataCatalogEncryptionSettingsEncryptionAtRest - Stratosphere.ResourceProperties.GlueJobConnectionsList - Stratosphere.ResourceProperties.GlueJobExecutionProperty - Stratosphere.ResourceProperties.GlueJobJobCommand - Stratosphere.ResourceProperties.GlueJobNotificationProperty - Stratosphere.ResourceProperties.GlueMLTransformFindMatchesParameters - Stratosphere.ResourceProperties.GlueMLTransformGlueTables - Stratosphere.ResourceProperties.GlueMLTransformInputRecordTables - Stratosphere.ResourceProperties.GlueMLTransformTransformParameters - Stratosphere.ResourceProperties.GluePartitionColumn - Stratosphere.ResourceProperties.GluePartitionOrder - Stratosphere.ResourceProperties.GluePartitionPartitionInput - Stratosphere.ResourceProperties.GluePartitionSerdeInfo - Stratosphere.ResourceProperties.GluePartitionSkewedInfo - Stratosphere.ResourceProperties.GluePartitionStorageDescriptor - Stratosphere.ResourceProperties.GlueSecurityConfigurationCloudWatchEncryption - Stratosphere.ResourceProperties.GlueSecurityConfigurationEncryptionConfiguration - Stratosphere.ResourceProperties.GlueSecurityConfigurationJobBookmarksEncryption - Stratosphere.ResourceProperties.GlueSecurityConfigurationS3Encryption - Stratosphere.ResourceProperties.GlueTableColumn - Stratosphere.ResourceProperties.GlueTableOrder - Stratosphere.ResourceProperties.GlueTableSerdeInfo - Stratosphere.ResourceProperties.GlueTableSkewedInfo - Stratosphere.ResourceProperties.GlueTableStorageDescriptor - Stratosphere.ResourceProperties.GlueTableTableInput - Stratosphere.ResourceProperties.GlueTriggerAction - Stratosphere.ResourceProperties.GlueTriggerCondition - Stratosphere.ResourceProperties.GlueTriggerNotificationProperty - Stratosphere.ResourceProperties.GlueTriggerPredicate - Stratosphere.ResourceProperties.GreengrassConnectorDefinitionConnector - Stratosphere.ResourceProperties.GreengrassConnectorDefinitionConnectorDefinitionVersion - Stratosphere.ResourceProperties.GreengrassConnectorDefinitionVersionConnector - Stratosphere.ResourceProperties.GreengrassCoreDefinitionCore - Stratosphere.ResourceProperties.GreengrassCoreDefinitionCoreDefinitionVersion - Stratosphere.ResourceProperties.GreengrassCoreDefinitionVersionCore - Stratosphere.ResourceProperties.GreengrassDeviceDefinitionDevice - Stratosphere.ResourceProperties.GreengrassDeviceDefinitionDeviceDefinitionVersion - Stratosphere.ResourceProperties.GreengrassDeviceDefinitionVersionDevice - Stratosphere.ResourceProperties.GreengrassFunctionDefinitionDefaultConfig - Stratosphere.ResourceProperties.GreengrassFunctionDefinitionEnvironment - Stratosphere.ResourceProperties.GreengrassFunctionDefinitionExecution - Stratosphere.ResourceProperties.GreengrassFunctionDefinitionFunction - Stratosphere.ResourceProperties.GreengrassFunctionDefinitionFunctionConfiguration - Stratosphere.ResourceProperties.GreengrassFunctionDefinitionFunctionDefinitionVersion - Stratosphere.ResourceProperties.GreengrassFunctionDefinitionResourceAccessPolicy - Stratosphere.ResourceProperties.GreengrassFunctionDefinitionRunAs - Stratosphere.ResourceProperties.GreengrassFunctionDefinitionVersionDefaultConfig - Stratosphere.ResourceProperties.GreengrassFunctionDefinitionVersionEnvironment - Stratosphere.ResourceProperties.GreengrassFunctionDefinitionVersionExecution - Stratosphere.ResourceProperties.GreengrassFunctionDefinitionVersionFunction - Stratosphere.ResourceProperties.GreengrassFunctionDefinitionVersionFunctionConfiguration - Stratosphere.ResourceProperties.GreengrassFunctionDefinitionVersionResourceAccessPolicy - Stratosphere.ResourceProperties.GreengrassFunctionDefinitionVersionRunAs - Stratosphere.ResourceProperties.GreengrassGroupGroupVersion - Stratosphere.ResourceProperties.GreengrassLoggerDefinitionLogger - Stratosphere.ResourceProperties.GreengrassLoggerDefinitionLoggerDefinitionVersion - Stratosphere.ResourceProperties.GreengrassLoggerDefinitionVersionLogger - Stratosphere.ResourceProperties.GreengrassResourceDefinitionGroupOwnerSetting - Stratosphere.ResourceProperties.GreengrassResourceDefinitionLocalDeviceResourceData - Stratosphere.ResourceProperties.GreengrassResourceDefinitionLocalVolumeResourceData - Stratosphere.ResourceProperties.GreengrassResourceDefinitionResourceDataContainer - Stratosphere.ResourceProperties.GreengrassResourceDefinitionResourceDefinitionVersion - Stratosphere.ResourceProperties.GreengrassResourceDefinitionResourceDownloadOwnerSetting - Stratosphere.ResourceProperties.GreengrassResourceDefinitionResourceInstance - Stratosphere.ResourceProperties.GreengrassResourceDefinitionS3MachineLearningModelResourceData - Stratosphere.ResourceProperties.GreengrassResourceDefinitionSageMakerMachineLearningModelResourceData - Stratosphere.ResourceProperties.GreengrassResourceDefinitionSecretsManagerSecretResourceData - Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionGroupOwnerSetting - Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionLocalDeviceResourceData - Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionLocalVolumeResourceData - Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionResourceDataContainer - Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionResourceDownloadOwnerSetting - Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionResourceInstance - Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionS3MachineLearningModelResourceData - Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionSageMakerMachineLearningModelResourceData - Stratosphere.ResourceProperties.GreengrassResourceDefinitionVersionSecretsManagerSecretResourceData - Stratosphere.ResourceProperties.GreengrassSubscriptionDefinitionSubscription - Stratosphere.ResourceProperties.GreengrassSubscriptionDefinitionSubscriptionDefinitionVersion - Stratosphere.ResourceProperties.GreengrassSubscriptionDefinitionVersionSubscription - Stratosphere.ResourceProperties.GuardDutyDetectorCFNDataSourceConfigurations - Stratosphere.ResourceProperties.GuardDutyDetectorCFNS3LogsConfiguration - Stratosphere.ResourceProperties.GuardDutyFilterCondition - Stratosphere.ResourceProperties.GuardDutyFilterFindingCriteria - Stratosphere.ResourceProperties.IAMGroupPolicy - Stratosphere.ResourceProperties.IAMRolePolicy - Stratosphere.ResourceProperties.IAMUserLoginProfile - Stratosphere.ResourceProperties.IAMUserPolicy - Stratosphere.ResourceProperties.ImageBuilderDistributionConfigurationDistribution - Stratosphere.ResourceProperties.ImageBuilderImageImageTestsConfiguration - Stratosphere.ResourceProperties.ImageBuilderImagePipelineImageTestsConfiguration - Stratosphere.ResourceProperties.ImageBuilderImagePipelineSchedule - Stratosphere.ResourceProperties.ImageBuilderImageRecipeComponentConfiguration - Stratosphere.ResourceProperties.ImageBuilderImageRecipeEbsInstanceBlockDeviceSpecification - Stratosphere.ResourceProperties.ImageBuilderImageRecipeInstanceBlockDeviceMapping - Stratosphere.ResourceProperties.ImageBuilderInfrastructureConfigurationLogging - Stratosphere.ResourceProperties.ImageBuilderInfrastructureConfigurationS3Logs - Stratosphere.ResourceProperties.IoT1ClickProjectDeviceTemplate - Stratosphere.ResourceProperties.IoT1ClickProjectPlacementTemplate - Stratosphere.ResourceProperties.IoTAnalyticsChannelChannelStorage - Stratosphere.ResourceProperties.IoTAnalyticsChannelCustomerManagedS3 - Stratosphere.ResourceProperties.IoTAnalyticsChannelRetentionPeriod - Stratosphere.ResourceProperties.IoTAnalyticsChannelServiceManagedS3 - Stratosphere.ResourceProperties.IoTAnalyticsDatasetAction - Stratosphere.ResourceProperties.IoTAnalyticsDatasetContainerAction - Stratosphere.ResourceProperties.IoTAnalyticsDatasetDatasetContentDeliveryRule - Stratosphere.ResourceProperties.IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination - Stratosphere.ResourceProperties.IoTAnalyticsDatasetDatasetContentVersionValue - Stratosphere.ResourceProperties.IoTAnalyticsDatasetDeltaTime - Stratosphere.ResourceProperties.IoTAnalyticsDatasetFilter - Stratosphere.ResourceProperties.IoTAnalyticsDatasetGlueConfiguration - Stratosphere.ResourceProperties.IoTAnalyticsDatasetIotEventsDestinationConfiguration - Stratosphere.ResourceProperties.IoTAnalyticsDatasetOutputFileUriValue - Stratosphere.ResourceProperties.IoTAnalyticsDatasetQueryAction - Stratosphere.ResourceProperties.IoTAnalyticsDatasetResourceConfiguration - Stratosphere.ResourceProperties.IoTAnalyticsDatasetRetentionPeriod - Stratosphere.ResourceProperties.IoTAnalyticsDatasetS3DestinationConfiguration - Stratosphere.ResourceProperties.IoTAnalyticsDatasetSchedule - Stratosphere.ResourceProperties.IoTAnalyticsDatasetTrigger - Stratosphere.ResourceProperties.IoTAnalyticsDatasetTriggeringDataset - Stratosphere.ResourceProperties.IoTAnalyticsDatasetVariable - Stratosphere.ResourceProperties.IoTAnalyticsDatasetVersioningConfiguration - Stratosphere.ResourceProperties.IoTAnalyticsDatastoreCustomerManagedS3 - Stratosphere.ResourceProperties.IoTAnalyticsDatastoreDatastoreStorage - Stratosphere.ResourceProperties.IoTAnalyticsDatastoreRetentionPeriod - Stratosphere.ResourceProperties.IoTAnalyticsDatastoreServiceManagedS3 - Stratosphere.ResourceProperties.IoTAnalyticsPipelineActivity - Stratosphere.ResourceProperties.IoTAnalyticsPipelineAddAttributes - Stratosphere.ResourceProperties.IoTAnalyticsPipelineChannel - Stratosphere.ResourceProperties.IoTAnalyticsPipelineDatastore - Stratosphere.ResourceProperties.IoTAnalyticsPipelineDeviceRegistryEnrich - Stratosphere.ResourceProperties.IoTAnalyticsPipelineDeviceShadowEnrich - Stratosphere.ResourceProperties.IoTAnalyticsPipelineFilter - Stratosphere.ResourceProperties.IoTAnalyticsPipelineLambda - Stratosphere.ResourceProperties.IoTAnalyticsPipelineMath - Stratosphere.ResourceProperties.IoTAnalyticsPipelineRemoveAttributes - Stratosphere.ResourceProperties.IoTAnalyticsPipelineSelectAttributes - Stratosphere.ResourceProperties.IoTEventsDetectorModelAction - Stratosphere.ResourceProperties.IoTEventsDetectorModelAssetPropertyTimestamp - Stratosphere.ResourceProperties.IoTEventsDetectorModelAssetPropertyValue - Stratosphere.ResourceProperties.IoTEventsDetectorModelAssetPropertyVariant - Stratosphere.ResourceProperties.IoTEventsDetectorModelClearTimer - Stratosphere.ResourceProperties.IoTEventsDetectorModelDetectorModelDefinition - Stratosphere.ResourceProperties.IoTEventsDetectorModelDynamoDB - Stratosphere.ResourceProperties.IoTEventsDetectorModelDynamoDBv2 - Stratosphere.ResourceProperties.IoTEventsDetectorModelEvent - Stratosphere.ResourceProperties.IoTEventsDetectorModelFirehose - Stratosphere.ResourceProperties.IoTEventsDetectorModelIotEvents - Stratosphere.ResourceProperties.IoTEventsDetectorModelIotSiteWise - Stratosphere.ResourceProperties.IoTEventsDetectorModelIotTopicPublish - Stratosphere.ResourceProperties.IoTEventsDetectorModelLambda - Stratosphere.ResourceProperties.IoTEventsDetectorModelOnEnter - Stratosphere.ResourceProperties.IoTEventsDetectorModelOnExit - Stratosphere.ResourceProperties.IoTEventsDetectorModelOnInput - Stratosphere.ResourceProperties.IoTEventsDetectorModelPayload - Stratosphere.ResourceProperties.IoTEventsDetectorModelResetTimer - Stratosphere.ResourceProperties.IoTEventsDetectorModelSetTimer - Stratosphere.ResourceProperties.IoTEventsDetectorModelSetVariable - Stratosphere.ResourceProperties.IoTEventsDetectorModelSns - Stratosphere.ResourceProperties.IoTEventsDetectorModelSqs - Stratosphere.ResourceProperties.IoTEventsDetectorModelState - Stratosphere.ResourceProperties.IoTEventsDetectorModelTransitionEvent - Stratosphere.ResourceProperties.IoTEventsInputAttribute - Stratosphere.ResourceProperties.IoTEventsInputInputDefinition - Stratosphere.ResourceProperties.IoTProvisioningTemplateProvisioningHook - Stratosphere.ResourceProperties.IoTProvisioningTemplateTags - Stratosphere.ResourceProperties.IoTThingAttributePayload - Stratosphere.ResourceProperties.IoTThingsGraphFlowTemplateDefinitionDocument - Stratosphere.ResourceProperties.IoTTopicRuleAction - Stratosphere.ResourceProperties.IoTTopicRuleAssetPropertyTimestamp - Stratosphere.ResourceProperties.IoTTopicRuleAssetPropertyValue - Stratosphere.ResourceProperties.IoTTopicRuleAssetPropertyVariant - Stratosphere.ResourceProperties.IoTTopicRuleCloudwatchAlarmAction - Stratosphere.ResourceProperties.IoTTopicRuleCloudwatchMetricAction - Stratosphere.ResourceProperties.IoTTopicRuleDynamoDBAction - Stratosphere.ResourceProperties.IoTTopicRuleDynamoDBV2Action - Stratosphere.ResourceProperties.IoTTopicRuleElasticsearchAction - Stratosphere.ResourceProperties.IoTTopicRuleFirehoseAction - Stratosphere.ResourceProperties.IoTTopicRuleHttpAction - Stratosphere.ResourceProperties.IoTTopicRuleHttpActionHeader - Stratosphere.ResourceProperties.IoTTopicRuleHttpAuthorization - Stratosphere.ResourceProperties.IoTTopicRuleIotAnalyticsAction - Stratosphere.ResourceProperties.IoTTopicRuleIotEventsAction - Stratosphere.ResourceProperties.IoTTopicRuleIotSiteWiseAction - Stratosphere.ResourceProperties.IoTTopicRuleKinesisAction - Stratosphere.ResourceProperties.IoTTopicRuleLambdaAction - Stratosphere.ResourceProperties.IoTTopicRulePutAssetPropertyValueEntry - Stratosphere.ResourceProperties.IoTTopicRulePutItemInput - Stratosphere.ResourceProperties.IoTTopicRuleRepublishAction - Stratosphere.ResourceProperties.IoTTopicRuleS3Action - Stratosphere.ResourceProperties.IoTTopicRuleSigV4Authorization - Stratosphere.ResourceProperties.IoTTopicRuleSnsAction - Stratosphere.ResourceProperties.IoTTopicRuleSqsAction - Stratosphere.ResourceProperties.IoTTopicRuleStepFunctionsAction - Stratosphere.ResourceProperties.IoTTopicRuleTopicRulePayload - Stratosphere.ResourceProperties.KinesisAnalyticsApplicationCSVMappingParameters - Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInput - Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputLambdaProcessor - Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputParallelism - Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputProcessingConfiguration - Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInputSchema - Stratosphere.ResourceProperties.KinesisAnalyticsApplicationJSONMappingParameters - Stratosphere.ResourceProperties.KinesisAnalyticsApplicationKinesisFirehoseInput - Stratosphere.ResourceProperties.KinesisAnalyticsApplicationKinesisStreamsInput - Stratosphere.ResourceProperties.KinesisAnalyticsApplicationMappingParameters - Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputDestinationSchema - Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputKinesisFirehoseOutput - Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputKinesisStreamsOutput - Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputLambdaOutput - Stratosphere.ResourceProperties.KinesisAnalyticsApplicationOutputOutput - Stratosphere.ResourceProperties.KinesisAnalyticsApplicationRecordColumn - Stratosphere.ResourceProperties.KinesisAnalyticsApplicationRecordFormat - Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters - Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters - Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceMappingParameters - Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceRecordColumn - Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceRecordFormat - Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource - Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema - Stratosphere.ResourceProperties.KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationApplicationCodeConfiguration - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationApplicationConfiguration - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCheckpointConfiguration - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCodeContent - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationCSVMappingParameters - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationEnvironmentProperties - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInput - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputLambdaProcessor - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputParallelism - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputProcessingConfiguration - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationInputSchema - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationJSONMappingParameters - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationKinesisFirehoseInput - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationKinesisStreamsInput - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationMappingParameters - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationMonitoringConfiguration - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputDestinationSchema - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputLambdaOutput - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationOutputOutput - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationParallelismConfiguration - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationPropertyGroup - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationRecordColumn - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationRecordFormat - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationS3ContentLocation - Stratosphere.ResourceProperties.KinesisAnalyticsV2ApplicationSqlApplicationConfiguration - Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamBufferingHints - Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions - Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCopyCommand - Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration - Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamDeserializer - Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamElasticsearchBufferingHints - Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration - Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamElasticsearchRetryOptions - Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamEncryptionConfiguration - Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration - Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamHiveJsonSerDe - Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamHttpEndpointCommonAttribute - Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamHttpEndpointConfiguration - Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamHttpEndpointDestinationConfiguration - Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamHttpEndpointRequestConfiguration - Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamInputFormatConfiguration - Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration - Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamKMSEncryptionConfig - Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamOpenXJsonSerDe - Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamOrcSerDe - Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamOutputFormatConfiguration - Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamParquetSerDe - Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessingConfiguration - Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessor - Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessorParameter - Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration - Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamRedshiftRetryOptions - Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamRetryOptions - 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 - Stratosphere.ResourceProperties.LakeFormationPermissionsDatabaseResource - Stratosphere.ResourceProperties.LakeFormationPermissionsDataLakePrincipal - Stratosphere.ResourceProperties.LakeFormationPermissionsDataLocationResource - Stratosphere.ResourceProperties.LakeFormationPermissionsResource - Stratosphere.ResourceProperties.LakeFormationPermissionsTableResource - Stratosphere.ResourceProperties.LakeFormationPermissionsTableWithColumnsResource - Stratosphere.ResourceProperties.LambdaAliasAliasRoutingConfiguration - Stratosphere.ResourceProperties.LambdaAliasProvisionedConcurrencyConfiguration - Stratosphere.ResourceProperties.LambdaAliasVersionWeight - Stratosphere.ResourceProperties.LambdaEventInvokeConfigDestinationConfig - Stratosphere.ResourceProperties.LambdaEventInvokeConfigOnFailure - Stratosphere.ResourceProperties.LambdaEventInvokeConfigOnSuccess - Stratosphere.ResourceProperties.LambdaEventSourceMappingDestinationConfig - Stratosphere.ResourceProperties.LambdaEventSourceMappingOnFailure - Stratosphere.ResourceProperties.LambdaFunctionCode - Stratosphere.ResourceProperties.LambdaFunctionDeadLetterConfig - Stratosphere.ResourceProperties.LambdaFunctionEnvironment - Stratosphere.ResourceProperties.LambdaFunctionFileSystemConfig - Stratosphere.ResourceProperties.LambdaFunctionTracingConfig - Stratosphere.ResourceProperties.LambdaFunctionVpcConfig - Stratosphere.ResourceProperties.LambdaLayerVersionContent - Stratosphere.ResourceProperties.LambdaVersionProvisionedConcurrencyConfiguration - Stratosphere.ResourceProperties.LogsMetricFilterMetricTransformation - Stratosphere.ResourceProperties.MacieFindingsFilterFindingsFilterListItem - Stratosphere.ResourceProperties.ManagedBlockchainMemberApprovalThresholdPolicy - Stratosphere.ResourceProperties.ManagedBlockchainMemberMemberConfiguration - Stratosphere.ResourceProperties.ManagedBlockchainMemberMemberFabricConfiguration - Stratosphere.ResourceProperties.ManagedBlockchainMemberMemberFrameworkConfiguration - Stratosphere.ResourceProperties.ManagedBlockchainMemberNetworkConfiguration - Stratosphere.ResourceProperties.ManagedBlockchainMemberNetworkFabricConfiguration - Stratosphere.ResourceProperties.ManagedBlockchainMemberNetworkFrameworkConfiguration - Stratosphere.ResourceProperties.ManagedBlockchainMemberVotingPolicy - Stratosphere.ResourceProperties.ManagedBlockchainNodeNodeConfiguration - Stratosphere.ResourceProperties.MediaConvertJobTemplateAccelerationSettings - Stratosphere.ResourceProperties.MediaConvertJobTemplateHopDestination - Stratosphere.ResourceProperties.MediaLiveChannelAribSourceSettings - Stratosphere.ResourceProperties.MediaLiveChannelAudioLanguageSelection - Stratosphere.ResourceProperties.MediaLiveChannelAudioPidSelection - Stratosphere.ResourceProperties.MediaLiveChannelAudioSelector - Stratosphere.ResourceProperties.MediaLiveChannelAudioSelectorSettings - Stratosphere.ResourceProperties.MediaLiveChannelCaptionSelector - Stratosphere.ResourceProperties.MediaLiveChannelCaptionSelectorSettings - Stratosphere.ResourceProperties.MediaLiveChannelDvbSubSourceSettings - Stratosphere.ResourceProperties.MediaLiveChannelEmbeddedSourceSettings - Stratosphere.ResourceProperties.MediaLiveChannelHlsInputSettings - Stratosphere.ResourceProperties.MediaLiveChannelInputAttachment - Stratosphere.ResourceProperties.MediaLiveChannelInputSettings - Stratosphere.ResourceProperties.MediaLiveChannelInputSpecification - Stratosphere.ResourceProperties.MediaLiveChannelMediaPackageOutputDestinationSettings - Stratosphere.ResourceProperties.MediaLiveChannelMultiplexProgramChannelDestinationSettings - Stratosphere.ResourceProperties.MediaLiveChannelNetworkInputSettings - Stratosphere.ResourceProperties.MediaLiveChannelOutputDestination - Stratosphere.ResourceProperties.MediaLiveChannelOutputDestinationSettings - Stratosphere.ResourceProperties.MediaLiveChannelScte20SourceSettings - Stratosphere.ResourceProperties.MediaLiveChannelScte27SourceSettings - Stratosphere.ResourceProperties.MediaLiveChannelTeletextSourceSettings - Stratosphere.ResourceProperties.MediaLiveChannelVideoSelector - Stratosphere.ResourceProperties.MediaLiveChannelVideoSelectorPid - Stratosphere.ResourceProperties.MediaLiveChannelVideoSelectorProgramId - Stratosphere.ResourceProperties.MediaLiveChannelVideoSelectorSettings - Stratosphere.ResourceProperties.MediaLiveInputInputDestinationRequest - Stratosphere.ResourceProperties.MediaLiveInputInputSourceRequest - Stratosphere.ResourceProperties.MediaLiveInputInputVpcRequest - Stratosphere.ResourceProperties.MediaLiveInputMediaConnectFlowRequest - Stratosphere.ResourceProperties.MediaLiveInputSecurityGroupInputWhitelistRuleCidr - Stratosphere.ResourceProperties.MediaStoreContainerCorsRule - Stratosphere.ResourceProperties.MediaStoreContainerMetricPolicy - Stratosphere.ResourceProperties.MediaStoreContainerMetricPolicyRule - Stratosphere.ResourceProperties.MSKClusterBrokerLogs - Stratosphere.ResourceProperties.MSKClusterBrokerNodeGroupInfo - Stratosphere.ResourceProperties.MSKClusterClientAuthentication - Stratosphere.ResourceProperties.MSKClusterCloudWatchLogs - Stratosphere.ResourceProperties.MSKClusterConfigurationInfo - Stratosphere.ResourceProperties.MSKClusterEBSStorageInfo - Stratosphere.ResourceProperties.MSKClusterEncryptionAtRest - Stratosphere.ResourceProperties.MSKClusterEncryptionInfo - Stratosphere.ResourceProperties.MSKClusterEncryptionInTransit - Stratosphere.ResourceProperties.MSKClusterFirehose - Stratosphere.ResourceProperties.MSKClusterJmxExporter - Stratosphere.ResourceProperties.MSKClusterLoggingInfo - Stratosphere.ResourceProperties.MSKClusterNodeExporter - Stratosphere.ResourceProperties.MSKClusterOpenMonitoring - Stratosphere.ResourceProperties.MSKClusterPrometheus - Stratosphere.ResourceProperties.MSKClusterS3 - Stratosphere.ResourceProperties.MSKClusterStorageInfo - Stratosphere.ResourceProperties.MSKClusterTls - Stratosphere.ResourceProperties.NeptuneDBClusterDBClusterRole - Stratosphere.ResourceProperties.NetworkManagerDeviceLocation - Stratosphere.ResourceProperties.NetworkManagerLinkBandwidth - Stratosphere.ResourceProperties.NetworkManagerSiteLocation - Stratosphere.ResourceProperties.OpsWorksAppDataSource - Stratosphere.ResourceProperties.OpsWorksAppEnvironmentVariable - Stratosphere.ResourceProperties.OpsWorksAppSource - Stratosphere.ResourceProperties.OpsWorksAppSslConfiguration - Stratosphere.ResourceProperties.OpsWorksCMServerEngineAttribute - Stratosphere.ResourceProperties.OpsWorksInstanceBlockDeviceMapping - Stratosphere.ResourceProperties.OpsWorksInstanceEbsBlockDevice - Stratosphere.ResourceProperties.OpsWorksInstanceTimeBasedAutoScaling - Stratosphere.ResourceProperties.OpsWorksLayerAutoScalingThresholds - Stratosphere.ResourceProperties.OpsWorksLayerLifecycleEventConfiguration - Stratosphere.ResourceProperties.OpsWorksLayerLoadBasedAutoScaling - Stratosphere.ResourceProperties.OpsWorksLayerRecipes - Stratosphere.ResourceProperties.OpsWorksLayerShutdownEventConfiguration - Stratosphere.ResourceProperties.OpsWorksLayerVolumeConfiguration - Stratosphere.ResourceProperties.OpsWorksStackChefConfiguration - Stratosphere.ResourceProperties.OpsWorksStackElasticIp - Stratosphere.ResourceProperties.OpsWorksStackRdsDbInstance - Stratosphere.ResourceProperties.OpsWorksStackSource - Stratosphere.ResourceProperties.OpsWorksStackStackConfigurationManager - Stratosphere.ResourceProperties.PinpointApplicationSettingsCampaignHook - Stratosphere.ResourceProperties.PinpointApplicationSettingsLimits - Stratosphere.ResourceProperties.PinpointApplicationSettingsQuietTime - Stratosphere.ResourceProperties.PinpointCampaignAttributeDimension - Stratosphere.ResourceProperties.PinpointCampaignCampaignEmailMessage - Stratosphere.ResourceProperties.PinpointCampaignCampaignEventFilter - Stratosphere.ResourceProperties.PinpointCampaignCampaignHook - Stratosphere.ResourceProperties.PinpointCampaignCampaignSmsMessage - Stratosphere.ResourceProperties.PinpointCampaignEventDimensions - Stratosphere.ResourceProperties.PinpointCampaignLimits - Stratosphere.ResourceProperties.PinpointCampaignMessage - Stratosphere.ResourceProperties.PinpointCampaignMessageConfiguration - Stratosphere.ResourceProperties.PinpointCampaignMetricDimension - Stratosphere.ResourceProperties.PinpointCampaignQuietTime - Stratosphere.ResourceProperties.PinpointCampaignSchedule - Stratosphere.ResourceProperties.PinpointCampaignSetDimension - Stratosphere.ResourceProperties.PinpointCampaignWriteTreatmentResource - Stratosphere.ResourceProperties.PinpointEmailConfigurationSetDeliveryOptions - Stratosphere.ResourceProperties.PinpointEmailConfigurationSetEventDestinationCloudWatchDestination - Stratosphere.ResourceProperties.PinpointEmailConfigurationSetEventDestinationDimensionConfiguration - Stratosphere.ResourceProperties.PinpointEmailConfigurationSetEventDestinationEventDestination - Stratosphere.ResourceProperties.PinpointEmailConfigurationSetEventDestinationKinesisFirehoseDestination - Stratosphere.ResourceProperties.PinpointEmailConfigurationSetEventDestinationPinpointDestination - Stratosphere.ResourceProperties.PinpointEmailConfigurationSetEventDestinationSnsDestination - Stratosphere.ResourceProperties.PinpointEmailConfigurationSetReputationOptions - Stratosphere.ResourceProperties.PinpointEmailConfigurationSetSendingOptions - Stratosphere.ResourceProperties.PinpointEmailConfigurationSetTags - Stratosphere.ResourceProperties.PinpointEmailConfigurationSetTrackingOptions - Stratosphere.ResourceProperties.PinpointEmailDedicatedIpPoolTags - Stratosphere.ResourceProperties.PinpointEmailIdentityMailFromAttributes - Stratosphere.ResourceProperties.PinpointEmailIdentityTags - Stratosphere.ResourceProperties.PinpointPushTemplateAndroidPushNotificationTemplate - Stratosphere.ResourceProperties.PinpointPushTemplateAPNSPushNotificationTemplate - Stratosphere.ResourceProperties.PinpointPushTemplateDefaultPushNotificationTemplate - Stratosphere.ResourceProperties.PinpointSegmentAttributeDimension - Stratosphere.ResourceProperties.PinpointSegmentBehavior - Stratosphere.ResourceProperties.PinpointSegmentCoordinates - Stratosphere.ResourceProperties.PinpointSegmentDemographic - Stratosphere.ResourceProperties.PinpointSegmentGPSPoint - Stratosphere.ResourceProperties.PinpointSegmentGroups - Stratosphere.ResourceProperties.PinpointSegmentLocation - Stratosphere.ResourceProperties.PinpointSegmentRecency - Stratosphere.ResourceProperties.PinpointSegmentSegmentDimensions - Stratosphere.ResourceProperties.PinpointSegmentSegmentGroups - Stratosphere.ResourceProperties.PinpointSegmentSetDimension - Stratosphere.ResourceProperties.PinpointSegmentSourceSegments - Stratosphere.ResourceProperties.QLDBStreamKinesisConfiguration - Stratosphere.ResourceProperties.RDSDBClusterDBClusterRole - 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 - Stratosphere.ResourceProperties.RedshiftClusterLoggingProperties - Stratosphere.ResourceProperties.RedshiftClusterParameterGroupParameter - Stratosphere.ResourceProperties.ResourceGroupsGroupQuery - Stratosphere.ResourceProperties.ResourceGroupsGroupResourceQuery - Stratosphere.ResourceProperties.ResourceGroupsGroupTagFilter - Stratosphere.ResourceProperties.RoboMakerRobotApplicationRobotSoftwareSuite - Stratosphere.ResourceProperties.RoboMakerRobotApplicationSourceConfig - Stratosphere.ResourceProperties.RoboMakerSimulationApplicationRenderingEngine - Stratosphere.ResourceProperties.RoboMakerSimulationApplicationRobotSoftwareSuite - Stratosphere.ResourceProperties.RoboMakerSimulationApplicationSimulationSoftwareSuite - Stratosphere.ResourceProperties.RoboMakerSimulationApplicationSourceConfig - Stratosphere.ResourceProperties.Route53HealthCheckAlarmIdentifier - Stratosphere.ResourceProperties.Route53HealthCheckHealthCheckConfig - Stratosphere.ResourceProperties.Route53HealthCheckHealthCheckTag - Stratosphere.ResourceProperties.Route53HostedZoneHostedZoneConfig - Stratosphere.ResourceProperties.Route53HostedZoneHostedZoneTag - Stratosphere.ResourceProperties.Route53HostedZoneQueryLoggingConfig - Stratosphere.ResourceProperties.Route53HostedZoneVPC - Stratosphere.ResourceProperties.Route53RecordSetAliasTarget - Stratosphere.ResourceProperties.Route53RecordSetGeoLocation - Stratosphere.ResourceProperties.Route53RecordSetGroupAliasTarget - Stratosphere.ResourceProperties.Route53RecordSetGroupGeoLocation - Stratosphere.ResourceProperties.Route53RecordSetGroupRecordSet - Stratosphere.ResourceProperties.Route53ResolverResolverEndpointIpAddressRequest - Stratosphere.ResourceProperties.Route53ResolverResolverRuleTargetAddress - Stratosphere.ResourceProperties.S3AccessPointPublicAccessBlockConfiguration - Stratosphere.ResourceProperties.S3AccessPointVpcConfiguration - Stratosphere.ResourceProperties.S3BucketAbortIncompleteMultipartUpload - Stratosphere.ResourceProperties.S3BucketAccelerateConfiguration - Stratosphere.ResourceProperties.S3BucketAccessControlTranslation - Stratosphere.ResourceProperties.S3BucketAnalyticsConfiguration - Stratosphere.ResourceProperties.S3BucketBucketEncryption - Stratosphere.ResourceProperties.S3BucketCorsConfiguration - Stratosphere.ResourceProperties.S3BucketCorsRule - Stratosphere.ResourceProperties.S3BucketDataExport - Stratosphere.ResourceProperties.S3BucketDefaultRetention - Stratosphere.ResourceProperties.S3BucketDeleteMarkerReplication - Stratosphere.ResourceProperties.S3BucketDestination - Stratosphere.ResourceProperties.S3BucketEncryptionConfiguration - Stratosphere.ResourceProperties.S3BucketFilterRule - Stratosphere.ResourceProperties.S3BucketInventoryConfiguration - Stratosphere.ResourceProperties.S3BucketLambdaConfiguration - Stratosphere.ResourceProperties.S3BucketLifecycleConfiguration - Stratosphere.ResourceProperties.S3BucketLoggingConfiguration - Stratosphere.ResourceProperties.S3BucketMetrics - Stratosphere.ResourceProperties.S3BucketMetricsConfiguration - Stratosphere.ResourceProperties.S3BucketNoncurrentVersionTransition - Stratosphere.ResourceProperties.S3BucketNotificationConfiguration - Stratosphere.ResourceProperties.S3BucketNotificationFilter - Stratosphere.ResourceProperties.S3BucketObjectLockConfiguration - Stratosphere.ResourceProperties.S3BucketObjectLockRule - Stratosphere.ResourceProperties.S3BucketPublicAccessBlockConfiguration - Stratosphere.ResourceProperties.S3BucketQueueConfiguration - Stratosphere.ResourceProperties.S3BucketRedirectAllRequestsTo - Stratosphere.ResourceProperties.S3BucketRedirectRule - 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 - Stratosphere.ResourceProperties.S3BucketS3KeyFilter - Stratosphere.ResourceProperties.S3BucketServerSideEncryptionByDefault - Stratosphere.ResourceProperties.S3BucketServerSideEncryptionRule - Stratosphere.ResourceProperties.S3BucketSourceSelectionCriteria - Stratosphere.ResourceProperties.S3BucketSseKmsEncryptedObjects - Stratosphere.ResourceProperties.S3BucketStorageClassAnalysis - Stratosphere.ResourceProperties.S3BucketTagFilter - Stratosphere.ResourceProperties.S3BucketTopicConfiguration - Stratosphere.ResourceProperties.S3BucketTransition - Stratosphere.ResourceProperties.S3BucketVersioningConfiguration - Stratosphere.ResourceProperties.S3BucketWebsiteConfiguration - Stratosphere.ResourceProperties.SageMakerCodeRepositoryGitConfig - Stratosphere.ResourceProperties.SageMakerEndpointConfigCaptureContentTypeHeader - Stratosphere.ResourceProperties.SageMakerEndpointConfigCaptureOption - Stratosphere.ResourceProperties.SageMakerEndpointConfigDataCaptureConfig - Stratosphere.ResourceProperties.SageMakerEndpointConfigProductionVariant - Stratosphere.ResourceProperties.SageMakerEndpointVariantProperty - Stratosphere.ResourceProperties.SageMakerModelContainerDefinition - Stratosphere.ResourceProperties.SageMakerModelVpcConfig - Stratosphere.ResourceProperties.SageMakerMonitoringScheduleBaselineConfig - Stratosphere.ResourceProperties.SageMakerMonitoringScheduleClusterConfig - Stratosphere.ResourceProperties.SageMakerMonitoringScheduleConstraintsResource - Stratosphere.ResourceProperties.SageMakerMonitoringScheduleEndpointInput - Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringAppSpecification - Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringExecutionSummary - Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringInput - Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringInputs - Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringJobDefinition - Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringOutput - Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringOutputConfig - Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringResources - Stratosphere.ResourceProperties.SageMakerMonitoringScheduleMonitoringScheduleConfig - Stratosphere.ResourceProperties.SageMakerMonitoringScheduleNetworkConfig - Stratosphere.ResourceProperties.SageMakerMonitoringScheduleS3Output - Stratosphere.ResourceProperties.SageMakerMonitoringScheduleScheduleConfig - Stratosphere.ResourceProperties.SageMakerMonitoringScheduleStatisticsResource - Stratosphere.ResourceProperties.SageMakerMonitoringScheduleStoppingCondition - Stratosphere.ResourceProperties.SageMakerMonitoringScheduleVpcConfig - Stratosphere.ResourceProperties.SageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook - Stratosphere.ResourceProperties.SageMakerWorkteamCognitoMemberDefinition - Stratosphere.ResourceProperties.SageMakerWorkteamMemberDefinition - Stratosphere.ResourceProperties.SageMakerWorkteamNotificationConfiguration - Stratosphere.ResourceProperties.SecretsManagerRotationScheduleHostedRotationLambda - Stratosphere.ResourceProperties.SecretsManagerRotationScheduleRotationRules - Stratosphere.ResourceProperties.SecretsManagerSecretGenerateSecretString - Stratosphere.ResourceProperties.ServiceCatalogCloudFormationProductProvisioningArtifactProperties - Stratosphere.ResourceProperties.ServiceCatalogCloudFormationProvisionedProductProvisioningParameter - Stratosphere.ResourceProperties.ServiceCatalogCloudFormationProvisionedProductProvisioningPreferences - Stratosphere.ResourceProperties.ServiceDiscoveryServiceDnsConfig - Stratosphere.ResourceProperties.ServiceDiscoveryServiceDnsRecord - Stratosphere.ResourceProperties.ServiceDiscoveryServiceHealthCheckConfig - Stratosphere.ResourceProperties.ServiceDiscoveryServiceHealthCheckCustomConfig - Stratosphere.ResourceProperties.SESConfigurationSetEventDestinationCloudWatchDestination - Stratosphere.ResourceProperties.SESConfigurationSetEventDestinationDimensionConfiguration - Stratosphere.ResourceProperties.SESConfigurationSetEventDestinationEventDestination - Stratosphere.ResourceProperties.SESConfigurationSetEventDestinationKinesisFirehoseDestination - Stratosphere.ResourceProperties.SESReceiptFilterFilter - Stratosphere.ResourceProperties.SESReceiptFilterIpFilter - Stratosphere.ResourceProperties.SESReceiptRuleAction - Stratosphere.ResourceProperties.SESReceiptRuleAddHeaderAction - Stratosphere.ResourceProperties.SESReceiptRuleBounceAction - Stratosphere.ResourceProperties.SESReceiptRuleLambdaAction - Stratosphere.ResourceProperties.SESReceiptRuleRule - Stratosphere.ResourceProperties.SESReceiptRuleS3Action - Stratosphere.ResourceProperties.SESReceiptRuleSNSAction - Stratosphere.ResourceProperties.SESReceiptRuleStopAction - Stratosphere.ResourceProperties.SESReceiptRuleWorkmailAction - Stratosphere.ResourceProperties.SESTemplateTemplate - Stratosphere.ResourceProperties.SNSTopicSubscription - Stratosphere.ResourceProperties.SSMAssociationInstanceAssociationOutputLocation - Stratosphere.ResourceProperties.SSMAssociationParameterValues - Stratosphere.ResourceProperties.SSMAssociationS3OutputLocation - Stratosphere.ResourceProperties.SSMAssociationTarget - Stratosphere.ResourceProperties.SSMMaintenanceWindowTargetTargets - Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskLoggingInfo - Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters - Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters - Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters - Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters - Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskNotificationConfig - Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskTarget - Stratosphere.ResourceProperties.SSMMaintenanceWindowTaskTaskInvocationParameters - Stratosphere.ResourceProperties.SSMPatchBaselinePatchFilter - Stratosphere.ResourceProperties.SSMPatchBaselinePatchFilterGroup - Stratosphere.ResourceProperties.SSMPatchBaselinePatchSource - Stratosphere.ResourceProperties.SSMPatchBaselineRule - Stratosphere.ResourceProperties.SSMPatchBaselineRuleGroup - Stratosphere.ResourceProperties.SSMResourceDataSyncAwsOrganizationsSource - Stratosphere.ResourceProperties.SSMResourceDataSyncS3Destination - Stratosphere.ResourceProperties.SSMResourceDataSyncSyncSource - Stratosphere.ResourceProperties.StepFunctionsActivityTagsEntry - Stratosphere.ResourceProperties.StepFunctionsStateMachineCloudWatchLogsLogGroup - Stratosphere.ResourceProperties.StepFunctionsStateMachineLogDestination - Stratosphere.ResourceProperties.StepFunctionsStateMachineLoggingConfiguration - Stratosphere.ResourceProperties.StepFunctionsStateMachineS3Location - Stratosphere.ResourceProperties.StepFunctionsStateMachineTagsEntry - Stratosphere.ResourceProperties.StepFunctionsStateMachineTracingConfiguration - Stratosphere.ResourceProperties.SyntheticsCanaryCode - Stratosphere.ResourceProperties.SyntheticsCanaryRunConfig - Stratosphere.ResourceProperties.SyntheticsCanarySchedule - Stratosphere.ResourceProperties.SyntheticsCanaryVPCConfig - Stratosphere.ResourceProperties.Tag - Stratosphere.ResourceProperties.TransferServerEndpointDetails - Stratosphere.ResourceProperties.TransferServerIdentityProviderDetails - Stratosphere.ResourceProperties.TransferUserHomeDirectoryMapEntry - Stratosphere.ResourceProperties.WAFByteMatchSetByteMatchTuple - Stratosphere.ResourceProperties.WAFByteMatchSetFieldToMatch - Stratosphere.ResourceProperties.WAFIPSetIPSetDescriptor - Stratosphere.ResourceProperties.WAFRegionalByteMatchSetByteMatchTuple - Stratosphere.ResourceProperties.WAFRegionalByteMatchSetFieldToMatch - Stratosphere.ResourceProperties.WAFRegionalGeoMatchSetGeoMatchConstraint - Stratosphere.ResourceProperties.WAFRegionalIPSetIPSetDescriptor - Stratosphere.ResourceProperties.WAFRegionalRateBasedRulePredicate - Stratosphere.ResourceProperties.WAFRegionalRulePredicate - Stratosphere.ResourceProperties.WAFRegionalSizeConstraintSetFieldToMatch - Stratosphere.ResourceProperties.WAFRegionalSizeConstraintSetSizeConstraint - Stratosphere.ResourceProperties.WAFRegionalSqlInjectionMatchSetFieldToMatch - Stratosphere.ResourceProperties.WAFRegionalSqlInjectionMatchSetSqlInjectionMatchTuple - Stratosphere.ResourceProperties.WAFRegionalWebACLAction - Stratosphere.ResourceProperties.WAFRegionalWebACLRule - Stratosphere.ResourceProperties.WAFRegionalXssMatchSetFieldToMatch - Stratosphere.ResourceProperties.WAFRegionalXssMatchSetXssMatchTuple - Stratosphere.ResourceProperties.WAFRulePredicate - Stratosphere.ResourceProperties.WAFSizeConstraintSetFieldToMatch - Stratosphere.ResourceProperties.WAFSizeConstraintSetSizeConstraint - Stratosphere.ResourceProperties.WAFSqlInjectionMatchSetFieldToMatch - Stratosphere.ResourceProperties.WAFSqlInjectionMatchSetSqlInjectionMatchTuple - Stratosphere.ResourceProperties.WAFv2RuleGroupAndStatementOne - Stratosphere.ResourceProperties.WAFv2RuleGroupAndStatementTwo - Stratosphere.ResourceProperties.WAFv2RuleGroupByteMatchStatement - Stratosphere.ResourceProperties.WAFv2RuleGroupFieldToMatch - Stratosphere.ResourceProperties.WAFv2RuleGroupForwardedIPConfiguration - Stratosphere.ResourceProperties.WAFv2RuleGroupGeoMatchStatement - Stratosphere.ResourceProperties.WAFv2RuleGroupIPSetForwardedIPConfiguration - Stratosphere.ResourceProperties.WAFv2RuleGroupIPSetReferenceStatement - Stratosphere.ResourceProperties.WAFv2RuleGroupNotStatementOne - Stratosphere.ResourceProperties.WAFv2RuleGroupNotStatementTwo - Stratosphere.ResourceProperties.WAFv2RuleGroupOrStatementOne - Stratosphere.ResourceProperties.WAFv2RuleGroupOrStatementTwo - Stratosphere.ResourceProperties.WAFv2RuleGroupRateBasedStatementOne - Stratosphere.ResourceProperties.WAFv2RuleGroupRateBasedStatementTwo - Stratosphere.ResourceProperties.WAFv2RuleGroupRegexPatternSetReferenceStatement - Stratosphere.ResourceProperties.WAFv2RuleGroupRule - Stratosphere.ResourceProperties.WAFv2RuleGroupRuleAction - Stratosphere.ResourceProperties.WAFv2RuleGroupSizeConstraintStatement - Stratosphere.ResourceProperties.WAFv2RuleGroupSqliMatchStatement - Stratosphere.ResourceProperties.WAFv2RuleGroupStatementOne - Stratosphere.ResourceProperties.WAFv2RuleGroupStatementThree - Stratosphere.ResourceProperties.WAFv2RuleGroupStatementTwo - Stratosphere.ResourceProperties.WAFv2RuleGroupTextTransformation - Stratosphere.ResourceProperties.WAFv2RuleGroupVisibilityConfig - Stratosphere.ResourceProperties.WAFv2RuleGroupXssMatchStatement - Stratosphere.ResourceProperties.WAFv2WebACLAndStatementOne - Stratosphere.ResourceProperties.WAFv2WebACLAndStatementTwo - Stratosphere.ResourceProperties.WAFv2WebACLByteMatchStatement - Stratosphere.ResourceProperties.WAFv2WebACLDefaultAction - Stratosphere.ResourceProperties.WAFv2WebACLExcludedRule - Stratosphere.ResourceProperties.WAFv2WebACLFieldToMatch - Stratosphere.ResourceProperties.WAFv2WebACLForwardedIPConfiguration - Stratosphere.ResourceProperties.WAFv2WebACLGeoMatchStatement - Stratosphere.ResourceProperties.WAFv2WebACLIPSetForwardedIPConfiguration - Stratosphere.ResourceProperties.WAFv2WebACLIPSetReferenceStatement - Stratosphere.ResourceProperties.WAFv2WebACLManagedRuleGroupStatement - Stratosphere.ResourceProperties.WAFv2WebACLNotStatementOne - Stratosphere.ResourceProperties.WAFv2WebACLNotStatementTwo - Stratosphere.ResourceProperties.WAFv2WebACLOrStatementOne - Stratosphere.ResourceProperties.WAFv2WebACLOrStatementTwo - Stratosphere.ResourceProperties.WAFv2WebACLOverrideAction - Stratosphere.ResourceProperties.WAFv2WebACLRateBasedStatementOne - Stratosphere.ResourceProperties.WAFv2WebACLRateBasedStatementTwo - Stratosphere.ResourceProperties.WAFv2WebACLRegexPatternSetReferenceStatement - Stratosphere.ResourceProperties.WAFv2WebACLRule - Stratosphere.ResourceProperties.WAFv2WebACLRuleAction - Stratosphere.ResourceProperties.WAFv2WebACLRuleGroupReferenceStatement - Stratosphere.ResourceProperties.WAFv2WebACLSizeConstraintStatement - Stratosphere.ResourceProperties.WAFv2WebACLSqliMatchStatement - Stratosphere.ResourceProperties.WAFv2WebACLStatementOne - Stratosphere.ResourceProperties.WAFv2WebACLStatementThree - Stratosphere.ResourceProperties.WAFv2WebACLStatementTwo - Stratosphere.ResourceProperties.WAFv2WebACLTextTransformation - Stratosphere.ResourceProperties.WAFv2WebACLVisibilityConfig - Stratosphere.ResourceProperties.WAFv2WebACLXssMatchStatement - Stratosphere.ResourceProperties.WAFWebACLActivatedRule - Stratosphere.ResourceProperties.WAFWebACLWafAction - Stratosphere.ResourceProperties.WAFXssMatchSetFieldToMatch - Stratosphere.ResourceProperties.WAFXssMatchSetXssMatchTuple - Stratosphere.ResourceProperties.WorkSpacesWorkspaceWorkspaceProperties - Stratosphere.Resources - Stratosphere.Resources.AccessAnalyzerAnalyzer - Stratosphere.Resources.ACMPCACertificate - Stratosphere.Resources.ACMPCACertificateAuthority - Stratosphere.Resources.ACMPCACertificateAuthorityActivation - Stratosphere.Resources.AmazonMQBroker - Stratosphere.Resources.AmazonMQConfiguration - Stratosphere.Resources.AmazonMQConfigurationAssociation - Stratosphere.Resources.AmplifyApp - Stratosphere.Resources.AmplifyBranch - Stratosphere.Resources.AmplifyDomain - Stratosphere.Resources.ApiGatewayAccount - Stratosphere.Resources.ApiGatewayApiKey - Stratosphere.Resources.ApiGatewayAuthorizer - Stratosphere.Resources.ApiGatewayBasePathMapping - Stratosphere.Resources.ApiGatewayClientCertificate - Stratosphere.Resources.ApiGatewayDeployment - Stratosphere.Resources.ApiGatewayDocumentationPart - Stratosphere.Resources.ApiGatewayDocumentationVersion - Stratosphere.Resources.ApiGatewayDomainName - Stratosphere.Resources.ApiGatewayGatewayResponse - Stratosphere.Resources.ApiGatewayMethod - Stratosphere.Resources.ApiGatewayModel - Stratosphere.Resources.ApiGatewayRequestValidator - Stratosphere.Resources.ApiGatewayResource - Stratosphere.Resources.ApiGatewayRestApi - Stratosphere.Resources.ApiGatewayStage - Stratosphere.Resources.ApiGatewayUsagePlan - Stratosphere.Resources.ApiGatewayUsagePlanKey - Stratosphere.Resources.ApiGatewayV2Api - Stratosphere.Resources.ApiGatewayV2ApiGatewayManagedOverrides - Stratosphere.Resources.ApiGatewayV2ApiMapping - Stratosphere.Resources.ApiGatewayV2Authorizer - Stratosphere.Resources.ApiGatewayV2Deployment - Stratosphere.Resources.ApiGatewayV2DomainName - Stratosphere.Resources.ApiGatewayV2Integration - Stratosphere.Resources.ApiGatewayV2IntegrationResponse - Stratosphere.Resources.ApiGatewayV2Model - Stratosphere.Resources.ApiGatewayV2Route - Stratosphere.Resources.ApiGatewayV2RouteResponse - Stratosphere.Resources.ApiGatewayV2Stage - Stratosphere.Resources.ApiGatewayV2VpcLink - Stratosphere.Resources.ApiGatewayVpcLink - Stratosphere.Resources.AppConfigApplication - Stratosphere.Resources.AppConfigConfigurationProfile - Stratosphere.Resources.AppConfigDeployment - Stratosphere.Resources.AppConfigDeploymentStrategy - Stratosphere.Resources.AppConfigEnvironment - Stratosphere.Resources.AppConfigHostedConfigurationVersion - Stratosphere.Resources.ApplicationAutoScalingScalableTarget - Stratosphere.Resources.ApplicationAutoScalingScalingPolicy - Stratosphere.Resources.ApplicationInsightsApplication - Stratosphere.Resources.AppMeshGatewayRoute - Stratosphere.Resources.AppMeshMesh - Stratosphere.Resources.AppMeshRoute - Stratosphere.Resources.AppMeshVirtualGateway - Stratosphere.Resources.AppMeshVirtualNode - Stratosphere.Resources.AppMeshVirtualRouter - Stratosphere.Resources.AppMeshVirtualService - Stratosphere.Resources.AppStreamDirectoryConfig - Stratosphere.Resources.AppStreamFleet - Stratosphere.Resources.AppStreamImageBuilder - Stratosphere.Resources.AppStreamStack - Stratosphere.Resources.AppStreamStackFleetAssociation - Stratosphere.Resources.AppStreamStackUserAssociation - Stratosphere.Resources.AppStreamUser - Stratosphere.Resources.AppSyncApiCache - Stratosphere.Resources.AppSyncApiKey - Stratosphere.Resources.AppSyncDataSource - Stratosphere.Resources.AppSyncFunctionConfiguration - Stratosphere.Resources.AppSyncGraphQLApi - Stratosphere.Resources.AppSyncGraphQLSchema - Stratosphere.Resources.AppSyncResolver - Stratosphere.Resources.ASKSkill - Stratosphere.Resources.AthenaDataCatalog - Stratosphere.Resources.AthenaNamedQuery - Stratosphere.Resources.AthenaWorkGroup - Stratosphere.Resources.AutoScalingAutoScalingGroup - Stratosphere.Resources.AutoScalingLaunchConfiguration - Stratosphere.Resources.AutoScalingLifecycleHook - Stratosphere.Resources.AutoScalingPlansScalingPlan - Stratosphere.Resources.AutoScalingScalingPolicy - Stratosphere.Resources.AutoScalingScheduledAction - Stratosphere.Resources.BackupBackupPlan - Stratosphere.Resources.BackupBackupSelection - Stratosphere.Resources.BackupBackupVault - Stratosphere.Resources.BatchComputeEnvironment - Stratosphere.Resources.BatchJobDefinition - Stratosphere.Resources.BatchJobQueue - Stratosphere.Resources.BudgetsBudget - Stratosphere.Resources.CassandraKeyspace - Stratosphere.Resources.CassandraTable - Stratosphere.Resources.CECostCategory - Stratosphere.Resources.CertificateManagerCertificate - Stratosphere.Resources.ChatbotSlackChannelConfiguration - Stratosphere.Resources.Cloud9EnvironmentEC2 - Stratosphere.Resources.CloudFormationCustomResource - Stratosphere.Resources.CloudFormationMacro - Stratosphere.Resources.CloudFormationStack - Stratosphere.Resources.CloudFormationWaitCondition - Stratosphere.Resources.CloudFormationWaitConditionHandle - Stratosphere.Resources.CloudFrontCachePolicy - Stratosphere.Resources.CloudFrontCloudFrontOriginAccessIdentity - Stratosphere.Resources.CloudFrontDistribution - Stratosphere.Resources.CloudFrontOriginRequestPolicy - Stratosphere.Resources.CloudFrontRealtimeLogConfig - Stratosphere.Resources.CloudFrontStreamingDistribution - Stratosphere.Resources.CloudTrailTrail - Stratosphere.Resources.CloudWatchAlarm - Stratosphere.Resources.CloudWatchAnomalyDetector - Stratosphere.Resources.CloudWatchCompositeAlarm - Stratosphere.Resources.CloudWatchDashboard - Stratosphere.Resources.CloudWatchInsightRule - Stratosphere.Resources.CodeBuildProject - Stratosphere.Resources.CodeBuildReportGroup - Stratosphere.Resources.CodeBuildSourceCredential - Stratosphere.Resources.CodeCommitRepository - Stratosphere.Resources.CodeDeployApplication - Stratosphere.Resources.CodeDeployDeploymentConfig - Stratosphere.Resources.CodeDeployDeploymentGroup - Stratosphere.Resources.CodeGuruProfilerProfilingGroup - Stratosphere.Resources.CodeGuruReviewerRepositoryAssociation - Stratosphere.Resources.CodePipelineCustomActionType - Stratosphere.Resources.CodePipelinePipeline - Stratosphere.Resources.CodePipelineWebhook - Stratosphere.Resources.CodeStarConnectionsConnection - Stratosphere.Resources.CodeStarGitHubRepository - Stratosphere.Resources.CodeStarNotificationsNotificationRule - Stratosphere.Resources.CognitoIdentityPool - Stratosphere.Resources.CognitoIdentityPoolRoleAttachment - Stratosphere.Resources.CognitoUserPool - Stratosphere.Resources.CognitoUserPoolClient - Stratosphere.Resources.CognitoUserPoolDomain - Stratosphere.Resources.CognitoUserPoolGroup - Stratosphere.Resources.CognitoUserPoolIdentityProvider - Stratosphere.Resources.CognitoUserPoolResourceServer - Stratosphere.Resources.CognitoUserPoolRiskConfigurationAttachment - Stratosphere.Resources.CognitoUserPoolUICustomizationAttachment - Stratosphere.Resources.CognitoUserPoolUser - Stratosphere.Resources.CognitoUserPoolUserToGroupAttachment - Stratosphere.Resources.ConfigAggregationAuthorization - Stratosphere.Resources.ConfigConfigRule - Stratosphere.Resources.ConfigConfigurationAggregator - Stratosphere.Resources.ConfigConfigurationRecorder - Stratosphere.Resources.ConfigConformancePack - Stratosphere.Resources.ConfigDeliveryChannel - Stratosphere.Resources.ConfigOrganizationConfigRule - Stratosphere.Resources.ConfigOrganizationConformancePack - Stratosphere.Resources.ConfigRemediationConfiguration - Stratosphere.Resources.DataPipelinePipeline - Stratosphere.Resources.DAXCluster - Stratosphere.Resources.DAXParameterGroup - Stratosphere.Resources.DAXSubnetGroup - Stratosphere.Resources.DetectiveGraph - Stratosphere.Resources.DetectiveMemberInvitation - Stratosphere.Resources.DirectoryServiceMicrosoftAD - Stratosphere.Resources.DirectoryServiceSimpleAD - Stratosphere.Resources.DLMLifecyclePolicy - Stratosphere.Resources.DMSCertificate - Stratosphere.Resources.DMSEndpoint - Stratosphere.Resources.DMSEventSubscription - Stratosphere.Resources.DMSReplicationInstance - Stratosphere.Resources.DMSReplicationSubnetGroup - Stratosphere.Resources.DMSReplicationTask - Stratosphere.Resources.DocDBDBCluster - Stratosphere.Resources.DocDBDBClusterParameterGroup - Stratosphere.Resources.DocDBDBInstance - Stratosphere.Resources.DocDBDBSubnetGroup - Stratosphere.Resources.DynamoDBTable - Stratosphere.Resources.EC2CapacityReservation - Stratosphere.Resources.EC2CarrierGateway - Stratosphere.Resources.EC2ClientVpnAuthorizationRule - Stratosphere.Resources.EC2ClientVpnEndpoint - Stratosphere.Resources.EC2ClientVpnRoute - Stratosphere.Resources.EC2ClientVpnTargetNetworkAssociation - Stratosphere.Resources.EC2CustomerGateway - Stratosphere.Resources.EC2DHCPOptions - Stratosphere.Resources.EC2EC2Fleet - Stratosphere.Resources.EC2EgressOnlyInternetGateway - Stratosphere.Resources.EC2EIP - Stratosphere.Resources.EC2EIPAssociation - Stratosphere.Resources.EC2FlowLog - Stratosphere.Resources.EC2GatewayRouteTableAssociation - Stratosphere.Resources.EC2Host - Stratosphere.Resources.EC2Instance - Stratosphere.Resources.EC2InternetGateway - Stratosphere.Resources.EC2LaunchTemplate - Stratosphere.Resources.EC2LocalGatewayRoute - Stratosphere.Resources.EC2LocalGatewayRouteTableVPCAssociation - Stratosphere.Resources.EC2NatGateway - Stratosphere.Resources.EC2NetworkAcl - Stratosphere.Resources.EC2NetworkAclEntry - Stratosphere.Resources.EC2NetworkInterface - Stratosphere.Resources.EC2NetworkInterfaceAttachment - Stratosphere.Resources.EC2NetworkInterfacePermission - Stratosphere.Resources.EC2PlacementGroup - Stratosphere.Resources.EC2PrefixList - Stratosphere.Resources.EC2Route - Stratosphere.Resources.EC2RouteTable - Stratosphere.Resources.EC2SecurityGroup - Stratosphere.Resources.EC2SecurityGroupEgress - Stratosphere.Resources.EC2SecurityGroupIngress - Stratosphere.Resources.EC2SpotFleet - Stratosphere.Resources.EC2Subnet - Stratosphere.Resources.EC2SubnetCidrBlock - Stratosphere.Resources.EC2SubnetNetworkAclAssociation - Stratosphere.Resources.EC2SubnetRouteTableAssociation - Stratosphere.Resources.EC2TrafficMirrorFilter - Stratosphere.Resources.EC2TrafficMirrorFilterRule - Stratosphere.Resources.EC2TrafficMirrorSession - Stratosphere.Resources.EC2TrafficMirrorTarget - Stratosphere.Resources.EC2TransitGateway - Stratosphere.Resources.EC2TransitGatewayAttachment - Stratosphere.Resources.EC2TransitGatewayRoute - Stratosphere.Resources.EC2TransitGatewayRouteTable - Stratosphere.Resources.EC2TransitGatewayRouteTableAssociation - Stratosphere.Resources.EC2TransitGatewayRouteTablePropagation - Stratosphere.Resources.EC2Volume - Stratosphere.Resources.EC2VolumeAttachment - Stratosphere.Resources.EC2VPC - Stratosphere.Resources.EC2VPCCidrBlock - Stratosphere.Resources.EC2VPCDHCPOptionsAssociation - Stratosphere.Resources.EC2VPCEndpoint - Stratosphere.Resources.EC2VPCEndpointConnectionNotification - Stratosphere.Resources.EC2VPCEndpointService - Stratosphere.Resources.EC2VPCEndpointServicePermissions - Stratosphere.Resources.EC2VPCGatewayAttachment - Stratosphere.Resources.EC2VPCPeeringConnection - Stratosphere.Resources.EC2VPNConnection - Stratosphere.Resources.EC2VPNConnectionRoute - Stratosphere.Resources.EC2VPNGateway - Stratosphere.Resources.EC2VPNGatewayRoutePropagation - Stratosphere.Resources.ECRRepository - Stratosphere.Resources.ECSCapacityProvider - Stratosphere.Resources.ECSCluster - Stratosphere.Resources.ECSPrimaryTaskSet - Stratosphere.Resources.ECSService - Stratosphere.Resources.ECSTaskDefinition - Stratosphere.Resources.ECSTaskSet - Stratosphere.Resources.EFSAccessPoint - Stratosphere.Resources.EFSFileSystem - Stratosphere.Resources.EFSMountTarget - Stratosphere.Resources.EKSCluster - Stratosphere.Resources.EKSFargateProfile - Stratosphere.Resources.EKSNodegroup - Stratosphere.Resources.ElastiCacheCacheCluster - Stratosphere.Resources.ElastiCacheParameterGroup - Stratosphere.Resources.ElastiCacheReplicationGroup - Stratosphere.Resources.ElastiCacheSecurityGroup - Stratosphere.Resources.ElastiCacheSecurityGroupIngress - Stratosphere.Resources.ElastiCacheSubnetGroup - Stratosphere.Resources.ElasticBeanstalkApplication - Stratosphere.Resources.ElasticBeanstalkApplicationVersion - Stratosphere.Resources.ElasticBeanstalkConfigurationTemplate - Stratosphere.Resources.ElasticBeanstalkEnvironment - Stratosphere.Resources.ElasticLoadBalancingLoadBalancer - Stratosphere.Resources.ElasticLoadBalancingV2Listener - Stratosphere.Resources.ElasticLoadBalancingV2ListenerCertificateResource - Stratosphere.Resources.ElasticLoadBalancingV2ListenerRule - Stratosphere.Resources.ElasticLoadBalancingV2LoadBalancer - Stratosphere.Resources.ElasticLoadBalancingV2TargetGroup - Stratosphere.Resources.ElasticsearchDomain - Stratosphere.Resources.EMRCluster - Stratosphere.Resources.EMRInstanceFleetConfig - Stratosphere.Resources.EMRInstanceGroupConfig - Stratosphere.Resources.EMRSecurityConfiguration - Stratosphere.Resources.EMRStep - Stratosphere.Resources.EventSchemasDiscoverer - Stratosphere.Resources.EventSchemasRegistry - Stratosphere.Resources.EventSchemasRegistryPolicy - Stratosphere.Resources.EventSchemasSchema - Stratosphere.Resources.EventsEventBus - Stratosphere.Resources.EventsEventBusPolicy - Stratosphere.Resources.EventsRule - Stratosphere.Resources.FMSNotificationChannel - Stratosphere.Resources.FMSPolicy - Stratosphere.Resources.FSxFileSystem - Stratosphere.Resources.GameLiftAlias - Stratosphere.Resources.GameLiftBuild - Stratosphere.Resources.GameLiftFleet - Stratosphere.Resources.GameLiftGameServerGroup - Stratosphere.Resources.GameLiftGameSessionQueue - Stratosphere.Resources.GameLiftMatchmakingConfiguration - Stratosphere.Resources.GameLiftMatchmakingRuleSet - Stratosphere.Resources.GameLiftScript - Stratosphere.Resources.GlobalAcceleratorAccelerator - Stratosphere.Resources.GlobalAcceleratorEndpointGroup - Stratosphere.Resources.GlobalAcceleratorListener - Stratosphere.Resources.GlueClassifier - Stratosphere.Resources.GlueConnection - Stratosphere.Resources.GlueCrawler - Stratosphere.Resources.GlueDatabase - Stratosphere.Resources.GlueDataCatalogEncryptionSettings - Stratosphere.Resources.GlueDevEndpoint - Stratosphere.Resources.GlueJob - Stratosphere.Resources.GlueMLTransform - Stratosphere.Resources.GluePartition - Stratosphere.Resources.GlueSecurityConfiguration - Stratosphere.Resources.GlueTable - Stratosphere.Resources.GlueTrigger - Stratosphere.Resources.GlueWorkflow - Stratosphere.Resources.GreengrassConnectorDefinition - Stratosphere.Resources.GreengrassConnectorDefinitionVersion - Stratosphere.Resources.GreengrassCoreDefinition - Stratosphere.Resources.GreengrassCoreDefinitionVersion - Stratosphere.Resources.GreengrassDeviceDefinition - Stratosphere.Resources.GreengrassDeviceDefinitionVersion - Stratosphere.Resources.GreengrassFunctionDefinition - Stratosphere.Resources.GreengrassFunctionDefinitionVersion - Stratosphere.Resources.GreengrassGroup - Stratosphere.Resources.GreengrassGroupVersion - Stratosphere.Resources.GreengrassLoggerDefinition - Stratosphere.Resources.GreengrassLoggerDefinitionVersion - Stratosphere.Resources.GreengrassResourceDefinition - Stratosphere.Resources.GreengrassResourceDefinitionVersion - Stratosphere.Resources.GreengrassSubscriptionDefinition - Stratosphere.Resources.GreengrassSubscriptionDefinitionVersion - Stratosphere.Resources.GuardDutyDetector - Stratosphere.Resources.GuardDutyFilter - Stratosphere.Resources.GuardDutyIPSet - Stratosphere.Resources.GuardDutyMaster - Stratosphere.Resources.GuardDutyMember - Stratosphere.Resources.GuardDutyThreatIntelSet - Stratosphere.Resources.IAMAccessKey - Stratosphere.Resources.IAMGroup - Stratosphere.Resources.IAMInstanceProfile - Stratosphere.Resources.IAMManagedPolicy - Stratosphere.Resources.IAMPolicy - Stratosphere.Resources.IAMRole - Stratosphere.Resources.IAMServiceLinkedRole - Stratosphere.Resources.IAMUser - Stratosphere.Resources.IAMUserToGroupAddition - Stratosphere.Resources.ImageBuilderComponent - Stratosphere.Resources.ImageBuilderDistributionConfiguration - Stratosphere.Resources.ImageBuilderImage - Stratosphere.Resources.ImageBuilderImagePipeline - Stratosphere.Resources.ImageBuilderImageRecipe - Stratosphere.Resources.ImageBuilderInfrastructureConfiguration - Stratosphere.Resources.InspectorAssessmentTarget - Stratosphere.Resources.InspectorAssessmentTemplate - Stratosphere.Resources.InspectorResourceGroup - Stratosphere.Resources.IoT1ClickDevice - Stratosphere.Resources.IoT1ClickPlacement - Stratosphere.Resources.IoT1ClickProject - Stratosphere.Resources.IoTAnalyticsChannel - Stratosphere.Resources.IoTAnalyticsDataset - Stratosphere.Resources.IoTAnalyticsDatastore - Stratosphere.Resources.IoTAnalyticsPipeline - Stratosphere.Resources.IoTCertificate - Stratosphere.Resources.IoTEventsDetectorModel - Stratosphere.Resources.IoTEventsInput - Stratosphere.Resources.IoTPolicy - Stratosphere.Resources.IoTPolicyPrincipalAttachment - Stratosphere.Resources.IoTProvisioningTemplate - Stratosphere.Resources.IoTThing - Stratosphere.Resources.IoTThingPrincipalAttachment - Stratosphere.Resources.IoTThingsGraphFlowTemplate - Stratosphere.Resources.IoTTopicRule - Stratosphere.Resources.KinesisAnalyticsApplication - Stratosphere.Resources.KinesisAnalyticsApplicationOutput - Stratosphere.Resources.KinesisAnalyticsApplicationReferenceDataSource - Stratosphere.Resources.KinesisAnalyticsV2Application - Stratosphere.Resources.KinesisAnalyticsV2ApplicationCloudWatchLoggingOption - Stratosphere.Resources.KinesisAnalyticsV2ApplicationOutput - Stratosphere.Resources.KinesisAnalyticsV2ApplicationReferenceDataSource - Stratosphere.Resources.KinesisFirehoseDeliveryStream - Stratosphere.Resources.KinesisStream - Stratosphere.Resources.KinesisStreamConsumer - Stratosphere.Resources.KMSAlias - Stratosphere.Resources.KMSKey - Stratosphere.Resources.LakeFormationDataLakeSettings - Stratosphere.Resources.LakeFormationPermissions - Stratosphere.Resources.LakeFormationResource - Stratosphere.Resources.LambdaAlias - Stratosphere.Resources.LambdaEventInvokeConfig - Stratosphere.Resources.LambdaEventSourceMapping - Stratosphere.Resources.LambdaFunction - Stratosphere.Resources.LambdaLayerVersion - Stratosphere.Resources.LambdaLayerVersionPermission - Stratosphere.Resources.LambdaPermission - Stratosphere.Resources.LambdaVersion - Stratosphere.Resources.LogsDestination - Stratosphere.Resources.LogsLogGroup - Stratosphere.Resources.LogsLogStream - Stratosphere.Resources.LogsMetricFilter - Stratosphere.Resources.LogsSubscriptionFilter - Stratosphere.Resources.MacieCustomDataIdentifier - Stratosphere.Resources.MacieFindingsFilter - Stratosphere.Resources.MacieSession - Stratosphere.Resources.ManagedBlockchainMember - Stratosphere.Resources.ManagedBlockchainNode - Stratosphere.Resources.MediaConvertJobTemplate - Stratosphere.Resources.MediaConvertPreset - Stratosphere.Resources.MediaConvertQueue - Stratosphere.Resources.MediaLiveChannel - Stratosphere.Resources.MediaLiveInput - Stratosphere.Resources.MediaLiveInputSecurityGroup - Stratosphere.Resources.MediaStoreContainer - Stratosphere.Resources.MSKCluster - Stratosphere.Resources.NeptuneDBCluster - Stratosphere.Resources.NeptuneDBClusterParameterGroup - Stratosphere.Resources.NeptuneDBInstance - Stratosphere.Resources.NeptuneDBParameterGroup - Stratosphere.Resources.NeptuneDBSubnetGroup - Stratosphere.Resources.NetworkManagerCustomerGatewayAssociation - Stratosphere.Resources.NetworkManagerDevice - Stratosphere.Resources.NetworkManagerGlobalNetwork - Stratosphere.Resources.NetworkManagerLink - Stratosphere.Resources.NetworkManagerLinkAssociation - Stratosphere.Resources.NetworkManagerSite - Stratosphere.Resources.NetworkManagerTransitGatewayRegistration - Stratosphere.Resources.OpsWorksApp - Stratosphere.Resources.OpsWorksCMServer - Stratosphere.Resources.OpsWorksElasticLoadBalancerAttachment - Stratosphere.Resources.OpsWorksInstance - Stratosphere.Resources.OpsWorksLayer - Stratosphere.Resources.OpsWorksStack - Stratosphere.Resources.OpsWorksUserProfile - Stratosphere.Resources.OpsWorksVolume - Stratosphere.Resources.PinpointADMChannel - Stratosphere.Resources.PinpointAPNSChannel - Stratosphere.Resources.PinpointAPNSSandboxChannel - Stratosphere.Resources.PinpointAPNSVoipChannel - Stratosphere.Resources.PinpointAPNSVoipSandboxChannel - Stratosphere.Resources.PinpointApp - Stratosphere.Resources.PinpointApplicationSettings - Stratosphere.Resources.PinpointBaiduChannel - Stratosphere.Resources.PinpointCampaign - Stratosphere.Resources.PinpointEmailChannel - Stratosphere.Resources.PinpointEmailConfigurationSet - Stratosphere.Resources.PinpointEmailConfigurationSetEventDestination - Stratosphere.Resources.PinpointEmailDedicatedIpPool - Stratosphere.Resources.PinpointEmailIdentity - Stratosphere.Resources.PinpointEmailTemplate - Stratosphere.Resources.PinpointEventStream - Stratosphere.Resources.PinpointGCMChannel - Stratosphere.Resources.PinpointPushTemplate - Stratosphere.Resources.PinpointSegment - Stratosphere.Resources.PinpointSMSChannel - Stratosphere.Resources.PinpointSmsTemplate - Stratosphere.Resources.PinpointVoiceChannel - Stratosphere.Resources.QLDBLedger - Stratosphere.Resources.QLDBStream - Stratosphere.Resources.RAMResourceShare - Stratosphere.Resources.RDSDBCluster - Stratosphere.Resources.RDSDBClusterParameterGroup - Stratosphere.Resources.RDSDBInstance - Stratosphere.Resources.RDSDBParameterGroup - Stratosphere.Resources.RDSDBProxy - Stratosphere.Resources.RDSDBProxyTargetGroup - Stratosphere.Resources.RDSDBSecurityGroup - Stratosphere.Resources.RDSDBSecurityGroupIngress - Stratosphere.Resources.RDSDBSubnetGroup - Stratosphere.Resources.RDSEventSubscription - Stratosphere.Resources.RDSOptionGroup - Stratosphere.Resources.RedshiftCluster - Stratosphere.Resources.RedshiftClusterParameterGroup - Stratosphere.Resources.RedshiftClusterSecurityGroup - Stratosphere.Resources.RedshiftClusterSecurityGroupIngress - Stratosphere.Resources.RedshiftClusterSubnetGroup - Stratosphere.Resources.ResourceGroupsGroup - Stratosphere.Resources.RoboMakerFleet - Stratosphere.Resources.RoboMakerRobot - Stratosphere.Resources.RoboMakerRobotApplication - Stratosphere.Resources.RoboMakerRobotApplicationVersion - Stratosphere.Resources.RoboMakerSimulationApplication - Stratosphere.Resources.RoboMakerSimulationApplicationVersion - Stratosphere.Resources.Route53HealthCheck - Stratosphere.Resources.Route53HostedZone - Stratosphere.Resources.Route53RecordSet - Stratosphere.Resources.Route53RecordSetGroup - Stratosphere.Resources.Route53ResolverResolverEndpoint - Stratosphere.Resources.Route53ResolverResolverQueryLoggingConfig - Stratosphere.Resources.Route53ResolverResolverQueryLoggingConfigAssociation - Stratosphere.Resources.Route53ResolverResolverRule - Stratosphere.Resources.Route53ResolverResolverRuleAssociation - Stratosphere.Resources.S3AccessPoint - Stratosphere.Resources.S3Bucket - Stratosphere.Resources.S3BucketPolicy - Stratosphere.Resources.SageMakerCodeRepository - Stratosphere.Resources.SageMakerEndpoint - Stratosphere.Resources.SageMakerEndpointConfig - Stratosphere.Resources.SageMakerModel - Stratosphere.Resources.SageMakerMonitoringSchedule - Stratosphere.Resources.SageMakerNotebookInstance - Stratosphere.Resources.SageMakerNotebookInstanceLifecycleConfig - Stratosphere.Resources.SageMakerWorkteam - Stratosphere.Resources.SDBDomain - Stratosphere.Resources.SecretsManagerResourcePolicy - Stratosphere.Resources.SecretsManagerRotationSchedule - Stratosphere.Resources.SecretsManagerSecret - Stratosphere.Resources.SecretsManagerSecretTargetAttachment - Stratosphere.Resources.SecurityHubHub - Stratosphere.Resources.ServiceCatalogAcceptedPortfolioShare - Stratosphere.Resources.ServiceCatalogCloudFormationProduct - Stratosphere.Resources.ServiceCatalogCloudFormationProvisionedProduct - Stratosphere.Resources.ServiceCatalogLaunchNotificationConstraint - Stratosphere.Resources.ServiceCatalogLaunchRoleConstraint - Stratosphere.Resources.ServiceCatalogLaunchTemplateConstraint - Stratosphere.Resources.ServiceCatalogPortfolio - Stratosphere.Resources.ServiceCatalogPortfolioPrincipalAssociation - Stratosphere.Resources.ServiceCatalogPortfolioProductAssociation - Stratosphere.Resources.ServiceCatalogPortfolioShare - Stratosphere.Resources.ServiceCatalogResourceUpdateConstraint - Stratosphere.Resources.ServiceCatalogStackSetConstraint - Stratosphere.Resources.ServiceCatalogTagOption - Stratosphere.Resources.ServiceCatalogTagOptionAssociation - Stratosphere.Resources.ServiceDiscoveryHttpNamespace - Stratosphere.Resources.ServiceDiscoveryInstance - Stratosphere.Resources.ServiceDiscoveryPrivateDnsNamespace - Stratosphere.Resources.ServiceDiscoveryPublicDnsNamespace - Stratosphere.Resources.ServiceDiscoveryService - Stratosphere.Resources.SESConfigurationSet - Stratosphere.Resources.SESConfigurationSetEventDestination - Stratosphere.Resources.SESReceiptFilter - Stratosphere.Resources.SESReceiptRule - Stratosphere.Resources.SESReceiptRuleSet - Stratosphere.Resources.SESTemplate - Stratosphere.Resources.SNSSubscription - Stratosphere.Resources.SNSTopic - Stratosphere.Resources.SNSTopicPolicy - Stratosphere.Resources.SQSQueue - Stratosphere.Resources.SQSQueuePolicy - Stratosphere.Resources.SSMAssociation - Stratosphere.Resources.SSMDocument - Stratosphere.Resources.SSMMaintenanceWindow - Stratosphere.Resources.SSMMaintenanceWindowTarget - Stratosphere.Resources.SSMMaintenanceWindowTask - Stratosphere.Resources.SSMParameter - Stratosphere.Resources.SSMPatchBaseline - Stratosphere.Resources.SSMResourceDataSync - Stratosphere.Resources.StepFunctionsActivity - Stratosphere.Resources.StepFunctionsStateMachine - Stratosphere.Resources.SyntheticsCanary - Stratosphere.Resources.TransferServer - Stratosphere.Resources.TransferUser - Stratosphere.Resources.WAFByteMatchSet - Stratosphere.Resources.WAFIPSet - Stratosphere.Resources.WAFRegionalByteMatchSet - Stratosphere.Resources.WAFRegionalGeoMatchSet - Stratosphere.Resources.WAFRegionalIPSet - Stratosphere.Resources.WAFRegionalRateBasedRule - Stratosphere.Resources.WAFRegionalRegexPatternSet - Stratosphere.Resources.WAFRegionalRule - Stratosphere.Resources.WAFRegionalSizeConstraintSet - Stratosphere.Resources.WAFRegionalSqlInjectionMatchSet - Stratosphere.Resources.WAFRegionalWebACL - Stratosphere.Resources.WAFRegionalWebACLAssociation - Stratosphere.Resources.WAFRegionalXssMatchSet - Stratosphere.Resources.WAFRule - Stratosphere.Resources.WAFSizeConstraintSet - Stratosphere.Resources.WAFSqlInjectionMatchSet - Stratosphere.Resources.WAFv2IPSet - Stratosphere.Resources.WAFv2RegexPatternSet - Stratosphere.Resources.WAFv2RuleGroup - Stratosphere.Resources.WAFv2WebACL - Stratosphere.Resources.WAFv2WebACLAssociation - Stratosphere.Resources.WAFWebACL - Stratosphere.Resources.WAFXssMatchSet - Stratosphere.Resources.WorkSpacesWorkspace - other-modules: - Paths_stratosphere - hs-source-dirs: - library - library-gen - ghc-options: -Wall -O0 - build-depends: - aeson >=2 - , aeson-pretty >=0.8 - , base >=4.8 && <5 - , bytestring - , containers - , hashable - , lens >=4.5 - , template-haskell >=2.0 - , text >=1.1 - , unordered-containers >=0.2 - default-language: Haskell2010 - -executable auto-scaling-group - main-is: auto-scaling-group.hs - other-modules: - Paths_stratosphere - hs-source-dirs: - examples - ghc-options: -Wall - build-depends: - aeson >=2 - , aeson-pretty >=0.8 - , base >=4.8 && <5 - , bytestring - , containers - , hashable - , lens >=4.5 - , stratosphere - , template-haskell >=2.0 - , text >=1.1 - , unordered-containers >=0.2 - if flag(library-only) - buildable: False - default-language: Haskell2010 - -executable rds-master-replica - main-is: rds-master-replica.hs - other-modules: - Paths_stratosphere - hs-source-dirs: - examples - ghc-options: -Wall - build-depends: - aeson >=2 - , aeson-pretty >=0.8 - , base >=4.8 && <5 - , bytestring - , containers - , hashable - , lens >=4.5 - , stratosphere - , template-haskell >=2.0 - , text >=1.1 - , unordered-containers >=0.2 - if flag(library-only) - buildable: False - default-language: Haskell2010 - -executable s3-copy - main-is: s3-copy.hs - other-modules: - Paths_stratosphere - hs-source-dirs: - examples - ghc-options: -Wall - build-depends: - aeson >=2 - , aeson-pretty >=0.8 - , base >=4.8 && <5 - , bytestring - , containers - , hashable - , lens >=4.5 - , stratosphere - , template-haskell >=2.0 - , text >=1.1 - , unordered-containers >=0.2 - if flag(library-only) - buildable: False - default-language: Haskell2010 - -executable simple-lambda - main-is: simple-lambda.hs - other-modules: - Paths_stratosphere - hs-source-dirs: - examples - ghc-options: -Wall - build-depends: - aeson >=2 - , aeson-pretty >=0.8 - , base >=4.8 && <5 - , bytestring - , containers - , hashable - , lens >=4.5 - , stratosphere - , template-haskell >=2.0 - , text >=1.1 - , unordered-containers >=0.2 - if flag(library-only) - buildable: False - default-language: Haskell2010 - -test-suite spec - type: exitcode-stdio-1.0 - main-is: Spec.hs - other-modules: - Stratosphere.ValuesSpec - Paths_stratosphere - hs-source-dirs: - tests - build-depends: - aeson >=2 - , aeson-pretty >=0.8 - , base - , bytestring - , containers - , hashable - , hspec - , hspec-discover - , lens >=4.5 - , stratosphere - , template-haskell >=2.0 - , text >=1.1 - , unordered-containers >=0.2 - default-language: Haskell2010 +-- This file has been generated from package.yaml by hpack version 0.38.1. +-- +-- see: https://github.com/sol/hpack + +name: stratosphere +version: 1.0.0 +synopsis: EDSL for AWS CloudFormation +description: EDSL for AWS CloudFormation, base types to be used by sibling stratosphere-* packages. +category: AWS, Cloud +stability: experimental +homepage: https://github.com/mbj/stratosphere#readme +bug-reports: https://github.com/mbj/stratosphere/issues +maintainer: Markus Schirp +license: MIT +license-file: LICENSE.md +build-type: Simple +extra-source-files: + CHANGELOG.md + LICENSE.md + README.md + +source-repository head + type: git + location: https://github.com/mbj/stratosphere + +flag development + description: Run GHC with development flags + manual: True + default: False + +library + exposed-modules: + Paths_stratosphere + Stratosphere + Stratosphere.Check + Stratosphere.NamedItem + Stratosphere.Output + Stratosphere.Parameter + Stratosphere.Prelude + Stratosphere.Property + Stratosphere.Resource + Stratosphere.ResourceAttributes.AutoScalingReplacingUpdatePolicy + Stratosphere.ResourceAttributes.AutoScalingRollingUpdatePolicy + Stratosphere.ResourceAttributes.AutoScalingScheduledActionPolicy + Stratosphere.ResourceAttributes.CreationPolicy + Stratosphere.ResourceAttributes.ResourceSignal + Stratosphere.ResourceAttributes.UpdatePolicy + Stratosphere.ResourceProperties + Stratosphere.Tag + Stratosphere.Template + Stratosphere.Value + hs-source-dirs: + gen + src + default-extensions: + DataKinds + DeriveGeneric + DerivingStrategies + DerivingVia + DuplicateRecordFields + FlexibleContexts + FlexibleInstances + GADTs + GeneralizedNewtypeDeriving + InstanceSigs + LambdaCase + MultiParamTypeClasses + NoFieldSelectors + NoImplicitPrelude + NumericUnderscores + OverloadedLists + OverloadedRecordDot + OverloadedStrings + PolyKinds + RecordWildCards + ScopedTypeVariables + StandaloneDeriving + Strict + TemplateHaskell + TupleSections + TypeApplications + TypeFamilies + ghc-options: -Wall -Wcompat -Widentities -Wimplicit-prelude -Wincomplete-record-updates -Wincomplete-uni-patterns -Wmissing-local-signatures -Wmissing-signatures -Wmonomorphism-restriction -Wredundant-constraints -fhide-source-paths -funbox-strict-fields -optP-Wno-nonportable-include-path + build-depends: + aeson ==2.* + , aeson-pretty >=0.8 && <2.9 + , base >=4.8 && <4.22 + , bytestring >=0.11 && <0.13 + , containers >=0.6 && <0.9 + , mono-traversable >=1.0 && <2.0 + , text >=1.1 && <3.0 + default-language: Haskell2010 + if flag(development) + ghc-options: -Werror + else + ghc-options: -Wwarn + +test-suite spec + type: exitcode-stdio-1.0 + main-is: Spec.hs + other-modules: + Stratosphere.ValuesSpec + Paths_stratosphere + hs-source-dirs: + test + default-extensions: + DataKinds + DeriveGeneric + DerivingStrategies + DerivingVia + DuplicateRecordFields + FlexibleContexts + FlexibleInstances + GADTs + GeneralizedNewtypeDeriving + InstanceSigs + LambdaCase + MultiParamTypeClasses + NoFieldSelectors + NoImplicitPrelude + NumericUnderscores + OverloadedLists + OverloadedRecordDot + OverloadedStrings + PolyKinds + RecordWildCards + ScopedTypeVariables + StandaloneDeriving + Strict + TemplateHaskell + TupleSections + TypeApplications + TypeFamilies + ghc-options: -Wall -Wcompat -Widentities -Wimplicit-prelude -Wincomplete-record-updates -Wincomplete-uni-patterns -Wmissing-local-signatures -Wmissing-signatures -Wmonomorphism-restriction -Wredundant-constraints -fhide-source-paths -funbox-strict-fields -optP-Wno-nonportable-include-path + build-depends: + aeson ==2.* + , aeson-pretty >=0.8 && <2.9 + , base + , bytestring >=0.11 && <0.13 + , containers >=0.6 && <0.9 + , mono-traversable >=1.0 && <2.0 + , stratosphere + , sydtest + , sydtest-discover + , text >=1.1 && <3.0 + default-language: Haskell2010 + if flag(development) + ghc-options: -Werror + else + ghc-options: -Wwarn diff --git a/test/Spec.hs b/test/Spec.hs new file mode 100644 --- /dev/null +++ b/test/Spec.hs @@ -0,0 +1,1 @@ +{-# OPTIONS_GHC -F -pgmF sydtest-discover #-} diff --git a/test/Stratosphere/ValuesSpec.hs b/test/Stratosphere/ValuesSpec.hs new file mode 100644 --- /dev/null +++ b/test/Stratosphere/ValuesSpec.hs @@ -0,0 +1,22 @@ +module Stratosphere.ValuesSpec + ( spec + ) where + +import Data.Text (Text) +import Prelude +import Stratosphere.Value +import Test.Syd + +import qualified Data.Aeson as JSON + +spec :: Spec +spec = do + describe "JSON instances" $ do + it "Ref and RefList produce the same JSON" $ do + JSON.toJSON (Ref "MyVal" :: Value Text) `shouldBe` JSON.toJSON (RefList "MyVal" :: ValueList Text) + + it "ImportValue and ImportValueList produce the same JSON" $ do + JSON.toJSON (ImportValue "MyVal" :: Value Text) `shouldBe` JSON.toJSON (ImportValueList "MyVal" :: ValueList Text) + + it "Cidr produces expected JSON" $ do + JSON.toJSON @(ValueList Text) (Cidr "192.168.0.0/24" "6" "5") `shouldBe` JSON.object [("Fn::Cidr", JSON.Array ["192.168.0.0/24", "6", "5"])] diff --git a/tests/Spec.hs b/tests/Spec.hs deleted file mode 100644 --- a/tests/Spec.hs +++ /dev/null @@ -1,1 +0,0 @@ -{-# OPTIONS_GHC -F -pgmF hspec-discover #-} diff --git a/tests/Stratosphere/ValuesSpec.hs b/tests/Stratosphere/ValuesSpec.hs deleted file mode 100644 --- a/tests/Stratosphere/ValuesSpec.hs +++ /dev/null @@ -1,22 +0,0 @@ -{-# LANGUAGE OverloadedLists #-} -{-# LANGUAGE OverloadedStrings #-} - -module Stratosphere.ValuesSpec - ( spec - ) where - -import Data.Aeson -import Data.Text (Text) -import Test.Hspec - -import Stratosphere.Values - -spec :: Spec -spec = do - describe "Val/ValList JSON instances" $ do - - it "Ref and RefList produce the same JSON" $ do - toJSON (Ref "MyVal" :: Val Text) `shouldBe` toJSON (RefList "MyVal" :: ValList Text) - - it "ImportValue and ImportValueList produce the same JSON" $ do - toJSON (ImportValue "MyVal" :: Val Text) `shouldBe` toJSON (ImportValueList "MyVal" :: ValList Text)